STANDARD DATA DICTIONARY #62.06 -- ANTIMICROBIAL SUSCEPTIBILITY FILE                                              3/24/25    PAGE 1
STORED IN ^LAB(62.06,  (36 ENTRIES)   SITE: WWW.BMIRWIN.COM   UCI: VISTA,VISTA                                     (VERSION 5.2)   

DATA          NAME                  GLOBAL        DATA
ELEMENT       TITLE                 LOCATION      TYPE
-----------------------------------------------------------------------------------------------------------------------------------
 This file is used by each laboratory to define specific information about the types of antibacterial antibiotics your laboratory
uses.  (NOTE: TB drugs do not have entries in this file.)  It contains approximately 40 pre-supplied entries.  Each of the entries
may be defined according to the needs of your hospital.  Information which is site-configurable for each antibiotic includes the
sensitivity result (S,I or R), the interpretation for each type of result, the type of specimen the antibiotic is used on, the type
of template the system uses to display the result and the abbreviation.  (The abbreviation is also used to report these antibiotics
on the specialized 'Infection Control' and 'Antibiotic Trends' microbiology reports.  
 
^LAB(62.06,"AJ",'DRUG NODE','INTERPRETATION')="" 
 
^LAB(62.06,"AI",'DRUG NODE') = INTERNAL # ANTIBIOTIC ^ ABBREVIATION 
 
^LAB(62.06,"AI",'DRUG NODE','RESULT') = INTERPRETATION 
 
^LAB(62.06,"AI",'DRUG NODE','RESULT','ORGANISM (INTRP)','SPECIMEN (INTRP)') 
         = ALTERNATE INTERPRETATION 
 
^LAB(62.06,"AS",'DRUG NODE') = DEFAULT SCREEN 
 
^LAB(62.06,"AS",'DRUG NODE','ORGANISM (SCREEN)','SPECIMEN (SCREEN)') 
         = ALTERNATE SCREEN 
 
^LAB(62.06,"AO",'PRINT ORDER','NUMBER')="" 


IDENTIFIED BY: INTERNAL NAME (#5)

POINTED TO BY: LOCAL ANTIBIOTIC ENTRY field (#2) of the ANTIBIOTIC CODE sub-field (#61.392) of the LABORATORY INSTRUMENT CODE File 
                   (#61.39) 
               DRUG field (#.01) of the DRUG sub-field (#62.46) of the MICRO CARD TYPE sub-field (#62.43) of the AUTO INSTRUMENT 
                   File (#62.4) 
               RELATED ENTRY field (#2.1) of the IDENTIFIER sub-field (#62.4701) of the LAB CODE MAPPING File (#62.47) 
               ASSOCIATED NAME field (#.01) of the ASSOCIATED NAME sub-field (#64.023) of the WKLD CODE File (#64) 
               ANTIMICROBIAL SUSCEPTIBILITY field (#.01) of the ANTIMICROBIAL SUSCEPTIBILITY sub-field (#69.55) of the LAB 
                   SEARCH/EXTRACT File (#69.5) 
               ANTIMICROBIAL SUSCEPTIBILITY field (#.01) of the ANTIMICROBIAL SUSCEPTIBILITY sub-field (#104.191) of the ETIOLOGY 
                   sub-field (#104.109) of the MDRO TOOLS LAB SEARCH/EXTRACT File (#104.1) 
               

CROSS
REFERENCED BY: DEFAULT SCREEN(AC), DRUG NODE(AD), ABBREVIATION(AF), DRUG NODE(AG), DRUG NODE(AI), DRUG NODE(AJ), 
               PRINT ORDER(AO), DRUG NODE(AS), NAME(B), INTERNAL NAME(C), ABBREVIATION(D)

INDEXED BY:    AFB DRUG NODE (AD1)




62.06,.001    NUMBER                     NUMBER

              INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<1)!(X?.E1"."1N.N) X
              LAST EDITED:      NOV 20, 1984 
              HELP-PROMPT:      TYPE A WHOLE NUMBER BETWEEN 1 AND 9999 
              DESCRIPTION:      The internal number associated with the name.  This number determines the sequence of display of
                                antibiotics.  


62.06,.01     NAME                   0;1 FREE TEXT (Required)

              INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E)!(X'?.ANP) X
              LAST EDITED:      MAY 22, 1984 
              HELP-PROMPT:      ANSWER MUST BE 3-30 CHARACTERS IN LENGTH 
              DESCRIPTION:
                                The name of the antibiotic.  

              CROSS-REFERENCE:  62.06^B 
                                1)= S ^LAB(62.06,"B",$E($P(X,"^",1),1,30),DA)=""
                                2)= K ^LAB(62.06,"B",$E($P(X,"^",1),1,30),DA)


62.06,.5      PRINT ORDER            0;7 NUMBER (Required)

              INPUT TRANSFORM:  K:+X'=X!(X>999.999)!(X<.001)!(X?.E1"."4N.N) X Q:$D(DIU(0))  I $D(X),$O(^LAB(62.06,"AO",X,0)) W *7,"
                                  PRINT ORDER is already used by another antibiotic.",! K X
              LAST EDITED:      JUN 22, 1987 
              HELP-PROMPT:      TYPE A NUMBER BETWEEN .001 AND 999.999 
              DESCRIPTION:
                                The print order will determine the order in which the antibiotic will be displayed on reports.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  62.06^AO 
                                1)= S ^LAB(62.06,"AO",$E(X,1,30),DA)=""
                                2)= K ^LAB(62.06,"AO",$E(X,1,30),DA)


62.06,1       DRUG NODE              0;2 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S X=$P($P(^DD(63.3,$P(^LAB(62.06,DA,0),U,4),0),U,4),";",1)
              LAST EDITED:      MAY 26, 1994 
              HELP-PROMPT:      STUFFED AUTOMATICALLY 
              DESCRIPTION:      Defines the position of the NAME in the database.  The subscript location of the antibiotic in the
                                LAB DATA file.  

              WRITE AUTHORITY:  ^
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
                                TRIGGERED by the INTERNAL NAME field of the ANTIMICROBIAL SUSCEPTIBILITY File 

              CROSS-REFERENCE:  62.06^AJ^MUMPS 
                                1)= D BUGNODE^LRMIXR1
                                2)= K ^LAB(62.06,"AJ",+X)

              CROSS-REFERENCE:  62.06^AS^MUMPS 
                                1)= D BUGNODE^LRMIXR2
                                2)= K ^LAB(62.06,"AS",+X)

              CROSS-REFERENCE:  62.06^AI^MUMPS 
                                1)= D BUGNODE^LRMIXR3
                                2)= K ^LAB(62.06,"AI",+X)

              CROSS-REFERENCE:  62.06^AD 
                                1)= S ^LAB(62.06,"AD",$E(X,1,30),DA)=""
                                2)= K ^LAB(62.06,"AD",$E(X,1,30),DA)

              CROSS-REFERENCE:  62.06^AG^MUMPS 
                                1)= D ^LRMIXALL
                                2)= D ^LRMIXALL


