Routine: AGED1

Information

AGED1 ; IHS/ASDS/EFG - EDIT PG 1 - ELIG/IDENTIFIERS ; MAR 19, 2010

Source Information

Source file <AGED1.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
IHS Patient Registration	7	ASKADD^AG3A CALCELIG^AGBIC2 (,UPDATE1)^AGED ^AGED2 (EDITCHEK,FETCHERR)^AGEDERR EN^AGSECCHK ($$DTEST,UPDTEMAL)^AGUTILS
VA Fileman	5	FILE^DICN (,FILE)^DIE $$GET1^DIQ EN^DIQ1 ^DIR
Kernel	1	$$UP^XLFSTR

Caller Graph

Caller Graph Total: 39

Package	Total	Caller Graph
IHS Patient Registration	39	AG0 AG3 AG3A AGADDREG AGBICEDZ AGED10 AGED11 AGED11A AGED12 AGED13 AGED2 AGED3 AGED4 AGED42 AGED4B AGED5 AGED6 AGED62 AGED7B AGED8 AGED9 AGEDBEA AGEDBEB AGEDBEC AGEDBED AGEDBEE AGEDBEF AGEDBEG AGEDBEH AGEDBEI AGEDGUAR AGEDIT AGEDMCD AGEDPRVB AGEDTPL AGEDWC AGEL0 AGLKIN AGSEE7

Entry Points

Name	Comments	DBIA/ICR reference
LOC	;GET LOCATION OF HOME FROM PATIENT FILE
C	;EP - Edit multiple fields on a Reg edit page.
END	;
EDEMAIL	;EP - EDIT CURRENT EMAIL ADDRESS
WEB	;EP - INTERNET ACCESS QUESTION
VAR2	;
READ	;EP
DRAW	;DRAW PAGE 1
EC	;
1	;
QUES	;EP
CKELIG	;EP
ADDR2	;GET ADDRESS LINE 2 FROM VA PATIENT FILE
ESSNA
ADDR3	;GET ADDRESS LINE 3 FROM VA PATIENT FILE
VAR	;EP
MSTAT	;GET MARITAL STATUS FROM VA PATIENT FILE
MSGPH	;GET MESSAGE PHONE FROM PATIENT FILE
SSNA	;Ver=add ask if patient has verified SSN

External References

Name	Field # of Occurrence
ASKADD^AG3A	ESSNA+10
CALCELIG^AGBIC2	CKELIG+3
^AGED	DRAW+5
UPDATE1^AGED	C+3
^AGED2	END+4
EDITCHEK^AGEDERR	DRAW+79
FETCHERR^AGEDERR	DRAW+77
EN^AGSECCHK	DRAW+38
$$DTEST^AGUTILS	VAR+8
UPDTEMAL^AGUTILS	EDEMAIL+19
FILE^DICN	WEB+12
^DIE	SSNA+14, MSTAT+5, ADDR2+6, ADDR3+6, LOC+5, MSGPH+5, WEB+25, WEB+40, EDEMAIL+8
FILE^DIE	WEB+34
$$GET1^DIQ	ADDR2+1, ADDR2+9, ADDR3+1, ADDR3+9, WEB+23, EDEMAIL+3, EDEMAIL+10, EDEMAIL+11, DRAW+40, DRAW+41 , DRAW+42
EN^DIQ1	DRAW+33, DRAW+50, DRAW+57
^DIR	SSNA+7, READ+3, EDEMAIL+16
$$UP^XLFSTR	READ+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?36,$$DTEST^AGUTILS(DFN) Line Location: VAR+8
Function Call: WRITE	Prompt: !!,*7 Line Location: SSNA+2
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE FIX BEFORE EXITING!!" Line Location: ESSNA+9
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: ESSNA+15
Function Call: WRITE	Prompt: *7,!!,"Eligibility Status must be entered." Line Location: END+3
Function Call: WRITE	Prompt: *7,!!,"Use only pages 1 through 10." Line Location: READ+15
Function Call: WRITE	Prompt: *7,!!,"Eligibility Status must be entered." Line Location: READ+29
Function Call: WRITE	Prompt: !! Line Location: EDEMAIL+1
Function Call: WRITE	Prompt: !!,"Adding to PREVIOUS EMAIL FIELD...." Line Location: EDEMAIL+18
Function Call: WRITE	Prompt: !!,"To change an item, enter a number from 1 to ",AG("N") Line Location: QUES+1
Function Call: WRITE	Prompt: ". (Press RETURN for ""NO-CHANGE"".)" Line Location: QUES+2
Function Call: WRITE	Prompt: *7,!,"This patient's Eligibility has been changed to " Line Location: CKELIG+4
Function Call: WRITE	Prompt: $P(AG("NARR1"),":",2) Line Location: CKELIG+5
Function Call: WRITE	Prompt: ?1,AG,".",?(27-$L($P($G(^DD(DIC,DR,0)),U))),$P($G(^DD(DIC,DR,0)),U)," : " Line Location: DRAW+12
Function Call: WRITE	Prompt: ?45,AG,".",$P(AGSCRN,U)," : " Line Location: DRAW+13
Function Call: WRITE	Prompt: " ",AG,".",$P(AGSCRN,U)," : " Line Location: DRAW+14
Function Call: WRITE	Prompt: " ",AG,".",$P(AGSCRN,U)," : " Line Location: DRAW+15
Function Call: WRITE	Prompt: ?54,AG,". ZIP CODE : " Line Location: DRAW+16
Function Call: WRITE	Prompt: ?($S($D(DPTFLAG):58,1:56)),AG,".ZIP",$S($D(DPTFLAG):"+4",1:" CODE")," : " Line Location: DRAW+17
Function Call: WRITE	Prompt: "LOCATION OF HOME CONTAINS DATA" Line Location: DRAW+20
Function Call: WRITE	Prompt: ! Line Location: DRAW+26
Function Call: WRITE	Prompt: ?30,AG("K") Line Location: DRAW+27
Function Call: WRITE	Prompt: $$GET1^DIQ(2,DFN_",",.09) Line Location: DRAW+40
Function Call: WRITE	Prompt: $$GET1^DIQ(9000001,DFN_",",1107.3) Line Location: DRAW+41
Function Call: WRITE	Prompt: $$GET1^DIQ(2,DFN_",",.09) Line Location: DRAW+42
Function Call: WRITE	Prompt: $G(AGRES(DIC,DFN,DR,"E")) Line Location: DRAW+43
Function Call: WRITE	Prompt: !?1,AG,"." Line Location: DRAW+46
Function Call: WRITE	Prompt: ?15,"EMAIL ADDRESS: ",$$GET1^DIQ(9000001,DFN_",",1802) Line Location: DRAW+46
Function Call: WRITE	Prompt: $P($G(^DIC(5,$G(AGRES(DIC,DFN,DR,"I")),0)),U,2) Line Location: DRAW+52
Function Call: WRITE	Prompt: $P($G(^DIC(5,$G(AGRES(DIC,DFN,DR,"I")),0)),U,2) Line Location: DRAW+59
Function Call: WRITE	Prompt: "Not Available" Line Location: DRAW+65
Function Call: WRITE	Prompt: "Patient refused" Line Location: DRAW+66
Function Call: WRITE	Prompt: "Patient will submit" Line Location: DRAW+67
Function Call: WRITE	Prompt: "Reason for no SSN not yet entered" Line Location: DRAW+68
Function Call: WRITE	Prompt: "(",$P($G(^(0)),U,2),")" Line Location: DRAW+69
Function Call: WRITE	Prompt: "(Not yet verified by the SSA)" Line Location: DRAW+70
Function Call: WRITE	Prompt: ! Line Location: DRAW+71
Function Call: WRITE	Prompt: AGLINE("-"),! Line Location: DRAW+73
Function Call: WRITE	Prompt: !,AGLINE("-") Line Location: DRAW+75
Routine Call	DIE Line Location: SSNA+14 MSTAT+5 ADDR2+6 ADDR3+6 LOC+5 MSGPH+5 WEB+25 WEB+40 EDEMAIL+8
Routine Call	DIE Line Location: WEB+34
Routine Call	DIR Line Location: SSNA+7 READ+3 EDEMAIL+16

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls, GET1^DIQ
^AUPNPAT - [#9000001]	Classic Fileman Calls, GET1^DIQ
9000001.81	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNPAT - [#9000001]	AGED1+7, VAR+5, VAR+7, SSNA+1, ESSNA+15, END+3, READ+12, READ+28, WEB+4, WEB+11* , WEB+17*, WEB+29, WEB+32, CKELIG+1, CKELIG+2, DRAW+19, DRAW+22, DRAW+64, DRAW+69, DRAW+70
^AUTTSSN - [#9999999.78]	SSNA+1, DRAW+69
^DD(	DRAW+12
^DIC(5 - [#5]	DRAW+52, DRAW+59
^DPT - [#2]	VAR+1, VAR+4, DRAW+63, DRAW+70
^UTILITY("DIQ1"	DRAW+6!

Name	Line Occurrences
@(	ESSNA+13, C+2
C	ESSNA+22
CKELIG	ESSNA+1
DRAW	VAR2+1, ESSNA
END	ESSNA+14
READ	ESSNA+8, QUES+3
VAR	ESSNA+9, ESSNA+14, ESSNA+15, ESSNA+23, END+3

Name	Field # of Occurrence
^(0	VAR+7, SSNA+1, DRAW+69
^(11	CKELIG+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	END+1!, DRAW+8*, DRAW+12, DRAW+13, DRAW+14, DRAW+15, DRAW+17, DRAW+19, DRAW+30, DRAW+47 , DRAW+54, DRAW+62, DRAW+71, DRAW+72
AG("AUPN"	VAR+6, VAR+7
AG("C"	ESSNA+21*, C+2
AG("ED"	ESSNA+13, READ+1!, READ+13, READ+14, READ+17!, READ+19, READ+20, READ+21, READ+22, READ+23 , READ+24, READ+25, READ+26, READ+27
AG("ERR"	ESSNA+14, READ+1!, READ+18*
AG("K"	DRAW+24*, DRAW+27, DRAW+29!
AG("N"	ESSNA+8, ESSNA+15, C+2, QUES+1, DRAW+2, DRAW+8, DRAW+74
AG("NARR1"	CKELIG+5
AG("PG"	VAR+2, DRAW+1, DRAW+77
AG("SEL"	C+2*
AG("SVELIG"	AGED1+6, AGED1+7, CKELIG+1, CKELIG+2*
AG("Y"	DRAW+23*, DRAW+25, DRAW+29!
>> AGCHRT	VAR+5*
AGI	C+2*, C+4!
>> AGLINE("-"	VAR+9*, DRAW+73, DRAW+75
>> AGLINE("EQ"	VAR+10*
>> AGLINE("PGLN"	VAR+11*, VAR2+2
>> AGOPT("ESCAPE"	ESSNA+9, ESSNA+11
>> AGOPT(14	AGED1+6, ESSNA+1
>> AGPAT	VAR+4*
AGRES	DRAW+31!, DRAW+45!, DRAW+48!, DRAW+53!, DRAW+55!, DRAW+60!
AGRES(	DRAW+43, DRAW+52, DRAW+59
AGSCRN	END+1!, DRAW+9*, DRAW+10, DRAW+11, DRAW+13, DRAW+14, DRAW+15
>> AGSEENLY	VAR2+2, VAR2+3, ESSNA+22, DRAW+20, DRAW+21
>> AGSSNCHK	DRAW+64*, DRAW+65, DRAW+66, DRAW+67, DRAW+68
AGVAR	WEB+30~
AGVAR(	WEB+31, WEB+33
>> AGXTERN	ESSNA+13, END+2
AGY	C+1*, C+2, C+4!
DA	SSNA+12, END+1!, MSTAT+3, ADDR2+4, ADDR3+4, LOC+3, MSGPH+3, WEB+1~, WEB+13!, WEB+19~ , WEB+20, WEB+26!, WEB+36~, WEB+37, EDEMAIL+4!, EDEMAIL+6, DRAW+3
DA(1	WEB+7, WEB+21, WEB+22, WEB+37*, WEB+38
DD	WEB+12!
>> DEF	WEB+23*, WEB+24
>> DFN	AGED1+7, VAR+1, VAR+4, VAR+5, VAR+7, VAR+8, SSNA+1, SSNA+12, ESSNA+15, END+3 , READ+12, READ+28, C+3, MSTAT+3, ADDR2+1, ADDR2+4, ADDR2+9, ADDR3+1, ADDR3+4, ADDR3+9 , LOC+3, MSGPH+3, WEB+4, WEB+7, WEB+11, WEB+17, WEB+21, WEB+23, WEB+29, WEB+31 , WEB+32, WEB+33, WEB+37, EDEMAIL+3, EDEMAIL+6, EDEMAIL+10, EDEMAIL+11, EDEMAIL+19, CKELIG+1, CKELIG+2 , DRAW+3, DRAW+19, DRAW+22, DRAW+40, DRAW+41, DRAW+42, DRAW+43, DRAW+52, DRAW+59, DRAW+63 , DRAW+64, DRAW+69, DRAW+70, DRAW+78
DFOUT	ESSNA+12, END+1!, READ+1!, READ+5*
DIC	END+1!, MSGPH+7!, WEB+1~, WEB+7, WEB+13!, WEB+19~, WEB+26!, WEB+36~, EDEMAIL+4!, DRAW+10 , DRAW+12, DRAW+32, DRAW+34, DRAW+39, DRAW+43, DRAW+49, DRAW+51, DRAW+52, DRAW+56, DRAW+58* , DRAW+59
DIC("A"	MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC("B"	MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC("P"	WEB+10*
DIC("S"	MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC("W"	MSTAT+7!, ADDR2+8!, ADDR3+8!, LOC+7!
DIC(0	WEB+8*
DIE	SSNA+11, MSTAT+2, ADDR2+3, ADDR3+3, LOC+2, MSGPH+2, WEB+19~, WEB+22, WEB+26!, WEB+36~ , WEB+38, EDEMAIL+4!, EDEMAIL+5*
>> DIQ	DRAW+33, DRAW+50, DRAW+57*
>> DIQ(0	DRAW+33, DRAW+50, DRAW+57*
DIR	SSNA+3!, SSNA+8!, ESSNA+2!, END+1!, WEB+19~, WEB+26!, WEB+36~, EDEMAIL+4!, EDEMAIL+12!
DIR("?"	ESSNA+3, ESSNA+4, ESSNA+5, ESSNA+6, ESSNA+7*
DIR("A"	SSNA+5, ESSNA+8, EDEMAIL+14*
DIR("B"	SSNA+6, EDEMAIL+15
DIR(0	SSNA+4, READ+2, EDEMAIL+13*
DIROUT	READ+1!
>> DLAYGO	WEB+10*
DLOUT	ESSNA+14, END+1!, READ+1!, READ+6*
DO	WEB+12!
>> DPTFLAG	DRAW+17
DQOUT	ESSNA+15, END+1!, READ+1!, READ+8*
DR	SSNA+10!, SSNA+13, SSNA+15!, END+1!, MSTAT+4, ADDR2+5, ADDR3+5, LOC+4, MSGPH+4, WEB+19~ , WEB+24, WEB+26!, WEB+36~, WEB+39, EDEMAIL+4!, EDEMAIL+7, DRAW+11, DRAW+12, DRAW+17*, DRAW+39 , DRAW+43, DRAW+52, DRAW+59
DT	WEB+9
DTOUT	ESSNA+12, END+1!, READ+1!, READ+4, EDEMAIL+17
DUOUT	ESSNA+12, END+1!, READ+1!, READ+7, MSTAT+1!, MSTAT+6, ADDR2+2!, ADDR2+7, ADDR3+2!, ADDR3+7 , LOC+1!, LOC+6, MSGPH+1!, MSGPH+6, EDEMAIL+17
DUZ(2	VAR+5, C+3, DRAW+78
ERROR	WEB+30~
HIT	DRAW+37~, DRAW+38, DRAW+40
HOME	DRAW+22, DRAW+23, DRAW+24, DRAW+25, DRAW+29!
LNCNT	DRAW+23, DRAW+26, DRAW+28, DRAW+29!
MYERRS	DRAW+76!, DRAW+77, DRAW+79
MYERRS("C"	ESSNA+9
MYVARS	DRAW+76!, DRAW+79
MYVARS("DFN"	DRAW+78*
MYVARS("FINDCALL"	DRAW+78*
MYVARS("SITE"	DRAW+78*
NEWADDR2	AGED1+8~, ADDR2+9*
NEWADDR3	AGED1+8~, ADDR3+9*
NEWCITY	AGED1+8~
NEWHPH	AGED1+9~
NEWST	AGED1+8~
NEWSTATE	AGED1+9~
NEWZIP	AGED1+9~
NIEN	WEB+1~, WEB+20*, WEB+23, WEB+29, WEB+31, WEB+32, WEB+33, WEB+37
OIEN	WEB+1~, WEB+4*, WEB+17
OLDADDR2	AGED1+8~, ADDR2+1*
OLDADDR3	AGED1+8~, ADDR3+1*
OLDCITY	AGED1+8~
OLDEMAIL	EDEMAIL+2~, EDEMAIL+3*, EDEMAIL+11
OLDHPH	AGED1+9~
OLDST	AGED1+8~
OLDSTATE	AGED1+8~
OLDZIP	AGED1+9~
ROUTID	VAR+3, END+1!, DRAW+4
TEMPDIC	DRAW+32, DRAW+34, DRAW+45!, DRAW+49, DRAW+51, DRAW+53!, DRAW+56*, DRAW+58, DRAW+60!
TEMPY	AGED1+9~, ESSNA+10*!
U	AGED1+7, VAR+4, VAR+5, SSNA+1, ESSNA+15, END+3, READ+12, READ+28, WEB+29, CKELIG+1 , CKELIG+2, DRAW+10, DRAW+11, DRAW+12, DRAW+13, DRAW+14, DRAW+15, DRAW+22, DRAW+52, DRAW+59 , DRAW+63, DRAW+64, DRAW+69, DRAW+70
WIEN	WEB+30~, WEB+32*, WEB+33
X	READ+9, WEB+1~, WEB+9, WEB+13!
Y	SSNA+9, ESSNA+9, ESSNA+10, ESSNA+11, ESSNA+14, ESSNA+15, END+1!, READ+5, READ+6, READ+7 , READ+8, READ+9, READ+10, READ+11*, READ+12, READ+13, READ+28, C+1, MSTAT+6, ADDR2+7 , ADDR3+7, LOC+6, MSGPH+6, WEB+1~, WEB+14, WEB+17, WEB+20, EDEMAIL+9, EDEMAIL+17

Customize PDF page

Package: IHS Patient Registration

Routine: AGED1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 39

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(	VAR+3, DRAW+4
$T(@1+AG	DRAW+9