source: WorldVistAEHR/trunk/r/PROSTHETICS-RMPR-RMPO-RMPS/RMPRNTEG.m@ 1696

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

initial load of WorldVistAEHR
File size: 3.5 KB
Line 
1RMPRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960209.165831
2 ;;3.0;PROSTHETICS;;Feb 09, 1996
3 ;;7.3;2960209.165831
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^RMPRNTE0
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 ;;
12RMPR21 ;;10407458
13RMPR21A ;;15000806
14RMPR21B ;;6679243
15RMPR21C ;;7218243
16RMPR22 ;;5209008
17RMPR29 ;;9985599
18RMPR293 ;;8677167
19RMPR29A ;;17059538
20RMPR29B ;;18058296
21RMPR29C ;;7821428
22RMPR29D ;;4462820
23RMPR29I ;;16919371
24RMPR29I1 ;;7825686
25RMPR29J ;;5954207
26RMPR29M ;;14840317
27RMPR29P ;;9013320
28RMPR29R ;;10622204
29RMPR29S ;;8185883
30RMPR29T ;;18661557
31RMPR29U ;;15769328
32RMPR29W ;;8616427
33RMPR31U ;;5217736
34RMPR37 ;;9692837
35RMPR37A ;;4507614
36RMPR6 ;;20477861
37RMPR61 ;;10980893
38RMPR62 ;;17198520
39RMPR6P ;;12673816
40RMPR7 ;;13976688
41RMPR71 ;;10855018
42RMPR8PG ;;4808622
43RMPRAINQ ;;8031837
44RMPRAP ;;5427725
45RMPRAUT ;;18575980
46RMPRAVR ;;18820856
47RMPRAVR1 ;;16923766
48RMPRBIL ;;11415690
49RMPRC21 ;;8368789
50RMPRCDP ;;7558197
51RMPRCH ;;684518
52RMPRCT ;;13363539
53RMPRD1 ;;10306112
54RMPRDA ;;18736947
55RMPRDIS ;;18617789
56RMPRDP ;;13530752
57RMPRDT ;;8249725
58RMPRE21 ;;17008151
59RMPRE22 ;;5573474
60RMPRE29 ;;1079144
61RMPRED2 ;;110337
62RMPRED4 ;;13849143
63RMPRED6 ;;23724516
64RMPREGF ;;3086061
65RMPRELG1 ;;13170465
66RMPRELG2 ;;7334007
67RMPRESI ;;5813097
68RMPREXT ;;3826826
69RMPRFO ;;6453375
70RMPRFO1 ;;9964673
71RMPRFO2 ;;11154476
72RMPRFO3 ;;12927571
73RMPRFO4 ;;3346944
74RMPRFO6 ;;2590250
75RMPRFSH ;;7473808
76RMPRGEC ;;18547762
77RMPRGEC1 ;;17214221
78RMPRGOR ;;9693001
79RMPRHIS ;;11384667
80RMPRHISD ;;7106484
81RMPRHISL ;;8231208
82RMPRHL ;;15631868
83RMPRI001 ;;8620482
84RMPRI002 ;;9952776
85RMPRI003 ;;10186342
86RMPRI004 ;;9470538
87RMPRI005 ;;8429315
88RMPRI006 ;;8606885
89RMPRI007 ;;8934698
90RMPRI008 ;;4249845
91RMPRI009 ;;7017287
92RMPRI00A ;;4830366
93RMPRI00B ;;9241471
94RMPRI00C ;;995526
95RMPRI00D ;;6044364
96RMPRI00E ;;7960411
97RMPRI00F ;;3462500
98RMPRI00G ;;8262862
99RMPRI00H ;;1434918
100RMPRI00I ;;5279053
101RMPRI00J ;;2880361
102RMPRI00K ;;7259917
103RMPRI00L ;;8460237
104RMPRI00M ;;9763825
105RMPRI00N ;;1868807
106RMPRI00O ;;9600818
107RMPRI00P ;;8514235
108RMPRI00Q ;;1764564
109RMPRI00R ;;7795374
110RMPRI00S ;;2720472
111RMPRI00T ;;8772477
112RMPRI00U ;;9565315
113RMPRI00V ;;9544539
114RMPRI00W ;;7881777
115RMPRI00X ;;7554470
116RMPRI00Y ;;7767345
117RMPRI00Z ;;9788960
118RMPRI010 ;;8217521
119RMPRI011 ;;10341875
120RMPRI012 ;;8268562
121RMPRI013 ;;10222912
122RMPRI014 ;;10698598
123RMPRI015 ;;8403707
124RMPRI016 ;;7925460
125RMPRI017 ;;9458081
126RMPRI018 ;;8533666
127RMPRI019 ;;5545281
128RMPRI01A ;;8252348
129RMPRI01B ;;8194936
130RMPRI01C ;;5696665
131RMPRI01D ;;7874259
132RMPRI01E ;;9571364
133RMPRI01F ;;8461532
134RMPRI01G ;;5865069
135RMPRI01H ;;6641748
136RMPRI01I ;;3173766
137RMPRI01J ;;1044336
138RMPRI01K ;;7445908
139RMPRI01L ;;3889417
140RMPRI01M ;;7720592
141RMPRI01N ;;3376688
142RMPRI01O ;;1845657
143RMPRI01P ;;1690440
144RMPRI01Q ;;8101132
145RMPRI01R ;;4977661
146RMPRI01S ;;9352378
147RMPRI01T ;;1877679
148RMPRI01U ;;3474680
149RMPRI01V ;;1362260
150RMPRI01W ;;6777742
151RMPRI01X ;;8598949
152RMPRI01Y ;;8151336
153RMPRI01Z ;;13673315
154RMPRI020 ;;12949891
155RMPRI021 ;;13894244
156RMPRI022 ;;15481265
157RMPRI023 ;;15409752
158RMPRI024 ;;14073548
159RMPRI025 ;;12424915
160RMPRI026 ;;15928674
161RMPRI027 ;;15839975
162RMPRI028 ;;17096875
163RMPRI029 ;;16929525
164RMPRI02A ;;16905079
165RMPRI02B ;;17513789
Note: See TracBrowser for help on using the repository browser.