MCNTEG.m

MCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955

 ;;2.3;Medicine;;09/13/1996

 ;;7.3;2960909.113955

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

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

MCARAM ;;7513129

MCARAM0 ;;8652928

MCARAM0A ;;3324603

MCARAM0B ;;1635444

MCARAM0C ;;259164

MCARAM0D ;;1414732

MCARAM0E ;;2281887

MCARAM0F ;;1175131

MCARAM0G ;;965472

MCARAM0H ;;1245689

MCARAM1 ;;9634784

MCARAM2 ;;5013333

MCARAM3 ;;7540725

MCARAM4 ;;5388145

MCARAM5 ;;7414846

MCARAM6 ;;4370819

MCARAM7 ;;3389255

MCARAML ;;884394

MCARAMLA ;;1770487

MCARAMLB ;;1030845

MCARAMLC ;;2145896

MCARAMLD ;;1213232

MCARAMLE ;;985870

MCARAMLF ;;1648647

MCARAMLG ;;3429686

MCARAMLH ;;4812240

MCARAP ;;13128865

MCARAP1 ;;8368139

MCARAP2 ;;8581535

MCARASE ;;1343241

MCARATVE ;;4660706

MCARBSA ;;1893009

MCARD ;;7219348

MCARD1 ;;9153309

MCARDBL ;;2745397

MCARDC ;;8324014

MCARDC1 ;;10958868

MCARDCM ;;8624300

MCARDCM1 ;;9199269

MCARDCM2 ;;16019523

MCARDCM3 ;;4461677

MCARDCN ;;8168560

MCARDCN1 ;;11879348

MCARDCQ ;;9767978

MCARDCQ1 ;;14107855

MCARDHLP ;;7413320

MCARDML ;;7891874

MCARDNJ ;;12950077

MCARDNJ1 ;;11164953

MCARDNJ2 ;;8566701

MCARDNK ;;4192119

MCARDNQ ;;9677299

MCARDNQ2 ;;5603751

MCARDPAR ;;1087615

MCARDPL ;;6589975

MCARDSE ;;4910080

MCARDSS ;;2795427

MCARE ;;10169181

MCARE1 ;;587426

MCARED ;;1346233

MCAREH ;;2668985

MCARENV ;;1706772

MCARENV1 ;;5645418

MCAREO ;;1226288

MCARGD ;;10355791

MCARGE ;;12626600

MCARGEA ;;2183926

MCARGEO ;;1273111

MCARGES ;;8749771

MCARGP ;;8855698

MCARGPA ;;2450896

MCARGS ;;15196656

MCARHP ;;9526217

MCARLV ;;1224221

MCARP ;;12050941

MCARP1 ;;6483686

MCARPAC ;;4176211

MCARPACE ;;7935031

MCARPAL ;;8294365

MCARPCE ;;6947531

MCARPCS ;;2823538

MCARPCS1 ;;8993163

MCARPCS2 ;;6070211

MCARPCS3 ;;10490801

MCARPCS4 ;;6236777

MCARPROC ;;2609457

MCARPS ;;12724091

MCARPS1 ;;4080525

MCARSRE ;;2689053

MCARSRP ;;4956056

MCARSRR ;;7715339

MCARSUP ;;5565217

MCARVCHK ;;5828316

MCBPFTP1 ;;13843469

MCBPFTP2 ;;7860225

MCBPFTP3 ;;7872831

MCBPFTP4 ;;2488267

MCBPFTP5 ;;4778343

MCBPFTP6 ;;1682113

MCBPFTP7 ;;3150765

MCDBELM ;;8207435

MCDBSAVE ;;4573907

MCDIE001 ;;5582646

MCDIE002 ;;5818428

MCDIE003 ;;4575251

MCDIEDIE ;;4025966

MCDUP1 ;;10974055

MCDUPE ;;28907

MCDUPM ;;4383298

MCDUPP ;;5884894

MCDUPR ;;8492052

MCEF ;;2902953

MCENDIQ1 ;;198583

MCENV00 ;;6610520

MCENVCHK ;;160465

MCEO ;;1629111

MCEPROC ;;1763322

MCESCON3 ;;626548

MCESCONV ;;10707161

MCESEDT ;;12796040

MCESEDT2 ;;10366787

MCESHLP ;;6844447

MCESLIST ;;5146729

MCESMFDV ;;2288072

MCESPRT ;;6425050

MCESSCR ;;5268874

MCFIXOEP ;;740019

MCGBL ;;5394986

MCMAG ;;1044714

MCMAGDSP ;;5147124

MCMENUDE ;;5822044

MCNMDUP ;;2619985

MCNP2CHK ;;4467177

MCNP2X ;;793498

MCOR ;;14232069

MCOR1 ;;5268190

MCOREX ;;2660895

MCORMN ;;4051049

MCORMN0 ;;6741624

MCORMN01 ;;1977484

MCORMN1 ;;5869467

MCORMN2 ;;6151277

MCPARAM ;;504047

MCPFTE ;;4844525

MCPFTI ;;6287475

MCPFTIC ;;5278858

MCPFTP ;;1702907

MCPFTP1 ;;12497840

MCPFTP1A ;;1637882

MCPFTP2 ;;11990988

MCPFTP2A ;;12428437

MCPFTP3 ;;5993259

MCPFTP4 ;;6787432

MCPFTP4A ;;1678587

MCPFTP5 ;;13958685

MCPFTR ;;1913488

MCPFTSS ;;546237

MCPMV ;;2778636

MCPMVA ;;641401

MCNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;;7.3;2960909.113955

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

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

MCARAM    ;;7513129

