PSJO1 ;BIR/CML3,PR - GET UNIT DOSE/IV ORDERS FOR INPATIENT ;15 May 98 / 9:28 AM
Source file <PSJO1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ECHK | ;
|
|
| SET | ;
|
|
| IVSET | ;Set IV data in ^TMP("PSJ",$J,.
|
|
| IVSET1 | ;
|
|
| ENU | ; update status field to reflect expired orders, if necessary
|
|
| ENUNM | ;
|
|
| EN(PSJPTYP) | ; enter here
; PSJPTYP=1:UD ONLY, 2:IV ONLY, 3:BOTH |
|
| NVSET | ; Set up orders from 53.1.
|
|
| KILL | ;
|
|
| COMCHK(PSJCOM,PSJPTYP) | ;Check complex orders for order type
|
|
| CLINIC(PSGP,ORDER) | ; Return Clinic Name for a given patient/order combination
|
|
| CLINSORT(C) | ; Return integer sort value based on order status
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^SC - [#44] | GET1^DIQ |