62.06,1.1     AFB DRUG NODE          0;9 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
              LAST EDITED:      MAR 22, 2006 
              HELP-PROMPT:      Answer must be 1-15 characters in length 
              DESCRIPTION:      Defines the position of the NAME in the database.  The subscript location of the AFB antibiotic in 
                                the LAB DATA file. 
                                 

              WRITE AUTHORITY:  ^
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
                                TRIGGERED by the AFB INTERNAL NAME field of the ANTIMICROBIAL SUSCEPTIBILITY File 

              FIELD INDEX:      AD1 (#1047)    REGULAR    IR    SORTING ONLY
                  Short Descr:  Cross-reference to link AFB drugs with corresponding drug node in file #63.
                  Description:  This cross-reference is used to link the AFB drug nodes in the MYCOBACTERIUM subfile (#63.39) of
                                LAB DATA file (#63) with the corresponding antimicrobial drug in this file (#62.06).  
                                 
                                
                    Set Logic:  S ^LAB(62.06,"AD1",$E(X,1,30),DA)=""
                   Kill Logic:  K ^LAB(62.06,"AD1",$E(X,1,30),DA)
                   Whole Kill:  K ^LAB(62.06,"AD1")
                         X(1):  AFB DRUG NODE  (62.06,1.1)  (Subscr 1)  (Len 30)  (forwards)


62.06,2       SUSCEPTIBILITY RESULT  1;0 Multiple #62.061 (Add New Entry without Asking)

              DESCRIPTION:
                                This is a multiple field.  It contains the susceptibility result and the interpretation.  


62.061,.01      SUSCEPTIBILITY RESULT  0;1 FREE TEXT (Multiply asked)

                INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>20!($L(X)<1)!'(X'?.C) X
                LAST EDITED:      JUN 23, 1994 
                HELP-PROMPT:      ANSWER MUST BE 1-20 CHARACTERS IN LENGTH 
                DESCRIPTION:      The commonly used abbreviation of the susceptibility result or MIC value.  (exp. 'S', 'I', 'R',
                                  <2, 4, >32, etc.) 

                CROSS-REFERENCE:  62.061^B^MUMPS 
                                  1)= S ^LAB(62.06,DA(1),1,"B",X,DA)=""
                                  2)= K ^LAB(62.06,DA(1),1,"B",X,DA)

                CROSS-REFERENCE:  62.061^AD^MUMPS 
                                1)= I $L($P(^LAB(62.06,DA(1),0),U,2)),$L($P(^LAB(62.06,DA(1),1,DA,0),U,2)) S ^LAB(62.06,"AI",+$P(^L
                                AB(62.06,DA(1),0),U,2),X)=$P(^LAB(62.06,DA(1),1,DA,0),U,2)

                                2)= I $L($P(^LAB(62.06,DA(1),0),U,2)) K ^LAB(62.06,"AI",+$P(^LAB(62.06,DA(1),0),U,2),X)

                CROSS-REFERENCE:62.061^AC^MUMPS 
                                1)= I $L($P(^LAB(62.06,DA(1),0),U,2)) S ^LAB(62.06,"AJ",+$P(^(0),U,2),X)=""
                                2)= I $L($P(^LAB(62.06,DA(1),0),U,2)) S K9=$P(^(0),U,2) K ^LAB(62.06,"AJ",K9,X)


62.061,1        DEFAULT INTERPRETATION 0;2 FREE TEXT (Required)

                INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
                LAST EDITED:    FEB 17, 1987 
                HELP-PROMPT:    ANSWER MUST BE 1-10 CHARACTERS IN LENGTH 
                DESCRIPTION:    The interpretation of the susceptibility result. (exp 'S', 'I', 'R') The first character of the
                                interpretation must be a 'S' to be counted as susceptible on the Antibiotic Trend Report.  
                                 
                                The default interpretation may be overridden by an ALTERNATE INTERPRETATION (organism and/or
                                specimen specific) or by direct user input of an interpretation when entering results.  

                NOTES:          XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                CROSS-REFERENCE:62.061^AF^MUMPS 
                                1)= I $L($P(^LAB(62.06,DA(1),0),U,2)) S ^LAB(62.06,"AJ",+$P(^(0),U,2),X)=""
                                2)= D KINT^LRMIXR1

                CROSS-REFERENCE:62.061^AE^MUMPS 
                                1)= I $L($P(^LAB(62.06,DA(1),0),U,2)) S ^LAB(62.06,"AI",+$P(^LAB(62.06,DA(1),0),U,2),$P(^LAB(62.06,
                                DA(1),1,DA,0),U))=X

                                2)= I $L($P(^LAB(62.06,DA(1),0),U,2)) K ^LAB(62.06,"AI",+$P(^LAB(62.06,DA(1),0),U,2),$P(^LAB(62.06,
                                DA(1),1,DA,0),U))


62.061,2        *ORGANISM            1;0 POINTER Multiple #62.081

                DESCRIPTION:
                                No longer used.  Will be deleted after 1/89.  

                SCREEN:         S DIC("S")="I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M"")"
                EXPLANATION:    Entry is for bacteria, fungus, and mycobacteria only.

