Routine: AGEDGUAR

Package	Total	Call Graph
IHS Patient Registration	9	^AGBAN (,UPDATE1)^AGED READ^AGED1 (EDITCHEK,FETCHERR)^AGEDERR $$GUARADD^AGEDERR2 GETDATES^AGEDGUA1 $$ISREQ^AGFLDREQ ^AGTMINS ($$ISNONIND,$$UPDTSEL,VERIF)^AGUTILS
VA Fileman	5	^DIC ^DIE ^DIK $$GET1^DIQ ^DIR
IHS Patient	1	$$AGE^AUPNPAT

Package	Total	Caller Graph
IHS Patient Registration	3	AG2A AGED4A AGED4A01

Entry Points

Name	Comments	DBIA/ICR reference
NEWEFFDT	;
EDITEFF	;EFF DT
EDITDEP	;EP - EDIT RELATIONSHIP FLD OF DEP
CLEANZER(GD0)	;EP
EDITREF	;REF #
GETAW	;
NEWENTRY	;EP - CREATE TOP LEVEL
EDITSEX	;GENDER
EDITADD	;EP
EDITGUAR	;GUAR NAME
1	;
ADDINS	;EP - ADD INSURER TO AUTNINS
DRAW	;EP
CLEAN(GD0)	;EP - DEL EMPTY REC
END
EDITEXP	;EXP DT
EN(GD0,GD1,GD2,NEWENTRY,AGSELECT,ALLFLDRQ)	;EP -
NEWGUAR	;
VAR
SAME(X)	;EP
WMSG	;EP - MSG TO DISP IF NO ENTRY IN FILE
EDITDOB	;DOB
ALLFLDRQ(ARRAY)	;EP - ARE ALL FLDS ENTERED
FINDDEP	;EP - FIND DEPS
EDITPO	;PO #
GETVDIC(VROOT)	;EP - PROCESS VAR PTR FLD

External References

