DVBANTEG.m

DVBANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40

 ;;2.7;AMIE;;Apr 10, 1995

 ;;7.2;APR 10, 1995@13:51:40

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

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

DVBAADM1 ;;638257

DVBAADMR ;;3192270

DVBAADRP ;;11281413

DVBAALRT ;;969678

DVBAAPLK ;;6762813

DVBACERT ;;16541319

DVBACMRP ;;14742419

DVBACRMS ;;8195822

DVBACRRP ;;6672179

DVBACRRR ;;7192044

DVBADSCK ;;11427543

DVBADSNT ;;14580376

DVBADSR1 ;;3955541

DVBADSRP ;;14116837

DVBADSRT ;;11545161

DVBADXFR ;;5748263

DVBAEDIT ;;9839591

DVBAENVR ;;5167682

DVBAERMK ;;822652

DVBAFINL ;;5664221

DVBAI001 ;;3984946

DVBAI002 ;;7866078

DVBAI003 ;;9465736

DVBAI004 ;;9426448

DVBAI005 ;;9168773

DVBAI006 ;;9757793

DVBAI007 ;;9844024

DVBAI008 ;;9414143

DVBAI009 ;;9305581

DVBAI00A ;;9714050

DVBAI00B ;;9020543

DVBAI00C ;;9205465

DVBAI00D ;;9275269

DVBAI00E ;;10702094

DVBAI00F ;;9264996

DVBAI00G ;;9888686

DVBAI00H ;;8631990

DVBAI00I ;;2666346

DVBAI00J ;;8624033

DVBAI00K ;;11375562

DVBAI00L ;;9023586

DVBAI00M ;;3654681

DVBAI00N ;;8288884

DVBAI00O ;;1499139

DVBAI00P ;;8500746

DVBAI00Q ;;9547260

DVBAI00R ;;11396004

DVBAI00S ;;10868518

DVBAI00T ;;9805564

DVBAI00U ;;8802965

DVBAI00V ;;7168357

DVBAI00W ;;9596589

DVBAI00X ;;10329148

DVBAI00Y ;;8702207

DVBAI00Z ;;9399915

DVBAI010 ;;3326017

DVBAI011 ;;3708388

DVBAI012 ;;1579336

DVBAI013 ;;8361562

DVBAI014 ;;1684479

DVBAI015 ;;7142274

DVBAI016 ;;7573161

DVBAI017 ;;4202819

DVBAI018 ;;6043854

DVBAI019 ;;1963020

DVBAI01A ;;4682695

DVBAI01B ;;8066247

DVBAI01C ;;8472098

DVBAI01D ;;6719976

DVBAI01E ;;7549877

DVBAI01F ;;6406205

DVBAI01G ;;9927999

DVBAI01H ;;11184873

DVBAI01I ;;10454297

DVBAI01J ;;11118349

DVBAI01K ;;7304944

DVBAI01L ;;7088947

DVBAI01M ;;8609341

DVBAI01N ;;23872670

DVBAI01O ;;12878748

DVBAI01P ;;16144162

DVBAI01Q ;;15894662

DVBAI01R ;;13555576

DVBAI01S ;;10109941

DVBAI01T ;;8315375

DVBAI01U ;;7822572

DVBAI01V ;;8807572

DVBAI01W ;;8780467

DVBAI01X ;;9786334

DVBAI01Y ;;7073206

DVBAI01Z ;;8706653

DVBAI020 ;;8048446

DVBAI021 ;;7564126

DVBAI022 ;;9900450

DVBAI023 ;;9894542

DVBAI024 ;;5713031

DVBAI025 ;;4951735

DVBAI026 ;;3222134

DVBAINI1 ;;5770759

DVBAINI2 ;;5232529

DVBAINI3 ;;16092457

DVBAINI4 ;;3357701

DVBAINI5 ;;1903353

DVBAINIS ;;2207479

DVBAINIT ;;11258137

