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

Package: Lab Service

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

Sub-Field: 63.37


Information

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

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=""F""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  FEB 21, 2013
  • HELP-PROMPT:  Select the fungus/yeast identified on this specimen.
  • DESCRIPTION:  
    The fungus/yeast identified on this specimen.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=""F"""
  • EXPLANATION:  Only entities with an Identifier of Fungus are selectable.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  63.37^B
    1)= S ^LR(DA(2),"MI",DA(1),9,"B",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),9,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  63.37^AC^MUMPS
    1)= I $P($G(^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($G(^LAB(61.2,+X,0)),"^",9) K ^LR("AD",DT,+X,$P(^LR(DA(2),"MI",DA(1),0),"^",6)_" ")
  • CROSS-REFERENCE:  63.05^AD^MUMPS
    1)= D ENDIY^LRCAPV1
    2)= Q
    3)= To trigger WKLD routine.
    Lookup any WKLD codes for this organism and record.
  • FIELD INDEX:  AD (#1059) MUMPS IR ACTION
    Short Descr: Create ISOLATE ID on .01 entry
    Set Logic: D SETISOID^LRXREF(9)
    Kill Logic: Q
    X(1): FUNGUS/YEAST (63.37,.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:  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.37^C
    1)= S ^LR(DA(2),"MI",DA(1),9,"C",$E(X,1,30),DA)=""
    2)= K ^LR(DA(2),"MI",DA(1),9,"C",$E(X,1,30),DA)
    ^LR(LRDFN,"MI",LRIDT,9,"C",ISOLATE ID,IEN)=""
1 QUANTITY 0;2 FREE TEXT

  • INPUT TRANSFORM:  S Q9="1,68,KF" D COM^LRNUM
  • LAST EDITED:  MAY 03, 1987
  • HELP-PROMPT:  ANSWER MUST BE 1-68 CHARACTERS IN LENGTH
  • EXECUTABLE HELP:  S X="?",DIC="^LAB(62.5,",DIC(0)="Q",DIC("S")="I ""KF""[$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.372 63.372
Info |  Details