source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRNTEG0.m@ 1681

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1LRNTEG0 ;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^LRNTEG01
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 ;;
12LRAUDA ;;2234244
13LRAUFIX ;;316002
14LRAUL ;;10927481
15LRAUMLK ;;4980671
16LRAURPT ;;16385191
17LRAURV ;;8143951
18LRAUS ;;2611608
19LRAUSICD ;;3659214
20LRAUSM ;;11817138
21LRAUSTA ;;5008931
22LRBARA ;;3774911
23LRBARB ;;6451096
24LRBARBT ;;5739996
25LRBLA ;;9313272
26LRBLA1 ;;9926399
27LRBLA2 ;;6490884
28LRBLAA ;;14326109
29LRBLAA1 ;;3751384
30LRBLAB ;;1343081
31LRBLAGG ;;2364163
32LRBLB ;;5073682
33LRBLBU ;;2220381
34LRBLC ;;1993068
35LRBLCAP ;;2878590
36LRBLCMV ;;4895767
37LRBLCON ;;2097
38LRBLD ;;3295327
39LRBLDA ;;12115475
40LRBLDA1 ;;3235853
41LRBLDAA ;;12203824
42LRBLDAL ;;9196362
43LRBLDC ;;14081954
44LRBLDC1 ;;5278208
45LRBLDCR ;;10142238
46LRBLDCU ;;5349018
47LRBLDED ;;6440773
48LRBLDEL ;;9949435
49LRBLDELT ;;5309734
50LRBLDEX ;;3417783
51LRBLDEX1 ;;13440864
52LRBLDEX2 ;;13957070
53LRBLDK ;;4408781
54LRBLDL ;;8027727
55LRBLDL1 ;;1162721
56LRBLDLG ;;19044672
57LRBLDP ;;2025215
58LRBLDPA ;;3813923
59LRBLDPA1 ;;13875145
60LRBLDPA2 ;;13988829
61LRBLDPAW ;;3164806
62LRBLDPH ;;10358285
63LRBLDPK ;;7998460
64LRBLDPL ;;3867229
65LRBLDPT ;;9866269
66LRBLDPT1 ;;3715345
67LRBLDR ;;15121433
68LRBLDR1 ;;7668103
69LRBLDRR ;;15871256
70LRBLDRR1 ;;14701889
71LRBLDRR2 ;;3066287
72LRBLDSC ;;8397022
73LRBLDT ;;13117428
74LRBLDTA ;;2604164
75LRBLDUC ;;4698546
76LRBLDW ;;5918756
77LRBLDX ;;4935632
78LRBLFIX ;;1289829
79LRBLJ ;;984549
80LRBLJA ;;10779194
81LRBLJA1 ;;6301480
82LRBLJB ;;9637545
83LRBLJC ;;9275638
84LRBLJCK ;;9133133
85LRBLJD ;;13102215
86LRBLJD1 ;;13655002
87LRBLJDA ;;10951052
88LRBLJDM ;;11207222
89LRBLJDP ;;9084280
90LRBLJED ;;13071752
91LRBLJI ;;8199613
92LRBLJL ;;16439081
93LRBLJL1 ;;7275954
94LRBLJLA ;;9051165
95LRBLJLG ;;15685077
96LRBLJLG1 ;;11427027
97LRBLJM ;;6502625
98LRBLJM1 ;;8953366
99LRBLJP ;;5290456
100LRBLJPA ;;5587022
101LRBLJPA1 ;;16327603
102LRBLJPA2 ;;10519413
103LRBLJPH ;;6292279
104LRBLJPP ;;12819280
105LRBLJPP1 ;;6500529
106LRBLJR ;;8082545
107LRBLJRB ;;10184614
108LRBLJSH ;;10420740
109LRBLJT ;;9138951
110LRBLJTS ;;3989459
111LRBLJTS1 ;;8904419
112LRBLJTS2 ;;8577037
113LRBLJU ;;5981259
114LRBLJU1 ;;6735669
115LRBLJUT ;;5844963
116LRBLJW ;;10073924
117LRBLJX ;;5755281
118LRBLP ;;17385811
119LRBLPA ;;5230196
120LRBLPAB ;;3921486
121LRBLPB ;;1128898
122LRBLPBR ;;9231407
123LRBLPBR1 ;;15470435
124LRBLPC ;;15671667
125LRBLPC1 ;;7192443
126LRBLPCS ;;12042158
127LRBLPCS1 ;;9661884
128LRBLPCSS ;;9786071
129LRBLPD ;;11082733
130LRBLPD1 ;;10107862
131LRBLPE ;;11555396
132LRBLPE1 ;;7387090
133LRBLPED ;;14607261
134LRBLPED1 ;;9696043
135LRBLPED2 ;;3426586
136LRBLPEW ;;14855298
137LRBLPH ;;3897023
138LRBLPIT ;;7051836
139LRBLPOST ;;1810321
140LRBLPP ;;1084680
141LRBLPQA ;;8810766
142LRBLPR ;;6345892
143LRBLPR1 ;;12719049
144LRBLPRA ;;5693589
145LRBLPT ;;8846509
146LRBLPT1 ;;11224251
147LRBLPTR ;;11758227
148LRBLPTR1 ;;10126100
149LRBLPUS ;;10288915
150LRBLPUS1 ;;7988890
151LRBLPUS2 ;;10276414
152LRBLPX ;;14423115
153LRBLPX1 ;;11550716
154LRBLQPR ;;5571599
155LRBLQST ;;6415500
156LRBLRCT ;;9833422
157LRBLS ;;10901031
158LRBLSET ;;2877561
159LRBLSSN ;;3897804
160LRBLST ;;3535761
161LRBLSTR ;;3249276
162LRBLSUM ;;1987283
163LRBLTA ;;6903899
164LRBLTA1 ;;4221860
165LRBLTX ;;13956029
166LRBLTXA ;;11752893
167LRBLU ;;16066234
168LRBLUL ;;1134633
169LRBLVAL ;;715004
170LRBLW ;;4545909
171LRBLWD ;;4923072
Note: See TracBrowser for help on using the repository browser.