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

Package: Lab Service

BLOOD INVENTORY(#65)-->65.01-->65.02

Sub-Field: 65.02


Information

Parent File Name Number Package
65.01 BLOOD SAMPLE DATE/TIME 65.02 Lab Service

Details

Field # Name Loc Type Details
.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)
.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
.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
.04 XMATCH RESULT 0;4 SET
  • '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
.05 XMATCH TECH 0;5 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person performing crossmatch
.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
.07 TREATING SPECIALTY NUMBER 0;7 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • 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.
.08 PROVIDER NUMBER 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • 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.
.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 DIH=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(D
    IH,DIG,1,0))>0
    2)= Q
    CREATE VALUE)= BLOOD SAMPLE DATE/TIME
    DELETE VALUE)= NO EFFECT
    FIELD)= LAST SPECIMEN DATE XMATCHED
.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
1 MAJOR XMATCH METHOD 1;0 SET Multiple #65.0911 65.0911

  • DESCRIPTION:  
    These are the major crossmatch methods.
2 MINOR XMATCH METHOD 2;0 SET Multiple #65.0912 65.0912

  • DESCRIPTION:  
    Data stored here if minor crossmatch used.
3 CROSSMATCH COMMENT 3;0 Multiple #65.0913 65.0913

  • 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.
Info |  Details