Routine: PSAPSI2

Information

PSAPSI2 ;BIR/LTL-IV Dispensing (All Drugs) ;7/23/97

Source file <PSAPSI2.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no drugs in ",PSALOCN,!! Line Location: LOOK+1
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED OR ACTION TAKEN!" Line Location: DEV+1
Function Call: WRITE	Prompt: @IOF Line Location: LUP+3
Function Call: WRITE	Prompt: !!,Y Line Location: LUP+19
Function Call: WRITE	Prompt: ?14,X,PSADRUG(2),?40,PSADRUG(3),"/",PSADRUG(2),?63 Line Location: LUP+22
Function Call: WRITE	Prompt: ?40,X Line Location: LUP+24
Function Call: WRITE	Prompt: !,PSALN,!,PSA(6)," DAY TOTALS: " Line Location: LUP+25
Function Call: WRITE	Prompt: ?5,X,PSADRUG(2) Line Location: LUP+25
Function Call: WRITE	Prompt: ?5,X,PSADRUG(2) Line Location: LUP+25
Function Call: WRITE	Prompt: ! Line Location: STOP+1
Function Call: WRITE	Prompt: !!,"Task #",$G(ZTSK),", ",$G(ZTDESC)," was stopped by ",$P($G(^VA(200,+$G(DUZ),0)),U),"." Line Location: HEADER+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HEADER+2
Function Call: WRITE	Prompt: !,?2,"DAILY DISPENSING TOTALS FOR ",$E($G(PSALOCN),1,30),?70,"PAGE: ",PSAPG,!,PSALN,! Line Location: HEADER+2
Function Call: WRITE	Prompt: " DATE",?23,"TOTAL",?45,"$/DISP",?67,"TOTAL",! Line Location: HEADER+3
Function Call: WRITE	Prompt: "DISPENSED",?23,"DISP",?46,"UNIT",?68,"COST",!,PSALN Line Location: HEADER+4