LRNTEG.m

LRNTEG ;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^LRNTEG0

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

LR52CNV ;;9175510

LR52CNV0 ;;3475444

LR52CNV1 ;;8155874

LR52CNV3 ;;7949281

LR52CNV4 ;;8091914

LR52CNV5 ;;7090305

LR52CNV7 ;;6270377

LR52CNV8 ;;6913340

LR52CNV9 ;;5903059

LR52CNVA ;;3635478

LR52CNVP ;;8781945

LR52CNVU ;;2239335

LR52CNVX ;;8110085

LR52TIM2 ;;3950513

LR52TIME ;;3676943

LRABG ;;1851372

LRABG1 ;;7566954

LRAC ;;6243657

LRAC1 ;;11261717

LRAC2 ;;11706705

LRAC2A ;;5935060

LRAC3 ;;10227958

LRAC4 ;;11230513

LRAC5 ;;7561182

LRAC6 ;;9135745

LRAC7 ;;2987131

LRAC8 ;;896828

LRAC9 ;;9098921

LRACC ;;4244367

LRACDIAG ;;16331067

LRACF ;;11037128

LRACFILE ;;884607

LRACFIX ;;1870623

LRACFR ;;9983668

LRACK ;;3045817

LRACKL ;;13626594

LRACKL1 ;;2455270

LRACM ;;12299888

LRACM1 ;;11850917

LRACM2 ;;9886073

LRACM2F ;;5537651

LRACM3 ;;7658633

LRACM4 ;;8356385

LRACP ;;2963963

LRACPG ;;844852

LRACS ;;10982120

LRACS1 ;;10583337

LRACS2 ;;5996122

LRACS3 ;;8023824

LRACSUM ;;9656858

LRACSUM1 ;;10133720

LRACSUM3 ;;7335590

LRACSUM4 ;;9181678

LRACSUM5 ;;13575770

LRACSUM6 ;;8083056

LRAD2ORD ;;7379677

LRAFUNC ;;5202410

LRAFUNC1 ;;8930233

LRAFUNC5 ;;4235238

LRAFUNC6 ;;4239245

LRAFUNC7 ;;7323033

LRAIPRIV ;;116977

LRAIRNUM ;;853891

LRAP ;;10403072

LRAPA ;;4656450

LRAPAP ;;1248151

LRAPAUA ;;4555449

LRAPAUL ;;14417566

LRAPAULC ;;5589732

LRAPAUPT ;;343483

LRAPAUSR ;;13851004

LRAPBK ;;12786562

LRAPBK1 ;;12514060

LRAPBS ;;9530725

LRAPBS1 ;;10479431

LRAPBS2 ;;2393780

LRAPC ;;5340982

LRAPCUM ;;13268233

LRAPCUM1 ;;6307179

LRAPCWK ;;9695591

LRAPD ;;4542710

LRAPD1 ;;12376303

LRAPDA ;;14820288

LRAPDAC ;;3206399

LRAPDEL ;;6301858

LRAPDPT ;;6823526

LRAPDS ;;413044

LRAPED ;;11456664

LRAPEDC ;;4899381

LRAPF ;;2304308

LRAPFICH ;;3383986

LRAPFTS ;;23050

LRAPH ;;4909603

LRAPHDR ;;1559144

LRAPJNC ;;5838353

LRAPL ;;6656073

LRAPLG ;;7333835

LRAPLG1 ;;6952457

LRAPLG2 ;;5232187

LRAPM ;;14128148

LRAPMOD ;;1763077

LRAPMV ;;7473442

LRAPOLD ;;10216449

LRAPONC ;;4385791

LRAPP ;;5467205

LRAPPA ;;4168936

LRAPPF ;;2917679

LRAPPF1 ;;11687405

LRAPPF2 ;;1703493

LRAPPOW ;;6667789

LRAPPRE ;;752949

LRAPQ ;;5576437

LRAPQAC ;;8427071

LRAPQACD ;;1805048

LRAPQACN ;;7551560

LRAPQAFS ;;6062556

LRAPQAM ;;2742545

LRAPQAMR ;;8517573

LRAPQAR ;;11772281

LRAPQAT ;;12217676

LRAPQAT1 ;;5893900

LRAPQOR ;;5274969

LRAPQOR1 ;;10672669

LRAPQOR2 ;;5647114

LRAPQOR3 ;;6098335

LRAPR ;;10366720

LRAPREF ;;381960

LRAPS ;;1983043

LRAPS1 ;;8521516

LRAPS2 ;;11905503

LRAPS3 ;;2265857

LRAPSA ;;8361677

LRAPSE ;;1707913

LRAPSEM ;;14699799

LRAPSEM1 ;;10343109

LRAPSEM2 ;;12254703

LRAPSL ;;10783558

LRAPSL1 ;;11000394

LRAPSM ;;9196990

LRAPSM1 ;;11824486

LRAPST ;;8820669

LRAPST1 ;;3180798

LRAPSWK ;;13317104

LRAPT ;;7684657

LRAPT1 ;;1555945

LRAPT2 ;;13252231

LRAPT3 ;;3593015

LRAPTT ;;12355400

LRAPTT1 ;;5291896

LRAPV ;;6254696

LRAPWA ;;2145601

LRAPWE ;;10582558

LRAPWE1 ;;5467253

LRAPWEA ;;10035536

LRAPWKA ;;10993774

LRAPWKA1 ;;2854955

LRAPWR ;;13705370

LRAPWR1 ;;10850851

LRAPWSPG ;;6741045

LRAPWU ;;9771464

LRAPX ;;5707403

LRAUAW ;;4434676

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRNTEG   3794     printed  Apr 09, 2024@21:07:54                                                                                                                                                                                                      Page 2

LRNTEG    ;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^LRNTEG0

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

