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