DVBAL ;;3279129

DVBALD ;;1530456

DVBALD1 ;;4391960

DVBANT21 ;;698454

DVBAO001 ;;6460949

DVBAO002 ;;4296819

DVBAONI1 ;;1696470

DVBAONI2 ;;82755

DVBAONI3 ;;10576517

DVBAONIT ;;991575

DVBAORPH ;;3955878

DVBAPADD ;;3497529

DVBAPB1 ;;17920740

DVBAPBDY ;;2080048

DVBAPCXR ;;54860

DVBAPEND ;;6684165

DVBAPK1 ;;8583019

DVBAPK2 ;;6721462

DVBAPK3 ;;9969058

DVBAPK4 ;;7382410

DVBAPK5 ;;20407396

DVBAPK6 ;;3832227

DVBAPK7 ;;13981008

DVBAPK8 ;;6707125

DVBAPK9 ;;14020154

DVBAPKY ;;3837287

DVBAPL1 ;;4046552

DVBAPL10 ;;6712841

DVBAPL2 ;;7267685

DVBAPL3 ;;7327937

DVBAPL4 ;;2566783

DVBAPL5 ;;6525199

DVBAPL6 ;;6047068

DVBAPL7 ;;5890852

DVBAPL8 ;;6021230

DVBAPL9 ;;2474407

DVBAPLL ;;7328205

DVBAPLNG ;;3091129

DVBAPND1 ;;10210532

DVBAPOK1 ;;160506

DVBAPOKY ;;3153890

DVBAPOP2 ;;5414428

DVBAPOPU ;;2122566

DVBAPOST ;;7636342

DVBAPRE ;;2020496

DVBAPS1 ;;976623

DVBAPST1 ;;821822

DVBAPST3 ;;6045742

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---DVBANTEG   3787     printed  Mar 13, 2025@20:46:04                                                                                                                                                                                                    Page 2

DVBANTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;APR 10, 1995@13:51:40

 +1       ;;2.7;AMIE;;Apr 10, 1995

 +2       ;;7.2;APR 10, 1995@13:51:40

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

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

DVBAADM1  ;;638257

DVBAADMR  ;;3192270

DVBAADRP  ;;11281413

DVBAALRT  ;;969678

DVBAAPLK  ;;6762813

DVBACERT  ;;16541319

DVBACMRP  ;;14742419

DVBACRMS  ;;8195822

DVBACRRP  ;;6672179

DVBACRRR  ;;7192044

DVBADSCK  ;;11427543

DVBADSNT  ;;14580376

DVBADSR1  ;;3955541

DVBADSRP  ;;14116837

DVBADSRT  ;;11545161

DVBADXFR  ;;5748263

DVBAEDIT  ;;9839591

DVBAENVR  ;;5167682

DVBAERMK  ;;822652

DVBAFINL  ;;5664221

DVBAI001  ;;3984946

DVBAI002  ;;7866078

DVBAI003  ;;9465736

DVBAI004  ;;9426448

DVBAI005  ;;9168773

DVBAI006  ;;9757793

DVBAI007  ;;9844024

DVBAI008  ;;9414143

DVBAI009  ;;9305581

DVBAI00A  ;;9714050

DVBAI00B  ;;9020543

DVBAI00C  ;;9205465

DVBAI00D  ;;9275269

DVBAI00E  ;;10702094

DVBAI00F  ;;9264996

DVBAI00G  ;;9888686

DVBAI00H  ;;8631990

DVBAI00I  ;;2666346

DVBAI00J  ;;8624033

DVBAI00K  ;;11375562

DVBAI00L  ;;9023586

DVBAI00M  ;;3654681

DVBAI00N  ;;8288884

DVBAI00O  ;;1499139

DVBAI00P  ;;8500746

DVBAI00Q  ;;9547260

DVBAI00R  ;;11396004

DVBAI00S  ;;10868518

DVBAI00T  ;;9805564

