Global: ^LAB(66

FileMan FileNo	FileMan Filename	Package
66	BLOOD PRODUCT	Lab Service

Package	Total	Routines
Lab Service	7	LRBLCMV LRBLJD LRBLJDM LRBLJM LRBLJTS LRBLPED LRBLS
VBECS	1	VBECA5A

Package	Total	FileMan Files
Lab Service	8	BLOOD PRODUCT(#66)[.22, 9, #66.03(.01)] OPERATION (MSBOS)(#66.5)[#66.51(.01)] BLOOD COMPONENT REQUEST(#66.9)[#66.91(.01)] WKLD CODE(#64)[#64.023(.01)] LAB DATA(#63)[#63.015(.02), #63.017(.02), #63.019(.01), #63.084(.01)] BLOOD INVENTORY(#65)[.04, #65.091(.01)] BLOOD DONOR(#65.5)[#65.62(.01), #65.66(.01)] VBECS DATA INTEGRITY/CONVERSION STATISTICS(#6001)[#6001.01(.07)]

Package	Total	FileMan Files
Lab Service	4	LABORATORY TEST(#60)[#66.04(.01), #66.08(.01)] TOPOGRAPHY FIELD(#61)[#66.04(.02), #66.08(.02)] BLOOD PRODUCT(#66)[.22, 9, #66.03(.01)] WKLD CODE(#64)[#66.06(.01)]
Kernel	2	INSTITUTION(#4)[#66.1(.01)] STATE(#5)[#66.01(.07)]

Fields, Total: 40

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>40!($L(X)<2)!'(X'?1P.E)!(X'?.ANP) X` LAST EDITED: `MAR 22, 1985` HELP-PROMPT: `ANSWER MUST BE 2-40 CHARACTERS IN LENGTH` DESCRIPTION: `Name of blood component, reagent or service supplied to blood bank.` CROSS-REFERENCE: `66^B` `1)= S ^LAB(66,"B",$E(X,1,30),DA)=""` `2)= K ^LAB(66,"B",$E(X,1,30),DA)`
.02	ABBREVIATION	0;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>4!($L(X)<1) X I $D(X),$D(^LAB(66,"B",X)) W !,"Already exists" K X` LAST EDITED: `OCT 15, 1985` HELP-PROMPT: `ANSWER MUST BE 1-4 CHARACTERS IN LENGTH` DESCRIPTION: `The abbreviation of the ITEM` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `66^B^MNEMONIC` `1)= S ^LAB(66,"B",$E(X,1,30),DA)=1` `2)= K ^LAB(66,"B",$E(X,1,30),DA)`
.03	CAN BE MODIFIED	0;3	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 09, 1986` DESCRIPTION: `If product can be modified (divided, washed, frozen, pooled, made leukocyte poor, rejuvenated, or deglycerolized) answer prompt with YES.`
.04	IDENTIFIER	0;4	SET	**********************REQUIRED FIELD********************** 'BB' FOR COMPONENT/DERIVATIVE; 'AB' FOR ANTISERUM; 'T' FOR TEST PROVIDED; LAST EDITED: `JAN 07, 1987` DESCRIPTION: `Identifies if entry is a blood component for transfusion, a reagent used in blood banking or a product for manufacturing use only.`
.05	PRODUCT CODE	0;5	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1)!'(X?1E.E) X` LAST EDITED: `OCT 11, 2000` HELP-PROMPT: `ENTER 1-8 CHARACTERS ONLY` DESCRIPTION: `Product code conforms to the uniform labeling of blood and blood components described in either the UNIFORM LABELING OF BLOOD AND BLOOD COMPONENTS: USERS' GUIDE SEPTEMBER 1982 (Codabar) or the United States Industry` `Consensus Standard for the Uniform Labeling of Blood and Blood Components Using ISBT 128, v 1.2.0 November 1999.` CROSS-REFERENCE: `66^D` `1)= S ^LAB(66,"D",$E(X,1,30),DA)=""` `2)= K ^LAB(66,"D",$E(X,1,30),DA)`
.055	DOD CODE	0;20	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>5!($L(X)<2) X` LAST EDITED: `MAR 17, 1988` HELP-PROMPT: `ANSWER MUST BE 2-5 CHARACTERS IN LENGTH` DESCRIPTION: `Product codes for the purpose of shipping blood component` `inventory by Department of Defense (DOD) facilities.`
.06	MODIFICATION CRITERIA	0;6	SET	'D' FOR DIVIDED; 'P' FOR POOLED; 'W' FOR WASHED; 'F' FOR FROZEN; 'L' FOR LEUKOCYTE POOR; 'R' FOR REJUVENATED; 'G' FOR DEGLYCEROLIZED; 'I' FOR IRRADIATED; 'S' FOR SEPARATED; LAST EDITED: `JUN 10, 1993` DESCRIPTION: `If this product can be made from another product present in inventory enter appropriate response. If selection is D (DIVIDED) a single letter suffix will be appended (from A-E) to the unit ID depending upon the number of` `aliquots up to 5.` `This field is used to trigger the appropriate prompts if the new product(s) will be divided units or a pool.`
.07	PATIENT/PRODUCT ABO	0;7	SET	'1' FOR MUST MATCH; '2' FOR MUST BE COMPATIBLE; LAST EDITED: `MAY 20, 1985` DESCRIPTION: `Either the patient and product ABO group must match or be compatible`
.08	PATIENT/PRODUCT RH	0;8	SET	'1' FOR MUST MATCH; '2' FOR MUST BE COMPATIBLE; DESCRIPTION: `Either the patient and product RH type must match or be compatible`
.09	PATIENT/PRODUCT REQUIREMENT	0;9	SET	'1' FOR CROSSMATCH; '2' FOR PLASMA/PATIENT COMPATIBILITY; LAST EDITED: `JUL 30, 1985` DESCRIPTION: `If the product requires a crossmatch enter 'CROSSMATCH'` `If the product requires patient plasma compatibility enter` `'PLASMA/PATIENT COMPATIBILITY'`
.1	VOLUME (ml)	0;10	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `MAY 31, 1988` HELP-PROMPT: `Type a Number between 1 and 1000, 0 Decimal Digits` DESCRIPTION: `Enter the usual volume in milliliters (ml) of the component`
.11	DAYS LEFT	0;11	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>2557)!(X<.16)!(X?.E1"."3N.N) X` LAST EDITED: `JUN 06, 1988` HELP-PROMPT: `Type a Number between .16 and 2557, 2 Decimal Digits` DESCRIPTION: `If this product made from another one in INVENTORY enter number` `of days left before the newly made component will expire.`
.12	ANTICOAGULANT/ADDITIVE	0;12	SET	'1' FOR CPD; '2' FOR ACD; '3' FOR CPDA-1; '4' FOR ADSOL; LAST EDITED: `OCT 08, 1995` DESCRIPTION: `Enter the anticoagulant mixed with the component`
.13	COLLECTION/PREP HOURS	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>144)!(X<1)!(X?.E1"."1N.N) X I $D(X) S X=X*60` OUTPUT TRANSFORM: `S Y=Y\60` LAST EDITED: `JAN 06, 1987` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 1 AND 144` DESCRIPTION: `The maximum hours allowed between blood collection and` `preparation of component. If no entry no checking will be done.` `If maximum hours exceeded component cannot be prepared.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.135	MAXIMUM STORAGE DAYS	0;17	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>3652)!(X<.16)!(X?.E1"."3N.N) X` LAST EDITED: `JUL 11, 1988` HELP-PROMPT: `TYPE A NUMBER BETWEEN .16 AND 3652 (4hr to 10 yrs)` DESCRIPTION: `Maximum storage time from time of donation or preparation.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.14	MODIFIED BEFORE RELEASE	0;14	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 18, 1985` DESCRIPTION: `If component must be further modified before release (ex. frozen RBC must` `be deglycerolized before transfusion) a 'YES' is entered.`
.15	CAN BE REQUESTED	0;15	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JUL 25, 1985` DESCRIPTION: `If component can be requested for a patient a 'YES' is entered.`
.16	PATIENT SPECIMEN AGE ALLOWED	0;16	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>240)!(X<24)!(X?.E1"."1N.N) X` LAST EDITED: `JUL 26, 1985` HELP-PROMPT: `Enter maximum number of hours (24 to 240) allowed` DESCRIPTION: `If a patient specimen is required for the blood component the maximum` `hours allowed before a new specimen is required is entered here.`
.18	RETYPE AFTER PREPARATION	0;18	SET	'0' FOR NO; '1' FOR YES; LAST EDITED: `JAN 24, 1988` DESCRIPTION: `If units of component must be retyped then enter 'YES'.` `If units do not require retyping enter 'NO'.`
.19	CONTAINS RED BLOOD CELLS	0;19	SET	'1' FOR YES; '0' FOR NO; LAST EDITED: `JAN 24, 1988` DESCRIPTION: `If component contains mainly red blood cells enter 'YES'.`
.21	MAX AGE FOR PEDIATRIC USE	0;21	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>1827)!(X<1)!(X?.E1"."1N.N) X I $D(X),$P(^LAB(66,DA,0),U)["PEDIATRIC" K X` LAST EDITED: `MAY 31, 1988` HELP-PROMPT: `Type a Number between 1 and 1827, 0 Decimal Digits` DESCRIPTION: `Maximum age (in days) allowed for making pediatric units` EXECUTABLE HELP: `W !,"No entry allowed for products containing 'PEDIATRIC' in the name field."` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.22	PEDIATRIC PRODUCT	0;22	POINTER TO BLOOD PRODUCT FILE (#66)	BLOOD PRODUCT(#66) INPUT TRANSFORM: `S DIC("S")="I $$PEDI^LRBLSCRN" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X),$P(^LAB(66,X,0),U,12)'=$P(^LAB(66,DA,0),U,12) K X` LAST EDITED: `OCT 19, 2000` HELP-PROMPT: `BLOOD PRODUCT and PEDIATRIC PRODUCT must have the same anticoagulant.` DESCRIPTION: `This is the pediatric component that the present component` `can be made into. The screen for this field checks for three conditions: 1) Any product listed must contain the word "PEDIATRIC" in` `the name. 2) Any product listed must be of the same symbology (Codabar` `or ISBT128) as the current component record. 3) Any product listed must have the same anticoagulant as` `the current component record.` SCREEN: `S DIC("S")="I $$PEDI^LRBLSCRN"` EXPLANATION: `Selects only pediatric components` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.23	SPECIFIC GRAVITY	0;23	SET	'1.06' FOR WHOLE BLOOD; '1.08' FOR RED BLOOD CELLS; '1.03' FOR PLASMA; LAST EDITED: `MAY 31, 1988` DESCRIPTION: `Weight of component in grams per ml.`
.24	MAXIMUM INFUSION TIME(MIN)	0;24	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `JUN 15, 1988` HELP-PROMPT: `Type a Number between 1 and 999, 0 Decimal Digits` DESCRIPTION: `The maximum time in minutes from issue to completion of transfusion`
.25	AUTOLOGOUS/DIRECTED COMPONENT	0;25	SET	'1' FOR AUTOLOGOUS; '2' FOR DIRECTED; '0' FOR NEITHER; LAST EDITED: `AUG 23, 1988` DESCRIPTION: `This field is used to determine if a component is autologous,` `directed or neither type of donation.`
.26	ADMINISTRATIVE CATEGORY	0;26	SET	'1' FOR WHOLE BLOOD; '2' FOR RBC; '3' FOR FROZEN RBC; '4' FOR DEGLYC RBC; '5' FOR LEUCODEPLETED RBC; '6' FOR WASHED RBC; '7' FOR FFP; '8' FOR CRYO; '9' FOR RANDOM PLAT; '10' FOR APHERESIS PLAT; '11' FOR GRANULOCYTES; LAST EDITED: `FEB 24, 1992` DESCRIPTION: `Used to define category for administrative data and workload.`
.27	POOLED PRODUCT	0;27	SET	'1' FOR YES; '0' FOR NO; '1' FOR yes; '0' FOR no; LAST EDITED: `JUN 14, 1992` DESCRIPTION: `If product is pooled enter 'YES'. The entry is used when` `running the integrity check for file 65 (Blood Inventory).`
.28	ASK BAG LOT #	0;28	SET	'1' FOR YES; '0' FOR NO; '1' FOR yes; '0' FOR no; LAST EDITED: `DEC 28, 1992` DESCRIPTION: `Entering 'YES' will result in prompting the user for the bag lot # when this component is prepared from a unit in inventory.`
.29	IS ISBT128	0;29	SET	**********************REQUIRED FIELD********************** '0' FOR NO (This is a Codabar product type); '1' FOR YES (This is an ISBT128 product type); LAST EDITED: `OCT 17, 2000` HELP-PROMPT: `ANSWER "Y" IF THIS IS AN ISBT 128 PRODUCT TYPE. ANSWER "N" IF THIS IS A CODABAR PRODUCT TYPE.` DESCRIPTION: `This field indicates whether the product type belongs to ISBT 128 or to Codabar. All product types fall into two categories: Codabar and ISBT 128. This field identifies the symbology to which each product type belongs.`
1	DESCRIPTION	1;0	WORD-PROCESSING #66.09	LAST EDITED: `SEP 08, 1995`
2	SYNONYM	2;0	Multiple #66.021	66.021
3	MODIFY TO	3;0	POINTER Multiple #66.03	66.03 LAST EDITED: `MAR 22, 1985` DESCRIPTION: `These are components this product can produce.`
4	SUPPLIER	SU;0	Multiple #66.01	66.01 DESCRIPTION: `This is a multiple field. Contains information about all suppliers of this item.` IDENTIFIED BY: `COST(#.02)[R]`
5	CRITERIA FOR USE	5;0	WORD-PROCESSING #66.05	DESCRIPTION: `Suggested criteria for transfusion of blood component can be listed here.` LAST EDITED: `JUN 07, 1985`
6	TESTS TO CHECK	6;0	POINTER Multiple #66.04	66.04 DESCRIPTION: `These are the tests that will determine if the request seems reasonable based on test values when a blood component is requested.` SCREEN: `S DIC("S")="I $P(^(0),U,5)[""CH"""` EXPLANATION: `SELECTS CHEM,HEM,SER,TOX etc. tests` IDENTIFIED BY: `SPECIMEN(#.02)[R]`
7	REQUISITION INSTRUCTIONS	7;0	WORD-PROCESSING #66.07	DESCRIPTION: `These are instructions included in the requisition.` LAST EDITED: `JUL 25, 1985`
8	PRE-OP TESTS TO CHECK	8;0	POINTER Multiple #66.08	66.08 DESCRIPTION: `This field checks lab values for specified component request for` `surgery.` SCREEN: `S DIC("S")="I $P(^(0),U,5)[""CH"""` EXPLANATION: `Selects only single chem, hem, tox, ser, etc. tests`
9	EQUIVALENT PRODUCT	4;1	POINTER TO BLOOD PRODUCT FILE (#66)	BLOOD PRODUCT(#66) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,29)='($P(^LAB(66,DA,0),U,29))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 12, 2000` HELP-PROMPT: `SELECT THE BLOOD PRODUCT (IF ANY) THAT IS EQUIVALENT OR MATCHES THE CURRENT BLOOD PRODUCT.` DESCRIPTION: `This field points to the blood product (of the opposite symbology) that most closely matches or is equivalent to the specified blood product. It screens on the IS ISBT field and allows only blood products of opposite` `symbologies to be stored as equivalent products. For any ISBT 128 products, only products with IS ISBT = 0 (Codabar products) can be selected. The same is true for Codabar units; only blood products with IS ISBT = 1` `(ISBT 128 products) can be selected.` SCREEN: `S DIC("S")="I $P(^(0),U,29)='($P(^LAB(66,DA,0),U,29))"` EXPLANATION: `Show products of other symbology`
10	ASSOCIATED DIVISION	10;0	POINTER Multiple #66.1	66.1
500	WKLD CODE	9;0	POINTER Multiple #66.06	66.06 DESCRIPTION: `This field contains wkld codes that should be counted each time this blood product is issued.`

NAME: HEPARIN WHOLE BLOOD	NAME: CRYOPRECIPITATE, CPDA-1	NAME: TYPING CHARGE	NAME: HLA TYPING	NAME: ANTI-A	NAME: ANTI-B	NAME: ANTI-AB	NAME: ANTI-D
NAME: ANTI-E	NAME: ANTI-e	NAME: ANTI-C	NAME: ANTI-c	NAME: CPDA-1 WHOLE BLOOD	NAME: CPDA-2 WHOLE BLOOD	NAME: CPDA-1 RED BLOOD CELLS	NAME: CPDA-1 RED BLOOD CELLS, DIVIDED UNIT
NAME: PLATELETS, 45-65 ML, ACD-A	NAME: PLATELETS, 1-6 C, 20-30ML	NAME: CRYOPRECIPITATE, ACD-A	NAME: RED BLOOD CELLS, WASHED	NAME: RED BLOOD CELLS, FROZEN	NAME: RBC FROZEN REJUVENATED	NAME: RED BLOOD CELLS, DEGLYCEROLIZED	NAME: RBC DEGLYCEROLIZED DIVIDED
NAME: RED BLOOD CELLS, REJUVINATED,DEGLY	NAME: GRANULOCYTES-PHERESIS	NAME: GRANULOCYTES-PLATELETS PHERESIS	NAME: PLATELETS PHERESIS	NAME: FRESH FROZEN PLASMA, CPDA-1	NAME: FRESH FROZEN PLASMA, ACD-A	NAME: LIQUID PLASMA, CPDA-1	NAME: LIQUID PLASMA, CPD
NAME: PLATELET RICH PLASMA	NAME: POOLED PLATELETS	NAME: CRYOPRECIPITATE-POOLED	NAME: CPD WHOLE BLOOD	NAME: ACD-A WHOLE BLOOD	NAME: CPD RED BLOOD CELLS	NAME: ACD-A RED BLOOD CELLS	NAME: CPD RED BLOOD CELLS, DIVIDED UNIT
NAME: ACD-A RED BLOOD CELLS, DIVIDED UNIT	NAME: AS-1 RED BLOOD CELLS, DIVIDED	NAME: CPDA-1 RED BLOOD CELLS, IRRADIATED	NAME: CPD RED BLOOD CELLS, IRRADIATED	NAME: ACD-A RED BLOOD CELLS, IRRADIATED	NAME: AS-1 RED BLOOD CELLS, IRRADIATED	NAME: CPD RED BLOOD CELLS,LEUK. REMOVED	NAME: ACD-A RED BLOOD CELLS, LEUKO. REMOVED
NAME: RED BLOOD CELLS, WASHED, IRRADIATED	NAME: PLATELETS,20-24 C, 3 DAY EXP.	NAME: PLATELETS,20-24 C, 5 DAY EXP.	NAME: PLATELETS,20-24 C, 7 DAY EXP.	NAME: PLATELETS, RANDOM, IRRADIATED	NAME: GRAN/PLAT,PHERESIS, IRRAD.	NAME: PLATELETS-PHERESIS, IRRADIATED	NAME: GRANULOCYTES-PHERESIS, IRRADIATED
NAME: RECOVERED PLASMA (NON-INJECTIONABLE)	NAME: PLATELETS, POOLED, IRRADIATED	NAME: AS-1 RED BLOOD CELLS	NAME: CPDA-1 RED BLOOD CELLS,LEUK. REMOVED	NAME: POOLED PLATELETS, PLASMA REMOVED	NAME: CMV NEGATIVE FFP	NAME: CMV NEGATIVE RED BLOOD CELLS	NAME: CMV NEGATIVE PLATELETS
NAME: CMV NEGATIVE POOLED PLATELETS	NAME: FACTOR IX	NAME: RH IMMUNE GLOBULIN

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #210	Surgery
ICR #528	Health Summary Order Entry Results Reporting	NAME (.01). Access: Direct Global Read & w/Fileman ABBREVIATION (.02). Access: Direct Global Read & w/Fileman	BLOOD PRODUCT FILE
ICR #576	QUALITY IMPROVEMENT CHECKLIST	NAME (.01). Access: Read w/Fileman
ICR #4510	DSS - DECISION SUPPORT SYSTEM EXTRACTS	NAME (.01). Access: Read w/Fileman ABBREVIATION (.02). Access: Read w/Fileman	The DSS EXTRACTS package is granted permission from theLaboratory package to read from the BLOOD PRODUCT file (#66) for purposes ofstoring the #.01 field, NAME, and field #.02, ABBREVIATION, in the DSS extractfile, #727.829. No updates are performed on file #66.

Customize PDF page

Package: Lab Service

Global: ^LAB(66

Information

Description

Accessed By FileMan Db Calls, Total: 8

Pointed To By FileMan Files, Total: 8

Pointer To FileMan Files, Total: 6

Fields, Total: 40

Found Entries, Total: 67

ICR, Total: 4