STANDARD DATA DICTIONARY #65 -- BLOOD INVENTORY FILE 3/24/25 PAGE 1
STORED IN ^LRD(65, (1 ENTRY) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 5.2)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
Units of various blood components
APPLICATION GROUP(S): LR
IDENTIFIED BY: UNIT ID (#.01)[R], COMPONENT (#.04)[R], EXPIRATION DATE/TIME (#.06)[R], DATE/TIME UNIT RELOCATION (#3),
TRANSFUSION COMMENT (#7)
"WRITE": W ?20,$J($P(^(0),U,7),2)," ",$P(^(0),U,8)," ",$S($D(^LAB(66,+$P(^(0),U,4),0)):$P(^(0),U),1:"")
POINTED TO BY: UNIT SELECTED FOR XMATCH field (#.01) of the UNITS SELECTED FOR XMATCH sub-field (#63.0841) of the BLOOD COMPONENT
REQUEST sub-field (#63.084) of the LAB DATA File (#63)
PATIENT field (#9) of the ACCESSION WKLD CODE TIME sub-field (#64.1111) of the WKLD CODE sub-field (#64.111) of the
DATE sub-field (#64.11) of the WKLD DATA File (#64.1)
CROSS
REFERENCED BY: DATE/TIME RECEIVED(A), COMPLETE DATE/TIME(AA), DISPOSITION DATE(AB), DISPOSITION(AC), ABO INTERPRETATION(AD),
EXPIRATION DATE/TIME(AE), DISPOSITION COMMENT(AE), RH INTERPRETATION(AF), DISPOSITION(AG), COMPONENT(AH),
EXPIRATION DATE/TIME(AI), UNIT ID(AJ), COMPONENT(AK), DATE/TIME UNIT RELOCATION(AL),
PATIENT XMATCHED/ASSIGNED(AM), DATE/TIME CROSSMATCHED(AN), SOURCE(AO), DATE/TIME UNIT ASSIGNED(AP),
DISPOSITION(APS), COMPONENT(AQ), PREVIOUS DATE LOGGED-IN(AR), UNIT ID(AT), RESTRICTED FOR(AU), UNIT ID(B),
UNIT ID(C), DIVISION(D)
65,.01 UNIT ID 0;1 FREE TEXT (Required)
Identification Code from Donor Source
INPUT TRANSFORM: K:X[""""!($A(X)=45)!(X[" ") X I $D(X) K:$L(X)>13!($L(X)<2)!'(X?.ANP) X
LAST EDITED: OCT 15, 2000
HELP-PROMPT: ANSWER MUST BE 2-13 CHARACTERS IN LENGTH, NO SPACES ALLOWED
DESCRIPTION:
The unit identification on the blood product label.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^B
1)= S ^LRD(65,"B",$E(X,1,30),DA)=""
2)= K ^LRD(65,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 65^AJ^MUMPS
1)= S Y=^LRD(65,DA,0) I $P(Y,U,4),$P(Y,U,6),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AI",$P(Y,U,4),X,$
P(Y,U,6),DA)=""
2)= S Y=^LRD(65,DA,0) I $P(Y,U,4),$P(Y,U,6) K ^LRD(65,"AI",$P(Y,U,4),X,$P(Y,U,6),DA)
CROSS-REFERENCE: 65^AT^MUMPS
1)= S:'$D(^LRD(65,DA,10)) (^LRD(65,"AT",X,10,DA),^LRD(65,"AT",X,11,DA))="" I '$D(^LRD(65,DA,4)) F Z
=0:0 S Z=$O(^LRD(65,DA,2,Z)) Q:Z<1 S:$P(^(Z,0),U,2) ^LRD(65,"AP",Z,DA)=""
2)= K ^LRD(65,"AT",X) F Z=0:0 S Z=$O(^LRD(65,DA,2,Z)) Q:Z<1 K ^LRD(65,"AP",Z,DA)
CROSS-REFERENCE: 65^C^MUMPS
1)= D S^LRBLU
2)= D K^LRBLU
65,.02 SOURCE 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<1) X I $D(X) S C=$P(^LRD(65,DA,0),U,4) I C K:'$D(^L
AB(66,C,"SU","B",X)) X
LAST EDITED: AUG 14, 1990
HELP-PROMPT: Entry must be one of the following:
DESCRIPTION:
Collecting facility
EXECUTABLE HELP: W "Type exactly as shown:" S C=+$P(^LRD(65,DA,0),U,4),X=0 F A=0:0 S X=$O(^LAB(66,C,"SU","B",X)) Q:X
="" W !?15,X
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AO^MUMPS
1)= D S^LRBLU
2)= D K^LRBLU
65,.03 INVOICE# 0;3 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
Number on invoice accompanying unit
65,.04 COMPONENT 0;4 POINTER TO BLOOD PRODUCT FILE (#66) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X D:$D(X) C^LRBLUL
LAST EDITED: APR 13, 1993
DESCRIPTION:
Name of blood product
SCREEN: S DIC("S")="I $P(^(0),U,4)=""BB"""
EXPLANATION: Selects only blood bank products
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AK^MUMPS
1)= S Y=^LRD(65,DA,0) I $P(Y,U,6),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AI",X,$P(Y,U),$P(Y,U,6),DA)
=""
2)= S Y=^LRD(65,DA,0) K:$P(Y,U,6) ^LRD(65,"AI",X,$P(Y,U,1),$P(Y,U,6),DA)
CROSS-REFERENCE: 65^AH^MUMPS
1)= S Y=$P(^LRD(65,DA,0),U,6) I Y,$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AE",X,Y,DA)=""
2)= S Y=$P(^LRD(65,DA,0),U,6) K:Y ^LRD(65,"AE",X,Y,DA)
CROSS-REFERENCE: 65^AQ^MUMPS
1)= D S^LRBLU
2)= D K^LRBLU
65,.05 DATE/TIME RECEIVED 0;5 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: MAY 02, 1985
DESCRIPTION:
Date/time component received. Allows current and past times but disallows future times.
EXECUTABLE HELP: W !,"You cannot enter a date/time beyond:" S %DT="T",X="N" D ^%DT,D^LRU K %DT W " ",Y,!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^A^MUMPS
1)= S ^LRD(65,"A",$E(X,1,30),DA)="" D:$D(DIU(0)) A65^LRXREF1
2)= K ^LRD(65,"A",$E(X,1,30),DA)
65,.06 EXPIRATION DATE/TIME 0;6 DATE (Required)
INPUT TRANSFORM: S %DT="ETXF" D ^%DT S X=Y K:Y<1 X I $D(X) S X(1)=X,%DT="T",X="N" D ^%DT S X=X(1) I $P(X,".")'>$P(Y,
".") W $C(7),!,"Unit expired or expires today." S LRA="*"
LAST EDITED: MAY 24, 1999
DESCRIPTION:
Expiration date/time of unit
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AE^MUMPS
1)= I $P(^LRD(65,DA,0),U,4),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)="
"
2)= K:$P(^LRD(65,DA,0),U,4) ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)
CROSS-REFERENCE: 65^AI^MUMPS
1)= S Y=^LRD(65,DA,0) I $P(Y,U,4),$P($G(^LRD(65,DA,4)),U)="" S ^LRD(65,"AI",$P(Y,U,4),$P(Y,U),X,DA)
=""
2)= S Y=^LRD(65,DA,0) K:$P(Y,U,4) ^LRD(65,"AI",$P(Y,U,4),$P(Y,U),X,DA)
65,.07 ABO GROUP 0;7 SET (Required)
'A' FOR A;
'B' FOR B;
'O' FOR O;
'AB' FOR AB;
'NA' FOR N/A;
LAST EDITED: MAY 12, 1985
DESCRIPTION: ABO blood group of unit. If ABO group is not applicable to the unit or component (ex. a mixed pool
of compatible ABO types) enter NA for N/A (not applicable)
65,.08 RH TYPE 0;8 SET (Required)
'POS' FOR POSITIVE;
'NEG' FOR NEGATIVE;
'NA' FOR N/A;
LAST EDITED: MAY 12, 1985
DESCRIPTION: Rh type of unit. If RH TYPE not applicable to the unit or component enter NA for N/A (not
applicable or necessary).
65,.09 LOG-IN PERSON 0;9 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person entering unit in file.
65,.1 COST 0;10 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 99999
DESCRIPTION:
Cost of unit
65,.11 VOLUME (ml) 0;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAY 11, 1985
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 0 AND 9999
DESCRIPTION:
Volume of unit or component
65,.12 TYPING CHARGE 0;12 NUMBER
INPUT TRANSFORM: S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>999)!(X<0) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 999
DESCRIPTION:
Charge assigned by organization performing antigen typing
65,.13 SHIPPING INVOICE# 0;13 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: Enter RETURN invoice # to SUPPLIER (2-10 characters)
DESCRIPTION:
Invoice (order) number identified with returned shipment to supplier.
65,.14 RETURN CREDIT 0;14 FREE TEXT
INPUT TRANSFORM: K:$L(X)>7!($L(X)<2)!'(X?1"-".N) X
LAST EDITED: FEB 12, 1996
HELP-PROMPT: Entry must begin with a minus (-) then amount of credit (ex. -37.50)
DESCRIPTION:
Credit given for returning unit to supplier or sending unit elsewhere
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,.16 DIVISION 0;16 POINTER TO INSTITUTION FILE (#4) (Required)
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
LAST EDITED: SEP 08, 1999
DESCRIPTION: The division where the unit resides. If the unit is being transferred to another division, enter
the New division.
SCREEN: S DIC("S")="I +$G(^DIC(4,+Y,99))=+$P($$SITE^VASITE,U,3)"
EXPLANATION: Allows only divisions for site
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^D
1)= S ^LRD(65,"D",$E(X,1,30),DA)=""
2)= K ^LRD(65,"D",$E(X,1,30),DA)
Quick identification of units by division.
65,1.1 BAG LOT # 1;1 FREE TEXT
INPUT TRANSFORM: K:$L(X)>15!($L(X)<1) X
LAST EDITED: DEC 27, 1992
HELP-PROMPT: Answer must be 1-15 characters in length.
DESCRIPTION:
You may enter the bag lot number if preparing a component from a unit in inventory.
65,2 PATIENT XMATCHED/ASSIGNED 2;0 Multiple #65.01 (Add New Entry without Asking)
LAST EDITED: JUN 19, 1984
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION: On the left of NAME is the internal number in lab results file.
On the right of NAME is the last characters of the patient's SSN.
IDENTIFIED BY: PATIENT XMATCHED/ASSIGNED(#.01)
65.01,.01 PATIENT XMATCHED/ASSIGNED 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) D ^LRUG I $D(X) S DINUM=X,DIC(0)="M"
OUTPUT TRANSFORM:I Y,$D(^LR(Y,0)) S X=^(0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),Y=$E($P(Y,",",1)
,1,13)_" "_$E($P(Y,U,9),6,10)
LAST EDITED: JUN 14, 1996
HELP-PROMPT: Enter patient name, SSN, or first letter of last name and last 4 digits of SSN
DESCRIPTION: Number to left of NAME is the internal number in the lab results file.
Number to right of NAME is last characters of patient's SSN.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:65^AM^MUMPS
1)= S Y=$S('$D(^LRD(65,DA(1),4)):1,'$L($P(^(4),U)):1,1:0) I Y S Y=$S('$D(^(2,DA,0)):1,$P(^(0),U,2):
1,1:0) S:Y ^LRD(65,"AP",DA,DA(1))=""
2)= K ^LRD(65,"AP",DA,DA(1))
CROSS-REFERENCE:65.01^B
1)= S ^LRD(65,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^LRD(65,DA(1),2,"B",$E(X,1,30),DA)
65.01,.012 PARENT FILE ; COMPUTED
MUMPS CODE: S Y=+^LRD(65,D0,2,D1,0),Y=$P(^LR(Y,0),U,2),X=$P(^DIC(Y,0),U)
ALGORITHM: S Y=+^LRD(65,D0,2,D1,0),Y=$P(^LR(Y,0),U,2),X=$P(^DIC(Y,0),U)
LAST EDITED: AUG 11, 1989
DESCRIPTION:
File where demographic data is stored for patient crossmatched
65.01,.02 DATE/TIME UNIT ASSIGNED 0;2 DATE
INPUT TRANSFORM:S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: JAN 03, 1986
DESCRIPTION: Date/time unit is crossmatched for each patient. If unit is released from crossmatch for a
specific patient the date/time is deleted.
EXECUTABLE HELP:K DZ W $C(7),!!?5,"Time required. Future times not allowed.",!!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:65^AP^MUMPS
1)= S Y=$S('$D(^LRD(65,DA(1),4)):1,'$L($P(^(4),U,1)):1,1:"") S:Y ^LRD(65,"AP",DA,DA(1))=""
2)= K ^LRD(65,"AP",DA,DA(1))
65.01,.03 LAST SPECIMEN DATE XMATCHED 0;3 DATE
INPUT TRANSFORM:S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 15, 1988
DESCRIPTION:
Date/time of specimen unit was last xmatched with.
NOTES: TRIGGERED by the DATE/TIME CROSSMATCHED field of the BLOOD SAMPLE DATE/TIME sub-field of the
PATIENT XMATCHED/ASSIGNED sub-field of the BLOOD INVENTORY File
65.01,1 BLOOD SAMPLE DATE/TIME 1;0 DATE Multiple #65.02 (Add New Entry without Asking)
DESCRIPTION:
These are date/times of blood samples used for pretransfusion testing.
65.02,.01 BLOOD SAMPLE DATE/TIME 0;1 DATE
INPUT TRANSFORM:S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) S DINUM=9999999-X
LAST EDITED: AUG 06, 1985
DESCRIPTION:
Date/time of blood sample used for pretransfusion testing
EXECUTABLE HELP:W !,"Future date/time not allowed",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:65.02^B
1)= S ^LRD(65,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^LRD(65,DA(2),2,DA(1),1,"B",$E(X,1,30),DA)
65.02,.02 TREATING SPECIALITY 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: SEP 18, 1987
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION:
Medical speciality treating patient
EXECUTABLE HELP:W !,"NOT NUMERIC OR STARTING WITH PUNCTUATION"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.02,.03 PHYSICIAN 0;3 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<2) X
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Patient's physician
65.02,.04 XMATCH RESULT 0;4 SET
CROSSMATCH RESULT
'C' FOR COMPATIBLE;
'I' FOR INCOMPATIBLE, UNSAFE TO TRANSFUSE;
'CD' FOR COMPATIBLE, DON'T TRANSFUSE;
'CF' FOR COMPATIBLE, FURTHER STUDY NEEDED;
'IG' FOR INCOMPATIBLE, GIVE WITH BB DIRECTOR APPROVAL;
INPUT TRANSFORM:D:$D(X) A^LRBLU
LAST EDITED: OCT 02, 1990
DESCRIPTION:
Interpretation of major crossmatch
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.02,.05 XMATCH TECH 0;5 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person performing crossmatch
65.02,.06 PATIENT SAMPLE ACC # 0;6 FREE TEXT
INPUT TRANSFORM:K:$L(X)>12!($L(X)<1) X
LAST EDITED: AUG 06, 1985
HELP-PROMPT: ANSWER MUST BE 1-12 CHARACTERS IN LENGTH
DESCRIPTION:
Blood bank accession number for patient sample
65.02,.07 TREATING SPECIALTY NUMBER 0;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
Internal entry # in treating speciality file
OUTPUT TRANSFORM:W ""
LAST EDITED: SEP 18, 1987
DESCRIPTION: If treating speciality is an entry in the treating speciality file
the pointer number is stored here.
65.02,.08 PROVIDER NUMBER 0;8 POINTER TO NEW PERSON FILE (#200)
Internal entry # in the NEW PERSON file
OUTPUT TRANSFORM:W ""
LAST EDITED: JUN 30, 1991
DESCRIPTION: If the physician is an entry in the NEW PERSON file the pointer number
is stored here.
65.02,.09 DATE/TIME CROSSMATCHED 0;9 DATE
INPUT TRANSFORM:S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: APR 15, 1988
DESCRIPTION:
The date/time of the blood sample crossmatch
CROSS-REFERENCE:65^AN
1)= S ^LRD(65,"AN",$E(X,1,30),DA(2),DA(1),DA)=""
2)= K ^LRD(65,"AN",$E(X,1,30),DA(2),DA(1),DA)
CROSS-REFERENCE:^^TRIGGER^65.01^.03
1)= K DIV S DIV=X,D0=DA(2),DIV(0)=D0,D1=DA(1),DIV(1)=D1,D2=DA S Y(1)=$S($D(^LRD(65,D0,2,D1,0)):^(0)
,1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(65.02,.09,1,2,1.1) X ^DD(65.02,.09,1,2,1.4)
1.1)= S X=DIV S Y(1)=$S($D(^LRD(65,D0,2,D1,1,D2,0)):^(0),1:"") S X=$P(Y(1),U,1)
1.4)= S DIH=$S($D(^LRD(65,DIV(0),2,DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S D
IH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=65.01,
DIG=.03 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE VALUE)= BLOOD SAMPLE DATE/TIME
DELETE VALUE)= NO EFFECT
FIELD)= LAST SPECIMEN DATE XMATCHED
65.02,.1 RELEASE REASON 0;10 FREE TEXT
INPUT TRANSFORM:K:$L(X)>40!($L(X)<2) X I $D(X) S L=40,L(1)="B" D ^LRUB
LAST EDITED: APR 16, 1988
HELP-PROMPT: ANSWER MUST BE 2-40 CHARACTERS IN LENGTH
DESCRIPTION:
Reason unit is released from xmatch.
EXECUTABLE HELP:S L(1)="B" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.02,1 MAJOR XMATCH METHOD 1;0 SET Multiple #65.0911 (Add New Entry without Asking)
DESCRIPTION:
These are the major crossmatch methods.
65.0911,.01 MAJOR XMATCH METHOD 0;1 SET
'S' FOR SALINE;
'A' FOR ALBUMIN;
'P' FOR PAPAIN;
'F' FOR FICIN;
'L' FOR LISS;
'H' FOR LISH;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
Crossmatch methods. LISH=low ionic strength high molecular weight
65.0911,.02 TECHNIQUE 0;2 SET
'T' FOR TUBE;
'M' FOR MICROPLATE;
'A' FOR AUTOMATED;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
Method used in the crossmatch
65.0911,.03 INTERPRETATION 0;3 SET
'N' FOR NEGATIVE;
'P' FOR POSITIVE;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
Major crossmatch interpretation
65.0911,.04 IS 0;4 FREE TEXT
Immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is the immediate spin.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0911,.05 37 C 0;5 FREE TEXT
37 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 37 degrees centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0911,.06 AHG 0;6 FREE TEXT
Anti-human globulin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is anti-human globulin.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0911,.07 CONTROL CELL 0;7 FREE TEXT
Antibody coated control cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is antibody coated control cell.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0911,.08 ROOM TEMP 0;8 FREE TEXT
22-24 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 22-24 degrees centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0911,.09 12-18 C 0;9 FREE TEXT
12-18 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 12-18 degrees centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0911,.1 4 C 0;10 FREE TEXT
4 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 4 degrees centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.02,2 MINOR XMATCH METHOD 2;0 SET Multiple #65.0912 (Add New Entry without Asking)
DESCRIPTION:
Data stored here if minor crossmatch used.
65.0912,.01 MINOR XMATCH METHOD 0;1 SET
'S' FOR SALINE;
'A' FOR ALBUMIN;
'P' FOR PAPAIN;
'F' FOR FICIN;
'L' FOR LISS;
'H' FOR LISH;
LAST EDITED: JUN 04, 1985
DESCRIPTION: Data stored here for minor crossmatch if used.
LISH=low ionic strength high molecular weight
65.0912,.02 TECHNIQUE 0;2 SET
'T' FOR TUBE;
'M' FOR MICROPLATE;
'A' FOR AUTOMATED;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
Method used in the crossmatch
65.0912,.03 INTERPRETATION 0;3 SET
'N' FOR NEGATIVE;
'P' FOR POSITIVE;
LAST EDITED: JUN 04, 1985
DESCRIPTION:
Crossmatch interpretation
65.0912,.04 IS 0;4 FREE TEXT
Immediate spin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is immediate spin.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0912,.05 37 C 0;5 FREE TEXT
37 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 37 degree centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0912,.06 AHG 0;6 FREE TEXT
Anti-human globulin
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is anti-human globulin.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0912,.07 CONTROL CELL 0;7 FREE TEXT
Antibody coated control cell
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is antibody coated control cell.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0912,.08 ROOM TEMP 0;8 FREE TEXT
22-24 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 22-24 degree centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0912,.09 12-18 C 0;9 FREE TEXT
12-18 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 12-18 degrees centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.0912,.1 4 C 0;10 FREE TEXT
4 degrees centigrade
INPUT TRANSFORM:D ^LRBLAGG
LAST EDITED: JUN 04, 1985
DESCRIPTION:
This is 4 degrees centigrade.
EXECUTABLE HELP:D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.02,3 CROSSMATCH COMMENT 3;0 Multiple #65.0913 (Add New Entry without Asking)
DESCRIPTION: These are comments relating to the crossmatch of the specific donor unit. NOTE: These
comments become part of the permanent transfusion record of the patient if the unit is
subsequently transfused to that patient.
65.0913,.01 CROSSMATCH COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: SEP 08, 1992
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION: Comment(s) relating to the crossmatch of the specific donor
unit. NOTE: These comments become part of the permanent
transfusion record of the patient if the unit is subsequently
transfused to that patient.
EXECUTABLE HELP:S L(1)="X",L(7)="INVENTORY" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,3 DATE/TIME UNIT RELOCATION 3;0 DATE Multiple #65.03 (Add New Entry without Asking)
DESCRIPTION: These are dates/times the unit is relocated from one location to another. EXAMPLE: From blood
bank to surgery or from surgery to blood bank.
65.03,.01 DATE/TIME UNIT RELOCATION 0;1 DATE
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1!(Y'[".") X I $D(X) S DINUM=9999999-Y
LAST EDITED: FEB 17, 1986
HELP-PROMPT: This is a multiple entry field but only asked once
DESCRIPTION: Date/time unit is relocated from one location to another,
ex. from blood bank to surgery or from surgery to blood bank
EXECUTABLE HELP: W $C(7),!!,"TIME must be entered",!,"Future times not allowed",!!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AL^MUMPS
1)= S ^LRD(65,"AL",X,DA(1))=""
2)= K ^LRD(65,"AL",X,DA(1))
65.03,.02 INSPECTION 0;2 SET (Required)
'S' FOR SATISFACTORY;
'U' FOR UNSATISFACTORY;
LAST EDITED: AUG 07, 1985
DESCRIPTION: Interpretation of unit inspection for color and appearance
immediately before issue/relocation.
65.03,.03 TECH INSPECTING 0;3 POINTER TO NEW PERSON FILE (#200) (Required)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person inspecting unit
65.03,.04 LOCATION 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)<2!($L(X)>30)!(X'?.ANP) X I $D(X) D ^LRUC
LAST EDITED: JUL 17, 1985
HELP-PROMPT: Entry must be 2-30 characters
DESCRIPTION:
Location to which unit of blood is being relocated.
EXECUTABLE HELP: D EN^LRUC
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.03,.05 ISSUED TO/REC'D FROM 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 08, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Person taking unit from or returning unit to the blood bank.
65.03,.06 FOR PATIENT 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: JUL 15, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
The patient the unit of blood is being relocated for.
65.03,.07 VA PATIENT NUMBER 0;7 POINTER TO PATIENT FILE (#2)
Internal entry # in the patient (#2) file
OUTPUT TRANSFORM: W ""
LAST EDITED: SEP 18, 1987
DESCRIPTION: If the patient is an entry in the patient file (#2) the pointer number
is stored here.
65,4.1 DISPOSITION 4;1 SET
'R' FOR RETURN TO SUPPLIER;
'T' FOR TRANSFUSE;
'D' FOR DISCARD;
'S' FOR SEND ELSEWHERE;
'M' FOR MICROBIOLOGY/RESEARCH;
'MO' FOR MODIFY;
'SA' FOR SALVAGED;
LAST EDITED: DEC 14, 1992
DESCRIPTION:
Final disposition of the unit
CROSS-REFERENCE: 65^AC^MUMPS
1)= S A=^LRD(65,DA,0),B=$P(A,U,4),C=$P(A,U,6) K:B]""&(C]"") ^LRD(65,"AE",B,C,DA),^LRD(65,"AI",B,$P(
A,U),C,DA)
2)= S A=^LRD(65,DA,0),B=$P(A,U,4),C=$P(A,U,6) S:B]""&(C]"") ^LRD(65,"AE",B,C,DA)="",^LRD(65,"AI",B,
$P(A,U),C,DA)=""
CROSS-REFERENCE: 65^APS^MUMPS
1)= F X(1)=0:0 S X(1)=$O(^LRD(65,DA,2,X(1))) Q:'X(1) K ^LRD(65,"AP",X(1),DA)
2)= F X(1)=0:0 S X(1)=$O(^LRD(65,DA,2,X(1))) Q:'X(1) S:$P(^(X(1),0),U,2) ^LRD(65,"AP",X(1),DA)=""
CROSS-REFERENCE: 65^AG^MUMPS
1)= D S1^LRBLU
2)= I '$D(DIU(0)),$D(^LRD(65,DA,6)) D K1^LRBLU
65,4.2 DISPOSITION DATE 4;2 DATE (Required)
INPUT TRANSFORM: S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
LAST EDITED: OCT 25, 1988
HELP-PROMPT: Enter only past or present Date/time
DESCRIPTION:
Date of final disposition
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AB
1)= S ^LRD(65,"AB",$E(X,1,30),DA)=""
2)= K ^LRD(65,"AB",$E(X,1,30),DA)
65,4.3 DISPOSITION ENTERING PERSON 4;3 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person entering final disposition
65,4.4 POOLED/DIVIDED UNITS 4;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>4!($L(X)<3)!'(X?1"("1N.N1")") X
LAST EDITED: DEC 26, 1985
HELP-PROMPT: Enter number of units in pool enclosed in parentheses; ex. (5)
DESCRIPTION: Number of units in pool OR number of aliquots into which
a unit of blood/blood component has been divided
65,4.5 SHIP TO 4;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>68!($L(X)<2) X I $D(X) S L=68,L(1)="D" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: MUST BE 2-68 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP SCREEN
DESCRIPTION: If unit is returned to sender or shipped elsewhere enter
name/location of facility where sent.
EXECUTABLE HELP: S L(1)="D" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,5 DISPOSITION COMMENT 5;0 Multiple #65.06 (Add New Entry without Asking)
LAST EDITED: OCT 28, 1984
DESCRIPTION:
These are final disposition comments.
EXECUTABLE HELP: W *7,!!,"TO enter expired units answer Y to the prompt:",!?5,"Unit expired or expires TODAY. Want t
o enter unit ? NO//",!,"To delete unit enter ^ after EXPIRATION DATE:",!!
65.06,.01 DISPOSITION COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="D" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH, CAN USE LAB DESCRIPTION FILE ENTRIES WITH BB DISP
SCREEN
DESCRIPTION:
Final disposition comment(s)
EXECUTABLE HELP: S L(1)="D" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AE^MUMPS
1)= S ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)=""
2)= K ^LRD(65,"AE",$P(^LRD(65,DA,0),U,4),X,DA)
65,6.1 PATIENT TRANSFUSED 6;1 FREE TEXT
INPUT TRANSFORM: D ^LRUG
OUTPUT TRANSFORM: I Y,$D(^LR(Y,0)) S X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),Y=$P(Y,U)_" "
_$P(Y,U,9)
LAST EDITED: MAY 01, 1989
HELP-PROMPT: Enter patient name
DESCRIPTION:
Name of patient transfused
EXECUTABLE HELP: S X="?" D ^LRUG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,6.12 PARENT FILE ; COMPUTED
MUMPS CODE: I $D(^LRD(65,D0,6)) S X=+^(6) I X S X=$P(^LR(X,0),U,2),X=$P(^DIC(X,0),U)
ALGORITHM: I $D(^LRD(65,D0,6)) S X=+^(6) I X S X=$P(^LR(X,0),U,2),X=$P(^DIC(X,0),U)
LAST EDITED: AUG 11, 1989
DESCRIPTION:
This is the file whose demographic data is stored for the patient transfused.
65,6.15 TRANSFUSED PATIENT ABO ; COMPUTED
MUMPS CODE: I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,5)
ALGORITHM: I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,5)
LAST EDITED: AUG 11, 1989
DESCRIPTION:
This is the transfused patient's ABO.
65,6.16 TRANSFUSED PATIENT RH ; COMPUTED
MUMPS CODE: I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,6)
ALGORITHM: I $D(^LRD(65,D0,6)) S X=+^(6) S:X X=$P(^LR(X,0),U,6)
LAST EDITED: AUG 11, 1989
DESCRIPTION:
This is the transfused patient's Rh type.
65,6.2 PHYSICIAN 6;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 02, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
Physician of patient transfused
65,6.3 TREATING SPECIALTY 6;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!(+X=X)!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
LAST EDITED: JUN 14, 1993
HELP-PROMPT: ANSWER MUST BE 3-30 CHARACTERS IN LENGTH
DESCRIPTION: Treating specialty to which the patient is assigned at the
time the unit was transfused.
EXECUTABLE HELP: W !,"NOT NUMERIC OR STARTING WITH PUNCTUATION"
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,6.4 TRANSFUSION RECORD NUMBER 6;4 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."6N.N) X
LAST EDITED: AUG 08, 1985
HELP-PROMPT: TYPE A NUMBER BETWEEN 1 AND 9999999
DESCRIPTION:
Internal number in subfile 63.085 TRANSFUSION RECORD
UNEDITABLE
65,6.5 TRANSFUSION REACTION 6;5 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: MAR 04, 1986
DESCRIPTION: Answer 'YES' if the patient experienced an adverse reaction
as a result of transfusion of designated blood/blood component
65,6.6 PROVIDER NUMBER 6;6 POINTER TO NEW PERSON FILE (#200)
Internal entry # in the New Person file
OUTPUT TRANSFORM: W ""
LAST EDITED: MAR 16, 1994
DESCRIPTION: If the physician is an entry in the New Person file the pointer number
is stored here.
65,6.7 TREATING SPECIALTY NUMBER 6;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
Internal entry # in treating speciality file
OUTPUT TRANSFORM: W ""
LAST EDITED: JUN 14, 1993
DESCRIPTION: If the treating specialty is an entry in the treating specialty file
the pointer number is stored here.
65,6.8 TRANSFUSION REACTION TYPE 6;8 POINTER TO BLOOD BANK UTILITY FILE (#65.4)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,2)=""T""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: DEC 11, 1992
DESCRIPTION:
Indicates the type of transfusion reaction
SCREEN: S DIC("S")="I $P(^(0),U,2)=""T"""
EXPLANATION: Selects transfusion reaction type
65,7 TRANSFUSION COMMENT 7;0 Multiple #65.07 (Add New Entry without Asking)
LAST EDITED: OCT 28, 1984
DESCRIPTION: These are comments regarding the transfusion of the specific unit, including whether only a part of
the unit was transfused and the reason(s).
65.07,.01 TRANSFUSION COMMENT 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="R" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION: Comments regarding the transfusion of the specific unit,
including whether only a part of the unit was
transfused and the reason(s).
EXECUTABLE HELP: S L(1)="R" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,8 RESTRICTED FOR 8;1 FREE TEXT
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) D ^LRUG
OUTPUT TRANSFORM: S:Y X=^LR(Y,0),Y=$P(X,U,3),X=$P(X,U,2),X=^DIC(X,0,"GL"),Y=@(X_Y_",0)"),Y=$P(Y,U,1)_" "_$P(Y,U,9)
LAST EDITED: OCT 19, 1988
DESCRIPTION: The patient indicated here is the only one who may be
transfused with this unit.
EXECUTABLE HELP: S X="?" D ^LRUG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AU
1)= S ^LRD(65,"AU",$E(X,1,30),DA)=""
2)= K ^LRD(65,"AU",$E(X,1,30),DA)
65,8.1 POS/INCOMPLETE SCREENING TESTS 8;2 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: AUG 22, 1988
DESCRIPTION: If autologous donor has a positive syphilis serology, HBsAg, or HIV
antibody test YES is entered. This flag is intended to warn NOT to
transfuse this unit to anyone other than the DONOR !
65,8.3 DONATION TYPE 8;3 SET
'A' FOR AUTOLOGOUS;
'D' FOR DIRECTED;
LAST EDITED: MAR 17, 1988
DESCRIPTION:
This field indicates which type of donation will be used to log this unit.
65,9 MODIFIED TO/FROM 9;0 POINTER Multiple #65.091 (Add New Entry without Asking)
HELP-PROMPT: TYPE A NUMBER BETWEEN 0 AND 99999
DESCRIPTION: If unit is modified identifies what products are made and what are the new unit ID's. If unit is a
pool identifies what product was pooled and what units are in the pool.
IDENTIFIED BY: UNIT ID(#.02)[R]
65.091,.001 NUMBER NUMBER
INPUT TRANSFORM: K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JAN 29, 1986
HELP-PROMPT: TYPE A WHOLE NUMBER BETWEEN 1 AND 20
DESCRIPTION:
A number from 1 to 20
65.091,.01 MODIFIED TO/FROM 0;1 POINTER TO BLOOD PRODUCT FILE (#66) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,6)]""""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 28, 1985
DESCRIPTION: If unit is modified identifies what products are made and what are the new units by ID #. If
unit is a pool identifies what product was pooled and what units are in the pool.
SCREEN: S DIC("S")="I $P(^(0),U,6)]"""""
EXPLANATION: Products allowed to be made from inventory
65.091,.02 UNIT ID 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>13!($L(X)<2) X
LAST EDITED: OCT 23, 2000
HELP-PROMPT: ANSWER MUST BE 2-13 CHARACTERS IN LENGTH
DESCRIPTION: If the unit is to be modified the ID of the new unit is entered here. If the unit is a modified
unit the old unit ID's are entered.
65.091,.03 FROM/TO 0;3 SET
'1' FOR FROM;
'2' FOR TO;
LAST EDITED: JUL 06, 1992
DESCRIPTION: If entry is from another unit a '1' is entered.
If entry is to become or be part of another unit a '2' is entered.
Several of the entries may have been entered to form a pool and
each entry will have a '1' entered. Then the pool may be modified
to another unit and then the entry will have a '2' entered.
65,10 ABO INTERPRETATION 10;1 SET
'A' FOR A;
'B' FOR B;
'O' FOR O;
'AB' FOR AB;
'ND' FOR NOT DONE;
LAST EDITED: MAY 11, 1985
DESCRIPTION:
Interpretation of ABO testing
CROSS-REFERENCE: 65^AD^MUMPS
1)= K ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),10,DA)
2)= S ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),10,DA)=""
65,10.2 TECH ENTERING-ABO INTERP 10;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person performing ABO testing
65,10.3 ABO TESTING COMMENT 10;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment related to ABO testing
EXECUTABLE HELP: S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,10.4 ABO MOVED FROM DONOR FILE 10;4 SET
'1' FOR YES;
LAST EDITED: AUG 01, 1988
65,11 RH INTERPRETATION 11;1 SET
'NEG' FOR NEGATIVE;
'POS' FOR POSITIVE;
'ND' FOR NOT DONE;
LAST EDITED: MAY 11, 1985
HELP-PROMPT: Enter only past or present Date/time
DESCRIPTION:
Interpretation of Rh testing
CROSS-REFERENCE: 65^AF^MUMPS
1)= K ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),11,DA)
2)= S ^LRD(65,"AT",$P(^LRD(65,DA,0),U,1),11,DA)=""
65,11.2 TECH ENTERING-RH INTERP 11;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
Person performing Rh testing
65,11.3 RH TESTING COMMENT 11;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X I $D(X) S L=80,L(1)="X" D ^LRUB
LAST EDITED: APR 08, 1988
HELP-PROMPT: ANSWER MUST BE 1-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment related to Rh testing
EXECUTABLE HELP: S L(1)="X" D Q^LRUB
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,11.4 RH MOVED FROM DONOR FILE 11;4 SET
'1' FOR YES;
LAST EDITED: MAR 27, 1993
65,15 DATE RE-ENTERED 15;0 DATE Multiple #65.15 (Add New Entry without Asking)
DESCRIPTION:
Re-entry date of the unit in the file
65.15,.01 DATE RE-ENTERED 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 10, 1988
DESCRIPTION: If receiving a unit that was previously returned or sent
elsewhere enter the date re-entering the unit in
inventory file.
65.15,.02 PREVIOUS DISPOSITION 0;2 SET
'R' FOR RETURNED TO SUPPLIER;
'S' FOR SENT ELSEWHERE;
LAST EDITED: MAR 17, 1988
DESCRIPTION:
The previous disposition
65.15,.03 PREVIOUS DISPOSITION DATE 0;3 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 10, 1988
DESCRIPTION:
The date of the previous disposition
65.15,.04 PREVIOUS DISP ENTERING PERSON 0;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
The name of the person entering the previous disposition
65.15,.05 PREVIOUS SHIPPING INVOICE 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAR 10, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
The previous shipping invoice
65.15,.06 PREVIOUS RECEIVING INVOICE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<2) X
LAST EDITED: MAR 10, 1988
HELP-PROMPT: ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
DESCRIPTION:
The previous receiving invoice
65.15,.07 PREVIOUS LOG-IN PERSON 0;7 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JUN 30, 1991
DESCRIPTION:
The name of the previous log-in person
65.15,.08 PREVIOUS DATE LOGGED-IN 0;8 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAY 15, 1990
DESCRIPTION:
Date of the previous log-in
CROSS-REFERENCE: 65^AR^MUMPS
1)= S ^LRD(65,"A",X,DA(1))="" D:$D(DIU(0)) A658^LRXREF1
2)= K ^LRD(65,"A",X,DA(1))
65.15,.09 PREVIOUS SHIP TO 0;9 FREE TEXT
INPUT TRANSFORM: K:$L(X)>68!($L(X)<2) X
LAST EDITED: MAR 10, 1988
HELP-PROMPT: ANSWER MUST BE 2-68 CHARACTERS IN LENGTH
DESCRIPTION:
The name of the previous ship to area
65,16 PEDIATRIC ALIQUOT MADE 16;0 Multiple #65.16
DESCRIPTION: If portions of unit taken for pediatric units enter the
pediatric unit IDs here
65.16,.01 PEDIATRIC ALIQUOT MADE 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>13!($L(X)<2) X
LAST EDITED: OCT 23, 2000
HELP-PROMPT: ANSWER MUST BE 2-13 CHARACTERS IN LENGTH
DESCRIPTION: If portions of unit taken for pediatric units enter the
pediatric unit IDs here.
65.16,.02 VOLUME (ml) 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: JUN 02, 1988
HELP-PROMPT: Type a Number between 1 and 200, 0 Decimal Digits
DESCRIPTION:
Volume in mililiters of pediatric aliquot made from this unit.
65,60 RBC ANTIGEN PRESENT 60;0 POINTER Multiple #65.04 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: SELECTS ANTIGENS
65.04,.01 RBC ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
RBC Antigen tested
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: MAY 21, 1999
HELP-PROMPT: Enter ANTIGEN
DESCRIPTION: Antigen(s) present on red blood cells of the unit
(If applicable)
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Selects only ANTIGENS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.04,.02 RBC ANTIGEN PRESENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment to RBC antigen presence
65,70 RBC ANTIGEN ABSENT 70;0 POINTER Multiple #65.05 (Add New Entry without Asking)
DESCRIPTION:
Comment to RBC antigen
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: SELECTS ANTIGENS
65.05,.01 RBC ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""AN""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION: Antigen(s) absent on red blood cells of unit
(If applicable)
SCREEN: S DIC("S")="I $P(^(0),U,5)=""AN"""
EXPLANATION: Selects only ANTIGENS
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.05,.02 RBC ANTIGEN ABSENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment to RBC antigen absence
65,80 HLA ANTIGEN PRESENT 80;0 POINTER Multiple #65.08 (Add New Entry without Asking)
LAST EDITED: MAR 29, 1993
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: SELECTS HLA ANTIGENS
65.08,.01 HLA ANTIGEN PRESENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""HL""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
HLA antigen(s) present on the appropriate cells
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Limits entry to only HLA Antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.08,.02 HLA ANTIGEN PRESENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment to HLA antigen presence
65,90 HLA ANTIGEN ABSENT 90;0 POINTER Multiple #65.09 (Add New Entry without Asking)
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: SELECTS HLA ANTIGENS
65.09,.01 HLA ANTIGEN ABSENT 0;1 POINTER TO FUNCTION FIELD FILE (#61.3) (Multiply asked)
INPUT TRANSFORM:S DIC("W")="W "" "",$P(^(0),U,2),"" "",$P(^(0),U,1)",DIC("S")="I $P(^(0),U,5)=""HL""" D ^DIC K DI
C S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: MAY 21, 1999
DESCRIPTION:
HLA antigen(s) absent on the appropriate cells
SCREEN: S DIC("S")="I $P(^(0),U,5)=""HL"""
EXPLANATION: Selects HLA antigens
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.09,.02 HLA ANTIGEN ABSENT COMMENT 0;2 FREE TEXT
INPUT TRANSFORM:K:$L(X)>80!($L(X)<2) X
LAST EDITED: JUN 02, 1986
HELP-PROMPT: ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
DESCRIPTION:
Comment to HLA antigen absence
65,91 CMV ANTIBODY 0;15 SET
'0' FOR NEG;
'1' FOR POS;
LAST EDITED: MAR 19, 1988
65,121 DONOR CELLS+ANTI D(slide rgt) 12;1 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
65,122 DONOR CELLS+RH CTRL(slide rgt) 12;2 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
65,123 DONOR CELLS+ANTI D (37) 12;3 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,124 DONOR CELLS+RH CTRL (37) 12;4 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,125 DONOR CELLS+ANTI D (AHG) 12;5 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,126 DONOR CELLS+RH CTRL (AHG) 12;6 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,127 DONOR CELLS+ANTI D (AHG) CC 12;7 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,128 DONOR CELLS+RH CTRL CC 12;8 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,141 DONOR CELLS+ANTI A(slide) 14;1 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
65,142 DONOR CELLS+ANTI B(slide) 14;2 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
65,143 DONOR CELLS+ANTI A,B(slide) 14;3 SET
'P' FOR POSITIVE;
'N' FOR NEGATIVE;
65,144 DONOR PLASMA+A1 CELLS 14;4 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,145 DONOR PLASMA+B CELLS 14;5 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: OCT 30, 1984
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,200 DIRECT AHG(BS) 200;1 FREE TEXT
INPUT TRANSFORM: D ^LRBLAGG
LAST EDITED: MAY 08, 1985
EXECUTABLE HELP: D LST^LRBLAGG
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65,500 TEST/PROCEDURE 99;0 POINTER Multiple #65.3 (Add New Entry without Asking)
DESCRIPTION:
This field contains the test performed on this unit.
65.3,.01 TEST/PROCEDURE 0;1 POINTER TO LABORATORY TEST FILE (#60) (Multiply asked)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,4)=""BB""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
LAST EDITED: JAN 28, 1991
DESCRIPTION:
Used to keep track of TEST/PROCEDURES for WKLD workload
SCREEN: S DIC("S")="I $P(^(0),U,4)=""BB"""
EXPLANATION: Selects only blood bank subscripted tests
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.3,1 COMPLETE DATE/TIME 1;0 DATE Multiple #65.31 (Add New Entry without Asking)
DESCRIPTION:
The completion date/time of the test/procedure
65.31,.01 COMPLETE DATE/TIME 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X S:$D(X) DINUM=X
LAST EDITED: MAR 03, 1993
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 65^AA^MUMPS
1)= S A=$P(^LRD(65,DA(2),99,DA(1),1,DA,0),U,3) I 'A S ^LRD(65,"AA",DA(2),DA(1),DA)=$P(^LRD(65,DA(2)
,0),U)
2)= K ^LRD(65,"AA",DA(2),DA(1),DA)
WKLD workload flag
65.31,.02 TECH 0;2 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: JAN 26, 1991
DESCRIPTION:
The name of the technician completing the test/procedure
65.31,.03 INSTITUTION 0;3 POINTER TO INSTITUTION FILE (#4)
LAST EDITED: JUL 31, 1992
DESCRIPTION:
The name of the institution from the Institution file
65.31,.04 MAJOR SECTION 0;4 POINTER TO ACCESSION FILE (#68)
LAST EDITED: JUL 31, 1992
DESCRIPTION:
The name of the major section from the Accession file
65.31,.05 SUBSECTION 0;5 POINTER TO ACCESSION FILE (#68)
LAST EDITED: JUL 31, 1992
DESCRIPTION:
The name of the subsection from the Accession file
65.31,1 WKLD CODE 1;0 POINTER Multiple #65.311 (Add New Entry without Asking)
DESCRIPTION:
The name of the workload code from the WKLD CODE file
65.311,.01 WKLD CODE 0;1 POINTER TO WKLD CODE FILE (#64) (Multiply asked)
INPUT TRANSFORM:S DINUM=X
LAST EDITED: OCT 24, 1990
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.311,.02 WKLD CODE COUNT 0;2 NUMBER
INPUT TRANSFORM:K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: OCT 24, 1990
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
DESCRIPTION:
The count of the workload code entry
65.311,.03 WKLD CODE COUNTED 0;3 SET
'1' FOR YES;
'0' FOR NO;
LAST EDITED: OCT 24, 1990
DESCRIPTION:
A set code of yes or no, whether the workload code was counted
65,999 DATA CHANGE DATE 999;0 DATE Multiple #65.099 (Add New Entry without Asking)
DESCRIPTION:
Date the report value was changed
65.099,.01 DATA CHANGE DATE 0;1 DATE (Multiply asked)
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X S DINUM=$P($H,",",1)_$P($H,",",2) H 1
LAST EDITED: MAY 12, 1985
DESCRIPTION:
This field contains the date the reported value was changed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
65.099,.02 PERSON CHANGING DATA 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<2) X
LAST EDITED: MAY 08, 1985
HELP-PROMPT: ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the person that alter the reported value.
65.099,.03 DATA ELEMENT 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 08, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field indicated what result name the data was altered.
65.099,.04 OLD VALUE 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: MAY 08, 1985
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
DESCRIPTION:
This field contains the value before it was altered.
65.099,.05 NEW VALUE 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:
This field contains the new value after the field was altered.
FILES POINTED TO FIELDS
ACCESSION (#68) COMPLETE DATE/TIME:MAJOR SECTION (#.04)
SUBSECTION (#.05)
BLOOD BANK UTILITY (#65.4) TRANSFUSION REACTION TYPE (#6.8)
BLOOD PRODUCT (#66) COMPONENT (#.04)
MODIFIED TO/FROM:MODIFIED TO/FROM (#.01)
FACILITY TREATING SPECIALTY
(#45.7) TREATING SPECIALTY NUMBER (#6.7)
BLOOD SAMPLE DATE/TIME:TREATING SPECIALTY NUMBER (#.07)
FUNCTION FIELD (#61.3) RBC ANTIGEN PRESENT:RBC ANTIGEN PRESENT (#.01)
RBC ANTIGEN ABSENT:RBC ANTIGEN ABSENT (#.01)
HLA ANTIGEN PRESENT:HLA ANTIGEN PRESENT (#.01)
HLA ANTIGEN ABSENT:HLA ANTIGEN ABSENT (#.01)
INSTITUTION (#4) DIVISION (#.16)
COMPLETE DATE/TIME:INSTITUTION (#.03)
LABORATORY TEST (#60) TEST/PROCEDURE:TEST/PROCEDURE (#.01)
NEW PERSON (#200) LOG-IN PERSON (#.09)
DISPOSITION ENTERING PERSON (#4.3)
PROVIDER NUMBER (#6.6)
TECH ENTERING-ABO INTERP (#10.2)
TECH ENTERING-RH INTERP (#11.2)
BLOOD SAMPLE DATE/TIME:XMATCH TECH (#.05)
PROVIDER NUMBER (#.08)
DATE/TIME UNIT RELOCATION:TECH INSPECTING (#.03)
DATE RE-ENTERED:PREVIOUS DISP ENTERING PERSON (#.04)
PREVIOUS LOG-IN PERSON (#.07)
COMPLETE DATE/TIME:TECH (#.02)
PATIENT (#2) DATE/TIME UNIT RELOCATION:VA PATIENT NUMBER (#.07)
WKLD CODE (#64) WKLD CODE:WKLD CODE (#.01)
INPUT TEMPLATE(S):
LRBLIABRH JAN 27, 1991@09:51 USER #0
LRBLIAG JAN 27, 1991@09:54 USER #0
LRBLID JAN 27, 1991@09:40 USER #0
LRBLIDTM SEP 03, 1997@11:13 USER #0
LRBLILG SEP 07, 1995@13:33 USER #0
LRBLIXR MAY 09, 1997@13:36 USER #0
LRBLPOOL SEP 25, 1996@15:13 USER #0
PRINT TEMPLATE(S):
ARCHIVE BLOOD TEMPLATE JUL 28, 1993 USER #0
LRAR ARCHIVE 65 MAY 04, 1994 USER #0
LRBL DISCARDED UNITS DISP DEC 09, 1985 USER #0 DISCARDED UNITS DISPOSITION REPORT
LRBL DISPOSITION TOTALS AUG 28, 1985 USER #0 DISPOSITION TOTALS
LRBL ISSUES TO SURGERY AUG 28, 1985 USER #0 ISSUES TO SURGERY
LRBL TRANSFUSION REACTIONS DEC 14, 1992@09:37 USER #0 TRANSFUSION REACTION REPORT
LRBL WASTAGE REPORT AUG 30, 1985 USER #0 BLOOD WASTAGE REPORT
LRBLDP NOV 06, 1985 USER #0 History of donor units
LRBLDSP NOV 15, 2000@11:59 USER #0 Inventory list
LRBLINV NOV 15, 2000@11:48 USER #0 Blood Inventory List
LRBLITR OCT 10, 1986 USER #0 PATIENTS TRANSFUSED
LRBLTX AUG 13, 1985 USER #0 TRANSFUSED UNITS
ZZDANILA JUN 20, 1995 USER #0
SORT TEMPLATE(S):
ARCHIVE BLOOD INVENTORY JUL 28, 1993@11:44 USER #0 DISPOSITION NOT NULL
ARCHIVE SORT JUL 27, 1993@10:02 USER #0 NUMBER LESS THAN 10
LR ARCHIVE 65 AUG 08, 1995 USER #0
LRBL ARCHIVE JUL 27, 1993@15:09 USER #0 not DISPOSITION NULL
LRBL DISCARDED UNITS DEC 09, 1985 USER #0
SORT BY: DISPOSITION// From 'D' To 'M'
WITHIN DISPOSITION, SORT BY: DISPOSITION DATE// (User is asked range)
LRBL DISPOSITION TOTALS AUG 28, 1985 USER #0
SORT BY: DISPOSITION//
WITHIN DISPOSITION, SORT BY: DISPOSITION DATE// (User is asked range)
WITHIN DISPOSITION DATE, SORT BY: COMPONENT// (User is asked range)
LRBL ISSUES TO SURGERY AUG 28, 1985 USER #0
SORT BY: !DATE/TIME UNIT RELOCATION//
DATE/TIME UNIT RELOCATION SUB-FIELD: DATE/TIME UNIT RELOCATION// (User is asked range)
WITHIN DATE/TIME UNIT RELOCATION, SORT BY: UNIT ID//
WITHIN UNIT ID, SORT BY: 'DATE/TIME UNIT RELOCATION//
DATE/TIME UNIT RELOCATION SUB-FIELD: LOCATION// From 'SURGERY' To 'SURGERY'
LRBL TRANSFUSION REACTIONS JAN 14, 1986 USER #0
SORT BY: DISPOSITION DATE// (User is asked range)
WITHIN DISPOSITION DATE, SORT BY: TRANSFUSION REACTION// From '1' To '1'
LRBL WASTAGE AUG 30, 1985 USER #0
SORT BY: DISPOSITION DATE// (User is asked range)
WITHIN DISPOSITION DATE, SORT BY: DISPOSITION COMMENT//
DISPOSITION COMMENT SUB-FIELD: DISPOSITION COMMENT//
WITHIN DISPOSITION COMMENT, SORT BY: COMPONENT//
WITHIN COMPONENT, SORT BY: UNIT ID//
LRBL WASTAGE-2 MAY 19, 1988 USER #0
SORT BY: DISPOSITION DATE//
WITHIN DISPOSITION DATE, SORT BY: COMPONENT//
LRBLINV DEC 13, 1989@08:53 USER #0
SORT BY: +SOURCE//
WITHIN SOURCE, SORT BY: +COMPONENT//
WITHIN COMPONENT, SORT BY: DATE/TIME RECEIVED// (User is asked range)
WITHIN DATE/TIME RECEIVED, SORT BY: ABO GROUP//
WITHIN ABO GROUP, SORT BY: RH TYPE//
LRBLITR OCT 10, 1986 USER #0
SORT BY: PATIENT TRANSFUSED// (User is asked range)
WITHIN PATIENT TRANSFUSED, SORT BY: DISPOSITION DATE// (User is asked range)
LRBLTX OCT 12, 1987 USER #0
SORT BY: @DISPOSITION// From 'T' To 'TZ'
WITHIN DISPOSITION, SORT BY: DISPOSITION DATE// (User is asked range)
WITHIN DISPOSITION DATE, SORT BY: PATIENT TRANSFUSED//
LRD-65-EXCEPTIONS AUG 17, 1992 USER #0
FORM(S)/BLOCK(S):