Routine: PSXCSUTL

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC $$GET1^DIQ EN^DIQ1 ^DIR

Package	Total	Caller Graph
CMOP	11	PSXCSCMN PSXCSDA PSXCSDC PSXCSDC1 PSXCSHI PSXCSMN1 PSXCSMON PSXCSSUM PSXCST PSXCST1 PSXCSTPG

Entry Points

External References

Name	Field # of Occurrence
^%DT	MN+2, BEG, EN
^DIC	ID+1, FAC, DV
$$GET1^DIQ	FAC+4
EN^DIQ1	FAC+2
^DIR	IDYN, FACYN+2, FAC+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: IDYN+0
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: !!,"Future dates are not allowed!",! Line Location: BEG+2
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: ! Line Location: FACYN+2
Function Call: WRITE	Prompt: !,"There is no data for "_XSITE Line Location: FAC+5
Function Call: WRITE	Prompt: ! Line Location: FAC+6
Function Call: WRITE	Prompt: !!?4," There is no CMOP cost data between "_PSXSDATE_" and "_PSXEDATE_". " Line Location: NODATA+1
Function Call: WRITE	Prompt: !!?4,"Use the Date Range Compile/Recompile Cost Data option to compile the",!?4,"cost data for this date range." Line Location: NODATA+2
Routine Call	DIC Line Location: ID+1 FAC DV
Routine Call	DIR Line Location: IDYN FACYN+2 FAC+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls
4.9999	GET1^DIQ
^PSDRUG - [#50]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	NODATA+1
^PSDRUG - [#50]	NAME+2, ID+2
^PSDRUG("AQ1"	NAME+1
^PSX(552.5	MN+4, EN+2, FAC+5
^TMP($J	END!
^UTILITY("DIQ1"	FACYN+1!, FAC+3, END+14!

Label References

Name	Line Occurrences
BEG	IDYN+1, BEG+1, BEG+2
DV	DV+1
EN	EN+1
END	FAC
FAC	FAC+1
FACYN	IDYN+1, ID+4, FAC+5
IDYN	ID+2
MN	MN+3
NODATA	MN+5, EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	END!
%DT	MN+2, BEG, BEG+2!, END!
%DT("A"	MN+2, BEG, EN*
%DT(0	BEG+1*
%H	END!
%T	END!
%Y	END!
%ZIS	END!
DA	FAC+1, FAC+3, FAC+4, END!
DA(1	FAC+4*
DIC	ID, ID+1!, FAC!, FAC+2, DV!, END!
DIC("A"	FAC, DV
DIC("S"	ID*
DIC(0	ID, FAC, DV*
DIE	END!
DIK	END!
DINUM	END!
>> DIQ(0	FAC+2*
DIR	IDYN!, FACYN+2!, FAC+6!, END!
DIR("A"	IDYN, FACYN+2, FAC+6*
DIR("B"	IDYN, FACYN+2, FAC+6*
DIR(0	IDYN, FACYN+2, FAC+6*
DIRUT	IDYN, FACYN+2, FAC+6, END!
DLAYGO	END!
DR	FAC+2*, END!
DT	BEG+2
DTOUT	ID+1, FAC, DV, END+1!
DUOUT	ID+1, FAC, DV, END+1!
>> IENS	FAC+4*
POP	END+1!
PSX50	END+1!
PSXAVCST	END+1!
PSXAVG	END+1!
PSXBDT	MN+3, MN+4, BEG+1, EN+2, NODATA+1, END+1!
PSXBDTE	END+1!
PSXBDTH	END+1!
PSXBDTR	END+1!
PSXBEG	END+2!
PSXBMN	END+2!
PSXBY	END+2!
PSXBYR	END+2!
PSXCDT	END+2!
PSXCID	END+2!
PSXCMN	END+2!
PSXCNT	END+2!
PSXCNTDV	END+3!
PSXCNTO	END+2!
PSXCNTR	END+3!
PSXCOM	END+3!
PSXCOST	END+3!
PSXCST	END+3!
PSXCUT	END+3!
PSXCYR	END+3!
PSXDG	END+3!
PSXDGID	NAME+1, END+3!
PSXDIV	END+4!
PSXDLN	END+4!
PSXDR0	END+4!
PSXDRCST	END+4!
PSXDT	END+4!
PSXDT90	END+4!
PSXDT90R	END+4!
PSXDV	DV+1*, END+4!
PSXDVCNT	END+4!
PSXEDATE	IDYN!, FAC!, NODATA+1*, NODATA+2!
PSXEDT	MN+3, MN+5, EN+1, EN+3, NODATA+1, END+5!
PSXEDTE	END+5!
PSXEDTR	END+5!
PSXEMN	END+5!
PSXEND	END+5!
PSXERR	END+5!
PSXEXIT	END+5!
PSXEYR	END+5!
PSXFAC	FAC+3, FAC+4, FAC+5, DV, END+5!
PSXFACN	END+6!
PSXFACR	END+6!
PSXFACYN	END+6!
PSXFCID	END+6!
PSXFL	END+6!
PSXFLD	END+6!
PSXFLS	END+6!
PSXFND	MN+4, MN+5, EN+2, EN+3, NODATA+2!, END+6!
PSXG	END+6!
PSXI	NAME+1*, NAME+2, NAME+3!, END+7!
PSXID	ID+2*, END+7!
PSXIDG	ID+2*, END+7!
PSXIDV	END+7!
PSXIEN	END+7!
PSXIENDV	DV+1*, END+7!
PSXION	END+14!
PSXJOB	END+7!
PSXJOBE	END+7!
PSXLAYGO	END+7!
PSXLGN	END+8!
PSXLOC	END+8!
PSXMAX	END+8!
PSXMC	END+8!
PSXMCDT	END+8!
PSXMN	END+8!
PSXMON	END+8!
PSXNAM	NAME+1!, NAME+2, NAME+3, END+8!
PSXNEXT	END+8!
PSXNODE	END+9!
PSXOUT	MN+2, MN+5, IDYN, ID+1, BEG, EN, EN+3, FACYN+2, FAC+6, DV , NODATA+2*, END+9!
PSXPC	END+9!
PSXPDT	END+9!
PSXPG	END+9!
PSXPSDT	END+9!
PSXQTY	END+9!
PSXRF	END+9!
PSXRPT	MN+1*, IDYN+1, ID+4, END+9!
PSXRUN	END+9!
PSXRXN	END+10!
PSXSDATE	IDYN!, FAC!, NODATA+1*, NODATA+2!
PSXSLN	END+10!
PSXSPDV	END+10!
PSXSTA	END+14!
PSXSTART	END+14!
PSXSUB	END+10!
PSXT	END+10!
PSXT1	END+10!
PSXT2	END+10!
PSXT3	END+10!
PSXT4	END+10!
PSXT5	END+10!
PSXT6	END+10!
PSXTH	END+11!
PSXTH1	END+11!
PSXTH2	END+11!
PSXTH3	END+11!
PSXTH4	END+11!
PSXTH5	END+11!
PSXTH6	END+11!
PSXTMP	END+11!
PSXTOT	END+11!
PSXVAPRT	END+11!
PSXX	END+12!
PSXYR	END+12!
X	MN+2, ID+2, ID+3!, BEG, EN, FAC+1, END+12!
X1	END+12!
X2	END+12!
>> XSITE	FAC+1*, FAC+5
Y	MN+3, IDYN+1, ID+2, ID+3!, BEG+1, BEG+2, EN+1, FAC, FAC+1!, DV , DV+1, NODATA+1*, END+12!
ZTDESC	END+12!
ZTDTH	END+12!
ZTIO	END+12!
>> ZTQUEUED	END+13
>> ZTREQ	END+13*
ZTRTN	END+12!
ZTSAVE	END+12!
ZTSK	END+12!

Customize PDF page

Package: CMOP

Routine: PSXCSUTL

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 11

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
EN
END
NAME	;Gets drug name by looking up drug ID #
IDYN
MN	;Gets month & yr
BEG
FACYN	;Gets facility
DV
FAC
NODATA	;No data in file
ID