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

Package: Lab Service

BLOOD INVENTORY(#65)-->65.15

Sub-Field: 65.15


Information

Parent File Name Number Package
BLOOD INVENTORY(#65) DATE RE-ENTERED 65.15 Lab Service

Details

Field # Name Loc Type Details
.01 DATE RE-ENTERED 0;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 1988
  • DESCRIPTION:  If receiving a unit that was previously returned or sent
    elsewhere enter the date re-entering the unit in
    inventory file.
.02 PREVIOUS DISPOSITION 0;2 SET
  • 'R' FOR RETURNED TO SUPPLIER;
  • 'S' FOR SENT ELSEWHERE;

  • LAST EDITED:  MAR 17, 1988
  • DESCRIPTION:  
    The previous disposition
.03 PREVIOUS DISPOSITION DATE 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 1988
  • DESCRIPTION:  
    The date of the previous disposition
.04 PREVIOUS DISP ENTERING PERSON 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    The name of the person entering the previous disposition
.05 PREVIOUS SHIPPING INVOICE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  MAR 10, 1988
  • HELP-PROMPT:  ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The previous shipping invoice
.06 PREVIOUS RECEIVING INVOICE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  MAR 10, 1988
  • HELP-PROMPT:  ANSWER MUST BE 2-10 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The previous receiving invoice
.07 PREVIOUS LOG-IN PERSON 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUN 30, 1991
  • DESCRIPTION:  
    The name of the previous log-in person
.08 PREVIOUS DATE LOGGED-IN 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 15, 1990
  • DESCRIPTION:  
    Date of the previous log-in
  • CROSS-REFERENCE:  65^AR^MUMPS
    1)= S ^LRD(65,"A",X,DA(1))="" D:$D(DIU(0)) A658^LRXREF1
    2)= K ^LRD(65,"A",X,DA(1))
.09 PREVIOUS SHIP TO 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>68!($L(X)<2) X
  • LAST EDITED:  MAR 10, 1988
  • HELP-PROMPT:  ANSWER MUST BE 2-68 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The name of the previous ship to area
Info |  Details