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.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:  SEP 27, 2006
  • 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.
  • FIELD INDEX:  AD (#1058) MUMPS IR ACTION
    Short Descr: Create ISOLATE ID on .01 entry
    Description: Creates and stuffs the ISOLATE ID whith .01 entry.
    Set Logic: D SETISOID^LRXREF(6)
    Kill Logic: Q
    X(1): PARASITE (63.34,.01) (Subscr 1) (forwards)
.1 ISOLATE ID .1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 27, 2006
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    The Isolate ID text. Commonly used for HL7 messaging as OBX-4. This should be in the form of 99VA4:x:y
  • TECHNICAL DESCR:  Created by patch LR*5.2*350.
    No other fields should be added to this node so it can accept larger Isolate IDs if needed in the future.
    Isolate IDs inserted into this field should be transformed via the MAKEISO^LRVRMI1 API first.
    This field is automatically populated by software via the "AD" xref on field #.01. This field is uneditable by the user to prevent changes when/if the field is displayed via input templates.
    UNEDITABLE
  • CROSS-REFERENCE:  63.34^C
    1)= S ^LR(DA(2),"MI",DA(1),6,"C",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),6,"C",$E(X,1,30),DA)
    ^LR(LRDFN,"MI",LRIDT,6,"C",ISOLATE ID,IEN)=""
1 STAGE 1;0 SET Multiple #63.35 63.35

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