Routine: PSIVWRP

Information

PSIVWRP ;BIR/PR-WARD/DRUG USAGE REPORT ;20 JUN 94 / 2:35 PM

Source file <PSIVWRP.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: S Line Location: Q+0
Function Call: WRITE	Prompt: D Line Location: W+0
Function Call: WRITE	Prompt: !,$C(7),"No data." Line Location: W+0
Function Call: WRITE	Prompt: !,"IV ROOM: "_$P(^PS(59.5,V,0),U),! Line Location: W+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: H+1
Function Call: WRITE	Prompt: ?95,NOW,!!!,?56,"WARD/DRUG USAGE REPORT:",?99,"PG",?102,$J(PC,4),!,?56,H Line Location: H+1
Function Call: WRITE	Prompt: !?56,I11,", ",I10 Line Location: H+2
Function Call: WRITE	Prompt: !!!?1," DRUG NAME",?38," DISPENSED",?57,"(DESTROYED)",?77,"RECYCLED",?95,"CANCELLED",?123,"DRUG COST" Line Location: H+3
Function Call: WRITE	Prompt: ! Line Location: H+3
Function Call: WRITE	Prompt: "=" Line Location: H+4
Function Call: WRITE	Prompt: ! Line Location: H+5
Function Call: WRITE	Prompt: !?1,Z Line Location: P1+1
Function Call: WRITE	Prompt: !,?2,$E(AL,1,36),?38,$J($P(G3,U,3),10,2)_" "_C,?57,$J($P(G3,U,6),10,2) Line Location: PD+1
Function Call: WRITE	Prompt: ?78,$J($P(G3,U,5),7,2),?96,$J($P(G3,U,7),7,2),?115,$J($P(G3,U,4),17,4) Line Location: PD+1
Function Call: WRITE	Prompt: !!,?120,"============" Line Location: T+1
Function Call: WRITE	Prompt: !,?40,"GRAND TOTAL:",?112,$J(TC,20,4) Line Location: T+2