62.081,.01        *ORGANISM            0;1 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Multiply asked)

                  INPUT TRANSFORM:S DIC("S")="I 0,$D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M""
                                )" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                  LAST EDITED:  DEC 16, 1986 
                  DESCRIPTION:
                                No longer used.  Will be deleted after 1/89.  

                  NOTES:        XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

                  CROSS-REFERENCE:62.081^B 
                                1)= S ^LAB(62.06,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)=""
                                2)= K ^LAB(62.06,DA(2),1,DA(1),1,"B",$E(X,1,30),DA)


62.081,1          *ALTERNATE INTERPRETATION 0;2 FREE TEXT

                  INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
                  LAST EDITED:  DEC 16, 1986 
                  HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH 
                  DESCRIPTION:
                                No longer used.  Will be deleted after 1/89.  


62.081,2          *ADDITIONAL DISPLAY COMMENT 0;3 FREE TEXT

                  INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>40!($L(X)<2) X
                  LAST EDITED:  DEC 16, 1986 
                  HELP-PROMPT:  ANSWER MUST BE 2-40 CHARACTERS IN LENGTH 
                  DESCRIPTION:
                                No longer used.  Will be deleted after 1/89.  




62.061,3        ALTERNATE INTERPRETATION 2;0 Multiple #62.091

                  IDENTIFIED BY:ORGANISM (INTERP)(#1)[R], SPECIMEN (INTERP)(#2)[R]

62.091,.01        ALTERNATE INTERPRETATION 0;1 FREE TEXT (Multiply asked)

                    INPUT TRANSFORM:K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
                    LAST EDITED:  DEC 16, 1986 
                    HELP-PROMPT:  ANSWER MUST BE 1-10 CHARACTERS IN LENGTH 
                    DESCRIPTION:  The interpretation that will be used if the ORGANISM (INTERP) and SPECIMEN (INTERP) are
                                  appropriate for the organism and specimen on which results are being entered.  

                    CROSS-REFERENCE:62.091^B 
                                  1)= S ^LAB(62.06,DA(2),1,DA(1),2,"B",$E(X,1,30),DA)=""
                                  2)= K ^LAB(62.06,DA(2),1,DA(1),2,"B",$E(X,1,30),DA)

                    CROSS-REFERENCE:62.091^AC^MUMPS 
                                  1)= D ALT^LRMIXR3
                                  2)= D KALT^LRMIXR3

                    CROSS-REFERENCE:62.091^AG^MUMPS 
                                  1)= I $L($P(^LAB(62.06,DA(2),0),U,2)) S ^LAB(62.06,"AJ",+$P(^(0),U,2),X)=""
                                  2)= D KAINT^LRMIXR1


62.091,1          ORGANISM (INTERP)    0;2 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Required)

                    INPUT TRANSFORM:S DIC("S")="I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M""
                                )" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                    LAST EDITED: DEC 16, 1986 
                    DESCRIPTION:The organism will be used to determine an ALTERNATE INTERPRETATION.  An organism with the name
                                containing 'GRAM POS' implies any gram positive organism.  An organism with the name containing
                                'GRAM NEG' implies any gram negative organism.  During result entry in micro, the gram stain on the
                                organism being edited is determined as the entry in the GRAM STAIN field of the ETIOLOGY file.  An
                                organism with the name containing 'UNKNOWN' implies any organism.  

                    SCREEN:     S DIC("S")="I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M"")"
                    EXPLANATION:Bacteria, fungus, mycobacteria only
                    CROSS-REFERENCE:62.091^AD^MUMPS 
                                1)= D ALTO^LRMIXR3
                                2)= D KALT^LRMIXR3


62.091,2          SPECIMEN (INTERP)  0;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)

                    LAST EDITED: DEC 16, 1986 
                    DESCRIPTION:The specimen used to determine an ALTERNATE INTERPRETATION.  A specimen with the name containing
                                'UNKNOWN' implies any specimen.  

                    CROSS-REFERENCE:62.091^AE^MUMPS 
                                1)= D ALTS^LRMIXR3
                                2)= D KALT^LRMIXR3






