LRNTEG08.m

LRNTEG08 ;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^LRNTEG09

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

LRIPRECK ;;5477106

LRKILL ;;1119476

LRLABAR ;;7936770

LRLABEL ;;1176923

LRLABEL1 ;;1023402

LRLABEL2 ;;635845

LRLABEL3 ;;892776

LRLABEL4 ;;6547566

LRLABEL5 ;;1124537

LRLABEL6 ;;3160027

LRLABELA ;;1795496

LRLABELB ;;5241849

LRLABELC ;;1662298

LRLABELD ;;3667313

LRLABELE ;;6202078

LRLABELF ;;5914906

LRLABELG ;;1579665

LRLABLD ;;7246654

LRLABLD0 ;;9650813

LRLABLDS ;;4994926

LRLABLE4 ;;6776369

LRLABLIO ;;4938697

LRLABXOL ;;2855501

LRLABXT ;;6112119

LRLAM ;;3567990

LRLIST ;;20036208

LRLISTE ;;16764740

LRLL ;;16152781

LRLL1 ;;13509199

LRLL1A ;;13284467

LRLL2 ;;9619163

LRLL3 ;;5002153

LRLL4 ;;3547200

LRLLP ;;8075782

LRLLP2 ;;14934858

LRLLP3 ;;2796028

LRLLP4 ;;1929144

LRLLP5 ;;15246471

LRLLS ;;12977260

LRLLS2 ;;11298855

LRLLS3 ;;3004340

LRLLU ;;1197958

LRLNC0 ;;15089223

LRLNC1 ;;2279965

LRLNC1A ;;794515

LRLNC63 ;;14863812

LRLNC63A ;;9054097

LRLNC63B ;;7572561

LRLNCC ;;2686589

LRLNCDEL ;;6057577

LRLNCHL7 ;;2625881

LRLNCLK ;;2158982

LRLNCMD ;;6877453

LRLNCNLT ;;6065998

LRLNCPMP ;;7524055

LRLNCPRT ;;4942618

LRLNCSUF ;;6884243

LRLNCTOP ;;5536022

LRLNCUTL ;;2339899

LRLNCV ;;3953560

LRLNCX ;;7170462

LRLS ;;3827671

LRLSR ;;1344325

LRLSTWRK ;;10104481

LRLSTWRL ;;12255097

LRLTR ;;1234643

LRLTR2 ;;3111478

LRMIBL ;;14312939

LRMIBUG ;;5691951

LRMIEDZ ;;5625231

LRMIEDZ2 ;;13334471

LRMIEDZ3 ;;6688577

LRMIEDZ4 ;;4422611

LRMIHDR ;;10931596

LRMILL ;;9209709

LRMINEW ;;12682263

LRMINEW1 ;;5397242

LRMINEW2 ;;3930285

LRMIPC ;;4260452

LRMIPLOG ;;3089038

LRMIPSU ;;6418915

LRMIPSZ ;;9080001

LRMIPSZ1 ;;12438714

LRMIPSZ2 ;;11424701

LRMIPSZ3 ;;8351400

LRMIPSZ4 ;;11944691

LRMIPSZ5 ;;12465594

LRMIS ;;132600

LRMISEZ ;;11712468

LRMISEZ1 ;;9391894

LRMISEZ2 ;;11583396

LRMISEZ3 ;;9814590

LRMISEZ4 ;;4614188

LRMISEZA ;;16887979

LRMISEZB ;;9753528

LRMISR ;;7196014

LRMISR1 ;;3388157

LRMISTF ;;11191875

LRMISTF1 ;;14789377

LRMITS ;;2915366

LRMITSE ;;6521896

LRMITSEC ;;12006193

LRMITSES ;;7977003

LRMITSP ;;2962494

LRMITSPC ;;5469874

LRMITSPE ;;6784613

LRMITSPO ;;6378591

LRMITSPS ;;3084912

LRMITSR ;;11613673

LRMITSRH ;;2091928

LRMITSRS ;;10734165

LRMIU4 ;;5646681

LRMIUT ;;4005886

LRMIUT1 ;;6695721

LRMIV ;;5246258

LRMIV1 ;;12358924

LRMIV2 ;;15228347

LRMIV3 ;;7334138

LRMIV4 ;;8990220

LRMIVER ;;9144337

LRMIVER1 ;;11134049

LRMIXALL ;;2542560

LRMIXPD ;;2654254

LRMIXR1 ;;1532497

LRMIXR2 ;;4968415

LRMIXR3 ;;7477393

LRMIZAP ;;15247285

LRMIZAP1 ;;5632258

LRMRSHRT ;;12038667

LRNDLST ;;8807849

LRNIGHT ;;3045045

LRNIGHT1 ;;3609544

LRNIGHT2 ;;8178453

LRNINES7 ;;6363304

LRNITEG ;;11245163

LRNITEGL ;;5888298

LRNODRAW ;;5801640

LRNORMAL ;;2762278

LRNPXA ;;3153562

LRNPXA0 ;;2130962

LRNUM ;;6577024

LRO ;;170207

LRO1 ;;113338

LRO2 ;;524601

LRO3 ;;116382

LRO4 ;;33607

LRO5 ;;88220

LRO6 ;;90919

LRO7 ;;91199

LRO8 ;;88370

LROC ;;9232706

LROC1 ;;546239

LROCM ;;934649

LROE ;;16999972

LROE1 ;;8126037

LROE2 ;;10061591

LROI ;;1204319

LROLOVER ;;17975966

LROPT ;;13659405

LROPTLST ;;6856063

LROR ;;19371017

LRNTEG08  ;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^LRNTEG09

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

LRIPRECK  ;;5477106

