Routine: AGEDBEB

Package	Total	Call Graph
IHS Patient Registration	6	(,UPDATE1)^AGED READ^AGED1 EN^AGEDBED EN^AGEDBEH (EDITCHEK,FETCHERR)^AGEDERR (ALERTMSG,VERIF)^AGUTILS
VA Fileman	6	^DIC ^DIE ^DIK $$GET1^DIQ ^DIR EN^DIWE

Entry Points

Name	Comments	DBIA/ICR reference
EDDTCOM	;EP - DT COMPLETED
GETNOTES	;EP
EN(RD0,RD1,NEWENTRY)	;
GETAW	;DISP
NEWENTRY	;NEW ENTRY
ENUFOPEN(RD0)	;EP - IF NO APPS OR SPEND DOWN INFO, OK TO DELETE
STUFFBY	;STUFF USER INITS AND USER PTR
EDCASNUM	;CASE #
NEWCASDT	;
CLEAN(RD0)	;EP -
1	;
EDCASE	;CASE WORKER
STUFSTAT	;EP - STUFF STATUS IF COMPLETED BY FLD IS POPULATED
EDCASTO	;ASSIGNED TO
SPENDOWN	;EP - GET SPEND DOWNS FOR THE DATE REFERRED
DRAW	;EP
END	;CLEAN UP VARS
EDTYPE	;CASE TYPE
EDNOTES	;EP - EDIT CASE NOTES
NODELALL(RD0)	;EP
VAR
WMSG	;DISP MSG IF NO ENTRY IS FOUND IN ANY OF THE GUARAN
EDREAS	;CASE REASON
EDCASDT	;CASE DT
CLEANZER(RD0)	;EP
EDCOMBY	;EP - COMPLETED BY
NOAPSCHS(DFN)	;EP

External References

Name	Field # of Occurrence
^AGED	DRAW+4
UPDATE1^AGED	EN+3, VAR+28
READ^AGED1	VAR+11
EN^AGEDBED	VAR+18
EN^AGEDBEH	VAR+19
EDITCHEK^AGEDERR	GETAW+98
FETCHERR^AGEDERR	GETAW+96
ALERTMSG^AGUTILS	EDCASTO+16
VERIF^AGUTILS	GETAW+99
^DIC	NEWENTRY+8, NEWCASDT+7
^DIE	EDCOMBY+10, EDDTCOM+7, EDREAS+6, EDCASE+6, EDCASNUM+6, EDTYPE+6, EDCASDT+6, EDCASTO+6, STUFFBY+6, STUFSTAT+6
^DIK	CLEANZER+2
$$GET1^DIQ	GETAW+33, GETAW+61, GETAW+88
^DIR	EDNOTES+2, EDNOTES+6
EN^DIWE	EDNOTES+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"No entry made" Line Location: EN+4
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+2
Function Call: WRITE	Prompt: !,"Enter a number between 9 and "_AG("N") Line Location: VAR+13
Function Call: WRITE	Prompt: !,"Enter a number between 8 and "_AG("N") Line Location: VAR+15
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N"),!,"or 'A' to add application information.",!,"or 'S' to add SPEND DOWN information" Line Location: VAR+20
Function Call: WRITE	Prompt: !,$E(CAPTION,2,199) Line Location: GETAW+7
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+19
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+20
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,D0,DR) Line Location: GETAW+33
Function Call: WRITE	Prompt: !,"NO APPLICATIONS ASSOCIATED WITH THIS CASE",! Line Location: GETAW+42
Function Call: WRITE	Prompt: !,"NO APPLICATIONS ASSOCIATED WITH THIS CASE",! Line Location: GETAW+45
Function Call: WRITE	Prompt: ?0,ITEM_"." Line Location: GETAW+55
Function Call: WRITE	Prompt: !,ITEM_"." Line Location: GETAW+56
Function Call: WRITE	Prompt: $S(DR=.03:$E($$GET1^DIQ(DIC,D0,DR),1,20),1:$$GET1^DIQ(DIC,D0,DR)) Line Location: GETAW+61
Function Call: WRITE	Prompt: !,"NO SPEND DOWN INFORMATION ASSOCIATED WITH THIS CASE",! Line Location: GETAW+69
Function Call: WRITE	Prompt: !,"NO SPEND DOWN INFORMATION ASSOCIATED WITH THIS CASE",! Line Location: GETAW+73
Function Call: WRITE	Prompt: ?0,ITEM_"." Line Location: GETAW+82
Function Call: WRITE	Prompt: !,ITEM_"." Line Location: GETAW+83
Function Call: WRITE	Prompt: $S(DR=.04:$J($$GET1^DIQ(DIC,D0,DR),6,2),(DR=.02!(DR=.03)):$E($$GET1^DIQ(DIC,D0,DR),1,15),1:$$GET1^DIQ(DIC,D0,DR)) Line Location: GETAW+88
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+94
Function Call: WRITE	Prompt: ?39,$J($P(SPDDATA,U,3),8,2),?51,$P(SPDDATA,U,2),?67,SPDDATE Line Location: SPENDOWN+4
Function Call: WRITE	Prompt: !,"You must first enter a BENEFIT CASE DATE" Line Location: WMSG+2
Function Call: WRITE	Prompt: !! Line Location: NEWENTRY+1
Function Call: WRITE	Prompt: !,"CANNOT DELETE THIS OPEN CASE - PATIENT HAS APPLICATIONS AND SPEND DOWN INFORMATION!" Line Location: EDCOMBY+4
Function Call: WRITE	Prompt: !,"CANNOT DELETE THIS OPEN CASE - PATIENT HAS APPLICATIONS AND SPEND DOWN INFORMATION!" Line Location: ENUFOPEN+7
Function Call: WRITE	Prompt: ! Line Location: EDNOTES+2
Function Call: WRITE	Prompt: ! Line Location: EDNOTES+6
Function Call: WRITE	Prompt: LINE Line Location: GETNOTES+10
Routine Call	DIE Line Location: EDCOMBY+10 EDDTCOM+7 EDREAS+6 EDCASE+6 EDCASNUM+6 EDTYPE+6 EDCASDT+6 EDCASTO+6 STUFFBY+6 STUFSTAT+6
Routine Call	DIC Line Location: NEWENTRY+8 NEWCASDT+7
Routine Call	DIR Line Location: EDNOTES+2 EDNOTES+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^AUPNBENR - [#9000044]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAPPS - [#9000045]	GETAW+49
^AUPNAPPS("B"	GETAW+41, NOAPSCHS+2
^AUPNAPPS("C"	GETAW+44, GETAW+48, GETAW+51
^AUPNBENR - [#9000044]	VAR+25, VAR+26, CLEAN+1, ENUFOPEN+5, ENUFOPEN+6, NODELALL+7, NODELALL+8, EDNOTES+4, EDNOTES+5, GETNOTES+3 , GETNOTES+5, GETNOTES+9
^AUPNCHS - [#9000047]	GETAW+76, SPENDOWN+1, SPENDOWN+2
^AUPNCHS("B"	GETAW+68, NOAPSCHS+2
^AUPNCHS("C"	GETAW+72, GETAW+75, GETAW+78
^DD(	GETAW+22, GETAW+23
^DD("DD"	SPENDOWN+3
^VA(200 - [#200]	EDCASTO+14

Label References

Name	Line Occurrences
$$NOAPSCHS	ENUFOPEN+1, NODELALL+2
@(	VAR+21, VAR+24
CLEAN	EN+5, VAR+25, VAR+26
CLEANZER	CLEAN+2
DRAW	EN+4, VAR
EDCASNUM	EN+6
EDCASTO	EN+7
EDDTCOM	EDCOMBY+11
EDREAS	EN+5
END	VAR+16
GETAW	DRAW+5
GETNOTES	GETAW+65
NEWENTRY	EN+4
SPENDOWN	GETAW+92
STUFFBY	NEWCASDT+8
STUFSTAT	EDCOMBY+11
VAR	VAR+2, VAR+15, VAR+16, VAR+18, VAR+19, VAR+20, VAR+21, VAR+30
WMSG	EN+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADA	END+1!
ADFN	END+1!
ADT	END+1!
AG	END+1!, GETAW+3*
AG("C"	VAR+24, GETAW+1!, GETAW+18*
AG("ERR"	VAR+16
AG("N"	VAR+6, VAR+8, VAR+9, VAR+10, VAR+15, VAR+20, VAR+24, GETAW+93*
AG("PG"	DRAW+3*, GETAW+96
AG("SEL"	VAR+24*
>> AGCHRT	EDCASTO+13
AGI	VAR+24*, VAR+29!
>> AGLINE("-"	GETAW+94
>> AGLINE("EQ"	VAR+1
>> AGOPT("ESCAPE"	VAR+3
>> AGPAT	EDCASTO+12
AGSCRN	END+1!, GETAW+3, GETAW+4*, GETAW+5, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12 , GETAW+13, GETAW+14, GETAW+15, GETAW+16, GETAW+17
>> AGSEENLY	VAR+7, VAR+12, VAR+15, VAR+28, EDNOTES+2
>> AGSELECT	GETAW+97
>> AGSENNLY	VAR+5
AGY	VAR+23*, VAR+24, VAR+25, VAR+29!
ALERT	EDCASTO+1!
ALERT(0	EDCASTO+10*
ALERT(1	EDCASTO+11*
ALERT(2	EDCASTO+12*
ALERT(3	EDCASTO+13*
ALERT(4	EDCASTO+14*
>> AUPNPAT	GETAW+41, GETAW+49, GETAW+68, GETAW+76
>> BD1	GETAW+50, GETAW+51, GETAW+53, GETAW+54, GETAW+77, GETAW+78, GETAW+80, GETAW+81, SPENDOWN+1, SPENDOWN+2
>> CAPDENT	GETAW+11*, GETAW+22, GETAW+23
>> CAPTION	GETAW+6*, GETAW+7, GETAW+22, GETAW+23
>> CASENUM	EDCASTO+11
>> CASEPTR	GETAW+43, GETAW+44, GETAW+48, GETAW+51, GETAW+71, GETAW+72, GETAW+75, GETAW+78
CHOICES	DRAW+1!
CHOICES(	VAR+20, VAR+21, GETAW+53, GETAW+80
D0	GETAW+25, GETAW+26, GETAW+27, GETAW+29, GETAW+33, GETAW+34, GETAW+54, GETAW+61, GETAW+81*, GETAW+88 , EDCASDT+7!
DA	CLEANZER+1!, CLEANZER+2, END+1!, NEWENTRY+2!, NEWCASDT+1!, EDCOMBY+5!, EDCOMBY+7, EDCOMBY+12!, EDDTCOM+1!, EDDTCOM+3* , EDDTCOM+8!, EDREAS+1!, EDREAS+3, EDREAS+7!, EDCASE+1!, EDCASE+3, EDCASE+7!, EDCASNUM+1!, EDCASNUM+3, EDCASNUM+7! , EDTYPE+1!, EDTYPE+3, EDTYPE+7!, EDCASDT+1!, EDCASDT+2, EDCASDT+7!, EDCASTO+1!, EDCASTO+2, EDCASTO+8!, STUFFBY+1! , STUFFBY+3, STUFFBY+7!, STUFSTAT+1!, STUFSTAT+3, STUFSTAT+7!, EDNOTES+8!, EDNOTES+13!
DA(1	NEWCASDT+2, NEWCASDT+3, EDCOMBY+6, EDCOMBY+8, EDDTCOM+2, EDDTCOM+4, EDREAS+2, EDREAS+4, EDCASE+2, EDCASE+4 , EDCASNUM+2, EDCASNUM+4, EDTYPE+2, EDTYPE+4, EDCASDT+3, EDCASDT+5, EDCASTO+3, EDCASTO+4, STUFFBY+2, STUFFBY+4 , STUFSTAT+2, STUFSTAT+4, EDNOTES+9, EDNOTES+11
DA(2	EDNOTES+10*, EDNOTES+11
DD	NEWCASDT+6!, EDCOMBY+5!, EDDTCOM+1!, EDREAS+1!, EDCASE+1!, EDCASNUM+1!, EDTYPE+1!, EDCASDT+1!, EDCASDT+7!, EDCASTO+1! , STUFFBY+1!, STUFSTAT+1!, EDNOTES+8!
DFN	EN+3, VAR+28, GETAW+97, NEWENTRY+5, NEWENTRY+7, NEWENTRY+9*, ENUFOPEN+1, NODELALL+2, NOAPSCHS~, NOAPSCHS+2
DFOUT	VAR+17, END+1!
DIC	END+1!, GETAW+8, GETAW+22, GETAW+23, GETAW+26, GETAW+28, GETAW+33, GETAW+38, GETAW+53, GETAW+61 , GETAW+65, GETAW+66, GETAW+80, GETAW+88, NEWENTRY+2!, NEWENTRY+3, NEWCASDT+1!, NEWCASDT+3, EDCOMBY+5!, EDCOMBY+12! , EDDTCOM+1!, EDDTCOM+8!, EDREAS+1!, EDREAS+7!, EDCASE+1!, EDCASE+7!, EDCASNUM+1!, EDCASNUM+7!, EDTYPE+1!, EDTYPE+7! , EDCASDT+1!, EDCASDT+7!, EDCASTO+1!, EDCASTO+8!, STUFFBY+1!, STUFFBY+7!, STUFSTAT+1!, STUFSTAT+7!, EDNOTES+8!, EDNOTES+11 , EDNOTES+13!
DIC("S"	NEWENTRY+6, NEWCASDT+5
DIC(0	NEWENTRY+4, NEWCASDT+4
DIDEL	EDCASDT+1!
DIE	NEWENTRY+2!, NEWCASDT+1!, EDCOMBY+5!, EDCOMBY+8, EDCOMBY+12!, EDDTCOM+1!, EDDTCOM+4, EDDTCOM+8!, EDREAS+1!, EDREAS+4* , EDREAS+7!, EDCASE+1!, EDCASE+4, EDCASE+7!, EDCASNUM+1!, EDCASNUM+4, EDCASNUM+7!, EDTYPE+1!, EDTYPE+4, EDTYPE+7! , EDCASDT+1!, EDCASDT+5, EDCASDT+7!, EDCASTO+1!, EDCASTO+4, EDCASTO+8!, STUFFBY+1!, STUFFBY+4, STUFFBY+7!, STUFSTAT+1! , STUFSTAT+4*, STUFSTAT+7!, EDNOTES+8!, EDNOTES+13!
DIE("NO^"	EDDTCOM+6*
DIK	CLEANZER+1!, CLEANZER+2*
DIR	VAR+4!, EDCASDT+1!, EDNOTES+2!, EDNOTES+6!
DIR("A"	VAR+6, VAR+8, VAR+9, EDNOTES+6
DIR(0	VAR+10, EDNOTES+2, EDNOTES+6*
DLOUT	VAR+16, END+1!
DO	NEWCASDT+6!, EDCOMBY+5!, EDDTCOM+1!, EDREAS+1!, EDCASE+1!, EDCASNUM+1!, EDTYPE+1!, EDCASDT+1!, EDCASTO+1!, STUFFBY+1! , STUFSTAT+1!, EDNOTES+8!
>> DORTN	VAR+21*
DQOUT	VAR+20, END+1!
DR	END+1!, GETAW+22, GETAW+23, GETAW+31, GETAW+33, GETAW+58, GETAW+61, GETAW+85, GETAW+88, NEWENTRY+2! , NEWCASDT+1!, EDCOMBY+5!, EDCOMBY+9, EDCOMBY+12!, EDDTCOM+1!, EDDTCOM+5, EDDTCOM+8!, EDREAS+1!, EDREAS+5, EDREAS+7! , EDCASE+1!, EDCASE+5, EDCASE+7!, EDCASNUM+1!, EDCASNUM+5, EDCASNUM+7!, EDTYPE+1!, EDTYPE+5, EDTYPE+7!, EDCASDT+1! , EDCASDT+4, EDCASDT+7!, EDCASTO+1!, EDCASTO+5, EDCASTO+8!, STUFFBY+1!, STUFFBY+5, STUFFBY+7!, STUFSTAT+1!, STUFSTAT+5* , STUFSTAT+7!, EDNOTES+8!, EDNOTES+13!
DTOUT	VAR+17, END+1!
>> DUOUT	VAR+16
DUZ	EDCASTO+14, EDCASTO+16
DUZ(2	EN+3, VAR+28, GETAW+97
>> EXECUTE	GETAW+14*, GETAW+33, GETAW+34, GETAW+60, GETAW+62, GETAW+87, GETAW+89
>> EXIT	EN+1, EN+3, EN+4, EN+5*
IEN	GETNOTES+1~, GETNOTES+5*, GETNOTES+7, GETNOTES+9
IOSL	EDNOTES+6
>> ITEM	GETAW+40, GETAW+52, GETAW+53, GETAW+55, GETAW+56, GETAW+79*, GETAW+80, GETAW+82, GETAW+83, GETAW+93
>> ITEMNUM	GETAW+12*, GETAW+18, GETAW+20, GETAW+21
>> LINE	GETNOTES+9*, GETNOTES+10
>> LSTONE	SPENDOWN+1*, SPENDOWN+2
MYERRS	GETAW+95!, GETAW+96, GETAW+98
MYERRS("C"	VAR+2
MYVARS	GETAW+95!, GETAW+98
MYVARS("DFN"	GETAW+97*
MYVARS("FINDCALL"	GETAW+97*
MYVARS("SELECTION"	GETAW+97*
MYVARS("SITE"	GETAW+97*
NEWENTRY	EN~, EN+3, END+1!, GETAW+24, GETAW+39, GETAW+65, GETAW+67, NEWENTRY+12
>> NEWLINE	GETAW+10*, GETAW+19
NODELALL	NODELALL+5~, NODELALL+6, NODELALL+9, NODELALL+11
OPEN	ENUFOPEN+2~, ENUFOPEN+3, ENUFOPEN+6, ENUFOPEN+7, ENUFOPEN+8
>> PARAM1	VAR+21*
>> PARAM2	VAR+21*
PIECE	GETAW+30~, GETAW+31, GETAW+32, GETAW+33, GETAW+34, GETAW+35, GETAW+36!, GETAW+57~, GETAW+58, GETAW+59 , GETAW+60, GETAW+62, GETAW+63, GETAW+64!, GETAW+84~, GETAW+85*, GETAW+86, GETAW+87, GETAW+89, GETAW+90 , GETAW+91!
>> POSTEXEC	GETAW+17*, GETAW+35, GETAW+63, GETAW+90
>> PRECAPEX	GETAW+16*, GETAW+22, GETAW+23
>> PREEXEC	GETAW+15*, GETAW+32, GETAW+59, GETAW+86
RD0	EN~, EN+5, VAR+25, VAR+26, CLEAN~, CLEAN+1, CLEAN+2, CLEANZER~, CLEANZER+2, GETAW+2 , GETAW+25, NEWENTRY+11*, NEWCASDT+2, EDCOMBY+6, ENUFOPEN~, ENUFOPEN+5, ENUFOPEN+6, EDDTCOM+2, EDREAS+2, EDCASE+2 , EDCASNUM+2, EDTYPE+2, NODELALL~, NODELALL+7, NODELALL+8, EDCASDT+3, EDCASTO+3, STUFFBY+2, STUFSTAT+2, EDNOTES+4 , EDNOTES+5, EDNOTES+10, GETNOTES+2, GETNOTES+3, GETNOTES+5, GETNOTES+9
RD1	EN~, VAR+18, VAR+19, VAR+25, GETAW+27, GETAW+43, GETAW+71, NEWCASDT+8*, EDCOMBY+7, EDDTCOM+3 , EDREAS+3, EDCASE+3, EDCASNUM+3, EDTYPE+3, EDCASDT+2, EDCASTO+2, STUFFBY+3, STUFSTAT+3, EDNOTES+4, EDNOTES+5 , EDNOTES+9, GETNOTES+2, GETNOTES+3, GETNOTES+5, GETNOTES+9
REC	END+1!, ENUFOPEN+2~, ENUFOPEN+4, ENUFOPEN+5, ENUFOPEN+6, EDNOTES+3~, EDNOTES+4, EDNOTES+5
ROUTID	END+1!, DRAW+2*
>> SPDDATA	SPENDOWN+2*, SPENDOWN+3, SPENDOWN+4
>> SPDDATE	SPENDOWN+3*, SPENDOWN+4
>> TAGCALL	GETAW+13*, GETAW+18
>> TEMPDFN	NEWENTRY+7*, NEWENTRY+9
U	VAR+21, GETAW+6, GETAW+8, GETAW+9, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+22, GETAW+23 , GETAW+49, GETAW+53, GETAW+76, GETAW+80, SPENDOWN+3, SPENDOWN+4, EDCOMBY+11, ENUFOPEN+6, EDCASTO+7, EDCASTO+14 , EDNOTES+5
>> VD0	GETAW+2, GETAW+41, GETAW+42, GETAW+44, GETAW+45, GETAW+47, GETAW+48, GETAW+49, GETAW+51, GETAW+53 , GETAW+54, GETAW+68, GETAW+69, GETAW+72, GETAW+73, GETAW+74, GETAW+75*, GETAW+76, GETAW+78, GETAW+80 , GETAW+81, SPENDOWN+1, SPENDOWN+2
>> VDR	GETAW+9*, GETAW+31, GETAW+58, GETAW+85
WDA	END+1!
WDFN	END+1!
WDT	END+1!
>> X	EN+5, NEWENTRY+5*, EDCOMBY+11, EDCASTO+7, EDCASTO+15
>> XMY	EDCASTO+16
>> XMY(	EDCASTO+15*
Y	EN+4, VAR+2, VAR+3, VAR+12, VAR+15, VAR+16, VAR+18, VAR+19, VAR+20, VAR+21 , VAR+22, VAR+23, END+1!, SPENDOWN+3*, NEWENTRY+10, NEWENTRY+11, NEWCASDT+8

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBEB

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