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

Package: Lab Service

LAB DATA(#63)-->63.09-->63.902-->63.9024-->63.90241

Sub-Field: 63.90241


Information

Parent File Name Number Package
63.9024 PREPARED SLIDES STAIN 63.90241 Lab Service

Details

Field # Name Loc Type Details
.01 PREPARED SLIDES STAIN 0;1 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)=""SP""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X S:$D(X) DINUM=X
  • LAST EDITED:  JAN 13, 1991
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)=""SP"""
  • EXPLANATION:  Selects only stains/procedures associated with anatomic pathology
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.02 SLIDES PREPARED (#) 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
.03 CONTROL SLIDES (#) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 13, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
.04 DATE/TIME SLIDES STAINED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1991
  • HELP-PROMPT:  Future date/time not allowed.
  • DESCRIPTION:  
    Date slides were stained
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 DATE/TIME SLIDES EXAMINED 0;5 DATE

  • INPUT TRANSFORM:  S %DT="ETXR",%DT(0)="-N" D ^%DT K %DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 29, 1991
  • HELP-PROMPT:  Future date/time not allowed.
  • DESCRIPTION:  
    Date slides were examined
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 SLIDES COUNTED (#) 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 30, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Last number of slides counted for workload.
.07 LABELS TO PRINT 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 02, 1991
  • HELP-PROMPT:  Type a Number between 0 and 99, 0 Decimal Digits
.08 SLIDES SCREENED (#) 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 13, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    Last number of slides screened for workload.
.09 NON-CONTROL SLIDES COUNTED 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 02, 1993
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
Info |  Details