Routine: AGED51

Package	Total	Call Graph
VA Fileman	4	DD^%DT ^DIC ^DIE ^DIR
IHS VA Utilities	2	$$DIR^XBDIR HELP^XBHELP
IHS Patient Registration	1	(UPDATE,VAR)^AGED5
Kernel	1	(ENDR,KILL)^%ZISS

Package

Total

Call Graph

VA Fileman

DD^%DT ^DIC ^DIE ^DIR

IHS VA Utilities

$$DIR^XBDIR HELP^XBHELP

IHS Patient Registration

(UPDATE,VAR)^AGED5

Kernel

(ENDR,KILL)^%ZISS

Package	Total	Caller Graph
IHS Patient Registration	4	AGED4 AGED5 AGED6 AGEL5

Package

Total

Caller Graph

IHS Patient Registration

AGED4 AGED5 AGED6 AGEL5

Name	Comments	DBIA/ICR reference
USED(DFN,AGINSPTR,AGP,AGDA,AGMCDDA)	;EP - Is this Eligibility date record used in a 3P Bill or Claim?
DATES
EDIT	;EP
MCDNM
DATES1	;
SAME
SEX
EDIT1	;
EDIT0
L34	;
MCDDB
QUES3
CCOPY	;
PCP	;
SETOTHER	;

External References

