LRNTEG01.m

LRNTEG01 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26

 ;;5.2;LAB SERVICE;;Sep 27, 1994

 ;;7.2;OCT 25, 1994@16:14:26

 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^LRNTEG02

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

LRBLWDS ;;8168141

LRBLXREF ;;269112

LRBLY ;;3089131

LRCAP64 ;;9254789

LRCAP67 ;;7903112

LRCAPA12 ;;5215207

LRCAPACC ;;8758484

LRCAPAM0 ;;3469869

LRCAPAM1 ;;13957957

LRCAPAM2 ;;9299732

LRCAPAM3 ;;11459780

LRCAPAM4 ;;5274979

LRCAPAM5 ;;12089115

LRCAPAM6 ;;7568179

LRCAPAM7 ;;6625076

LRCAPAM8 ;;3444738

LRCAPAM9 ;;2604241

LRCAPAMP ;;3338103

LRCAPAUD ;;9790672

LRCAPBB ;;11696536

LRCAPD ;;7107416

LRCAPDL ;;2590990

LRCAPF ;;7808609

LRCAPMA ;;1764037

LRCAPMA1 ;;5949786

LRCAPMA2 ;;8858440

LRCAPMA3 ;;2613785

LRCAPML ;;1745351

LRCAPML1 ;;6201605

LRCAPML2 ;;6892903

LRCAPML3 ;;1713965

LRCAPMR ;;2563810

LRCAPMR1 ;;4005131

LRCAPMR2 ;;3044606

LRCAPPH ;;9389957

LRCAPR1 ;;8086519

LRCAPR1A ;;7551934

LRCAPR2 ;;8255009

LRCAPR3 ;;5007753

LRCAPR3A ;;9011886

LRCAPR4 ;;6795674

LRCAPS ;;6604

LRCAPTS ;;9145480

LRCAPTS1 ;;4405424

LRCAPU ;;2354238

LRCAPV ;;12433578

LRCAPV1 ;;11685464

LRCAPV11 ;;2900081

LRCAPV1A ;;2029073

LRCAPV1S ;;4052637

LRCAPV2 ;;9327099

LRCAPV3 ;;8254914

LRCAPVM ;;5581910

LRCE ;;6279427

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

LRCYPCT ;;16094448

LRDATEDH ;;1541382

LRDCOM ;;9815987

LRDIED ;;1167039

LRDIQ ;;8343122

LRDIST ;;15189103

LRDIST1 ;;14581782

LRDIST2 ;;6147744

LRDIST3 ;;3019800

LRDIST4 ;;10487690

LRDPA ;;8757515

LRDPA1 ;;6296747

LRDPA2 ;;5207196

LRDRAW ;;8114267

LREV ;;868566

LREXEC ;;1599274

LREXECU ;;2774533

LREXPD ;;1257429

LRFAC ;;10529590

LRFAST ;;19335504

LRFASTS ;;8220470

LRFLAG ;;7458903

LRFNDLOC ;;2874336

LRGEN ;;4652673

LRGEN1 ;;9760488

LRGEN2 ;;14785100

LRGP ;;6903164

LRGP1 ;;8945780

LRGP2 ;;9602722

LRGV ;;13358239

LRGV1 ;;5694972

LRGV2 ;;11417179

LRGVG2 ;;4415993

LRGVGK ;;5559619

LRGVK ;;7468917

LRGVK1 ;;1974283

LRGVP ;;3966296

LRHDR ;;2828970

LRKILL ;;267623

LRLABAR ;;7451974

LRLABEL ;;1668195

LRLABEL1 ;;2827443

LRLABEL2 ;;1294781

LRLABEL3 ;;1905479

LRLABEL5 ;;2457165

LRLABEL6 ;;3490879

LRLABELA ;;1935828

LRLABELB ;;4990488

LRLABELF ;;6978943

LRLABLD ;;9866402

LRLABLD0 ;;8974860

LRLABLDS ;;5030406

LRLABLIO ;;6576380

LRLABXOL ;;5047520

LRLABXT ;;5481784

LRLAM ;;3535487

LRLIST ;;14863459

LRLISTE ;;16074875

LRLL ;;16026155

LRLL1 ;;13174195

LRLL1A ;;13251964

LRLL2 ;;9535702

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

LRMIEDZ3 ;;6656074

LRMIEDZ4 ;;4114068

LRMIHDR ;;7521663

LRMILL ;;8949255

LRMINEW ;;12069238

LRMINEW1 ;;5165056

LRMINEW2 ;;4494122

LRMIPC ;;4207699

LRMIPLOG ;;2830939

LRMIPSU ;;4746260

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRNTEG01   3788     printed  Apr 09, 2024@21:07:45                                                                                                                                                                                                    Page 2

