ENNTEG.m

ENNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 20, 1993@12:21:45

 ;;0.0;

 ;;7.0;AUG 20, 1993@12:21:45

 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^ENNTEG0

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

EN ;;4938515

ENAR ;;4431979

ENAR1 ;;11871100

ENAR2 ;;1956328

ENARG ;;12454624

ENARG1 ;;10340652

ENARG2 ;;3342843

ENARG21 ;;8950920

ENARG22 ;;2185436

ENARGO ;;12073974

ENARGR ;;10074633

ENARL ;;6031740

ENARY101 ;;8216312

ENARY102 ;;3454122

ENARY11 ;;6231668

ENARY12 ;;3385721

ENARY13 ;;3062569

ENARY14 ;;9343114

ENARY201 ;;9975781

ENARY202 ;;15589237

ENARY203 ;;8196720

ENARY21 ;;6261664

ENARY22 ;;3569758

ENARY23 ;;3062575

ENARY24 ;;9343120

ENBCPM ;;3638063

ENBCPM1 ;;13549362

ENBCPM2 ;;6031204

ENBCPM3 ;;9064950

ENBCPM4 ;;9596301

ENBCPM5 ;;11484758

ENBCPM6 ;;4953530

ENBCPM7 ;;7941452

ENBCPM8 ;;2186844

ENBCPM9 ;;2873183

ENCTBAR ;;5687234

ENCTFLD ;;5724601

ENCTLAB ;;5178388

ENCTMAN ;;4414940

ENCTMES1 ;;6006739

ENCTMES2 ;;1519431

ENCTPRG ;;3043163

ENCTQUES ;;4002140

ENCTRCH ;;8407760

ENCTREAD ;;16551995

ENCTRED ;;12095305

ENCTTI ;;2160648

ENCTUTL ;;4206790

ENEQ ;;3683192

ENEQ1 ;;15475812

ENEQ2 ;;9230615

ENEQCMR ;;7911609

ENEQHS ;;10570477

ENEQNX ;;3531149

ENEQNX1 ;;9966591

ENEQNX2 ;;5226292

ENEQNX3 ;;11743073

ENEQNX4 ;;7713903

ENEQNX5 ;;2603248

ENEQP ;;6605681

ENEQP1 ;;688458

ENEQPMP ;;15856392

ENEQPMP1 ;;10411981

ENEQPMP2 ;;2126362

ENEQPMP3 ;;13277582

ENEQPMR ;;3478732

ENEQPMR1 ;;12627078

ENEQPMR2 ;;18212122

ENEQPMR3 ;;13149321

ENEQPMR4 ;;14556251

ENEQPMR5 ;;13179441

ENEQPMR6 ;;19977814

ENEQPMS ;;3641624

ENEQPMS1 ;;19804179

ENEQPMS2 ;;10467421

ENEQPMS3 ;;5620243

ENEQPMS4 ;;18118122

ENEQPMS5 ;;15643787

ENEQPMS6 ;;5204081

ENEQPMS7 ;;14854573

ENEQPMS8 ;;7326330

ENEQRP ;;3693556

ENEQRP1 ;;10562964

ENEQRP2 ;;10365465

ENEQRP3 ;;8672209

ENEQRP4 ;;5918859

ENEQRP5 ;;6086341

ENEQRPI ;;9865436

ENETRAN ;;4039043

ENETRAN1 ;;11679240

ENETRAN2 ;;4333961

ENEWOD ;;5495583

ENEWOD1 ;;5251799

ENFSA ;;7314584

ENFSA1 ;;5548335

ENFSA2 ;;5319649

ENJ ;;6133268

ENJC2 ;;8912737

ENJDPL ;;7674160

ENJINJ ;;11938160

ENJINJ1 ;;8955976

ENJINJ2 ;;4028275

ENJINJ3 ;;1559977

ENJINK ;;4413907

ENJINQ ;;11064638

ENJMUL ;;8552821

ENJPARAM ;;2694588

