Sub-Field: 444.19

Parent File	Name	Number	Package
RFQ VENDOR(#444.1)	TYPE OF OWNERSHIP	444.19	IFCAP

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	TYPE OF OWNERSHIP	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),$P(^(0),U,3)=0" 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 18, 1996` DESCRIPTION: `This is the type of ownership.` SCREEN: `S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0"` EXPLANATION: `Can only be an M, W, Y, or V` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `444.19^B` `1)= S ^PRC(444.1,DA(1),3,"B",$E(X,1,30),DA)=""` `2)= K ^PRC(444.1,DA(1),3,"B",$E(X,1,30),DA)`

TYPE OF OWNERSHIP

0;1

POINTER TO CODE INDEX FILE (#420.6)

INPUT TRANSFORM: S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0" 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 18, 1996
DESCRIPTION:
This is the type of ownership.
SCREEN: S DIC("S")="I ""MWVY""[$P(^PRCD(420.6,Y,0),U),$P(^(0),U,3)=0"
EXPLANATION: Can only be an M, W, Y, or V
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 444.19^B
1)= S ^PRC(444.1,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^PRC(444.1,DA(1),3,"B",$E(X,1,30),DA)