FHNTEG.m

FHNTEG	;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")

	G CONT^FHNTEG0

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

FH	;;1933177

FHADM2	;;2855586

FHADM21	;;7966786

FHADM2A	;;2375833

FHADM3	;;5810121

FHADM4	;;9500389

FHADM5	;;323152

FHADR1	;;6236966

FHADR10	;;2472024

FHADR1A	;;6939546

FHADR2	;;3823209

FHADR3	;;1811235

FHADR3A	;;6395711

FHADR4	;;3651849

FHADR5	;;3779837

FHADR6	;;10058150

FHADR61	;;2724873

FHADR7	;;6397935

FHADR8	;;3103134

FHADR81	;;5662701

FHADR9	;;7544892

FHADR9A	;;4060734

FHADRPT	;;2949179

FHADRSY	;;1383849

FHASC	;;1661812

FHASE	;;12352922

FHASE1	;;4636527

FHASE1A	;;10368196

FHASE2	;;4358156

FHASE3	;;1455346

FHASM1	;;8647619

FHASM2	;;8399539

FHASM2A	;;2430817

FHASM2B	;;3386101

FHASM2C	;;3102927

FHASM2D	;;2275862

FHASM3	;;5096802

FHASM3A	;;9169407

FHASM4	;;6344698

FHASM5	;;8945494

FHASM6	;;7486877

FHASM7	;;9593313

FHASMR	;;2727928

FHASMR1	;;9517687

FHASN	;;3149876

FHASN1	;;3511694

FHASN3	;;6030523

FHASN4	;;9774004

FHASN5	;;8678046

FHASN6	;;7635637

FHASN7	;;2602313

FHASN71	;;9171190

FHASP	;;7858984

FHASP1	;;5062129

FHASP2	;;3530400

FHASXR	;;6537891

FHASXR1	;;8965616

FHBIR	;;4059872

FHCLN	;;740822

FHCMS1	;;778447

FHCMSR	;;4571401

FHCMSR1	;;6665228

FHCTF	;;681451

FHCTF1	;;6124347

FHCTF2	;;397188

FHCTF3	;;13151878

FHCTF4	;;6160915

FHDCR1	;;8507036

FHDCR11	;;4507014

FHDCR1A	;;6164513

FHDCR1B	;;9131155

FHDCR1C	;;2162795

FHDCR1D	;;6930746

FHDCR2	;;872781

FHDEV	;;1319169

FHDMP	;;7066349

FHDMP1	;;3150137

FHDMP2	;;5848038

FHDMP3	;;4936568

FHDMP4	;;7823399

FHDMP5	;;5203454

FHDPA	;;2974151

FHIPST	;;5821572

FHIPST1	;;2376175

FHIPST10	;;5608317

FHIPST11	;;5908172

FHIPST12	;;5840142

FHIPST13	;;5669546

FHIPST14	;;6093522

FHIPST15	;;4681408

FHIPST16	;;5603245

FHIPST17	;;1797845

FHIPST18	;;1252543

FHIPST19	;;811740

FHIPST2	;;1871064

FHIPST20	;;3761391

FHIPST3	;;5363809

FHIPST4	;;1980574

FHIPST5	;;1154415

FHIPST6	;;700221

FHIPST7	;;1254271

FHIPST8	;;1109712

FHIPST9	;;6158714

FHMTK	;;8334209

FHMTK1	;;9736775

FHMTK11	;;9501249

FHMTK1A	;;5652773

FHMTK1B	;;9506136

FHMTK1C	;;7533994

FHMTK2	;;4933044

FHMTK21	;;5663649

FHMTK3	;;7247098

FHMTK4	;;6393503

FHMTK5	;;7788180

FHMTK6	;;6997795

FHMTK7	;;4842201

FHNO1	;;2554062

FHNO2	;;10768538

FHNO21	;;3984168

FHNO3	;;3504490

FHNO31	;;7450905

FHNO4	;;1121656

FHNO41	;;7922111

FHNO5	;;5224038

FHNO6	;;9801097

FHNO7	;;2361316

FHNO8	;;2731298

FHNU	;;1616737

FHNU1	;;4573798

FHNU10	;;5583463

FHNU11	;;10048442

FHNU12	;;5447130

FHNU2	;;12335468

FHNU3	;;6834955

FHNU4	;;11724524

FHNU5	;;10454629

FHNU6	;;4729171

FHNU7	;;5806572

FHNU8	;;7815140

FHNU9	;;4484537

FHNUT	;;4362721

FHORC	;;4988961

FHORC1	;;3376539

FHORC2	;;10784717

FHORC3	;;7547945

FHORC4	;;2770986

FHORC5	;;2011042

FHORCW	;;6949788

FHORD	;;1618989

FHORD1	;;12718924

FHORD10	;;6881787

FHORD11	;;10078328

FHORD13	;;7875615

FHORD1A	;;3630323

FHORD2	;;6094066

FHORD3	;;6474710

FHORD4	;;5320132

FHORD41	;;4108718

FHORD5	;;5286069

FHORD6	;;9749127

FHORD61	;;7575939

FHORD7	;;5790814

FHORD71	;;7838090

FHORD72	;;7184640

FHORD8	;;6489332

FHORD81	;;5717162

FHORD82	;;7938833

FHNTEG    ;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        GOTO CONT^FHNTEG0

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

FH        ;;1933177

FHADM2    ;;2855586

FHADM21   ;;7966786

FHADM2A   ;;2375833

