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 |
|