Routine: ACGSEXP

Package	Total	Call Graph
Contracts and Grants	6	^ACGSDCIS 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

Package

Total

Call Graph

Contracts and Grants

^ACGSDCIS DIR^ACGSDIC ^ACGSFLDS HEAD^ACGSMENU ^ACGSSPFD FY^ACGSUP

^%ZIS ^%ZISC

^XBKVAR

START^%GS

(C,NOW)^%DTC

Package	Total	Caller Graph
Contracts and Grants	9	ACGS281 ACGS282 ACGSCPAR ACGSEXPX ACGSEXPZ ACGSRT ACGSSR ACGSTART ACGSUP
Commitment Register	1	ACRFCIS

Package

Total

Caller Graph

Contracts and Grants

ACGS281 ACGS282 ACGSCPAR ACGSEXPX ACGSEXPZ ACGSRT ACGSSR ACGSTART
ACGSUP

Commitment Register

ACRFCIS

Entry Points

Name	Field # of Occurrence
C^%DTC	DX+3
NOW^%DTC	DCON+1
START^%GS	AREAS+2
^%ZIS	OPEN+1
^%ZISC	HQ+13, CLOSE
^ACGSDCIS	HQ+5
DIR^ACGSDIC	EXPORT+10, FY+5, DCIS+3
^ACGSFLDS	HQ+4
HEAD^ACGSMENU	EXPORT
^ACGSSPFD	SSP+6
FY^ACGSUP	EXPORT+13
^XBKVAR	EXPORT

Interaction Calls

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+8
Function Call: WRITE	Prompt: !!,"The data export process will now take place. It takes 30-45 minutes.",!,"Please do not interrupt." Line Location: EXPORT+14
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: COUNT+0
Function Call: WRITE	Prompt: !!,7,7,?5,ACGI-ACGCNT,?15,"RECORDS NOT PROPERLY PROCESSED.",!?15,"CHECK WITH YOUR SYSTEM OPERATOR." Line Location: COUNT+1
Function Call: WRITE	Prompt: !!,"SMALL PURCHASE EXPORT WILL NOW TAKE PLACE.",! Line Location: SSP+0
Function Call: WRITE	Prompt: ACGY Line Location: SSP+8
Function Call: WRITE	Prompt: ! Line Location: FY+4
Function Call: WRITE	Prompt: ! Line Location: DCIS+2
Function Call: WRITE	Prompt: Y,!,Z,! Line Location: DATE+5
Function Call: WRITE	Prompt: Y,!,Z,! Line Location: DATE+6
Function Call: WRITE	Prompt: ! Line Location: DX+1
Function Call: WRITE	Prompt: ACGX,!,"MONTHLY EXPORT FOR CONTRACT OFFICE ",ACG4,! Line Location: DX+10
Function Call: WRITE	Prompt: "",!,"",!,"",!,"",! Line Location: DXC+1
Routine Call	%ZIS Line Location: OPEN+1

Global Variables Directly Accessed

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

Name	Line Occurrences
AREAS	HFS+3
CLOSE	DX+8
DATE	DX+11
DCIS	EXPORT+5
DCON	DX+5
DXC	DX+11
EXPORT	EN
FY	EXPORT+3
HFS	EXPORT+15
HQ	HFS+2
OPEN	HFS, OPEN+2, DX+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DCON+2
%CMT	EXIT!, AREAS+1*
%DEV	EXIT!, AREAS+1*
%FN	EXIT!, EXPORT+7, EXPORT+8, OPEN+1, DX+6
%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+6, HQ+7, HQ+8, HQ+12, DX+6
>> ACG4	EXPORT+7, EXPORT+13, HFS+2, HFS+3, DX+6, DX+10
>> ACGCNT	HQ+2, HQ+9, HQ+12, COUNT, COUNT+1, SSP+3, SSP+8, DATE+1
>> ACGD	DATE+1, DATE+2, DATE+4
>> ACGDATE	DATE+1, DX+4*
>> ACGDT	HQ+6
>> ACGDT1	HQ+9
>> ACGFORMT	EXPORT+7, HQ+4, HQ+5, HQ+9, HQ+11, DCIS+5*
ACGFY	EXIT!, FY+3, FY+8, FY1+2*
>> ACGI	OPEN+1, HQ+2, HQ+3, HQ+14, COUNT, COUNT+1, SSP+3, SSP+5, DATE+4*
>> ACGPARA	EXPORT+7, DX+2*, DX+6
>> ACGPODA	DX+2
>> ACGQUIT	EXPORT+4, EXPORT+6, EXPORT+11, FY+7, DCIS+4*
ACGRDA	EXIT!, HQ+2, HQ+3, HQ+8, HQ+10, SSP+3, SSP+4, SSP+7, DATE+3, DATE+4 , DATE+5, DATE+6
ACGSIGN	EXIT!
ACGT1	EXIT!
>> ACGX	DX+10, DCON+4*
ACGY	EXIT!, HQ+10, HQ+11, SSP+7, SSP+8, DCON+4*
>> DIR("A"	EXPORT+9, FY+3, DCIS+1*
>> DIR("B"	EXPORT+9, FY+3, DCIS+1*
>> DIR(0	EXPORT+9, FY+3, DCIS+1*
DT	HQ+1, HQ+8, HQ+10, HQ+12, FY+3, FY1+2
IO	AREAS, AREAS+1, HQ, SSP+1, DATE, DX+9
ION	OPEN+1*
IOP	OPEN+1*, OPEN+3!
>> POP	HFS+1, OPEN+1, OPEN+2, DX+8
U	EXPORT+7, HQ+6, HQ+9, SSP+4, DX+2, DX+6
>> X	DATE+5, DATE+6, DX+4, DCON+4*
>> X1	DX+2*
>> X2	DX+2*
>> Y	EXPORT+11, FY+7, FY+8, DCIS+4, DCIS+5, DATE+5, DATE+6, DCON+2, DCON+4
>> Z	DATE+5, DATE+6
>> ZTQUEUED	SSP

Customize PDF page

Package: Contracts and Grants

Routine: ACGSEXP

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 10

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
COUNT
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
DCIS	;SELECT FORMAT FOR DATA EXPORT
OPEN	;OPEN HOST FILE
DXC	;CLOSE EXPORT
AREAS