source: FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRNTEG.m

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1LRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26
2 ;;5.2;LAB SERVICE;;Sep 27, 1994
3 ;;7.2;OCT 25, 1994@16:14:26
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^LRNTEG0
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 ;;
12LR52CNV ;;9175510
13LR52CNV0 ;;3475444
14LR52CNV1 ;;8155874
15LR52CNV3 ;;7949281
16LR52CNV4 ;;8091914
17LR52CNV5 ;;7090305
18LR52CNV7 ;;6270377
19LR52CNV8 ;;6913340
20LR52CNV9 ;;5903059
21LR52CNVA ;;3635478
22LR52CNVP ;;8781945
23LR52CNVU ;;2239335
24LR52CNVX ;;8110085
25LR52TIM2 ;;3950513
26LR52TIME ;;3676943
27LRABG ;;1851372
28LRABG1 ;;7566954
29LRAC ;;6243657
30LRAC1 ;;11261717
31LRAC2 ;;11706705
32LRAC2A ;;5935060
33LRAC3 ;;10227958
34LRAC4 ;;11230513
35LRAC5 ;;7561182
36LRAC6 ;;9135745
37LRAC7 ;;2987131
38LRAC8 ;;896828
39LRAC9 ;;9098921
40LRACC ;;4244367
41LRACDIAG ;;16331067
42LRACF ;;11037128
43LRACFILE ;;884607
44LRACFIX ;;1870623
45LRACFR ;;9983668
46LRACK ;;3045817
47LRACKL ;;13626594
48LRACKL1 ;;2455270
49LRACM ;;12299888
50LRACM1 ;;11850917
51LRACM2 ;;9886073
52LRACM2F ;;5537651
53LRACM3 ;;7658633
54LRACM4 ;;8356385
55LRACP ;;2963963
56LRACPG ;;844852
57LRACS ;;10982120
58LRACS1 ;;10583337
59LRACS2 ;;5996122
60LRACS3 ;;8023824
61LRACSUM ;;9656858
62LRACSUM1 ;;10133720
63LRACSUM3 ;;7335590
64LRACSUM4 ;;9181678
65LRACSUM5 ;;13575770
66LRACSUM6 ;;8083056
67LRAD2ORD ;;7379677
68LRAFUNC ;;5202410
69LRAFUNC1 ;;8930233
70LRAFUNC5 ;;4235238
71LRAFUNC6 ;;4239245
72LRAFUNC7 ;;7323033
73LRAIPRIV ;;116977
74LRAIRNUM ;;853891
75LRAP ;;10403072
76LRAPA ;;4656450
77LRAPAP ;;1248151
78LRAPAUA ;;4555449
79LRAPAUL ;;14417566
80LRAPAULC ;;5589732
81LRAPAUPT ;;343483
82LRAPAUSR ;;13851004
83LRAPBK ;;12786562
84LRAPBK1 ;;12514060
85LRAPBS ;;9530725
86LRAPBS1 ;;10479431
87LRAPBS2 ;;2393780
88LRAPC ;;5340982
89LRAPCUM ;;13268233
90LRAPCUM1 ;;6307179
91LRAPCWK ;;9695591
92LRAPD ;;4542710
93LRAPD1 ;;12376303
94LRAPDA ;;14820288
95LRAPDAC ;;3206399
96LRAPDEL ;;6301858
97LRAPDPT ;;6823526
98LRAPDS ;;413044
99LRAPED ;;11456664
100LRAPEDC ;;4899381
101LRAPF ;;2304308
102LRAPFICH ;;3383986
103LRAPFTS ;;23050
104LRAPH ;;4909603
105LRAPHDR ;;1559144
106LRAPJNC ;;5838353
107LRAPL ;;6656073
108LRAPLG ;;7333835
109LRAPLG1 ;;6952457
110LRAPLG2 ;;5232187
111LRAPM ;;14128148
112LRAPMOD ;;1763077
113LRAPMV ;;7473442
114LRAPOLD ;;10216449
115LRAPONC ;;4385791
116LRAPP ;;5467205
117LRAPPA ;;4168936
118LRAPPF ;;2917679
119LRAPPF1 ;;11687405
120LRAPPF2 ;;1703493
121LRAPPOW ;;6667789
122LRAPPRE ;;752949
123LRAPQ ;;5576437
124LRAPQAC ;;8427071
125LRAPQACD ;;1805048
126LRAPQACN ;;7551560
127LRAPQAFS ;;6062556
128LRAPQAM ;;2742545
129LRAPQAMR ;;8517573
130LRAPQAR ;;11772281
131LRAPQAT ;;12217676
132LRAPQAT1 ;;5893900
133LRAPQOR ;;5274969
134LRAPQOR1 ;;10672669
135LRAPQOR2 ;;5647114
136LRAPQOR3 ;;6098335
137LRAPR ;;10366720
138LRAPREF ;;381960
139LRAPS ;;1983043
140LRAPS1 ;;8521516
141LRAPS2 ;;11905503
142LRAPS3 ;;2265857
143LRAPSA ;;8361677
144LRAPSE ;;1707913
145LRAPSEM ;;14699799
146LRAPSEM1 ;;10343109
147LRAPSEM2 ;;12254703
148LRAPSL ;;10783558
149LRAPSL1 ;;11000394
150LRAPSM ;;9196990
151LRAPSM1 ;;11824486
152LRAPST ;;8820669
153LRAPST1 ;;3180798
154LRAPSWK ;;13317104
155LRAPT ;;7684657
156LRAPT1 ;;1555945
157LRAPT2 ;;13252231
158LRAPT3 ;;3593015
159LRAPTT ;;12355400
160LRAPTT1 ;;5291896
161LRAPV ;;6254696
162LRAPWA ;;2145601
163LRAPWE ;;10582558
164LRAPWE1 ;;5467253
165LRAPWEA ;;10035536
166LRAPWKA ;;10993774
167LRAPWKA1 ;;2854955
168LRAPWR ;;13705370
169LRAPWR1 ;;10850851
170LRAPWSPG ;;6741045
171LRAPWU ;;9771464
172LRAPX ;;5707403
173LRAUAW ;;4434676
Note: See TracBrowser for help on using the repository browser.