MCARAM0   ;;8652928

MCARAM0A  ;;3324603

MCARAM0B  ;;1635444

MCARAM0C  ;;259164

MCARAM0D  ;;1414732

MCARAM0E  ;;2281887

MCARAM0F  ;;1175131

MCARAM0G  ;;965472

MCARAM0H  ;;1245689

MCARAM1   ;;9634784

MCARAM2   ;;5013333

MCARAM3   ;;7540725

MCARAM4   ;;5388145

MCARAM5   ;;7414846

MCARAM6   ;;4370819

MCARAM7   ;;3389255

MCARAML   ;;884394

MCARAMLA  ;;1770487

MCARAMLB  ;;1030845

MCARAMLC  ;;2145896

MCARAMLD  ;;1213232

MCARAMLE  ;;985870

MCARAMLF  ;;1648647

MCARAMLG  ;;3429686

MCARAMLH  ;;4812240

MCARAP    ;;13128865

MCARAP1   ;;8368139

MCARAP2   ;;8581535

MCARASE   ;;1343241

MCARATVE  ;;4660706

MCARBSA   ;;1893009

MCARD     ;;7219348

MCARD1    ;;9153309

MCARDBL   ;;2745397

MCARDC    ;;8324014

MCARDC1   ;;10958868

MCARDCM   ;;8624300

MCARDCM1  ;;9199269

MCARDCM2  ;;16019523

MCARDCM3  ;;4461677

MCARDCN   ;;8168560

MCARDCN1  ;;11879348

MCARDCQ   ;;9767978

MCARDCQ1  ;;14107855

MCARDHLP  ;;7413320

MCARDML   ;;7891874

MCARDNJ   ;;12950077

MCARDNJ1  ;;11164953

MCARDNJ2  ;;8566701

MCARDNK   ;;4192119

MCARDNQ   ;;9677299

MCARDNQ2  ;;5603751

MCARDPAR  ;;1087615

MCARDPL   ;;6589975

MCARDSE   ;;4910080

MCARDSS   ;;2795427

MCARE     ;;10169181

MCARE1    ;;587426

MCARED    ;;1346233

MCAREH    ;;2668985

MCARENV   ;;1706772

MCARENV1  ;;5645418

MCAREO    ;;1226288

MCARGD    ;;10355791

MCARGE    ;;12626600

MCARGEA   ;;2183926

MCARGEO   ;;1273111

MCARGES   ;;8749771

MCARGP    ;;8855698

MCARGPA   ;;2450896

MCARGS    ;;15196656

MCARHP    ;;9526217

MCARLV    ;;1224221

MCARP     ;;12050941

MCARP1    ;;6483686

MCARPAC   ;;4176211

MCARPACE  ;;7935031

MCARPAL   ;;8294365

MCARPCE   ;;6947531

MCARPCS   ;;2823538

MCARPCS1  ;;8993163

MCARPCS2  ;;6070211

MCARPCS3  ;;10490801

MCARPCS4  ;;6236777

MCARPROC  ;;2609457

MCARPS    ;;12724091

MCARPS1   ;;4080525

MCARSRE   ;;2689053

MCARSRP   ;;4956056

MCARSRR   ;;7715339

MCARSUP   ;;5565217

MCARVCHK  ;;5828316

MCBPFTP1  ;;13843469

MCBPFTP2  ;;7860225

MCBPFTP3  ;;7872831

MCBPFTP4  ;;2488267

MCBPFTP5  ;;4778343

MCBPFTP6  ;;1682113

MCBPFTP7  ;;3150765

MCDBELM   ;;8207435

MCDBSAVE  ;;4573907

MCDIE001  ;;5582646

MCDIE002  ;;5818428

MCDIE003  ;;4575251

MCDIEDIE  ;;4025966

MCDUP1    ;;10974055

MCDUPE    ;;28907

MCDUPM    ;;4383298

MCDUPP    ;;5884894

MCDUPR    ;;8492052

MCEF      ;;2902953

MCENDIQ1  ;;198583

MCENV00   ;;6610520

MCENVCHK  ;;160465

MCEO      ;;1629111

MCEPROC   ;;1763322

MCESCON3  ;;626548

MCESCONV  ;;10707161

MCESEDT   ;;12796040

MCESEDT2  ;;10366787

MCESHLP   ;;6844447

MCESLIST  ;;5146729

MCESMFDV  ;;2288072

MCESPRT   ;;6425050

MCESSCR   ;;5268874

MCFIXOEP  ;;740019

MCGBL     ;;5394986

MCMAG     ;;1044714

MCMAGDSP  ;;5147124

MCMENUDE  ;;5822044

MCNMDUP   ;;2619985

MCNP2CHK  ;;4467177

MCNP2X    ;;793498

MCOR      ;;14232069

MCOR1     ;;5268190

MCOREX    ;;2660895

MCORMN    ;;4051049

MCORMN0   ;;6741624

MCORMN01  ;;1977484

MCORMN1   ;;5869467

MCORMN2   ;;6151277

MCPARAM   ;;504047

MCPFTE    ;;4844525

MCPFTI    ;;6287475

MCPFTIC   ;;5278858

MCPFTP    ;;1702907

MCPFTP1   ;;12497840

MCPFTP1A  ;;1637882

MCPFTP2   ;;11990988

MCPFTP2A  ;;12428437

MCPFTP3   ;;5993259

MCPFTP4   ;;6787432

MCPFTP4A  ;;1678587

MCPFTP5   ;;13958685

MCPFTR    ;;1913488

MCPFTSS   ;;546237

MCPMV     ;;2778636

MCPMVA    ;;641401