LRNTEG09.m

LRNTEG09 ;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^LRNTEG010

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

LROR1 ;;9625663

LROR2 ;;7896672

LROR3 ;;7623763

LROR4 ;;12458706

LROR4A ;;11304926

LROR4B ;;11427577

LROR5 ;;158900

LROR6 ;;8002462

LROR6A ;;18913661

LROR6B ;;5484178

LROR7 ;;123808

LROR8 ;;15097856

LROR9 ;;14649800

LRORD ;;21861217

LRORD1 ;;16638873

LRORD2 ;;19550206

LRORD2A ;;4410276

LRORD3 ;;8443218

LRORDB ;;3836211

LRORDD ;;14598349

LRORDERN ;;171465

LRORDIM ;;4702537

LRORDK ;;15379707

LRORDST ;;15875986

LRORDST1 ;;35351

LROS ;;17119889

LROSPLG ;;10041351

LROSPLG1 ;;3394280

LROSPLG2 ;;2821776

LROSX0 ;;49918

LROSX1 ;;40042

LROW ;;7376419

LROW1 ;;15766797

LROW1A ;;3652918

LROW2 ;;8668025

LROW2A ;;10307549

LROW2P ;;12104713

LROW2RP ;;6326329

LROW3 ;;7781623

LROW4 ;;4745694

LROW5 ;;12045304

LRPARAM ;;8765403

LRPEND ;;2425145

LRPHEXPT ;;8993861

LRPHITE1 ;;11287163

LRPHITE2 ;;1572427

LRPHITE3 ;;2252159

LRPHITEM ;;13336060

LRPHLIS1 ;;12798618

LRPHLIST ;;12543028

LRPHSET ;;17839867

LRPHSET1 ;;7417434

LRPHSET2 ;;15265020

LRQC ;;784341

LRQCC ;;10400844

LRQCLOG ;;10276852

LRRD ;;8163718

LRRK ;;6124149

LRRMM ;;10107840

LRRP ;;11902066

LRRP1 ;;9653615

LRRP1NWC ;;8885978

LRRP1WWC ;;8541822

LRRP2 ;;17514598

LRRP3 ;;8489349

LRRP4 ;;3371595

LRRP5 ;;6370434

LRRP5A ;;5002342

LRRP6 ;;4442448

LRRP6A1 ;;5176457

LRRP6A2 ;;2717465

LRRP6A3 ;;2062211

LRRP6B1 ;;3754667

LRRP6B2 ;;2897457

LRRP6B3 ;;2105109

LRRP7 ;;3185939

LRRP8 ;;1417239

LRRP8A ;;4320016

LRRP8B ;;2289201

LRRP8C ;;5035394

LRRS ;;8884221

LRRS12 ;;3864208

LRRS13 ;;3090059

LRRSP ;;4121868

LRSETUP ;;10197791

LRSLOW ;;18743729

LRSMAC ;;5421760

LRSOR ;;7685895

LRSOR1 ;;1591112

LRSORA ;;7689678

LRSORA0 ;;2464272

LRSORA1 ;;6333273

LRSORA2 ;;3972267

LRSORA3 ;;7217888

LRSORB ;;5719451

LRSORC ;;3300162

LRSORC1 ;;3661353

LRSORC1A ;;6957474

LRSORD ;;3265445

LRSORD1 ;;3397856

LRSORD1A ;;7414314

LRSPDA ;;1740556

LRSPGD ;;2646829

LRSPRPT ;;12082607

LRSPRPT1 ;;3346358

LRSPRPT2 ;;4478821

LRSPRPTM ;;1406119

LRSPS ;;1381577

LRSPSICD ;;3553094

LRSPSICP ;;4705133

LRSPT ;;4853995

LRSRVR ;;16589108

LRSTATUS ;;5897459

LRSTUF ;;3413217

LRSTUF1 ;;13493738

LRSTUF2 ;;8308995

LRTOCOST ;;25358415

LRTOT ;;5546895

LRTP ;;1686825

LRTSTJAM ;;13319519

LRTSTJAN ;;7850501

LRTSTJM1 ;;3710492

LRTSTOUT ;;20343289

LRTSTSET ;;15744909

LRTT5 ;;11319825

LRTT5P1 ;;12842353

LRTT5R1 ;;6083596

LRU ;;14378398

LRUA ;;5401663

LRUB ;;2826666

LRUBL ;;2468261

LRUBYDIV ;;2502572

LRUC ;;6651967

LRUCE ;;3648117

LRUCLR ;;1516126

LRUCN ;;6078584

LRUCNBB ;;6472305

LRUD ;;8657266

LRUD1 ;;1321010

LRUDEL ;;9552290

LRUDIT ;;1905689

LRUDPT ;;3924969

LRUE ;;9366646

LRUER ;;13026821

LRUET ;;9782857

LRUFILE ;;4201114

LRUG ;;2113146

LRUL ;;6780109

LRULA ;;2846755

LRULB ;;3247364

LRULB1 ;;5606177

LRULEN ;;4952882

LRUMD ;;14289018

LRUMD1 ;;16214803

LRUMD2 ;;9917889

LRUMDF ;;12223120

LRUMDM ;;13458970

LRUMDP ;;12205875

LRUMDS ;;6789601

LRUMDU ;;12817720

LRUMDU1 ;;2957418

LRUMI ;;10078288

LRUMSG ;;582457

LRUP ;;267812

LRUPA ;;8659384

LRUPA1 ;;9287978

LRNTEG09  ;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^LRNTEG010

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

LROR1     ;;9625663

LROR2     ;;7896672

