Routine: PSOCST7

Information

PSOCST7 ;BHAM ISC/SAB - DRUG COSTS BY CLASSIFICATION ; 08/19/92 9:02

Source file <PSOCST7.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: !,"Do you want to look at data concerning a specific classification" Line Location: EN1+0
Function Call: WRITE	Prompt: $C(7),!!,"Printout must be 132 columns.",!! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"TOTAL",?50,$J(CNTO,6),?57,$J(CNTR,6),?66,$J(CNT,6),?75,$J(COST,10,2),?91 Line Location: START+2
Function Call: WRITE	Prompt: $J(AVG,10,2) Line Location: START+2
Function Call: WRITE	Prompt: !,CLAX,?50,$J($P(Y,"^",2),6),?57,$J($P(Y,"^",3),6),?66,$J(FILLS,6),?75,$J($P(Y,"^",4),10,2),?91 Line Location: PRT2+1
Function Call: WRITE	Prompt: $J(AVG,10,2) Line Location: PRT2+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: HD+0
Function Call: WRITE	Prompt: @IOF,!,"Drug Costs by Classification for the period: " Line Location: HD+1
Function Call: WRITE	Prompt: " to " Line Location: HD+1
Function Call: WRITE	Prompt: " to " Line Location: HD+1
Function Call: WRITE	Prompt: " to " Line Location: HD+1
Function Call: WRITE	Prompt: !!,?51,"ORIGN",?57,"TOTAL",?80,"TOTAL",?93,"AVG COST",!,"CLASSIFICATION",?51,"FILLS",?57,"REFILLS",?68,"FILLS",?80,"COST",?93,"per FILL" Line Location: HD+2
Function Call: WRITE	Prompt: ! Line Location: HD+3
Function Call: WRITE	Prompt: "-" Line Location: HD+3