Routine: ACHS3PP5

Package	Total	Call Graph
IHS VA Utilities	4	$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK
Contract Health Management Information System	3	($$FYSEL,$$LOC,$$PB,$$USR)^ACHS ^ACHS3PP3 ^ACHSVAR
VA Fileman	3	^DIC WAIT^DICD ^DIR
Kernel	2	(,HOME)^%ZIS ^%ZTLOAD

Package

Total

Call Graph

$$DIR^XBDIR $$C^XBFUNC VIEWR^XBLM EN^XBVK

($$FYSEL,$$LOC,$$PB,$$USR)^ACHS ^ACHS3PP3 ^ACHSVAR

^DIC WAIT^DICD ^DIR

(,HOME)^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Contract Health Management Information System	3	ACHS3PP2 ACHS3PP4 ACHSRPT3RDPAYTEST

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,$$C^XBFUNC("**** 3rd PARTY PAYMENT REPORT FOR "_$$LOC^ACHS_" ***",80) Line Location: ACHS3PP5+7
Function Call: WRITE	Prompt: ! Line Location: SELSER+3
Function Call: WRITE	Prompt: ! Line Location: SELPAT+3
Function Call: WRITE	Prompt: ! Line Location: SELPAT+8
Function Call: WRITE	Prompt: ! Line Location: DIR2+1
Function Call: WRITE	Prompt: *7,!!?20,"This report may take awhile to compile.",!?9," It is recommended that you QUEUE your output to a PRINTER.",! Line Location: DEVICE+1
Routine Call	%ZIS Line Location: DEVICE+8 ZTLOAD+5 END+2
Routine Call	DIC Line Location: DIR2+4
Routine Call	DIR Line Location: SELSER+4 SELPAT+4 REPTYP+7
Routine Call	%ZIS Line Location: DEVICE+7

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ACHS3PP"	ACHS3PP5+5!

Name	Line Occurrences
DIR2	DIR2+8
END	FISYR+2, SELSER+5, SELPAT+5, DIR2+5, DEVICE+4, DEVICE+5, DEVICE+8
FISYR	SELSER+6, DEVICE+8
REPTYP	SELPAT+7, DIR2+6
SELPAT	REPTYP+8
SELSER	SELPAT+6

Name	Field # of Occurrence
>> %	DEVICE+3, DEVICE+4, DEVICE+5, ZTLOAD+2
>> %ZIS	DEVICE+6*
>> ACHSFAC	ACHS3PP5+8*
>> ACHSFY	FISYR+1*
ACHSPAT	SELPAT+1!, DIR2+5, DIR2+6
ACHSPAT(	SELPAT+7, DIR2+7
>> ACHSQIO	ZTLOAD+1*
>> ACHSRTYP	REPTYP+10*
ACHSSER	SELSER+1!, SELSER+7*
>> ACHSUSR	ACHS3PP5+6*
DIC	SELSER+1!, DIR2+2!, DIR2+3*, END+1!
DIC(0	DIR2+3*
DIR	SELSER+1!, SELPAT+1!, REPTYP+1!, DEVICE+2!, END+1!
DIR("?"	REPTYP+3, REPTYP+4, REPTYP+5, REPTYP+6
DIR("A"	SELSER+2, SELPAT+2, REPTYP+2*
DIR("B"	SELSER+2, SELPAT+2, REPTYP+2*
DIR(0	SELSER+2, SELPAT+2, REPTYP+2*
DIROUT	FISYR+2, SELSER+5, SELPAT+5, REPTYP+9, END+1!
DTOUT	FISYR+2, SELSER+5, SELPAT+5, REPTYP+9, DEVICE+4, END+1!
DUOUT	FISYR+2, SELSER+6, SELPAT+6, REPTYP+8, DEVICE+4, END+1!
DUZ(2	ACHS3PP5+8
IO("Q"	DEVICE+9, ZTLOAD+4!
IO("S"	DEVICE+9
IOM	ZTLOAD+1
ION	ZTLOAD+1
IOSL	ZTLOAD+1
IOST	ZTLOAD+1
>> POP	DEVICE+8
U	DEVICE+4
>> Y	SELSER+7, SELPAT+7, DIR2+5, DIR2+6, DIR2+7, REPTYP+10
>> ZTDESC	ZTLOAD+1*
>> ZTIO	ZTLOAD+1*
>> ZTRTN	ZTLOAD+1*
>> ZTSAVE(	ZTLOAD+2*
ZTSK	END+1!

Information