LRKILL    ;;1119476

LRLABAR   ;;7936770

LRLABEL   ;;1176923

LRLABEL1  ;;1023402

LRLABEL2  ;;635845

LRLABEL3  ;;892776

LRLABEL4  ;;6547566

LRLABEL5  ;;1124537

LRLABEL6  ;;3160027

LRLABELA  ;;1795496

LRLABELB  ;;5241849

LRLABELC  ;;1662298

LRLABELD  ;;3667313

LRLABELE  ;;6202078

LRLABELF  ;;5914906

LRLABELG  ;;1579665

LRLABLD   ;;7246654

LRLABLD0  ;;9650813

LRLABLDS  ;;4994926

LRLABLE4  ;;6776369

LRLABLIO  ;;4938697

LRLABXOL  ;;2855501

LRLABXT   ;;6112119

LRLAM     ;;3567990

LRLIST    ;;20036208

LRLISTE   ;;16764740

LRLL      ;;16152781

LRLL1     ;;13509199

LRLL1A    ;;13284467

LRLL2     ;;9619163

LRLL3     ;;5002153

LRLL4     ;;3547200

LRLLP     ;;8075782

LRLLP2    ;;14934858

LRLLP3    ;;2796028

LRLLP4    ;;1929144

LRLLP5    ;;15246471

LRLLS     ;;12977260

LRLLS2    ;;11298855

LRLLS3    ;;3004340

LRLLU     ;;1197958

LRLNC0    ;;15089223

LRLNC1    ;;2279965

LRLNC1A   ;;794515

LRLNC63   ;;14863812

LRLNC63A  ;;9054097

LRLNC63B  ;;7572561

LRLNCC    ;;2686589

LRLNCDEL  ;;6057577

LRLNCHL7  ;;2625881

LRLNCLK   ;;2158982

LRLNCMD   ;;6877453

LRLNCNLT  ;;6065998

LRLNCPMP  ;;7524055

LRLNCPRT  ;;4942618

LRLNCSUF  ;;6884243

LRLNCTOP  ;;5536022

LRLNCUTL  ;;2339899

LRLNCV    ;;3953560

LRLNCX    ;;7170462

LRLS      ;;3827671

LRLSR     ;;1344325

LRLSTWRK  ;;10104481

LRLSTWRL  ;;12255097

LRLTR     ;;1234643

LRLTR2    ;;3111478

LRMIBL    ;;14312939

LRMIBUG   ;;5691951

LRMIEDZ   ;;5625231

LRMIEDZ2  ;;13334471

LRMIEDZ3  ;;6688577

LRMIEDZ4  ;;4422611

LRMIHDR   ;;10931596

LRMILL    ;;9209709

LRMINEW   ;;12682263

LRMINEW1  ;;5397242

LRMINEW2  ;;3930285

LRMIPC    ;;4260452

LRMIPLOG  ;;3089038

LRMIPSU   ;;6418915

LRMIPSZ   ;;9080001

LRMIPSZ1  ;;12438714

LRMIPSZ2  ;;11424701

LRMIPSZ3  ;;8351400

LRMIPSZ4  ;;11944691

LRMIPSZ5  ;;12465594

LRMIS     ;;132600

LRMISEZ   ;;11712468

LRMISEZ1  ;;9391894

LRMISEZ2  ;;11583396

LRMISEZ3  ;;9814590

LRMISEZ4  ;;4614188

LRMISEZA  ;;16887979

LRMISEZB  ;;9753528

LRMISR    ;;7196014

LRMISR1   ;;3388157

LRMISTF   ;;11191875

LRMISTF1  ;;14789377

LRMITS    ;;2915366

LRMITSE   ;;6521896

LRMITSEC  ;;12006193

LRMITSES  ;;7977003

LRMITSP   ;;2962494

LRMITSPC  ;;5469874

LRMITSPE  ;;6784613

LRMITSPO  ;;6378591

LRMITSPS  ;;3084912

LRMITSR   ;;11613673

LRMITSRH  ;;2091928

LRMITSRS  ;;10734165

LRMIU4    ;;5646681

LRMIUT    ;;4005886

LRMIUT1   ;;6695721

LRMIV     ;;5246258

LRMIV1    ;;12358924

LRMIV2    ;;15228347

LRMIV3    ;;7334138

LRMIV4    ;;8990220

LRMIVER   ;;9144337

LRMIVER1  ;;11134049

LRMIXALL  ;;2542560

LRMIXPD   ;;2654254

LRMIXR1   ;;1532497

LRMIXR2   ;;4968415

LRMIXR3   ;;7477393

LRMIZAP   ;;15247285

LRMIZAP1  ;;5632258

LRMRSHRT  ;;12038667

LRNDLST   ;;8807849

LRNIGHT   ;;3045045

LRNIGHT1  ;;3609544

LRNIGHT2  ;;8178453

LRNINES7  ;;6363304

LRNITEG   ;;11245163

LRNITEGL  ;;5888298

LRNODRAW  ;;5801640

LRNORMAL  ;;2762278

LRNPXA    ;;3153562

LRNPXA0   ;;2130962

LRNUM     ;;6577024

LRO       ;;170207

LRO1      ;;113338

LRO2      ;;524601

LRO3      ;;116382

LRO4      ;;33607

LRO5      ;;88220

LRO6      ;;90919

LRO7      ;;91199

LRO8      ;;88370

LROC      ;;9232706

LROC1     ;;546239

LROCM     ;;934649

LROE      ;;16999972

LROE1     ;;8126037

LROE2     ;;10061591

LROI      ;;1204319

LROLOVER  ;;17975966

LROPT     ;;13659405

LROPTLST  ;;6856063

LROR      ;;19371017