Routine: ACHSOCSQ

Call Graph

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

Package	Total	Caller Graph
Contract Health Management Information System	2	ACHSRPTOBJCLSSUM ACHSRPTSCCSUM

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!,$$C^XBFUNC("*** Object Class Code Summary for "_$$LOC^ACHS_" ***",80) Line Location: SELFAC+3
Function Call: WRITE	Prompt: !!! Line Location: FISYR+1
Function Call: WRITE	Prompt: !! Line Location: FISYR+3
Function Call: WRITE	Prompt: *7,! Line Location: FISYR+6
Function Call: WRITE	Prompt: *7,!!?20,"This report may take awhile to compile.",!?15," It is recommended that you QUEUE to a PRINTER.",! Line Location: DEVICE+1
Function Call: WRITE	Prompt: !,"NO DEVICE SELECTED - REQUEST ABORTED" Line Location: DEVICE+7
Function Call: WRITE	Prompt: !!?3,"You can produce this report by selecting a Fiscal Year, OR",!?3,"by entering a beginning and ending Date of Issue.",!! Line Location: HELP+1
Function Call: WRITE	Prompt: !,"Report by",!?5,"1) FY, or",!?5,"2) Issue dates",!,?5,"3) FY with Ending Payment Date",! Line Location: H1+3
Routine Call	%ZIS Line Location: DEVICE+7 ZTLOAD+7 END+1
Routine Call	%ZIS Line Location: DEVICE+6

Name	Line Occurrences
BDT	EDT+3
DEVICE	EDT+4, DEVICE+9
END	BDT+2, EDT+2, FISYR+5, FISYR+11, DEVICE+3, DEVICE+4, DEVICE+7
FISYR	METHOD+5, METHOD+7, FISYR+6
H1	METHOD+1
SELFAC	FISYR+5, DEVICE+7
TITLE	BDT+1, EDT+1, FISYR+11

Name	Field # of Occurrence
>> %	METHOD+3, METHOD+4, METHOD+5, METHOD+7, DEVICE+2, DEVICE+3, DEVICE+4, ZTLOAD+4*
>> %ZIS	DEVICE+5*
>> ACHSBDT	TITLE+2, BDT+1, BDT+2, EDT+3
>> ACHSCFY	FISYR+4
>> ACHSEDT	TITLE+2, EDT+1, EDT+2, EDT+3, FISYR+11*
>> ACHSFAC	TITLE+2*
>> ACHSFY	TITLE+2, FISYR+4, FISYR+6
>> ACHSFYWK(	FISYR+6
>> ACHSQIO	ZTLOAD+1*
>> ACHSRTY	SELFAC+2, METHOD+7, FISYR+11
>> ACHSUSR	TITLE+2*
DIC	END+2!
DIR	END+2!
DIRUT	FISYR+5, END+2!
DTOUT	FISYR+5, DEVICE+3, END+2!
DUOUT	FISYR+5, DEVICE+3, END+2!
DUZ(2	TITLE+2, FISYR+6
IO("Q"	DEVICE+8, ZTLOAD+6!
IO("S"	DEVICE+8, DEVICE+9
IOM	ZTLOAD+1
ION	ZTLOAD+1
IOSL	ZTLOAD+1
IOST	DEVICE+9, ZTLOAD+1
>> POP	DEVICE+7
U	DEVICE+3
>> Y	DEVICE+7*
>> ZTDESC	ZTLOAD+1*
>> ZTIO	ZTLOAD+1*
>> ZTRTN	ZTLOAD+1*
>> ZTSAVE(	ZTLOAD+4*
ZTSK	ZTLOAD+6!