Routine: AGEL0A

Information

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

Package	Total	Caller Graph
IHS Patient Registration	1	AGEL0

Name	Comments	DBIA/ICR reference
OPT	;EP - PROMPT TO ADD MEMBER OR EDIT DATA
AGN
PKILL
AG
EJ
FLDS	;EP - Field Edit Controller
DEL	;EP - DELETE MESSAGE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"*** YOU MUST ENTER A NUMBER FROM 1 - ",$G(AGELP("FLDS")) Line Location: OPT+10
Function Call: WRITE	Prompt: !!?5,"Enter either 'E' to Edit Data, 'A' to Add a Member, 'D' to Delete a member,",!?5 Line Location: OPT+26
Function Call: WRITE	Prompt: "'V' to View/edit the Policy Holder's address info, or 'RETURN' to quit.",! Line Location: OPT+27
Function Call: WRITE	Prompt: ! Line Location: AGN+0
Function Call: WRITE	Prompt: !!?5,"------------POLICY MEMBERS------------" Line Location: AG+2
Function Call: WRITE	Prompt: !?10,AGEL("I"),") ",$P(^DPT(Y,0),U) Line Location: AG+4
Function Call: WRITE	Prompt: !!,*7,"No Registered Members Exist for this Policy!" Line Location: AG+5
Routine Call	DIR Line Location: OPT+5 AGN+4 AG+6 AG+14

FileNo	Call Tags
^AUPNPRVT - [#9000006]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPRVT - [#9000006]	AG+20
^DPT - [#2]	AG+4, AG+10
^XUSEC("AGZMGR"	OPT+19

Name	Line Occurrences
EJ	FLDS+1
OPT	OPT+28

Name	Field # of Occurrence
ADDCHK	AG+16!, AG+21!
>> AGEL(	AG+4*, AG+8
>> AGEL("I"	AG+4*, AG+5, AG+6, AG+9
>> AGEL("Y"	AG+8, AG+10, AG+16, AG+17, PKILL+2, PKILL+4, PKILL+6
>> AGELP(	AG+4, AG+16, AG+17!, PKILL+2, PKILL+6
>> AGELP("FLDS"	OPT+9, OPT+10, AGN+1, AGN+2, EJ*
>> AGELP("PH"	OPT+13!, AG+16!, AG+21!
>> AGELP("TYPE"	DEL+1, AG+16, PKILL+3
>> AGELP("Y"	PKILL*
>> AGOPT("ESCAPE"	OPT+12
>> DA	AG+16, AG+21, PKILL+6*
>> DA(1	AG+16, PKILL+4, PKILL+5
>> DFN	AG+20, AG+21
>> DFOUT	AGN+5*
>> DIK	AG+16, AG+21, PKILL+5*
DIR	OPT+1~, OPT+6!, AGN+9!, AG+6!, AG+12!
DIR("A"	OPT+3, AGN+3, AG+6, AG+14
DIR("B"	AG+13*
DIR(0	OPT+4, AGN+1, AGN+2, AG+6, AG+14*
DIROUT	OPT+2!, AGN+10
DIRUT	OPT+2!
DLOUT	OPT+1~, OPT+16, AGN+6
>> DQOUT	AGN+8*
DTOUT	OPT+2!, OPT+14, AGN+10
DUOUT	OPT+2!, OPT+15, AGN+7, AGN+10
DUZ	OPT+19
U	OPT+13, AG+4, AG+10, AG+16, PKILL+6
>> X	OPT+7*, OPT+13
>> Y	OPT+7, OPT+8, OPT+9, OPT+12, OPT+13, OPT+15, OPT+16, OPT+17, OPT+18, OPT+19 , OPT+21, OPT+23, OPT+24, OPT+25, FLDS+1, AGN+5, AGN+6, AGN+7, AGN+8, EJ , AG+3, AG+4, AG+7, AG+8, AG+9, PKILL+1, PKILL+2