FHNTEG0.m

FHNTEG0	;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46

	;;0.0;

	;;7.1;OCT 11, 1995@10:01:46

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

FHORD83	;;1799300

FHORD9	;;5847432

FHORD91	;;3834038

FHORD92	;;7559275

FHORD93	;;8620031

FHORDR	;;2998872

FHORDW	;;6878589

FHORDW1	;;5597195

FHORDW2	;;4056534

FHORDW3	;;6541293

FHORE1	;;11602421

FHORE1A	;;2003255

FHORE2	;;4556343

FHORE21	;;7400532

FHORE3	;;3649653

FHOREW	;;7916080

FHORO	;;4704498

FHOROW	;;4629985

FHORT1	;;10129017

FHORT10	;;13332346

FHORT11	;;2453906

FHORT2	;;5921412

FHORT3	;;2509939

FHORT5	;;4446291

FHORT5A	;;6669315

FHORT5B	;;2194934

FHORT5C	;;3301928

FHORT5D	;;5290071

FHORTW	;;7141005

FHORX	;;564826

FHORX1	;;5217469

FHORX1A	;;3214593

FHORX1B	;;3634063

FHORX1C	;;6936807

FHORX2	;;2683671

FHORX3	;;8023019

FHPATM	;;6006350

FHPRC	;;5655183

FHPRC1	;;5569532

FHPRC10	;;12077237

FHPRC11	;;14257467

FHPRC12	;;7937756

FHPRC13	;;12025361

FHPRC14	;;9606339

FHPRC2	;;5268120

FHPRC3	;;4313560

FHPRC4	;;2168815

FHPRC5	;;1913669

FHPRC6	;;4475322

FHPRC7	;;3360749

FHPRC8	;;9271546

FHPRC9	;;7757957

FHPRF	;;1601618

FHPRF1	;;6509145

FHPRF1A	;;3914573

FHPRF2	;;2915934

FHPRF4	;;1629107

FHPRI	;;3919334

FHPRI1	;;4796204

FHPRI2	;;8125121

FHPRI3	;;1952818

FHPRO	;;4733042

FHPRO1	;;10716446

FHPRO2	;;12102730

FHPRO3	;;2512818

FHPRO4	;;5871635

FHPRO4A	;;3732530

FHPRO5	;;4997921

FHPRO6	;;2943379

FHPRO7	;;1769356

FHPRR1	;;4210131

FHPRR2	;;6726603

FHPRW	;;10160467

FHPRW1	;;4038651

FHPRW2	;;3657285

FHPRW3	;;4037054

FHPRW4	;;1975449

FHREC	;;3913108

FHREC1	;;4357665

FHREC2	;;5088857

FHREC3	;;1924284

FHREC4	;;3456680

FHREC5	;;2832308

FHREC6	;;8800982

FHREC7	;;1770111

FHREP	;;4497192

FHREP1	;;11157584

FHSEL1	;;7821155

FHSEL2	;;9245176

FHSEL3	;;6646024

FHSEL4	;;6487559

FHSP	;;962380

FHSP1	;;12519643

FHSP11	;;2598854

FHSPED	;;11321876

FHSPTAB	;;6298568

FHSYSF	;;798296

FHSYSK	;;3838891

FHSYSP	;;1520196

FHVER	;;1524619

FHWADM	;;5975597

FHWDIS	;;5304192

FHWDISD	;;3992628

FHWHEA	;;11863618

FHWMAS	;;1763412

FHWTRN	;;2567274

FHXCNV	;;3360157

FHXDB	;;12710968

FHXDB1	;;14538448

FHXDB2	;;8339509

FHXIN	;;2450638

FHXMOV	;;8770539

FHXWRD	;;3711181

FHNTEG0   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46

 +1       ;;0.0;

 +2       ;;7.1;OCT 11, 1995@10:01:46

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

FHORD83   ;;1799300

FHORD9    ;;5847432

FHORD91   ;;3834038

FHORD92   ;;7559275

FHORD93   ;;8620031

FHORDR    ;;2998872

FHORDW    ;;6878589

FHORDW1   ;;5597195

FHORDW2   ;;4056534

FHORDW3   ;;6541293

FHORE1    ;;11602421

FHORE1A   ;;2003255

FHORE2    ;;4556343

FHORE21   ;;7400532

FHORE3    ;;3649653

FHOREW    ;;7916080

FHORO     ;;4704498

FHOROW    ;;4629985

FHORT1    ;;10129017

FHORT10   ;;13332346

FHORT11   ;;2453906

FHORT2    ;;5921412

FHORT3    ;;2509939

FHORT5    ;;4446291

FHORT5A   ;;6669315

FHORT5B   ;;2194934

FHORT5C   ;;3301928

FHORT5D   ;;5290071

FHORTW    ;;7141005

FHORX     ;;564826

FHORX1    ;;5217469

FHORX1A   ;;3214593

FHORX1B   ;;3634063

FHORX1C   ;;6936807

FHORX2    ;;2683671

FHORX3    ;;8023019

FHPATM    ;;6006350

FHPRC     ;;5655183

FHPRC1    ;;5569532

FHPRC10   ;;12077237

FHPRC11   ;;14257467

FHPRC12   ;;7937756

FHPRC13   ;;12025361

FHPRC14   ;;9606339

FHPRC2    ;;5268120

FHPRC3    ;;4313560

FHPRC4    ;;2168815

FHPRC5    ;;1913669

FHPRC6    ;;4475322

FHPRC7    ;;3360749

FHPRC8    ;;9271546

FHPRC9    ;;7757957

FHPRF     ;;1601618

FHPRF1    ;;6509145

FHPRF1A   ;;3914573

FHPRF2    ;;2915934

FHPRF4    ;;1629107

FHPRI     ;;3919334

FHPRI1    ;;4796204

FHPRI2    ;;8125121

FHPRI3    ;;1952818

FHPRO     ;;4733042

FHPRO1    ;;10716446

FHPRO2    ;;12102730

FHPRO3    ;;2512818

FHPRO4    ;;5871635

FHPRO4A   ;;3732530

FHPRO5    ;;4997921

FHPRO6    ;;2943379

FHPRO7    ;;1769356

FHPRR1    ;;4210131

FHPRR2    ;;6726603

FHPRW     ;;10160467

FHPRW1    ;;4038651

FHPRW2    ;;3657285

FHPRW3    ;;4037054

FHPRW4    ;;1975449

FHREC     ;;3913108

FHREC1    ;;4357665

FHREC2    ;;5088857

FHREC3    ;;1924284

FHREC4    ;;3456680

FHREC5    ;;2832308

FHREC6    ;;8800982

FHREC7    ;;1770111

FHREP     ;;4497192

FHREP1    ;;11157584

FHSEL1    ;;7821155

FHSEL2    ;;9245176

FHSEL3    ;;6646024

FHSEL4    ;;6487559

FHSP      ;;962380

FHSP1     ;;12519643

FHSP11    ;;2598854

FHSPED    ;;11321876

FHSPTAB   ;;6298568

FHSYSF    ;;798296

FHSYSK    ;;3838891

FHSYSP    ;;1520196

FHVER     ;;1524619

FHWADM    ;;5975597

FHWDIS    ;;5304192

FHWDISD   ;;3992628

FHWHEA    ;;11863618

FHWMAS    ;;1763412

FHWTRN    ;;2567274

FHXCNV    ;;3360157

FHXDB     ;;12710968

FHXDB1    ;;14538448

FHXDB2    ;;8339509

FHXIN     ;;2450638

FHXMOV    ;;8770539

FHXWRD    ;;3711181