Routine: ACGSSR

Package	Total	Call Graph
Contracts and Grants	4	DIR^ACGSDIC FY^ACGSEXP HEAD^ACGSMENU ^ACGSZIS
VA Fileman	2	EN1^DIP ^DIR

Entry Points

Name	Comments	DBIA/ICR reference
11	;;CONTRACT WITH 99 IN NEG-AUTHORITY;;@14,@.01,2;99,0,;99,0,
10	;;COST CONTRACTS $100,000 OR LESS;;'15,'26,@.01,2,@15;20,0,0,;24,100000,0,
13	;;SUMMARY FOR ONE CONTRACT;;2,@.01;,0;,0
EN
LIST
9	;;ADVISORY AND ASSISTANCE SERVICES CONTRACTS;;@16,@.01,2;1,0,;1,0,
REPORTS	;;
1	;;ACTIVE CONTRACTS;;@121,@.01,2;1,0,;1,0,
EN1
3	;;ACTIVE NON-COMPETITIVE CONTRACTS;;@121,@12,@.01,2;1,B,0,;1,D,0,
P1
EXIT
4	;;ACTIVE & INACTIVE 638 CONTRACTS;;@19,@.01,2;61,0,;61,0,
7	;;ACTIVE NON-COMPETITIVE BUY INDIAN CONTRACTS;;@19,@121,@.01,2;62,1,0,;62,1,0,
6	;;ACTIVE COMPETITIVE BUY INDIAN CONTRACTS;;@19,@121,@.01,2;58,1,0,;58,1,0,
PRINT
2	;;ACTIVE COMPETITIVE CONTRACTS;;@121,12,@.01,2;1,A,0,;1,A,0,
12	;;ALL CONTRACTS FOR SPECIFIED CONTRACTOR;;11,@.01,2;,0,;,0,
5	;;ACTIVE 638 CONTRACTS;;@19,@121,@.01,2;61,1,0,;61,1,0,
DIR
8	;;AWARDS TO WOMAN-OWNED ORGANIZATIONS;;@30,@.01,2;1,0,;1,0,

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?32,"STANDARD REPORTS",! Line Location: EN1+1
Function Call: WRITE	Prompt: ! Line Location: LIST+0
Function Call: WRITE	Prompt: !?10,ACGI,?20,$P(ACG,";;") Line Location: LIST+1
Function Call: WRITE	Prompt: ! Line Location: LIST+3
Function Call: WRITE	Prompt: ! Line Location: LIST+7
Function Call: WRITE	Prompt: ! Line Location: LIST+12
Function Call: WRITE	Prompt: ! Line Location: LIST+22
Routine Call	DIR Line Location: DIR

FileNo	Call Tags
^ACGS - [#9002330]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ACGS("B"	LIST+16
^ACGS("M"	LIST+10

Name	Line Occurrences
EN1	EN
P1	PRINT+1

Name	Field # of Occurrence
>> %ZIS("IOPAR"	P1+1*
ACG	EXIT!, LIST+1*
ACG(	LIST+1*, PRINT+1
>> ACG4	LIST+26
ACGCNO	EXIT!, LIST+17*, P1+3
>> ACGCO	LIST+20, LIST+31, P1+4, P1+6
ACGEIN	EXIT!, LIST+11*, P1+2
>> ACGFY	LIST+20*, P1+4, P1+5
ACGI	EXIT!, LIST+1, LIST+2, PRINT~, PRINT+1
>> ACGIO("HFSIO"	P1+1
ACGION	EXIT!, P1+1, P1+7
ACGIOP	EXIT!
ACGIOPAR	EXIT!, P1+1
ACGQUIT	EN, EXIT!, EN1+2, LIST+5, LIST+9!, LIST+14!, LIST+24, LIST+30, LIST+32!, LIST+35 , DIR*
ACGRPT	EXIT!, PRINT+1, P1
ACGRPTX	EXIT!, PRINT+1*, P1+2, P1+3, P1+4, P1+5, P1+6
ACGY	EXIT!, LIST+6, LIST+7, LIST+8, LIST+9, LIST+10, LIST+12, LIST+13, LIST+14, LIST+16* , LIST+18*, LIST+19, LIST+20
ACGYY	EXIT!, LIST+7, LIST+8, LIST+12, LIST+13, LIST+20*, PRINT+1
BY	EXIT!, P1*
DC	P1+8!, P1+11!
DHD	EXIT!, P1*
DIC	EXIT!, P1*
DIOEND	EXIT!, P1*
DIP	P1+8!, P1+11!
DIR	DIR!
DIR("?"	LIST+7, LIST+12
DIR("A"	LIST+2, LIST+7, LIST+12, LIST+21, LIST+27, LIST+31
DIR("B"	LIST+21, LIST+27
DIR(0	LIST+2, LIST+7, LIST+12, LIST+21, LIST+27, LIST+31
DIRUT	DIR!
DIS	EXIT!
DIS(0	P1+4, P1+5, P1+6, P1+9
DTOUT	DIR!
DUOUT	DIR!
DXS	P1+8!, P1+11!
FLDS	EXIT!, P1*
FR	EXIT!, P1, P1+2, P1+3*
IO("HFSIO"	P1+1*
IO("Q"	LIST+35
IOP	P1+7*, P1+11!
POP	EXIT!
TO	EXIT!, P1, P1+2, P1+3*
U	LIST+31
>> Y	LIST+6, LIST+10, LIST+11, LIST+15*, LIST+16, LIST+17, LIST+25, LIST+31
>> Y(0	LIST+31
ZTDESC	EXIT!, LIST+33*
ZTIO	EXIT!
ZTRTN	EXIT!, LIST+33*
ZTSAVE	EXIT!
ZTSK	EXIT!

Name	Field # of Occurrence
$T(REPORTS+ACGI	LIST+1