source: FOIAVistA/trunk/r/AUTOMATED_LAB_INSTRUMENTS-LA/LANTEG.m@ 1780

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

initial load of FOIAVistA 6/30/08 version
File size: 3.6 KB
Line 
1LANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:19:45
2 ;;5.2;AUTOMATED LAB INSTRUMENTS;;Sep 27, 1994
3 ;;7.2;OCT 25, 1994@16:19:45
4 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
5CONT F XT1=1:1 S XT2=$T(ROU+XT1) Q:XT2="" S X=$P(XT2," ",1),XT3=$P(XT2,";",3) X XT4 I $T W !,X X ^%ZOSF("TEST") S:'$T XT3=0 X:XT3 ^%ZOSF("RSUM") W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$C(7)_Y_", off by "_(Y-XT3),1:"ok")
6 G CONT^LANTEG0
7 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
8ONE S XT4="I $D(^UTILITY($J,X))",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
9 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
10 W ! G CONT
11ROU ;;
12LA1103 ;;2783225
13LAABL3 ;;2008068
14LAABL500 ;;2175200
15LAACA ;;2620189
16LAACA4 ;;2267008
17LAAIMX ;;2663037
18LAALTA ;;2228642
19LAASTRA ;;2584890
20LAB ;;4398199
21LABALARM ;;1650198
22LABCX4B ;;4898600
23LABCX4D ;;13092397
24LABCX4H ;;2806099
25LABCX4I ;;1686962
26LABCX4XX ;;9649352
27LABERR ;;6644019
28LABERRP ;;8870102
29LABINIT ;;1234544
30LABIOH ;;3367777
31LABIOU ;;2914334
32LABITKU ;;2821318
33LABL330 ;;1722719
34LABMD87P ;;2175579
35LABTEST ;;5613373
36LAC178 ;;1540695
37LAC178HP ;;1853069
38LACBIO ;;2148068
39LACCHEM6 ;;2097015
40LACEL8E ;;2264233
41LACFARA ;;2918540
42LACHEM1 ;;2717606
43LACL5500 ;;1539985
44LACLNTE ;;1552893
45LACLNTEK ;;1673253
46LACLT200 ;;1551991
47LACLT20P ;;1474233
48LACMIRA ;;3311054
49LACMIRAS ;;3312103
50LACOAGX2 ;;5672263
51LACOARA4 ;;1951210
52LACOLT ;;2545954
53LACOLT1 ;;2654404
54LACOLT2 ;;2836496
55LACOLT24 ;;1802705
56LACOLT3 ;;2164064
57LACOLT5 ;;2323809
58LACOLT6 ;;2256792
59LACOLTSE ;;2430777
60LACOLTSS ;;2715542
61LACRIT ;;1736540
62LACTDMS ;;1465520
63LADACOS ;;2166624
64LADEKT7B ;;4967221
65LADIMD ;;6103418
66LADIMPI ;;1405264
67LADIMPXX ;;8026120
68LADJOB ;;8760268
69LADKERM2 ;;1726176
70LADKERM3 ;;2978971
71LADKERMI ;;6011628
72LADMND ;;3072669
73LADOWN ;;9920580
74LADOWN1 ;;1202585
75LAE4A ;;2248577
76LAEKT4 ;;2208086
77LAEKT7 ;;3350851
78LAEKT7B ;;4892440
79LAEKT7D ;;4868873
80LAEKT7P ;;1708897
81LAELT ;;1407224
82LAELT8D ;;1959164
83LAEPXD ;;6684633
84LAEPXPXX ;;2943031
85LAERA ;;2063732
86LAEXEC ;;2382145
87LAFARA2 ;;1982181
88LAFUNC ;;8102106
89LAGEN ;;8938687
90LAH1 ;;1891499
91LAH480 ;;1867912
92LAH6K ;;1615361
93LAH705 ;;2274079
94LAH717D ;;3491011
95LAH717H ;;1408129
96LAH717U ;;3049965
97LAH737 ;;2103160
98LAH747 ;;4392886
99LAHLOG ;;2059494
100LAHT1K ;;3366699
101LAHT1KD ;;4182105
102LAHTCCA ;;3313807
103LAHTCCAD ;;7101782
104LAHTCCAH ;;1445957
105LAHTRK ;;4972157
106LAHWATCH ;;9397067
107LAJOB ;;9221165
108LAJOB1 ;;1554580
109LAKDA ;;1509851
110LAKDIFF ;;9316350
111LAKDIFF1 ;;8917764
112LAKDIFF2 ;;9640378
113LAKDIFF3 ;;2515859
114LAKERM2 ;;1880826
115LAKERM3 ;;2978413
116LAKERMIT ;;6324167
117LAKOAG40 ;;2868887
118LAKUR ;;9165972
119LAKUR1 ;;9779892
120LAL13 ;;1439802
121LAL1306 ;;1467621
122LAL1312 ;;3502635
123LAL508 ;;2285737
124LAL943 ;;2023211
125LALBG3 ;;2249849
126LAMIAUT0 ;;16381256
127LAMIAUT1 ;;10322419
128LAMIAUT2 ;;8411115
129LAMIAUT3 ;;10479359
130LAMIAUT4 ;;12090481
131LAMIAUT5 ;;3703164
132LAMIAUT6 ;;10716148
133LAMIAUT7 ;;13571379
134LAMIAUT8 ;;10268917
135LAMICRA ;;6240705
136LAMILL ;;8873545
137LAMIV00 ;;5791650
138LAMIV10 ;;3260019
139LAMIV11 ;;4758588
140LAMIV12 ;;3536770
141LAMIVT5 ;;6911163
142LAMIVT6 ;;6905221
143LAMIVTE6 ;;6926973
144LAMIVTK ;;6713826
145LAMIVTK6 ;;7014176
146LAMIVTKC ;;3923165
147LAMIVTKD ;;13170264
148LAMIVTKU ;;6973867
149LAMLA1KC ;;3053010
150LAMLA7 ;;1570534
151LAMODH ;;3388022
152LAMODU ;;3723782
153LAMODUT ;;2139931
154LAMONARK ;;2238324
155LAMSA ;;6011981
156LAMSA1 ;;3554365
157LAMSBLD ;;3663195
158LAMSD ;;7874896
159LAMSP ;;621129
160LAMSPAN ;;1767497
161LAMSTAT ;;2048832
162LANOVA ;;1641181
163LANOVST ;;1777132
164LAPARA ;;1995628
165LAPARAP ;;2803252
166LAPER ;;2505784
167LAPERD ;;3756688
168LAPFICH ;;4040500
169LAPMAX ;;2197178
170LAPMAXD ;;6347878
171LAPORTXX ;;4413930
172LAPX ;;1763878
173LARA1K ;;1874527
Note: See TracBrowser for help on using the repository browser.