%RegisteredObject
63602,62135.147335
63342,62534.677247
3.0.0
%SQLQuery
PatientId:%BigInt,MenuOption:%String="",UserIen:%String,FacilityIen:%String
AG_CheckAndSetSilentSPTAccessQ
1
select ( AG_CheckAndSetSilentSPTAccessM(:PatientId,:MenuOption,:UserIen,:FacilityIen)) as Result
1
PatientId:%BigInt,MenuOption:%String="",UserIen:%String,FacilityIen:%String
0
%Text
AG_CheckAndSetSilentSPTAccessM
1
=2)&&(+ChkSen<=5)) D
. s RS=##class(BMW.BSF.SP.AgSetSPTAccess).SetSPTAccessM(PatientId,MenuOption,UserIen,FacilityIen)
Q $G(RS)_"^"_$G(ChkSen)
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgCheckAndSE032D
AgCheckAndSetSilentSPTAccessDefaultData
^BMW.BSF.SP.AgCheckAndSE032D
^BMW.BSF.SP.AgCheckAndSE032I
^BMW.BSF.SP.AgCheckAndSE032S
100000
listnode
%%CLASSNAME
%RegisteredObject
63602,42734.991028
63340,57173.944403
3.0.0
%SQLQuery
PatientId:%BigInt,MenuOption:%String="",UserIen:%String,FacilityIen:%String
AG_CheckSPTAccessQ
1
select (AG_CheckSPTAccessM(:PatientId,:MenuOption,:UserIen,:FacilityIen)) As Result
1
PatientId:%BigInt,MenuOption:%String,UserIen:%String,FacilityIen:%String
0
%Text
AG_CheckSPTAccessM
1
1
module:%Text,PatId:%Text,Mode:%Text,location:%Text,ActionTime:%Text
0
%Text
0 s ^BmwDebug($P(Date," "),$P($E(Date,10,25),":"),$P($E(Date,10,25),":",2),$P($E(Date,10,25),":",3),$J,$G(module),$G(PatId),$G(location),$G(Mode))="UserDuz: "_$G(DUZ)_" ^ActionTime: "_$G(ActionTime)_"^ Facility: "_$G(DUZ(2))
I +$G(PatId)<1 s ^BmwDebug($P(Date," "),$P($E(Date,10,25),":"),$P($E(Date,10,25),":",2),$P($E(Date,10,25),":",3),$J,$G(module),$G(location),$G(Mode))="UserDuz: "_$G(DUZ)_" ^ActionTime: "_$G(ActionTime)_"^ Facility: "_$G(DUZ(2))
Q
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgCheckSPTAccessD
AgCheckSPTAccessDefaultData
^BMW.BSF.SP.AgCheckSPTAccessD
^BMW.BSF.SP.AgCheckSPTAccessI
^BMW.BSF.SP.AgCheckSPTAccessS
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,40436.514655
63340,61589.091212
%SQLQuery
From:%Date,To:%Date,Facility:%Text,Type:%Text
AG_GetIncompleteChartStatisticsQ
1
1
From:%Date,To:%Date,Flag:%Integer,K:%Integer,Facility:%Text,Type:%Text
0
%Text
AG_GetIncompleteChartErrorsM
1
BDGEM)!(DATE>TODAY) D
. S MONTH=$E(DATE,1,5)
. S DFN=0 F S DFN=$O(^DGPM("AMV3",DATE,DFN)) Q:'DFN D
.. S IEN=0 F S IEN=$O(^DGPM("AMV3",DATE,DFN,IEN)) Q:'IEN D
... ;
... S ADM=$$GET1^DIQ(405,IEN,.14,"I") ;adm ien
... I $$LASTSRVN^BDGF1(ADM,DFN)["OBSERVATION" Q ;inpt only
... ;
... ;increment # discharged per month
... S COUNT(MONTH,"DSC")=$G(COUNT(MONTH,"DSC"))+1
... ;
... ; check for errors
... S VST=$$GET1^DIQ(405,+ADM,.27,"I") ;visit ien
... I 'VST D ERR^BDGICS1("No Visit linked to ADT Admission",IEN,DATE) Q
... I '$D(^AUPNVSIT(VST,0)) D ERR^BDGICS1("Linked Visit doesn't exist.",IEN) Q
... I $$GET1^DIQ(9000010,VST,.11)="DELETED" D Q
.... D ERR^BDGICS1("ADT Admission linked to Deleted visit.",IEN,DATE)
... ;
... S VH=$O(^AUPNVINP("AD",VST,0)) ;v hosp ien
... I 'VH D ERR^BDGICS1("No V Hospitalization for Visit",IEN,DATE) Q
... I '$D(^AUPNVINP(VH,0)) D ERR^BDGICS1("No V Hospitalization for Visit.",IEN,DATE) Q
... ; check if uncoded
... I $$GET1^DIQ(9000010.02,VH,.15)="NO" D UNCODED^BDGICS1(DATE,IEN) Q
... ;
... ; check if exported
... S COUNT(MONTH,"COD")=$G(COUNT(MONTH,"COD"))+1
... ;I $$GET1^DIQ(9000010,VST,.14)]"" S COUNT(MONTH,"EXP")=$G(COUNT(MONTH,"EXP"))+1 ;cmi/maw 10/20/2008 orig line
... I $$GET1^DIQ(9000010,VST,1106)]"" S COUNT(MONTH,"EXP")=$G(COUNT(MONTH,"EXP"))+1 ;cmi/maw 10/20/2008 PATCH 1010 modified for new data export field
;
; build display array
; monthly counts
S (MON,I,RTN)=0 F S MON=$O(COUNT(MON)) Q:'MON D
. F SUB="DSC","COD","UNC","EXP","ERR" D
.. S I=I+1
.. I SUB=Type D
... S RTN=$G(RTN)+$G(COUNT(MON,SUB))
I $G(Type)="ERR" S GBL="E"
I $G(Type)="UNC" S GBL="U"
S (I,DSC)=0 F S DSC=$O(^TMP("BDGICS1A",$J,GBL,DSC)) Q:'DSC D
. S IEN=0 F S IEN=$O(^TMP("BDGICS1A",$J,GBL,DSC,IEN)) Q:'IEN D
.. ;
.. S DFN=$$GET1^DIQ(405,IEN,.03,"I")
.. S ADM=$$GET1^DIQ(405,IEN,.14,"I")
.. I $G(RPT)="1" D
... I $G(Type)="ERR" D
.... S I=I+1,RTN(I)=$$NUMDATE^BDGF(DSC\1)_"^"_$$GET1^DIQ(405,IEN,.03)_"^"_$$HRCN^BDGF2(DFN,DUZ(2))_"^"_^TMP("BDGICS1A",$J,GBL,DSC,IEN)
... I $G(Type)="UNC" D
.... S I=I+1,RTN(I)=$$NUMDATE^BDGF(DSC\1)_"^"_$E($$GET1^DIQ(405,IEN,.03),1,22)_"^"_$$HRCN^BDGF2(DFN,DUZ(2))_"^"_$P($$LASTSRVC^BDGF1(ADM,DFN)," ")_"^"_$$INSUR^BDGF2(DFN,+^DGPM(ADM,0))_"^"_^TMP("BDGICS1A",$J,GBL,DSC,IEN)_"^"_$$NUMDATE^BDGF(+$G(^DGPM(ADM,0))\1)
;
K ^TMP("BDGICS1A",$J)
K ^TMP("BDGICS1",$J)
I RPT=1 Q RTN(K)
Q RTN
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgGetIncompA567D
AgGetIncompleteChartStatisticsDefaultData
^BMW.BSF.SP.AgGetIncompA567D
^BMW.BSF.SP.AgGetIncompA567I
^BMW.BSF.SP.AgGetIncompA567S
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,40425.385378
63340,61547.799629
3.0.0
%SQLQuery
From:%Date,To:%Date,Facility:%Text
AG_GetIncompleteChartStatisticsCountQ
1
1
From:%Date,To:%Date,K:%Integer,Facility:%Text
0
%Text
AG_GetIncompleteChartErrorsSummaryM
1
BDGEM)!(DATE>TODAY) D
. S MONTH=$E(DATE,1,5)
. S DFN=0 F S DFN=$O(^DGPM("AMV3",DATE,DFN)) Q:'DFN D
.. S IEN=0 F S IEN=$O(^DGPM("AMV3",DATE,DFN,IEN)) Q:'IEN D
... ;
... S ADM=$$GET1^DIQ(405,IEN,.14,"I") ;adm ien
... I $$LASTSRVN^BDGF1(ADM,DFN)["OBSERVATION" Q ;inpt only
... ;
... ;increment # discharged per month
... S COUNT(MONTH,"DSC")=$G(COUNT(MONTH,"DSC"))+1
... ;
... ; check for errors
... S VST=$$GET1^DIQ(405,+ADM,.27,"I") ;visit ien
... I 'VST D ERR^BDGICS1("No Visit linked to ADT Admission",IEN,DATE) Q
... I '$D(^AUPNVSIT(VST,0)) D ERR^BDGICS1("Linked Visit doesn't exist.",IEN) Q
... I $$GET1^DIQ(9000010,VST,.11)="DELETED" D Q
.... D ERR^BDGICS1("ADT Admission linked to Deleted visit.",IEN,DATE)
... ;
... S VH=$O(^AUPNVINP("AD",VST,0)) ;v hosp ien
... I 'VH D ERR^BDGICS1("No V Hospitalization for Visit",IEN,DATE) Q
... I '$D(^AUPNVINP(VH,0)) D ERR^BDGICS1("No V Hospitalization for Visit.",IEN,DATE) Q
... ; check if uncoded
... I $$GET1^DIQ(9000010.02,VH,.15)="NO" D UNCODED^BDGICS1(DATE,IEN) Q
... ;
... ; check if exported
... S COUNT(MONTH,"COD")=$G(COUNT(MONTH,"COD"))+1
... ;I $$GET1^DIQ(9000010,VST,.14)]"" S COUNT(MONTH,"EXP")=$G(COUNT(MONTH,"EXP"))+1 ;cmi/maw 10/20/2008 orig line
... I $$GET1^DIQ(9000010,VST,1106)]"" S COUNT(MONTH,"EXP")=$G(COUNT(MONTH,"EXP"))+1 ;cmi/maw 10/20/2008 PATCH 1010 modified for new data export field
;
; build display array
; monthly counts
S (MON,I,RTN)=0 F S MON=$O(COUNT(MON)) Q:'MON D
. S I=I+1,RTN(I)=$$FMTE^XLFDT(MON_"00")_"~"_"DSC"_$G(COUNT(MON,"DSC"))_"~"_"COD"_$G(COUNT(MON,"COD"))_"~"_"UNC"_$G(COUNT(MON,"UNC"))_"~"_"EXP"_$G(COUNT(MON,"EXP"))_"~"_"ERR"_$G(COUNT(MON,"ERR"))
K ^TMP("BDGICS1A",$J)
K ^TMP("BDGICS1",$J)
I K>I Q ""
Q RTN(K)
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgGetIncomp4272D
AgGetIncompleteChartStatisticsCountDefaultData
^BMW.BSF.SP.AgGetIncomp4272D
^BMW.BSF.SP.AgGetIncomp4272I
^BMW.BSF.SP.AgGetIncomp4272S
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,40416.561179
63340,61885.355677
3.0.0
%SQLQuery
From:%Date,To:%Date,Facility:%Text
AG_GetIncompleteChartStatisticsSumQ
1
Select AG_GetIncompleteChartStatisticsSumM(:From,:To,1,0,:Facility) AS Counts
1
From:%Date,To:%Date,Flag:%Integer,K:%Integer,Facility:%Text
0
%Text
AG_GetIncompleteChartStatisticsSumM
1
BDGEM)!(DATE>TODAY) D
. S MONTH=$E(DATE,1,5)
. S DFN=0 F S DFN=$O(^DGPM("AMV3",DATE,DFN)) Q:'DFN D
.. S IEN=0 F S IEN=$O(^DGPM("AMV3",DATE,DFN,IEN)) Q:'IEN D
... ;
... S ADM=$$GET1^DIQ(405,IEN,.14,"I") ;adm ien
... I $$LASTSRVN^BDGF1(ADM,DFN)["OBSERVATION" Q ;inpt only
... ;
... ;increment # discharged per month
... S COUNT(MONTH,"DSC")=$G(COUNT(MONTH,"DSC"))+1
... ;
... ; check for errors
... S VST=$$GET1^DIQ(405,+ADM,.27,"I") ;visit ien
... I 'VST D ERR^BDGICS1("No Visit linked to ADT Admission",IEN,DATE) Q
... I '$D(^AUPNVSIT(VST,0)) D ERR^BDGICS1("Linked Visit doesn't exist.",IEN) Q
... I $$GET1^DIQ(9000010,VST,.11)="DELETED" D Q
.... D ERR^BDGICS1("ADT Admission linked to Deleted visit.",IEN,DATE)
... ;
... S VH=$O(^AUPNVINP("AD",VST,0)) ;v hosp ien
... I 'VH D ERR^BDGICS1("No V Hospitalization for Visit",IEN,DATE) Q
... I '$D(^AUPNVINP(VH,0)) D ERR^BDGICS1("No V Hospitalization for Visit.",IEN,DATE) Q
... ; check if uncoded
... I $$GET1^DIQ(9000010.02,VH,.15)="NO" D UNCODED^BDGICS1(DATE,IEN) Q
... ;
... ; check if exported
... S COUNT(MONTH,"COD")=$G(COUNT(MONTH,"COD"))+1
... ;I $$GET1^DIQ(9000010,VST,.14)]"" S COUNT(MONTH,"EXP")=$G(COUNT(MONTH,"EXP"))+1 ;cmi/maw 10/20/2008 orig line
... I $$GET1^DIQ(9000010,VST,1106)]"" S COUNT(MONTH,"EXP")=$G(COUNT(MONTH,"EXP"))+1 ;cmi/maw 10/20/2008 PATCH 1010 modified for new data export field
;
; build display array
; monthly counts
S (MON,DSC,UNC,COD,EXP,ERR)=0 F S MON=$O(COUNT(MON)) Q:'MON D
. S DSC=DSC+$G(COUNT(MON,"DSC"))
. S UNC=UNC+$G(COUNT(MON,"COD"))
. S COD=COD+$G(COUNT(MON,"UNC"))
. S EXP=EXP+$G(COUNT(MON,"EXP"))
. S ERR=ERR+$G(COUNT(MON,"ERR"))
S RTN="1~DSC"_$G(DSC)_"~"_"COD"_$G(COD)_"~"_"UNC"_$G(UNC)_"~"_"EXP"_$G(EXP)_"~"_"ERR"_$G(ERR)
K ^TMP("BDGICS1A",$J)
K ^TMP("BDGICS1",$J)
Q RTN
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgGetIncompE3DDD
AgGetIncompleteChartStatisticsSumDefaultData
^BMW.BSF.SP.AgGetIncompE3DDD
^BMW.BSF.SP.AgGetIncompE3DDI
^BMW.BSF.SP.AgGetIncompE3DDS
100000
listnode
%%CLASSNAME
%RegisteredObject
64979,51151.665307
63439,41941.584518
3.0.0
%SQLQuery
Patient:%Text,Facility:%Text,AdmissionId:%Text,UserId:%Text
AG_GetPatientASheetReportQ
1
1
Patient:%Text,ITOR:%Integer,Facility:%Text,AdmissionId:%Text,UserId:%Text
0
%Text
AG_GetPatientASheetReportM
1
0 Q ""
I $G(Facility)'>0 Q ""
I $G(AdmissionId)'>0 Q ""
I $G(UserId)'>0 Q ""
I ITOR=0 D
. K ^TMP("ASHEETRPT",$J)
. S DGPMT=1
. S DGPMCA=AdmissionId
. S DFN=Patient
. S BDGFIN=1
. S DGQUIET=1
. S BDGCOP=1
. S BDGHALF=2
. S BDGFRM=1
. D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,Facility)
. D ..Print()
. S RTN(0)=$O(^TMP("ASHEETRPT",$J,""),-1)
. S INDX=$O(^TMP("ASHEETRPT",$J,""))
. I +INDX>0 F D Q:(+INDX'>0)
. . S RTN(INDX)=$G(^TMP("ASHEETRPT",$J,INDX))
. . S INDX=$O(^TMP("ASHEETRPT",$J,INDX))
. K ^TMP("ASHEETRPT",$J)
Q $G(RTN(ITOR))
]]>
1
0
%RegisteredObject
65463,57108.987883
63340,58552.600207
3.0.0
%SQLQuery
Patient:%Text,Facility:%Text,HDR:%Text
AG_GetPatientFaceSheetQ
1
1
Patient:%Text,K:%Integer,Facility:%Text,HDR:%Text
0
%Text
AG_GetPatientFaceSheetM
1
0 Q ""
I $G(Facility)'>0 Q ""
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,Facility)
I $G(DUZ)'>0 Q ""
S DFN=$G(Patient)
S DA=DFN
S DUZ(2)=$G(Facility)
S U="^"
S IOSL="24"
S IOST="C"
S IOST(0)=9
;S IOM=110
D ..Start()
S INDX=$O(^TMP($J,"FSRPT",""))
I +INDX>0 F D Q:(+INDX'>0)
. S RTN(INDX)=$G(^TMP($J,"FSRPT",INDX))
. S INDX=$O(^TMP($J,"FSRPT",INDX))
Q RTN(K)
]]>
1
Patient:%Text,K:%Integer,Facility:%Text,HDR:%Text
0
%Text
AG_GetPatientFaceSheetCountM
1
0 Q ""
I $G(Facility)'>0 Q ""
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,Facility)
I $G(DUZ)'>0 Q ""
S DFN=$G(Patient)
S DA=DFN
S DUZ(2)=$G(Facility)
S U="^"
S IOSL="24"
S IOST="C"
S IOST(0)=9
;S IOM=110
D ..Start()
S INDX=$O(^TMP($J,"FSRPT",""))
I +INDX>0 F D Q:(+INDX'>0)
. S RTN(INDX)=$G(^TMP($J,"FSRPT",INDX))
. S INDX=$O(^TMP($J,"FSRPT",INDX))
. I +INDX>0 S INDEX=INDX
Q $G(INDEX)
]]>
1
0
%Text
1
0
%Text
1:"MULTIPLE RACES SPECIFIED",1:$E($P(AGRACE,"^",2),1,38))
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="RACE: "_$S(+AGRACE>1:"MULTIPLE RACES SPECIFIED",1:$E($P(AGRACE,"^",2),1,38))
.S FLG="1"
.;S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$$GET1^DID(2,.06,"","LABEL")_": "_$E($$GET1^DIQ(2,DFN,.06),1,38) ;AG*7.1*7 - Truncated field length
;BEGIN NEW CODE AG*7.1*2 ETHNICITY
I $$GET1^DIQ(9009061,DUZ(2)_",",501,"I") D
.;S ETHNIC=$O(^DPT(DFN,.06,0))
.;I ETHNIC S ETHNIC=$$GET1^DIQ(10.2,ETHNIC,.01)
.;I FLG="1" S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_..PutSpace(IOM-$L(^TMP($J,"FSRPT",COUNT)_"ETHNICITY: "_$G(ETHNIC)))_"ETHNICITY: "_$G(ETHNIC)
.;I FLG="0" S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="ETHNICITY: "_$G(ETHNIC)
.N AGETHN S AGETHN=$$ETHN^AGUTL(DFN)
.I FLG="1" S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_..PutSpace(IOM-$L(^TMP($J,"FSRPT",COUNT)_"ETHNICITY: "_$S(+AGETHN>1:"MULTIPLE ETHNICITIES",1:$E($P(AGETHN,"^",2),1,23))))_"ETHNICITY: "_$S(+AGETHN>1:"MULTIPLE ETHNICITIES",1:$E($P(AGETHN,"^",2),1,23))
.I FLG="0" S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="ETHNICITY: "_$S(+AGETHN>1:"MULTIPLE ETHNICITIES",1:$E($P(AGETHN,"^",2),1,23))
;END NEW CODE
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PREFERRED LANGUAGE: "_$E($P($P($$CLANG^AGED10B(DFN),U,4),":",2),1,25)_..PutSpace(IOM-$L("PREFERRED LANGUAGE: "_$E($P($P($$CLANG^AGED10B(DFN),U,4),":",2),1,25)_"PREFERRED METHOD: "_$$GET1^DIQ(9000001,DFN,4002)))_"PREFERRED METHOD: "_$$GET1^DIQ(9000001,DFN,4002) ;AG*7.1*9 - Added Preferred Method
;NEW CODE FOR EMAIL ADDRESSES AG*7.1*4
S:$$GET1^DIQ(9000001,DFN_",",1802)'="" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="CURRENT EMAIL ADDRESS: "_$$GET1^DIQ(9000001,DFN_",",1802)
;END NEW CODE FOR EMAIL ADDRESS
I AGOPT(23)="Y" S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$$GET1^DID(9000001,.35,"","LABEL")_": "_$$GET1^DIQ(9000001,DFN,.35)
I AGOPT(23)="Y" S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_..PutSpace(IOM-$L(^TMP($J,"FSRPT",COUNT)_$$GET1^DID(9000001,.36,"","LABEL")_": "_$$GET1^DIQ(9000001,DFN,.36)_" / "_$$GET1^DIQ(9000001,DFN_",",8701,"E")))_$$GET1^DID(9000001,.36,"","LABEL")_": "_$$GET1^DIQ(9000001,DFN,.36)_" / "_$$GET1^DIQ(9000001,DFN_",",8701,"E")
I '$D(^AUPNNPP("B",DFN)) D
. S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("-")
. S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="*** NO NOTICE OF PRIVACY PRACTICES DATA ON THIS PATIENT ***"
I $D(^AUPNNPP("B",DFN)) D
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("-") ;,COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=""
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="NOTICE OF PRIVACY PRACTICES REC'D BY PATIENT :"_" "_$$GET1^DIQ(9000038,DFN,.02)_" DATE :"_" "_$$GET1^DIQ(9000038,DFN,.03)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="ACKNOWLEDGEMENT OF RECEIPT OF NPP SIGNED :"_" "_$$GET1^DIQ(9000038,DFN,.04)
.I $$GET1^DIQ(9000038,DFN,.05)'="" D
..S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="REASON :"_" "_$E($$GET1^DIQ(9000038,DFN,.05),1,60)
..I $L($$GET1^DIQ(9000038,DFN,.05))>60 S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="" S ^TMP($J,"FSRPT",COUNT)=" "_$E($$GET1^DIQ(9000038,DFN,.05),61,80)
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("-")
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="TRIBE: " S DR=1108,DIC=9000001 D ^AGDICLK I $D(AG("LKPRINT")),AG("LKPRINT")]"" S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_AG("LKPRINT") I AGOPT(14)="Y",$D(^AUPNPAT(DFN,11)) S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" ("_$S($P(^(11),U,19)="Y":"Verified",1:"Unverified")_")"
S PUTSPACE=$L(^TMP($J,"FSRPT",COUNT)_"INDIAN QUANTUM: "_$G(AG("LKPRINT")))
I PUTSPACE>IOM S PUTSPACE=2
S DR=1110 D ^AGDICLK S:$D(AG("LKPRINT")) ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_..PutSpace(IOM-PUTSPACE)_"INDIAN QUANTUM: "_AG("LKPRINT")
K AGQUIT
D ..BmwAgFs1()
D ..BmwAgFs4()
D ..BmwAgFs5()
D ..BmwAgFs6()
D ..BmwAgFs7()
D ..BmwAgFs9()
D ..BmwAgFs11()
;N I F I=1,4,5,6,7,9,11 D Q:$D(AGQUIT)
;.I $D(AGQUIT) Q
;.I $Y+6>IOSL D HDR
;.I $D(AGQUIT) Q
;.D @("^AGFACE"_I)
;I $D(AGQUIT) K AGQUIT Q
;Write line of "-", Confidential Pat Info, If CPU do end of page
K AG,AGIO,AGTIME,G,AGL,AGLAST,AG("LKERR"),AG("LKDATA"),AG("LKPRINT"),AGPCC,X,Y,Z
Q
]]>
1
0
IOM S PUTSPACE=2
D ..BmwAgFs1L2()
]]>
1
0
1
0
1
0
DT,(AGBDT'="") Q
..I AGOPT(16)="Y",AGBDT
1
0
1
0
IOSL D HDR^AGFACE Q:$D(AGQUIT)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PRIVATE INSURANCE:"
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="INS. COMPANY"_" "_"NUMBER"_" "_"ELIG. DATE"_" "_"ELIG. END DATE"
.S DIC=9000006.11,DR=.01,DA=DFN S AG=0 F S AG=$O(^AUPNPRVT(DFN,11,AG)) Q:'AG S AGL=$G(^AUPNPRVT(DFN,11,AG,0)) D PVT
Q:$D(AGQUIT)
I $D(^DPT(DFN,"VET")),^("VET")="Y" D VET
S DIC=9000001.41,DR=.01,DA=DFN,AG(1)=""
N I S I=0,AG(1)="" F S I=$O(^AUPNPAT(DFN,41,I)) Q:'I D Q:$D(AGQUIT)
.Q:I=DUZ(2)
.;I $Y+6>IOSL D HDR^AGFACE Q:$D(AGQUIT)
.Q:$D(AGQUIT)
.S:$D(AG(1)) COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S:$D(AG(1)) COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="THE PATIENT IS ALSO REGISTERED AT:"
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$P($G(^DIC(4,I,0)),U)_..PutSpace(IOM-$L($P($G(^DIC(4,I,0)),U)_"CHART #: "_$P($G(^AUPNPAT(DFN,41,I,0)),U,2)))_"CHART #: "_$P($G(^AUPNPAT(DFN,41,I,0)),U,2)
.K AG(1)
Q:$D(AGQUIT)
EMP ;PATIENT'S EMPLOYER
S AGEMPIEN=$P($G(^AUPNPAT(DFN,0)),U,19) I AGEMPIEN]"" D
.;I $Y+6>IOSL D HDR^AGFACE Q:$D(AGQUIT)
.S AG(0)=$G(^AUTNEMPL(AGEMPIEN,0)) I AG(0)="" Q
.N I F I=1:1:6 S AG(I)=$P(AG(0),U,I)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PATIENT'S EMPLOYER: "_AG(1)
.F I=2,3 S:AG(I)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_AG(I)
.S:AG(4)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_", "_$P($G(^DIC(5,+AG(4),0)),U,2)
.S:AG(5)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" "_AG(5)
.S:AG(6)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PHONE: "_AG(6)
Q:$D(AGQUIT)
K AGEMPIEN
SPEMP ;SPOUSE'S EMPLOYER
S AGEMPIEN=$P($G(^AUPNPAT(DFN,0)),U,22) I AGEMPIEN]"" D
.;I $Y+6>IOSL D HDR^AGFACE Q:$D(AGQUIT)
.S AG(0)=$G(^AUTNEMPL(AGEMPIEN,0)) I AG(0)="" Q
.N I F I=1:1:6 S AG(I)=$P(AG(0),U,I)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("-")
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="SPOUSE'S EMPLOYER: "_AG(1)
.F I=2,3 S:AG(I)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_AG(I)
.S:AG(4)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_", "_$P($G(^DIC(5,+AG(4),0)),U,2)
.S:AG(5)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" "_AG(5)
.S:AG(6)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_"PHONE: "_AG(6)
Q:$D(AGQUIT)
K AGEMPIEN
ELIG ;ELIGIBILITY FOR CARE
K AG("DRENT") S DIC=9000001,DA=DFN,DR=$S(AGOPT(14)="Y":1124,1:1112) D ^AGDICLK I '$D(AG("LKERR")) S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("-") K ^TMP($J,"W") S X=" *** ELIGIBILITY FOR CARE: "_AG("LKPRINT")_" ***",COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(X) ;,DIWL=5,DIWR=75,DIWF="W" D ^DIWP,^DIWW
K DIWF,DIWL,DIWR
Q
PVT ;I $P(AGL,U)]"",$D(^AUTNINS($P(AGL,U),0)) Q:(($P(AGL,U,7)]"")&(+$P(AGL,U,7)IOSL D HDR^AGFACE Q:$D(AGQUIT)
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("-")
K ^UTILITY("DIQ1",$J)
K DIC,DIE,DIR,DIQ,DR
S DIC=2,DA=DFN,AGSCRN=$P($T(@1),";;",2)
F AG=2,3,4,6,7 D
.S X=$P(AGSCRN,";",AG),DR=$P(X,U,4)
.;FACESHEET VSTS#57676 Reported Item Fix S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$P(X,U,2)_$P(^DD(2,DR,0),U)_" : "
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$P(^DD(2,DR,0),U)_" : "
.D EN^DIQ1
.S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_$G(^UTILITY("DIQ1",$J,2,DA,DR))
.K ^UTILITY("DIQ1",$J)
K ^UTILITY("DIQ1",$J),DR,AGSCRN,X
K DIC,DIE,DIR,DIQ,DR
Q
1 ;;^20^^1901;^13^^.325;^9^^.326;^4^^.327;^8^^.32101;^16^^.301;^22^^.313
]]>
1
0
1
0
($E($G(AGOPT(21)),2,4))) D
. S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_AG_"). "_$G(^AUPNPAT(DFN,13,AG,0))
Q
ALL ;THIS CODE PRINTS ALL LINES
F AG=0:0 S AG=$O(^AUPNPAT(DFN,13,AG)) Q:'AG S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_AG_"). "_$G(^AUPNPAT(DFN,13,AG,0))
Q
;
;BEGIN NEW CODE FOR AG*7.1*4 HISTORICAL ADDRESSES
ADDRHIST ;EP - PRINT PREVIOUS MAIL ADRESSES
;BEGIN NEW CODE FOR HISTORICAL MAIL ADDRESSES
N HISTLIM,HISTREC,IENS
S HISTLIM=$$GET1^DIQ(9009061,DUZ(2)_",",601,"I")
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("=")
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="HISTORICAL ADDRESS(S):"
S HISTREC=0
F CNT=1:1 S HISTREC=$O(^AUPNPAT(DFN,83,HISTREC)) Q:'HISTREC!(CNT>HISTLIM) D
.S IENS=HISTREC_","_DFN_","
.S:$$GET1^DIQ(9000001.83,IENS,.02)'="" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$$GET1^DIQ(9000001.83,IENS,.02)
.S:$$GET1^DIQ(9000001.83,IENS,.03)'="" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$$GET1^DIQ(9000001.83,IENS,.03)
.S:$$GET1^DIQ(9000001.83,IENS,.04)'="" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$$GET1^DIQ(9000001.83,IENS,.04)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$$GET1^DIQ(9000001.83,IENS,.05)_", "
.S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_$$GET1^DIQ(9000001.83,IENS,.06)
.S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" "_$$GET1^DIQ(9000001.83,IENS,.07)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$$GET1^DIQ(9000001.83,IENS,.08)
;END NEW CODE
Q
EMALHIST ;EP - PRINT HISTORICAL EMAIL ADDRESSES
N HISTLIM,HISTREC,IENS
S HISTLIM=$$GET1^DIQ(9009061,DUZ(2)_",",601,"I")
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("=")
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="HISTORICAL EMAIL ADDRESS(S):"
S HISTREC=0
F CNT=1:1 S HISTREC=$O(^AUPNPAT(DFN,82,HISTREC)) Q:'HISTREC!(CNT>HISTLIM) D
.S IENS=HISTREC_","_DFN_","
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$$GET1^DIQ(9000001.82,IENS,.02)
Q
]]>
1
NO:%String=""
0
%Text
0 Q " "
F D Q:(+IND>NO)
.I IND>4 S STR=STR_" "
.S IND=IND+1
Q STR
]]>
1
0
1
0
1 Q:$D(AGVQQFS) D RTRN^AG I 'Y S AGQUIT="" D END1 Q
;S:AG("PAGE")>1 ^TMP($J,"FSRPT",COUNT)=$$S^AGVDF("IOF")
;D CPI^AG
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=..PutSpace((IOM\2+21)-($L("*** CONFIDENTIAL PATIENT INFORMATION ***")))_"*** CONFIDENTIAL PATIENT INFORMATION ***"
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=..PutSpace((IOM\2)-($L(AG("LOC"))\2))_AG("LOC"),COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=..PutSpace((IOM\2+15)-($L("AMBULATORY CARE RECORD BRIEF")))_"AMBULATORY CARE RECORD BRIEF",COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=..PutSpace((IOM\2+15)-($L("AMBULATORY CARE RECORD BRIEF")))_"----------------------------",COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AGTIME ;_" "_"Page: " ;_AG("PAGE")
;S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=""
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("=")
;S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=""
I '$D(RHIFLAG) S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PATIENT: "_$$GETPREF^AUPNSOGI(DFN,"E") S:$D(AG("LKPRINT")) ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_AG("LKPRINT") I $D(^DPT(DFN,"VET")),^("VET")="Y" S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" (VETERAN)"
I $D(RHIFLAG) D
. I RHIFLAG="A" S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PATIENT: "_$$GETPREF^AUPNSOGI(DFN,"E") S:$D(AG("LKPRINT")) ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_$$S^AGVDF("RVN")_AG("LKPRINT")_$$S^AGVDF("BLN")_" (RHI)"_$$S^AGVDF("BLF")_$$S^AGVDF("RVF")
. E S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PATIENT: "_$$GETPREF^AUPNSOGI(DFN,"E") S:$D(AG("LKPRINT")) ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_AG("LKPRINT") I $D(^DPT(DFN,"VET")),^("VET")="Y" S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" (VETERAN)"
S TXT=$G(^TMP($J,"FSRPT",COUNT)) S:$D(^AUPNPAT(DFN,41,DUZ(2),0)) ^TMP($J,"FSRPT",COUNT)=$G(TXT)_..PutSpace(IOM-$L($G(TXT)_"CHART #: "_$P(^(0),U,2)))_"CHART #: "_$P(^(0),U,2)
;S (TXT,^TMP($J,"FSRPT",COUNT))=^TMP($J,"FSRPT",COUNT)_" "_"CHART #: " S:$D(^AUPNPAT(DFN,41,DUZ(2),0)) ^TMP($J,"FSRPT",COUNT)=$G(TXT)_$P(^(0),U,2)
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=AG("=") ;,COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=""
Q
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgGetPatien9AFFD
AgGetPatientFaceSheetDefaultData
^BMW.BSF.SP.AgGetPatien9AFFD
^BMW.BSF.SP.AgGetPatien9AFFI
^BMW.BSF.SP.AgGetPatien9AFFS
100000
%%CLASSNAME
%RegisteredObject
64721,52304.416207
63340,57173.944403
3.0.5
%SQLQuery
PatientId:%BigInt,Format:%String
AG_GetPatientMbiQ
1
select (AG_GetPatientMbiM(:PatientId,:Format)) As Result
1
PatientId:%BigInt,Format:%String
0
%Text
AG_GetPatientMbiM
1
0 Q "-1^UserIen - DUZ value not preset"
If $G(DUZ(2))'>0 Q "-1^FacilityId - DUZ(2) value not preset"
;Function: Retrieve an MBI for a patient on the specified date of service
; Call: $$GETMBI^AUPNMBI(PAT_IEN,DATE,FMT)
; FORMAT:
; 0/default: MBI value only return requested
; 1: All fields, internal value return requested
; 2(?): All fields, external value return requested
;
;Returned value:
; Successful (Dependent upon FORMAT specification):
; 0/default: MBI
; 1: MBI^EFF_DATE^SOURCE
; 2(?): MBI^EFF_DATE_ext^SOURCE_ext
; Unsuccessful: 0 (zero)
s RS=$$GETMBI^AUPNMBI(PatientId,$$DT^XLFDT,Format)
Q RS
]]>
1
module:%Text,PatId:%Text,Mode:%Text,location:%Text,ActionTime:%Text
0
%Text
0 s ^BmwDebug($P(Date," "),$P($E(Date,10,25),":"),$P($E(Date,10,25),":",2),$P($E(Date,10,25),":",3),$J,$G(module),$G(PatId),$G(location),$G(Mode))="UserDuz: "_$G(DUZ)_" ^ActionTime: "_$G(ActionTime)_"^ Facility: "_$G(DUZ(2))
I +$G(PatId)<1 s ^BmwDebug($P(Date," "),$P($E(Date,10,25),":"),$P($E(Date,10,25),":",2),$P($E(Date,10,25),":",3),$J,$G(module),$G(location),$G(Mode))="UserDuz: "_$G(DUZ)_" ^ActionTime: "_$G(ActionTime)_"^ Facility: "_$G(DUZ(2))
Q
]]>
%RegisteredObject
63530,48405.041644
63439,41941.584518
3.0.0
%SQLQuery
Patient:%Text,Facility:%Text,ApptDate:%Text
AG_GetPatientRoutingSlipQ
1
SELECT (AG_GetPatientRoutingSlipM(:Patient,0,:Facility,:ApptDate)) As Data
1
Patient:%Text,NEXT:%Integer,Facility:%Text,ApptDate:%Text
0
%Text
AG_GetPatientRoutingSlipM
1
0 Q ""
I $G(Facility)'>0 Q ""
I $G(ApptDate)="" Q ""
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,Facility)
S DFN=Patient
S DGQUIET="1"
;S DT=$$X2FM^ORWCV($G(ApptDate))
K BMWOUT,BMWERR,SCR
N SCR,INDEX,IEN,PRINTER
S SCR="I $P($G(^(0)),""^"",7)="_Facility
D LIST^DIC(40.8,"","@;","","*","","","",SCR,"","BMWOUT","BMWERR")
S INDEX=$O(BMWOUT("DILIST",2,""))
I +INDEX>0 S IEN=$G(BMWOUT("DILIST",2,INDEX))
;S FIEN=$$FIND1^DIC(40.8,"","",,"",SCR,"ERR")
I +IEN>0 S PRINTER=$$GET1^DIQ(40.8,IEN,9)
I $G(PRINTER)="" Q "Default printer is not configured."
D WISD^BSDROUT(+$G(DFN),DT,"RS",$G(PRINTER),"1")
Q "Routing Slip has been sent to the default printer."
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgGetPatienA084D
AgGetPatientRoutingSlipDefaultData
^BMW.BSF.SP.AgGetPatienA084D
^BMW.BSF.SP.AgGetPatienA084I
^BMW.BSF.SP.AgGetPatienA084S
100000
listnode
%%CLASSNAME
%RegisteredObject
63606,52708.494033
63439,41941.584518
3.0.0
%SQLQuery
Patient:%Text,Facility:%Text,ApptDate:%Text,UserId:%Text
AG_GetPatientRoutingSlipReportQ
1
1
Patient:%Text,ITOR:%Integer,Facility:%Text,ApptDate:%Text,UserId:%Text
0
%Text
AG_GetPatientRoutingSlipReportM
1
0 Q ""
I $G(Facility)'>0 Q ""
I $G(ApptDate)="" Q ""
I $G(UserId)'>0 Q ""
I ITOR=0 D
. D ..End()
. K ^TMP("SDRS",$J)
. D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,Facility)
. S SDATE=$$X2FM^ORWCV($G(ApptDate))
. S SDX="ADD"
. S DFN=Patient
. S BSDMODE="RS"
. S IOSL="24"
. S ORDER=""
. S SDREP="0"
. D ..RoutingSlip(Patient,SDATE,BSDMODE,"fdghgfh","1")
Q $G(^TMP("SDRS",$J,ITOR))
Q
I $G(Patient)'>0 Q ""
I $G(Facility)'>0 Q ""
I $G(ApptDate)="" Q ""
I $G(UserId)'>0 Q ""
K ^TMP("RSRPT",$J)
K SDCNT
K %,%DT,%I,ADDR,ALL,APDATE,DFN,DGMT,DIC,DIV,G,GDATE,H,I,J,K,L,LL,M,NAME,NDATE,ORD,ORDER,P,POP,PRDATE
K SC,SDA,SDATE,SDCNT,SDI,SDI1,SDIQ,SDM,SDREP,SDSP,SDSTART,SDVA,SDX,SDX1,SSN,SZ,TDO,X,X1,Y,ZIP,ZX,VAR,C,V,SDEF,A,SD,SCN,SDTD,SDSCCOND
K SDPARMS
I ITOR=0 D
. D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,Facility)
. S SDATE=$$X2FM^ORWCV($G(ApptDate))
. S SDX="ADD"
. S DFN=Patient
. S BSDMODE="RS"
. S IOSL="24"
. S ORDER=""
. S SDREP="0"
. D ..Wisd(Patient,SDATE,BSDMODE,"fdghgfh","1")
. S RTN(0)=$O(^TMP("RSRPT",$J,""),-1)
. S INDX=$O(^TMP("RSRPT",$J,""))
. I +INDX>0 F D Q:(+INDX'>0)
. . S RTN(INDX)=$G(^TMP("RSRPT",$J,INDX))
. . S INDX=$O(^TMP("RSRPT",$J,INDX))
. K ^TMP("RSRPT",$J)
Q $G(RTN(ITOR))
]]>
1
DFN:%String,SDATE:%String,BSDMODE:%String,BSDDEV:%String,BSDNHS:%String
0
0 S DFN=+$P($G(^TMP("SDAMIDX",$J,+Y)),U,2)
I +DFN=0 Q
;***** END 10/21/04
;
NEW DGPGM,VAR,VAR1,DEV,POP
S SDX="ALL",ORDER="",SDREP=0,SDSTART="",DIV=$$DIV^BSDU
;
;IHS/ITSC/LJF 6/17/2005 PATCH 1003 adde BSDNHS to variable list
;S VAR="DIV^ORDER^SDX^SDATE^DFN^SDREP^SDSTART^BSDMODE"
;S VAR1="DIV;ORDER;SDX;SDATE;DFN;SDREP;SDSTART;BSDMODE"
S VAR="DIV^ORDER^SDX^SDATE^DFN^SDREP^SDSTART^BSDMODE^BSDNHS"
S VAR1="DIV;ORDER;SDX;SDATE;DFN;SDREP;SDSTART;BSDMODE;BSDNHS"
;end of these PATCH 1003 changes
;
;S DGPGM="SINGLE^BSDROUT"
;I $G(BSDDEV)]"",$G(DGQUIET) D ZIS^BDGF("F","SINGLE^BSDROUT","ROUTING SLIP",VAR1,BSDDEV) Q
;S DEV=$S(BSDMODE="CR":".05",1:".11") ;default printer fields
;S BDGDEV=$$GET1^DIQ(9009020.2,$$DIV^BSDU,DEV)
;I BDGDEV="" K BDGDEV I $G(DGQUIET) Q
;S %ZIS("A")="FILE ROOM PRINTER: " D ZIS^DGUTQ I POP D END^SDROUT1 Q
D ..Single()
Q
]]>
1
0
SDATE) D
. S CLN=+$G(^DPT(DFN,"S",BSDT,0)) Q:'CLN ;clinic ien
. S IEN=0 F S IEN=$O(^SC(CLN,"S",BSDT,1,IEN)) Q:'IEN Q:$P($G(^SC(CLN,"S",BSDT,1,IEN,0)),U)=DFN
. Q:'IEN ;appt ien in ^sc
. D FIND^BSDROUT0(CLN,BSDT,IEN,ORDER,BSDMODE)
I $D(BSDMOD2) S BSDMODE=BSDMOD2
;
; find all chart requests for patient
S CLN=0 F S CLN=$O(^SC("AIHSCR",DFN,CLN)) Q:'CLN D
. S BSDT=(SDATE\1)-.0001
. F S BSDT=$O(^SC("AIHSCR",DFN,CLN,BSDT)) Q:'BSDT D
.. D CRSET^BSDROUT2(CLN,BSDT,DFN,ORDER)
;
; if no future appts, set something so RS will print
I '$D(^TMP("SDRS",$J)) S ^TMP("SDRS",$J,$$GET1^DIQ(2,DFN,.01),$$TERM^BSDROUT(DFN),DFN)=""
;
D ..Print(ORDER,SDATE)
Q
]]>
1
0
1
0
1 END1
;W:'$G(SDPARMS("DO NOT CLOSE")) !
K %,%DT,%I,ADDR,ALL,APDATE,DFN,DGMT,DIC,DIV,G,GDATE,H,I,J,K,L,LL,M,NAME,NDATE,ORD,ORDER,P,POP,PRDATE
K SC,SDA,SDATE,SDCNT,SDI,SDI1,SDIQ,SDM,SDREP,SDSP,SDSTART,SDVA,SDX,SDX1,SSN,SZ,TDO,X,X1,Y,ZIP,ZX,VAR,C,V,SDEF,A,SD,SCN,SDTD,SDSCCOND
D:'$G(SDPARMS("DO NOT CLOSE")) CLOSE^DGUTQ
Q
]]>
1
DFN:%String,SDATE:%String,BSDMODE:%String,BSDDEV:%String,BSDNHS:%String
0
0 S DFN=+$P($G(^TMP("SDAMIDX",$J,+Y)),U,2)
;I +DFN=0 Q
;***** END 10/21/04
;
;NEW DGPGM,VAR,VAR1,DEV,POP
;S SDX="ALL",ORDER="",SDREP=0,SDSTART="",DIV=$$DIV^BSDU
;k ^SPOOL
;S RTNN="SINGLE^BSDROUT"
;S ID=2
;O 2
;U 2
;W "123"
;D @RTNN
;C 2
;ZWRITE ^SPOOL
N myStream,INDX,txt
S myStream = ##class(%Stream.GlobalBinary).%New()
U $io::("^"_$ZNAME)
D ##class(%Device).ReDirectIO(1)
D ..PatientRoutingSlipSingleM()
D ##class(%Device).ReDirectIO(0)
D myStream.WriteLine("")
D myStream.WriteLine("ENDOFFILE")
D myStream.Rewind()
K ^TMP("RSRPT",$J)
S INDX=0
WHILE 1{
S txt=myStream.ReadLine()
I txt["ENDOFFILE" Q
;I txt["DATE"&txt["TIME"&txt["CLINIC" S txt="DATE TIMEEEE CLINIC LOCATION"
S INDX=INDX+1
S ^TMP("RSRPT",$J,INDX)=txt
}
Q
//Labels that allow for IO redirection
//Read Character - we don't care about reading
rchr(c) quit
//Read a string - we don't care about reading
rstr(sz,to) quit
//Write a character - call the output label
wchr(s) do output($char(s)) quit
//Write a form feed - call the output label
wff() do output($char(12)) quit
//Write a newline - call the output label
wnl() do output($char(13,10)) quit
//Write a string - call the output label
wstr(s) do output(s) quit
//Write a tab - call the output label
wtab(s) do output($char(9)) quit
//Output label - this is where you would handle what you actually want to do.
// in our case, we want to write to myStream
output(s) do myStream.Write(s) quit
Q
]]>
1
0
%Text
SDATE) D
. S CLN=+$G(^DPT(DFN,"S",BSDT,0)) Q:'CLN ;clinic ien
. S IEN=0 F S IEN=$O(^SC(CLN,"S",BSDT,1,IEN)) Q:'IEN Q:$P($G(^SC(CLN,"S",BSDT,1,IEN,0)),U)=DFN
. Q:'IEN ;appt ien in ^sc
. D FIND^BSDROUT0(CLN,BSDT,IEN,ORDER,BSDMODE)
I $D(BSDMOD2) S BSDMODE=BSDMOD2
;
; find all chart requests for patient
S CLN=0 F S CLN=$O(^SC("AIHSCR",DFN,CLN)) Q:'CLN D
. S BSDT=(SDATE\1)-.0001
. F S BSDT=$O(^SC("AIHSCR",DFN,CLN,BSDT)) Q:'BSDT D
.. D CRSET^BSDROUT2(CLN,BSDT,DFN,ORDER)
;
; if no future appts, set something so RS will print
I '$D(^TMP("SDRS",$J)) S ^TMP("SDRS",$J,$$GET1^DIQ(2,DFN,.01),$$TERM^BSDROUT(DFN),DFN)=""
;
D PRINT^BSDROUT1(ORDER,SDATE)
]]>
%RegisteredObject
65189,46738.253268
63340,58468.112044
3.0.0
%SQLQuery
Patient:%Text,HST:%Text,Facility:%Text,UserId:%Text
AG_GetPatientWellnessHandoutQ
1
1
Patient:%Text,HST:%Text,K:%Integer,Facility:%Text,UserId:%Text
0
%Text
AG_GetPatientWellnessHandoutM
1
0 Q ""
I +$G(Facility)'>0 Q ""
I +$G(UserId)'>0 Q ""
I (($G(DUZ(2))'=Facility)!(+$G(DUZ)'=UserId)) D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,Facility)
I $G(HST)="" S HST=$$GET1^DIQ(9001000,Facility_",",.16,"I")
I $G(HST)="" Q ""
I $G(K)=0 D
. K ^TMP($J,"APCHPWH")
. S DFN=$G(Patient)
. s UserTimeOut=+DTIME,DTIME=.0001
. D ^%ZIS ;"|TNT|Cisco04394:58997|"_$J
. s DTIME=+UserTimeOut
. D EP^APCHPWH1(Patient,HST,1)
. S K=0
Q $G(^TMP($J,"APCHPWH",$G(K)))
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgGetPatienF9B6D
AgGetPatientWellnessHandoutDefaultData
^BMW.BSF.SP.AgGetPatienF9B6D
^BMW.BSF.SP.AgGetPatienF9B6I
^BMW.BSF.SP.AgGetPatienF9B6S
100000
%%CLASSNAME
%RegisteredObject
63525,40362.566883
63340,56643.320849
3.0.0
%SQLQuery
PatientId:%Integer
AG_PatientRegisterEventQ
1
select (AG_PatientRegisterEventM(:PatientId)) As Result
1
PatientId:%Integer
0
%Text
AG_PatientRegisterEventM
1
%Library.CacheStorage
^BMW.BSF.SP.AgPatientRe50EFD
AgPatientRegisterEventDefaultData
^BMW.BSF.SP.AgPatientRe50EFD
^BMW.BSF.SP.AgPatientRe50EFI
^BMW.BSF.SP.AgPatientRe50EFS
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,40335.063889
63340,56292.945126
3.0.0
%SQLQuery
PatientId:%Integer
AG_PatientUpdateEventQ
1
select (AG_PatientUpdateEventM(:PatientId)) As Result
1
PatientId:%Integer
0
%Text
AG_PatientUpdateEventM
1
%Library.CacheStorage
^BMW.BSF.SP.AgPatientUpE225D
AgPatientUpdateEventDefaultData
^BMW.BSF.SP.AgPatientUpE225D
^BMW.BSF.SP.AgPatientUpE225I
^BMW.BSF.SP.AgPatientUpE225S
100000
listnode
%%CLASSNAME
%RegisteredObject
65484,47610.47818
63340,55839.406676
3.0.0
%SQLQuery
Name:%Text="",SSN:%Text="",DOB:%Text="",Gender:%Text="",EligibilityStatus:%Text="",HRN:%Text="",PhoneNumber:%Text="",FacilityId:%Integer,Take:%Integer,Skip:%Integer,InOrOutPatient:%Integer
AG_SearchPatientQ
1
0
then 1 else 0 end) as HAS_FLAGS,
(case when (Select Count(1) From BMW.DG_SECURITY_LOG Where patient_name=va.ien AND SECURITY_LEVEL = 'SENSITIVE')
> 0 then 1 else 0 end) as SECURITY_LEVEL,
(CASE WHEN (select count(1) from BMW.restricted_health_information rhi where Patient=va.ien and STATUS_CODE = 'APPROVED')
>0 then 1 else 0 END) AS RHI,
( select meaning from BMW.PATIENT_SOC_ELIGIBILITY_STATUS where CODE=ihs.ELIGIBILITY_STATUS) AS ELIGIBILITY_STATUS,
VA.SEX AS SEX_ID , ihs.sex SEX,va.DATE_OF_BIRTH, va.DATE_OF_DEATH,va.SOCIAL_SECURITY_NUMBER, ihs.PRINTABLE_SSN, ihs.DATE_OF_LAST_REG__UPDATE,
ihs.USERLAST_UPDATE_NAME as LAST_UPDATED_BY, ihs.SSN_VERIFICATION_STATUS->Description AS SSN_VERIFICATION_STATUS, ihs.PRIMARY_CARE_PROVIDER_NAME AS PRIMARY_CARE_PROVIDER,
(CASE WHEN va.VETERAN_YN='YES' THEN '1' WHEN va.VETERAN_YN='NO' THEN '0' ELSE NULL END) as IS_VETERAN ,
va.PHONE_NUMBER_RESIDENCE as RESIDENCE_PHONE, va.CONDITION, va.Ward_Location,
va.Current_Admission from BMW.patient ihs,BMW.va_patient va where va.rowid= ihs.name AND va.ien %INLIST
(AG_GetPatientSearchIensM(:Name,:SSN,:DOB,:Gender,:EligibilityStatus,:HRN,:PhoneNumber,:FacilityId,:Take,:Skip,:InOrOutPatient))
order by NAME]]>
1
Name:%Text,SSN:%Text,DOB:%Text,Gender:%Text,EligibilityStatus:%Text,HRN:%Text,PhoneNumber:%Text,FacilityId:%Integer,Take:%Integer,Skip:%Integer,InOrOutPatient:%Integer
%List
AG_GetPatientSearchIensM
1
0)) S RS=RS_" AND IEN = (SELECT PATIENT from bmw.Health_Record_No__9000001c9000001_41 where HEALTH_RECORD_FAC="_FacilityId_" AND HEALTH_RECORD_NO_='"_HRN_"')"
. I $G(PhoneNumber)'="" S RS=RS_" AND Phone_Number_Residence='"_PhoneNumber_"'"
. I $G(InOrOutPatient)=1 S RS=RS_" AND Current_Admission_DateTime is not null AND Current_Admission->Ward_Location->Division->Institution_file_pointer="_FacilityId ;; fetch only inpatients
. I $G(InOrOutPatient)=2 S RS=RS_" AND Current_Admission_DateTime is null" ;; fetch only out patients
. S myquery=myquery_RS
S myquery=myquery_" Order by NAME"
SET rset=##class(%ScrollableResultSet).%New()
SET sc=rset.Prepare(myquery)
SET sc=rset.Execute()
I sc'=1 Q "error"
;I $G(Take)>0 SET rset.MaxRows=Take ;;how much records to take/return
I $G(Skip)>0 SET rset.CurrRow=Skip ;; how many records to skip.. before start 'taking'
set g="",cnt=1
WHILE rset.Next() {
set g=g_rset.Data("IEN")_",",cnt=cnt+1
I cnt>Take Q
}
i $G(g)'="" S g=$EXTRACT(g,1,$L(g)-1)
i $L(g)<1 Q ""
s g=$LISTFROMSTRING(g)
Q g
]]>
1
PatientId:%Text,FacilityId:%Integer,getHRNorStatus:%Integer
%Text
AG_GetPatientHrnM
1
0 Q ""
I getHRNorStatus=1 s RS=$$GET1^DIQ(9000001.41,FacilityId_","_PatientId_",",.02)
I getHRNorStatus=2 D
. S RS=$$GET1^DIQ(9000001.41,FacilityId_","_PatientId_",",.05,"I")
.; I getHRNorStatus=2 D
. I RS="I" s RS="Inactive"
. I RS="D" s RS="Deleted"
. I RS="M" s RS="Merged"
Q RS
]]>
1
PatientId:%BigInt,NameSearchString:%Text,ActualName:%Text
0
%Text
AG_GetPatientSearchStringResultNameM
1
0 S Result=$P(OUT("DILIST",1,0),"^",2)
}
//If not a hit on Alias then must have hit on preferredName
I $G(Result)=""
{
##sql(SELECT Preferred_Name INTO :PreferredName FROM BMW.PATIENT WHERE IEN=:PatientId )
S Result= $P(NameSearchString,",",1)_","_$G(PreferredName)
}
Q $G(Result)
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgSearchPatientD
AgSearchPatientDefaultData
^BMW.BSF.SP.AgSearchPatientD
^BMW.BSF.SP.AgSearchPatientI
^BMW.BSF.SP.AgSearchPatientS
100000
%%CLASSNAME
%RegisteredObject
63845,51283.728965
63340,56070.005309
3.0.0
%SQLQuery
PatientId:%Integer,DateOfDeath:%String,State:%String,Certificate:%String
AG_SetPatientDateOfDeathQ
1
select (AG_SetPatientDateOfDeathM(:PatientId,:DateOfDeath,:State,:Certificate)) As Result
1
PatientId:%Integer,DateOfDeath:%String,State:%String,Certificate:%String
0
%Text
AG_SetPatientDateOfDeathM
1
0 D ##class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,2906)
S DFN=PatientId
//S DateOfDeath=##class(FilemanTimeStamp).
s Result=..SetDod(PatientId,DateOfDeath)
I ((L($G(CauseOfDeath)>0))!($L($G(DateOfDeath)>0))!($L($G(Certificate)>0))) S Result=..SetDodAddiotnalInfo(PatientId,State,Certificate)
D ##class(BMW.BSF.SP.AgPatientUpdateEvent).PatientUpdateEventM(PatientId)
Q Result
]]>
1
PatientId:%Integer,DateOfDeath:%String
0
%Text
1
PatientId:%Integer,State:%String,Certificate:%String
0
%Text
%RegisteredObject
65386,45946.937575
63340,56070.005309
3.0.0
%SQLQuery
PatientId:%Integer
AG_SetPatientGenderQ
1
select (AG_SetPatientGenderM(:PatientId)) As Result
1
PatientId:%Integer
%Text
AG_SetPatientGenderM
1
%Library.CacheStorage
^BMW.BSF.SP.AgSetPatientGenderD
AgSetPatientGenderDefaultData
^BMW.BSF.SP.AgSetPatientGenderD
^BMW.BSF.SP.AgSetPatientGenderI
^BMW.BSF.SP.AgSetPatientGenderS
100000
%%CLASSNAME
%RegisteredObject
65428,47360.065608
65386,47796.680563
3.8.0
%SQLQuery
PatientId:%BigInt,GenderIdentity:%String,Other:%String,EntryDate:%String
AG_SetPatientGenderIdentityQ
1
select (AG_SetPatientGenderIdentityM(:PatientId,:GenderIdentity,:Other,:EntryDate)) As Result
1
PatientId:%BigInt,GenderIdentity:%String,Other:%String,EntryDate:%String
0
%Text
AG_SetPatientGenderIdentityM
1
%RegisteredObject
64980,68444.070409
63428,56681.043528
3.0.0
%SQLQuery
patient:%Text,insurer:%Text,category:%Text,effecPriorityDate:%Text,elibStart:%Text,eligbEnd:%Text,person:%Text,priority:%Text,coverage:%Text,policyNmber:%Text,policyHolder:%Text,plan:%Text,recordPtr:%Text,deletePrev:%Text
AG_PatientInsuranceAddCategorySequenceQ
1
SELECT (AG_PatientInsuranceAddCategorySequenceM(:patient,:insurer,:category,:effecPriorityDate,:elibStart,:eligbEnd,:person,:priority,:coverage,:policyNmber,:policyHolder,:plan,:recordPtr,:deletePrev)) as Result
1
patient:%Text,insurer:%Text,category:%Text,effecPriorityDate:%Text,elibStart:%Text,eligbEnd:%Text,person:%Text,priority:%Text,coverage:%Text,policyNmber:%Text,policyHolder:%Text,plan:%Text,recordPtr:%Text,deletePrev:%Text
0
%Text
AG_PatientInsuranceAddCategorySequenceM
1
0 {
D DT^DILF("TS",effecPriorityDate,.effecdt,,"")
S SCR="I (($P($G("_"^"_"(0)),""^"",4))="""_$G(category)_""") & (($P($G("_"^"_"(0)),""^"",6))="""_$G(effecdt)_""")"
;D LIST^DIC(9000035,"","@;.01","B",,,,"",SCR,"","OUT","MSG")
D FIND^DIC(9000035,"","@;.01","QX",patient,,"C",SCR,,"OUT","MSG")
S INDEX=$O(OUT("DILIST",2,""))
I +INDEX>0 F D Q:(+INDEX'>0)
.S CPIEN=$G(OUT("DILIST",2,INDEX))
.N SQLCODE,%ROWCOUNT,%ROWID
.&sql(DELETE from bmw.category_prioritizing WHERE IEN=:CPIEN)
.S INDEX=$O(OUT("DILIST",2,INDEX))
}
S FILE=9000035
S DIC="^AUPNICP(",DLAYGO=FILE,DIC(0)="AEQML"
S FDA(FILE,"+1,",.01)=$$NOW^XLFDT
S FDA(FILE,"+1,",.02)=patient
S FDA(FILE,"+1,",.03)=insurer
I $G(category)'="" S FDA(FILE,"+1,",.04)=category
I $G(priority)'="" S FDA(FILE,"+1,",.05)=priority
D DT^DILF("TS",effecPriorityDate,.effecPriorityDate,,"")
S FDA(FILE,"+1,",.06)=effecPriorityDate
I $G(coverage)'="" S FDA(FILE,"+1,",.07)=coverage
I $G(elibStart)'="" D
. D DT^DILF("TS",elibStart,.elibStart,,"")
. S FDA(FILE,"+1,",.08)=elibStart
I $G(eligbEnd)'="" D
. D DT^DILF("TS",eligbEnd,.eligbEnd,,"")
. S FDA(FILE,"+1,",.09)=eligbEnd
I $G(policyNmber)'="" S FDA(FILE,"+1,",.11)=policyNmber
I $G(plan)'="" S FDA(FILE,"+1,",.12)=plan
I $G(policyHolder)'="" S FDA(FILE,"+1,",.13)=policyHolder
I $G(person)'="" S FDA(FILE,"+1,",.14)=person
I $G(recordPtr)'="" S FDA(FILE,"+1,",.15)=recordPtr
D UPDATE^DIE("","FDA","FDAIENP","ERR1")
I $D(ERR1("DIERR")) S RSLT="~`0^Error adding Sequence: "_$G(ERR1("DIERR","1","TEXT",1)) Q RSLT
I $D(FDAIENP(1)) S RSLT=$G(FDAIENP(1)) Q RSLT
;}
Q "0"
]]>
%RegisteredObject
64980,72868.194684
63428,56719.298598
3.0.0
%SQLQuery
patient:%Text,category:%Text,effecPriorityDate:%Text
AG_PatientInsuranceRemoveCategorySequenceQ
1
SELECT (AG_PatientInsuranceRemoveCategorySequenceM(:patient,:category,:effecPriorityDate)) as Result
1
patient:%Text,category:%Text,effecPriorityDate:%Text
0
%Text
AG_PatientInsuranceRemoveCategorySequenceM
1
0 F D Q:(+INDEX'>0)
.S CPIEN=$G(OUT("DILIST",2,INDEX))
.;N SQLCODE,%ROWCOUNT,%ROWID
.;&sql(DELETE from bmw.category_prioritizing WHERE IEN=:CPIEN)
.;Delete entry
. S FND="",DA=CPIEN,DIK="^AUPNICP(" D ^DIK
. S FND=1
.;
.S INDEX=$O(OUT("DILIST",2,INDEX))
I 'FND Q "0"
Q "1"
]]>
%RegisteredObject
65455,49587.205802
65386,47796.680563
3.8.0
%SQLQuery
PatientId:%BigInt,LegalSex:%String,Source:%String,EntryDate:%String,DateEntered:%String
AG_SetPatientLegalSexQ
1
select (AG_SetPatientLegalSexM(:PatientId,:LegalSex,:Source,:EntryDate,:DateEntered)) As Result
1
PatientId:%BigInt,LegalSex:%String,Source:%String,EntryDate:%String,DateEntered:%String
0
%Text
AG_SetPatientLegalSexM
1
0 S Result="1^"_Result
;E S Result="-1^"_Result
Q Result
]]>
%RegisteredObject
64721,52345.483868
63340,57173.944403
3.0.5
%SQLQuery
PatientId:%BigInt,Mbi:%String,Source:%String
AG_SetPatientMbiQ
1
select (AG_SetPatientMbiM(:PatientId,:Mbi,:Format)) As Result
1
PatientId:%BigInt,Mbi:%String,Source:%String
0
%Text
AG_SetPatientMbiM
1
0 Q "-1^UserIen - DUZ value not preset"
If $G(DUZ(2))'>0 Q "-1^FacilityId - DUZ(2) value not preset"
s mbicheck=$$ISMBI^AGUTL(Mbi)
I $G(mbicheck)=0 Q "-1^incorrect mbi format"
; Function: Add an MBI for a patient on the specified effective date
; Call: $$ADDMBI^AUPNMBI(PATIEN,EFFDATE,MBI,SOURCE)
; Returned value:
; Successful: EFF_DATE(? - as IEN in MBI multiple)
; Unsuccessful: 0 (zero)
s RS=$$ADDMBI^AUPNMBI(PatientId,$$DT^XLFDT, Mbi,Source)
Q RS
]]>
1
module:%Text,PatId:%Text,Mode:%Text,location:%Text,ActionTime:%Text
0
%Text
0 s ^BmwDebug($P(Date," "),$P($E(Date,10,25),":"),$P($E(Date,10,25),":",2),$P($E(Date,10,25),":",3),$J,$G(module),$G(PatId),$G(location),$G(Mode))="UserDuz: "_$G(DUZ)_" ^ActionTime: "_$G(ActionTime)_"^ Facility: "_$G(DUZ(2))
I +$G(PatId)<1 s ^BmwDebug($P(Date," "),$P($E(Date,10,25),":"),$P($E(Date,10,25),":",2),$P($E(Date,10,25),":",3),$J,$G(module),$G(location),$G(Mode))="UserDuz: "_$G(DUZ)_" ^ActionTime: "_$G(ActionTime)_"^ Facility: "_$G(DUZ(2))
Q
]]>
%RegisteredObject
65434,50524.2343
65388,40139.948797
3.8.0
%SQLQuery
PatientId:%BigInt,SOList:%String,Other:%String,EntryDate:%String
AG_SetPatientSexualOrientationQ
1
select (AG_SetPatientSexualOrientationM(:PatientId,:SOList,:Other,:EntryDate)) As Result
1
PatientId:%BigInt,SOList:%String,Other:%String,EntryDate:%String
0
%Text
AG_SetPatientSexualOrientationM
1
%RegisteredObject
63525,40168.009349
63340,55320.729981
3.0.0
%SQLQuery
PatientId:%BigInt,FacilityId:%Double
AG_SetPatientTempHRNQ
1
SELECT top 1 (AG_SetPatientTempHRNM(:PatientId,:FacilityId)) as Result
1
PatientId:%BigInt,FacilityId:%Double
0
%Text
AG_SetPatientTempHRNM
1
0)!(FacilityId'>0) Q 0
N AGCH,AGTCH,QFL
S AGCH=999999
S AGTCH=0,QFL=0
F I=0:0 S AGCH=$O(^AUPNPAT("D",AGCH)) Q:AGCH="" D Q:QFL
. I $D(^AUPNPAT("D",AGCH,PatientId)) S AGTCH=AGCH,QFL=1
. S AGTCH=AGCH
;
I 'QFL D
. S:AGTCH=0 AGTCH="T00000"
. S AGTCH=$E(AGTCH,2,6)
. S AGTCH=AGTCH+1
. S AGTCH="T"_$E(100000+AGTCH,2,6)
Q:$L(AGTCH)'=6 0
N iens,FDA,FDAIEN
S iens="+1,"_PatientId_","
S FDAIEN(1)=FacilityId
s FDA(9000001.41,iens,.01)=FacilityId
s FDA(9000001.41,iens,.02)=AGTCH
d UPDATE^DIE("","FDA","FDAIEN","%FMERR(9000001.41)") s %SkipFiling=1
I '$d(%FMERR(9000001.41,"DIERR")) Q 1
s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001.41)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q
QUIT %msg
]]>
%Library.CacheStorage
^BMW.BSF.SP.AgSetPatienD900D
AgSetPatientTempHRNDefaultData
^BMW.BSF.SP.AgSetPatienD900D
^BMW.BSF.SP.AgSetPatienD900I
^BMW.BSF.SP.AgSetPatienD900S
100000
listnode
%%CLASSNAME
%RegisteredObject
64016,60077
63426,60726.903583
3.0.0
%SQLQuery
PatientId:%BigInt,MenuOption:%String="",UserIen:%String,FacilityIen:%String
AG_SetSPTAccessQ
1
select (AG_SetSPTAccessM(:PatientId,:MenuOption,:UserIen,:FacilityIen)) As Result
1
PatientId:%BigInt,MenuOption:%String,UserIen:%String,FacilityIen:%String
0
%Text
AG_SetSPTAccessM
1
%Library.CacheStorage
^BMW.BSF.SP.AgSetSPTAccessD
AgSetSPTAccessDefaultData
^BMW.BSF.SP.AgSetSPTAccessD
^BMW.BSF.SP.AgSetSPTAccessI
^BMW.BSF.SP.AgSetSPTAccessS
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,39663.428211
63340,60972.549133
3.0.0
%SQLQuery
PatientId:%String,EventDate:%String,Transaction:%Integer,AdmissionId:%Text
BDG_CancelMovementQ
1
SELECT top 1 (BDG_CancelMovementM(:PatientId,:EventDate,:Transaction,:AdmissionId))
as Result
1
PatientId:%String,EventDate:%String,Transaction:%Integer,AdmissionId:%Text
0
%Text
BDG_CancelMovementM
1
0)!(EventDate'>0)!(+AdmissionId'>0)!((Transaction'="1")&(Transaction'="3")) Q 0
S BDGR("PAT") = PatientId
S BDGR("TRAN") = Transaction
S BDGR("ACCT") ="0"
S BDGR("DATE")=EventDate
S BDGR("ADMIT DATE")=$$GET1^DIQ(405,+AdmissionId,.01,"I")
I Transaction=3 S BDGR("DISCHARGE DATE")=EventDate,BDGR("ADMIT DATE")=$E($G(BDGR("ADMIT DATE")),1,12)
s BDGR("USER")=DUZ
s Result=$$CANCEL^BDGAPI(.BDGR)
I Result'="" s Result="0^"_$P(Result,"^",2) Q Result
IF +$G(AdmissionId)>0 D
. S DIK="^DGPM("
. s DA=AdmissionId
. D IX^DIK
. F S DA=$O(^DGPM("C",PatientId,DA)) Q:+$G(DA)<1 D
. . D IX^DIK
Q "1"
]]>
%Library.CacheStorage
^BMW.BSF.SP.BdgCancelMovementD
BdgCancelMovementDefaultData
^BMW.BSF.SP.BdgCancelMovementD
^BMW.BSF.SP.BdgCancelMovementI
^BMW.BSF.SP.BdgCancelMovementS
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,39648.446627
63340,58468.112044
3.0.0
%SQLQuery
ReportDate:%Date,Facility:%Text,UserIen:%Text
Bdg_GetAdsReportQ
1
1
ReportDate:%Date,Facility:%Text,UserIen:%Text,K:%Integer
0
%Text
Bdg_GetAdsReportM
1
0 F D Q:(+INDX'>0)
. S RTN(INDX)=$G(^TMP("BDGADS",$J,INDX,0))
. S INDX=$O(^TMP("BDGADS",$J,INDX))
I K=(RTN(0)) D ..Exit()
Q RTN(K)
]]>
1
0
%Text
1
0
%Text
%Library.CacheStorage
^BMW.BSF.SP.BdgGetAdsReportD
BdgGetAdsReportDefaultData
^BMW.BSF.SP.BdgGetAdsReportD
^BMW.BSF.SP.BdgGetAdsReportI
^BMW.BSF.SP.BdgGetAdsReportS
100000
listnode
%%CLASSNAME
%RegisteredObject
63630,53761.375142
63348,62313.257012
3.0.0
%SQLQuery
FacilityId:%String,TypeOfDischarge:%String
BDG_GetIsReAdmitCheckQ
1
SELECT top 1 (BDG_GetIsReAdmitCheckM(:FacilityId,:TypeOfDischarge))
as Result
1
FacilityId:%String,TypeOfDischarge:%String
0
%Text
BDG_GetIsReAdmitCheckM
1
0)!(TypeOfDischarge'>0) Q "-1^Required Field Missing"
s Result=0
N MasMovementTypeId,AutoDcRuleId
S MasMovementTypeId=$$GET1^DIQ(405.1,+TypeOfDischarge,.03,"I")
S AutoDcRuleId=+$O(^ORD(100.6,"AC",FacilityId,MasMovementTypeId,0))
S EXC=+$P($G(^ORD(100.6,AutoDcRuleId,0)),U,6)
I EXC=1 S Result=1
Q Result
;
]]>
%RegisteredObject
65175,49318.070329
63340,62010.560079
3.0.0
%SQLQuery
From:%Date,To:%Date,Facility:%Text
BDG_GetRangeOfMonthCensusQ
1
Select BDG_GetRangeOfMonthCensusM(:From,:To,:Facility) AS Data
1
From:%Date,To:%Date,Facility:%Text
0
%Text
BDG_GetRangeOfMonthCensusM
1
%Library.CacheStorage
^BMW.BSF.SP.BdgGetRange974AD
BdgGetRangeOfMonthCensusDefaultData
^BMW.BSF.SP.BdgGetRange974AD
^BMW.BSF.SP.BdgGetRange974AI
^BMW.BSF.SP.BdgGetRange974AS
100000
%%CLASSNAME
%RegisteredObject
65043,39175.187602
63340,60539.910066
3.0.0
%SQLQuery
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,ShortDiagnosis:%String,WardId:%String,RoomId:%String,AdmSourceCode:%String,AdmissionType:%String,MovementSpecialityId:%String,AdmittingPhysician:%String,AttendingPhysician:%String,AdmissionCode:%String,ConditionId:%String,ExcludeDir:%String,ReferringProvider:%String,TransferFacility:%String,Diagnosis:%String
BDG_SetPatientAdmissionQ
1
SELECT (BDG_SetPatientAdmissionM(:UserId,:FacilityId,:PatientId,:MovDateTime,:ShortDiagnosis,:WardId,:RoomId,:AdmSourceCode,:AdmissionType,:MovementSpecialityId,:AdmittingPhysician,:AttendingPhysician,:AdmissionCode,:ConditionId,:ExcludeDir,:ReferringProvider,:TransferFacility,:Diagnosis))
as RESULT
1
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,ShortDiagnosis:%String,WardId:%String,RoomId:%String,AdmSourceCode:%String,AdmissionType:%String,MovementSpecialityId:%String,AdmittingPhysician:%String,AttendingPhysician:%String,AdmissionCode:%String,ConditionId:%String,ExcludeDir:%String,ReferringProvider:%String,TransferFacility:%String,Diagnosis:%String
0
%Text
BDG_SetPatientAdmissionM
1
0)!(FacilityId'>0)!(PatientId'>0)!(MovDateTime="")!(ShortDiagnosis="")!(WardId'>0)!(AdmSourceCode'>0)!(AdmissionType'>0)!(MovementSpecialityId'>0)!(AdmittingPhysician'>0)!(AttendingPhysician'>0)!(AdmissionCode'>0) Q "Required Fields Missing!"
;
N INDX,ROOM
S INDX=$O(^DGPM("ARM",""))
I +INDX>0 F D Q:(+INDX'>0)
. I $G(INDX)=$G(RoomId) S ROOM=-1
. S INDX=$O(^DGPM("ARM",INDX))
I $G(ROOM)=-1 Q "-1^Room is not available!"
;
I ($G(ConditionId)'="") {
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.VA_PATIENT set CONDITION=:ConditionId WHERE ien=:PatientId)
IF SQLCODE=0 {
;Q "Update succeeded! Row count="_%ROWCOUNT_", Row ID = "_%ROWID
}
ELSE { Q "-1^Update failed, SQLCODE="_SQLCODE}
}
;
I ($G(ExcludeDir)'="") {
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.VA_PATIENT set EXCLUDE_FROM_FACILITY_DIR=:ExcludeDir WHERE ien=:PatientId)
IF SQLCODE=0 {
;Q "Update succeeded! Row count="_%ROWCOUNT_", Row ID = "_%ROWID
}
ELSE { Q "-1^Update failed, SQLCODE="_SQLCODE}
}
;
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,FacilityId)
I MovDateTime>$$NOW^XLFDT S MovDateTime=$$NOW^XLFDT
;
S BDGR("PAT")=PatientId
S BDGR("TRAN")=1
S BDGR("DATE")=MovDateTime
S BDGR("ADMIT DATE")=MovDateTime
S BDGR("USER")=$$GET1^DIQ(200,+UserId,.01) ;UserId
;S BDGR("ACCT")=0
S BDGR("UBAS")=$$GET1^DIQ(9999999.53,+AdmSourceCode,.01)
S BDGR("ADMT")=$$GET1^DIQ(405.1,+AdmissionType,9999999.1) ;;AdmissionType FacilityMovementType
S BDGR("ADX")=ShortDiagnosis
S BDGR("ACCT")=""
S BDGR("TFAC")=""
I $G(TransferFacility)'="" S BDGR("TFAC")=$G(TransferFacility)
S BDGR("SRV")=$$GET1^DIQ(45.7,+MovementSpecialityId,.01) ;$$GET1^DIQ(45.7,+MovementSpecialityId,9999999.01) ;; get name - changes from IHS code to Name cause of dulicate IHS code for different facility treating specialities
S BDGR("ADMD")=$$GET1^DIQ(200,+AdmittingPhysician,.01)
S BDGR("ATMD")=$$GET1^DIQ(200,+AttendingPhysician,.01)
S BDGR("UBAT")=AdmissionCode
S BDGR("REFP")=$G(ReferringProvider)
S BDGR("WARD")=$$GET1^DIQ(42,+WardId,.01)
S BDGR("ROOM")=$$GET1^DIQ(405.4,+RoomId,.01)
;
S BDGPRT=0
S BDGLOC=0 ;; BDGPM LOCATOR protocol issue fix
I $$GET1^DIQ(9009020.1,1,.03)="YES" S BDGLOC=1 ;; if IHS ADT Parameter "USE LOCATOR CARDS?" is YES .. set to 1 for BDGPM LOCATOR protocol
S DFN=PatientId
S XQY0=^DIC(19,$O(^DIC(19,"B","LROE",0)),0) ; Bug Reported: ;accessioning GUI (from LROE)
;
NEW DGQUIET,BDGAPI,ERR
S DGQUIET=1 ;must be in quiet mode
S BDGAPI=1 ;let DGPMV rtns know using API
I $G(DUZ("AG"))="" Q 2_U_"Agency not set" ;must have agency set to IHS
;
S ERR=..Check() I ERR Q ERR ;check common req fields
;
s UserTimeOut=+DTIME,DTIME=.0001 ;; override user timeout and take default for "Print Wrist Band" question -
D 1^BDGAPI ;; call admission API
;S ERR=$$ADD^BDGAPI(.BDGR)
s DTIME=+UserTimeOut ;; set DTIME back to users timeout
;
I $G(ERR)'="" Q $G(ERR)
;
K query,RSC,RS,IEN
S query="select top 1 IEN from bmw.PATIENT_MOVEMENT where PATIENT='"_PatientId_"' and transaction_02=6 order by ien desc"
S RS=##class(%ScrollableResultSet).%New()
S RSC=RS.Prepare(query)
S RSC=RS.Execute()
I RSC'=1 Q "-1^Speciality Transfer is not found!"
S IEN=""
WHILE RS.Next() { S IEN=RS.Data("IEN") }
;
I ($G(Diagnosis)'="") {
I $G(IEN)'=""{
S ^TMP($J,"WP",1,0)=Diagnosis
D WP^DIE(405,IEN_",",99,"KA","^TMP($J,""WP"")")
}}
;
K query,RSC,RS,IEN
N RS
S query="select top 1 IEN from bmw.PATIENT_MOVEMENT where PATIENT='"_PatientId_"' and transaction_02=1 order by ien desc"
S RS=##class(%ScrollableResultSet).%New()
S RSC=RS.Prepare(query)
S RSC=RS.Execute()
I RSC'=1 Q "-1^Admission is not found!"
S IEN=""
WHILE RS.Next() { S IEN=RS.Data("IEN") }
;
I ($G(ExcludeDir)'="") {
I $G(IEN)'=""{
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.PATIENT_MOVEMENT set FACILITY_DIRECTORY_EXCLUSION=:ExcludeDir WHERE ien=:IEN)
IF SQLCODE=0 {
;Q "Update succeeded! Row count="_%ROWCOUNT_", Row ID = "_%ROWID
}}}
;
Q IEN
]]>
1
0
%Text
6) Q 2_U_"Trans Code Error"
S X=$G(BDGR("DATE")) I X'?7N1".".N D I Y=-1 Q 2_U_"Date Error"
. S %DT="RX" D ^%DT Q:Y=-1
. S BDGR("DATE")=Y ;reset date to FM format
;I $$GET1^DIQ(200,+$G(BDGR("USER")),.01)="" Q 2_U_"User Error"
Q 0
;
]]>
%RegisteredObject
63930,49780.07547
63340,60539.910066
3.0.3
0)!(MovementType'>0)!(UserId'>0)!(AdmSourceCode'>0)!(AdmissionType'>0)!(FacilityId'>0)!(WardId'>0)!(AdmittingPhysician'>0)!(PrimaryPhysician'>0)!(AttendingPhysician'>0) Q 0
;D ##class(BMW.BMWCoreSP).SetSessionVariablesM(1,FacilityId)
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,FacilityId)
N PMDateTime
S PMDateTime=$$X2FM^ORWCV($G(MovDateTime))
S BDGR("PAT")=PatientId
S BDGR("TRAN")=MovementType
S BDGR("DATE")=PMDateTime
S BDGR("ADMIT DATE")=PMDateTime
S BDGR("USER")=UserId
S BDGR("ACCT")=0
S BDGR("UBAS")=$$GET1^DIQ(9999999.53,+AdmSourceCode,.01)
S BDGR("ADMT")=$$GET1^DIQ(405.1,+AdmissionType,9999999.1) ;;AdmissionType
S BDGR("ADX")=ShortDiagnosis
S BDGR("ACCT")="0"
S BDGR("TFAC")=""
S BDGR("WARD")=$$GET1^DIQ(42,+WardId,.01)
S BDGR("SRV")=$$GET1^DIQ(45.7,+MovementSpecialityId,9999999.01)
S BDGR("ADMD")=$$GET1^DIQ(200,+AdmittingPhysician,.01)
S BDGR("PRMD")=$$GET1^DIQ(200,+PrimaryPhysician,.01)
S BDGR("ATMD")=$$GET1^DIQ(200,+AttendingPhysician,.01)
;S BDGR("DSCT")=
S BDGR("UBAT")=AdmissionCode
S BDGR("REFP")="" ;ReferringPhysician
S BDGR("ROOM")=$$GET1^DIQ(405.4,+RoomId,.01)
;S BDGR("UBDS")=
s BDGPRT=0
S ERR=$$ADD^BDGAPI(.BDGR)
Q $G(ERR)
;I (PatientId'>0)!(MovementType'>0)!(MovementId'>0) Q 0
;;S Result=$$ADDMVT^BMW.BMWBDG(PatientId,MovementType,MovementId,MovementSpecialityId)
;;Q Result
;;D ##class(BMW.BMWCoreSP).SetSessionVariablesM(1,7247)
}
*/
]]>
%SQLQuery
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,MovementType:%String,ShortDiagnosis:%String,WardId:%String,RoomId:%String,AdmSourceCode:%String,AdmissionType:%String,MovementSpecialityId:%String,AdmittingPhysician:%String,PrimaryPhysician:%String,AttendingPhysician:%String,AdmissionCode:%String
BDG_SetPatientMovementQ
1
SELECT (BDG_SetPatientMovementM(:UserId,:FacilityId,:PatientId,:MovDateTime,:MovementType,:ShortDiagnosis,:WardId,:RoomId,:AdmSourceCode,:AdmissionType,:MovementSpecialityId,:AdmittingPhysician,:PrimaryPhysician,:AttendingPhysician,:AdmissionCode))
as IEN
1
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,MovementType:%String,ShortDiagnosis:%String,WardId:%String,RoomId:%String,AdmSourceCode:%String,AdmissionType:%String,MovementSpecialityId:%String,AdmittingPhysician:%String,PrimaryPhysician:%String,AttendingPhysician:%String,AdmissionCode:%String
0
%Text
BDG_SetPatientMovementM
1
0)!(FacilityId'>0)!(PatientId'>0)!(MovementType'>0)!(MovementId'>0) Q 0
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;S Result=$$ADDMVT^BMW.BMWBDG(PatientId,MovementType,MovementId,MovementSpecialityId)
;;Q Result
;;D ##class(BMW.BMWCoreSP).SetSessionVariablesM(1,7247)
//the stupid loop starts here
//s cnt=0
//F S cnt=cnt+1 Q:cnt>20 D
//. I $$GET1^DIQ(2,PatientId,.105,"I")>0 Q
//. HANG .5
//the stupid loop ends here
N DGQUIET,DGPMN
;
; QUIET MODE,NEW MVT
S DGQUIET=1,DGPMN=1,DFN=PatientId,DGPMT=MovementType,DGPMDA=MovementId,DGPMSP=$G(MovementSpecialityId)
I DGPMT=3 S DGPMCA=$$GET1^DIQ(405,DGPMDA,.14,"I")
;
;I MovementType=2 D
.; S FDA(2,DFN_",",.102)=MovementId
.; D FILE^DIE("","FDA","ERR1")
.; I $D(ERR1("DIERR")) S RSLT="~`0^Error updating Patient Movement:"_$G(ERR1("DIERR","1","TEXT",1)) Q
;
D ..MovePatientPrior()
;
; IF A SPECIALTY MVT IS ASSOCIATED WITH THIS, POPULATE ^UTILITY WITH THAT MVT
I $G(DGPMSP) D
. ; NEW THESE VARIABLES SO THEY ARE DISPOSED AFTER
. N DGPMT,DGPMDA,DGPMN,X,Y,DGPMP,DGPMA
. ; MVT TYPE,MVT IEN,NEW MVT
. S DGPMT=6,DGPMDA=DGPMSP,DGPMN=1
. D ..MovePatientPrior()
. D ..MovePatientAfter()
. Q
;
D ..MovePatientAfter()
;
;; Start- Fix Delayed orders issue
IF +$G(DGPMSP)>0 D
. S DIK="^DGPM("
. s DA=DGPMSP
. D IX^DIK
;; End - Fix Delayed orders issue
D ..FireEvent()
;IF +$G(MovementSpecialityId)>0 D
;. S DIK="^DGPM("
;. s DA=DGPMSP
;. D IX^DIK
Q $G(ERR)
]]>
1
0
%Text
6) Q 2_U_"Trans Code Error"
S X=$G(BDGR("DATE")) I X'?7N1".".N D I Y=-1 Q 2_U_"Date Error"
. S %DT="RX" D ^%DT Q:Y=-1
. S BDGR("DATE")=Y ;reset date to FM format
;I $$GET1^DIQ(200,+$G(BDGR("USER")),.01)="" Q 2_U_"User Error"
Q 0
;
]]>
1
0
%Text
1
0
%Text
1
0
%Text
1
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,MovementType:%String,ShortDiagnosis:%String,WardId:%String,RoomId:%String,AdmSourceCode:%String,AdmissionType:%String,MovementSpecialityId:%String,AdmittingPhysician:%String,PrimaryPhysician:%String,AttendingPhysician:%String,AdmissionCode:%String
0
%Text
BDG_SetPatientMovementApiM
1
0)!(FacilityId'>0)!(PatientId'>0)!(MovementType'>0)!(MovementId'>0) Q 0
;Q "1"
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,FacilityId)
S DFN=PatientId
S PMDateTime=MovDateTime ;;$$X2FM^ORWCV($G(MovDateTime))
S BDGR("PAT")=PatientId
S BDGR("TRAN")=MovementType
S BDGR("DATE")=PMDateTime
S BDGR("ADMIT DATE")=PMDateTime
S BDGR("USER")=$$GET1^DIQ(200,+UserId,.01)
S BDGR("ACCT")=0
S BDGR("UBAS")=$$GET1^DIQ(9999999.53,+AdmSourceCode,.01)
S BDGR("ADMT")=$$GET1^DIQ(405.1,+AdmissionType,9999999.1) ;;AdmissionType
S BDGR("ADX")=ShortDiagnosis
S BDGR("ACCT")="0"
S BDGR("TFAC")=""
S BDGR("WARD")=$$GET1^DIQ(42,+WardId,.01)
S BDGR("SRV")=$$GET1^DIQ(45.7,+MovementSpecialityId,9999999.01)
S BDGR("ADMD")=$$GET1^DIQ(200,+AdmittingPhysician,.01)
S BDGR("PRMD")=$$GET1^DIQ(200,+PrimaryPhysician,.01)
S BDGR("ATMD")=$$GET1^DIQ(200,+AttendingPhysician,.01)
;S BDGR("DSCT")=
S BDGR("UBAT")=AdmissionCode
S BDGR("REFP")="" ;ReferringPhysician
S BDGR("ROOM")=$$GET1^DIQ(405.4,+RoomId,.01)
;S BDGR("UBDS")=
s BDGPRT=0
S XQY0=^DIC(19,$O(^DIC(19,"B","LROE",0)),0) ; Bug Reported: ;accessioning GUI (from LROE)
s BDGPRT=0
NEW DGQUIET,BDGAPI,ERR
S DGQUIET=1 ;must be in quiet mode
S BDGAPI=1 ;let DGPMV rtns know using API
I $G(DUZ("AG"))="" Q 2_U_"Agency not set" ;must have agency set to IHS
;
S ERR=..Check() I ERR Q ERR ;check common req fields
;
s UserTimeOut=DTIME,DTIME=.0001 ;; override user timeout and take default for "Print Wrist Band" question -
D 1^BDGAPI ;; call admission API
s DTIME=UserTimeOut
;D @BDGR("TRAN")
;Q $G(ERR)
;S ERR=$$ADD^BDGAPI(.BDGR)
Q $G(ERR)
]]>
%Library.CacheStorage
^BMW.BSF.SP.BdgSetPatie7F39D
BdgSetPatientMovementDefaultData
^BMW.BSF.SP.BdgSetPatie7F39D
^BMW.BSF.SP.BdgSetPatie7F39I
^BMW.BSF.SP.BdgSetPatie7F39S
100000
%%CLASSNAME
%RegisteredObject
65549,52645.263313
63497,45265.296586
3.0.0
%SQLQuery
PatientId:%String,EventDate:%String,DischargeStatusUB04:%Integer,TypeOfDischarge:%Integer,TransferFacility:%Integer,User:%Integer,Facility:%Integer,AdmissionId:%String,IsReAdmit:%Boolean
BDG_SetPatientMovementDischargeQ
1
SELECT top 1 (BDG_SetPatientMovementDischargeM(:PatientId,:EventDate,:DischargeStatusUB04,:TypeOfDischarge,:TransferFacility,:User,:Facility,:AdmissionId,:IsReAdmit))
as Result
1
PatientId:%String,EventDate:%String,DischargeStatusUB04:%Integer,TypeOfDischarge:%Integer,TransferFacility:%Integer,User:%Integer,Facility:%Integer,AdmissionId:%String,IsReAdmit:%Boolean
0
%Text
BDG_SetPatientMovementDischargeM
1
0)!(EventDate="")!(+DischargeStatusUB04'>0)!(+TypeOfDischarge'>0)!(+Facility'>0)!(+User'>0) Q "Required Fields are missing."
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(User,Facility)
;
S DischargeStatusUB04=$$GET1^DIQ(99999.04,$G(DischargeStatusUB04),.01,"I")
S DFN=PatientId
I EventDate>$$NOW^XLFDT S EventDate=$$NOW^XLFDT
S BDGR("PAT")=PatientId
S BDGR("TRAN")="3"
S BDGR("DATE")=EventDate
s BDGR("USER")=$$GET1^DIQ(200,+User,.01)
s BDGR("UBDS")=$G(DischargeStatusUB04)
S BDGR("DSCT")=TypeOfDischarge
S XQY0=^DIC(19,$O(^DIC(19,"B","LROE",0)),0) ; Bug Reported: ;accessioning GUI (from LROE)
I TypeOfDischarge="2",$G(TransferFacility)="" Q "Transfer Facility Required"
I TypeOfDischarge="2" S BDGR("TFAC")=$G(TransferFacility)
S BDGR("DISCHARGE DATE")=EventDate
S BDGR("ACCT")=0
I $G(AdmissionId)'="" S BDGR("ACCT")=$$GET1^DIQ(405,AdmissionId,.27,"I")
S BDGR("ADMIT DATE")=EventDate
I $G(AdmissionId)'="" S BDGR("ADMIT DATE")=$$GET1^DIQ(405,AdmissionId,.01,"I")
;; fix for Re-admit medication discontinue issue
I $G(IsReAdmit)'="" D READMANS^ORMEVNT($G(IsReAdmit)) ;; New Published Entry Point READMANS after discussion with Medsphere
;;
NEW DGQUIET,BDGAPI,ERR
S DGQUIET=1 ;must be in quiet mode
S BDGAPI=1 ;let DGPMV rtns know using API
I $G(DUZ("AG"))="" Q 2_U_"Agency not set" ;must have agency set to IHS
;
S ERR=..Check() I ERR Q ERR ;check common req fields
;
s UserTimeOut=+DTIME,DTIME=.0001 ;; override user timeout and take default for "Print Wrist Band" question -
D ..DischargeApi() ;; Call Discharge API rewrote here in SP
s DTIME=+UserTimeOut ;; set DTIME back to users timeout
I $G(ERR)="" Q "1"
Q $G(ERR)
;
Q "1"
]]>
1
0
%Text
6) Q 2_U_"Trans Code Error"
S X=$G(BDGR("DATE")) I X'?7N1".".N D I Y=-1 Q 2_U_"Date Error"
. S %DT="RX" D ^%DT Q:Y=-1
. S BDGR("DATE")=Y ;reset date to FM format
;I $$GET1^DIQ(200,+$G(BDGR("USER")),.01)="" Q 2_U_"User Error"
Q 0
;
]]>
1
0
%Text
1
0
%Text
%Library.CacheStorage
^BMW.BSF.SP.BdgSetPatie15C3D
BdgSetPatientMovementDischargeDefaultData
^BMW.BSF.SP.BdgSetPatie15C3D
^BMW.BSF.SP.BdgSetPatie15C3I
^BMW.BSF.SP.BdgSetPatie15C3S
100000
%%CLASSNAME
%RegisteredObject
65120,58914.495707
63348,62313.257012
3.0.0
%SQLQuery
PatientId:%String,AdmissionId:%String,Comments:%Text,AdmitDate:%String,AdmissionSource04Id:%String,AdmitType04Id:%String,WardId:%String,RoomBed:%String,TreatingSpecialityId:%String,AdmittingMDIhsAdc:%String,ReferringProvider:%String,AttendingMDIhsAdc:%String,ExcludeDir:%String,AdmittingDiagnosis:%String,MovementType:%String,UserId:%String,FacilityId:%String
BDG_SetPatientMovementEditQ
1
SELECT top 1 (BDG_SetPatientMovementEditM
(:PatientId,:AdmissionId,:Comments,:AdmitDate,:AdmissionSource04Id,:AdmitType04Id,:WardId,:RoomBed,:TreatingSpecialityId,
:AdmittingMDIhsAdc,:ReferringProvider,:AttendingMDIhsAdc,:ExcludeDir,:AdmittingDiagnosis,:MovementType,:UserId,:FacilityId))
as Result
1
PatientId:%String,AdmissionId:%String,Comments:%Text,AdmitDate:%String,AdmissionSource04Id:%String,AdmitType04Id:%String,WardId:%String,RoomBed:%String,TreatingSpecialityId:%String,AdmittingMDIhsAdc:%String,ReferringProvider:%String,AttendingMDIhsAdc:%String,ExcludeDir:%String,AdmittingDiagnosis:%String,MovementType:%String,UserId:%String,FacilityId:%String
0
%Text
BDG_SetPatientMovementEditM
1
0)!(FacilityId'>0)!(PatientId'>0)!(AdmissionId'>0)!($G(AdmitDate)="")!(AdmissionSource04Id'>0)!(AdmitType04Id'>0) Q "0^Required data missing!"
;I (RoomBed'>0) Q "-1^Room bed is required."
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,FacilityId)
I AdmitDate>$$NOW^XLFDT S AdmitDate=$$NOW^XLFDT
S DFN=PatientId
S BDGR("PAT")=DFN
;s BDGR("TRAN")=1 ;MVTTYP
S BDGR("DATE")=AdmitDate
S BDGR("ADMIT DATE")=$G(AdmitDate)
S BDGR("UBAS")=$$GET1^DIQ(9999999.53,+AdmissionSource04Id,.01) ;$G(AdmissionSource04Id)
S BDGR("UBAT")=AdmitType04Id ;1-digit code - 1-4 value range
I +WardId>0 S BDGR("WARD")=$$GET1^DIQ(42,+WardId,.01)
S BDGR("ROOM")=""
I +RoomBed>0 S BDGR("ROOM")=$$GET1^DIQ(405.4,+RoomBed,.01)
I +TreatingSpecialityId>0 S BDGR("SRV")=$$GET1^DIQ(45.7,+TreatingSpecialityId,9999999.01) ;treating specialty, 2-digit IHS code (file 45.7)
S BDGR("TFAC")=$$GET1^DIQ(405,AdmissionId,.05)
S BDGR("ADMD")=$$GET1^DIQ(200,+AdmittingMDIhsAdc,.01) ;$G(AdmittingMDIhsAdc)
;S BDGR("PRMD")=""
S BDGR("ATMD")=$$GET1^DIQ(200,+AttendingMDIhsAdc,.01) ;$G(AttendingMDIhsAdc)
S BDGR("REFP")=$G(ReferringProvider)
S BDGR("DISCHARGE DATE")=""
S BDGR("DSCT")="" ;FCMVTYP
S BDGR("ADX")=$G(AdmittingDiagnosis)
S BDGR("USER")=DUZ ;session variable - user IEN
S BDGR("ACCT")="9999999999999999999999999999999" ;Skip index search
S BDGR("ADMT")=""
I +MovementType>0 S BDGR("ADMT")=$$GET1^DIQ(405.1,+MovementType,9999999.1)
s BDGPRT=0 ;do not ask to "print locator card?"
S XQY0=^DIC(19,$O(^DIC(19,"B","LROE",0)),0) ; Bug Reported: ;accessioning GUI (from LROE)
s UserTimeOut=+DTIME,DTIME=.0001 ;Override user timeout
S ERR=$$EDIT^BDGAPI(.BDGR)
s DTIME=+UserTimeOut ;; set DTIME back to users timeout
;
Q:$G(ERR)'="" ERR
; To find BDGCA
NEW DGQUIET,BDGAPI,ERR,BDGCA,BDGN,BDGTRAN,VST,BDGV,BDGMVT,X
D FINDADM^BDGAPI2
Q:$G(BDGCA)="" "-1^Could not locate admissionQ"
; Updating Short Diagnosis for admission entry
I ($G(AdmittingDiagnosis)'="") {
I $G(BDGCA)'=""{
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.PATIENT_MOVEMENT set DIAGNOSIS_SHORT=:AdmittingDiagnosis WHERE ien=:BDGCA)
IF SQLCODE=0 {
;Q "Update succeeded! Row count="_%ROWCOUNT_", Row ID = "_%ROWID
}}}
;
;
K query,RSC,RS,IEN
S query="select top 1 IEN from bmw.PATIENT_MOVEMENT where PATIENT='"_PatientId_"' and transaction_02=6 and IEN > "_$G(BDGCA)_" and ADMISSIONCHECKIN_MOVEMENT="_$G(BDGCA)
S RS=##class(%ScrollableResultSet).%New()
S RSC=RS.Prepare(query)
S RSC=RS.Execute()
I RSC'=1 Q "-1^Speciality Transfer is not found!"
S IEN=""
WHILE RS.Next() { S IEN=RS.Data("IEN") }
Q:$G(IEN)="" 0
S BDGN=IEN
S BDGAPI=1
S DGQUIET=1
D 2^BDGAPI2
Q:$G(ERR)'="" ERR
;
;;if Comments set to delete Diagnosis WP field
I (($G(Comments)=$c(0))!($G(Comments)="")) D ##Class(BMW.BSF.SP.CoreSetWordProcessing).SetWordProcessingM("405","99",IEN,Comments,0,1)
E D ##Class(BMW.BSF.SP.CoreSetWordProcessing).SetWordProcessingM("405","99",IEN,Comments,0,0)
;
I ($G(TreatingSpecialityId)'="") {
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.PATIENT_MOVEMENT set FACILITY_TREATING_SPECIALTY=:TreatingSpecialityId WHERE ien=:IEN)
}
;
I ($G(ExcludeDir)'="") {
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.PATIENT_MOVEMENT set FACILITY_DIRECTORY_EXCLUSION=:ExcludeDir WHERE ien in (:AdmissionId,:BDGN))
}
;
I $G(BDGN)'=""{ ;BDGPM TRANSFER API hard code on Mass Movement Type/Type of Movement
NEW SQLCODE,%ROWCOUNT,%ROWID
If (($G(ReferringProvider)="")!($G(ReferringProvider)=$c(0)))
{
&sql(UPDATE bmw.PATIENT_MOVEMENT set TYPE_OF_MOVEMENT=22,ADMITTING_PROVIDER=:AdmittingMDIhsAdc,
ATTENDING_PHYSICIAN=:AttendingMDIhsAdc,REFERRING_PROVIDER=NULL WHERE ien=:BDGN)
}
Else{
&sql(UPDATE bmw.PATIENT_MOVEMENT set TYPE_OF_MOVEMENT=22,ADMITTING_PROVIDER=:AdmittingMDIhsAdc,
ATTENDING_PHYSICIAN=:AttendingMDIhsAdc,REFERRING_PROVIDER=:ReferringProvider WHERE ien=:BDGN)
}
;
Q "1"
;
}
]]>
%Library.CacheStorage
^BMW.BSF.SP.BdgSetPatieE047D
BdgSetPatientMovementEditDefaultData
^BMW.BSF.SP.BdgSetPatieE047D
^BMW.BSF.SP.BdgSetPatieE047I
^BMW.BSF.SP.BdgSetPatieE047S
100000
%%CLASSNAME
%RegisteredObject
63652,60485.429155
63340,60539.910066
3.0.0
%SQLQuery
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,MovementSpecialityId:%String,AttendingPhysician:%String,Diagnosis:%String,AdmissionId:%String
BDG_SetPatientSpecialtyTransferQ
1
SELECT (BDG_SetPatientSpecialtyTransferM(:UserId,:FacilityId,:PatientId,:MovDateTime,:MovementSpecialityId,:AttendingPhysician,:Diagnosis,:AdmissionId))
as RESULT
1
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,MovementSpecialityId:%String,AttendingPhysician:%String,Diagnosis:%String,AdmissionId:%String
0
%Text
BDG_SetPatientSpecialtyTransferM
1
0)!(FacilityId'>0)!(PatientId'>0)!(MovDateTime="")!(MovementSpecialityId'>0)!(AttendingPhysician'>0) Q "Required Fields Missing!"
;
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,FacilityId)
I MovDateTime>$$NOW^XLFDT S MovDateTime=$$NOW^XLFDT
;
S BDGR("PAT")=PatientId
S BDGR("TRAN")="6" ;;For service transfer
S BDGR("DATE")=MovDateTime
S BDGR("USER")=$$GET1^DIQ(200,+UserId,.01)
S BDGR("ADMIT DATE")=MovDateTime
I $G(AdmissionId)'="" S BDGR("ADMIT DATE")=$$GET1^DIQ(405,AdmissionId,.01,"I")
S BDGR("ACCT")=0
I $G(AdmissionId)'="" S BDGR("ACCT")=$$GET1^DIQ(405,AdmissionId,.27,"I")
S BDGR("SRV")=$$GET1^DIQ(45.7,+MovementSpecialityId,9999999.01) ;; Set Service if Its a Service transfer
S BDGR("ATMD")=$$GET1^DIQ(200,+AttendingPhysician,.01)
S BDGR("REFP")=""
S BDGR("PROOM")=""
;
S BDGPRT=0
S BDGLOC=0 ;; BDGPM LOCATOR protocol issue fix
I $$GET1^DIQ(9009020.1,1,.03)="YES" S BDGLOC=1 ;; if IHS ADT Parameter "USE LOCATOR CARDS?" is YES .. set to 1 for BDGPM LOCATOR protocol
S DFN=PatientId
S XQY0=^DIC(19,$O(^DIC(19,"B","LROE",0)),0) ; Bug Reported: ;accessioning GUI (from LROE)
;
NEW DGQUIET,BDGAPI,ERR
S DGQUIET=1 ;must be in quiet mode
S BDGAPI=1 ;let DGPMV rtns know using API
I $G(DUZ("AG"))="" Q 2_U_"Agency not set" ;must have agency set to IHS
;
S ERR=..Check() I ERR Q ERR ;check common req fields
;
S UserTimeOut=+DTIME,DTIME=.0001 ;; override user timeout and take default for "Print Wrist Band" question -
D 6^BDGAPI ;; call transfer API
s DTIME=+UserTimeOut ;; set DTIME back to users timeout
I $G(ERR)'="" Q $G(ERR)
;
K query,RSC,RS,IEN
S query="select top 1 IEN from bmw.PATIENT_MOVEMENT where PATIENT='"_PatientId_"' and transaction_02=6 order by ien desc"
S RS=##class(%ScrollableResultSet).%New()
S RSC=RS.Prepare(query)
S RSC=RS.Execute()
I RSC'=1 Q "-1^Speciality Transfer is not found!"
S IEN=""
WHILE RS.Next() { S IEN=RS.Data("IEN") }
;
I ($G(Diagnosis)'="") {
I $G(IEN)'=""{
S ^TMP($J,"WP",1,0)=Diagnosis
D WP^DIE(405,IEN_",",99,"KA","^TMP($J,""WP"")")
}}
Q "1"
]]>
1
0
%Text
6) Q 2_U_"Trans Code Error"
S X=$G(BDGR("DATE")) I X'?7N1".".N D I Y=-1 Q 2_U_"Date Error"
. S %DT="RX" D ^%DT Q:Y=-1
. S BDGR("DATE")=Y ;reset date to FM format
;I $$GET1^DIQ(200,+$G(BDGR("USER")),.01)="" Q 2_U_"User Error"
Q 0
;
]]>
%RegisteredObject
63866,60866.934022
63340,60539.910066
3.0.0
%SQLQuery
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,WardId:%String,RoomId:%String,AdmissionId:%String
BDG_SetPatientTransferQ
1
SELECT (BDG_SetPatientTransferM(:UserId,:FacilityId,:PatientId,:MovDateTime,:WardId,:RoomId,:AdmissionId))
as RESULT
1
UserId:%String,FacilityId:%String,PatientId:%String,MovDateTime:%String,WardId:%String,RoomId:%String,AdmissionId:%String
0
%Text
BDG_SetPatientTransferM
1
0)!(FacilityId'>0)!(PatientId'>0)!(MovDateTime="")!(WardId'>0) Q "Required Fields Missing!"
;
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(UserId,FacilityId)
I MovDateTime>$$NOW^XLFDT S MovDateTime=$$NOW^XLFDT
;
S BDGR("PAT")=PatientId
S BDGR("TRAN")="2" ;; For Ward Transfer
S BDGR("DATE")=MovDateTime
S BDGR("ADMIT DATE")=MovDateTime
I $G(AdmissionId)'="" S BDGR("ADMIT DATE")=$$GET1^DIQ(405,AdmissionId,.01,"I")
S BDGR("USER")=$$GET1^DIQ(200,+UserId,.01)
S BDGR("ACCT")=0
I $G(AdmissionId)'="" S BDGR("ACCT")=$$GET1^DIQ(405,AdmissionId,.27,"I")
S BDGR("WARD")=$$GET1^DIQ(42,+WardId,.01)
S BDGR("ROOM")="" I (+$G(RoomId)>0) S BDGR("ROOM")=$$GET1^DIQ(405.4,+RoomId,.01)
S BDGR("REFP")=""
;
S BDGPRT=0
S BDGLOC=0 ;; BDGPM LOCATOR protocol issue fix
I $$GET1^DIQ(9009020.1,1,.03)="YES" S BDGLOC=1 ;; if IHS ADT Parameter "USE LOCATOR CARDS?" is YES .. set to 1 for BDGPM LOCATOR protocol
S DFN=PatientId
S XQY0=^DIC(19,$O(^DIC(19,"B","LROE",0)),0) ; Bug Reported: ;accessioning GUI (from LROE)
;
NEW DGQUIET,BDGAPI,ERR
S DGQUIET=1 ;must be in quiet mode
S BDGAPI=1 ;let DGPMV rtns know using API
I $G(DUZ("AG"))="" Q 2_U_"Agency not set" ;must have agency set to IHS
;
S ERR=..Check() I ERR Q ERR ;check common req fields
;
s UserTimeOut=+DTIME,DTIME=.0001 ;; override user timeout and take default for "Print Wrist Band" question -
D 2^BDGAPI ;; Call Ward Transfer API
s DTIME=+UserTimeOut ;; set DTIME back to users timeout
I $G(ERR)'="" Q $G(ERR)
;
K query,RSC,RS,IEN
N RS
S query="select top 1 IEN from bmw.PATIENT_MOVEMENT where PATIENT='"_PatientId_"' and transaction_02=2 and TYPE_OF_MOVEMENT=28 order by ien desc"
S RS=##class(%ScrollableResultSet).%New()
S RSC=RS.Prepare(query)
S RSC=RS.Execute()
I RSC'=1 Q "-1^Transfer is not found!"
S IEN=""
WHILE RS.Next() { S IEN=RS.Data("IEN") }
;
I ($G(ERR)="") {
I $G(IEN)'=""{
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.PATIENT_MOVEMENT set TYPE_OF_MOVEMENT=6 WHERE ien=:IEN)
IF SQLCODE=0 {
;Q "Update succeeded! Row count="_%ROWCOUNT_", Row ID = "_%ROWID
N DGQUIET,DGPMN
;
; QUIET MODE,NEW MVT
S DGQUIET=1,DGPMN=1,DFN=PatientId,DGPMT=2,DGPMDA=IEN,DGPMSP=""
;
D ..MovePatientPrior()
D ..MovePatientAfter()
;
D ..FireEvent()
;
}}}
;
I $G(ERR)="" Q "1"
Q $G(ERR)
]]>
1
0
%Text
6) Q 2_U_"Trans Code Error"
S X=$G(BDGR("DATE")) I X'?7N1".".N D I Y=-1 Q 2_U_"Date Error"
. S %DT="RX" D ^%DT Q:Y=-1
. S BDGR("DATE")=Y ;reset date to FM format
;I $$GET1^DIQ(200,+$G(BDGR("USER")),.01)="" Q 2_U_"User Error"
Q 0
;
]]>
1
0
%Text
1
0
%Text
1
0
%Text
%RegisteredObject
63651,36259.515718
63340,58552.600207
3.0.0
%SQLQuery
Patient:%Text,Facility:%Text
AG_GetPatientInsurancesQ
1
1
Patient:%Text,K:%Integer,Facility:%Text
0
%Text
AG_GetPatientInsurancesM
1
0 Q ""
I $G(Facility)'>0 Q ""
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,Facility)
I $G(DUZ)'>0 Q ""
S DFN=$G(Patient)
S DA=DFN
S DUZ(2)=$G(Facility)
S U="^"
S IOSL="24"
S IOST="C"
S IOST(0)=9
;S IOM=110
D ..Start()
S INDX=$O(^TMP($J,"FSRPT",""))
I +INDX>0 F D Q:(+INDX'>0)
. S RTN(INDX)=$G(^TMP($J,"FSRPT",INDX))
. S INDX=$O(^TMP($J,"FSRPT",INDX))
Q RTN(K)
]]>
1
Patient:%Text,K:%Integer,Facility:%Text
0
%Text
AG_GetPatientInsurancesCountM
1
0 Q ""
I $G(Facility)'>0 Q ""
D ##Class(BMW.BSF.SP.CoreSetSessionVariables).SetSessionVariablesM(1,Facility)
I $G(DUZ)'>0 Q ""
S DFN=$G(Patient)
S DA=DFN
S DUZ(2)=$G(Facility)
S U="^"
S IOSL="24"
S IOST="C"
S IOST(0)=9
;S IOM=110
D ..Start()
S INDX=$O(^TMP($J,"FSRPT",""))
I +INDX>0 F D Q:(+INDX'>0)
. S RTN(INDX)=$G(^TMP($J,"FSRPT",INDX))
. S INDX=$O(^TMP($J,"FSRPT",INDX))
. I +INDX>0 S INDEX=INDX
Q $G(INDEX)
]]>
1
0
%Text
1
0
1
0
DT,(AGBDT'="") Q
..I AGOPT(16)="Y",AGBDT
1
0
1
0
IOSL D HDR^AGFACE Q:$D(AGQUIT)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PRIVATE INSURANCE:"
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="INS. COMPANY"_" "_"NUMBER"_" "_"ELIG. DATE"_" "_"ELIG. END DATE"
.S DIC=9000006.11,DR=.01,DA=DFN S AG=0 F S AG=$O(^AUPNPRVT(DFN,11,AG)) Q:'AG S AGL=$G(^AUPNPRVT(DFN,11,AG,0)) D PVT
Q:$D(AGQUIT)
I $D(^DPT(DFN,"VET")),^("VET")="Y" D VET
S DIC=9000001.41,DR=.01,DA=DFN,AG(1)=""
N I S I=0,AG(1)="" F S I=$O(^AUPNPAT(DFN,41,I)) Q:'I D Q:$D(AGQUIT)
.Q:I=DUZ(2)
.;I $Y+6>IOSL D HDR^AGFACE Q:$D(AGQUIT)
.Q:$D(AGQUIT)
.S:$D(AG(1)) COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S:$D(AG(1)) COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="THE PATIENT IS ALSO REGISTERED AT:"
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$P($G(^DIC(4,I,0)),U)_..PutSpace(IOM-$L($P($G(^DIC(4,I,0)),U)_"CHART #: "_$P($G(^AUPNPAT(DFN,41,I,0)),U,2)))_"CHART #: "_$P($G(^AUPNPAT(DFN,41,I,0)),U,2)
.K AG(1)
Q:$D(AGQUIT)
EMP ;PATIENT'S EMPLOYER
S AGEMPIEN=$P($G(^AUPNPAT(DFN,0)),U,19) I AGEMPIEN]"" D
.;I $Y+6>IOSL D HDR^AGFACE Q:$D(AGQUIT)
.S AG(0)=$G(^AUTNEMPL(AGEMPIEN,0)) I AG(0)="" Q
.N I F I=1:1:6 S AG(I)=$P(AG(0),U,I)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PATIENT'S EMPLOYER: "_AG(1)
.F I=2,3 S:AG(I)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_AG(I)
.S:AG(4)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_", "_$P($G(^DIC(5,+AG(4),0)),U,2)
.S:AG(5)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" "_AG(5)
.S:AG(6)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="PHONE: "_AG(6)
Q:$D(AGQUIT)
K AGEMPIEN
SPEMP ;SPOUSE'S EMPLOYER
S AGEMPIEN=$P($G(^AUPNPAT(DFN,0)),U,22) I AGEMPIEN]"" D
.;I $Y+6>IOSL D HDR^AGFACE Q:$D(AGQUIT)
.S AG(0)=$G(^AUTNEMPL(AGEMPIEN,0)) I AG(0)="" Q
.N I F I=1:1:6 S AG(I)=$P(AG(0),U,I)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)="SPOUSE'S EMPLOYER: "_AG(1)
.F I=2,3 S:AG(I)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_AG(I)
.S:AG(4)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_", "_$P($G(^DIC(5,+AG(4),0)),U,2)
.S:AG(5)]"" ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_" "_AG(5)
.S:AG(6)]"" COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_"PHONE: "_AG(6)
Q:$D(AGQUIT)
K AGEMPIEN
ELIG ;ELIGIBILITY FOR CARE
K AG("DRENT") S DIC=9000001,DA=DFN,DR=$S(AGOPT(14)="Y":1124,1:1112) D ^AGDICLK I '$D(AG("LKERR")) S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-")) K ^TMP($J,"W") S X=" *** ELIGIBILITY FOR CARE: "_AG("LKPRINT")_" ***",COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(X),DIWL=5,DIWR=75,DIWF="W" D ^DIWP,^DIWW
K DIWF,DIWL,DIWR
Q
PVT ;I $P(AGL,U)]"",$D(^AUTNINS($P(AGL,U),0)) Q:(($P(AGL,U,7)]"")&(+$P(AGL,U,7)IOSL D HDR^AGFACE Q:$D(AGQUIT)
S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=$G(AG("-"))
K ^UTILITY("DIQ1",$J)
K DIC,DIE,DIR,DIQ,DR
S DIC=2,DA=DFN,AGSCRN=$P($T(@1),";;",2)
F AG=2,3,4,6,7 D
.S X=$P(AGSCRN,";",AG),DR=$P(X,U,4)
.S COUNT=COUNT+1,^TMP($J,"FSRPT",COUNT)=" "_$P(X,U,2)_$P(^DD(2,DR,0),U)_" : "
.D EN^DIQ1
.S ^TMP($J,"FSRPT",COUNT)=^TMP($J,"FSRPT",COUNT)_$G(^UTILITY("DIQ1",$J,2,DA,DR))
.K ^UTILITY("DIQ1",$J)
K ^UTILITY("DIQ1",$J),DR,AGSCRN,X
K DIC,DIE,DIR,DIQ,DR
Q
1 ;;^20^^1901;^13^^.325;^9^^.326;^4^^.327;^8^^.32101;^16^^.301;^22^^.313
]]>
1
NO:%String=""
0
%Text
0 Q " "
F D Q:(+IND>NO)
.I IND>4 S STR=STR_" "
.S IND=IND+1
Q STR
]]>
%RegisteredObject
63525,39511.447226
63342,38876.00928
3.0.0
%SQLQuery
ClinicId:%Integer,StartDate:%Date,EndDate:%Date
BSD_GetSchedulingAccessBlocksQ
1
= ((BSD_GetLastAccessBlockSinceM(:ClinicId, :StartDate))) and STARTTIME <= ((BSD_GetEndOfWeekOdbcM(:EndDate)))]]>
1
ClinicId:%Integer,StartDate:%Date
%Date
BSD_GetLastAccessBlockSinceM
1
%Library.CacheStorage
^BMW.BSF.SP.BsdGetSched8FC9D
BsdGetSchedulingAccessBlocksDefaultData
^BMW.BSF.SP.BsdGetSched8FC9D
^BMW.BSF.SP.BsdGetSched8FC9I
^BMW.BSF.SP.BsdGetSched8FC9S
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,39490.808286
63342,38876.00928
3.0.0
%SQLQuery
ClinicIds:%String,StartDate:%Date,EndDate:%Date
BSD_GetSchedulingAvailableSlotsQ
1
select * from bmw.BSDX_access_block where ien %INLIST (BSD_GetAvailableSlotsM(:ClinicIds,:StartDate,:EndDate))
order by STARTTIME
1
ClinicIds:%String,StartDate:%Date,EndDate:%Date
%List
BSD_GetAvailableSlotsM
1
0 F D Q:(+Clinic'>0)
. S NOC=INDEX,INDEX=INDEX+1
. S Clinic=$P(ClinicIds,",",INDEX)
S NOC=1000/NOC
S INDEX=1
S Clinic=$P(ClinicIds,",",INDEX)
I +Clinic>0 F D Q:(+Clinic'>0)
. S query="select top "_NOC_" IEN from (select * from bmw.BSDX_access_block where resource = '"_Clinic_"' and DATEDIFF(D, STARTTIME,'"_(##class(BMW.BSF.SP.BsdGetSchedulingAvailableSlots).GetLastAvailableSlotsSinceM(Clinic, StartDate))_"') <= 0 ) where DATEDIFF(D, STARTTIME,'"_(##class(BMW.BSF.SP.BsdGetSchedulingConfigAccessBlocks).GetEndOfWeekOdbcM(EndDate))_"') >= 0 Order by STARTTIME"
. S RSLTSET=##class(%ScrollableResultSet).%New()
. S COUNT=RSLTSET.Prepare(query)
. S COUNT=RSLTSET.Execute()
. I COUNT="1" WHILE RSLTSET.Next() {S IENS=IENS_RSLTSET.Data("IEN")_"," }
. S INDEX=INDEX+1
. S Clinic=$P(ClinicIds,",",INDEX)
I $G(IENS)'="" S IENS=$EXTRACT(IENS,1,$L(IENS)-1)
I $L(IENS)<1 Q ""
S IENS=$LISTFROMSTRING(IENS)
Q IENS
]]>
1
ClinicIds:%String,StartDate:%Date
%Date
BSD_GetLastAvailableSlotsSinceM
1
%Library.CacheStorage
^BMW.BSF.SP.BsdGetSched12E2D
BsdGetSchedulingAvailableSlotsDefaultData
^BMW.BSF.SP.BsdGetSched12E2D
^BMW.BSF.SP.BsdGetSched12E2I
^BMW.BSF.SP.BsdGetSched12E2S
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,39449.409566
63342,38876.00928
3.0.0
%SQLQuery
ClinicId:%Integer,EndDate:%Date
BSD_GetConfigAccessBlocksQ
1
= ((BSD_GetLastTwoAccessBlockSinceM(:ClinicId))) and STARTTIME <= ((BSD_GetEndOfWeekOdbcM(:EndDate)))]]>
1
ClinicId:%Integer,StartDate:%Date
%Date
BSD_GetLastAccessBlockM
1
= 0 order by STARTTIME desc)
I $D(ResultDate) I ##class(%Library.FilemanDate).DateToLogical(##class(%Library.Date).OdbcToLogical(StartDate))>=ResultDate Q ##class(%Library.FilemanDate).LogicalToDate($P(ResultDate,"."))
Q ##class(%Library.Date).OdbcToLogical(StartDate)
]]>
1
ClinicIds:%String,StartDate:%Date
%Date
BSD_GetLastAvailableSlotM
1
= 0 order by STARTTIME desc)
I $D(ResultDate) I ##class(%Library.FilemanDate).DateToLogical(##class(%Library.Date).OdbcToLogical(StartDate))>=ResultDate Q ##class(%Library.FilemanDate).LogicalToDate($P(ResultDate,"."))
Q ##class(%Library.Date).OdbcToLogical(StartDate)
]]>
1
ClinicId:%Integer
%Date
BSD_GetLastTwoAccessBlockSinceM
1
1
StartDate:%Date
%Date
BSD_GetStartOfWeekOdbcM
1
1
EndDate:%Date
%Date
BSD_GetEndOfWeekOdbcM
1
1
ClinicId:%Integer,StartDate:%Date
%Date
BSD_GetConfigLastAccessBlockM
1
0 order by STARTTIME desc)
I $D(ResultDate) I ##class(%Library.FilemanDate).DateToLogical(##class(%Library.Date).OdbcToLogical(StartDate))>=ResultDate Q ##class(%Library.FilemanDate).LogicalToDate($P(ResultDate,"."))
Q ##class(%Library.Date).OdbcToLogical(StartDate)
]]>
1
DateOfWeek:%Date
%Date
BSD_GetStartOfWeekM
1
DateOfWeek tStart = tStart - 7
Quit ##class(%Library.Date).LogicalToOdbc(tStart)
]]>
1
DateOfWeek:%Date
%Date
BSD_GetEndOfWeekM
1
DateOfWeek tStart = tStart - 7
Quit ##class(%Library.Date).LogicalToOdbc(tStart)
]]>
%Library.CacheStorage
^BMW.BSF.SP.BsdGetSched764FD
BsdGetSchedulingConfigAccessBlocksDefaultData
^BMW.BSF.SP.BsdGetSched764FD
^BMW.BSF.SP.BsdGetSched764FI
^BMW.BSF.SP.BsdGetSched764FS
100000
listnode
%%CLASSNAME
%RegisteredObject
63817,57322.207001
63344,55658.78317
3.0.0
%SQLQuery
PatientIen:%Text,ClinicIen:%Text,ApptDateTime:%Text,Apptlength:%Integer,ApptReason:%Text,WalkInOrAppt:%Text,NoOfSlots:%Integer,IsOverbook:%Boolean,UserId:%Integer,FacilityId:%Integer
BSD_SetPatientAppointmentQ
1
SELECT (BSD_SetPatientAppointmentM(:PatientIen,:ClinicIen,:ApptDateTime,:Apptlength,:ApptReason,:WalkInOrAppt,:NoOfSlots,
:IsOverbook,:UserId,:FacilityId))
As Result
1
PatientIen:%Text,ClinicIen:%Text,ApptDateTime:%Text,Apptlength:%Integer,ApptReason:%Text,WalkInOrAppt:%Text,NoOfSlots:%Integer,IsOverbook:%Boolean,UserId:%Integer,FacilityId:%Integer
0
%Text
BSD_SetPatientAppointmentM
1
+$G(ApptCount)
{
s IsSlotAvlbl=0
}
}
I IsSlotAvlbl S ERR=$$MAKE^BSDAPI(.BSDR) HANG .02
L -^SC(BSDR("CLN"),"S",BSDR("ADT"))
}
CATCH
{
L -^SC(BSDR("CLN"),"S",BSDR("ADT"))
}
s DTIME=+UserTimeOut ;; set DTIME back to users timeout
I 'IsSlotAvlbl Q "-2^Slot not available"
I $D(RSLT) Q RSLT
I $G(ERR)=0 s RSLT=1
E s RSLT="0^"_$P($G(ERR),"^",2)
;Q RSLT
I $G(RSLT)=1
{
S ApptId=PatientIen_"||"_BSDR("ADT")
&sql(SELECT rowid INTO :RSLT FROM BMW.Appointment_2c2_98
WHERE rowid = :ApptId)
}
Q $G(RSLT)
]]>
%SQLQuery
PatientIen:%Text
BSD_GetPatientAppointmentQ
1
SELECT a.RowId, a.VA_Patient as PATIENT, a.IEN as APPOINTMENT_DATE_TIME, a.APPOINTMENT_DATETIME as APPT_DATE_TIME_STRING,
a.Clinic, a.Current_Status, a.Status, a.Purpose_Of_Visit, a.Appointment_Type, a.NoShowCancelled_By as NO_SHOW_CANCELLED_BY,
a.NoShowCancel_DateTime as NO_SHOW_CANCEL_DATE_TIME, a.Cancellation_Reason, a.Cancellation_Remarks,
a.Appt__Cancelled as APPT_CANCELLED, p.Data_Entry_Clerk as Patient_Entry_Clerk, a.Data_Entry_Clerk as App_Entry_Clerk,
p.Length_Of_Appt, p.Other, p.Ward_loc, a.DATE_APPT__MADE as Date_Appointment_Made, p.Overbook AS OVER_BOOK, p.Check_in_user,
p.Check_out_user, p.CheckedIn AS CHECKED_IN, p.CHecked_out, p.Check_In_Entered, p.Check_Out_Entered
FROM BMW.PATIENT_44_001C44_003 p Right Join BMW.Appointment_2C2_98 a On p.Appointment_44c44_001 = a.Clinic || '||' || a.IEN
and a.VA_PATIENT=:PatientIen and p.Patient=:PatientIen
%Library.CacheStorage
^BMW.BSF.SP.BsdSetPatie65ABD
BsdSetPatientAppointmentDefaultData
^BMW.BSF.SP.BsdSetPatie65ABD
^BMW.BSF.SP.BsdSetPatie65ABI
^BMW.BSF.SP.BsdSetPatie65ABS
100000
%%CLASSNAME
%RegisteredObject
65205,56698.178233
63344,55658.78317
3.0.0
%SQLQuery
PatientIen:%Text,VisitDateTime:%Text,ClinicIen:%Text,ProviderIen:%Text,ApptDateTime:%Text,WalkInOrAppt:%Text,ClinicStopCode:%Text
BSD_SetPatientAppointmentCheckInQ
1
SELECT IEN
FROM BMW.Visit
WHERE IEN= (BSD_SetPatientAppointmentCheckInM(:PatientIen, :VisitDateTime,:ClinicIen,:ProviderIen,:ApptDateTime,:WalkInOrAppt,:ClinicStopCode))
1
PatientIen:%Text,CheckInDateTime:%Text,ClinicIen:%Text,ProviderIen:%Text,ApptDateTime:%Text,WalkInOrAppt:%Text,ClinicStopCode:%Text
cache
0
%Text
BSD_SetPatientAppointmentCheckInM
1
0,$$FMDIFF^XLFDT(CheckInDateTime,$$NOW^XLFDT,2)<301 S CheckInDateTime=$$NOW^XLFDT
;D ADDVISIT^BMW.BMWBSDX(.APCDOUT,PatientIen,CheckInDateTime,ClinicIen,ProviderIen,ApptDateTime,WalkInOrAppt,ClinicStopCode)
S APCDIN("PAT")=PatientIen
S APCDIN("VISIT DATE")=CheckInDateTime
S APCDIN("HOS LOC")=ClinicIen
S APCDIN("SITE")=$$FAC^BSDV(APCDIN("HOS LOC"))
S APCDIN("USR")=DUZ
s APCDIN("TIME RANGE")=-1
S APCDIN("APPT DATE")=ApptDateTime
I +$G(ClinicStopCode)>0 S APCDIN("CLINIC CODE")=ClinicStopCode
I +$G(APCDIN("CLINIC CODE"))<1 S APCDIN("CLINIC CODE")=$$GET1^DIQ(40.7,+$$GET1^DIQ(44,APCDIN("HOS LOC"),8,"I"),1)
S APCDIN("VISIT TYPE")=$P($G(^APCDSITE(APCDIN("SITE"),0)),"^",11)
I $G(APCDIN("VISIT TYPE"))="" S APCDIN("VISIT TYPE")=$$GET1^DIQ(9001000,APCDIN("SITE"),.04,"I")
S APCDIN("SRV CAT")=$$SERCAT^BSDV(APCDIN("HOS LOC"),APCDIN("PAT"))
N VISITDT
S VISTDT=$P(CheckInDateTime,".",1)
// checking if visit already exists for this patient in this clinic for this appointment with this service category and is not marked DELETED
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(select top 1 IEN into :VIEN from bmw.visit where (APPT_DATETIME=:ApptDateTime or APPT_DATETIME is null) and
hospital_location=:ClinicIen and patient_name=:PatientIen and service_category=:APCDIN("SRV CAT")
and DATE_VISIT_CREATED = :VISTDT
and DATETIME_VISIT_DELETED is NULL and (delete_flag is NULL OR delete_flag=0)
)
S RS=""
//IF visit found, only go for Check-In
I $G(VIEN)>0 D
. S RS=VIEN
. ;; If visit found.. only do Check-in..no visit creation...
. ;; set variables used by checkin call
. S BSDR("PAT")=APCDIN("PAT")
. S BSDR("CDT")=APCDIN("VISIT DATE")
. S BSDR("CLN")=$G(APCDIN("HOS LOC"))
. S BSDR("ADT")=$G(APCDIN("APPT DATE"))
. S BSDR("USR")=DUZ
. S BSDR("VIEN") = RS ;;visit IEN (sent if new visit is NOT to be created)
. S ERR=$$CHECKIN^BSDAPI(.BSDR)
. I +ERR=1 s RS="0^"_$P(ERR,"^",2)
I +VIEN>0 Q RS
;K APCDIN,APCDOUT
;N APCDIN,APCDOUT
;S APCDIN("PAT")=PatientIen
;S APCDIN("VISIT DATE")=CheckInDateTime
;S APCDIN("HOS LOC")=ClinicIen
;S APCDIN("SITE")=$$FAC^BSDV(APCDIN("HOS LOC"))
;S APCDIN("USR")=DUZ
;s APCDIN("TIME RANGE")=10
I $G(ProviderIen)>0 S APCDIN("PROVIDER")=ProviderIen
;S APCDIN("APPT DATE")=ApptDateTime
S APCDIN("APCDAPPT")=WalkInOrAppt
;I +$G(ClinicStopCode)>0 S APCDIN("CLINIC CODE")=ClinicStopCode
I +$G(APCDIN("CLINIC CODE"))<1 S APCDIN("CLINIC CODE")=$$GET1^DIQ(40.7,+$$GET1^DIQ(44,APCDIN("HOS LOC"),8,"I"),1)
;S APCDIN("VISIT TYPE")=$P($G(^APCDSITE(APCDIN("SITE"),0)),"^",11)
;I $G(APCDIN("VISIT TYPE"))="" S APCDIN("VISIT TYPE")=$$GET1^DIQ(9001000,APCDIN("SITE"),.04,"I")
;S APCDIN("SRV CAT")=$$SERCAT^BSDV(APCDIN("HOS LOC"),APCDIN("PAT"))
;I $G(APCDIN("SRV CAT"))="" S APCDIN("SRV CAT")=$P($G(^APCDSITE(DUZ(2),0)),"^",12)
S APCDIN("APCDOPT")=$O(^DIC(19,"B","SD IHS PCC LINK",0))
D GETVISIT^APCDAPI4(.APCDIN,.APCDOUT)
I $D(APCDOUT(0))=1 Q $O(APCDOUT(0))
Q $D(APCDOUT(0))
]]>
1
VISTDT:%Text
cache
0
%Text
TestVisitFilter
1
%Library.CacheStorage
^BMW.BSF.SP.BsdSetPatieFFFCD
BsdSetPatientAppointmentCheckInDefaultData
^BMW.BSF.SP.BsdSetPatieFFFCD
^BMW.BSF.SP.BsdSetPatieFFFCI
^BMW.BSF.SP.BsdSetPatieFFFCS
100000
%%CLASSNAME
%RegisteredObject
63525,39320.619237
63344,55658.78317
3.0.0
%SQLQuery
PatientIen:%Text,VisitDateTime:%Text,AppointmentIen:%Text,ClinicIen:%Text,ApptDateTime:%Text
BSD_SetPatientAppointmentUndoCheckInQ
1
SELECT (BSD_SetPatientAppointmentUndoCheckInM(:PatientIen, :VisitDateTime,:AppointmentIen,:ClinicIen,:ApptDateTime)) as IEN
1
PatientIen:%Text,VisitDateTime:%Text,AppointmentIen:%Text,ClinicIen:%Text,ApptDateTime:%Text
cache
0
%Text
BSD_SetPatientAppointmentUndoCheckInM
1
0,$G(IORVON) D MSG^BSDV(IORVON_$P(BSDMSG(I),U,2)_IORVOFF,1,0) Q
;.. D MSG($P(BSDMSG(I),U,2),1,0)
;Q:'$G(^SC(+BSDCLN,"S",BSDDT,1,APTN,"C")) ;not checked-in
Q "1"
]]>
%Library.CacheStorage
^BMW.BSF.SP.BsdSetPatie6475D
BsdSetPatientAppointmentUndoCheckInDefaultData
^BMW.BSF.SP.BsdSetPatie6475D
^BMW.BSF.SP.BsdSetPatie6475I
^BMW.BSF.SP.BsdSetPatie6475S
100000
listnode
%%CLASSNAME
%RegisteredObject
63539,54053.159829
63342,58184.087185
3.0.0
%SQLQuery
HolidayDate:%Text,HolidayName:%Text
BSD_SetSchedulingAddHolidayQ
1
SELECT (BSD_SetSchedulingAddHolidayM(:HolidayDate,:HolidayName)) as Result
1
HolidayDate:%Text,HolidayName:%Text
0
%Text
BSD_SetSchedulingAddHolidayM
1
0 {
NEW SQLCODE,%ROWCOUNT,%ROWID
&sql(UPDATE bmw.Holiday set NAME=:HolidayName WHERE ien=:EXST)
IF SQLCODE=0 {
Q "Update succeeded! Row count="_%ROWCOUNT_", Row ID = "_%ROWID }
ELSE { Q "Update failed, SQLCODE="_SQLCODE }
}
ELSE {
D DT^DILF("TS",HolidayDate,.HolidayDate,,"")
S DIC="^HOLIDAY("
S FDA(40.5,"+1,",.01)=HolidayDate
S FDA(40.5,"+1,",2)=HolidayName
S FDAIENP(1)=HolidayDate
D UPDATE^DIE("","FDA","FDAIENP","ERR1")
I $D(ERR1("DIERR")) S RSLT="~`0^Error adding Holidays: "_$G(ERR1("DIERR","1","TEXT",1)) Q RSLT
I $D(FDAIENP(1)) S RSLT=$G(FDAIENP(1)) Q RSLT
}
Q "0"
]]>
%Library.CacheStorage
^BMW.BSF.SP.BsdSetSched6175D
BsdSetSchedulingAddHolidayDefaultData
^BMW.BSF.SP.BsdSetSched6175D
^BMW.BSF.SP.BsdSetSched6175I
^BMW.BSF.SP.BsdSetSched6175S
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,39259.779975
63342,58184.087185
3.0.0
%SQLQuery
RowId:%Text
BSD_SetSchedulingRemoveHolidayQ
1
SELECT (BSD_SetSchedulingRemoveHolidayM(:RowId)) as Result
1
RecordId:%Text
0
%Text
BSD_SetSchedulingRemoveHolidayM
1
%Library.CacheStorage
^BMW.BSF.SP.BsdSetSchedD9B7D
BsdSetSchedulingRemoveHolidayDefaultData
^BMW.BSF.SP.BsdSetSchedD9B7D
^BMW.BSF.SP.BsdSetSchedD9B7I
^BMW.BSF.SP.BsdSetSchedD9B7S
100000
listnode
%%CLASSNAME
%RegisteredObject
65560,61493.549376
63340,51229.601065
3.0.0
%SQLQuery
AccessCode:%String="",VerifyCode:%String,FacilityIen:%Text
Core_AuthenticateUserQ
1
SELECT (Core_AuthenticateUserM(:AccessCode,:VerifyCode,:FacilityIen)) as IEN
1
AccessCode:%Text,VerifyCode:%Text,FacilityIen:%Text
%Text
Core_AuthenticateUserM
1
GETDATE() ) )
IF +$G(DUZ)>0
{
S X=VerifyCode
I '$$GET^XPAR("SYS","XU VC CASE SENSITIVE") S X=$SYSTEM.SQL.UPPER(X)
S Vcode=$$EN^XUSHSH(X)
&sql(SELECT VERIFY_CODE INTO :VRCODE
FROM BMW.NEW_PERSON
WHERE IEN= :DUZ)
I ($G(VRCODE)'=$G(Vcode)) S Result="-3^"_DUZ Q Result ;Valid access code but invalid verify code
&sql(SELECT DATE_VERIFY_CODE_LAST_CHANGED INTO :VClastChanged
FROM BMW.NEW_PERSON
WHERE IEN=:DUZ AND (DISUSER!='1' OR DISUSER is null)
AND (TERMINATION_DATE is null OR TERMINATION_DATE > GETDATE() ) )
&sql(SELECT top 1 LIFETIME_OF_VERIFY_CODE INTO :VClifeTime
FROM BMW.kernel_system_parameters )
I ($P($H,",")-$P($G(VClastChanged),",")>$G(VClifeTime)) S Result="-1" Q Result
//Facilty Check conditioned for BQRE
If (+$G(FacilityIen)>0)
{
&sql(SELECT IEN INTO :DUZ2
FROM BMW.DIVISION_200C200_02 WHERE NEW_PERSON= :DUZ AND DIVISION= :FacilityIen )
I '$G(DUZ2) S Result="-2" Q Result
}
S Result=DUZ
&sql(update bmw.new_person set last_signon_datetime=GETDATE() where ien=:DUZ) ;; record user's login datetime in new_person table
}
Q Result
]]>
%Library.CacheStorage
^BMW.BSF.SP.CoreAuthentFA50D
CoreAuthenticateUserDefaultData
^BMW.BSF.SP.CoreAuthentFA50D
^BMW.BSF.SP.CoreAuthentFA50I
^BMW.BSF.SP.CoreAuthentFA50S
100000
%%CLASSNAME
%RegisteredObject
63943,61209.788812
63340,53002.202926
3.0.3
%SQLQuery
AccessCode:%Text,CurrentVerifyCode:%Text,NewVerifyCode:%Text,FacilityId:%Text
Core_ChangeVerifyCodeQ
1
SELECT (Core_ChangeVerifyCodeM(:AccessCode,:CurrentVerifyCode,:NewVerifyCode,:FacilityId))
As Result
1
AccessCode:%Text,CurrentVerifyCode:%Text,NewVerifyCode:%Text,FacilityId:%Text
cache
0
%Text
Core_ChangeVerifyCodeM
1
0 S Result="0^"_$P($G(RS),"^",2)
Q Result
]]>
%Library.CacheStorage
^BMW.BSF.SP.CoreChangeV6227D
CoreChangeVerifyCodeDefaultData
^BMW.BSF.SP.CoreChangeV6227D
^BMW.BSF.SP.CoreChangeV6227I
^BMW.BSF.SP.CoreChangeV6227S
100000
%%CLASSNAME
%RegisteredObject
63525,39141.784066
63424,58304.980289
3.0.0
%SQLQuery
Core_GetDatabaseTimeQ
1
SELECT GETDATE() as Result
%Library.CacheStorage
^BMW.BSF.SP.CoreGetData6BB0D
CoreGetDatabaseTimeDefaultData
^BMW.BSF.SP.CoreGetData6BB0D
^BMW.BSF.SP.CoreGetData6BB0I
^BMW.BSF.SP.CoreGetData6BB0S
100000
listnode
%%CLASSNAME
%RegisteredObject
65478,39061.452231
63340,54000.246269
3.0.0
%SQLQuery
UserIen:%Text,FacilityIen:%Text,PatientIen:%Text,ControllerName:%Text,ControllerDescription:%Text,Action:%Text
Core_SetBusaAuditLogQ
1
SELECT (Core_SetBusaAuditLogM(:UserIen,:FacilityIen,:PatientIen,:ControllerName,:ControllerDescription,:Action)) As Result
1
UserIen:%Text,FacilityIen:%Text,PatientIen:%Text,ControllerName:%Text,ControllerDescription:%Text,Action:%Text
0
%Text
Core_SetBusaAuditLogM
1
0 D
. S CAT="S"
. I +$G(PatientIen)>0 S CAT="P",DFN=PatientIen,DET(1)=PatientIen_"^^"_ControllerDescription_"^^"
. S TYPE="W",ACTION=Action,CALL=ControllerName,DESC=ControllerDescription
. S Result=$$LOG^BUSAAPI(TYPE,CAT,ACTION,CALL,DESC,"DET")
. K TYPE,CAT,ACTION,CALL,DESC,DET //get rid of local/session vars
. I +$G(Result)>0 S Result=1
Q Result
]]>
%Library.CacheStorage
^BMW.BSF.SP.CoreSetBusaC6C3D
CoreSetBusaAuditLogDefaultData
^BMW.BSF.SP.CoreSetBusaC6C3D
^BMW.BSF.SP.CoreSetBusaC6C3I
^BMW.BSF.SP.CoreSetBusaC6C3S
100000
%%CLASSNAME
%RegisteredObject
63525,39108.700819
63340,52715.291222
3.0.0
%SQLQuery
PatientIen:%Text
Core_SetPatientContextQ
1
SELECT (Core_SetPatientContextM(:PatientIen)) As Result
1
PatientIen:%Text
cache
0
%Text
Core_SetPatientContextM
1
%Library.CacheStorage
^BMW.BSF.SP.CoreSetPati6127D
CoreSetPatientContextDefaultData
^BMW.BSF.SP.CoreSetPati6127D
^BMW.BSF.SP.CoreSetPati6127I
^BMW.BSF.SP.CoreSetPati6127S
100000
listnode
%%CLASSNAME
%RegisteredObject
63525,39092.48996
63340,53361.385669
3.0.0
%SQLQuery
PatientIen:%Integer,UserIen:%Integer,FacilityIen:%Integer
Core_SetRemotePatientContextQ
1
SELECT (Core_SetRemotePatientContextM(:PatientIen,:UserIen,:FacilityIen)) As Result
1
PatientIen:%Integer,UserIen:%Integer,FacilityIen:%Integer
0
%Text
Core_SetRemotePatientContextM
1
0 S LST("DUZ",UserIen)=""
S Result=$$BRDCAST^CIANBEVT("CONTEXT.PATIENT",+PatientIen,.LST)
I '$D(Result) Q 1
Q Result
]]>
%Library.CacheStorage
^BMW.BSF.SP.CoreSetRemo924ED
CoreSetRemotePatientContextDefaultData
^BMW.BSF.SP.CoreSetRemo924ED
^BMW.BSF.SP.CoreSetRemo924EI
^BMW.BSF.SP.CoreSetRemo924ES
100000
listnode
%%CLASSNAME
%RegisteredObject
63608,39119.204326
63340,61206.508267
3.0.0
%SQLQuery
UserIen:%Text,FacilityIen:%Text
Core_SetSessionVariablesQ
1
SELECT (Core_SetSessionVariablesM(:UserIen, :FacilityIen)) as Result
1
UserIen:%Text,FacilityIen:%Text
cache
0
%Text
Core_SetSessionVariablesM
1
%Library.CacheStorage
^BMW.BSF.SP.CoreSetSessD43AD
CoreSetSessionVariablesDefaultData
^BMW.BSF.SP.CoreSetSessD43AD
^BMW.BSF.SP.CoreSetSessD43AI
^BMW.BSF.SP.CoreSetSessD43AS
100000
listnode
%%CLASSNAME
%RegisteredObject
63523,52840.03926
63516,57595.078289
3.0.0
%SQLQuery
FileNumber:%String,WpFieldNumber:%String,RowId:%BigInt,Notes:%Text,IsAppend:%Boolean,IsDelete:%Boolean
Core_SetWordProcessingQ
1
SELECT (Core_SetWordProcessingM(:FileNumber,:WpFieldNumber,:RowId,:Notes,:IsAppend,:IsDelete)) as Result
1
FileNumber:%String,WpFieldNumber:%String,RowId:%BigInt,Notes:%Text,IsAppend:%Boolean,IsDelete:%Boolean
0
%Text
Core_SetWordProcessingM
1
%RegisteredObject
63525,38927.566074
63340,51832.415699
3.0.0
%SQLQuery
UserIen:%String="",Esig:%String
Core_VerifyESignatureQ
1
SELECT (Core_VerifyESignatureM(:UserIen,:Esig)) as Result
1
UserIen:%String="",Esig:%String
%Text
Core_VerifyESignatureM
1
%Library.CacheStorage
^BMW.BSF.SP.CoreVerifyEE28AD
CoreVerifyESignatureDefaultData
^BMW.BSF.SP.CoreVerifyEE28AD
^BMW.BSF.SP.CoreVerifyEE28AI
^BMW.BSF.SP.CoreVerifyEE28AS
100000
listnode
%%CLASSNAME
view
BMW.DATEOFINJURY9000041C90000410101,BMW.EFFECTIVEDATE90000430101C90000430111,BMW.ELIGIBILITY9000003C900000311,BMW.ELIGIBILITY9000005C900000511,BMW.ELIGIBILITYDATES9000004C900000411,BMW.GUARANTOR9000043C90000430101,BMW.INSURER9000006C900000611,BMW.MEDICAIDELIGIBLE,BMW.MEDICAREELIGIBLE,BMW.RAILROADELIGIBLE,BMW.VAPATIENT
1
_SYSTEM
0
AG_ALTERNATE_RESOURCE_DETAIL_VIEW
65069,51018.229019
63426,65196.549078
Code end as POLICY_NUMBER, m.MEDICARE_NAME as SUBSCRIBER,
'MEDICARE' as TYPE,m.INSURER_POINTER_NAME as INSURER_NAME, m.INSURER_POINTER as INSURER, 'M'||m.RowId as POLICY_HOLDER, m.PATIENT_NAME||',11,'||EDD.IEN||',0' RECORD_PTR, null as RATE_CODE, null as GROUP_ID, 25 as RELATIONSHIP,
EDD.ELIG__DATE as START_DATE, EDD.COVERAGE_TYPE as COVERAGE, EDD.ELIG__END_DATE as END_DATE, EDD.PLAN_NAME as Plan
from BMW.MEDICARE_ELIGIBLE m, BMW.ELIGIBILITY_9000003C9000003_11 as EDD where EDD.MEDICARE_ELIGIBLE=m.RowId
UNION
select ROWID,PATIENT,POLICY_NUMBER,SUBSCRIBER, TYPE, INSURER_NAME, INSURER as INSURER, POLICY_HOLDER,Id||',11,'||RECORD_PTR||',0' RECORD_PTR, RATE_CODE,GROUP_ID,RELATIONSHIP,START_DATE,COVERAGE,END_DATE, Plan from (
select md.RowId as Id,EDD.IEN,md.ROWID||':MD' as ROWID, md.PATIENT_NAME as PATIENT, md.MEDICAID_NUMBER as POLICY_NUMBER, md.MEDICAID_NAME as SUBSCRIBER,
'MEDICAID' as TYPE, CASE WHEN md.PLAN_NAME_NAME is not null then md.PLAN_NAME_NAME else md.STATE_NAME || ' - ' || md.INSURER_POINTER_NAME end
as INSURER_NAME, md.INSURER_POINTER as INSURER, 'D'||md.RowId as POLICY_HOLDER, RATE_CODE as RATE_CODE, GROUP_NAME as GROUP_ID, RELATIONSHIP_TO_INSURED as RELATIONSHIP,
(select top(1) ED.ELIG__DATE from BMW.ELIGIBILITY_DATES_9000004C9000004_11 as ED where ED.MEDICAID_ELIGIBLE=MD.RowId order by ED.RowId desc) as START_DATE,
(select top(1) ED.ELIG__END_DATE from BMW.ELIGIBILITY_DATES_9000004C9000004_11 as ED where ED.MEDICAID_ELIGIBLE=MD.RowId order by ED.RowId desc) as END_DATE,
(select top(1) ED.COVERAGE_TYPE from BMW.ELIGIBILITY_DATES_9000004C9000004_11 as ED where ED.MEDICAID_ELIGIBLE=MD.RowId order by ED.RowId desc) as COVERAGE,
(select top(1) ED.IEN from BMW.ELIGIBILITY_DATES_9000004C9000004_11 as ED where ED.MEDICAID_ELIGIBLE=MD.RowId order by ED.RowId desc) as RECORD_PTR, md.PLAN_NAME as Plan from BMW.MEDICAID_ELIGIBLE as md,BMW.ELIGIBILITY_DATES_9000004C9000004_11 as EDD where EDD.MEDICAID_ELIGIBLE=md.RowId) group by ROWID
UNION
select t.ROWID||':T' as ROWID, t.THIRD_PARTY_LIABILITY as PATIENT, t.POLICY_NUMBER, t.RESPONSIBLE_PARTY_NAME as SUBSCRIBER,
'THIRD PARTY LIABILITY' as TYPE ,t.INSURER_NAME as INSURER_NAME, t.INSURER as INSURER, '' as POLICY_HOLDER, '' as RECORD_PTR,'' as RATE_CODE, null as GROUP_ID, null as RELATIONSHIP,EDD.EFFECTIVE_DATE as START_DATE, EDD.CAUSE_OF_INJURY as COVERAGE, EDD.ENDING_DATE as END_DATE, null as Plan from BMW.DATE_OF_INJURY_9000041C9000041_0101 as t, BMW.DATE_OF_INJURY_9000041C9000041_0101 as EDD where EDD.ROWID=t.RowId
UNION
select r.ROWID||':R' as ROWID, r.PATIENT_NAME as PATIENT, r.RAILROAD_NUMBER as POLICY_NUMBER, RAILROAD_NAME as SUBSCRIBER,
'RAIL ROAD' as Type ,r.INSURER_POINTER_NAME as INSURER_NAME, r.INSURER_POINTER as INSURER, 'R'||r.RowId as POLICY_HOLDER, r.PATIENT_NAME||',11,'||EDD.IEN||',0' RECORD_PTR,null as RATE_CODE, null as GROUP_ID, 25 as RELATIONSHIP,EDD.ELIG__DATE as START_DATE, Case when EDD.PLAN_NAME_NAME is not null then EDD.PLAN_NAME_NAME Else EDD.COVERAGE_TYPE end as COVERAGE, EDD.ELIG__END_DATE as END_DATE, null as Plan from BMW.RAILROAD_ELIGIBLE as r, BMW.ELIGIBILITY_9000005C9000005_11 as EDD where EDD.RAILROAD_ELIGIBLE=r.RowId
UNION
select p.ROWID||':P' as ROWID, p.PRIVATE_INSURANCE_ELIGIBLE as PATIENT, p.POLICY_NUMBER, p.POLICY_HOLDER_NAME_OF_POLICY_HOLDER as SUBSCRIBER, 'PRIVATE' as TYPE ,p.INSURER_NAME as INSURER_NAME,
p.INSURER as INSURER, 'P'||p.POLICY_HOLDER as POLICY_HOLDER, p.PRIVATE_INSURANCE_ELIGIBLE||',11,'||P.Ien||',0' RECORD_PTR, null as RATE_CODE, POLICY_HOLDER->GROUP_NAME as GROUP_ID, null as RELATIONSHIP,p.ELIG__DATE as START_DATE, p.COVERAGE_NAME as COVERAGE, p.ELIG__END_DATE as END_DATE, null as Plan from BMW.INSURER_9000006C9000006_11 as p
UNION
select w.ROWID||':W' as ROWID, w.NAME as PATIENT,
EDD.CLAIM_NUMBER as POLICY_NUMBER, EDD.PATIENTS_EMPLOYER_EMPLOYER as SUBSCRIBER, 'WORKMANS COMPENSATION' as TYPE ,EDD.ENTITY_NAME as INSURER_NAME,
EDD.ENTITY as INSURER,EDD.PATIENTS_EMPLOYER as POLICY_HOLDER, EDD.WORKMANS_COMPENSATION||','||EDD.IEN as RECORD_PTR, null as RATE_CODE , null as GROUP_ID, null as RELATIONSHIP,EDD.EFFECTIVE_DATE as START_DATE, 'W' as COVERAGE, EDD.EXPIRATION_DATE as END_DATE, null as Plan from BMW.WORKMANS_COMPENSATION as w, BMW.DATE_OF_WC_INJURY_9000042C9000042_11 as EDD where EDD.WORKMANS_COMPENSATION=w.RowId
UNION
select g.ROWID||':G' as ROWID, g.GUARANTOR as PATIENT,
g.PO_NUMBER as POLICY_NUMBER, p.NAME as SUBSCRIBER, 'GUARANTOR' as TYPE ,
(select name from bmw.VA_PATIENT where ien=GUARANTOR0_CHECKING_PATIENT_FILE_NAME) || ' [G]' as INSURER_NAME,
GUARANTOR0_CHECKING_PATIENT_FILE_NAME as INSURER, '' as POLICY_HOLDER,g.GUARANTOR||',1,'||EDD.IEN RECORD_PTR,null as RATE_CODE, null as GROUP_ID, RELATIONSHIP_TO_GUARANTOR as RELATIONSHIP,EDD.EFFECTIVE_DATE as START_DATE, 'G' as COVERAGE, EDD.ENDING_DATE as END_DATE, null as Plan
from BMW.GUARANTOR_9000043C9000043_0101 as g inner join BMW.VA_PATIENT as p On g.GUARANTOR = p.IEN inner join BMW.EFFECTIVE_DATE_9000043_0101C9000043_0111 as EDD on EDD.GUARANTOR_9000043C9000043_0101=g.RowId ]]>
1
3.0.0
view
BMW.DATEOFINJURY9000041C90000410101,BMW.DATEOFWCINJURY9000042C900004211,BMW.GUARANTOR9000043C90000430101,BMW.INSURER9000006C900000611,BMW.MEDICAIDELIGIBLE,BMW.MEDICAREELIGIBLE,BMW.RAILROADELIGIBLE,BMW.VAPATIENT
1
_SYSTEM
0
AG_ALTERNATE_RESOURCE_VIEW
63909,42874.628863
62684,43586.69239
POLICY_NUMBER as POLICY_NUMBER,
p.POLICY_HOLDER_NAME_OF_POLICY_HOLDER as SUBSCRIBER, 'PRIVATE' as TYPE ,p.INSURER_NAME as INSURER_NAME,
p.INSURER as INSURER,null as RATE_CODE, POLICY_HOLDER->GROUP_NAME as GROUP_ID, null as RELATIONSHIP from BMW.INSURER_9000006C9000006_11 as p
UNION select w.ROWID||':W' as ROWID, w.WORKMANS_COMPENSATION as PATIENT,
w.CLAIM_NUMBER as POLICY_NUMBER, w.PATIENTS_EMPLOYER_EMPLOYER as SUBSCRIBER, 'WORKMANS COMPENSATION' as TYPE ,w.ENTITY_NAME as INSURER_NAME,
w.ENTITY as INSURER,null as RATE_CODE , null as GROUP_ID, null as RELATIONSHIP from BMW.DATE_OF_WC_INJURY_9000042C9000042_11 as w UNION
select g.ROWID||':G' as ROWID, g.GUARANTOR as PATIENT,
g.REFERENCE_NUMBER as POLICY_NUMBER, p.NAME as SUBSCRIBER, 'GUARANTOR' as TYPE ,
CASE WHEN g.GUARANTOR0_CHECKING_EMPLOYER_FILE_EMPLOYER is not null Then g.GUARANTOR0_CHECKING_EMPLOYER_FILE_EMPLOYER When
g.GUARANTOR0_CHECKING_IN_INSURER_FILE_NAME is not null Then g.GUARANTOR0_CHECKING_IN_INSURER_FILE_NAME
Else (select Name from BMW.VA_PATIENT where IEN=g.GUARANTOR0_CHECKING_PATIENT_FILE) END as INSURER_NAME,
g.GUARANTOR0_CHECKING_IN_INSURER_FILE as INSURER, null as RATE_CODE, null as GROUP_ID, RELATIONSHIP_TO_GUARANTOR as RELATIONSHIP from BMW.GUARANTOR_9000043C9000043_0101 as g inner join BMW.VA_PATIENT as p On g.GUARANTOR = p.IEN]]>
1
3.0.0
view
BMW.ASSIGNEDTOBENEFITCOORD9000044C900004411,BMW.BENEFITCOORDINATORCASES
1
_SYSTEM
0
AG_BENEFIT_COORDINATOR_CASES_VIEW
63426,64259.829075
62684,43684.8569
SELECT atb.ROWID, bc.PATIENT_NAME as PATIENT, atb.DATE_ASSIGNED, atb.ASSIGNED_TO as ASSIGNED_TO, atb.USER_INITIAL, atb.ASSIGNED_BY, atb.CASE_NUMBER, atb.CASE_TYPE, atb.STATUS, atb.CASE_WORKER, atb.COMPLETED_BY, atb.DATE_COMPLETED, atb.CASE_REASON, atb.NOTES, bc.PATIENT_NAME || '||' || atb.IEN as CASE_ID, atb.ASSIGNED_BY_NAME,atb.ASSIGNED_TO_NAME,atb.COMPLETED_BY_NAME FROM BMW.BENEFIT_COORDINATOR_CASES bc INNER JOIN BMW.ASSIGNED_TO_BENEFIT_COORD_9000044C9000044_11 atb ON atb.BENEFIT_COORDINATOR_CASES=bc.IEN
1
3.0.0
view
BMW.EMPLOYER,BMW.INSURER,BMW.VAPATIENT
1
_SYSTEM
0
AG_GUARANTOR_INSURER_VIEW
63426,64277.6654
62684,43955.401207
select 'PATIENT' as Type,ROWID||'-P' as ROWID, NAME,STREET_ADDRESS_LINE_1 as STREET,CITY,STATE,ZIP_CODE as ZIP,SEX,DATE_OF_BIRTH from BMW.va_PATIENT union select 'EMPLOYER' as Type, ROWID||'-E' as ROWID, EMPLOYER as NAME,STREET_ADDRESS as STREET ,CITY,STATE,ZIP,null as SEX, null as DATE_OF_BIRTH from BMW.employer union select 'INSURER' as Type,ROWID||'-I' as ROWID, NAME,STREET ,CITY,STATE,ZIP,null as SEX, null as DATE_OF_BIRTH from BMW.insurer where Type_of_insurer = 'G'
1
3.0.0
view
BMW.INTERNETACCESSQUESTIONDATE9000001C900000181
1
_SYSTEM
0
AG_INTERNET_ACCESS_QUESTION_VIEW
63426,64292.097858
62684,44102.262942
select * from BMW.INTERNET_ACCESS_QUESTION_DATE_9000001C9000001_81 as a where a.IEN =( select max(cast(IEN as int)) from BMW.INTERNET_ACCESS_QUESTION_DATE_9000001C9000001_81 where patient=a.Patient )
1
3.0.0
view
BMW.DATEAPPLICATIONOBTAINED9000045C900004511,BMW.DATEAPPLICATIONSUBMITTED900004511C90000451101,BMW.PATIENTAPPLICATIONS
1
_SYSTEM
0
AG_PATIENT_APPLICATIONS_VIEW
63426,64309.576049
62684,44328.300977
SELECT dao.ROWID, pa.PATIENT_NAME as PATIENT, dao.DATE_APPLICATION_OBTAINED, dao.APPLICATION_TYPE, dao.PERSON_RECEIVING_APPLICATION, dao.OVERALL_STATUS_OF_APPLICATION, pa.PATIENT_NAME || '||' || dao.BENEFIT_COORDINATOR_CASE as CASE_ID, submit.DATE_APPLICATION_SUBMITTED, submit.APPLICATION_SUBMITTED_VIA, submit.REASON_FOR_SUBMISSION, submit.SUBMITTED_BY,submit.SUBMITTED_BY_NAME,dao.APPLICATION_TYPE_APPLICATION_TYPE,dao.PERSON_RECEIVING_APPLICATION_NAME FROM BMW.PATIENT_APPLICATIONS pa INNER JOIN BMW.DATE_APPLICATION_OBTAINED_9000045C9000045_11 dao ON dao.PATIENT_APPLICATIONS=pa.IEN LEFT OUTER JOIN BMW.DATE_APPLICATION_SUBMITTED_9000045_11C9000045_1101 submit ON submit.DATE_APPLICATION_OBTAINED_9000045C9000045_11 = dao.RowId
1
3.0.0
view
BMW.BSF.VW.AGPATIENTNOTES,BMW.ETHNICITYINFORMATION2C206,BMW.LANGUAGESENTRYDATE9000001C900000186,BMW.PATIENT,BMW.VAPATIENT
1
_SYSTEM
0
AG_PATIENT_DEMOGRAPHICS_VIEW
65414,57815.643135
62684,44410.429001
0 THEN 1 ELSE 0 END FROM BMW_BSF_VW.AG_PATIENT_NOTES note where note.patient=va.ien) AS HAS_NOTES,
GI.GENDER_IDENTITY, SO.SEXUAL_ORIENTATION, LS.LEGAL_SEX, ihs.PRONOUNS FROM BMW.VA_Patient as va INNER JOIN BMW.Patient ihs ON ihs.Name=va.IEN
LEFT JOIN (select * from BMW.LANGUAGES_ENTRY_DATE_9000001C9000001_86 as a
where a.IEN =( select max(cast(IEN as int)) from BMW.LANGUAGES_ENTRY_DATE_9000001C9000001_86 where patient=a.Patient )) as lang
ON lang.PATIENT=va.IEN
LEFT JOIN (select top(1) * from BMW.GENDER_IDENTITY_9000001_9401C9000001_94011 a, BMW.GENDER_IDENTITY_9000001C9000001_9401 b
where a.GENDER_IDENTITY_9000001C9000001_9401=b.ROWID and a.GENDER_IDENTITY_9000001C9000001_9401 =b.PATIENT || '||' || ( select max(cast(IEN as int))
from BMW.GENDER_IDENTITY_9000001C9000001_9401 where patient=b.Patient )) as GI ON GI.PATIENT=va.IEN
LEFT JOIN (select top(1) * from BMW.SEXUAL_ORIENTATION_9000001_9301C9000001_93011 a, BMW.SEXUAL_ORIENTATION_9000001C9000001_9301 b
where a.SEXUAL_ORIENTATION_9000001C9000001_9301=b.ROWID
and a.SEXUAL_ORIENTATION_9000001C9000001_9301=b.PATIENT || '||' || ( select max(cast(IEN as int)) from BMW.SEXUAL_ORIENTATION_9000001C9000001_9301
where patient=b.Patient )) as SO ON SO.PATIENT=va.IEN
LEFT JOIN (select * from BMW.LEGAL_SEX_9000001C9000001_9201 as a where a.IEN =( select max(cast(IEN as int))
from BMW.LEGAL_SEX_9000001C9000001_9201 where patient=a.Patient )) as LS ON LS.PATIENT=va.IEN ]]>
1
3.0.0
view
BMW.PATIENT,BMW.VAPATIENT
1
_SYSTEM
0
AG_PATIENT_FACE_SHEET_VIEW
63426,64342.021374
62684,44493.971008
SELECT va.IEN as ROWID, va.NAME, ihs.PRINTABLE_SSN AS SSN, va.SEX, va.DATE_OF_BIRTH, va.PLACE_OF_BIRTH_CITY, va.PLACE_OF_BIRTH_STATE_NAME as PLACE_OF_BIRTH_STATE, va.STREET_ADDRESS_LINE_1 as ADDRESS, va.CITY, va.STATE_NAME as STATE, va.ZIP_CODE, va.PHONE_NUMBER_RESIDENCE as HOME_PHONE, va.PHONE_NUMBER_WORK as WORK_PHONE, ihs.DATE_ESTABLISHED AS DATE_REGISTERED, IHS.DATE_OF_LAST_REG__UPDATE AS DATE_LAST_UPDATED, ihs.OTHER_PHONE, va.RACE_NAME AS RACE, va.MARITAL_STATUS, va.FATHERS_NAME as FATHER_NAME, va.MOTHERS_MAIDEN_NAME as MOTHER_NAME, va.RELIGIOUS_PREFERENCE AS RELIGION, va.ENAME as EMERGENCY_CONTACT, va.EPHONE_NUMBER as EMERGENCY_CONTACT_PHONE,va.EWORK_PHONE_NUMBER AS EMERGENCY_CONTACT_WORK_PHONE , va.ESTREET_ADDRESS_LINE_1 as EMERGENCY_CONTACT_ADDRESS, va.ECITY as EMERGENCY_CONTACT_CITY, va.ESTATE_NAME as EMERGENCY_CONTACT_STATE, va.EZIP_CODE as EMERGENCY_CONTACT_ZIP_CODE, ihs.EC_RELATIONSHIP as EMERGENCY_CONTACT_RELATIONSHIP,ihs.EC_RELATIONSHIP_RELATIONSHIP as EMERGENCY_CONTACT_RELATIONSHIP_NAME, va.KNAME_OF_PRIMARY_NOK as NEXT_OF_KIN, va.KPHONE_NUMBER as NEXT_OF_KIN_PHONE, va.KWORK_PHONE_NUMBER AS NEXT_OF_KIN_WORK_PHONE, va.KSTREET_ADDRESS_LINE_1 as NEXT_OF_KIN_ADDRESS, va.KCITY as NEXT_OF_KIN_CITY, va.KSTATE_NAME as NEXT_OF_KIN_STATE, va.KZIP_CODE as NEXT_OF_KIN_ZIP_CODE, ihs.NOK_RELATIONSHIP as NEXT_OF_KIN_RELATIONSHIP ,ihs.NOK_RELATIONSHIP_RELATIONSHIP as NEXT_OF_KIN_RELATIONSHIP_NAME, va.DATE_OF_DEATH, ihs.INDIAN_BLOOD_QUANTUM, ihs.TRIBE_QUANTUM, ihs.NUMBER_IN_HOUSEHOLD as NUMBER_IN_HOUSEHOLD, ihs.TOTAL_HOUSEHOLD_INCOME as TOTAL_HOUSEHOLD_INCOME, ihs.HOUSEHOLD_INCOME_PERIOD as FAMILY_HOUSEHOLDINCOMEPERIOD_ID, ihs.TRIBAL_ENROLLMENT_NO_ as TRIBAL_ENROLLMENT_NUMBER, ihs.CURRENT_RESIDENCE_DATE, ihs.TRIBE_OF_MEMBERSHIP_NAME AS TRIBE, ihs.ELIGIBILITY_STATUS, ihs.REASON_FOR_NO_SSN, ihs.SSN_VERIFICATION_STATUS AS SSN_STATUS, ihs.SSN_VERIFICATION_STATUS_CODE AS SSN_STATUS_CODE,ihs.CURRENT_RESIDENCE_PTR_NAME as COMMUNITY, ihs.MOTHERS_CITY_OF_BIRTH as MOTHER_BIRTH_CITY, ihs.FATHERS_CITY_OF_BIRTH as FATHER_BIRTH_CITY, ihs.FATHERS_STATE_OF_BIRTH_NAME as FATHER_BIRTH_STATE, ihs.MOTHERS_STATE_OF_BIRTH_NAME as MOTHER_BIRTH_STATE, ihs.FATHERS_PHONE as FAMILY_FATHERS_PHONE, ihs.MOTHERS_PHONE as FAMILY_MOTHERS_PHONE, ihs.CLASSIFICATIONBENEFICIARY_NAME as CLASS, ihs.EMPLOYER_NAME as EMPLOYER, ihs.EMPLOYMENT_STATUS, ihs.LOCATION_OF_HOME, ihs.DEATH_CERTIFICATE_NO_ as DEATH_CERTIFICATE_NO, ihs.STATE_OF_DEATH, ihs.UNDERLYING_CAUSE_OF_DEATH, ihs.ADDITIONAL_REGISTRATION_INFO as NOTES,ihs.PREFERRED_REMINDER_METHOD,ihs.CURRENT_EMAIL_ADDRESS FROM BMW.VA_Patient as va INNER JOIN BMW.Patient ihs ON ihs.Name=va.IEN
1
3.0.0
view
BMW.PRFASSIGNMENT
1
_SYSTEM
0
AG_PATIENT_FLAG_VIEW
63426,64359.519289
62684,44620.255601
0 then 1 else 0 end as HAS_FLAGS From BMW.PRF_ASSIGNMENT Where Status = 1]]>
1
3.0.0
view
1
_SYSTEM
0
AG_PATIENT_GENDER_IDENTITY_VIEW
65441,51263.9174
65382,9939.86153
select ENTRY.PATIENT as PATIENT, ENTRY.DATE_01 as DATE_ENTERED, GI.GENDER_IDENTITY,
ENTRY.IEN as GENDER_IDENTITY_ENTRY_IEN, GI.RowId as GENDER_IDENTITY_ENTRY_ID, ENTRY.OTHER as OTHER
from BMW.GENDER_IDENTITY_9000001C9000001_9401 ENTRY
left join BMW.GENDER_IDENTITY_9000001_9401C9000001_94011 GI
ON GI.GENDER_IDENTITY_9000001C9000001_9401=ENTRY.ROWID
WHERE GI.ROWID IS NOT NULL
1
3.0.0
Custom code class to retrieve patient notes
persistent
_SYSTEM
0
RowId
AG_PATIENT_NOTES
SQLStorage
%Library.Persistent
63525,43633.746127
63168,38886.144323
BMW.PATIENT
3.0.0
1
PATIENT,IEN
FileMan Field Label: '' FileMan Field Number: '.01'
%Library.String
1
4
NOTE
1
%Library.String
-999
1
PATIENT
1
Child Counter Field
%Library.String
-999
1
IEN
IENS Field
%Library.String
1
Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_","
1
IENS
1
%Library.CacheSQLStorage
^BMW.BSF.VW.AGPATIENTNOTESS
100000
data
0
^AUPNPAT
{PATIENT}
s:{L1}="" {L1}=0 s {L1}=$o(^({L1})) s:'{L1} {L1}=""
;PREV
s:{L1}="" {L1}=":" s {L1}=$o(^({L1}),-1) s:'{L1} {L1}=""
0]]>
13
{IEN}
s:{L3}="" {L3}=0 s {L3}=$o(^({L3})) s:'{L3} {L3}=""
;PREV
s:{L3}="" {L3}=0 s {L3}=$o(^({L3}),-1) s:'{L3} {L3}=""
0]]>
"^"
0
1
view
BMW.LANGUAGESENTRYDATE9000001C900000186,BMW.OTHERLANGUAGESPOKEN900000186C90000018605
1
_SYSTEM
0
AG_PATIENT_OTHER_LANGUAGES_VIEW
63426,64373.436664
62684,45690.959273
SELECT ol.OTHER_LANGUAGE_SPOKEN as OTHER_LANGUAGE, entry.ROWID as LANGUAGE_ENTRY_ID, entry.PATIENT as PATIENT_ID, entry.IEN as LANGUAGE_ENTRY_IEN FROM BMW.OTHER_LANGUAGE_SPOKEN_9000001_86c9000001_8605 ol join BMW.LANGUAGES_ENTRY_DATE_9000001C9000001_86 entry on ol.LANGUAGES_ENTRY_DATE_9000001C9000001_86 = entry.RowId
1
3.0.0
view
BMW.NOTICEOFPRIVACYPRACTICES,BMW.PATIENT,BMW.RESTRICTEDHEALTHINFORMATION,BMW.VAPATIENT
1
_SYSTEM
0
AG_PATIENT_PROFILE_VIEW
65393,55933.330195
62684,45798.904343
SELECT
ihs.PRIVACY_ACT, va.IEN as ROWID, ihs.Preferred_Name, ihs.PRONOUNS, ihs.PRONOUNS_OTHER, va.FATHERS_NAME as FAMILY_FATHERS_NAME, va.MOTHERS_MAIDEN_NAME as FAMILY_MOTHERS_MAIDEN_NAME, va.VETERAN_YN as VETERAN_IS_VETERAN, va.SERVICE_CONNECTED, va.SERVICE_ENTRY_DATE_LAST, va.SERVICE_SEPARATION_DATE_LAST, va.SERVICE_BRANCH_LAST as SERVICE_BRANCHLAST_ID, va.KNAME_OF_PRIMARY_NOK as NEXT_OF_KIN_NAME, va.KWORK_PHONE_NUMBER as NEXT_OF_KIN_WORK_PHONE, va.KPHONE_NUMBER as NEXT_OF_KIN_PHONE_NUMBER, va.KSTREET_ADDRESS_LINE_1 as NEXT_OF_KIN_STREET_ADDRESS_LINE1, va.KSTREET_ADDRESS_LINE_2 as NEXT_OF_KIN_STREET_ADDRESS_LINE2, va.KSTREET_ADDRESS_LINE_3 as NEXT_OF_KIN_STREET_ADDRESS_LINE3, va.KCITY as NEXT_OF_KIN_CITY, va.KSTATE as NEXT_OF_KIN_STATE_ID, va.KZIP_CODE as NEXT_OF_KIN_ZIP_CODE, ihs.NOK_RELATIONSHIP as NEXT_OF_KIN_RELATIONSHIP_ID , va.DATE_OF_DEATH, ihs.INDIAN_BLOOD_QUANTUM, ihs.TRIBE_QUANTUM, ihs.NUMBER_IN_HOUSEHOLD as FAMILY_NUMBER_IN_HOUSEHOLD, ihs.TOTAL_HOUSEHOLD_INCOME as FAMILY_TOTAL_HOUSEHOLD_INCOME, ihs.HOUSEHOLD_INCOME_PERIOD as FAMILY_HOUSEHOLDINCOMEPERIOD_ID, ihs.TRIBAL_ENROLLMENT_NO_ as TRIBAL_ENROLLMENT_NO, ihs.TRIBE_OF_MEMBERSHIP, ihs.SPOUSES_EMPLOYER_NAME as FAMILY_SPOUSESEMPLOYER_ID, ihs.MOTHERS_EMPLOYER_Name AS FAMILY_MOTHERSEMPLOYER_ID, ihs.FATHERS_EMPLOYER_Name as FAMILY_FATHERSEMPLOYER_ID, ihs.MOTHERS_CITY_OF_BIRTH as FAMILY_MOTHERS_BIRTH_CITY, ihs.FATHERS_CITY_OF_BIRTH as FAMILY_FATHERS_BIRTH_CITY, ihs.FATHERS_STATE_OF_BIRTH as FAMILY_FATHERSBIRTHSTATE_ID, ihs.MOTHERS_STATE_OF_BIRTH as FAMILY_MOTHERSBIRTHSTATE_ID, ihs.FATHERS_EMAIL_ADDRESS as FAMILY_FATHERS_EMAIL_ADDRESS, ihs.MOTHERS_EMAIL_ADDRESS as FAMILY_MOTHERS_EMAIL_ADDRESS, ihs.FATHERS_PHONE as FAMILY_FATHERS_PHONE, ihs.MOTHERS_PHONE as FAMILY_MOTHERS_PHONE, ihs.FATHERS_CELL_PHONE as FAMILY_FATHERS_CELL_PHONE, ihs.MOTHERS_CELL_PHONE as FAMILY_MOTHERS_CELL_PHONE, ihs.DEATH_CERTIFICATE_NO_ as DEATH_CERTIFICATE_NO, ihs.STATE_OF_DEATH, ihs.UNDERLYING_CAUSE_OF_DEATH, va.CLAIM_NUMBER as VETERAN_CLAIM_NUMBER, va.SERVICE_CONNECTED as VETERAN_SERVICE_CONNECTED, va.SERVICE_ENTRY_DATE_LAST as VETERAN_SERVICE_ENTRY_DATE, va.SERVICE_SEPARATION_DATE_LAST as VETERAN_SERVICE_SEPARATION_DATE, va.VIETNAM_SERVICE_INDICATED as VETERAN_VIETNAMSERVICEINDICATED_ID, va.SERVICE_BRANCH_LAST as VETERAN_SERVICEBRANCH_ID, ihs.DESCRIPTION_OF_VA_DISABILITY as VETERAN_DESCRIPTION_OF_VA_DISABILITY, ihs.VALID_VA_CARD as VETERAN_VALID_VA_CARD, ihs.DATE_VA_CARD_COPY_OBTAINED as VETERAN_DATE_VA_CARD_COPY_OBTAINED, rhi.RESTRICTED_HEALTH_INFORMATION as RHI_RHI, rhi.STATUS_CODE as RHI_STATUS_ID, rhi.PENDING_DATE as RHI_PENDING_DATE, rhi.PENDING_ENTEREDUPDATED_BY as RHI_PENDINGENTEREDUPDATEDBY_ID, rhi.PENDING_ENTEREDUPDATED_DATE as RHI_PENDING_ENTEREDUPDATED_DATE, rhi.APPROVED_DATE as RHI_APPROVED_DATE, rhi.APPROVING_OFFICIAL as RHI_APPROVING_OFFICIAL, rhi.APPROVAL_ENTEREDUPDATED_BY as RHI_APPROVALENTEREDUPDATEDBY_ID, rhi.APPROVAL_ENTEREDUPDATED_DATE as RHI_APPROVAL_ENTEREDUPDATED_DATE, rhi.NOT_APPROVED_DATE as RHI_NOT_APPROVED_DATE, rhi.NOT_APPROVED_OFFICIAL as RHI_NOT_APPROVED_OFFICIAL, rhi.NOT_APPROVED_ENTEREDUPDD_BY as RHI_NOTAPPROVEDENTEREDUPDATEDBY_ID, rhi.NOT_APPROVED_ENTEREDUPDD_DT as RHI_NOT_APPROVED_ENTERED_UPDATED_DATE, rhi.REVOKED_DATE as RHI_REVOKED_DATE, rhi.REVOKED_OFFICIAL as RHI_REVOKED_OFFICIAL, rhi.REVOKE_ENTEREDUPDATED_BY as RHI_REVOKEENTEREDUPDATEDBY_ID, rhi.REVOKE_ENTEREDUPDATED_DATE as RHI_REVOKE_ENTEREDUPDATED_DATE, rhi.EIE_ENTEREDUPDATED_BY as RHI_EIEENTEREDUPDATEDBY_ID, rhi.EIE_ENTEREDUPDATED_DATE as RHI_EIE_ENTEREDUPDATED_DATE, npp.WAS_NPP_RECD_BY_PATIENT_ as NPP_RECEIVED_BY_PATIENT, npp.DATE_03 as NPP_RECEIVED_DATE, npp.ACKNOWLEDGEMENT_SIGNED_ as NPP_ACKNOWLEDGEMENT_SIGNED, npp.REASON as NPP_REASON, npp.DATETIME_OF_ENTRY as NPP_DATE_OF_ENTRY, npp.ENTERED_BY as NPP_ENTEREDBY_ID
FROM BMW.VA_Patient as va INNER JOIN BMW.Patient ihs ON ihs.Name=va.IEN LEFT JOIN
BMW.Restricted_health_information as rhi ON rhi.PATIENT=va.IEN LEFT JOIN
BMW.Notice_Of_Privacy_Practices as npp ON npp.PATIENT=va.IEN
1
3.0.0
view
BMW.PATIENT,BMW.VAPATIENT
1
_SYSTEM
0
AG_PATIENT_SEARCH_VIEW
65506,39315.866484
62684,45980.575689
select q1.* from (select va.ien as ROWID,va.NAME,
ihs.name_name as Actual_Name,ihs.Preferred_Name,
ihs.ELIGIBILITY_STATUS,va.SEX as SEX,va.DATE_OF_BIRTH, va.DATE_OF_DEATH, va.SOCIAL_SECURITY_NUMBER, ihs.PRINTABLE_SSN, ihs.DATE_OF_LAST_REG__UPDATE, ihs.USERLAST_UPDATE_NAME as LAST_UPDATED_BY, ihs.SSN_VERIFICATION_STATUS, ihs.PRIMARY_CARE_PROVIDER, va.VETERAN_YN as IS_VETERAN , va.PHONE_NUMBER_RESIDENCE as RESIDENCE_PHONE, va.CONDITION,
va.Current_Admission, va.ward_location from BMW.patient ihs,BMW.va_patient va where ihs.Name=va.ien ) as q1
1
3.0.0
view
1
_SYSTEM
0
AG_PATIENT_SEXUAL_ORIENTATION_VIEW
65441,51277.089778
65386,44423.159856
select ENTRY.PATIENT as PATIENT, ENTRY.DATE_01 as DATE_ENTERED, SO.SEXUAL_ORIENTATION,
ENTRY.IEN as SEXUAL_ORIENTATION_IEN, SO.RowId as RowId, ENTRY.OTHER as OTHER
from BMW.SEXUAL_ORIENTATION_9000001C9000001_9301 ENTRY
left join BMW.SEXUAL_ORIENTATION_9000001_9301C9000001_93011 SO
ON SO.SEXUAL_ORIENTATION_9000001C9000001_9301=ENTRY.ROWID
WHERE SO.ROWID IS NOT NULL
1
3.0.0
view
BMW.PRFASSIGNMENT,BMW.PRFASSIGNMENTHISTORY
1
_SYSTEM
0
AG_PRF_ASSIGNMENT_VIEW
65073,45375.053711
62684,46095.791312
1
3.0.0
view
BMW.ENCOUNTERDATE9000046C900004611,BMW.PRIORAUTHORIZATIONS
1
_SYSTEM
0
AG_PRIOR_AUTHORIZATIONS_VIEW
63426,64430.712223
62684,46161.470131
SELECT ed.ROWID,pa.PATIENT_NAME as PATIENT, ed.ENCOUNTER_DATE , ed.ACTUAL_ADMISSIONVISIT_DATE as ADMISSION_VISIT_DATE, ed.AUTHORIZATION_TYPE as AUTHORIZATION_TYPE, ed.PREAUTH_DATE as AUTHORIZATION_DATE, ed.PREAUTH_NUMBER as AUTHORIZATION_NUMBER, ed.AUTHORIZED_DAYS as AUTHORIZED_DAYS, ed.MAX_DOLLAR_AMOUNT as MAX_DOLLAR_AMOUNT, ed.SERVICE_CATEGORY as SERVICE_CATEGORY, ed.AUTHORIZED_VISITS as AUTHORIZED_VISITS, ed.AUTHORIZATION_STATUS, ed.ENCOUNTER_NOTES, ed.INSURANCE_COMPANY From BMW.PRIOR_AUTHORIZATIONS pa INNER JOIN BMW.ENCOUNTER_DATE_9000046C9000046_11 ed ON ed.PRIOR_AUTHORIZATIONS=pa.IEN
1
3.0.0
view
1
_SYSTEM
0
AG_PRONOUNS_VIEW
65408,39065.831937
65377,85315.574312
select IEN, IEN as ROWID, CODE, PRONOUNS || ' - ' || EXPANDED_DISPLAY as NAME from bmw.Pronouns
1
3.0.0
view
BMW.DATEOFINJURY9000041C90000410101,BMW.DATEOFWCINJURY9000042C900004211,BMW.EFFECTIVEDATE90000430101C90000430111,BMW.ELIGIBILITY9000003C900000311,BMW.ELIGIBILITY9000005C900000511,BMW.ELIGIBILITYDATES9000004C900000411,BMW.INSURER9000006C900000611
1
_SYSTEM
0
AG_RESOURCE_ELIGIBILITY_VIEW
63426,64444.542691
62684,46249.395247
select mc.ROWID||':MC' as ROWID,mc.MEDICARE_ELIGIBLE||':MC' as PARENT_ID,mc.ELIG__DATE as START_DATE, Case when mc.PLAN_NAME_NAME is not null then mc.PLAN_NAME_NAME Else mc.COVERAGE_TYPE end as COVERAGE, mc.ELIG__END_DATE as END_DATE from BMW.ELIGIBILITY_9000003C9000003_11 mc union select md.ROWID||':MD' as ROWID, md.MEDICAID_ELIGIBLE||':MD' as PARENT_ID, md.ELIG__DATE as START_DATE, md.COVERAGE_TYPE as COVERAGE, md.ELIG__END_DATE as END_DATE from BMW.ELIGIBILITY_DATES_9000004C9000004_11 as md union select t.ROWID||':T' as ROWID, t.ROWID||':T' as PARENT_ID, t.EFFECTIVE_DATE as START_DATE, t.CAUSE_OF_INJURY as COVERAGE, t.ENDING_DATE as END_DATE from BMW.DATE_OF_INJURY_9000041C9000041_0101 as t UNION select p.ROWID||':P' as ROWID, p.ROWID||':P' as PARENT_ID, p.ELIG__DATE as START_DATE, p.COVERAGE_NAME as COVERAGE, p.ELIG__END_DATE as END_DATE from BMW.INSURER_9000006C9000006_11 as p UNION select r.ROWID||':R' as ROWID, r.RAILROAD_ELIGIBLE||':R' as PARENT_ID , r.ELIG__DATE as START_DATE, Case when r.PLAN_NAME_NAME is not null then r.PLAN_NAME_NAME Else r.COVERAGE_TYPE end as COVERAGE, r.ELIG__END_DATE as END_DATE from BMW.ELIGIBILITY_9000005C9000005_11 as r UNION select w.ROWID||':W' as ROWID, w.ROWID||':W' as PARENT_ID, w.EFFECTIVE_DATE as START_DATE, w.TYPE_OF_ACCIDENT as COVERAGE, w.EXPIRATION_DATE as END_DATE from BMW.DATE_OF_WC_INJURY_9000042C9000042_11 as w UNION select g.ROWID||':G' as ROWID, g.GUARANTOR_9000043C9000043_0101||':G' as PARENT_ID, g.EFFECTIVE_DATE as START_DATE, '' as COVERAGE, g.ENDING_DATE as END_DATE from BMW.EFFECTIVE_DATE_9000043_0101C9000043_0111 as g
1
3.0.0
view
BMW.CATEGORYPRIORITIZING
1
_SYSTEM
0
AG_SEQUENCE_EFFECTIVE_DATE_GROUP_VIEW
63426,64509.85118
63344,42283.547593
Select * From(
select (cp.Patient||cp.EFFECTIVE_DATE_OF_PRIORITY||cp.CATEGORY) as CompositeId, cp.IEN, cp.DATETIME_OF_ENTRY as DATE_OF_ENTRY, cp.PATIENT, cp.INSURER, cp.CATEGORY, cp.PRIORITY, cp.EFFECTIVE_DATE_OF_PRIORITY,
cp.COVERAGE_TYPE, cp.ELIG_BEGIN_DATE, cp.ELIG_END_DATE, cp.POLICY_NUMBER, cp.PLAN_POINTER as PLAN, cp.POLICY_HOLDER, cp.USER_14 as ENTERED_BY, cp.RECORD_PTR from BMW.CATEGORY_PRIORITIZING cp
where EFFECTIVE_DATE_OF_PRIORITY IS NOT NULL)
group by EFFECTIVE_DATE_OF_PRIORITY,CATEGORY
1
3.0.0
view
BMW.CATEGORYPRIORITIZING
1
_SYSTEM
0
AG_SEQUENCE_GROUP_VIEW
63426,64527.707069
62692,52051.443466
SELECT DISTINCT(cp.PATIENT||cp.CATEGORY||cp.EFFECTIVE_DATE_OF_PRIORITY) as ROWID, cp.CATEGORY, cp.PATIENT, cp.EFFECTIVE_DATE_OF_PRIORITY FROM BMW.CATEGORY_PRIORITIZING cp WHERE EFFECTIVE_DATE_OF_PRIORITY IS NOT NULL
1
3.0.0
view
BMW.CATEGORYPRIORITIZING
1
_SYSTEM
0
AG_SEQUENCE_VIEW
64980,63704.892952
62692,51993.352915
Name is not null then cp.INSURER->Name else (select name from bmw.VA_PATIENT where ien=LEFT(SUBSTRING(INSURER,9),LEN(SUBSTRING(INSURER,9))-3)) end as INSURER_NAME,
cp.CATEGORY, cp.PRIORITY, cp.EFFECTIVE_DATE_OF_PRIORITY,
cp.COVERAGE_TYPE, cp.ELIG_BEGIN_DATE, cp.ELIG_END_DATE, cp.POLICY_NUMBER, cp.PLAN_POINTER as PLAN, cp.POLICY_HOLDER, cp.USER_14 as ENTERED_BY, cp.RECORD_PTR from BMW.CATEGORY_PRIORITIZING cp
where EFFECTIVE_DATE_OF_PRIORITY IS NOT NULL)]]>
1
3.0.0
view
BMW.VAPATIENT
1
_SYSTEM
0
BDG_ADMITTED_PATIENTS_VIEW
63426,64584.022098
62796,64293.226087
Select IEN, CURRENT_ROOM as ROOM_BED, WARD_LOCATION, CURRENT_MOVEMENT, CURRENT_ADMISSION From BMW.VA_PATIENT WHERE CURRENT_ADMISSION is not null and ROOMBED is not null
1
3.0.0
view
BMW.PATIENTMOVEMENT
1
_SYSTEM
0
BDG_CURRENT_ADMISSION_VIEW
63426,64838.702145
62731,42059.181089
Select * From BMW.Patient_Movement Where Transaction_02 = 1 and DISCHARGECHECKOUT_MOVEMENT is null
1
3.0.0
view
BMW.INCOMPLETECHART,BMW.VHOSPITALIZATION,BMW.VISIT
1
_SYSTEM
0
BDG_INCOMPLETE_CHART_STATISTICS_VIEW
63426,65782.909838
62804,56137.726861
Select LOCATION, dateadd(month, datediff(month, 0, DISCHARGE_DATE),0) as MONTH_YEAR, Count(DISCHARGE_DATE) as DISCHARGED, COUNT(CODING_COMPLETE)
as CODED, COUNT(DATE_VISIT_EXPORTED) as EXPORTED, COUNT(DATE_INSURANCE_IDENTIFIED) as INSURANCE from (Select ic.PATIENT, v.VISITADMIT_DATETIME as
ADMISSION_DATE, ic.DISCHARGE_DATE, ic.VISIT, ic.DATE_INSURANCE_IDENTIFIED, v.DATE_VISIT_EXPORTED, v.DELETE_FLAG, vh.CODING_COMPLETE,
v.LOC__OF_ENCOUNTER as LOCATION, (BMW_BSF_SP.AG_GetIncompleteChartErrorsM()) AS ERROR From BMW.INCOMPLETE_CHART ic join BMW.VISIT v on ic.VISIT = v.IEN join BMW.V_HOSPITALIZATION vh ON v.IEN = vh.VISIT)
GROUP BY dateadd(month, datediff(month, 0, DISCHARGE_DATE),0)
1
3.0.0
view
BMW.INCOMPLETECHART
1
_SYSTEM
0
BDG_INCOMPLETE_CHART_STATUS_VIEW
63426,64882.693108
62791,46408.131272
Select dateadd(month, datediff(month, 0, DISCHARGE_DATE),0) as MONTH_YEAR, Count(DISCHARGE_DATE) as DISCHARGED,
Count(DATE_CHART_CODED) as CODED, COUNT(CASE WHEN DATE_CHART_CODED IS NULL THEN 1 END) as NOT_CODED,
COUNT(DATE_CHART_TAGGED) as TAGGED, COUNT(DATE_INSURANCE_IDENTIFIED) as INSURANCE_IDENTIFIED From BMW.Incomplete_Chart
GROUP BY dateadd(month, datediff(month, 0, DISCHARGE_DATE),0)
1
3.0.0
view
BMW.INCOMPLETECHART,BMW.VISIT
1
_SYSTEM
0
BDG_INCOMPLETE_CHART_VIEW
63426,64897.861828
62839,46719.5411
Select (Select LOC__OF_ENCOUNTER From BMW.VISIT Where IEN = ic.VISIT) as LOCATION, ic.* from BMW.INCOMPLETE_CHART ic
1
3.0.0
view
BMW.APPOINTMENT2C298,BMW.PATIENT44001C44003
1
_SYSTEM
0
BSDX_APPOINTMENT_VIEW
63811,49759.676338
62684,43477.096038
SELECT a.RowId, a.VA_Patient as PATIENT, a.IEN as APPOINTMENT_DATE_TIME, a.APPOINTMENT_DATETIME as APPT_DATE_TIME_STRING, a.Clinic, a.Current_Status, a.Status, a.Purpose_Of_Visit, a.Appointment_Type, a.NoShowCancelled_By as NO_SHOW_CANCELLED_BY, a.NoShowCancel_DateTime as NO_SHOW_CANCEL_DATE_TIME, a.Cancellation_Reason, a.Cancellation_Remarks, a.Appt__Cancelled as APPT_CANCELLED, p.Data_Entry_Clerk as Patient_Entry_Clerk, a.Data_Entry_Clerk as App_Entry_Clerk, p.Length_Of_Appt, p.Other, p.Ward_loc, a.DATE_APPT__MADE as Date_Appointment_Made, p.Overbook AS OVER_BOOK, p.Check_in_user, p.Check_out_user, p.CheckedIn AS CHECKED_IN, p.CHecked_out, p.Check_In_Entered, p.Check_Out_Entered FROM BMW.PATIENT_44_001C44_003 p Right Join BMW.Appointment_2C2_98 a On p.Appointment_44c44_001 = a.Clinic || '||' || a.IEN and a.VA_PATIENT = p.Patient
1
3.0.0
view
BMW.APPOINTMENT2C298,BMW.PATIENT44001C44003
1
_SYSTEM
0
BSDX_CLINIC_WORKLOAD_VIEW
63578,60179.548887
62684,43878.509298
Select *, (ScheduledCount + UnScheduledCount + OverBookCount) as TotalSeen From (SELECT SUBSTRING(a.APPOINTMENT_DATETIME, 1, 7)
as AppointmentDate, a.APPOINTMENT_DATETIME as AppointmentDateTime, a.Clinic as ClinicId, a.Clinic_Name as ClinicName,
Count(CASE WHEN (a.Purpose_Of_Visit = 3 AND p.Overbook is null AND a.STATUS is null) THEN a.Purpose_Of_Visit ELSE NULL END)
as ScheduledCount, Count(CASE WHEN (a.Purpose_Of_Visit = 4 AND p.Overbook is null AND a.STATUS is null)
THEN a.Purpose_Of_Visit ELSE NULL END) as UnScheduledCount, Count(CASE WHEN (a.STATUS is null) THEN p.Overbook ELSE NULL END)
AS OverBookCount, Count (CASE WHEN (a.STATUS = 'N' OR a.STATUS = 'NA') THEN a.STATUS ELSE NULL END) AS NoShowCount,
Count (CASE WHEN (a.STATUS = 'C' OR a.STATUS = 'PC' OR a.STATUS = 'PCA' OR a.STATUS = 'CA') THEN a.STATUS ELSE NULL END) AS
CancelledCount FROM BMW.PATIENT_44_001C44_003 p
Right Join BMW.Appointment_2C2_98 a On p.Appointment_44c44_001 = a.Clinic || '||' || a.IEN and a.VA_PATIENT = p.Patient
Group By a.Clinic, SUBSTRING(a.APPOINTMENT_DATETIME, 1, 7))
1
3.0.0
view
BMW.PATIENT90090171C900901711,BMW.WAITINGLIST
1
_SYSTEM
0
BSDX_WAITING_LIST_VIEW
63426,64969.968278
62684,46323.166612
Select p.RowId, w.Clinic_Or_Ward as CLINIC, p.Patient, p.DOB as DATE_OF_BIRTH, p.HRCN, p.Priority, p.Date_Added_To_List, p.User_Who_Added, p.Recall_Date, p.Provider, p.Date_Removed_From_List, p.Resolution, p.Reason_Added_To_List, p.User_Who_Removed, p.Comments From BMW.PATIENT_9009017_1C9009017_11 p JOIN BMW.Waiting_List w ON w.RowId = p.Waiting_List
1
3.0.0
Generated class for FileMan Word Processing Field: '407.53' Name: 'FINAL SECTION OF LETTER' Class generated by %fm2class version '2.10'
persistent
_SYSTEM
0
RowId
FINAL_SECTION_OF_LETTER_407_5C407_53
SQLStorage
%Library.Persistent
64013,41897.925899
64013,39967.530746
FINAL SECTION OF LETTER
407.53
2.10
1
1
IEN
1
FileMan Field Label: 'FINAL SECTION OF LETTER' FileMan Field Number: '.01'
%Library.String
1
3
FINAL_SECTION_OF_LETTER
Child Counter Field
%Library.String
-999
1
IEN
IENS Field
%Library.String
1
Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_","
1
IENS
1
Relationship to parent (file name LETTER)
BMW.BSF.VW.LETTER
parent
FINALSECTIONOFLETTER4075C40753
1
1
LETTER
BEFORE Trigger to perform filing
new:'$data(DUZ) DISYS,DT,DTIME,DUZ new DFDA,i,iens,IO,U,wp For i=$l({LETTER},"||"):-1:1 { s iens=$p({LETTER},"||",i)_"," }
d GETS^DIQ(407.5,iens,3,,"wp","%FMERR(407.53,""DIQERR"")")
i $d(%FMERR(407.53,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.53)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
k wp(407.5,iens,3,{IEN})
d WP^DIE(407.5,iens,3,,"wp(407.5,iens,3)","%FMERR(407.53)") s %SkipFiling=1
i $d(%FMERR(407.53,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.53)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
DELETE
BeforeDeleteFiling
BEFORE INSERT Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,IO,U,wp
s wp(1)={FINAL_SECTION_OF_LETTER}
d WP^DIE(407.5,$p({IENS},",",2,$$$MaxStringLength),3,"A","wp","%FMERR(407.53)") s %SkipFiling=1
i $d(%FMERR(407.53,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.53)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
INSERT
BeforeInsertFiling
BEFORE UPDATE Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,i,iens,IO,U,wp For i=$l({LETTER},"||"):-1:1 { s iens=$p({LETTER},"||",i)_"," }
d GETS^DIQ(407.5,iens,3,,"wp","%FMERR(407.53,""DIQERR"")")
i $d(%FMERR(407.53,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.53)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
s wp(407.5,iens,3,{IEN})={FINAL_SECTION_OF_LETTER}
d WP^DIE(407.5,iens,3,,"wp(407.5,iens,3)","%FMERR(407.53)") s %SkipFiling=1
i $d(%FMERR(407.53,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.53)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
UPDATE
BeforeUpdateFiling
%Library.CacheSQLStorage
^BMW.BSF.VW.FINALSECTIONAB6S
100000
data
^VA
407.5
{LETTER.IEN}
s:{L2}="" {L2}=0 s {L2}=$o(^({L2})) s:'{L2} {L2}=""
;PREV
s:{L2}="" {L2}=":" s {L2}=$o(^({L2}),-1) s:'{L2} {L2}=""
0]]>
2
{IEN}
s:{L4}="" {L4}=0 s {L4}=$o(^({L4})) s:'{L4} {L4}=""
;PREV
s:{L4}="" {L4}=0 s {L4}=$o(^({L4}),-1) s:'{L4} {L4}=""
0]]>
0
index
{FINAL_SECTION_OF_LETTER}'=""
1
^VA
conditional
407.5
{LETTER.IEN}
0]]>
2
"B"
$$TRUNCATE({FINAL_SECTION_OF_LETTER},30)
{IEN}
0]]>
Generated class for FileMan Word Processing Field: '407.52' Name: 'INITIAL SECTION OF LETTER' Class generated by %fm2class version '2.10'
persistent
_SYSTEM
0
RowId
INITIAL_SECTION_OF_LETTER_407_5C407_52
SQLStorage
%Library.Persistent
64013,42232.915155
64013,39967.901767
INITIAL SECTION OF LETTER
407.52
2.10
1
1
IEN
1
Child Counter Field
%Library.String
-999
1
IEN
IENS Field
%Library.String
1
Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_","
1
IENS
1
FileMan Field Label: 'INITIAL SECTION OF LETTER' FileMan Field Number: '.01'
%Library.String
1
3
INITIAL_SECTION_OF_LETTER
Relationship to parent (file name LETTER)
BMW.BSF.VW.LETTER
parent
INITIALSECTIONOFLETTER4075C4075
1
1
LETTER
BEFORE Trigger to perform filing
new:'$data(DUZ) DISYS,DT,DTIME,DUZ new DFDA,i,iens,IO,U,wp For i=$l({LETTER},"||"):-1:1 { s iens=$p({LETTER},"||",i)_"," }
d GETS^DIQ(407.5,iens,2,,"wp","%FMERR(407.52,""DIQERR"")")
i $d(%FMERR(407.52,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.52)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
k wp(407.5,iens,2,{IEN})
d WP^DIE(407.5,iens,2,,"wp(407.5,iens,2)","%FMERR(407.52)") s %SkipFiling=1
i $d(%FMERR(407.52,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.52)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
DELETE
BeforeDeleteFiling
BEFORE INSERT Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,IO,U,wp
s wp(1)={INITIAL_SECTION_OF_LETTER}
d WP^DIE(407.5,$p({IENS},",",2,$$$MaxStringLength),2,"A","wp","%FMERR(407.52)") s %SkipFiling=1
i $d(%FMERR(407.52,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.52)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
INSERT
BeforeInsertFiling
BEFORE UPDATE Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,i,iens,IO,U,wp For i=$l({LETTER},"||"):-1:1 { s iens=$p({LETTER},"||",i)_"," }
d GETS^DIQ(407.5,iens,2,,"wp","%FMERR(407.52,""DIQERR"")")
i $d(%FMERR(407.52,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.52)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
s wp(407.5,iens,2,{IEN})={INITIAL_SECTION_OF_LETTER}
d WP^DIE(407.5,iens,2,,"wp(407.5,iens,2)","%FMERR(407.52)") s %SkipFiling=1
i $d(%FMERR(407.52,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.52)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
UPDATE
BeforeUpdateFiling
%Library.CacheSQLStorage
^BMW.BSF.VW.INITIALSECT4171S
100000
data
^VA
407.5
{LETTER.IEN}
s:{L2}="" {L2}=0 s {L2}=$o(^({L2})) s:'{L2} {L2}=""
;PREV
s:{L2}="" {L2}=":" s {L2}=$o(^({L2}),-1) s:'{L2} {L2}=""
0]]>
1
{IEN}
s:{L4}="" {L4}=0 s {L4}=$o(^({L4})) s:'{L4} {L4}=""
;PREV
s:{L4}="" {L4}=0 s {L4}=$o(^({L4}),-1) s:'{L4} {L4}=""
0]]>
0
index
{INITIAL_SECTION_OF_LETTER}'=""
1
^VA
conditional
407.5
{LETTER.IEN}
0]]>
1
"B"
$$TRUNCATE({INITIAL_SECTION_OF_LETTER},30)
{IEN}
0]]>
Generated class for FileMan File Number: '407.5' File Name: 'LETTER' Class generated by %fm2class version '2.10'
This file contains all letters that may be sent out by a site. These
include letters notifying patients of future appointments, cancelled
appointments, and scheduled admissions. The site can edit the text that
they would like to appear in these letters.
persistent
_SYSTEM
0
RowId
LETTER
SQLStorage
%Library.Persistent
64013,41687.721184
64013,39968.112945
LETTER
407.5
2.10
1
1
IEN
1
Relationship for Word-Processing Field child
BMW.BSF.VW.FINALSECTIONOFLETTER4075C40753
children
LETTER
1
FINAL_SECTION_OF_LETTER_407_5C407_53
FileMan Field Label: 'GREETINGS TO PARENTS?' FileMan Field Number: '9999999.01'
%Library.String
5
GREETINGS_TO_PARENTS
Internal Entry Number
%Library.String
$$next^%apiSQL("$p(^VA(407.5,0),""^"",3)")
1
2
IEN
Relationship for Word-Processing Field child
BMW.BSF.VW.INITIALSECTIONOFLETTER4075C40752
children
LETTER
1
INITIAL_SECTION_OF_LETTER_407_5C407_52
FileMan Field Label: 'NAME' FileMan Field Number: '.01'
The name of a letter that has been initially created by the developer
in a 'skeleton form' and the user edits the body of the letter. These
letters are utilized mostly in the Scheduling Module of the MAS DHCP
software.
%Library.String
1
3
NAME
Relationship for Sub-File/Multiple to file name PATIENT TRACKING child
FileMan Field Label: 'TYPE' FileMan Field Number: '1'
The letter created is assigned a type for user specific needs. For
example, a letter created to alert a veteran that he has an appointment
and a new travel legislation has been passed, the user may call this
letter 'Beneficiary Travel'.
%Library.String
1
4
TYPE
BEFORE Trigger to perform filing
new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y d DTNOLF^DICRW s DIK="^VA(407.5," s DA={%%ID} d ^DIK s %SkipFiling=1 q
DELETE
BeforeDeleteFiling
BEFORE INSERT Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,FDAIEN,IO,U,wp s FDAIEN(1)={IEN}
s:{NAME}'="" FDA(407.5,"+1,",.01)={"NAME"}
s:{TYPE}'="" FDA(407.5,"+1,",1)={"TYPE"}
s:{GREETINGS_TO_PARENTS}'="" FDA(407.5,"+1,",9999999.01)={"GREETINGS_TO_PARENTS"}
d UPDATE^DIE("","FDA","FDAIEN","%FMERR(407.5)") s %SkipFiling=1
i $d(%FMERR(407.5,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
QUIT
INSERT
BeforeInsertFiling
BEFORE UPDATE Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,IENS,IO,U,wp,wproot s IENS={IEN}_","
s:{NAME*C} FDA(407.5,IENS,.01)={NAME}
s:{TYPE*C} FDA(407.5,IENS,1)={TYPE}
s:{GREETINGS_TO_PARENTS*C} FDA(407.5,IENS,9999999.01)={GREETINGS_TO_PARENTS}
d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(407.5)") s %SkipFiling=1
i $d(%FMERR(407.5,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(407.5)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
QUIT
UPDATE
BeforeUpdateFiling
%Library.CacheSQLStorage
^BMW.BSF.VW.LETTERS
100000
data
^VA
407.5
{IEN}
s:{L2}="" {L2}=0 s {L2}=$o(^({L2})) s:'{L2} {L2}=""
;PREV
s:{L2}="" {L2}=":" s {L2}=$o(^({L2}),-1) s:'{L2} {L2}=""
0]]>
"^"
"IHS"
1
"^"
0
1
"^"
0
2
index
^VA
nonnull
407.5
"B"
{NAME}
{IEN}
0]]>
index
{TYPE}'=""
1
^VA
conditional
407.5
"C"
$$TRUNCATE({TYPE},30)
{IEN}
0]]>
Generated class for FileMan Word Processing Field: '9000001.12' Name: 'LOCATION OF HOME' Class generated by %fm2class version '2.10'
persistent
_SYSTEM
0
RowId
LOCATION_OF_HOME_9000001C9000001_12
SQLStorage
%Library.Persistent
64013,52618.658312
64013,52290.798955
LOCATION OF HOME
9000001.12
2.10
1
1
IEN
1
Child Counter Field
%Library.String
-999
1
IEN
IENS Field
%Library.String
1
Set {*}="" New i For i=$l({RowId},"||"):-1:1 s {*}={*}_$p({RowId},"||",i)_","
1
IENS
1
FileMan Field Label: 'LOCATION OF HOME' FileMan Field Number: '.01'
%Library.String
1
3
LOCATION_OF_HOME
Relationship to parent (file name PATIENT)
BMW.BSF.VW.PATIENT
parent
LOCATIONOFHOME9000001C900000112
1
1
PATIENT
BEFORE Trigger to perform filing
new:'$data(DUZ) DISYS,DT,DTIME,DUZ new DFDA,i,iens,IO,U,wp For i=$l({PATIENT},"||"):-1:1 { s iens=$p({PATIENT},"||",i)_"," }
d GETS^DIQ(9000001,iens,1201,,"wp","%FMERR(9000001.12,""DIQERR"")")
i $d(%FMERR(9000001.12,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001.12)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
k wp(9000001,iens,1201,{IEN})
d WP^DIE(9000001,iens,1201,,"wp(9000001,iens,1201)","%FMERR(9000001.12)") s %SkipFiling=1
i $d(%FMERR(9000001.12,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001.12)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
DELETE
BeforeDeleteFiling
BEFORE INSERT Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,IO,U,wp
s wp(1)={LOCATION_OF_HOME}
d WP^DIE(9000001,$p({IENS},",",2,$$$MaxStringLength),1201,"A","wp","%FMERR(9000001.12)") s %SkipFiling=1
i $d(%FMERR(9000001.12,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001.12)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
INSERT
BeforeInsertFiling
BEFORE UPDATE Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,i,iens,IO,U,wp For i=$l({PATIENT},"||"):-1:1 { s iens=$p({PATIENT},"||",i)_"," }
d GETS^DIQ(9000001,iens,1201,,"wp","%FMERR(9000001.12,""DIQERR"")")
i $d(%FMERR(9000001.12,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001.12)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
s wp(9000001,iens,1201,{IEN})={LOCATION_OF_HOME}
d WP^DIE(9000001,iens,1201,,"wp(9000001,iens,1201)","%FMERR(9000001.12)") s %SkipFiling=1
i $d(%FMERR(9000001.12,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001.12)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
UPDATE
BeforeUpdateFiling
%Library.CacheSQLStorage
^BMW.BSF.VW.LOCATIONOFH2FFFS
100000
data
^AUPNPAT
{PATIENT.IEN}
s:{L1}="" {L1}=0 s {L1}=$o(^({L1})) s:'{L1} {L1}=""
;PREV
s:{L1}="" {L1}=":" s {L1}=$o(^({L1}),-1) s:'{L1} {L1}=""
0]]>
12
{IEN}
s:{L3}="" {L3}=0 s {L3}=$o(^({L3})) s:'{L3} {L3}=""
;PREV
s:{L3}="" {L3}=0 s {L3}=$o(^({L3}),-1) s:'{L3} {L3}=""
0]]>
0
Generated class for FileMan File Number: '9000001' File Name: 'PATIENT' Class generated by %fm2class version '2.10'
This file is the primary patient data file. The NAME (.01) field of this
file is a backward pointer to the VA's patient file (#2). Fields in
common between the two dictionaries actually exist only in the VA patient
file and are referenced by the IHS patient file as computed fields. All
other files containing patient data have backward pointers linking them to
this file. The linkage is by patient name and the internal FileMan gener-
ated number of the ancillary file is the same number used in this file.
All applications developed for the RPMS which require patient data will
point to this file.
persistent
_SYSTEM
0
RowId
PATIENT
SQLStorage
%Library.Persistent
64013,52496.118519
64013,52290.831463
PATIENT
9000001
2.10
1
1
IEN
1
VA_PATIENT]]>
NAME
BMW.VAPATIENT
FKey_NAME
Internal Entry Number
%Library.String
$$next^%apiSQL("$p(^AUPNPAT(0),""^"",3)")
1
2
IEN
Relationship for Word-Processing Field child
BMW.BSF.VW.LOCATIONOFHOME9000001C900000112
children
PATIENT
1
LOCATION_OF_HOME_9000001C9000001_12
FileMan Field Label: 'NAME' FileMan Field Number: '.01'
BMW.VAPATIENT
1
3
NAME
NAME
Enter the patient's name in 'LAST,FIRST MIDDLE SUFFIX' format.
This value must be 3-30 characters in length and may contain only uppercase
alpha characters, spaces, apostrophes, hyphens and one comma. All other
characters and parenthetical text will be removed.]]>
%Library.String
NAME into :val from BMW.PATIENT where %ID=:id)
set {NAME_NAME}=$select(SQLCODE=0:val,1:"")]]>
1
NAME_NAME
1
1
BEFORE Trigger to perform filing
new:'$data(DUZ) DISYS,DT,DTIME,DUZ new %,%H,DA,DIC,DIK,IO,U,X,Y d DTNOLF^DICRW s DIK="^AUPNPAT(" s DA={%%ID} d ^DIK s %SkipFiling=1 q
DELETE
BeforeDeleteFiling
BEFORE INSERT Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,FDAIEN,IO,U,wp s FDAIEN(1)={IEN}
s:{NAME}'="" FDA(9000001,"+1,",.01)={"NAME"}
d UPDATE^DIE("","FDA","FDAIEN","%FMERR(9000001)") s %SkipFiling=1
i $d(%FMERR(9000001,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
QUIT
INSERT
BeforeInsertFiling
BEFORE UPDATE Trigger to perform filing
new:'$data(DIC) DIC set DIC(0)="" new:'$data(DUZ) DISYS,DT,DTIME,DUZ new FDA,IENS,IO,U,wp,wproot s IENS={IEN}_","
s:{NAME*C} FDA(9000001,IENS,.01)={NAME}
d:$d(FDA) UPDATE^DIE("","FDA",,"%FMERR(9000001)") s %SkipFiling=1
i $d(%FMERR(9000001,"DIERR")) { s U="^" d MSG^DIALOG("AT",.err,32768,,"%FMERR(9000001)") s %ok=0 f err=1:1:err { s $p(%msg,$c(13,10),err)=$g(err(err)) } q }
QUIT
UPDATE
BeforeUpdateFiling
%Library.CacheSQLStorage
^BMW.BSF.VW.PATIENTS
100000
index
^AUPNPAT
nonnull
"B"
{NAME}
{IEN}
0]]>
data
^AUPNPAT
{IEN}
s:{L1}="" {L1}=0 s {L1}=$o(^({L1})) s:'{L1} {L1}=""
;PREV
s:{L1}="" {L1}=":" s {L1}=$o(^({L1}),-1) s:'{L1} {L1}=""
0]]>
"^"
0
1