Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details |  All
Print Page as PDF
Sub-Field: 63.017

Package: Lab Service

LAB DATA(#63)-->63.017

Sub-Field: 63.017


Information

Parent File Name Number Package
LAB DATA(#63) TRANSFUSION RECORD 63.017 Lab Service

Details

Field # Name Loc Type Details
.01 TRANSFUSION 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 X(1)=9999999-Y X:$D(^LR(DA(1),1.6,X(1))) ^DD(63.017,.01,9.2) S DINUM=X(1)
    9.2 = F X(2)=0:0 S X(1)=X(1)-.00001 Q:'$D(^LR(DA(1),1.6,X(1)))
  • LAST EDITED:  AUG 08, 1985
  • DESCRIPTION:  
    This is a reverse chronological order of blood components transfused.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 COMPONENT 0;2 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 S:$D(X) LR=X
  • LAST EDITED:  JUL 30, 1987
  • DESCRIPTION:  
    This is the component transfused.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""BB"""
  • EXPLANATION:  Selects only blood components that can be transfused
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 COMPONENT ID 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>12!($L(X)<2) X D:$D(X) EN^LRBLU
  • LAST EDITED:  JUL 30, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-12 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the component identification number.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 ENTERING PERSON 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 04, 1987
  • DESCRIPTION:  
    This is the person entering information on the transfusion.
.05 ABO 0;5 SET
  • 'A' FOR A;
  • 'B' FOR B;
  • 'AB' FOR AB;
  • 'O' FOR O;

  • LAST EDITED:  JUN 02, 1985
  • DESCRIPTION:  
    ABO group of component
.06 RH 0;6 SET
  • 'POS' FOR POSITIVE;
  • 'NEG' FOR NEGATIVE;

  • LAST EDITED:  JUN 02, 1985
  • DESCRIPTION:  
    Rh type of component
.07 UNITS POOLED 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 07, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • DESCRIPTION:  
    This is the number of units pooled.
.08 TRANSFUSION REACTION 0;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 04, 1986
  • DESCRIPTION:  
    YES indicates a transfusion reaction was associated with this transfusion.
.09 DATA ENTERED VIA OLD RECORDS 0;9 SET
  • '1' FOR YES;

  • LAST EDITED:  JUL 30, 1987
  • DESCRIPTION:  If transfusion data entered in the transfusion record via previous
    records option then a 'YES' will be entered here.
.1 VOL(ml) TRANSFUSED 0;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 08, 1988
  • HELP-PROMPT:  Type a Number between 1 and 1000, 0 Decimal Digits
  • DESCRIPTION:  
    Enter in milliliters the volume of the unit transfused
.11 TRANSFUSION REACTION TYPE 0;11 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 14, 1992
  • DESCRIPTION:  
    Indicates type of transfusion reaction
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=""T"""
  • EXPLANATION:  Selects transfusion reaction type
  • CROSS-REFERENCE:  63^AB^MUMPS
    1)= S ^LR("AB",DA(1),X,DA)=""
    2)= K ^LR("AB",DA(1),X,DA)
    Transfusion reaction type by patient
1 TRANSFUSION COMMENT 1;0 Multiple #63.186 63.186

  • DESCRIPTION:  
    These are comments on the transfusion.
2 CROSSMATCH COMMENT 2;0 Multiple #63.027 63.027

  • DESCRIPTION:  
    These are comments on the crossmatch.
Info |  Details |  All