| 1 | LAMIV00 ;SLC/DLG- PROCESS VITEK V VALUE FROM FILE ;7/20/90 09:37 ;
|
|---|
| 2 | ;;5.2;AUTOMATED LAB INSTRUMENTS;**2**;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 | Q
|
|---|
| 7 | 0 ;POS CODE 7=?C
|
|---|
| 8 | 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
|
|---|
| 9 | 1 ;POS CODE 0<>B
|
|---|
| 10 | 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
|
|---|
| 11 | 2 ;NEG CODE 1
|
|---|
| 12 | 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
|
|---|
| 13 | 3 ;NEG CODE [ POS CODE G
|
|---|
| 14 | S V=$S("01"[V:"<=.5",V=2:1,V=3:2,"456789ABCDE"[V:">=4",1:"") Q
|
|---|
| 15 | 4 ;POS CODE 34
|
|---|
| 16 | S V=$S("01"[V:"<=.5",V=2:1,V=3:2,V=4:4,"56789ABCDE"[V:">=8",1:"") Q
|
|---|
| 17 | 5 ;NEG CODE 79 POS CODE 5
|
|---|
| 18 | S V=$S("01"[V:"<=.5",V=2:1,V=3:2,V=4:4,V=5:8,"6789ABCDE"[V:">=16",1:"") Q
|
|---|
| 19 | 6 ;NEG CODE AD, POS CODE 9
|
|---|
| 20 | 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
|
|---|
| 21 | 7 ;NEG CODE 68, POS CODE 8
|
|---|
| 22 | S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,"6789ABCDE"[V:">=16",1:"") Q
|
|---|
| 23 | 8 ;NEG CODE d POS CODE 2@
|
|---|
| 24 | S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
|
|---|
| 25 | 9 ;POS CODE :
|
|---|
| 26 | S V=$S("0123"[V:"<=2","456789ABCDE"[V:">=4",1:"") Q
|
|---|
| 27 | A ;NEG CODE \ POS CODE DI
|
|---|
| 28 | S V=$S("0123"[V:"<=2",V=4:4,"56789ABCDE"[V:">=8",1:"") Q
|
|---|
| 29 | B ;NEG CODE 345, POS CODE 1
|
|---|
| 30 | S V=$S("0123"[V:"<=2",V=4:4,V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
|
|---|
| 31 | C ;NEG CODE 0,
|
|---|
| 32 | S V=$S("0123"[V:"<=2",V=4:4,V=5:8,V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
|
|---|
| 33 | D ;NEG CODE ;
|
|---|
| 34 | 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
|
|---|
| 35 | E ;NEG CODE <
|
|---|
| 36 | 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
|
|---|
| 37 | F ;NEG CODE Tj POS CODE H
|
|---|
| 38 | S V=$S("01234"[V:"<=4",V=5:8,"6789ABCDE"[V:">=16",1:"") Q
|
|---|
| 39 | G ;NEG CODE NPR POS CODE E
|
|---|
| 40 | S V=$S("01234"[V:"<=4",V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
|
|---|
| 41 | H ;NEG CODE HI
|
|---|
| 42 | S V=$S("01234"[V:"<=4",V=5:8,V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
|
|---|
| 43 | I ;NEG CODE C
|
|---|
| 44 | S V=$S("01234"[V:"<=4",V=5:8,V=6:16,V=7:32,V=8:64,"9ABCDE"[V:">=128",1:"") Q
|
|---|
| 45 | J ;NEG CODE MWXY] POS CODE F
|
|---|
| 46 | S V=$S("012345"[V:"<=8",V=6:16,"789ABCDE"[V:">=32",1:"") Q
|
|---|
| 47 | K ;NEG CODE GV
|
|---|
| 48 | S V=$S("012345"[V:"<=8",V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
|
|---|
| 49 | L ;NEG CODE FJO_akl
|
|---|
| 50 | S V=$S("012345"[V:"<=8",V=6:16,V=7:32,V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
|
|---|
| 51 | M ;NEG CODE >?@
|
|---|
| 52 | 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
|
|---|
| 53 | N ;NEG CODE :
|
|---|
| 54 | S V=$S("01"[V:"<=10",V=2:20,V=3:40,"456789ABCDE"[V:">=80",1:"") Q
|
|---|
| 55 | O ;NEG CODE bc
|
|---|
| 56 | S V=$S("01"[V:"<=10",V=2:20,V=3:40,V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
|
|---|
| 57 | P ;POS CODE ;A
|
|---|
| 58 | S V=$S("01"[V:"<=10",V=2:20,V=3:40,V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
|
|---|
| 59 | Q ;NEG CODE SU
|
|---|
| 60 | S V=$S("0123456"[V:"<=16","789ABCDE"[V:">=32",1:"") Q
|
|---|
| 61 | R ;NEG CODE Zf
|
|---|
| 62 | S V=$S("0123456"[V:"<=16",V=7:32,"89ABCDE"[V:">=64",1:"") Q
|
|---|
| 63 | S ;NEG CODE K^
|
|---|
| 64 | S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,"9ABCDE"[V:">=128",1:"") Q
|
|---|
| 65 | T ;NEG CODE Qghmnop
|
|---|
| 66 | S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
|
|---|
| 67 | U ;NEG CODE 2`
|
|---|
| 68 | S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,V=9:128,V="A":256,"BCDE"[V:">=512",1:"") Q
|
|---|
| 69 | V ;NEG CODE i POS CODE 6
|
|---|
| 70 | S V=$S("01234567"[V:"<=32",V=8:64,"9ABCDE"[V:">=128",1:"") Q
|
|---|
| 71 | W ;NEG CODE L
|
|---|
| 72 | S V=$S("01234567"[V:"<=32",V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
|
|---|
| 73 | X ;NEG CODE E
|
|---|
| 74 | S V=$S("0123"[V:"<=40",V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
|
|---|
| 75 | Y ;NEG CODE e
|
|---|
| 76 | S V=$S("012345678"[V:"<=64","9ABCDE"[V:">=128",1:"") Q
|
|---|
| 77 | Z ;NEG CODE =
|
|---|
| 78 | S V=$S("012345678"[V:"<=64",V=9:128,V="A":256,"BCDE"[V:">=512",1:"") Q
|
|---|
| 79 | A1 ;POS CODE J
|
|---|
| 80 | S V=$S("012"[V:"<=1",V=3:2,"456789ABCDE"[V:">=4",1:"") Q
|
|---|
| 81 | A2 ;POS CODE K
|
|---|
| 82 | S V=$S("0123456789A"[V:"<=500","BCDE"[V:">500",1:"") Q
|
|---|
| 83 | A3 ;POS CODE L
|
|---|
| 84 | S V=$S("0123456789ABC"[V:"<=2000","DE"[V:">2000",1:"") Q
|
|---|
| 85 | A4 ;NEG B
|
|---|
| 86 | S V=$S("012345678"[V:"<=64",V=9:128,"ABCDE"[V:">=256",1:"") Q
|
|---|
| 87 | A5 ;POS CODE L (BETALACTAMASE)** PLACE HOLDER FOR FUTURE USE
|
|---|
| 88 | ;S V=$S(V=0:"NEG",V=1:"POS","F"[V:"N/A",1:"") Q
|
|---|
| 89 | A6 ;NEG CODE w
|
|---|
| 90 | S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,"6789ABCDEF"[V:">=8",1:"") Q
|
|---|
| 91 | A7 ;NEG CODE v
|
|---|
| 92 | S V=$S("0123"[V:"<=2",V=4:4,V=5:8,"6789ABCDE"[V:">=16",1:"") Q
|
|---|
