DVBNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;MAR 25, 1992@09:51:03
 ;;V4.0;HINQ;;03/25/92 
 ;;6.5;MAR 25, 1992@09:51:03
 S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
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")
 ;
 K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
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),!
 W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
 W ! G CONT
ROU ;;
DVBHDBA1 ;;3618906
DVBHDBA2 ;;2952132
DVBHDBA3 ;;3226832
DVBHDBA4 ;;3623191
DVBHDBA5 ;;2638381
DVBHDBA6 ;;2983861
DVBHDBA7 ;;3157275
DVBHDBA8 ;;2379352
DVBHDBA9 ;;4387903
DVBHDBAA ;;1743065
DVBHDBAB ;;1007422
DVBHDEL ;;897481
DVBHIQD ;;6668555
DVBHIQM ;;14601698
DVBHIQR ;;6262333
DVBHPOST ;;8232971
DVBHPRE ;;1783258
DVBHQAT ;;6537951
DVBHQD1 ;;9640742
DVBHQDB ;;12297023
DVBHQDE ;;7853833
DVBHQDL ;;7212620
DVBHQDX ;;11822890
DVBHQEDT ;;13716602
DVBHQM1 ;;14464580
DVBHQM11 ;;8434097
DVBHQM12 ;;10375860
DVBHQM13 ;;8390107
DVBHQM2 ;;20560819
DVBHQM3 ;;10338804
DVBHQM31 ;;10632399
DVBHQM4 ;;4686028
DVBHQPU ;;5121294
DVBHQR1 ;;8418660
DVBHQR11 ;;9734929
DVBHQR12 ;;5377832
DVBHQR13 ;;6852554
DVBHQR2 ;;8333922
DVBHQR3 ;;3726649
DVBHQREC ;;5084413
DVBHQSE ;;7445429
DVBHQST ;;9098525
DVBHQTM ;;5113401
DVBHQUE ;;5073709
DVBHQUP ;;14368940
DVBHQUS ;;8079833
DVBHQUT ;;5248596
DVBHQZ4 ;;7509870
DVBHQZ6 ;;15543725
DVBHS1 ;;1475623
DVBHS2 ;;5333780
DVBHS3 ;;3559998
DVBHS4 ;;3428933
DVBHS5 ;;5250790
DVBHS6 ;;2642453
DVBHSVER ;;9181903
DVBHUTIL ;;9342310
DVBIN001 ;;3365243
DVBIN002 ;;7692550
DVBIN003 ;;8342131
DVBIN004 ;;7515245
DVBIN005 ;;8055497
DVBIN006 ;;1873787
DVBIN007 ;;5620543
DVBIN008 ;;3206607
DVBIN009 ;;1945140
DVBIN010 ;;4778571
DVBIN011 ;;1853448
DVBIN012 ;;8631962
DVBIN013 ;;8173229
DVBIN014 ;;1834275
DVBIN015 ;;12053863
DVBIN016 ;;846224
DVBIN017 ;;6294373
DVBIN018 ;;5747007
DVBIN019 ;;1688944
DVBIN020 ;;5726405
DVBIN021 ;;16129315
DVBIN022 ;;18992446
DVBIN023 ;;16173038
DVBIN024 ;;11261813
DVBIN025 ;;13300498
DVBIN026 ;;9085088
DVBIN027 ;;7015511
DVBIN028 ;;6373764
DVBIN029 ;;6253702
DVBIN030 ;;6828524
DVBIN031 ;;6571483
DVBIN032 ;;5575661
DVBIN033 ;;3867268
DVBINIT ;;9249472
DVBINIT0 ;;990418
DVBINIT1 ;;5414976
DVBINIT2 ;;4338405
DVBINIT3 ;;10014702