Routine: AGEDBEA

Package	Total	Call Graph
IHS Patient Registration	6	(,UPDATE1)^AGED READ^AGED1 ^AGED13 ^AGED4A CLS^AGEDBEI VERIF^AGUTILS
VA Fileman	1	$$GET1^DIQ

Package	Total	Caller Graph
IHS Patient Registration	2	AGED13 AGED4A

Entry Points

Name	Comments	DBIA/ICR reference
DRAW	;EP
EN	;
END
1	;
3	;
2	;
GETAW	;DISP
VAR

External References

Name	Field # of Occurrence
^AGED	DRAW+4
UPDATE1^AGED	VAR+57
READ^AGED1	VAR+36
^AGED13	END+6
^AGED4A	END+5
CLS^AGEDBEI	VAR+46
VERIF^AGUTILS	GETAW+108
$$GET1^DIQ	GETAW+40, GETAW+61, GETAW+63, GETAW+64, GETAW+65, GETAW+83, GETAW+102

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,AGLINE("EQ") Line Location: VAR+1
Function Call: WRITE	Prompt: !,"Enter an R to Resume editing or a item number" Line Location: VAR+43
Function Call: WRITE	Prompt: !,"There are no items to select!" Line Location: VAR+52
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: VAR+53
Function Call: WRITE	Prompt: !!,"PATIENT IEN NOT DEFINED!" Line Location: GETAW+2
Function Call: WRITE	Prompt: !,$E(CAPTION,2,199) Line Location: GETAW+14
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+26
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+27
Function Call: WRITE	Prompt: $$GET1^DIQ(DIC,VD0,DR) Line Location: GETAW+40
Function Call: WRITE	Prompt: !,"PATIENT HAS NO CASE DATE ENTRIES!",! Line Location: GETAW+47
Function Call: WRITE	Prompt: ?0,ITEM_"." Line Location: GETAW+77
Function Call: WRITE	Prompt: !,ITEM_"." Line Location: GETAW+78
Function Call: WRITE	Prompt: $S(DR=.02:$E($$GET1^DIQ(DIC,D0,DR),1,15),DR=.12:$E($$GET1^DIQ(DIC,D0,DR),1,25),1:$$GET1^DIQ(DIC,D0,DR)) Line Location: GETAW+83
Function Call: WRITE	Prompt: !,"PATIENT HAS "_CLOSED_" CLOSED CASES",! Line Location: GETAW+87
Function Call: WRITE	Prompt: !,"PATIENT HAS "_CLOSED_" CLOSED CASE"_$S(CLOSED>1:"S",1:""),! Line Location: GETAW+88
Function Call: WRITE	Prompt: !,"PATIENT HAS NO AUTHORIZATION ENCOUNTER DATES!",! Line Location: GETAW+90
Function Call: WRITE	Prompt: !,"PATIENT HAS NO AUTHORIZATION ENCOUNTER DATES!",! Line Location: GETAW+91
Function Call: WRITE	Prompt: !,ITEM_"." Line Location: GETAW+97
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+107

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9000044.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNAUTH - [#9000046]	GETAW+91, GETAW+93
^AUPNAUTH("B"	GETAW+4
^AUPNBENR - [#9000044]	GETAW+47, GETAW+55
^AUPNBENR("B"	GETAW+3
^DD(	GETAW+29, GETAW+30
^XUSEC("AGZCREOPN"	VAR+10, VAR+11, VAR+14, VAR+15, VAR+46

Label References

Name	Line Occurrences
@(	VAR+38, VAR+50, VAR+56
DRAW	VAR
END	VAR+37, VAR+39, VAR+40
GETAW	DRAW+5
VAR	VAR+39, VAR+42, VAR+45, VAR+46, VAR+47, VAR+50, VAR+52, VAR+53, VAR+56, VAR+59

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ADA	END+1!
ADFN	END+1!
ADT	END+1!
>> AG	GETAW+8*
>> AG("C"	GETAW+6!, GETAW+25*
>> AG("ED"	VAR+38
>> AG("ERR"	VAR+39
>> AG("N"	VAR+7, VAR+8, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+31, VAR+34, VAR+52 , VAR+53, GETAW+106*
>> AG("PG"	DRAW+2*
AGI	VAR+58!
>> AGLINE("-"	GETAW+107
>> AGLINE("EQ"	VAR+1
AGSCRN	END+1!, GETAW+8, GETAW+10, GETAW+11, GETAW+12, GETAW+13, GETAW+15, GETAW+16, GETAW+17, GETAW+18 , GETAW+19, GETAW+20, GETAW+21, GETAW+22, GETAW+23, GETAW+24
AGSEENLY	VAR+3, VAR+25, VAR+29, VAR+32, VAR+42, VAR+44!, VAR+45*, END+4, GETAW+10, GETAW+61 , GETAW+62, GETAW+63, GETAW+64, GETAW+65
>> AGXTERN	VAR+38, END+2
AGY	VAR+58!
>> AUPNPAT	GETAW+1*, GETAW+2, GETAW+3, GETAW+4
BD0	END+1!, GETAW+3, GETAW+34, GETAW+46, GETAW+47
BD1	END+1!, GETAW+69, GETAW+72, GETAW+73, GETAW+92, GETAW+93*, GETAW+95, GETAW+96
>> CAPDENT	GETAW+18*, GETAW+29, GETAW+30
>> CAPTION	GETAW+13*, GETAW+14, GETAW+29, GETAW+30
>> CD0	GETAW+4*, GETAW+90, GETAW+91, GETAW+93, GETAW+95, GETAW+96
CDT	GETAW+54~, GETAW+61, GETAW+62, GETAW+66, GETAW+69*, GETAW+72
CHOICES	DRAW+1!, GETAW+5!
CHOICES(	VAR+56, GETAW+72, GETAW+95
CLCASE	GETAW+54~
CLCASE(	GETAW+66*, GETAW+69, GETAW+72
CLIEN	GETAW+54~, GETAW+55*, GETAW+58, GETAW+61, GETAW+66
>> CLOSED	VAR+8, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+23, VAR+24, VAR+46, GETAW+48* , GETAW+63*, GETAW+88
CTDIR	VAR+16~, VAR+17, VAR+18, VAR+19, VAR+20, VAR+21, VAR+22, VAR+23, VAR+24*
>> D0	GETAW+35, GETAW+41, GETAW+58, GETAW+63, GETAW+64, GETAW+65, GETAW+73, GETAW+83, GETAW+96*, GETAW+102
DA	END+1!
>> DFN	VAR+46, VAR+57, GETAW+1
DFOUT	VAR+40, END+1!
DIC	END+1!, GETAW+15*, GETAW+29, GETAW+30, GETAW+35, GETAW+40, GETAW+45, GETAW+63, GETAW+64, GETAW+65 , GETAW+66, GETAW+83, GETAW+89, GETAW+95, GETAW+102
DIR	VAR+2!
DIR("?"	VAR+17, VAR+18, VAR+19, VAR+20, VAR+21, VAR+22, VAR+23, VAR+24
DIR("A"	VAR+7, VAR+8, VAR+10, VAR+11, VAR+12, VAR+14, VAR+15, VAR+30, VAR+33*
DIR("B"	VAR+35*
DIR(0	VAR+31, VAR+34
>> DIROUT	VAR+37, END+3
DLOUT	VAR+39, END+1!
DORTN	VAR+56*, END!
DQOUT	VAR+53, END+1!
DR	END+1!, GETAW+38, GETAW+40, GETAW+80, GETAW+83, GETAW+99*, GETAW+102
DTOUT	VAR+37, VAR+40, END+1!
>> DUOUT	VAR+37, VAR+39, END+5
DUZ	VAR+10, VAR+11, VAR+14, VAR+15, VAR+46
DUZ(2	VAR+57
>> EXECUTE	GETAW+21*, GETAW+40, GETAW+41, GETAW+82, GETAW+84, GETAW+101, GETAW+103
>> ITEM	GETAW+7, GETAW+71, GETAW+72, GETAW+77, GETAW+78, GETAW+94*, GETAW+95, GETAW+97, GETAW+106
>> ITEMNUM	GETAW+19*, GETAW+25, GETAW+27, GETAW+28
NEWENTRY	EN+1*, END+1!
>> NEWLINE	GETAW+17*, GETAW+26
>> NOTCLOSE	GETAW+49, GETAW+64
>> PARAM1	VAR+56*
>> PARAM2	VAR+56*
PIECE	GETAW+37~, GETAW+38, GETAW+39, GETAW+40, GETAW+41, GETAW+42, GETAW+43!, GETAW+79~, GETAW+80, GETAW+81 , GETAW+82, GETAW+84, GETAW+85, GETAW+86!, GETAW+98~, GETAW+99*, GETAW+100, GETAW+101, GETAW+103, GETAW+104 , GETAW+105!
>> POSTEXEC	GETAW+24*, GETAW+42, GETAW+85, GETAW+104
>> PRECAPEX	GETAW+23*, GETAW+29, GETAW+30
>> PREEXEC	GETAW+22*, GETAW+39, GETAW+81, GETAW+100
REC	END+1!
ROUTID	END+1!, DRAW+3*
>> TAGCALL	GETAW+20*, GETAW+25
U	VAR+34, VAR+56, GETAW+13, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+20, GETAW+29 , GETAW+30, GETAW+66, GETAW+95
>> VD0	GETAW+34, GETAW+35, GETAW+40, GETAW+41*, GETAW+55, GETAW+58, GETAW+61, GETAW+66, GETAW+73
>> VDR	GETAW+16*, GETAW+29, GETAW+30, GETAW+38, GETAW+80, GETAW+99
WDA	END+1!
WDFN	END+1!
WDT	END+1!
>> X	VAR+43*, VAR+44
Y	VAR+39, VAR+45, VAR+46, VAR+47, VAR+50, VAR+53, VAR+56, END+1!

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBEA

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 2

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