Name	Field # of Occurrence
DD^%DT	DATES1+8
ENDR^%ZISS	DATES1+13
KILL^%ZISS	DATES1+13
UPDATE^AGED5	DATES1+18
VAR^AGED5	EDIT+6, EDIT+7, MCDDB+7
^DIC	L34+9, DATES1+9
^DIE	EDIT0+4, EDIT1+15, SEX+4, MCDNM+4, SETOTHER+6, MCDDB+4, MCDDB+6, SAME+3, SAME+5, DATES1+18 , PCP+4, CCOPY+4, CCOPY+8, CCOPY+12
^DIR	EDIT+4, EDIT1+5
$$DIR^XBDIR	DATES1+13
HELP^XBHELP	DATES1+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: *7 Line Location: EDIT+7
Function Call: WRITE	Prompt: !!,"Enter the NAME OF THE INSURED person.",!,"(Enter SAME if the PATIENT is the primary insured person.)",! Line Location: EDIT1+2
Function Call: WRITE	Prompt: ! Line Location: L34+8
Function Call: WRITE	Prompt: ! Line Location: SEX+0
Function Call: WRITE	Prompt: ! Line Location: MCDNM+0
Function Call: WRITE	Prompt: ! Line Location: MCDDB+0
Function Call: WRITE	Prompt: !! Line Location: QUES3+0
Function Call: WRITE	Prompt: "Enter the name of the person in whose name the main account is carried." Line Location: QUES3+1
Function Call: WRITE	Prompt: !,"The name must be in the same format as the patient names.",!! Line Location: QUES3+2
Function Call: WRITE	Prompt: "If the patient is the primary insured person, enter SAME.",!! Line Location: QUES3+3
Function Call: WRITE	Prompt: ! Line Location: DATES1+14
Routine Call	DIE Line Location: EDIT0+4 EDIT1+15 SEX+4 MCDNM+4 SETOTHER+6 MCDDB+4 MCDDB+6 SAME+3 SAME+5 DATES1+18 PCP+4 CCOPY+4 CCOPY+8 CCOPY+12
Routine Call	DIC Line Location: L34+9 DATES1+9
Routine Call	DIR Line Location: EDIT+4 EDIT1+5

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	USED+16, USED+17, USED+18, USED+20, USED+22, USED+24, USED+25
^ABMDCLM - [#9002274.3]	USED+33, USED+34, USED+36, USED+38, USED+40
^AUPNMCD - [#9000004]	EDIT1+3, EDIT1+11, EDIT1+16, L34+5, L34+12*, MCDNM+5, MCDNM+6, SETOTHER+4, DATES1+7, DATES1+8 , DATES1+12
^AUTTRLSH - [#9999999.36]	L34+6
^DD(9000004	EDIT1+2, DATES1+7
^DIC(4 - [#4]	USED+25, USED+41
^DPT - [#2]	SAME+1, SAME+4

Name	Line Occurrences
$$USED	DATES1+12
CCOPY	DATES+2
DATES	EDIT1+2, EDIT1+11
DATES1	DATES
EDIT1	EDIT0, EDIT1+11, EDIT1+16, L34+10, QUES3+4
L34	EDIT1+11, L34+10
MCDDB	MCDNM+5, MCDNM+6
PCP	DATES+1
QUES3	EDIT1+11
SAME	EDIT1+11
SETOTHER	MCDNM+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG("MCD"	EDIT0+2, EDIT1+3, EDIT1+11, EDIT1+14, EDIT1+16, L34+11, MCDNM+2, MCDNM+5, MCDNM+6, SETOTHER+4 , MCDDB+2, SAME, DATES1+3, DATES1+6, DATES1+7, DATES1+8, DATES1+12, DATES1+15, PCP+1, CCOPY+1
>> AG("MNUM"	EDIT+3, EDIT0
AG13	USED+13~, USED+19, USED+20, USED+22, USED+24, USED+35, USED+36, USED+38, USED+40
AGBILL	DATES1+2~, DATES1+12, DATES1+13, USED+13~, USED+14, USED+17, USED+18, USED+20, USED+22, USED+24 , USED+25, USED+31, USED+34*, USED+36, USED+38, USED+40, USED+41
AGDA	DATES1+2~, DATES1+11*, DATES1+17, USED~, USED+22, USED+38
AGDUZ2	USED+13~, USED+14, USED+16, USED+17, USED+18, USED+20, USED+22, USED+24, USED+25, USED+31* , USED+33*, USED+34, USED+36, USED+38, USED+40, USED+41
>> AGELPTR	SEX+2
AGINSPTR	USED~
AGMCDDA	USED~, USED+24, USED+40
AGP	USED~, USED+22, USED+24, USED+38, USED+40
AGREL	L34+5*, L34+6, L34+7!
AGUSED	USED+13~, USED+14, USED+16, USED+17, USED+20, USED+25, USED+29, USED+31, USED+33, USED+34 , USED+36, USED+41, USED+45
DA	EDIT0+2, EDIT1+14, L34+5, L34+11, L34+12, SEX+2, MCDNM+2, SETOTHER+3, MCDDB+2, SAME , DATES1+2~, DATES1+17, PCP+1, CCOPY+1*
DA(1	DATES1+6, DATES1+15, DATES1+16
DFN	SETOTHER+3, SAME+1, SAME+4, DATES1+12, USED~, USED+17, USED+34
DFOUT	EDIT1+1!, EDIT1+7*
DIC	L34+1, L34+13!, DATES1+2~, DATES1+3
DIC("A"	L34+3, DATES1+5
DIC("B"	L34+4!, L34+6, DATES1+8
DIC("P"	DATES1+7*
DIC(0	L34+2, DATES1+4
DIE	EDIT0+3, EDIT1+14, SEX+1, MCDNM+1, SETOTHER+2, MCDDB+1, SAME+2, DATES1+2~, DATES1+16, PCP+3* , CCOPY+3, CCOPY+7, CCOPY+11*
DIE("NO^"	EDIT1+12, SEX+3, DATES1+1!
DIR	EDIT+5!, EDIT1+1!
DIR("B"	EDIT+3, EDIT1+3
DIR(0	EDIT+2, EDIT1+4
DLOUT	EDIT1+1!, EDIT1+8*, EDIT1+11
DQOUT	EDIT1+1!, EDIT1+10*, EDIT1+11
DR	EDIT0+1, EDIT1+13, SEX+3, MCDNM+3, SETOTHER+4, MCDDB+3, MCDDB+5, SAME+1, SAME+4, DATES1+2~ , DATES1+17, PCP+2, CCOPY+2, CCOPY+6, CCOPY+10
DR(2	SETOTHER+5*
DTOUT	EDIT+6, EDIT1+1!, EDIT1+6
DUOUT	EDIT1+1!, EDIT1+9*, L34+10
U	EDIT1+3, EDIT1+11, EDIT1+16, L34+5, L34+6, L34+12, MCDNM+6, SETOTHER+4, SAME+1, SAME+4 , DATES1+7, DATES1+8, DATES1+12, USED+18, USED+22, USED+24, USED+25, USED+38, USED+40, USED+41
>> X	EDIT+7, EDIT0, EDIT0+1, DATES1+13*, CCOPY+5, CCOPY+9
Y	EDIT+6, EDIT1+7, EDIT1+8, EDIT1+9, EDIT1+10, EDIT1+11, EDIT1+13, L34+10, L34+12, DATES1+8* , DATES1+10, DATES1+11, DATES1+12, USED+13~

Customize PDF page

Package: IHS Patient Registration

Routine: AGED51

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 4

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: