ABMNTEG.m

ABMNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070914.065402

 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 ;;7.3;3070914.065402

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

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

ABMANSIT ;;133227

ABMAPAS1 ;;4398479

ABMAPASS ;;8507882

ABMAROLL ;;8988160

ABMASPLT ;;8016449

ABMAUDRP ;;12572064

ABMCPTCK ;;3432556

ABMDBADD ;;13334687

ABMDBAN ;;7112535

ABMDBDIC ;;7571020

ABMDBLK ;;9942383

ABMDCCL ;;2673256

ABMDCCL1 ;;6896714

ABMDCCL2 ;;8320402

ABMDCCL3 ;;3278933

ABMDCOPN ;;2085632

ABMDE ;;5705199

ABMDE0 ;;6067216

ABMDE0A ;;9680849

ABMDE0X ;;8155082

ABMDE0X1 ;;3342876

ABMDE1 ;;7871400

ABMDE1A ;;3420837

ABMDE1X ;;4563583

ABMDE1X1 ;;6937589

ABMDE2 ;;12887267

ABMDE2A ;;5044369

ABMDE2E ;;11248712

ABMDE2P ;;4520864

ABMDE2X ;;15960598

ABMDE2X2 ;;8949166

ABMDE2X3 ;;3672876

ABMDE2X4 ;;4248303

ABMDE2X5 ;;1347267

ABMDE2XA ;;6155400

ABMDE3 ;;3626002

ABMDE30 ;;15827409

ABMDE301 ;;1682900

ABMDE31 ;;14922124

ABMDE31X ;;914047

ABMDE3A ;;10805554

ABMDE3B ;;11715784

ABMDE3C ;;21997284

ABMDE3X ;;8404065

ABMDE4 ;;10850006

ABMDE4A ;;5732806

ABMDE4X ;;11173427

ABMDE5 ;;9749363

ABMDE6 ;;8173734

ABMDE6X ;;2004187

ABMDE7 ;;4333922

ABMDE7A ;;5411961

ABMDE7C ;;5325757

ABMDE8 ;;6596525

ABMDE8A ;;8426973

ABMDE8B ;;8374357

ABMDE8B1 ;;9548419

ABMDE8C ;;6730089

ABMDE8D ;;17155546

ABMDE8E ;;9330051

ABMDE8F ;;8235509

ABMDE8G ;;8932059

ABMDE8H ;;7637223

ABMDE8I ;;4636640

ABMDE8J ;;3972755

ABMDE8K ;;6066489

ABMDE8X ;;22622819

ABMDE8X1 ;;19026674

ABMDE9 ;;5595254

ABMDE9A ;;5482544

ABMDE9B ;;5237848

ABMDE9C ;;7125626

ABMDE9X ;;3971875

ABMDEAD2 ;;5218137

ABMDEADD ;;9023559

ABMDEBIL ;;8789365

ABMDECAN ;;11857205

ABMDECHK ;;2815920

ABMDECK ;;10425513

ABMDECLN ;;7618719

ABMDEDIC ;;7850097

ABMDEFIP ;;2525234

ABMDELOO ;;4385763

ABMDEML ;;14744889

ABMDEMLB ;;13869562

ABMDEMLC ;;18712443

ABMDEMLE ;;16573782

ABMDEMRG ;;19697247

ABMDEOK ;;8164793

ABMDEOPT ;;4915983

ABMDEPG ;;4904547

ABMDERR ;;6087163

ABMDES1 ;;6667613

ABMDES24 ;;1477017

ABMDES3 ;;8506379

ABMDES4 ;;6027366

ABMDESEL ;;8378973

ABMDESL1 ;;6498346

ABMDESM ;;5789856

ABMDESM1 ;;15729105

ABMDESMA ;;5133061

ABMDESMB ;;7985715

ABMDESMD ;;4012095

ABMDESMH ;;9045346

ABMDESML ;;4758723

ABMDESMM ;;4450665

ABMDESMR ;;7165121

ABMDESMU ;;9320431

ABMDESMX ;;4374514

ABMDEVAR ;;10133830

ABMDF11 ;;9578916

ABMDF11W ;;4473264

ABMDF11X ;;19254301

ABMDF11Y ;;23041735

ABMDF11Z ;;13944314

ABMDF12 ;;11757618

ABMDF12A ;;12687455

ABMDF12X ;;6543845

ABMDF14 ;;3804914

ABMDF14A ;;10081223

ABMDF14B ;;8170235

ABMDF14C ;;11856499

ABMDF14D ;;7713873

ABMDF14E ;;10857104

ABMDF14X ;;12738113

ABMDF18 ;;12618081

ABMDF18A ;;17035203

ABMDF18X ;;3280806

ABMDF24 ;;14006671

ABMDF24T ;;432020

ABMDF25 ;;11351883

ABMDF25A ;;25174246

ABMDF25X ;;3637997

ABMDF26 ;;7772260

ABMDF26A ;;17447505

ABMDF26X ;;3305315

ABMDF27 ;;3036347

ABMDF27A ;;14009810

ABMDF27B ;;6322876

ABMDF27C ;;8844905

ABMDF27D ;;12121632

ABMDF27E ;;7836245

ABMDF27X ;;12902389

ABMDF28 ;;9555110

ABMDF28W ;;6903424

ABMDF28X ;;18563954

ABMDF28Y ;;30293817

ABMDF28Z ;;25686819

ABMDF29 ;;9203578

ABMDF29A ;;28537130

ABMDF29X ;;4776730

ABMDF3 ;;3800974

ABMDF3A ;;9890683

ABMDF3B ;;8228681

ABMNTEG   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070914.065402

 +1       ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009

 +2       ;;7.3;3070914.065402

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

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

ABMANSIT  ;;133227

