PSJHLU ;BIR/RLW - UTILITIES USED IN BUILDING HL7 SEGMENTS ;4/24/12 2:52pm
Source file <PSJHLU.m>
| 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.) |
