LR6NTEG3.m

LR6NTEG3 ; IHS/DIR/FJE - KERNEL - Package checksum checker APR 24, 1996@10:36:08 ;

 ;;5.2;LR;;NOV 01, 1997

 ;

 ;;0.0;

 ;;1.0;APR 24, 1996@10:36:08

 S Z=^%ZOSF("RSUM"),SGT=0

 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 Z W ?10,$S('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_Y_", off by "_(Y-XT3),1:"ok")

 G CONT^LR6NTEG4

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

LRSOR1 ;;1558609

LRSORA ;;7657175

LRSORA0 ;;2281955

LRSORA1 ;;6300770

LRSORA2 ;;3590024

LRSORA3 ;;6484578

LRSORB ;;5246084

LRSORC ;;3256753

LRSORC1 ;;2650199

LRSORC1A ;;5784485

LRSORD ;;3222036

LRSORD1 ;;2634130

LRSORD1A ;;5873206

LRSPDA ;;1708053

LRSPGD ;;1899546

LRSPRPT ;;14718034

LRSPRPT1 ;;9140587

LRSPRPT2 ;;11806540

LRSPRPTM ;;3560888

LRSPS ;;1349074

LRSPSICD ;;3733172

LRSPSICP ;;4548274

LRSPT ;;5815819

LRSTATUS ;;5864956

LRSTOPC ;;8276222

LRSTUF ;;3165927

LRSTUF1 ;;13017004

LRSTUF2 ;;7213582

LRTOT ;;5514392

LRTP ;;1719568

LRTSTJAM ;;11402229

LRTSTJAN ;;14789683

LRTSTJM1 ;;3677989

LRTSTOUT ;;14679176

LRTSTSET ;;11884960

LRU ;;17261555

LRUA ;;9428099

LRUB ;;2794163

LRUBL ;;2301075

LRUC ;;3314953

LRUCE ;;3615614

LRUCLR ;;1483623

LRUCN ;;6285550

LRUCNBB ;;6439802

LRUD ;;8613944

LRUD1 ;;1288507

LRUDEL ;;8087301

LRUDIT ;;1873186

LRUDPT ;;3892466

LRUE ;;8625936

LRUER ;;12482221

LRUET ;;9746002

LRUFILE ;;3793703

LRUG ;;2440226

LRUL ;;6494173

LRULA ;;2814252

LRULB ;;3214861

LRULB1 ;;5054925

LRULEN ;;4920379

LRUMD ;;13730332

LRUMD1 ;;15963110

LRUMD2 ;;9441970

LRUMDF ;;12190617

LRUMDM ;;12811700

LRUMDP ;;9682205

LRUMDS ;;6757098

LRUMDU ;;12785217

LRUMDU1 ;;2924915

LRUMI ;;8672238

LRUMSG ;;549954

LRUP ;;243587

LRUPA ;;8985351

LRUPA1 ;;8601230

LRUPA2 ;;10860453

LRUPAC ;;5317474

LRUPACA ;;10645043

LRUPACS ;;9002791

LRUPACT ;;12662142

LRUPAD ;;8440128

LRUPAD1 ;;7381083

LRUPAD2 ;;9070446

LRUPQ ;;5009717

LRUPQ1 ;;5480421

LRUPS ;;5213446

LRUPT ;;9651435

LRUPUM ;;4413283

LRUQ ;;2165509

LRUR ;;5269766

LRURG ;;563985

LRUSE ;;1274883

LRUSET ;;1000756

LRUSNOM ;;1630210

LRUSP ;;3735979

LRUT ;;1482424

LRUTA ;;5134496

LRUTAD ;;10053839

LRUTELL ;;1609316

LRUTL ;;10259125

LRUTRAN ;;3731182

LRUTT ;;11013569

LRUTW ;;7949670

LRUU ;;1156447

LRUV ;;399332

LRUW ;;10155671

LRUWG ;;10453371

LRUWK ;;1415257

LRUWL ;;3121574

LRUWLF ;;5417790

LRVER ;;16483418

LRVER1 ;;5964076

LRVER2 ;;6818151

LRVER3 ;;8697910

LRVER3A ;;10623749

LRVER4 ;;15682661

LRVER5 ;;12207417

LRVR ;;13379380

LRVR1 ;;9899693

LRVR2 ;;6604344

LRVR3 ;;10182508

LRVR4 ;;11505839

LRVR5 ;;10024480

LRVRKIL ;;4419206

LRVRW ;;9610673

LRWD ;;1562529

LRWLHEAD ;;689266

LRWLST ;;15712885

LRWLST1 ;;13637106

LRWLST11 ;;15804232

LRWLST12 ;;4658067

LRWLST13 ;;7041750

LRWLST2 ;;4332114

LRWRKIN1 ;;4265901

LRWRKINC ;;12503776

LRWRKLS1 ;;1982294

LRWRKLST ;;8388830

LRWRKS ;;7701958

LRWRKS2 ;;5580037

LRWU ;;11418768

LRWU1 ;;3812098

LRWU2 ;;1596365

LRWU3 ;;8913298

LRWU4 ;;6571565

LRWU5 ;;12308481

LRWU6 ;;7589287

LRWU7 ;;8189681

LRX ;;11576981

LRX6 ;;16621271

LRX60 ;;9025787

LRX62P6 ;;8926756

LRX62P61 ;;20085978

LRX6PRO ;;3892082

LRXO0 ;;2244780

LRXO00 ;;10390859

LRXO1 ;;10861942

LRXO10 ;;4249047

LRXO11 ;;10002200

LRXO1A ;;10421325

LRXO2 ;;10420978

LRXO3 ;;6346859

LRXO4 ;;15854526

LRXO4A ;;6709643

LRXO4A00 ;;5081584

LRXO5 ;;18728304

LRXO6 ;;6504620

LRXO7 ;;3540847

LRXO8 ;;3966298

LRXO9 ;;8693186

LRXOS0 ;;2439944

LR6NTEG3  ; IHS/DIR/FJE - KERNEL - Package checksum checker APR 24, 1996@10:36:08 ;

 +1       ;;5.2;LR;;NOV 01, 1997

 +2       ;

 +3       ;;0.0;

 +4       ;;1.0;APR 24, 1996@10:36:08

 +5        SET Z=^%ZOSF("RSUM")

           SET SGT=0

 +6        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 Z

                   WRITE ?10,$SELECT('XT3:"Routine not in UCI",XT3'=Y:"Calculated "_Y_", off by "_(Y-XT3),1:"ok")

 +1        GOTO CONT^LR6NTEG4

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

LRSOR1    ;;1558609

LRSORA    ;;7657175

LRSORA0   ;;2281955

LRSORA1   ;;6300770

LRSORA2   ;;3590024

LRSORA3   ;;6484578

LRSORB    ;;5246084

LRSORC    ;;3256753

LRSORC1   ;;2650199

LRSORC1A  ;;5784485

LRSORD    ;;3222036

LRSORD1   ;;2634130

LRSORD1A  ;;5873206

LRSPDA    ;;1708053

LRSPGD    ;;1899546

LRSPRPT   ;;14718034

LRSPRPT1  ;;9140587

LRSPRPT2  ;;11806540

LRSPRPTM  ;;3560888

LRSPS     ;;1349074

LRSPSICD  ;;3733172

LRSPSICP  ;;4548274

LRSPT     ;;5815819

LRSTATUS  ;;5864956

LRSTOPC   ;;8276222

LRSTUF    ;;3165927

LRSTUF1   ;;13017004

LRSTUF2   ;;7213582

LRTOT     ;;5514392

LRTP      ;;1719568

LRTSTJAM  ;;11402229

LRTSTJAN  ;;14789683

LRTSTJM1  ;;3677989

LRTSTOUT  ;;14679176

LRTSTSET  ;;11884960

LRU       ;;17261555

LRUA      ;;9428099

LRUB      ;;2794163

LRUBL     ;;2301075

LRUC      ;;3314953

LRUCE     ;;3615614

LRUCLR    ;;1483623

LRUCN     ;;6285550

LRUCNBB   ;;6439802

LRUD      ;;8613944

LRUD1     ;;1288507

LRUDEL    ;;8087301

LRUDIT    ;;1873186

LRUDPT    ;;3892466

LRUE      ;;8625936

LRUER     ;;12482221

LRUET     ;;9746002

LRUFILE   ;;3793703

LRUG      ;;2440226

LRUL      ;;6494173

LRULA     ;;2814252

LRULB     ;;3214861

LRULB1    ;;5054925

LRULEN    ;;4920379

LRUMD     ;;13730332

LRUMD1    ;;15963110

LRUMD2    ;;9441970

LRUMDF    ;;12190617

LRUMDM    ;;12811700

LRUMDP    ;;9682205

LRUMDS    ;;6757098

LRUMDU    ;;12785217

LRUMDU1   ;;2924915

LRUMI     ;;8672238

LRUMSG    ;;549954

LRUP      ;;243587

LRUPA     ;;8985351

LRUPA1    ;;8601230

LRUPA2    ;;10860453

LRUPAC    ;;5317474

LRUPACA   ;;10645043

LRUPACS   ;;9002791

LRUPACT   ;;12662142

LRUPAD    ;;8440128

LRUPAD1   ;;7381083

LRUPAD2   ;;9070446

LRUPQ     ;;5009717

LRUPQ1    ;;5480421

LRUPS     ;;5213446

LRUPT     ;;9651435

LRUPUM    ;;4413283

LRUQ      ;;2165509

LRUR      ;;5269766

LRURG     ;;563985

LRUSE     ;;1274883

LRUSET    ;;1000756

LRUSNOM   ;;1630210

LRUSP     ;;3735979

LRUT      ;;1482424

LRUTA     ;;5134496

LRUTAD    ;;10053839

LRUTELL   ;;1609316

LRUTL     ;;10259125

LRUTRAN   ;;3731182

LRUTT     ;;11013569

LRUTW     ;;7949670

LRUU      ;;1156447

LRUV      ;;399332

LRUW      ;;10155671

LRUWG     ;;10453371

LRUWK     ;;1415257

LRUWL     ;;3121574

LRUWLF    ;;5417790

LRVER     ;;16483418

LRVER1    ;;5964076

LRVER2    ;;6818151

LRVER3    ;;8697910

LRVER3A   ;;10623749

LRVER4    ;;15682661

LRVER5    ;;12207417

LRVR      ;;13379380

LRVR1     ;;9899693

LRVR2     ;;6604344

LRVR3     ;;10182508

LRVR4     ;;11505839

LRVR5     ;;10024480

LRVRKIL   ;;4419206

LRVRW     ;;9610673

LRWD      ;;1562529

LRWLHEAD  ;;689266

LRWLST    ;;15712885

LRWLST1   ;;13637106

LRWLST11  ;;15804232

LRWLST12  ;;4658067

LRWLST13  ;;7041750

LRWLST2   ;;4332114

LRWRKIN1  ;;4265901

LRWRKINC  ;;12503776

LRWRKLS1  ;;1982294

LRWRKLST  ;;8388830

LRWRKS    ;;7701958

LRWRKS2   ;;5580037

LRWU      ;;11418768

LRWU1     ;;3812098

LRWU2     ;;1596365

LRWU3     ;;8913298

LRWU4     ;;6571565

LRWU5     ;;12308481

LRWU6     ;;7589287

LRWU7     ;;8189681

LRX       ;;11576981

LRX6      ;;16621271

LRX60     ;;9025787

LRX62P6   ;;8926756

LRX62P61  ;;20085978

LRX6PRO   ;;3892082

LRXO0     ;;2244780

LRXO00    ;;10390859

LRXO1     ;;10861942

LRXO10    ;;4249047

LRXO11    ;;10002200

LRXO1A    ;;10421325

LRXO2     ;;10420978

LRXO3     ;;6346859

LRXO4     ;;15854526

LRXO4A    ;;6709643

LRXO4A00  ;;5081584

LRXO5     ;;18728304

LRXO6     ;;6504620

LRXO7     ;;3540847

LRXO8     ;;3966298

LRXO9     ;;8693186

LRXOS0    ;;2439944