62.06,3       *PRIMARY DISPLAY       2;0 POINTER Multiple #62.062 (Add New Entry without Asking)

              DESCRIPTION:
                                No longer used.  Will be deleted after 1/89.  


62.062,.01      *SPECIMEN              0;1 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Multiply asked)

                LAST EDITED:      OCT 23, 1984 
                DESCRIPTION:
                                  No longer used.  Will be deleted after 1/89.  


62.062,1        *DISPLAY               1;0 Multiple #62.063 (Add New Entry without Asking)

                DESCRIPTION:
                                  No longer used.  Will be deleted after 1/89.  


62.063,.01        *DISPLAY               0;1 FREE TEXT (Multiply asked)

                  INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
                  LAST EDITED:      DEC 16, 1986 
                  HELP-PROMPT:      ANSWER MUST BE 1-10 CHARACTERS IN LENGTH 
                  DESCRIPTION:
                                    No longer used.  Will be deleted after 1/89.  






62.06,4       DISPLAY COMMENT        0;3 FREE TEXT

              INPUT TRANSFORM:  K:$L(X)>40!($L(X)<2) X
              LAST EDITED:      MAY 22, 1984 
              HELP-PROMPT:      ANSWER MUST BE 2-40 CHARACTERS IN LENGTH 
              DESCRIPTION:      This field contains any relevant comment that is to be displayed with this antibiotic
                                susceptibility.  


62.06,5       INTERNAL NAME          0;4 POINTER TO ORGANISM SUB-FIELD FILE (#63)

              INPUT TRANSFORM:  S DIC("S")="I Y>2,Y<200,X'[""INTERP"",X'[""SCREEN""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X K:$P(^
                                LAB(62.06,DA,0),U,8) X
              OUTPUT TRANSFORM: S Y=$$GET1^DID(63.3,Y,"","LABEL")
              LAST EDITED:      MAR 22, 2006 
              DESCRIPTION:
                                The internally used name of the antibiotic, usually a shortened version.  

              SCREEN:           S DIC("S")="I Y>2,Y<200,X'[""INTERP"",X'[""SCREEN"""
              EXPLANATION:      Select on antibiotic names
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  ^^TRIGGER^62.06^1 
                                1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.06,D0,0)):^(0),1:"") S X=$P(Y(1),U,2) S DIU=
                                X K Y X ^DD(62.06,5,1,1,1.1) X ^DD(62.06,5,1,1,1.4)

                                1.1)= S X=DIV X $P(^DD(62.06,1,0),U,5,99)

                                1.4)= S DIH=$S($D(^LAB(62.06,DIV(0),0)):^(0),1:""),DIV=X S %=$P(DIH,U,3,999),^(0)=$P(DIH,U,1,1)_U_D
                                IV_$S(%]"":U_%,1:""),DIH=62.06,DIG=1 D ^DICR:$O(^DD(DIH,DIG,1,0))>0

                                2)= Q

                                CREATE VALUE)= X $P(^DD(62.06,1,0),U,5,99)
                                DELETE VALUE)= NO EFFECT
                                FIELD)= BUG PIECE

              CROSS-REFERENCE:  62.06^C^MUMPS 
                                1)= S ^LAB(62.06,"C",$P(^DD(63.3,X,0),U,1),DA)=""
                                2)= K ^LAB(62.06,"C",$P(^DD(63.3,X,0),U,1),DA)


