Routine: AGEDERR2

Package	Total	Call Graph
IHS Patient Registration	7	($$CHOM,$$CMIG)^AGED10A $$CLANG^AGED10B ($$DECEASED,$$PTACTIVE)^AGEDERR2 ($$RQETH,$$RQPRF,$$RQPRM,$$RQRACE)^AGEDERR4 $$ISACTIVE^AGINS $$NEEDTOSQ^AGUTILS ($$INSTYP,$$RACE)^AGUTL
VA Fileman	2	^%DTC ($$GET1,GETS)^DIQ
IHS Patient	1	$$AGE^AUPNPAT

Package	Total	Caller Graph
IHS Patient Registration	12	AGAGERP3 AGED42 AGED62 AGED8 AGEDERR AGEDERR1 AGEDERR2 AGEDERR3 AGEDERR4 AGEDGUAR AGEDIT AGEROVR
Patient Registration GUI	2	AGGEXPRT AGGPTUPD

Entry Points

Name	Comments	DBIA/ICR reference
ISDEPEND(DFN)	;EP - IF PATIENT IS LISTED AS A DEPENDENT IN THE POLICY HOLDER
LPREE(DFN)	;EP
ACTELIG(DFN,ELIGSTR)	;EP - DOES THE PATIENT HAVE ACTIVE ELIGIBILITY?
PETHNICE(DFN)	;EP
HIP(DFN)	;EP
PMIG(DFN)	;EP
GUARADD(GUARINFO)	;EP
DECEASED(DFN)	;EP - IS THE PATIENT DECEASED?
LPRE(DFN)	;EP
LPRM(DFN)	;EP
PRACEE(DFN)	;EP
LPRME(DFN)	;EP
OVER65(DFN)	;EP - CHECK TO SEE IF PATIENT IS OVER 65 YEARS OLD
WEB(DFN)	;
ISMCD(INSPTR)	;EP - RETURN TRUE IF MEDICAID INSURER
HASELIG(DFN)	;EP - DOES THE PATIENT HAVE ELIGIBILITY AT ALL
PHOM(DFN)	;EP
CURRUPD(DFN,DAYS)	;EP - HAS THE PATIENT BEEN UPDATED IN THE PAST YEAR
PETHNIC(DFN)	;EP
PRACE(DFN)	;EP
PTACTIVE(DFN)	;EP - SEE IF PATIENT IS ACTIVE IN AT LEAST ONE FACILTY
AOBCHEK(DFN)	;EP - DETERMINE AOB DATE TO CHECK FOR OVERDUE
FACCHK(DFN)	;EP - CALLED BY SEQMAN^AGEDERR TO FIND FAC FOR EDIT CHECK # 33

Name	Field # of Occurrence
^%DTC	CURRUPD+6, WEB+8
$$CHOM^AGED10A	PHOM+10
$$CMIG^AGED10A	PMIG+10
$$CLANG^AGED10B	LPRM+10, LPRME+10, LPRE+11, LPREE+11
$$DECEASED^AGEDERR2	WEB+2, PRACE+7, PRACEE+7, PETHNIC+7, PETHNICE+7, PMIG+4, PHOM+4, LPRM+7, LPRME+7, LPRE+7 , LPREE+7, HIP+4
$$PTACTIVE^AGEDERR2	WEB+3, PRACE+8, PRACEE+8, PETHNIC+8, PETHNICE+8, PMIG+5, PHOM+5, LPRM+8, LPRME+8, LPRE+8 , LPREE+8, HIP+5
$$RQETH^AGEDERR4	PETHNIC+5, PETHNICE+5
$$RQPRF^AGEDERR4	LPRE+5, LPREE+5
$$RQPRM^AGEDERR4	LPRM+5, LPRME+5
$$RQRACE^AGEDERR4	PRACE+5, PRACEE+5
$$ISACTIVE^AGINS	ACTELIG+9, AOBCHEK+11
$$NEEDTOSQ^AGUTILS	FACCHK+5
$$INSTYP^AGUTL	ISMCD+3
$$RACE^AGUTL	PRACE+13, PRACEE+13
$$AGE^AUPNPAT	OVER65+1
$$GET1^DIQ	PETHNIC+11, PETHNIC+12, PETHNICE+11, PETHNICE+12, HIP+8, HIP+10
GETS^DIQ	LPRE+20, LPREE+20

