PSSLOCK ;BIR/RSB-Pharmacy patient lock ;09/15/97 13:30
Source file <PSSLOCK.m>
| Package | Total | Call Graph | 
|---|---|---|
| Order Entry Results Reporting | 1 | ($$LOCK1,UNLK1)^ORX2 | 
| Registration | 1 | PAUSE^VALM1 | 
| VA Fileman | 1 | (C,NOW)^%DTC | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| WHO(DFN) | ; | |
| PSOL(X) | ; | 
 
 | 
| LS(DFN,X) | ; | 
 
 | 
| ORD(DFN,X) | ; ; return order number in file 100 from entry in 53.1 or 55. ; DFN is patient #, X is PSJORD OR PSGORD | |
| PDATE() | ; | |
| R() | ; check lock on node | |
| PSOUL(X) | ; | 
 
 | 
| UL(DFN) | ; unlock | 
 
 | 
| UNL(DFN,X) | ; ; unlocks order in file 100 ; DFN is patient #, X is PSJORD OR PSGORD | 
 
 | 
| L(DFN,DIS) | ; | 
 
 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^DD("DD" | R+5, WHO+1 | 
| ^PS(52.41 - [#52.41] | PSOL+3, PSOUL+2 | 
| ^PSRX - [#52] | PSOL+4, PSOUL+3 | 
| ^VA(200 - [#200] | R+5, WHO+2 | 
| ^XTMP("PSSLOCK" | L+2*, L+3, L+4*, L+5, L+6, UL+2!, R+2, R+3, R+4*, R+5 , WHO+1, WHO+2 | 
| Name | Line Occurrences | 
|---|---|
| $$ORD | LS+3, UNL+3 | 
| $$PDATE | L+2 | 
| $$R | L+6 | 
| $$WHO | R+5 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | L+4, R+4 | 
| DFN | L~, L+3, L+4, L+5, L+6, UL~, UL+2, R+2, R+3, R+4 , R+5, WHO~, WHO+1, WHO+2, LS~, LS+3, UNL~, UNL+3, ORD~, ORD+4 | 
| >> DILOCKTM | L+5, R+3 | 
| DIS | L~, R+5 | 
| DT | PDATE+1, PDATE+2 | 
| DUZ | L+4, R+2, R+4 | 
| FLAG | L+2~, L+3, L+5* | 
| L | LS+4~*, LS+5, LS+6 | 
| OR100 | LS+3~*, LS+4 | 
| ORD100 | ORD+3~, ORD+4*, ORD+5 | 
| >> PSOMSG | PSOL+1*, PSOL+3*, PSOL+4* | 
| >> PSONOLCK | L+1, UL+1 | 
| X | PDATE+2, LS~, LS+3, UNL~, UNL+3, ORD~, ORD+4, PSOL~, PSOL+2, PSOL+3* , PSOL+4*, PSOUL~, PSOUL+1, PSOUL+2*, PSOUL+3* | 
| X1 | PDATE+1~* | 
| X2 | PDATE+1~* | 
| >> Y | R+5*, WHO+1*, WHO+2 |