LRNTEG01  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 25, 1994@16:14:26

 +1       ;;5.2;LAB SERVICE;;Sep 27, 1994

 +2       ;;7.2;OCT 25, 1994@16:14:26

 +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^LRNTEG02

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

LRBLWDS   ;;8168141

LRBLXREF  ;;269112

LRBLY     ;;3089131

LRCAP64   ;;9254789

LRCAP67   ;;7903112

LRCAPA12  ;;5215207

LRCAPACC  ;;8758484

LRCAPAM0  ;;3469869

LRCAPAM1  ;;13957957

LRCAPAM2  ;;9299732

LRCAPAM3  ;;11459780

LRCAPAM4  ;;5274979

LRCAPAM5  ;;12089115

LRCAPAM6  ;;7568179

LRCAPAM7  ;;6625076

LRCAPAM8  ;;3444738

LRCAPAM9  ;;2604241

LRCAPAMP  ;;3338103

LRCAPAUD  ;;9790672

LRCAPBB   ;;11696536

LRCAPD    ;;7107416

LRCAPDL   ;;2590990

LRCAPF    ;;7808609

LRCAPMA   ;;1764037

LRCAPMA1  ;;5949786

LRCAPMA2  ;;8858440

LRCAPMA3  ;;2613785

LRCAPML   ;;1745351

LRCAPML1  ;;6201605

LRCAPML2  ;;6892903

LRCAPML3  ;;1713965

LRCAPMR   ;;2563810

LRCAPMR1  ;;4005131

LRCAPMR2  ;;3044606

LRCAPPH   ;;9389957

LRCAPR1   ;;8086519

LRCAPR1A  ;;7551934

LRCAPR2   ;;8255009

LRCAPR3   ;;5007753

LRCAPR3A  ;;9011886

LRCAPR4   ;;6795674

LRCAPS    ;;6604

LRCAPTS   ;;9145480

LRCAPTS1  ;;4405424

LRCAPU    ;;2354238

LRCAPV    ;;12433578

LRCAPV1   ;;11685464

LRCAPV11  ;;2900081

LRCAPV1A  ;;2029073

LRCAPV1S  ;;4052637

LRCAPV2   ;;9327099

LRCAPV3   ;;8254914

LRCAPVM   ;;5581910

LRCE      ;;6279427

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

LRCYPCT   ;;16094448

LRDATEDH  ;;1541382

LRDCOM    ;;9815987

LRDIED    ;;1167039

LRDIQ     ;;8343122

LRDIST    ;;15189103

LRDIST1   ;;14581782

LRDIST2   ;;6147744

LRDIST3   ;;3019800

LRDIST4   ;;10487690

LRDPA     ;;8757515

LRDPA1    ;;6296747

LRDPA2    ;;5207196

LRDRAW    ;;8114267

LREV      ;;868566

LREXEC    ;;1599274

LREXECU   ;;2774533

LREXPD    ;;1257429

LRFAC     ;;10529590

LRFAST    ;;19335504

LRFASTS   ;;8220470

LRFLAG    ;;7458903

LRFNDLOC  ;;2874336

LRGEN     ;;4652673

LRGEN1    ;;9760488

LRGEN2    ;;14785100

LRGP      ;;6903164

LRGP1     ;;8945780

LRGP2     ;;9602722

LRGV      ;;13358239

LRGV1     ;;5694972

LRGV2     ;;11417179

LRGVG2    ;;4415993

LRGVGK    ;;5559619

LRGVK     ;;7468917

LRGVK1    ;;1974283

LRGVP     ;;3966296

LRHDR     ;;2828970

LRKILL    ;;267623

LRLABAR   ;;7451974

LRLABEL   ;;1668195

LRLABEL1  ;;2827443

LRLABEL2  ;;1294781

LRLABEL3  ;;1905479

LRLABEL5  ;;2457165

LRLABEL6  ;;3490879

LRLABELA  ;;1935828

LRLABELB  ;;4990488

LRLABELF  ;;6978943

LRLABLD   ;;9866402

LRLABLD0  ;;8974860

LRLABLDS  ;;5030406

LRLABLIO  ;;6576380

LRLABXOL  ;;5047520

LRLABXT   ;;5481784

LRLAM     ;;3535487

LRLIST    ;;14863459

LRLISTE   ;;16074875

LRLL      ;;16026155

LRLL1     ;;13174195

LRLL1A    ;;13251964

LRLL2     ;;9535702

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

LRMIEDZ3  ;;6656074

LRMIEDZ4  ;;4114068

LRMIHDR   ;;7521663

LRMILL    ;;8949255

LRMINEW   ;;12069238

LRMINEW1  ;;5165056

LRMINEW2  ;;4494122

LRMIPC    ;;4207699

LRMIPLOG  ;;2830939

LRMIPSU   ;;4746260