[628] | 1 | DGNTEG02 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:48:50
|
---|
| 2 | ;;5.3;Registration;;Aug 13, 1993
|
---|
| 3 | ;;7.0;AUG 13, 1993@12:48:50
|
---|
| 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^DGNTEG03
|
---|
| 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 | DGRP11 ;;8294458
|
---|
| 13 | DGRP12 ;;3878224
|
---|
| 14 | DGRP13 ;;4042382
|
---|
| 15 | DGRP14 ;;3414357
|
---|
| 16 | DGRP2 ;;5687059
|
---|
| 17 | DGRP3 ;;6045190
|
---|
| 18 | DGRP4 ;;6006447
|
---|
| 19 | DGRP5 ;;3651248
|
---|
| 20 | DGRP6 ;;12769961
|
---|
| 21 | DGRP7 ;;10164416
|
---|
| 22 | DGRP8 ;;9786787
|
---|
| 23 | DGRP9 ;;8611620
|
---|
| 24 | DGRPC ;;9490160
|
---|
| 25 | DGRPC1 ;;7285440
|
---|
| 26 | DGRPC2 ;;6788636
|
---|
| 27 | DGRPCB ;;10032754
|
---|
| 28 | DGRPCE ;;11950905
|
---|
| 29 | DGRPCE1 ;;2359715
|
---|
| 30 | DGRPCF ;;13054956
|
---|
| 31 | DGRPCF1 ;;5322740
|
---|
| 32 | DGRPCK ;;6781893
|
---|
| 33 | DGRPCP ;;6629895
|
---|
| 34 | DGRPCP1 ;;14708629
|
---|
| 35 | DGRPCR ;;13370363
|
---|
| 36 | DGRPCS ;;2207234
|
---|
| 37 | DGRPCU ;;7025466
|
---|
| 38 | DGRPD ;;18487072
|
---|
| 39 | DGRPDB ;;9197926
|
---|
| 40 | DGRPDD ;;180582
|
---|
| 41 | DGRPDD1 ;;18478647
|
---|
| 42 | DGRPE ;;17383383
|
---|
| 43 | DGRPE1 ;;3344769
|
---|
| 44 | DGRPEIS ;;8191344
|
---|
| 45 | DGRPEIS1 ;;13556361
|
---|
| 46 | DGRPEIS2 ;;11893137
|
---|
| 47 | DGRPH ;;19829950
|
---|
| 48 | DGRPP ;;9535796
|
---|
| 49 | DGRPP1 ;;3192660
|
---|
| 50 | DGRPU ;;5377007
|
---|
| 51 | DGRPU1 ;;1362026
|
---|
| 52 | DGRPV ;;8485976
|
---|
| 53 | DGRUG ;;9023592
|
---|
| 54 | DGRUG1 ;;16045481
|
---|
| 55 | DGRUG16 ;;10306836
|
---|
| 56 | DGRUGBGJ ;;11326839
|
---|
| 57 | DGRUGC ;;17107357
|
---|
| 58 | DGRUGC1 ;;9117879
|
---|
| 59 | DGRUGDR ;;12152536
|
---|
| 60 | DGRUGFY ;;5460196
|
---|
| 61 | DGRUGGR ;;4446753
|
---|
| 62 | DGRUGIX ;;19393192
|
---|
| 63 | DGRUGIX1 ;;12080525
|
---|
| 64 | DGRUGPI ;;8857351
|
---|
| 65 | DGRUGPP ;;8636321
|
---|
| 66 | DGRUGPP1 ;;16241252
|
---|
| 67 | DGRUGS ;;16239323
|
---|
| 68 | DGRUGSA ;;13168278
|
---|
| 69 | DGRUGTG ;;12003480
|
---|
| 70 | DGRUGV ;;16831058
|
---|
| 71 | DGRUGV16 ;;11568959
|
---|
| 72 | DGSCHAD ;;11855593
|
---|
| 73 | DGSCHAD1 ;;5279203
|
---|
| 74 | DGSCHAD2 ;;16582459
|
---|
| 75 | DGSCHAD3 ;;12873967
|
---|
| 76 | DGSEC ;;12027536
|
---|
| 77 | DGSEC1 ;;12952990
|
---|
| 78 | DGSEC2 ;;13301504
|
---|
| 79 | DGSEC3 ;;10468567
|
---|
| 80 | DGSILL ;;1170342
|
---|
| 81 | DGSTAT ;;13540071
|
---|
| 82 | DGSWITCH ;;4801176
|
---|
| 83 | DGTEMP ;;5715204
|
---|
| 84 | DGTSSET ;;5722826
|
---|
| 85 | DGUTL ;;10278535
|
---|
| 86 | DGUTL1 ;;4788876
|
---|
| 87 | DGUTL2 ;;2435936
|
---|
| 88 | DGUTQ ;;4355162
|
---|
| 89 | DGV53PP ;;937945
|
---|
| 90 | DGV53PP1 ;;10021088
|
---|
| 91 | DGV53PR ;;1184081
|
---|
| 92 | DGV53PT ;;7270084
|
---|
| 93 | DGV53PT1 ;;6052658
|
---|
| 94 | DGV53PT2 ;;4926374
|
---|
| 95 | DGV53PT3 ;;5358303
|
---|
| 96 | DGV53PT4 ;;7241372
|
---|
| 97 | DGV53PT5 ;;5954146
|
---|
| 98 | DGV53PT6 ;;5375205
|
---|
| 99 | DGV53PTA ;;6451369
|
---|
| 100 | DGV53PTB ;;12079323
|
---|
| 101 | DGV53PTC ;;9394754
|
---|
| 102 | DGV53PTE ;;3383899
|
---|
| 103 | DGV53PTI ;;15424312
|
---|
| 104 | DGV53PTS ;;7259153
|
---|
| 105 | DGVLT ;;9312675
|
---|
| 106 | DGVLT1 ;;9579567
|
---|
| 107 | DGVLT2 ;;10096823
|
---|
| 108 | DGVLT3 ;;18442
|
---|
| 109 | DGVPP ;;10598050
|
---|
| 110 | DGVPR ;;507647
|
---|
| 111 | DGVPR1 ;;4783856
|
---|
| 112 | DGVPT ;;7923401
|
---|
| 113 | DGVPT1 ;;10229318
|
---|
| 114 | DGVPT2 ;;5499296
|
---|
| 115 | DGVPT3 ;;4699681
|
---|
| 116 | DGVPTDV1 ;;5481697
|
---|
| 117 | DGVPTDV2 ;;1601036
|
---|
| 118 | DGVPTDV3 ;;4930494
|
---|
| 119 | DGVPTDV4 ;;2618970
|
---|
| 120 | DGVPTIB1 ;;7617714
|
---|
| 121 | DGVPTIB2 ;;12087500
|
---|
| 122 | DGVPTIB3 ;;2151696
|
---|
| 123 | DGVPTIB4 ;;994872
|
---|
| 124 | DGVPTIB5 ;;10220216
|
---|
| 125 | DGVPTIB6 ;;3753373
|
---|
| 126 | DGVREL ;;14267717
|
---|
| 127 | DGVREL1 ;;7176319
|
---|
| 128 | DGVREL2 ;;2872002
|
---|
| 129 | DGVREL3 ;;12383165
|
---|
| 130 | DGVREL4 ;;3695405
|
---|
| 131 | DGWAIT ;;10508645
|
---|
| 132 | DGWIN ;;2452439
|
---|
| 133 | DGYPREG ;;6374984
|
---|
| 134 | DGYPREG1 ;;10914894
|
---|
| 135 | DGYPREG2 ;;1774181
|
---|
| 136 | DGYPREG3 ;;1641824
|
---|
| 137 | DGYPREG4 ;;5887865
|
---|
| 138 | DGYPREG5 ;;3554814
|
---|
| 139 | DGYZODS ;;3383352
|
---|
| 140 | VACPT ;;638691
|
---|
| 141 | VADATE ;;5884810
|
---|
| 142 | VADPT ;;4275887
|
---|
| 143 | VADPT0 ;;3340074
|
---|
| 144 | VADPT1 ;;9482819
|
---|
| 145 | VADPT2 ;;7164844
|
---|
| 146 | VADPT3 ;;6362248
|
---|
| 147 | VADPT30 ;;8052693
|
---|
| 148 | VADPT31 ;;9090780
|
---|
| 149 | VADPT32 ;;2789771
|
---|
| 150 | VADPT4 ;;16234632
|
---|
| 151 | VADPT5 ;;14707739
|
---|
| 152 | VADPT6 ;;2486970
|
---|
| 153 | VADPT60 ;;9468124
|
---|
| 154 | VADPT61 ;;4347320
|
---|
| 155 | VADPT62 ;;8230515
|
---|
| 156 | VAFADDR ;;210594
|
---|
| 157 | VAFEDCAP ;;6832003
|
---|
| 158 | VAFEDG ;;9491142
|
---|
| 159 | VAFEDG1 ;;17677648
|
---|
| 160 | VAFEDOHL ;;5938878
|
---|
| 161 | VAFEDUTL ;;1765234
|
---|
| 162 | VAFHLFNC ;;2223766
|
---|
| 163 | VAFHLPID ;;5343968
|
---|
| 164 | VAFHLZCT ;;3460227
|
---|
| 165 | VAFHLZDP ;;1252517
|
---|
| 166 | VAFHLZEL ;;7009201
|
---|
| 167 | VAFHLZEM ;;4243653
|
---|
| 168 | VAFHLZGD ;;3072032
|
---|
| 169 | VAFHLZIC ;;6868384
|
---|
| 170 | VAFHLZMT ;;2818227
|
---|
| 171 | VAFHLZPD ;;6061838
|
---|
| 172 | VAFHLZTA ;;3013508
|
---|