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

Package: Lab Service

BLOOD INVENTORY(#65)-->65.03

Sub-Field: 65.03


Information

Parent File Name Number Package
BLOOD INVENTORY(#65) DATE/TIME UNIT RELOCATION 65.03 Lab Service

Details

Field # Name Loc Type Details
.01 DATE/TIME UNIT RELOCATION 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1!(Y'[".") X I $D(X) S DINUM=9999999-Y
  • LAST EDITED:  FEB 17, 1986
  • HELP-PROMPT:  This is a multiple entry field but only asked once
  • DESCRIPTION:  Date/time unit is relocated from one location to another,
    ex. from blood bank to surgery or from surgery to blood bank
  • EXECUTABLE HELP:  W $C(7),!!,"TIME must be entered",!,"Future times not allowed",!!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  65^AL^MUMPS
    1)= S ^LRD(65,"AL",X,DA(1))=""
    2)= K ^LRD(65,"AL",X,DA(1))
.02 INSPECTION 0;2 SET
************************REQUIRED FIELD************************
  • 'S' FOR SATISFACTORY;
  • 'U' FOR UNSATISFACTORY;

  • LAST EDITED:  AUG 07, 1985
  • DESCRIPTION:  Interpretation of unit inspection for color and appearance
    immediately before issue/relocation.
.03 TECH INSPECTING 0;3 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    Person inspecting unit
.04 LOCATION 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)<2!($L(X)>30)!(X'?.ANP) X I $D(X) D ^LRUC
  • LAST EDITED:  JUL 17, 1985
  • HELP-PROMPT:  Entry must be 2-30 characters
  • DESCRIPTION:  
    Location to which unit of blood is being relocated.
  • EXECUTABLE HELP:  D EN^LRUC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 ISSUED TO/REC'D FROM 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  MAY 08, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Person taking unit from or returning unit to the blood bank.
.06 FOR PATIENT 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<2) X
  • LAST EDITED:  JUL 15, 1985
  • HELP-PROMPT:  ANSWER MUST BE 2-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The patient the unit of blood is being relocated for.
.07 VA PATIENT NUMBER 0;7 POINTER TO PATIENT FILE (#2) PATIENT(#2)

  • OUTPUT TRANSFORM:  W ""
  • LAST EDITED:  SEP 18, 1987
  • DESCRIPTION:  If the patient is an entry in the patient file (#2) the pointer number
    is stored here.
Info |  Details |  All