Routine: LR6NTEG

LR6NTEG ; 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^LR6NTEG0

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

LR105 ;;2732523

LR105PO ;;4522343

LR5NTEG ;;3949310

LR5NTEG0 ;;4021909

LR5NTEG1 ;;4013472

LR5NTEG2 ;;3974296

LR5NTEG3 ;;3918332

LR5NTEG4 ;;3750484

LR5NTEG5 ;;3325226

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

LRACM3 ;;7658633

LRACM4 ;;8356385

LRACP ;;2963963

LRACPG ;;844852

LRACS ;;10982120

LRACS1 ;;10583337

LRACS2 ;;5996122

LRACS3 ;;8023824

LRACSUM ;;9606607

LRACSUM1 ;;10133720

LRACSUM3 ;;7335590

LRACSUM4 ;;9181678

LRACSUM5 ;;13575770

LRACSUM6 ;;8225534

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

LRAPBK ;;13117892

LRAPBK1 ;;12514060

LRAPBS ;;9530725

LRAPBS1 ;;10479431

LRAPBS2 ;;2393780

LRAPC ;;5340982

LRAPCUM ;;14047316

LRAPCUM1 ;;6307179

LRAPCWK ;;9695591

LRAPD ;;4542710

LRAPD1 ;;12480707

LRAPDA ;;14948580

LRAPDAC ;;3206399

LRAPDEL ;;6301858

LRAPDPT ;;6823526

LRAPDS ;;413044

LRAPED ;;11507848

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

LRAPQACN ;;7551560

LRAPQAFS ;;6062556

LRAPQAM ;;2548318

LRAPQAMR ;;8517573

LRAPQAR ;;11772281

LRAPQAT ;;12170883

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

LRAPT3 ;;3605448

LRAPTT ;;12376332

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

LRAUDA ;;2234244

LRAUFIX ;;316002

LRAUL ;;10927481

LRAUMLK ;;4980671

LRAURPT ;;16397616

LRAURV ;;8143951

LR6NTEG   ; 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^LR6NTEG0

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

LR105     ;;2732523

LR105PO   ;;4522343

LR5NTEG   ;;3949310

LR5NTEG0  ;;4021909

LR5NTEG1  ;;4013472

LR5NTEG2  ;;3974296

LR5NTEG3  ;;3918332

LR5NTEG4  ;;3750484

LR5NTEG5  ;;3325226

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

LRACM3    ;;7658633

LRACM4    ;;8356385

LRACP     ;;2963963

LRACPG    ;;844852

LRACS     ;;10982120

LRACS1    ;;10583337

LRACS2    ;;5996122

LRACS3    ;;8023824

LRACSUM   ;;9606607

LRACSUM1  ;;10133720

LRACSUM3  ;;7335590

LRACSUM4  ;;9181678

LRACSUM5  ;;13575770

LRACSUM6  ;;8225534

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

LRAPBK    ;;13117892

LRAPBK1   ;;12514060

LRAPBS    ;;9530725

LRAPBS1   ;;10479431

LRAPBS2   ;;2393780

LRAPC     ;;5340982

LRAPCUM   ;;14047316

LRAPCUM1  ;;6307179

LRAPCWK   ;;9695591

LRAPD     ;;4542710

LRAPD1    ;;12480707

LRAPDA    ;;14948580

LRAPDAC   ;;3206399

LRAPDEL   ;;6301858

LRAPDPT   ;;6823526

LRAPDS    ;;413044

LRAPED    ;;11507848

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

LRAPQACN  ;;7551560

LRAPQAFS  ;;6062556

LRAPQAM   ;;2548318

LRAPQAMR  ;;8517573

LRAPQAR   ;;11772281

LRAPQAT   ;;12170883

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

LRAPT3    ;;3605448

LRAPTT    ;;12376332

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

LRAUDA    ;;2234244

LRAUFIX   ;;316002

LRAUL     ;;10927481

LRAUMLK   ;;4980671

LRAURPT   ;;16397616

LRAURV    ;;8143951

LR6NTEG.m