Sub-Field: 69.981

Parent File	Name	Number	Package
LABORATORY SITE(#69.9)	BLOOD BANK DIVISION	69.981	Lab Service

Details

Field #	Name	Loc	Type	Details
.01	BLOOD BANK DIVISION	0;1	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) INPUT TRANSFORM: `S DIC("S")="I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X` LAST EDITED: `JUL 25, 1996` SCREEN: `S DIC("S")="I +$G(^DIC(4,+Y,99))=+$$SITE^VASITE"` EXPLANATION: `Allows only divisions for site.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `69.981^B` 1)= S ^LAB(69.9,DA(1),8.1,"B",$E(X,1,30),DA)="" 2)= K ^LAB(69.9,DA(1),8.1,"B",$E(X,1,30),DA)
.02	INVENTORY MAJOR SECTION	0;2	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `NOV 01, 1992`
.03	INVENTORY SUBSECTION	0;3	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `NOV 01, 1992`
.04	DONOR MAJOR SECTION	0;4	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `NOV 01, 1992`
.05	DONOR SUBSECTION	0;5	POINTER TO ACCESSION FILE (#68)	ACCESSION(#68) LAST EDITED: `NOV 01, 1992`
.06	MULTIPLE ACCESSION AREA	0;6	SET	'1' FOR YES; '1' FOR yes; '0' FOR NO; '0' FOR no; LAST EDITED: `JUL 05, 1995`