Routine: AGEDERR

Package	Total	Call Graph
IHS Patient Registration	3	($$CURRUPD,$$DECEASED,$$FACCHK,$$HASELIG,$$PTACTIVE)^AGEDERR2 $$ISACTIVE^AGINS $$S^AGVDF
VA Fileman	2	DD^%DT $$GET1^DIQ
IHS Patient	1	$$AGE^AUPNPAT

Package	Total	Caller Graph
IHS Patient Registration	33	AG AGED1 AGED10A AGED11A AGED2 AGED3 AGED4 AGED42 AGED4PD AGED6 AGED62 AGED6PD AGED7B AGEDBEB AGEDBEC AGEDBED AGEDBEE AGEDBEF AGEDBEG AGEDBEH AGEDERR1 AGEDERR3 AGEDGUAR AGEDIT AGEDMCD AGEDPRV AGEDPRVB AGEDTPL AGEDWC AGELA AGFULAUD AGMANERS AGRPTPDP
Patient Registration GUI	2	AGGEDCHK AGGRPTDP
Emergency Room	1	AMERAGED

Name	Comments	DBIA/ICR reference
PATREFBC(DFN)	;EP
DISPLAY(ERRORS)	;EP
GUARADD(GUARINFO)	;EP
SEQMAN(SITE)	;EP
MCRELINC(DFN,FINDCALL)	;EP
CHECKRTN(ERRCALL)	;EP
OVERRIDE(ERROR,RECORD)	;
CHKAGINS(PIECE,ERROR,FORMAT,RETPIECE)	;EP
CHKDEATH(DFN)	;EP - CHECK IF DATE OF DEATH FIELD IS POPULATED
PHNAME(DFN,FINDCALL)	;EP
ISMINOR(DFN)	;EP - CHECK IF PATIENT IS A MINOR AGE PER SANDRI LAHI
PAREMPL(DFN)	;EP
MCGRTMS(DFN,FINDCALL)	;EP
EDITCHEK(ERRORS,VARS,DISPLAY)	;EP
MCDCOVMS(DFN,FINDCALL)	;EP
FETCHERR(PAGENUM,ARRAY)	;EP
ERRDATA(ERR)	;EP
PATBENIN(DFN,FINDCALL)	;EP
PHNMCHK(AGINS)	;EP
FINDALL(DFN,AGINS)	;EP
NONIND(DFN)	;EP

Name	Field # of Occurrence
DD^%DT	PATREFBC+13
$$CURRUPD^AGEDERR2	MCRELINC+5, MCDCOVMS+5, MCGRTMS+5, PATBENIN+5, SEQMAN+4, PATREFBC+4, PAREMPL+5, PHNAME+8, ISMINOR+5
$$DECEASED^AGEDERR2	MCRELINC+6, MCDCOVMS+3, MCGRTMS+3, PATBENIN+3, SEQMAN+2, PATREFBC+2, PAREMPL+3, PHNAME+6, ISMINOR+3
$$FACCHK^AGEDERR2	SEQMAN+6
$$HASELIG^AGEDERR2	MCRELINC+3, MCDCOVMS+6, MCGRTMS+6, PATBENIN+6, SEQMAN+5, PATREFBC+5, PAREMPL+6, PHNAME+9, ISMINOR+6
$$PTACTIVE^AGEDERR2	MCRELINC+4, MCDCOVMS+4, MCGRTMS+4, PATBENIN+4, SEQMAN+3, PATREFBC+3, PAREMPL+4, PHNAME+7, ISMINOR+4
$$ISACTIVE^AGINS	MCRELINC+21, CHKAGINS+9
$$S^AGVDF	DISPLAY+14, DISPLAY+20
$$AGE^AUPNPAT	MCRELINC+31
$$GET1^DIQ	EDITCHEK+11

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"ALL CALLS TO THIS ROUTINE SHOULD BE DONE VIA TAG EPs" Line Location: AGEDERR+16
Function Call: WRITE	Prompt: $$S^AGVDF("RVN") Line Location: DISPLAY+14
Function Call: WRITE	Prompt: $$S^AGVDF("RVF") Line Location: DISPLAY+20

