| 1 | ENNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 20, 1993@12:21:45
|
---|
| 2 | ;;0.0;
|
---|
| 3 | ;;7.0;AUG 20, 1993@12:21:45
|
---|
| 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^ENNTEG0
|
---|
| 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 | EN ;;4938515
|
---|
| 13 | ENAR ;;4431979
|
---|
| 14 | ENAR1 ;;11871100
|
---|
| 15 | ENAR2 ;;1956328
|
---|
| 16 | ENARG ;;12454624
|
---|
| 17 | ENARG1 ;;10340652
|
---|
| 18 | ENARG2 ;;3342843
|
---|
| 19 | ENARG21 ;;8950920
|
---|
| 20 | ENARG22 ;;2185436
|
---|
| 21 | ENARGO ;;12073974
|
---|
| 22 | ENARGR ;;10074633
|
---|
| 23 | ENARL ;;6031740
|
---|
| 24 | ENARY101 ;;8216312
|
---|
| 25 | ENARY102 ;;3454122
|
---|
| 26 | ENARY11 ;;6231668
|
---|
| 27 | ENARY12 ;;3385721
|
---|
| 28 | ENARY13 ;;3062569
|
---|
| 29 | ENARY14 ;;9343114
|
---|
| 30 | ENARY201 ;;9975781
|
---|
| 31 | ENARY202 ;;15589237
|
---|
| 32 | ENARY203 ;;8196720
|
---|
| 33 | ENARY21 ;;6261664
|
---|
| 34 | ENARY22 ;;3569758
|
---|
| 35 | ENARY23 ;;3062575
|
---|
| 36 | ENARY24 ;;9343120
|
---|
| 37 | ENBCPM ;;3638063
|
---|
| 38 | ENBCPM1 ;;13549362
|
---|
| 39 | ENBCPM2 ;;6031204
|
---|
| 40 | ENBCPM3 ;;9064950
|
---|
| 41 | ENBCPM4 ;;9596301
|
---|
| 42 | ENBCPM5 ;;11484758
|
---|
| 43 | ENBCPM6 ;;4953530
|
---|
| 44 | ENBCPM7 ;;7941452
|
---|
| 45 | ENBCPM8 ;;2186844
|
---|
| 46 | ENBCPM9 ;;2873183
|
---|
| 47 | ENCTBAR ;;5687234
|
---|
| 48 | ENCTFLD ;;5724601
|
---|
| 49 | ENCTLAB ;;5178388
|
---|
| 50 | ENCTMAN ;;4414940
|
---|
| 51 | ENCTMES1 ;;6006739
|
---|
| 52 | ENCTMES2 ;;1519431
|
---|
| 53 | ENCTPRG ;;3043163
|
---|
| 54 | ENCTQUES ;;4002140
|
---|
| 55 | ENCTRCH ;;8407760
|
---|
| 56 | ENCTREAD ;;16551995
|
---|
| 57 | ENCTRED ;;12095305
|
---|
| 58 | ENCTTI ;;2160648
|
---|
| 59 | ENCTUTL ;;4206790
|
---|
| 60 | ENEQ ;;3683192
|
---|
| 61 | ENEQ1 ;;15475812
|
---|
| 62 | ENEQ2 ;;9230615
|
---|
| 63 | ENEQCMR ;;7911609
|
---|
| 64 | ENEQHS ;;10570477
|
---|
| 65 | ENEQNX ;;3531149
|
---|
| 66 | ENEQNX1 ;;9966591
|
---|
| 67 | ENEQNX2 ;;5226292
|
---|
| 68 | ENEQNX3 ;;11743073
|
---|
| 69 | ENEQNX4 ;;7713903
|
---|
| 70 | ENEQNX5 ;;2603248
|
---|
| 71 | ENEQP ;;6605681
|
---|
| 72 | ENEQP1 ;;688458
|
---|
| 73 | ENEQPMP ;;15856392
|
---|
| 74 | ENEQPMP1 ;;10411981
|
---|
| 75 | ENEQPMP2 ;;2126362
|
---|
| 76 | ENEQPMP3 ;;13277582
|
---|
| 77 | ENEQPMR ;;3478732
|
---|
| 78 | ENEQPMR1 ;;12627078
|
---|
| 79 | ENEQPMR2 ;;18212122
|
---|
| 80 | ENEQPMR3 ;;13149321
|
---|
| 81 | ENEQPMR4 ;;14556251
|
---|
| 82 | ENEQPMR5 ;;13179441
|
---|
| 83 | ENEQPMR6 ;;19977814
|
---|
| 84 | ENEQPMS ;;3641624
|
---|
| 85 | ENEQPMS1 ;;19804179
|
---|
| 86 | ENEQPMS2 ;;10467421
|
---|
| 87 | ENEQPMS3 ;;5620243
|
---|
| 88 | ENEQPMS4 ;;18118122
|
---|
| 89 | ENEQPMS5 ;;15643787
|
---|
| 90 | ENEQPMS6 ;;5204081
|
---|
| 91 | ENEQPMS7 ;;14854573
|
---|
| 92 | ENEQPMS8 ;;7326330
|
---|
| 93 | ENEQRP ;;3693556
|
---|
| 94 | ENEQRP1 ;;10562964
|
---|
| 95 | ENEQRP2 ;;10365465
|
---|
| 96 | ENEQRP3 ;;8672209
|
---|
| 97 | ENEQRP4 ;;5918859
|
---|
| 98 | ENEQRP5 ;;6086341
|
---|
| 99 | ENEQRPI ;;9865436
|
---|
| 100 | ENETRAN ;;4039043
|
---|
| 101 | ENETRAN1 ;;11679240
|
---|
| 102 | ENETRAN2 ;;4333961
|
---|
| 103 | ENEWOD ;;5495583
|
---|
| 104 | ENEWOD1 ;;5251799
|
---|
| 105 | ENFSA ;;7314584
|
---|
| 106 | ENFSA1 ;;5548335
|
---|
| 107 | ENFSA2 ;;5319649
|
---|
| 108 | ENJ ;;6133268
|
---|
| 109 | ENJC2 ;;8912737
|
---|
| 110 | ENJDPL ;;7674160
|
---|
| 111 | ENJINJ ;;11938160
|
---|
| 112 | ENJINJ1 ;;8955976
|
---|
| 113 | ENJINJ2 ;;4028275
|
---|
| 114 | ENJINJ3 ;;1559977
|
---|
| 115 | ENJINK ;;4413907
|
---|
| 116 | ENJINQ ;;11064638
|
---|
| 117 | ENJMUL ;;8552821
|
---|
| 118 | ENJPARAM ;;2694588
|
---|
| 119 | ENLBL ;;3135966
|
---|
| 120 | ENLBL1 ;;3245151
|
---|
| 121 | ENLBL10 ;;14378355
|
---|
| 122 | ENLBL11 ;;7160263
|
---|
| 123 | ENLBL12 ;;13421987
|
---|
| 124 | ENLBL15 ;;12572513
|
---|
| 125 | ENLBL16 ;;1826387
|
---|
| 126 | ENLBL2 ;;3418306
|
---|
| 127 | ENLBL3 ;;10033853
|
---|
| 128 | ENLBL4 ;;13077812
|
---|
| 129 | ENLBL5 ;;13751323
|
---|
| 130 | ENLBL6 ;;12095536
|
---|
| 131 | ENLBL7 ;;4062804
|
---|
| 132 | ENLBL8 ;;8234100
|
---|
| 133 | ENLBL9 ;;10853901
|
---|
| 134 | ENLIB ;;6814617
|
---|
| 135 | ENLIB1 ;;9070707
|
---|
| 136 | ENLIB2 ;;8379485
|
---|
| 137 | ENMAN ;;5576464
|
---|
| 138 | ENNEWPK2 ;;5397991
|
---|
| 139 | ENNEWPKG ;;3718383
|
---|
| 140 | ENPL1 ;;570844
|
---|
| 141 | ENPL10 ;;3212501
|
---|
| 142 | ENPL11 ;;741836
|
---|
| 143 | ENPL1A ;;4660189
|
---|
| 144 | ENPL2 ;;1954959
|
---|
| 145 | ENPL3 ;;5279839
|
---|
| 146 | ENPL3A ;;6695082
|
---|
| 147 | ENPL3B ;;5892963
|
---|
| 148 | ENPL4 ;;2500320
|
---|
| 149 | ENPL5 ;;6174517
|
---|
| 150 | ENPL5A ;;7212529
|
---|
| 151 | ENPL5B ;;7246310
|
---|
| 152 | ENPL5C ;;1776100
|
---|
| 153 | ENPL6 ;;629956
|
---|
| 154 | ENPL7 ;;7630291
|
---|
| 155 | ENPL7A ;;2540563
|
---|
| 156 | ENPL7B ;;7246249
|
---|
| 157 | ENPL7C ;;3950594
|
---|
| 158 | ENPL8 ;;5044355
|
---|
| 159 | ENPL8A ;;4072945
|
---|
| 160 | ENPL9 ;;4550205
|
---|
| 161 | ENPOST ;;6322701
|
---|
| 162 | ENPROJ ;;10601112
|
---|
| 163 | ENPROJ1 ;;3824567
|
---|
| 164 | ENPROJ2 ;;7500311
|
---|
| 165 | ENPROJ3 ;;5258779
|
---|
| 166 | ENPROJ7 ;;6977689
|
---|
| 167 | ENPROJ8 ;;10562136
|
---|
| 168 | ENPROJ9 ;;1570570
|
---|
| 169 | ENPRP ;;5660213
|
---|
| 170 | ENPRP1 ;;9519708
|
---|
| 171 | ENPRP2 ;;9986033
|
---|
| 172 | ENPRP3 ;;7038858
|
---|
| 173 | ENPRP4 ;;4795223
|
---|