Routine: AGTX4

Package	Total	Call Graph
IHS Patient Registration	5	HEADER^AGTX ^AGTXERP $$UID^AGTXID SET^AGTXST ^AGTXTOT
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Patient Registration	3	AGTX AGTX1 AGTXALL

Entry Points

Name	Comments	DBIA/ICR reference
ALL	;EP - From AGTXALL.
JOBEND	;EP - EOJ, Process and mark deletes, DISPLAY RECORD COUNTS ETC. ; send deletes to DDPS (AGNODE is to be the complete RG3 ready to send) ie RG3^ASUFAC^HRN^^LastIntFirstInt^Sex
ENTRETRN	;EP -
SETZERO	;Set 0th node.
KILL
W1	;

Name	Line Occurrences
Function Call: WRITE	Prompt: AGROUT Line Location: JOBEND+3
Function Call: WRITE	Prompt: !!?10,"NUMBER OF PATIENTS BEING SENT = ",$J(AG("T"),5) Line Location: ALL+1
Function Call: WRITE	Prompt: !!?10,"NUMBER OF PATIENT RECORDS TO SEND = ",$J(AG("TOT"),5) Line Location: ALL+2
Function Call: WRITE	Prompt: !?10," TOTAL RECORDS TO SEND = ",$J(AG("T")+AG("TOT"),5) Line Location: ALL+3
Function Call: WRITE	Prompt: !!?10,"NUMBER OF BLANK ADDRESS RECORDS = ",$J(AGBAD16,5) Line Location: ALL+4
Function Call: WRITE	Prompt: !!?10,"NUMBER OF BLANK COMMUNITY = ",$J(AGBAD51,5) Line Location: ALL+5
Function Call: WRITE	Prompt: !!,*7,?10,"NO RECORDS GENERATED FOR EXPORT" Line Location: ALL+6
Routine Call	DIR Line Location: ENTRETRN+1

Name	Line Occurrences (* Changed, ! Killed)
^AGCHDFN(	JOBEND+7
^AGPATCH("DEL"	JOBEND+2*
^AGTXDATA(	JOBEND+4*
^AGTXDATA(0	SETZERO+7*
^AUTTLOC - [#9999999.06]	SETZERO+2
^DIC(4 - [#4]	SETZERO+3

Name	Line Occurrences
KILL	ALL+6, W1+1
W1	SETZERO+10

Name	Field # of Occurrence
>> AG("LKDATA"	KILL!
>> AG("LKPRINT"	KILL!
>> AG("N"	JOBEND+7*
>> AG("REGEN"	SETZERO+10
>> AG("SITE"	KILL+1!
>> AG("T"	JOBEND+7*, ALL+1, ALL+3
>> AG("TOT"	JOBEND+4*, ALL+2, ALL+3
AGASUFAC	SETZERO+1~, SETZERO+2*, SETZERO+7
AGBAD16	ALL+4, KILL!
AGBAD26	KILL!
AGBAD51	ALL+5, KILL!
AGCC	KILL!
AGCT	KILL!
AGDATE	SETZERO+1~, SETZERO+4*, SETZERO+7
AGDFN16	KILL!
AGDFN51	KILL!
AGELGEND	KILL!
AGFDATE	SETZERO+5, SETZERO+7, SETZERO+9, KILL!
AGFN	KILL!
AGL	KILL!
AGLDATE	SETZERO+6, SETZERO+7, SETZERO+8, KILL!
AGLN	KILL+1!
AGMN	KILL+1!
AGN1	KILL+1!
AGN2	KILL+1!
AGN3	KILL+1!
AGNAME	KILL+1!
AGNI	KILL+1!
AGNODE	JOBEND+2, JOBEND+3, JOBEND+4, JOBEND+5!
AGNUMB	KILL+1!
AGOUTFLG	JOBEND+3, KILL+1!
AGR1	KILL+1!
AGR2	KILL+1!
AGRCT	KILL+1!
AGROUT	JOBEND+3, JOBEND+4*, ALL+6, SETZERO+7, KILL+1!
AGRR	KILL+1!
AGRR1	KILL+1!
AGSITE	SETZERO+1~, SETZERO+3*, SETZERO+7
AGTEMP	KILL+1!
AGTX	KILL!
>> AGTXALL	W1+1
AGTXRGSV	KILL!
>> AGTXSITE	SETZERO+2, SETZERO+3
AGVAL	KILL+1!
AGXN	KILL+1!
DA	KILL!
DIC	KILL!
DIR	ENTRETRN+1!
DIR(0	ENTRETRN+1*
DR	KILL!
DT	SETZERO+4
DX	KILL!
DY	KILL!
G	KILL!
U	JOBEND+4, SETZERO+2, SETZERO+3, SETZERO+7
X	KILL+1!
XX	KILL+1!
>> XY	JOBEND+3
Y	KILL+1!
Z	KILL+1!
>> ZTQUEUED	JOBEND+3