DGNTEG01.m

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

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

DGPT101 ;;5907818

DGPT101P ;;3798684

DGPT10CB ;;1729817

DGPT10S1 ;;3094591

DGPT401 ;;5591382

DGPT501 ;;5260058

DGPT501P ;;3264888

DGPT50DI ;;2517717

DGPT50MS ;;2873112

DGPT535 ;;4142601

DGPT601 ;;7292814

DGPT60PR ;;1981670

DGPT701 ;;5282484

DGPT701P ;;2717219

DGPT702 ;;2080928

DGPT70DI ;;4404595

DGPT70DX ;;1522145

DGPTAE ;;7133682

DGPTAE01 ;;2981200

DGPTAE02 ;;5283812

DGPTAE03 ;;4610359

DGPTAE04 ;;2501495

DGPTAEE ;;4527426

DGPTAEE1 ;;10933098

DGPTAEE2 ;;8130188

DGPTAPA ;;3668483

DGPTAPA1 ;;2058101

DGPTAPA2 ;;3180242

DGPTAPA3 ;;1924386

DGPTAPA4 ;;7077869

DGPTAPP ;;1806977

DGPTAPP1 ;;1210249

DGPTAPSL ;;4997510

DGPTBE1 ;;19023447

DGPTBE2 ;;1835542

DGPTBEP ;;2267056

DGPTC ;;4801976

DGPTC1 ;;6075172

DGPTC2 ;;4499759

DGPTCO ;;882556

DGPTCO1 ;;5235526

DGPTCO2 ;;2096649

DGPTCR ;;9155987

DGPTCR1 ;;1454932

DGPTDRG ;;16922377

DGPTEXPR ;;411240

DGPTF ;;11140333

DGPTF099 ;;7885730

DGPTF09X ;;5455949

DGPTF1 ;;12620270

DGPTF2 ;;9722630

DGPTF4 ;;12842059

DGPTF41 ;;5073903

DGPTF5 ;;1141375

DGPTFCR ;;2856214

DGPTFD ;;7582771

DGPTFDEL ;;9517561

DGPTFFB ;;4903981

DGPTFIC ;;16299987

DGPTFJ ;;3694269

DGPTFJC ;;14917912

DGPTFM ;;15913403

DGPTFM0 ;;7287940

DGPTFM1 ;;10416822

DGPTFM1A ;;6717226

DGPTFM4 ;;14737446

DGPTFM5 ;;9123774

DGPTFM6 ;;13703468

DGPTFM7 ;;10979946

DGPTFM71 ;;3602514

DGPTFM8 ;;6077252

DGPTFMO ;;13407855

DGPTFMO1 ;;2034296

DGPTFOU ;;10424039

DGPTFQWK ;;4488650

DGPTFREL ;;5862675

DGPTFTR ;;9360869

DGPTFTR0 ;;8604225

DGPTFTR1 ;;13978628

DGPTFTR2 ;;9164992

DGPTFTR3 ;;9189207

DGPTFUP ;;9063283

DGPTFVC ;;2899739

DGPTFVC1 ;;15576437

DGPTFVC2 ;;3752572

DGPTFVC3 ;;5311979

DGPTICD ;;2389303

DGPTLMU1 ;;5302089

DGPTLMU2 ;;2608185

DGPTLMU3 ;;3024014

DGPTLMU4 ;;6778410

DGPTLMU5 ;;5680133

DGPTLMU6 ;;3759937

DGPTMOVE ;;18877814

DGPTMSG ;;12017144

DGPTMSG1 ;;3261790

DGPTMSGD ;;9430949

DGPTOD0 ;;19162109

DGPTOD1 ;;11029540

DGPTOD2 ;;14228151

DGPTOD3 ;;2871705

DGPTODA1 ;;14742631

DGPTODA2 ;;16102699

DGPTODB1 ;;14395071

DGPTODB2 ;;15732396

DGPTODF1 ;;14514216

DGPTODF2 ;;11051070

DGPTODI1 ;;17300458

DGPTODI2 ;;12886426

DGPTODI3 ;;16720767

DGPTODI4 ;;9696951

DGPTODR ;;4646557

DGPTODT1 ;;16541531

DGPTODT2 ;;11974266

DGPTOLC1 ;;4324462

DGPTOLC2 ;;17186117

DGPTOM1 ;;7629724

DGPTOM2 ;;15224903

DGPTOOL ;;566787

DGPTOTRL ;;13755835

DGPTR0 ;;8651144

DGPTR1 ;;15817363

DGPTR2 ;;8727510

DGPTR3 ;;2339687

DGPTR4 ;;4549097

DGPTRAM ;;1116833

DGPTRPO ;;9666225

DGPTRPP ;;7433732

DGPTSC01 ;;4070681

DGPTSCAN ;;6356675

DGPTSPQ ;;1563488

DGPTSUD1 ;;4459855

DGPTSUDO ;;11745732

DGPTTRIM ;;2747468

DGPTTS ;;11059200

DGPTTS0 ;;1798741

DGPTTS1 ;;16571126

DGPTTS2 ;;9851736

DGPTTS3 ;;10800315

DGPTUTL ;;7801401

DGPTUTL1 ;;7565068

DGQEMA ;;7098669

DGQEMA1 ;;8356696

DGQEMP ;;6074288

DGQEMPS ;;978157

DGREG ;;18978133

DGREG0 ;;9179398

DGREG00 ;;8411293

DGREGDD ;;117402

DGREGDD1 ;;2633914

DGREGDEL ;;2900374

DGREGE ;;10119241

DGREGG ;;3864793

DGRP ;;1060986

DGRP1 ;;10291468

DGRP10 ;;5397853

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

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

DGPT101   ;;5907818

DGPT101P  ;;3798684

