Global: ^LAB(66

FileMan FileNo	FileMan Filename	Package
66	BLOOD PRODUCT	Lab Service

Package	Total	Routines
Lab Service	76	LR7OSBR1 LRBLA LRBLAA LRBLB LRBLDPK LRBLDPT LRBLJB LRBLJCK LRBLJDM LRBLJDP LRBLJL1 LRBLJLG1 LRBLJPA1 LRBLJPH LRBLJPP LRBLJRB LRBLJTS1 LRBLJU1 LRBLP LRBLPR1 LRBLPT LRBLPT1 LRBLPTR LRBLPTR1 LRBLPUS LRBLPX1 LRBLQPR LRBLRCT LRBLSET LRBLU LRBLUL LRDPA2 MODIFY TO SUPPLIER SYNONYM TESTS TO CHECK TRANSFUSION RECORD ^LAB(66 LR7OSBB1 LRBLDC LRBLDC1 LRBLDCR LRBLDEX2 LRBLDPA2 LRBLDRR LRBLFX72 LRBLJD1 LRBLJED LRBLJI LRBLJM LRBLJM1 LRBLJSH LRBLPBR1 ^LRD(65 LRBLJA LRBLJD LRBLJLG LRBLJPA2 LRBLJR LRBLJT LRBLJUT LRBLJX LRBLPC LRBLPCS LRBLPCS1 LRBLPCSS LRBLPD LRBLPD1 LRBLPED LRBLPIT LRBLQST LRBLTA LRBLTXA LRIPOS2 LRUT PRE-OP TESTS TO CHECK
Health Summary	2	GMTSLRBE GMTSLRTE
Surgery	2	SR00109 SRBLOOD
Order Entry Results Reporting	1	ORWGAPIB
Quality Assurance	1	AQAOLKP

Package	Total	Routines
Lab Service	6	LRBLCMV LRBLJD LRBLJDM LRBLJM LRBLJTS LRBLS

Package	Total	FileMan Files
Lab Service	7	BLOOD PRODUCT(#66)[.22, #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)]
CPT Files	1	CPT(#81)[#81.066(.01)]
Quality Assurance	1	QI OCCURRENCE(#9002167)[11002]

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, #66.03(.01)] WKLD CODE(#64)[#66.06(.01)]
Kernel	2	INSTITUTION(#4)[#66.1(.01)] STATE(#5)[#66.01(.07)]

Fields, Total: 38

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)>5!($L(X)<1)!'(X?1N.N) X` LAST EDITED: `MAY 09, 1985` HELP-PROMPT: `ENTER 1-5 DIGITS ONLY` DESCRIPTION: `Product code conforms to the uniform labeling of blood and blood components described in UNIFORM LABELING OF BLOOD AND BLOOD COMPONENTS: USERS' GUIDE SEPTEMBER 1982.` Reference: Guidelines for the Uniform Labeling of Blood and Blood Components available from the Dockets Management Branch of the FDA (Docket #80N-0120), or the American Blood Commission. The guidelines provide detailed information on the ABC Symbol (modified Codabar TM) label and printing specifications and were issued by FDA as an integral supplement to the agency's proposal to require nationwide use of uniform blood labels. 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 $P(^(0),U)[""PEDIATRIC"",$P(^(0),U,12)=$P(^LAB(66,DA,0),U,12)" 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: `MAY 27, 1988` 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. SCREEN: `S DIC("S")="I $P(^(0),U)[""PEDIATRIC"",$P(^(0),U,12)=$P(^LAB(66,DA,0),U,12)"` 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.
1	DESCRIPTION	1;0	WORD-PROCESSING #66.09
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.
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.
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`
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.

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

Name	Field # of Occurrence
^("0"	ID2+1
^(0	ID.05+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 1S), .05(XREF 1K), .21+1, .22+1
DIC	.22+1!*
DIC("S"	.22+1, .22SCR+1
>> DIE	.22+1
U	ID.05+1, ID2+1, .21+1, .22+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .05+1!, .05(XREF 1S), .05(XREF 1K), .055+1! , .1+1!, .11+1!, .13+1!, .135+1!, .16+1!, .21+1!, .22+1!, .24+1!
>> Y	.13OT+1*, .22+1
>> Y(0	.13OT+1*

Customize PDF page

Package: Lab Service

Global: ^LAB(66

Information

Description

Directly Accessed By Routines, Total: 82

Accessed By FileMan Db Calls, Total: 6

Pointed To By FileMan Files, Total: 9

Pointer To FileMan Files, Total: 6

Fields, Total: 38

Found Entries, Total: 4

ICR, Total: 4

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: