LRNTEG04.m

LRNTEG04 ;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^LRNTEG05

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

LR7OB0 ;;12303766

LR7OB1 ;;8477087

LR7OB3 ;;12599540

LR7OB63 ;;10028058

LR7OB630 ;;6882917

LR7OB63A ;;19409681

LR7OB63B ;;22739375

LR7OB63C ;;17106633

LR7OB63D ;;20103738

LR7OB68 ;;7982871

LR7OB69 ;;5028351

LR7OC0 ;;12496588

LR7OENV ;;3194472

LR7OEVNT ;;5095068

LR7OF0 ;;21257980

LR7OF1 ;;13628614

LR7OF2 ;;11603340

LR7OF3 ;;9995500

LR7OF4 ;;3917230

LR7OF5 ;;9613091

LR7OFA1 ;;8266916

LR7OFA2 ;;1648029

LR7OFA3 ;;4967170

LR7OFAA ;;3051622

LR7OFAO ;;5598733

LR7OGC ;;6127153

LR7OGG ;;11142805

LR7OGM ;;8016851

LR7OGMC ;;5100828

LR7OGMG ;;3647568

LR7OGMM ;;4440747

LR7OGMP ;;5612239

LR7OGMU ;;1286392

LR7OGO ;;5042779

LR7OGU ;;3862347

LR7OMERG ;;16456343

LR7OPOS ;;1567546

LR7OPRE ;;5340639

LR7OR1 ;;12788388

LR7OR2 ;;9199229

LR7OR3 ;;4894121

LR7OR4 ;;7688502

LR7OS ;;334246

LR7OSAP ;;16576063

LR7OSAP1 ;;8012437

LR7OSAP2 ;;17315095

LR7OSAP3 ;;3581758

LR7OSBB1 ;;9756662

LR7OSBR ;;4158288

LR7OSBR1 ;;22820420

LR7OSMZ0 ;;1947401

LR7OSMZ1 ;;7684760

LR7OSMZ2 ;;18248789

LR7OSMZ3 ;;12541559

LR7OSMZ4 ;;13148416

LR7OSMZ5 ;;11532218

LR7OSMZU ;;5537758

LR7OSOS ;;10911853

LR7OSOS1 ;;13834731

LR7OSUM ;;6338564

LR7OSUM1 ;;12946820

LR7OSUM3 ;;7359592

LR7OSUM4 ;;12311986

LR7OSUM5 ;;12119515

LR7OSUM6 ;;7974714

LR7OU0 ;;5520184

LR7OU01 ;;3532548

LR7OU1 ;;4781614

LR7OU3 ;;4518182

LR7OU4 ;;12076260

LR7OU5 ;;13245597

LR7OU64 ;;10067025

LR7OU641 ;;12231214

LR7OV0 ;;6174446

LR7OV1 ;;2971951

LR7OV2 ;;5339118

LR7OV3 ;;4271780

LR7OV4 ;;5923833

LR90P ;;184128

LRABG ;;2097610

LRABG1 ;;6312662

LRAC ;;6282381

LRAC1 ;;11378284

LRAC14 ;;3263466

LRAC2 ;;11688997

LRAC2A ;;5913888

LRAC3 ;;9768115

LRAC4 ;;11801879

LRAC5 ;;7593685

LRAC6 ;;9662829

LRAC7 ;;3019634

LRAC8 ;;926291

LRAC9 ;;9083351

LRACC ;;4276870

LRACDIAG ;;16363570

LRACF ;;11069631

LRACFILE ;;1035504

LRACFIX ;;1903126

LRACFR ;;10016171

LRACK ;;3138214

LRACKL ;;14234954

LRACKL1 ;;3855576

LRACM ;;12466980

LRACM1 ;;12213942

LRACM2 ;;10300781

LRACM2F ;;6580410

LRACM3 ;;7505472

LRACM4 ;;8388888

LRACP ;;2996466

LRACPG ;;877355

LRACS ;;11119271

LRACS1 ;;10615840

LRACS2 ;;6025860

LRACS3 ;;8511235

LRACSUM ;;10529235

LRACSUM1 ;;10146288

LRACSUM3 ;;7134607

LRACSUM4 ;;10364070

LRACSUM5 ;;13563729

LRACSUM6 ;;8391403

LRAD2ORD ;;9210544

LRAFUNC ;;5234913

LRAFUNC1 ;;8936636

LRAFUNC5 ;;4267741

LRAFUNC6 ;;4271748

LRAFUNC7 ;;7355536

LRAIPRIV ;;149480

LRAIRNUM ;;886394

LRAP ;;6227615

LRAPA ;;5022677

LRAPAP ;;1280654

LRAPAUA ;;5449184

LRAPAUL ;;12805659

LRAPAULC ;;5822397

LRAPAUPT ;;296301

LRAPAUSR ;;7980343

LRAPBK ;;13894568

LRAPBK1 ;;12546563

LRAPBR ;;2195032

LRAPBR1 ;;8346961

LRAPBR2 ;;4890391

LRAPBR3 ;;4110669

LRAPBR4 ;;5636439

LRAPBR5 ;;8235355

LRAPBRPW ;;3700173

LRAPBS ;;7174560

LRAPBS1 ;;8101674

LRAPBS2 ;;2426283

LRAPC ;;4816619

LRAPCUM ;;11114626

LRAPCUM1 ;;6339682

LRAPCWK ;;9728094

LRAPD ;;885252

LRAPD1 ;;5673315

LRAPDA ;;11913004

LRAPDAC ;;3238902

LRAPDEL ;;6419798

LRAPDPT ;;7135311

LRAPDS ;;977811

LRAPDSR ;;4774961

LRAPED ;;5328577

LRNTEG04  ;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^LRNTEG05

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

LR7OB0    ;;12303766

