Routine: AGED10B

Package	Total	Call Graph
VA Fileman	6	(,LIST)^DIC FILE^DICN (,FILE,UPDATE)^DIE $$IENS^DILF ($$GET1,GETS)^DIQ ^DIR
IHS Patient Registration	2	($$RQETH,$$RQPRF,$$RQPRM,$$RQRACE)^AGEDERR4 $$RACE^AGUTL

Package	Total	Caller Graph
IHS Patient Registration	5	AG0 AGAPIPAT AGED10A AGEDERR2 AGFACE

Name	Comments	DBIA/ICR reference
PROF1
CHKENG(IENS)	;EP - Get Count of Other Languages Spoken and whether English is one of them
ETHNIC	;EP
CHKRACE	;DECLINED/UNKNOWN RACE CHECK
LANG	;EP - EDIT PATIENT'S PRIMARY LANGUAGE
CLANG(AGPATDFN,OLNG)	;EP - Return the patients most recent language entry IEN and other Language Information
RACE	;EP - DISPLAY PATIENT'S RACE
PREF1
XETHNIC	;
PREF(LIEN)	;EP - EDIT Preferred Language
EDETHNIC	;EP
OLNG(LIEN)	;EP - EDIT PATIENT'S OTHER LANGUAGE SPOKEN
NEWLG(AGPATDFN)	;EP - Create a new Language multiple entry and copy in previous responses
INTRP1
EDRACE	;EP
PROF(LIEN)	;EP - EDIT ENGLISH PROFICIENCY prompt
THI	;EP - DISPLAY TOTAL HOUSEHOLD INCOME
LANG1
MOC(DA,DEF)
NIH	;EP - DISPLAY NUMBER IN HOUSEHOLD
THIP	;EP - EDIT/DISPLAY HOUSEHOLD INCOME PERIOD
INTRP(LIEN)	;EP - EDIT Interpreter required prompt
XLANG

Name	Field # of Occurrence
$$RQETH^AGEDERR4	EDETHNIC+22, EDETHNIC+45, MOC+25
$$RQPRF^AGEDERR4	PREF1+17
$$RQPRM^AGEDERR4	LANG1+55, INTRP1+15, PROF1+15
$$RQRACE^AGEDERR4	EDRACE+28
$$RACE^AGUTL	EDRACE+28, CHKRACE+3
^DIC	EDETHNIC+41
LIST^DIC	CHKRACE+22
FILE^DICN	NEWLG+18
^DIE	LANG1+14, INTRP1+10, OLNG+8, PREF1+12, PROF1+10, EDRACE+20, NIH+6, THI+6, THIP+10
FILE^DIE	LANG1+36, LANG1+42, LANG1+48, LANG1+83, LANG1+91, NEWLG+25, EDETHNIC+33, MOC+22, THI+13
UPDATE^DIE	LANG1+27, CHKRACE+25
$$IENS^DILF	LANG1+7, NEWLG+20, INTRP1+4, PREF1+6, PROF1+4
$$GET1^DIQ	LANG1+8, LANG1+9, LANG1+17, LANG1+18, LANG1+89, CLANG+11, CLANG+15, CLANG+18, INTRP1+5, INTRP1+13 , PREF1+7, PREF1+15, PROF1+5, PROF1+13, EDETHNIC+9, EDETHNIC+25, EDETHNIC+29, THI+9, THIP+5, THIP+13
GETS^DIQ	LANG1+24, CHKENG+2, CLANG+9
^DIR	EDETHNIC+14, MOC+14, CHKRACE+13