DGPT10CB  ;;1729817

DGPT10S1  ;;3094591

DGPT401   ;;5591382

DGPT501   ;;5260058

DGPT501P  ;;3264888

DGPT50DI  ;;2517717

DGPT50MS  ;;2873112

DGPT535   ;;4142601

DGPT601   ;;7292814

DGPT60PR  ;;1981670

DGPT701   ;;5282484

DGPT701P  ;;2717219

DGPT702   ;;2080928

DGPT70DI  ;;4404595

DGPT70DX  ;;1522145

DGPTAE    ;;7133682

DGPTAE01  ;;2981200

DGPTAE02  ;;5283812

DGPTAE03  ;;4610359

DGPTAE04  ;;2501495

DGPTAEE   ;;4527426

DGPTAEE1  ;;10933098

DGPTAEE2  ;;8130188

DGPTAPA   ;;3668483

DGPTAPA1  ;;2058101

DGPTAPA2  ;;3180242

DGPTAPA3  ;;1924386

DGPTAPA4  ;;7077869

DGPTAPP   ;;1806977

DGPTAPP1  ;;1210249

DGPTAPSL  ;;4997510

DGPTBE1   ;;19023447

DGPTBE2   ;;1835542

DGPTBEP   ;;2267056

DGPTC     ;;4801976

DGPTC1    ;;6075172

DGPTC2    ;;4499759

DGPTCO    ;;882556

DGPTCO1   ;;5235526

DGPTCO2   ;;2096649

DGPTCR    ;;9155987

DGPTCR1   ;;1454932

DGPTDRG   ;;16922377

DGPTEXPR  ;;411240

DGPTF     ;;11140333

DGPTF099  ;;7885730

DGPTF09X  ;;5455949

DGPTF1    ;;12620270

DGPTF2    ;;9722630

DGPTF4    ;;12842059

DGPTF41   ;;5073903

DGPTF5    ;;1141375

DGPTFCR   ;;2856214

DGPTFD    ;;7582771

DGPTFDEL  ;;9517561

DGPTFFB   ;;4903981

DGPTFIC   ;;16299987

DGPTFJ    ;;3694269

DGPTFJC   ;;14917912

DGPTFM    ;;15913403

DGPTFM0   ;;7287940

DGPTFM1   ;;10416822

DGPTFM1A  ;;6717226

DGPTFM4   ;;14737446

DGPTFM5   ;;9123774

DGPTFM6   ;;13703468

DGPTFM7   ;;10979946

DGPTFM71  ;;3602514

DGPTFM8   ;;6077252

DGPTFMO   ;;13407855

DGPTFMO1  ;;2034296

DGPTFOU   ;;10424039

DGPTFQWK  ;;4488650

DGPTFREL  ;;5862675

DGPTFTR   ;;9360869

DGPTFTR0  ;;8604225

DGPTFTR1  ;;13978628

DGPTFTR2  ;;9164992

DGPTFTR3  ;;9189207

DGPTFUP   ;;9063283

DGPTFVC   ;;2899739

DGPTFVC1  ;;15576437

DGPTFVC2  ;;3752572

DGPTFVC3  ;;5311979

DGPTICD   ;;2389303

DGPTLMU1  ;;5302089

DGPTLMU2  ;;2608185

DGPTLMU3  ;;3024014

DGPTLMU4  ;;6778410

DGPTLMU5  ;;5680133

DGPTLMU6  ;;3759937

DGPTMOVE  ;;18877814

DGPTMSG   ;;12017144

DGPTMSG1  ;;3261790

DGPTMSGD  ;;9430949

DGPTOD0   ;;19162109

DGPTOD1   ;;11029540

DGPTOD2   ;;14228151

DGPTOD3   ;;2871705

DGPTODA1  ;;14742631

DGPTODA2  ;;16102699

DGPTODB1  ;;14395071

DGPTODB2  ;;15732396

DGPTODF1  ;;14514216

DGPTODF2  ;;11051070

DGPTODI1  ;;17300458

DGPTODI2  ;;12886426

DGPTODI3  ;;16720767

DGPTODI4  ;;9696951

DGPTODR   ;;4646557

DGPTODT1  ;;16541531

DGPTODT2  ;;11974266

DGPTOLC1  ;;4324462

DGPTOLC2  ;;17186117

DGPTOM1   ;;7629724

DGPTOM2   ;;15224903

DGPTOOL   ;;566787

DGPTOTRL  ;;13755835

DGPTR0    ;;8651144

DGPTR1    ;;15817363

DGPTR2    ;;8727510

DGPTR3    ;;2339687

DGPTR4    ;;4549097

DGPTRAM   ;;1116833

DGPTRPO   ;;9666225

DGPTRPP   ;;7433732

DGPTSC01  ;;4070681

DGPTSCAN  ;;6356675

DGPTSPQ   ;;1563488

DGPTSUD1  ;;4459855

DGPTSUDO  ;;11745732

DGPTTRIM  ;;2747468

DGPTTS    ;;11059200

DGPTTS0   ;;1798741

DGPTTS1   ;;16571126

DGPTTS2   ;;9851736

DGPTTS3   ;;10800315

DGPTUTL   ;;7801401

DGPTUTL1  ;;7565068

DGQEMA    ;;7098669

DGQEMA1   ;;8356696

DGQEMP    ;;6074288

DGQEMPS   ;;978157

DGREG     ;;18978133

DGREG0    ;;9179398

DGREG00   ;;8411293

DGREGDD   ;;117402

DGREGDD1  ;;2633914

DGREGDEL  ;;2900374

DGREGE    ;;10119241

DGREGG    ;;3864793

DGRP      ;;1060986

DGRP1     ;;10291468

DGRP10    ;;5397853