| 1 | DVBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 25, 1992@09:51:03
|
|---|
| 2 | ;;V4.0;HINQ;;03/25/92
|
|---|
| 3 | ;;6.5;MAR 25, 1992@09:51:03
|
|---|
| 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 "_Y_", off by "_(Y-XT3),1:"ok")
|
|---|
| 6 | ;
|
|---|
| 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 | DVBHDBA1 ;;3618906
|
|---|
| 13 | DVBHDBA2 ;;2952132
|
|---|
| 14 | DVBHDBA3 ;;3226832
|
|---|
| 15 | DVBHDBA4 ;;3623191
|
|---|
| 16 | DVBHDBA5 ;;2638381
|
|---|
| 17 | DVBHDBA6 ;;2983861
|
|---|
| 18 | DVBHDBA7 ;;3157275
|
|---|
| 19 | DVBHDBA8 ;;2379352
|
|---|
| 20 | DVBHDBA9 ;;4387903
|
|---|
| 21 | DVBHDBAA ;;1743065
|
|---|
| 22 | DVBHDBAB ;;1007422
|
|---|
| 23 | DVBHDEL ;;897481
|
|---|
| 24 | DVBHIQD ;;6668555
|
|---|
| 25 | DVBHIQM ;;14601698
|
|---|
| 26 | DVBHIQR ;;6262333
|
|---|
| 27 | DVBHPOST ;;8232971
|
|---|
| 28 | DVBHPRE ;;1783258
|
|---|
| 29 | DVBHQAT ;;6537951
|
|---|
| 30 | DVBHQD1 ;;9640742
|
|---|
| 31 | DVBHQDB ;;12297023
|
|---|
| 32 | DVBHQDE ;;7853833
|
|---|
| 33 | DVBHQDL ;;7212620
|
|---|
| 34 | DVBHQDX ;;11822890
|
|---|
| 35 | DVBHQEDT ;;13716602
|
|---|
| 36 | DVBHQM1 ;;14464580
|
|---|
| 37 | DVBHQM11 ;;8434097
|
|---|
| 38 | DVBHQM12 ;;10375860
|
|---|
| 39 | DVBHQM13 ;;8390107
|
|---|
| 40 | DVBHQM2 ;;20560819
|
|---|
| 41 | DVBHQM3 ;;10338804
|
|---|
| 42 | DVBHQM31 ;;10632399
|
|---|
| 43 | DVBHQM4 ;;4686028
|
|---|
| 44 | DVBHQPU ;;5121294
|
|---|
| 45 | DVBHQR1 ;;8418660
|
|---|
| 46 | DVBHQR11 ;;9734929
|
|---|
| 47 | DVBHQR12 ;;5377832
|
|---|
| 48 | DVBHQR13 ;;6852554
|
|---|
| 49 | DVBHQR2 ;;8333922
|
|---|
| 50 | DVBHQR3 ;;3726649
|
|---|
| 51 | DVBHQREC ;;5084413
|
|---|
| 52 | DVBHQSE ;;7445429
|
|---|
| 53 | DVBHQST ;;9098525
|
|---|
| 54 | DVBHQTM ;;5113401
|
|---|
| 55 | DVBHQUE ;;5073709
|
|---|
| 56 | DVBHQUP ;;14368940
|
|---|
| 57 | DVBHQUS ;;8079833
|
|---|
| 58 | DVBHQUT ;;5248596
|
|---|
| 59 | DVBHQZ4 ;;7509870
|
|---|
| 60 | DVBHQZ6 ;;15543725
|
|---|
| 61 | DVBHS1 ;;1475623
|
|---|
| 62 | DVBHS2 ;;5333780
|
|---|
| 63 | DVBHS3 ;;3559998
|
|---|
| 64 | DVBHS4 ;;3428933
|
|---|
| 65 | DVBHS5 ;;5250790
|
|---|
| 66 | DVBHS6 ;;2642453
|
|---|
| 67 | DVBHSVER ;;9181903
|
|---|
| 68 | DVBHUTIL ;;9342310
|
|---|
| 69 | DVBIN001 ;;3365243
|
|---|
| 70 | DVBIN002 ;;7692550
|
|---|
| 71 | DVBIN003 ;;8342131
|
|---|
| 72 | DVBIN004 ;;7515245
|
|---|
| 73 | DVBIN005 ;;8055497
|
|---|
| 74 | DVBIN006 ;;1873787
|
|---|
| 75 | DVBIN007 ;;5620543
|
|---|
| 76 | DVBIN008 ;;3206607
|
|---|
| 77 | DVBIN009 ;;1945140
|
|---|
| 78 | DVBIN010 ;;4778571
|
|---|
| 79 | DVBIN011 ;;1853448
|
|---|
| 80 | DVBIN012 ;;8631962
|
|---|
| 81 | DVBIN013 ;;8173229
|
|---|
| 82 | DVBIN014 ;;1834275
|
|---|
| 83 | DVBIN015 ;;12053863
|
|---|
| 84 | DVBIN016 ;;846224
|
|---|
| 85 | DVBIN017 ;;6294373
|
|---|
| 86 | DVBIN018 ;;5747007
|
|---|
| 87 | DVBIN019 ;;1688944
|
|---|
| 88 | DVBIN020 ;;5726405
|
|---|
| 89 | DVBIN021 ;;16129315
|
|---|
| 90 | DVBIN022 ;;18992446
|
|---|
| 91 | DVBIN023 ;;16173038
|
|---|
| 92 | DVBIN024 ;;11261813
|
|---|
| 93 | DVBIN025 ;;13300498
|
|---|
| 94 | DVBIN026 ;;9085088
|
|---|
| 95 | DVBIN027 ;;7015511
|
|---|
| 96 | DVBIN028 ;;6373764
|
|---|
| 97 | DVBIN029 ;;6253702
|
|---|
| 98 | DVBIN030 ;;6828524
|
|---|
| 99 | DVBIN031 ;;6571483
|
|---|
| 100 | DVBIN032 ;;5575661
|
|---|
| 101 | DVBIN033 ;;3867268
|
|---|
| 102 | DVBINIT ;;9249472
|
|---|
| 103 | DVBINIT0 ;;990418
|
|---|
| 104 | DVBINIT1 ;;5414976
|
|---|
| 105 | DVBINIT2 ;;4338405
|
|---|
| 106 | DVBINIT3 ;;10014702
|
|---|