FileNo	Call Tags
^AGEDERRS - [#9009061.5]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	CHECKRTN+2
^AGEDERRS - [#9009061.5]	OVERRIDE+2, OVERRIDE+3, EDITCHEK+6, EDITCHEK+8, EDITCHEK+9, EDITCHEK+10, FETCHERR+4, ERRDATA+1
^AGEDERRS("AB"	FETCHERR+6
^AUPNBENR - [#9000044]	PATREFBC+11, PATREFBC+12
^AUPNBENR("B"	PATREFBC+8
^AUPNMCR - [#9000003]	MCRELINC+29
^AUPNMSP("C"	MCRELINC+32
^AUPNPAT - [#9000001]	MCRELINC+35, PAREMPL+10, NONIND+3
^AUTTBEN - [#9999999.25]	NONIND+5
^DD(2	ISMINOR+9
^DPT - [#2]	CHKDEATH+1

Name	Line Occurrences
$$CHKAGINS	MCDCOVMS+18, MCGRTMS+21, PATBENIN+18, PATBENIN+19, PHNMCHK+2, PHNMCHK+4
$$ERRDATA	MCRELINC+39, PATREFBC+15, CHKAGINS+17, DISPLAY+7
$$ISMINOR	PAREMPL+8
$$OVERRIDE	CHKAGINS+14
$$PHNMCHK	PHNAME+29, PHNAME+39
@(	MCRELINC+17, MCDCOVMS+17, MCGRTMS+17, PATBENIN+17, PHNAME+36, PHNAME+37, FINDALL+7
DISPLAY	EDITCHEK+17
FINDALL	MCRELINC+16, MCDCOVMS+16, MCGRTMS+16, PATBENIN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AGERNODE	EDITCHEK+8*
>> AGERRCAL	EDITCHEK+6, EDITCHEK+7, EDITCHEK+13, EDITCHEK+14
>> AGERRMSG	EDITCHEK+10*
>> AGERRSOL	EDITCHEK+11*, EDITCHEK+15
>> AGERRTYP	EDITCHEK+9*, EDITCHEK+15
AGINS	MCRELINC+1~, MCRELINC+16, MCRELINC+38!, MCDCOVMS+1~, MCDCOVMS+16, MCDCOVMS+19!, MCGRTMS+1~, MCGRTMS+16, MCGRTMS+23!, PATBENIN+1~ , PATBENIN+16, PATBENIN+20!, PHNAME+1~, PHNAME+29, PHNAME+39, PHNAME+40!, PHNMCHK~, FINDALL~
AGINS(	MCRELINC+19, MCRELINC+21, MCRELINC+23, MCRELINC+24, MCRELINC+25, MCRELINC+26, MCRELINC+27, CHKAGINS+4, CHKAGINS+9, CHKAGINS+14 , CHKAGINS+15, CHKAGINS+16, CHKAGINS+18
AGINS(1	MCRELINC+10, MCDCOVMS+10, MCGRTMS+10, PATBENIN+10, PHNAME+29*
>> AGOPT("VERSION"	FINDALL+5
>> AGSELECT	MCRELINC+10, MCDCOVMS+10, MCGRTMS+10, PATBENIN+10, PHNAME+29
ARRAY	FETCHERR~
ARRAY(	FETCHERR+4, FETCHERR+6
>> CASEREC	PATREFBC+12*, PATREFBC+13, PATREFBC+14
CLASS	NONIND+1~, NONIND+3*, NONIND+4, NONIND+5
CLASSNAM	NONIND+1~, NONIND+5*, NONIND+6
>> D0	ISMINOR+8*
DFN	MCRELINC~, MCRELINC+2, MCRELINC+3, MCRELINC+4, MCRELINC+5, MCRELINC+6, MCRELINC+14, MCRELINC+16, MCRELINC+29, MCRELINC+31 , MCRELINC+32, MCRELINC+35, MCDCOVMS~, MCDCOVMS+2, MCDCOVMS+3, MCDCOVMS+4, MCDCOVMS+5, MCDCOVMS+6, MCDCOVMS+14, MCDCOVMS+16 , MCGRTMS~, MCGRTMS+2, MCGRTMS+3, MCGRTMS+4, MCGRTMS+5, MCGRTMS+6, MCGRTMS+14, MCGRTMS+16, PATBENIN~, PATBENIN+2 , PATBENIN+3, PATBENIN+4, PATBENIN+5, PATBENIN+6, PATBENIN+14, PATBENIN+16, SEQMAN+2, SEQMAN+3, SEQMAN+4, SEQMAN+5 , SEQMAN+6, PATREFBC~, PATREFBC+2, PATREFBC+3, PATREFBC+4, PATREFBC+5, PATREFBC+8, PAREMPL~, PAREMPL+1, PAREMPL+3 , PAREMPL+4, PAREMPL+5, PAREMPL+6, PAREMPL+8, PAREMPL+10, PHNAME~, PHNAME+2, PHNAME+6, PHNAME+7, PHNAME+8 , PHNAME+9, PHNAME+33, PHNAME+36, CHKDEATH~, CHKDEATH+1, ISMINOR~, ISMINOR+1, ISMINOR+3, ISMINOR+4, ISMINOR+5 , ISMINOR+6, ISMINOR+8, FINDALL~, FINDALL+6, NONIND~, NONIND+2, NONIND+3
DISPLAY	EDITCHEK~, EDITCHEK+17
>> DPTPTR	GUARADD+13*, GUARADD+14, GUARADD+15
>> DTREF	PATREFBC+13*, PATREFBC+15
ERR	ERRDATA~, ERRDATA+1
ERRCALL	CHECKRTN~, CHECKRTN+1
>> ERRCODE	DISPLAY+8*, DISPLAY+16
>> ERRINFO	DISPLAY+11*, DISPLAY+13
>> ERRMESG	DISPLAY+10, DISPLAY+12, DISPLAY+13, DISPLAY+19
ERRNODE	DISPLAY+1~, DISPLAY+4, DISPLAY+5, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+10, DISPLAY+11
ERRNUM	DISPLAY+1~, DISPLAY+2, DISPLAY+3, DISPLAY+4, DISPLAY+7, FETCHERR+1~, FETCHERR+3, FETCHERR+4, FETCHERR+5, FETCHERR+6
ERROR	CHKAGINS~, CHKAGINS+9, CHKAGINS+14, CHKAGINS+17, OVERRIDE~, OVERRIDE+2, OVERRIDE+3
>> ERRORNUM	EDITCHEK+4, EDITCHEK+5, EDITCHEK+6, EDITCHEK+7, EDITCHEK+8, EDITCHEK+9, EDITCHEK+10, EDITCHEK+11, EDITCHEK+15, EDITCHEK+16
ERRORS	EDITCHEK~, EDITCHEK+17, DISPLAY~
ERRORS(	EDITCHEK+5, EDITCHEK+7, EDITCHEK+15, EDITCHEK+16*, DISPLAY+3, DISPLAY+4
ERRORS("C"	EDITCHEK+15*
ERRTYPE	DISPLAY+1~, DISPLAY+9*, DISPLAY+14, DISPLAY+15, DISPLAY+20
FINDCALL	MCRELINC~, MCRELINC+7, MCRELINC+14, MCRELINC+16, MCRELINC+17, MCDCOVMS~, MCDCOVMS+7, MCDCOVMS+14, MCDCOVMS+16, MCDCOVMS+17 , MCGRTMS~, MCGRTMS+7, MCGRTMS+14, MCGRTMS+16, MCGRTMS+17, PATBENIN~, PATBENIN+7, PATBENIN+14, PATBENIN+16, PATBENIN+17 , PHNAME~, PHNAME+3, PHNAME+33, PHNAME+36, PHNAME+37, FINDALL+3, FINDALL+5, FINDALL+6*, FINDALL+7
FORMAT	MCDCOVMS+19!, MCGRTMS+22!, MCGRTMS+23!, CHKAGINS~, CHKAGINS+15, CHKAGINS+16
GUARINFO	GUARADD~, GUARADD+2, GUARADD+4, GUARADD+13
>> GUARPTR	GUARADD+4, GUARADD+5, GUARADD+6, GUARADD+12, GUARADD+15, GUARADD+16
>> INNAME	MCRELINC+23*, MCRELINC+39
MISSING	MCRELINC+1~, MCRELINC+18, MCRELINC+19, MCRELINC+25, MCRELINC+26, MCRELINC+27, MCRELINC+30, MCRELINC+33, MCRELINC+36, MCRELINC+39 , MCDCOVMS+1~, MCDCOVMS+18, MCDCOVMS+20, MCGRTMS+1~, MCGRTMS+21, MCGRTMS+24, PATBENIN+1~, PATBENIN+18, PATBENIN+19, PATBENIN+21 , PATREFBC+10, PATREFBC+11, PATREFBC+14, PATREFBC+15, PHNAME+1~, PHNAME+4, PHNAME+29, PHNAME+36, PHNAME+39, PHNAME+41 , PHNMCHK+2, PHNMCHK+4, PHNMCHK+5, CHKAGINS+2~, CHKAGINS+3, CHKAGINS+4, CHKAGINS+14, CHKAGINS+15, CHKAGINS+16, CHKAGINS+17* , CHKAGINS+18, CHKAGINS+19, EDITCHEK+15, GUARADD+1~, GUARADD+3, GUARADD+5, GUARADD+7, GUARADD+8, GUARADD+9, GUARADD+10 , GUARADD+11, GUARADD+12, GUARADD+14, GUARADD+17, GUARADD+18, GUARADD+19, GUARADD+20, GUARADD+21*, GUARADD+22
OVERRIDE	OVERRIDE+1~
>> P	CHKAGINS+18*
PAGENUM	FETCHERR~, FETCHERR+2, FETCHERR+6
PIECE	CHKAGINS~, CHKAGINS+15, CHKAGINS+16
>> POLNUM	MCRELINC+24*, MCRELINC+39
RECORD	OVERRIDE~
>> RET	CHKAGINS+18*
RETPIECE	CHKAGINS~, CHKAGINS+1*, CHKAGINS+18
RETURN	OVERRIDE+1~, OVERRIDE+4
SEL	MCRELINC+15, MCDCOVMS+15, MCGRTMS+15, PATBENIN+15, PHNAME+34, FINDALL+1~, FINDALL+2
SEQ	MCRELINC+1~, MCRELINC+18, MCRELINC+19, MCRELINC+21, MCRELINC+23, MCRELINC+24, MCRELINC+25, MCRELINC+26, MCRELINC+27, MCDCOVMS+1~ , MCGRTMS+1~, PATBENIN+1~, PHNAME+1~, CHKAGINS+2~, CHKAGINS+3, CHKAGINS+4, CHKAGINS+9, CHKAGINS+14, CHKAGINS+15, CHKAGINS+16 , CHKAGINS+18
SITE	SEQMAN~
>> SUBREC	PATREFBC+10, PATREFBC+11, PATREFBC+12
TRUE	DISPLAY+1~, DISPLAY+5*, DISPLAY+6
U	MCRELINC+14, MCRELINC+21, MCRELINC+23, MCRELINC+24, MCRELINC+25, MCRELINC+26, MCRELINC+27, MCRELINC+29, MCRELINC+35, MCRELINC+39 , MCDCOVMS+14, MCGRTMS+14, PATBENIN+14, PATREFBC+13, PATREFBC+14, PATREFBC+15, PAREMPL+11, PHNAME+29, PHNAME+33, PHNAME+36 , CHKDEATH+1, ISMINOR+9, FINDALL+6, CHKAGINS+9, CHKAGINS+15, CHKAGINS+16, CHKAGINS+17, CHKAGINS+18, EDITCHEK+6, EDITCHEK+7 , EDITCHEK+9, EDITCHEK+10, DISPLAY+5, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+10, CHECKRTN+1, ERRDATA+1, NONIND+3 , NONIND+5, GUARADD+4, GUARADD+8, GUARADD+9, GUARADD+10, GUARADD+11, GUARADD+13, GUARADD+18, GUARADD+19, GUARADD+20 , GUARADD+21
VAR	EDITCHEK+2, EDITCHEK+3~
VARS	EDITCHEK~
VARS(	EDITCHEK+3
X	MCRELINC+1~, MCRELINC+28~, MCRELINC+29, MCRELINC+30, MCRELINC+32, MCRELINC+33, MCRELINC+34~, MCRELINC+35, MCRELINC+36, MCRELINC+37~ , MCDCOVMS+1~, MCGRTMS+1~, PATBENIN+1~, PATREFBC+7~, PATREFBC+8, PATREFBC+9, PATREFBC+11, PATREFBC+12, PAREMPL+9~, PAREMPL+10* , PAREMPL+11, PHNAME+1~, ISMINOR+10, CHKAGINS+2~, CHKAGINS+16, DISPLAY+1~, DISPLAY+16, DISPLAY+17, DISPLAY+18, CHECKRTN+1 , GUARADD+6, GUARADD+7, GUARADD+8, GUARADD+9, GUARADD+10, GUARADD+11, GUARADD+16, GUARADD+17, GUARADD+18, GUARADD+19 , GUARADD+20, GUARADD+21
>> X1	EDITCHEK+3*
>> Y	PATREFBC+13*

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDERR

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 36

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: