Routine: AGEL

Information

AGEL ; IHS/ASDS/EFG - Add/Edit Eligibility Information ;

Source file <AGEL.m>

Package	Total	Call Graph
IHS Patient Registration	3	DISP^AGEL0 (ADD,PCHK)^AGEL1 $$INSTYP^AGUTL
VA Fileman	2	^DIC ^DIR

Package	Total	Caller Graph
IHS Patient Registration	2	AG7 AGED7

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: INS+2
Function Call: WRITE	Prompt: *7,!!,"WARNING: If you proceed you will be ADDING an Insurer that the Patient already",!," has an Eligibility Record for!" Line Location: INS2+1
Function Call: WRITE	Prompt: ! Line Location: INS2+3
Function Call: WRITE	Prompt: " (OK, then proceed with caution)" Condition for execution: Y=1 Line Location: INS2+3
Function Call: WRITE	Prompt: !!,"Enter the NAME of the POLICY HOLDER or the POLICY NUMBER if it already exists." Line Location: PH+5
Function Call: WRITE	Prompt: !?10,"(Enter 'SAME' if the PATIENT is the Policy Holder.)" Line Location: PH+6
Function Call: WRITE	Prompt: ! Line Location: PH+8
Function Call: WRITE	Prompt: !!,"Not adding insurer...." Line Location: PH+21
Function Call: WRITE	Prompt: ! Line Location: PH+32
Routine Call	DIC Line Location: INS+13 PH+35
Routine Call	DIR Line Location: INS2+3 PH+15

FileNo	Call Tags
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls
^AUTNINS - [#9999999.18]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	HIT+1
^AUPNMCD - [#9000004]	HIT+3
^AUPNMCD("C"	HIT+3
^AUPNPRVT("C"	HIT+5
^AUPNPRVT("I"	INS2+1
^AUTNINS - [#9999999.18]	PH+30
^DPT - [#2]	PH+22

Name	Field # of Occurrence
^(0	HIT+1

Name	Field # of Occurrence
>> ADDCHK	HIT+7*
>> AG("NUM"	PH+9
AGEL	PH!, PH+1, PH+3, PH+4!, XIT+1!
AGEL(	PH+1*, PH+3
AGEL("D"	PH+9*
AGEL("D0"	PH+9*
AGEL("DS"	PH+9*
AGEL("I"	HIT+3*
AGEL("X"	PH+24*
AGELP	PH+2!
AGELP(	PH+1, PH+3*
AGELP("INS"	INS+15*, INS2+1, PH+26, PH+29, PH+30
AGELP("MODE"	HIT+2, DISP+1, DISP+2*
AGELP("PDFN"	INS2+1, PH+6, PH+22, HIT+3, HIT+5, XIT
AGELP("PH"	HIT*, HIT+3, HIT+5
AGELP("PHPAT"	HIT+1*
AGELP("SAME"	PH+22, PH+23, DISP+1, DISP+2
AGELP("TYPE"	INS+9, PH+9, HIT+3, HIT+5
AGELP("Y"	HIT*
>> AGNEWINS	INS+1, DISP+1, DISP+2
AGV	XIT+1!
>> AGZ("I"	HIT+3*
>> DFN	XIT*
>> DFOUT	PH+16*
DIC	INS+3!, INS+4, PH+33!, PH+34, XIT+1!
DIC("A"	INS+4*
DIC("S"	INS+9, INS+10, PH+34*
DIC(0	INS+4, PH+34
DIR	INS2+3!, PH+7!, PH+20!
DIR("?"	PH+10, PH+11, PH+12, PH+13
DIR("??"	PH+14*
DIR("A"	INS2+3, PH+9
DIR(0	INS2+3, PH+9
>> DIROUT	PH+21, PH+36
>> DIRUT	INS2+4, PH+21, PH+36
>> DLOUT	PH+17*
>> DQOUT	PH+19*
DR	XIT+1!
DTOUT	INS+12!, INS+14, INS2+2!, INS2+4, PH+21, PH+36
DUOUT	INS+12!, INS+14, INS2+2!, PH+18*, PH+21, PH+36
INSNM	PH+27~, PH+30*
INSTYP	PH+27~, PH+29*
U	HEAD*, PH+22, PH+30, HIT+1, HIT+2, HIT+3
>> X	INS+14, PH+22*, PH+24
>> Y	INS+14, INS+15, INS2+3, INS2+4, PH+16, PH+17, PH+18, PH+19, PH+22*, PH+36 , HIT, HIT+1, HIT+2