| [613] | 1 | ENXJNTE0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;FEB 26, 1996@14:03:14
|
|---|
| 2 | ;;7.0;ENGINEERING;**30**;AUG 17, 1993
|
|---|
| 3 | ;;7.2;FEB 26, 1996@14:03:14
|
|---|
| 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^ENXJNTE1
|
|---|
| 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 | ENXJI049 ;;8264747
|
|---|
| 13 | ENXJI04A ;;8001102
|
|---|
| 14 | ENXJI04B ;;8400014
|
|---|
| 15 | ENXJI04C ;;8581691
|
|---|
| 16 | ENXJI04D ;;8544541
|
|---|
| 17 | ENXJI04E ;;8310060
|
|---|
| 18 | ENXJI04F ;;8354584
|
|---|
| 19 | ENXJI04G ;;8242171
|
|---|
| 20 | ENXJI04H ;;8587769
|
|---|
| 21 | ENXJI04I ;;8273839
|
|---|
| 22 | ENXJI04J ;;8315561
|
|---|
| 23 | ENXJI04K ;;8241985
|
|---|
| 24 | ENXJI04L ;;8307131
|
|---|
| 25 | ENXJI04M ;;8082469
|
|---|
| 26 | ENXJI04N ;;8137613
|
|---|
| 27 | ENXJI04O ;;7784268
|
|---|
| 28 | ENXJI04P ;;7808977
|
|---|
| 29 | ENXJI04Q ;;7830561
|
|---|
| 30 | ENXJI04R ;;7924352
|
|---|
| 31 | ENXJI04S ;;8192158
|
|---|
| 32 | ENXJI04T ;;8142844
|
|---|
| 33 | ENXJI04U ;;7530541
|
|---|
| 34 | ENXJI04V ;;8135322
|
|---|
| 35 | ENXJI04W ;;8293126
|
|---|
| 36 | ENXJI04X ;;8323471
|
|---|
| 37 | ENXJI04Y ;;8127927
|
|---|
| 38 | ENXJI04Z ;;8013872
|
|---|
| 39 | ENXJI050 ;;8044242
|
|---|
| 40 | ENXJI051 ;;8067917
|
|---|
| 41 | ENXJI052 ;;8252661
|
|---|
| 42 | ENXJI053 ;;8436275
|
|---|
| 43 | ENXJI054 ;;8480402
|
|---|
| 44 | ENXJI055 ;;7820141
|
|---|
| 45 | ENXJI056 ;;8336113
|
|---|
| 46 | ENXJI057 ;;8324407
|
|---|
| 47 | ENXJI058 ;;8056120
|
|---|
| 48 | ENXJI059 ;;7986057
|
|---|
| 49 | ENXJI05A ;;8069862
|
|---|
| 50 | ENXJI05B ;;8309037
|
|---|
| 51 | ENXJI05C ;;7942234
|
|---|
| 52 | ENXJI05D ;;8124629
|
|---|
| 53 | ENXJI05E ;;8177665
|
|---|
| 54 | ENXJI05F ;;8132590
|
|---|
| 55 | ENXJI05G ;;8223409
|
|---|
| 56 | ENXJI05H ;;8081761
|
|---|
| 57 | ENXJI05I ;;7941126
|
|---|
| 58 | ENXJI05J ;;7966102
|
|---|
| 59 | ENXJI05K ;;7961404
|
|---|
| 60 | ENXJI05L ;;8209134
|
|---|
| 61 | ENXJI05M ;;7929905
|
|---|
| 62 | ENXJI05N ;;8002631
|
|---|
| 63 | ENXJI05O ;;7666586
|
|---|
| 64 | ENXJI05P ;;8026898
|
|---|
| 65 | ENXJI05Q ;;7948970
|
|---|
| 66 | ENXJI05R ;;8493105
|
|---|
| 67 | ENXJI05S ;;8000200
|
|---|
| 68 | ENXJI05T ;;8069269
|
|---|
| 69 | ENXJI05U ;;8320150
|
|---|
| 70 | ENXJI05V ;;8224719
|
|---|
| 71 | ENXJI05W ;;8143147
|
|---|
| 72 | ENXJI05X ;;8308780
|
|---|
| 73 | ENXJI05Y ;;7884639
|
|---|
| 74 | ENXJI05Z ;;8093854
|
|---|
| 75 | ENXJI060 ;;7858871
|
|---|
| 76 | ENXJI061 ;;7828218
|
|---|
| 77 | ENXJI062 ;;7738161
|
|---|
| 78 | ENXJI063 ;;7859140
|
|---|
| 79 | ENXJI064 ;;8121038
|
|---|
| 80 | ENXJI065 ;;8049423
|
|---|
| 81 | ENXJI066 ;;7768324
|
|---|
| 82 | ENXJI067 ;;8250939
|
|---|
| 83 | ENXJI068 ;;8386029
|
|---|
| 84 | ENXJI069 ;;7961723
|
|---|
| 85 | ENXJI06A ;;8115637
|
|---|
| 86 | ENXJI06B ;;7915710
|
|---|
| 87 | ENXJI06C ;;7850339
|
|---|
| 88 | ENXJI06D ;;7960402
|
|---|
| 89 | ENXJI06E ;;8191709
|
|---|
| 90 | ENXJI06F ;;8320568
|
|---|
| 91 | ENXJI06G ;;7935616
|
|---|
| 92 | ENXJI06H ;;8085329
|
|---|
| 93 | ENXJI06I ;;8231153
|
|---|
| 94 | ENXJI06J ;;8000896
|
|---|
| 95 | ENXJI06K ;;7672720
|
|---|
| 96 | ENXJI06L ;;7740908
|
|---|
| 97 | ENXJI06M ;;7618423
|
|---|
| 98 | ENXJI06N ;;7871641
|
|---|
| 99 | ENXJI06O ;;7960497
|
|---|
| 100 | ENXJI06P ;;8031710
|
|---|
| 101 | ENXJI06Q ;;7828718
|
|---|
| 102 | ENXJI06R ;;7888606
|
|---|
| 103 | ENXJI06S ;;7895114
|
|---|
| 104 | ENXJI06T ;;7873419
|
|---|
| 105 | ENXJI06U ;;8211953
|
|---|
| 106 | ENXJI06V ;;8157359
|
|---|
| 107 | ENXJI06W ;;8436956
|
|---|
| 108 | ENXJI06X ;;8129748
|
|---|
| 109 | ENXJI06Y ;;7907023
|
|---|
| 110 | ENXJI06Z ;;8268738
|
|---|
| 111 | ENXJI070 ;;8205358
|
|---|
| 112 | ENXJI071 ;;7849490
|
|---|
| 113 | ENXJI072 ;;8030699
|
|---|
| 114 | ENXJI073 ;;8259313
|
|---|
| 115 | ENXJI074 ;;7923401
|
|---|
| 116 | ENXJI075 ;;8286824
|
|---|
| 117 | ENXJI076 ;;8347915
|
|---|
| 118 | ENXJI077 ;;8280411
|
|---|
| 119 | ENXJI078 ;;7764205
|
|---|
| 120 | ENXJI079 ;;8170669
|
|---|
| 121 | ENXJI07A ;;8219047
|
|---|
| 122 | ENXJI07B ;;7729426
|
|---|
| 123 | ENXJI07C ;;8224802
|
|---|
| 124 | ENXJI07D ;;7900372
|
|---|
| 125 | ENXJI07E ;;8266506
|
|---|
| 126 | ENXJI07F ;;7941687
|
|---|
| 127 | ENXJI07G ;;7952774
|
|---|
| 128 | ENXJI07H ;;8201043
|
|---|
| 129 | ENXJI07I ;;8102402
|
|---|
| 130 | ENXJI07J ;;7875388
|
|---|
| 131 | ENXJI07K ;;7996056
|
|---|
| 132 | ENXJI07L ;;7732505
|
|---|
| 133 | ENXJI07M ;;8131868
|
|---|
| 134 | ENXJI07N ;;7919125
|
|---|
| 135 | ENXJI07O ;;7936409
|
|---|
| 136 | ENXJI07P ;;7967820
|
|---|
| 137 | ENXJI07Q ;;8020266
|
|---|
| 138 | ENXJI07R ;;7930200
|
|---|
| 139 | ENXJI07S ;;7743453
|
|---|
| 140 | ENXJI07T ;;7873024
|
|---|
| 141 | ENXJI07U ;;7850759
|
|---|
| 142 | ENXJI07V ;;7909400
|
|---|
| 143 | ENXJI07W ;;8037277
|
|---|
| 144 | ENXJI07X ;;8114530
|
|---|
| 145 | ENXJI07Y ;;7985936
|
|---|
| 146 | ENXJI07Z ;;8279181
|
|---|
| 147 | ENXJI080 ;;7953353
|
|---|
| 148 | ENXJI081 ;;8289046
|
|---|
| 149 | ENXJI082 ;;8392467
|
|---|
| 150 | ENXJI083 ;;8312372
|
|---|
| 151 | ENXJI084 ;;8320277
|
|---|
| 152 | ENXJI085 ;;7849251
|
|---|
| 153 | ENXJI086 ;;7909072
|
|---|
| 154 | ENXJI087 ;;7916533
|
|---|
| 155 | ENXJI088 ;;8096453
|
|---|
| 156 | ENXJI089 ;;8017810
|
|---|
| 157 | ENXJI08A ;;8188906
|
|---|
| 158 | ENXJI08B ;;8096381
|
|---|
| 159 | ENXJI08C ;;8292208
|
|---|
| 160 | ENXJI08D ;;8131652
|
|---|
| 161 | ENXJI08E ;;7912632
|
|---|
| 162 | ENXJI08F ;;8468905
|
|---|
| 163 | ENXJI08G ;;8232994
|
|---|