DVBAI00U  ;;8802965

DVBAI00V  ;;7168357

DVBAI00W  ;;9596589

DVBAI00X  ;;10329148

DVBAI00Y  ;;8702207

DVBAI00Z  ;;9399915

DVBAI010  ;;3326017

DVBAI011  ;;3708388

DVBAI012  ;;1579336

DVBAI013  ;;8361562

DVBAI014  ;;1684479

DVBAI015  ;;7142274

DVBAI016  ;;7573161

DVBAI017  ;;4202819

DVBAI018  ;;6043854

DVBAI019  ;;1963020

DVBAI01A  ;;4682695

DVBAI01B  ;;8066247

DVBAI01C  ;;8472098

DVBAI01D  ;;6719976

DVBAI01E  ;;7549877

DVBAI01F  ;;6406205

DVBAI01G  ;;9927999

DVBAI01H  ;;11184873

DVBAI01I  ;;10454297

DVBAI01J  ;;11118349

DVBAI01K  ;;7304944

DVBAI01L  ;;7088947

DVBAI01M  ;;8609341

DVBAI01N  ;;23872670

DVBAI01O  ;;12878748

DVBAI01P  ;;16144162

DVBAI01Q  ;;15894662

DVBAI01R  ;;13555576

DVBAI01S  ;;10109941

DVBAI01T  ;;8315375

DVBAI01U  ;;7822572

DVBAI01V  ;;8807572

DVBAI01W  ;;8780467

DVBAI01X  ;;9786334

DVBAI01Y  ;;7073206

DVBAI01Z  ;;8706653

DVBAI020  ;;8048446

DVBAI021  ;;7564126

DVBAI022  ;;9900450

DVBAI023  ;;9894542

DVBAI024  ;;5713031

DVBAI025  ;;4951735

DVBAI026  ;;3222134

DVBAINI1  ;;5770759

DVBAINI2  ;;5232529

DVBAINI3  ;;16092457

DVBAINI4  ;;3357701

DVBAINI5  ;;1903353

DVBAINIS  ;;2207479

DVBAINIT  ;;11258137

DVBAL     ;;3279129

DVBALD    ;;1530456

DVBALD1   ;;4391960

DVBANT21  ;;698454

DVBAO001  ;;6460949

DVBAO002  ;;4296819

DVBAONI1  ;;1696470

DVBAONI2  ;;82755

DVBAONI3  ;;10576517

DVBAONIT  ;;991575

DVBAORPH  ;;3955878

DVBAPADD  ;;3497529

DVBAPB1   ;;17920740

DVBAPBDY  ;;2080048

DVBAPCXR  ;;54860

DVBAPEND  ;;6684165

DVBAPK1   ;;8583019

DVBAPK2   ;;6721462

DVBAPK3   ;;9969058

DVBAPK4   ;;7382410

DVBAPK5   ;;20407396

DVBAPK6   ;;3832227

DVBAPK7   ;;13981008

DVBAPK8   ;;6707125

DVBAPK9   ;;14020154

DVBAPKY   ;;3837287

DVBAPL1   ;;4046552

DVBAPL10  ;;6712841

DVBAPL2   ;;7267685

DVBAPL3   ;;7327937

DVBAPL4   ;;2566783

DVBAPL5   ;;6525199

DVBAPL6   ;;6047068

DVBAPL7   ;;5890852

DVBAPL8   ;;6021230

DVBAPL9   ;;2474407

DVBAPLL   ;;7328205

DVBAPLNG  ;;3091129

DVBAPND1  ;;10210532

DVBAPOK1  ;;160506

DVBAPOKY  ;;3153890

DVBAPOP2  ;;5414428

DVBAPOPU  ;;2122566

DVBAPOST  ;;7636342

DVBAPRE   ;;2020496

DVBAPS1   ;;976623

DVBAPST1  ;;821822

DVBAPST3  ;;6045742