XPDNTEG.m

XPDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUL 10, 1995@09:24:52 [ 04/02/2003   8:29 AM ]

 ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 ;;8.0;KERNEL;;JUL 10, 1995

 ;;7.2;JUL 10, 1995@09:24:52

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

XLFDT ;;2542000

XLFDT1 ;;1537932

XPDCOM ;;2213245

XPDCOMG ;;8382178

XPDCPU ;;6564663

XPDDCS ;;3052685

XPDDI ;;7059710

XPDDP ;;11284516

XPDE ;;12998234

XPDET ;;3688528

XPDGCDEL ;;2818026

XPDH ;;2594827

XPDI ;;13967703

XPDIA ;;6914717

XPDIA1 ;;4945908

XPDID ;;2414499

XPDIGP ;;6457099

XPDIJ ;;14331384

XPDIK ;;10629573

XPDIL ;;10081002

XPDIL1 ;;6175748

XPDIN001 ;;8911225

XPDIN002 ;;12264533

XPDIN003 ;;8357402

XPDIN004 ;;8061968

XPDIN005 ;;10022912

XPDIN006 ;;9558156

XPDIN007 ;;8115613

XPDIN008 ;;9140117

XPDIN009 ;;3471847

XPDIN00A ;;9058285

XPDIN00B ;;7976280

XPDIN00C ;;6944309

XPDIN00D ;;6861764

XPDIN00E ;;3155079

XPDIN00F ;;921211

XPDIN00G ;;6183213

XPDIN00H ;;5691661

XPDIN00I ;;6023617

XPDIN00J ;;5774284

XPDIN00K ;;5839595

XPDIN00L ;;8152412

XPDIN00M ;;7714345

XPDIN00N ;;6424156

XPDIN00O ;;5629359

XPDIN00P ;;6001373

XPDIN00Q ;;5487755

XPDIN00R ;;5781258

XPDIN00S ;;5743958

XPDIN00T ;;3809597

XPDINIT ;;10210170

XPDINIT1 ;;4893932

XPDINIT2 ;;5232647

XPDINIT3 ;;16808120

XPDINIT4 ;;3357819

XPDINIT5 ;;460403

XPDIP ;;7105579

XPDIPM ;;1889333

XPDIQ ;;6649770

XPDIR ;;2209857

XPDIST ;;2343711

XPDIU ;;5987197

XPDKEY ;;1267561

XPDKRN ;;818184

XPDMENU ;;1676349

XPDPINIT ;;223513

XPDR ;;12193352

XPDRSUM ;;1331254

XPDT ;;13681675

XPDTA ;;5532717

XPDTA1 ;;4346384

XPDTC ;;8576205

XPDTP ;;2581228

XPDUTL ;;2317236

XPDV ;;6960037

XQDATE ;;1632193

XQH ;;8451889

XQOO ;;19407312

XQOO1 ;;11594948

XQOO2 ;;6850745

XQOO3 ;;8090117

XPDNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUL 10, 1995@09:24:52 [ 04/02/2003   8:29 AM ]

 +1       ;;8.0;KERNEL;**1002,1003,1004,1005,1007**;APR 1, 2003

 +2       ;;8.0;KERNEL;;JUL 10, 1995

 +3       ;;7.2;JUL 10, 1995@09:24:52

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

XLFDT     ;;2542000

XLFDT1    ;;1537932

XPDCOM    ;;2213245

XPDCOMG   ;;8382178

XPDCPU    ;;6564663

XPDDCS    ;;3052685

XPDDI     ;;7059710

XPDDP     ;;11284516

XPDE      ;;12998234

XPDET     ;;3688528

XPDGCDEL  ;;2818026

XPDH      ;;2594827

XPDI      ;;13967703

XPDIA     ;;6914717

XPDIA1    ;;4945908

XPDID     ;;2414499

XPDIGP    ;;6457099

XPDIJ     ;;14331384

XPDIK     ;;10629573

XPDIL     ;;10081002

XPDIL1    ;;6175748

XPDIN001  ;;8911225

XPDIN002  ;;12264533

XPDIN003  ;;8357402

XPDIN004  ;;8061968

XPDIN005  ;;10022912

XPDIN006  ;;9558156

XPDIN007  ;;8115613

XPDIN008  ;;9140117

XPDIN009  ;;3471847

XPDIN00A  ;;9058285

XPDIN00B  ;;7976280

XPDIN00C  ;;6944309

XPDIN00D  ;;6861764

XPDIN00E  ;;3155079

XPDIN00F  ;;921211

XPDIN00G  ;;6183213

XPDIN00H  ;;5691661

XPDIN00I  ;;6023617

XPDIN00J  ;;5774284

XPDIN00K  ;;5839595

XPDIN00L  ;;8152412

XPDIN00M  ;;7714345

XPDIN00N  ;;6424156

XPDIN00O  ;;5629359

XPDIN00P  ;;6001373

XPDIN00Q  ;;5487755

XPDIN00R  ;;5781258

XPDIN00S  ;;5743958

XPDIN00T  ;;3809597

XPDINIT   ;;10210170

XPDINIT1  ;;4893932

XPDINIT2  ;;5232647

XPDINIT3  ;;16808120

XPDINIT4  ;;3357819

XPDINIT5  ;;460403

XPDIP     ;;7105579

XPDIPM    ;;1889333

XPDIQ     ;;6649770

XPDIR     ;;2209857

XPDIST    ;;2343711

XPDIU     ;;5987197

XPDKEY    ;;1267561

XPDKRN    ;;818184

XPDMENU   ;;1676349

XPDPINIT  ;;223513

XPDR      ;;12193352

XPDRSUM   ;;1331254

XPDT      ;;13681675

XPDTA     ;;5532717

XPDTA1    ;;4346384

XPDTC     ;;8576205

XPDTP     ;;2581228

XPDUTL    ;;2317236

XPDV      ;;6960037

XQDATE    ;;1632193

XQH       ;;8451889

XQOO      ;;19407312

XQOO1     ;;11594948

XQOO2     ;;6850745

XQOO3     ;;8090117