LRNTEG05.m

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

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

LRAPEDC ;;2394106

LRAPESON ;;1184905

LRAPF ;;1392406

LRAPFICH ;;3533087

LRAPFIX ;;5597268

LRAPFTS ;;55553

LRAPH ;;4220313

LRAPHDR ;;1729351

LRAPJNC ;;7189898

LRAPL ;;5276373

LRAPLG ;;6197229

LRAPLG1 ;;5472982

LRAPLG2 ;;6388318

LRAPM ;;10745104

LRAPMOD ;;4068289

LRAPMRL ;;8250683

LRAPMRL1 ;;4140484

LRAPMV ;;9315413

LRAPOLD ;;10817511

LRAPONC ;;4582070

LRAPP ;;1900466

LRAPPA ;;4686508

LRAPPF ;;4048890

LRAPPF1 ;;5288921

LRAPPF2 ;;1983272

LRAPPOW ;;3013758

LRAPPRE ;;785452

LRAPQ ;;6036802

LRAPQAC ;;8458692

LRAPQACD ;;2041798

LRAPQACN ;;7407408

LRAPQAFS ;;6474807

LRAPQAM ;;1547830

LRAPQAMR ;;9606018

LRAPQAR ;;12981193

LRAPQAT ;;13384736

LRAPQAT1 ;;3777038

LRAPQOR ;;6093671

LRAPQOR1 ;;10779907

LRAPQOR2 ;;5153016

LRAPQOR3 ;;3833155

LRAPR ;;12791716

LRAPREF ;;414463

LRAPRES ;;10786227

LRAPRES1 ;;7668063

LRAPS ;;2159867

LRAPS1 ;;8842505

LRAPS2 ;;11874856

LRAPS3 ;;2247733

LRAPSA ;;8831783

LRAPSE ;;1258926

LRAPSEM ;;15099161

LRAPSEM1 ;;10522699

LRAPSEM2 ;;12128842

LRAPSL ;;10982718

LRAPSL1 ;;11350715

LRAPSM ;;9076405

LRAPSM1 ;;11767620

LRAPSNMD ;;4831999

LRAPST ;;9030671

LRAPST1 ;;2795806

LRAPSWK ;;13712489

LRAPT ;;4005558

LRAPT1 ;;1044267

LRAPT2 ;;5927379

LRAPT3 ;;1408941

LRAPTIUP ;;5043565

LRAPTT ;;12770635

LRAPTT1 ;;5483441

LRAPU ;;1649679

LRAPUTL ;;9752029

LRAPV ;;3996189

LRAPWA ;;2353722

LRAPWE ;;11053843

LRAPWE1 ;;5499756

LRAPWEA ;;10068039

LRAPWKA ;;11026277

LRAPWKA1 ;;2887458

LRAPWR ;;13930875

LRAPWR1 ;;10883354

LRAPWSPG ;;6773548

LRAPWU ;;8128978

LRAPX ;;2175656

LRAR01 ;;2559719

LRAR02 ;;1838026

LRAR03 ;;2408403

LRAR04 ;;4640743

LRAR05 ;;2798124

LRAR06 ;;6462327

LRARC1 ;;8112305

LRARC1A ;;7606420

LRARCAM4 ;;4937342

LRARCAM5 ;;8136077

LRARCAM6 ;;7664290

LRARCAM7 ;;6666805

LRARCAM8 ;;3522344

LRARCAM9 ;;2681842

LRARCHD ;;9248467

LRARCHE ;;5455816

LRARCHIV ;;5712621

LRARCHK ;;2519390

LRARCMA ;;1327734

LRARCMA1 ;;6035814

LRARCMA2 ;;5587154

LRARCMA3 ;;1564190

LRARCML ;;1451348

LRARCML1 ;;8285096

LRARCML2 ;;7092874

LRARCML3 ;;1783064

LRARCMR ;;2755081

LRARCMR1 ;;4393159

LRARCMR2 ;;3327531

LRARCPTS ;;9300586

LRARCR1 ;;8197163

LRARCR1A ;;7607026

LRARCR2 ;;8508950

LRARCR3 ;;5184463

LRARCR3A ;;4527585

LRARCR3B ;;4785687

LRARCR4 ;;6937565

LRARCTS1 ;;4535126

LRARCU ;;8000971

LRARIPOS ;;5412398

LRARIPRE ;;1442929

LRARLMW ;;5720060

LRARLMW1 ;;5392446

LRARNPX ;;3193804

LRARNPX0 ;;2142590

LRARNPX1 ;;8075291

LRARNTEG ;;3286807

LRARPLM ;;5240790

LRARPW ;;5050778

LRARREP ;;5687385

LRARU ;;15043803

LRARU1 ;;5339900

LRARVER ;;5760512

LRARWKD ;;5050609

LRARWKD1 ;;5174666

LRAUAW ;;4798811

LRAUDA ;;1249636

LRAUFIX ;;348505

LRAUL ;;11298309

LRAUMLK ;;5516086

LRAURPT ;;9163229

LRAURV ;;8410111

LRAUS ;;2644111

LRAUSICD ;;3335980

LRAUSM ;;11892514

LRAUSTA ;;6468170

LRBARA ;;3709747

LRBARAWE ;;5647251

LRBARB ;;10237788

LRBARBT ;;6884883

LRBARC ;;4506131

LRBARCF ;;3690809

LRBARCFA ;;7161568

LRBLA ;;11404605

LRBLA1 ;;10149745

LRBLA2 ;;7358913

LRBLAA ;;15123711

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

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

LRAPEDC   ;;2394106

LRAPESON  ;;1184905

LRAPF     ;;1392406

