Routine: ACHSC6Q

Package	Total	Call Graph
Contract Health Management Information System	5	($$DATE,$$PB)^ACHS ^ACHSC6C ^ACHSC6D READ^ACHSFU ^ACHSVAR
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT
IHS VA Utilities	3	$$DIR^XBDIR VIEWR^XBLM EN^XBVK
VA Fileman	1	^%DT

Package

Total

Call Graph

($$DATE,$$PB)^ACHS ^ACHSC6C ^ACHSC6D READ^ACHSFU ^ACHSVAR

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$FMTE^XLFDT

$$DIR^XBDIR VIEWR^XBLM EN^XBVK

^%DT

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSINPEXPREP

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Print Report by: ",!?3,"1. By Patient",!?3,"2. By Community of Residence",!?3,"3. By Age Grouping",!?3,"4. Totals Only",!?3,"5. By Tribe",!!?5,"Enter 1 to 5 1// " Line Location: REPORT+1
Function Call: WRITE	Prompt: !,*7 Line Location: REPORT+5
Function Call: WRITE	Prompt: !!,"Want Expenditure Report by ",$S(ACHSRPT=1:"Patient",ACHSRPT=2:"Community of Residence",1:"Age Grouping")," for: ",!!?5,"1. Inpatient Services",!?5,"2. Dental Services",!?5,"3. Outpatient Serices",!?5,"4. All Services",! Line Location: TYPE+1
Function Call: WRITE	Prompt: !,"Enter 1 thru 4 ALL// " Line Location: TYPE+2
Function Call: WRITE	Prompt: !,*7 Line Location: TYPE+6
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+9
Routine Call	%ZIS Line Location: DEV+6
Routine Call	%ZIS Line Location: DEV+5

Name	Line Occurrences
BDT	EDT+2
DEV	TYPE+5, DEV+9, DEV+13
EDT	REPORT+3
K	BDT+2, EDT+2, REPORT+3, TYPE+4, DEV+2, DEV+3, DEV+6
REPORT	REPORT+3, REPORT+5, TYPE+4
TYPE	REPORT+4, TYPE+4, TYPE+6

Name	Field # of Occurrence
>> %	DEV+1, DEV+2, DEV+3, DEV+11
>> %DT	BDT+3*
>> %ZIS	DEV+4*
>> ACHSBDT	BDT+1*, BDT+2, BDT+4, DEV+10
>> ACHSEDT	EDT+1*, DEV+10
>> ACHSEMON	BDT+5*, EDT+1
>> ACHSQIO	DEV+10*
>> ACHSRPT	REPORT+4, REPORT+6, TYPE+1, DEV+3, DEV+7, DEV+10
>> ACHSRPT1	TYPE+5, TYPE+7
>> DTOUT	BDT+2, EDT+2, REPORT+3, TYPE+4, DEV+2
>> DUOUT	BDT+2, EDT+2, REPORT+3, TYPE+4, DEV+2
IO("Q"	DEV+7, DEV+8!
IO("S"	DEV+9
IOM	DEV+10
ION	DEV+10
IOSL	DEV+10
IOST	DEV+9, DEV+10
>> POP	DEV+6
U	DEV+2
>> X	BDT+4*, BDT+5
>> Y	BDT+4*, REPORT+3, REPORT+4, REPORT+5, REPORT+6, TYPE+4, TYPE+5, TYPE+6, TYPE+7
>> ZTDESC	DEV+10*
ZTIO	DEV+10*, K+2!
>> ZTRTN	DEV+10*
>> ZTSAVE(	DEV+11*
ZTSK	DEV+13, K+2!

Information