BARNTEG.m

BARNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070913.14563

 ;;0.0;

 ;;7.3;3070913.14563

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

BARBAN ;;1306023

BARBL ;;8196455

BARCBC ;;3228690

BARCLRG ;;2938962

BARCLU ;;4494539

BARCLU0 ;;5633307

BARCLU01 ;;1868656

BARCLU1 ;;3530502

BARDBQUE ;;2170777

BARDUPBL ;;4716541

BAREDIUT ;;4536027

BAREDP00 ;;14437607

BAREDP01 ;;5643505

BAREDP02 ;;4377832

BAREDP03 ;;2506821

BAREDP05 ;;3709598

BAREDP06 ;;3825786

BAREDP08 ;;16066593

BAREDP09 ;;12190378

BAREDP10 ;;10630795

BAREDP11 ;;9418759

BAREDPA1 ;;6543475

BAREV183 ;;12603111

BARFPST3 ;;11922037

BARMAWO ;;8967997

BARMAWO1 ;;5482708

BARMAWO3 ;;8830245

BARNCPDP ;;7260886

BARPRMKP ;;6923424

BARPST3 ;;7147556

BARPST3A ;;2518245

BARPST4 ;;4745371

BARPST5 ;;5771364

BARPST7 ;;2411477

BARPSTU ;;4064223

BARPUC ;;14403939

BARPUTL ;;1353045

BARRASM ;;15961471

BARRHD ;;7123082

BARRPSRA ;;15078750

BARRSYNC ;;8972284

BARRTAR2 ;;10565669

BARRTAR3 ;;8738960

BARTDO ;;2810928

BARUFCAS ;;11957871

BARUFER ;;6242843

BARUFEX ;;14600812

BARUFFN ;;10768904

BARUFLOG ;;12369476

BARUFLTR ;;1014940

BARUFRP1 ;;26625321

BARUFRPT ;;14354324

BARUFSUP ;;17997598

BARUFUT ;;20635611

BARUFUT1 ;;15786553

BARUFUT2 ;;2709374

BARUFVF ;;5612241

BARUP1 ;;8793205

BARVKL0 ;;625853

BARNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070913.14563

 +1       ;;0.0;

 +2       ;;7.3;3070913.14563

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

BARBAN    ;;1306023

BARBL     ;;8196455

BARCBC    ;;3228690

BARCLRG   ;;2938962

BARCLU    ;;4494539

BARCLU0   ;;5633307

BARCLU01  ;;1868656

BARCLU1   ;;3530502

BARDBQUE  ;;2170777

BARDUPBL  ;;4716541

BAREDIUT  ;;4536027

BAREDP00  ;;14437607

BAREDP01  ;;5643505

BAREDP02  ;;4377832

BAREDP03  ;;2506821

BAREDP05  ;;3709598

BAREDP06  ;;3825786

BAREDP08  ;;16066593

BAREDP09  ;;12190378

BAREDP10  ;;10630795

BAREDP11  ;;9418759

BAREDPA1  ;;6543475

BAREV183  ;;12603111

BARFPST3  ;;11922037

BARMAWO   ;;8967997

BARMAWO1  ;;5482708

BARMAWO3  ;;8830245

BARNCPDP  ;;7260886

BARPRMKP  ;;6923424

BARPST3   ;;7147556

BARPST3A  ;;2518245

BARPST4   ;;4745371

BARPST5   ;;5771364

BARPST7   ;;2411477

BARPSTU   ;;4064223

BARPUC    ;;14403939

BARPUTL   ;;1353045

BARRASM   ;;15961471

BARRHD    ;;7123082

BARRPSRA  ;;15078750

BARRSYNC  ;;8972284

BARRTAR2  ;;10565669

BARRTAR3  ;;8738960

BARTDO    ;;2810928

BARUFCAS  ;;11957871

BARUFER   ;;6242843

BARUFEX   ;;14600812

BARUFFN   ;;10768904

BARUFLOG  ;;12369476

BARUFLTR  ;;1014940

BARUFRP1  ;;26625321

BARUFRPT  ;;14354324

BARUFSUP  ;;17997598

BARUFUT   ;;20635611

BARUFUT1  ;;15786553

BARUFUT2  ;;2709374

BARUFVF   ;;5612241

BARUP1    ;;8793205

BARVKL0   ;;625853