Routine: AGED2

Package	Total	Call Graph
IHS Patient Registration	10	ELIG^AG2A ^AGBIC2C ^AGDATCK (,UPDATE1)^AGED (CKELIG,VAR)^AGED1 ^AGED3 (EDITCHEK,FETCHERR)^AGEDERR ^AGELCHK $$ISREQ^AGFLDREQ $$S^AGVDF
VA Fileman	4	^DIE $$GET1^DIQ EN^DIQ1 ^DIR
IHS Patient	1	$$AGE^AUPNPAT

Package	Total	Caller Graph
IHS Patient Registration	3	AG8 AGED1 AGED3

Entry Points

Name	Comments	DBIA/ICR reference
ELIG	;
TRBCHK	;
READ	;EP
DIE	; Do Field Edit
EMPL	;
FEML	;EP - Edit Father's Email Address
FATHER	;GET FATHER'S NAME, CITY AND STATE OF BIRTH
EMST	;GET PATIENT'S EMPLOYMENT STATUS
1	;
MOTHER	;GET MOTHER'S NAME, CITY AND STATE OF BIRTH
MCPH	;EP - Edit Mother's Cell Phone
DRAW	;EP
END	;
MEML	;EP - Edit Mother's Email Address
OTHERT	;ALLOW ADD AND EDIT OF OTHER TRIBES AND QUANTUMS
FEMPL	;FATHER'S EMPLOYER INFO
OTHER	;DISPLAY LAST OTHER TRIBE AND QUANTUM
VAR	;
FCPH	;EP - Edit Father's Cell Phone
MAPH	;EP - Edit Mother's Alternate Phone
FAPH	;EP - Edit Father's Alternate Phone
SPSEMP	;EP - Spouse's Employer.
MEMPL	;MOTHER'S EMPLOYER INFO
EMPLR	;EP - Patient's Employer.

External References

