source: WorldVistAEHR/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LAMIV00.m@ 701

Last change on this file since 701 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 4.1 KB
Line 
1LAMIV00 ;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
70 ;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
91 ;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
112 ;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
133 ;NEG CODE [ POS CODE G
14 S V=$S("01"[V:"<=.5",V=2:1,V=3:2,"456789ABCDE"[V:">=4",1:"") Q
154 ;POS CODE 34
16 S V=$S("01"[V:"<=.5",V=2:1,V=3:2,V=4:4,"56789ABCDE"[V:">=8",1:"") Q
175 ;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
196 ;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
217 ;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
238 ;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
259 ;POS CODE :
26 S V=$S("0123"[V:"<=2","456789ABCDE"[V:">=4",1:"") Q
27A ;NEG CODE \ POS CODE DI
28 S V=$S("0123"[V:"<=2",V=4:4,"56789ABCDE"[V:">=8",1:"") Q
29B ;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
31C ;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
33D ;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
35E ;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
37F ;NEG CODE Tj POS CODE H
38 S V=$S("01234"[V:"<=4",V=5:8,"6789ABCDE"[V:">=16",1:"") Q
39G ;NEG CODE NPR POS CODE E
40 S V=$S("01234"[V:"<=4",V=5:8,V=6:16,"789ABCDE"[V:">=32",1:"") Q
41H ;NEG CODE HI
42 S V=$S("01234"[V:"<=4",V=5:8,V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
43I ;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
45J ;NEG CODE MWXY] POS CODE F
46 S V=$S("012345"[V:"<=8",V=6:16,"789ABCDE"[V:">=32",1:"") Q
47K ;NEG CODE GV
48 S V=$S("012345"[V:"<=8",V=6:16,V=7:32,"89ABCDE"[V:">=64",1:"") Q
49L ;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
51M ;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
53N ;NEG CODE :
54 S V=$S("01"[V:"<=10",V=2:20,V=3:40,"456789ABCDE"[V:">=80",1:"") Q
55O ;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
57P ;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
59Q ;NEG CODE SU
60 S V=$S("0123456"[V:"<=16","789ABCDE"[V:">=32",1:"") Q
61R ;NEG CODE Zf
62 S V=$S("0123456"[V:"<=16",V=7:32,"89ABCDE"[V:">=64",1:"") Q
63S ;NEG CODE K^
64 S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,"9ABCDE"[V:">=128",1:"") Q
65T ;NEG CODE Qghmnop
66 S V=$S("0123456"[V:"<=16",V=7:32,V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
67U ;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
69V ;NEG CODE i POS CODE 6
70 S V=$S("01234567"[V:"<=32",V=8:64,"9ABCDE"[V:">=128",1:"") Q
71W ;NEG CODE L
72 S V=$S("01234567"[V:"<=32",V=8:64,V=9:128,"ABCDE"[V:">=256",1:"") Q
73X ;NEG CODE E
74 S V=$S("0123"[V:"<=40",V=4:80,V=5:160,"6789ABCDE"[V:">=320",1:"") Q
75Y ;NEG CODE e
76 S V=$S("012345678"[V:"<=64","9ABCDE"[V:">=128",1:"") Q
77Z ;NEG CODE =
78 S V=$S("012345678"[V:"<=64",V=9:128,V="A":256,"BCDE"[V:">=512",1:"") Q
79A1 ;POS CODE J
80 S V=$S("012"[V:"<=1",V=3:2,"456789ABCDE"[V:">=4",1:"") Q
81A2 ;POS CODE K
82 S V=$S("0123456789A"[V:"<=500","BCDE"[V:">500",1:"") Q
83A3 ;POS CODE L
84 S V=$S("0123456789ABC"[V:"<=2000","DE"[V:">2000",1:"") Q
85A4 ;NEG B
86 S V=$S("012345678"[V:"<=64",V=9:128,"ABCDE"[V:">=256",1:"") Q
87A5 ;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
89A6 ;NEG CODE w
90 S V=$S("012"[V:"<=1",V=3:2,V=4:4,V=5:8,"6789ABCDEF"[V:">=8",1:"") Q
91A7 ;NEG CODE v
92 S V=$S("0123"[V:"<=2",V=4:4,V=5:8,"6789ABCDE"[V:">=16",1:"") Q
Note: See TracBrowser for help on using the repository browser.