Name	Field # of Occurrence
^AGBAN	ADDINS+1
^AGED	DRAW+3
UPDATE1^AGED	VAR+28
READ^AGED1	VAR+15
EDITCHEK^AGEDERR	GETAW+56
FETCHERR^AGEDERR	GETAW+54
$$GUARADD^AGEDERR2	EDITADD+3
GETDATES^AGEDGUA1	GETAW+36
$$ISREQ^AGFLDREQ	EDITGUAR+8, EDITREF+7, EDITDOB+7, EDITSEX+7, EDITDEP+8
^AGTMINS	ADDINS+1
$$ISNONIND^AGUTILS	EN+2
$$UPDTSEL^AGUTILS	EN+18, VAR+27
VERIF^AGUTILS	GETAW+58
$$AGE^AUPNPAT	FINDDEP+13
^DIC	NEWENTRY+7, NEWGUAR+17, SAME+11, NEWEFFDT+8
^DIE	SAME+22, EDITGUAR+9, EDITREF+8, EDITPO+7, EDITDOB+8, EDITSEX+8, EDITEFF+9, EDITEXP+9, EDITADD+12, EDITDEP+9
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+44
^DIR	VAR+1, VAR+6, NEWGUAR+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry not made." Line Location: EN+6
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+2
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!" Line Location: VAR+8
Function Call: WRITE	Prompt: !,"PATIENT IS NON-INDIAN AND MUST HAVE ALL GUARANTOR DATA ENTERED!!" Line Location: VAR+10
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: VAR+16
Function Call: WRITE	Prompt: !,"PATIENT IS NON-INDIAN AND MUST HAVE ALL GUARANTOR DATA ENTERED!!" Line Location: VAR+18
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+21
Function Call: WRITE	Prompt: !,CAPTION Line Location: GETAW+7
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+19
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+20
Function Call: WRITE	Prompt: ?0,ITEMNUM_". STREET: " Line Location: GETAW+40
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+57
Function Call: WRITE	Prompt: !,"You must first enter a GUARANTOR" Line Location: WMSG+1
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
Function Call: WRITE	Prompt: !,"PATIENT IS NON-INDIAN AND MUST HAVE ALL GUARANTOR DATA ENTERED!!" Line Location: NEWGUAR+22
Function Call: WRITE	Prompt: !,"PATIENT IS NON-INDIAN AND MUST HAVE ALL GUARANTOR DATA ENTERED!!" Line Location: NEWEFFDT+11
Function Call: WRITE	Prompt: !,"ADDRESS MUST BE EDITED IN TABLE MAINTENANCE!!" Line Location: EDITADD+4
Function Call: WRITE	Prompt: !,AG("FLDCNT"),". ",?4,$P($G(^DPT(AG("DEP"),0)),U) Line Location: FINDDEP+9
Function Call: WRITE	Prompt: ?30,$P($G(^AUPNPAT(AG("DEP"),41,DUZ(2),0)),U,2) Line Location: FINDDEP+10
Function Call: WRITE	Prompt: ?47,$P($G(^AUTTRLSH($P($G(^AUPNGUAR(AG("DEP"),1,GD1,0)),U,6),0)),U) Line Location: FINDDEP+12
Function Call: WRITE	Prompt: ?67,$$AGE^AUPNPAT(AG("DEP")) Line Location: FINDDEP+13
Routine Call	DIE Line Location: SAME+22 EDITGUAR+9 EDITREF+8 EDITPO+7 EDITDOB+8 EDITSEX+8 EDITEFF+9 EDITEXP+9 EDITADD+12 EDITDEP+9
Routine Call	DIC Line Location: NEWENTRY+7 NEWGUAR+17 SAME+11 NEWEFFDT+8
Routine Call	DIR Line Location: VAR+1 VAR+6 NEWGUAR+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNGUAR - [#9000043]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNGUAR - [#9000043]	VAR+7, CLEAN+1, GETAW+30, GETAW+31, EDITADD+6, FINDDEP+2, FINDDEP+11, FINDDEP+12
^AUPNGUAR("C"	FINDDEP+3, FINDDEP+5
^AUPNPAT - [#9000001]	FINDDEP+10
^AUTTRLSH - [#9999999.36]	FINDDEP+12
^DD(	GETAW+22, GETAW+23
^DPT - [#2]	SAME+10, SAME+15, SAME+16, FINDDEP+9
^XUSEC("AGZMGR"	VAR+4, VAR+5

Label References

Name	Line Occurrences
$$ALLFLDRQ	VAR+10, VAR+18
$$GETVDIC	GETAW+30
@(	VAR+23
ADDINS	VAR+12
CLEAN	VAR+7
CLEANZER	EN+6, CLEAN+2
DRAW	EN+8, VAR
EDITDEP	EN+15
EDITDOB	EN+11
EDITEFF	NEWEFFDT+13
EDITEXP	NEWEFFDT+12, EDITEFF+12
EDITPO	EN+12
EDITSEX	EN+13
END	EN+6, VAR+7, VAR+19
FINDDEP	GETAW+52
GETAW	DRAW+4
NEWEFFDT	EN+14, NEWEFFDT+11
NEWENTRY	EN+9
NEWGUAR	EN+10, NEWGUAR+22
SAME	NEWGUAR+9
VAR	VAR+8, VAR+10, VAR+12, VAR+16, VAR+18, VAR+19, VAR+21, VAR+30
WMSG	EN+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADA	END!
ADFN	END!
ADT	END!
>> AG	GETAW+3*
>> AG("C"	VAR+23, GETAW+2!, GETAW+18, GETAW+40, FINDDEP+8*
>> AG("DEP"	FINDDEP+1, FINDDEP+3, FINDDEP+5, FINDDEP+6, FINDDEP+7, FINDDEP+9, FINDDEP+10, FINDDEP+11, FINDDEP+12, FINDDEP+13 , FINDDEP+14!
>> AG("ERR"	VAR+19
>> AG("FLDCNT"	GETAW+50, FINDDEP+6, FINDDEP+7, FINDDEP+8, FINDDEP+9, FINDDEP+15
>> AG("GUAR"	FINDDEP+2*, FINDDEP+3, FINDDEP+5, FINDDEP+14!
>> AG("N"	VAR+14, VAR+21, VAR+23, GETAW+40, GETAW+49, FINDDEP+15
>> AG("PG"	DRAW+1*, GETAW+54
>> AG("PREC"	FINDDEP+4, FINDDEP+5, FINDDEP+6, FINDDEP+7, FINDDEP+14!
>> AG("SEL"	VAR+23*
>> AG("TMPDEP"	GETAW+51!, FINDDEP+6*, FINDDEP+15
AGI	VAR+23*, VAR+29!
>> AGINS	EN+18, VAR+27
>> AGLINE("-"	GETAW+57
>> AGLINE("EQ"	VAR+2
>> AGOPT("ESCAPE"	VAR+9, VAR+16, VAR+17, VAR+18
AGSCRN	END!, GETAW+3, GETAW+4*, GETAW+5, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12 , GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17
>> AGSEENLY	VAR+1
AGSELECT	EN~, EN+3, EN+18, VAR+27, GETAW+55, EDITADD+3
AGY	VAR+22*, VAR+23, VAR+29!, NEWEFFDT+6, EDITDEP+4
ALLFLDRQ	EN~, EN+2*, VAR+8, VAR+10, VAR+18, NEWGUAR+22, NEWGUAR+26, NEWEFFDT+11, EDITGUAR+7, EDITGUAR+10 , EDITREF+6, EDITREF+9, EDITPO+5, EDITPO+8, EDITDOB+6, EDITDOB+9, EDITSEX+6, EDITEFF+6, EDITEXP+7, EDITDEP+7
>> ALLOW	EDITADD+3*, EDITADD+4
ARRAY	ALLFLDRQ~
ARRAY(	ALLFLDRQ+3, ALLFLDRQ+4*, ALLFLDRQ+5
>> CAPDENT	GETAW+11*, GETAW+22, GETAW+23
>> CAPTION	GETAW+6*, GETAW+7, GETAW+22, GETAW+23, GETAW+40
COMPIEN	EN+16, EN+18, EN+20, VAR+27, END+1!
>> D0	GETAW+26, GETAW+27, GETAW+28, GETAW+31, GETAW+44, GETAW+45*
DA	CLEANZER+1!, CLEANZER+2, END!, NEWENTRY+2!, NEWGUAR+10!, SAME+17!, SAME+19, NEWEFFDT+1!, EDITGUAR+1!, EDITGUAR+4* , EDITGUAR+11, EDITGUAR+12!, EDITREF+1!, EDITREF+3, EDITREF+10!, EDITPO+1!, EDITPO+3, EDITPO+9!, EDITDOB+1!, EDITDOB+3* , EDITDOB+10!, EDITSEX+1!, EDITSEX+3, EDITSEX+9!, EDITEFF+1!, EDITEFF+2, EDITEFF+10, EDITEFF+11!, EDITEXP+1!, EDITEXP+2* , EDITEXP+10!, EDITADD+1!, EDITADD+7, EDITDEP+1!, EDITDEP+3, EDITDEP+4*, EDITDEP+10!
DA(1	NEWGUAR+12, NEWGUAR+14, SAME+5, SAME+6, SAME+18, SAME+20, NEWEFFDT+3, NEWEFFDT+4, EDITGUAR+3, EDITGUAR+5 , EDITREF+2, EDITREF+4, EDITPO+2, EDITPO+4, EDITDOB+2, EDITDOB+4, EDITSEX+2, EDITSEX+4, EDITEFF+3, EDITEFF+5 , EDITEXP+3, EDITEXP+5, EDITDEP+2, EDITDEP+4*, EDITDEP+5
DA(2	NEWEFFDT+2, NEWEFFDT+4, EDITEFF+4, EDITEFF+5, EDITEXP+4*, EDITEXP+5
DD	NEWENTRY+6!, NEWGUAR+16!, SAME+8!, SAME+17!, NEWEFFDT+7!, EDITGUAR+1!, EDITREF+1!, EDITPO+1!, EDITDOB+1!, EDITSEX+1! , EDITEFF+1!, EDITEXP+1!, EDITADD+1!, EDITDEP+1!
DEFDEPEN	GETAW+1!
DEFDEPEN(	FINDDEP+7*, EDITDEP+4
DEFEDDT	END+1!
DEFEFFDT	END+1!, GETAW+1!
DEFEFFDT(	NEWEFFDT+6
>> DFN	EN+2, VAR+28, GETAW+55, NEWENTRY+5, NEWGUAR+9, NEWGUAR+11, NEWGUAR+18, SAME+13, SAME+15, SAME+16
DFOUT	VAR+20, END!
DIC	END!, GETAW+8, GETAW+22, GETAW+23, GETAW+27, GETAW+29, GETAW+30, GETAW+32, GETAW+33, GETAW+34* , GETAW+36, GETAW+41, GETAW+42, GETAW+44, GETAW+48, NEWENTRY+2!, NEWENTRY+3, NEWGUAR+10!, NEWGUAR+14, SAME+6* , SAME+17!, NEWEFFDT+1!, NEWEFFDT+4*, EDITGUAR+1!, EDITGUAR+12!, EDITREF+1!, EDITREF+10!, EDITPO+1!, EDITPO+9!, EDITDOB+1! , EDITDOB+10!, EDITSEX+1!, EDITSEX+9!, EDITEFF+1!, EDITEFF+11!, EDITEXP+1!, EDITEXP+10!, EDITADD+1!, EDITDEP+1!, EDITDEP+10!
DIC("B"	NEWEFFDT+6*
DIC("S"	NEWGUAR+13*
DIC("V"	SAME+4*
DIC(0	NEWENTRY+4, NEWGUAR+15, SAME+7, NEWEFFDT+5
DIE	NEWENTRY+2!, NEWGUAR+10!, SAME+17!, SAME+20, NEWEFFDT+1!, EDITGUAR+1!, EDITGUAR+5, EDITGUAR+12!, EDITREF+1!, EDITREF+4* , EDITREF+10!, EDITPO+1!, EDITPO+4, EDITPO+9!, EDITDOB+1!, EDITDOB+4, EDITDOB+10!, EDITSEX+1!, EDITSEX+4, EDITSEX+9! , EDITEFF+1!, EDITEFF+5, EDITEFF+11!, EDITEXP+1!, EDITEXP+5, EDITEXP+10!, EDITADD+1!, EDITADD+6, EDITADD+7, EDITADD+8* , EDITADD+9, EDITADD+10, EDITDEP+1!, EDITDEP+5, EDITDEP+10!
DIE("NO^"	EDITGUAR+7, EDITGUAR+8, EDITREF+6, EDITREF+7, EDITPO+5, EDITDOB+6, EDITDOB+7, EDITSEX+6, EDITSEX+7, EDITEFF+6 , EDITEXP+7, EDITDEP+7, EDITDEP+8*
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+1!, VAR+3!, VAR+13!, NEWGUAR+1!, NEWGUAR+10!, EDITGUAR+1!
DIR("A"	VAR+1, VAR+4, VAR+14, NEWGUAR+3
DIR("B"	NEWGUAR+2*
DIR(0	VAR+1, VAR+5, NEWGUAR+4*
>> DIROUT	VAR+11, NEWGUAR+6
DLOUT	VAR+19, END!
DO	NEWENTRY+6!, NEWGUAR+16!, SAME+8!, SAME+17!, NEWEFFDT+7!, EDITGUAR+1!, EDITREF+1!, EDITPO+1!, EDITDOB+1!, EDITSEX+1! , EDITEFF+1!, EDITEXP+1!, EDITADD+1!, EDITDEP+1!
DQOUT	VAR+21, END!
DR	END!, GETAW+9, GETAW+22, GETAW+23, GETAW+32, GETAW+33, GETAW+34, GETAW+38, GETAW+39, GETAW+41 , GETAW+42, GETAW+44, NEWENTRY+2!, NEWGUAR+10!, SAME+17!, SAME+21, NEWEFFDT+1!, EDITGUAR+1!, EDITGUAR+6, EDITGUAR+7 , EDITGUAR+8, EDITGUAR+12!, EDITREF+1!, EDITREF+5, EDITREF+6, EDITREF+7, EDITREF+10!, EDITPO+1!, EDITPO+5, EDITPO+6 , EDITPO+9!, EDITDOB+1!, EDITDOB+5, EDITDOB+6, EDITDOB+7, EDITDOB+10!, EDITSEX+1!, EDITSEX+5, EDITSEX+6, EDITSEX+7 , EDITSEX+9!, EDITEFF+1!, EDITEFF+8, EDITEFF+11!, EDITEXP+1!, EDITEXP+6, EDITEXP+10!, EDITADD+1!, EDITADD+10, EDITADD+11 , EDITDEP+1!, EDITDEP+6, EDITDEP+7, EDITDEP+8*, EDITDEP+10!
DR(3	EDITEFF+6, EDITEFF+7, EDITEXP+7, EDITEXP+8
DTOUT	VAR+11, VAR+20, END!, NEWGUAR+6
>> DUOUT	VAR+11, VAR+19, NEWGUAR+6
DUZ	VAR+4, VAR+5
DUZ(2	VAR+28, GETAW+55, FINDDEP+10
>> ENTRY	GETAW+44*
ENTRYARY	VAR+10, VAR+18, END+1!
ENTRYARY(	GETAW+44*
ENTRYARY(1	NEWGUAR+26, EDITGUAR+10
ENTRYARY(2	EDITREF+9*
ENTRYARY(3	EDITPO+8*
ENTRYARY(4	EDITDOB+9*
>> EXECUTE	GETAW+14*, GETAW+44, GETAW+45
>> EXIT	EN+5, EN+6, EN+9, EN+10, EN+14, NEWENTRY+8, NEWGUAR+6, NEWGUAR+20, SAME+12, NEWEFFDT+9
>> FLAG	GETAW+25*, GETAW+44
GD0	EN~, EN+6, EN+16, EN+18, EN+20, VAR+7, VAR+27, CLEAN~, CLEAN+1, CLEAN+2 , CLEANZER~, CLEANZER+2, GETAW+26, GETAW+30, GETAW+31, GETAW+36, NEWENTRY+9*, NEWGUAR+12, SAME+5, SAME+18 , NEWEFFDT+2, EDITGUAR+3, EDITREF+2, EDITPO+2, EDITDOB+2, EDITSEX+2, EDITEFF+4, EDITEXP+4, EDITADD+6, FINDDEP+2 , EDITDEP+2
GD1	EN~, EN+16, EN+20, VAR+7, CLEAN+1, GETAW+28, GETAW+30, GETAW+31, GETAW+36, NEWGUAR+21* , SAME+14*, SAME+19, NEWEFFDT+3, EDITGUAR+4, EDITREF+3, EDITPO+3, EDITDOB+3, EDITSEX+3, EDITEFF+3, EDITEXP+3 , EDITADD+6, FINDDEP+2, FINDDEP+11, FINDDEP+12, EDITDEP+3
GD2	EN~, EN+16, EN+20, VAR+7, NEWEFFDT+10*, EDITEFF+2, EDITEXP+2
GUARDEL	EN+4!, VAR+24, END+1!, EDITGUAR+2, EDITGUAR+11
>> ITEM	ALLFLDRQ+3*, ALLFLDRQ+4, ALLFLDRQ+5
>> ITEMNUM	GETAW+12, GETAW+18, GETAW+20, GETAW+21, GETAW+36, GETAW+40, GETAW+44, GETAW+49, GETAW+50
MISSING	ALLFLDRQ+1~, ALLFLDRQ+2, ALLFLDRQ+5, ALLFLDRQ+6
MYERRS	GETAW+53!, GETAW+54, GETAW+56
MYERRS("C"	VAR+8, VAR+16
MYVARS	GETAW+53!, GETAW+56
MYVARS("DFN"	GETAW+55*
MYVARS("FINDCALL"	GETAW+55*
MYVARS("SELECTION"	GETAW+55*
MYVARS("SITE"	GETAW+55*
NEWENTRY	EN~, EN+6, EN+19*, END+1!, GETAW+24, GETAW+56
>> NEWLINE	GETAW+10*, GETAW+19
>> NONPER	EN+3, NEWGUAR+23, EDITDOB+6, EDITSEX+6, ALLFLDRQ+4, EDITDEP+7
PIECE	GETAW+37~, GETAW+39*, GETAW+43, GETAW+44, GETAW+45, GETAW+46, GETAW+47!
>> POSTEXEC	GETAW+17*, GETAW+46
>> PRECAPEX	GETAW+16*, GETAW+22, GETAW+23
>> PREEXEC	GETAW+15*, GETAW+43
REC	END+1!
ROUTID	END+1!, DRAW+2*
>> SAME	EN+7, EN+11, EN+13, EN+15, NEWGUAR+8
>> SAMEDOB	SAME+16*
SAMESEX	SAME+3~, SAME+15*
>> TAGCALL	GETAW+13*, GETAW+18, GETAW+40
>> TEMPDFN	NEWGUAR+11, NEWGUAR+18, SAME+9, SAME+13
U	EN+3, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GETAW+23 , GETAW+30, GETAW+31, GETVDIC+2, GETVDIC+3, NEWGUAR+23, SAME+10, SAME+15, SAME+16, NEWEFFDT+12, EDITADD+6 , EDITADD+8, FINDDEP+2, FINDDEP+6, FINDDEP+9, FINDDEP+10, FINDDEP+11, FINDDEP+12
VDR	GETAW+38*, GETAW+39, GETAW+47!
VROOT	GETVDIC~, GETVDIC+1, GETVDIC+2*, GETVDIC+3
>> WD0	GETAW+36*
WDA	END!
WDFN	END+1!
WDT	END!
X	NEWENTRY+5, NEWGUAR+7, NEWGUAR+8, NEWGUAR+9, SAME~, SAME+9, SAME+10*, NEWEFFDT+1!, EDITGUAR+10, EDITREF+9 , EDITPO+8, EDITDOB+9
Y	VAR+7, VAR+8, VAR+9, VAR+10, VAR+12, VAR+16, VAR+17, VAR+18, VAR+19, VAR+21 , VAR+22, END!, NEWENTRY+8, NEWENTRY+9, NEWGUAR+7, NEWGUAR+20, NEWGUAR+21, NEWGUAR+22, NEWGUAR+23, NEWGUAR+26 , SAME+12, SAME+14, NEWEFFDT+9, NEWEFFDT+10, NEWEFFDT+11, NEWEFFDT+12

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDGUAR

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	DRAW+2
$T(@1+AG	GETAW+4