XTNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
 ;;7.3;TOOLKIT;;Apr 25, 1995
 ;;7.3;2950425.092013
 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 "_$C(7)_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 ;;
XUCSINI1 ;;5671874
XUCSINI2 ;;5232622
XUCSINI3 ;;16094695
XUCSINI4 ;;3357794
XUCSINI5 ;;628012
XUCSINIS ;;2216765
XUCSINIT ;;10890951
XUCSLOAD ;;6778573
XUCSPRG ;;4520058
XUCSRV ;;5969322
XUCSTM ;;6457738
XUCSTME ;;13223145
XUCSUTL ;;2837344
XUCSUTL2 ;;6021611
XUCSUTL3 ;;11276783
XURTL ;;7949393
XURTL1 ;;7623474
XURTL2 ;;5911591
XURTL3 ;;9463174
XURTL4 ;;8083788
XURTLC ;;3647421
XURTLK ;;5463315
ZINDEX ;;7934389
ZINDX1 ;;5876099
ZINDX10 ;;11716270
ZINDX11 ;;6160284
ZINDX2 ;;4603647
ZINDX3 ;;3896672
ZINDX4 ;;4546127
ZINDX5 ;;6415684
ZINDX51 ;;8782796
ZINDX52 ;;2299766
ZINDX53 ;;4122137
ZINDX6 ;;12035964
ZINDX8 ;;6760814
ZINDX9 ;;4986099
ZINDXH ;;1579327
ZTEDIT ;;11385452
ZTEDIT1 ;;9783719
ZTEDIT2 ;;12580728
ZTEDIT3 ;;9890321
ZTEDIT4 ;;4936626
ZTGS ;;1511640
ZTP1 ;;7893577
ZTPP ;;7019346
ZTRDEL ;;959784
ZTRTHV ;;6018658