Routine: PSXCSSUM

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;Loops thru all facilities
ALLDV	;Loops thru all divisions
PRINT	;Print report if no data found
DEV	;Device handling
START	;Queued entry point
DRUG	;Gets drug data & sets ^TMP nodes
EX1
DATE	;Entry point if specific fac & div OR this is called by ALL & ALLDV
HD	;N X,Y S X=PSXFAC,DIC(0)="MNZ",DIC=4 S:$D(^PSX(552,"D",X)) X=$E(X,2,99) D ^DIC S PSXFACN=$S($G(Y(0,0))]"":Y(0,0),1:"UNKNOWN") K DIC,X,Y ;****DOD L1
EX

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"Printout must be sent to a 132-column printer!",!! Line Location: DEV+2
Function Call: WRITE	Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<" Line Location: PRINT+1
Function Call: WRITE	Prompt: $J(PSXAVG,10,2) Line Location: PRINT+7
Function Call: WRITE	Prompt: !!,PSXSLN,!,"TOTAL",?29,$J(PSXCNTO,6),?41,$J(PSXCNTR,6),?51,$J(PSXCNT,6),?62,$J(PSXCOST,10,2),?78 Line Location: PRINT+8
Function Call: WRITE	Prompt: $J(PSXAVG,10,2) Line Location: PRINT+8
Function Call: WRITE	Prompt: !,@IOF Line Location: EX+0
Function Call: WRITE	Prompt: @IOF Condition for execution: PSXPG>1 Line Location: HD+3
Function Call: WRITE	Prompt: !,"PRINTED: ",PSXRUN,?(84-$L(PSXPG)),"PAGE ",PSXPG Line Location: HD+3
Function Call: WRITE	Prompt: !!?(62-$L(PSXFACN)/2),"DRUG COSTS BY FACILITY FOR ",PSXFACN,!?(85-$L(PSXBDTR)-$L(PSXEDTR)/2),PSXBDTR," TO ",PSXEDTR Line Location: HD+4
Function Call: WRITE	Prompt: !!,?30,"ORIGN",?52,"TOTAL",?67,"TOTAL",?80,"AVG COST",!,"DIVISION",?30,"FILLS",?40,"REFILLS",?52,"FILLS",?68,"COST",?80,"per FILL",!,PSXDLN Line Location: HD+5
Routine Call	%ZIS Line Location: DEV+1

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+2
^PSX(552	HD+1
^PSX(552.5	ALL+1, ALLDV+1, DATE+1, DATE+3, DATE+4, DRUG+1
^TMP($J	START+1!, DRUG+2, DRUG+3, PRINT+1, PRINT+4, PRINT+5, PRINT+6

Name	Field # of Occurrence
^(	DRUG+3

Name	Field # of Occurrence
>> %	PRINT+2
%ZIS	DEV+1!*
%ZIS("B"	DEV+1*
>> AGNCY	HD+1*
IO	START+1
IO("Q"	DEV+3, DEV+4!
IOF	EX, HD+3
IOM	DEV+2
ION	DEV+1
IOP	DEV+1!*
IOSL	PRINT+6
IOST	DEV+2
POP	DEV+1!
>> PSXAVG	PRINT+7, PRINT+8
>> PSXBDT	DATE+3, PRINT+2
>> PSXBDTR	PRINT+2*, HD+4
>> PSXCNT	PRINT+4, PRINT+6, PRINT+8
>> PSXCNTO	PRINT+4, PRINT+6, PRINT+8
>> PSXCNTR	PRINT+4, PRINT+6, PRINT+8
>> PSXCOST	PRINT+4, PRINT+6, PRINT+8
>> PSXDG	DATE+4*, DRUG+1
>> PSXDLN	START+1*, HD+5
>> PSXDT	DATE+3*, DATE+4, DRUG+1
>> PSXDV	START+3, ALL+1, ALLDV+1, DATE+1, DRUG+1, DRUG+2, DRUG+3, PRINT+5, PRINT+6, PRINT+7
>> PSXDVCNT	PRINT+5*, PRINT+8
>> PSXEDT	DATE+3, PRINT+2
>> PSXEDTR	PRINT+2*, HD+4
>> PSXFAC	START+3, ALL+1, ALLDV+1, DATE+1, DATE+3, DATE+4, DRUG+1, DRUG+2, DRUG+3, PRINT+4 , PRINT+5, PRINT+6, HD+1
>> PSXFACN	HD+2*, HD+4
>> PSXFLS	PRINT+6*, PRINT+7
>> PSXG	DEV+3*
>> PSXIDV	DATE+1*, DATE+3, DATE+4, DRUG+1
PSXION	DEV+1*!, DEV+3!
>> PSXOUT	PSXCSSUM+3
>> PSXPG	PRINT+2, HD+3
>> PSXRUN	PRINT+2*, HD+3
>> PSXSLN	START+1*, PRINT+8
X	HD+1~*, HD+2!
Y	DRUG+1, DRUG+2, DRUG+3, PRINT+2, PRINT+6, PRINT+7, HD+1~, HD+2*!
>> ZTDESC	DEV+3*
>> ZTRTN	DEV+3*
>> ZTSAVE(	DEV+3*
ZTSK	DEV+1!, DEV+4!