LR6NTEG2.m

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

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

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

LRMITSE ;;6478419

LRMITSEC ;;11973690

LRMITSES ;;7787667

LRMITSP ;;2919017

LRMITSPC ;;5437371

LRMITSPE ;;6091299

LRMITSPO ;;6011727

LRMITSPS ;;3052409

LRMITSR ;;11570196

LRMITSRH ;;2059425

LRMITSRS ;;10690688

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

LRNIGHT ;;3012542

LRNIGHT1 ;;3577041

LRNIGHT2 ;;8145950

LRNITEG ;;11203971

LRNITEGL ;;5620432

LRNODRAW ;;6441287

LRNORMAL ;;2729775

LRNPXA ;;3121059

LRNPXA0 ;;2098459

LRNPXA1 ;;7927108

LRNTEG ;;4217918

LRNTEG0 ;;4233263

LRNTEG01 ;;4224628

LRNTEG02 ;;4187595

LRNTEG03 ;;4108380

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

LROPT ;;13626902

LROPTLST ;;6823560

LROR ;;11475302

LROR1 ;;9367723

LROR2 ;;7864169

LROR3 ;;8668640

LROR4 ;;12426203

LROR4A ;;11272423

LROR4B ;;11230240

LROR5 ;;126397

LROR6 ;;2546332

LROR6A ;;15251764

LROR6B ;;7129561

LROR7 ;;91305

LROR8 ;;10413551

LROR9 ;;14142736

LRORD ;;12460893

LRORD1 ;;12444038

LRORD2 ;;17233514

LRORD2A ;;4329143

LRORD3 ;;7325550

LRORDD ;;13714315

LRORDERN ;;138962

LRORDIM ;;4455867

LRORDK ;;13474804

LRORDST ;;14794328

LRORDST1 ;;2848

LROS ;;13339397

LROSPLG ;;9757011

LROSPLG1 ;;3358150

LROSPLG2 ;;2785646

LROSX0 ;;17415

LROSX1 ;;7539

LROW ;;7529828

LROW1 ;;13669660

LROW1A ;;3246964

LROW2 ;;8567142

LROW2A ;;6394488

LROW2P ;;7207400

LROW2RP ;;6049085

LROW3 ;;7031315

LROW4 ;;4523889

LROW5 ;;12012801

LRPARAM ;;7507286

LRPHEXPT ;;9219756

LRPHITE1 ;;11966791

LRPHITE2 ;;3592550

LRPHITE3 ;;2570033

LRPHITEM ;;14241855

LRPHLIS1 ;;14289685

LRPHLIST ;;13349268

LRPHSET ;;17207396

LRPHSET1 ;;7020946

LRPHSET2 ;;16068862

LRQC ;;681009

LRQCC ;;11068638

LRQCLOG ;;10229102

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

LRRP8 ;;1356290

LRRP8A ;;4276674

LRRP8B ;;2256698

LRRP8C ;;5002891

LRRS ;;8707990

LRRS12 ;;3898956

LRRS13 ;;3057556

LRRSP ;;3891776

LRSETUP ;;9966224

LRSLOW ;;18541286

LRSMAC ;;5282435

LRSOR ;;7195489

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

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

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

LRMITSE   ;;6478419

LRMITSEC  ;;11973690

LRMITSES  ;;7787667

LRMITSP   ;;2919017

LRMITSPC  ;;5437371

LRMITSPE  ;;6091299

LRMITSPO  ;;6011727

LRMITSPS  ;;3052409

LRMITSR   ;;11570196

LRMITSRH  ;;2059425

LRMITSRS  ;;10690688

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

LRNIGHT   ;;3012542

LRNIGHT1  ;;3577041

LRNIGHT2  ;;8145950

LRNITEG   ;;11203971

LRNITEGL  ;;5620432

LRNODRAW  ;;6441287

LRNORMAL  ;;2729775

LRNPXA    ;;3121059

LRNPXA0   ;;2098459

LRNPXA1   ;;7927108

LRNTEG    ;;4217918

LRNTEG0   ;;4233263

LRNTEG01  ;;4224628

LRNTEG02  ;;4187595

LRNTEG03  ;;4108380

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

LROPT     ;;13626902

LROPTLST  ;;6823560

LROR      ;;11475302

LROR1     ;;9367723

LROR2     ;;7864169

LROR3     ;;8668640

LROR4     ;;12426203

LROR4A    ;;11272423

LROR4B    ;;11230240

LROR5     ;;126397

LROR6     ;;2546332

LROR6A    ;;15251764

LROR6B    ;;7129561

LROR7     ;;91305

LROR8     ;;10413551

LROR9     ;;14142736

LRORD     ;;12460893

LRORD1    ;;12444038

LRORD2    ;;17233514

LRORD2A   ;;4329143

LRORD3    ;;7325550

LRORDD    ;;13714315

LRORDERN  ;;138962

LRORDIM   ;;4455867

LRORDK    ;;13474804

LRORDST   ;;14794328

LRORDST1  ;;2848

LROS      ;;13339397

LROSPLG   ;;9757011

LROSPLG1  ;;3358150

LROSPLG2  ;;2785646

LROSX0    ;;17415

LROSX1    ;;7539

LROW      ;;7529828

LROW1     ;;13669660

LROW1A    ;;3246964

LROW2     ;;8567142

LROW2A    ;;6394488

LROW2P    ;;7207400

LROW2RP   ;;6049085

LROW3     ;;7031315

LROW4     ;;4523889

LROW5     ;;12012801

LRPARAM   ;;7507286

LRPHEXPT  ;;9219756

LRPHITE1  ;;11966791

LRPHITE2  ;;3592550

LRPHITE3  ;;2570033

LRPHITEM  ;;14241855

LRPHLIS1  ;;14289685

LRPHLIST  ;;13349268

LRPHSET   ;;17207396

LRPHSET1  ;;7020946

LRPHSET2  ;;16068862

LRQC      ;;681009

LRQCC     ;;11068638

LRQCLOG   ;;10229102

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

LRRP8     ;;1356290

LRRP8A    ;;4276674

LRRP8B    ;;2256698

LRRP8C    ;;5002891

LRRS      ;;8707990

LRRS12    ;;3898956

LRRS13    ;;3057556

LRRSP     ;;3891776

LRSETUP   ;;9966224

LRSLOW    ;;18541286

LRSMAC    ;;5282435

LRSOR     ;;7195489