Sub-Field: 442.16

Parent File	Name	Number	Package
442.1	BREAKOUT CODE	442.16	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	BREAKOUT CODE	0;1	POINTER TO CODE INDEX FILE (#420.6)	**********************REQUIRED FIELD********************** CODE INDEX(#420.6) INPUT TRANSFORM: `S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `SEP 15, 1988` DESCRIPTION: `This is the breakout code from FY88 and the socioeconomic group code for FY89.` SCREEN: `S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2"` EXPLANATION: `MUST BE A BREAKOUT CODE` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `442.16^B` `1)= S ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)`

BREAKOUT CODE

0;1

POINTER TO CODE INDEX FILE (#420.6)

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

INPUT TRANSFORM: S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: SEP 15, 1988
DESCRIPTION:
This is the breakout code from FY88 and the socioeconomic group code for FY89.
SCREEN: S DIC("S")="I $D(PRCHDT),$D(PRCHN(""MB"")),$D(PRCHN(""LSA"")),$D(PRCHN(""TC"")),""GHJKMNOWVY""[$P(^PRCD(420.6,Y,0),U,1) D EN2^PRCHNPO2"
EXPLANATION: MUST BE A BREAKOUT CODE
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 442.16^B
1)= S ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^PRC(442,DA(2),9,DA(1),1,"B",$E(X,1,30),DA)