DGNTEG0.m

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

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

DGMTSC2 ;;5491279

DGMTSC3 ;;2792118

DGMTSC31 ;;4589113

DGMTSC4 ;;5918350

DGMTSCC ;;11200411

DGMTSCR ;;7960982

DGMTSCU ;;3843068

DGMTSCU1 ;;390575

DGMTSCU2 ;;3506131

DGMTSCU3 ;;3657103

DGMTU ;;5758769

DGMTU1 ;;1509108

DGMTU11 ;;4562009

DGMTU2 ;;2157161

DGMTU21 ;;988994

DGMTU22 ;;5802580

DGMTU23 ;;6257318

DGMTUB ;;3480486

DGMTUTL ;;4377319

DGMTV ;;6491590

DGNOTE ;;1675967

DGOASIH ;;7905936

DGODASK ;;6832837

DGODCV ;;6455006

DGODDEL ;;6521525

DGODMT ;;6703636

DGODNP1 ;;13382969

DGODNP2 ;;17154391

DGODNSM ;;10616515

DGODNSM1 ;;6157652

DGODOP1 ;;13382348

DGODOP2 ;;14178312

DGODOSM ;;10913759

DGODOSM1 ;;5878965

DGODTOT ;;12665233

DGODUTL ;;11335841

DGOERNOT ;;3639352

DGOIL ;;14120935

DGOIL1 ;;5434253

DGOIL2 ;;9855146

DGOIL3 ;;1864519

DGOINPT ;;9811683

DGOINPT1 ;;12046123

DGOINS ;;9275780

DGOINS1 ;;17284104

DGONI001 ;;8955903

DGONI002 ;;9117011

DGONI003 ;;7330922

DGONI004 ;;7270205

DGONI005 ;;6744760

DGONI006 ;;6851829

DGONI007 ;;7400783

DGONI008 ;;6681610

DGONI009 ;;3184498

DGONIT ;;974623

DGONIT1 ;;1681972

DGONIT2 ;;82261

DGONIT3 ;;10576022

DGOPATM ;;9163250

DGOREL ;;12901865

DGOREL1 ;;15725750

DGOVBC ;;12222252

DGOVBC1 ;;16856594

DGOVBC2 ;;10667539

DGPAR ;;12599208

DGPAR1 ;;15140011

DGPAR2 ;;1164900

DGPASS ;;12948536

DGPATN ;;3746887

DGPATV ;;2775189

DGPMBSAB ;;2469727

DGPMBSAR ;;6455372

DGPMBSG ;;5833205

DGPMBSG1 ;;3093169

DGPMBSG2 ;;12159995

DGPMBSG3 ;;7575486

DGPMBSP ;;2948851

DGPMBSP1 ;;12290347

DGPMBSP2 ;;12013509

DGPMBSP3 ;;7070833

DGPMBSP4 ;;4498379

DGPMBSP5 ;;3236309

DGPMBSP6 ;;3000471

DGPMBSR ;;5326316

DGPMBSR1 ;;7809978

DGPMBSR2 ;;4498773

DGPMBSR3 ;;9503294

DGPMBSR4 ;;7335226

DGPMDD ;;1371660

DGPMDD1 ;;4163615

DGPMDD2 ;;5117501

DGPMDDCF ;;2709089

DGPMDDCN ;;7510882

DGPMDDLD ;;5897493

DGPMDDOS ;;15227313

DGPMDDRB ;;2515339

DGPMDEF ;;13745743

DGPMEVT ;;1318191

DGPMEX ;;8735578

DGPMGL ;;11885908

DGPMGL1 ;;10850663

DGPMGL2 ;;4802014

DGPMGL5 ;;3750408

DGPMGL51 ;;11000768

DGPMGLC ;;12376747

DGPMGLG ;;7786725

DGPMGLG1 ;;2954608

DGPMGLG2 ;;15832435

DGPMGLG3 ;;12575149

DGPMGLP ;;11310279

DGPMGLP1 ;;8991521

DGPMHST ;;3205848

DGPMLOS ;;4210303

DGPMOLD ;;3719927

DGPMOLD1 ;;13905130

DGPMRB ;;10705978

DGPMRBA ;;14216646

DGPMRBA1 ;;8190867

DGPMSTAT ;;3902677

DGPMTS ;;2013889

DGPMTSI ;;7834777

DGPMTSI1 ;;3193580

DGPMTSI2 ;;8704798

DGPMTSO ;;1679095

DGPMTSO1 ;;12104367

DGPMTSO2 ;;12264254

DGPMTSO3 ;;10945522

DGPMTSR ;;7428169

DGPMTSR1 ;;5877231

DGPMTSR2 ;;6231618

DGPMUTL ;;2618336

DGPMV ;;9721404

DGPMV0 ;;1798732

DGPMV1 ;;8563904

DGPMV10 ;;15444384

DGPMV2 ;;12450697

DGPMV20 ;;10234963

DGPMV21 ;;13594373

DGPMV22 ;;4988232

DGPMV3 ;;16912219

DGPMV30 ;;17093330

DGPMV300 ;;3098446

DGPMV31 ;;12582313

DGPMV32 ;;12615866

DGPMV321 ;;12839930

DGPMV322 ;;2401635

DGPMV33 ;;9363079

DGPMV331 ;;11471512

DGPMV35 ;;1138781

DGPMV36 ;;6369023

DGPMVBM ;;6277394

DGPMVBUL ;;8954409

DGPMVBUR ;;6699911

DGPMVDD ;;8266103

DGPMVDL ;;11773733

DGPMVDL1 ;;13419849

DGPMVODS ;;3078835

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

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

DGMTSC2   ;;5491279

DGMTSC3   ;;2792118

