SRNTEG.m

SRNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22

 ;;3.0; Surgery ;;24 Jun 93

 ;;7.0;JUN 24, 1993@10:46:22

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

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

SRCUSS ;;13128616

SRCUSS0 ;;11932742

SRCUSS1 ;;14024981

SRCUSS2 ;;9008801

SRCUSS3 ;;8147839

SRCUSS4 ;;8817864

SRCUSS5 ;;1705099

SROA30 ;;13123589

SROABCH ;;6036002

SROAC ;;8074997

SROAC1 ;;811669

SROAC2 ;;7839725

SROACAR ;;8480830

SROACAT ;;7090373

SROACC ;;17863169

SROACC0 ;;13064481

SROACC1 ;;11929528

SROACC2 ;;10979053

SROACC3 ;;11318821

SROACC4 ;;10650931

SROACC5 ;;11342334

SROACC6 ;;9694366

SROACCM ;;5442845

SROACCR ;;10280990

SROACCT ;;6477022

SROACL1 ;;11536133

SROACLN ;;6690925

SROACOM ;;5271992

SROACOP ;;10401802

SROACR1 ;;10974698

SROACRC ;;8615250

SROACS ;;17495772

SROACTH ;;4583908

SROADEL ;;7357586

SROADOC ;;9175831

SROADOC1 ;;17090569

SROAERR ;;5502190

SROAEX ;;14370150

SROAL1 ;;10740868

SROAL11 ;;9261896

SROAL2 ;;9570235

SROAL21 ;;5999753

SROALAB ;;5683374

SROALC ;;9188663

SROALCP ;;8851245

SROALCS ;;10545065

SROALCSP ;;9911958

SROALDP ;;5758536

SROALEN ;;7542354

SROALET ;;11955292

SROALL ;;11950510

SROALLP ;;10358750

SROALLS ;;12609154

SROALLSP ;;12599574

SROALN1 ;;12516462

SROALN2 ;;7427970

SROALN3 ;;13840617

SROALNO ;;10739667

SROALOG ;;12771858

SROALSS ;;12611289

SROALSSP ;;12640766

SROALST ;;11222652

SROALSTP ;;10401017

SROALT ;;9077666

SROALTP ;;8814293

SROALTS ;;10204410

SROALTSP ;;9824963

SROAMEAS ;;71772

SROAMIS ;;11919401

SROAMIS1 ;;11009877

SROANEW ;;11162809

SROANIN ;;3341842

SROANP ;;10889746

SROANP1 ;;11114124

SROANT ;;9203425

SROANTP ;;8862033

SROANTS ;;9560904

SROANTSP ;;9451309

SROAO ;;7410117

SROAOP ;;11418072

SROAOP1 ;;12217328

SROAOPS ;;8050404

SROAOSET ;;3431177

SROAOTH ;;3393938

SROAPAS ;;6024518

SROAPC ;;1047865

SROAPCA ;;13042967

SROAPCA0 ;;553613

SROAPCA1 ;;8911710

SROAPCA2 ;;9377265

SROAPCA3 ;;7422507

SROAPR1A ;;3752585

SROAPR2 ;;6197830

SROAPRE ;;8740356

SROAPRE1 ;;4090377

SROAPRE2 ;;3501275

SROAPRT1 ;;15523830

SROAPRT2 ;;10007362

SROAPRT3 ;;10638329

SROAPRT4 ;;8634120

SROAPRT5 ;;6747189

SROAPRT6 ;;4391520

SROAPRT7 ;;16872471

SROAPS1 ;;16535485

SROAPS2 ;;10890544

SROAR ;;8206451

SROAR1 ;;12304213

SROAR2 ;;11247893

SROARET ;;13046895

SROARPT ;;4779374

SROARPT0 ;;16972368

SROARPT1 ;;15190572

SROARPT2 ;;3764497

SROASS ;;11306593

SROASS1 ;;7807496

SROASSE ;;10185778

SROASSP ;;4152937

SROASWAP ;;8677386

SROASWP ;;18452779

SROASWP0 ;;7552610

SROASWP1 ;;5461676

SROASWP2 ;;11754339

SROASWP3 ;;17786597

SROASWPD ;;2734567

SROAT0P ;;11334796

SROAT0T ;;4303410

SROAT1P ;;12727482

SROAT1T ;;3406860

SROAT2P ;;12597003

SROAT2T ;;5717811

SROATCM ;;1118815

SROATCM1 ;;11449351

SROATCM2 ;;6369827

SROATM1 ;;16600818

SROATM2 ;;18977949

SROATM3 ;;9985638

SROATM4 ;;6407807

SROATMIT ;;4502627

SROATMNO ;;2187622

SROATT ;;13398424

SROATT0 ;;7944441

SROATT1 ;;2912932

SROATT2 ;;4045394

SROBLOD ;;5570434

SROBTCH ;;1744175

SROCAN ;;7968055

SROCAN0 ;;9498623

SROCANUP ;;5599175

SROCASE ;;2252

SROCCAT ;;9818522

SROCHDD ;;2209304

SROCMP ;;9802456

SROCMP1 ;;5787553

SROCMP2 ;;3425866

SROCMPD ;;2578858

SROCMPED ;;15288632

SROCMPL ;;12462861

SRNTEG    ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22

 +1       ;;3.0; Surgery ;;24 Jun 93

 +2       ;;7.0;JUN 24, 1993@10:46:22

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

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

