PSSLOCK ;BIR/RSB-Pharmacy patient lock ;09/15/97 13:30
Source file <PSSLOCK.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| L(DFN,DIS) | ;
|
|
| UL(DFN) | ; unlock
|
|
| R() | ; check lock on node
|
|
| PDATE() | ;
|
|
| WHO(DFN) | ;
|
|
| LS(DFN,X) | ;
|
|
| UNL(DFN,X) | ;
; unlocks order in file 100 ; DFN is patient #, X is PSJORD OR PSGORD |
|
| ORD(DFN,X) | ;
; return order number in file 100 from entry in 53.1 or 55. ; DFN is patient #, X is PSJORD OR PSGORD |
|
| PSOL(X) | ;
|
|
| PSOUL(X) | ;
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|