[628] | 1 | DGNTEG ;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^DGNTEG0
|
---|
| 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 | DG10 ;;3836495
|
---|
| 13 | DG1010P ;;11459541
|
---|
| 14 | DG1010P0 ;;1314346
|
---|
| 15 | DG1010P1 ;;13799216
|
---|
| 16 | DG1010P2 ;;8453869
|
---|
| 17 | DG1010P3 ;;6164680
|
---|
| 18 | DG1010P4 ;;7181713
|
---|
| 19 | DG1010P5 ;;7501466
|
---|
| 20 | DG1010P6 ;;10096482
|
---|
| 21 | DG1010P7 ;;13314650
|
---|
| 22 | DG1010PA ;;4613202
|
---|
| 23 | DG1010PX ;;7715973
|
---|
| 24 | DG1010S1 ;;23821127
|
---|
| 25 | DG1010S2 ;;18364748
|
---|
| 26 | DG3PR ;;3021030
|
---|
| 27 | DG3PR0 ;;6620629
|
---|
| 28 | DG3PR1 ;;4522534
|
---|
| 29 | DG3PR2 ;;11690252
|
---|
| 30 | DGA400 ;;12138168
|
---|
| 31 | DGA4001 ;;16056644
|
---|
| 32 | DGA4002 ;;9301892
|
---|
| 33 | DGA4003 ;;7761246
|
---|
| 34 | DGA4004 ;;11609708
|
---|
| 35 | DGA4005 ;;17691249
|
---|
| 36 | DGA4006 ;;5787106
|
---|
| 37 | DGA4007 ;;2042305
|
---|
| 38 | DGABUL ;;7538472
|
---|
| 39 | DGAINP ;;3795864
|
---|
| 40 | DGAINP0 ;;7178330
|
---|
| 41 | DGAINP1 ;;9244036
|
---|
| 42 | DGAINP2 ;;8100096
|
---|
| 43 | DGAINP3 ;;2633278
|
---|
| 44 | DGAINP4 ;;8344622
|
---|
| 45 | DGANHD ;;3864476
|
---|
| 46 | DGANHD1 ;;7585149
|
---|
| 47 | DGANHD2 ;;4831283
|
---|
| 48 | DGANHD3 ;;1806372
|
---|
| 49 | DGANHD4 ;;6162588
|
---|
| 50 | DGBLRV ;;14119050
|
---|
| 51 | DGBT1 ;;7665616
|
---|
| 52 | DGBT2 ;;13095836
|
---|
| 53 | DGBTCD ;;13711638
|
---|
| 54 | DGBTCE ;;14849061
|
---|
| 55 | DGBTCE1 ;;5419607
|
---|
| 56 | DGBTCR ;;12532420
|
---|
| 57 | DGBTCR1 ;;8137574
|
---|
| 58 | DGBTCR2 ;;12956592
|
---|
| 59 | DGBTDIST ;;8481729
|
---|
| 60 | DGBTDST1 ;;2237098
|
---|
| 61 | DGBTE ;;8229618
|
---|
| 62 | DGBTE1 ;;8595661
|
---|
| 63 | DGBTE1A ;;6549070
|
---|
| 64 | DGBTEE ;;8216263
|
---|
| 65 | DGBTEE1 ;;11274715
|
---|
| 66 | DGBTEE2 ;;8101499
|
---|
| 67 | DGBTEF ;;15591466
|
---|
| 68 | DGBTEF1 ;;9005391
|
---|
| 69 | DGBTEND ;;12602292
|
---|
| 70 | DGBTOA1 ;;14177005
|
---|
| 71 | DGBTOA2 ;;11981540
|
---|
| 72 | DGBTOA3 ;;15389059
|
---|
| 73 | DGBTOA4 ;;15019918
|
---|
| 74 | DGBTOA5 ;;3360676
|
---|
| 75 | DGBTOA6 ;;9057573
|
---|
| 76 | DGBTR ;;9324442
|
---|
| 77 | DGBTSRCH ;;10574383
|
---|
| 78 | DGBTUTL ;;1356611
|
---|
| 79 | DGBUL ;;3656478
|
---|
| 80 | DGCOL ;;16970132
|
---|
| 81 | DGDDC ;;4818017
|
---|
| 82 | DGDEATH ;;12272750
|
---|
| 83 | DGDIS ;;14257393
|
---|
| 84 | DGDIS1 ;;5675861
|
---|
| 85 | DGDISPL ;;6977062
|
---|
| 86 | DGDISS ;;9364260
|
---|
| 87 | DGDIST ;;19344355
|
---|
| 88 | DGDIST1 ;;10706514
|
---|
| 89 | DGFI ;;3262670
|
---|
| 90 | DGGECS ;;16847352
|
---|
| 91 | DGGECSA ;;2782718
|
---|
| 92 | DGGECSB ;;6164870
|
---|
| 93 | DGGECSR ;;2816305
|
---|
| 94 | DGHELP ;;3815305
|
---|
| 95 | DGIN ;;50292
|
---|
| 96 | DGINP ;;180432
|
---|
| 97 | DGINPW ;;101051
|
---|
| 98 | DGINS ;;6190318
|
---|
| 99 | DGJBGJ ;;17066760
|
---|
| 100 | DGJBGJ1 ;;1611260
|
---|
| 101 | DGJOPRT ;;7505571
|
---|
| 102 | DGJOPRT1 ;;17207598
|
---|
| 103 | DGJOPRT2 ;;17870325
|
---|
| 104 | DGJOPRT3 ;;12022896
|
---|
| 105 | DGJOTP ;;12136251
|
---|
| 106 | DGJOTP1 ;;21753407
|
---|
| 107 | DGJOTP2 ;;12005300
|
---|
| 108 | DGJOTP3 ;;16818289
|
---|
| 109 | DGJOTPUL ;;9915514
|
---|
| 110 | DGJPAR ;;186014
|
---|
| 111 | DGJPAR1 ;;14281443
|
---|
| 112 | DGJPDEF ;;13686744
|
---|
| 113 | DGJPDEF1 ;;20529386
|
---|
| 114 | DGJPDEF2 ;;17990744
|
---|
| 115 | DGJPDEF3 ;;16274892
|
---|
| 116 | DGJSUM ;;7945437
|
---|
| 117 | DGJTADD ;;2567747
|
---|
| 118 | DGJTDEL ;;4511597
|
---|
| 119 | DGJTEE ;;19163376
|
---|
| 120 | DGJTEE1 ;;12664333
|
---|
| 121 | DGJTEE2 ;;12267113
|
---|
| 122 | DGJTEE3 ;;14306643
|
---|
| 123 | DGJTEVT ;;11368122
|
---|
| 124 | DGJTHLP ;;8474910
|
---|
| 125 | DGJTUDIS ;;4651950
|
---|
| 126 | DGJTUTL ;;16684941
|
---|
| 127 | DGJTVW ;;5612957
|
---|
| 128 | DGJTVW1 ;;17594153
|
---|
| 129 | DGJTVW2 ;;8809719
|
---|
| 130 | DGJTVW3 ;;12907948
|
---|
| 131 | DGL ;;133046
|
---|
| 132 | DGLOCK ;;15547998
|
---|
| 133 | DGLOCK1 ;;13313898
|
---|
| 134 | DGLOCK2 ;;11670599
|
---|
| 135 | DGLOCK3 ;;1575192
|
---|
| 136 | DGMTA ;;9764937
|
---|
| 137 | DGMTAUD ;;9480441
|
---|
| 138 | DGMTAUD1 ;;188063
|
---|
| 139 | DGMTCOM ;;1549753
|
---|
| 140 | DGMTCOR ;;5288938
|
---|
| 141 | DGMTCOST ;;985361
|
---|
| 142 | DGMTCOU ;;2047092
|
---|
| 143 | DGMTCOU1 ;;3669588
|
---|
| 144 | DGMTDD ;;5296793
|
---|
| 145 | DGMTDD1 ;;1993635
|
---|
| 146 | DGMTDD2 ;;11706743
|
---|
| 147 | DGMTDD3 ;;8997689
|
---|
| 148 | DGMTDEL ;;9696857
|
---|
| 149 | DGMTDOM ;;363545
|
---|
| 150 | DGMTE ;;2602899
|
---|
| 151 | DGMTEO ;;3308362
|
---|
| 152 | DGMTEVT ;;390130
|
---|
| 153 | DGMTLK ;;501521
|
---|
| 154 | DGMTM ;;1630681
|
---|
| 155 | DGMTO ;;1612143
|
---|
| 156 | DGMTO1 ;;6287338
|
---|
| 157 | DGMTOFA ;;8112978
|
---|
| 158 | DGMTOFA1 ;;6841238
|
---|
| 159 | DGMTOHD ;;2657432
|
---|
| 160 | DGMTOPYT ;;3986408
|
---|
| 161 | DGMTOREQ ;;7724748
|
---|
| 162 | DGMTP ;;5245412
|
---|
| 163 | DGMTP1 ;;10428870
|
---|
| 164 | DGMTP2 ;;13975368
|
---|
| 165 | DGMTP3 ;;15675663
|
---|
| 166 | DGMTP4 ;;12233970
|
---|
| 167 | DGMTR ;;4475685
|
---|
| 168 | DGMTREQB ;;2563172
|
---|
| 169 | DGMTSC ;;3182358
|
---|
| 170 | DGMTSC1 ;;4640864
|
---|
| 171 | DGMTSC11 ;;4595279
|
---|