source: FOIAVistA/tag/r/LAB_SERVICE-LR-LS/LRNTEG03.m@ 636

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

initial load of FOIAVistA 6/30/08 version
File size: 3.4 KB
Line 
1LRNTEG03 ;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 ;
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 ;;
12LRSORB ;;5246084
13LRSORC ;;2903387
14LRSORC1 ;;2650199
15LRSORC1A ;;5784485
16LRSORD ;;2903439
17LRSORD1 ;;2634130
18LRSORD1A ;;5873206
19LRSPDA ;;1708053
20LRSPGD ;;1899546
21LRSPRPT ;;14704153
22LRSPRPT1 ;;9128154
23LRSPRPT2 ;;11806540
24LRSPRPTM ;;3548807
25LRSPS ;;1349074
26LRSPSICD ;;3733172
27LRSPSICP ;;4548274
28LRSPT ;;5788888
29LRSTATUS ;;5864956
30LRSTOPC ;;8270122
31LRSTUF ;;3165927
32LRSTUF1 ;;13017004
33LRSTUF2 ;;7213582
34LRTOT ;;5514392
35LRTP ;;1719568
36LRTSTJAM ;;11402229
37LRTSTJAN ;;15845798
38LRTSTJM1 ;;3677989
39LRTSTOUT ;;14679176
40LRTSTSET ;;11593341
41LRU ;;17199697
42LRUA ;;9428099
43LRUB ;;2794163
44LRUBL ;;2301075
45LRUC ;;3314953
46LRUCE ;;3615614
47LRUCLR ;;1483623
48LRUCN ;;6285550
49LRUCNBB ;;6439802
50LRUD ;;8613899
51LRUD1 ;;1288507
52LRUDEL ;;8062773
53LRUDIT ;;1873186
54LRUDPT ;;3892466
55LRUE ;;8625936
56LRUER ;;12482221
57LRUET ;;9746002
58LRUFILE ;;3793703
59LRUG ;;2440226
60LRUL ;;6494173
61LRULA ;;2814252
62LRULB ;;3214861
63LRULB1 ;;5054925
64LRULEN ;;4920379
65LRUMD ;;13730332
66LRUMD1 ;;15963110
67LRUMD2 ;;9441970
68LRUMDF ;;12190617
69LRUMDM ;;12811700
70LRUMDP ;;9583614
71LRUMDS ;;6757098
72LRUMDU ;;12785217
73LRUMDU1 ;;2924915
74LRUMI ;;8672238
75LRUMSG ;;549954
76LRUP ;;111723
77LRUPA ;;8985351
78LRUPA1 ;;8601230
79LRUPA2 ;;10860453
80LRUPAC ;;5317474
81LRUPACA ;;10645043
82LRUPACS ;;9002791
83LRUPACT ;;12662142
84LRUPAD ;;8440128
85LRUPAD1 ;;7381083
86LRUPAD2 ;;9070446
87LRUPQ ;;5009717
88LRUPQ1 ;;5480421
89LRUPS ;;5213446
90LRUPT ;;9583710
91LRUPUM ;;4413283
92LRUQ ;;2165509
93LRUR ;;5269766
94LRURG ;;563985
95LRUSE ;;1274883
96LRUSET ;;1000756
97LRUSNOM ;;1630210
98LRUSP ;;3735979
99LRUT ;;1482424
100LRUTA ;;5134496
101LRUTAD ;;10053839
102LRUTELL ;;1609316
103LRUTL ;;10259125
104LRUTRAN ;;3731182
105LRUTT ;;11013569
106LRUTW ;;7949670
107LRUU ;;1156447
108LRUV ;;399332
109LRUW ;;10155671
110LRUWG ;;10453371
111LRUWK ;;1415257
112LRUWL ;;3121574
113LRUWLF ;;5417790
114LRVER ;;16483418
115LRVER1 ;;5987669
116LRVER2 ;;6818151
117LRVER3 ;;8335446
118LRVER3A ;;9912700
119LRVER4 ;;14817646
120LRVER5 ;;11228247
121LRVR ;;13379924
122LRVR1 ;;9222290
123LRVR2 ;;6604344
124LRVR3 ;;10872068
125LRVR4 ;;10297579
126LRVR5 ;;9391488
127LRVRKIL ;;4419206
128LRVRW ;;9610673
129LRWD ;;1562529
130LRWLHEAD ;;689266
131LRWLST ;;14625851
132LRWLST1 ;;13063164
133LRWLST11 ;;15804232
134LRWLST12 ;;4658067
135LRWLST13 ;;7041750
136LRWLST2 ;;4332114
137LRWRKIN1 ;;4265901
138LRWRKINC ;;12503776
139LRWRKLS1 ;;1982294
140LRWRKLST ;;7270047
141LRWRKS ;;7701958
142LRWRKS2 ;;5580037
143LRWU ;;11277129
144LRWU1 ;;3812098
145LRWU2 ;;1596365
146LRWU3 ;;8913298
147LRWU4 ;;6571565
148LRWU5 ;;12308481
149LRWU6 ;;7589287
150LRWU7 ;;8189681
151LRX ;;10626021
152LRX6 ;;16621271
153LRX60 ;;9025787
154LRX62P6 ;;8926756
155LRX62P61 ;;20085978
156LRX6PRO ;;3892082
157LRXO0 ;;2244780
158LRXO00 ;;11600233
159LRXO1 ;;10821866
160LRXO10 ;;4100641
161LRXO11 ;;9945043
162LRXO1A ;;10417967
163LRXO2 ;;10312556
164LRXO3 ;;6346859
165LRXO4 ;;15854526
166LRXO4A ;;7531049
167LRXO5 ;;18115224
168LRXO6 ;;6504620
169LRXO7 ;;3502103
170LRXO8 ;;3966298
171LRXO9 ;;8693186
172LRXOS0 ;;2439944
173LRXOS1 ;;3868247
174LRXREF ;;9253913
175LRXREF1 ;;7533129
Note: See TracBrowser for help on using the repository browser.