source: FOIAVistA/trunk/r/LAB_SERVICE-LR-LS/LRNTEG02.m@ 1154

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1LRNTEG02 ;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^LRNTEG03
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 ;;
12LRMIPSZ ;;8712841
13LRMIPSZ1 ;;12406819
14LRMIPSZ2 ;;11226062
15LRMIPSZ3 ;;8318897
16LRMIPSZ4 ;;11912188
17LRMIPSZ5 ;;12221036
18LRMIS ;;100097
19LRMISEZ ;;10610238
20LRMISEZ1 ;;9213100
21LRMISEZ2 ;;11072948
22LRMISEZ3 ;;9782087
23LRMISEZ4 ;;4421803
24LRMISEZA ;;16855476
25LRMISEZB ;;9566752
26LRMISR ;;7163511
27LRMISR1 ;;3355654
28LRMISTF ;;10468714
29LRMISTF1 ;;14032069
30LRMITS ;;2538407
31LRMITSE ;;3156077
32LRMITSEC ;;11973690
33LRMITSES ;;7783131
34LRMITSP ;;2844397
35LRMITSPC ;;5437371
36LRMITSPE ;;6010630
37LRMITSPO ;;5286842
38LRMITSPS ;;3052409
39LRMITSR ;;10903814
40LRMITSRH ;;2059425
41LRMITSRS ;;9988179
42LRMIU4 ;;5614178
43LRMIUT ;;3226335
44LRMIUT1 ;;5126116
45LRMIV ;;5001526
46LRMIV1 ;;12023776
47LRMIV2 ;;15350039
48LRMIV3 ;;7301635
49LRMIV4 ;;8957717
50LRMIVER ;;8247730
51LRMIVER1 ;;9809595
52LRMIXALL ;;2510057
53LRMIXPD ;;2621751
54LRMIXR1 ;;1499994
55LRMIXR2 ;;4935912
56LRMIXR3 ;;7444890
57LRMIZAP ;;15214782
58LRMIZAP1 ;;5599755
59LRMRSHRT ;;12006164
60LRNDLST ;;6518918
61LRNIGHT ;;3012542
62LRNIGHT1 ;;3577041
63LRNIGHT2 ;;8145950
64LRNITEG ;;10629315
65LRNITEGL ;;5620432
66LRNODRAW ;;6441287
67LRNORMAL ;;2729775
68LRNPXA ;;3121059
69LRNPXA0 ;;2098459
70LRNPXA1 ;;7927108
71LRNUM ;;6084836
72LRO ;;137704
73LRO1 ;;80835
74LRO2 ;;492098
75LRO3 ;;83879
76LRO4 ;;1104
77LRO5 ;;55717
78LRO6 ;;58416
79LRO7 ;;58696
80LRO8 ;;55867
81LROC ;;9962104
82LROC1 ;;513736
83LROCM ;;902146
84LROE ;;14124488
85LROE1 ;;7441789
86LROE2 ;;8671366
87LROI ;;1171816
88LROLOVER ;;11243389
89LROPT ;;13626902
90LROPTLST ;;6823560
91LROR ;;11488574
92LROR1 ;;9367723
93LROR2 ;;7864169
94LROR3 ;;8668640
95LROR4 ;;12426203
96LROR4A ;;11272423
97LROR4B ;;11230240
98LROR5 ;;126397
99LROR6 ;;2546332
100LROR6A ;;10885921
101LROR6B ;;7065648
102LROR7 ;;91305
103LROR8 ;;10413551
104LROR9 ;;14142736
105LRORD ;;12460893
106LRORD1 ;;12374911
107LRORD2 ;;17233514
108LRORD2A ;;4265341
109LRORD3 ;;7325550
110LRORDD ;;13714315
111LRORDERN ;;138962
112LRORDIM ;;4446478
113LRORDK ;;13547846
114LRORDST ;;14794328
115LRORDST1 ;;2848
116LROS ;;13339397
117LROSX0 ;;17415
118LROSX1 ;;7539
119LROW ;;7529828
120LROW1 ;;13614464
121LROW1A ;;3246964
122LROW2 ;;8567142
123LROW2A ;;6321320
124LROW2P ;;7207400
125LROW2RP ;;6049085
126LROW3 ;;6949223
127LROW4 ;;4523889
128LROW5 ;;12012801
129LRPARAM ;;7507286
130LRPHEXPT ;;9195190
131LRPHITE1 ;;11966791
132LRPHITE2 ;;3592550
133LRPHITE3 ;;2570033
134LRPHITEM ;;14241855
135LRPHLIS1 ;;14180980
136LRPHLIST ;;13349268
137LRPHSET ;;17207396
138LRPHSET1 ;;7020946
139LRPHSET2 ;;16068862
140LRQC ;;681009
141LRQCC ;;11068638
142LRQCLOG ;;9698504
143LRRD ;;8518062
144LRRK ;;5712336
145LRRP ;;10136813
146LRRP1 ;;6740104
147LRRP2 ;;12419851
148LRRP3 ;;8171424
149LRRP4 ;;3196176
150LRRP5 ;;5807146
151LRRP5A ;;4696626
152LRRP6 ;;4486928
153LRRP6A1 ;;5209716
154LRRP6A2 ;;2681809
155LRRP6A3 ;;2318940
156LRRP6B1 ;;3787926
157LRRP6B2 ;;2864954
158LRRP6B3 ;;2072606
159LRRP7 ;;3106946
160LRRP8 ;;1356290
161LRRP8A ;;4325958
162LRRP8B ;;2256698
163LRRP8C ;;5002891
164LRRS ;;8707990
165LRRS12 ;;3900411
166LRRS13 ;;3057556
167LRRSP ;;3891776
168LRSETUP ;;9966224
169LRSLOW ;;18541286
170LRSMAC ;;5282435
171LRSOR ;;7195489
172LRSOR1 ;;1558609
173LRSORA ;;7657175
174LRSORA0 ;;2281955
175LRSORA1 ;;6300770
176LRSORA2 ;;3292731
177LRSORA3 ;;6360636
Note: See TracBrowser for help on using the repository browser.