2.0P17884PXRMINPL2982435994
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.43HEPARIN INJ,SOLN 1646389863076NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64VTE NOT GIVEN-HOSPITAL ADMISSION500304886939234NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS DECLINED5003033681543442NOHEALTH FACTORS9999999.64VTE PROHYLAXIS NOT RECEIVED5003021720149288NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS RECEIVED5003011598536246NOHEALTH FACTORS9999999.64ELECTIVE CAROTID INTERVENTION5003062385829161NOHEALTH FACTORS9999999.64COMFORT MEASURES PROTOCOL FOLLOWED500305779307093NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64COMFORT MEASURES ON OR DAY AFTER ARRIVAL500641895354898NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER TAXONOMY811.2MU STK-1 DENOM INCLU TX147929230959NOREMINDER TAXONOMY811.2MU STK DENOM EXCLU ELECTIVE SURGERY TX1223882324901NOREMINDER TERM811.5MU ADMISSION MVMT TRIAL TRM6601258096799NOREMINDER TERM811.5MU STK-1 NUMER TRM5551605993274NOREMINDER TERM811.5MU STK-1 DENOM EXCLU TRM5462941885128NOREMINDER DEFINITION811.9MU STK-1 NUMER CR204421926819YES
1
811.925;+231,+204,;10~FN(1)>1
811.925;+231,+204,;13~18
811.925;+231,+204,;14~99
811.925;+231,+204,;41~0
811.925;+231,+204,;42~0
811.9255;+232,+230,+204,;.01~1
811.9255;+232,+230,+204,;.02~DIFF_DATE
811.9255;+233,+231,+204,;.01~1
811.9255;+233,+231,+204,;.02~DIFF_DATE
811.9256;+234,+232,+230,+204,;.01~3
811.9256;+235,+233,+231,+204,;.01~3
811.9256;+236,+232,+230,+204,;.01~4
811.9256;+237,+233,+231,+204,;.01~4
811.97;+238,+204,;.01~99Y
811.97;+238,+204,;1~18
811.97;+238,+204,;2~99
811.97;+238,+204,;5~0
811.97;+238,+204,;6~0
]]>
REMINDER DEFINITION811.9MU STK-1 DENOM CR2054031445029YES
18Y
LOS 2-120D
Patients with Comfort Measures Only documented on day of or day after hospital arrival Patients enrolled in Clinical Trial
Patients admitted for Elective Carotid intervention
811.9;+205,;30~(AGE)&'FI(4)&'FI(5)&'FI(6)&(FI(1)&FF(1)&FF(2))
811.9;+205,;31~(AGE)&'FI(4)&'FI(5)&'FI(6)&(FI(1)&FF(1)&FF(2))
811.9;+205,;32~7
811.9;+205,;33~AGE;4;5;6;1;FF1;FF2
811.9;+205,;36~0
811.9;+205,;40~0
811.9;+205,;42~2
811.9;+205,;43~2;3
811.9;+205,;60~WP-start~1
^
811.9;+205,;62~1
811.9;+205,;63~0
811.9;+205,;67~0
811.9;+205,;68~0
811.9;+205,;72~0
811.9;+205,;73~0
811.9;+205,;77~0
811.9;+205,;78~0
811.9;+205,;100~LOCAL
811.9;+205,;103~L
811.9001;+206,+205,;.01~07/22/2011@03:07:41
811.9001;+206,+205,;2~WP-start~1
Exchange Stub
811.902;+207,+205,;.01~TX.MU STK-1 DENOM INCLU TX
811.902;+207,+205,;1~18
811.902;+207,+205,;2~99
811.902;+207,+205,;24~0
811.902;+207,+205,;25~0
811.902;+207,+205,;28~YES
811.902;+208,+205,;.01~CF.VA-ADMISSIONS FOR A DATE RANGE
811.902;+208,+205,;1~18
811.902;+208,+205,;24~0
811.902;+208,+205,;25~0
811.902;+209,+205,;.01~CF.VA-DISCHARGES FOR A DATE RANGE
811.902;+209,+205,;17~5
811.902;+209,+205,;24~0
811.902;+209,+205,;25~0
811.902;+210,+205,;.01~RT.MU ADMISSION MVMT TRIAL TRM
811.902;+210,+205,;24~0
811.902;+210,+205,;25~0
811.902;+211,+205,;.01~TX.MU STK DENOM EXCLU ELECTIVE SURGERY TX
811.902;+211,+205,;24~0
811.902;+211,+205,;25~0
811.902;+212,+205,;.01~RT.MU STK-1 DENOM EXCLU TRM
811.902;+212,+205,;24~0
811.902;+212,+205,;25~0
811.925;+213,+205,;.01~1
811.925;+213,+205,;3~DIFF_DATE(2,3)<121
811.925;+213,+205,;10~FN(1)<121
811.925;+213,+205,;13~18
811.925;+213,+205,;14~99
811.925;+213,+205,;41~0
811.925;+213,+205,;42~0
811.925;+214,+205,;.01~2
811.925;+214,+205,;3~DIFF_DATE(2,3)>1
811.925;+214,+205,;10~FN(1)>1
811.925;+214,+205,;41~0
811.925;+214,+205,;42~0
811.9255;+215,+213,+205,;.01~1
811.9255;+215,+213,+205,;.02~DIFF_DATE
811.9255;+216,+214,+205,;.01~1
811.9255;+216,+214,+205,;.02~DIFF_DATE
811.9256;+217,+215,+213,+205,;.01~2
811.9256;+218,+216,+214,+205,;.01~2
811.9256;+219,+215,+213,+205,;.01~3
811.9256;+220,+216,+214,+205,;.01~3
811.97;+221,+205,;.01~99Y
811.97;+221,+205,;1~18
811.97;+221,+205,;2~99
811.97;+221,+205,;5~0
811.97;+221,+205,;6~0
]]>
221910524118118109131131122144144135158157148175171162192188179209205196226222213243239230260256247277273264294290281345307298350350398363354403403474416407492479522505496530527551543534557556578570561587583610600591619615729632623767734860780771880865