Routine: AGTXERP

Package	Total	Call Graph
IHS Patient Registration	8	(CTR,LINES,NOW,RTRN,VIDEO)^AG VAR^AGBADATA ^AGDATCK ^AGDICLK RESET^AGTX SETCHDFN^AGTX0 ^AGVAR $$S^AGVDF
Kernel	3	^%ZIS ^%ZISC (,KILL)^%ZTLOAD
VA Fileman	1	DD^%DT

Package

Total

Call Graph

(CTR,LINES,NOW,RTRN,VIDEO)^AG VAR^AGBADATA ^AGDATCK ^AGDICLK RESET^AGTX SETCHDFN^AGTX0 ^AGVAR $$S^AGVDF

^%ZIS ^%ZISC (,KILL)^%ZTLOAD

DD^%DT

Package	Total	Caller Graph
IHS Patient Registration	1	AGTX4

Package

Total

Caller Graph

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"No errors were found during the export procedure.",!!! Line Location: AGTXERP+2
Function Call: WRITE	Prompt: !!,"There were ",^AGTXER(0)," patients with errors found during this process.",!!,"Stand-by for the error report.",!! Line Location: AGTXERP+3
Function Call: WRITE	Prompt: *7,!,"Please queue to system printers." Line Location: DEV+2
Function Call: WRITE	Prompt: !!,"TOTAL PATIENTS WITH INVALID DATA: ",AGTOTAL Line Location: END+0
Function Call: WRITE	Prompt: $$S^AGVDF("IOF") Line Location: END+0
Function Call: WRITE	Prompt: !,"Last Registration Update : ",Y Line Location: PRINT+2
Function Call: WRITE	Prompt: !,"Last Registration Update : ",Y Line Location: PRINT+3
Function Call: WRITE	Prompt: !?5,AG(I) Line Location: PRINT+5
Function Call: WRITE	Prompt: "(Cont.)" Line Location: PRINT+5
Function Call: WRITE	Prompt: !,AG("-"),! Line Location: PRINT+7
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),!!,AG("USR"),?72,"page ",AGPGPG,!,AG("LOC"),!?22,"INVALID DATA ENTRIES - PATIENT FILES",!,AGUCI,!,AGTIME,!!,"PATIENT'S NAME",?35,"CHART # FACILITY",!?5,"ERRORS FOUND",!,AG("="),! Line Location: HDR+0
Routine Call	%ZIS Line Location: DEV DEV+1

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("UCI"	DEV+4, START+2
^AGTXER(	B, C
^AGTXER(0	AGTXERP+2, AGTXERP+3
^AUPNPAT - [#9000001]	PRINT+1, PRINT+3, PRINT+4
^AUTTLOC - [#9999999.06]	DEV+4
^AUTTSITE(1	DEV+3, START+1
^DIC(4 - [#4]	START+2, PRINT+1, PRINT+4
^DPT - [#2]	PRINT+1
^VA(200 - [#200]	START+2

Name	Field # of Occurrence
>> %ZIS	DEV+1*
A	PRINT+4*!
AG	DEV+5!, END1!
AG(	PRINT+5
AG("-"	PRINT+7
AG("="	HDR
AG("DRENT"	AGTXCK+1*
AG("DTOT"	C
AG("ER"	PRINT+4, PRINT+5
AG("HAT"	AGTXERP+3*, END!
AG("LKDATA"	AGTXCK+1
AG("LOC"	START+2*, END1!, HDR
AG("SITE"	START+2, B, C, END1!, PRINT+1, PRINT+4
AG("USR"	START+2*, END1!, HDR
AGBM	START+2*, C, END1!, PRINT+5
AGIO	AGTXERP+3*, DEV+5!, START+2, END1!
>> AGOPT	START+3
AGPGPG	START+2, END1!, HDR
AGSITE	C*, END1!
AGTIME	START+3*, END1!, HDR
AGTOTAL	START+2, END, END1!, PRINT+7
>> AGTXSITE	DEV+3, DEV+4, START+1, START+2
AGUCI	START+2*, END1!, HDR
>> DA	AGTXCK+1*
>> DFN	C*, PRINT+1, PRINT+3, PRINT+4
DFOUT	C, END1!, PRINT+5, PRINT+6
>> DIC	AGTXCK+1*
>> DR	AGTXCK+1*
DTOUT	C, END1!, PRINT+5, PRINT+6
DUOUT	C, END1!, PRINT+5, PRINT+6
DUZ	START+2
DUZ(2	C*, AGTXCK+1
I	END1!, PRINT+5*
IO	AGTXERP+3, DEV, START+2
IO("Q"	DEV+2!
IO("S"	DEV+2
ION	DEV+1
IOP	DEV, DEV+1, END1!
IOSL	START+2
IOST	DEV+2
J	END1!, PRINT+5*
>> POP	DEV+1
U	DEV+3, DEV+4, START+1, START+2, PRINT+1, PRINT+3, PRINT+4
X	START+2, START+3, END1!
XY	END1!
XYER	END1!
Y	DEV+4, START+2, END1!, PRINT+3*
ZTDESC	DEV+4*, DEV+5!
>> ZTQUEUED	END1
ZTRTN	DEV+4*, DEV+5!
>> ZTSAVE	DEV+4*
ZTSK	DEV+5!
ZTUCI	DEV+4*, DEV+5!

Information

Name	Comments	DBIA/ICR reference
END1
C
B
END
HDR
DEV
START	;EP - From Taskman.
AGTXCK	;EP - (from option) Error check before creating transactions.
PRINT	;Print invalid patient data.