SRNTEG0.m

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

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

SROCMPS ;;11634013

SROCNR ;;6501039

SROCNR1 ;;13706047

SROCNR2 ;;13533185

SROCODE ;;3430511

SROCOM ;;5150235

SROCOMP ;;12557366

SROCON ;;7757520

SROCON1 ;;874865

SROCOND ;;2285

SROCPT ;;1135014

SROCRAT ;;9106508

SRODATE ;;4080611

SRODCT1 ;;13487226

SRODELA ;;11853938

SRODEV ;;275574

SRODICT ;;12398051

SRODLA1 ;;8914646

SRODLA2 ;;9982605

SRODLAY ;;9348184

SRODLT ;;9341903

SRODLT0 ;;8117340

SRODLT1 ;;3117817

SRODLT2 ;;4190492

SRODPT ;;2370986

SROERR ;;12680766

SROERR0 ;;3581133

SROERR1 ;;15586687

SROERR2 ;;8080430

SROERRPO ;;9592757

SROFILE ;;11321600

SROFLD ;;3049077

SROICU ;;7026928

SROICU1 ;;9648009

SROICU2 ;;9703712

SROINQ ;;13650153

SROIRR ;;4959802

SROKEY ;;8178720

SROKEY1 ;;9276852

SROKRET ;;950405

SROLOCK ;;7721330

SROMED ;;14319705

SROMENU ;;8450234

SROMOR ;;8349609

SROMORT ;;10557507

SRONAN ;;3749513

SRONAN1 ;;5813213

SRONASS ;;13373165

SRONBCH ;;1692514

SRONEW ;;9745297

SRONIN ;;1539867

SRONIN1 ;;10909129

SRONIN2 ;;11115711

SRONIN3 ;;10241634

SRONIN4 ;;6641012

SRONIN5 ;;9982835

SRONIN6 ;;13264035

SRONITE ;;40878

SRONON ;;9871379

SRONON0 ;;13768814

SRONON1 ;;9659892

SRONOP ;;14675614

SRONOP1 ;;4632135

SRONOR ;;9218812

SRONOR1 ;;5033721

SRONOR2 ;;9853192

SRONOR3 ;;9777137

SRONOR4 ;;9527245

SRONOR5 ;;9496023

SRONOR6 ;;5181795

SRONOR7 ;;9879875

SRONOR8 ;;9797371

SRONRN1 ;;11882384

SRONRN2 ;;10842342

SRONRN3 ;;7359997

SRONRN4 ;;11105877

SRONRN5 ;;11842993

SRONRNF ;;9081246

SRONRPT ;;4751943

SRONRPT0 ;;14852429

SRONRPT1 ;;14308588

SRONRPT2 ;;17178265

SRONRPT3 ;;9328079

SRONUR ;;3335620

SRONUR1 ;;14294813

SRONUR2 ;;15172306

SRONXR ;;948758

SROOPRM ;;8890272

SROOPRM1 ;;8345600

SROP ;;11421165

SROP1 ;;2869582

SROPAC0 ;;7281750

SROPAC1 ;;4116346

SROPACT ;;4285094

SROPAT ;;4083891

SROPDEL ;;10518417

SROPER ;;8249828

SROPLIS ;;5891254

SROPLIST ;;10573308

SROPLST1 ;;8344386

SROPLSTS ;;15458118

SROPOST ;;11117912

SROPOST0 ;;11314400

SROPOST1 ;;4109705

SROPOST2 ;;6929347

SROPPC ;;10469597

SROPR01 ;;9968913

SROPR02 ;;9203095

SROPR03 ;;12977397

SROPRE ;;20213002

SROPRE0 ;;3862541

SROPREQ ;;5334609

SROPRI ;;13037058

SROPRI1 ;;5091384

SROPRI2 ;;9977752

SROPRIN ;;1919966

SROPRIO ;;14632165

SROPRIT ;;7802902

SROPROC ;;16746178

SROPRPT ;;1495355

SROPRPT1 ;;10715706

SROPRPT2 ;;8932470

SROPRPT3 ;;13365148

SROPRPT4 ;;4139502

SROPS ;;7320444

SROQ ;;19916846

SROQ0 ;;6909462

SROQ0A ;;3418494

SROQ1 ;;5710420

SROQ1A ;;5986558

SROQ2 ;;10055055

SROQM ;;2454081

SROQM0 ;;8643769

SROQM1 ;;9986266

SROQT ;;6682831

SROR ;;1064043

SRORAT1 ;;9464973

SRORAT2 ;;5618055

SRORATA ;;4507955

SRORATP ;;5270692

SRORATS ;;4033835

SROREA ;;2641219

SROREA1 ;;4701907

SROREA2 ;;6036733

SROREAS ;;8242299

SROREQ ;;4758469

SROREQ1 ;;13883180

SROREQ2 ;;11963363

SROREQ3 ;;13081345

SROREQ4 ;;11044703

SROREST ;;7931836

SRORESV ;;5067326

SRORET ;;11944655

SRORHRS ;;9870467

SRORHRS0 ;;5611756

SRORIN ;;14448907

SRORTRN ;;1927140

SRORUT ;;8711950

SRORUT0 ;;12484053

SRORUT1 ;;7215261

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

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

SROCMPS   ;;11634013

SROCNR    ;;6501039

SROCNR1   ;;13706047

SROCNR2   ;;13533185

SROCODE   ;;3430511

SROCOM    ;;5150235

SROCOMP   ;;12557366

SROCON    ;;7757520

SROCON1   ;;874865

SROCOND   ;;2285

SROCPT    ;;1135014

SROCRAT   ;;9106508

SRODATE   ;;4080611

SRODCT1   ;;13487226

SRODELA   ;;11853938

SRODEV    ;;275574

SRODICT   ;;12398051

SRODLA1   ;;8914646

SRODLA2   ;;9982605

SRODLAY   ;;9348184

SRODLT    ;;9341903

SRODLT0   ;;8117340

SRODLT1   ;;3117817

SRODLT2   ;;4190492

SRODPT    ;;2370986

SROERR    ;;12680766

SROERR0   ;;3581133

SROERR1   ;;15586687

SROERR2   ;;8080430

SROERRPO  ;;9592757

SROFILE   ;;11321600

SROFLD    ;;3049077

SROICU    ;;7026928

SROICU1   ;;9648009

SROICU2   ;;9703712

SROINQ    ;;13650153

SROIRR    ;;4959802

SROKEY    ;;8178720

SROKEY1   ;;9276852

SROKRET   ;;950405

SROLOCK   ;;7721330

SROMED    ;;14319705

SROMENU   ;;8450234

SROMOR    ;;8349609

SROMORT   ;;10557507

SRONAN    ;;3749513

SRONAN1   ;;5813213

SRONASS   ;;13373165

SRONBCH   ;;1692514

SRONEW    ;;9745297

SRONIN    ;;1539867

SRONIN1   ;;10909129

SRONIN2   ;;11115711

SRONIN3   ;;10241634

SRONIN4   ;;6641012

SRONIN5   ;;9982835

SRONIN6   ;;13264035

SRONITE   ;;40878

SRONON    ;;9871379

SRONON0   ;;13768814

SRONON1   ;;9659892

SRONOP    ;;14675614

SRONOP1   ;;4632135

SRONOR    ;;9218812

SRONOR1   ;;5033721

SRONOR2   ;;9853192

SRONOR3   ;;9777137

SRONOR4   ;;9527245

SRONOR5   ;;9496023

SRONOR6   ;;5181795

SRONOR7   ;;9879875

SRONOR8   ;;9797371

SRONRN1   ;;11882384

SRONRN2   ;;10842342

SRONRN3   ;;7359997

SRONRN4   ;;11105877

SRONRN5   ;;11842993

SRONRNF   ;;9081246

SRONRPT   ;;4751943

SRONRPT0  ;;14852429

SRONRPT1  ;;14308588

SRONRPT2  ;;17178265

SRONRPT3  ;;9328079

SRONUR    ;;3335620

SRONUR1   ;;14294813

SRONUR2   ;;15172306

SRONXR    ;;948758

SROOPRM   ;;8890272

SROOPRM1  ;;8345600

SROP      ;;11421165

SROP1     ;;2869582

SROPAC0   ;;7281750

SROPAC1   ;;4116346

SROPACT   ;;4285094

SROPAT    ;;4083891

SROPDEL   ;;10518417

SROPER    ;;8249828

SROPLIS   ;;5891254

SROPLIST  ;;10573308

SROPLST1  ;;8344386

SROPLSTS  ;;15458118

SROPOST   ;;11117912

SROPOST0  ;;11314400

SROPOST1  ;;4109705

SROPOST2  ;;6929347

SROPPC    ;;10469597

SROPR01   ;;9968913

SROPR02   ;;9203095

SROPR03   ;;12977397

SROPRE    ;;20213002

SROPRE0   ;;3862541

SROPREQ   ;;5334609

SROPRI    ;;13037058

SROPRI1   ;;5091384

SROPRI2   ;;9977752

SROPRIN   ;;1919966

SROPRIO   ;;14632165

SROPRIT   ;;7802902

SROPROC   ;;16746178

SROPRPT   ;;1495355

SROPRPT1  ;;10715706

SROPRPT2  ;;8932470

SROPRPT3  ;;13365148

SROPRPT4  ;;4139502

SROPS     ;;7320444

SROQ      ;;19916846

SROQ0     ;;6909462

SROQ0A    ;;3418494

SROQ1     ;;5710420

SROQ1A    ;;5986558

SROQ2     ;;10055055

SROQM     ;;2454081

SROQM0    ;;8643769

SROQM1    ;;9986266

SROQT     ;;6682831

SROR      ;;1064043

SRORAT1   ;;9464973

SRORAT2   ;;5618055

SRORATA   ;;4507955

SRORATP   ;;5270692

SRORATS   ;;4033835

SROREA    ;;2641219

SROREA1   ;;4701907

SROREA2   ;;6036733

SROREAS   ;;8242299

SROREQ    ;;4758469

SROREQ1   ;;13883180

SROREQ2   ;;11963363

SROREQ3   ;;13081345

SROREQ4   ;;11044703

SROREST   ;;7931836

SRORESV   ;;5067326

SRORET    ;;11944655

SRORHRS   ;;9870467

SRORHRS0  ;;5611756

SRORIN    ;;14448907

SRORTRN   ;;1927140

SRORUT    ;;8711950

SRORUT0   ;;12484053

SRORUT1   ;;7215261