SDNTEG.m

SDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49

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

 ;;7.0;AUG 13, 1993@12:51:49

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

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

SD ;;804795

SDA223AN ;;5976444

SDA223N ;;15706566

SDA223N1 ;;1453813

SDACS ;;3663833

SDACS0 ;;8480166

SDACS1 ;;15001549

SDACSCG ;;13087344

SDACSCGB ;;14826419

SDACSCGP ;;16113980

SDAL ;;5804280

SDAL0 ;;11625993

SDAM ;;3230589

SDAM1 ;;8184632

SDAM10 ;;2952107

SDAM2 ;;7920545

SDAM3 ;;4512652

SDAM5 ;;3960436

SDAMBAE ;;14898871

SDAMBAE0 ;;10423066

SDAMBAE1 ;;12061053

SDAMBAE2 ;;14284562

SDAMBAE3 ;;8934007

SDAMBAE4 ;;4962021

SDAMBAE5 ;;4282115

SDAMBAE6 ;;1267277

SDAMBCL ;;9282452

SDAMBEE ;;285989

SDAMBMR ;;17161851

SDAMBMR1 ;;17719721

SDAMBMR2 ;;14320995

SDAMBMR3 ;;13093130

SDAMC ;;5653136

SDAMEP ;;3031106

SDAMEP1 ;;8403410

SDAMEP2 ;;6257643

SDAMEP3 ;;2601010

SDAMEP4 ;;456357

SDAMEVT ;;9977931

SDAMEVT0 ;;2555

SDAMEVT1 ;;6083206

SDAMEVT2 ;;2164883

SDAMEVT3 ;;5224872

SDAMEVT4 ;;3158378

SDAMEX ;;7750940

SDAMEX1 ;;498097

SDAMLD ;;6800106

SDAMN ;;3294769

SDAMO ;;3484006

SDAMO0 ;;2572315

SDAMO1 ;;2965567

SDAMO11 ;;7155191

SDAMO2 ;;4539854

SDAMODO ;;4758418

SDAMODO1 ;;1799429

SDAMODO2 ;;6940403

SDAMODO3 ;;7227049

SDAMOL ;;1948337

SDAMOL1 ;;15707520

SDAMOLP ;;4924500

SDAMOS ;;7939456

SDAMOS0 ;;2977018

SDAMOS1 ;;5801474

SDAMOSP ;;7809048

SDAMQ ;;4702330

SDAMQ1 ;;4494515

SDAMQ2 ;;5530986

SDAMQ3 ;;5302646

SDAMQ4 ;;2800995

SDAMQ5 ;;2347715

SDAMU ;;1269661

SDAMWI ;;6378214

SDAMWI1 ;;2383935

SDAPP ;;4770952

SDASEE ;;14445544

SDASEE1 ;;7969810

SDASEE2 ;;2176573

SDASEP ;;11261741

SDASO ;;7227723

SDAUT1 ;;3642937

SDAUT2 ;;19663831

SDB ;;9944374

SDB0 ;;6741618

SDB1 ;;12121223

SDC ;;14900742

SDC0 ;;14671704

SDC1 ;;3434743

SDC2 ;;7784041

SDC3 ;;5313137

SDC4 ;;1142041

SDCAN ;;785063

SDCCP ;;3508258

SDCD ;;6752619

SDCI ;;1611841

SDCIAL ;;11232401

SDCLAS ;;13141298

SDCLAS0 ;;12392553

SDCLAS1 ;;14835834

SDCLAV ;;7282312

SDCLAV0 ;;4873869

SDCLAV1 ;;13150157

SDCLDOW ;;5388954

SDCLK ;;19141458

SDCNL ;;14997623

SDCNP ;;13115963

SDCNP0 ;;19213709

SDCNP1 ;;12622692

SDCNP1A ;;18920698

SDCNP2 ;;6743499

SDCO ;;2028989

SDCO0 ;;9640540

SDCO1 ;;6940811

SDCO2 ;;4571129

SDCO20 ;;3099353

SDCO21 ;;2878529

SDCO22 ;;2672854

SDCO23 ;;2021308

SDCO3 ;;5529902

SDCO31 ;;1167543

SDCO4 ;;5802239

SDCO41 ;;1622955

SDCO5 ;;653104

SDCO6 ;;2985390

SDCO7 ;;1746597

SDCO8 ;;1488932

SDCOAM ;;7877912

SDCODD ;;951277

SDCODEL ;;4028664

SDCOM ;;3597941

SDCOU ;;2812724

SDCOU1 ;;307548

SDCOU2 ;;618877

SDCOUR ;;2941998

SDCP ;;15308939

SDCSSD ;;5210687

SDCVP ;;15690811

SDCWL ;;20480131

SDCWL1 ;;19198498

SDCWL2 ;;15060622

SDCWL3 ;;12725071

SDD ;;6872339

SDD0 ;;13858093

SDDADT ;;1358703

SDDADT0 ;;11414282

SDDIV ;;5127804

SDDPA ;;17722979

SDDSO ;;7872162

SDDSSA ;;4192206

SDDSSA0 ;;19997912

SDDSSA1 ;;13066332

SDF ;;11416969

SDF1 ;;8010091

SDHOL ;;347989

SDKILL ;;10034892

SDL1 ;;8211181

SDLT ;;5076280

SDLTE ;;2306144

SDLTP ;;16470189

SDM ;;16978464

SDM0 ;;15944427

SDM1 ;;18343842

SDM1A ;;11720115

SDM2 ;;11018279

SDM3 ;;10287325

SDM4 ;;7146893

SDMEAN ;;6896890

SDMM ;;18035821

SDMM1 ;;7854683

SDMT ;;7004794

SDNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49

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

 +2       ;;7.0;AUG 13, 1993@12:51:49

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

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

