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

Package: Lab Service

LAB DATA(#63)-->63.02-->63.202-->63.2021

Sub-Field: 63.2021


Information

Parent File Name Number Package
63.202 EPON BLOCK 63.2021 Lab Service

Details

Field # Name Loc Type Details
.01 EPON BLOCK 0;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  DEC 10, 1991
  • HELP-PROMPT:  Answer must be 1-9 characters in length.
  • DESCRIPTION:  
    Identification of epon block prepared from specimen.
  • CROSS-REFERENCE:  63.2021^B
    1)= S ^LR(DA(3),"EM",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(3),"EM",DA(2),.1,DA(1),1,"B",$E(X,1,30),DA)
.02 DATE/TIME BLOCK PREPARED 0;2 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  DEC 10, 1991
  • DESCRIPTION:  
    Date/time epon block prepared.  Used for workload recording.
.03 BLOCK COUNTED 0;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  DEC 10, 1991
  • DESCRIPTION:  
    If block counted for workload a 'YES' is entered.
1 EM PROCEDURE 1;0 POINTER Multiple #63.20211 63.20211

  • LAST EDITED:  DEC 10, 1991
  • DESCRIPTION:  EM procedures are recorded here. They are either thick (slides)
    or thin (grids) sections.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""EM"""
  • EXPLANATION:  Selects only EM procedures (thick &/or thin sections)
Info |  Details |  All