LRAPFICH  ;;3533087

LRAPFIX   ;;5597268

LRAPFTS   ;;55553

LRAPH     ;;4220313

LRAPHDR   ;;1729351

LRAPJNC   ;;7189898

LRAPL     ;;5276373

LRAPLG    ;;6197229

LRAPLG1   ;;5472982

LRAPLG2   ;;6388318

LRAPM     ;;10745104

LRAPMOD   ;;4068289

LRAPMRL   ;;8250683

LRAPMRL1  ;;4140484

LRAPMV    ;;9315413

LRAPOLD   ;;10817511

LRAPONC   ;;4582070

LRAPP     ;;1900466

LRAPPA    ;;4686508

LRAPPF    ;;4048890

LRAPPF1   ;;5288921

LRAPPF2   ;;1983272

LRAPPOW   ;;3013758

LRAPPRE   ;;785452

LRAPQ     ;;6036802

LRAPQAC   ;;8458692

LRAPQACD  ;;2041798

LRAPQACN  ;;7407408

LRAPQAFS  ;;6474807

LRAPQAM   ;;1547830

LRAPQAMR  ;;9606018

LRAPQAR   ;;12981193

LRAPQAT   ;;13384736

LRAPQAT1  ;;3777038

LRAPQOR   ;;6093671

LRAPQOR1  ;;10779907

LRAPQOR2  ;;5153016

LRAPQOR3  ;;3833155

LRAPR     ;;12791716

LRAPREF   ;;414463

LRAPRES   ;;10786227

LRAPRES1  ;;7668063

LRAPS     ;;2159867

LRAPS1    ;;8842505

LRAPS2    ;;11874856

LRAPS3    ;;2247733

LRAPSA    ;;8831783

LRAPSE    ;;1258926

LRAPSEM   ;;15099161

LRAPSEM1  ;;10522699

LRAPSEM2  ;;12128842

LRAPSL    ;;10982718

LRAPSL1   ;;11350715

LRAPSM    ;;9076405

LRAPSM1   ;;11767620

LRAPSNMD  ;;4831999

LRAPST    ;;9030671

LRAPST1   ;;2795806

LRAPSWK   ;;13712489

LRAPT     ;;4005558

LRAPT1    ;;1044267

LRAPT2    ;;5927379

LRAPT3    ;;1408941

LRAPTIUP  ;;5043565

LRAPTT    ;;12770635

LRAPTT1   ;;5483441

LRAPU     ;;1649679

LRAPUTL   ;;9752029

LRAPV     ;;3996189

LRAPWA    ;;2353722

LRAPWE    ;;11053843

LRAPWE1   ;;5499756

LRAPWEA   ;;10068039

LRAPWKA   ;;11026277

LRAPWKA1  ;;2887458

LRAPWR    ;;13930875

LRAPWR1   ;;10883354

LRAPWSPG  ;;6773548

LRAPWU    ;;8128978

LRAPX     ;;2175656

LRAR01    ;;2559719

LRAR02    ;;1838026

LRAR03    ;;2408403

LRAR04    ;;4640743

LRAR05    ;;2798124

LRAR06    ;;6462327

LRARC1    ;;8112305

LRARC1A   ;;7606420

LRARCAM4  ;;4937342

LRARCAM5  ;;8136077

LRARCAM6  ;;7664290

LRARCAM7  ;;6666805

LRARCAM8  ;;3522344

LRARCAM9  ;;2681842

LRARCHD   ;;9248467

LRARCHE   ;;5455816

LRARCHIV  ;;5712621

LRARCHK   ;;2519390

LRARCMA   ;;1327734

LRARCMA1  ;;6035814

LRARCMA2  ;;5587154

LRARCMA3  ;;1564190

LRARCML   ;;1451348

LRARCML1  ;;8285096

LRARCML2  ;;7092874

LRARCML3  ;;1783064

LRARCMR   ;;2755081

LRARCMR1  ;;4393159

LRARCMR2  ;;3327531

LRARCPTS  ;;9300586

LRARCR1   ;;8197163

LRARCR1A  ;;7607026

LRARCR2   ;;8508950

LRARCR3   ;;5184463

LRARCR3A  ;;4527585

LRARCR3B  ;;4785687

LRARCR4   ;;6937565

LRARCTS1  ;;4535126

LRARCU    ;;8000971

LRARIPOS  ;;5412398

LRARIPRE  ;;1442929

LRARLMW   ;;5720060

LRARLMW1  ;;5392446

LRARNPX   ;;3193804

LRARNPX0  ;;2142590

LRARNPX1  ;;8075291

LRARNTEG  ;;3286807

LRARPLM   ;;5240790

LRARPW    ;;5050778

LRARREP   ;;5687385

LRARU     ;;15043803

LRARU1    ;;5339900

LRARVER   ;;5760512

LRARWKD   ;;5050609

LRARWKD1  ;;5174666

LRAUAW    ;;4798811

LRAUDA    ;;1249636

LRAUFIX   ;;348505

LRAUL     ;;11298309

LRAUMLK   ;;5516086

LRAURPT   ;;9163229

LRAURV    ;;8410111

LRAUS     ;;2644111

LRAUSICD  ;;3335980

LRAUSM    ;;11892514

LRAUSTA   ;;6468170

LRBARA    ;;3709747

LRBARAWE  ;;5647251

LRBARB    ;;10237788

LRBARBT   ;;6884883

LRBARC    ;;4506131

LRBARCF   ;;3690809

LRBARCFA  ;;7161568

LRBLA     ;;11404605

LRBLA1    ;;10149745

LRBLA2    ;;7358913

LRBLAA    ;;15123711