62.06,5.1     AFB INTERNAL NAME      0;8 POINTER TO MYCOBACTERIUM SUB-FIELD FILE (#63)

              INPUT TRANSFORM:  S DIC("S")="I $$GET1^DID(63.39,Y,"""",""GLOBAL SUBSCRIPT LOCATION"")?1""2.""1.N1"";1""" D ^DIC K DI
                                C S DIC=$G(DIE),X=+Y K:Y<0 X K:$P(^LAB(62.06,DA,0),U,4) X
              OUTPUT TRANSFORM: S Y=$$GET1^DID(63.39,Y,"","LABEL")
              LAST EDITED:      OCT 10, 2008 
              HELP-PROMPT:      The internally used name of the AFB antibiotic, usually a shortened version. 
              SCREEN:           S DIC("S")="I $$GET1^DID(63.39,Y,"""",""GLOBAL SUBSCRIPT LOCATION"")?1""2.""1.N1"";1"""
              EXPLANATION:      Select only AFB antibiotic names.
              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  ^^TRIGGER^62.06^1.1 
                                1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.06,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S 
                                DIU=X K Y X ^DD(62.06,5.1,1,1,1.1) S DIH=$G(^LAB(62.06,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=62.0
                                6,DIG=1.1 D ^DICR

                                1.1)= S X=DIV S X=$P($$GET1^DID(63.39,$P(^LAB(62.06,DA,0),U,8),"","GLOBAL SUBSCRIPT LOCATION"),";")

                                2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^LAB(62.06,D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S 
                                DIU=X K Y S X="" S DIH=$G(^LAB(62.06,DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=62.06,DIG=1.1 D ^DICR
                                3)= DO NOT DELETE - used by Lab software to determine NLT/LOINC coding of AFB drugs.
                                CREATE VALUE)= S X=$P($$GET1^DID(63.39,$P(^LAB(62.06,DA,0),U,8),"","GLOBAL SUBSCRIPT LOCATION"),";"
                                )
                                DELETE VALUE)= @
                                FIELD)= AFB DRUG NODE


62.06,6       ABBREVIATION           0;5 FREE TEXT

              INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>3!($L(X)<3) X Q:$D(DIU(0))  I $D(X) I $D(^LAB(62.06,"D",X)) W
                                 " *DUPLICATE*" K X
              LAST EDITED:      DEC 16, 1986 
              HELP-PROMPT:      ANSWER MUST BE 3 CHARACTERS IN LENGTH 
              DESCRIPTION:      This is the three letter abbreviation used in the INFECTION CONTROL and ANTIBIOTIC TREND reports. 
                                An abbreviation must be defined for all antibiotics that need to go on these reports.  The order of
                                the antibiotics on the report is determined by the order number (internal file number) of the
                                antibiotic entry in the file.  

              NOTES:            XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

              CROSS-REFERENCE:  62.06^D 
                                1)= S ^LAB(62.06,"D",$E(X,1,30),DA)=""
                                2)= K ^LAB(62.06,"D",$E(X,1,30),DA)

              CROSS-REFERENCE:  62.06^AF^MUMPS 
                                1)= S:$P(^LAB(62.06,DA,0),U,2) ^LAB(62.06,"AI",+$P(^LAB(62.06,DA,0),U,2))=DA_U_X
                                2)= S:$P(^LAB(62.06,DA,0),U,2) ^LAB(62.06,"AI",+$P(^LAB(62.06,DA,0),U,2))=DA_U


62.06,7       DEFAULT SCREEN         0;6 SET

                                'A' FOR ALWAYS DISPLAY; 
                                'N' FOR NEVER DISPLAY; 
                                'R' FOR RESTRICT DISPLAY; 
              LAST EDITED:      FEB 03, 1987 
              DESCRIPTION:      The DEFAULT SCREEN may be used to specify how the antibiotic results and/or interpretation will be
                                displayed.  'A' will always display the result, 'N' will never display the result (unless the user
                                has the LRLAB key), 'R' restricts the display so that the result is only displayed if the 
                                interpretation of all antibiotics that are always displayed is resistant.  No entry in this field
                                will default to 'A'.  
                                 
                                This screen may be overridden by an ALTERNATE SCREEN (organism and/or specimen specific) or by
                                direct user input of a screen when entering results.  

              CROSS-REFERENCE:  62.06^AC^MUMPS 
                                1)= I $L($P(^LAB(62.06,DA,0),U,2)) S ^LAB(62.06,"AS",+$P(^(0),U,2))=X
                                2)= I $L($P(^LAB(62.06,DA,0),U,2)) S ^LAB(62.06,"AS",+$P(^(0),U,2))=""


