2.0P17 1202 MU_VTE6 BOKHARI,SYED VOE OFFICE INSTITUTION 07/22/2011@03:06:09 PXRMINPL 2982435994 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 GENERIC 50.6 WARFARIN 865 2690312802 NO VA DRUG CLASS 50.605 BL110 46 716911543 NO ORDERABLE ITEMS 101.43 WARFARIN 1MG TAB 3563 4075055734 NO ORDERABLE ITEMS 101.43 WARFARIN 3MG TAB 3562 2965466379 NO ORDERABLE ITEMS 101.43 WARFARIN 5MG TAB 3536 1991140492 NO ORDERABLE ITEMS 101.43 WARFARIN 10MG TAB 3535 3895741717 NO ORDERABLE ITEMS 101.43 WARFARIN 2MG TAB 3534 2087415189 NO ORDERABLE ITEMS 101.43 WARFARIN INJ 2773 3562899184 NO ORDERABLE ITEMS 101.43 WARFARIN TAB 2209 3047933063 NO HEALTH FACTORS 9999999.64 MU STK 50049 1292931282 NO HEALTH FACTORS 9999999.64 VTE PROPHYLAXIS RECEIVED 500301 1598536246 NO HEALTH FACTORS 9999999.64 WARFARIN PRESCRIBED AT DISCHARGE 50196 3674032829 NO HEALTH FACTORS 9999999.64 VTE TEST ORDER 50195 808123084 NO HEALTH FACTORS 9999999.64 VTE PRESENT AT ADMISSION 50194 3373262956 NO HEALTH FACTORS 9999999.64 VTE DX CONFIRMED DURING HOSPTIALIZATION 50193 1875261175 NO HEALTH FACTORS 9999999.64 VTE NOT GIVEN-HOSPITAL ADMISSION 500304 886939234 NO HEALTH FACTORS 9999999.64 VTE PROPHYLAXIS DECLINED 500303 3681543442 NO HEALTH FACTORS 9999999.64 VTE PROHYLAXIS NOT RECEIVED 500302 1720149288 NO HEALTH FACTORS 9999999.64 VTE NO MECHANICAL PROPHYLAXIS: REASON 50192 3263321586 NO HEALTH FACTORS 9999999.64 ENROLLED IN CLINICAL TRIALS 50071 4182986683 NO HEALTH FACTORS 9999999.64 COMFORT MEASURES ON OR DAY AFTER ARRIVAL 50064 1895354898 NO REMINDER COMPUTED FINDINGS 811.4 VA-ADMISSIONS FOR A DATE RANGE 90 1960922291 NO REMINDER COMPUTED FINDINGS 811.4 VA-DISCHARGES FOR A DATE RANGE 94 1608937132 NO REMINDER TAXONOMY 811.2 MU VTE-6 TABLE 7.04 DISCH DX TX 209 1488823505 NO REMINDER TAXONOMY 811.2 MU VTE-6 TABLE 7.03 DISCH DX TX 208 3284149279 NO REMINDER TERM 811.5 MU VTE-6 PROPHYLAXIS GIVEN TRM 683 1635030655 NO REMINDER TERM 811.5 MU VTE-6 DENOM TEST ORDERED TRM 682 557709074 NO REMINDER TERM 811.5 MU VTE-6 DENOM VTE PRESENT AT ADMISSION TRM 681 2646552455 NO REMINDER TERM 811.5 MU VTE-6 DENOM CONFIRMED DX TRM 680 3454806409 NO REMINDER TERM 811.5 MU VTE-6 NO PROPHYLAXIS EXCLU DENOM TRM 670 1309039022 NO REMINDER TERM 811.5 MU VTE-6 EXCLU DENOM TRM 669 616584539 NO REMINDER TERM 811.5 MU ADMISSION MVMT TRIAL TRM 660 1258096799 NO REMINDER DEFINITION 811.9 MU VTE-6 NUMER CR 225 3788632228 YES REMINDER DEFINITION 811.9 MU VTE-6 DENOM CR 221 4128277235 YES 35 19 105 24 118 118 109 131 131 122 144 144 135 157 157 148 170 170 161 183 183 174 196 196 187 209 209 200 222 222 213 236 235 226 253 249 240 270 266 257 287 283 274 304 300 291 321 317 308 338 334 325 355 351 342 372 368 359 389 385 376 406 402 393 423 419 410 474 436 427 479 479 527 492 483 532 532 611 545 536 631 616 690 644 635 705 695 741 718 709 765 746 783 778 769 789 788 807 802 793 813 812 831 826 817 837 836 858 850 841 867 863 886 880 871 893 891 914 906 897 920 919 1033 933 924 1069 1038 1168 1082 1073 1198 1173