GMRGNTEG.m

GMRGNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960124.180333

 ;;3.0;Text Generator;;Jan 24, 1996

 ;;7.3;2960124.180333

 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 ;;

GMRGCLAS ;;3451400

GMRGED0 ;;15713798

GMRGED1 ;;18777308

GMRGED2 ;;21433742

GMRGED3 ;;16138323

GMRGED4 ;;14265663

GMRGED5 ;;14111167

GMRGED6 ;;14584906

GMRGED7 ;;11040858

GMRGED8 ;;12390934

GMRGED9 ;;12621709

GMRGEDA ;;17675833

GMRGEDB ;;16576596

GMRGI001 ;;5874680

GMRGI002 ;;1072292

GMRGI003 ;;7415741

GMRGI004 ;;9269885

GMRGI005 ;;9187512

GMRGI006 ;;11050059

GMRGI007 ;;8412418

GMRGI008 ;;7671438

GMRGI009 ;;9481084

GMRGI00A ;;9003263

GMRGI00B ;;10777371

GMRGI00C ;;1152277

GMRGI00D ;;7723100

GMRGI00E ;;6891441

GMRGI00F ;;10579043

GMRGI00G ;;9819805

GMRGI00H ;;8107508

GMRGI00I ;;10229146

GMRGI00J ;;10872207

GMRGI00K ;;6716593

GMRGI00L ;;1076971

GMRGI00M ;;8580631

GMRGI00N ;;8084047

GMRGI00O ;;8963615

GMRGI00P ;;9526239

GMRGI00Q ;;4323595

GMRGI00R ;;909500

GMRGINI1 ;;4867800

GMRGINI2 ;;5232586

GMRGINI3 ;;16806972

GMRGINI4 ;;3357758

GMRGINI5 ;;796540

GMRGINIS ;;2211603

GMRGINIT ;;10555626

GMRGPNB0 ;;11215491

GMRGPNB1 ;;10970671

GMRGPNB2 ;;12098800

GMRGPNBL ;;2571389

GMRGPOUT ;;4205189

GMRGPRNT ;;2466648

GMRGPUT0 ;;4893565

GMRGPUTL ;;15880818

GMRGRUT0 ;;12210573

GMRGRUT1 ;;7931929

GMRGRUT2 ;;9628256

GMRGRUT3 ;;18298463

GMRGRUT4 ;;11023968

GMRGTGI0 ;;19760336

GMRGTGI1 ;;14709310

GMRGTGI2 ;;14904415

GMRGTGIF ;;9182381

GMRGUIX ;;4701016

GMRGUIX1 ;;6284811

GMRGUIX2 ;;1189015

GMRGUIX3 ;;2457824

GMRGUIX4 ;;2078125

GMRGUT0 ;;10657480

GMRGUT1 ;;13495725

GMRGUT2 ;;9614052

GMRGUT3 ;;10676604

GMRGUT4 ;;3875917

GMRGUTL ;;9771986

GMRGXAGC ;;5734634

GMRGXPRE ;;3404925

GMRGXPST ;;3912423

GMRGNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960124.180333

 +1       ;;3.0;Text Generator;;Jan 24, 1996

 +2       ;;7.3;2960124.180333

 +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       ;;

GMRGCLAS  ;;3451400

GMRGED0   ;;15713798

GMRGED1   ;;18777308

GMRGED2   ;;21433742

GMRGED3   ;;16138323

GMRGED4   ;;14265663

GMRGED5   ;;14111167

GMRGED6   ;;14584906

GMRGED7   ;;11040858

GMRGED8   ;;12390934

GMRGED9   ;;12621709

GMRGEDA   ;;17675833

GMRGEDB   ;;16576596

GMRGI001  ;;5874680

GMRGI002  ;;1072292

GMRGI003  ;;7415741

GMRGI004  ;;9269885

GMRGI005  ;;9187512

GMRGI006  ;;11050059

GMRGI007  ;;8412418

GMRGI008  ;;7671438

GMRGI009  ;;9481084

GMRGI00A  ;;9003263

GMRGI00B  ;;10777371

GMRGI00C  ;;1152277

GMRGI00D  ;;7723100

GMRGI00E  ;;6891441

GMRGI00F  ;;10579043

GMRGI00G  ;;9819805

GMRGI00H  ;;8107508

GMRGI00I  ;;10229146

GMRGI00J  ;;10872207

GMRGI00K  ;;6716593

GMRGI00L  ;;1076971

GMRGI00M  ;;8580631

GMRGI00N  ;;8084047

GMRGI00O  ;;8963615

GMRGI00P  ;;9526239

GMRGI00Q  ;;4323595

GMRGI00R  ;;909500

GMRGINI1  ;;4867800

GMRGINI2  ;;5232586

GMRGINI3  ;;16806972

GMRGINI4  ;;3357758

GMRGINI5  ;;796540

GMRGINIS  ;;2211603

GMRGINIT  ;;10555626

GMRGPNB0  ;;11215491

GMRGPNB1  ;;10970671

GMRGPNB2  ;;12098800

GMRGPNBL  ;;2571389

GMRGPOUT  ;;4205189

GMRGPRNT  ;;2466648

GMRGPUT0  ;;4893565

GMRGPUTL  ;;15880818

GMRGRUT0  ;;12210573

GMRGRUT1  ;;7931929

GMRGRUT2  ;;9628256

GMRGRUT3  ;;18298463

GMRGRUT4  ;;11023968

GMRGTGI0  ;;19760336

GMRGTGI1  ;;14709310

GMRGTGI2  ;;14904415

GMRGTGIF  ;;9182381

GMRGUIX   ;;4701016

GMRGUIX1  ;;6284811

GMRGUIX2  ;;1189015

GMRGUIX3  ;;2457824

GMRGUIX4  ;;2078125

GMRGUT0   ;;10657480

GMRGUT1   ;;13495725

GMRGUT2   ;;9614052

GMRGUT3   ;;10676604

GMRGUT4   ;;3875917

GMRGUTL   ;;9771986

GMRGXAGC  ;;5734634

GMRGXPRE  ;;3404925

GMRGXPST  ;;3912423