FileNo	Call Tags
2.06	GET1^DIQ
^AUPNPAT - [#9000001]	GET1^DIQ
9000001.86	GETS^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH("C"	ISDEPEND+7
^AUPNMCD("B"	HASELIG+3, HASELIG+5
^AUPNMCR("B"	HASELIG+3, HASELIG+4
^AUPNPAT - [#9000001]	CURRUPD+2, CURRUPD+3, PTACTIVE+3, PTACTIVE+4, FACCHK+4, WEB+4
^AUPNPRVT - [#9000006]	ISDEPEND+6, ISDEPEND+7
^AUPNPRVT("B"	HASELIG+3, HASELIG+7, ISDEPEND+4
^AUPNRRE("B"	HASELIG+3, HASELIG+6
^DPT - [#2]	DECEASED+1, PETHNIC+10, PETHNICE+10

Name	Line Occurrences
$$ACTELIG	HASELIG+8
@(	ACTELIG+5, AOBCHEK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACTIVE	ACTELIG+1~, ACTELIG+2, ACTELIG+3, ACTELIG+6, ACTELIG+8, ACTELIG+9, ACTELIG+10, AOBCHEK+1~, AOBCHEK+2, AOBCHEK+5* , PTACTIVE+1, PTACTIVE+3, PTACTIVE+4, PTACTIVE+5
AGINS	ACTELIG+1~, AOBCHEK+1~
AGINS(	ACTELIG+8, ACTELIG+9, AOBCHEK+8, AOBCHEK+9, AOBCHEK+10
>> AGOPT(22	HIP+7
>> AGOPT(26	PMIG+8
>> AGOPT(27	PHOM+8
ALLMISS	GUARADD+1~, GUARADD+2, GUARADD+8, GUARADD+9*, GUARADD+10
BEGDT	AOBCHEK+1~, AOBCHEK+9*, AOBCHEK+11, AOBCHEK+12
CALL	ACTELIG+1~, ACTELIG+4, ACTELIG+5, AOBCHEK+1~, AOBCHEK+3, AOBCHEK+4
DAYS	CURRUPD~, CURRUPD+7
DEF	LPRE+1~, LPRE+11, LPRE+12, LPRE+16, LPRE+17, LPREE+1~, LPREE+11, LPREE+12, LPREE+16, LPREE+17
DFN	HASELIG~, HASELIG+3, HASELIG+4, HASELIG+5, HASELIG+6, HASELIG+7, HASELIG+8, ACTELIG~, ACTELIG+4, AOBCHEK~ , AOBCHEK+3, ISDEPEND~, ISDEPEND+4, ISDEPEND+6, ISDEPEND+7, CURRUPD~, CURRUPD+2, CURRUPD+3, OVER65~, OVER65+1 , DECEASED~, DECEASED+1, PTACTIVE~, PTACTIVE+3, PTACTIVE+4, FACCHK~, FACCHK+4, FACCHK+5, WEB~, WEB+1 , WEB+2, WEB+3, WEB+4, PRACE~, PRACE+2, PRACE+7, PRACE+8, PRACE+13, PRACEE~, PRACEE+2 , PRACEE+7, PRACEE+8, PRACEE+13, PETHNIC~, PETHNIC+2, PETHNIC+7, PETHNIC+8, PETHNIC+10, PETHNIC+11, PETHNIC+12 , PETHNICE~, PETHNICE+2, PETHNICE+7, PETHNICE+8, PETHNICE+10, PETHNICE+11, PETHNICE+12, PMIG~, PMIG+2, PMIG+4 , PMIG+5, PMIG+10, PHOM~, PHOM+2, PHOM+4, PHOM+5, PHOM+10, LPRM~, LPRM+2, LPRM+7 , LPRM+8, LPRM+10, LPRME~, LPRME+2, LPRME+7, LPRME+8, LPRME+10, LPRE~, LPRE+2, LPRE+7 , LPRE+8, LPRE+11, LPRE+20, LPREE~, LPREE+2, LPREE+7, LPREE+8, LPREE+11, LPREE+20, HIP~ , HIP+2, HIP+4, HIP+5, HIP+8, HIP+10
DT	CURRUPD+4, CURRUPD+5, WEB+7
DUZ(2	PRACE+5, PRACEE+5, PETHNIC+5, PETHNICE+5, LPRM+5, LPRME+5, LPRE+5, LPREE+5
ELIGSTR	ACTELIG~, ACTELIG+3
ENDDT	AOBCHEK+1~, AOBCHEK+10*, AOBCHEK+11, AOBCHEK+13
ERROR	LPRE+1~, LPREE+1~
ETHNIC	PETHNIC+1~, PETHNIC+10, PETHNIC+11, PETHNIC+12, PETHNIC+13, PETHNICE+1~, PETHNICE+10, PETHNICE+11, PETHNICE+12, PETHNICE+13
FAC	PTACTIVE+2, PTACTIVE+3, PTACTIVE+4, FACCHK+1~, FACCHK+3, FACCHK+4, FACCHK+5
FND	LPRE+1~, LPRE+21, LPRE+23, LPRE+24, LPREE+1~, LPREE+21, LPREE+23, LPREE+24
GUARINFO	GUARADD~, GUARADD+3, GUARADD+4
>> GUARPTR	GUARADD+4*, GUARADD+5, GUARADD+6, GUARADD+7
HIC	HIP+1~, HIP+8*, HIP+9
HIP	HIP+1~, HIP+10*, HIP+11
HOM	PHOM+1~, PHOM+10*, PHOM+11, PHOM+15
HSTS	PHOM+1~, PHOM+11*, PHOM+12, PHOM+13, PHOM+16
HTYP	PHOM+1~, PHOM+15*, PHOM+16
IEN	LPRE+1~, LPRE+16, LPRE+20, LPRE+21, LPRE+22, LPREE+1~, LPREE+16, LPREE+20, LPREE+21, LPREE+22
INSPTR	ISMCD~, ISMCD+1, ISMCD+3
ISDEPEND	ISDEPEND+2~, ISDEPEND+3, ISDEPEND+6, ISDEPEND+7, ISDEPEND+8
LNG	LPRM+1~, LPRM+11, LPRM+12, LPRM+13, LPRM+14, LPRME+1~, LPRME+11, LPRME+12, LPRME+13, LPRME+14 , LPRE+1~, LPRE+22, LPRE+23, LPREE+1~, LPREE+22, LPREE+23
>> LSTUPD	WEB+4*, WEB+5, WEB+6
MIG	PMIG+1~, PMIG+10*, PMIG+11, PMIG+15
MOC	PETHNIC+1~, PETHNIC+11, PETHNICE+1~, PETHNICE+11
MSTREEDT	AOBCHEK+1~, AOBCHEK+6, AOBCHEK+13
MSTRESDT	AOBCHEK+1~, AOBCHEK+6, AOBCHEK+12, AOBCHEK+14
MSTS	PMIG+1~, PMIG+11*, PMIG+12, PMIG+13, PMIG+16
MTYP	PMIG+1~, PMIG+15*, PMIG+16
OLNG	LPRE+1~, LPREE+1~
OLNG("9000001.8605"	LPRE+21, LPRE+22, LPREE+21, LPREE+22
PIECE	ACTELIG+1~, ACTELIG+3*
PRE	LPRE+1~, LPRE+12, LPRE+13, LPRE+18, LPRE+23, LPREE+1~, LPREE+12, LPREE+13, LPREE+18, LPREE+23
PRMX	LPRE+1~, LPRE+17, LPRE+18, LPREE+1~, LPREE+17, LPREE+18
>> REC	ISDEPEND+5, ISDEPEND+6, ISDEPEND+7
SEL	ACTELIG+1~, ACTELIG+2, AOBCHEK+1~, AOBCHEK+2
SEQ	ACTELIG+1~, ACTELIG+7, ACTELIG+8, ACTELIG+9, AOBCHEK+1~, AOBCHEK+7, AOBCHEK+8, AOBCHEK+9, AOBCHEK+10
>> SEQREQ	FACCHK+2, FACCHK+4, FACCHK+5, FACCHK+6
TARDT	AOBCHEK+1~, AOBCHEK+14*, AOBCHEK+15
>> TYPE	ACTELIG+3*, ACTELIG+4
U	HASELIG+2, HASELIG+4, HASELIG+5, HASELIG+6, HASELIG+7, HASELIG+8, ACTELIG+3, ACTELIG+4, ACTELIG+9, AOBCHEK+9 , AOBCHEK+10, ISDEPEND+7, CURRUPD+2, CURRUPD+3, DECEASED+1, PTACTIVE+4, GUARADD+4, GUARADD+9, PMIG+11, PMIG+15 , PHOM+11, PHOM+15, LPRM+11, LPRM+13, LPRM+14, LPRME+11, LPRME+13, LPRME+14, LPRE+12, LPRE+16 , LPRE+17, LPREE+12, LPREE+16, LPREE+17
VAL	LPRM+1~, LPRM+10, LPRM+11, LPRM+13, LPRM+14, LPRME+1~, LPRME+10, LPRME+11, LPRME+13, LPRME+14
X	HASELIG+1~, HASELIG+2, HASELIG+4, HASELIG+5, HASELIG+6, HASELIG+7, HASELIG+8, CURRUPD+1~, CURRUPD+7, GUARADD+7 , GUARADD+8, GUARADD+9, WEB+9
X1	CURRUPD+1~, CURRUPD+5, WEB+7
X2	CURRUPD+1~, CURRUPD+2, CURRUPD+3, CURRUPD+4, WEB+6

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDERR2

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 14

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: