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

Package: Lab Service

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

Sub-Field: 63.39


Information

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 27, 2006
  • DESCRIPTION:  
    This is the mycobacterium identified with this specimen.
  • CROSS-REFERENCE:  63.39^B
    1)= S ^LR(DA(2),"MI",DA(1),12,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),12,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  63.39^AF^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^AC^MUMPS
    1)= D ENDIY^LRCAPV1
    2)= Q
    3)= To trigger WKDL routine.
    Look up any WKLD codes for this organism and record.
  • FIELD INDEX:  AD (#1060) MUMPS IR ACTION
    Short Descr: Create ISOLATE ID on .01 entry
    Set Logic: D SETISOID^LRXREF(12)
    Kill Logic: Q
    X(1): MYCOBACTERIUM (63.39,.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.39^C
    1)= S ^LR(DA(2),"MI",DA(1),12,"C",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),12,"C",$E(X,1,30),DA)
    ^LR(LRDFN,"MI",LRIDT,12,"C",ISOLATE ID,IEN)=""
1 QUANTITY 0;2 FREE TEXT

  • INPUT TRANSFORM:  S Q9="1,68,KT" D COM^LRNUM
    9.2 = F Y=0:0 S Y=$O(^LAB(62.5,"B",%Z,Y)) Q:Y<1 I "T"[$P(^LAB(62.5,Y,0),U,4) S %Z=$P(^LAB(62.5,Y,0),"^",2) Q:'$D(^(9)) S Y=$P(X," ",I-1),Y=$E(Y,$L(Y)) S:Y>1 %Z=^(9) Q
    9.1 = F I=1:1 Q:$P(X," ",I,99)="" S %Z=$P(X," ",I),Y="" X:%Z]"" ^DD(63.39,1,9.2) S %L=$L(%S)+$L(%Z) S:%L'>68 %S=%S_%Z_" " I %L>68 W " too long",! Q
  • LAST EDITED:  MAY 03, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
  • DESCRIPTION:  
    This is the quantity of the mycobacterium present.
  • EXECUTABLE HELP:  S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KT""[$P(^(0),U,4)",D="B" K DO D DQ^DICQ K DO,DIC S DIC=DIE D DO^DIC1
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
2 COMMENT 1;0 Multiple #63.4 63.4

  • DESCRIPTION:  
    These are the comments on the microbacterium data.
5 STR 2.0001;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • LAST EDITED:  NOV 19, 1984
  • EXECUTABLE HELP:  D ZQ^LRMISR
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 PAS 2.0002;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
15 INH 2.0003;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • LAST EDITED:  JUL 15, 1986
  • EXECUTABLE HELP:  D ZQ^LRMISR
20 ETH 2.0004;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
25 RIF 2.0005;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
30 KANAMYCIN 2.0006;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • LAST EDITED:  JUN 15, 1990
  • EXECUTABLE HELP:  D ZQ^LRMISR
35 CAPREOMYCIN 2.0007;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
40 CYCLOSERINE 2.0008;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
45 ETHIONAMIDE 2.0009;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
50 PYRAZINAMIDE 2.001;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
55 MIOMYCIN 2.0011;1 FREE TEXT

  • INPUT TRANSFORM:  D COM^LRMISR
  • EXECUTABLE HELP:  D ZQ^LRMISR
Info |  Details