Routine: PSXCSDC2

Information

PSXCSDC2 ;BIR/JMB-Drug Cost by Drug Report-CONTINUED ;[ 04/08/97 2:06 PM ]

Name	Comments	DBIA/ICR reference
SUBDV	;Division total line
SUB	;Facility total line

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PSXSLN,!,"DIVISION TOTAL",?PSXT1,$J($P(PSXSUB(PSXDV),"^"),6),?PSXT2,$J($P(PSXSUB(PSXDV),"^",2),6),?PSXT3,$J($P(PSXSUB(PSXDV),"^",3),6),?PSXT4,$J($P(PSXSUB(PSXDV),"^",4),10,2),?PSXT5 Line Location: SUBDV+1
Function Call: WRITE	Prompt: $J(PSXAVG,10,2) Line Location: SUBDV+2
Function Call: WRITE	Prompt: ?PSXT6,$J(PSXAVCST,8,3) Line Location: SUBDV+3
Function Call: WRITE	Prompt: $J(PSXAVG,10,2) Line Location: SUB+5
Function Call: WRITE	Prompt: ?PSXT6,$J(PSXAVCST,8,3) Line Location: SUB+6
Function Call: WRITE	Prompt: !,PSXSLN,!,"FACILITY TOTAL",?PSXT1,$J($P(PSXTOT,"^"),6),?PSXT2,$J($P(PSXTOT,"^",2),6) Line Location: SUB+7
Function Call: WRITE	Prompt: ?PSXT3,$J($P(PSXTOT,"^",3),6),?PSXT4,$J($P(PSXTOT,"^",4),10,2),?PSXT5 Line Location: SUB+8
Function Call: WRITE	Prompt: $J(PSXAVG,10,2) Line Location: SUB+8
Function Call: WRITE	Prompt: ?PSXT6,$J(PSXAVCST,8,3) Line Location: SUB+9