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"",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)" D ^DIC K DIC S (DIC,DIE)="^LAB(66,",X=+Y K:Y<0 X I $D(X) S DINUM=X` LAST EDITED: `OCT 15, 2000` 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. Only components from the same symbology can be selected. For example, only Codabar units can be modified to other Codabar` `units, and only ISBT 128 units can be modified to other ISBT 128 units.` SCREEN: `S DIC("S")="I $P(^(0),U,4)=""BB"",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)"` 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"",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)" D ^DIC K DIC S (DIC,DIE)="^LAB(66,",X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: OCT 15, 2000
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. Only components from the same symbology can be selected. For example, only Codabar units can be modified to other Codabar
units, and only ISBT 128 units can be modified to other ISBT 128 units.
SCREEN: S DIC("S")="I $P(^(0),U,4)=""BB"",$P(^(0),U,29)=$P(^LAB(66,DA,0),U,29)"
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)

NOT ONLY ONE ALLOWED

0;2

SET

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.)