Routine: AGEL1

Package	Total	Call Graph
IHS Patient Registration	4	EDLOOP^AGEL0 ^AGELE2X2 $$ISMINOR^AGUTILS $$INSTYP^AGUTL
VA Fileman	4	^DIC (FILE,YN)^DICN ^DIE ^DIR

Package	Total	Caller Graph
IHS Patient Registration	1	AGEL

Entry Points

External References

Name	Field # of Occurrence
EDLOOP^AGEL0	ADD+18
^AGELE2X2	ADD+10
$$ISMINOR^AGUTILS	PAT+3
$$INSTYP^AGUTL	PAT+9
^DIC	ADD+6, SCAN, PCHK+3
FILE^DICN	PADD2
YN^DICN	PAT+17, PADD+1
^DIE	ADD+11, PADD2+2
^DIR	SCAN+5, PCHK+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: ADD+18
Function Call: WRITE	Prompt: ! Line Location: SCAN+5
Function Call: WRITE	Prompt: !!,"No Hit Found in POLICY HOLDER file",!!,"Searching PATIENT file ...." Line Location: PCHK+2
Function Call: WRITE	Prompt: !!,"No Hit Found in PATIENT File for ",AGEL("X"),"!" Line Location: PCHK+5
Function Call: WRITE	Prompt: ! Line Location: PCHK+5
Function Call: WRITE	Prompt: " ",$P(Y,U,2) Line Location: PCHK+6
Function Call: WRITE	Prompt: !,"A MINOR CANNOT BE THE POLICY HOLDER FOR "_$G(INSNM) Line Location: PAT+13
Function Call: WRITE	Prompt: !!,"Is ",$P(Y,U,2)," the correct insured policy holder" Line Location: PAT+16
Function Call: WRITE	Prompt: *7 Line Location: PAT+17
Function Call: WRITE	Prompt: !!?10,"No Lookup Match Found, or Improper Format for New Entry" Line Location: CHK+1
Function Call: WRITE	Prompt: !!,"Do you wish to add ",X," as the Insured Policy Holder" Line Location: PADD+0
Routine Call	DIE Line Location: ADD+11 PADD2+2
Routine Call	DIC Line Location: ADD+6 SCAN PCHK+3
Routine Call	DIR Line Location: SCAN+5 PCHK+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUPN3PPH - [#9000003.1]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	ADD+10, ADD+12, ADD+13, ADD+14, ADD+15, ADD+16*, ADD+20, ADD+22
^AUTNINS - [#9999999.18]	PAT+7
^DPT - [#2]	SCAN+7, PCHK+1, PAT+19, HIT

Label References

Name	Line Occurrences
@(	ADD+20, ADD+22
CHK	SCAN+3, PCHK+5
HIT	SCAN+7, PCHK+1, PAT+19
PADD2	SCAN+7, PCHK+1, PAT+19
PAT	PAT+17
SCAN	SCAN+6, PCHK+5

Naked Globals

Name	Field # of Occurrence
^(0	ADD+22, HIT

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PAT+17, PAT+19, PADD+1
>> AG("PH11"	ADD+13, ADD+17!
>> AG("PH12"	ADD+14, ADD+17!
>> AG("PH13"	ADD+15, ADD+17!
>> AG("PH14"	ADD+16, ADD+17!
>> AG("PH9"	ADD+12, ADD+17!
>> AGEL("DR"	PCHK+4, PADD2+2, HIT
>> AGEL("X"	SCAN+3, SCAN+7, PCHK+4, PCHK+5, PAT+19, PADD2+1*, PADD2+3
>> AGEL("X3"	ADD+10*
>> AGEL("Y"	SCAN+4, SCAN+7, PAT+16, PAT+19, PADD2+1*, PADD2+3
>> AGELP("FLDS"	ADD+18*
>> AGELP("INS"	PAT+7, PAT+9, PAT+12, PADD2+2
>> AGELP("MODE"	ADD+18, ADD+21, ADD+23*
>> AGELP("PDFN"	ADD+2, ADD+7*, ADD+19, ADD+20, ADD+21, ADD+22, PCHK+1
>> AGELP("PH"	ADD+10, ADD+11, ADD+12, ADD+13, ADD+14, ADD+15, ADD+16, ADD+20, ADD+22
>> AGELP("RELSH"	ADD+21!, ADD+23!
>> AGELP("SAME"	ADD+19, ADD+21, ADD+22, ADD+23, PCHK+1
>> AGELP("TYPE"	ADD+20, ADD+22
>> AGELP("Y"	ADD+10
>> AGV("X2"	ADD+10*
>> DA	ADD+11, PADD2+2
DD	PADD2!
>> DFN	PCHK+1, PAT+3
DIC	ADD+3!, ADD+5, SCAN!, PCHK+3!, PADD2
DIC(0	ADD+4, SCAN, PCHK+3, PADD2
DIE	ADD+3!, ADD+11, PADD2+2
DIR	ADD+3!, SCAN+5!, PCHK+5!
DIR("A"	SCAN+5, PCHK+5
DIR("B"	SCAN+5*
DIR(0	SCAN+5, PCHK+5
DO	PADD2!
>> DR	ADD+11, PADD2+2
>> DTOUT	SCAN+2, SCAN+6
>> DUOUT	SCAN+2, SCAN+6
INSNM	PAT+5~, PAT+7*, PAT+10, PAT+13
INSTYP	PAT+5~, PAT+9*, PAT+11
>> L	CHK*
NOADD	PAT+2~, PAT+3!, PAT+6, PAT+10, PAT+11, PAT+12, PAT+13, PAT+14!
U	ADD+10, ADD+12, ADD+13, ADD+14, ADD+15, ADD+16, ADD+20, ADD+22, SCAN+7, PCHK+1 , PCHK+6, PAT+7, PAT+16, PAT+19, PADD2+1, HIT
X	SCAN+3, SCAN+7, PCHK+4, PCHK+5, PAT+19, CHK!, CHK+1, PADD, PADD+1!, PADD2+3* , HIT*
>> Y	ADD+2, ADD+7, ADD+10, ADD+20, ADD+22, SCAN+1, SCAN+2, SCAN+3, SCAN+4, SCAN+6 , SCAN+7, PCHK+1, PCHK+5, PCHK+6, PAT+16, PAT+19, CHK+1, PADD+1, PADD2, PADD2+1 , PADD2+2, PADD2+3, HIT
>> Y(0	SCAN+5

Customize PDF page

Package: IHS Patient Registration

Routine: AGEL1

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
PAT	;
PADD
SCAN
CHK
ADD	;EP - PROMPT TO ADD DATA TO FLDS
PADD2
HIT
PCHK	;EP - LOOK FOR NAME IN POLICY HOLDER FILE