Sub-Field: 444.11

Parent File	Name	Number	Package
RFQ VENDOR(#444.1)	SOCIOECONOMIC GROUP	444.11	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SOCIOECONOMIC GROUP	0;1	POINTER TO CODE INDEX FILE (#420.6)	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)_" "_$P(Y,U,2)` LAST EDITED: `JAN 19, 1996` 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` CROSS-REFERENCE: `444.11^B` `1)= S ^PRC(444.1,DA(1),4,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(444.1,DA(1),4,"B",$E(X,1,30),DA)`

SOCIOECONOMIC GROUP

0;1

POINTER TO CODE INDEX FILE (#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)_" "_$P(Y,U,2)
LAST EDITED: JAN 19, 1996
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
CROSS-REFERENCE: 444.11^B
1)= S ^PRC(444.1,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^PRC(444.1,DA(1),4,"B",$E(X,1,30),DA)