Routine: AGEDBEI

Package	Total	Call Graph
IHS Patient Registration	2	(,UPDATE1)^AGED READ^AGED1
VA Fileman	2	^DIE $$GET1^DIQ

Package	Total	Caller Graph
IHS Patient Registration	1	AGEDBEA

Entry Points

Name	Comments	DBIA/ICR reference
COMDT(RD0,RD1)	;Erase Date Completed
DRAW	;EP
STAT(RD0,RD1)	;Erase Closed Status
CLS(DFN,CLOSED)
2	;
EXIT
GETAW	;DISP
VAR
COMBY(RD0,RD1)	;Erase Completed By

External References

Name	Field # of Occurrence
^AGED	DRAW+3
UPDATE1^AGED	DRAW+27
READ^AGED1	DRAW+11
^DIE	STAT+6, COMBY+6, COMDT+6
$$GET1^DIQ	GETAW+46, GETAW+47, GETAW+61

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no items to select!" Line Location: DRAW+13
Function Call: WRITE	Prompt: !!,"You must enter a number from 1 to ",AG("N") Line Location: DRAW+14
Function Call: WRITE	Prompt: !!,"PATIENT IEN NOT DEFINED!" Line Location: GETAW+3
Function Call: WRITE	Prompt: !,$E(CAPTION,2,199) Line Location: GETAW+13
Function Call: WRITE	Prompt: @NEWLINE Line Location: GETAW+25
Function Call: WRITE	Prompt: ITEMNUM Line Location: GETAW+26
Function Call: WRITE	Prompt: !,"PATIENT HAS NO CASE DATE ENTRIES!",! Line Location: GETAW+38
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=.02:$E($$GET1^DIQ(DIC,D0,DR),1,15),DR=.12:$E($$GET1^DIQ(DIC,D0,DR),1,29),1:$$GET1^DIQ(DIC,D0,DR)) Line Location: GETAW+61
Function Call: WRITE	Prompt: !,$G(AGLINE("-")) Line Location: GETAW+66
Routine Call	DIE Line Location: STAT+6 COMBY+6 COMDT+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
9000044.11	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPNBENR - [#9000044]	GETAW+38, GETAW+42
^AUPNBENR("B"	GETAW+5
^DD(	GETAW+28, GETAW+29

Label References

Name	Line Occurrences
@(	DRAW+30
COMBY	DRAW+21
COMDT	DRAW+24
EXIT	DRAW+12, DRAW+13
GETAW	DRAW+4
STAT	DRAW+18
VAR	DRAW+14, DRAW+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	DRAW+14!, DRAW+30!, EXIT+1!, GETAW+8*
AG("C"	GETAW+6!, GETAW+24*
AG("N"	DRAW+6, DRAW+8, DRAW+13, DRAW+14, GETAW+65*
AG("PG"	DRAW+1*
>> AGLINE("-"	GETAW+66
AGSCRN	GETAW+1~, GETAW+8, GETAW+10*, GETAW+11, GETAW+12, GETAW+14, GETAW+15, GETAW+16, GETAW+17, GETAW+18 , GETAW+19, GETAW+20, GETAW+21, GETAW+22, GETAW+23
AUPNPAT	GETAW+1~, GETAW+2*, GETAW+3, GETAW+5
BD0	GETAW+1~, GETAW+5, GETAW+31, GETAW+37, GETAW+38
BD1	GETAW+36~, GETAW+51*, GETAW+52, GETAW+54
CAPDENT	GETAW+9~, GETAW+17*, GETAW+28, GETAW+29
CAPTION	GETAW+9~, GETAW+12*, GETAW+13, GETAW+28, GETAW+29
CDT	GETAW+36~, GETAW+43~, GETAW+47, GETAW+48, GETAW+51
CHOICES	VAR~, DRAW+14!, DRAW+30!, EXIT+1!
CHOICES(	DRAW+14, DRAW+15, GETAW+54*
CLCASE	GETAW+41~
CLCASE(	GETAW+48*, GETAW+51
CLIEN	GETAW+41~, GETAW+42*, GETAW+46, GETAW+47, GETAW+48
CLOSED	CLS~
D0	GETAW+36~, GETAW+52*, GETAW+61
DA	STAT+1!, STAT+3, STAT+7!, COMBY+1!, COMBY+3, COMBY+7!, COMDT+1!, COMDT+3*, COMDT+7!
DA(1	STAT+2, STAT+4, COMBY+2, COMBY+4, COMDT+2*, COMDT+4
DD	STAT+1!, COMBY+1!, COMDT+1!
DFN	CLS~, DRAW+27, GETAW+2
DIC	GETAW+9~, GETAW+14*, GETAW+28, GETAW+29, GETAW+35, GETAW+54, GETAW+61, STAT+1!, STAT+7!, COMBY+1! , COMBY+7!, COMDT+1!, COMDT+7!
DIE	STAT+1!, STAT+4, STAT+7!, COMBY+1!, COMBY+4, COMBY+7!, COMDT+1!, COMDT+4*, COMDT+7!
DIR	VAR~, DRAW+14!, DRAW+30!, EXIT+1!
DIR("?"	DRAW+7*
DIR("A"	DRAW+6*
DIR(0	DRAW+8*
DIROUT	CLS~, DRAW+12, EXIT!
DO	STAT+1!, COMBY+1!, COMDT+1!
DORTN	CLS~, DRAW+30*, EXIT!
DQOUT	VAR~, DRAW+14!, DRAW+30!, EXIT+1!
DR	GETAW+57~, GETAW+58, GETAW+61, GETAW+64!, STAT+1!, STAT+5, STAT+7!, COMBY+1!, COMBY+5, COMBY+7! , COMDT+1!, COMDT+5, COMDT+7!
DTOUT	CLS~, DRAW+12, EXIT!
DUOUT	CLS~, DRAW+12, EXIT!
DUZ(2	DRAW+27
EXECUTE	GETAW+9~, GETAW+20*, GETAW+60, GETAW+62
ITEM	GETAW+1~, GETAW+7, GETAW+53, GETAW+54, GETAW+55, GETAW+56, GETAW+65
ITEMNUM	GETAW+9~, GETAW+18*, GETAW+24, GETAW+26, GETAW+27
NEWLINE	GETAW+9~, GETAW+16*, GETAW+25
PARAM1	CLS~, DRAW+15*, DRAW+18, DRAW+21, DRAW+24, DRAW+30, EXIT!
PARAM2	CLS~, DRAW+15*, DRAW+18, DRAW+21, DRAW+24, DRAW+30, EXIT!
PIECE	GETAW+57~, GETAW+58*, GETAW+59, GETAW+60, GETAW+62, GETAW+63, GETAW+64!
POSTEXEC	GETAW+9~, GETAW+23*, GETAW+63
PRECAPEX	GETAW+9~, GETAW+22*, GETAW+28, GETAW+29
PREEXEC	GETAW+9~, GETAW+21*, GETAW+59
RD0	STAT~, STAT+2, COMBY~, COMBY+2, COMDT~, COMDT+2
RD1	STAT~, STAT+3, COMBY~, COMBY+3, COMDT~, COMDT+3
ROUTID	CLS~, DRAW+2*, EXIT!
ST	GETAW+43~, GETAW+46*
TAGCALL	GETAW+9~, GETAW+19*, GETAW+24
U	DRAW+15, GETAW+12, GETAW+14, GETAW+15, GETAW+16, GETAW+17, GETAW+18, GETAW+19, GETAW+28, GETAW+29 , GETAW+54
VD0	GETAW+9~, GETAW+31*, GETAW+42, GETAW+46, GETAW+47, GETAW+52, GETAW+54
VDR	GETAW+9~, GETAW+15*, GETAW+28, GETAW+29, GETAW+58
Y	VAR~, DRAW+12, DRAW+14!, DRAW+15, DRAW+30!, EXIT+1!

Marked Items

Customize PDF page

Package: IHS Patient Registration

Routine: AGEDBEI

Information

Source Information

Call Graph

Call Graph Total: 4

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