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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FHNTEG   3762     printed  Apr 09, 2024@20:57:33                                                                                                                                                                                                      Page 2

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