Routine: PSXCSTPG

Package	Total	Call Graph
CMOP	4	(END,QUE,RUN)^PSXCSLG1 CHECK^PSXCSLOG QUE^PSXCST END^PSXCSUTL
VA Fileman	4	(,DD)^%DT C^%DTC ^DIK ^DIR
Kernel	2	^%ZTLOAD $$HTFM^XLFDT

Entry Points

Name	Comments	DBIA/ICR reference
P2	;Deletes sub-file nodes if no drug data nodes
P	;Queued entry point
PDT	;Get & validate purge date range
DAY	;Entry point for One Day Compile/Recompile Cost Data

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: PSXCSTPG+2
Function Call: WRITE	Prompt: !!,"There is no data in the cost file." Line Location: PSXCSTPG+4
Function Call: WRITE	Prompt: !!,"The cost file contains data beginning with ",Y,".",!!,"Data for three complete months must remain",!,"in the cost file. No data can be purged.",! Line Location: PSXCSTPG+8
Function Call: WRITE	Prompt: !!,"Data for three complete months must remain in the cost file.",!?10,PSXBDTR_" through "_PSXDT90R_" can be purged.",! Line Location: PDT+1
Function Call: WRITE	Prompt: " Invalid month." Line Location: PDT+3
Function Call: WRITE	Prompt: !!,"Purge from "_PSXBDTR_" to "_Y,! Line Location: PDT+4
Function Call: WRITE	Prompt: !!,"No data has been purged." Line Location: PDT+6
Function Call: WRITE	Prompt: ! Line Location: PDT+11
Function Call: WRITE	Prompt: !,"You are not authorized to use this option!" Line Location: DAY+1
Function Call: WRITE	Prompt: !!?5,"There is no prescription data for "_PSXSDATE_".",! Line Location: DAY+3
Function Call: WRITE	Prompt: !!,"No data has been compiled/recompiled." Line Location: DAY+4
Function Call: WRITE	Prompt: ! Line Location: DAY+5
Routine Call	DIR Line Location: PDT+6 DAY+4

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	DAY+3
^PSX(552.4	DAY+3
^PSX(552.5	PSXCSTPG+4, P+3, P+4, P2+1, P2+2, P2+3, P2+4, P2+5
^XUSEC("PSXCOST"	PSXCSTPG+2, DAY+1

Name	Line Occurrences
DAY	DAY+2, DAY+4
PDT	PDT+2, PDT+3, PDT+8

Name	Field # of Occurrence
>> %DT	PDT+2, DAY+2
>> %DT("A"	PDT+2, DAY+2
>> %DT(0	PDT+2, DAY+2!
DA	P+3, P+4, P2+1!, P2+3, P2+4, P2+5!*
DA(1	P+4, P2+1, P2+2, P2+3, P2+4
DA(2	P+4*
DIK	P+4, P2+4!, P2+5*!
DIR	PDT+6!, DAY+4!
DIR("A"	PDT+6, DAY+4
DIR("B"	PDT+6, DAY+4
DIR(0	PDT+6, DAY+4
>> DIRUT	PDT+6, DAY+4
DT	PSXCSTPG+6, DAY+2
DUZ	PSXCSTPG+2, DAY+1
PSXBDT	PSXCSTPG+4!, PSXCSTPG+8, PSXCSTPG+9, PDT+2, P+3, DAY+2, DAY+3
>> PSXBDTR	PSXCSTPG+9*, PDT+1, PDT+2, PDT+4
>> PSXCOM	PDT+8, DAY+2
>> PSXDIV	P2+2*, P2+3
>> PSXDT90	PSXCSTPG+6*, PSXCSTPG+8, PSXCSTPG+9, PDT+3, PDT+5
>> PSXDT90R	PSXCSTPG+9*, PDT+1
>> PSXEDT	PDT+4, PDT+5, PDT+13, P+3, DAY+2, DAY+3
>> PSXERR	PDT+8
>> PSXFND	DAY+3*
>> PSXG	PDT+11*
>> PSXJOB	PDT+10*
>> PSXSDATE	DAY+3*
>> PSXSTART	PDT+10*
>> X	PSXCSTPG+6, PDT+2, DAY+2
>> X1	PSXCSTPG+6*
>> X2	PSXCSTPG+6*
>> Y	PSXCSTPG+8, PSXCSTPG+9, PDT+2, PDT+3, PDT+4, PDT+6, DAY+2, DAY+3*, DAY+4
>> ZTDESC	PDT+11*
>> ZTDTH	PDT+11*
>> ZTIO	PDT+11*
>> ZTQUEUED	PDT+13
>> ZTREQ	PDT+13*
>> ZTRTN	PDT+11*
>> ZTSAVE(	PDT+11*
>> ZTSK	PDT+12