Sub-Field: 65.51

Parent File	Name	Number	Package
BLOOD DONOR(#65.5)	GROUP AFFILIATION	65.51	Lab Service

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	GROUP AFFILIATION	0;1	POINTER TO BLOOD BANK UTILITY FILE (#65.4)	BLOOD BANK UTILITY(#65.4) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,2)[""G""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `JAN 23, 1986` DESCRIPTION: Any group with which a donor might wish to be affiliated SCREEN: `S DIC("S")="I $P(^(0),U,2)[""G"""` EXPLANATION: `SELECTS GROUPS DONOR IS AFFILIATED WITH` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.02	FULL NAME		COMPUTED	MUMPS CODE: `X ^DD(65.51,.02,9.2) S D0=$P(Y(65.51,.02,1),U,1) S:'$D(^LAB(65.4,+D0,0)) D0=-1 S Y(65.51,.02,101)=$S($D(^LAB(65.4,D0,0)):^(0),1:"") S X=$P(Y(65.51,.02,101),U,3) S D0=Y(65.51,.02,80) S D1=Y(65.51,.02,81)` 9.2 = S Y(65.51,.02,81)=$S($D(D1):D1,1:""),Y(65.51,.02,80)=$S($D(D0):D0,1:""),Y(65.51,.02,1)=$S($D(^LRE(D0,2,D1,0)):^(0),1:"") ALGORITHM: `.01:FULL NAME` DESCRIPTION: This is the full name of the donor.

GROUP AFFILIATION

0;1

POINTER TO BLOOD BANK UTILITY FILE (#65.4)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)[""G""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JAN 23, 1986

DESCRIPTION:

Any group with which a donor might wish to be affiliated

FULL NAME

COMPUTED

MUMPS CODE: X ^DD(65.51,.02,9.2) S D0=$P(Y(65.51,.02,1),U,1) S:'$D(^LAB(65.4,+D0,0)) D0=-1 S Y(65.51,.02,101)=$S($D(^LAB(65.4,D0,0)):^(0),1:"") S X=$P(Y(65.51,.02,101),U,3) S D0=Y(65.51,.02,80) S D1=Y(65.51,.02,81)
```
9.2 = S Y(65.51,.02,81)=$S($D(D1):D1,1:""),Y(65.51,.02,80)=$S($D(D0):D0,1:""),Y(65.51,.02,1)=$S($D(^LRE(D0,2,D1,0)):^(0),1:"")
```
ALGORITHM: .01:FULL NAME
DESCRIPTION:
```
This is the full name of the donor.
```