Name	Field # of Occurrence
ELIG^AG2A	ELIG+1
^AGBIC2C	DRAW+10
^AGDATCK	VAR+5
^AGED	DRAW+7
UPDATE1^AGED	VAR+25, OTHERT+15
CKELIG^AGED1	VAR+8
VAR^AGED1	END+5
^AGED3	END+6
EDITCHEK^AGEDERR	DRAW+55
FETCHERR^AGEDERR	DRAW+53
^AGELCHK	VAR+8
$$ISREQ^AGFLDREQ	EMPLR+6
$$S^AGVDF	TRBCHK+4, TRBCHK+6
$$AGE^AUPNPAT	FEMPL+4, FEMPL+5, MEMPL+5, MEMPL+6
^DIE	EMPLR+9, EMPLR+12, EMST+5, EMPL+5, SPSEMP+6, FEMPL+8, MEMPL+9, OTHERT+14, FATHER+7, FATHER+17 , MOTHER+6, MOTHER+16, DIE+4
$$GET1^DIQ	DRAW+15, DRAW+39, DRAW+44
EN^DIQ1	TRBCHK+11
^DIR	READ+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+3
Function Call: WRITE	Prompt: *7,!!,"Patient must first have a VALID/permanent HRN prior to editing !" Line Location: VAR+6
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: VAR+9
Function Call: WRITE	Prompt: !,"The corrections must be made !",*7 Line Location: VAR+12
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+17
Function Call: WRITE	Prompt: !!,"Invalid entry - Enter a line number or line numbers separated by a ',' to edit" Line Location: VAR+22
Function Call: WRITE	Prompt: !!,"You can only change a patient's eligibility" Line Location: ELIG+2
Function Call: WRITE	Prompt: !,"by altering their Community of Residence," Line Location: ELIG+3
Function Call: WRITE	Prompt: !,"Tribe of Membership, or Indian Quantum." Line Location: ELIG+4
Function Call: WRITE	Prompt: !,"Press return to continue" Line Location: ELIG+5
Function Call: WRITE	Prompt: *7 Line Location: ELIG+6
Function Call: WRITE	Prompt: !,"1. ",$P($G(^DD(DIC,DR,0)),U)," : " Line Location: DRAW+14
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,DFN,DR) Line Location: DRAW+15
Function Call: WRITE	Prompt: ! Line Location: DRAW+27
Function Call: WRITE	Prompt: ?CLM Line Location: DRAW+28
Function Call: WRITE	Prompt: CLLST,". " Line Location: DRAW+32
Function Call: WRITE	Prompt: $J(LBL,LEN),": " Line Location: DRAW+35
Function Call: WRITE	Prompt: $E($$GET1^DIQ(DIC,DFN,DR),1,15) Line Location: DRAW+38
Function Call: WRITE	Prompt: VALUE Line Location: DRAW+41
Function Call: WRITE	Prompt: ?33,"* NONE LISTED *" Line Location: DRAW+47
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+48
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+49
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+51
Function Call: WRITE	Prompt: *7,!!,"Use only pages 1 through 10." Line Location: READ+19
Function Call: WRITE	Prompt: $$S^AGVDF("RVN"),"(OLD UNUSED TRIBE NAME)",$$S^AGVDF("RVF") Line Location: TRBCHK+4
Function Call: WRITE	Prompt: $$S^AGVDF("RVN")," <- PLEASE SPECIFY IF KNOWN",$$S^AGVDF("RVF") Line Location: TRBCHK+6
Function Call: WRITE	Prompt: $G(AGRES(DIC,DFN,DR,"E")) Line Location: TRBCHK+13
Function Call: WRITE	Prompt: ! Line Location: EMPLR+2
Function Call: WRITE	Prompt: ! Line Location: EMST+1
Function Call: WRITE	Prompt: !!,"<----------EMPLOYER DEMOGRAPHIC INFO---------->" Line Location: EMPL+3
Function Call: WRITE	Prompt: ! Line Location: SPSEMP+2
Function Call: WRITE	Prompt: ! Line Location: FEMPL+2
Function Call: WRITE	Prompt: ! Line Location: MEMPL+3
Function Call: WRITE	Prompt: ?32,TRIBE Line Location: OTHER+6
Function Call: WRITE	Prompt: ?73,$E(QUAN,1,6) Line Location: OTHER+7
Function Call: WRITE	Prompt: !!,"OTHER TRIBES:",?50,"QUANTUM:",! Line Location: OTHERT+2
Function Call: WRITE	Prompt: !,OTRIBE,?50,OQUAN Line Location: OTHERT+8
Function Call: WRITE	Prompt: !! Line Location: OTHERT+9
Function Call: WRITE	Prompt: ! Line Location: FATHER+5
Function Call: WRITE	Prompt: ! Line Location: FATHER+15
Function Call: WRITE	Prompt: ! Line Location: MOTHER+4
Function Call: WRITE	Prompt: ! Line Location: MOTHER+14
Routine Call	DIE Line Location: EMPLR+9 EMPLR+12 EMST+5 EMPL+5 SPSEMP+6 FEMPL+8 MEMPL+9 OTHERT+14 FATHER+7 FATHER+17 MOTHER+6 MOTHER+16 DIE+4
Routine Call	DIR Line Location: READ+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^AUPNPAT - [#9000001]	Classic Fileman Calls
^AUTNEMPL - [#9999999.75]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	AGED2+14, DRAW+43, DRAW+46, READ+16, EMPLR+6, EMPLR+10, EMPLR+14, EMPLR+15, SPSEMP+7, SPSEMP+8 , FEMPL+5, FEMPL+9, FEMPL+10, MEMPL+6, MEMPL+10, MEMPL+11, OTHER+3, OTHER+4, OTHER+5, OTHERT+4 , OTHERT+5, OTHERT+7, OTHERT+16!, FATHER+11, FATHER+12, MOTHER+10, MOTHER+11
^AUTNEMPL(0	EMPLR+1, EMPLR+16, SPSEMP+1, SPSEMP+9, FEMPL+1, FEMPL+11, MEMPL+2, MEMPL+12
^AUTTTRI - [#9999999.03]	TRBCHK+1, TRBCHK+5, OTHER+4, OTHERT+6
^AUTTTRI("B"	TRBCHK+1, TRBCHK+5
^DD(	DRAW+14
^DPT - [#2]	FATHER+10, FATHER+13, MOTHER+9, MOTHER+12
^UTILITY("DIQ1"	DRAW+8!

Label References

Name	Line Occurrences
@(	VAR+15, VAR+24
DIE	FCPH+3, FEML+3, FAPH+3, MCPH+3, MEML+3, MAPH+3
DRAW	VAR+2
EMPL	EMPLR+16, SPSEMP+9, FEMPL+11, MEMPL+12
END	VAR+13
OTHER	DRAW+48
READ	VAR+8, ELIG+7
TRBCHK	DRAW+45
VAR	VAR+9, VAR+11, VAR+14, VAR+17, VAR+22, VAR+26

Naked Globals

Name	Field # of Occurrence
^(0	EMPLR+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	END+1!, DRAW+16*, DRAW+31, DRAW+42, DRAW+46, DRAW+48, DRAW+49
AG("E"	VAR+23, DRAW+31*
AG("ED"	VAR+11, VAR+15, READ+1!, READ+17, READ+18, READ+21!, READ+23, READ+24, READ+25, READ+26* , READ+27, READ+28, READ+29, READ+30, READ+31*
AG("ER"	VAR+4!, VAR+7!, VAR+8, VAR+11
AG("ERR"	VAR+14, READ+1!, READ+22*
AG("N"	VAR+8, VAR+17, DRAW+4*, DRAW+16
AG("PG"	DRAW+3*, DRAW+53
AG("SEL"	VAR+23*, VAR+24
AG("SVELIG"	AGED2+13, AGED2+14
>> AGEL("EMP"	EMPLR+15, EMST+7!, EMPL+2, SPSEMP+8, SPSEMP+10!, FEMPL+10, FEMPL+12!, MEMPL+11, MEMPL+13!
>> AGEL("ONUM"	EMPLR+1, EMPLR+16, EMST+8!, SPSEMP+1, SPSEMP+9, SPSEMP+11!, FEMPL+1, FEMPL+11, FEMPL+13!, MEMPL+2 , MEMPL+12, MEMPL+14!
AGI	VAR+23*, END+1!
AGIO	END+1!
>> AGLINE("-"	DRAW+48, DRAW+49, DRAW+51
>> AGLINE("EQ"	VAR+3
>> AGOPT("ESCAPE"	VAR+9, VAR+10
>> AGOPT(14	AGED2+13, VAR+8, ELIG+1, DRAW+9, TRBCHK+7
>> AGOPT(8	OTHERT+1
AGRES	TRBCHK+9!, TRBCHK+14!
AGRES(	TRBCHK+13
AGSCRN	END+1!, DRAW+13, DRAW+17~, DRAW+18, DRAW+19, DRAW+20, DRAW+21, DRAW+22, DRAW+23, DRAW+24
>> AGSELECT	DRAW+54
>> AGWM	VAR+8*
>> AGXTERN	VAR+15, END+3
AGY	VAR+18, VAR+20, VAR+22, VAR+23, END+1!
>> CALLS	DRAW+2*, DRAW+31
CLLST	AGED2+12~, END+1!, DRAW+1, DRAW+31, DRAW+32
CLLST(	VAR+24, DRAW+31*
CLM	DRAW+17~, DRAW+21*, DRAW+27, DRAW+28
>> D1	OTHER+1, OTHER+3, OTHER+4, OTHER+5, OTHERT+3, OTHERT+4, OTHERT+5, OTHERT+7
DA	END+1!, DRAW+6, EMPLR+8, EMST+3, EMPL+2, SPSEMP+5, FEMPL+7, MEMPL+8, OTHERT+13, FATHER+4* , MOTHER+3, DIE+1~, DIE+3
>> DFN	AGED2+14, VAR+25, DRAW+6, DRAW+15, DRAW+39, DRAW+43, DRAW+44, DRAW+46, DRAW+54, READ+16 , TRBCHK+13, EMPLR+6, EMPLR+8, EMPLR+10, EMPLR+14, EMPLR+15, EMST+3, SPSEMP+5, SPSEMP+7, SPSEMP+8 , FEMPL+4, FEMPL+5, FEMPL+7, FEMPL+9, FEMPL+10, MEMPL+5, MEMPL+6, MEMPL+8, MEMPL+10, MEMPL+11 , OTHER+3, OTHER+4, OTHER+5, OTHERT+4, OTHERT+5, OTHERT+7, OTHERT+13, OTHERT+15, OTHERT+16, FATHER+4 , FATHER+10, FATHER+11, FATHER+12, FATHER+13, MOTHER+3, MOTHER+9, MOTHER+10, MOTHER+11, MOTHER+12, DIE+3
DFOUT	VAR+11, VAR+16, END+1!, READ+1!, READ+10*
DIC	DRAW+11, DRAW+14, DRAW+15, DRAW+17~, DRAW+22, DRAW+39, DRAW+44, TRBCHK+10, TRBCHK+12*, TRBCHK+13 , EMPLR+3!, EMPLR+13!, EMST+6!, SPSEMP+12!, FEMPL+14!, MEMPL+1!, MEMPL+15!, OTHERT+10!, OTHERT+17!, FATHER+9! , FATHER+19!, MOTHER+18!
DIE	EMPLR+3!, EMPLR+4, EMPLR+13!, EMST+2, EMST+6!, EMPL+1, SPSEMP+3, SPSEMP+12!, FEMPL+3, FEMPL+14! , MEMPL+1!, MEMPL+4, MEMPL+15!, OTHERT+10!, OTHERT+11, OTHERT+17!, FATHER+2!, FATHER+3, FATHER+9!, FATHER+14* , FATHER+19!, MOTHER+1!, MOTHER+2, MOTHER+13, MOTHER+18!, DIE+1~, DIE+2*
DIE("NO^"	EMPLR+6*
>> DIQ	TRBCHK+11*
>> DIQ(0	TRBCHK+11*
DIR	VAR+8!, EMPLR+3!
DIR("?"	READ+2, READ+3, READ+4, READ+5, READ+6*
DIR("A"	VAR+8*
DIR(0	READ+7*
DIROUT	END+4, READ+1!
DLOUT	VAR+11, VAR+13, END+1!, READ+1!, READ+11*
DQOUT	VAR+17, END+1!, READ+1!, READ+13*
DR	DRAW+12, DRAW+14, DRAW+15, DRAW+17~, DRAW+23, DRAW+39, DRAW+44, TRBCHK+8, TRBCHK+13, EMPLR+3! , EMPLR+6, EMPLR+7, EMPLR+11, EMPLR+13!, EMST+4, EMST+6!, EMPL+4, SPSEMP+4, SPSEMP+12!, FEMPL+4 , FEMPL+5, FEMPL+6, FEMPL+14!, MEMPL+1!, MEMPL+5, MEMPL+6, MEMPL+7, MEMPL+15!, OTHERT+10!, OTHERT+12 , OTHERT+17!, FATHER+6, FATHER+9!, FATHER+16, FATHER+19!, MOTHER+5, MOTHER+15, MOTHER+18!, FCPH+1~, FCPH+2* , FEML+1~, FEML+2, FAPH+1~, FAPH+2, MCPH+1~, MCPH+2, MEML+1~, MEML+2, MAPH+1~, MAPH+2*
DTOUT	VAR+16, END+1!, READ+1!, READ+9
DUOUT	VAR+11, VAR+13, END+5, READ+1!, READ+12, FATHER+1!, FATHER+8, FATHER+9!, FATHER+18, MOTHER+1! , MOTHER+7, MOTHER+8!, MOTHER+17*, DIE+1~
DUZ(2	VAR+25, DRAW+54, OTHERT+15
LBL	DRAW+17~, DRAW+19*, DRAW+35
LEN	DRAW+17~, DRAW+20*, DRAW+35
MYERRS	DRAW+52!, DRAW+53, DRAW+55
MYERRS("C"	VAR+9
MYVARS	DRAW+52!, DRAW+55
MYVARS("DFN"	DRAW+54*
MYVARS("FINDCALL"	DRAW+54*
MYVARS("SELECTION"	DRAW+54*
MYVARS("SITE"	DRAW+54*
>> OQUAN	OTHERT+7*, OTHERT+8
>> OTRIBE	OTHERT+6*, OTHERT+8
QUAN	END+1!, OTHER+2, OTHER+5, OTHER+7
ROUTID	END+2!, DRAW+5*
TEMPDIC	TRBCHK+10*, TRBCHK+12, TRBCHK+14!
TRIBE	END+1!, OTHER+2, OTHER+4, OTHER+6
>> TRIPTR	OTHERT+5*, OTHERT+6
U	AGED2+14, DRAW+14, DRAW+19, DRAW+20, DRAW+21, DRAW+22, DRAW+23, DRAW+24, DRAW+43, READ+16 , TRBCHK+1, TRBCHK+5, EMPLR+1, EMPLR+6, EMPLR+10, EMPLR+14, EMPLR+15, EMPLR+16, SPSEMP+1, SPSEMP+7 , SPSEMP+8, SPSEMP+9, FEMPL+1, FEMPL+5, FEMPL+9, FEMPL+10, FEMPL+11, MEMPL+2, MEMPL+6, MEMPL+10 , MEMPL+11, MEMPL+12, OTHER+4, OTHER+5, OTHERT+5, OTHERT+6, OTHERT+7, FATHER+10, FATHER+11, FATHER+12 , FATHER+13, MOTHER+9, MOTHER+10, MOTHER+11, MOTHER+12
VALUE	DRAW+17~, DRAW+39, DRAW+40, DRAW+41
VLEN	DRAW+17~, DRAW+24*, DRAW+40
Y	VAR+9, VAR+10, VAR+11, VAR+13, VAR+17, VAR+18, VAR+20, END+1!, DRAW+44, READ+10 , READ+11, READ+12, READ+13, READ+14, READ+15, READ+16, READ+17, TRBCHK+1, TRBCHK+5, FATHER+8 , FATHER+18, MOTHER+7, MOTHER+17

Customize PDF page

Package: IHS Patient Registration

Routine: AGED2

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

Naked Globals

Local Variables

Legend:

Marked Items

Name	Field # of Occurrence
$T(	DRAW+5
$T(@1+AG	DRAW+18