DGMTSC31  ;;4589113

DGMTSC4   ;;5918350

DGMTSCC   ;;11200411

DGMTSCR   ;;7960982

DGMTSCU   ;;3843068

DGMTSCU1  ;;390575

DGMTSCU2  ;;3506131

DGMTSCU3  ;;3657103

DGMTU     ;;5758769

DGMTU1    ;;1509108

DGMTU11   ;;4562009

DGMTU2    ;;2157161

DGMTU21   ;;988994

DGMTU22   ;;5802580

DGMTU23   ;;6257318

DGMTUB    ;;3480486

DGMTUTL   ;;4377319

DGMTV     ;;6491590

DGNOTE    ;;1675967

DGOASIH   ;;7905936

DGODASK   ;;6832837

DGODCV    ;;6455006

DGODDEL   ;;6521525

DGODMT    ;;6703636

DGODNP1   ;;13382969

DGODNP2   ;;17154391

DGODNSM   ;;10616515

DGODNSM1  ;;6157652

DGODOP1   ;;13382348

DGODOP2   ;;14178312

DGODOSM   ;;10913759

DGODOSM1  ;;5878965

DGODTOT   ;;12665233

DGODUTL   ;;11335841

DGOERNOT  ;;3639352

DGOIL     ;;14120935

DGOIL1    ;;5434253

DGOIL2    ;;9855146

DGOIL3    ;;1864519

DGOINPT   ;;9811683

DGOINPT1  ;;12046123

DGOINS    ;;9275780

DGOINS1   ;;17284104

DGONI001  ;;8955903

DGONI002  ;;9117011

DGONI003  ;;7330922

DGONI004  ;;7270205

DGONI005  ;;6744760

DGONI006  ;;6851829

DGONI007  ;;7400783

DGONI008  ;;6681610

DGONI009  ;;3184498

DGONIT    ;;974623

DGONIT1   ;;1681972

DGONIT2   ;;82261

DGONIT3   ;;10576022

DGOPATM   ;;9163250

DGOREL    ;;12901865

DGOREL1   ;;15725750

DGOVBC    ;;12222252

DGOVBC1   ;;16856594

DGOVBC2   ;;10667539

DGPAR     ;;12599208

DGPAR1    ;;15140011

DGPAR2    ;;1164900

DGPASS    ;;12948536

DGPATN    ;;3746887

DGPATV    ;;2775189

DGPMBSAB  ;;2469727

DGPMBSAR  ;;6455372

DGPMBSG   ;;5833205

DGPMBSG1  ;;3093169

DGPMBSG2  ;;12159995

DGPMBSG3  ;;7575486

DGPMBSP   ;;2948851

DGPMBSP1  ;;12290347

DGPMBSP2  ;;12013509

DGPMBSP3  ;;7070833

DGPMBSP4  ;;4498379

DGPMBSP5  ;;3236309

DGPMBSP6  ;;3000471

DGPMBSR   ;;5326316

DGPMBSR1  ;;7809978

DGPMBSR2  ;;4498773

DGPMBSR3  ;;9503294

DGPMBSR4  ;;7335226

DGPMDD    ;;1371660

DGPMDD1   ;;4163615

DGPMDD2   ;;5117501

DGPMDDCF  ;;2709089

DGPMDDCN  ;;7510882

DGPMDDLD  ;;5897493

DGPMDDOS  ;;15227313

DGPMDDRB  ;;2515339

DGPMDEF   ;;13745743

DGPMEVT   ;;1318191

DGPMEX    ;;8735578

DGPMGL    ;;11885908

DGPMGL1   ;;10850663

DGPMGL2   ;;4802014

DGPMGL5   ;;3750408

DGPMGL51  ;;11000768

DGPMGLC   ;;12376747

DGPMGLG   ;;7786725

DGPMGLG1  ;;2954608

DGPMGLG2  ;;15832435

DGPMGLG3  ;;12575149

DGPMGLP   ;;11310279

DGPMGLP1  ;;8991521

DGPMHST   ;;3205848

DGPMLOS   ;;4210303

DGPMOLD   ;;3719927

DGPMOLD1  ;;13905130

DGPMRB    ;;10705978

DGPMRBA   ;;14216646

DGPMRBA1  ;;8190867

DGPMSTAT  ;;3902677

DGPMTS    ;;2013889

DGPMTSI   ;;7834777

DGPMTSI1  ;;3193580

DGPMTSI2  ;;8704798

DGPMTSO   ;;1679095

DGPMTSO1  ;;12104367

DGPMTSO2  ;;12264254

DGPMTSO3  ;;10945522

DGPMTSR   ;;7428169

DGPMTSR1  ;;5877231

DGPMTSR2  ;;6231618

DGPMUTL   ;;2618336

DGPMV     ;;9721404

DGPMV0    ;;1798732

DGPMV1    ;;8563904

DGPMV10   ;;15444384

DGPMV2    ;;12450697

DGPMV20   ;;10234963

DGPMV21   ;;13594373

DGPMV22   ;;4988232

DGPMV3    ;;16912219

DGPMV30   ;;17093330

DGPMV300  ;;3098446

DGPMV31   ;;12582313

DGPMV32   ;;12615866

DGPMV321  ;;12839930

DGPMV322  ;;2401635

DGPMV33   ;;9363079

DGPMV331  ;;11471512

DGPMV35   ;;1138781

DGPMV36   ;;6369023

DGPMVBM   ;;6277394

DGPMVBUL  ;;8954409

DGPMVBUR  ;;6699911

DGPMVDD   ;;8266103

DGPMVDL   ;;11773733

DGPMVDL1  ;;13419849

DGPMVODS  ;;3078835