MEDITECH.CUST.RPTS^North Country Regional Hospital^NCH^LIVE.MIS^HAB^20040910^B^THERMAL IV LABEL @@VERSION:1 PHA.RX.zcus.hab.std.iv.label.th.040817 @@PROC PHA.RX.zcus.hab.std.iv.label.th.040817 PHA.RXzcus.hab.std.iv.label.th.040817UYY@InquiryY @@MACRO PHA.RX.zcus.hab.std.iv.label.th.040817.M.creat 0 /patient^patient,""^/CRCL, 1 IF{@patient's.ht.in.cm_.=. "HEIGHT MISSING"^/CRCL; 2 @patient's.wt.in.kg^WT_.=. "WEIGHT MISSING"^/CRCL; 3 %PHA.KEYWORDS.get(1,patient,1,"CR")^SRCR_.=.!(SRCR?0A) "LAB RESULTS N/A"^/CRCL; 4 @IBW, 5 IF{@patient's.age^AGE#(L(AGE)^LEN-1)?0A @CONVERT.AGE;AGE}^AGE, 6 @CREAT}; 7 8 CREAT 9 IF{(SRCR<1.01) 1.0^SRCR}, 10 ((140-AGE*WT:6D/(72*SRCR)*F):2D_" ML/MIN")^/CRCL 11 12 IBW 13 IF{@PHA.PAT.sex="M" 1^F,50^S;0.85^F,45.5^S}, 14 S+(2.3*((@patient's.ht.in.ft*12+@patient's.ht.in.in)-60)!0)^IBW, 15 IF{WT1.2 ((WT-IBW)*0.4)+IBW; 17 IBW}^WT 18 19 CONVERT.AGE 20 ""^/YEARS^/NUM, 21 0-1^START, 22 DO{START+1^START90 1^/PR, DC8 LC=(1=/PR)&(@status="DC")} DC9 DC10 LC=IF{""^/PR,((%Z.date.clinical(@.today)*86400+%Z.time.in(@.now))- DC11 LC=(%Z.date.clinical(@enter.date)*86400+%Z.time.in(@enter.time)))<120 1^/PR, DC12 LC=(1=/PR)!(@status="AC")} DC13 DC14 DC15 DC16 DC17 Modified 9/25/03 - DC18 changed IV from @rate to truncate DC19 DC20 Modified 7/10/03 - DC21 put in code to check page 2 of formulary for 1st additive. If "Y" at CDS - pulls in drug DC22 id for name. DC23 DC24 MODIFIED 1/23/02 - FOR 6 ADDITIVES DC25 DC26 pulled out creatnine clearance. DC27 field: DC28 DAT=FREE DC29 JFY=L DC30 LEN=15 DC31 VAL=/CRCL DC32 DC33 NEED CODE: THERMAL YES DC34 in footnotes to work. DC35 DC36 DC37 This RW example is modeled after the standard Pharmacy IV label, "PHA.RX.std.iv.label". DC38 DC39 Before editing this label example, copy and rename "PHA.RX.zcus.npr.std.iv.label" DC40 to a hospital or user specific identifier, removing "npr.std". DC41 DC42 To use the renamed RW label example, enter the name at the INP LABEL prompt, for DC43 selected IV order types through the Pharmacy ORDER TYPE DICTIONARY. DC44 DC45 LINE ATTRIBUTE DESCRIPTIONS (line number, attribute, description): DC46 ------------------------------------------------------------------------- DC47 DC48 3 US Print an underscore after the PREP BY: field (HP LASERS) DC49 11 LC Print this line only if a first label comment line exists. DC50 12 LC Continue printing the multiple "label.comment" for a maximum of 4 lines. DC51 13 LC Pad with blank lines, leaving 2 lines at the bottom for the DISCONTINUE/BOTTLE#. DC52 14 LC Print a DC message for an rx with AUTO CREDIT data if the med is DC'ed and the DC53 PHA parameter is set to credit DC'ed IV's. DC54 15 LC Print a DC message for DC'ed rx's without AUTO CREDIT data when the PHA parameter DC55 is not set to credit DC'ed IV's. DC56 16 LC Print BOTTLE # and BOTTLE DUE data only for active medications. DC57 DC58 DC59 NOTE: The field trade name was removed in the example due to space constraints. DC60 To add this field, use of a separate line is suggested. DC61 A computed field is required. EXAMPLE: xx.add.trade.name DC62 DAT=FREE DC63 FNC=LST DC64 LEN=20 DC65 VAL=IF{@additive's.name^TN " ("_TN_")"} F1 xx.ed.staff xx.ed.staff2L F1CDAT FREE F1CJFY L F1CLEN 50 F1CSIZE 2 F1CVAL "ENTERED BY ER STAFF" F2 xx.temp.iv xx.temp.iv2L F2CDAT FREE F2CJFY L F2CLEN 58 F2CVAL ("***",@PHA.OT.name[@order.type],"***"):58C F3 xx.patient.namexx.patient.name2L F3CDAT FREE F3CJFY L F3CLEN 40 F3CSIZE 1.8 F3CVAL @patient's.name F4 xx.creatx2L F4CDAT FREE F4CJFY L F4CLEN 1 F4CVAL 1 F5 patient's.acct.number patient's.ac12L F6 xx.peds.area xx.peds.area2R F6CDAT FREE F6CFONT b F6CJFY R F6CLEN 20 F6CSIZE 1.5 F6CVAL IF{@PHA.PAT.room[@patient]^RM="323"!(RM="324")!(RM="325") "**Peds Area**";RM="326"!(RM="327")!(RM="328") "**Peds Area**";" "} F6CLVAL1 74 F6CLVAL2 51 F7 xx.location.room.bedxx.location.room.be2L F7CDAT FREE F7CJFY L F7CLEN 20 F7CVAL @patient's.location_" "_(@patient's.room.bed) F8 numbernumber11L F8CLEN 9 F9 patient's.agepatient7L F10 patient's.wt.in.kgpatien6R F11 xx.inchxx.i2L F11CDAT FREE F11CJFY L F11CLEN 4 F11CVAL (@patient's.ht.in.cm:2D/2.54) F12 xx.vol.rate.dur.site xx.vol.rat2L F12CDAT FREE F12CJFY L F12CLEN 10 F12CVAL (@total.volume,@PHA.DRUG.dispense.unit[@carrier[1]]) F13 xx.ratexx.rat2L F13CDAT FREE F13CJFY L F13CLEN 6 F13CSIZE 1.3 F13CVAL IF{@rate.in.mls.per.hr^RT<1 RT:1D;RT:0D} F14 xx.rate.unitxx.rat2L F14CDAT FREE F14CJFY L F14CLEN 6 F14CVAL "mls/hr" F15 xx.time.site xx.time.site2L F15CDAT FREE F15CJFY L F15CLEN 37 F15CVAL ("("_@duration_")","SITE:",@site) F16 xx.carrier1 xx.carrier12L F16CDAT FREE F16CJFY L F16CLEN 31 F16CSIZE 1.3 F16CVAL IF{@PHA.DRUG.drug.id[@carrier[1]];@PHA.DRUG.generic.name[@PHA.DRUG.generic[@carrier[1]]]} F16CLVAL1 34 F16CLVAL2 55 F17 xx.car.vol.1 xx.car.vo2R F17CDAT INT F17CJFY R F17CLEN 9 F17CVAL @carrier.volume[1] F18 carrier's.dispense.unit carrier's.10L F19 xx.carrier.trade.smallxx.carrier.trade.sm2L F19CDAT FREE F19CJFY L F19CLEN 32 F19CVAL @PHA.DRUG.name[@carrier[1]]_" "_@PHA.DRUG.strength[@carrier[1]] F20 xx.additive.1 xx.additive.12L F20CDAT FREE F20CFONT B F20CJFY L F20CLEN 30 F20CSIZE 1.3 F20CVAL @PHA.GENERIC.name[@PHA.DRUG.generic[@additive[1]]]:14T_" ("_@PHA.DRUG.name[@additive[1]]_")" F20CLVAL1 60 F20CLVAL2 32 F21 xx.additive.dose1xx.add2R F21CDAT INT F21CJFY R F21CLEN 6 F21CVAL @additive.dose[1] F22 xx.add.1.ord.unitxx.2L F22CDAT FREE F22CJFY L F22CLEN 3 F22CVAL @PHA.DRUG.order.unit[@additive[1]] F23 xx.add.vol xx.add.vo2L F23CDAT FREE F23CJFY L F23CLEN 9 F23CVAL IF{@additive.volume[1]>0^VOL "("_VOL_" ML)"} F24 xx.add.1.drug.rx.idxx.add.1.drug.rx.id2L F24CDAT FREE F24CFONT B F24CJFY L F24CLEN 30 F24CSIZE 1.3 F24CVAL @PHA.DRUG.drug.id[@first.additive] F25 xx.add.1.d.idxx.add2R F25CDAT INT F25CJFY R F25CLEN 6 F25CVAL @additive.dose[1] F26 xx.add.ou.1.d.idxx.2L F26CDAT FREE F26CJFY L F26CLEN 3 F26CVAL @PHA.DRUG.order.unit[@additive[1]] F27 xx.ad.1.vol.drug.id xx.ad.1.v2L F27CDAT FREE F27CJFY L F27CLEN 9 F27CVAL IF{@additive.volume[1]>0^VOL "("_VOL_" ML)"} F28 xx.add.name.2 xx.add.name.22L F28CDAT FREE F28CJFY L F28CLEN 30 F28CVAL @PHA.GENERIC.name[@PHA.DRUG.generic[@additive[2]]]_" ("_@PHA.DRUG.name[@additive[2]]_")" F28CLVAL1 56 F28CLVAL2 32 F29 xx.a.d.2xx.a.d2R F29CDAT INT F29CJFY R F29CLEN 6 F29CVAL @additive.dose[2] F30 xx.add.2.uxx.2L F30CDAT FREE F30CJFY L F30CLEN 3 F30CVAL @PHA.DRUG.order.unit[@additive[2]] F31 xx.add.v2 xx.add.v22L F31CDAT FREE F31CJFY L F31CLEN 9 F31CVAL IF{@additive.volume[2]>0^VOL "("_VOL_" ML)"} F32 xx.add.name.3 xx.add.name.32L F32CDAT FREE F32CJFY L F32CLEN 30 F32CVAL @PHA.GENERIC.name[@PHA.DRUG.generic[@additive[3]]]_" ("_@PHA.DRUG.name[@additive[3]]_")" F32CLVAL1 56 F32CLVAL2 32 F33 xx.a.d.3xx.a.d2R F33CDAT INT F33CJFY R F33CLEN 6 F33CVAL @additive.dose[3] F34 xx.add.3.uxx.2L F34CDAT FREE F34CJFY L F34CLEN 3 F34CVAL @PHA.DRUG.order.unit[@additive[3]] F35 xx.add.v3 xx.add.v32L F35CDAT FREE F35CJFY L F35CLEN 9 F35CVAL IF{@additive.volume[3]>0^VOL "("_VOL_" ML)"} F36 xx.add.name.4 xx.add.name.42L F36CDAT FREE F36CJFY L F36CLEN 30 F36CVAL @PHA.GENERIC.name[@PHA.DRUG.generic[@additive[4]]]_" ("_@PHA.DRUG.name[@additive[4]]_")" F36CLVAL1 56 F36CLVAL2 32 F37 xx.a.d.4xx.a.d2R F37CDAT INT F37CJFY R F37CLEN 6 F37CVAL @additive.dose[4] F38 xx.add.4.uxx.2L F38CDAT FREE F38CJFY L F38CLEN 3 F38CVAL @PHA.DRUG.order.unit[@additive[4]] F39 xx.add.v4 xx.add.v42L F39CDAT FREE F39CJFY L F39CLEN 9 F39CVAL IF{@additive.volume[4]>0^VOL "("_VOL_" ML)"} F40 xx.add.name.5 xx.add.name.52L F40CDAT FREE F40CJFY L F40CLEN 30 F40CSIZE 1.3 F40CVAL @PHA.GENERIC.name[@PHA.DRUG.generic[@additive[5]]]_" ("_@PHA.DRUG.name[@additive[5]]_")" F40CLVAL1 56 F40CLVAL2 32 F41 xx.a.d.5xx.a.d2R F41CDAT INT F41CJFY R F41CLEN 6 F41CVAL @additive.dose[5] F42 xx.ad.5.uxx.2L F42CDAT FREE F42CJFY L F42CLEN 3 F42CVAL @PHA.DRUG.order.unit[@additive[5]] F43 xx.add.v5 xx.add.v52L F43CDAT FREE F43CJFY L F43CLEN 9 F43CVAL IF{@additive.volume[5]>0^VOL "("_VOL_" ML)"} F44 xx.add.name.6 xx.add.name.62L F44CDAT FREE F44CJFY L F44CLEN 30 F44CSIZE 1.3 F44CVAL @PHA.GENERIC.name[@PHA.DRUG.generic[@additive[6]]]_" ("_@PHA.DRUG.name[@additive[6]]_")" F44CLVAL1 56 F44CLVAL2 32 F45 xx.a.d.6xx.a.d2R F45CDAT INT F45CJFY R F45CLEN 6 F45CVAL @additive.dose[6] F46 xx.ad.6.uxx.2L F46CDAT FREE F46CJFY L F46CLEN 3 F46CVAL @PHA.DRUG.order.unit[@additive[6]] F47 xx.add.v6 xx.add.v62L F47CDAT FREE F47CJFY L F47CLEN 9 F47CVAL IF{@additive.volume[6]>0^VOL "("_VOL_" ML)"} F48 label.comment label.comment60L F49 xx.dc.auto.credits xx.dc.aut2L F49CDAT FREE F49CJFY L F49CLEN 9 F49CVAL @dc.auto.credits!0 F50 xx.bottle.numberxx.2L F50CDAT FREE F50CJFY L F50CLEN 3 F50CVAL @bottle.number F51 xx.bottle.due xx.bottle.due2L F51CDAT DATE F51CJFY L F51CLEN 13 F51CVAL IF{@bottle.due;@.today} F52 xx.prep.inst.lablexx.prep.inst.lable F52CDAT FREE F52CJFY L F52CLEN 55 F52CSIZE 1.5 F52CVAL " ***** Prep Instructions ******" F53 patient's.namepatient's.name30L F53CLEN 18 F54 patient's.room.bedpatient's.room14L F55 xx.carrier xx.carrier F55CDAT FREE F55CJFY L F55CLEN 10 F55CVAL @carrier[1] F56 xx.additive xx.additiv F56CDAT FREE F56CJFY L F56CLEN 10 F56CVAL @additive[1] F57 prep.instructionprep.instruction80L F57CLEN 56 F58 xx.additives.trade.namexx.additives.trade. F58CDAT FREE F58CFNC LST F58CJFY L F58CLEN 40 F58CSIZE 1.4 F58CVAL @additive's.generic.name_" "_IF{@additive's.name^NAME ")"^FIN,"("_NAME;""^FIN}$40_FIN F58CLVAL1 62 F58CLVAL2 23 F58SE3 IG"ignore""ignore" F59 xx.carriers.trade.namexx.carriers.trade.n F59CDAT FREE F59CJFY L F59CLEN 41 F59CSIZE 1.4 F59CVAL @carrier's.generic.id_" "_IF{@carrier's.name^NAME ")"^FIN,"("_NAME;""^FIN}$40_FIN F59CLVAL1 58 F59CLVAL2 23 F59SE2 IG"ignore""ignore" FS1 urn FS1SE1 EQ/urn/urn FI20 501 FI30 582 FI50 403 FI60 14 FI68 125 FI622 206 FI643 207 FI73 98 FI717 79 FI734 610 FI753 411 FI80 1012 FI811 613 FI818 614 FI824 3715 FI110 3116 FI1138 917 FI1148 1018 FI122 3219 FI140 3020 FI1439 621 FI1446 322 FI1449 923 FI150 3024 FI1539 625 FI1546 326 FI1549 927 FI160 3028 FI1639 629 FI1646 330 FI1649 931 FI170 3032 FI1739 633 FI1746 334 FI1749 935 FI180 3036 FI1839 637 FI1846 338 FI1849 939 FI190 3040 FI1939 641 FI1946 342 FI1949 943 FI200 3044 FI2039 645 FI2046 346 FI2049 947 FI211 6048 FI221 6048 FI2436 949 FI255 350 FI2512 1351 FI264 350 FI2611 1351 FI280 5552 FI294 98 FI2914 1853 FI2933 1454 FI3011 1055 FI3034 1056 FI320 5657 FI330 5657 L1 D L1CLC @order.source="ED" L2 D L2CLC @order.source="ED" L3 D L4 D L5 D L6 D L7 D L7CLC @charge.type'="EPID" L7CUS 29,30 L8 D L9 D L10 D L11 D L12 D L12CLC @PHA.DRUG.name[@carrier[1]] L13 D L14 D L14CLC IF{@first.additive^med @PHA.DRUG.query.response["RX.IVA1.DI"]}^DI,(@additive[1]&('DI))!(@additive[1]&(DI="N")) L14CLLC1 66 L14CLLC2 44 L15 D L15CLC (@additive[1]&(IF{@first.additive^med @PHA.DRUG.query.response["RX.IVA1.DI"]}="Y")) L15CLLC1 14 L15CLLC2 69 L16 D L16CLC @additive[2] L17 D L17CLC @additive[3] L18 D L18CLC @additive[4] L19 D L19CLC @additive[5] L20 D L20CLC @additive[6] L21 D L21CLC @label.comment[1] L22 D L22CLC @label.comment.q<5 L23 D L23CLC @pad.with.blank.lines L24 D L24CLC IF{""^/PR,((%Z.date.clinical(@.today)*86400+%Z.time.in(@.now))-(%Z.date.clinical(@enter.date)*86400+%Z.time.in(@enter.time)))>90 1^/PR,(1=/PR)&(@status="DC")} L24CLLC1 63 L24CLLC2 72 L24CLLC3 23 L25 D L25CLC @status="AC"&@prep.instruction[1] L26 D L26CLC @status="AC"&'@prep.instruction[1] L27 D L27CLC @prep.instruction[1]!@prep.instruction[2] L28 D L28CLC @prep.instruction[1]!@prep.instruction[2] L29 D L29CLC @prep.instruction[1]!@prep.instruction[2] L30 D L30CLC @prep.instruction[1]!@prep.instruction[2] L31 D L31CHL 1 L31CLC @prep.instruction[1]!@prep.instruction[2] L32 D L32CLC @prep.instruction[1]!@prep.instruction[2] L33 D N1 THERMAL YES P1 P2 xx.ed.staff_______________________________________ P3 xx.temp.iv________________________________________________ P4 P5 xx.patient.name_________________________ P6 patient's.acx ________xx.peds.area xx.location.room.be_ P7 Rx#number___ Age:age____ Wt(kg):_wt-kg HT(inches):xx.i P8 xx.vol.rat xx.rat xx.ratxx.time.site_________________________ P9 ---------------------------------------------------------------- P10 P11 carrierF_______________________ xx.car.vo carrier's. P12 xx.carrier.trade.sm_____________ P13 P14 xx.additive.1_________________ _a.d.1 u1_xx.add.v_ P15 xx.add.1.drug.rx.id___________ xx.add xx.xx.ad.1.v P16 xx.add.name.2_________________ ad.d.2 2u_xx.add.v2 P17 xx.add.name.3_________________ ad.d.3 3u_xx.add.v3 P18 xx.add.name.4_________________ ad.d.4 4u_xx.add.v4 P19 xx.add.name.5_________________ ad.d.5 5u_xx.add.v5 P20 xx.add.name.6_________________ ad.d.6 6u_xx.add.v6 P21 *label.comment_______________________________________________ P22 *label.comment_______________________________________________ P23 P24 ***** DISCONTINUED AUTO-CREDIT: xx.dc.aut P25 Bag# xx.Due:xx.bottle.due Exp:24 hours from time due P26 Bag#xxbDUE:xx.bottle.___ Expires 24 hours from time due P27 P28 xx.prep.inst.lable_____________________________________ P29 Rx#:number___ patient's.name____ patient's.room P30 Carrier #1 xx.carrier Additive: xx.additiv P31 P32 prep.instruction________________________________________ P33 prep.instruction________________________________________ T1 urnNONENASC U 774087618 CESLIVE.MIS U 774092755 SRCLIVE.MIS U 774092757 SRCLIVE.MIS U 774093035 CESLIVE.MIS U 774093037 CESLIVE.MIS U 774094860 CJCLIVE.MIS U 774094863 CJCLIVE.MIS U 774094866 CJCLIVE.MIS U 774094869 CJCLIVE.MIS U 774094873 CJCLIVE.MIS @@SCRN Yzcus.hab.std.iv.label.th.040817PHA.RX&PHA.RX.zcus.hab.std.iv.label.th.0408172NN CS 4648 P1 &PHA.RX.ZCUS.HAB.STD.IV.LABEL.TH.030925 %Z.on.device