ABMAPAS1  ;;4398479

ABMAPASS  ;;8507882

ABMAROLL  ;;8988160

ABMASPLT  ;;8016449

ABMAUDRP  ;;12572064

ABMCPTCK  ;;3432556

ABMDBADD  ;;13334687

ABMDBAN   ;;7112535

ABMDBDIC  ;;7571020

ABMDBLK   ;;9942383

ABMDCCL   ;;2673256

ABMDCCL1  ;;6896714

ABMDCCL2  ;;8320402

ABMDCCL3  ;;3278933

ABMDCOPN  ;;2085632

ABMDE     ;;5705199

ABMDE0    ;;6067216

ABMDE0A   ;;9680849

ABMDE0X   ;;8155082

ABMDE0X1  ;;3342876

ABMDE1    ;;7871400

ABMDE1A   ;;3420837

ABMDE1X   ;;4563583

ABMDE1X1  ;;6937589

ABMDE2    ;;12887267

ABMDE2A   ;;5044369

ABMDE2E   ;;11248712

ABMDE2P   ;;4520864

ABMDE2X   ;;15960598

ABMDE2X2  ;;8949166

ABMDE2X3  ;;3672876

ABMDE2X4  ;;4248303

ABMDE2X5  ;;1347267

ABMDE2XA  ;;6155400

ABMDE3    ;;3626002

ABMDE30   ;;15827409

ABMDE301  ;;1682900

ABMDE31   ;;14922124

ABMDE31X  ;;914047

ABMDE3A   ;;10805554

ABMDE3B   ;;11715784

ABMDE3C   ;;21997284

ABMDE3X   ;;8404065

ABMDE4    ;;10850006

ABMDE4A   ;;5732806

ABMDE4X   ;;11173427

ABMDE5    ;;9749363

ABMDE6    ;;8173734

ABMDE6X   ;;2004187

ABMDE7    ;;4333922

ABMDE7A   ;;5411961

ABMDE7C   ;;5325757

ABMDE8    ;;6596525

ABMDE8A   ;;8426973

ABMDE8B   ;;8374357

ABMDE8B1  ;;9548419

ABMDE8C   ;;6730089

ABMDE8D   ;;17155546

ABMDE8E   ;;9330051

ABMDE8F   ;;8235509

ABMDE8G   ;;8932059

ABMDE8H   ;;7637223

ABMDE8I   ;;4636640

ABMDE8J   ;;3972755

ABMDE8K   ;;6066489

ABMDE8X   ;;22622819

ABMDE8X1  ;;19026674

ABMDE9    ;;5595254

ABMDE9A   ;;5482544

ABMDE9B   ;;5237848

ABMDE9C   ;;7125626

ABMDE9X   ;;3971875

ABMDEAD2  ;;5218137

ABMDEADD  ;;9023559

ABMDEBIL  ;;8789365

ABMDECAN  ;;11857205

ABMDECHK  ;;2815920

ABMDECK   ;;10425513

ABMDECLN  ;;7618719

ABMDEDIC  ;;7850097

ABMDEFIP  ;;2525234

ABMDELOO  ;;4385763

ABMDEML   ;;14744889

ABMDEMLB  ;;13869562

ABMDEMLC  ;;18712443

ABMDEMLE  ;;16573782

ABMDEMRG  ;;19697247

ABMDEOK   ;;8164793

ABMDEOPT  ;;4915983

ABMDEPG   ;;4904547

ABMDERR   ;;6087163

ABMDES1   ;;6667613

ABMDES24  ;;1477017

ABMDES3   ;;8506379

ABMDES4   ;;6027366

ABMDESEL  ;;8378973

ABMDESL1  ;;6498346

ABMDESM   ;;5789856

ABMDESM1  ;;15729105

ABMDESMA  ;;5133061

ABMDESMB  ;;7985715

ABMDESMD  ;;4012095

ABMDESMH  ;;9045346

ABMDESML  ;;4758723

ABMDESMM  ;;4450665

ABMDESMR  ;;7165121

ABMDESMU  ;;9320431

ABMDESMX  ;;4374514

ABMDEVAR  ;;10133830

ABMDF11   ;;9578916

ABMDF11W  ;;4473264

ABMDF11X  ;;19254301

ABMDF11Y  ;;23041735

ABMDF11Z  ;;13944314

ABMDF12   ;;11757618

ABMDF12A  ;;12687455

ABMDF12X  ;;6543845

ABMDF14   ;;3804914

ABMDF14A  ;;10081223

ABMDF14B  ;;8170235

ABMDF14C  ;;11856499

ABMDF14D  ;;7713873

ABMDF14E  ;;10857104

ABMDF14X  ;;12738113

ABMDF18   ;;12618081

ABMDF18A  ;;17035203

ABMDF18X  ;;3280806

ABMDF24   ;;14006671

ABMDF24T  ;;432020

ABMDF25   ;;11351883

ABMDF25A  ;;25174246

ABMDF25X  ;;3637997

ABMDF26   ;;7772260

ABMDF26A  ;;17447505

ABMDF26X  ;;3305315

ABMDF27   ;;3036347

ABMDF27A  ;;14009810

ABMDF27B  ;;6322876

ABMDF27C  ;;8844905

ABMDF27D  ;;12121632

ABMDF27E  ;;7836245

ABMDF27X  ;;12902389

ABMDF28   ;;9555110

ABMDF28W  ;;6903424

ABMDF28X  ;;18563954

ABMDF28Y  ;;30293817

ABMDF28Z  ;;25686819

ABMDF29   ;;9203578

ABMDF29A  ;;28537130

ABMDF29X  ;;4776730

ABMDF3    ;;3800974

ABMDF3A   ;;9890683

ABMDF3B   ;;8228681