Routine: AGEDBEF

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

Entry Points

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

External References

Name	Field # of Occurrence
^AGED	DRAW+4
UPDATE1^AGED	VAR+26
READ^AGED1	VAR+9
EDITCHEK^AGEDERR	GETAW+59
FETCHERR^AGEDERR	GETAW+57
VERIF^AGUTILS	GETAW+60
^DIC	NEWENTRY+8, ADDDT+7
^DIE	EDADDDT+7, EDADDYS+7, EDADVIST+7, EDADDREF+7, EDCONPER+7, EDCONPH+7, EDEMAIL+7, EDCONFAX+7
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+38, CAPPARSE+9, CAPPARSE+11
^DIR	DISNOTES+9
EN^DIWE	EDADDNOT+6
^DIWP	GETAW+52, DISNOTES+7
^DIWW	GETAW+53, DISNOTES+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Entry not made" Line Location: EN+7
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+13
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+17
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+21
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+22
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+55
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 DATE AUTHORIZATION OBTAINED" Line Location: WMSG+1
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
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 EDADDYS+7 EDADVIST+7 EDADDREF+7 EDCONPER+7 EDCONPH+7 EDEMAIL+7 EDCONFAX+7
Routine Call	DIC Line Location: NEWENTRY+8 ADDDT+7
Routine Call	DIR Line Location: 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]	EN+8, VAR+21, CLEAN+4, GETAW+50, GETAW+51, DISNOTES+1, DISNOTES+5, DISNOTES+6
^DD(	GETAW+24, GETAW+25
^UTILITY($J	GETAW+43!

Label References

Name	Line Occurrences
@(	VAR+20
CAPPARSE	GETAW+6
CLEAN	VAR+21, VAR+24
CLEANZER	CLEAN+5
DISNOTES	VAR+11
DRAW	EN+7, VAR
EDADDNOT	EN+14
EDADDYS	EN+8
EDADVIST	EN+9
EDCONFAX	EN+13
EDCONPER	EN+10
EDCONPH	EN+11
EDEMAIL	EN+12
END	EN+7, VAR+15
GETAW	DRAW+5
NEWENTRY	EN+7
VAR	VAR+11, VAR+13, VAR+15, VAR+17, VAR+28
WMSG	EN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD0	EN~, EN+8, VAR+21, VAR+24, CLEAN~, CLEAN+4, CLEAN+5, CLEANZER~, CLEANZER+2, GETAW+29 , GETAW+46, CAPPARSE+9, CAPPARSE+11, NEWENTRY+11*, ADDDT+2, EDADDDT+3, EDADDYS+3, EDADVIST+3, EDADDREF+3, EDCONPER+3 , EDCONPH+3, EDEMAIL+3, EDCONFAX+3, EDADDNOT+4, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD1	EN~, EN+8, VAR+21, GETAW+31, GETAW+47, CAPPARSE+9, CAPPARSE+11, ADDDT+3, EDADDDT+2, EDADDYS+2 , EDADVIST+2, EDADDREF+2, EDCONPER+2, EDCONPH+2, EDEMAIL+2, EDCONFAX+2, EDADDNOT+3, DISNOTES+1, DISNOTES+5, DISNOTES+6
AD2	EN~, VAR+21, GETAW+31, GETAW+48, ADDDT+8*, EDADDDT+4, EDADDYS+4, EDADVIST+4, EDADDREF+4, EDCONPER+4 , EDCONPH+4, EDEMAIL+4, EDCONFAX+4, EDADDNOT+2, DISNOTES+1, DISNOTES+5, DISNOTES+6
ADA	END+1!
ADFN	END+1!
ADT	END+1!
AG	END+1!, GETAW+2*
AG("C"	VAR+20, GETAW+1!, GETAW+20*, GETAW+54
AG("ERR"	VAR+15
AG("N"	VAR+5, VAR+8, VAR+17, VAR+20, GETAW+54*
AG("PG"	DRAW+2*, GETAW+57
AG("SEL"	VAR+20*
AGI	VAR+20*, VAR+27!
>> AGLINE("-"	GETAW+55
>> AGLINE("EQ"	VAR+2
>> AGOPT("ESCAPE"	VAR+14
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+4, VAR+6, VAR+11, VAR+12, VAR+26
>> AGSELECT	GETAW+58
AGY	VAR+19*, VAR+20, VAR+21, 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+38, GETAW+39
DA	CLEANZER+1!, CLEANZER+2, END+1!, NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+4, EDADDDT+8!, EDADDYS+1!, EDADDYS+4* , EDADDYS+8!, EDADVIST+1!, EDADVIST+4, EDADVIST+8!, EDADDREF+1!, EDADDREF+4, EDADDREF+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!, EDADDNOT+1! , EDADDNOT+7!
DA(1	ADDDT+3, ADDDT+4, EDADDDT+2, EDADDDT+5, EDADDYS+2, EDADDYS+5, EDADVIST+2, EDADVIST+5, EDADDREF+2, EDADDREF+5 , EDCONPER+2, EDCONPER+5, EDCONPH+2, EDCONPH+5, EDEMAIL+2, EDEMAIL+5, EDCONFAX+2, EDCONFAX+5, EDADDNOT+2, EDADDNOT+5
DA(2	ADDDT+2, ADDDT+4, EDADDDT+3, EDADDDT+5, EDADDYS+3, EDADDYS+5, EDADVIST+3, EDADVIST+5, EDADDREF+3, EDADDREF+5 , EDCONPER+3, EDCONPER+5, EDCONPH+3, EDCONPH+5, EDEMAIL+3, EDEMAIL+5, EDCONFAX+3, EDCONFAX+5, EDADDNOT+3, EDADDNOT+5
DA(3	EDADDNOT+4*, EDADDNOT+5
DD	ADDDT+6!, EDADDDT+1!, EDADDYS+1!, EDADVIST+1!, EDADDREF+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDADDNOT+1!
>> DFN	VAR+26, GETAW+58, NEWENTRY+6, NEWENTRY+7, NEWENTRY+9*
DFOUT	VAR+16, END+1!
DIC	END+1!, GETAW+7, GETAW+24, GETAW+25, GETAW+30, GETAW+38, GETAW+42, NEWENTRY+2!, NEWENTRY+3, ADDDT+1! , ADDDT+4, EDADDDT+1!, EDADDDT+8!, EDADDYS+1!, EDADDYS+8!, EDADVIST+1!, EDADVIST+8!, EDADDREF+1!, EDADDREF+8!, EDCONPER+1! , EDCONPER+8!, EDCONPH+1!, EDCONPH+8!, EDEMAIL+1!, EDEMAIL+8!, EDCONFAX+1!, EDCONFAX+8!, EDADDNOT+1!, EDADDNOT+5, EDADDNOT+7!
DIC("S"	NEWENTRY+5*
DIC(0	NEWENTRY+4, ADDDT+5
DIE	NEWENTRY+2!, ADDDT+1!, EDADDDT+1!, EDADDDT+5, EDADDDT+8!, EDADDYS+1!, EDADDYS+5, EDADDYS+8!, EDADVIST+1!, EDADVIST+5* , EDADVIST+8!, EDADDREF+1!, EDADDREF+5, EDADDREF+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!, EDADDNOT+1!, EDADDNOT+7!
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+3!, VAR+8*, DISNOTES+9!
DIR("A"	VAR+5, VAR+7
DIR(0	DISNOTES+9*
>> DIWF	GETAW+45*
>> DIWL	GETAW+44*
>> DIWR	GETAW+44*
DLOUT	VAR+15, END+1!
DO	ADDDT+6!, EDADDDT+1!, EDADDYS+1!, EDADVIST+1!, EDADDREF+1!, EDCONPER+1!, EDCONPH+1!, EDEMAIL+1!, EDCONFAX+1!, EDADDNOT+1!
DQOUT	VAR+17, END+1!
DR	END+1!, GETAW+8, GETAW+24, GETAW+25, GETAW+34, GETAW+35, GETAW+38, NEWENTRY+2!, ADDDT+1!, EDADDDT+1! , EDADDDT+6, EDADDDT+8!, EDADDYS+1!, EDADDYS+6, EDADDYS+8!, EDADVIST+1!, EDADVIST+6, EDADVIST+8!, EDADDREF+1!, EDADDREF+6 , EDADDREF+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!, EDADDNOT+1!, EDADDNOT+7!
DTOUT	VAR+16, END+1!
>> DUOUT	VAR+15
DUZ(2	VAR+26, GETAW+58
>> EXEC	CAPPARSE+10*, CAPPARSE+11
>> EXECUTE	GETAW+16*, GETAW+37, GETAW+39
>> EXIT	EN+5, EN+6, EN+7
>> FIELD	CAPPARSE+8*, CAPPARSE+9, CAPPARSE+10, CAPPARSE+11
>> FIELDS	CAPPARSE+5*, CAPPARSE+7
>> 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+56!, GETAW+57, GETAW+59
MYERRS("C"	VAR+13
MYVARS	GETAW+56!, GETAW+59
MYVARS("DFN"	GETAW+58*
MYVARS("FINDCALL"	GETAW+58*
MYVARS("SELECTION"	GETAW+58*
MYVARS("SITE"	GETAW+58*
NEWENTRY	EN~, EN+6, END+1!, GETAW+28, NEWENTRY+12
>> NEWLINE	GETAW+12*, GETAW+21
PIECE	GETAW+33~, GETAW+35, GETAW+36, GETAW+37, GETAW+39, GETAW+40, GETAW+41!, CAPPARSE+7, CAPPARSE+8
>> POSTEXEC	GETAW+19*, GETAW+40
>> 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!
>> ROUTID	DRAW+3*
>> SKIPEXEC	GETAW+9*, GETAW+11
>> TAGCALL	GETAW+15*, GETAW+20
>> TEMPDFN	NEWENTRY+7*, NEWENTRY+9
U	EN+8, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25
>> VD0	GETAW+46*, GETAW+50, GETAW+51
>> VD1	GETAW+47*, GETAW+50, GETAW+51
>> VD2	GETAW+48*, GETAW+50, GETAW+51
>> VD3	GETAW+49, GETAW+50, GETAW+51
VDR	GETAW+34*, GETAW+35, GETAW+41!
WDA	END+1!
WDFN	END+1!
WDT	END+1!
X	GETAW+51, CAPPARSE+11, NEWENTRY+6, DISNOTES+2~, DISNOTES+6
Y	EN+7, VAR+11, VAR+13, VAR+14, VAR+15, VAR+17, VAR+18, VAR+19, END+1!, NEWENTRY+10 , NEWENTRY+11, ADDDT+8

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBEF

Information

Source Information

Call Graph

Call Graph Total: 12

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