2.0P17857PXRMINPL2982435994
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.605BL1152541523697464NOORDERABLE ITEMS101.43ALTEPLASE(t-PA) INJ,PWDR 352968830480NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64ARRIVAL500633668375555NOHEALTH FACTORS9999999.64LAST KNOWN WELL > 2H500732352775339NO
2H
9999999.64;+50073,;.03~MU STK
9999999.64;+50073,;.04~LKW>2H
9999999.64;+50073,;.08~YES
9999999.64;+50073,;.1~FACTOR
]]>
HEALTH FACTORS9999999.64ELECTIVE CAROTID INTERVENTION5003062385829161NOHEALTH FACTORS9999999.64THROMBOLYTIC IV NOT INITIATED. REASON500774215951146NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64LAST KNOWN WELL < 2H500722235324988NOHEALTH FACTORS9999999.64THROMBOLYTIC IV THERAPY INITIATED <3H5007896605916NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER TAXONOMY811.2MU STK-4 DENOM INCLU TX1242004493598NOREMINDER TAXONOMY811.2MU STK DENOM EXCLU ELECTIVE SURGERY TX1223882324901NOREMINDER TERM811.5MU STK-4 DENOM ARRIVAL HF7331730002429NOREMINDER TERM811.5MU STK-4 DENOM EXCLU HF>2H7323727629332NO
2H
811.5;+732,;100~LOCAL
811.52;+733,+732,;.01~HF.LAST KNOWN WELL > 2H
811.53;+734,+732,;.01~07/22/2011@03:11:03
811.53;+734,+732,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5MU ADMISSION EMERGENCY RT7311925315236NOREMINDER TERM811.5MU STK-4 DENOM EXCLU TRM6153119065295NO
2H
811.52;+618,+615,;.01~HF.ELECTIVE CAROTID INTERVENTION
811.52;+619,+615,;.01~HF.ENROLLED IN CLINICAL TRIALS
811.53;+620,+615,;.01~07/22/2011@03:11:03
811.53;+620,+615,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5MU STK-4 DENOM INC HF<2H5763508683479NOREMINDER TERM811.5MU STK-4 NUMER INCLU TRM5751206270631NOREMINDER DEFINITION811.9MU STK-4 NUMER CR1982503807966YES
2H
811.902;+207,+198,;24~0
811.902;+207,+198,;25~0
811.902;+208,+198,;.01~TX.MU STK-4 DENOM INCLU TX
811.902;+208,+198,;24~0
811.902;+208,+198,;25~0
811.925;+209,+198,;.01~1
811.925;+209,+198,;3~DIFF_DATE(4,3)<121
811.925;+209,+198,;10~FN(1)<121
811.925;+209,+198,;41~0
811.925;+209,+198,;42~0
811.9255;+210,+209,+198,;.01~1
811.9255;+210,+209,+198,;.02~DIFF_DATE
811.9256;+211,+210,+209,+198,;.01~4
811.9256;+212,+210,+209,+198,;.01~3
811.97;+213,+198,;.01~99Y
811.97;+213,+198,;1~18
811.97;+213,+198,;2~99
811.97;+213,+198,;5~0
811.97;+213,+198,;6~0
]]>
REMINDER DEFINITION811.9MU STK-4 DENOM CR1993156679946YES
18Y
EX LOS > 120D
EX PTS ENROLLED IN CLINICAL TRIALS
EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION
EX TIME LAST KNOWN WELL TO ARRIVAL IN EMERGENCY DEPT > 2 H
EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC
811.9;+199,;30~(AGE)&(FI(6)&FF(1))&'FI(8)&'FI(2)&'FI(5)&FI(1)
811.9;+199,;31~(AGE)&(FI(6)&FF(1))&'FI(8)&'FI(2)&'FI(5)&FI(1)
811.9;+199,;32~7
811.9;+199,;33~AGE;6;FF1;8;2;5;1
811.9;+199,;36~0
811.9;+199,;40~0
811.9;+199,;42~3
811.9;+199,;43~3;4;7
811.9;+199,;62~0
811.9;+199,;63~0
811.9;+199,;67~0
811.9;+199,;68~0
811.9;+199,;72~0
811.9;+199,;73~0
811.9;+199,;77~0
811.9;+199,;78~0
811.9;+199,;100~LOCAL
811.9;+199,;103~L
811.9001;+200,+199,;.01~07/22/2011@03:11:04
811.9001;+200,+199,;2~WP-start~1
Exchange Stub
811.902;+201,+199,;.01~RT.MU STK-4 DENOM INC HF<2H
811.902;+201,+199,;24~0
811.902;+201,+199,;25~0
811.902;+202,+199,;.01~RT.MU STK-4 DENOM EXCLU TRM
811.902;+202,+199,;24~0
811.902;+202,+199,;25~0
811.902;+203,+199,;.01~RT.MU ADMISSION EMERGENCY RT
811.902;+203,+199,;24~0
811.902;+203,+199,;25~0
811.902;+204,+199,;.01~CF.VA-DISCHARGES FOR A DATE RANGE
811.902;+204,+199,;24~0
811.902;+204,+199,;25~0
811.902;+205,+199,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX
811.902;+205,+199,;24~0
811.902;+205,+199,;25~0
811.902;+206,+199,;.01~TX.MU STK-4 DENOM INCLU TX
811.902;+206,+199,;24~0
811.902;+206,+199,;25~0
811.902;+207,+199,;.01~RT.MU STK-4 DENOM ARRIVAL HF
811.902;+207,+199,;24~0
811.902;+207,+199,;25~0
811.902;+208,+199,;.01~RT.MU STK-4 DENOM EXCLU HF>2H
811.902;+208,+199,;24~0
811.902;+208,+199,;25~0
811.925;+209,+199,;.01~1
811.925;+209,+199,;3~DIFF_DATE(3,4)<121
811.925;+209,+199,;10~FN(1)<121
811.925;+209,+199,;41~0
811.925;+209,+199,;42~0
811.9255;+210,+209,+199,;.01~1
811.9255;+210,+209,+199,;.02~DIFF_DATE
811.9256;+211,+210,+209,+199,;.01~3
811.9256;+212,+210,+209,+199,;.01~4
811.97;+213,+199,;.01~99Y
811.97;+213,+199,;1~18
811.97;+213,+199,;2~99
811.97;+213,+199,;5~0
811.97;+213,+199,;6~0
]]>
231910524118118109131131122145144135162158149179175166196192183213209200230226217247243234264260251315277268320320368333324373373440386377457445487470461495492513508499519518537532523543542563556547569568592582573601597621614605627626648640631657653735670661754740835767758853840