LRNTEG02.m

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

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

LRMIPSZ ;;8712841

LRMIPSZ1 ;;12406819

LRMIPSZ2 ;;11226062

LRMIPSZ3 ;;8318897

LRMIPSZ4 ;;11912188

LRMIPSZ5 ;;12221036

LRMIS ;;100097

LRMISEZ ;;10610238

LRMISEZ1 ;;9213100

LRMISEZ2 ;;11072948

LRMISEZ3 ;;9782087

LRMISEZ4 ;;4421803

LRMISEZA ;;16855476

LRMISEZB ;;9566752

LRMISR ;;7163511

LRMISR1 ;;3355654

LRMISTF ;;10468714

LRMISTF1 ;;14032069

LRMITS ;;2538407

LRMITSE ;;3156077

LRMITSEC ;;11973690

LRMITSES ;;7783131

LRMITSP ;;2844397

LRMITSPC ;;5437371

LRMITSPE ;;6010630

LRMITSPO ;;5286842

LRMITSPS ;;3052409

LRMITSR ;;10903814

LRMITSRH ;;2059425

LRMITSRS ;;9988179

LRMIU4 ;;5614178

LRMIUT ;;3226335

LRMIUT1 ;;5126116

LRMIV ;;5001526

LRMIV1 ;;12023776

LRMIV2 ;;15350039

LRMIV3 ;;7301635

LRMIV4 ;;8957717

LRMIVER ;;8247730

LRMIVER1 ;;9809595

LRMIXALL ;;2510057

LRMIXPD ;;2621751

LRMIXR1 ;;1499994

LRMIXR2 ;;4935912

LRMIXR3 ;;7444890

LRMIZAP ;;15214782

LRMIZAP1 ;;5599755

LRMRSHRT ;;12006164

LRNDLST ;;6518918

LRNIGHT ;;3012542

LRNIGHT1 ;;3577041

LRNIGHT2 ;;8145950

LRNITEG ;;10629315

LRNITEGL ;;5620432

LRNODRAW ;;6441287

LRNORMAL ;;2729775

LRNPXA ;;3121059

LRNPXA0 ;;2098459

LRNPXA1 ;;7927108

LRNUM ;;6084836

LRO ;;137704

LRO1 ;;80835

LRO2 ;;492098

LRO3 ;;83879

LRO4 ;;1104

LRO5 ;;55717

LRO6 ;;58416

LRO7 ;;58696

LRO8 ;;55867

LROC ;;9962104

LROC1 ;;513736

LROCM ;;902146

LROE ;;14124488

LROE1 ;;7441789

LROE2 ;;8671366

LROI ;;1171816

LROLOVER ;;11243389

LROPT ;;13626902

LROPTLST ;;6823560

LROR ;;11488574

LROR1 ;;9367723

LROR2 ;;7864169

LROR3 ;;8668640

LROR4 ;;12426203

LROR4A ;;11272423

LROR4B ;;11230240

LROR5 ;;126397

LROR6 ;;2546332

LROR6A ;;10885921

LROR6B ;;7065648

LROR7 ;;91305

LROR8 ;;10413551

LROR9 ;;14142736

LRORD ;;12460893

LRORD1 ;;12374911

LRORD2 ;;17233514

LRORD2A ;;4265341

LRORD3 ;;7325550

LRORDD ;;13714315

LRORDERN ;;138962

LRORDIM ;;4446478

LRORDK ;;13547846

LRORDST ;;14794328

LRORDST1 ;;2848

LROS ;;13339397

LROSX0 ;;17415

LROSX1 ;;7539

LROW ;;7529828

LROW1 ;;13614464

LROW1A ;;3246964

LROW2 ;;8567142

LROW2A ;;6321320

LROW2P ;;7207400

LROW2RP ;;6049085

LROW3 ;;6949223

LROW4 ;;4523889

LROW5 ;;12012801

LRPARAM ;;7507286

LRPHEXPT ;;9195190

LRPHITE1 ;;11966791

LRPHITE2 ;;3592550

LRPHITE3 ;;2570033

LRPHITEM ;;14241855

LRPHLIS1 ;;14180980

LRPHLIST ;;13349268

LRPHSET ;;17207396

LRPHSET1 ;;7020946

LRPHSET2 ;;16068862

LRQC ;;681009

LRQCC ;;11068638

LRQCLOG ;;9698504

LRRD ;;8518062

LRRK ;;5712336

LRRP ;;10136813

LRRP1 ;;6740104

LRRP2 ;;12419851

LRRP3 ;;8171424

LRRP4 ;;3196176

LRRP5 ;;5807146

LRRP5A ;;4696626

LRRP6 ;;4486928

LRRP6A1 ;;5209716

LRRP6A2 ;;2681809

LRRP6A3 ;;2318940

LRRP6B1 ;;3787926

LRRP6B2 ;;2864954

LRRP6B3 ;;2072606

LRRP7 ;;3106946

LRRP8 ;;1356290

LRRP8A ;;4325958

LRRP8B ;;2256698

LRRP8C ;;5002891

LRRS ;;8707990

LRRS12 ;;3900411

LRRS13 ;;3057556

LRRSP ;;3891776

LRSETUP ;;9966224

LRSLOW ;;18541286

LRSMAC ;;5282435

LRSOR ;;7195489

LRSOR1 ;;1558609

LRSORA ;;7657175

LRSORA0 ;;2281955

LRSORA1 ;;6300770

LRSORA2 ;;3292731

LRSORA3 ;;6360636

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRNTEG02   3792     printed  Mar 13, 2025@21:22:45                                                                                                                                                                                                    Page 2

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

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

