LRNTEG0.m

LRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070621.074623

 ;;5.2;LR;**1022**;September 20, 2007

 ;;7.3;3070621.074623

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

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

BLRIN00L ;;4624298

BLRIN00M ;;4654266

BLRIN00N ;;4838760

BLRIN00O ;;4946156

BLRIN00P ;;5148548

BLRIN00Q ;;1583473

BLRIN00R ;;7918998

BLRIN00S ;;3513629

BLRIN00T ;;1585501

BLRIN00U ;;6733388

BLRIN00V ;;6564686

BLRIN00W ;;7844603

BLRIN00X ;;7602033

BLRIN00Y ;;8219691

BLRIN00Z ;;5069528

BLRINIS ;;2170052

BLRINIT ;;10245418

BLRINIT1 ;;4928756

BLRINIT2 ;;5232659

BLRINIT3 ;;16807496

BLRINIT4 ;;3357831

BLRINIT5 ;;1257505

BLRIRCHK ;;8545083

BLRLABA1 ;;25390020

BLRLABAA ;;15327180

BLRLABCH ;;3282052

BLRLABEL ;;4246648

BLRLABL2 ;;6954821

BLRLABL3 ;;3346946

BLRLABL4 ;;6546803

BLRLABL7 ;;3104458

BLRLABLA ;;8915791

BLRLABLB ;;6014901

BLRLABLC ;;5552614

BLRLABLD ;;2889202

BLRLABLE ;;2874054

BLRLABLF ;;3182010

BLRLABLQ ;;6545637

BLRLABLS ;;4029065

BLRLABLW ;;6569114

BLRLABLZ ;;7055669

BLRLB400 ;;3884191

BLRLBMEC ;;5309178

BLRLBOE ;;228129

BLRLIIN ;;3545718

BLRLIIN1 ;;10102933

BLRLIIN2 ;;12037802

BLRLINK ;;14696343

BLRLINK1 ;;22172819

BLRLINK2 ;;7459876

BLRLINK3 ;;12391185

BLRLINKO ;;9938899

BLRLINKP ;;15972238

BLRLINKR ;;9938923

BLRLM ;;7047547

BLRLMAP ;;18861462

BLRLMR ;;7035889

BLRLNCPM ;;8606789

BLRLNKFX ;;2315426

BLRLRRD ;;9090792

BLRLRRP2 ;;14950661

BLRLTLX ;;1406726

BLRLTRNG ;;11093260

BLRLTRNP ;;6467278

BLRMERG ;;12237330

BLRMERG2 ;;10638523

BLRMERGD ;;2650

BLRMERGI ;;3260749

BLRMERGT ;;1997014

BLRMERGU ;;2557784

BLRMLTL ;;24598540

BLRMLTL1 ;;13445612

BLRMPC ;;1412948

BLRMPRL ;;1077826

BLRMPRLO ;;807731

BLRNFLTL ;;10564560

BLRNLINK ;;20927890

BLRNTEG ;;3758937

BLRORBFX ;;13069963

BLRORD1 ;;10609379

BLRORD2A ;;4385737

BLRORDK ;;14784872

BLRORDN ;;170852

BLRORPND ;;4046759

BLRORUTL ;;4229

BLRORX ;;6317

BLRORX2 ;;3709

BLRORX3 ;;4130

BLRORX5 ;;2711

BLRORX7 ;;2725

BLRORX8 ;;3999

BLRP18F2 ;;22723595

BLRP18FX ;;33820164

BLRP21FX ;;902996

BLRP22EC ;;10375851

BLRP22PC ;;6698931

BLRPARAM ;;2717764

BLRPCCDR ;;8160884

BLRPCCES ;;20759253

BLRPCCLK ;;6160833

BLRPCCMC ;;41624645

BLRPCCVC ;;2328240

BLRPCCVE ;;6464883

BLRPCCVM ;;624589

BLRPOS17 ;;80191

