Routine: AGADDR

Package	Total	Call Graph
VA Fileman	4	^DIC FILE^DICN ^DIE ^DIK
IHS Patient Registration	2	(PTLK,READ)^AG (NEWLST,VAROLD)^AGADDR1
Kernel	2	^%ZISC KILL^%ZTLOAD
IHS Patient	1	(RESET,SET)^AUPNLKZ
IHS VA Utilities	1	SET^XBSITE

Package

Total

Call Graph

VA Fileman

^DIC FILE^DICN ^DIE ^DIK

IHS Patient Registration

(PTLK,READ)^AG (NEWLST,VAROLD)^AGADDR1

Kernel

^%ZISC KILL^%ZTLOAD

IHS Patient

(RESET,SET)^AUPNLKZ

IHS VA Utilities

SET^XBSITE

Package	Total	Caller Graph
Contract Health Management Information System	1	ACHSPATLABS
IHS Patient Registration	1	AGADDR1

Package

Total

Caller Graph

Contract Health Management Information System

ACHSPATLABS

IHS Patient Registration

AGADDR1

External References

Name	Field # of Occurrence
^%ZISC	END+1
KILL^%ZTLOAD	END1+2
PTLK^AG	GNEW2
READ^AG	VAR+2, GNEW2+1, PEXIST+2
NEWLST^AGADDR1	GNEW+5, PEXIST+1
VAROLD^AGADDR1	PEXIST+3
RESET^AUPNLKZ	GNEW2
SET^AUPNLKZ	GNEW2
^DIC	GNEW, PEXIST+1
FILE^DICN	GNEW2+4
^DIE	GNEW+1, GNEW+4
^DIK	DEL+2
SET^XBSITE	VAR+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GNEW+0
Function Call: WRITE	Prompt: *7,!!,"MAILING LIST IN USE BY ANOTHER USER -- TRY LATER" Line Location: GNEW+3
Function Call: WRITE	Prompt: !,*7,"Already on File -- Want to Delete (Y/N) NO//" Line Location: GNEW2+1
Function Call: WRITE	Prompt: !,*7,?5,"Patient Deleted" Line Location: DEL+3
Function Call: WRITE	Prompt: ! Line Location: PEXIST+0
Function Call: WRITE	Prompt: !!,"Enter <RETURN> to Continue" Line Location: PEXIST+2
Routine Call	DIE Line Location: GNEW+1 GNEW+4
Routine Call	DIC Line Location: GNEW PEXIST+1

FileNo	Call Tags
^AGADLIST - [#9009065]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AGADLIST - [#9009065]	GNEW+2, GNEW+3, GNEW+4, GNEW2+1, GNEW2+3*, DEL
^AUTTSITE(1	VAR+1

Name	Line Occurrences
DEL	GNEW2+1
END1	VAR+2
GNEW2	GNEW2+1, GNEW2+5, DEL+1, DEL+4
PEXIST	VAR+2
VAR	GNEW, GNEW+2, GNEW+3, GNEW2, GNEW2+1, PEXIST+1, PEXIST+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	VAR!, END1+2!
AG("LKDATA"	END1+2!
AG("LKPRINT"	END1+2!
AGADRS1	END1+2!
AGADRS2	END1+2!
AGL	END1+2!
AGLIST	GNEW+1, GNEW+2, GNEW+3, GNEW+4, GNEW2+1, GNEW2+3, GNEW2+4, DEL, DEL+2, PEXIST+1 , END1+2!
AGNAME	END1+2!
AGV	END1+2!
AGV("LINE"	VAR*
AGV("P3"	GNEW2+2*
AGV("P4"	GNEW2+2*, PEXIST+2
AGV("TOT"	VAR*
DA	GNEW+1!, GNEW+4, DEL+2*, END1+2!
DA(1	GNEW2+4, DEL+2
DD	GNEW2+4!
DFN	VAR!, GNEW2, GNEW2+1, GNEW2+4, DEL, END1+2!
>> DFOUT	VAR+2, GNEW2+1
DIC	GNEW, GNEW+1!, GNEW+4!, GNEW2+4!, PEXIST*, PEXIST+1!, END1+2!
DIC("A"	PEXIST*
DIC("S"	GNEW, PEXIST
DIC("W"	GNEW2*
DIC(0	GNEW, GNEW2+4, PEXIST*
DIE	GNEW+1!, GNEW+4
>> DIK	DEL+2*
>> DLAYGO	GNEW*
>> DLOUT	VAR+2
DO	GNEW2+4!
DR	GNEW+1!, GNEW+4!, END1+2!
DT	GNEW+4
>> DTOUT	VAR+2, GNEW2+1
>> DUOUT	VAR+2, GNEW2+1
DUZ	GNEW+4
DUZ(2	VAR+1*
G	END1+2!
I	END1+2!
IOP	VAR!
R	END1+2!
U	VAR+1, GNEW+4
X	GNEW2+4, DEL, DEL+1, DEL+2, END1+2!
Y	VAR+2, GNEW, GNEW+1, GNEW2+1, PEXIST+1, END1+2!
>> ZTQUEUED	END1+2

Customize PDF page

Package: IHS Patient Registration

Routine: AGADDR

Information

Source Information

Call Graph

Call Graph Total: 10

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: