XMNTEG.m

XMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;07/23/2002  10:18

 ;;8.0;MailMan;;Jun 28, 2002

 ;;7.3;Apr 19, 2002@07:52:43

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

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

XM ;;10750940

XMA ;;193377

XMA0 ;;305822

XMA03 ;;66257

XMA11 ;;19543

XMA11A ;;295406

XMA1B ;;741680

XMA1C ;;99629

XMA2 ;;1117192

XMA21 ;;2501947

XMA21C ;;5477330

XMA2B ;;4983521

XMA2R ;;3986868

XMA3 ;;11956281

XMA30 ;;10571799

XMA32 ;;8481844

XMA32A ;;9150003

XMA7 ;;16522

XMAD2 ;;208202

XMADGO ;;10833

XMAFTP ;;3725650

XMAH ;;1584093

XMAH1 ;;2176845

XMAI2 ;;2084332

XMAPBLOB ;;4954112

XMAPHOST ;;7077399

XMASEC ;;46560

XMB ;;4289569

XMBBLOB ;;1692263

XMBGRP ;;8136862

XMC ;;3542655

XMC1 ;;9454283

XMC11 ;;2246886

XMC1A ;;3411138

XMC1B ;;2460937

XMCB ;;3553056

XMCD ;;4131908

XMCDNT ;;401792

XMCE ;;1460559

XMCP ;;2311480

XMCQ ;;4988121

XMCQA ;;6380548

XMCQH ;;2468361

XMCSIZE ;;1758419

XMCTLK ;;8483546

XMCTRAP ;;161791

XMCU1 ;;787300

XMCX ;;5550363

XMCXT ;;2533239

XMCXU ;;5743394

XMD ;;7748228

XMDIR1 ;;9778409

XMDIR1A ;;4299248

XMDIR1B ;;3077473

XMDIRQST ;;7707598

XMDIRRCV ;;1925075

XMDIRSND ;;2039595

XMFAX ;;5011960

XMGAPI0 ;;2470973

XMGAPI1 ;;22159

XMGAPI2 ;;3885630

XMGAPI3 ;;2143520

XMGAPI4 ;;5418259

XMHIG ;;6374158

XMHIU ;;9084627

XMJBL ;;4988691

XMJBM ;;11064135

XMJBM1 ;;3151843

XMJBN ;;10845646

XMJBN1 ;;5454531

XMJBU ;;2768827

XMJDIR ;;6153613

XMJERR ;;375271

XMJMA ;;3612338

XMJMBULL ;;1994222

XMJMC ;;9725999

XMJMCODE ;;12533067

XMJMD ;;9375016

XMJMF ;;3844343

XMJMF1 ;;11350281

XMJMF2 ;;6670003

XMJMFA ;;6729708

XMJMFB ;;17121533

XMJMFC ;;12108437

XMJML ;;12709285

XMJMLN ;;14794710

XMJMLR ;;14272339

XMJMLR1 ;;6881581

XMJMOI ;;14666274

XMJMOI1 ;;8385762

XMJMOIE ;;3277725

XMJMP ;;15497599

XMJMP1 ;;18918998

XMJMP2 ;;2708969

XMJMQ ;;14078177

XMJMQ1 ;;13480745

XMJMR ;;10472863

XMJMR1 ;;10598504

XMJMRO ;;5049970

XMJMS ;;7995221

XMJMSA ;;1902278

XMJMSO ;;10097928

XMJMT ;;8959953

XMKP ;;16206281

XMKP1 ;;1811191

XMKPL ;;2912755

XMKPLQ ;;5786623

XMKPO ;;2469366

XMKPR ;;10051281

XMKPR1 ;;5051210

XMKPRD ;;5470763

XML ;;5119164

XML1CRC ;;5596625

XML4CRC ;;11722711

XML4CRC1 ;;6216754

XMLPC ;;2821947

XMLSWP ;;5626101

