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 |