PSGPLUTL ;BIR/RLW-PICK LIST UTILITIES ;06 AUG 96 / 10:54 AM
Source file <PSGPLUTL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PAT | ; find next patient or jump to a new patient
|
|
| JUMP | ; try to find patient user wants to jump to and construct "AC" xref
|
|
| LOCK(PSGPLG,APPL) | ; Pick List routines use an ^XTMP node instead of locking, to allow some jobs to run concurrently on the same Pick List (PRINT and SEND TO ATC).
; PSGPLG=pick list number, APPL=option attempting to "lock", SETAPPL=option already in progress, APPLOK=if '1', option attempting to "lock" can proceed. |
|
| UNLOCK(PSGPLG,APPL) |