Name	Line Occurrences
Function Call: WRITE	Prompt: "?? Required" Line Location: LANG1+55
Function Call: WRITE	Prompt: "?? Required" Line Location: INTRP1+15
Function Call: WRITE	Prompt: "?? Required" Line Location: PREF1+17
Function Call: WRITE	Prompt: "?? Required" Line Location: PROF1+15
Function Call: WRITE	Prompt: "?? Required" Line Location: EDETHNIC+22
Function Call: WRITE	Prompt: "?? Required" Line Location: MOC+25
Function Call: WRITE	Prompt: "?? Required" Line Location: EDRACE+27
Function Call: WRITE	Prompt: "?? Required" Line Location: EDRACE+28
Function Call: WRITE	Prompt: !,"A) Keep "_AGSTR,!,"B) Remove "_AGSTR Line Location: CHKRACE+8
Function Call: WRITE	Prompt: ! Line Location: NIH+2
Function Call: WRITE	Prompt: ! Line Location: THI+2
Function Call: WRITE	Prompt: "?? Required" Line Location: THIP+15
Routine Call	DIC Line Location: CHKRACE+22
Routine Call	DIE Line Location: LANG1+27 CHKRACE+25
Routine Call	DIE Line Location: LANG1+14 INTRP1+10 OLNG+8 PREF1+12 PROF1+10 EDRACE+20 NIH+6 THI+6 THIP+10
Routine Call	DIR Line Location: EDETHNIC+14 MOC+14 CHKRACE+13
Routine Call	DIC Line Location: EDETHNIC+41
Routine Call	DIE Line Location: LANG1+36 LANG1+42 LANG1+48 LANG1+83 LANG1+91 NEWLG+25 EDETHNIC+33 MOC+22 THI+13