BLRPOS18 ;;80199

BLRPOST ;;436076

BLRPOST1 ;;338961

BLRPOVC ;;302472

BLRPRE ;;4551588

BLRPRE1 ;;4284498

BLRPRE17 ;;5510270

BLRPRE18 ;;9684936

BLRPRE19 ;;8684884

BLRPRE20 ;;15459137

BLRPRE21 ;;15000401

BLRPRE22 ;;16487202

BLRPRE23 ;;13692609

BLRPRE2A ;;12472072

BLRPRERL ;;13988658

BLRPREXX ;;12379271

BLRPST ;;7631723

BLRPSTST ;;8271367

BLRPTCH2 ;;19313744

BLRPTCH4 ;;31238363

BLRPTCHB ;;7993079

BLRPTCHE ;;3903211

BLRPTCHG ;;3980672

BLRPTCHU ;;167413840

BLRPTCHW ;;1952569

BLRQIIN ;;3545903

BLRQIIN1 ;;10084393

BLRQIIN2 ;;12187078

BLRQINST ;;13420420

BLRQUE ;;109088

BLRRFILE ;;5254504

BLRRIIN ;;3545940

BLRRIIN1 ;;10593073

BLRRIIN2 ;;12408792

BLRRLCOM ;;1588296

BLRRLMP ;;6191884

BLRRLMV ;;2698865

BLRRLU ;;5609782

BLRRLV ;;2071691

BLRRLXP ;;2308388

BLRRPOST ;;2657308

BLRSAV21 ;;1535953

BLRSHDRC ;;16738784

BLRSHDRP ;;6607320

BLRSHPM ;;10032250

BLRSHPM1 ;;6651133

BLRSLTL ;;7570354

BLRSLTL1 ;;23682384

BLRSLTLD ;;5758609

LRNTEG0   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070621.074623

 +1       ;;5.2;LR;**1022**;September 20, 2007

 +2       ;;7.3;3070621.074623

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

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

BLRIN00L  ;;4624298

BLRIN00M  ;;4654266

BLRIN00N  ;;4838760

BLRIN00O  ;;4946156

BLRIN00P  ;;5148548

BLRIN00Q  ;;1583473

BLRIN00R  ;;7918998

BLRIN00S  ;;3513629

BLRIN00T  ;;1585501

BLRIN00U  ;;6733388

BLRIN00V  ;;6564686

BLRIN00W  ;;7844603

BLRIN00X  ;;7602033

BLRIN00Y  ;;8219691

BLRIN00Z  ;;5069528

BLRINIS   ;;2170052

BLRINIT   ;;10245418

BLRINIT1  ;;4928756

BLRINIT2  ;;5232659

BLRINIT3  ;;16807496

BLRINIT4  ;;3357831

BLRINIT5  ;;1257505

BLRIRCHK  ;;8545083

BLRLABA1  ;;25390020

BLRLABAA  ;;15327180

BLRLABCH  ;;3282052

BLRLABEL  ;;4246648

BLRLABL2  ;;6954821

BLRLABL3  ;;3346946

BLRLABL4  ;;6546803

BLRLABL7  ;;3104458

BLRLABLA  ;;8915791

BLRLABLB  ;;6014901

BLRLABLC  ;;5552614

BLRLABLD  ;;2889202

BLRLABLE  ;;2874054

BLRLABLF  ;;3182010

BLRLABLQ  ;;6545637

BLRLABLS  ;;4029065

BLRLABLW  ;;6569114

BLRLABLZ  ;;7055669

BLRLB400  ;;3884191

BLRLBMEC  ;;5309178

BLRLBOE   ;;228129

BLRLIIN   ;;3545718

BLRLIIN1  ;;10102933

BLRLIIN2  ;;12037802

BLRLINK   ;;14696343

BLRLINK1  ;;22172819

BLRLINK2  ;;7459876

