Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries  | All
Print Page as PDF
Global: ^LRD(65

Package: Lab Service

Global: ^LRD(65


Information

FileMan FileNo FileMan Filename Package
65 BLOOD INVENTORY Lab Service

Description

Accessed By FileMan Db Calls, Total: 20

Package Total Routines
Lab Service 19 LRBLJA    LRBLJCK    LRBLJD    LRBLJD1    LRBLJED    LRBLJL    LRBLJLG    LRBLJLG1
LRBLJM    LRBLJM1    LRBLJP    LRBLJPA1    LRBLJW    LRBLPED    LRBLPP    LRBLPT1
LRBLPUS2    LRBLPX    LRCAPBV    
VBECS 1 VBECPOST    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Lab Service 2 LAB DATA(#63)[#63.0841(.01)]    WKLD DATA(#64.1)[#64.1111(9)]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Lab Service 6 LABORATORY TEST(#60)[#65.3(.01)]    FUNCTION FIELD(#61.3)[#65.04(.01)#65.05(.01)#65.08(.01)#65.09(.01)]    BLOOD BANK UTILITY(#65.4)[6.8]    BLOOD PRODUCT(#66)[.04#65.091(.01)]    WKLD CODE(#64)[#65.311(.01)]    ACCESSION(#68)[#65.31(.04)#65.31(.05)]    
Kernel 2 INSTITUTION(#4)[.16#65.31(.03)]    NEW PERSON(#200)[.094.36.610.211.2#65.02(.05)#65.02(.08)#65.03(.03)#65.15(.04)#65.15(.07)#65.31(.02)]
Registration 2 FACILITY TREATING SPECIALTY(#45.7)[6.7#65.02(.07)]    PATIENT(#2)[#65.03(.07)]    

Fields, Total: 71

Field # Name Loc Type Details
.01 UNIT ID 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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
.02 SOURCE 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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(^LAB(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
.03 INVOICE# 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • 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
.04 COMPONENT 0;4 POINTER TO BLOOD PRODUCT FILE (#66)
************************REQUIRED FIELD************************
BLOOD PRODUCT(#66)

  • 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
.05 DATE/TIME RECEIVED 0;5 DATE
************************REQUIRED FIELD************************

  • 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)
.06 EXPIRATION DATE/TIME 0;6 DATE
************************REQUIRED FIELD************************

  • 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)
.07 ABO GROUP 0;7 SET
************************REQUIRED FIELD************************
  • '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)
.08 RH TYPE 0;8 SET
************************REQUIRED FIELD************************
  • '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).
.09 LOG-IN PERSON 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person entering unit in file.
.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
.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
.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
.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.
.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
.16 DIVISION 0;16 POINTER TO INSTITUTION FILE (#4)
************************REQUIRED FIELD************************
INSTITUTION(#4)

  • 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.
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.
2 PATIENT XMATCHED/ASSIGNED 2;0 Multiple #65.01 65.01

  • 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)
3 DATE/TIME UNIT RELOCATION 3;0 DATE Multiple #65.03 65.03

  • 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.
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
4.2 DISPOSITION DATE 4;2 DATE
************************REQUIRED FIELD************************

  • 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)
4.3 DISPOSITION ENTERING PERSON 4;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person entering final disposition
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
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
5 DISPOSITION COMMENT 5;0 Multiple #65.06 65.06

  • 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 to enter unit ? NO//",!,"To delete unit enter ^ after EXPIRATION DATE:",!!
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
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.
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.
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.
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
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
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
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
6.6 PROVIDER NUMBER 6;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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.
6.7 TREATING SPECIALTY NUMBER 6;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • 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.
6.8 TRANSFUSION REACTION TYPE 6;8 POINTER TO BLOOD BANK UTILITY FILE (#65.4) BLOOD BANK UTILITY(#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
7 TRANSFUSION COMMENT 7;0 Multiple #65.07 65.07

  • 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).
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)
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 !
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.
9 MODIFIED TO/FROM 9;0 POINTER Multiple #65.091 65.091

  • 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]
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)=""
10.2 TECH ENTERING-ABO INTERP 10;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person performing ABO testing
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
10.4 ABO MOVED FROM DONOR FILE 10;4 SET
  • '1' FOR YES;

  • LAST EDITED:  AUG 01, 1988
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)=""
11.2 TECH ENTERING-RH INTERP 11;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person performing Rh testing
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
11.4 RH MOVED FROM DONOR FILE 11;4 SET
  • '1' FOR YES;

  • LAST EDITED:  MAR 27, 1993
15 DATE RE-ENTERED 15;0 DATE Multiple #65.15 65.15

  • DESCRIPTION:  
    Re-entry date of the unit in the file
16 PEDIATRIC ALIQUOT MADE 16;0 Multiple #65.16 65.16

  • DESCRIPTION:  If portions of unit taken for pediatric units enter the
    pediatric unit IDs here
60 RBC ANTIGEN PRESENT 60;0 POINTER Multiple #65.04 65.04

  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""AN"""
  • EXPLANATION:  SELECTS ANTIGENS
70 RBC ANTIGEN ABSENT 70;0 POINTER Multiple #65.05 65.05

  • DESCRIPTION:  
    Comment to RBC antigen
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""AN"""
  • EXPLANATION:  SELECTS ANTIGENS
80 HLA ANTIGEN PRESENT 80;0 POINTER Multiple #65.08 65.08

  • LAST EDITED:  MAR 29, 1993
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""HL"""
  • EXPLANATION:  SELECTS HLA ANTIGENS
90 HLA ANTIGEN ABSENT 90;0 POINTER Multiple #65.09 65.09

  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""HL"""
  • EXPLANATION:  SELECTS HLA ANTIGENS
91 CMV ANTIBODY 0;15 SET
  • '0' FOR NEG;
  • '1' FOR POS;

  • LAST EDITED:  MAR 19, 1988
121 DONOR CELLS+ANTI D(slide rgt) 12;1 SET
  • 'P' FOR POSITIVE;
  • 'N' FOR NEGATIVE;
122 DONOR CELLS+RH CTRL(slide rgt) 12;2 SET
  • 'P' FOR POSITIVE;
  • 'N' FOR NEGATIVE;
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
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
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
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
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
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
141 DONOR CELLS+ANTI A(slide) 14;1 SET
  • 'P' FOR POSITIVE;
  • 'N' FOR NEGATIVE;
142 DONOR CELLS+ANTI B(slide) 14;2 SET
  • 'P' FOR POSITIVE;
  • 'N' FOR NEGATIVE;
143 DONOR CELLS+ANTI A,B(slide) 14;3 SET
  • 'P' FOR POSITIVE;
  • 'N' FOR NEGATIVE;
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
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
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
500 TEST/PROCEDURE 99;0 POINTER Multiple #65.3 65.3

  • DESCRIPTION:  
    This field contains the test performed on this unit.
999 DATA CHANGE DATE 999;0 DATE Multiple #65.099 65.099

  • DESCRIPTION:  
    Date the report value was changed

Found Entries, Total: 1

UNIT ID: VBECS1    

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #527
  • Health Summary
  • UNIT ID (.01).
    Access: Direct Global Read & w/Fileman

    EXPIRATION DATE/TIME (.06).
    Access: Direct Global Read & w/Fileman

    ABO GROUP (.07).
    Access: Direct Global Read & w/Fileman

    RH TYPE (.08).
    Access: Direct Global Read & w/Fileman

    VOLUME (ml) (.11).
    Access: Direct Global Read & w/Fileman

    DIVISION (.16).
    Access: Direct Global Read & w/Fileman

    DISPOSITION (4.1).
    Access: Read w/Fileman

    DONATION TYPE (8.3).
    Access: Read w/Fileman

    DATE/TIME UNIT ASSIGNED (.02).
    Access: Direct Global Read & w/Fileman

    XMATCH RESULT (.04).
    Access: Read w/Fileman

    PATIENT XMATCHED/ASSIGNED
    ICR #685
  • Health Summary
  • ICR #2331
  • Surgery
  • UNIT ID (.01).
    Access: Direct Global Read & w/Fileman

    COMPONENT (.04).
    Access: Direct Global Read & w/Fileman

    EXPIRATION DATE/TIME (.06).
    Access: Direct Global Read & w/Fileman

    PATIENT XMATCHED/ASSIGNED (.01).
    Access: Direct Global Read & w/Fileman

    DATE/TIME UNIT ASSIGNED (.02).
    Access: Direct Global Read & w/Fileman

    Info |  Desc |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries  | All