Routine: ACGSEXPY

Package	Total	Call Graph
Contracts and Grants	5	DIR^ACGSDIC ^ACGSFLDS HEAD^ACGSMENU ^ACGSSPFD FY^ACGSUP
Kernel	2	^%ZIS ^%ZISC
IHS VA Utilities	1	^XBKVAR
Uncategorized	1	START^%GS
VA Fileman	1	(C,NOW)^%DTC

Entry Points

Name	Comments	DBIA/ICR reference
EN
FY	;XEP;TO SET FISCAL YEAR
HFS
HQ
DCON	;CONVERT DATE FOR GLOBAL SAVE
SSP
FY1	;EP;TO SET FISCAL YEAR
EXPORT
DX	;EP;TO EXPORT RECORDS BY DATE LAST EDITED
CLOSE
DATE
EXIT
OPEN	;OPEN HOST FILE
DXC	;CLOSE EXPORT
AREAS

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?30,"DATA EXPORT UTILITY" Line Location: EXPORT+1
Function Call: WRITE	Prompt: ! Line Location: EXPORT+2
Function Call: WRITE	Prompt: !!,"CIS data will now be filed to file '"_%FN_"'" Line Location: EXPORT+6
Function Call: WRITE	Prompt: !!,"The data export process will now take place. It takes 30-45 minutes.",!,"Please do not interrupt." Line Location: EXPORT+12
Function Call: WRITE	Prompt: 7,7,!!,"Waiting for HOST FILE SERVER" Line Location: OPEN+2
Function Call: WRITE	Prompt: !!?5,ACGI,?15,"RECORDS EVALUATED",!?5,ACGCNT,?15,"RECORDS PROCESSED" Line Location: HQ+14
Function Call: WRITE	Prompt: !!,7,7,?5,ACGI-ACGCNT,?15,"RECORDS NOT PROPERLY PROCESSED.",!?15,"CHECK WITH YOUR SYSTEM OPERATOR." Line Location: HQ+15
Function Call: WRITE	Prompt: ACGY Line Location: SSP+2
Function Call: WRITE	Prompt: ! Line Location: FY+4
Function Call: WRITE	Prompt: Y,!,Z,! Line Location: DATE+5
Function Call: WRITE	Prompt: Y,!,Z,! Line Location: DATE+6
Function Call: WRITE	Prompt: ACGX,!,"MONTHLY EXPORT FOR CONTRACT OFFICE ",ACG4,! Line Location: DX+9
Function Call: WRITE	Prompt: "",!,"",!,"",!,"",! Line Location: DXC+1
Routine Call	%ZIS Line Location: OPEN+1

Name	Line Occurrences (* Changed, ! Killed)
^ACGPARA(1	DX+1
^ACGS - [#9002330]	SSP+2
^ACGS("Q"	DATE+2, DATE+4
^ACGS("SPP"	EXPORT+10!, SSP+2
^ACGS("T"	EXPORT+10!, HQ+3
^DD("DD"	DCON+3
^TMP("ACG"	HQ+1!, HQ+12!
^TMP("ACGERR"	HQ+1!
^TMP($J	AREAS+1, HQ+7, HQ+8, HQ+10

Name	Field # of Occurrence
>> %	DCON+2
%CMT	EXIT!, AREAS+1*
%DEV	EXIT!, AREAS+1*
%FN	EXIT!, EXPORT+5, EXPORT+6, OPEN+1, DX+5
%GN	EXIT!, AREAS+1*
%QUIT	EXIT!, AREAS+1*
%SIZE	EXIT!, AREAS+1*
%TAP	EXIT!, AREAS+1*
%TAPV	EXIT!, AREAS+1*
>> %ZIS("IOPAR"	OPEN+1*
>> ACG2	HQ+5, HQ+6, HQ+7, HQ+10, DX+5
>> ACG4	EXPORT+5, EXPORT+11, HFS+2, HFS+3, DX+5, DX+9
>> ACGCNT	HQ+2, HQ+10, HQ+14, HQ+15, SSP+1, SSP+2, DATE+1*
>> ACGD	DATE+1, DATE+2, DATE+4
>> ACGDATE	DATE+1, DX+3*
>> ACGDT	HQ+5
ACGFY	EXIT!, EXPORT+5, FY+3, FY+7, FY1+2
>> ACGI	OPEN+1, HQ+2, HQ+3, HQ+13, HQ+14, HQ+15, SSP+1, SSP+2, DATE+4*
>> ACGPARA	EXPORT+5, DX+1*, DX+5
ACGQUIT	EXPORT+4, EXPORT+9*, FY+6!
ACGRDA	EXIT!, HQ+2, HQ+3, HQ+7, HQ+8, SSP+1, SSP+2, DATE+3, DATE+4, DATE+5 , DATE+6
ACGSIGN	EXIT!
ACGT1	EXIT!
>> ACGX	DX+9, DCON+4*
ACGY	EXIT!, HQ+8, HQ+9, SSP+2, DCON+4*
>> DIR("A"	EXPORT+7, FY+3
>> DIR("B"	EXPORT+7, FY+3
>> DIR(0	EXPORT+7, FY+3
DT	FY+3, FY1+2
IO	AREAS, AREAS+1, HQ, SSP, DATE, DX+8
ION	OPEN+1*
IOP	OPEN+1*, OPEN+3!
>> POP	HFS+1, OPEN+1, OPEN+2, DX+7
U	EXPORT+5, HQ+5, SSP+2, DX+1, DX+5
>> X	DATE+5, DATE+6, DX+3, DCON+4*
>> X1	DX+1*
>> X2	DX+1*
>> Y	EXPORT+5, EXPORT+9, FY+6, FY+7, DATE+5, DATE+6, DCON+2, DCON+4
>> Z	DATE+5, DATE+6