Sub-Field: 440.35

Parent File	Name	Number	Package
VENDOR EDIT(#440.3)	SOCIOECONOMIC GROUP (FPDS)	440.35	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SOCIOECONOMIC GROUP (FPDS)	0;1	POINTER TO CODE INDEX FILE (#420.6)	**********************REQUIRED FIELD********************** CODE INDEX(#420.6) INPUT TRANSFORM: `S DIC("S")="I Y>155,$P(^(0),U,3)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` OUTPUT TRANSFORM: `Q:Y="" S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""),Y=$P(Y,U,1)_" "_$P(Y,U,2)` LAST EDITED: `SEP 21, 1988` HELP-PROMPT: `Enter FPDS Socioeconomic Group for use in FPDS reporting for FY 1989 or later.` DESCRIPTION: `This is the socioeconomic group.` SCREEN: `S DIC("S")="I Y>155,$P(^(0),U,3)=1"` EXPLANATION: `Select N,P,Q,R,W or OO` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

SOCIOECONOMIC GROUP (FPDS)

0;1

POINTER TO CODE INDEX FILE (#420.6)

************************REQUIRED FIELD************************

INPUT TRANSFORM: S DIC("S")="I Y>155,$P(^(0),U,3)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
OUTPUT TRANSFORM: Q:Y="" S Y=$S($D(^PRCD(420.6,Y,0)):^(0),1:""),Y=$P(Y,U,1)_" "_$P(Y,U,2)
LAST EDITED: SEP 21, 1988
HELP-PROMPT: Enter FPDS Socioeconomic Group for use in FPDS reporting for FY 1989 or later.
DESCRIPTION:
This is the socioeconomic group.
SCREEN: S DIC("S")="I Y>155,$P(^(0),U,3)=1"
EXPLANATION: Select N,P,Q,R,W or OO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER