DGNTEG.m

DGNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:48:50

 ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 ;;7.0;AUG 13, 1993@12:48:50

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

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

DG10 ;;3836495

DG1010P ;;11459541

DG1010P0 ;;1314346

DG1010P1 ;;13799216

DG1010P2 ;;8453869

DG1010P3 ;;6164680

DG1010P4 ;;7181713

DG1010P5 ;;7501466

DG1010P6 ;;10096482

DG1010P7 ;;13314650

DG1010PA ;;4613202

DG1010PX ;;7715973

DG1010S1 ;;23821127

DG1010S2 ;;18364748

DG3PR ;;3021030

DG3PR0 ;;6620629

DG3PR1 ;;4522534

DG3PR2 ;;11690252

DGA400 ;;12138168

DGA4001 ;;16056644

DGA4002 ;;9301892

DGA4003 ;;7761246

DGA4004 ;;11609708

DGA4005 ;;17691249

DGA4006 ;;5787106

DGA4007 ;;2042305

DGABUL ;;7538472

DGAINP ;;3795864

DGAINP0 ;;7178330

DGAINP1 ;;9244036

DGAINP2 ;;8100096

DGAINP3 ;;2633278

DGAINP4 ;;8344622

DGANHD ;;3864476

DGANHD1 ;;7585149

DGANHD2 ;;4831283

DGANHD3 ;;1806372

DGANHD4 ;;6162588

DGBLRV ;;14119050

DGBT1 ;;7665616

DGBT2 ;;13095836

DGBTCD ;;13711638

DGBTCE ;;14849061

DGBTCE1 ;;5419607

DGBTCR ;;12532420

DGBTCR1 ;;8137574

DGBTCR2 ;;12956592

DGBTDIST ;;8481729

DGBTDST1 ;;2237098

DGBTE ;;8229618

DGBTE1 ;;8595661

DGBTE1A ;;6549070

DGBTEE ;;8216263

DGBTEE1 ;;11274715

DGBTEE2 ;;8101499

DGBTEF ;;15591466

DGBTEF1 ;;9005391

DGBTEND ;;12602292

DGBTOA1 ;;14177005

DGBTOA2 ;;11981540

DGBTOA3 ;;15389059

DGBTOA4 ;;15019918

DGBTOA5 ;;3360676

DGBTOA6 ;;9057573

DGBTR ;;9324442

DGBTSRCH ;;10574383

DGBTUTL ;;1356611

DGBUL ;;3656478

DGCOL ;;16970132

DGDDC ;;4818017

DGDEATH ;;12272750

DGDIS ;;14257393

DGDIS1 ;;5675861

DGDISPL ;;6977062

DGDISS ;;9364260

DGDIST ;;19344355

DGDIST1 ;;10706514

DGFI ;;3262670

DGGECS ;;16847352

DGGECSA ;;2782718

DGGECSB ;;6164870

DGGECSR ;;2816305

DGHELP ;;3815305

DGIN ;;50292

DGINP ;;180432

DGINPW ;;101051

DGINS ;;6190318

DGJBGJ ;;17066760

DGJBGJ1 ;;1611260

DGJOPRT ;;7505571

DGJOPRT1 ;;17207598

DGJOPRT2 ;;17870325

DGJOPRT3 ;;12022896

DGJOTP ;;12136251

DGJOTP1 ;;21753407

DGJOTP2 ;;12005300

DGJOTP3 ;;16818289

DGJOTPUL ;;9915514

DGJPAR ;;186014

DGJPAR1 ;;14281443

DGJPDEF ;;13686744

DGJPDEF1 ;;20529386

DGJPDEF2 ;;17990744

DGJPDEF3 ;;16274892

DGJSUM ;;7945437

DGJTADD ;;2567747

DGJTDEL ;;4511597

DGJTEE ;;19163376

DGJTEE1 ;;12664333

DGJTEE2 ;;12267113

DGJTEE3 ;;14306643

DGJTEVT ;;11368122

DGJTHLP ;;8474910

DGJTUDIS ;;4651950

DGJTUTL ;;16684941

DGJTVW ;;5612957

DGJTVW1 ;;17594153

DGJTVW2 ;;8809719

DGJTVW3 ;;12907948

DGL ;;133046

DGLOCK ;;15547998

DGLOCK1 ;;13313898

DGLOCK2 ;;11670599

DGLOCK3 ;;1575192

DGMTA ;;9764937

DGMTAUD ;;9480441

DGMTAUD1 ;;188063

DGMTCOM ;;1549753

DGMTCOR ;;5288938

DGMTCOST ;;985361

DGMTCOU ;;2047092

DGMTCOU1 ;;3669588

DGMTDD ;;5296793

DGMTDD1 ;;1993635

DGMTDD2 ;;11706743

DGMTDD3 ;;8997689

DGMTDEL ;;9696857

DGMTDOM ;;363545

DGMTE ;;2602899

DGMTEO ;;3308362

DGMTEVT ;;390130

DGMTLK ;;501521

DGMTM ;;1630681

DGMTO ;;1612143

DGMTO1 ;;6287338

DGMTOFA ;;8112978

DGMTOFA1 ;;6841238

DGMTOHD ;;2657432

DGMTOPYT ;;3986408

DGMTOREQ ;;7724748

DGMTP ;;5245412

DGMTP1 ;;10428870

DGMTP2 ;;13975368

DGMTP3 ;;15675663

DGMTP4 ;;12233970

DGMTR ;;4475685

DGMTREQB ;;2563172

DGMTSC ;;3182358

DGMTSC1 ;;4640864

DGMTSC11 ;;4595279

DGNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:48:50

 +1       ;;5.3;Registration;**1015**;Aug 13, 1993;Build 21

 +2       ;;7.0;AUG 13, 1993@12:48:50

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

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

