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