PSJHLU ;BIR/RLW - UTILITIES USED IN BUILDING HL7 SEGMENTS ;4/24/12 2:52pm
Source file <PSJHLU.m>
| Package | Total | Call Graph |
|---|---|---|
| Inpatient Medications | 6 | $$ENLU^PSGMI GETSIOPI^PSJBCMA5 DISPLAY^PSJHL2 EXPIR^PSJHL6 ($$IVCAT,SEGMENT,SET)^PSJHLU PDORD^PSJPDCLU |
| Kernel | 1 | MSG^XQOR |
| Order Entry Results Reporting | 1 | $$ESC^ORHLESC |
| Pharmacy Data Management | 1 | $$HAZ^PSSUTIL |
| Registration | 1 | $$SITE^VASITE |
| VA FileMan | 1 | NOW^%DTC |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| INIT | ; set up HL7 application variables
|
|
| SEGMENT(LIMIT) | ;
|
|
| SET | ||
| SEGMENT2 | ; Retrieve text fields
|
|
| CALL(HLEVN) | ; call DHCP HL7 package -or- protocol, to pass Orders
; HLEVN = number of segments in message |
|
| IVTYPE(PSJORDER) | ; check whether a back-door order is Inpatient IV or IV fluid
|
|
| ENI | ;Calculate Frequency for IV orders
|
|
| SPSOL | ||
| INTRMT(X) | ;
|
|
| IVCAT(DFN,PSJORD,PARRAY) | ; This returns the IV CATEGORY based on the IV TYPE and CHEMO TYPE (not what is already in the IV CATEGORY field)
; Passed in: PSJORDER (file root of order) |
|
| ZRX | ; Perform outbound processing
|
|
| ZZZ | ; BCBU ZZZ Seg, Hazardous drug flags ZZZ.4 & ZZZ.5 *364
|
|
| HAZDRUG(FILE) | ;Get Hazardous to Handle and Hazardous to Dispose fields per this order (if any component is Haz then order is) *364
; FILE = file root + Order Num from inpatient variables during workflow; Example VAR contains: "^PS(55,DFN,5,ON," or "(PS(53.1,ON," or "^PS(55,DFN,"IV",ON," ; (build ROOT to the multiple level to find all Disp Drugs or Additives or Solution and check for any HAZ components.) |
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | CALL+18 |
| $$ESC^ORHLESC | SEGMENT2+2, SEGMENT2+14, SEGMENT2+16, ZRX+14 |
| $$ENLU^PSGMI | ENI+2 |
| GETSIOPI^PSJBCMA5 | SEGMENT2+6, SEGMENT2+8 |
| DISPLAY^PSJHL2 | ZRX+15, ZZZ+13 |
| EXPIR^PSJHL6 | CALL+18 |
| $$IVCAT^PSJHLU | ZRX+12 |
| SEGMENT^PSJHLU | ZRX+15, ZZZ+13 |
| SET^PSJHLU | SEGMENT2+3, SEGMENT2+18 |
| PDORD^PSJPDCLU | CALL+15 |
| $$HAZ^PSSUTIL | HAZDRUG+8, HAZDRUG+9, HAZDRUG+14, HAZDRUG+15, HAZDRUG+19, HAZDRUG+20 |
| $$SITE^VASITE | INIT+1 |
| MSG^XQOR | CALL+14 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PS(52.6 - [#52.6] | IVTYPE+7, HAZDRUG+13 |
| ^PS(52.7 - [#52.7] | IVTYPE+9, HAZDRUG+18 |
| ^PS(53.1 - [#53.1] | SEGMENT2+7, IVCAT+6, ZRX+8 |
| ^PS(55 - [#55] | CALL+16, CALL+17, IVCAT+5, ZRX+8 |
| ^TMP("PSJBCMA5" | SEGMENT2+5!, SEGMENT2+9, SEGMENT2+11!*, SEGMENT2+12, SEGMENT2+14, SEGMENT2+16, SEGMENT2+18! |
| ^TMP("PSJHLS" | SET*, SET+1*, CALL+11, CALL+13 |
| ^VA(200 - [#200] | ZRX+13 |
| Name | Field # of Occurrence |
|---|---|
| ^( | IVTYPE+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | CALL+10!, CALL+18 |
| AD | IVTYPE+3~ |
| >> CAT | IVCAT+9*, IVCAT+10 |
| CHEMTYP | IVCAT+2~, IVCAT+3*, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+9 |
| CLERK | CALL+10! |
| DDIEN | CALL+10! |
| DDNUM | CALL+10! |
| DFN | IVCAT~, IVCAT+5 |
| DOSEFORM | CALL+10! |
| DOSEOR | CALL+10! |
| DUZ | ZRX+13, ZRX+14 |
| FIELD | CALL+10! |
| FIELD( | SEGMENT+3, SEGMENT+4 |
| FIELD(0 | ZRX+4*, ZZZ+4* |
| FIELD(1 | ZRX+8*, ZZZ+6* |
| FIELD(2 | ZRX+9*, ZZZ+7* |
| FIELD(3 | ZRX+10*, ZRX+11*, ZZZ+8* |
| FIELD(4 | ZZZ+10* |
| FIELD(5 | ZRX+14*, ZZZ+11* |
| FIELD(6 | ZRX+12* |
| FILE | HAZDRUG~, HAZDRUG+6, HAZDRUG+7, HAZDRUG+11, HAZDRUG+12, HAZDRUG+16, HAZDRUG+17 |
| >> FREQ | ENI+30*, ENI+32*, ENI+33* |
| GL | HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+12*, HAZDRUG+17* |
| HAZ | ZZZ+1~, ZZZ+9*, ZZZ+10, ZZZ+11 |
| HAZD | HAZDRUG+3~, HAZDRUG+4*, HAZDRUG+9*, HAZDRUG+15*, HAZDRUG+20*, HAZDRUG+21 |
| HAZH | HAZDRUG+3~, HAZDRUG+4*, HAZDRUG+8*, HAZDRUG+14*, HAZDRUG+19*, HAZDRUG+21 |
| HLEVN | CALL~ |
| HZIFN | HAZDRUG+3~, HAZDRUG+4*, HAZDRUG+8*, HAZDRUG+9*, HAZDRUG+14*, HAZDRUG+15*, HAZDRUG+19*, HAZDRUG+20*, HAZDRUG+21 |
| IFN | HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+8, HAZDRUG+9, HAZDRUG+12*, HAZDRUG+13*, HAZDRUG+14, HAZDRUG+15, HAZDRUG+17*, HAZDRUG+18* , HAZDRUG+19, HAZDRUG+20 |
| INFUSE | ENI+1~, ENI+2* |
| INTSYR | IVCAT+2~, IVCAT+3*, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+9 |
| IVTYPE | CALL+10!, IVTYPE+2*, IVTYPE+3~*, IVTYPE+5, IVTYPE+7*, IVTYPE+9*, IVTYPE+10 |
| >> J | SEGMENT+2*, SEGMENT+3, SEGMENT+4, SET+1* |
| JJ | SEGMENT2+1*, SEGMENT2+3! |
| LIMIT | SEGMENT~, SEGMENT+2, CALL+10!, ZRX+3*, ZRX+15, ZZZ+3*, ZZZ+13 |
| LINES | SEGMENT2+9~*, SEGMENT2+10 |
| NAME | CALL+10!, ZRX+13*, ZRX+14 |
| ND2P5 | IVCAT+2~ |
| NDNODE | CALL+10! |
| NODE | IVCAT+2~, IVCAT+5*, IVCAT+6* |
| NODE1 | CALL+10!, IVTYPE+3~, IVTYPE+5*, IVTYPE+7, IVTYPE+9, ZRX+1~, ZRX+2*, ZRX+5, ZRX+7, ZRX+10 , ZZZ+1~, ZZZ+2* |
| NODE2 | CALL+10!, ZRX+6, ZRX+7, ZRX+10 |
| NXT | HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+12*, HAZDRUG+17* |
| NXTROOT | HAZDRUG+3~, HAZDRUG+7*, HAZDRUG+12*, HAZDRUG+17* |
| >> P | ZRX+12 |
| >> P("NAT" | ZRX+9 |
| >> P(23 | IVCAT+4 |
| >> P(4 | IVCAT+4 |
| >> P(5 | IVCAT+4 |
| PADE | CALL+3~*, CALL+5*, CALL+9*, CALL+13, CALL+15 |
| PARRAY | IVCAT~ |
| PARRAY(23 | IVCAT+7 |
| PARRAY(4 | IVCAT+7 |
| PARRAY(5 | IVCAT+7 |
| PD0 | CALL+7~*, CALL+8 |
| PD1 | CALL+7~, CALL+8*, CALL+9 |
| PDMSG | CALL+13~* |
| PDTYP | CALL+3~*, CALL+5*, CALL+9* |
| PREON | ZRX+5~, ZRX+7*, ZRX+8 |
| PRODNAME | CALL+10! |
| PROVIDER | CALL+10! |
| PSGS0Y | CALL+10! |
| >> PSJBCBU | SEGMENT2+2, SEGMENT2+15, SEGMENT2+17, CALL+11, ZRX+14 |
| >> PSJCLEAR | INIT+2*, ZRX+3, ZZZ+3 |
| PSJHINST | INIT+1*, CALL+10! |
| >> PSJHLDFN | SEGMENT2+6, SEGMENT2+8, SEGMENT2+9, SEGMENT2+11, SEGMENT2+12, SEGMENT2+14, SEGMENT2+16, CALL+16, CALL+17, ZRX+8 , ZRX+12 |
| PSJHLSDT | INIT+1*, SET, SET+1, CALL+10! |
| PSJI | SET*, SET+1, CALL+10! |
| >> PSJMSG | CALL+12*, CALL+14 |
| >> PSJNAME | CALL+11* |
| >> PSJNOO | ZRX+9 |
| PSJORD | SEGMENT2+7, SEGMENT2+8, SEGMENT2+9, SEGMENT2+11, IVCAT~, IVCAT+5, IVCAT+6, ZRX+5, ZRX+6, ZRX+7 |
| PSJORDER | SEGMENT2+1, CALL+4, CALL+7, CALL+19!, IVTYPE~, IVTYPE+1, IVTYPE+2, IVTYPE+5, ZRX+2, ZRX+7 , ZRX+9, ZRX+10, ZZZ+2, ZZZ+9 |
| PSJREN | ZRX+5~*, ZRX+6*, ZRX+7, ZRX+10 |
| PSJSTATU | CALL+17~*, CALL+18 |
| PSJSTOP | CALL+16~*, CALL+18 |
| PSOC | CALL+5, CALL+9, CALL+10!, ZRX+11 |
| PSREASON | CALL+10! |
| SEGMENT2+5~, SEGMENT2+12*, SEGMENT2+13, SEGMENT2+14, SEGMENT2+16, SEGMENT2+17, HAZDRUG+3~, HAZDRUG+6*, HAZDRUG+7, HAZDRUG+11* , HAZDRUG+12, HAZDRUG+16*, HAZDRUG+17 |
|
| ROOMBED | CALL+10! |
| ROOT | HAZDRUG+3~, HAZDRUG+6*, HAZDRUG+7, HAZDRUG+11*, HAZDRUG+12, HAZDRUG+16*, HAZDRUG+17 |
| RXO | CALL+13~* |
| RXON | CALL+18~* |
| >> RXORDER | SEGMENT2+6, SEGMENT2+7, SEGMENT2+11, SEGMENT2+12, SEGMENT2+14, SEGMENT2+16, CALL+8, CALL+13, CALL+16, CALL+17 , CALL+18, IVTYPE+1, IVTYPE+2, ZRX+12 |
| SEGLENGT | SEGMENT+2~, SEGMENT+5*, SEGMENT+6, SEGMENT+7, SEGMENT+8 |
| SEGMENT | SEGMENT+1!, SEGMENT+2*, SEGMENT+3*, SEGMENT+4*, SEGMENT+5, SEGMENT+6, SEGMENT+7, SEGMENT+8*, SEGMENT2+1!, SEGMENT2+3! , SEGMENT2+18!, CALL+10! |
| SEGMENT( | SEGMENT+6*, SEGMENT+7*, SEGMENT+8*, SET+1, SEGMENT2+1*, SEGMENT2+16*, SEGMENT2+17* |
| SEGMENT(0 | SET, SEGMENT2+2*, SEGMENT2+14*, SEGMENT2+15*, SEGMENT2+18 |
| SOL | IVTYPE+3~ |
| SPDIEN | CALL+10! |
| SPSOL | ENI+30!, ENI+32!, ENI+33*!, SPSOL* |
| SUB | IVTYPE+3~*, IVTYPE+5* |
| SUBSEG | SEGMENT+2~*, SEGMENT+6, SEGMENT+7*, SEGMENT+8 |
| TEXT1 | SEGMENT2+9~*, SEGMENT2+10 |
| >> TVOLUME | SPSOL |
| TYP | IVCAT+2~, IVCAT+4*, IVCAT+5*, IVCAT+6*, IVCAT+7*, IVCAT+8, IVCAT+9 |
| >> TYPE | IVTYPE+5*, IVTYPE+6, IVTYPE+8 |
| U | ZZZ+10, ZZZ+11, HAZDRUG+8, HAZDRUG+9, HAZDRUG+13, HAZDRUG+14, HAZDRUG+15, HAZDRUG+18, HAZDRUG+19, HAZDRUG+20 , HAZDRUG+21 |
| X | ENI+2, ENI+3, ENI+4, ENI+5!, ENI+6, ENI+7, ENI+21!, ENI+25*, ENI+27!, ENI+30* , ENI+32, ENI+33*, INTRMT~, INTRMT+1, INTRMT+2, INTRMT+3 |
| X1 | ENI+7~*, ENI+8, ENI+9*, ENI+12, ENI+13*, ENI+16, ENI+17*, ENI+22*, ENI+25 |
| X2 | ENI+7~*, ENI+10, ENI+11*, ENI+14, ENI+15*, ENI+18, ENI+19*, ENI+20, ENI+21, ENI+23* , ENI+24*, ENI+25 |
| >> XQORMSG(0 | CALL+5, CALL+6 |
