2.0P177060NQF 0371NQF 0372NQF 0373NQF 0374NQF 0375NQF 0376MUVTEVENOUS THROMBOEMBOLISMPXRMINPL2982435994
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 GENERIC50.6HEPARIN/SODIUM CHLORIDE374387006986NOVA GENERIC50.6HEPARIN802604723312NOVA DRUG CLASS50.605BL11046716911543NOVA DRUG CLASS50.605BL1152541523697464NOLABORATORY TEST60PLT 91060313375NOLABORATORY TEST60INR50751104670184NOHEALTH FACTORS9999999.64MU STK500491292931282NOHEALTH 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 ARRIVAL500641895354898NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS RECEIVED5003011598536246NOHEALTH FACTORS9999999.64WARFARIN PRESCRIBED AT DISCHARGE501963674032829NOHEALTH FACTORS9999999.64WARFARIN FOLLOW-UP MONITORING ADDRESSED50201644373442NOHEALTH FACTORS9999999.64WARFARIN ADVERSE REACTIONS ADDRESSED502003691692119NOHEALTH FACTORS9999999.64WARFARIN DIETARY ADVICE GIVEN501992792967222NOHEALTH FACTORS9999999.64WARFARIN COMPLIANCE ADDRESSED501982192273470NOHEALTH FACTORS9999999.64WARFARIN EDU MATERIAL GIVEN AT DISCH50197184824224NOHEALTH FACTORS9999999.64SURGICAL CARE IMPROVEMENT PROJECT (SCIP)500343503105561NOHEALTH FACTORS9999999.64VTE PROPHYLAXIS DOCUMENTED502094064470376NOHEALTH FACTORS9999999.64ELECTIVE CAROTID INTERVENTION5003062385829161NOHEALTH FACTORS9999999.64COMFORT MEASURES PROTOCOL FOLLOWED500305779307093NOREMINDER 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 TAXONOMY811.2MU TABLE 7.04 TX1903678313254NOREMINDER TAXONOMY811.2MU TABLE 7.03 TX1892377246465NOREMINDER 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 TAXONOMY811.2MU STK-1 DENOM INCLU TX147929230959NOREMINDER TAXONOMY811.2MU STK DENOM EXCLU ELECTIVE SURGERY TX1223882324901NOREMINDER TAXONOMY811.2MU TABLE 7.01 TX2192517265193NOREMINDER TAXONOMY811.2MU TABLE 8.2 TX1942381427883NOREMINDER TAXONOMY811.2MU STROKE 8.1 TX119368190634NOREMINDER 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 TERM811.5MU VTE-6 PROPHYLAXIS GIVEN TRM672719937458NOREMINDER TERM811.5MU VTE-5 WARFARIN TRM6832360865138NOREMINDER TERM811.5MU VTE-5 WARFARIN INSTRUCTION TRM6793294970800NOREMINDER TERM811.5MU VTE-5 DENOM TEST ORDER TRM6783278676975NOREMINDER TERM811.5MU VTE-5 DENOM CONFIRMED DX TRM677865367625NOREMINDER TERM811.5MU VTE-5 DENOM INCL 7.03 OR 7.04 TX TRM6762774899428NOREMINDER TERM811.5MU DISCHARGED HOME-HOSPIC CARE6751839453929NOREMINDER TERM811.5MU DISCHARGED COURT/LAW 6741301941291NOREMINDER TERM811.5MU DISCHARGED HOME6732743717861NOREMINDER TERM811.5MU VTE-5 DENOM EXCLU TRM6711175648455NOREMINDER TERM811.5MU DISCHARGED PT LEFT AGAINST MED ADVICE6881255054350NOREMINDER TERM811.5MU DISCHARGED TRANSFER OUT6871371446481NOREMINDER TERM811.5MU VTE-4 HEPARIN MED TRM6862876419271NOREMINDER TERM811.5MU DISCHARGE DEATH685536067863NOREMINDER TERM811.5MU DISCHARGED TO HEALTH CARE FACILITY FOR HOSPIC CARE6841819822144NOREMINDER TERM811.5MU VTE-4 DENOM PLT LAB RESULT TRM6891938584144NOREMINDER TERM811.5MU WARFARIN THERAPY740464909860NOREMINDER TERM811.5MU VTE-3 DENOM TX7391599420264NOREMINDER 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/20/2012@09:51:16
811.53;+743,+741,;2~WP-start~1
Exchange Stub
]]>
REMINDER TERM811.5MU TPA THERAPY7372878031716NOREMINDER TERM811.5MU VTE-1 NUMER PROPHYLAXIS TRM7431028304784NOREMINDER TERM811.5MU VTE-2 DENOM TX TRM7381518450117NOREMINDER TERM811.5MU VTE-2 DENOM EXCLU HF TRM6613477886431NOREMINDER TERM811.5MU ADMISSION ICU TRM6581783261594NOREMINDER TERM811.5MU STK-1 NUMER TRM5551605993274NOREMINDER TERM811.5MU STK-1 DENOM EXCLU TRM5462941885128NOREMINDER TERM811.5MU VTE-1 DENOM EXCLU TX TRM527189263354NOREMINDER TERM811.5MU VTE-1 DENOM EXCLU HF TRM525676574987NOREMINDER DEFINITION811.9MU VTE-6 DENOM CR2214128277235NOREMINDER DEFINITION811.9MU VTE-6 NUMER CR2253788632228NOREMINDER DEFINITION811.9MU VTE-5 DENOM CR2231077067850NOREMINDER DEFINITION811.9MU VTE-5 NUMER CR2244223723788NOREMINDER DEFINITION811.9MU VTE-4 DENOM CR2261783933120NOREMINDER DEFINITION811.9MU VTE-4 NUMER CR2271778718948NOREMINDER DEFINITION811.9MU VTE-3 DENOM CR2453747727026NOREMINDER DEFINITION811.9MU VTE-3 NUMER CR2462610777584NO
=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-2 NUMER CR244308646270NO
1
811.925;+255,+244,;10~FN(1)>1
811.925;+255,+244,;41~0
811.925;+255,+244,;42~0
811.925;+256,+244,;.01~3
811.925;+256,+244,;3~DIFF_DATE(12,3)<1
811.925;+256,+244,;10~FN(1)<1
811.925;+256,+244,;41~0
811.925;+256,+244,;42~0
811.925;+257,+244,;.01~4
811.925;+257,+244,;3~MAX_DATE(5,7,4,1)MAX_DATE(3)
811.925;+258,+244,;10~FN(1)>FN(2)
811.925;+258,+244,;41~0
811.925;+258,+244,;42~0
811.925;+259,+244,;.01~6
811.925;+259,+244,;3~VALUE(5,1,"START DATE")REMINDER DEFINITION811.9MU VTE-2 DENOM CR2102276423367NO
1
811.925;+220,+210,;10~FN(1)>1
811.925;+220,+210,;41~0
811.925;+220,+210,;42~0
811.925;+221,+210,;.01~3
811.925;+221,+210,;3~DIFF_DATE(12,3)<1
811.925;+221,+210,;10~FN(1)<1
811.925;+221,+210,;41~0
811.925;+221,+210,;42~0
811.925;+222,+210,;.01~4
811.925;+222,+210,;3~MAX_DATE(5,7,4,1)MAX_DATE(3)
811.925;+223,+210,;10~FN(1)>FN(2)
811.925;+223,+210,;41~0
811.925;+223,+210,;42~0
811.925;+224,+210,;.01~6
811.925;+224,+210,;3~VALUE(5,1,"START DATE")REMINDER DEFINITION811.9MU STK-1 NUMER CR2042839878557NO
1
811.925;+228,+204,;10~FN(1)>1
811.925;+228,+204,;13~18
811.925;+228,+204,;14~99
811.925;+228,+204,;41~0
811.925;+228,+204,;42~0
811.9255;+229,+227,+204,;.01~1
811.9255;+229,+227,+204,;.02~DIFF_DATE
811.9255;+230,+228,+204,;.01~1
811.9255;+230,+228,+204,;.02~DIFF_DATE
811.9256;+231,+229,+227,+204,;.01~3
811.9256;+232,+230,+228,+204,;.01~3
811.9256;+233,+229,+227,+204,;.01~4
811.9256;+234,+230,+228,+204,;.01~4
811.97;+235,+204,;.01~99Y
811.97;+235,+204,;1~18
811.97;+235,+204,;2~99
811.97;+235,+204,;5~0
811.97;+235,+204,;6~0
]]>
REMINDER DEFINITION811.9MU VTE-1 DENOM CR191171958310NO
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
]]>
REMINDER LIST RULE810.4MU VTE-6 DENOM RR113818724216NOREMINDER LIST RULE810.4MU VTE-6 DENOM RS1622514996428YESREMINDER LIST RULE810.4MU VTE-6 NUMER RR1124050644097NOREMINDER LIST RULE810.4MU VTE-6 NUMER RS1583669180762YESREMINDER LIST RULE810.4MU VTE-5 DENOM RR1112205703405NOREMINDER LIST RULE810.4MU VTE-5 DENOM RS156409976344YESREMINDER LIST RULE810.4MU VTE-5 NUMER RR1101121651988NOREMINDER LIST RULE810.4MU VTE-5 NUMER RS1471463497614YESREMINDER LIST RULE810.4MU VTE-4 DENOM RR1091530593697NOREMINDER LIST RULE810.4MU VTE-4 DENOM RS1461662488660YESREMINDER LIST RULE810.4MU VTE-4 NUMER RR1082593673304NOREMINDER LIST RULE810.4MU VTE-4 NUMER RS145742596034YESREMINDER LIST RULE810.4MU VTE-3 DENOM RR1061063295366NOREMINDER LIST RULE810.4MU VTE-3 DENOM RS1443624820209YESREMINDER LIST RULE810.4MU VTE-3 NUMER RR1074274243711NOREMINDER LIST RULE810.4MU VTE-3 NUMER RS1292539311207YESREMINDER LIST RULE810.4MU VTE-2 NUMER RR105645961011NOREMINDER LIST RULE810.4MU VTE-2 NUMER RS1283961716267YESREMINDER LIST RULE810.4MU VTE-2 DENOM RR703877881034NOREMINDER LIST RULE810.4MU VTE-2 DENOM RS712742449085YESREMINDER LIST RULE810.4MU STK-1 NUMER RR63384274410NOREMINDER LIST RULE810.4MU VTE-1 NUMER RS694234423142YESREMINDER LIST RULE810.4MU VTE-1 DENOM RR661419191647NOREMINDER LIST RULE810.4MU VTE-1 DENOM RS67788398441YES1194713352146146137159159150172172163185185176198198189211211202224224215238237228255251242272268259289285276306302293323319310340336327357353344374370361391387378408404395425421412442438429459455446476472463493489480510506497527523514544540531561557548578574565629591582634634682647638687687766700691786771845799790860850938873864958943101697196210311021107710441035108910821519110210931627152417091640163117301714180017431734181818051852183118221861185718871874186518941892191619071898192219212672193519262860267729312873286429492936297929622953298729843593300029913745359837713758374937783776384437913782386138493879387438653885388439033898388939093908392739223913393339323954394639373963395939823976396739893987401040023993401640154039402940204050404440704063405440784075410040914082411041054128412341144134413341524147413841584157417741714162418441824205419741884211421042324224421542384237425942514242426542644283427842694289428843104302429343164315433743294320434343424364435643474373436943944386437744004399442144134404442744264445444044314451445044704464445544774475449644904481450345014523451645074529452845494542453345554554457545684559458345804607459645874619461246484632462346634653468546764667469346904713470646974719471847404732472347494745477247624753478147774813479447854831481848524844483548594857495848724863498849635101500149925137510652325150514152605237535652735264538453615469539753885492547455805505549656045585568256175608570256875805571557065834581059685847583860195973615060326023620061556305621362046340631064216353634464446426646364576448646864686489648164726495649465146508649965196519654065326523654665456565655965506570657065916583657465976596661666106601662166216642663466256648664766676661665266726672669366856676669966986718671267036723672367446736672767506749676967636754677467746795678767786801680068206814680568256825684668386829685268516871686568566876687668976889688069036902692269166907692769276948694069316954695369736967695869786978699969916982700570047024701870097029702970507042703370567055