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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HXTNTEG01 1591 printed Nov 22, 2024@17:51:28 Page 2
XTNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
+1 ;;7.3;TOOLKIT;;Apr 25, 1995
+2 ;;7.3;2950425.092013
+3 SET XT4="I 1"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
CONT FOR XT1=1:1
SET XT2=$TEXT(ROU+XT1)
if XT2=""
QUIT
SET X=$PIECE(XT2," ",1)
SET XT3=$PIECE(XT2,";",3)
XECUTE XT4
IF $TEST
WRITE !,X
XECUTE ^%ZOSF("TEST")
if '$TEST
SET XT3=0
if XT3
XECUTE ^%ZOSF("RSUM")
WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_$CHAR(7)_Y_", off by "_(Y-XT3),1:"ok")
+1 ;
+2 KILL %1,%2,%3,X,Y,XT1,XT2,XT3,XT4
QUIT
ONE SET XT4="I $D(^UTILITY($J,X))"
SET X=$TEXT(+3)
WRITE !!,"Checksum routine created on ",$PIECE(X,";",4)," by KERNEL V",$PIECE(X,";",3),!
+1 WRITE !,"Check a subset of routines:"
KILL ^UTILITY($JOB)
XECUTE ^%ZOSF("RSEL")
+2 WRITE !
GOTO 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
