Routine: PRCHFPDS

Information

PRCHFPDS ;WISC/RWS-FPDS SCREENS FOR FY89 ;12/20/96 2:02 PM

Name	Comments	DBIA/ICR reference
V	;;5.1;IFCAP;16,59,79;Oct 20, 2000
PROC	;Screen for Proc. Method/Bus. codes
PROCQ
PREF	;Screen for Pref Prog. Codes
PREF2	;Z2=COMPETITIVE STATUS/BUSINESS, Z1=PREFERENCE PROGRAM CODE, PRCHN("MB")=METHOD OF BUSINESS
PREFQ
BREAK	;Setting BREAKOUT CODE (# 442.16)	ICR #6879 Status: Active Usage: Private
COMP	;template PRCHAMT89 calls COMP
COMP2	;
COMPQ
CHK	; CHECK FOR VARIOUS COMBINATIONS OF 'SOCIOECONOMIC GROUP (FY89)' CODES IN VENDOR FILE.
EX
ERR
D1	; DISPLAY BREAKOUT CODES BROUGHT FROM VENDOR FILE IN ROUTINE PREF (CALLED FROM INPUT TEMPLATE PRCHAMT89)

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Possible Preference Program Codes: " Line Location: PREF+3
Function Call: WRITE	Prompt: "," Condition for execution: I Line Location: PREF+4
Function Call: WRITE	Prompt: $P(^PRCD(420.6,Y,0),U,1) Line Location: PREF+4
Function Call: WRITE	Prompt: ! Line Location: PREF+11
Function Call: WRITE	Prompt: !!,"Possible Competitive Status/Business codes: " Line Location: COMP+3
Function Call: WRITE	Prompt: "," Condition for execution: I Line Location: COMP+4
Function Call: WRITE	Prompt: $P(^PRCD(420.6,Y,0),U,1) Line Location: COMP+4
Function Call: WRITE	Prompt: ! Line Location: COMP+8
Function Call: WRITE	Prompt: $C(7),!!,"You CANNOT have a Socioeconomic Group of OO--NONE OF THE OTHER CATEGORIES",!,"in combination with any other Socioeconomic Group",!,"RE-ENTER ALL!!!",! Line Location: CHK+4
Function Call: WRITE	Prompt: $C(7),!!,"You CANNOT have the Socioeconomic Group of P--JAVITS-WAGNER-O'DAY",!,"in combination with any LARGE group",!,"RE-ENTER ALL!!!",! Line Location: CHK+5
Function Call: WRITE	Prompt: $C(7),!!,"Category RV--SERVICE-DISABLED VETERAN must also include S--VETERAN-OWNED SM BUSINESS",!,"RE-ENTER ALL!!!" Line Location: CHK+6
Function Call: WRITE	Prompt: !!,"Following Socioeconomic Group Codes brought over from Vendor File:",! Condition for execution: J=1 Line Location: D1+1
Function Call: WRITE	Prompt: ?5,$P(X,"^",1)_" "_$P(X,"^",2),! Line Location: D1+1