SD        ;;804795

SDA223AN  ;;5976444

SDA223N   ;;15706566

SDA223N1  ;;1453813

SDACS     ;;3663833

SDACS0    ;;8480166

SDACS1    ;;15001549

SDACSCG   ;;13087344

SDACSCGB  ;;14826419

SDACSCGP  ;;16113980

SDAL      ;;5804280

SDAL0     ;;11625993

SDAM      ;;3230589

SDAM1     ;;8184632

SDAM10    ;;2952107

SDAM2     ;;7920545

SDAM3     ;;4512652

SDAM5     ;;3960436

SDAMBAE   ;;14898871

SDAMBAE0  ;;10423066

SDAMBAE1  ;;12061053

SDAMBAE2  ;;14284562

SDAMBAE3  ;;8934007

SDAMBAE4  ;;4962021

SDAMBAE5  ;;4282115

SDAMBAE6  ;;1267277

SDAMBCL   ;;9282452

SDAMBEE   ;;285989

SDAMBMR   ;;17161851

SDAMBMR1  ;;17719721

SDAMBMR2  ;;14320995

SDAMBMR3  ;;13093130

SDAMC     ;;5653136

SDAMEP    ;;3031106

SDAMEP1   ;;8403410

SDAMEP2   ;;6257643

SDAMEP3   ;;2601010

SDAMEP4   ;;456357

SDAMEVT   ;;9977931

SDAMEVT0  ;;2555

SDAMEVT1  ;;6083206

SDAMEVT2  ;;2164883

SDAMEVT3  ;;5224872

SDAMEVT4  ;;3158378

SDAMEX    ;;7750940

SDAMEX1   ;;498097

SDAMLD    ;;6800106

SDAMN     ;;3294769

SDAMO     ;;3484006

SDAMO0    ;;2572315

SDAMO1    ;;2965567

SDAMO11   ;;7155191

SDAMO2    ;;4539854

SDAMODO   ;;4758418

SDAMODO1  ;;1799429

SDAMODO2  ;;6940403

SDAMODO3  ;;7227049

SDAMOL    ;;1948337

SDAMOL1   ;;15707520

SDAMOLP   ;;4924500

SDAMOS    ;;7939456

SDAMOS0   ;;2977018

SDAMOS1   ;;5801474

SDAMOSP   ;;7809048

SDAMQ     ;;4702330

SDAMQ1    ;;4494515

SDAMQ2    ;;5530986

SDAMQ3    ;;5302646

SDAMQ4    ;;2800995

SDAMQ5    ;;2347715

SDAMU     ;;1269661

SDAMWI    ;;6378214

SDAMWI1   ;;2383935

SDAPP     ;;4770952

SDASEE    ;;14445544

SDASEE1   ;;7969810

SDASEE2   ;;2176573

SDASEP    ;;11261741

SDASO     ;;7227723

SDAUT1    ;;3642937

SDAUT2    ;;19663831

SDB       ;;9944374

SDB0      ;;6741618

SDB1      ;;12121223

SDC       ;;14900742

SDC0      ;;14671704

SDC1      ;;3434743

SDC2      ;;7784041

SDC3      ;;5313137

SDC4      ;;1142041

SDCAN     ;;785063

SDCCP     ;;3508258

SDCD      ;;6752619

SDCI      ;;1611841

SDCIAL    ;;11232401

SDCLAS    ;;13141298

SDCLAS0   ;;12392553

SDCLAS1   ;;14835834

SDCLAV    ;;7282312

SDCLAV0   ;;4873869

SDCLAV1   ;;13150157

SDCLDOW   ;;5388954

SDCLK     ;;19141458

SDCNL     ;;14997623

SDCNP     ;;13115963

SDCNP0    ;;19213709

SDCNP1    ;;12622692

SDCNP1A   ;;18920698

SDCNP2    ;;6743499

SDCO      ;;2028989

SDCO0     ;;9640540

SDCO1     ;;6940811

SDCO2     ;;4571129

SDCO20    ;;3099353

SDCO21    ;;2878529

SDCO22    ;;2672854

SDCO23    ;;2021308

SDCO3     ;;5529902

SDCO31    ;;1167543

SDCO4     ;;5802239

SDCO41    ;;1622955

SDCO5     ;;653104

SDCO6     ;;2985390

SDCO7     ;;1746597

SDCO8     ;;1488932

SDCOAM    ;;7877912

SDCODD    ;;951277

SDCODEL   ;;4028664

SDCOM     ;;3597941

SDCOU     ;;2812724

SDCOU1    ;;307548

SDCOU2    ;;618877

SDCOUR    ;;2941998

SDCP      ;;15308939

SDCSSD    ;;5210687

SDCVP     ;;15690811

SDCWL     ;;20480131

SDCWL1    ;;19198498

SDCWL2    ;;15060622

SDCWL3    ;;12725071

SDD       ;;6872339

SDD0      ;;13858093

SDDADT    ;;1358703

SDDADT0   ;;11414282

SDDIV     ;;5127804

SDDPA     ;;17722979

SDDSO     ;;7872162

SDDSSA    ;;4192206

SDDSSA0   ;;19997912

SDDSSA1   ;;13066332

SDF       ;;11416969

SDF1      ;;8010091

SDHOL     ;;347989

SDKILL    ;;10034892

SDL1      ;;8211181

SDLT      ;;5076280

SDLTE     ;;2306144

SDLTP     ;;16470189

SDM       ;;16978464

SDM0      ;;15944427

SDM1      ;;18343842

SDM1A     ;;11720115

SDM2      ;;11018279

SDM3      ;;10287325

SDM4      ;;7146893

SDMEAN    ;;6896890

SDMM      ;;18035821

SDMM1     ;;7854683

SDMT      ;;7004794