ENLBL ;;3135966

ENLBL1 ;;3245151

ENLBL10 ;;14378355

ENLBL11 ;;7160263

ENLBL12 ;;13421987

ENLBL15 ;;12572513

ENLBL16 ;;1826387

ENLBL2 ;;3418306

ENLBL3 ;;10033853

ENLBL4 ;;13077812

ENLBL5 ;;13751323

ENLBL6 ;;12095536

ENLBL7 ;;4062804

ENLBL8 ;;8234100

ENLBL9 ;;10853901

ENLIB ;;6814617

ENLIB1 ;;9070707

ENLIB2 ;;8379485

ENMAN ;;5576464

ENNEWPK2 ;;5397991

ENNEWPKG ;;3718383

ENPL1 ;;570844

ENPL10 ;;3212501

ENPL11 ;;741836

ENPL1A ;;4660189

ENPL2 ;;1954959

ENPL3 ;;5279839

ENPL3A ;;6695082

ENPL3B ;;5892963

ENPL4 ;;2500320

ENPL5 ;;6174517

ENPL5A ;;7212529

ENPL5B ;;7246310

ENPL5C ;;1776100

ENPL6 ;;629956

ENPL7 ;;7630291

ENPL7A ;;2540563

ENPL7B ;;7246249

ENPL7C ;;3950594

ENPL8 ;;5044355

ENPL8A ;;4072945

ENPL9 ;;4550205

ENPOST ;;6322701

ENPROJ ;;10601112

ENPROJ1 ;;3824567

ENPROJ2 ;;7500311

ENPROJ3 ;;5258779

ENPROJ7 ;;6977689

ENPROJ8 ;;10562136

ENPROJ9 ;;1570570

ENPRP ;;5660213

ENPRP1 ;;9519708

ENPRP2 ;;9986033

ENPRP3 ;;7038858

ENPRP4 ;;4795223

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ENNTEG   3759     printed  Mar 13, 2025@20:59:12                                                                                                                                                                                                      Page 2

ENNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 20, 1993@12:21:45

 +1       ;;0.0;

 +2       ;;7.0;AUG 20, 1993@12:21:45

 +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^ENNTEG0

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

EN        ;;4938515

ENAR      ;;4431979

ENAR1     ;;11871100

ENAR2     ;;1956328

ENARG     ;;12454624

ENARG1    ;;10340652

ENARG2    ;;3342843

ENARG21   ;;8950920

ENARG22   ;;2185436

ENARGO    ;;12073974

ENARGR    ;;10074633

ENARL     ;;6031740

ENARY101  ;;8216312

ENARY102  ;;3454122

ENARY11   ;;6231668

ENARY12   ;;3385721

ENARY13   ;;3062569

ENARY14   ;;9343114

ENARY201  ;;9975781

ENARY202  ;;15589237

ENARY203  ;;8196720

ENARY21   ;;6261664

ENARY22   ;;3569758

ENARY23   ;;3062575

ENARY24   ;;9343120

ENBCPM    ;;3638063

ENBCPM1   ;;13549362

ENBCPM2   ;;6031204

ENBCPM3   ;;9064950

ENBCPM4   ;;9596301

ENBCPM5   ;;11484758

ENBCPM6   ;;4953530

ENBCPM7   ;;7941452

ENBCPM8   ;;2186844

ENBCPM9   ;;2873183

ENCTBAR   ;;5687234

ENCTFLD   ;;5724601

ENCTLAB   ;;5178388

ENCTMAN   ;;4414940

ENCTMES1  ;;6006739

ENCTMES2  ;;1519431

ENCTPRG   ;;3043163

ENCTQUES  ;;4002140

ENCTRCH   ;;8407760

ENCTREAD  ;;16551995

ENCTRED   ;;12095305

ENCTTI    ;;2160648

ENCTUTL   ;;4206790

ENEQ      ;;3683192

ENEQ1     ;;15475812

ENEQ2     ;;9230615

ENEQCMR   ;;7911609

