[628] | 1 | DGNTEG01 ;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^DGNTEG02
|
---|
| 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 | DGPT101 ;;5907818
|
---|
| 13 | DGPT101P ;;3798684
|
---|
| 14 | DGPT10CB ;;1729817
|
---|
| 15 | DGPT10S1 ;;3094591
|
---|
| 16 | DGPT401 ;;5591382
|
---|
| 17 | DGPT501 ;;5260058
|
---|
| 18 | DGPT501P ;;3264888
|
---|
| 19 | DGPT50DI ;;2517717
|
---|
| 20 | DGPT50MS ;;2873112
|
---|
| 21 | DGPT535 ;;4142601
|
---|
| 22 | DGPT601 ;;7292814
|
---|
| 23 | DGPT60PR ;;1981670
|
---|
| 24 | DGPT701 ;;5282484
|
---|
| 25 | DGPT701P ;;2717219
|
---|
| 26 | DGPT702 ;;2080928
|
---|
| 27 | DGPT70DI ;;4404595
|
---|
| 28 | DGPT70DX ;;1522145
|
---|
| 29 | DGPTAE ;;7133682
|
---|
| 30 | DGPTAE01 ;;2981200
|
---|
| 31 | DGPTAE02 ;;5283812
|
---|
| 32 | DGPTAE03 ;;4610359
|
---|
| 33 | DGPTAE04 ;;2501495
|
---|
| 34 | DGPTAEE ;;4527426
|
---|
| 35 | DGPTAEE1 ;;10933098
|
---|
| 36 | DGPTAEE2 ;;8130188
|
---|
| 37 | DGPTAPA ;;3668483
|
---|
| 38 | DGPTAPA1 ;;2058101
|
---|
| 39 | DGPTAPA2 ;;3180242
|
---|
| 40 | DGPTAPA3 ;;1924386
|
---|
| 41 | DGPTAPA4 ;;7077869
|
---|
| 42 | DGPTAPP ;;1806977
|
---|
| 43 | DGPTAPP1 ;;1210249
|
---|
| 44 | DGPTAPSL ;;4997510
|
---|
| 45 | DGPTBE1 ;;19023447
|
---|
| 46 | DGPTBE2 ;;1835542
|
---|
| 47 | DGPTBEP ;;2267056
|
---|
| 48 | DGPTC ;;4801976
|
---|
| 49 | DGPTC1 ;;6075172
|
---|
| 50 | DGPTC2 ;;4499759
|
---|
| 51 | DGPTCO ;;882556
|
---|
| 52 | DGPTCO1 ;;5235526
|
---|
| 53 | DGPTCO2 ;;2096649
|
---|
| 54 | DGPTCR ;;9155987
|
---|
| 55 | DGPTCR1 ;;1454932
|
---|
| 56 | DGPTDRG ;;16922377
|
---|
| 57 | DGPTEXPR ;;411240
|
---|
| 58 | DGPTF ;;11140333
|
---|
| 59 | DGPTF099 ;;7885730
|
---|
| 60 | DGPTF09X ;;5455949
|
---|
| 61 | DGPTF1 ;;12620270
|
---|
| 62 | DGPTF2 ;;9722630
|
---|
| 63 | DGPTF4 ;;12842059
|
---|
| 64 | DGPTF41 ;;5073903
|
---|
| 65 | DGPTF5 ;;1141375
|
---|
| 66 | DGPTFCR ;;2856214
|
---|
| 67 | DGPTFD ;;7582771
|
---|
| 68 | DGPTFDEL ;;9517561
|
---|
| 69 | DGPTFFB ;;4903981
|
---|
| 70 | DGPTFIC ;;16299987
|
---|
| 71 | DGPTFJ ;;3694269
|
---|
| 72 | DGPTFJC ;;14917912
|
---|
| 73 | DGPTFM ;;15913403
|
---|
| 74 | DGPTFM0 ;;7287940
|
---|
| 75 | DGPTFM1 ;;10416822
|
---|
| 76 | DGPTFM1A ;;6717226
|
---|
| 77 | DGPTFM4 ;;14737446
|
---|
| 78 | DGPTFM5 ;;9123774
|
---|
| 79 | DGPTFM6 ;;13703468
|
---|
| 80 | DGPTFM7 ;;10979946
|
---|
| 81 | DGPTFM71 ;;3602514
|
---|
| 82 | DGPTFM8 ;;6077252
|
---|
| 83 | DGPTFMO ;;13407855
|
---|
| 84 | DGPTFMO1 ;;2034296
|
---|
| 85 | DGPTFOU ;;10424039
|
---|
| 86 | DGPTFQWK ;;4488650
|
---|
| 87 | DGPTFREL ;;5862675
|
---|
| 88 | DGPTFTR ;;9360869
|
---|
| 89 | DGPTFTR0 ;;8604225
|
---|
| 90 | DGPTFTR1 ;;13978628
|
---|
| 91 | DGPTFTR2 ;;9164992
|
---|
| 92 | DGPTFTR3 ;;9189207
|
---|
| 93 | DGPTFUP ;;9063283
|
---|
| 94 | DGPTFVC ;;2899739
|
---|
| 95 | DGPTFVC1 ;;15576437
|
---|
| 96 | DGPTFVC2 ;;3752572
|
---|
| 97 | DGPTFVC3 ;;5311979
|
---|
| 98 | DGPTICD ;;2389303
|
---|
| 99 | DGPTLMU1 ;;5302089
|
---|
| 100 | DGPTLMU2 ;;2608185
|
---|
| 101 | DGPTLMU3 ;;3024014
|
---|
| 102 | DGPTLMU4 ;;6778410
|
---|
| 103 | DGPTLMU5 ;;5680133
|
---|
| 104 | DGPTLMU6 ;;3759937
|
---|
| 105 | DGPTMOVE ;;18877814
|
---|
| 106 | DGPTMSG ;;12017144
|
---|
| 107 | DGPTMSG1 ;;3261790
|
---|
| 108 | DGPTMSGD ;;9430949
|
---|
| 109 | DGPTOD0 ;;19162109
|
---|
| 110 | DGPTOD1 ;;11029540
|
---|
| 111 | DGPTOD2 ;;14228151
|
---|
| 112 | DGPTOD3 ;;2871705
|
---|
| 113 | DGPTODA1 ;;14742631
|
---|
| 114 | DGPTODA2 ;;16102699
|
---|
| 115 | DGPTODB1 ;;14395071
|
---|
| 116 | DGPTODB2 ;;15732396
|
---|
| 117 | DGPTODF1 ;;14514216
|
---|
| 118 | DGPTODF2 ;;11051070
|
---|
| 119 | DGPTODI1 ;;17300458
|
---|
| 120 | DGPTODI2 ;;12886426
|
---|
| 121 | DGPTODI3 ;;16720767
|
---|
| 122 | DGPTODI4 ;;9696951
|
---|
| 123 | DGPTODR ;;4646557
|
---|
| 124 | DGPTODT1 ;;16541531
|
---|
| 125 | DGPTODT2 ;;11974266
|
---|
| 126 | DGPTOLC1 ;;4324462
|
---|
| 127 | DGPTOLC2 ;;17186117
|
---|
| 128 | DGPTOM1 ;;7629724
|
---|
| 129 | DGPTOM2 ;;15224903
|
---|
| 130 | DGPTOOL ;;566787
|
---|
| 131 | DGPTOTRL ;;13755835
|
---|
| 132 | DGPTR0 ;;8651144
|
---|
| 133 | DGPTR1 ;;15817363
|
---|
| 134 | DGPTR2 ;;8727510
|
---|
| 135 | DGPTR3 ;;2339687
|
---|
| 136 | DGPTR4 ;;4549097
|
---|
| 137 | DGPTRAM ;;1116833
|
---|
| 138 | DGPTRPO ;;9666225
|
---|
| 139 | DGPTRPP ;;7433732
|
---|
| 140 | DGPTSC01 ;;4070681
|
---|
| 141 | DGPTSCAN ;;6356675
|
---|
| 142 | DGPTSPQ ;;1563488
|
---|
| 143 | DGPTSUD1 ;;4459855
|
---|
| 144 | DGPTSUDO ;;11745732
|
---|
| 145 | DGPTTRIM ;;2747468
|
---|
| 146 | DGPTTS ;;11059200
|
---|
| 147 | DGPTTS0 ;;1798741
|
---|
| 148 | DGPTTS1 ;;16571126
|
---|
| 149 | DGPTTS2 ;;9851736
|
---|
| 150 | DGPTTS3 ;;10800315
|
---|
| 151 | DGPTUTL ;;7801401
|
---|
| 152 | DGPTUTL1 ;;7565068
|
---|
| 153 | DGQEMA ;;7098669
|
---|
| 154 | DGQEMA1 ;;8356696
|
---|
| 155 | DGQEMP ;;6074288
|
---|
| 156 | DGQEMPS ;;978157
|
---|
| 157 | DGREG ;;18978133
|
---|
| 158 | DGREG0 ;;9179398
|
---|
| 159 | DGREG00 ;;8411293
|
---|
| 160 | DGREGDD ;;117402
|
---|
| 161 | DGREGDD1 ;;2633914
|
---|
| 162 | DGREGDEL ;;2900374
|
---|
| 163 | DGREGE ;;10119241
|
---|
| 164 | DGREGG ;;3864793
|
---|
| 165 | DGRP ;;1060986
|
---|
| 166 | DGRP1 ;;10291468
|
---|
| 167 | DGRP10 ;;5397853
|
---|