LROR3     ;;7623763

LROR4     ;;12458706

LROR4A    ;;11304926

LROR4B    ;;11427577

LROR5     ;;158900

LROR6     ;;8002462

LROR6A    ;;18913661

LROR6B    ;;5484178

LROR7     ;;123808

LROR8     ;;15097856

LROR9     ;;14649800

LRORD     ;;21861217

LRORD1    ;;16638873

LRORD2    ;;19550206

LRORD2A   ;;4410276

LRORD3    ;;8443218

LRORDB    ;;3836211

LRORDD    ;;14598349

LRORDERN  ;;171465

LRORDIM   ;;4702537

LRORDK    ;;15379707

LRORDST   ;;15875986

LRORDST1  ;;35351

LROS      ;;17119889

LROSPLG   ;;10041351

LROSPLG1  ;;3394280

LROSPLG2  ;;2821776

LROSX0    ;;49918

LROSX1    ;;40042

LROW      ;;7376419

LROW1     ;;15766797

LROW1A    ;;3652918

LROW2     ;;8668025

LROW2A    ;;10307549

LROW2P    ;;12104713

LROW2RP   ;;6326329

LROW3     ;;7781623

LROW4     ;;4745694

LROW5     ;;12045304

LRPARAM   ;;8765403

LRPEND    ;;2425145

LRPHEXPT  ;;8993861

LRPHITE1  ;;11287163

LRPHITE2  ;;1572427

LRPHITE3  ;;2252159

LRPHITEM  ;;13336060

LRPHLIS1  ;;12798618

LRPHLIST  ;;12543028

LRPHSET   ;;17839867

LRPHSET1  ;;7417434

LRPHSET2  ;;15265020

LRQC      ;;784341

LRQCC     ;;10400844

LRQCLOG   ;;10276852

LRRD      ;;8163718

LRRK      ;;6124149

LRRMM     ;;10107840

LRRP      ;;11902066

LRRP1     ;;9653615

LRRP1NWC  ;;8885978

LRRP1WWC  ;;8541822

LRRP2     ;;17514598

LRRP3     ;;8489349

LRRP4     ;;3371595

LRRP5     ;;6370434

LRRP5A    ;;5002342

LRRP6     ;;4442448

LRRP6A1   ;;5176457

LRRP6A2   ;;2717465

LRRP6A3   ;;2062211

LRRP6B1   ;;3754667

LRRP6B2   ;;2897457

LRRP6B3   ;;2105109

LRRP7     ;;3185939

LRRP8     ;;1417239

LRRP8A    ;;4320016

LRRP8B    ;;2289201

LRRP8C    ;;5035394

LRRS      ;;8884221

LRRS12    ;;3864208

LRRS13    ;;3090059

LRRSP     ;;4121868

LRSETUP   ;;10197791

LRSLOW    ;;18743729

LRSMAC    ;;5421760

LRSOR     ;;7685895

LRSOR1    ;;1591112

LRSORA    ;;7689678

LRSORA0   ;;2464272

LRSORA1   ;;6333273

LRSORA2   ;;3972267

LRSORA3   ;;7217888

LRSORB    ;;5719451

LRSORC    ;;3300162

LRSORC1   ;;3661353

LRSORC1A  ;;6957474

LRSORD    ;;3265445

LRSORD1   ;;3397856

LRSORD1A  ;;7414314

LRSPDA    ;;1740556

LRSPGD    ;;2646829

LRSPRPT   ;;12082607

LRSPRPT1  ;;3346358

LRSPRPT2  ;;4478821

LRSPRPTM  ;;1406119

LRSPS     ;;1381577

LRSPSICD  ;;3553094

LRSPSICP  ;;4705133

LRSPT     ;;4853995

LRSRVR    ;;16589108

LRSTATUS  ;;5897459

LRSTUF    ;;3413217

LRSTUF1   ;;13493738

LRSTUF2   ;;8308995

LRTOCOST  ;;25358415

LRTOT     ;;5546895

LRTP      ;;1686825

LRTSTJAM  ;;13319519

LRTSTJAN  ;;7850501

LRTSTJM1  ;;3710492

LRTSTOUT  ;;20343289

LRTSTSET  ;;15744909

LRTT5     ;;11319825

LRTT5P1   ;;12842353

LRTT5R1   ;;6083596

LRU       ;;14378398

LRUA      ;;5401663

LRUB      ;;2826666

LRUBL     ;;2468261

LRUBYDIV  ;;2502572

LRUC      ;;6651967

LRUCE     ;;3648117

LRUCLR    ;;1516126

LRUCN     ;;6078584

LRUCNBB   ;;6472305

LRUD      ;;8657266

LRUD1     ;;1321010

LRUDEL    ;;9552290

LRUDIT    ;;1905689

LRUDPT    ;;3924969

LRUE      ;;9366646

LRUER     ;;13026821

LRUET     ;;9782857

LRUFILE   ;;4201114

LRUG      ;;2113146

LRUL      ;;6780109

LRULA     ;;2846755

LRULB     ;;3247364

LRULB1    ;;5606177

LRULEN    ;;4952882

LRUMD     ;;14289018

LRUMD1    ;;16214803

LRUMD2    ;;9917889

LRUMDF    ;;12223120

LRUMDM    ;;13458970

LRUMDP    ;;12205875

LRUMDS    ;;6789601

LRUMDU    ;;12817720

LRUMDU1   ;;2957418

LRUMI     ;;10078288

LRUMSG    ;;582457

LRUP      ;;267812

LRUPA     ;;8659384

LRUPA1    ;;9287978