XMLSWP0 ;;5152871

XMLSWP2 ;;3134547

XMLTCP ;;2332071

XMM1 ;;3866874

XMM2 ;;2670817

XMP ;;8830587

XMP2 ;;9384926

XMP2A ;;8263048

XMJMOR ;;14793912

XMJMORX ;;13578226

XMJMORX1 ;;7116146

XMP3 ;;6720603

XMPC ;;5352206

XMPG ;;4410165

XMPH ;;4952939

XMPSEC ;;7152889

XMR ;;11613068

XMR0BLOB ;;4867143

XMR1 ;;10825754

XMR2 ;;2314394

XMR3 ;;14650619

XMR3A ;;2650246

XMR4 ;;11545724

XMRENT ;;2261713

XMRFTP ;;3153916

XMRFTPUX ;;3165955

XMRINETD ;;363486

XMRMSM ;;338607

XMRONT ;;390591

XMRPCTS ;;4756429

XMRPCTS0 ;;5251212

XMRPCTS1 ;;5706972

XMRPCTSA ;;3495721

XMRPOP ;;11311549

XMRTCP ;;3549159

XMRTCPGO ;;2857890

XMRUCX ;;1143285

XMS ;;8210098

XMS0BLOB ;;6743955

XMS1 ;;9572683

XMS2 ;;5021128

XMS3 ;;11387711

XMSFTP ;;3096740

XMSFTPUX ;;3150307

XMTDF ;;7250797

XMTDL ;;18753082

XMTDL1 ;;4584627

XMTDL2 ;;10414584

XMTDO ;;1726768

XMTDR ;;10257008

XMTDT ;;8338601

XMUCXPOP ;;361549

XMUDCHK ;;1578565

XMUDCHR ;;8046508

XMUDNC ;;14028901

XMUDTOP ;;3796998

XMNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;07/23/2002  10:18

 +1       ;;8.0;MailMan;;Jun 28, 2002

 +2       ;;7.3;Apr 19, 2002@07:52:43

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

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

XM        ;;10750940

XMA       ;;193377

XMA0      ;;305822

XMA03     ;;66257

XMA11     ;;19543

XMA11A    ;;295406

XMA1B     ;;741680

XMA1C     ;;99629

XMA2      ;;1117192

XMA21     ;;2501947

XMA21C    ;;5477330

XMA2B     ;;4983521

XMA2R     ;;3986868

XMA3      ;;11956281

XMA30     ;;10571799

XMA32     ;;8481844

XMA32A    ;;9150003

XMA7      ;;16522

XMAD2     ;;208202

XMADGO    ;;10833

XMAFTP    ;;3725650

XMAH      ;;1584093

XMAH1     ;;2176845

XMAI2     ;;2084332

XMAPBLOB  ;;4954112

XMAPHOST  ;;7077399

XMASEC    ;;46560

XMB       ;;4289569

XMBBLOB   ;;1692263

XMBGRP    ;;8136862

XMC       ;;3542655

XMC1      ;;9454283

XMC11     ;;2246886

XMC1A     ;;3411138

XMC1B     ;;2460937

XMCB      ;;3553056

XMCD      ;;4131908

XMCDNT    ;;401792

XMCE      ;;1460559

XMCP      ;;2311480

XMCQ      ;;4988121

XMCQA     ;;6380548

XMCQH     ;;2468361

XMCSIZE   ;;1758419

XMCTLK    ;;8483546

XMCTRAP   ;;161791

XMCU1     ;;787300

XMCX      ;;5550363

XMCXT     ;;2533239

XMCXU     ;;5743394

XMD       ;;7748228

XMDIR1    ;;9778409

XMDIR1A   ;;4299248

XMDIR1B   ;;3077473

XMDIRQST  ;;7707598

XMDIRRCV  ;;1925075

XMDIRSND  ;;2039595

XMFAX     ;;5011960

XMGAPI0   ;;2470973

