2.0P173604MU_VTE1BOKHARI,SYEDVOE OFFICE INSTITUTION07/22/2011@02:40:22PXRMINPL2982435994
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 ARRIVAL500641895354898NOREMINDER COMPUTED FINDINGS811.4VA-ADMISSIONS FOR A DATE RANGE901960922291NOREMINDER COMPUTED FINDINGS811.4VA-DISCHARGES FOR A DATE RANGE941608937132NOREMINDER TAXONOMY811.2MU TABLE 8.2 TX1942381427883NOREMINDER TAXONOMY811.2MU TABLE 7.04 TX1903678313254NOREMINDER TAXONOMY811.2MU TABLE 7.03 TX1892377246465NOREMINDER TAXONOMY811.2MU TABLE 7.01 TX1872517265193NOREMINDER TAXONOMY811.2MU STROKE 8.1 TX119368190634NOREMINDER 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-1 NUMER PROPHYLAXIS TRM7371142444259NOREMINDER TERM811.5MU ADMISSION ICU TRM6581783261594NOREMINDER TERM811.5MU VTE-1 DENOM EXCLU TX TRM527189263354NOREMINDER TERM811.5MU VTE-1 DENOM EXCLU HF TRM525676574987NOREMINDER DEFINITION811.9MU VTE-1 NUMER CR243597670637YES
1
811.925;+252,+243,;10~FN(1)>1
811.925;+252,+243,;41~0
811.925;+252,+243,;42~0
811.925;+253,+243,;.01~3
811.925;+253,+243,;3~DIFF_DATE(11,3)>0
811.925;+253,+243,;10~FN(1)>0
811.925;+253,+243,;41~0
811.925;+253,+243,;42~0
811.9255;+254,+251,+243,;.01~1
811.9255;+254,+251,+243,;.02~DIFF_DATE
811.9255;+255,+252,+243,;.01~1
811.9255;+255,+252,+243,;.02~DIFF_DATE
811.9255;+256,+253,+243,;.01~1
811.9255;+256,+253,+243,;.02~DIFF_DATE
811.9256;+257,+254,+251,+243,;.01~2
811.9256;+258,+255,+252,+243,;.01~2
811.9256;+259,+256,+253,+243,;.01~11
811.9256;+260,+254,+251,+243,;.01~3
811.9256;+261,+255,+252,+243,;.01~3
811.9256;+262,+256,+253,+243,;.01~3
811.97;+263,+243,;.01~99Y
811.97;+263,+243,;1~18
811.97;+263,+243,;5~0
811.97;+263,+243,;6~0
]]>
REMINDER DEFINITION811.9MU VTE-1 DENOM CR191171958310YES
1
811.925;+199,+191,;10~FN(1)>1
811.925;+199,+191,;41~0
811.925;+199,+191,;42~0
811.925;+200,+191,;.01~3
811.925;+200,+191,;3~DIFF_DATE(11,3)>0
811.925;+200,+191,;10~FN(1)>0
811.925;+200,+191,;41~0
811.925;+200,+191,;42~0
811.9255;+201,+198,+191,;.01~1
811.9255;+201,+198,+191,;.02~DIFF_DATE
811.9255;+202,+199,+191,;.01~1
811.9255;+202,+199,+191,;.02~DIFF_DATE
811.9255;+203,+200,+191,;.01~1
811.9255;+203,+200,+191,;.02~DIFF_DATE
811.9256;+204,+201,+198,+191,;.01~2
811.9256;+205,+202,+199,+191,;.01~2
811.9256;+206,+203,+200,+191,;.01~11
811.9256;+207,+201,+198,+191,;.01~3
811.9256;+208,+202,+199,+191,;.01~3
811.9256;+209,+203,+200,+191,;.01~3
811.97;+210,+191,;.01~99Y
811.97;+210,+191,;1~18
811.97;+210,+191,;5~0
811.97;+210,+191,;6~0
]]>
322010625119119110132132123145145136158158149172171162189185176206202193223219210240236227257253244308270261313313361326317366366392379370399397477412403497482555510501570560117658357413281181139413411332141113991457142414151469146218991482147320071904208920202011211020942180212321142198218522322211220222412237226722542245227422722296228722782302230130522315230632403057326832533244328432733304329732883310330933423323331433603347338133733364338833863472340133923496347735773509350036003582