FHADM3    ;;5810121

FHADM4    ;;9500389

FHADM5    ;;323152

FHADR1    ;;6236966

FHADR10   ;;2472024

FHADR1A   ;;6939546

FHADR2    ;;3823209

FHADR3    ;;1811235

FHADR3A   ;;6395711

FHADR4    ;;3651849

FHADR5    ;;3779837

FHADR6    ;;10058150

FHADR61   ;;2724873

FHADR7    ;;6397935

FHADR8    ;;3103134

FHADR81   ;;5662701

FHADR9    ;;7544892

FHADR9A   ;;4060734

FHADRPT   ;;2949179

FHADRSY   ;;1383849

FHASC     ;;1661812

FHASE     ;;12352922

FHASE1    ;;4636527

FHASE1A   ;;10368196

FHASE2    ;;4358156

FHASE3    ;;1455346

FHASM1    ;;8647619

FHASM2    ;;8399539

FHASM2A   ;;2430817

FHASM2B   ;;3386101

FHASM2C   ;;3102927

FHASM2D   ;;2275862

FHASM3    ;;5096802

FHASM3A   ;;9169407

FHASM4    ;;6344698

FHASM5    ;;8945494

FHASM6    ;;7486877

FHASM7    ;;9593313

FHASMR    ;;2727928

FHASMR1   ;;9517687

FHASN     ;;3149876

FHASN1    ;;3511694

FHASN3    ;;6030523

FHASN4    ;;9774004

FHASN5    ;;8678046

FHASN6    ;;7635637

FHASN7    ;;2602313

FHASN71   ;;9171190

FHASP     ;;7858984

FHASP1    ;;5062129

FHASP2    ;;3530400

FHASXR    ;;6537891

FHASXR1   ;;8965616

FHBIR     ;;4059872

FHCLN     ;;740822

FHCMS1    ;;778447

FHCMSR    ;;4571401

FHCMSR1   ;;6665228

FHCTF     ;;681451

FHCTF1    ;;6124347

FHCTF2    ;;397188

FHCTF3    ;;13151878

FHCTF4    ;;6160915

FHDCR1    ;;8507036

FHDCR11   ;;4507014

FHDCR1A   ;;6164513

FHDCR1B   ;;9131155

FHDCR1C   ;;2162795

FHDCR1D   ;;6930746

FHDCR2    ;;872781

FHDEV     ;;1319169

FHDMP     ;;7066349

FHDMP1    ;;3150137

FHDMP2    ;;5848038

FHDMP3    ;;4936568

FHDMP4    ;;7823399

FHDMP5    ;;5203454

FHDPA     ;;2974151

FHIPST    ;;5821572

FHIPST1   ;;2376175

FHIPST10  ;;5608317

FHIPST11  ;;5908172

FHIPST12  ;;5840142

FHIPST13  ;;5669546

FHIPST14  ;;6093522

FHIPST15  ;;4681408

FHIPST16  ;;5603245

FHIPST17  ;;1797845

FHIPST18  ;;1252543

FHIPST19  ;;811740

FHIPST2   ;;1871064

FHIPST20  ;;3761391

FHIPST3   ;;5363809

FHIPST4   ;;1980574

FHIPST5   ;;1154415

FHIPST6   ;;700221

FHIPST7   ;;1254271

FHIPST8   ;;1109712

FHIPST9   ;;6158714

FHMTK     ;;8334209

FHMTK1    ;;9736775

FHMTK11   ;;9501249

FHMTK1A   ;;5652773

FHMTK1B   ;;9506136

FHMTK1C   ;;7533994

FHMTK2    ;;4933044

FHMTK21   ;;5663649

FHMTK3    ;;7247098

FHMTK4    ;;6393503

FHMTK5    ;;7788180

FHMTK6    ;;6997795

FHMTK7    ;;4842201

FHNO1     ;;2554062

FHNO2     ;;10768538

FHNO21    ;;3984168

FHNO3     ;;3504490

FHNO31    ;;7450905

FHNO4     ;;1121656

FHNO41    ;;7922111

FHNO5     ;;5224038

FHNO6     ;;9801097

FHNO7     ;;2361316

FHNO8     ;;2731298

FHNU      ;;1616737

FHNU1     ;;4573798

FHNU10    ;;5583463

FHNU11    ;;10048442

FHNU12    ;;5447130

FHNU2     ;;12335468

FHNU3     ;;6834955

FHNU4     ;;11724524

FHNU5     ;;10454629

FHNU6     ;;4729171

FHNU7     ;;5806572

FHNU8     ;;7815140

FHNU9     ;;4484537

FHNUT     ;;4362721

FHORC     ;;4988961

FHORC1    ;;3376539

FHORC2    ;;10784717

FHORC3    ;;7547945

FHORC4    ;;2770986

FHORC5    ;;2011042

FHORCW    ;;6949788

FHORD     ;;1618989

FHORD1    ;;12718924

FHORD10   ;;6881787

FHORD11   ;;10078328

FHORD13   ;;7875615

FHORD1A   ;;3630323

FHORD2    ;;6094066

FHORD3    ;;6474710

FHORD4    ;;5320132

FHORD41   ;;4108718

FHORD5    ;;5286069

FHORD6    ;;9749127

FHORD61   ;;7575939

FHORD7    ;;5790814

FHORD71   ;;7838090

FHORD72   ;;7184640

FHORD8    ;;6489332

FHORD81   ;;5717162

FHORD82   ;;7938833