LAMIV00.m

LAMIV00 ; IHS/DIR/FJE - PROCESS VITEK V VALUE FROM FILE 7/20/90 09:37 ;

 ;;5.2;LA;;NOV 01, 1997

 ;;5.2;AUTOMATED LAB INSTRUMENTS;;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)

 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

LAMIV00   ; IHS/DIR/FJE - PROCESS VITEK V VALUE FROM FILE 7/20/90 09:37 ;

 +1       ;;5.2;LA;;NOV 01, 1997

 +2       ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994

 +3       ;IN PARAM1 OF THE DRUG NODE OF THE MICRO CARD TYPE

 +4       ;OF THE AUTO INSTRUMENT FILE YOU ENTER S RUN="x"_LARTN D @RUN WHERE

 +5       ;x IS THE LINE TAG WHICH WILL DETERMINE THE MIC VALUE.

 +6        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)

 +1        SET V=$SELECT(V=0:"NEG",V=1:"POS","F"[V:"N/A",1:"")

           QUIT 

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