Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^LAB(62.06

Package: Lab Service

Global: ^LAB(62.06


Information

FileMan FileNo FileMan Filename Package
62.06 ANTIMICROBIAL SUSCEPTIBILITY Lab Service

Description

Directly Accessed By Routines, Total: 64

Package Total Routines
Lab Service 40 *ORGANISM    ALTERNATE INTERPRETATION    DRUG    LR132P    LR565PST    LR7OSMZ4    LR7OSMZ5    LREPI
LREPI1    LREPILK    LREPISRV    LRLNC0    LRMIPSZ4    LRMIPSZ5    LRMISEZ1    LRMISEZA
LRMISEZB    LRMISR    LRMISR1    LRMITSE    LRMITSP    LRMITSPO    LRMIV4    LRMIXALL
LRMIXR1    LRMIXR2    LRMIXR3    LRMIZAP    LRMIZAP1    LROR4B    LRPXAPIU    LRPXSXRB
LRRPL    LRSRVR2    LRSRVR3    LRWU8    ^LAB(62.06    LRSRVR9    RELATED NAME    SUSCEPTIBILITY RESULT
Automated Lab Instruments 23 LA7SRPT2    LA7SRPT3    LA7VHLU5    LA7VHLU6    LA7VIN7A    LA7VLCM7    LA7VOBX4    LA7VORU1
LAHWATCH    LAMIAUT3    LAMIAUT6    LAMICRA    LAMIVT5    LAMIVT6    LAMIVTE6    LAMIVTK
LAMIVTK6    LAMIVTKU    LAMIVTL2    LAMIVTL6    LAMIVTLC    LAMSA1    LAMSBLD    

Accessed By FileMan Db Calls, Total: 10

Package Total Routines
Lab Service 6 LR565PST    LRLNC0    LRSRVR2    LRSRVR3    LRSRVR9    LRWU7    
Automated Lab Instruments 2 LA7VHLU5    LA7VOBX4    
Health Summary 1 GMTSLRME    
Order Entry Results Reporting 1 ORDV05E    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Lab Service 4 AUTO INSTRUMENT(#62.4)[#62.46(.01)]    LAB CODE MAPPING(#62.47)[#62.4701(2.1)]    LAB SEARCH/EXTRACT(#69.5)[#69.55(.01)]    WKLD CODE(#64)[#64.023(.01)]    
Automated Lab Instruments 1 LABORATORY INSTRUMENT CODE(#61.39)[#61.392(2)]    
Methicillin Resistant Staph Aurerus Initiative Reports 1 MDRO TOOLS LAB SEARCH/EXTRACT(#104.1)[#104.191(.01)]    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
Lab Service 4 TOPOGRAPHY FIELD(#61)[#62.062(.01)#62.08(2)#62.091(2)]
ETIOLOGY FIELD(#61.2)[#62.08(1)#62.081(.01)#62.091(1)]
WKLD CODE(#64)[64]    LAB DATA(#63)[55.1]    

Fields, Total: 14

Field # Name Loc Type Details
.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.
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
.5 PRINT ORDER 0;7 NUMBER
************************REQUIRED FIELD************************

  • 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)
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
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)
2 SUSCEPTIBILITY RESULT 1;0 Multiple #62.061 62.061

  • DESCRIPTION:  
    This is a multiple field. It contains the susceptibility result and the interpretation.
3 *PRIMARY DISPLAY 2;0 POINTER Multiple #62.062 62.062

  • DESCRIPTION:  
    No longer used. Will be deleted after 1/89.
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.
5 INTERNAL NAME 0;4 POINTER TO ORGANISM SUB-FIELD FILE (#63) LAB DATA(#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_DIV_$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)
5.1 AFB INTERNAL NAME 0;8 POINTER TO MYCOBACTERIUM SUB-FIELD FILE (#63) LAB DATA(#63)

  • INPUT TRANSFORM:  S DIC("S")="I $$GET1^DID(63.39,Y,"""",""GLOBAL SUBSCRIPT LOCATION"")?1""2.""1.N1"";1""" D ^DIC K DIC 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.06,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
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
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))=""
8 ALTERNATE SCREEN 3;0 SET Multiple #62.08 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]
64 NATIONAL VA LAB CODE 64;1 POINTER TO WKLD CODE FILE (#64) WKLD CODE(#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.

Found Entries, Total: 36

NAME: AMIKACN    NAME: AMPICLN    NAME: CLINDAM    NAME: CARBCLN    NAME: CEFMAND    NAME: CEFOPERAZONE    NAME: CEFOTAXIME    NAME: CEFOXITIN    
NAME: CEFAZOLIN    NAME: CHLORAM    NAME: ERYTHROMYCIN    NAME: KANAMCN    NAME: METHCLN    NAME: MEZLOCILLIN    NAME: NEOMYCN    NAME: NETILMICIN    
NAME: NITROFURANTOIN    NAME: NOVOBIOCIN    NAME: OXACILLIN    NAME: PENICLN    NAME: PIPERACILLIN    NAME: POLYMYXIN B    NAME: RIFAMPIN    NAME: TETRCLN    
NAME: TOBRMCN    NAME: TRMSULF    NAME: VANCMCN    NAME: MOXALACTAM    NAME: GENTMCN    NAME: SULFISOXAZOLE    NAME: BACTRCN    NAME: NAFCILLIN    
NAME: NALIDIXIC ACID    NAME: COLISTIN    NAME: CEPHALOTHIN    NAME: METRONIDAZOLE    

ICR, Total: 3

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #574
  • QUALITY IMPROVEMENT CHECKLIST
  • NAME (.01).
    Access: Read w/Fileman

    DRUG NODE (1).
    Access: Read w/Fileman

    The above references will be made from the QIP5*routines which, while belonging to the QIP namespace, will be maintained bythe lab developers. Coordination of release and patches will be through theQIP custodial ISC.
    ICR #4337
  • Order Entry Results Reporting
  • NAME (.01).
    Access: Read w/Fileman

    A lookup is done on the file using the "AD" crossreference and MIX^DIC
    ICR #5432
  • Methicillin Resistant Staph Aurerus Initiative
  • DRUG NODE (1).
    Access: Direct Global Read & w/Fileman

    External References

    Name Field # of Occurrence
    ^DIC 5+1, 5.1+1
    ^DICR 5(XREF 1n1.4), 5.1(XREF 1S), 5.1(XREF 1K)
    $$GET1^DID 5OT+1, 5.1OT+1, 5.1(XREF 1n1.1)
    ^LRMIXALL 1(XREF 5S), 1(XREF 5K)
    BUGNODE^LRMIXR1 1(XREF 1S)
    BUGNODE^LRMIXR2 1(XREF 2S)
    BUGNODE^LRMIXR3 1(XREF 3S)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD( 5(XREF 1n1.4)
    ^DD(62.06 5(XREF 1S), 5(XREF 1n1.1), 5.1(XREF 1S)
    ^DD(63.3 ID5+1, 1+1, 5(XREF 2S), 5(XREF 2K)
    ^LAB(62.06 - [#62.06] IXAD1SL+1*, IXAD1KL+1!, IXAD1KEIC+1!, .01(XREF 1S), .01(XREF 1K), .5+1, .5(XREF 1S), .5(XREF 1K), 1+1, 1(XREF 1K)
    1(XREF 2K), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 5+1, 5(XREF 1S), 5(XREF 1n1.4), 5(XREF 2S), 5(XREF 2K), 5.1+1
    5.1(XREF 1S), 5.1(XREF 1n1.1), 5.1(XREF 1K), 6+1, 6(XREF 1S), 6(XREF 1K), 6(XREF 3S), 6(XREF 3K), 7(XREF 1S), 7(XREF 1K)

    Naked Globals

    Name Field # of Occurrence
    ^("0" ID5+1
    ^(0 ID5+1, 5(XREF 1S), 5(XREF 1n1.4), 5.1(XREF 1S), 5.1(XREF 1K), 7(XREF 1S), 7(XREF 1K)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> % 5(XREF 1n1.4)
    >> D0 5(XREF 1S), 5.1(XREF 1S), 5.1(XREF 1K)
    >> DA IXAD1SL+1, IXAD1KL+1, .01(XREF 1S), .01(XREF 1K), .5(XREF 1S), .5(XREF 1K), 1+1, 1(XREF 4S), 1(XREF 4K), 5+1
    5(XREF 1S), 5(XREF 2S), 5(XREF 2K), 5.1+1, 5.1(XREF 1S), 5.1(XREF 1n1.1), 5.1(XREF 1K), 6(XREF 1S), 6(XREF 1K), 6(XREF 3S)
    6(XREF 3K), 7(XREF 1S), 7(XREF 1K)
    DIC ID5+1, 5+1!*, 5.1+1!*
    DIC("S" 5+1*, 5SCR+1*, 5.1+1*, 5.1SCR+1*
    >> DIE 5+1, 5.1+1
    >> DIG 5(XREF 1n1.4), 5.1(XREF 1S), 5.1(XREF 1K)
    >> DIH 5(XREF 1n1.4), 5.1(XREF 1S), 5.1(XREF 1K)
    >> DIU 5(XREF 1S), 5.1(XREF 1S), 5.1(XREF 1K)
    >> DIU(0 .5+1, 6+1
    DIV 5(XREF 1S), 5(XREF 1n1.1), 5(XREF 1n1.4), 5.1(XREF 1S), 5.1(XREF 1n1.1), 5.1(XREF 1K)
    DIV(0 5(XREF 1S), 5(XREF 1n1.4), 5.1(XREF 1S), 5.1(XREF 1K)
    U ID5+1, 1+1, 5+1, 5(XREF 1S), 5(XREF 1n1.1), 5(XREF 1n1.4), 5(XREF 2S), 5(XREF 2K), 5.1+1, 5.1(XREF 1S)
    5.1(XREF 1n1.1), 5.1(XREF 1K), 6(XREF 3S), 6(XREF 3K), 7(XREF 1S), 7(XREF 1K)
    X IXAD1SL+1, IXAD1KL+1, .001+1!, .01+1!, .01(XREF 1S), .01(XREF 1K), .5+1!, .5(XREF 1S), .5(XREF 1K), 1+1!*
    1(XREF 1K), 1(XREF 2K), 1(XREF 3K), 1(XREF 4S), 1(XREF 4K), 1.1+1!, 4+1!, 5+1*!, 5(XREF 1S), 5(XREF 1n1.1)
    5(XREF 1n1.4), 5(XREF 2S), 5(XREF 2K), 5.1+1*!, 5.1(XREF 1S), 5.1(XREF 1n1.1), 5.1(XREF 1K), 6+1!, 6(XREF 1S), 6(XREF 1K)
    6(XREF 3S), 7(XREF 1S)
    Y 5+1, 5OT+1*, 5(XREF 1S), 5.1+1, 5.1OT+1*, 5.1(XREF 1S), 5.1(XREF 1K)
    Y(0 5OT+1*, 5.1OT+1*
    Y(1 5(XREF 1S), 5.1(XREF 1S), 5.1(XREF 1K)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All