Routine: AGELA

Package	Total	Call Graph
IHS Patient Registration	5	(EDITCHEK,FETCHERR)^AGEDERR ^AGELE2X2 (PROGVIEW,VERIF)^AGUTILS $$INSTYP^AGUTL $$S^AGVDF
Kernel	2	HOME^%ZIS $$FMTE^XLFDT
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Patient Registration	2	AGEL0 AGTMPMRG

Entry Points

Name	Comments	DBIA/ICR reference
HDR
MEM
E1	;
DT	;
XIT	;
DATA
PHADD	;
E0	;
E2	;

External References

Name	Field # of Occurrence
HOME^%ZIS	AGELA+17
EDITCHEK^AGEDERR	MEM+12
FETCHERR^AGEDERR	MEM+10
^AGELE2X2	AGELA+13
PROGVIEW^AGUTILS	HDR+3
VERIF^AGUTILS	MEM+14
$$INSTYP^AGUTL	DATA+57, MEM+4
$$S^AGVDF	HDR
$$GET1^DIQ	DATA+28, DATA+31, DATA+33
$$FMTE^XLFDT	DT+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: HDR+0
Function Call: WRITE	Prompt: ! Line Location: HDR+4
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+5
Function Call: WRITE	Prompt: ?33,"Private Insurance" Line Location: HDR+6
Function Call: WRITE	Prompt: ?80-$L($P(^DIC(4,DUZ(2),0),U)),$P(^DIC(4,DUZ(2),0),U) Line Location: HDR+7
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+10
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+11
Function Call: WRITE	Prompt: !,$E($P($G(^DPT(DFN,0)),U),1,23) Line Location: HDR+12
Function Call: WRITE	Prompt: ?23,AGUPDT Line Location: HDR+13
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+14
Function Call: WRITE	Prompt: ?42,"HRN#:",$P($G(^AUPNPAT(DFN,41,DUZ(2),0)),U,2) Line Location: HDR+15
Function Call: WRITE	Prompt: ?56,"(",$S(AGELSTS="C":"CHS & DIRECT",AGELSTS="I":"INELIGIBLE",AGELSTS="D":"DIRECT ONLY",AGELSTS="P":"PENDING VERIFICATION",1:"NONE"),")" Line Location: HDR+17
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+18
Function Call: WRITE	Prompt: !,"1) Policy Holder.: ",$E($P(^AUPN3PPH(AGELP("PH"),0),U),1,20) Line Location: DATA+0
Function Call: WRITE	Prompt: " [NOT REG]" Line Location: DATA+2
Function Call: WRITE	Prompt: ?50,"\|5) Gender: " Line Location: DATA+6
Function Call: WRITE	Prompt: $S($P(AGV("X2"),U,6)="M":"MALE",$P(AGV("X2"),U,6)="F":"FEMALE",$P(AGV("X2"),U,6)="U":"UNKNOWN",1:"") Line Location: DATA+7
Function Call: WRITE	Prompt: !,"2) Policy or SSN.: ",$P(^AUPN3PPH(AGELP("PH"),0),U,4) Line Location: DATA+9
Function Call: WRITE	Prompt: ?50,"\|6) Date of Birth: " Line Location: DATA+10
Function Call: WRITE	Prompt: AGEL("DT") Line Location: DATA+13
Function Call: WRITE	Prompt: !,"3) Effective Date: " Line Location: DATA+14
Function Call: WRITE	Prompt: AGEL("DT") Line Location: DATA+17
Function Call: WRITE	Prompt: ?50,"\|7) Prim care Prov: " Line Location: DATA+18
Function Call: WRITE	Prompt: $P($G(@PRVTNODE),U,14) Line Location: DATA+22
Function Call: WRITE	Prompt: !,"4) Expire Date...: " Line Location: DATA+24
Function Call: WRITE	Prompt: AGEL("DT") Line Location: DATA+27
Function Call: WRITE	Prompt: ?55,$$GET1^DIQ(9000006.11,$G(AGELP("INS"))_","_DFN_",",.14) Line Location: DATA+28
Function Call: WRITE	Prompt: !,"-HOLDER'S EMPLOYER INFO---------------------------------------------------------" Line Location: DATA+29
Function Call: WRITE	Prompt: !,"8) Status........: " Line Location: DATA+30
Function Call: WRITE	Prompt: $$GET1^DIQ(9000003.1,AGELP("PH"),.15) Line Location: DATA+31
Function Call: WRITE	Prompt: ?40,"\| 9) Employer: " Line Location: DATA+32
Function Call: WRITE	Prompt: $$GET1^DIQ(9000003.1,AGELP("PH"),.16) Line Location: DATA+33
Function Call: WRITE	Prompt: !,"-INSURER INFORMATION-----------------------------------------------------------" Line Location: DATA+34
Function Call: WRITE	Prompt: !,$P(AGINS,U) Line Location: DATA+37
Function Call: WRITE	Prompt: ?40,"\|10) Grp Name: " Line Location: DATA+38
Function Call: WRITE	Prompt: $E($P(^(0),U),1,17) Line Location: DATA+41
Function Call: WRITE	Prompt: !?2,$P(AGINS,U,2) Line Location: DATA+43
Function Call: WRITE	Prompt: ?40,"\| Grp Number: " Line Location: DATA+44
Function Call: WRITE	Prompt: !?2,$P(AGINS,U,3)_", " Line Location: DATA+47
Function Call: WRITE	Prompt: $P($G(^DIC(5,$P(AGINS,U,4),0)),U,2)_" " Line Location: DATA+49
Function Call: WRITE	Prompt: " " Line Location: DATA+50
Function Call: WRITE	Prompt: $P(AGINS,U,5) Line Location: DATA+51
Function Call: WRITE	Prompt: ?40,"\|11) Coverage: " Line Location: DATA+52
Function Call: WRITE	Prompt: $E($P(^(0),U),1,17) Line Location: DATA+53
Function Call: WRITE	Prompt: !?2,$P(AGINS,U,6) Line Location: DATA+54
Function Call: WRITE	Prompt: ?23,"Ins. Type: " Line Location: DATA+55
Function Call: WRITE	Prompt: ?40,"\|12) CCopy: " Line Location: DATA+60
Function Call: WRITE	Prompt: $P(AGPRVIN0,U,15) Line Location: DATA+61
Function Call: WRITE	Prompt: !,"----Policy Members----PC-----Member #------HRN-----" Line Location: MEM+0
Function Call: WRITE	Prompt: "Rel----------From/Thru-------" Line Location: MEM+1
Function Call: WRITE	Prompt: ! Line Location: MEM+7
Function Call: WRITE	Prompt: "=" Line Location: MEM+8
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: MEM+13
Function Call: WRITE	Prompt: !,$G(AGLINE("EQ")) Line Location: MEM+15
Routine Call	%ZIS Line Location: AGELA+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPN3PPH - [#9000003.1]	GET1^DIQ
9000006.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPN3PPH - [#9000003.1]	AGELA+7, AGELA+8, AGELA+9, AGELA+10*, AGELA+11, AGELA+15, AGELA+16, DATA, DATA+9, DATA+15 , DATA+25, DATA+39, DATA+40, DATA+53
^AUPNPAT - [#9000001]	HDR+15, HDR+16
^AUPNPRVT - [#9000006]	DATA+59, DATA+62
^AUTNEGRP - [#9999999.77]	DATA+41, DATA+45, DATA+46
^AUTNINS - [#9999999.18]	DATA+36
^AUTTPIC - [#9999999.65]	DATA+53
^DIC(4 - [#4]	HDR+7
^DIC(5 - [#5]	DATA+49
^DPT - [#2]	HDR+12, DATA+1

Label References

Name	Line Occurrences
@(	MEM+5
DT	DATA+12, DATA+16, DATA+26, DATA+65

Naked Globals

Name	Field # of Occurrence
^(0	AGELA+15, AGELA+16, DATA, DATA+41, DATA+53

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AG("ED"	HDR+19!
>> AG("PG"	HDR+1*, MEM+10
>> AGCHRT	HDR+14
AGDTS	HDR+19!
AGE	AGELA+14!
>> AGEL("DIC"	MEM+4*, MEM+5
>> AGEL("DT"	DATA+11, DATA+13, DATA+15, DATA+17, DATA+25, DATA+27, DATA+64, DATA+66, DT+1*
>> AGEL("EGRP"	DATA+40*, DATA+41, DATA+42!, DATA+45, DATA+46
>> AGEL("I"	MEM+6
>> AGEL("IN"	DATA+58*, DATA+59, DATA+62
>> AGEL("P"	DATA, DATA+1, DATA+2
>> AGELP("EMPL"	AGELA+16*
>> AGELP("FLDS"	MEM+6*
>> AGELP("INS"	AGELA+10, DATA+28, DATA+36, DATA+57, DATA+58, MEM+2, MEM+4
>> AGELP("PH"	AGELA+6, AGELA+7, AGELA+8, AGELA+9, AGELA+10, AGELA+11, AGELA+15, AGELA+16, DATA, DATA+9 , DATA+15, DATA+25, DATA+31, DATA+33, DATA+39, DATA+40, DATA+53
>> AGELP("PHPAT"	AGELA+15*
>> AGELP("PI"	AGELA+9
>> AGELSTS	HDR+16*, HDR+17
AGINS	DATA+35~, DATA+36*, DATA+37, DATA+43, DATA+47, DATA+48, DATA+49, DATA+51, DATA+54
>> AGLINE("-"	HDR+8*, MEM+13
>> AGLINE("EQ"	HDR+9*, HDR+10, HDR+18, MEM+15
>> AGPAT	HDR+11
>> AGPRVIN0	DATA+59*, DATA+61, DATA+64
>> AGREC	DATA+21
>> AGSEENLY	HDR+5
>> AGSELECT	DATA+20, MEM+11
>> AGUPDT	HDR+13
>> AGV("X2"	AGELA+11*, DATA+7, DATA+11
>> AGV("X3"	AGELA+12*
>> DFN	HDR+12, HDR+15, HDR+16, DATA+21, DATA+28, DATA+59, DATA+62, MEM+11
DIE	HDR+19!
DR	HDR+19!
DUZ	HDR+3
DUZ(2	HDR+7, HDR+15, MEM+11
IOF	AGELA+17
>> J	MEM+8*
MYERRS	MEM+9!, MEM+10, MEM+12
MYVARS	MEM+9!, MEM+12
MYVARS("DFN"	MEM+11*
MYVARS("FINDCALL"	MEM+11*
MYVARS("SELECTION"	MEM+11*
MYVARS("SITE"	MEM+11*
PRVTNODE	DATA+19!, DATA+20, DATA+21, DATA+22, DATA+23!
ROUTID	HDR+2*, XIT+1!
U	AGELA+8, AGELA+9, AGELA+10, AGELA+11, AGELA+15, AGELA+16, HDR+7, HDR+12, HDR+15, HDR+16 , DATA, DATA+7, DATA+9, DATA+11, DATA+15, DATA+20, DATA+22, DATA+25, DATA+37, DATA+39 , DATA+40, DATA+41, DATA+43, DATA+46, DATA+47, DATA+48, DATA+49, DATA+51, DATA+53, DATA+54 , DATA+61, DATA+62, DATA+64

Marked Items

Name	Field # of Occurrence
$T(	HDR+2

Customize PDF page

Package: IHS Patient Registration

Routine: AGELA

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items