Routine: PSOCST12

Information

PSOCST12 ;BHAM ISC/SAB - DIVISION BY DRUG COST ; 08/19/92 8:37

Name	Line Occurrences
Function Call: WRITE	Prompt: $J(AVG,10,2) Line Location: START+4
Function Call: WRITE	Prompt: ! Line Location: START+4
Function Call: WRITE	Prompt: !,?50,"Orgin",?68,"Total",?77,"Total",?90,"Total",?105,"Avg Cost",!,"Drug",?50,"Fills",?57,"Refills",?68,"Fills",?77,"Qty",?90,"Cost",?105,"per Fill" Line Location: HD+1
Function Call: WRITE	Prompt: ! Line Location: HD+2
Function Call: WRITE	Prompt: "-" Line Location: HD+2
Function Call: WRITE	Prompt: !,?50,"------",?57,"------",?66,"------",?77,"--------",?88,"----------",?104,"----------" Line Location: PUL+0
Function Call: WRITE	Prompt: $J(AVG,10,2) Line Location: PRT3+1
Function Call: WRITE	Prompt: !,"Total for "_DIVX,?50,$J($P(^TMP($J,DIVX),"^",2),6),?57,$J($P(^(DIVX),"^",3),6),?66,$J($P(^(DIVX),"^",5),6),?77,$J($P(^(DIVX),"^",6),8,2),?88,$J($P(^(DIVX),"^",4),10,2),?104,$J($P(^(DIVX),"^",4)/$P(^(DIVX),"^",5),10,2) Line Location: SUB+2