LR7OB1    ;;8477087

LR7OB3    ;;12599540

LR7OB63   ;;10028058

LR7OB630  ;;6882917

LR7OB63A  ;;19409681

LR7OB63B  ;;22739375

LR7OB63C  ;;17106633

LR7OB63D  ;;20103738

LR7OB68   ;;7982871

LR7OB69   ;;5028351

LR7OC0    ;;12496588

LR7OENV   ;;3194472

LR7OEVNT  ;;5095068

LR7OF0    ;;21257980

LR7OF1    ;;13628614

LR7OF2    ;;11603340

LR7OF3    ;;9995500

LR7OF4    ;;3917230

LR7OF5    ;;9613091

LR7OFA1   ;;8266916

LR7OFA2   ;;1648029

LR7OFA3   ;;4967170

LR7OFAA   ;;3051622

LR7OFAO   ;;5598733

LR7OGC    ;;6127153

LR7OGG    ;;11142805

LR7OGM    ;;8016851

LR7OGMC   ;;5100828

LR7OGMG   ;;3647568

LR7OGMM   ;;4440747

LR7OGMP   ;;5612239

LR7OGMU   ;;1286392

LR7OGO    ;;5042779

LR7OGU    ;;3862347

LR7OMERG  ;;16456343

LR7OPOS   ;;1567546

LR7OPRE   ;;5340639

LR7OR1    ;;12788388

LR7OR2    ;;9199229

LR7OR3    ;;4894121

LR7OR4    ;;7688502

LR7OS     ;;334246

LR7OSAP   ;;16576063

LR7OSAP1  ;;8012437

LR7OSAP2  ;;17315095

LR7OSAP3  ;;3581758

LR7OSBB1  ;;9756662

LR7OSBR   ;;4158288

LR7OSBR1  ;;22820420

LR7OSMZ0  ;;1947401

LR7OSMZ1  ;;7684760

LR7OSMZ2  ;;18248789

LR7OSMZ3  ;;12541559

LR7OSMZ4  ;;13148416

LR7OSMZ5  ;;11532218

LR7OSMZU  ;;5537758

LR7OSOS   ;;10911853

LR7OSOS1  ;;13834731

LR7OSUM   ;;6338564

LR7OSUM1  ;;12946820

LR7OSUM3  ;;7359592

LR7OSUM4  ;;12311986

LR7OSUM5  ;;12119515

LR7OSUM6  ;;7974714

LR7OU0    ;;5520184

LR7OU01   ;;3532548

LR7OU1    ;;4781614

LR7OU3    ;;4518182

LR7OU4    ;;12076260

LR7OU5    ;;13245597

LR7OU64   ;;10067025

LR7OU641  ;;12231214

LR7OV0    ;;6174446

LR7OV1    ;;2971951

LR7OV2    ;;5339118

LR7OV3    ;;4271780

LR7OV4    ;;5923833

LR90P     ;;184128

LRABG     ;;2097610

LRABG1    ;;6312662

LRAC      ;;6282381

LRAC1     ;;11378284

LRAC14    ;;3263466

LRAC2     ;;11688997

LRAC2A    ;;5913888

LRAC3     ;;9768115

LRAC4     ;;11801879

LRAC5     ;;7593685

LRAC6     ;;9662829

LRAC7     ;;3019634

LRAC8     ;;926291

LRAC9     ;;9083351

LRACC     ;;4276870

LRACDIAG  ;;16363570

LRACF     ;;11069631

LRACFILE  ;;1035504

LRACFIX   ;;1903126

LRACFR    ;;10016171

LRACK     ;;3138214

LRACKL    ;;14234954

LRACKL1   ;;3855576

LRACM     ;;12466980

LRACM1    ;;12213942

LRACM2    ;;10300781

LRACM2F   ;;6580410

LRACM3    ;;7505472

LRACM4    ;;8388888

LRACP     ;;2996466

LRACPG    ;;877355

LRACS     ;;11119271

LRACS1    ;;10615840

LRACS2    ;;6025860

LRACS3    ;;8511235

LRACSUM   ;;10529235

LRACSUM1  ;;10146288

LRACSUM3  ;;7134607

LRACSUM4  ;;10364070

LRACSUM5  ;;13563729

LRACSUM6  ;;8391403

LRAD2ORD  ;;9210544

LRAFUNC   ;;5234913

LRAFUNC1  ;;8936636

LRAFUNC5  ;;4267741

LRAFUNC6  ;;4271748

LRAFUNC7  ;;7355536

LRAIPRIV  ;;149480

LRAIRNUM  ;;886394

LRAP      ;;6227615

LRAPA     ;;5022677

LRAPAP    ;;1280654

LRAPAUA   ;;5449184

LRAPAUL   ;;12805659

LRAPAULC  ;;5822397

LRAPAUPT  ;;296301

LRAPAUSR  ;;7980343

LRAPBK    ;;13894568

LRAPBK1   ;;12546563

LRAPBR    ;;2195032

LRAPBR1   ;;8346961

LRAPBR2   ;;4890391

LRAPBR3   ;;4110669

LRAPBR4   ;;5636439

LRAPBR5   ;;8235355

LRAPBRPW  ;;3700173

LRAPBS    ;;7174560

LRAPBS1   ;;8101674

LRAPBS2   ;;2426283

LRAPC     ;;4816619

LRAPCUM   ;;11114626

LRAPCUM1  ;;6339682

LRAPCWK   ;;9728094

LRAPD     ;;885252

LRAPD1    ;;5673315

LRAPDA    ;;11913004

LRAPDAC   ;;3238902

LRAPDEL   ;;6419798

LRAPDPT   ;;7135311

LRAPDS    ;;977811

LRAPDSR   ;;4774961

LRAPED    ;;5328577