FileNo	Call Tags
^DIC(10.3 - [#10.3]	GET1^DIQ
^DPT - [#2]	Classic Fileman Calls
2.02	LIST^DIC
2.06	GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
9000001.86	GET1^DIQ, GETS^DIQ
^AUTTLANG - [#9999999.99]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	NEWLG+17, NEWLG+26, CLANG+5, CLANG+6
^DPT - [#2]	EDETHNIC+8, EDETHNIC+22

Name	Line Occurrences
$$CHKENG	LANG1+31, LANG1+76
$$CLANG	NEWLG+5
$$NEWLG	LANG1+3, PREF1+2
$$PROF	LANG1+69, LANG1+77
CHKRACE	EDRACE+23, CHKRACE+14
EDRACE	EDRACE+28
ETHNIC	EDETHNIC+22, EDETHNIC+28, EDETHNIC+45
INTRP	LANG1+63
INTRP1	INTRP1+14, INTRP1+15
LANG1	LANG1+54, LANG1+55
MOC	EDETHNIC+48
OLNG	LANG1+73
PREF	LANG1+86
PREF1	PREF1+16, PREF1+17
PROF1	PROF1+14, PROF1+15
THIP	THIP+14, THIP+15
XETHNIC	EDETHNIC+15
XLANG	LANG1+51, LANG1+60, LANG1+66, LANG1+77, LANG1+86

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AGCNT	LANG1+23~, LANG1+25, LANG1+26, CHKRACE+1~, CHKRACE+23, CHKRACE+24
AGDEC	CHKRACE+1~, CHKRACE+5*, CHKRACE+6, CHKRACE+7, CHKRACE+16, CHKRACE+18
AGPATDFN	LANG1+3, LANG1+6, NEWLG~, NEWLG+5, NEWLG+13, NEWLG+17, NEWLG+19, NEWLG+26, CLANG~, CLANG+5 , CLANG+6, CLANG+8, INTRP1+3, OLNG+4, PREF1+2, PREF1+5, PROF1+3, EDETHNIC+8, EDETHNIC+9, EDETHNIC+22 , EDETHNIC+29, EDETHNIC+31, EDETHNIC+37, MOC+20
AGRACE	EDETHNIC+30~, MOC+5~, EDRACE+28!, CHKRACE+1~, CHKRACE+3*, CHKRACE+4, CHKRACE+5, CHKRACE+18
AGRACE(	EDETHNIC+32, MOC+21
AGRES	LANG1+23~, CHKRACE+1~
AGRES(	LANG1+25, LANG1+26*
AGRES("DILIST"	CHKRACE+23, CHKRACE+24
AGSCR	CHKRACE+1~, CHKRACE+16, CHKRACE+18, CHKRACE+20*, CHKRACE+22
AGSTR	CHKRACE+1~, CHKRACE+7*, CHKRACE+8, CHKRACE+12
AGUNK	CHKRACE+1~, CHKRACE+5*, CHKRACE+6, CHKRACE+7, CHKRACE+16, CHKRACE+18
ALANG	NEWLG+2~
ALANG(	NEWLG+21, NEWLG+22, NEWLG+23, NEWLG+24
ATHI	THI+11~
ATHI(9000001	THI+12*
CHK	LANG1~, LANG1+31, LANG1+32, LANG1+45, LANG1+76, LANG1+77, LANG1+80, LANG1+86, PREF1~
CNT	CHKENG+1~, CHKENG+3*, CHKENG+6
CPRF	PROF1~, PROF1+5*, PROF1+14!, PROF1+15!
CTHIP	THIP+2~, THIP+5*, THIP+14!, THIP+15!
DA	LANG1~, LANG1+6, LANG1+7, LANG1+54!, LANG1+55!, NEWLG+2~, NEWLG+19, NEWLG+20, NEWLG+26, INTRP1~ , INTRP1+3, INTRP1+4, INTRP1+14!, INTRP1+15!, OLNG+2~, OLNG+4, PREF1~, PREF1+5, PREF1+6, PREF1+16! , PREF1+17!, PROF1~, PROF1+3, PROF1+4, PROF1+14!, PROF1+15!, EDETHNIC+21~, EDETHNIC+22!, EDETHNIC+28!, EDETHNIC+29 , EDETHNIC+32, EDETHNIC+42, EDETHNIC+45!, EDETHNIC+48, MOC~, MOC+21, EDRACE+15~, EDRACE+17, EDRACE+28!, NIH+4 , THI+4, THIP+2~, THIP+8, THIP+14!, THIP+15!
DA(1	LANG1+6, LANG1+12, NEWLG+13, NEWLG+19, INTRP1+3, INTRP1+8, OLNG+4, OLNG+5, PREF1+5, PREF1+10 , PROF1+3, PROF1+8, EDETHNIC+31, EDETHNIC+32, EDETHNIC+37, EDETHNIC+38, MOC+20, MOC+21
DA(2	OLNG+4*
DD	NEWLG+18!
DDUOUT	EDETHNIC+15!
DEF	NEWLG+2~, NEWLG+5, NEWLG+6, NEWLG+7, NEWLG+8, NEWLG+9, NEWLG+10, EDETHNIC+2~, EDETHNIC+8, EDETHNIC+9* , EDETHNIC+10, EDETHNIC+15!, EDETHNIC+18!, MOC~, MOC+11, MOC+24*
>> DFN	EDRACE+17, EDRACE+28, CHKRACE+3, CHKRACE+22, CHKRACE+24, NIH+4, THI+4, THI+9, THI+12, THIP+5 , THIP+8, THIP+13
DIC	NEWLG+2~, NEWLG+13, EDETHNIC+36~, EDETHNIC+38, EDETHNIC+45!, NIH+1!, NIH+7!, THI+1!
DIC("P"	NEWLG+16*
DIC(0	NEWLG+14, EDETHNIC+39
DIE	LANG1~, LANG1+12, LANG1+54!, LANG1+55!, INTRP1~, INTRP1+8, INTRP1+14!, INTRP1+15!, OLNG+2~, OLNG+5* , PREF1~, PREF1+10, PREF1+16!, PREF1+17!, PROF1~, PROF1+8, PROF1+14!, PROF1+15!, EDRACE+15~, EDRACE+16* , EDRACE+28!, NIH+1!, NIH+3, NIH+7!, THI+1!, THI+3, THIP+2~, THIP+7*, THIP+14!, THIP+15!
DIR	EDETHNIC+2~, EDETHNIC+15!, EDETHNIC+18!, MOC+5~, CHKRACE+2!
DIR("?"	CHKRACE+10, CHKRACE+11
DIR("A"	EDETHNIC+5, MOC+8, CHKRACE+9*
DIR("B"	EDETHNIC+10, MOC+11
DIR("S"	EDETHNIC+13*
DIR(0	EDETHNIC+4, MOC+7, CHKRACE+12*
DIROUT	LANG1~, LANG1+54!, LANG1+55!, LANG1+60, PREF1~, PREF1+16!, PREF1+17!, EDETHNIC+2~, EDETHNIC+15!, EDETHNIC+18! , MOC+5~, MOC+15, CHKRACE+2!, CHKRACE+14
DIRUT	LANG1~, LANG1+54!, LANG1+55!, LANG1+60, PREF1~, PREF1+16!, PREF1+17!, EDETHNIC+2~, EDETHNIC+15!, EDETHNIC+18! , MOC+5~, CHKRACE+2!, CHKRACE+14
DLAYGO	NEWLG+2~, NEWLG+16*
DO	NEWLG+18!
DR	LANG1~, LANG1+13, LANG1+54!, LANG1+55!, INTRP1~, INTRP1+9, INTRP1+14!, INTRP1+15!, OLNG+2~, OLNG+6* , PREF1~, PREF1+11, PREF1+16!, PREF1+17!, PROF1~, PROF1+9, PROF1+14!, PROF1+15!, EDRACE+15~, EDRACE+18* , EDRACE+28!, NIH+1!, NIH+5, NIH+7!, THI+1!, THI+5, THIP+2~, THIP+9*, THIP+14!, THIP+15!
DR(2	OLNG+7, EDRACE+19
DT	NEWLG+15
DTOUT	LANG1~, LANG1+54!, LANG1+55!, LANG1+60, LANG1+66, LANG1+69, LANG1+77, INTRP1+10*, OLNG+2~, PREF1~ , PREF1+16!, PREF1+17!, PROF1~, PROF1+10, PROF1+14!, PROF1+15!, EDETHNIC+2~, EDETHNIC+15!, EDETHNIC+18!, MOC+5~ , MOC+15, CHKRACE+2!, CHKRACE+14, THIP+2~, THIP+11, THIP+14!, THIP+15!
DUOUT	LANG1~, LANG1+54!, LANG1+55!, LANG1+60, PREF1~, PREF1+16!, PREF1+17!, EDETHNIC+2~, EDETHNIC+15, EDETHNIC+18! , MOC+5~, MOC+15, EDRACE+15~, EDRACE+21*, EDRACE+28!, CHKRACE+2!, CHKRACE+14
DUZ(2	LANG1+55, INTRP1+15, PREF1+17, PROF1+15, EDETHNIC+22, EDETHNIC+45, MOC+25, EDRACE+28
ENG	CHKENG+1~, CHKENG+3, CHKENG+5, CHKENG+6
ERROR	LANG1+34~, LANG1+40~, LANG1+46~, LANG1+81~, CHKENG+1~
ETHNIC	EDETHNIC+2~, EDETHNIC+15!, EDETHNIC+16*, EDETHNIC+22!, EDETHNIC+28!, EDETHNIC+40, EDETHNIC+45!
EXIT	MOC~, MOC+2, MOC+3, MOC+15, MOC+26*
FDA	CHKRACE+1~
FDA(	CHKRACE+24*
IEN	CHKENG+1~, CHKENG+3, CHKENG+4, CLANG+2~, CLANG+8, CLANG+9, CLANG+10, CLANG+12, CLANG+13, CLANG+14 , CLANG+16, CLANG+17, CLANG+18*
IENS	LANG1~, LANG1+7, LANG1+8, LANG1+17, LANG1+24, LANG1+31, LANG1+35, LANG1+41, LANG1+47, LANG1+54! , LANG1+55!, LANG1+76, LANG1+82, LANG1+89, LANG1+90, NEWLG+2~, NEWLG+20, NEWLG+21, NEWLG+22, NEWLG+23 , NEWLG+24, CHKENG~, CHKENG+2, INTRP1~, INTRP1+4, INTRP1+5, INTRP1+13, INTRP1+14!, INTRP1+15!, PREF1~ , PREF1+6, PREF1+7, PREF1+15, PREF1+16!, PREF1+17!, PROF1+4*, PROF1+5, PROF1+13
INT	NEWLG+2~, NEWLG+7, NEWLG+22, CLANG+2~, CLANG+4, CLANG+12, CLANG+25, INTRP1~, INTRP1+13, INTRP1+14! , INTRP1+15!
INTX	CLANG+2~, CLANG+4, CLANG+13, CLANG+25
LDT	CLANG+2~, CLANG+4, CLANG+5, CLANG+6
LIEN	LANG+2~, LANG1+3, LANG1+6, LANG1+63, LANG1+69, LANG1+73, LANG1+77, LANG1+86, NEWLG+2~, NEWLG+19 , NEWLG+27, CLANG+2~, CLANG+4, CLANG+6, CLANG+7, CLANG+8, CLANG+25, INTRP~, INTRP1+3, OLNG~ , OLNG+4, PREF~, PREF1+2*, PREF1+5, PROF~, PROF1+3
LNG	CHKENG+1~, CHKENG+4*, CHKENG+5
MOC	EDETHNIC+21~, EDETHNIC+22!, EDETHNIC+25, EDETHNIC+28!, EDETHNIC+29, EDETHNIC+45!, EDETHNIC+48, MOC+5~, MOC+17*, MOC+21 , MOC+24, MOC+25
OIEN	CLANG+2~, CLANG+18*
OINT	INTRP1~, INTRP1+5*, INTRP1+14!, INTRP1+15!
OLIEN	NEWLG+2~, NEWLG+6*, NEWLG+26
OLNG	NEWLG+5, CHKENG+1~, CLANG~, CLANG+21, CLANG+22, CLANG+23*, CLANG+25
OLNG(	CLANG+18*, CLANG+22, CLANG+23
OLNG(""	CLANG+21
OLNG("9000001.8605"	CHKENG+3, CHKENG+4
OPRE	PREF1~, PREF1+7*, PREF1+16!, PREF1+17!
OPRM	LANG1~, LANG1+8*, LANG1+9, LANG1+54!, LANG1+55!
OPRMX	LANG1~, LANG1+6, LANG1+9, LANG1+33
PLANG	LANG1~, LANG1+34~, LANG1+40~, LANG1+46~, LANG1+54!, LANG1+55!, LANG1+81~, PREF1~, PREF1+16!, PREF1+17!
PLANG(	LANG1+47, LANG1+90
PLANG("9000001.86"	LANG1+35, LANG1+41, LANG1+82*
PRE	NEWLG+2~, NEWLG+8, NEWLG+23, CLANG+2~, CLANG+4, CLANG+14, CLANG+15, CLANG+25, PREF1~, PREF1+15 , PREF1+16!, PREF1+17!
PREX	CLANG+2~, CLANG+4, CLANG+15, CLANG+25
PRF	PROF1~, PROF1+13*, PROF1+14!, PROF1+15!
PRM	LANG1~, LANG1+17, LANG1+18, LANG1+54!, LANG1+55!, LANG1+89, LANG1+90, NEWLG+2~, NEWLG+9, NEWLG+21 , CLANG+2~, CLANG+4, CLANG+10*, CLANG+11, CLANG+25
PRMX	LANG1~, LANG1+17, LANG1+18, LANG1+22, LANG1+33, LANG1+39, LANG1+45, LANG1+54!, LANG1+55!, LANG1+60 , LANG1+66, LANG1+73, LANG1+80, CLANG+2~, CLANG+4, CLANG+11, CLANG+25
PRO	NEWLG+2~, NEWLG+10, NEWLG+24, CLANG+2~, CLANG+4, CLANG+16*, CLANG+25
PROX	CLANG+2~, CLANG+4, CLANG+17, CLANG+25
THI	THI+1!, THI+9*, THI+10
THIP	THIP+2~, THIP+13*, THIP+14!, THIP+15!
U	LANG1+32, LANG1+45, LANG1+77, LANG1+80, LANG1+86, NEWLG+6, NEWLG+7, NEWLG+8, NEWLG+9, NEWLG+10 , CLANG+25, EDETHNIC+40, MOC+21, CHKRACE+24
VAR	CLANG+2~, CLANG+4*
VAR(	CLANG+10, CLANG+12, CLANG+13, CLANG+14, CLANG+16, CLANG+17, CLANG+18
X	NEWLG+2~, NEWLG+15, EDETHNIC+36~, EDETHNIC+40, EDETHNIC+45!, MOC+5~
Y	LANG1~, LANG1+23~, LANG1+51, LANG1+54!, LANG1+55!, NEWLG+2~, NEWLG+19, INTRP1~, INTRP1+10, OLNG+2~ , PREF1~, PREF1+12, PREF1+16!, PREF1+17!, PROF1~, PROF1+10, PROF1+14!, PROF1+15!, EDETHNIC+2~, EDETHNIC+15! , EDETHNIC+16, EDETHNIC+18!, EDETHNIC+36~, EDETHNIC+42, EDETHNIC+45!, MOC+5~, MOC+17, EDRACE+15~, EDRACE+21, EDRACE+28! , CHKRACE+1~, CHKRACE+18, CHKRACE+20, THIP+2~, THIP+11, THIP+14!, THIP+15!

Customize PDF page

Package: IHS Patient Registration

Routine: AGED10B

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: