Routine: AGEDBEG

Package	Total	Call Graph
VA Fileman	8	^DIC ^DIE ^DIK $$GET1^DIQ ^DIR EN^DIWE ^DIWP ^DIWW
IHS Patient Registration	5	UPDATE1^AGED READ^AGED1 (EDITCHEK,FETCHERR)^AGEDERR ($$DTEST,PROGVIEW,VERIF)^AGUTILS $$S^AGVDF

Entry Points

Name	Comments	DBIA/ICR reference
DRAW	;EP
END	;CLEAN UP THE VARS
HDR	;
EDEMAIL	;EDIT CONTACT E-MAIL
EDADDDT	;EDIT DT
EDCONNOT	;EDIT CONTACT NOTES
WMSG	;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
EDCONFAX	;EDIT CONTACT FAX
EDCONPER	;EDIT CONTACT PERSON
1	;
CLEAN(AD0)	;CLEAN EMPTY RECORD. IF NO ENCOUNTER DTS HAVE BEEN ENTERED
CAPPARSE(CAPTION)	;EP - PARSE OUT THE CAP
ADDDT	;
CLEANZER(AD0)	;EP
EDCONPH	;EDIT CONTACT PHONE
VAR
NEWENTRY	;NEW ENTRY
DISNOTES	;EP
EN(AD0,AD1,AD2,NEWENTRY)	;
GETAW	;DISP

External References

Name	Field # of Occurrence
UPDATE1^AGED	VAR+26
READ^AGED1	VAR+10
EDITCHEK^AGEDERR	GETAW+58
FETCHERR^AGEDERR	GETAW+56
$$DTEST^AGUTILS	HDR+21
PROGVIEW^AGUTILS	HDR+13
VERIF^AGUTILS	GETAW+59
$$S^AGVDF	HDR+10
^DIC	NEWENTRY+8, ADDDT+7
^DIE	EDADDDT+7, EDCONPER+7, EDCONPH+7, EDEMAIL+7, EDCONFAX+7
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+37, CAPPARSE+9, CAPPARSE+11
^DIR	EDCONNOT+2, EDCONNOT+6, DISNOTES+9
EN^DIWE	EDCONNOT+13
^DIWP	GETAW+51, DISNOTES+7
^DIWW	GETAW+52, DISNOTES+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry not made." Line Location: EN+3
Function Call: WRITE	Prompt: !,"No entry made" Line Location: EN+8
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+3
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!" Line Location: VAR+14
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+18
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HDR+10
Function Call: WRITE	Prompt: "IHS REGISTRATION ",$S($D(AGSEENLY):"VIEW SCREEN",1:"EDITOR") Line Location: HDR+14
Function Call: WRITE	Prompt: ?36,"BENEFITS COORDINATOR" Line Location: HDR+15
Function Call: WRITE	Prompt: ?80-$L($P($G(^DIC(4,DUZ(2),0)),U)),$P($G(^DIC(4,DUZ(2),0)),U) Line Location: HDR+16
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+19
Function Call: WRITE	Prompt: !,$E(AGPAT,1,23) Line Location: HDR+20
Function Call: WRITE	Prompt: ?23,$$DTEST^AGUTILS(DFN) Line Location: HDR+21
Function Call: WRITE	Prompt: ?42,"HRN#:",AGCHRT Line Location: HDR+22
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+25
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: HDR+26
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+21
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+22
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+37
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+54
Function Call: WRITE	Prompt: !,$E(CAPTION,2,199) Line Location: CAPPARSE+3
Function Call: WRITE	Prompt: !,$E($P(CAPTION,LBRACKET),2,199) Line Location: CAPPARSE+6
Function Call: WRITE	Prompt: $$GET1^DIQ($P(FIELD,";"),AD1_","_AD0_",",$P(FIELD,";",2)) Line Location: CAPPARSE+9
Function Call: WRITE	Prompt: $P(CAPTION,RBRACKET,2) Line Location: CAPPARSE+12
Function Call: WRITE	Prompt: !,"You must first enter a CONTACT DATE" Line Location: WMSG+1
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
Function Call: WRITE	Prompt: ! Line Location: EDCONNOT+2
Function Call: WRITE	Prompt: ! Line Location: EDCONNOT+6
Function Call: WRITE	Prompt: !,"NO NOTES TO VIEW" Line Location: DISNOTES+1
Function Call: WRITE	Prompt: !! Line Location: DISNOTES+4
Routine Call	DIE Line Location: EDADDDT+7 EDCONPER+7 EDCONPH+7 EDEMAIL+7 EDCONFAX+7
Routine Call	DIC Line Location: NEWENTRY+8 ADDDT+7
Routine Call	DIR Line Location: EDCONNOT+2 EDCONNOT+6 DISNOTES+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNAUTH - [#9000046]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAUTH - [#9000046]	VAR+22, CLEAN+4, GETAW+49, GETAW+50, EDCONNOT+4, EDCONNOT+5, DISNOTES+1, DISNOTES+5, DISNOTES+6
^AUPNPAT - [#9000001]	HDR+4, HDR+6, HDR+24
^DD(	GETAW+24, GETAW+25
^DIC(4 - [#4]	HDR+16
^DPT - [#2]	HDR+3
^UTILITY($J	GETAW+42!

Label References

Name	Line Occurrences
@(	VAR+21
CAPPARSE	GETAW+6
CLEAN	VAR+22, VAR+25
CLEANZER	CLEAN+5
DISNOTES	VAR+12
DRAW	EN+3, VAR+1
END	EN+3, VAR+16
GETAW	DRAW+3
HDR	DRAW+2
NEWENTRY	EN+3
VAR	VAR+12, VAR+14, VAR+16, VAR+18, VAR+28
WMSG	EN+3

Naked Globals

Name	Field # of Occurrence
^(0	HDR+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD0	EN~, VAR, VAR+22, VAR+25, CLEAN~, CLEAN+4, CLEAN+5, CLEANZER~, CLEANZER+2, GETAW+29 , GETAW+45, CAPPARSE+9, CAPPARSE+11, NEWENTRY+11*, ADDDT+2, EDADDDT+3, EDCONPER+3, EDCONPH+3, EDEMAIL+3, EDCONFAX+3 , EDCONNOT+4, EDCONNOT+5, EDCONNOT+11, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD1	EN~, VAR, VAR+22, GETAW+31, GETAW+46, CAPPARSE+9, CAPPARSE+11, ADDDT+3, EDADDDT+2, EDCONPER+2 , EDCONPH+2, EDEMAIL+2, EDCONFAX+2, EDCONNOT+4, EDCONNOT+5, EDCONNOT+10, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD2	EN~, VAR, VAR+22, GETAW+31, GETAW+47, ADDDT+8*, EDADDDT+4, EDCONPER+4, EDCONPH+4, EDEMAIL+4 , EDCONFAX+4, EDCONNOT+4, EDCONNOT+5, EDCONNOT+9, DISNOTES+1, DISNOTES+5, DISNOTES+6
ADA	END+1!
ADFN	END+1!
ADT	END+1!
AG	END+1!, GETAW+2*
AG("AUPN"	HDR+5, HDR+6
AG("C"	VAR+21, GETAW+1!, GETAW+20*, GETAW+53
AG("EDIT"	HDR+28!
AG("ERR"	VAR+16
AG("N"	VAR+6, VAR+9, VAR+18, VAR+21, GETAW+53*
AG("PG"	HDR+1, HDR+12, GETAW+56
AG("SEL"	VAR+21*
>> AGCHRT	HDR+4*, HDR+22
>> AGELSTS	HDR+24*, HDR+25
AGI	VAR+21*, VAR+27!
>> AGLINE("-"	HDR+7, HDR+17, GETAW+54
>> AGLINE("EQ"	VAR+3, HDR+8, HDR+18, HDR+19, HDR+26
>> AGLINE("PGLN"	HDR+9*
>> AGOPT("ESCAPE"	VAR+15
>> AGPAT	HDR+3*, HDR+20
AGSCRN	END+1!, GETAW+2, GETAW+3*, GETAW+4, GETAW+5, GETAW+7, GETAW+8, GETAW+9, GETAW+12, GETAW+13 , GETAW+14, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19
>> AGSEENLY	VAR+5, VAR+7, VAR+12, VAR+13, HDR+14, EDCONNOT+2
>> AGSELECT	GETAW+57
AGY	VAR+20*, VAR+21, VAR+22, VAR+27!
>> CAPDENT	GETAW+13*, GETAW+24, GETAW+25
CAPTION	GETAW+5*, GETAW+6, GETAW+24, GETAW+25, CAPPARSE~, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+12
CHOICES	DRAW+1!
>> D0	GETAW+29, GETAW+30, GETAW+31, GETAW+37, GETAW+38
DA	CLEANZER+1!, CLEANZER+2, END+1!, HDR+27, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+4, EDADDDT+8!, EDCONPER+1! , EDCONPER+4, EDCONPER+8!, EDCONPH+1!, EDCONPH+4, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+4, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+4* , EDCONFAX+8!, EDCONNOT+8!, EDCONNOT+14!
DA(1	ADDDT+3, ADDDT+4, EDADDDT+2, EDADDDT+5, EDCONPER+2, EDCONPER+5, EDCONPH+2, EDCONPH+5, EDEMAIL+2, EDEMAIL+5 , EDCONFAX+2, EDCONFAX+5, EDCONNOT+9*, EDCONNOT+12
DA(2	ADDDT+2, ADDDT+4, EDADDDT+3, EDADDDT+5, EDCONPER+3, EDCONPER+5, EDCONPH+3, EDCONPH+5, EDEMAIL+3, EDEMAIL+5 , EDCONFAX+3, EDCONFAX+5, EDCONNOT+10*, EDCONNOT+12
DA(3	EDCONNOT+11*, EDCONNOT+12
DD	ADDDT+6!, EDADDDT+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDCONNOT+8!
>> DFN	VAR+26, HDR+3, HDR+4, HDR+6, HDR+21, HDR+24, HDR+27, GETAW+57, NEWENTRY+6, NEWENTRY+7 , NEWENTRY+9*
DFOUT	VAR+17, END+1!
DIC	END+1!, GETAW+7, GETAW+24, GETAW+25, GETAW+30, GETAW+37, GETAW+41, NEWENTRY+2!, NEWENTRY+3, ADDDT+1! , ADDDT+4, EDADDDT+1!, EDADDDT+8!, EDCONPER+1!, EDCONPER+8!, EDCONPH+1!, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+8!, EDCONFAX+1! , EDCONFAX+8!, EDCONNOT+8!, EDCONNOT+12, EDCONNOT+14!
DIC("S"	NEWENTRY+5*
DIC(0	NEWENTRY+4, ADDDT+5
DIE	NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+5, EDADDDT+8!, EDCONPER+1!, EDCONPER+5, EDCONPER+8!, EDCONPH+1!, EDCONPH+5* , EDCONPH+8!, EDEMAIL+1!, EDEMAIL+5, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+5, EDCONFAX+8!, EDCONNOT+8!, EDCONNOT+14!
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+4!, VAR+9*, EDCONNOT+2!, EDCONNOT+6!, DISNOTES+9!
DIR("A"	VAR+6, VAR+8, EDCONNOT+6*
DIR(0	EDCONNOT+2, EDCONNOT+6, DISNOTES+9*
>> DIWF	GETAW+44*
>> DIWL	GETAW+43*
>> DIWR	GETAW+43*
DLOUT	VAR+16, END+1!
DO	ADDDT+6!, EDADDDT+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDCONNOT+8!
DQOUT	VAR+18, END+1!
DR	END+1!, GETAW+8, GETAW+24, GETAW+25, GETAW+34, GETAW+35, GETAW+37, NEWENTRY+2!, ADDDT+1!, EDADDDT+1! , EDADDDT+6, EDADDDT+8!, EDCONPER+1!, EDCONPER+6, EDCONPER+8!, EDCONPH+1!, EDCONPH+6, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+6 , EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+6*, EDCONFAX+8!, EDCONNOT+8!, EDCONNOT+14!
DTOUT	VAR+17, END+1!
>> DUOUT	VAR+16
DUZ	HDR+13
DUZ(2	VAR+26, HDR+4, HDR+16, GETAW+57
>> EXEC	CAPPARSE+10*, CAPPARSE+11
>> EXECUTE	GETAW+16*, GETAW+37, GETAW+38
>> FIELD	CAPPARSE+8*, CAPPARSE+9, CAPPARSE+10, CAPPARSE+11
>> FIELDS	CAPPARSE+5*, CAPPARSE+7
>> IOBM	EDCONNOT+6
>> ITEMNUM	GETAW+14*, GETAW+20, GETAW+22, GETAW+23
LBRACKET	CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+13!
LN	DISNOTES+2~, DISNOTES+3, DISNOTES+5, DISNOTES+6
MYERRS	GETAW+55!, GETAW+56, GETAW+58
MYERRS("C"	VAR+14
MYVARS	GETAW+55!, GETAW+58
MYVARS("DFN"	GETAW+57*
MYVARS("FINDCALL"	GETAW+57*
MYVARS("SELECTION"	GETAW+57*
MYVARS("SITE"	GETAW+57*
NEWENTRY	EN~, EN+3, END+1!, GETAW+28, NEWENTRY+12*
>> NEWLINE	GETAW+12*, GETAW+21
PIECE	GETAW+33~, GETAW+35, GETAW+36, GETAW+37, GETAW+38, GETAW+39, GETAW+40!, CAPPARSE+7, CAPPARSE+8
>> POSTEXEC	GETAW+19*, GETAW+39
>> PRECAPEX	GETAW+18*, GETAW+24, GETAW+25
>> PREEXEC	GETAW+17*, GETAW+36
RBRACKET	CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+8, CAPPARSE+12, CAPPARSE+13!
REC	END+1!, EDCONNOT+3~, EDCONNOT+4, EDCONNOT+5
>> ROUTID	HDR+11*
>> SKIPEXEC	GETAW+9*, GETAW+11
>> SUBS	VAR*, HDR+13
>> TAGCALL	GETAW+15*, GETAW+20
>> TEMPDFN	NEWENTRY+7*, NEWENTRY+9
U	HDR+3, HDR+4, HDR+16, HDR+24, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14 , GETAW+15, GETAW+24, GETAW+25, EDCONNOT+5
>> VD0	GETAW+45*, GETAW+49, GETAW+50
>> VD1	GETAW+46*, GETAW+49, GETAW+50
>> VD2	GETAW+47*, GETAW+49, GETAW+50
>> VD3	GETAW+48, GETAW+49, GETAW+50
VDR	GETAW+34*, GETAW+35, GETAW+40!
WDA	END+1!
WDFN	END+1!
WDT	END+1!
X	GETAW+50, CAPPARSE+11, NEWENTRY+6, DISNOTES+2~, DISNOTES+6
Y	EN+3, VAR+12, VAR+14, VAR+15, VAR+16, VAR+18, VAR+19, VAR+20, END+1!, NEWENTRY+10 , NEWENTRY+11, ADDDT+8

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBEG

Information

Source Information

Call Graph

Call Graph Total: 13

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(	HDR+11
$T(@1+AG	GETAW+3