Routine: AGEDBEE

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

Entry Points

Name	Comments	DBIA/ICR reference
DRAW	;EP
END	;CLEAN UP THE VARS USED
CAPPARSE(CAPTION)	;EP - PARSE OUT THE CAP
APSUBDT	;EP - EDIT APPLICATION SUBMISSION STATUS DT
EDDTSUB	;EDIT DT APPLICATION SUBMITTED
ADSUBSTA	;EP - ADD APPLICATION SUBMISSION DT
WMSG	;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
APSUBST	;EP - EDIT SUBMISSION STATUS
1	;
CLEANZER(AD0,AD1)	;EP
CLEAN(AD0,AD1,AD2)	;CLEAN EMPTY RECORD. IF NO SUBMISSION DATES HAVE
GETAW	;DISP
APPSUBBY	;EP - EDIT REASON FOR SUBMISSION
VAR
APDTSUB	;APPLICATION SUBMISSION DT
NEWENTRY	;EP - NEW ENTRY
EN(AD0,AD1,AD2,NEWENTRY)	;
APPREAS	;EP - EDIT REASON FOR SUBMISSION
APSUBVIA	;EP - EDIT APPLICATION SUBMITTED VIA

External References

Name	Field # of Occurrence
^AGED	DRAW+4
UPDATE1^AGED	VAR+27
READ^AGED1	VAR+8
EDITCHEK^AGEDERR	GETAW+65
FETCHERR^AGEDERR	GETAW+63
VERIF^AGUTILS	GETAW+66
^DIC	APDTSUB+7, ADSUBSTA+8
^DIE	APSUBVIA+7, APPREAS+7, APPSUBBY+7, APSUBDT+8, APSUBST+8, EDDTSUB+7
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+36, GETAW+56, CAPPARSE+9

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+1
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!" Line Location: VAR+10
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N"),!,"or 'A' to add Application Submission Status information." Line Location: VAR+15
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+36
Function Call: WRITE	Prompt: !,"NO STATUSES ENTERED" Line Location: GETAW+46
Function Call: WRITE	Prompt: !,ITEM_"." Line Location: GETAW+52
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+56
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+61
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: $P(CAPTION,RBRACKET,2) Line Location: CAPPARSE+10
Function Call: WRITE	Prompt: !,"You must first enter a APPLICATION SUBMISSION DATE" Line Location: WMSG+1
Routine Call	DIE Line Location: APSUBVIA+7 APPREAS+7 APPSUBBY+7 APSUBDT+8 APSUBST+8 EDDTSUB+7
Routine Call	DIC Line Location: APDTSUB+7 ADSUBSTA+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAPPS - [#9000045]	CLEAN+5, GETAW+46, GETAW+48
^AUPNAUTH - [#9000046]	VAR+26
^DD(	GETAW+24, GETAW+25

Label References

Name	Line Occurrences
@(	VAR+18, VAR+21
ADSUBSTA	VAR+14
APSUBST	ADSUBSTA+11, APSUBDT+11
CAPPARSE	GETAW+6
CLEANZER	CLEAN+6
DRAW	EN+3, VAR
END	EN+3, VAR+12
GETAW	DRAW+5
NEWENTRY	EN+3
VAR	VAR+10, VAR+12, VAR+14, VAR+15, VAR+18, VAR+29
WMSG	EN+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD0	EN~, VAR+18*, VAR+26, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2, GETAW+31, GETAW+43 , CAPPARSE+9, APDTSUB+3, APSUBVIA+3, APPREAS+3, APPSUBBY+3, ADSUBSTA+3, APSUBDT+3, APSUBST+3, EDDTSUB+3
AD1	EN~, VAR+18*, VAR+26, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2, GETAW+31, GETAW+44 , CAPPARSE+9, APDTSUB+2, APSUBVIA+2, APPREAS+2, APPSUBBY+2, ADSUBSTA+2, APSUBDT+2, APSUBST+2, EDDTSUB+2
AD2	EN~, VAR+18, VAR+26, CLEAN~, CLEANZER+2, GETAW+31, GETAW+45, APDTSUB+8, APSUBVIA+4, APPREAS+4 , APPSUBBY+4, ADSUBSTA+4, APSUBDT+4, APSUBST+4, EDDTSUB+4
>> AD3	VAR+18, ADSUBSTA+10, APSUBDT+5, APSUBST+5
ADA	END+1!
ADFN	END+1!
ADT	END+1!
AG	END+1!, GETAW+2*
AG("C"	VAR+21, GETAW+1!, GETAW+20*
AG("ERR"	VAR+12
AG("N"	VAR+4, VAR+15, VAR+21, GETAW+60*
AG("PG"	DRAW+2*, GETAW+63
AG("SEL"	VAR+21*
AGI	VAR+21*, VAR+28!
>> AGLINE("-"	GETAW+61
>> AGLINE("EQ"	VAR+1
>> AGOPT("ESCAPE"	VAR+11
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+3, VAR+5, VAR+9
>> AGSELECT	GETAW+64
AGY	VAR+20*, VAR+21, VAR+28!
>> 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+10
CHOICES	END+1!, DRAW+1!
CHOICES(	VAR+18, GETAW+50*
>> D0	GETAW+31, GETAW+36, GETAW+37, GETAW+51*, GETAW+56
DA	CLEANZER+1!, CLEANZER+2, END+1!, APDTSUB+1!, APSUBVIA+1!, APSUBVIA+4, APSUBVIA+8!, APPREAS+1!, APPREAS+4, APPREAS+8! , APPSUBBY+1!, APPSUBBY+4, APPSUBBY+8!, ADSUBSTA+1!, APSUBDT+1!, APSUBDT+5, APSUBDT+9, APSUBDT+10!, APSUBST+1!, APSUBST+5 , APSUBST+9!, EDDTSUB+1!, EDDTSUB+4*, EDDTSUB+8!
DA(1	APDTSUB+2, APDTSUB+4, APSUBVIA+2, APSUBVIA+5, APPREAS+2, APPREAS+5, APPSUBBY+2, APPSUBBY+5, ADSUBSTA+4, ADSUBSTA+5 , APSUBDT+4, APSUBDT+6, APSUBST+4, APSUBST+6, EDDTSUB+2, EDDTSUB+5
DA(2	CLEANZER+2, APDTSUB+3, APDTSUB+4, APSUBVIA+3, APSUBVIA+5, APPREAS+3, APPREAS+5, APPSUBBY+3, APPSUBBY+5, ADSUBSTA+2 , ADSUBSTA+5, APSUBDT+2, APSUBDT+6, APSUBST+2, APSUBST+6, EDDTSUB+3*, EDDTSUB+5
DA(3	CLEANZER+2, ADSUBSTA+3, ADSUBSTA+5, APSUBDT+3, APSUBDT+6, APSUBST+3, APSUBST+6
DD	APDTSUB+6!, APSUBVIA+1!, APPREAS+1!, APPSUBBY+1!, ADSUBSTA+7!, APSUBDT+1!, APSUBST+1!, EDDTSUB+1!
>> DFN	VAR+27, GETAW+64
DFOUT	VAR+13, END+1!
DIC	END+1!, GETAW+7, GETAW+24, GETAW+25, GETAW+30, GETAW+36, GETAW+41, GETAW+50, GETAW+56, APDTSUB+1! , APDTSUB+4, APSUBVIA+1!, APSUBVIA+8!, APPREAS+1!, APPREAS+8!, APPSUBBY+1!, APPSUBBY+8!, ADSUBSTA+1!, ADSUBSTA+5*, APSUBDT+1! , APSUBDT+10!, APSUBST+1!, APSUBST+9!, EDDTSUB+1!, EDDTSUB+8!
DIC(0	APDTSUB+5, ADSUBSTA+6
DIE	APDTSUB+1!, APSUBVIA+1!, APSUBVIA+5, APSUBVIA+8!, APPREAS+1!, APPREAS+5, APPREAS+8!, APPSUBBY+1!, APPSUBBY+5, APPSUBBY+8! , ADSUBSTA+1!, APSUBDT+1!, APSUBDT+6, APSUBDT+10!, APSUBST+1!, APSUBST+6, APSUBST+9!, EDDTSUB+1!, EDDTSUB+5, EDDTSUB+8!
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+2!, VAR+7*
DIR("A"	VAR+4, VAR+6
DLOUT	VAR+12, END+1!
DO	APDTSUB+6!, APSUBVIA+1!, APPREAS+1!, APPSUBBY+1!, ADSUBSTA+7!, APSUBDT+1!, APSUBST+1!, EDDTSUB+1!
>> DORTN	VAR+18*
DQOUT	VAR+15, END+1!
DR	END+1!, GETAW+8, GETAW+24, GETAW+25, GETAW+33, GETAW+34, GETAW+36, GETAW+54, GETAW+56, APDTSUB+1! , APSUBVIA+1!, APSUBVIA+6, APSUBVIA+8!, APPREAS+1!, APPREAS+6, APPREAS+8!, APPSUBBY+1!, APPSUBBY+6, APPSUBBY+8!, ADSUBSTA+1! , APSUBDT+1!, APSUBDT+7, APSUBDT+10!, APSUBST+1!, APSUBST+7, APSUBST+9!, EDDTSUB+1!, EDDTSUB+6*, EDDTSUB+8!
DTOUT	VAR+13, END+1!
>> DUOUT	VAR+12
DUZ(2	VAR+27, GETAW+64
>> EXECUTE	GETAW+16*, GETAW+36, GETAW+37, GETAW+56, GETAW+57
>> FIELD	CAPPARSE+8*, CAPPARSE+9
>> FIELDS	CAPPARSE+5*, CAPPARSE+7
>> ITEM	GETAW+42, GETAW+49, GETAW+50, GETAW+52, GETAW+60
>> ITEMNUM	GETAW+14*, GETAW+20, GETAW+22, GETAW+23
LBRACKET	CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+3, CAPPARSE+5, CAPPARSE+6, CAPPARSE+8, CAPPARSE+11!
MYERRS	GETAW+62!, GETAW+63, GETAW+65
MYERRS("C"	VAR+10
MYVARS	GETAW+62!, GETAW+65
MYVARS("DFN"	GETAW+64*
MYVARS("FINDCALL"	GETAW+64*
MYVARS("SELECTION"	GETAW+64*
MYVARS("SITE"	GETAW+64*
NEWENTRY	EN~, EN+3, EN+4*, END+1!, GETAW+28
>> NEWLINE	GETAW+12*, GETAW+21
PIECE	GETAW+32~, GETAW+34, GETAW+35, GETAW+36, GETAW+37, GETAW+38, GETAW+39!, GETAW+53~, GETAW+54, GETAW+55 , GETAW+56, GETAW+57, GETAW+58, GETAW+59!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC	GETAW+19*, GETAW+38, GETAW+58
>> PRECAPEX	GETAW+18*, GETAW+24, GETAW+25
>> PREEXEC	GETAW+17*, GETAW+35, GETAW+55
RBRACKET	CAPPARSE+1~, CAPPARSE+2*, CAPPARSE+8, CAPPARSE+10, CAPPARSE+11!
REC	END+1!
>> ROUTID	DRAW+3*
>> SKIPEXEC	GETAW+9*, GETAW+11
>> TAGCALL	GETAW+15*, GETAW+20
U	VAR+18, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25 , GETAW+50
>> VD0	GETAW+43*, GETAW+46, GETAW+48, GETAW+50, GETAW+51
>> VD1	GETAW+44*, GETAW+46, GETAW+48, GETAW+50, GETAW+51
>> VD2	GETAW+45*, GETAW+46, GETAW+48, GETAW+50, GETAW+51
>> VD3	GETAW+47, GETAW+48, GETAW+50, GETAW+51
>> VDR	GETAW+33*, GETAW+34, GETAW+54
WDA	END+1!
WDFN	END+1!
WDT	END+1!
Y	EN+3, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+18, VAR+19, VAR+20, END+1! , APDTSUB+8, ADSUBSTA+9, ADSUBSTA+10

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBEE

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

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