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

Package: Lab Service

LAB DATA(#63)-->63.08-->63.812-->63.822

Sub-Field: 63.822


Information

Parent File Name Number Package
63.812 PLASTIC BLOCK 63.822 Lab Service

Details

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>9!($L(X)<1) X
  • LAST EDITED:  JAN 13, 1992
  • HELP-PROMPT:  ANSWER MUST BE 1-9 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the plastic block identification.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.822^B
    1)= S ^LR(DA(3),"SP",DA(2),.1,DA(1),2,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(3),"SP",DA(2),.1,DA(1),2,"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:  AUG 04, 1991
  • DESCRIPTION:  
    When the block is prepared
.03 BLOCK COUNTED 0;3 SET

  • LAST EDITED:  AUG 04, 1991
1 PLASTIC STAIN/PROCEDURE 1;0 POINTER Multiple #63.823 63.823

  • DESCRIPTION:  
    These are the plastic stain/procedures performed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""SP"""
  • EXPLANATION:  Selects only stains/procedures associated with anatomic pathology
Info |  Details |  All