Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: LAMIV00

LAMIV00.m

Go to the documentation of this file. 
  1. LAMIV00 ; IHS/DIR/FJE - PROCESS VITEK V VALUE FROM FILE 7/20/90 09:37 ;
  1.  ;;5.2;LA;;NOV 01, 1997
  1.  ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
  1.  ;IN PARAM1 OF THE DRUG NODE OF THE MICRO CARD TYPE
  1.  ;OF THE AUTO INSTRUMENT FILE YOU ENTER S RUN="x"_LARTN D @RUN WHERE
  1.  ;x IS THE LINE TAG WHICH WILL DETERMINE THE MIC VALUE.
  1.  Q
  1. 0 ;POS CODE 7=?C
  1.  S V=$S(V=0:"<=.03",V=1:.06,V=2:.125,V=3:.25,V=4:.5,V=5:1,V=6:2,V=7:4,V=8:8,"9ABCDE"[V:">=16",1:"") Q
  1. 1 ;POS CODE 0<>B
  1.  S V=$S("012"[V:"<=.125",V=3:.25,V=4:.5,V=5:1,V=6:2,V=7:4,V=8:8,"9ABCDE"[V:">=16",1:"") Q
  1. 2 ;NEG CODE 1
  1.  S V=$S(V=0:"<=.25",V=1:.5,V=2:1,V=3:2,V=4:4,V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
  1. 3 ;NEG CODE [   POS CODE G
  1.  S V=$S("01"[V:"<=.5",V=2:1,V=3:2,"456789ABCDE"[V:">=4",1:"") Q
  1. 4 ;POS CODE 34
  1.  S V=$S("01"[V:"<=.5",V=2:1,V=3:2,V=4:4,"56789ABCDE"[V:">=8",1:"") Q
  1. 5 ;NEG CODE 79 POS CODE 5
  1.  S V=$S("01"[V:"<=.5",V=2:1,V=3:2,V=4:4,V=5:8,"6789ABCDE"[V:">=16",1:"") Q
  1. 6 ;NEG CODE AD, POS CODE 9
  1.  S V=$S("01"[V:"<=.5",V=2:1,V=3:2,V=4:4,V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
  1. 7 ;NEG CODE 68,   POS CODE 8
  1.  S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,"6789ABCDE"[V:">=16",1:"") Q
  1. 8 ;NEG CODE d  POS CODE 2@
  1.  S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
  1. 9 ;POS CODE :
  1.  S V=$S("0123"[V:"<=2","456789ABCDE"[V:">=4",1:"") Q
  1. A ;NEG CODE \    POS CODE DI
  1.  S V=$S("0123"[V:"<=2",V=4:4,"56789ABCDE"[V:">=8",1:"") Q
  1. B ;NEG CODE 345, POS CODE 1
  1.  S V=$S("0123"[V:"<=2",V=4:4,V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
  1. C ;NEG CODE 0,
  1.  S V=$S("0123"[V:"<=2",V=4:4,V=5:8,V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
  1. D ;NEG CODE ;
  1.  S V=$S("0123"[V:"<=2",V=4:4,V=5:8,V=6:16,V=7:32,V=8:64,"9ABCDE"[V:">=128",1:"") Q
  1. E ;NEG CODE <
  1.  S V=$S("0123"[V:"<=2",V=4:4,V=5:8,V=6:16,V=7:32,V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
  1. F ;NEG CODE Tj     POS CODE H
  1.  S V=$S("01234"[V:"<=4",V=5:8,"6789ABCDE"[V:">=16",1:"") Q
  1. G ;NEG CODE NPR  POS CODE E
  1.  S V=$S("01234"[V:"<=4",V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
  1. H ;NEG CODE HI
  1.  S V=$S("01234"[V:"<=4",V=5:8,V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
  1. I ;NEG CODE C
  1.  S V=$S("01234"[V:"<=4",V=5:8,V=6:16,V=7:32,V=8:64,"9ABCDE"[V:">=128",1:"") Q
  1. J ;NEG CODE MWXY]    POS CODE F
  1.  S V=$S("012345"[V:"<=8",V=6:16,"789ABCDE"[V:">=32",1:"") Q
  1. K ;NEG CODE GV
  1.  S V=$S("012345"[V:"<=8",V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
  1. L ;NEG CODE FJO_akl
  1.  S V=$S("012345"[V:"<=8",V=6:16,V=7:32,V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
  1. M ;NEG CODE >?@
  1.  S V=$S("012345"[V:"<=8",V=6:16,V=7:32,V=8:64,V=9:128,V="A":256,"BCDE"[V:">=512",1:"") Q
  1. N ;NEG CODE :
  1.  S V=$S("01"[V:"<=10",V=2:20,V=3:40,"456789ABCDE"[V:">=80",1:"") Q
  1. O ;NEG CODE bc 
  1.  S V=$S("01"[V:"<=10",V=2:20,V=3:40,V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
  1. P ;POS CODE ;A
  1.  S V=$S("01"[V:"<=10",V=2:20,V=3:40,V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
  1. Q ;NEG CODE SU
  1.  S V=$S("0123456"[V:"<=16","789ABCDE"[V:">=32",1:"") Q
  1. R ;NEG CODE Zf
  1.  S V=$S("0123456"[V:"<=16",V=7:32,"89ABCDE"[V:">=64",1:"") Q
  1. S ;NEG CODE K^
  1.  S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,"9ABCDE"[V:">=128",1:"") Q
  1. T ;NEG CODE Qghmnop
  1.  S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
  1. U ;NEG CODE 2` 
  1.  S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,V=9:128,V="A":256,"BCDE"[V:">=512",1:"") Q
  1. V ;NEG CODE i  POS CODE 6
  1.  S V=$S("01234567"[V:"<=32",V=8:64,"9ABCDE"[V:">=128",1:"") Q
  1. W ;NEG CODE L
  1.  S V=$S("01234567"[V:"<=32",V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
  1. X ;NEG CODE E
  1.  S V=$S("0123"[V:"<=40",V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
  1. Y ;NEG CODE e
  1.  S V=$S("012345678"[V:"<=64","9ABCDE"[V:">=128",1:"") Q
  1. Z ;NEG CODE =
  1.  S V=$S("012345678"[V:"<=64",V=9:128,V="A":256,"BCDE"[V:">=512",1:"") Q
  1. A1 ;POS CODE J
  1.  S V=$S("012"[V:"<=1",V=3:2,"456789ABCDE"[V:">=4",1:"") Q
  1. A2 ;POS CODE K
  1.  S V=$S("0123456789A"[V:"<=500","BCDE"[V:">500",1:"") Q
  1. A3 ;POS CODE L
  1.  S V=$S("0123456789ABC"[V:"<=2000","DE"[V:">2000",1:"") Q
  1. A4 ;NEG B
  1.  S V=$S("012345678"[V:"<=64",V=9:128,"ABCDE"[V:">=256",1:"") Q
  1. A5 ;POS CODE L (BETALACTAMASE)
  1.  S V=$S(V=0:"NEG",V=1:"POS","F"[V:"N/A",1:"") Q
  1. A6 ;NEG CODE w
  1.  S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,"6789ABCDEF"[V:">=8",1:"") Q