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