62.06,8       ALTERNATE SCREEN       3;0 SET Multiple #62.08

              DESCRIPTION:       If for some reason the screen should be different for certain specimens or organisms, when
                                compared to the normal display, indicate how the system should handle these cases.  

              IDENTIFIED BY:    ORGANISM (SCREEN)(#1)[R], SPECIMEN (SCREEN)(#2)[R]

62.08,.01       ALTERNATE SCREEN       0;1 SET (Multiply asked)

                                  'A' FOR ALWAYS DISPLAY; 
                                  'N' FOR NEVER DISPLAY; 
                                  'R' FOR RESTRICT DISPLAY; 
                LAST EDITED:      MAY 26, 1994 
                DESCRIPTION:      This screen will be used instead of the default screen if the ORGANISM (SCREEN) and SPECIMEN
                                  (SCREEN) are appropriate for the organism and specimen being edited.  

                CROSS-REFERENCE:  62.08^AC^MUMPS 
                                  1)= D ^LRMIXALL
                                  2)= D KALT^LRMIXR2,^LRMIXALL


62.08,1         ORGANISM (SCREEN)      0;2 POINTER TO ETIOLOGY FIELD FILE (#61.2) (Required)

                INPUT TRANSFORM:S DIC("S")="I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M"")" D
                                 ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
                LAST EDITED:    DEC 16, 1986 
                DESCRIPTION:    This organism will be used to determine an ALTERNATE INTERPRETATION.  An organism with the name
                                containing 'GRAM POS' implies any gram positive organism.  An organism with the name containing
                                'GRAM NEG' implies any gram negative organism.  During result entry in micro, the gram stain on the
                                organism being edited is determined as the entry in the GRAM STAIN field of the ETIOLOGY file.  An
                                organism with the name containing 'UNKNOWN' implies any organism.  

                SCREEN:         S DIC("S")="I $D(^LAB(61.2,+Y,0)) I $P(^(0),U,5)=""B""!($P(^(0),U,5)=""F"")!($P(^(0),U,5)=""M"")"
                EXPLANATION:    Must be bacteria, fungus, or mycobacteria.
                CROSS-REFERENCE:62.08^AD^MUMPS 
                                1)= D ALTO^LRMIXR2
                                2)= D KALT^LRMIXR2


62.08,2         SPECIMEN (SCREEN)    0;3 POINTER TO TOPOGRAPHY FIELD FILE (#61) (Required)

                LAST EDITED:    DEC 16, 1986 
                DESCRIPTION:    The specimen used to determine an ALTERNATE SCREEN.  A specimen with the name containing 'UNKNOWN'
                                implys any specimen.  

                CROSS-REFERENCE:62.08^AE^MUMPS 
                                1)= D ALTS^LRMIXR2
                                2)= D KALT^LRMIXR2




62.06,64      NATIONAL VA LAB CODE   64;1 POINTER TO WKLD CODE FILE (#64)

              LAST EDITED:      SEP 23, 2001 
              HELP-PROMPT:      Enter the corresponding VA National Code. 
              DESCRIPTION:      This field is used to map antimicrobial susceptibilty in file  62.06 to the VA National Labe codes
                                found in file 64.  



      FILES POINTED TO                      FIELDS

ETIOLOGY FIELD (#61.2)            ALTERNATE SCREEN:ORGANISM (SCREEN) (#1)
                                  *ORGANISM:*ORGANISM (#.01)
                                  ALTERNATE INTERPRETATION:ORGANISM (INTERP) (#1)

MYCOBACTERIUM SUB-FIELD (#63)     AFB INTERNAL NAME (#5.1)

ORGANISM SUB-FIELD (#63)          INTERNAL NAME (#5)

TOPOGRAPHY FIELD (#61)            *PRIMARY DISPLAY:*SPECIMEN (#.01)
                                  ALTERNATE SCREEN:SPECIMEN (SCREEN) (#2)
                                  ALTERNATE INTERPRETATION:SPECIMEN (INTERP) (#2)

WKLD CODE (#64)                   NATIONAL VA LAB CODE (#64)



INPUT TEMPLATE(S):
LR LNC MAP ANTIMICROBIAL      NOV 22, 2000@14:50  USER #0    

PRINT TEMPLATE(S):

SORT TEMPLATE(S):

FORM(S)/BLOCK(S):