Routine: PSXCSDC1

Package	Total	Call Graph
CMOP	2	(SUB,SUBDV)^PSXCSDC2 END^PSXCSUTL
Kernel	2	^%ZISC $$IEN^XUMF
VA Fileman	2	NOW^%DTC $$GET1^DIQ

Package

Total

Call Graph

CMOP

(SUB,SUBDV)^PSXCSDC2 END^PSXCSUTL

Kernel

^%ZISC $$IEN^XUMF

VA Fileman

NOW^%DTC $$GET1^DIQ

Package	Total	Caller Graph
CMOP	2	PSXCSDC PSXCSDC2

Package

Total

Caller Graph

CMOP

PSXCSDC PSXCSDC2

Name	Field # of Occurrence
NOW^%DTC	PRINT, PRINT+5
^%ZISC	EX
$$GET1^DIQ	HD+2
SUB^PSXCSDC2	PRINT+9
SUBDV^PSXCSDC2	PRINT+10
END^PSXCSUTL	EX1
$$IEN^XUMF	HD+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $J(PSXAVG,10,2) Line Location: PRINT+14
Function Call: WRITE	Prompt: ?PSXT6,$J(PSXAVCST,8,3),?122,$P(Y,"^",5) Line Location: PRINT+15
Function Call: WRITE	Prompt: !,@IOF Line Location: EX+0
Function Call: WRITE	Prompt: @IOF Condition for execution: PSXPG>1 Line Location: HD+4
Function Call: WRITE	Prompt: !,"PRINTED: ",PSXRUN,?PSXTH6,"PAGE ",PSXPG Line Location: HD+4
Function Call: WRITE	Prompt: !!?(PSXLGN-18-$L(PSXFACN)/2),"DRUG COST BY DRUG FOR ",PSXFACN,!?(PSXLGN-4-$L(PSXBDTR)-$L(PSXEDTR)/2),PSXBDTR," TO ",PSXEDTR Line Location: HD+5
Function Call: WRITE	Prompt: !!?PSXTH1,"ORIGN",?PSXTH3,"TOTAL",?PSXTH4,"TOTAL",?PSXTH5,"AVG COST" Line Location: HD+7
Function Call: WRITE	Prompt: ?PSXTH6,"AVG COST per" Line Location: HD+8
Function Call: WRITE	Prompt: ! Line Location: HD+9
Function Call: WRITE	Prompt: ?PSXTH1,"FILLS",?PSXTH2,"REFILLS",?PSXTH3,"FILLS",?PSXTH4," COST",?PSXTH5,"per FILL" Line Location: HD+11
Function Call: WRITE	Prompt: ?PSXTH6,"DISPENSE UNIT" Line Location: HD+12
Function Call: WRITE	Prompt: !,PSXDLN Line Location: HD+13
Function Call: WRITE	Prompt: !,"PRINTED: ",PSXRUN,?PSXTH6,"PAGE 1" Line Location: NODATA+1
Function Call: WRITE	Prompt: !!?(PSXLGN-32),"DRUG COST BY DRUG FOR ALL FACILITIES",!?(PSXLGN-4-$L(PSXBDTR)-$L(PSXEDTR)/2),PSXBDTR," TO ",PSXEDTR Line Location: NODATA+2
Function Call: WRITE	Prompt: !!?PSXTH1,"ORIGN",?PSXTH3,"TOTAL",?PSXTH4,"TOTAL",?PSXTH5,"AVG COST",! Line Location: NODATA+4
Function Call: WRITE	Prompt: "DRUG" Line Location: NODATA+5
Function Call: WRITE	Prompt: ?PSXTH1,"FILLS",?PSXTH2,"REFILLS",?PSXTH3,"FILLS",?PSXTH4," COST",?PSXTH5,"per FILL",!,PSXDLN Line Location: NODATA+5
Function Call: WRITE	Prompt: !!?50,">>>>> NO DRUG COST INFORMATION FOUND <<<<<" Line Location: NODATA+6

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	PRINT, PRINT+5
^PSX(552	HD+1
^TMP($J	PRINT+7, PRINT+9, PRINT+10, PRINT+11, PRINT+12, EX1!

Name	Line Occurrences
EX	PRINT+7
HD	PRINT+9, PRINT+10, PRINT+12
NODATA	PRINT+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRINT, PRINT+5
>> AGNCY	HD+1*
IOF	EX, HD+4
IOSL	PRINT+12
>> PSXAVCST	PRINT+15*
>> PSXAVG	PRINT+14*
>> PSXBDT	PRINT+5
>> PSXBDTR	PRINT+5*, HD+5, NODATA+2
>> PSXCNT	PRINT+9, PRINT+12
>> PSXCNTO	PRINT+9, PRINT+12
>> PSXCNTR	PRINT+9, PRINT+12
>> PSXCOST	PRINT+9, PRINT+12
>> PSXDLN	PRINT+4*, HD+13, NODATA+5
>> PSXDV	PRINT+10*, PRINT+11, PRINT+12, PRINT+13, PRINT+16, PRINT+17, PRINT+18, HD+6
>> PSXEDT	PRINT+5
>> PSXEDTR	PRINT+5*, HD+5, NODATA+2
>> PSXFAC	PRINT+9*, PRINT+10, PRINT+11, PRINT+12, HD+1
>> PSXFACN	HD+3*, HD+5
>> PSXFLS	PRINT+12*, PRINT+14, PRINT+17
>> PSXID	PRINT+2, PRINT+3, PRINT+4, PRINT+9, PRINT+10, PRINT+13, HD+6, HD+10, NODATA+3
>> PSXLGN	PRINT+2, PRINT+3, PRINT+4*, HD+5, NODATA+2
>> PSXNAM	PRINT+11*, PRINT+12, PRINT+13
>> PSXPG	PRINT+4, HD+4
>> PSXRUN	PRINT, PRINT+5, HD+4, NODATA+1
>> PSXSLN	PRINT+4*
PSXSUB	PRINT+10!
PSXSUB(	PRINT+10, PRINT+16, PRINT+17, PRINT+18
>> PSXT	PRINT+3*
>> PSXT1	PRINT+2, PRINT+3, PRINT+14
>> PSXT2	PRINT+2, PRINT+3, PRINT+14
>> PSXT3	PRINT+2, PRINT+3, PRINT+14
>> PSXT4	PRINT+2, PRINT+3, PRINT+14
>> PSXT5	PRINT+2, PRINT+3, PRINT+14
>> PSXT6	PRINT+2, PRINT+3, PRINT+15
>> PSXTH	PRINT+3*
>> PSXTH1	PRINT+2, PRINT+3, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH2	PRINT+2, PRINT+3, HD+11, NODATA+5
>> PSXTH3	PRINT+2, PRINT+3, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH4	PRINT+2, PRINT+3, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH5	PRINT+2, PRINT+3, HD+7, HD+11, NODATA+4, NODATA+5
>> PSXTH6	PRINT+2, PRINT+3, HD+4, HD+8, HD+12, NODATA+1
>> PSXTOT	PRINT+9*, HD+6, HD+10
X	HD+1~*, HD+3!
Y	PRINT, PRINT+5, PRINT+12, PRINT+14, PRINT+15, PRINT+16, PRINT+17, PRINT+18, HD+1~, HD+2* , HD+3!

Customize PDF page

Package: CMOP

Routine: PSXCSDC1

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PRINT
NODATA	;Prints report for no data found
EX
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
EX1