LR6NTEG1.m

LR6NTEG1 ; 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^LR6NTEG2

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

LRCAPA12 ;;5215207

LRCAPACC ;;8758484

LRCAPAM0 ;;3469930

LRCAPAM1 ;;14052207

LRCAPAM2 ;;10020435

LRCAPAM3 ;;12790683

LRCAPAM4 ;;12581527

LRCAPAM5 ;;12089115

LRCAPAM6 ;;7568179

LRCAPAM7 ;;6625076

LRCAPAM8 ;;3444738

LRCAPAM9 ;;2604241

LRCAPAMP ;;5110167

LRCAPAUD ;;9790672

LRCAPBB ;;11696536

LRCAPD ;;7250486

LRCAPDL ;;2590990

LRCAPF ;;7808609

LRCAPFDS ;;6562403

LRCAPMA ;;1764037

LRCAPMA1 ;;5952535

LRCAPMA2 ;;8858440

LRCAPMA3 ;;2613785

LRCAPML ;;1745351

LRCAPML1 ;;6201605

LRCAPML2 ;;6892903

LRCAPML3 ;;1713965

LRCAPMR ;;2563810

LRCAPMR1 ;;4005131

LRCAPMR2 ;;3044606

LRCAPPH ;;9417286

LRCAPR1 ;;8086519

LRCAPR1A ;;7551934

LRCAPR2 ;;8195892

LRCAPR3 ;;5007753

LRCAPR3A ;;9011886

LRCAPR4 ;;6795674

LRCAPS ;;6604

LRCAPTS ;;9145480

LRCAPTS1 ;;4405424

LRCAPU ;;2388406

LRCAPV ;;12433578

LRCAPV1 ;;11478025

LRCAPV11 ;;2900081

LRCAPV1A ;;2080378

LRCAPV1S ;;4179499

LRCAPV2 ;;8714919

LRCAPV3 ;;8123485

LRCAPVM ;;4956728

LRCE ;;7099920

LRCENDE1 ;;9794076

LRCENDEL ;;14463540

LRCHIV ;;13821769

LRCHIVD ;;8818647

LRCHIVE ;;5413190

LRCHIVK ;;2476012

LRCKF ;;4058690

LRCKF60 ;;11681052

LRCKF62 ;;1728069

LRCKF68 ;;14560856

LRCKF69 ;;4913799

LRCKFLA ;;9589815

LRCKPTR ;;10069312

LRCONJAM ;;17414372

LRCYPCT ;;16094448

LRDATEDH ;;1541382

LRDCOM ;;9815987

LRDIED ;;1167039

LRDIQ ;;8603716

LRDIST ;;15141201

LRDIST1 ;;14493201

LRDIST2 ;;5886699

LRDIST3 ;;3019800

LRDIST4 ;;10487690

LRDPA ;;8757515

LRDPA1 ;;6554998

LRDPA2 ;;5207196

LRDRAW ;;8114267

LREV ;;868566

LREXEC ;;1599274

LREXECU ;;2774533

LREXPD ;;1257429

LRFAC ;;10529590

LRFAST ;;19335504

LRFASTS ;;8309137

LRFLAG ;;7458903

LRFNDLOC ;;2874336

LRGEN ;;4652673

LRGEN1 ;;9760488

LRGEN2 ;;14785100

LRGP ;;6903164

LRGP1 ;;8924262

LRGP2 ;;9602722

LRGV ;;13358239

LRGV1 ;;5694972

LRGV2 ;;11417179

LRGVG2 ;;4415993

LRGVGK ;;5559619

LRGVK ;;7468917

LRGVK1 ;;1974283

LRGVP ;;4330305

LRHDR ;;2828970

LRKILL ;;428766

LRLABAR ;;7451974

LRLABEL ;;1668195

LRLABEL1 ;;2827443

LRLABEL2 ;;1294781

LRLABEL3 ;;1905479

LRLABEL5 ;;2457165

LRLABEL6 ;;3490879

LRLABELA ;;1935828

LRLABELB ;;4990488

LRLABELF ;;6978943

LRLABLD ;;10046912

LRLABLD0 ;;9130225

LRLABLDS ;;5030406

LRLABLIO ;;6576380

LRLABXOL ;;5051641

LRLABXT ;;5435171

LRLAM ;;3535487

LRLIST ;;12953342

LRLISTE ;;16074875

LRLL ;;16060399

LRLL1 ;;13174195

LRLL1A ;;13251964

LRLL2 ;;9544257

LRLL3 ;;4969650

LRLL4 ;;3514697

LRLLP ;;7554848

LRLLP2 ;;10666169

LRLLP3 ;;2502591

LRLLP4 ;;1896641

LRLLP5 ;;11375580

LRLLS ;;8482744

LRLLS2 ;;9928490

LRLLS3 ;;2912229

LRLLU ;;1165455

LRLS ;;3795168

LRLSR ;;1311822

LRLSTWRK ;;11148688

LRLSTWRL ;;11867436

LRLTR ;;1202140

LRLTR2 ;;3078975

LRMIBL ;;13365560

LRMIBUG ;;5237700

LRMIEDZ ;;5380499

LRMIEDZ2 ;;12539193

LRMIEDZ3 ;;6656074

LRMIEDZ4 ;;4114068

LRMIHDR ;;7371024

LRMILL ;;8949255

LRMINEW ;;12069238

LRMINEW1 ;;5165056

LRMINEW2 ;;4494122

LRMIPC ;;4207699

LRMIPLOG ;;2830939

LRMIPSU ;;4746260

LRMIPSZ ;;8712841

LRMIPSZ1 ;;12406819

LRMIPSZ2 ;;11226062

LR6NTEG1  ; 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^LR6NTEG2

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

LRCAPA12  ;;5215207

LRCAPACC  ;;8758484

LRCAPAM0  ;;3469930

LRCAPAM1  ;;14052207

LRCAPAM2  ;;10020435

LRCAPAM3  ;;12790683

LRCAPAM4  ;;12581527

LRCAPAM5  ;;12089115

LRCAPAM6  ;;7568179

LRCAPAM7  ;;6625076

LRCAPAM8  ;;3444738

LRCAPAM9  ;;2604241

LRCAPAMP  ;;5110167

LRCAPAUD  ;;9790672

LRCAPBB   ;;11696536

LRCAPD    ;;7250486

LRCAPDL   ;;2590990

LRCAPF    ;;7808609

LRCAPFDS  ;;6562403

LRCAPMA   ;;1764037

LRCAPMA1  ;;5952535

LRCAPMA2  ;;8858440

LRCAPMA3  ;;2613785

LRCAPML   ;;1745351

LRCAPML1  ;;6201605

LRCAPML2  ;;6892903

LRCAPML3  ;;1713965

LRCAPMR   ;;2563810

LRCAPMR1  ;;4005131

LRCAPMR2  ;;3044606

LRCAPPH   ;;9417286

LRCAPR1   ;;8086519

LRCAPR1A  ;;7551934

LRCAPR2   ;;8195892

LRCAPR3   ;;5007753

LRCAPR3A  ;;9011886

LRCAPR4   ;;6795674

LRCAPS    ;;6604

LRCAPTS   ;;9145480

LRCAPTS1  ;;4405424

LRCAPU    ;;2388406

LRCAPV    ;;12433578

LRCAPV1   ;;11478025

LRCAPV11  ;;2900081

LRCAPV1A  ;;2080378

LRCAPV1S  ;;4179499

LRCAPV2   ;;8714919

LRCAPV3   ;;8123485

LRCAPVM   ;;4956728

LRCE      ;;7099920

LRCENDE1  ;;9794076

LRCENDEL  ;;14463540

LRCHIV    ;;13821769

LRCHIVD   ;;8818647

LRCHIVE   ;;5413190

LRCHIVK   ;;2476012

LRCKF     ;;4058690

LRCKF60   ;;11681052

LRCKF62   ;;1728069

LRCKF68   ;;14560856

LRCKF69   ;;4913799

LRCKFLA   ;;9589815

LRCKPTR   ;;10069312

LRCONJAM  ;;17414372

LRCYPCT   ;;16094448

LRDATEDH  ;;1541382

LRDCOM    ;;9815987

LRDIED    ;;1167039

LRDIQ     ;;8603716

LRDIST    ;;15141201

LRDIST1   ;;14493201

LRDIST2   ;;5886699

LRDIST3   ;;3019800

LRDIST4   ;;10487690

LRDPA     ;;8757515

LRDPA1    ;;6554998

LRDPA2    ;;5207196

LRDRAW    ;;8114267

LREV      ;;868566

LREXEC    ;;1599274

LREXECU   ;;2774533

LREXPD    ;;1257429

LRFAC     ;;10529590

LRFAST    ;;19335504

LRFASTS   ;;8309137

LRFLAG    ;;7458903

LRFNDLOC  ;;2874336

LRGEN     ;;4652673

LRGEN1    ;;9760488

LRGEN2    ;;14785100

LRGP      ;;6903164

LRGP1     ;;8924262

LRGP2     ;;9602722

LRGV      ;;13358239

LRGV1     ;;5694972

LRGV2     ;;11417179

LRGVG2    ;;4415993

LRGVGK    ;;5559619

LRGVK     ;;7468917

LRGVK1    ;;1974283

LRGVP     ;;4330305

LRHDR     ;;2828970

LRKILL    ;;428766

LRLABAR   ;;7451974

LRLABEL   ;;1668195

LRLABEL1  ;;2827443

LRLABEL2  ;;1294781

LRLABEL3  ;;1905479

LRLABEL5  ;;2457165

LRLABEL6  ;;3490879

LRLABELA  ;;1935828

LRLABELB  ;;4990488

LRLABELF  ;;6978943

LRLABLD   ;;10046912

LRLABLD0  ;;9130225

LRLABLDS  ;;5030406

LRLABLIO  ;;6576380

LRLABXOL  ;;5051641

LRLABXT   ;;5435171

LRLAM     ;;3535487

LRLIST    ;;12953342

LRLISTE   ;;16074875

LRLL      ;;16060399

LRLL1     ;;13174195

LRLL1A    ;;13251964

LRLL2     ;;9544257

LRLL3     ;;4969650

LRLL4     ;;3514697

LRLLP     ;;7554848

LRLLP2    ;;10666169

LRLLP3    ;;2502591

LRLLP4    ;;1896641

LRLLP5    ;;11375580

LRLLS     ;;8482744

LRLLS2    ;;9928490

LRLLS3    ;;2912229

LRLLU     ;;1165455

LRLS      ;;3795168

LRLSR     ;;1311822

LRLSTWRK  ;;11148688

LRLSTWRL  ;;11867436

LRLTR     ;;1202140

LRLTR2    ;;3078975

LRMIBL    ;;13365560

LRMIBUG   ;;5237700

LRMIEDZ   ;;5380499

LRMIEDZ2  ;;12539193

LRMIEDZ3  ;;6656074

LRMIEDZ4  ;;4114068

LRMIHDR   ;;7371024

LRMILL    ;;8949255

LRMINEW   ;;12069238

LRMINEW1  ;;5165056

LRMINEW2  ;;4494122

LRMIPC    ;;4207699

LRMIPLOG  ;;2830939

LRMIPSU   ;;4746260

LRMIPSZ   ;;8712841

LRMIPSZ1  ;;12406819

LRMIPSZ2  ;;11226062