[628] | 1 | DGNTEG0 ;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^DGNTEG01
|
---|
| 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 | DGMTSC2 ;;5491279
|
---|
| 13 | DGMTSC3 ;;2792118
|
---|
| 14 | DGMTSC31 ;;4589113
|
---|
| 15 | DGMTSC4 ;;5918350
|
---|
| 16 | DGMTSCC ;;11200411
|
---|
| 17 | DGMTSCR ;;7960982
|
---|
| 18 | DGMTSCU ;;3843068
|
---|
| 19 | DGMTSCU1 ;;390575
|
---|
| 20 | DGMTSCU2 ;;3506131
|
---|
| 21 | DGMTSCU3 ;;3657103
|
---|
| 22 | DGMTU ;;5758769
|
---|
| 23 | DGMTU1 ;;1509108
|
---|
| 24 | DGMTU11 ;;4562009
|
---|
| 25 | DGMTU2 ;;2157161
|
---|
| 26 | DGMTU21 ;;988994
|
---|
| 27 | DGMTU22 ;;5802580
|
---|
| 28 | DGMTU23 ;;6257318
|
---|
| 29 | DGMTUB ;;3480486
|
---|
| 30 | DGMTUTL ;;4377319
|
---|
| 31 | DGMTV ;;6491590
|
---|
| 32 | DGNOTE ;;1675967
|
---|
| 33 | DGOASIH ;;7905936
|
---|
| 34 | DGODASK ;;6832837
|
---|
| 35 | DGODCV ;;6455006
|
---|
| 36 | DGODDEL ;;6521525
|
---|
| 37 | DGODMT ;;6703636
|
---|
| 38 | DGODNP1 ;;13382969
|
---|
| 39 | DGODNP2 ;;17154391
|
---|
| 40 | DGODNSM ;;10616515
|
---|
| 41 | DGODNSM1 ;;6157652
|
---|
| 42 | DGODOP1 ;;13382348
|
---|
| 43 | DGODOP2 ;;14178312
|
---|
| 44 | DGODOSM ;;10913759
|
---|
| 45 | DGODOSM1 ;;5878965
|
---|
| 46 | DGODTOT ;;12665233
|
---|
| 47 | DGODUTL ;;11335841
|
---|
| 48 | DGOERNOT ;;3639352
|
---|
| 49 | DGOIL ;;14120935
|
---|
| 50 | DGOIL1 ;;5434253
|
---|
| 51 | DGOIL2 ;;9855146
|
---|
| 52 | DGOIL3 ;;1864519
|
---|
| 53 | DGOINPT ;;9811683
|
---|
| 54 | DGOINPT1 ;;12046123
|
---|
| 55 | DGOINS ;;9275780
|
---|
| 56 | DGOINS1 ;;17284104
|
---|
| 57 | DGONI001 ;;8955903
|
---|
| 58 | DGONI002 ;;9117011
|
---|
| 59 | DGONI003 ;;7330922
|
---|
| 60 | DGONI004 ;;7270205
|
---|
| 61 | DGONI005 ;;6744760
|
---|
| 62 | DGONI006 ;;6851829
|
---|
| 63 | DGONI007 ;;7400783
|
---|
| 64 | DGONI008 ;;6681610
|
---|
| 65 | DGONI009 ;;3184498
|
---|
| 66 | DGONIT ;;974623
|
---|
| 67 | DGONIT1 ;;1681972
|
---|
| 68 | DGONIT2 ;;82261
|
---|
| 69 | DGONIT3 ;;10576022
|
---|
| 70 | DGOPATM ;;9163250
|
---|
| 71 | DGOREL ;;12901865
|
---|
| 72 | DGOREL1 ;;15725750
|
---|
| 73 | DGOVBC ;;12222252
|
---|
| 74 | DGOVBC1 ;;16856594
|
---|
| 75 | DGOVBC2 ;;10667539
|
---|
| 76 | DGPAR ;;12599208
|
---|
| 77 | DGPAR1 ;;15140011
|
---|
| 78 | DGPAR2 ;;1164900
|
---|
| 79 | DGPASS ;;12948536
|
---|
| 80 | DGPATN ;;3746887
|
---|
| 81 | DGPATV ;;2775189
|
---|
| 82 | DGPMBSAB ;;2469727
|
---|
| 83 | DGPMBSAR ;;6455372
|
---|
| 84 | DGPMBSG ;;5833205
|
---|
| 85 | DGPMBSG1 ;;3093169
|
---|
| 86 | DGPMBSG2 ;;12159995
|
---|
| 87 | DGPMBSG3 ;;7575486
|
---|
| 88 | DGPMBSP ;;2948851
|
---|
| 89 | DGPMBSP1 ;;12290347
|
---|
| 90 | DGPMBSP2 ;;12013509
|
---|
| 91 | DGPMBSP3 ;;7070833
|
---|
| 92 | DGPMBSP4 ;;4498379
|
---|
| 93 | DGPMBSP5 ;;3236309
|
---|
| 94 | DGPMBSP6 ;;3000471
|
---|
| 95 | DGPMBSR ;;5326316
|
---|
| 96 | DGPMBSR1 ;;7809978
|
---|
| 97 | DGPMBSR2 ;;4498773
|
---|
| 98 | DGPMBSR3 ;;9503294
|
---|
| 99 | DGPMBSR4 ;;7335226
|
---|
| 100 | DGPMDD ;;1371660
|
---|
| 101 | DGPMDD1 ;;4163615
|
---|
| 102 | DGPMDD2 ;;5117501
|
---|
| 103 | DGPMDDCF ;;2709089
|
---|
| 104 | DGPMDDCN ;;7510882
|
---|
| 105 | DGPMDDLD ;;5897493
|
---|
| 106 | DGPMDDOS ;;15227313
|
---|
| 107 | DGPMDDRB ;;2515339
|
---|
| 108 | DGPMDEF ;;13745743
|
---|
| 109 | DGPMEVT ;;1318191
|
---|
| 110 | DGPMEX ;;8735578
|
---|
| 111 | DGPMGL ;;11885908
|
---|
| 112 | DGPMGL1 ;;10850663
|
---|
| 113 | DGPMGL2 ;;4802014
|
---|
| 114 | DGPMGL5 ;;3750408
|
---|
| 115 | DGPMGL51 ;;11000768
|
---|
| 116 | DGPMGLC ;;12376747
|
---|
| 117 | DGPMGLG ;;7786725
|
---|
| 118 | DGPMGLG1 ;;2954608
|
---|
| 119 | DGPMGLG2 ;;15832435
|
---|
| 120 | DGPMGLG3 ;;12575149
|
---|
| 121 | DGPMGLP ;;11310279
|
---|
| 122 | DGPMGLP1 ;;8991521
|
---|
| 123 | DGPMHST ;;3205848
|
---|
| 124 | DGPMLOS ;;4210303
|
---|
| 125 | DGPMOLD ;;3719927
|
---|
| 126 | DGPMOLD1 ;;13905130
|
---|
| 127 | DGPMRB ;;10705978
|
---|
| 128 | DGPMRBA ;;14216646
|
---|
| 129 | DGPMRBA1 ;;8190867
|
---|
| 130 | DGPMSTAT ;;3902677
|
---|
| 131 | DGPMTS ;;2013889
|
---|
| 132 | DGPMTSI ;;7834777
|
---|
| 133 | DGPMTSI1 ;;3193580
|
---|
| 134 | DGPMTSI2 ;;8704798
|
---|
| 135 | DGPMTSO ;;1679095
|
---|
| 136 | DGPMTSO1 ;;12104367
|
---|
| 137 | DGPMTSO2 ;;12264254
|
---|
| 138 | DGPMTSO3 ;;10945522
|
---|
| 139 | DGPMTSR ;;7428169
|
---|
| 140 | DGPMTSR1 ;;5877231
|
---|
| 141 | DGPMTSR2 ;;6231618
|
---|
| 142 | DGPMUTL ;;2618336
|
---|
| 143 | DGPMV ;;9721404
|
---|
| 144 | DGPMV0 ;;1798732
|
---|
| 145 | DGPMV1 ;;8563904
|
---|
| 146 | DGPMV10 ;;15444384
|
---|
| 147 | DGPMV2 ;;12450697
|
---|
| 148 | DGPMV20 ;;10234963
|
---|
| 149 | DGPMV21 ;;13594373
|
---|
| 150 | DGPMV22 ;;4988232
|
---|
| 151 | DGPMV3 ;;16912219
|
---|
| 152 | DGPMV30 ;;17093330
|
---|
| 153 | DGPMV300 ;;3098446
|
---|
| 154 | DGPMV31 ;;12582313
|
---|
| 155 | DGPMV32 ;;12615866
|
---|
| 156 | DGPMV321 ;;12839930
|
---|
| 157 | DGPMV322 ;;2401635
|
---|
| 158 | DGPMV33 ;;9363079
|
---|
| 159 | DGPMV331 ;;11471512
|
---|
| 160 | DGPMV35 ;;1138781
|
---|
| 161 | DGPMV36 ;;6369023
|
---|
| 162 | DGPMVBM ;;6277394
|
---|
| 163 | DGPMVBUL ;;8954409
|
---|
| 164 | DGPMVBUR ;;6699911
|
---|
| 165 | DGPMVDD ;;8266103
|
---|
| 166 | DGPMVDL ;;11773733
|
---|
| 167 | DGPMVDL1 ;;13419849
|
---|
| 168 | DGPMVODS ;;3078835
|
---|