RTNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 22, 1991@22:38:31
 ;;v 2.0;Record Tracking;;10/22/91 
 ;;6.5;OCT 22, 1991@22:38:31
 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 ;;
RT ;;1092073
RTB ;;9210081
RTB1 ;;4220425
RTB2 ;;8537784
RTDEL ;;14533305
RTDPA ;;10739529
RTDPA1 ;;13452261
RTDPA2 ;;9782055
RTDPA3 ;;8966028
RTDPA31 ;;4040485
RTDPA32 ;;4054799
RTIPOST0 ;;6311613
RTIPOST1 ;;5041134
RTIPOST2 ;;2286359
RTIPOST3 ;;3629114
RTIPOST4 ;;5792718
RTIPRE ;;7360996
RTL ;;3454851
RTL1 ;;13016675
RTL2 ;;5588146
RTL3 ;;2550001
RTLDIV ;;1372201
RTM ;;1849639
RTMAS ;;4232926
RTNQ ;;1628986
RTNQ1 ;;11946723
RTNQ2 ;;14357342
RTNQ21 ;;8555868
RTNQ3 ;;11569840
RTNQ4 ;;9206711
RTNQ41 ;;5015473
RTP ;;10799518
RTP1 ;;9915888
RTP2 ;;10605233
RTP3 ;;20195927
RTP31 ;;13298420
RTP311 ;;6322945
RTP32 ;;4618243
RTP4 ;;16744132
RTP40 ;;5876243
RTP41 ;;12568098
RTP5 ;;18969106
RTP51 ;;11075694
RTP6 ;;5861018
RTPCAN ;;4020334
RTPSET ;;10011933
RTPSET1 ;;6578709
RTPURGE ;;14921881
RTQ ;;12370859
RTQ1 ;;13981731
RTQ2 ;;12876473
RTQ3 ;;8945259
RTQ4 ;;12908542
RTQ41 ;;6912517
RTQ5 ;;2920853
RTRAD ;;6425450
RTRD ;;6310994
RTREP ;;11996311
RTREP1 ;;8448621
RTRPT ;;16229874
RTRPT1 ;;9556631
RTRPT2 ;;11258647
RTRPT3 ;;18718284
RTRPT4 ;;2860697
RTRPT5 ;;6630867
RTSM ;;13831573
RTSM1 ;;13577739
RTSM2 ;;9200103
RTSM3 ;;16298185
RTSM4 ;;10969718
RTSM5 ;;7723861
RTSM6 ;;11942119
RTSM61 ;;8657559
RTSM7 ;;9927586
RTSM8 ;;11585133
RTSM81 ;;8626042
RTSYS ;;11712069
RTT ;;12717049
RTT1 ;;15395306
RTT11 ;;10857177
RTT12 ;;3597419
RTT2 ;;17867721
RTT21 ;;391400
RTT3 ;;15011804
RTT4 ;;10186835
RTTR ;;6218566
RTTR1 ;;6567455
RTTR11 ;;6373404
RTTR2 ;;6670262
RTUTL ;;4297762
RTUTL1 ;;13589719
RTUTL2 ;;14367750
RTUTL3 ;;4482928
RTUTL4 ;;8368221
RTUTL5 ;;12629331
RTUTL6 ;;3667661