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.66

Package: Lab Service

BLOOD DONOR(#65.5)-->65.54-->65.66

Sub-Field: 65.66


Information

Parent File Name Number Package
65.54 BLOOD COMPONENT 65.66 Lab Service

Details

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)=""BB"""_$S($D(LRB(8)):",$P(^(0),U,12)=LRB(8)",1:"") D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X I $D(X) S DINUM=X
  • LAST EDITED:  DEC 26, 1986
  • HELP-PROMPT:  The selection must be a blood component.
  • DESCRIPTION:  
    Blood component prepared from collection.
  • EXECUTABLE HELP:  W !?6,"The anticoagulant in the collection bag",!?6,"must be appropriate to the component selected.",!?6,"Number of components selected cannot exceed number",!?6,"allowed for the primary collection bag."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  65.66^B
    1)= S ^LRE(DA(2),5,DA(1),66,"B",$E(X,1,30),DA)=""
    2)= K ^LRE(DA(2),5,DA(1),66,"B",$E(X,1,30),DA)
.02 COMPONENT DISP DATE/TIME 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 05, 1989
  • DESCRIPTION:  Date/time at which the component was released to stock,
    quarantined or discarded.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 DATE/TIME STORED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X I $D(X) K:X'["." X I $D(X) S T=$S($D(^LRE(DA(2),5,DA(1),2)):$P(^(2),U,4),1:"") K:X
  • LAST EDITED:  NOV 10, 1985
  • DESCRIPTION:  
    Date/time component stored.
  • EXECUTABLE HELP:  K DZ W !!,"Must enter DATE and TIME",!,"Time stored must not be earlier than time processed",!,"Future date/time not allowed."
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 EXPIRATION DATE 0;4 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXF",%DT(0)="N" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 24, 1999
  • HELP-PROMPT:  Cannot enter expired components.
  • DESCRIPTION:  
    Expiration date/time of component prepared.
  • EXECUTABLE HELP:  K DZ
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 COMPONENT VOL (ml) 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 26, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 500
  • DESCRIPTION:  
    Volume in milliliters (ml) of component prepared.
.06 TECH LABELING 0;6 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    This is the person initially reviewing the donor results and if appropriate, placing the correct labels on the component.
.07 DISPOSITION TECH 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  Person verifying that the donor results and the
    labelling are acceptable and that the component
    can be released to inventory.
.08 COMPONENT DISPOSITION 0;8 SET

  • LAST EDITED:  JAN 13, 1986
  • DESCRIPTION:  
    This is the disposition of component.
1 COMPONENT DISPOSITION COMMENT 1;0 Multiple #65.67 65.67

  • DESCRIPTION:  
    This is a comment concerning the component disposition.
2 SEDIMENTING AGENT 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  JAN 13, 1986
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the sedimenting agent used on this component.
3 DRUG 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This drug is associated with this component.
Info |  Details