Routine: ACHSGAO

Information

ACHSGAO ; IHS/OIT/FCJ -version 2-GAO REPORT-DENIAL AND DEF LIST BY ISSUE DATE ; 30 Jul 2010 10:39 AM

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Contract Health Management Information System	3	($$DATE,$$EBB,$$HRN,ERPT)^ACHS BRPT^ACHSFU ^ACHSVAR
DRG Grouper	3	$$ICDDX^ICDCODE $$ICDDX^ICDEX $$CPT^ICPTCOD
IHS VA Utilities	2	$$C^XBFUNC ^XBGSAVE
VA Fileman	1	^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHS DEFDEN GAO

Entry Points

Name	Comments	DBIA/ICR reference
HDR	; Print header.
PDT	;SET PAY DATE IF AVAILABLE
LP2	;UNMET NEED (DEFERRALS)
LP1	; DENIALS
ST	;
A1	;
BDT	; --- Beginning date
EXT	;
EDT	; --- Ending date
SEL	;SELECT FACILITY
SAV	;SAVE GLOBAL AND SEND TO AREA
XTMP	;SET XTMP GLOBAL WITH DATA

External References

Name	Field # of Occurrence
$$DATE^ACHS	BDT+1, EDT+1
$$EBB^ACHS	EDT+3
$$HRN^ACHS	LP1+10, LP2+11
ERPT^ACHS	EXT+6
BRPT^ACHSFU	A1+4
^ACHSVAR	ST+3, EXT+6
^DIC	SEL+2
$$ICDDX^ICDCODE	LP2+30
$$ICDDX^ICDEX	LP1+40
$$CPT^ICPTCOD	LP1+43, LP2+33
$$C^XBFUNC	A1+3, HDR+2
^XBGSAVE	SAV+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"DUZ(2) Must be set" Line Location: ST+2
Function Call: WRITE	Prompt: !!,"Denials" Line Location: LP1+1
Function Call: WRITE	Prompt: !,"Unmet Need Services" Line Location: LP2+2
Function Call: WRITE	Prompt: !!,"TOTAL UNMET NEED:",ACHSCNT,?40,"TOTAL DEFFERALS: ",ACHSDCT Line Location: EXT+1
Function Call: WRITE	Prompt: @IOF,!!,$$C^XBFUNC("* CONTRACT HEALTH CARE SYSTEM REPORT *",80),!! Line Location: HDR+2
Function Call: WRITE	Prompt: ACHSLOC,!?20,"UNMET NEED-DENIED DOCUMENTS BY ISSUE DATE",!,ACHSTIME,!!,ACHST1 Line Location: HDR+3
Routine Call	DIC Line Location: SEL+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ACHSDEN - [#9002071]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ACHSDEF - [#9002066]	LP2+4, LP2+5, LP2+6, LP2+16, LP2+20, LP2+23, LP2+24, LP2+25, LP2+28, LP2+30 , LP2+31, LP2+33, LP2+36, LP2+38
^ACHSDEN - [#9002071]	LP1+3, LP1+4, LP1+5, LP1+9, LP1+22, LP1+23, LP1+24, LP1+27, LP1+28, LP1+29 , LP1+30, LP1+34, LP1+35, LP1+38, LP1+40, LP1+41, LP1+43, LP1+46, LP1+47, LP1+51 , LP1+53, LP1+55
^ACHSDENA - [#9002074]	LP1+49
^ACHSDENS - [#9002073]	LP1+30
^ACHSDFC - [#9002066.5]	LP2+24, LP2+25
^ACHSF - [#9002080]	LP1+21, LP2+17, LP2+19, PDT+1, PDT+2
^ACHSMPRI - [#9002073.1]	LP1+22
^AUTTLOC - [#9999999.06]	SEL+4
^AUTTVNDR - [#9999999.11]	LP1+25
^AUTTVTYP - [#9999999.34]	LP1+26
^BMCREF - [#90001]	LP1+17, LP1+18, LP1+20
^BMCREF("CD"	LP1+15
^DD("DD"	A1+2, LP1+13, LP1+17, LP1+18, LP2+14, PDT+3
^XTMP("ACHSGAO"	ST+4!, LP1+55, LP2+38, XTMP+4, XTMP+5, XTMP+6*
^XTMP($J	LP1+51*

Label References

Name	Line Occurrences
BDT	EDT+2, EDT+3
EXT	BDT+3, A1+9
HDR	A1+5
LP1	A1+6
LP2	A1+7
PDT	LP1+21, LP2+19
SAV	A1+8
SEL	ST+6
XTMP	LP1+44, LP2+34

Naked Globals

Name	Field # of Occurrence
^(	LP1+28, LP1+29
^(0	LP1+28, LP1+29
^(100	LP1+27

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ACHS	LP1+23, LP1+24, LP1+25
>> ACHS("$"	LP1+6, LP1+27, LP1+28, LP1+29, LP2+7, LP2+20, XTMP+4
>> ACHS("BDT"	A1+2*, A1+3
>> ACHS("EDT"	A1+2*, A1+3
>> ACHS(0	LP1+5, LP1+7, LP1+8, LP1+9, LP1+10, LP1+15, LP1+32, LP2+6, LP2+8, LP2+9 , LP2+10, LP2+11
ACHS1	LP1+23, LP1+25, LP1+26, EXT+4!
ACHSACFY	EXT+4!
ACHSAP	LP1+47, LP1+49, LP1+51, EXT+4!
ACHSAPST	LP1+47*, LP1+48, LP1+49, EXT+4!
>> ACHSBDT	BDT+1*, BDT+3, EDT+3, A1+2, A1+3, LP1+2, LP2+3
ACHSCAT	LP2+7, LP2+25, LP2+26, EXT+4!
ACHSCFY	EXT+4!
ACHSCNT	A1+1, LP1+12, EXT+1, EXT+4!
ACHSDCT	A1+1, LP2+13, EXT+1, EXT+4!
ACHSDEC	LP1+32, LP2+21, XTMP+4, EXT+4!
ACHSDFN	LP1+20, LP1+21, LP2+17, LP2+18, LP2+19, PDT+1, PDT+2, EXT+4!
ACHSDTYP	LP1+6, LP1+35, LP1+36, LP2+7, LP2+24, LP2+26, EXT+3!, EXT+4!
>> ACHSEDT	EDT+1*, EDT+2, EDT+3, A1+2, LP1+3, LP2+4
ACHSERR	EXT+4!
ACHSFAC	SEL+1, SEL+4, LP1+3, LP1+4, LP1+5, LP1+9, LP1+10, LP1+21, LP1+22, LP1+23 , LP1+24, LP1+27, LP1+28, LP1+29, LP1+30, LP1+34, LP1+35, LP1+38, LP1+40, LP1+41 , LP1+43, LP1+46, LP1+47, LP1+51, LP1+53, LP1+55, LP2+4, LP2+5, LP2+6, LP2+11 , LP2+16, LP2+17, LP2+19, LP2+20, LP2+23, LP2+24, LP2+25, LP2+28, LP2+30, LP2+31 , LP2+33, LP2+36, LP2+38, PDT+1, PDT+2, EXT+4!
ACHSFACN	SEL+4*, LP1+9, LP1+10, LP2+10, LP2+11, SAV+2, EXT+4!
ACHSFC	EXT+3!
ACHSFYDT	EXT+3!
ACHSFYWK	EXT+3!
ACHSHRN	LP1+10, LP2+11, EXT+3!
ACHSIEN	A1+1, LP1+50, LP1+51, LP1+54, LP1+55, LP2+37, LP2+38, XTMP+3, XTMP+4, XTMP+5 , XTMP+6*, EXT+3!
ACHSISDT	LP1+6, LP1+13, LP2+7, LP2+14, XTMP+4, EXT+3!, EXT+5!
ACHSISU	LP1+2, LP1+3, LP1+4, LP1+13, LP2+3, LP2+4, LP2+5, LP2+14, EXT+5!
ACHSLN	A1+1, LP1+51, LP1+55, LP2+38, XTMP+3, XTMP+4, XTMP+5, XTMP+6, EXT+5!
>> ACHSLOC	HDR+3
ACHSMDT	LP1+6, LP1+18, LP2+7*, XTMP+4, EXT+3!, EXT+5!
ACHSPDT	LP1+6, LP1+20, LP2+7, XTMP+4, PDT+3*, EXT+3!, EXT+5!
>> ACHSPG	HDR+1*
ACHSPO	LP2+7, LP2+16, LP2+17*, EXT+5!
ACHSPRI	LP1+6, LP1+22, LP2+7*, XTMP+4, EXT+3!, EXT+5!
ACHSPRTY	LP1+6, LP1+26, LP2+7*, XTMP+4, EXT+3!, EXT+5!
ACHSPTID	LP1+6, LP1+9, LP1+10, LP1+11, LP2+7, LP2+10, LP2+11, LP2+12, XTMP+4, EXT+3! , EXT+5!
ACHSPTY	LP1+21, LP2+19, PDT+1*, PDT+2, EXT+5!
ACHSRDT	LP1+6, LP1+17, LP2+7*, XTMP+4, EXT+3!, EXT+5!
ACHSREA	LP1+30, LP2+21, XTMP+4, EXT+5!
ACHSREF	LP1+15*, LP1+16, LP1+17, LP1+18, LP1+20, EXT+5!
ACHSREG	LP1+6, LP1+9, LP1+10, LP2+7, LP2+10, LP2+11, EXT+3!, EXT+5!
ACHSSTYP	LP1+6, LP1+34, LP1+36, LP2+7, LP2+23, LP2+26, EXT+3!, EXT+5!
>> ACHST1	A1+3*, HDR+3
>> ACHSTIME	HDR+3
ACHSXHRN	A1+1, LP1+9, LP2+10*, EXT+4!
>> DA	LP1+4, LP1+5, LP1+9, LP1+22, LP1+23, LP1+24, LP1+27, LP1+28, LP1+29, LP1+30 , LP1+34, LP1+35, LP1+38, LP1+40, LP1+41, LP1+43, LP1+46, LP1+47, LP1+51, LP1+53 , LP1+55, LP2+5, LP2+6, LP2+16, LP2+20, LP2+23, LP2+24, LP2+25, LP2+28, LP2+30 , LP2+31, LP2+33, LP2+36, LP2+38
>> DA(1	LP1+28, LP1+29
>> DIC	SEL+1*
>> DIC(0	SEL+1*
DTOUT	LP1+4, LP2+1!, LP2+5
DUOUT	BDT+2, LP1+4, LP2+1!, LP2+5
DUZ(2	ST+2
IOF	HDR+2
>> LN2	LP1+36, LP1+40, LP2+26, LP2+30, XTMP+5
>> LN3	LP1+36, LP1+43, LP2+26, LP2+33, XTMP+6
U	SEL+4, LP1+8, LP1+9, LP1+10, LP1+15, LP1+17, LP1+18, LP1+22, LP1+23, LP1+24 , LP1+25, LP1+26, LP1+27, LP1+28, LP1+29, LP1+30, LP1+32, LP1+34, LP1+35, LP1+40 , LP1+43, LP1+47, LP1+49, LP1+51, LP2+9, LP2+10, LP2+11, LP2+16, LP2+20, LP2+23 , LP2+24, LP2+25, LP2+30, LP2+33, PDT+1, PDT+2
>> X	LP1+34, LP1+35, LP1+38, LP1+40, LP1+41, LP1+43, LP1+46, LP1+47, LP1+51, LP1+53 , LP1+55, LP2+23, LP2+24, LP2+25, LP2+28, LP2+30, LP2+31, LP2+33, LP2+36*, LP2+38
X1	LP2+25*, SAV+1~
X2	ST+1!
X3	ST+1!
XBCON	SAV+1~, SAV+8*
XBE	SAV+1~, SAV+5*
XBF	SAV+1~, SAV+4*
XBFLT	SAV+1~, SAV+6*
XBFN	SAV+1~, SAV+2*
XBGL	SAV+1~, SAV+3*
XBMED	SAV+1~, SAV+7*
XBQ	SAV+1~
XBQSHO	SAV+1~
XBS1	SAV+1~
>> Y	ST+6, BDT+2, A1+2, SEL+3, SEL+4, LP1+13, LP1+17, LP1+18, LP2+14, PDT+2 , PDT+3

Customize PDF page

Package: Contract Health Management Information System

Routine: ACHSGAO

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: