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 |