Routine: PSXCSHI

Package	Total	Call Graph
VA Fileman	6	(,DD)^%DT NOW^%DTC ^DIC $$GET1^DIQ EN^DIQ1 ^DIR
Kernel	3	^%ZIS ^%ZISC ^%ZTLOAD
CMOP	2	(HD,PRINT)^PSXCSHI1 END^PSXCSUTL

Package

Total

Call Graph

(,DD)^%DT NOW^%DTC ^DIC $$GET1^DIQ EN^DIQ1 ^DIR

(HD,PRINT)^PSXCSHI1 END^PSXCSUTL

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: BEG+0
Function Call: WRITE	Prompt: !!,"Future Dates are not allowed!",! Line Location: BEG+1
Function Call: WRITE	Prompt: ! Line Location: EN+0
Function Call: WRITE	Prompt: !!?4," There is no prescription data between "_PSXSDATE_" and "_PSXEDATE_". " Line Location: EN+5
Function Call: WRITE	Prompt: !,"There is no data for "_XSITE Line Location: FAC+6
Function Call: WRITE	Prompt: ! Line Location: MAX+1
Function Call: WRITE	Prompt: ! Line Location: DEV+1
Function Call: WRITE	Prompt: !,"Please try later!" Line Location: DEV+1
Function Call: WRITE	Prompt: !!,"<<< NO HIGH COST DATA FOUND. >>>" Line Location: START+7
Function Call: WRITE	Prompt: @IOF Line Location: EXIT+0
Routine Call	DIC Line Location: FAC
Routine Call	DIR Line Location: FACYN+2 MAX+2 EXIT
Routine Call	%ZIS Line Location: DEV+1

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	EN+4, START+1
^PSDRUG - [#50]	CHK+4, CHK+5
^PSDRUG("AQ1"	CHK+3
^PSX(552.1	CHK+2, CHK+7
^PSX(552.4	EN+3, START+3, START+4, CHK+1, CHK+2, CHK+3, CHK+7
^PSX(552.5	FAC+6
^TMP($J	START+5, START+7, CHK+7*
^UTILITY("DIQ1"	FACYN+1!, FAC+3, FAC+5!

Name	Line Occurrences
BEG	BEG, BEG+1
CHK	START+4
EN	EN
EXIT	BEG, EN, EN+5, FACYN+2, FAC, MAX+2, DEV+1, DEV+3, START+7
FAC	FAC+1
FACYN	FAC+6
MAX	FACYN+2

Name	Field # of Occurrence
^(0	CHK+4
^(660	CHK+5

Name	Field # of Occurrence
>> %	START+5
%DT	BEG*, BEG+1!
%DT("A"	BEG, EN
%DT(0	BEG*
%ZIS	DEV+1*!
>> DA	FAC+1, FAC+3, FAC+4
>> DA(1	FAC+4*
DIC	FAC!, FAC+2
DIC("A"	FAC*
DIC(0	FAC*
>> DIQ(0	FAC+2*
DIR	FACYN+2!, MAX+2!, EXIT!
DIR("?"	MAX+1*
DIR("A"	FACYN+2, MAX+1
DIR("B"	FACYN+2, MAX+1
DIR(0	FACYN+2, MAX+1, EXIT*
DIROUT	EXIT!
DIRUT	FACYN+2, MAX+2, EXIT!
>> DR	FAC+2*
DT	BEG+1
DTOUT	FAC, EXIT!
DUOUT	FAC, EXIT!
>> IENS	FAC+4*
IO	START+5
IO("Q"	DEV+2, DEV+3!
IOF	EXIT, EXIT+1
ION	DEV+1
IOP	DEV+1*!
IOST	EXIT, EXIT+1
>> POP	DEV+1
>> PSX50	CHK+3*, CHK+4, CHK+5
>> PSXBDT	BEG, EN+1, EN+3, EN+4, START+1, START+3
>> PSXBDTR	START+1*
>> PSXCNT	START+5*
>> PSXCOST	CHK+6*, CHK+7
>> PSXDR0	CHK+4*, CHK+7
>> PSXDRCST	CHK+3, CHK+5, CHK+6, CHK+7
>> PSXDT	START+3*, START+4
PSXEDATE	EN+4*, EN+5!, FAC!
>> PSXEDT	EN, EN+1, EN+4, START+1, START+3
>> PSXEDTR	START+1*
>> PSXFAC	FAC+3, FAC+4, FAC+6, START+5*, CHK+2, CHK+7
>> PSXFL	CHK+3*, CHK+7
PSXFND	EN+3*, EN+4, EN+5!
>> PSXG	DEV+2*
>> PSXID	CHK+3*
>> PSXIEN	START+3*, START+4, CHK+1, CHK+2, CHK+3, CHK+7
PSXION	DEV+1*!, DEV+2!
>> PSXMAX	MAX+2*, CHK+6
>> PSXNODE	CHK+3*
>> PSXPDT	START+5*
>> PSXPG	START+5*
>> PSXQTY	CHK+3*, CHK+6, CHK+7
>> PSXRXN	CHK+3*, CHK+7
PSXSDATE	EN+4*, EN+5!, FAC!
>> PSXSUB	START+4*, CHK+1, CHK+3
>> X	BEG, EN, FAC+1
>> XSITE	FAC+1*, FAC+6
Y	BEG, BEG+1, EN, EN+4, FACYN+2, FAC+1!, MAX+2, START+1, START+5*
>> ZTDESC	DEV+2*
>> ZTRTN	DEV+2*
>> ZTSAVE(	DEV+2*
ZTSK	DEV+3!

Information