PSIVPGE ;BIR/PR-PURGE IV ORDERS ;05 DEC 97 / 8:44 AM
Source file <PSIVPGE.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
Q | ||
VW | ;Ask user to view order.
|
|
VW1 | ;Ask user to view activity log.
|
|
VW2 | ;Ask to view label log
|
|
BEG | ;Start purge
|
|
YN | ;Make sure it is ok to start purge.
|
|
DEQ | ||
PRGE | ;
|
|
PAUSE | ;
|
|
ENT | ;Will let user delete an IV order if no doses printed.
|
|
A | ||
ENDEL | ;D DCNV^PSIVOE S X=^PS(55,DFN,"IV",ON,0) S $P(X,U,17)="P" K:$P(X,U,3)]"" ^PS(55,"AIV",$P(X,U,3),DFN,ON) S $P(X,U,3)=1,^PS(55,DFN,"IV",ON,0)=X,^PS(55,"AIV",1,DFN,ON)="" I $D(^PS(55,DFN,"IV",ON,"ADC")) S TC=^("ADC") K ^PS(55,"ADC",TC,DFN,ON)
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|