Routine: PSGAMS0

Information

PSGAMS0 ;BIR/CML3-PRINT AMIS REPORT ;09 JUL 94 / 10:42 AM

Source file <PSGAMS0.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?27,"* NO AMIS DATA FOUND *" Line Location: START+2
Function Call: WRITE	Prompt: !,LN2,!!?15,"TOTALS =>",?35,$J(TCNT,9,0),?52,$J(TCST,12,2),?72,$J(TCPU,6,2) Line Location: TOTLS+1
Function Call: WRITE	Prompt: !?2,WN,?35,$J(CNT,9,0),?52,$J(CST,12,2),?72,$J(CPU,6,2),! Line Location: WRITE+1
Function Call: READ	Formatting: ! Prompt: "'^' TO STOP " Variable: NP Timeout: DTIME Line Location: NP+1
Function Call: WRITE	Prompt: $C(7) Line Location: NP+1
Function Call: WRITE	Prompt: NP="^" Condition for execution: '$T $C(7) S:'$T Line Location: NP+1
Function Call: WRITE	Prompt: @IOF Condition for execution: $Y Line Location: HDR+1
Function Call: WRITE	Prompt: !!?30,"UNIT DOSE AMIS REPORT",?63,PSGPDT,!?25,"FROM ",STRT," THROUGH ",STOP,!!?35,"TOTAL UNITS",?56,"TOTAL",?68,"AVERAGE COST",!?10,"WARD",?36,"DISPENSED",?56,"COST",?70,"PER UNIT",!,LN1,! Line Location: HDR+1