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

Package: Lab Service

BLOOD PRODUCT(#66)-->66.01

Sub-Field: 66.01


Information

Parent File Name Number Package
BLOOD PRODUCT(#66) SUPPLIER 66.01 Lab Service

Details

Field # Name Loc Type Details
.001 Preference number NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 09, 1984
  • HELP-PROMPT:  Enter Preference number of supplier
  • DESCRIPTION:  The order of preference for the supplier of this blood product. The
    lowest number will be the default answer when components are entered
    via inventory log-in.
.01 SUPPLIER 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  NOV 19, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    The name of the source.
  • CROSS-REFERENCE:  66.01^B
    1)= S ^LAB(66,DA(1),"SU","B",$E(X,1,30),DA)=""
    2)= K ^LAB(66,DA(1),"SU","B",$E(X,1,30),DA)
.02 COST 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:+X'=X&(X'?.N1"."2N)!(X>99999)!(X<0) X
  • LAST EDITED:  MAY 09, 1984
  • HELP-PROMPT:  TYPE A NUMBER BETWEEN 0 AND 99999
  • DESCRIPTION:  
    Cost of the item.
.03 ADDRESS LINE 1 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 09, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Address of supplier.
.04 ADDRESS LINE 2 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    2nd Address line of supplier.
.05 ADDRESS LINE 3 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    3rd Address line of supplier.
.06 CITY 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAY 09, 1984
  • HELP-PROMPT:  ANSWER MUST BE 1-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    City of the supplier.
.07 STATE 0;7 POINTER TO STATE FILE (#5) STATE(#5)

  • LAST EDITED:  MAY 09, 1984
  • DESCRIPTION:  
    State of the supplier.
.08 ZIP CODE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<5)!'(X?1N.N) X
  • LAST EDITED:  MAY 09, 1984
  • HELP-PROMPT:  ANSWER MUST BE 5-9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Zip code of the supplier.
.09 PHONE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<4) X
  • LAST EDITED:  MAY 09, 1984
  • HELP-PROMPT:  ANSWER MUST BE 4-30 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    Phone number of the supplier.
.1 SUPPLIER PREFIX NUMBER 0;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1)!'(X?.UN) X
  • LAST EDITED:  DEC 24, 1986
  • HELP-PROMPT:  ANSWER MUST BE 1-3 CHARACTERS IN LENGTH
  • DESCRIPTION:  An eye readable only (not bar coded) prefix which might be
    present as part of the unique unit ID# specific for a given
    collection facility.
.11 REGISTRATION NUMBER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<7)!'(X?1N.N) X
  • LAST EDITED:  NOV 26, 1986
  • HELP-PROMPT:  ANSWER MUST BE 7-9 DIGITS IN LENGTH
  • DESCRIPTION:  Unique number assigned by the Food & Drug Administration
    to each facility.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  66.01^C
    1)= S ^LAB(66,DA(1),"SU","C",$E(X,1,30),DA)=""
    2)= K ^LAB(66,DA(1),"SU","C",$E(X,1,30),DA)
.12 UNIT LABEL NON-STANDARD 0;12 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 12, 1985
  • DESCRIPTION:  If the barcoded blood component unit ID is not the standard barcode
    (Codabar(tm)) then enter 'YES'.
1 LOT # 1;0 Multiple #66.02 66.02

  • DESCRIPTION:  
    Lot # of the item.
Info |  Details