2.0P171050PXRMINPL2982435994
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.605BL11046716911543NOLABORATORY TEST60INR50751104670184NOORDERABLE ITEMS101.43ALTEPLASE(t-PA) INJ,PWDR 352968830480NOORDERABLE ITEMS101.43WARFARIN TAB 22093047933063NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS RECEIVED5003011598536246NOHEALTH FACTORS9999999.64ENROLLED IN CLINICAL TRIALS500714182986683NOHEALTH FACTORS9999999.64COMFORT MEASURES ON OR DAY AFTER ARRIVAL500641895354898NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER TAXONOMY811.2MU TABLE 7.04 TX1903678313254NOREMINDER TAXONOMY811.2MU TABLE 7.03 TX1892377246465NOREMINDER TERM811.5MU TPA THERAPY7431393209521NOREMINDER TERM811.5MU VTE-3 NUMER INR<2 TRM7421362577542NOREMINDER TERM811.5MU VTE-3 NUMER INR>=2 TRM7413670698211NO
=2 TRM
811.5;+741,;100~LOCAL
811.52;+742,+741,;.01~LT.INR
811.52;+742,+741,;14~I V>1.9
811.52;+742,+741,;22~I V>1.9
811.53;+743,+741,;.01~07/22/2011@02:46:31
811.53;+743,+741,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5MU WARFARINE THERAPY7402055423894NOREMINDER TERM811.5MU VTE-3 DENOM TX7391599420264NOREMINDER TERM811.5MU DISCHARGED PT LEFT AGAINST MED ADVICE6881255054350NOREMINDER TERM811.5MU DISCHARGED TRANSFER OUT6871371446481NOREMINDER TERM811.5MU DISCHARGE DEATH685536067863NOREMINDER TERM811.5MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE6841819822144NOREMINDER TERM811.5MU DISCHARGED HOME-HOSPIC CARE6751839453929NOREMINDER TERM811.5MU VTE-6 EXCLU DENOM TRM669616584539NOREMINDER DEFINITION811.9MU VTE-3 NUMER CR2463907562591YES
=2 TRM
811.902;+260,+246,;24~0
811.902;+260,+246,;25~0
811.925;+261,+246,;.01~1
811.925;+261,+246,;3~DIFF_DATE(1,12)<121
811.925;+261,+246,;10~FN(1)<121
811.925;+261,+246,;41~0
811.925;+261,+246,;42~0
811.925;+262,+246,;.01~2
811.925;+262,+246,;3~DUR(8)>4
811.925;+262,+246,;10~FN(1)>4
811.925;+262,+246,;41~0
811.925;+262,+246,;42~0
811.925;+263,+246,;.01~3
811.925;+263,+246,;3~DUR(13)>4
811.925;+263,+246,;10~FN(1)>4
811.925;+263,+246,;41~0
811.925;+263,+246,;42~0
811.9255;+264,+261,+246,;.01~1
811.9255;+264,+261,+246,;.02~DIFF_DATE
811.9255;+265,+262,+246,;.01~1
811.9255;+265,+262,+246,;.02~DUR
811.9255;+266,+263,+246,;.01~1
811.9255;+266,+263,+246,;.02~DUR
811.9256;+267,+264,+261,+246,;.01~1
811.9256;+268,+265,+262,+246,;.01~8
811.9256;+269,+266,+263,+246,;.01~13
811.9256;+270,+264,+261,+246,;.01~12
811.97;+271,+246,;.01~99Y
811.97;+271,+246,;1~18
811.97;+271,+246,;5~0
811.97;+271,+246,;6~0
]]>
REMINDER DEFINITION811.9MU VTE-3 DENOM CR2453028850740YES271910524118118109131131122144144135157157148170170161184183174201197188218214205235231222283248239288288339301292344344422357348442427500455446515505537528519547542567560551573572593586577599598620612603629625648642633655653676668659682681703695686709708730722713736735757749740763762784776767790789809803794816814919829820948924102696195210461031