Routine: AGEDBED

Information

AGEDBED ; IHS/ASDS/TPF - EDIT/DISPLAY BENEFITS COORDINATOR - PATIENT APPLICATIONS SCREEN ;

Source Information

Source file <AGEDBED.m>

Call Graph

Call Graph Total: 8

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

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
IHS Patient Registration	1	AGEDBEB

Entry Points

Name	Comments	DBIA/ICR reference
DRAW	;EP
END	;CLEAN UP THE VARS USED
CAPPARSE(CAPTION)	;EP - PARSE OUT THE CAP
APPTYPE	;EP - EDIT APPPLICATION TYPE
CLEAN(AD0)	;CLEAN EMPTY RECORD. IF NO APPLICATION DATES HAVE BEEN
WMSG	;DISP THIS MSG IF THERE IS NO AUTHORIZATION DT FOUND
APPPERS	;EDIT PERSON RECEIVING
NEWAPPDT	;
1	;
EN(AD0,AD1,NEWENTRY,CASEPTR)	;EP -
STUFCASE(AD0,AD1,CASEPTR)	;EP
CLEANZER(AD0)	;EP
VAR
NEWENTRY	;NEW ENTRY
EDAPPDT	;EDIT DATE APPLICATION OBTAINED
APPSTAT	;EP - EDIT OVERALL STATUS
GETAW	;DISP

External References

Name	Field # of Occurrence
^AGED	DRAW+4
UPDATE1^AGED	VAR+28
READ^AGED1	VAR+8
EDITCHEK^AGEDERR	GETAW+67
FETCHERR^AGEDERR	GETAW+65
VERIF^AGUTILS	GETAW+68
^DIC	NEWENTRY+8, NEWAPPDT+7
^DIE	STUFCASE+6, EDAPPDT+10, APPSTAT+6, APPTYPE+7, APPPERS+6
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+37, GETAW+58, CAPPARSE+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No entry made" Line Location: EN+6
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+1
Function Call: WRITE	Prompt: !,"Enter a number between 5 and "_AG("N") Line Location: VAR+10
Function Call: WRITE	Prompt: !,"ERRORS ON THIS PAGE. PLEASE EDIT BEFORE EXITING!!" Line Location: VAR+11
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N"),!,"or 'A' to add application submission information." 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: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+37
Function Call: WRITE	Prompt: !,"NO SUBMISSIONS MADE" Line Location: GETAW+47
Function Call: WRITE	Prompt: !,ITEM_"." Line Location: GETAW+53
Function Call: WRITE	Prompt: $S(DR=.04!(DR=.03):$E($$GET1^DIQ(DIC,D0,DR),1,20),1:$$GET1^DIQ(DIC,D0,DR)) Line Location: GETAW+58
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+63
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: !,"WHEN WAS THE PATIENT'S APPLICATION OBTAINED?" Line Location: WMSG+1
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
Function Call: WRITE	Prompt: !,"DELETING APPLICATIONS DATA IS PROHIBITED!" Line Location: EDAPPDT+7
Function Call: WRITE	Prompt: !,"ENTER 'E ENTERED IN ERROR' INTO 'Overall Status' field item #2" Line Location: EDAPPDT+8
Function Call: WRITE	Prompt: !,"TO CLOSE THIS APPLICATION." Line Location: EDAPPDT+9
Routine Call	DIE Line Location: STUFCASE+6 EDAPPDT+10 APPSTAT+6 APPTYPE+7 APPPERS+6
Routine Call	DIC Line Location: NEWENTRY+8 NEWAPPDT+7

