STANDARD DATA DICTIONARY #66 -- BLOOD PRODUCT FILE 3/24/25 PAGE 1
STORED IN ^LAB(66, (66 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Blood products and reagents for blood banks and transfusion services.
IDENTIFIED BY: PRODUCT CODE (#.05), VOLUME (ml) (#.1)[R], DESCRIPTION (#1), SYNONYM (#2)
POINTED TO BY: SOURCE field (#.02) of the SCREEN CELL sub-field (#63.015) of the SCREEN CELL METHOD sub-field (#63.014) of the
BLOOD BANK sub-field (#63.01) of the LAB DATA File (#63)
COMPONENT field (#.02) of the TRANSFUSION RECORD sub-field (#63.017) of the LAB DATA File (#63)
ANTISERUM field (#.01) of the ANTISERUM sub-field (#63.019) of the RBC TYPING METHOD sub-field (#63.018) of the
BLOOD BANK sub-field (#63.01) of the LAB DATA File (#63)
BLOOD COMPONENT REQUEST field (#.01) of the BLOOD COMPONENT REQUEST sub-field (#63.084) of the LAB DATA File (#63)
ASSOCIATED NAME field (#.01) of the ASSOCIATED NAME sub-field (#64.023) of the WKLD CODE File (#64)
COMPONENT field (#.04) of the BLOOD INVENTORY File (#65)
MODIFIED TO/FROM field (#.01) of the MODIFIED TO/FROM sub-field (#65.091) of the BLOOD INVENTORY File (#65)
ANTISERUM field (#.01) of the ANTISERUM sub-field (#65.62) of the RBC TYPING METHOD sub-field (#65.61) of the
DONATION OR DEFERRAL DATE sub-field (#65.54) of the BLOOD DONOR File (#65.5)
BLOOD COMPONENT field (#.01) of the BLOOD COMPONENT sub-field (#65.66) of the DONATION OR DEFERRAL DATE sub-field
(#65.54) of the BLOOD DONOR File (#65.5)
PEDIATRIC PRODUCT field (#.22) of the BLOOD PRODUCT File (#66)
EQUIVALENT PRODUCT field (#9) of the BLOOD PRODUCT File (#66)
MODIFY TO field (#.01) of the MODIFY TO sub-field (#66.03) of the BLOOD PRODUCT File (#66)
BLOOD COMPONENT REQUEST field (#.01) of the BLOOD COMPONENT REQUEST sub-field (#66.51) of the OPERATION (MSBOS) File
(#66.5)
PRODUCTS field (#.01) of the PRODUCTS sub-field (#66.91) of the BLOOD COMPONENT REQUEST File (#66.9)
COMPONENT field (#.07) of the DATA INTEGRITY ISSUES sub-field (#6001.01) of the VBECS DATA INTEGRITY/CONVERSION
STATISTICS File (#6001)
CROSS
REFERENCED BY: NAME(B), ABBREVIATION(B), SYNONYM(C), PRODUCT CODE(D)
66,.01 NAME 0;1 FREE TEXT (Required)
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)
66,.02 ABBREVIATION 0;2 FREE TEXT (Required)
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)
66,.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.
66,.04 IDENTIFIER 0;4 SET (Required)
'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.
66,.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)
66,.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.
66,.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.
66,.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
66,.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
66,.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'
66,.1 VOLUME (ml) 0;10 NUMBER (Required)
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
66,.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.
66,.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
66,.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
66,.135 MAXIMUM STORAGE DAYS 0;17 NUMBER (Required)
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
66,.14 MODIFIED BEFORE RELEASE 0;14 SET
COMPONENT MUST BE MODIFIED PRIOR TO RELEASE
'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.
66,.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.
66,.16 PATIENT SPECIMEN AGE ALLOWED 0;16 NUMBER
MAXIMUM HOURS ALLOWED FOR PATIENT SPECIMEN
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.
66,.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'.
66,.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'.
66,.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
66,.22 PEDIATRIC PRODUCT 0;22 POINTER TO BLOOD PRODUCT FILE (#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
66,.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.
66,.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
66,.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.
66,.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.
66,.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).
66,.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.
66,.29 IS ISBT128 0;29 SET (Required)
'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.
66,1 DESCRIPTION 1;0 WORD-PROCESSING #66.09
LAST EDITED: SEP 08, 1995
66,2 SYNONYM 2;0 Multiple #66.021 (Add New Entry without Asking)
66.021,.01 SYNONYM 0;1 (Add New Entry without Asking) (Multiply asked)
INPUT TRANSFORM: K:$L(X)>25!($L(X)<1) X
LAST EDITED: OCT 19, 1999
HELP-PROMPT: Answer must be 1-25 characters in length
CROSS-REFERENCE: 66^C
1)= S ^LAB(66,"C",$E(X,1,30),DA(1),DA)=""
2)= K ^LAB(66,"C",$E(X,1,30),DA(1),DA)
66,3 MODIFY TO 3;0 POINTER Multiple #66.03 (Add New Entry without Asking)
LAST EDITED: MAR 22, 1985
DESCRIPTION:
These are components this product can produce.
66.03,.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.
66.03,.01 MODIFY TO 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)
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)
66.03,.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.)
66,4 SUPPLIER SU;0 Multiple #66.01 (Add New Entry without Asking)
DESCRIPTION:
This is a multiple field. Contains information about all suppliers of this item.
IDENTIFIED BY: COST(#.02)[R]
66.01,.001 Preference number NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: MAY 09, 1984
HELP-PROMPT: Enter Preference number of supplier
DESCRIPTION: The order of preference for the supplier of this blood product. The
lowest number will be the default answer when components are entered
via inventory log-in.
66.01,.01 SUPPLIER 0;1 FREE TEXT (Multiply asked)
WHERE DID ITEM COME FROM
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 19, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the source.
CROSS-REFERENCE: 66.01^B
1)= S ^LAB(66,DA(1),"SU","B",$E(X,1,30),DA)=""
2)= K ^LAB(66,DA(1),"SU","B",$E(X,1,30),DA)
66.01,.02 COST 0;2 NUMBER (Required)
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
LAST EDITED: MAY 09, 1984
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
Cost of the item.
66.01,.03 ADDRESS LINE 1 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Address of supplier.
66.01,.04 ADDRESS LINE 2 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
2nd Address line of supplier.
66.01,.05 ADDRESS LINE 3 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
3rd Address line of supplier.
66.01,.06 CITY 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 09, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
City of the supplier.
66.01,.07 STATE 0;7 POINTER TO STATE FILE (#5)
LAST EDITED: MAY 09, 1984
DESCRIPTION:
State of the supplier.
66.01,.08 ZIP CODE 0;8 FREE TEXT
INPUT TRANSFORM: K:$L(X)>9!($L(X)<5)!'(X?1N.N) X
LAST EDITED: MAY 09, 1984
HELP-PROMPT: ANSWER MUST BE 5-9 CHARACTERS IN LENGTH
DESCRIPTION:
Zip code of the supplier.
66.01,.09 PHONE 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<4) X
LAST EDITED: MAY 09, 1984
HELP-PROMPT: ANSWER MUST BE 4-30 CHARACTERS IN LENGTH
DESCRIPTION:
Phone number of the supplier.
66.01,.1 SUPPLIER PREFIX NUMBER 0;10 FREE TEXT
SUPPLIER PREFIX ID CODE
INPUT TRANSFORM: K:$L(X)>3!($L(X)<1)!'(X?.UN) X
LAST EDITED: DEC 24, 1986
HELP-PROMPT: ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
DESCRIPTION: An eye readable only (not bar coded) prefix which might be
present as part of the unique unit ID# specific for a given
collection facility.
66.01,.11 REGISTRATION NUMBER 0;11 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<7)!'(X?1N.N) X
LAST EDITED: NOV 26, 1986
HELP-PROMPT: ANSWER MUST BE 7-9 DIGITS IN LENGTH
DESCRIPTION: Unique number assigned by the Food & Drug Administration
to each facility.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 66.01^C
1)= S ^LAB(66,DA(1),"SU","C",$E(X,1,30),DA)=""
2)= K ^LAB(66,DA(1),"SU","C",$E(X,1,30),DA)
66.01,.12 UNIT LABEL NON-STANDARD 0;12 SET
BARCODE NOT STANDARD (Not Codabar(tm))
'1' FOR YES;
'0' FOR NO;
LAST EDITED: DEC 12, 1985
DESCRIPTION: If the barcoded blood component unit ID is not the standard barcode
(Codabar(tm)) then enter 'YES'.
66.01,1 LOT # 1;0 Multiple #66.02 (Add New Entry without Asking)
DESCRIPTION:
Lot # of the item.
66.02,.01 LOT # 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: NOV 01, 1984
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
Lot # of the item.
66.02,.02 EXPIRATION DATE 0;2 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: NOV 01, 1984
DESCRIPTION:
Expiration date of the item.
66,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
66,6 TESTS TO CHECK 6;0 POINTER Multiple #66.04 (Add New Entry without Asking)
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]
66.04,.01 TESTS TO CHECK 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JUL 24, 1985
DESCRIPTION: When a blood component is requested the tests selected will be
checked to see if request seems reasonable based on test values.
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects only single chem, hem, tox, ser, etc. tests
66.04,.02 SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
INPUT TRANSFORM:I $D(X) S X(1)=+^LAB(66,DA(1),6,DA,0) I '$D(^LAB(60,X(1),1,X)) W $C(7),!,"Not in SITE/SPECIMEN FIEL
D OF LAB TEST FILE for this test",! K X
LAST EDITED: JUN 10, 1996
DESCRIPTION: Specimen the test is performed on. This must be a specimen entered in lab
test file (#60) in SITE/SPECIMEN field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66.04,.03 > OR < TEST VALUE 0;3 FREE TEXT (Required)
GREATER THAN OR LESS THAN TEST VALUE
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2)!(X'?1"<".E&(X'?1">".E))!(X'?1E.N.".".N) X
LAST EDITED: JUL 24, 1985
HELP-PROMPT: Enter '<' or '>' then test value
DESCRIPTION: The test value with a '>' or '<' as a prefix to the value for checking
component requests.
EXECUTABLE HELP:W !,"ENTER '>' IF ABOVE TEST VALUE NOT ACCEPTABLE",!,"(Ex. If test value for hct is 30 then enter '
>30' so any results above 30 will be",!,"flagged"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66,7 REQUISITION INSTRUCTIONS 7;0 WORD-PROCESSING #66.07
DESCRIPTION:
These are instructions included in the requisition.
LAST EDITED: JUL 25, 1985
66,8 PRE-OP TESTS TO CHECK 8;0 POINTER Multiple #66.08 (Add New Entry without Asking)
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
66.08,.01 PRE-OP TESTS TO CHECK 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,5)[""CH""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: NOV 04, 1987
SCREEN: S DIC("S")="I $P(^(0),U,5)[""CH"""
EXPLANATION: Selects only lab tests with a "CH" subscript.
66.08,.02 SPECIMEN 0;2 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)
INPUT TRANSFORM:I $D(X) S X(1)=+^LAB(66,DA(1),8,DA,0) I '$D(^LAB(60,X(1),1,X)) W $C(7),!,"Not in SITE/SPECIMEN FIEL
D OF LAB TEST FILE for this test.",! K X
LAST EDITED: JUN 10, 1996
DESCRIPTION: Specimen the test is performed on. This must be a specimen
entered in the lab test file (#60) in the SITE/SPECIMEN field.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66.08,.03 > OR < TEST VALUE 0;3 FREE TEXT (Required)
INPUT TRANSFORM:K:$L(X)>7!($L(X)<2)!(X'?1"<".E&(X'?1">".E))!(X'?1E.N.".".N) X
LAST EDITED: NOV 04, 1987
DESCRIPTION:
This field contain the values to determine if the test result are with in specific limits.
EXECUTABLE HELP:W !,"ENTER '>' IF ABOVE TEST VALUE NOT ACCEPTABLE",!,"(Ex. If value for hct is 30 then enter '>30'
so any value above 30 will be",!,"flagged."
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66,9 EQUIVALENT PRODUCT 4;1 POINTER TO BLOOD PRODUCT FILE (#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
66,10 ASSOCIATED DIVISION 10;0 POINTER Multiple #66.1 (Add New Entry without Asking)
66.1,.01 ASSOCIATED DIVISION 0;1 POINTER TO INSTITUTION FILE (#4) (Multiply asked)
INPUT TRANSFORM:S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X
) DINUM=X
LAST EDITED: SEP 16, 1999
SCREEN: S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"
EXPLANATION: Allows only divisions related to site.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
66,500 WKLD CODE 9;0 POINTER Multiple #66.06 (Add New Entry without Asking)
DESCRIPTION:
This field contains wkld codes that should be counted each time this blood product is issued.
66.06,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM: S DINUM=X
LAST EDITED: OCT 19, 1990
DESCRIPTION:
If component is being prepared from existing unit enter the WKLD workload codes that apply.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
FILES POINTED TO FIELDS
BLOOD PRODUCT (#66) PEDIATRIC PRODUCT (#.22)
EQUIVALENT PRODUCT (#9)
MODIFY TO:MODIFY TO (#.01)
INSTITUTION (#4) ASSOCIATED DIVISION:ASSOCIATED DIVISION (#.01)
LABORATORY TEST (#60) TESTS TO CHECK:TESTS TO CHECK (#.01)
PRE-OP TESTS TO CHECK:PRE-OP TESTS TO CHECK (#.01)
STATE (#5) SUPPLIER:STATE (#.07)
TOPOGRAPHY FIELD (#61) TESTS TO CHECK:SPECIMEN (#.02)
PRE-OP TESTS TO CHECK:SPECIMEN (#.02)
WKLD CODE (#64) WKLD CODE:WKLD CODE (#.01)
INPUT TEMPLATE(S):
LRBLBP FEB 24, 1992@10:33 USER #0
PRINT TEMPLATE(S):
LRBL CAP CODES OCT 22, 1990@07:56 USER #0 BLOOD PRODUCT CAP CODES
LRBL WKLD CODES OCT 22, 1990@07:56 USER #0 BLOOD PRODUCT WKLD CODES
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):