Routine: AGACXREF

Package	Total	Call Graph
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	2	WAIT^DICD ^DIR
IHS Patient Registration	1	$$S^AGVDF

Entry Points

Name	Comments	DBIA/ICR reference
AE
DEV	;
QUE	;
ENTRY	;EP - TaskMan.
C1	;
END

External References

Name	Field # of Occurrence
^%ZIS	ENTRY+1
^%ZISC	DEV+7
^%ZTLOAD	DEV+7
KILL^%ZTLOAD	END+1
$$S^AGVDF	AGACXREF+3
WAIT^DICD	ENTRY+1
^DIR	AGACXREF+20, QUE+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: AGACXREF+3
Function Call: WRITE	Prompt: ?30,"* AGACXREF *",! Line Location: AGACXREF+4
Function Call: WRITE	Prompt: ?5,"=== CURRENT COMMUNITY (AC) and TRIBE OF MEMBERSHIP indices ===" Line Location: AGACXREF+5
Function Call: WRITE	Prompt: *7,!!,"Because of a bug in IHS REGISTRATION v 4.22, the 'AC' cross-reference",! Line Location: AGACXREF+6
Function Call: WRITE	Prompt: "of the Patient file was set only when a patient was edited, not when the",! Line Location: AGACXREF+7
Function Call: WRITE	Prompt: "patient was first entered." Line Location: AGACXREF+8
Function Call: WRITE	Prompt: !!,"This routine will kill and rebuild the 'AC' (Current Community) and 'AE'",! Line Location: AGACXREF+9
Function Call: WRITE	Prompt: "(Tribe of Membership) cross-references on the PATIENT File (^AUPNPAT).",!! Line Location: AGACXREF+10
Function Call: WRITE	Prompt: "It will also reset the Current Community field from LAST(PREVIOUS COMMUNITY)." Line Location: AGACXREF+11
Function Call: WRITE	Prompt: !!,"It should take approximately ",$J(1244/36277*+$P(^AUPNPAT(0),U,4)/60,3,1)," minutes to complete",! Line Location: AGACXREF+12
Function Call: WRITE	Prompt: "on your ",+$P(^AUPNPAT(0),U,4)," patients.",!! Line Location: AGACXREF+13
Function Call: WRITE	Prompt: "Q'ing to TaskMan is possible." Line Location: AGACXREF+14
Function Call: WRITE	Prompt: !! Line Location: AGACXREF+19
Function Call: WRITE	Prompt: *7,!!,"Please 'D ^AGACXREF' at your convenience." Line Location: AGACXREF+21
Function Call: WRITE	Prompt: !! Line Location: QUE+3
Function Call: READ	Timeout: DTIME Variable: Y Line Location: DEV+7
Function Call: WRITE	Prompt: !!,"Task Number = ",ZTSK,!!,"Press RETURN..." Line Location: DEV+7
Function Call: WRITE	Prompt: ! Line Location: ENTRY+1
Function Call: WRITE	Prompt: !,+$P(^AUPNPAT(0),U,4)," patients.",! Line Location: ENTRY+1
Routine Call	DIR Line Location: AGACXREF+20 QUE+6
Routine Call	%ZIS Line Location: ENTRY+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+1
^AUPNPAT - [#9000001]	ENTRY+2, C1+1, C1+2, C1+3, C1+6*, AE
^AUPNPAT("AC"	ENTRY+2!, C1+6*
^AUPNPAT("AE"	AE*
^AUPNPAT(0	AGACXREF+12, AGACXREF+13, ENTRY+1
^AUTTCOM - [#9999999.05]	C1+4, C1+5
^AUTTLOC - [#9999999.06]	DEV+5

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AG	DEV+7!
AGCC	END!, C1+1*, C1+3
AGCCNAME	END!, C1+5*, C1+6
AGCCPTR	END!, C1+3*, C1+4, C1+5
AGCCSV	END!, C1+1*, C1+2
AGIO	DEV+7!
AGQIO	DEV+7!
DFN	ENTRY+2*, END!, C1+1, C1+2, C1+3, C1+6, AE
DFOUT	AGACXREF+16!, QUE+1!
DIR	AGACXREF+16!, QUE+1!
DIR("A"	AGACXREF+18, QUE+4
DIR("B"	QUE+5*
DIR(0	AGACXREF+17, QUE+2
DIROUT	AGACXREF+16!, QUE+1!
DIRUT	AGACXREF+16!, QUE+1!
DLOUT	AGACXREF+16!, QUE+1!
DQOUT	AGACXREF+16!, QUE+1!
DTIME	DEV+7
DTOUT	AGACXREF+16!, QUE+1!, QUE+7
DUOUT	AGACXREF+16!, QUE+1!
DUZ(2	DEV+5
DX	ENTRY+1*, END!
DY	ENTRY+1*, END!
G	DEV+7!
ION	ENTRY+1
>> IOP	ENTRY+1*
U	AGACXREF+12, AGACXREF+13, DEV+5, ENTRY+1, C1+3, C1+5, C1+6, AE
X	END!
XY	END!
Y	AGACXREF+21, QUE+7, QUE+8, DEV+3, DEV+7*, END!
ZTDESC	DEV+5*, DEV+7!
ZTIO	DEV+4*, DEV+7!
>> ZTQUEUED	ENTRY+1, END+1
ZTRTN	DEV+2*, DEV+7!
ZTSAVE	DEV+6*, DEV+7!
ZTSK	DEV+7!
ZTUCI	DEV+3*, DEV+7!

Customize PDF page

Package: IHS Patient Registration

Routine: AGACXREF

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^("AE"	ENTRY+2!
^(11	AE