Sub-Field: 66.03

Parent File	Name	Number	Package
BLOOD PRODUCT(#66)	MODIFY TO	66.03	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.001	NUMBER		NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `AUG 06, 1985` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999` DESCRIPTION: `The internal file number in the blood product file that the current` blood product is modified to.
.01	MODIFY TO	0;1	POINTER TO BLOOD PRODUCT FILE (#66)	BLOOD PRODUCT(#66) INPUT TRANSFORM: `S:'$D(DIC(0)) DIC(0)="" S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S (DIC,DIE)="^LAB(66,",X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `JUN 15, 1985` HELP-PROMPT: `ANSWER MUST BE 2-50 CHARACTERS IN LENGTH` DESCRIPTION: If this product, IN INVENTORY, can be made into other components, list the components here. SCREEN: `S DIC("S")="I $P(^(0),U,4)=""BB"""` EXPLANATION: `Selects only blood components` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `66.03^B` 1)= S ^LAB(66,DA(1),3,"B",$E(X,1,30),DA)="" 2)= K ^LAB(66,DA(1),3,"B",$E(X,1,30),DA)
.02	NOT ONLY ONE ALLOWED	0;2	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 10, 1986` DESCRIPTION: If yes other products can be made from the same unit. (ex. packed RBC and plasma can be made from a unit of whole blood.)

NUMBER

INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: AUG 06, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999
DESCRIPTION: The internal file number in the blood product file that the current
```
blood product is modified to.
```

MODIFY TO

0;1

POINTER TO BLOOD PRODUCT FILE (#66)

INPUT TRANSFORM: S:'$D(DIC(0)) DIC(0)="" S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S (DIC,DIE)="^LAB(66,",X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: JUN 15, 1985
HELP-PROMPT: ANSWER MUST BE 2-50 CHARACTERS IN LENGTH

DESCRIPTION:

If this product, IN INVENTORY, can be made into other components, list the components here.

CROSS-REFERENCE: 66.03^B

1)= S ^LAB(66,DA(1),3,"B",$E(X,1,30),DA)=""

2)= K ^LAB(66,DA(1),3,"B",$E(X,1,30),DA)

NOT ONLY ONE ALLOWED

0;2

SET

DESCRIPTION:

If yes other products can be made from the same unit. (ex. packed RBC and plasma can be made from a unit of whole blood.)