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

Package: Lab Service

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

Sub-Field: 63.43


Information

Parent File Name Number Package
63.05 VIRUS 63.43 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 this virus.
.01 VIRUS 0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) ETIOLOGY FIELD(#61.2)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=""V""!($P(^(0),U,5)=""R"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 29, 2006
  • DESCRIPTION:  
    This is the virus reported on this specimen.
  • CROSS-REFERENCE:  63.43^AG^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^AF^MUMPS
    1)= D ENDIY^LRCAPV1
    2)= Q
    3)= Trigger WKLD routine.
    Look up any WKLD code for this organism and record.
  • CROSS-REFERENCE:  63.43^B
    1)= S ^LR(DA(2),"MI",DA(1),17,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),17,"B",$E(X,1,30),DA)
  • FIELD INDEX:  AD (#1061) MUMPS IR ACTION
    Short Descr: Create ISOLATE ID on .01 entry.
    Set Logic: D SETISOID^LRXREF(17)
    Kill Logic: Q
    X(1): VIRUS (63.43,.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.43^C
    1)= S ^LR(DA(2),"MI",DA(1),17,"C",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),17,"C",$E(X,1,30),DA)
    ^LR(LRDFN,"MI",LRIDT,17,"C",ISOLATE ID,IEN)=""
Info |  Details