Routine: ACGSCPAR

Information

ACGSCPAR ;IHS/OIRM/DSD/THL,AEF - UTILITY TO PRINT THE COMPETITIVE PROCUREMENT ACTIVITY REPORT; [ 03/27/2000 2:22 PM ]

Package	Total	Call Graph
Contracts and Grants	4	^ACGSCPA1 DIR^ACGSDIC FY^ACGSEXP (,DONE)^ACGSZIS
Kernel	1	^%ZIS
VA Fileman	1	^DIR

Package	Total	Caller Graph
Contracts and Grants	5	ACGSCPA1 ACGSICR ACGSSPR ACGSSWS ACGSUNIC

Name	Comments	DBIA/ICR reference
HEAD	;EP;TO PRINT HEADER
EN
CO	;EP
ZIS
TEMP
BEGIN
PERIOD
EN1
EXIT
B1
REPORT
DONE
QT	;EP;TO DETERMINE DATE RANGE FOR QUARTERS
DIR
R1

Name	Line Occurrences
Function Call: WRITE	Prompt: !?20,"COMPETITIVE PROCUREMENT ACTIVITY REPORT",!!,"PERIOD BEGINNING DATE: ",$E(ACGBEGIN,2,7),!,"PERIOD ENDING DATE...: ",$E(ACGEND,2,7),!,"CURRENT DATE.........: ",ACGTODAY,!,"PROCURING ACTIVITY...: " Line Location: HEAD+4
Function Call: WRITE	Prompt: $S($D(^ACGPO("C",ACG4)):ACG4_" "_$P(^ACGPO($O(^ACGPO("C",ACG4,0)),0),U),1:"COMBINED REPORT") Line Location: TEMP+0
Function Call: WRITE	Prompt: !!," (1) \| (2) \| (3) \| (4) \| (5) \| (6)" Line Location: TEMP+1
Function Call: WRITE	Prompt: !," P.L. \| BUY \| SB/LSA \| 8(A) \| ALL \|" Line Location: TEMP+2
Function Call: WRITE	Prompt: !," 93-638 \| INDIAN \| SET ASIDES \| AWARD \| OTHERS \| TOTALS" Line Location: TEMP+3
Function Call: WRITE	Prompt: !,"--------------\|------------\|------------\|------------\|------------\|-------------" Line Location: TEMP+4
Function Call: WRITE	Prompt: !," NO. \| NO. \| NO. \| NO. \| NO. \| NO." Line Location: TEMP+5
Function Call: WRITE	Prompt: !," AMOUNT \| AMOUNT \| AMOUNT \| AMOUNT \| AMOUNT \| AMOUNT" Line Location: TEMP+6
Function Call: WRITE	Prompt: !,"--------------\|------------\|------------\|------------\|------------\|-------------" Line Location: TEMP+7
Function Call: WRITE	Prompt: ! Line Location: QT+2
Routine Call	DIR Line Location: DIR
Routine Call	%ZIS Line Location: REPORT

Name	Line Occurrences (* Changed, ! Killed)
^ACGPARA - [#9002335]	EN
^ACGPO - [#9002334]	TEMP
^ACGPO("C"	TEMP
^ACGPPC - [#9002330.9]	B1+7
^ACGS - [#9002330]	B1+1, B1+2, B1+3
^ACGS("T"	BEGIN+4, B1+1
^ACGTPA - [#9002330.1]	B1+7
^DD("DD"	HEAD+3

Name	Field # of Occurrence
^("DT"	B1+3
^("DT1"	B1+1, B1+3

Name	Field # of Occurrence
ACG	EXIT!, BEGIN+1, BEGIN+2, B1+8, B1+9
ACG1	EXIT!, BEGIN+1, B1+3, B1+4, B1+5, B1+7, B1+8, B1+11
ACG19	EXIT!, B1+3, B1+6, B1+7*, B1+8, B1+10, B1+11
ACG26	EXIT!, B1+3*, B1+8, B1+9, B1+10, B1+11
>> ACG26X	BEGIN+3, B1+3
ACG27	EXIT!, B1+3, B1+7, B1+9, B1+10
ACG4	EN, EXIT!, EN1+3, EN1+4, REPORT+2, HEAD+2, TEMP, BEGIN+1, BEGIN+2, B1+2 , B1+8, B1+9, B1+10, B1+11, CO+5
ACG4X	EXIT!, EN1+4, REPORT+2, REPORT+3, R1+3, B1+2, CO+5
ACGBEG	EXIT!, BEGIN+3, BEGIN+4, B1+1
ACGBEGIN	EXIT!, HEAD+4, BEGIN+3, PERIOD+2*
ACGEND	EXIT!, HEAD+4, BEGIN+4, PERIOD+2, PERIOD+4
ACGFY	EXIT!, PERIOD*, PERIOD+2, PERIOD+4
>> ACGIOP	REPORT*
>> ACGPARA	EN*
>> ACGPODA	EN
ACGQIT	EXIT!
ACGQT	EXIT!, QT+5, QT+6, QT+8*, PERIOD, PERIOD+2, PERIOD+4
ACGQTX	QT+6*, QT+8!
ACGQUIT	EXIT!, EN1!, EN1+2!, EN1+3, ZIS+2, REPORT, REPORT+2!, R1, QT+4, QT+9 , CO+4, DIR
ACGRDA	EXIT!, B1, B1+1, B1+2, B1+3
ACGT	EXIT!, HEAD+2*, BEGIN!
ACGT(	BEGIN+1, BEGIN+2, B1+8, B1+9, B1+10, B1+11
ACGTODAY	EXIT!, HEAD+3*, HEAD+4
ACGX	EXIT!, B1+8*
DIR	DIR!
DIR("?"	QT+1, CO+2
DIR("A"	QT+1, CO+2
DIR(0	QT+1, CO+1, CO+2*
DIRUT	DIR!
DT	HEAD+3
DTOUT	DIR!
DUOUT	DIR!
IO	REPORT+1
IOF	R1+2, HEAD+1
ION	REPORT
>> IOP	REPORT*
>> POP	REPORT
U	EN, TEMP, B1+2, B1+3, B1+7, B1+8, B1+9, B1+10, B1+11
>> Y	HEAD+3*, QT+5, CO+5
ZTDESC	EXIT!, ZIS*
>> ZTQUEUED	REPORT
ZTRTN	EXIT!, ZIS*