Routine: AGEL0

Package	Total	Call Graph
IHS Patient Registration	8	READ^AGED1 (DEL,FLDS,OPT)^AGEL0A (CARDCOPY,COV,EMP,ESTAT,GRP,PCP,PHDOB,PHSEX)^AGEL4 UPDT^AGEL5 ^AGELA ^AGELPHCK $$FINDPVT^AGINSUPD $$INSTYP^AGUTL
VA Fileman	2	^DIE ^DIR

Package	Total	Caller Graph
IHS Patient Registration	2	AGEL AGEL1

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;EP - DISP FLDS
H9	;;W !;W "<--------------INSURED'S ADDRESS-------------->";.09[9a] Street...: ;I X="" S Y="@9";.11[9b] City.....: ;.12[9c] State....: ;.13[9d] Zip......: ;W !;@9
P11	;;W !," Patient Registraion Data (SEX) is Uneditable "
H2	;;.04R~[2] Policy or SSN...:
H3	;;.17R~[3] Effective Date..:
H12	;;.19[12] DOB of Insured..:
H1	;;.01R~[1] Name on Policy..:
H4	;;.18[4] Expiration Date.:
H13	;;.15[13] Empl Stat.:
P10	;;.131[10] Phone.....:
EDIT	;Entry of Claim Identifiers
P12	;;W !," Patient Registraion Data (DOB) is Uneditable "
EDLOOP	;EP - LOOP ASKING FOR FIELD INPUT
XIT
P9	;;W !;W "<--------------INSURED'S ADDRESS-------------->";.111[9a] Street...: ;I X="" S Y="@9";.114[9b] City.....: ;.115[9c] State....: ;.116[9d] Zip......: ;W !;@9
H11	;;.08R~[11] Sex of Insured..:
ACTION	;
H10	;;.14[10] Phone.....:
S13	;;.21[13] Empl Stat.:

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: ACTION+6
Function Call: WRITE	Prompt: !!?5,*7,"The COVERAGE TYPE for this Policy is for SELF ONLY, thus no members" Line Location: ACTION+9
Function Call: WRITE	Prompt: !?5,"may be added! Change the Coverage Type if it is incorrect!" Line Location: ACTION+10
Function Call: WRITE	Prompt: !! Line Location: EDIT+4
Routine Call	DIE Line Location: EDLOOP+46
Routine Call	DIR Line Location: DISP+4

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	ACTION+9, EDLOOP+14, EDLOOP+15, EDLOOP+19
^AUTTPIC - [#9999999.65]	ACTION+9

Name	Line Occurrences
@(	ACTION+12, EDLOOP+20, EDLOOP+24
DISP	ACTION+6, ACTION+8, ACTION+10, ACTION+12, ACTION+13, EDLOOP+53
XIT	DISP+4, ACTION+2, ACTION+8, ACTION+13, EDIT+3

Name	Field # of Occurrence
^(0	ACTION+9, EDLOOP+15

Name	Field # of Occurrence
%DT	EDLOOP+47!
>> AGEL	EDLOOP+2*, EDLOOP+4, EDLOOP+5, EDLOOP+6, EDLOOP+7, EDLOOP+8, EDLOOP+9, EDLOOP+10, EDLOOP+11, EDLOOP+12 , EDLOOP+13, EDLOOP+16, EDLOOP+18, EDLOOP+20, EDLOOP+21, EDLOOP+25, EDLOOP+30
>> AGEL("D"	EDLOOP+20, EDLOOP+24
>> AGEL("I"	EDLOOP+2*
>> AGEL("LBL"	ACTION+12*
>> AGEL("T"	EDLOOP+25*
>> AGEL("TYP"	EDLOOP+3, EDLOOP+14, EDLOOP+19, EDLOOP+20, EDLOOP+23, EDLOOP+24, EDLOOP+27, EDLOOP+28
>> AGELP("FLDS"	EDLOOP+2
>> AGELP("INS"	ACTION+12, EDLOOP+23
>> AGELP("MCD"	EDLOOP+28
>> AGELP("MODE"	EDIT+1*, EDLOOP+48
>> AGELP("PH"	DISP+2, ACTION+2, ACTION+9, ACTION+13, EDLOOP+14, EDLOOP+15, EDLOOP+19, EDLOOP+28
>> AGELP("PHPAT"	EDLOOP+15*, EDLOOP+28
>> AGELP("PI"	EDLOOP+28
>> AGELP("TYPE"	EDLOOP+16
>> AGOPT("ESCAPE"	ACTION+6, ACTION+7
>> AGSEENLY	DISP+4
>> AGSELECT	ACTION+5, EDLOOP+51
>> AUPNPAT	ACTION+12*
>> DA	EDLOOP+28*, EDLOOP+45
>> DFN	DISP+2, ACTION+12*
>> DIE	EDLOOP+27*
>> DIE("NO^"	EDLOOP+17!, EDLOOP+30*
>> DIROUT	ACTION+8, EDIT+3
>> DR	EDLOOP+2, EDLOOP+26
>> DTOUT	ACTION+8, EDIT+3, EDLOOP+2
>> DUOUT	ACTION+8, EDIT+3, EDLOOP+2
>> MYERRS("C"	ACTION+6
>> TEMPDFN	ACTION+12*
U	ACTION+9, EDLOOP+14, EDLOOP+15, EDLOOP+19
>> Y	ACTION+6, ACTION+7, ACTION+8, ACTION+9, ACTION+12, ACTION+13

Name	Field # of Occurrence
$T(@(9)	EDLOOP+26