Routine: AGEL4

Information

AGEL4 ; IHS/ASDS/EFG - Add/Edit Eligibility PART 4 ;

Package	Total	Call Graph
VA Fileman	3	^DIC ^DIE ^DIR

Package	Total	Caller Graph
IHS Patient Registration	1	AGEL0

Name	Field # of Occurrence
^DIC	PRECERT+7
^DIE	COV+3, H14+5, EMPL+4, P14+3, GRP+2, GRP+10, GRP+11, CARDCOPY+6, CARDCOPY+11, PRECERT+13 , PCCONTAC+5, PCP+7, ESTAT+4, EMP+4, PHSEX+4, PHDOB+4
^DIR	GRP+8

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"<---------EDIT EMPLOYER DEMOGRAPHICS--------->" Line Location: EMPL+1
Function Call: WRITE	Prompt: ! Line Location: GRP+5
Function Call: WRITE	Prompt: !!?5 Line Location: GRP+6
Function Call: WRITE	Prompt: "NOTE: Some Insurers assign different Group Numbers based upon the",!?11,"particular type of visit (dental, outpatient, etc.) that",!?11,"occurred." Line Location: GRP+6
Function Call: WRITE	Prompt: ! Line Location: GRP+7
Function Call: WRITE	Prompt: ! Line Location: GRP+9
Routine Call	DIE Line Location: COV+3 H14+5 EMPL+4 P14+3 GRP+2 GRP+10 GRP+11 CARDCOPY+6 CARDCOPY+11 PRECERT+13 PCCONTAC+5 PCP+7 ESTAT+4 EMP+4 PHSEX+4 PHDOB+4
Routine Call	DIC Line Location: PRECERT+7
Routine Call	DIR Line Location: GRP+8

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	COV+5, COV+6, H14+6, P14+4, GRP+3
^AUPNPRVT - [#9000006]	CARDCOPY+8!, PCP+9!
^AUTNEGRP - [#9999999.77]	GRP+8, GRP+10!
^AUTNEGRP(0	GRP+1, GRP+4
^AUTNEMPL(0	H14+1, H14+7, P14, P14+5

Name	Line Occurrences
EMPL	P14+6

Name	Field # of Occurrence
^(0	H14+6, P14+4

Name	Field # of Occurrence
>> AGEL("COV"	COV+6*
>> AGEL("DFN"	H14+6, EMPL, P14+4
>> AGEL("EGRP"	GRP+3*, GRP+5, GRP+8, GRP+10, GRP+11
>> AGEL("OLDN"	H14+1, H14+7, P14, P14+5, GRP+1*, GRP+4
>> AGELP("MODE"	CARDCOPY+1, PCP+1
>> AGELP("PDFN"	PRECERT+1
>> AGELP("PH"	COV+2, COV+5, COV+6, H14+4, H14+6, P14+2, P14+4, GRP+2, GRP+3, ESTAT+2 , EMP+2, PHSEX+2, PHDOB+2
>> AGINSREC	CARDCOPY+2, PCP+3
>> AGPCIEN	PRECERT+11*, PCCONTAC+1, PCCONTAC+4
>> AUPNPAT	PRECERT+1*
>> DA	COV+2, H14+4, EMPL, P14+2, GRP+2, GRP+5, GRP+10, GRP+11, CARDCOPY+2, CARDCOPY+8 , PRECERT+11, PCCONTAC+4, PCP+3, PCP+9, ESTAT+2, EMP+2, PHSEX+2, PHDOB+2
>> DA(1	CARDCOPY+3, CARDCOPY+4, CARDCOPY+8, PCP+4, PCP+5, PCP+9
>> DFN	CARDCOPY+3, PCP+4
DIC	COV+4!, PRECERT+2*, PRECERT+10, PRECERT+14!
DIC("A"	PRECERT+5*
DIC("DR"	PRECERT+6*
DIC("S"	PRECERT+4*, PRECERT+8!
DIC(0	PRECERT+3*
DIE	COV+1, H14+2, EMPL, P14+1, GRP+2, GRP+5, GRP+10, GRP+11, CARDCOPY+4, CARDCOPY+12! , PRECERT+10, PRECERT+14!, PCCONTAC+2, PCCONTAC+6!, PCP+5, PCP+10!, ESTAT+1, ESTAT+5!, EMP+1, EMP+5! , PHSEX+1, PHSEX+5!, PHDOB+1, PHDOB+5!
DIR	GRP+7!
DIR("A"	GRP+7*
DIR("B"	GRP+7, GRP+8
DIR(0	GRP+7*
>> DR	COV+2, H14+3, EMPL+2, EMPL+3, P14+2, GRP+2, GRP+10, GRP+11, CARDCOPY+5, CARDCOPY+10 , PRECERT+12, PCCONTAC+3, PCP+6, ESTAT+3, EMP+3, PHSEX+3, PHDOB+3*
>> DTOUT	GRP+9
U	COV+5, COV+6, H14+1, H14+6, H14+7, P14, P14+4, P14+5, GRP+1, GRP+3 , GRP+4, CARDCOPY+2, CARDCOPY+8, PCP+3, PCP+9
>> X	CARDCOPY+9
>> Y	COV+5, H14+6, P14+4, GRP+3, GRP+9, GRP+10, PRECERT+9, PRECERT+11