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: 63.084

Package: Lab Service

LAB DATA(#63)-->63.084

Sub-Field: 63.084


Information

Parent File Name Number Package
LAB DATA(#63) BLOOD COMPONENT REQUEST 63.084 Lab Service

Details

Field # Name Loc Type Details
.01 BLOOD COMPONENT REQUEST 0;1 POINTER TO BLOOD PRODUCT FILE (#66) BLOOD PRODUCT(#66)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,15),$D(^(10,DUZ(2),0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  JUL 31, 1995
  • DESCRIPTION:  
    This is the component requested.
  • SCREEN:  S DIC("S")="I $P(^(0),U,15),$D(^(10,DUZ(2),0))"
  • EXPLANATION:  Selects only components that can be selected within the division
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 PRE-OP REQUEST 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUL 22, 1985
  • DESCRIPTION:  
    YES indicates this is a pre-operative request.
.03 REQUEST DATE/TIME 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 25, 1986
  • DESCRIPTION:  
    This is the date/time of the request.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 NUMBER OF UNITS 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>50)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 07, 1987
  • HELP-PROMPT:  Type a Number between 1 and 50, 0 Decimal Digits
  • DESCRIPTION:  
    This is the number of units requested.
.05 DATE/TIME UNITS WANTED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  AUG 26, 1986
  • DESCRIPTION:  
    This is the date/time the units are wanted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 PREVIOUS TRANSFUSIONS 0;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • DESCRIPTION:  
    YES indicates the patient has had previous transfusions.
.07 PREVIOUS TRANSFUSION REACTION 0;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 26, 1991
  • DESCRIPTION:  
    YES indicates the patient has had a previous transfusion reaction.
.08 ENTERING PERSON 0;8 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAY 04, 1987
  • DESCRIPTION:  
    This is the person entering the request.
.09 REQUESTING PERSON 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>17!($L(X)<2) X
  • LAST EDITED:  MAY 04, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-17 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the person making the request.
1 UNITS SELECTED FOR XMATCH 1;0 POINTER Multiple #63.0841 63.0841

  • DESCRIPTION:  
    These are units selected for crossmatch.
  • SCREEN:  S DIC("S")="I '$D(^(4))"
  • EXPLANATION:  SELECTS UNITS WITHOUT DISPOSITION
2.1 COMPONENT REQUEST REASON 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<2) X I $D(X) S L=80,L(1)="J" D ^LRUB
  • LAST EDITED:  SEP 03, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-80 CHARACTERS IN LENGTH
  • DESCRIPTION:  If request does not meet acceptable criteria enter the reason
    why the request should still be completed.
  • EXECUTABLE HELP:  S L(1)="J" D Q^LRUB
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2.2 APPROVED BY 2;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  SEP 02, 1987
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the person approving the crossmatch request.
2.3 TREATING SPECIALITY 2;3 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7) FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  SEP 02, 1987
  • DESCRIPTION:  
    This is the treating specialty of the crossmatch request.
Info |  Details