Routine: AG5

Package	Total	Call Graph
IHS Patient Registration	6	(READ,YN)^AG DUOUT^AG4 ^AG6 ^AGED4A UPDATE^AGED5 EN^AGEDMCD
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
IHS Patient Registration	3	AG4 AG6 AGED5

Entry Points

Name	Comments	DBIA/ICR reference
GROUP
REL	;
ADDNEW	;EP - Add/Edit MediCAID Client.
CC
PCP
SAME
SEX
L6
STATE	;EP - STATE LOOP
L5	;
L2
MCDB	;
NUMB
L1
CCD
DUOUT	;EP
MCNM	;
SETOTHER	;
END

External References

Name	Field # of Occurrence
READ^AG	L2, STATE+2, NUMB+1, L6
YN^AG	L2+10
DUOUT^AG4	L2+4, L2+8, DUOUT+1
^AG6	L1, L2+3, L2+5, END+1
^AGED4A	NUMB+4
UPDATE^AGED5	MCDB+10
EN^AGEDMCD	L2+3
^DIC	STATE+13, REL+5
^DIE	L5+14, L6+3, SEX+5, MCNM+3, PCP+4, GROUP+4, CC+4, CCD+4, MCDB+3, MCDB+9 , MCDB+11, MCDB+15, SAME+2, SAME+4, SAME+6, SAME+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Any more MEDICAID COVERAGE? (Y/N) NO// " Line Location: L1+2
Function Call: WRITE	Prompt: !!,"Does this patient have MEDICAID COVERAGE? (Y/N) NO// " Line Location: L1+6
Function Call: WRITE	Prompt: !!,"Enter the MEDICAID STATE: " Line Location: STATE+1
Function Call: WRITE	Prompt: !,"This is a required field." Line Location: STATE+3
Function Call: WRITE	Prompt: !,"This is a required field." Line Location: STATE+4
Function Call: WRITE	Prompt: !!,"Enter the Medicaid account state." Line Location: STATE+7
Function Call: WRITE	Prompt: !,$P(^DIC(5,AG("ST"),0),U) Line Location: STATE+9
Function Call: WRITE	Prompt: !!,"Enter the MEDICAID NUMBER: " Line Location: NUMB+0
Function Call: WRITE	Prompt: !,"This is a Required field" Line Location: NUMB+2
Function Call: WRITE	Prompt: !,"This is a Required field" Line Location: NUMB+3
Function Call: WRITE	Prompt: !,I Line Location: NUMB+7
Function Call: WRITE	Prompt: !,^(3) Line Location: NUMB+9
Function Call: WRITE	Prompt: !!,"Enter the NAME OF THE INSURED person.",!,"(Enter SAME if the PATIENT is the primary insured person.)",!!,"? " Line Location: L6+0
Function Call: WRITE	Prompt: " ",$P(^AUPNMCD(AG("MCD"),0),U,5),"// " Condition for execution: $P(^AUPNMCD(AG("MCD"),0),U,5)]"" Line Location: L6+0
Function Call: WRITE	Prompt: !!,"Enter the name of the person in whose name the main account is carried.",!,"The name must be in the same format as the patient names.",!!,"If the patient is the primary insured person, enter SAME.",!! Line Location: L6+1
Function Call: WRITE	Prompt: ! Line Location: REL+4
Function Call: WRITE	Prompt: ! Line Location: SEX+0
Function Call: WRITE	Prompt: ! Line Location: PCP+0
Function Call: WRITE	Prompt: ! Line Location: GROUP+0
Function Call: WRITE	Prompt: ! Line Location: CC+0
Function Call: WRITE	Prompt: ! Line Location: CCD+0
Function Call: WRITE	Prompt: ! Line Location: MCDB+4
Function Call: WRITE	Prompt: ! Line Location: MCDB+13
Routine Call	DIE Line Location: L5+14 L6+3 SEX+5 MCNM+3 PCP+4 GROUP+4 CC+4 CCD+4 MCDB+3 MCDB+9 MCDB+11 MCDB+15 SAME+2 SAME+4 SAME+6 SAME+8
Routine Call	DIC Line Location: STATE+13 REL+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNMCD - [#9000004]	Classic Fileman Calls
^AUTTRLSH - [#9999999.36]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC - [#9009061]	L2+3, L2+4, L2+5
^AUPNMCD - [#9000004]	STATE+16, L5+3, L5+6, L6, L6+2, L6+3, REL+8*, MCNM+1, CCD+5, CCD+6 , MCDB+1
^AUPNMCD("AB"	L1+1, STATE+8, STATE+9, NUMB+7
^AUPNMCD("B"	L5+7*
^AUPNMCD(0	L5+1, L5+2, L5+8, L5+9
^AUTNINS("B"	L5+6
^DD(9000004	NUMB+9, L6
^DIC(5 - [#5]	STATE+9, L5+13
^DPT - [#2]	L2+3, SAME, SAME+3, SAME+5, SAME+7

Label References

Name	Line Occurrences
END	L2+9
L1	L2+3, L2+11, DUOUT+1
L2	L1+4
L6	L6+1, L6+2, L6+3
MCDB	CCD+5, CCD+6
MCNM	L6, L6+2
NUMB	NUMB+2, NUMB+3, NUMB+9
REL	L6+2, REL+6
SAME	L6+2
SETOTHER	CCD+6
STATE	L2+9, STATE+4, STATE+9, STATE+14

Naked Globals

Name	Field # of Occurrence
^(3	NUMB+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ADDCHK	L5+16*
AG	END+1!
AG("DFLT"	L1+3, L1+5
AG("EDIT"	MCDB+10, MCDB+11, END
AG("LT"	L2+1*, L2+3, L2+5
AG("MCD"	L5+11*, L6, L6+2, L6+3, REL+7, SEX+2, MCNM+1, PCP+2, GROUP+2, CC+2 , CCD+2, CCD+5, CCD+6, MCDB+1, MCDB+8, MCDB+11
AG("NUM"	NUMB+8*, L5+13
AG("ST"	STATE+6, STATE+9
AG("STATE"	STATE+15*, NUMB+7, L5+13
AG("STPTR"	STATE+16, STATE+17
>> AGELPTR	STATE+16, L5+15*
>> AGOPT(4	L1, DUOUT+1
>> AGPAT	L2+3*
AGXTERN	L2+3*!
>> AGZ("I"	STATE+9, NUMB+7, L5+3*
D	L5+2, L5+3, L5+4!
>> DA	L5+2, L5+3, L5+5, L5+6, L5+7, L5+8, L5+11, L5+15, L6+3, REL+7* , REL+8, SEX+2, PCP+2, GROUP+2, CC+2, CCD+2, MCDB+8, MCDB+11*
>> DFN	L1+1, L2+3, STATE+8, STATE+9, NUMB+7, L5+6, L5+7, SAME, SAME+3, SAME+5 , SAME+7
>> DFOUT	L2+7, STATE+4, NUMB+3, NUMB+4
>> DIC	STATE+11, REL+1
>> DIC("A"	REL+3*, REL+9!
>> DIC("DR"	MCDB+6!
>> DIC("S"	REL+9!
>> DIC(0	STATE+12, REL+2
>> DIE	L5+12, L6+3, SEX+1, PCP+1, GROUP+1, CC+1, CCD+1, MCDB+8, MCDB+11, SAME+1
>> DIE("NO^"	L6+3, SEX+4, MCDB+7*
>> DLOUT	L2+9, STATE+4, NUMB+2, L6+2
>> DQOUT	STATE+5, NUMB+5, L6+1
DR	L5+13, L6+3, SEX+3, MCNM+2, PCP+3, GROUP+3, CC+3, CCD+3, MCDB+2, MCDB+6! , MCDB+8, MCDB+11!, MCDB+12!, MCDB+14, SAME, SAME+3, SAME+5, SAME+7
DT	MCDB+11
>> DTOUT	L2+7, STATE+4, NUMB+3, NUMB+4
>> DUOUT	L2+4, L2+8, STATE+4, NUMB+3, NUMB+4
DUZ(2	L2+3, L2+4, L2+5
>> I	NUMB+6, NUMB+7
>> NEWENTRY	L2+3
U	L2+3, STATE+9, STATE+16, NUMB+9, L5+6, L5+8, L5+9, L5+13, L6, L6+2 , L6+3, REL+8, MCNM+1, CCD+6, MCDB+1, SAME, SAME+3, SAME+5, SAME+7
>> X	STATE+10, NUMB+8, NUMB+9
>> XQY0	L2+3
>> Y	L2+1, L2+9, STATE+4, STATE+10, STATE+14, STATE+15, STATE+16, NUMB+8, L6+2, L6+3 , REL+6, REL+8

Customize PDF page

Package: IHS Patient Registration

Routine: AG5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: