| 1 | ENXJNTEG ;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^ENXJNTE0
|
|---|
| 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 | ENXJI001 ;;7396841
|
|---|
| 13 | ENXJI002 ;;8054337
|
|---|
| 14 | ENXJI003 ;;7748082
|
|---|
| 15 | ENXJI004 ;;8245669
|
|---|
| 16 | ENXJI005 ;;7991510
|
|---|
| 17 | ENXJI006 ;;8343436
|
|---|
| 18 | ENXJI007 ;;7971802
|
|---|
| 19 | ENXJI008 ;;7943723
|
|---|
| 20 | ENXJI009 ;;8035135
|
|---|
| 21 | ENXJI00A ;;8060167
|
|---|
| 22 | ENXJI00B ;;7819708
|
|---|
| 23 | ENXJI00C ;;7972050
|
|---|
| 24 | ENXJI00D ;;7867699
|
|---|
| 25 | ENXJI00E ;;8003844
|
|---|
| 26 | ENXJI00F ;;8355389
|
|---|
| 27 | ENXJI00G ;;8490006
|
|---|
| 28 | ENXJI00H ;;7526714
|
|---|
| 29 | ENXJI00I ;;7885709
|
|---|
| 30 | ENXJI00J ;;7965158
|
|---|
| 31 | ENXJI00K ;;8547932
|
|---|
| 32 | ENXJI00L ;;8164818
|
|---|
| 33 | ENXJI00M ;;7980845
|
|---|
| 34 | ENXJI00N ;;8151309
|
|---|
| 35 | ENXJI00O ;;7803413
|
|---|
| 36 | ENXJI00P ;;7823211
|
|---|
| 37 | ENXJI00Q ;;7843016
|
|---|
| 38 | ENXJI00R ;;8199590
|
|---|
| 39 | ENXJI00S ;;8232428
|
|---|
| 40 | ENXJI00T ;;8068739
|
|---|
| 41 | ENXJI00U ;;8131257
|
|---|
| 42 | ENXJI00V ;;8072719
|
|---|
| 43 | ENXJI00W ;;7829847
|
|---|
| 44 | ENXJI00X ;;8126532
|
|---|
| 45 | ENXJI00Y ;;7789520
|
|---|
| 46 | ENXJI00Z ;;8048776
|
|---|
| 47 | ENXJI010 ;;8307699
|
|---|
| 48 | ENXJI011 ;;7980293
|
|---|
| 49 | ENXJI012 ;;8570462
|
|---|
| 50 | ENXJI013 ;;7932208
|
|---|
| 51 | ENXJI014 ;;8078990
|
|---|
| 52 | ENXJI015 ;;8066315
|
|---|
| 53 | ENXJI016 ;;7835738
|
|---|
| 54 | ENXJI017 ;;8541178
|
|---|
| 55 | ENXJI018 ;;7989580
|
|---|
| 56 | ENXJI019 ;;8060414
|
|---|
| 57 | ENXJI01A ;;7848248
|
|---|
| 58 | ENXJI01B ;;8067832
|
|---|
| 59 | ENXJI01C ;;7982313
|
|---|
| 60 | ENXJI01D ;;8056481
|
|---|
| 61 | ENXJI01E ;;7970124
|
|---|
| 62 | ENXJI01F ;;8312556
|
|---|
| 63 | ENXJI01G ;;8179010
|
|---|
| 64 | ENXJI01H ;;8269429
|
|---|
| 65 | ENXJI01I ;;8052155
|
|---|
| 66 | ENXJI01J ;;8390051
|
|---|
| 67 | ENXJI01K ;;8457906
|
|---|
| 68 | ENXJI01L ;;7943054
|
|---|
| 69 | ENXJI01M ;;8187617
|
|---|
| 70 | ENXJI01N ;;8363958
|
|---|
| 71 | ENXJI01O ;;8436550
|
|---|
| 72 | ENXJI01P ;;8021669
|
|---|
| 73 | ENXJI01Q ;;7711492
|
|---|
| 74 | ENXJI01R ;;8396776
|
|---|
| 75 | ENXJI01S ;;8323150
|
|---|
| 76 | ENXJI01T ;;8036951
|
|---|
| 77 | ENXJI01U ;;8128276
|
|---|
| 78 | ENXJI01V ;;8275726
|
|---|
| 79 | ENXJI01W ;;8129400
|
|---|
| 80 | ENXJI01X ;;7913518
|
|---|
| 81 | ENXJI01Y ;;8203144
|
|---|
| 82 | ENXJI01Z ;;7870180
|
|---|
| 83 | ENXJI020 ;;8307528
|
|---|
| 84 | ENXJI021 ;;8069974
|
|---|
| 85 | ENXJI022 ;;7477285
|
|---|
| 86 | ENXJI023 ;;8007370
|
|---|
| 87 | ENXJI024 ;;7941676
|
|---|
| 88 | ENXJI025 ;;7896308
|
|---|
| 89 | ENXJI026 ;;7480678
|
|---|
| 90 | ENXJI027 ;;7731745
|
|---|
| 91 | ENXJI028 ;;8299463
|
|---|
| 92 | ENXJI029 ;;8108638
|
|---|
| 93 | ENXJI02A ;;8286303
|
|---|
| 94 | ENXJI02B ;;8546701
|
|---|
| 95 | ENXJI02C ;;8215908
|
|---|
| 96 | ENXJI02D ;;8075159
|
|---|
| 97 | ENXJI02E ;;8335781
|
|---|
| 98 | ENXJI02F ;;8349849
|
|---|
| 99 | ENXJI02G ;;7945444
|
|---|
| 100 | ENXJI02H ;;7427646
|
|---|
| 101 | ENXJI02I ;;8225123
|
|---|
| 102 | ENXJI02J ;;8138227
|
|---|
| 103 | ENXJI02K ;;7939930
|
|---|
| 104 | ENXJI02L ;;7997012
|
|---|
| 105 | ENXJI02M ;;7935136
|
|---|
| 106 | ENXJI02N ;;8307865
|
|---|
| 107 | ENXJI02O ;;8226616
|
|---|
| 108 | ENXJI02P ;;7979997
|
|---|
| 109 | ENXJI02Q ;;8488542
|
|---|
| 110 | ENXJI02R ;;8452020
|
|---|
| 111 | ENXJI02S ;;8201242
|
|---|
| 112 | ENXJI02T ;;8498821
|
|---|
| 113 | ENXJI02U ;;7926197
|
|---|
| 114 | ENXJI02V ;;8692377
|
|---|
| 115 | ENXJI02W ;;7916520
|
|---|
| 116 | ENXJI02X ;;7969373
|
|---|
| 117 | ENXJI02Y ;;8183535
|
|---|
| 118 | ENXJI02Z ;;7730032
|
|---|
| 119 | ENXJI030 ;;8250404
|
|---|
| 120 | ENXJI031 ;;8116848
|
|---|
| 121 | ENXJI032 ;;8230104
|
|---|
| 122 | ENXJI033 ;;8295878
|
|---|
| 123 | ENXJI034 ;;8322190
|
|---|
| 124 | ENXJI035 ;;8359227
|
|---|
| 125 | ENXJI036 ;;8400957
|
|---|
| 126 | ENXJI037 ;;8019033
|
|---|
| 127 | ENXJI038 ;;8084287
|
|---|
| 128 | ENXJI039 ;;7953462
|
|---|
| 129 | ENXJI03A ;;7945310
|
|---|
| 130 | ENXJI03B ;;8265465
|
|---|
| 131 | ENXJI03C ;;8253118
|
|---|
| 132 | ENXJI03D ;;8303903
|
|---|
| 133 | ENXJI03E ;;8126451
|
|---|
| 134 | ENXJI03F ;;8607341
|
|---|
| 135 | ENXJI03G ;;8840183
|
|---|
| 136 | ENXJI03H ;;8398680
|
|---|
| 137 | ENXJI03I ;;8377427
|
|---|
| 138 | ENXJI03J ;;8338952
|
|---|
| 139 | ENXJI03K ;;8501069
|
|---|
| 140 | ENXJI03L ;;8198715
|
|---|
| 141 | ENXJI03M ;;8107718
|
|---|
| 142 | ENXJI03N ;;8201029
|
|---|
| 143 | ENXJI03O ;;8534990
|
|---|
| 144 | ENXJI03P ;;8304605
|
|---|
| 145 | ENXJI03Q ;;8567177
|
|---|
| 146 | ENXJI03R ;;8238542
|
|---|
| 147 | ENXJI03S ;;8256490
|
|---|
| 148 | ENXJI03T ;;8169961
|
|---|
| 149 | ENXJI03U ;;8342040
|
|---|
| 150 | ENXJI03V ;;8266794
|
|---|
| 151 | ENXJI03W ;;8390358
|
|---|
| 152 | ENXJI03X ;;8041067
|
|---|
| 153 | ENXJI03Y ;;8225473
|
|---|
| 154 | ENXJI03Z ;;8076503
|
|---|
| 155 | ENXJI040 ;;8050820
|
|---|
| 156 | ENXJI041 ;;8289879
|
|---|
| 157 | ENXJI042 ;;8187421
|
|---|
| 158 | ENXJI043 ;;8132901
|
|---|
| 159 | ENXJI044 ;;8403796
|
|---|
| 160 | ENXJI045 ;;8360546
|
|---|
| 161 | ENXJI046 ;;8274746
|
|---|
| 162 | ENXJI047 ;;8033399
|
|---|
| 163 | ENXJI048 ;;8506728
|
|---|
