Sub-Field: 65.091

Parent File	Name	Number	Package
BLOOD INVENTORY(#65)	MODIFIED TO/FROM	65.091	Lab Service

Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JAN 29, 1986` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 20` DESCRIPTION: `A number from 1 to 20`
.01	MODIFIED TO/FROM	0;1	POINTER TO BLOOD PRODUCT FILE (#66)	BLOOD PRODUCT(#66) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,6)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `MAY 28, 1985` DESCRIPTION: `If unit is modified identifies what products are made and what are the new units by ID #. If unit is a pool identifies what product was pooled and what units are in the pool.` SCREEN: `S DIC("S")="I $P(^(0),U,6)]"""""` EXPLANATION: `Products allowed to be made from inventory`
.02	UNIT ID	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>13!($L(X)<2) X` LAST EDITED: `OCT 23, 2000` HELP-PROMPT: `ANSWER MUST BE 2-13 CHARACTERS IN LENGTH` DESCRIPTION: `If the unit is to be modified the ID of the new unit is entered here. If the unit is a modified unit the old unit ID's are entered.`
.03	FROM/TO	0;3	SET	'1' FOR FROM; '2' FOR TO; LAST EDITED: `JUL 06, 1992` DESCRIPTION: `If entry is from another unit a '1' is entered.` `If entry is to become or be part of another unit a '2' is entered.` `Several of the entries may have been entered to form a pool and` `each entry will have a '1' entered. Then the pool may be modified` `to another unit and then the entry will have a '2' entered.`