2.0P172940PXRMINPL2982435994
EDT)!(DATE="") D
. S IEN=""
. F S IEN=$O(^DGPM(SUB,DATE,IEN)) Q:IEN="" D
.. S DATA=^DGPM(IEN,0)
.. S DFN=$P(DATA,U,3)
.. I SUB="ATT1" D
...;WARD is a required field but it may not exist for older entries.
... S WARDP=+$P(DATA,U,6)
... S WARD=WARDP_";"_$S(WARDP>0:$P($G(^DIC(42,WARDP,0)),U,1),1:0)
.. I SUB="ATT3" D
... S WARD=$$GET1^DIQ(405,IEN,200)
... S WARDP=$S(WARD'="":$O(^DIC(42,"B",WARD,"")),1:0)
... S WARD=WARDP_";"_WARD
..;If a location list has been passed in make sure the hospital
..;location for the ward is on the list.
.. S HLOC=$S(WARDP>0:^DIC(42,WARDP,44),1:0)
.. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
.. I 'OK Q
.. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
.. S ^TMP($J,PLIST,DFN,CNT)=U_DATE_U_405_U_DFN_U_WARD
.. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
.. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
.. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
.. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARD
.. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
.. S ^TMP($J,PLIST,DFN,CNT,"TYPE_OF_MVMT")=$$GET1^DIQ(405.1,$P(DATA,U,4),.01)
K ^TMP($J,"CNT")
Q
;
;=====================================
CURR(NGET,BDT,EDT,PLIST,PARAM) ;Current inpatients.
; DBIAs #10035, #10039, #10040, #10061, #10090
N CNT,DFN,HLOC,INST,INSTNM,LOCLIST,OK,WARD,WARDP,WARDSUB,VAIN,VAERR
K ^TMP($J,PLIST),^TMP($J,"CNT")
S OK=1
S LOCLIST=$S(PARAM'="":+$O(^PXRMD(810.9,"B",PARAM,0)),1:0)
S WARD=""
F S WARD=$O(^DPT("CN",WARD)) Q:WARD="" D
. S DFN=0
. F S DFN=$O(^DPT("CN",WARD,DFN)) Q:'+DFN D
..;If a location list has been passed in make sure the hospital
..;location for the ward is on the list.
.. S WARDP=+$O(^DIC(42,"B",WARD,""))
.. S HLOC=+$G(^DIC(42,WARDP,44))
.. I LOCLIST>0 S OK=$S($D(^PXRMD(810.9,LOCLIST,44,"B",HLOC)):1,1:0)
.. I 'OK Q
.. K VAIN,VAERR D INP^VADPT
.. S WARDSUB=+VAIN(4)_";"_WARD
.. S (CNT,^TMP($J,"CNT",DFN))=+$G(^TMP($J,"CNT",DFN))+1
.. S ^TMP($J,PLIST,DFN,CNT)=U_+VAIN(7)_U_2_U_DFN_U_WARDSUB
.. S INST=$S(HLOC>0:+$P(^SC(HLOC,0),U,4),1:0)
.. S INSTNM=INST_";"_$S(INST>0:$P(^DIC(4,INST,0),U,1),1:0)
.. S INSTNM=INSTNM_";"_$S(INST>0:$P($G(^DIC(4,INST,99)),U,1),1:0)
.. S ^TMP($J,PLIST,DFN,CNT,"VALUE")=WARDSUB
.. S ^TMP($J,PLIST,DFN,CNT,"INSTITUTION")=INSTNM
.. S ^TMP($J,PLIST,DFN,CNT,"ADMIT DATE")=VAIN(7)
K ^TMP($J,"CNT")
Q
;
;=====================================
DISCH(NGET,BDT,EDT,PLIST,PARAM) ;Discharges during a date range.
;NOTE: ASIH is not accounted for in this version.
D ADMDISCH(BDT,EDT,PLIST,PARAM,"ATT3")
Q
;
]]>
VA DRUG CLASS50.605BL1152541523697464NOVA DRUG CLASS50.605BL11046716911543NOORDERABLE ITEMS101.43ALTEPLASE(t-PA) INJ,PWDR 352968830480NOORDERABLE ITEMS101.43HEPARIN 10000 UNIT/ML INJ,SOLN 29532816225240NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS DECLINED5003033681543442NOHEALTH FACTORS9999999.64VTE PROHYLAXIS NOT RECEIVED5003021720149288NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS RECEIVED5003011598536246NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64COMFORT MEASURES ON OR DAY AFTER ARRIVAL500641895354898NOHEALTH FACTORS9999999.64SURGICAL CARE IMPROVEMENT PROJECT (SCIP)500343503105561NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS DOCUMENTED502094064470376NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER TAXONOMY811.2MU TABLE 7.04 TX1903678313254NOREMINDER TAXONOMY811.2MU TABLE 7.03 TX1892377246465NOREMINDER TAXONOMY811.2MU INTRACRAN NEURO SURG 5.171182255516464NOREMINDER TAXONOMY811.2MU GENERAL SURGERY 5.191173458058209NOREMINDER TAXONOMY811.2MU GYNERCOLOGICAL SURG 5.201163597002898NOREMINDER TAXONOMY811.2MU UROLOGICAL SURGERY 5.21115340959905NOREMINDER TAXONOMY811.2MU ELECTIVE HIP REPL 5.221141201679318NOREMINDER TAXONOMY811.2MU ELECTIVE TOTAL KNEE REPL 5.231133327003657NOREMINDER TAXONOMY811.2MU HIP FRAC 5.241122413513853NOREMINDER TAXONOMY811.2MU OBSTETRICS 7.021114046671681NOREMINDER TERM811.5MU VTE-2 DENOM TX TRM7381518450117NOREMINDER TERM811.5MU VTE-1 NUMER PROPHYLAXIS TRM7371142444259NOREMINDER TERM811.5MU VTE-2 DENOM EXCLU HF TRM6613477886431NOREMINDER TERM811.5MU ADMISSION MVMT TRIAL TRM6601258096799NOREMINDER TERM811.5MU ADMISSION ICU TRM6581783261594NOREMINDER DEFINITION811.9MU VTE-2 NUMER CR244308646270YES
1
811.925;+255,+244,;10~FN(1)>1
811.925;+255,+244,;41~0
811.925;+255,+244,;42~0
811.925;+256,+244,;.01~3
811.925;+256,+244,;3~DIFF_DATE(12,3)<1
811.925;+256,+244,;10~FN(1)<1
811.925;+256,+244,;41~0
811.925;+256,+244,;42~0
811.925;+257,+244,;.01~4
811.925;+257,+244,;3~MAX_DATE(5,7,4,1)MAX_DATE(3)
811.925;+258,+244,;10~FN(1)>FN(2)
811.925;+258,+244,;41~0
811.925;+258,+244,;42~0
811.925;+259,+244,;.01~6
811.925;+259,+244,;3~VALUE(5,1,"START DATE")REMINDER DEFINITION811.9MU VTE-2 DENOM CR2102276423367YES
1
811.925;+220,+210,;10~FN(1)>1
811.925;+220,+210,;41~0
811.925;+220,+210,;42~0
811.925;+221,+210,;.01~3
811.925;+221,+210,;3~DIFF_DATE(12,3)<1
811.925;+221,+210,;10~FN(1)<1
811.925;+221,+210,;41~0
811.925;+221,+210,;42~0
811.925;+222,+210,;.01~4
811.925;+222,+210,;3~MAX_DATE(5,7,4,1)MAX_DATE(3)
811.925;+223,+210,;10~FN(1)>FN(2)
811.925;+223,+210,;41~0
811.925;+223,+210,;42~0
811.925;+224,+210,;.01~6
811.925;+224,+210,;3~VALUE(5,1,"START DATE")32191052411811810913113112214414413515715714817117016118818417520520119222221820923923522625625224327326926029028627734130329434634639435935039939947741240349748255551050157056061658357462862110586416321166106312481179117012691253133912821273135713441391137013611400139614261413140414331431145514461437146114602211147414652399221624282412240324432433247124562447248724762509250024912517251425382530252125442543256425572548257025692704258325742755270928862768275929362891