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

Package: Lab Service

LAB DATA(#63)-->63.05-->63.34

Sub-Field: 63.34


Information

Parent File Name Number Package
63.05 PARASITE 63.34 Lab Service

Details

Field # Name Loc Type Details
.001 ISOLATE NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 25, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 99
  • DESCRIPTION:  
    This is the entry number of the parasite.
.01 PARASITE 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) ETIOLOGY FIELD(#61.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<1 X
  • LAST EDITED:  OCT 25, 1993
  • DESCRIPTION:  
    This is the parasite identified on this specimen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""P"""
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.34^B
    1)= S ^LR(DA(2),"MI",DA(1),6,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),6,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  63.34^AC^MUMPS
    1)= I $P(^LAB(61.2,X,0),"^",9) S ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")=DA(2)
    2)= I $P(^LAB(61.2,X,0),"^",9) K ^LR("AD",DT,X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
  • CROSS-REFERENCE:  63.05^AE^MUMPS
    1)= D ENDIY^LRCAPV1
    2)= Q
    3)= Trigger workload collection routine.
    Look any WKLD associated with this organism and record.
1 STAGE 1;0 SET Multiple #63.35 63.35

  • DESCRIPTION:  
    These are the stages identified with this parasite.
Info |  Details |  All