BLRLINK3  ;;12391185

BLRLINKO  ;;9938899

BLRLINKP  ;;15972238

BLRLINKR  ;;9938923

BLRLM     ;;7047547

BLRLMAP   ;;18861462

BLRLMR    ;;7035889

BLRLNCPM  ;;8606789

BLRLNKFX  ;;2315426

BLRLRRD   ;;9090792

BLRLRRP2  ;;14950661

BLRLTLX   ;;1406726

BLRLTRNG  ;;11093260

BLRLTRNP  ;;6467278

BLRMERG   ;;12237330

BLRMERG2  ;;10638523

BLRMERGD  ;;2650

BLRMERGI  ;;3260749

BLRMERGT  ;;1997014

BLRMERGU  ;;2557784

BLRMLTL   ;;24598540

BLRMLTL1  ;;13445612

BLRMPC    ;;1412948

BLRMPRL   ;;1077826

BLRMPRLO  ;;807731

BLRNFLTL  ;;10564560

BLRNLINK  ;;20927890

BLRNTEG   ;;3758937

BLRORBFX  ;;13069963

BLRORD1   ;;10609379

BLRORD2A  ;;4385737

BLRORDK   ;;14784872

BLRORDN   ;;170852

BLRORPND  ;;4046759

BLRORUTL  ;;4229

BLRORX    ;;6317

BLRORX2   ;;3709

BLRORX3   ;;4130

BLRORX5   ;;2711

BLRORX7   ;;2725

BLRORX8   ;;3999

BLRP18F2  ;;22723595

BLRP18FX  ;;33820164

BLRP21FX  ;;902996

BLRP22EC  ;;10375851

BLRP22PC  ;;6698931

BLRPARAM  ;;2717764

BLRPCCDR  ;;8160884

BLRPCCES  ;;20759253

BLRPCCLK  ;;6160833

BLRPCCMC  ;;41624645

BLRPCCVC  ;;2328240

BLRPCCVE  ;;6464883

BLRPCCVM  ;;624589

BLRPOS17  ;;80191

BLRPOS18  ;;80199

BLRPOST   ;;436076

BLRPOST1  ;;338961

BLRPOVC   ;;302472

BLRPRE    ;;4551588

BLRPRE1   ;;4284498

BLRPRE17  ;;5510270

BLRPRE18  ;;9684936

BLRPRE19  ;;8684884

BLRPRE20  ;;15459137

BLRPRE21  ;;15000401

BLRPRE22  ;;16487202

BLRPRE23  ;;13692609

BLRPRE2A  ;;12472072

BLRPRERL  ;;13988658

BLRPREXX  ;;12379271

BLRPST    ;;7631723

BLRPSTST  ;;8271367

BLRPTCH2  ;;19313744

BLRPTCH4  ;;31238363

BLRPTCHB  ;;7993079

BLRPTCHE  ;;3903211

BLRPTCHG  ;;3980672

BLRPTCHU  ;;167413840

BLRPTCHW  ;;1952569

BLRQIIN   ;;3545903

BLRQIIN1  ;;10084393

BLRQIIN2  ;;12187078

BLRQINST  ;;13420420

BLRQUE    ;;109088

BLRRFILE  ;;5254504

BLRRIIN   ;;3545940

BLRRIIN1  ;;10593073

BLRRIIN2  ;;12408792

BLRRLCOM  ;;1588296

BLRRLMP   ;;6191884

BLRRLMV   ;;2698865

BLRRLU    ;;5609782

BLRRLV    ;;2071691

BLRRLXP   ;;2308388

BLRRPOST  ;;2657308

BLRSAV21  ;;1535953

BLRSHDRC  ;;16738784

BLRSHDRP  ;;6607320

BLRSHPM   ;;10032250

BLRSHPM1  ;;6651133

BLRSLTL   ;;7570354

BLRSLTL1  ;;23682384

BLRSLTLD  ;;5758609