Routine: ACGSCLS

Package	Total	Call Graph
Contracts and Grants	5	DIR^ACGFDIC DIR^ACGSDIC HOLD^ACGSMENU DOLLAR^ACGSRT (,DONE)^ACGSZIS
IHS VA Utilities	1	^XBKVAR
Kernel	1	^%ZIS
VA Fileman	1	^%DTC

Package

Total

Call Graph

Contracts and Grants

DIR^ACGFDIC DIR^ACGSDIC HOLD^ACGSMENU DOLLAR^ACGSRT (,DONE)^ACGSZIS

^XBKVAR

^%ZIS

^%DTC

Name	Comments	DBIA/ICR reference
BEGIN	;ENTER BEGINNING DATE FOR SEARCH
EN
END	;ENTER ENDING DATE FOR SEARCH
ZIS
P	;
DOLLAR
Q	;COUNT NUMBERS AND DOLLARS OF ADMINISTRATIVELY CLOSED CONTRACTS
EN1	;SETUP FOR CLOSE OUT REPORT
R	;PRINT REPORT
EXIT
CLOSED	;SELECT TYPE OF CLOSURE
PRINT	;EP;TO PRINT CLOSE OUT REPORT

Name	Field # of Occurrence
^%DTC	P+6
^%ZIS	ZIS+3
DIR^ACGFDIC	CLOSED+3
DIR^ACGSDIC	BEGIN+3, END+3
HOLD^ACGSMENU	ZIS+7
DOLLAR^ACGSRT	DOLLAR
^ACGSZIS	ZIS+1
DONE^ACGSZIS	ZIS+6
^XBKVAR	EN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!,"Contracts",$S(ACGDOLLR>0:" over "_$FN(ACGDOLLR,"P",0),1:"")," with associated dollars,",!,"closed out between ",ACGBEGIN," and ",ACGEND,!,"following administrative close-out procedure: " Line Location: R+3
Function Call: WRITE	Prompt: !!?10,"Cost type contracts.: Number: ",$J(+ACG(20),10),?$X+3,$J($FN($P(ACG(20),U,2),"P,",0),12) Line Location: R+4
Function Call: WRITE	Prompt: !?10,"Other than cost type: Number: ",$J(+ACG(1),10),?$X+3,$J($FN($P(ACG(1),U,2),"P,",0),12) Line Location: R+5
Function Call: WRITE	Prompt: !!,"Open contracts awaiting closeout:" Line Location: R+6
Function Call: WRITE	Prompt: !!?10,"Cost type contracts.: Number: ",$J(+ACGWAIT(20),10),?$X+3,$J($FN($P(ACGWAIT(20),U,2),"P,",0),12) Line Location: R+7
Function Call: WRITE	Prompt: !?10,"Other than cost type: Number: ",$J(+ACGWAIT(1),10),?$X+3,$J($FN($P(ACGWAIT(1),U,2),"P,",0),12) Line Location: R+8
Function Call: WRITE	Prompt: !!,"Average length of time required to close out a contract." Line Location: R+9
Function Call: WRITE	Prompt: !!?10,"Cost type contracts.: Number: ",$J($S(+ACGAVG(20)<1:0,1:$P(ACGAVG(20),U,2)/30/+ACGAVG(20)),10) Line Location: R+10
Function Call: WRITE	Prompt: !?10,"Other than cost type: Number: ",$J($S(+ACGAVG(1)<1:0,1:$P(ACGAVG(1),U,2)/30/+ACGAVG(1)),10) Line Location: R+11
Function Call: WRITE	Prompt: ! Line Location: BEGIN+2
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: ! Line Location: CLOSED+2
Routine Call	%ZIS Line Location: ZIS+3

Name	Line Occurrences (* Changed, ! Killed)
^ACGS - [#9002330]	PRINT+4, Q+2
^ACGS("C"	Q+2
^ACGS("X"	PRINT+2, PRINT+4
^DD("DD"	R+1, R+2

Name	Line Occurrences
@(	EN1+1
EN1	EN+1
P	PRINT+4
PRINT	ZIS+5
Q	P+1
R	PRINT+5

Name	Field # of Occurrence
^("DT"	PRINT+4, Q+2
^("DT1"	PRINT+4, Q+2
^("IHS1"	PRINT+4

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ACG	EXIT!, EN1+1, PRINT+3, PRINT+4*, Q+2
ACG(	P+3*
ACG(1	PRINT+1*, R+5
ACG(20	PRINT+1*, R+4
ACG15	EXIT!, P+3*, P+4, P+7
ACG154	EXIT!, P+2*, P+5
ACG155	EXIT!, P+2*, P+4, P+5
ACG26	EXIT!, PRINT+1, P+3, P+4, Q+2, Q+3
ACG26T	EXIT!, PRINT+1*
ACGAVG	EXIT!
ACGAVG(	P+7*
ACGAVG(1	PRINT+1*, R+11
ACGAVG(20	PRINT+1*, R+10
ACGBEG	EXIT!, PRINT+2, PRINT+4, BEGIN+5
ACGBEGIN	EXIT!, R+1, R+3, BEGIN+5
ACGDOLLR	EXIT!, Q+3, R+3, DOLLAR+2*, DOLLAR+3
ACGDT	EXIT!, PRINT+4*
ACGDT1	EXIT!, PRINT+4*
ACGDT1X	EXIT!, Q+2*
ACGDTX	EXIT!, P+3, Q+2*
ACGEND	EXIT!, PRINT+2, R+2, R+3, END+5
ACGIHS1	EXIT!, PRINT+4*, P+2
ACGION	EXIT!
>> ACGIOP	ZIS+3*
>> ACGOUT	DOLLAR+1
ACGQUIT	EXIT!, EN1+1, BEGIN+4, END+4, CLOSED+4, DOLLAR+3!, ZIS+3*
>> ACGTYPE	CLOSED+5*
ACGWAIT	EXIT!
ACGWAIT(	P+4*
ACGWAIT(1	PRINT+1*, R+8
ACGWAIT(20	PRINT+1*, R+7
>> ACGX	Q+1, Q+2
>> ACGXREF	CLOSED+5*
>> DIR("?"	BEGIN+1, END+1, CLOSED+1*
>> DIR("A"	BEGIN+1, END+1
>> DIR(0	BEGIN+1, END+1, CLOSED+1*
IO	ZIS+4
IO("Q"	ZIS+2
IOF	R+3
ION	ZIS+3
>> IOP	ZIS+3*
IOST	ZIS+7
>> POP	ZIS+3
U	P+2, P+3, P+4, P+7, Q+2, R+4, R+5, R+7, R+8, R+10 , R+11
>> X	P+7
>> X1	P+5*
>> X2	P+5*
>> Y	R+1, R+2, BEGIN+4, BEGIN+5, END+4, END+5, CLOSED+4, CLOSED+5
>> ZTQUEUED	ZIS+3
>> ZTRTN	ZIS*

Customize PDF page

Package: Contracts and Grants

Routine: ACGSCLS

Information

Source Information

Call Graph

Call Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: