2.0P171202PXRMINPL2982435994
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 GENERIC50.6WARFARIN8652690312802NOVA DRUG CLASS50.605BL11046716911543NOORDERABLE ITEMS101.43WARFARIN 1MG TAB 35634075055734NOORDERABLE ITEMS101.43WARFARIN 3MG TAB 35622965466379NOORDERABLE ITEMS101.43WARFARIN 5MG TAB 35361991140492NOORDERABLE ITEMS101.43WARFARIN 10MG TAB 35353895741717NOORDERABLE ITEMS101.43WARFARIN 2MG TAB 35342087415189NOORDERABLE ITEMS101.43WARFARIN INJ 27733562899184NOORDERABLE ITEMS101.43WARFARIN TAB 22093047933063NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS RECEIVED5003011598536246NOHEALTH FACTORS9999999.64WARFARIN PRESCRIBED AT DISCHARGE501963674032829NOHEALTH FACTORS9999999.64VTE TEST ORDER50195808123084NOHEALTH FACTORS9999999.64VTE PRESENT AT ADMISSION501943373262956NOHEALTH FACTORS9999999.64VTE DX CONFIRMED DURING HOSPTIALIZATION501931875261175NOHEALTH FACTORS9999999.64VTE NOT GIVEN-HOSPITAL ADMISSION500304886939234NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS DECLINED5003033681543442NOHEALTH FACTORS9999999.64VTE PROHYLAXIS NOT RECEIVED5003021720149288NOHEALTH FACTORS9999999.64VTE NO MECHANICAL PROPHYLAXIS: REASON501923263321586NOHEALTH 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 VTE-6 TABLE 7.04 DISCH DX TX2091488823505NOREMINDER TAXONOMY811.2MU VTE-6 TABLE 7.03 DISCH DX TX2083284149279NOREMINDER TERM811.5MU VTE-6 PROPHYLAXIS GIVEN TRM6831635030655NOREMINDER TERM811.5MU VTE-6 DENOM TEST ORDERED TRM682557709074NOREMINDER TERM811.5MU VTE-6 DENOM VTE PRESENT AT ADMISSION TRM6812646552455NOREMINDER TERM811.5MU VTE-6 DENOM CONFIRMED DX TRM6803454806409NOREMINDER TERM811.5MU VTE-6 NO PROPHYLAXIS EXCLU DENOM TRM6701309039022NOREMINDER TERM811.5MU VTE-6 EXCLU DENOM TRM669616584539NOREMINDER TERM811.5MU ADMISSION MVMT TRIAL TRM6601258096799NOREMINDER DEFINITION811.9MU VTE-6 NUMER CR2253788632228YESREMINDER DEFINITION811.9MU VTE-6 DENOM CR2214128277235YES35191052411811810913113112214414413515715714817017016118318317419619618720920920022222221323623522625324924027026625728728327430430029132131730833833432535535134237236835938938537640640239342341941047443642747947952749248353253261154553663161669064463570569574171870976574678377876978978880780279381381283182681783783685885084186786388688087189389191490689792091910339339241069103811681082107311981173