SRCUSS    ;;13128616

SRCUSS0   ;;11932742

SRCUSS1   ;;14024981

SRCUSS2   ;;9008801

SRCUSS3   ;;8147839

SRCUSS4   ;;8817864

SRCUSS5   ;;1705099

SROA30    ;;13123589

SROABCH   ;;6036002

SROAC     ;;8074997

SROAC1    ;;811669

SROAC2    ;;7839725

SROACAR   ;;8480830

SROACAT   ;;7090373

SROACC    ;;17863169

SROACC0   ;;13064481

SROACC1   ;;11929528

SROACC2   ;;10979053

SROACC3   ;;11318821

SROACC4   ;;10650931

SROACC5   ;;11342334

SROACC6   ;;9694366

SROACCM   ;;5442845

SROACCR   ;;10280990

SROACCT   ;;6477022

SROACL1   ;;11536133

SROACLN   ;;6690925

SROACOM   ;;5271992

SROACOP   ;;10401802

SROACR1   ;;10974698

SROACRC   ;;8615250

SROACS    ;;17495772

SROACTH   ;;4583908

SROADEL   ;;7357586

SROADOC   ;;9175831

SROADOC1  ;;17090569

SROAERR   ;;5502190

SROAEX    ;;14370150

SROAL1    ;;10740868

SROAL11   ;;9261896

SROAL2    ;;9570235

SROAL21   ;;5999753

SROALAB   ;;5683374

SROALC    ;;9188663

SROALCP   ;;8851245

SROALCS   ;;10545065

SROALCSP  ;;9911958

SROALDP   ;;5758536

SROALEN   ;;7542354

SROALET   ;;11955292

SROALL    ;;11950510

SROALLP   ;;10358750

SROALLS   ;;12609154

SROALLSP  ;;12599574

SROALN1   ;;12516462

SROALN2   ;;7427970

SROALN3   ;;13840617

SROALNO   ;;10739667

SROALOG   ;;12771858

SROALSS   ;;12611289

SROALSSP  ;;12640766

SROALST   ;;11222652

SROALSTP  ;;10401017

SROALT    ;;9077666

SROALTP   ;;8814293

SROALTS   ;;10204410

SROALTSP  ;;9824963

SROAMEAS  ;;71772

SROAMIS   ;;11919401

SROAMIS1  ;;11009877

SROANEW   ;;11162809

SROANIN   ;;3341842

SROANP    ;;10889746

SROANP1   ;;11114124

SROANT    ;;9203425

SROANTP   ;;8862033

SROANTS   ;;9560904

SROANTSP  ;;9451309

SROAO     ;;7410117

SROAOP    ;;11418072

SROAOP1   ;;12217328

SROAOPS   ;;8050404

SROAOSET  ;;3431177

SROAOTH   ;;3393938

SROAPAS   ;;6024518

SROAPC    ;;1047865

SROAPCA   ;;13042967

SROAPCA0  ;;553613

SROAPCA1  ;;8911710

SROAPCA2  ;;9377265

SROAPCA3  ;;7422507

SROAPR1A  ;;3752585

SROAPR2   ;;6197830

SROAPRE   ;;8740356

SROAPRE1  ;;4090377

SROAPRE2  ;;3501275

SROAPRT1  ;;15523830

SROAPRT2  ;;10007362

SROAPRT3  ;;10638329

SROAPRT4  ;;8634120

SROAPRT5  ;;6747189

SROAPRT6  ;;4391520

SROAPRT7  ;;16872471

SROAPS1   ;;16535485

SROAPS2   ;;10890544

SROAR     ;;8206451

SROAR1    ;;12304213

SROAR2    ;;11247893

SROARET   ;;13046895

SROARPT   ;;4779374

SROARPT0  ;;16972368

SROARPT1  ;;15190572

SROARPT2  ;;3764497

SROASS    ;;11306593

SROASS1   ;;7807496

SROASSE   ;;10185778

SROASSP   ;;4152937

SROASWAP  ;;8677386

SROASWP   ;;18452779

SROASWP0  ;;7552610

SROASWP1  ;;5461676

SROASWP2  ;;11754339

SROASWP3  ;;17786597

SROASWPD  ;;2734567

SROAT0P   ;;11334796

SROAT0T   ;;4303410

SROAT1P   ;;12727482

SROAT1T   ;;3406860

SROAT2P   ;;12597003

SROAT2T   ;;5717811

SROATCM   ;;1118815

SROATCM1  ;;11449351

SROATCM2  ;;6369827

SROATM1   ;;16600818

SROATM2   ;;18977949

SROATM3   ;;9985638

SROATM4   ;;6407807

SROATMIT  ;;4502627

SROATMNO  ;;2187622

SROATT    ;;13398424

SROATT0   ;;7944441

SROATT1   ;;2912932

SROATT2   ;;4045394

SROBLOD   ;;5570434

SROBTCH   ;;1744175

SROCAN    ;;7968055

SROCAN0   ;;9498623

SROCANUP  ;;5599175

SROCASE   ;;2252

SROCCAT   ;;9818522

SROCHDD   ;;2209304

SROCMP    ;;9802456

SROCMP1   ;;5787553

SROCMP2   ;;3425866

SROCMPD   ;;2578858

SROCMPED  ;;15288632

SROCMPL   ;;12462861