LR52CNV   ;;9175510

LR52CNV0  ;;3475444

LR52CNV1  ;;8155874

LR52CNV3  ;;7949281

LR52CNV4  ;;8091914

LR52CNV5  ;;7090305

LR52CNV7  ;;6270377

LR52CNV8  ;;6913340

LR52CNV9  ;;5903059

LR52CNVA  ;;3635478

LR52CNVP  ;;8781945

LR52CNVU  ;;2239335

LR52CNVX  ;;8110085

LR52TIM2  ;;3950513

LR52TIME  ;;3676943

LRABG     ;;1851372

LRABG1    ;;7566954

LRAC      ;;6243657

LRAC1     ;;11261717

LRAC2     ;;11706705

LRAC2A    ;;5935060

LRAC3     ;;10227958

LRAC4     ;;11230513

LRAC5     ;;7561182

LRAC6     ;;9135745

LRAC7     ;;2987131

LRAC8     ;;896828

LRAC9     ;;9098921

LRACC     ;;4244367

LRACDIAG  ;;16331067

LRACF     ;;11037128

LRACFILE  ;;884607

LRACFIX   ;;1870623

LRACFR    ;;9983668

LRACK     ;;3045817

LRACKL    ;;13626594

LRACKL1   ;;2455270

LRACM     ;;12299888

LRACM1    ;;11850917

LRACM2    ;;9886073

LRACM2F   ;;5537651

LRACM3    ;;7658633

LRACM4    ;;8356385

LRACP     ;;2963963

LRACPG    ;;844852

LRACS     ;;10982120

LRACS1    ;;10583337

LRACS2    ;;5996122

LRACS3    ;;8023824

LRACSUM   ;;9656858

LRACSUM1  ;;10133720

LRACSUM3  ;;7335590

LRACSUM4  ;;9181678

LRACSUM5  ;;13575770

LRACSUM6  ;;8083056

LRAD2ORD  ;;7379677

LRAFUNC   ;;5202410

LRAFUNC1  ;;8930233

LRAFUNC5  ;;4235238

LRAFUNC6  ;;4239245

LRAFUNC7  ;;7323033

LRAIPRIV  ;;116977

LRAIRNUM  ;;853891

LRAP      ;;10403072

LRAPA     ;;4656450

LRAPAP    ;;1248151

LRAPAUA   ;;4555449

LRAPAUL   ;;14417566

LRAPAULC  ;;5589732

LRAPAUPT  ;;343483

LRAPAUSR  ;;13851004

LRAPBK    ;;12786562

LRAPBK1   ;;12514060

LRAPBS    ;;9530725

LRAPBS1   ;;10479431

LRAPBS2   ;;2393780

LRAPC     ;;5340982

LRAPCUM   ;;13268233

LRAPCUM1  ;;6307179

LRAPCWK   ;;9695591

LRAPD     ;;4542710

LRAPD1    ;;12376303

LRAPDA    ;;14820288

LRAPDAC   ;;3206399

LRAPDEL   ;;6301858

LRAPDPT   ;;6823526

LRAPDS    ;;413044

LRAPED    ;;11456664

LRAPEDC   ;;4899381

LRAPF     ;;2304308

LRAPFICH  ;;3383986

LRAPFTS   ;;23050

LRAPH     ;;4909603

LRAPHDR   ;;1559144

LRAPJNC   ;;5838353

LRAPL     ;;6656073

LRAPLG    ;;7333835

LRAPLG1   ;;6952457

LRAPLG2   ;;5232187

LRAPM     ;;14128148

LRAPMOD   ;;1763077

LRAPMV    ;;7473442

LRAPOLD   ;;10216449

LRAPONC   ;;4385791

LRAPP     ;;5467205

LRAPPA    ;;4168936

LRAPPF    ;;2917679

LRAPPF1   ;;11687405

LRAPPF2   ;;1703493

LRAPPOW   ;;6667789

LRAPPRE   ;;752949

LRAPQ     ;;5576437

LRAPQAC   ;;8427071

LRAPQACD  ;;1805048

LRAPQACN  ;;7551560

LRAPQAFS  ;;6062556

LRAPQAM   ;;2742545

LRAPQAMR  ;;8517573

LRAPQAR   ;;11772281

LRAPQAT   ;;12217676

LRAPQAT1  ;;5893900

LRAPQOR   ;;5274969

LRAPQOR1  ;;10672669

LRAPQOR2  ;;5647114

LRAPQOR3  ;;6098335

LRAPR     ;;10366720

LRAPREF   ;;381960

LRAPS     ;;1983043

LRAPS1    ;;8521516

LRAPS2    ;;11905503

LRAPS3    ;;2265857

LRAPSA    ;;8361677

LRAPSE    ;;1707913

LRAPSEM   ;;14699799

LRAPSEM1  ;;10343109

LRAPSEM2  ;;12254703

LRAPSL    ;;10783558

LRAPSL1   ;;11000394

LRAPSM    ;;9196990

LRAPSM1   ;;11824486

LRAPST    ;;8820669

LRAPST1   ;;3180798

LRAPSWK   ;;13317104

LRAPT     ;;7684657

LRAPT1    ;;1555945

LRAPT2    ;;13252231

LRAPT3    ;;3593015

LRAPTT    ;;12355400

LRAPTT1   ;;5291896

LRAPV     ;;6254696

LRAPWA    ;;2145601

LRAPWE    ;;10582558

LRAPWE1   ;;5467253

LRAPWEA   ;;10035536

LRAPWKA   ;;10993774

LRAPWKA1  ;;2854955

LRAPWR    ;;13705370

LRAPWR1   ;;10850851

LRAPWSPG  ;;6741045

LRAPWU    ;;9771464

LRAPX     ;;5707403

LRAUAW    ;;4434676