DG10      ;;3836495

DG1010P   ;;11459541

DG1010P0  ;;1314346

DG1010P1  ;;13799216

DG1010P2  ;;8453869

DG1010P3  ;;6164680

DG1010P4  ;;7181713

DG1010P5  ;;7501466

DG1010P6  ;;10096482

DG1010P7  ;;13314650

DG1010PA  ;;4613202

DG1010PX  ;;7715973

DG1010S1  ;;23821127

DG1010S2  ;;18364748

DG3PR     ;;3021030

DG3PR0    ;;6620629

DG3PR1    ;;4522534

DG3PR2    ;;11690252

DGA400    ;;12138168

DGA4001   ;;16056644

DGA4002   ;;9301892

DGA4003   ;;7761246

DGA4004   ;;11609708

DGA4005   ;;17691249

DGA4006   ;;5787106

DGA4007   ;;2042305

DGABUL    ;;7538472

DGAINP    ;;3795864

DGAINP0   ;;7178330

DGAINP1   ;;9244036

DGAINP2   ;;8100096

DGAINP3   ;;2633278

DGAINP4   ;;8344622

DGANHD    ;;3864476

DGANHD1   ;;7585149

DGANHD2   ;;4831283

DGANHD3   ;;1806372

DGANHD4   ;;6162588

DGBLRV    ;;14119050

DGBT1     ;;7665616

DGBT2     ;;13095836

DGBTCD    ;;13711638

DGBTCE    ;;14849061

DGBTCE1   ;;5419607

DGBTCR    ;;12532420

DGBTCR1   ;;8137574

DGBTCR2   ;;12956592

DGBTDIST  ;;8481729

DGBTDST1  ;;2237098

DGBTE     ;;8229618

DGBTE1    ;;8595661

DGBTE1A   ;;6549070

DGBTEE    ;;8216263

DGBTEE1   ;;11274715

DGBTEE2   ;;8101499

DGBTEF    ;;15591466

DGBTEF1   ;;9005391

DGBTEND   ;;12602292

DGBTOA1   ;;14177005

DGBTOA2   ;;11981540

DGBTOA3   ;;15389059

DGBTOA4   ;;15019918

DGBTOA5   ;;3360676

DGBTOA6   ;;9057573

DGBTR     ;;9324442

DGBTSRCH  ;;10574383

DGBTUTL   ;;1356611

DGBUL     ;;3656478

DGCOL     ;;16970132

DGDDC     ;;4818017

DGDEATH   ;;12272750

DGDIS     ;;14257393

DGDIS1    ;;5675861

DGDISPL   ;;6977062

DGDISS    ;;9364260

DGDIST    ;;19344355

DGDIST1   ;;10706514

DGFI      ;;3262670

DGGECS    ;;16847352

DGGECSA   ;;2782718

DGGECSB   ;;6164870

DGGECSR   ;;2816305

DGHELP    ;;3815305

DGIN      ;;50292

DGINP     ;;180432

DGINPW    ;;101051

DGINS     ;;6190318

DGJBGJ    ;;17066760

DGJBGJ1   ;;1611260

DGJOPRT   ;;7505571

DGJOPRT1  ;;17207598

DGJOPRT2  ;;17870325

DGJOPRT3  ;;12022896

DGJOTP    ;;12136251

DGJOTP1   ;;21753407

DGJOTP2   ;;12005300

DGJOTP3   ;;16818289

DGJOTPUL  ;;9915514

DGJPAR    ;;186014

DGJPAR1   ;;14281443

DGJPDEF   ;;13686744

DGJPDEF1  ;;20529386

DGJPDEF2  ;;17990744

DGJPDEF3  ;;16274892

DGJSUM    ;;7945437

DGJTADD   ;;2567747

DGJTDEL   ;;4511597

DGJTEE    ;;19163376

DGJTEE1   ;;12664333

DGJTEE2   ;;12267113

DGJTEE3   ;;14306643

DGJTEVT   ;;11368122

DGJTHLP   ;;8474910

DGJTUDIS  ;;4651950

DGJTUTL   ;;16684941

DGJTVW    ;;5612957

DGJTVW1   ;;17594153

DGJTVW2   ;;8809719

DGJTVW3   ;;12907948

DGL       ;;133046

DGLOCK    ;;15547998

DGLOCK1   ;;13313898

DGLOCK2   ;;11670599

DGLOCK3   ;;1575192

DGMTA     ;;9764937

DGMTAUD   ;;9480441

DGMTAUD1  ;;188063

DGMTCOM   ;;1549753

DGMTCOR   ;;5288938

DGMTCOST  ;;985361

DGMTCOU   ;;2047092

DGMTCOU1  ;;3669588

DGMTDD    ;;5296793

DGMTDD1   ;;1993635

DGMTDD2   ;;11706743

DGMTDD3   ;;8997689

DGMTDEL   ;;9696857

DGMTDOM   ;;363545

DGMTE     ;;2602899

DGMTEO    ;;3308362

DGMTEVT   ;;390130

DGMTLK    ;;501521

DGMTM     ;;1630681

DGMTO     ;;1612143

DGMTO1    ;;6287338

DGMTOFA   ;;8112978

DGMTOFA1  ;;6841238

DGMTOHD   ;;2657432

DGMTOPYT  ;;3986408

DGMTOREQ  ;;7724748

DGMTP     ;;5245412

DGMTP1    ;;10428870

DGMTP2    ;;13975368

DGMTP3    ;;15675663

DGMTP4    ;;12233970

DGMTR     ;;4475685

DGMTREQB  ;;2563172

DGMTSC    ;;3182358

DGMTSC1   ;;4640864

DGMTSC11  ;;4595279