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