LRMIPSZ   ;;8712841

LRMIPSZ1  ;;12406819

LRMIPSZ2  ;;11226062

LRMIPSZ3  ;;8318897

LRMIPSZ4  ;;11912188

LRMIPSZ5  ;;12221036

LRMIS     ;;100097

LRMISEZ   ;;10610238

LRMISEZ1  ;;9213100

LRMISEZ2  ;;11072948

LRMISEZ3  ;;9782087

LRMISEZ4  ;;4421803

LRMISEZA  ;;16855476

LRMISEZB  ;;9566752

LRMISR    ;;7163511

LRMISR1   ;;3355654

LRMISTF   ;;10468714

LRMISTF1  ;;14032069

LRMITS    ;;2538407

LRMITSE   ;;3156077

LRMITSEC  ;;11973690

LRMITSES  ;;7783131

LRMITSP   ;;2844397

LRMITSPC  ;;5437371

LRMITSPE  ;;6010630

LRMITSPO  ;;5286842

LRMITSPS  ;;3052409

LRMITSR   ;;10903814

LRMITSRH  ;;2059425

LRMITSRS  ;;9988179

LRMIU4    ;;5614178

LRMIUT    ;;3226335

LRMIUT1   ;;5126116

LRMIV     ;;5001526

LRMIV1    ;;12023776

LRMIV2    ;;15350039

LRMIV3    ;;7301635

LRMIV4    ;;8957717

LRMIVER   ;;8247730

LRMIVER1  ;;9809595

LRMIXALL  ;;2510057

LRMIXPD   ;;2621751

LRMIXR1   ;;1499994

LRMIXR2   ;;4935912

LRMIXR3   ;;7444890

LRMIZAP   ;;15214782

LRMIZAP1  ;;5599755

LRMRSHRT  ;;12006164

LRNDLST   ;;6518918

LRNIGHT   ;;3012542

LRNIGHT1  ;;3577041

LRNIGHT2  ;;8145950

LRNITEG   ;;10629315

LRNITEGL  ;;5620432

LRNODRAW  ;;6441287

LRNORMAL  ;;2729775

LRNPXA    ;;3121059

LRNPXA0   ;;2098459

LRNPXA1   ;;7927108

LRNUM     ;;6084836

LRO       ;;137704

LRO1      ;;80835

LRO2      ;;492098

LRO3      ;;83879

LRO4      ;;1104

LRO5      ;;55717

LRO6      ;;58416

LRO7      ;;58696

LRO8      ;;55867

LROC      ;;9962104

LROC1     ;;513736

LROCM     ;;902146

LROE      ;;14124488

LROE1     ;;7441789

LROE2     ;;8671366

LROI      ;;1171816

LROLOVER  ;;11243389

LROPT     ;;13626902

LROPTLST  ;;6823560

LROR      ;;11488574

LROR1     ;;9367723

LROR2     ;;7864169

LROR3     ;;8668640

LROR4     ;;12426203

LROR4A    ;;11272423

LROR4B    ;;11230240

LROR5     ;;126397

LROR6     ;;2546332

LROR6A    ;;10885921

LROR6B    ;;7065648

LROR7     ;;91305

LROR8     ;;10413551

LROR9     ;;14142736

LRORD     ;;12460893

LRORD1    ;;12374911

LRORD2    ;;17233514

LRORD2A   ;;4265341

LRORD3    ;;7325550

LRORDD    ;;13714315

LRORDERN  ;;138962

LRORDIM   ;;4446478

LRORDK    ;;13547846

LRORDST   ;;14794328

LRORDST1  ;;2848

LROS      ;;13339397

LROSX0    ;;17415

LROSX1    ;;7539

LROW      ;;7529828

LROW1     ;;13614464

LROW1A    ;;3246964

LROW2     ;;8567142

LROW2A    ;;6321320

LROW2P    ;;7207400

LROW2RP   ;;6049085

LROW3     ;;6949223

LROW4     ;;4523889

LROW5     ;;12012801

LRPARAM   ;;7507286

LRPHEXPT  ;;9195190

LRPHITE1  ;;11966791

LRPHITE2  ;;3592550

LRPHITE3  ;;2570033

LRPHITEM  ;;14241855

LRPHLIS1  ;;14180980

LRPHLIST  ;;13349268

LRPHSET   ;;17207396

LRPHSET1  ;;7020946

LRPHSET2  ;;16068862

LRQC      ;;681009

LRQCC     ;;11068638

LRQCLOG   ;;9698504

LRRD      ;;8518062

LRRK      ;;5712336

LRRP      ;;10136813

LRRP1     ;;6740104

LRRP2     ;;12419851

LRRP3     ;;8171424

LRRP4     ;;3196176

LRRP5     ;;5807146

LRRP5A    ;;4696626

LRRP6     ;;4486928

LRRP6A1   ;;5209716

LRRP6A2   ;;2681809

LRRP6A3   ;;2318940

LRRP6B1   ;;3787926

LRRP6B2   ;;2864954

LRRP6B3   ;;2072606

LRRP7     ;;3106946

LRRP8     ;;1356290

LRRP8A    ;;4325958

LRRP8B    ;;2256698

LRRP8C    ;;5002891

LRRS      ;;8707990

LRRS12    ;;3900411

LRRS13    ;;3057556

LRRSP     ;;3891776

LRSETUP   ;;9966224

LRSLOW    ;;18541286

LRSMAC    ;;5282435

LRSOR     ;;7195489

LRSOR1    ;;1558609

LRSORA    ;;7657175

LRSORA0   ;;2281955

LRSORA1   ;;6300770

LRSORA2   ;;3292731

LRSORA3   ;;6360636