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 |