ENEQHS    ;;10570477

ENEQNX    ;;3531149

ENEQNX1   ;;9966591

ENEQNX2   ;;5226292

ENEQNX3   ;;11743073

ENEQNX4   ;;7713903

ENEQNX5   ;;2603248

ENEQP     ;;6605681

ENEQP1    ;;688458

ENEQPMP   ;;15856392

ENEQPMP1  ;;10411981

ENEQPMP2  ;;2126362

ENEQPMP3  ;;13277582

ENEQPMR   ;;3478732

ENEQPMR1  ;;12627078

ENEQPMR2  ;;18212122

ENEQPMR3  ;;13149321

ENEQPMR4  ;;14556251

ENEQPMR5  ;;13179441

ENEQPMR6  ;;19977814

ENEQPMS   ;;3641624

ENEQPMS1  ;;19804179

ENEQPMS2  ;;10467421

ENEQPMS3  ;;5620243

ENEQPMS4  ;;18118122

ENEQPMS5  ;;15643787

ENEQPMS6  ;;5204081

ENEQPMS7  ;;14854573

ENEQPMS8  ;;7326330

ENEQRP    ;;3693556

ENEQRP1   ;;10562964

ENEQRP2   ;;10365465

ENEQRP3   ;;8672209

ENEQRP4   ;;5918859

ENEQRP5   ;;6086341

ENEQRPI   ;;9865436

ENETRAN   ;;4039043

ENETRAN1  ;;11679240

ENETRAN2  ;;4333961

ENEWOD    ;;5495583

ENEWOD1   ;;5251799

ENFSA     ;;7314584

ENFSA1    ;;5548335

ENFSA2    ;;5319649

ENJ       ;;6133268

ENJC2     ;;8912737

ENJDPL    ;;7674160

ENJINJ    ;;11938160

ENJINJ1   ;;8955976

ENJINJ2   ;;4028275

ENJINJ3   ;;1559977

ENJINK    ;;4413907

ENJINQ    ;;11064638

ENJMUL    ;;8552821

ENJPARAM  ;;2694588

ENLBL     ;;3135966

ENLBL1    ;;3245151

ENLBL10   ;;14378355

ENLBL11   ;;7160263

ENLBL12   ;;13421987

ENLBL15   ;;12572513

ENLBL16   ;;1826387

ENLBL2    ;;3418306

ENLBL3    ;;10033853

ENLBL4    ;;13077812

ENLBL5    ;;13751323

ENLBL6    ;;12095536

ENLBL7    ;;4062804

ENLBL8    ;;8234100

ENLBL9    ;;10853901

ENLIB     ;;6814617

ENLIB1    ;;9070707

ENLIB2    ;;8379485

ENMAN     ;;5576464

ENNEWPK2  ;;5397991

ENNEWPKG  ;;3718383

ENPL1     ;;570844

ENPL10    ;;3212501

ENPL11    ;;741836

ENPL1A    ;;4660189

ENPL2     ;;1954959

ENPL3     ;;5279839

ENPL3A    ;;6695082

ENPL3B    ;;5892963

ENPL4     ;;2500320

ENPL5     ;;6174517

ENPL5A    ;;7212529

ENPL5B    ;;7246310

ENPL5C    ;;1776100

ENPL6     ;;629956

ENPL7     ;;7630291

ENPL7A    ;;2540563

ENPL7B    ;;7246249

ENPL7C    ;;3950594

ENPL8     ;;5044355

ENPL8A    ;;4072945

ENPL9     ;;4550205

ENPOST    ;;6322701

ENPROJ    ;;10601112

ENPROJ1   ;;3824567

ENPROJ2   ;;7500311

ENPROJ3   ;;5258779

ENPROJ7   ;;6977689

ENPROJ8   ;;10562136

ENPROJ9   ;;1570570

ENPRP     ;;5660213

ENPRP1    ;;9519708

ENPRP2    ;;9986033

ENPRP3    ;;7038858

ENPRP4    ;;4795223