PSGPLUP0 ;BIR/CML3-UPDATING FOR PSGPLUP OCCURS HERE ;06 AUG 96 / 10:53 PM
Source file <PSGPLUP0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
ENQ | ; check for a previous update, if there is one "unflag" updated orders.
|
|
DONE | ;
|
|
UP | ; if patient has an update (AUE xref on UD subfile), add order and drug multiples to Pick List and flag as updated.
; if patient not on last pick list (i.e., transferred or admitted ; and has no orders, add to Pick List patient multiple and flag as updated (do PATIENT^PSGPL1). |
|
UP1 | ;
|
|
ENASET | ;
; if you're adding an order that is already on the PL, delete the old one first |
|
UNFLAG | ; unset "old" update flag
|
FileNo | Call Tags |
---|---|
^PS(53.5 - [#53.5] | Classic Fileman Calls |