2.0P17873MU_STK5BOKHARI,SYEDVOE OFFICE INSTITUTION07/22/2011@03:13:43PXRMINPL2982435994
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
;
]]>
DRUG50TISSUE PLASMINOGEN ACTIVATOR947011578510728NOVA DRUG CLASS50.605BL1152541523697464NOVA DRUG CLASS50.605BL11046716911543NOORDERABLE ITEMS101.43ALTEPLASE(t-PA) INJ,PWDR 352968830480NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64ELECTIVE CAROTID INTERVENTION5003062385829161NOHEALTH FACTORS9999999.64t-PA STARTED AT THIS FACILITY500801836103415NOHEALTH FACTORS9999999.64t-PA STARTED 24H BEFORE ARRIVAL500793959174881NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64DISCHARGED PRIOR TO END OF HOSP DAY2500653513051705NOHEALTH FACTORS9999999.64COMFORT MEASURES ON OR DAY AFTER ARRIVAL500641895354898NOHEALTH FACTORS9999999.64ANTITHROMBOTIC NOT GIVEN(HOSP DAY2 END)50061258736928NOHEALTH FACTORS9999999.64ANTITHROMBOTIC GIVEN BY HOSP DAY2 END502063251081900NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER TAXONOMY811.2MU STK DENOM EXCLU ELECTIVE SURGERY TX1223882324901NOREMINDER TAXONOMY811.2MU STK-5 DENOM INCLU TX1231314163667NOREMINDER TERM811.5MU STK-5 DENOM EXCLU TRM5604115852591NOREMINDER TERM811.5MU STK-5 NUMER INCLU TRM5581988107668NOREMINDER TERM811.5MU STK-5 DENOM EXCLU T-PA TRM734249730220NOREMINDER DEFINITION811.9MU STK-5 NUMER CR1962769487849YES
120D AND <2D
EX PTS ENROLLED IN CLINICAL TRIALS
EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION
EX PATIENTS WITH COMFORT MEASURES DOCUMENTED ON DAY OF OR DAY AFTER ARRIVAL
EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC
EX PATIENTS WITH IV OR IA THROMBOLYTIC (t-PA) THERAPY ADMINSITERED AT THIS HOSPITAL OR WITHIN 24 H PRIOR TO ARRIVAL
EX PATIENTS WITH A DOCUMENTED REASON FOR NOT ADMINISTERING ANTITHROMBOTIC THERPAY BY END OF HOSPITAL DAY 2
EX PATIENTS DISCHARGED PRIOR TO THE END OF HOSPITAL DAY 2
Ischemic stroke patients who had antithrombotic therapy administered by end of hospital day 2
811.9;+196,;30~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&(FI(5)&FF(3))
811.9;+196,;31~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&(FI(5)&FF(3))
811.9;+196,;32~9
811.9;+196,;33~AGE;1;FF1;FF2;2;FF1;FF2;5;FF3
811.9;+196,;36~0
811.9;+196,;40~0
811.9;+196,;42~2
811.9;+196,;43~3;4
811.9;+196,;62~0
811.9;+196,;63~0
811.9;+196,;67~0
811.9;+196,;68~0
811.9;+196,;72~0
811.9;+196,;73~0
811.9;+196,;77~0
811.9;+196,;78~0
811.9;+196,;100~LOCAL
811.9;+196,;103~L
811.9001;+197,+196,;.01~07/22/2011@03:13:52
811.9001;+197,+196,;2~WP-start~1
Exchange Stub
811.902;+198,+196,;.01~TX.MU STK-5 DENOM INCLU TX
811.902;+198,+196,;24~0
811.902;+198,+196,;25~0
811.902;+199,+196,;.01~RT.MU STK-5 DENOM EXCLU TRM
811.902;+199,+196,;24~0
811.902;+199,+196,;25~0
811.902;+200,+196,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE
811.902;+200,+196,;24~0
811.902;+200,+196,;25~0
811.902;+201,+196,;.01~CF.VA-DISCHARGES FOR A DATE RANGE
811.902;+201,+196,;24~0
811.902;+201,+196,;25~0
811.902;+202,+196,;.01~RT.MU STK-5 NUMER INCLU TRM
811.902;+202,+196,;24~0
811.902;+202,+196,;25~0
811.90221;+203,+202,+196,;.01~ACTIVE
811.90221;+204,+202,+196,;.01~DISCONTINUED
811.90221;+205,+202,+196,;.01~DISCONTINUED (EDIT)
811.90221;+206,+202,+196,;.01~DISCONTINUED (RENEWAL)
811.90221;+207,+202,+196,;.01~EXPIRED
811.90221;+208,+202,+196,;.01~SUSPENDED
811.925;+209,+196,;.01~1
811.925;+209,+196,;3~DIFF_DATE(3,4)<121
811.925;+209,+196,;10~FN(1)<121
811.925;+209,+196,;41~0
811.925;+209,+196,;42~0
811.925;+210,+196,;.01~2
811.925;+210,+196,;3~DIFF_DATE(3,4)>1
811.925;+210,+196,;10~FN(1)>1
811.925;+210,+196,;41~0
811.925;+210,+196,;42~0
811.925;+211,+196,;.01~3
811.925;+211,+196,;3~DIFF_DATE(3,5)<2
811.925;+211,+196,;10~FN(1)<2
811.925;+211,+196,;41~0
811.925;+211,+196,;42~0
811.9255;+212,+209,+196,;.01~1
811.9255;+212,+209,+196,;.02~DIFF_DATE
811.9255;+213,+210,+196,;.01~1
811.9255;+213,+210,+196,;.02~DIFF_DATE
811.9255;+214,+211,+196,;.01~1
811.9255;+214,+211,+196,;.02~DIFF_DATE
811.9256;+215,+212,+209,+196,;.01~3
811.9256;+216,+213,+210,+196,;.01~3
811.9256;+217,+214,+211,+196,;.01~3
811.9256;+218,+212,+209,+196,;.01~4
811.9256;+219,+213,+210,+196,;.01~4
811.9256;+220,+214,+211,+196,;.01~5
811.97;+221,+196,;.01~99Y
811.97;+221,+196,;1~18
811.97;+221,+196,;2~99
811.97;+221,+196,;5~0
811.97;+221,+196,;6~0
]]>
REMINDER DEFINITION811.9MU STK-5 DENOM CR1971286769028YES
120D AND <2D
EX PTS ENROLLED IN CLINICAL TRIALS
EX PTS ADMITTED FOR ELECTIVE CAROTID INTERVENTION
EX PATIENTS WITH COMFORT MEASURES DOCUMENTED ON DAY OF OR DAY AFTER ARRIVAL
EX PT WITH A DOCUMENTED REASON FOR NOT INITIATING IV THROMBOLYTIC
EX PATIENTS WITH IV OR IA THROMBOLYTIC (t-PA) THERAPY ADMINSITERED AT THIS HOSPITAL OR WITHIN 24 H PRIOR TO ARRIVAL
EX PATIENTS WITH A DOCUMENTED REASON FOR NOT ADMINISTERING ANTITHROMBOTIC THERPAY BY END OF HOSPITAL DAY 2
EX PATIENTS DISCHARGED PRIOR TO THE END OF HOSPITAL DAY 2
811.9;+197,;30~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&'FI(5)
811.9;+197,;31~(AGE)&(FI(1)&FF(1)&FF(2))&'(FI(2)&FF(1)&FF(2))&'FI(5)
811.9;+197,;32~8
811.9;+197,;33~AGE;1;FF1;FF2;2;FF1;FF2;5
811.9;+197,;36~0
811.9;+197,;40~0
811.9;+197,;42~2
811.9;+197,;43~3;4
811.9;+197,;62~0
811.9;+197,;63~0
811.9;+197,;67~0
811.9;+197,;68~0
811.9;+197,;72~0
811.9;+197,;73~0
811.9;+197,;77~0
811.9;+197,;78~0
811.9;+197,;100~LOCAL
811.9;+197,;103~L
811.9001;+198,+197,;.01~07/22/2011@03:13:53
811.9001;+198,+197,;2~WP-start~1
Exchange Stub
811.902;+199,+197,;.01~TX.MU STK-5 DENOM INCLU TX
811.902;+199,+197,;24~0
811.902;+199,+197,;25~0
811.902;+200,+197,;.01~RT.MU STK-5 DENOM EXCLU TRM
811.902;+200,+197,;24~0
811.902;+200,+197,;25~0
811.902;+201,+197,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE
811.902;+201,+197,;24~0
811.902;+201,+197,;25~0
811.902;+202,+197,;.01~CF.VA-DISCHARGES FOR A DATE RANGE
811.902;+202,+197,;24~0
811.902;+202,+197,;25~0
811.902;+203,+197,;.01~RT.MU STK-5 DENOM EXCLU T-PA TRM
811.902;+203,+197,;24~0
811.902;+203,+197,;25~0
811.925;+204,+197,;.01~1
811.925;+204,+197,;3~DIFF_DATE(3,4)<121
811.925;+204,+197,;10~FN(1)<121
811.925;+204,+197,;41~0
811.925;+204,+197,;42~0
811.925;+205,+197,;.01~2
811.925;+205,+197,;3~DIFF_DATE(3,4)>1
811.925;+205,+197,;10~FN(1)>1
811.925;+205,+197,;41~0
811.925;+205,+197,;42~0
811.9255;+206,+204,+197,;.01~1
811.9255;+206,+204,+197,;.02~DIFF_DATE
811.9255;+207,+205,+197,;.01~1
811.9255;+207,+205,+197,;.02~DIFF_DATE
811.9256;+208,+206,+204,+197,;.01~3
811.9256;+209,+207,+205,+197,;.01~3
811.9256;+210,+206,+204,+197,;.01~4
811.9256;+211,+207,+205,+197,;.01~4
811.97;+212,+197,;.01~99Y
811.97;+212,+197,;1~18
811.97;+212,+197,;2~99
811.97;+212,+197,;5~0
811.97;+212,+197,;6~0
]]>
231910524118118109131131122144144135157157148171170161188184175205201192222218209239235226256252243273269260290286277307303294355320311360360411373364416416446429420454451520467458537525566550541581571600594585607605628620611637633737650641766742850779770869855