XMGAPI1   ;;22159

XMGAPI2   ;;3885630

XMGAPI3   ;;2143520

XMGAPI4   ;;5418259

XMHIG     ;;6374158

XMHIU     ;;9084627

XMJBL     ;;4988691

XMJBM     ;;11064135

XMJBM1    ;;3151843

XMJBN     ;;10845646

XMJBN1    ;;5454531

XMJBU     ;;2768827

XMJDIR    ;;6153613

XMJERR    ;;375271

XMJMA     ;;3612338

XMJMBULL  ;;1994222

XMJMC     ;;9725999

XMJMCODE  ;;12533067

XMJMD     ;;9375016

XMJMF     ;;3844343

XMJMF1    ;;11350281

XMJMF2    ;;6670003

XMJMFA    ;;6729708

XMJMFB    ;;17121533

XMJMFC    ;;12108437

XMJML     ;;12709285

XMJMLN    ;;14794710

XMJMLR    ;;14272339

XMJMLR1   ;;6881581

XMJMOI    ;;14666274

XMJMOI1   ;;8385762

XMJMOIE   ;;3277725

XMJMP     ;;15497599

XMJMP1    ;;18918998

XMJMP2    ;;2708969

XMJMQ     ;;14078177

XMJMQ1    ;;13480745

XMJMR     ;;10472863

XMJMR1    ;;10598504

XMJMRO    ;;5049970

XMJMS     ;;7995221

XMJMSA    ;;1902278

XMJMSO    ;;10097928

XMJMT     ;;8959953

XMKP      ;;16206281

XMKP1     ;;1811191

XMKPL     ;;2912755

XMKPLQ    ;;5786623

XMKPO     ;;2469366

XMKPR     ;;10051281

XMKPR1    ;;5051210

XMKPRD    ;;5470763

XML       ;;5119164

XML1CRC   ;;5596625

XML4CRC   ;;11722711

XML4CRC1  ;;6216754

XMLPC     ;;2821947

XMLSWP    ;;5626101

XMLSWP0   ;;5152871

XMLSWP2   ;;3134547

XMLTCP    ;;2332071

XMM1      ;;3866874

XMM2      ;;2670817

XMP       ;;8830587

XMP2      ;;9384926

XMP2A     ;;8263048

XMJMOR    ;;14793912

XMJMORX   ;;13578226

XMJMORX1  ;;7116146

XMP3      ;;6720603

XMPC      ;;5352206

XMPG      ;;4410165

XMPH      ;;4952939

XMPSEC    ;;7152889

XMR       ;;11613068

XMR0BLOB  ;;4867143

XMR1      ;;10825754

XMR2      ;;2314394

XMR3      ;;14650619

XMR3A     ;;2650246

XMR4      ;;11545724

XMRENT    ;;2261713

XMRFTP    ;;3153916

XMRFTPUX  ;;3165955

XMRINETD  ;;363486

XMRMSM    ;;338607

XMRONT    ;;390591

XMRPCTS   ;;4756429

XMRPCTS0  ;;5251212

XMRPCTS1  ;;5706972

XMRPCTSA  ;;3495721

XMRPOP    ;;11311549

XMRTCP    ;;3549159

XMRTCPGO  ;;2857890

XMRUCX    ;;1143285

XMS       ;;8210098

XMS0BLOB  ;;6743955

XMS1      ;;9572683

XMS2      ;;5021128

XMS3      ;;11387711

XMSFTP    ;;3096740

XMSFTPUX  ;;3150307

XMTDF     ;;7250797

XMTDL     ;;18753082

XMTDL1    ;;4584627

XMTDL2    ;;10414584

XMTDO     ;;1726768

XMTDR     ;;10257008

XMTDT     ;;8338601

XMUCXPOP  ;;361549

XMUDCHK   ;;1578565

XMUDCHR   ;;8046508

XMUDNC    ;;14028901

XMUDTOP   ;;3796998