Sub-Field: 440.05

Parent File	Name	Number	Package
VENDOR(#440)	SOCIOECONOMIC GROUP (FPDS)	440.05	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",DIC("S")=DIC("S")_$S($P(^PRC(440,DA,2),U,3)'=4:",Y<169",1:",Y<169") 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: `JAN 09, 2001` 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",DIC("S")=DIC("S")_$S($P(^PRC(440,DA,2),U,3)'=4:",Y<169",1:",Y<169")` EXPLANATION: `Select HZ,N,P,RV,W,S,U,LW,LV, 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",DIC("S")=DIC("S")_$S($P(^PRC(440,DA,2),U,3)'=4:",Y<169",1:",Y<169") 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: JAN 09, 2001
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",DIC("S")=DIC("S")_$S($P(^PRC(440,DA,2),U,3)'=4:",Y<169",1:",Y<169")
EXPLANATION: Select HZ,N,P,RV,W,S,U,LW,LV, or OO
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER