Sub-Field: 440.31

Parent File	Name	Number	Package
VENDOR EDIT(#440.3)	TYPE OF OWNERSHIP (FY88)	440.31	IFCAP

Parent File

Name

Number

Package

TYPE OF OWNERSHIP (FY88)

440.31

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TYPE OF OWNERSHIP (FY88)	0;1	POINTER TO CODE INDEX FILE (#420.6)	CODE INDEX(#420.6) INPUT TRANSFORM: `S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S 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` DESCRIPTION: `This is the type of ownership.` SCREEN: `S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"` EXPLANATION: `CAN ONLY BE AN M,W,Y OR V` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`

TYPE OF OWNERSHIP (FY88)

0;1

POINTER TO CODE INDEX FILE (#420.6)

INPUT TRANSFORM: S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S 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
DESCRIPTION:
This is the type of ownership.
SCREEN: S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U,1),$P(^(0),U,3)=0"
EXPLANATION: CAN ONLY BE AN M,W,Y OR V
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER