Routine: AGBICEDZ

Package	Total	Call Graph
IHS Patient Registration	6	(PTLK,VIDEO)^AG ^AGBIC2C ^AGDICLK (,UPDATE)^AGED (QUES,READ)^AGED1 $$S^AGVDF
VA Fileman	2	DD^%DT ^DIE

Entry Points

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"IHS ELIGIBILITY : ",AG("LKPRINT"),!! Line Location: VAR+0
Function Call: WRITE	Prompt: !,"1. COMMUNITY:" Line Location: VAR+1
Function Call: WRITE	Prompt: ?22,$P(^(11),U,18) Line Location: VAR+1
Function Call: WRITE	Prompt: ?22,$P(^(11),U,18) Line Location: VAR+1
Function Call: WRITE	Prompt: !,"2. TRIBE:",?22 Line Location: VAR+2
Function Call: WRITE	Prompt: $P(^AUTTTRI(AG("Y"),0),U) Line Location: VAR+3
Function Call: WRITE	Prompt: ?$X+2,$$S^AGVDF("RVN"),"(OLD UNUSED TRIBE NAME)",$$S^AGVDF("RVF") Line Location: VAR+3
Function Call: WRITE	Prompt: $S($P(^(11),U,19)="Y":" (VERIFIED)",$P(^(11),U,19)="U":" (UNABLE TO VERIFY (NO TRIBAL ROLE))",1:" (UNVERIFIED)") Line Location: VAR+4
Function Call: WRITE	Prompt: !,"3. INDIAN QUANTUM:",?22,$P(^AUPNPAT(DFN,11),U,10),! Line Location: VAR+5
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+5
Function Call: WRITE	Prompt: !!?23,"CHANGE which item? (1-3) NONE// " Line Location: VAR+6
Function Call: WRITE	Prompt: !,"OLD (unused) TRIBE.",!,"Please enter a current TRIBE name.",!,"""??"" for a list, ""^"" to exit." Line Location: TRBMSG+0
Routine Call	DIE Line Location: L7+1

FileNo	Call Tags
^AUPNPAT - [#9000001]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	AGBICEDZ+3, AGBICEDZ+4, VAR+1, VAR+2, VAR+4, VAR+5, L7+2
^AUTTTRI - [#9999999.03]	VAR+3, L7+2
^DPT - [#2]	AGBICEDZ+4

Name	Field # of Occurrence
^(0	AGBICEDZ+4, VAR+3
^(11	AGBICEDZ+3, VAR+1, VAR+4

Name	Field # of Occurrence
AG	END!
AG("AUPN"	AGBICEDZ+4*, AGBICEDZ+5, AGBICEDZ+6
AG("COMAGED1"	L7+1
AG("ERR"	VAR+6
AG("LKDATA"	END!
AG("LKERR"	END!
AG("LKPRINT"	VAR, END!
AG("PG"	AGBICEDZ+4*
AG("SEL"	VAR+7*, L7, L7+1, L7+2, ENDOPT
AG("SVELIG"	AGBICEDZ+3*
AG("Y"	VAR+2*, VAR+3
AGCHRT	AGBICEDZ+4*, END!
AGL	END!
AGLINE	END!
AGLINE("-"	AGBICEDZ+7*
AGLINE("EQ"	AGBICEDZ+7*, VAR+5
AGPAT	AGBICEDZ+4*, END!
AGUPDT	AGBICEDZ+5, AGBICEDZ+6, END!
DA	VAR, L7+1, END!
>> DFN	AGBICEDZ+3, AGBICEDZ+4, VAR, VAR+1, VAR+2, VAR+4, VAR+5, L7+1, L7+2
DFOUT	VAR+6, END!
DIC	VAR*, END!
>> DIE	L7+1*
DLOUT	VAR+6, END!
DQOUT	VAR+6, END!
DR	VAR, L7+1, END!
DTOUT	VAR+6, END!
DUOUT	VAR+6, L7+2, END!
DUZ(2	AGBICEDZ+4
G	END!
U	AGBICEDZ+3, AGBICEDZ+4, AGBICEDZ+5, AGBICEDZ+6, VAR+1, VAR+2, VAR+3, VAR+4, VAR+5, L7+2
X	END!
Y	AGBICEDZ+5, AGBICEDZ+6, VAR+6, VAR+7, END!