Routine: PSXCSMN1

Information

PSXCSMN1 ;BIR/JMB-Drug Cost by Drug for One Month CONTINUED ;10 Feb 2000 1:46 PM

Package	Total	Caller Graph
CMOP	1	PSXCSMON

Name	Comments	DBIA/ICR reference
SUB	;Facility grand total
ONE	;Print if facility has only 1 division
SUBDV	;Division subtotal
EX
EX1
PRINT
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 K DIC ;****DOD L1

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<" Line Location: PRINT+3
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,?121,"PAGE: "_PSXPG Line Location: HD+3
Function Call: WRITE	Prompt: ! Line Location: HD+9
Function Call: WRITE	Prompt: "DIVISION" Condition for execution: $G(PSXTOT)!($D(PSXID)) Line Location: HD+9
Function Call: WRITE	Prompt: "DRUG" Condition for execution: '$G(PSXTOT)&('$D(PSXID)) Line Location: HD+9
Function Call: WRITE	Prompt: ?125,"N/F",!,PSXDLN Line Location: HD+11
Function Call: WRITE	Prompt: !?47,"----------",?62,"----------",?76,"----------" Line Location: SUBDV+1
Function Call: WRITE	Prompt: !,"DIVISION TOTAL",?49,$J($P(PSXSUB(PSXDV),"^"),7,0),?64,$J($P(PSXSUB(PSXDV),"^",3),7,0),?75,$J($P(PSXSUB(PSXDV),"^",2),10,2),! Line Location: SUBDV+2
Function Call: WRITE	Prompt: !?47,"----------",?61,"----------",?75,"----------" Line Location: SUB+6
Function Call: WRITE	Prompt: !,"FACILITY TOTAL",?50,$J($P(PSXTOT,"^"),6,0),?63,$J($P(PSXTOT,"^",3),7,0),?75,$J($P(PSXTOT,"^",2),10,2) Line Location: SUB+7
Function Call: WRITE	Prompt: !,PSXX,?50,$J($P(PSXSUB(PSXX),"^"),6,0),?65,$J($P(PSXSUB(PSXX),"^",3),6,0),?75,$J($P(PSXSUB(PSXX),"^",2),10,2) Line Location: ONE+1
Function Call: WRITE	Prompt: ?91,$J(PSXAVCST,8,3) Line Location: ONE+2

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT+1
^PSX(552	HD+1
^TMP($J	PRINT+3, PRINT+5, PRINT+6, PRINT+7, PRINT+8, HD+4, HD+7

Name	Field # of Occurrence
>> %	PRINT+1
>> AGNCY	HD+1*
IOF	EX, HD+3
IOSL	PRINT+8, SUB+3, SUB+6
>> PSXAVCST	PRINT+10, PRINT+12, ONE+2
>> PSXBDTH	PRINT+1
>> PSXBDTR	PRINT+1*, HD+4
>> PSXCNT	PRINT+5, PRINT+6, PRINT+8*
>> PSXCNTDV	SUB+1*, SUB+2
>> PSXCOST	PRINT+5, PRINT+8
>> PSXDGID	PRINT*
>> PSXDLN	PRINT*, HD+11
>> PSXDV	PRINT+6*, PRINT+7, PRINT+8, PRINT+9, HD+7, SUBDV+2
>> PSXFAC	PRINT+5*, PRINT+6, PRINT+7, PRINT+8, HD+1
>> PSXFACN	HD+2*, HD+4
>> PSXID	PRINT, PRINT+6, PRINT+11, PRINT+12, HD+5, HD+6, HD+9, SUB+1, SUB+2, SUB+3
>> PSXMC	HD+5
>> PSXNAM	PRINT+7*, PRINT+8, PRINT+11, HD+6
>> PSXPG	HD+2*, HD+3
>> PSXQTY	PRINT+5, PRINT+8
>> PSXRF	HD+5
>> PSXRUN	PRINT+1*, HD+3
>> PSXSPDV	SUB+1
PSXSUB	PRINT+6!
PSXSUB(	PRINT+6, PRINT+9, SUBDV+2, SUB+1, SUB+3, SUB+4, SUB+5, ONE+1, ONE+2
>> PSXTOT	PRINT+5, HD+7, HD+8, HD+9, HD+10, SUB+3, SUB+4*, SUB+7
>> PSXX	SUB+1, SUB+3, SUB+4, SUB+5, ONE+1*, ONE+2
X	HD+1~*, HD+2!
Y	PRINT+1, PRINT+8, PRINT+9, PRINT+10, PRINT+11, PRINT+12, HD+1~*, HD+2!