Routine: ACHSDNRC

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Contract Health Management Information System	2	(ERPT,FMT,FUDT,RTRN)^ACHS (BRPT,READ)^ACHSFU
IHS VA Utilities	2	$$VAL^XBDIQ1 $$C^XBFUNC
VA Fileman	2	^%DT COMMA^%DTC

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

(ERPT,FMT,FUDT,RTRN)^ACHS (BRPT,READ)^ACHSFU

$$VAL^XBDIQ1 $$C^XBFUNC

^%DT COMMA^%DTC

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS DEN REP-CARE NOT MED PRI

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the BEGINNING DATE for this report: " Line Location: A2+1
Function Call: WRITE	Prompt: !!,"Enter the ENDING DATE for this report: " Line Location: A3+1
Function Call: WRITE	Prompt: !!,*7,"The END is before the BEGINNING." Line Location: A3+2
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+3
Function Call: WRITE	Prompt: Y,?14,$P(ACHS(0),U),?30,ACHSICD(1),?50 Line Location: LOOP+19
Function Call: WRITE	Prompt: ! Line Location: LOOP+19
Function Call: WRITE	Prompt: ?30,ACHSICD(L),! Line Location: LOOP+20
Function Call: WRITE	Prompt: !,ACHS("="),!,"TOTALS FOR THIS REPORT: ",ACHSTOT," DENIAL",$S(ACHSTOT=1:"",1:"S"),?61,X Line Location: END+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: @IOF,!!,$$C^XBFUNC("* CONTRACT HEALTH CARE SYSTEM REPORT *",80),!! Line Location: HDR+2
Function Call: WRITE	Prompt: ACHSLOC,!,$$C^XBFUNC("DENIAL REASON FOR CARE NOT",80),?71,"Page",$J(ACHSPG,3),!,$$C^XBFUNC("WITHIN MEDICAL PRIORITY",80) Line Location: HDR+3
Function Call: WRITE	Prompt: !,ACHSTIME,!!,ACHST1,!!,"ISSUE DATE",?14,"DENIAL #",?27,"ICD-DIAGNOSIS",?50,"ACTUAL CHARGES",!,ACHS("="),! Line Location: HDR+4
Routine Call	%ZIS Line Location: DEV+2
Routine Call	%ZIS Line Location: DEV+2

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+4
^ACHSDEN - [#9002071]	LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+7, LOOP+15, LOOP+18
^DD("DD"	START+1, LOOP+19
^DPT - [#2]	LOOP+8

Name	Field # of Occurrence
>> %DT	A2+2, A3+1
>> %ZIS	DEV+2*
>> ACHS	DEV+4*
>> ACHS("$"	LOOP+18*, LOOP+19, LOOP+22
>> ACHS("="	END+1, HDR+4
>> ACHS("BDT"	START+1*, START+2
>> ACHS("EDT"	START+1*, START+2
>> ACHS(0	LOOP+4*, LOOP+5, LOOP+7, LOOP+8, LOOP+19
>> ACHSBDT	A2+2*, A3+2, DEV+4, START+1
>> ACHSBM	LOOP+20, LOOP+21
>> ACHSEDT	A3+1*, A3+2, DEV+4, START+1, LOOP+2
ACHSICD	LOOP+14!, LOOP+15, LOOP+16, EXT+1!
ACHSICD(	LOOP+17*, LOOP+20
ACHSICD(1	LOOP+14*, LOOP+19
ACHSIDX	LOOP+16*, LOOP+17, EXT+1!
>> ACHSIO	DEV+1*
ACHSISU	START+1, LOOP+2, LOOP+3, LOOP+19, EXT+1!
>> ACHSLOC	HDR+3
ACHSNAME	LOOP+7, LOOP+8, EXT+1!
>> ACHSPG	HDR+1*, HDR+3
ACHSREA	LOOP+4, LOOP+10, LOOP+11, LOOP+12, EXT+1!
>> ACHST1	START+2*, HDR+4
>> ACHSTIME	HDR+4
ACHSTOT	START+1, LOOP+22, END+1, EXT+1!
ACHSTOT("$"	START+1, LOOP+22, END+1
DT	A2+2, A3+1
DTOUT	A2+1, A3+1, LOOP+1!, LOOP+2, LOOP+3, LOOP+20, LOOP+21
DUOUT	A2+1, A3+1, LOOP+1!, LOOP+2, LOOP+3, LOOP+20, LOOP+21
DUZ(2	LOOP+2, LOOP+3, LOOP+4, LOOP+6, LOOP+7, LOOP+10, LOOP+15, LOOP+16, LOOP+18
>> FLG	LOOP+4, LOOP+11, LOOP+12*, LOOP+13
>> INDX	LOOP+14, LOOP+16, LOOP+17, LOOP+20
IO	DEV+1
IO("Q"	DEV+3!
IO("S"	DEV+3
IOF	END+1, HDR+2
IOST	DEV+3
L	LOOP+20*, EXT+1!
ND	LOOP+3*, LOOP+4, LOOP+6, LOOP+7, LOOP+10, LOOP+15, LOOP+16, LOOP+18, EXT+1!
>> POP	DEV+2
U	LOOP+7, LOOP+8, LOOP+18, LOOP+19
>> X	A2+2, A3+1, LOOP+19, END+1
>> X2	LOOP+19, END+1
>> X3	LOOP+19, END+1
>> Y	A2+1, A2+2, A3+1, DEV+4, START+1, LOOP+19
>> ZTDESC	DEV+4*
>> ZTRTN	DEV+4*
>> ZTSAVE(	DEV+4*
ZTSK	DEV+5, DEV+6!
>> ZTUCI	DEV+4*

Information