Routine: AGTX

Information

AGTX ; IHS/ASDS/EFG - EXPORT REG DATA ;

Source file <AGTX.m>

Package	Total	Call Graph
IHS Patient Registration	6	(READ,VIDEO,YN)^AG ^AGTX0 S2A^AGTX1 (ENTRETRN,JOBEND)^AGTX4 ^AGVAR $$S^AGVDF
VA Fileman	4	^%DT ^DIC DQ^DICQ ^DIR
Kernel	1	^%ZIS

Package	Total	Caller Graph
IHS Patient Registration	2	AGTX4 AGTXERP

Name	Comments	DBIA/ICR reference
RESET	;EP -
START
S2
L11A
HEADER	;EP -
REGEN	;EP - (from option) - Regenerate old tape.
TEST	;EP - Test a transmission with a small date range

Name	Line Occurrences
Function Call: WRITE	Prompt: $$S^AGVDF("IOF"),! Line Location: HEADER+2
Function Call: WRITE	Prompt: "*" Line Location: HEADER+2
Function Call: WRITE	Prompt: !,"",?27,"EXPORT REGISTRATION DATA",?78,"",! Line Location: HEADER+3
Function Call: WRITE	Prompt: "*" Line Location: HEADER+3
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: !?10,"SITE NAME IS: ",$P(^DIC(4,AGTXSITE,0),U) Line Location: START+4
Function Call: WRITE	Prompt: !!,"The following are ""Parent Facilites for Registration""." Line Location: START+5
Function Call: WRITE	Prompt: !!,"ONLY their Demographic and HRN Changes, Deletes, and Merges",!,"will be sent to NPIRS :",! Line Location: START+6
Function Call: WRITE	Prompt: !,?10,$P(^DIC(4,AGPSITE,0),"^") Line Location: START+7
Function Call: WRITE	Prompt: !!,"DO YOU WANT TO DISPLAY OUTPUT RECORDS ON SCREEN (Y/N) Y// " Line Location: L11A+0
Function Call: WRITE	Prompt: !,*7,"GOT TO RESET^AGTX IN ERROR",! Line Location: RESET+2
Function Call: WRITE	Prompt: !,*7,"No export records for this facility.",! Line Location: REGEN+2
Function Call: WRITE	Prompt: !,AGLO," = ",@AGLO Line Location: TEST+6
Function Call: WRITE	Prompt: !,"EXITING WILL KILL AG(""REGEN"")",! Line Location: TEST+8
Routine Call	DIC Line Location: REGEN+3
Routine Call	DIR Line Location: TEST+9
Routine Call	%ZIS Line Location: START+2

FileNo	Call Tags
^AGTXST - [#9009063]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^AGFAC("AC"	START+7
^AGTXST - [#9009063]	RESET+4, RESET+5!, RESET+6*, REGEN+2
^AUTTSITE(1	START+1, REGEN+1
^DIC(4 - [#4]	START+4, START+7

Name	Field # of Occurrence
>> %	START+3*
>> %DT	TEST+1, TEST+2
>> %DT("A"	TEST+1, TEST+2
>> %DT(0	TEST+2*, TEST+3!
>> AG("REGEN"	REGEN+4, TEST+4, TEST+9!
>> AG("TOT"	START+2, START+3
>> AG("X"	RESET+4, RESET+5, RESET+6, RESET+7!
>> AGBAD16	START+2*
>> AGBAD26	START+2*
>> AGBAD51	START+2*
AGBDT	TEST+1, TEST+4, TEST+5, TEST+6, TEST+7!
>> AGDT	TEST+6*
AGEDT	TEST+2, TEST+4, TEST+5, TEST+6, TEST+7!
>> AGLDATE	S2*
>> AGLO	TEST+6*
>> AGOPT	HEADER+1
>> AGOUTFLG	L11A*
>> AGPSITE	START+7*
>> AGRCT	S2*
>> AGROUT	START+2*
>> AGRR1	S2
>> AGTXSITE	START+1, START+4, RESET+4, RESET+5, RESET+6, REGEN+1, REGEN+2
D	REGEN+3*!
>> DFOUT	L11A
DIC	REGEN+3*!
DIC(0	REGEN+3*
>> DIR(0	TEST+9*
DTIME	AGTX+2*
>> DTOUT	L11A
>> DUOUT	L11A
DUZ	START*
DZ	REGEN+3*!
>> I	HEADER+2, HEADER+3
IO(0	HEADER+2
ION	START+2
>> IOP	START+2*
U	START+4, RESET+4, RESET+6
>> X	TEST+9
>> XY	S2
>> XYER	S2
>> Y	L11A*, REGEN+3, TEST+1, TEST+2
>> Y(0	REGEN+4