DGNTEG02.m

DGNTEG02 ;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^DGNTEG03

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

DGRP11 ;;8294458

DGRP12 ;;3878224

DGRP13 ;;4042382

DGRP14 ;;3414357

DGRP2 ;;5687059

DGRP3 ;;6045190

DGRP4 ;;6006447

DGRP5 ;;3651248

DGRP6 ;;12769961

DGRP7 ;;10164416

DGRP8 ;;9786787

DGRP9 ;;8611620

DGRPC ;;9490160

DGRPC1 ;;7285440

DGRPC2 ;;6788636

DGRPCB ;;10032754

DGRPCE ;;11950905

DGRPCE1 ;;2359715

DGRPCF ;;13054956

DGRPCF1 ;;5322740

DGRPCK ;;6781893

DGRPCP ;;6629895

DGRPCP1 ;;14708629

DGRPCR ;;13370363

DGRPCS ;;2207234

DGRPCU ;;7025466

DGRPD ;;18487072

DGRPDB ;;9197926

DGRPDD ;;180582

DGRPDD1 ;;18478647

DGRPE ;;17383383

DGRPE1 ;;3344769

DGRPEIS ;;8191344

DGRPEIS1 ;;13556361

DGRPEIS2 ;;11893137

DGRPH ;;19829950

DGRPP ;;9535796

DGRPP1 ;;3192660

DGRPU ;;5377007

DGRPU1 ;;1362026

DGRPV ;;8485976

DGRUG ;;9023592

DGRUG1 ;;16045481

DGRUG16 ;;10306836

DGRUGBGJ ;;11326839

DGRUGC ;;17107357

DGRUGC1 ;;9117879

DGRUGDR ;;12152536

DGRUGFY ;;5460196

DGRUGGR ;;4446753

DGRUGIX ;;19393192

DGRUGIX1 ;;12080525

DGRUGPI ;;8857351

DGRUGPP ;;8636321

DGRUGPP1 ;;16241252

DGRUGS ;;16239323

DGRUGSA ;;13168278

DGRUGTG ;;12003480

DGRUGV ;;16831058

DGRUGV16 ;;11568959

DGSCHAD ;;11855593

DGSCHAD1 ;;5279203

DGSCHAD2 ;;16582459

DGSCHAD3 ;;12873967

DGSEC ;;12027536

DGSEC1 ;;12952990

DGSEC2 ;;13301504

DGSEC3 ;;10468567

DGSILL ;;1170342

DGSTAT ;;13540071

DGSWITCH ;;4801176

DGTEMP ;;5715204

DGTSSET ;;5722826

DGUTL ;;10278535

DGUTL1 ;;4788876

DGUTL2 ;;2435936

DGUTQ ;;4355162

DGV53PP ;;937945

DGV53PP1 ;;10021088

DGV53PR ;;1184081

DGV53PT ;;7270084

DGV53PT1 ;;6052658

DGV53PT2 ;;4926374

DGV53PT3 ;;5358303

DGV53PT4 ;;7241372

DGV53PT5 ;;5954146

DGV53PT6 ;;5375205

DGV53PTA ;;6451369

DGV53PTB ;;12079323

DGV53PTC ;;9394754

DGV53PTE ;;3383899

DGV53PTI ;;15424312

DGV53PTS ;;7259153

DGVLT ;;9312675

DGVLT1 ;;9579567

DGVLT2 ;;10096823

DGVLT3 ;;18442

DGVPP ;;10598050

DGVPR ;;507647

DGVPR1 ;;4783856

DGVPT ;;7923401

DGVPT1 ;;10229318

DGVPT2 ;;5499296

DGVPT3 ;;4699681

DGVPTDV1 ;;5481697

DGVPTDV2 ;;1601036

DGVPTDV3 ;;4930494

DGVPTDV4 ;;2618970

DGVPTIB1 ;;7617714

DGVPTIB2 ;;12087500

DGVPTIB3 ;;2151696

DGVPTIB4 ;;994872

DGVPTIB5 ;;10220216

DGVPTIB6 ;;3753373

DGVREL ;;14267717

DGVREL1 ;;7176319

DGVREL2 ;;2872002

DGVREL3 ;;12383165

DGVREL4 ;;3695405

DGWAIT ;;10508645

DGWIN ;;2452439

DGYPREG ;;6374984

DGYPREG1 ;;10914894

DGYPREG2 ;;1774181

DGYPREG3 ;;1641824

DGYPREG4 ;;5887865

DGYPREG5 ;;3554814

DGYZODS ;;3383352

VACPT ;;638691

VADATE ;;5884810

VADPT ;;4275887

VADPT0 ;;3340074

VADPT1 ;;9482819

VADPT2 ;;7164844

VADPT3 ;;6362248

VADPT30 ;;8052693

VADPT31 ;;9090780

VADPT32 ;;2789771

VADPT4 ;;16234632

VADPT5 ;;14707739

VADPT6 ;;2486970

VADPT60 ;;9468124

VADPT61 ;;4347320

VADPT62 ;;8230515

VAFADDR ;;210594

VAFEDCAP ;;6832003

VAFEDG ;;9491142

VAFEDG1 ;;17677648

VAFEDOHL ;;5938878

VAFEDUTL ;;1765234

VAFHLFNC ;;2223766

VAFHLPID ;;5343968

VAFHLZCT ;;3460227

VAFHLZDP ;;1252517

VAFHLZEL ;;7009201

VAFHLZEM ;;4243653

VAFHLZGD ;;3072032

VAFHLZIC ;;6868384

VAFHLZMT ;;2818227

VAFHLZPD ;;6061838

VAFHLZTA ;;3013508

DGNTEG02  ;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^DGNTEG03

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

DGRP11    ;;8294458

DGRP12    ;;3878224

DGRP13    ;;4042382

DGRP14    ;;3414357

DGRP2     ;;5687059

DGRP3     ;;6045190

DGRP4     ;;6006447

DGRP5     ;;3651248

DGRP6     ;;12769961

DGRP7     ;;10164416

DGRP8     ;;9786787

DGRP9     ;;8611620

DGRPC     ;;9490160

DGRPC1    ;;7285440

DGRPC2    ;;6788636

DGRPCB    ;;10032754

DGRPCE    ;;11950905

DGRPCE1   ;;2359715

DGRPCF    ;;13054956

DGRPCF1   ;;5322740

DGRPCK    ;;6781893

DGRPCP    ;;6629895

DGRPCP1   ;;14708629

DGRPCR    ;;13370363

DGRPCS    ;;2207234

DGRPCU    ;;7025466

DGRPD     ;;18487072

DGRPDB    ;;9197926

DGRPDD    ;;180582

DGRPDD1   ;;18478647

DGRPE     ;;17383383

DGRPE1    ;;3344769

DGRPEIS   ;;8191344

DGRPEIS1  ;;13556361

DGRPEIS2  ;;11893137

DGRPH     ;;19829950

DGRPP     ;;9535796

DGRPP1    ;;3192660

DGRPU     ;;5377007

DGRPU1    ;;1362026

DGRPV     ;;8485976

DGRUG     ;;9023592

DGRUG1    ;;16045481

DGRUG16   ;;10306836

DGRUGBGJ  ;;11326839

DGRUGC    ;;17107357

DGRUGC1   ;;9117879

DGRUGDR   ;;12152536

DGRUGFY   ;;5460196

DGRUGGR   ;;4446753

DGRUGIX   ;;19393192

DGRUGIX1  ;;12080525

DGRUGPI   ;;8857351

DGRUGPP   ;;8636321

DGRUGPP1  ;;16241252

DGRUGS    ;;16239323

DGRUGSA   ;;13168278

DGRUGTG   ;;12003480

DGRUGV    ;;16831058

DGRUGV16  ;;11568959

DGSCHAD   ;;11855593

DGSCHAD1  ;;5279203

DGSCHAD2  ;;16582459

DGSCHAD3  ;;12873967

DGSEC     ;;12027536

DGSEC1    ;;12952990

DGSEC2    ;;13301504

DGSEC3    ;;10468567

DGSILL    ;;1170342

DGSTAT    ;;13540071

DGSWITCH  ;;4801176

DGTEMP    ;;5715204

DGTSSET   ;;5722826

DGUTL     ;;10278535

DGUTL1    ;;4788876

DGUTL2    ;;2435936

DGUTQ     ;;4355162

DGV53PP   ;;937945

DGV53PP1  ;;10021088

DGV53PR   ;;1184081

DGV53PT   ;;7270084

DGV53PT1  ;;6052658

DGV53PT2  ;;4926374

DGV53PT3  ;;5358303

DGV53PT4  ;;7241372

DGV53PT5  ;;5954146

DGV53PT6  ;;5375205

DGV53PTA  ;;6451369

DGV53PTB  ;;12079323

DGV53PTC  ;;9394754

DGV53PTE  ;;3383899

DGV53PTI  ;;15424312

DGV53PTS  ;;7259153

DGVLT     ;;9312675

DGVLT1    ;;9579567

DGVLT2    ;;10096823

DGVLT3    ;;18442

DGVPP     ;;10598050

DGVPR     ;;507647

DGVPR1    ;;4783856

DGVPT     ;;7923401

DGVPT1    ;;10229318

DGVPT2    ;;5499296

DGVPT3    ;;4699681

DGVPTDV1  ;;5481697

DGVPTDV2  ;;1601036

DGVPTDV3  ;;4930494

DGVPTDV4  ;;2618970

DGVPTIB1  ;;7617714

DGVPTIB2  ;;12087500

DGVPTIB3  ;;2151696

DGVPTIB4  ;;994872

DGVPTIB5  ;;10220216

DGVPTIB6  ;;3753373

DGVREL    ;;14267717

DGVREL1   ;;7176319

DGVREL2   ;;2872002

DGVREL3   ;;12383165

DGVREL4   ;;3695405

DGWAIT    ;;10508645

DGWIN     ;;2452439

DGYPREG   ;;6374984

DGYPREG1  ;;10914894

DGYPREG2  ;;1774181

DGYPREG3  ;;1641824

DGYPREG4  ;;5887865

DGYPREG5  ;;3554814

DGYZODS   ;;3383352

VACPT     ;;638691

VADATE    ;;5884810

VADPT     ;;4275887

VADPT0    ;;3340074

VADPT1    ;;9482819

VADPT2    ;;7164844

VADPT3    ;;6362248

VADPT30   ;;8052693

VADPT31   ;;9090780

VADPT32   ;;2789771

VADPT4    ;;16234632

VADPT5    ;;14707739

VADPT6    ;;2486970

VADPT60   ;;9468124

VADPT61   ;;4347320

VADPT62   ;;8230515

VAFADDR   ;;210594

VAFEDCAP  ;;6832003

VAFEDG    ;;9491142

VAFEDG1   ;;17677648

VAFEDOHL  ;;5938878

VAFEDUTL  ;;1765234

VAFHLFNC  ;;2223766

VAFHLPID  ;;5343968

VAFHLZCT  ;;3460227

VAFHLZDP  ;;1252517

VAFHLZEL  ;;7009201

VAFHLZEM  ;;4243653

VAFHLZGD  ;;3072032

VAFHLZIC  ;;6868384

VAFHLZMT  ;;2818227

VAFHLZPD  ;;6061838

VAFHLZTA  ;;3013508