Routine: ACHS3PPQ

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 ^ACHS3PPC ^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 ^ACHS3PPC ^ACHSVAR

^DIC WAIT^DICD ^DIR

(,HOME)^%ZIS ^%ZTLOAD

Package	Total	Caller Graph
Contract Health Management Information System	4	ACHS3PPB ACHS3PPP ACHS3PPT ACHSRPT3RDPAY

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,$$C^XBFUNC("**** 3rd PARTY PAYMENT REPORT FOR "_$$LOC^ACHS_" ***",80) Line Location: ACHS3PPQ+7
Function Call: WRITE	Prompt: ! Line Location: SELSER+5
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+12 ZTLOAD+5 END+2
Routine Call	DIC Line Location: DIR2+4
Routine Call	DIR Line Location: SELSER+6 SELPAT+4 REPTYP+11
Routine Call	%ZIS Line Location: DEVICE+11

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

Name	Line Occurrences (* Changed, ! Killed)
^TMP("ACHS3PP"	ACHS3PPQ+3!

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

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

Information