FileNo	Call Tags
^AUPNAPPS - [#9000045]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAPPS - [#9000045]	VAR+24, CLEAN+5, GETAW+47, GETAW+49
^DD(	GETAW+24, GETAW+25

Label References

Name	Line Occurrences
@(	VAR+16, VAR+20, VAR+23
APPPERS	EN+9
APPSTAT	EN+8
APPTYPE	EN+7
CAPPARSE	GETAW+6
CLEAN	VAR+24, VAR+27
CLEANZER	CLEAN+6
DRAW	EN+6, VAR
END	VAR+13
GETAW	DRAW+5
NEWENTRY	EN+6
STUFCASE	NEWAPPDT+10
VAR	VAR+10, VAR+11, VAR+13, VAR+16, VAR+17, VAR+20, VAR+30
WMSG	EN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AD0	EN~, VAR+16, VAR+24, VAR+27, CLEAN~, CLEAN+5, CLEAN+6, CLEANZER~, CLEANZER+2, GETAW+29 , GETAW+44, CAPPARSE+9, NEWENTRY+11*, NEWAPPDT+2, NEWAPPDT+10, STUFCASE~, STUFCASE+2, EDAPPDT+2, APPSTAT+2, APPTYPE+2 , APPPERS+2
AD1	EN~, VAR+16, VAR+24, GETAW+31, GETAW+45, CAPPARSE+9, NEWAPPDT+9*, NEWAPPDT+10, STUFCASE~, STUFCASE+3 , EDAPPDT+3, APPSTAT+3, APPTYPE+3, APPPERS+3
ADA	END+1!
ADFN	END+1!
ADT	END+1!
>> AG	GETAW+2*
>> AG("C"	VAR+23, GETAW+1!, GETAW+20*
>> AG("ERR"	VAR+13
>> AG("N"	VAR+4, VAR+7, VAR+10, VAR+17, VAR+23, GETAW+62*
>> AG("PG"	DRAW+2*, GETAW+65
>> AG("SEL"	VAR+23*
AGI	VAR+23*, VAR+29!
>> AGLINE("-"	GETAW+63
>> AGLINE("EQ"	VAR+1
>> AGOPT("ESCAPE"	VAR+12
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, VAR+10
>> AGSELECT	GETAW+66
AGY	VAR+22*, VAR+23, VAR+24, VAR+29!
>> 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
CASEPTR	EN~, NEWAPPDT+10, STUFCASE~
CHOICES	DRAW+1!
CHOICES(	VAR+17, VAR+20, GETAW+51*
>> D0	GETAW+29, GETAW+30, GETAW+31, GETAW+37, GETAW+38, GETAW+52*, GETAW+58
DA	CLEANZER+1!, CLEANZER+2, END+1!, NEWENTRY+2!, NEWAPPDT+1!, STUFCASE+1!, STUFCASE+3, EDAPPDT+1!, EDAPPDT+3, EDAPPDT+11! , APPSTAT+1!, APPSTAT+3, APPSTAT+7!, APPTYPE+1!, APPTYPE+3, APPTYPE+8!, APPPERS+1!, APPPERS+3, APPPERS+7!
DA(1	NEWAPPDT+2, NEWAPPDT+3, STUFCASE+2, STUFCASE+4, EDAPPDT+2, EDAPPDT+4, APPSTAT+2, APPSTAT+4, APPTYPE+2, APPTYPE+4 , APPPERS+2, APPPERS+4
DD	NEWAPPDT+6!, EDAPPDT+1!, APPSTAT+1!, APPTYPE+1!, APPPERS+1!
>> DFN	VAR+28, GETAW+66, NEWENTRY+5, NEWENTRY+7, NEWENTRY+9*
DFOUT	VAR+14, END+1!
DIC	END+1!, GETAW+7, GETAW+24, GETAW+25, GETAW+30, GETAW+37, GETAW+42, GETAW+51, GETAW+58, NEWENTRY+2! , NEWENTRY+3, NEWAPPDT+1!, NEWAPPDT+3*, STUFCASE+1!, EDAPPDT+1!, EDAPPDT+11!, APPSTAT+1!, APPSTAT+7!, APPTYPE+1!, APPTYPE+8! , APPPERS+1!, APPPERS+7!
DIC("S"	NEWENTRY+6, NEWAPPDT+5
DIC(0	NEWENTRY+4, NEWAPPDT+4
DIE	NEWENTRY+2!, NEWAPPDT+1!, STUFCASE+4, EDAPPDT+1!, EDAPPDT+4, EDAPPDT+11!, APPSTAT+1!, APPSTAT+4, APPSTAT+7!, APPTYPE+1! , APPTYPE+4, APPTYPE+8!, APPPERS+1!, APPPERS+4*, APPPERS+7!
DIE("NO^"	APPTYPE+6*
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+2!, VAR+7*, STUFCASE+1!, EDAPPDT+1!
DIR("A"	VAR+4, VAR+6
DLOUT	VAR+13, END+1!
DO	NEWAPPDT+6!, EDAPPDT+1!, APPSTAT+1!, APPTYPE+1!, APPPERS+1!
>> DORTN	VAR+20*
DQOUT	VAR+17, END+1!
DR	END+1!, GETAW+8, GETAW+24, GETAW+25, GETAW+34, GETAW+35, GETAW+37, GETAW+55, GETAW+58, NEWENTRY+2! , NEWAPPDT+1!, STUFCASE+1!, STUFCASE+5, EDAPPDT+1!, EDAPPDT+5, EDAPPDT+11!, APPSTAT+1!, APPSTAT+5, APPSTAT+7!, APPTYPE+1! , APPTYPE+5, APPTYPE+8!, APPPERS+1!, APPPERS+5, APPPERS+7!
DR(1	EDAPPDT+6*
DTOUT	VAR+14, END+1!
>> DUOUT	VAR+13
DUZ(2	VAR+28, GETAW+66
>> EXECUTE	GETAW+16*, GETAW+37, GETAW+38, GETAW+57, GETAW+59
>> EXIT	EN+4, EN+5, EN+6
>> FIELD	CAPPARSE+8*, CAPPARSE+9
>> FIELDS	CAPPARSE+5*, CAPPARSE+7
>> ITEM	GETAW+43, GETAW+50, GETAW+51, GETAW+53, GETAW+62
>> 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+64!, GETAW+65, GETAW+67
MYERRS("C"	VAR+11
MYVARS	GETAW+64!, GETAW+67
MYVARS("DFN"	GETAW+66*
MYVARS("FINDCALL"	GETAW+66*
MYVARS("SELECTION"	GETAW+66*
MYVARS("SITE"	GETAW+66*
NEWENTRY	EN~, EN+5, END+1!, GETAW+28, NEWENTRY+12
>> NEWLINE	GETAW+12*, GETAW+21
>> PARAM1	VAR+20*
>> PARAM2	VAR+20*
>> PARAM3	VAR+20*
PIECE	GETAW+33~, GETAW+35, GETAW+36, GETAW+37, GETAW+38, GETAW+39, GETAW+40!, GETAW+54~, GETAW+55, GETAW+56 , GETAW+57, GETAW+59, GETAW+60, GETAW+61!, CAPPARSE+7*, CAPPARSE+8
>> POSTEXEC	GETAW+19*, GETAW+39, GETAW+60
>> PRECAPEX	GETAW+18*, GETAW+24, GETAW+25
>> PREEXEC	GETAW+17*, GETAW+36, GETAW+56
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
>> TEMPDFN	NEWENTRY+7*, NEWENTRY+9
U	VAR+20, GETAW+5, GETAW+7, GETAW+8, GETAW+12, GETAW+13, GETAW+14, GETAW+15, GETAW+24, GETAW+25 , GETAW+51
>> VD0	GETAW+44*, GETAW+47, GETAW+49, GETAW+51, GETAW+52
>> VD1	GETAW+45, GETAW+46, GETAW+47, GETAW+49, GETAW+51, GETAW+52
>> VD2	GETAW+48, GETAW+49, GETAW+51, GETAW+52
>> VDR	GETAW+34*, GETAW+35, GETAW+55
WDA	END+1!
WDFN	END+1!
WDT	END+1!
>> X	NEWENTRY+5*
Y	EN+6, VAR+9, VAR+10, VAR+11, VAR+12, VAR+13, VAR+16, VAR+17, VAR+20, VAR+21 , VAR+22, END+1!, NEWENTRY+10, NEWENTRY+11, NEWAPPDT+8, NEWAPPDT+9

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBED

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

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