Routine: ACGSVGL

Information

ACGSVGL ;IHS/OIRM/DSD/THL,AEF - CHECK FOR REQUIRED VENDOR AND GEOGRAPHICAL LOCATION DATA; [ 03/27/2000 2:22 PM ]

Source file <ACGSVGL.m>

Package	Total	Call Graph
Contracts and Grants	2	HOLD^ACGSMENU (,DONE)^ACGSZIS
VA Fileman	2	WAIT^DICD ^DIR

Name	Comments	DBIA/ICR reference
GLHD
VHD
DIR
V22	;;SMALL BUSINESS STATUS
V21	;;MINORITY NON-PROFIT BUSSINESS
V20	;;MINORITY BUSINESS (FOR PROFIT)
V27	;;SMALL PURCHASE VENDOR TYPE OF BUSINESS
V26	;;TYPE OF BUSINESS
V25	;;GEOGRAPHICAL LOCATION
EN1
V28	;;SMALL PURCHASE VENDOR TYPE OF VENDOR
V1	;;EIN NUMBER
V2	;;EIN SUFFIX
EN
E
CHK
V32	;;CITY ADDRESS
V33	;;STATE
V
GL
V31	;;STREET ADDRESS
V18	;;SIZE OF BUSINESS
V19	;;ORGANIZATION/INDIVIDUAL
V34	;;ZIPCODE
V13	;;EIN & SUFFIX
V16	;;CONGRESSIONAL DISTRICT
V17	;;LABOR SURPLUS AREA
V15	;;WOMEN OWNED BUSINESS
EXIT
GL2	;;COUNTY CODE
GL3	;;CITY CODE
GL4	;;CONGRESSIONAL DISTRICT
GL5	;;COUNTY
GL6	;;STATE
GL7	;;LABOR SURPLUS AREA

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The following procedure will check contractors and locations for missing data." Line Location: EN1+0
Function Call: WRITE	Prompt: !!,"NO MISSING CONTRACTOR OR GEOGRAPHICAL LOCATION DATA FOUND." Line Location: EN1+15
Function Call: WRITE	Prompt: !!,"MISSING CONTRACTOR OR GEOGRAPHICAL LOCATION DATA FOUND.",!,"INDICATE WHERE TO PRINT THE MISSING DATA REPORT." Line Location: EN1+16
Function Call: WRITE	Prompt: !?10,ACGFL Line Location: GL+5
Function Call: WRITE	Prompt: !!,"The following GEOGRAPHICAL LOCATION(S) are missing essential data.",!,"This data must be completed before you continue." Line Location: GLHD+1
Function Call: WRITE	Prompt: !?10,ACGFL Line Location: V+5
Function Call: WRITE	Prompt: !!,"The following CONTRACTOR(S) are missing essential data.",!,"This data must be completed before you continue." Line Location: VHD+1
Routine Call	DIR Line Location: DIR

Name	Line Occurrences (* Changed, ! Killed)
^ACGS - [#9002330]	EN1+5, CHK+3
^ACGS("H"	EN1+3, EN1+5, CHK+1, CHK+3
^AUTTGL - [#9999999.79]	EN1+14, CHK+12
^AUTTVNDR - [#9999999.11]	EN1+3, EN1+11, CHK+1
^TMP(	E+1!
^TMP("ACGGL"	EN!, EXIT!, E+3, GL+2, GL+5, GL+6, CHK+12*
^TMP("ACGV"	EN!, EXIT!, E+4, V+2, V+5, V+6, CHK+5, CHK+6, CHK+7, CHK+8 , CHK+9*

Name	Field # of Occurrence
ACG	EN!, EXIT!, EN1+2, EN1+3, EN1+5, EN1+11, EN1+13, EN1+14, GL+1, GL+2 , GL+3, GL+5, GL+6, V+1, V+2, V+3, V+5, V+6, CHK, CHK+1 , CHK+3, CHK+11, CHK+12
ACG0	EXIT!, EN1+14, CHK+1, CHK+5, CHK+6, CHK+7, CHK+8, CHK+9
ACG11	EXIT!, EN1+3, EN1+7, EN1+8, EN1+9, CHK+1, CHK+5, CHK+6, CHK+7, CHK+8
ACG13	EXIT!, CHK+1*, CHK+9
ACGCIS	EN1+4!, EN1+5, EN1+6, CHK+2!, CHK+3, CHK+4, CHK+10!
ACGF	EXIT!, GL+4, GL+5, GL+6, V+4, V+5, V+6
ACGFL	EXIT!, GL+5, V+5
ACGGL	EXIT!
ACGI	EXIT!, EN1+6, EN1+7, EN1+8, EN1+9, EN1+11, EN1+14, CHK+5, CHK+6, CHK+7 , CHK+8, CHK+9, CHK+12*
ACGION	EXIT!
ACGMISS	EN1+1!, EN1+3, EN1+6, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, EN1+12, EN1+14* , EN1+15, EN1+16!
ACGQUIT	EN!, EXIT!, EN1+19!, GL+2, GL+5, GL+6, GL+7, V+2, V+5, V+6 , V+7, DIR*
ACGSP	EN1+4!, EN1+5, EN1+11, CHK+2!, CHK+3, CHK+8, CHK+10!
ACGV	EXIT!
>> ACGX	EN1+5, CHK+3
DIR	DIR!
DIRUT	DIR!
DTOUT	DIR!
DUOUT	DIR!
IO	EN1+21
IO("Q"	EN1+20
IOF	GLHD, VHD
IOSL	GL+6, V+6
IOST	GL+6, GL+7, V+6, V+7
U	EN1+5, EN1+7, EN1+8, EN1+9, EN1+11, EN1+14, CHK+1, CHK+3, CHK+5, CHK+6 , CHK+7, CHK+8, CHK+9, CHK+12
>> X	E+1*
>> ZTDESC	EN1+17*
>> ZTQUEUED	E
>> ZTRTN	EN1+17*

Name	Field # of Occurrence
$T(@(3)	GL+5, V+5