LR6NTEG0.m

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

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

LRAUS ;;2611608

LRAUSICD ;;3659214

LRAUSM ;;11817138

LRAUSTA ;;5008931

LRBARA ;;3774911

LRBARB ;;6451096

LRBARBT ;;5739996

LRBLA ;;9313272

LRBLA1 ;;9926399

LRBLA2 ;;6490884

LRBLAA ;;14326109

LRBLAA1 ;;3751384

LRBLAB ;;1343081

LRBLAGG ;;2364163

LRBLB ;;5073682

LRBLBU ;;2220381

LRBLC ;;1993068

LRBLCAP ;;2878590

LRBLCMV ;;4895767

LRBLCON ;;2097

LRBLD ;;3295327

LRBLDA ;;12115475

LRBLDA1 ;;3235853

LRBLDAA ;;12203824

LRBLDAL ;;9196362

LRBLDC ;;14081954

LRBLDC1 ;;5278208

LRBLDCR ;;10142238

LRBLDCU ;;5349018

LRBLDED ;;6440773

LRBLDEL ;;9949435

LRBLDELT ;;5309734

LRBLDEX ;;3417783

LRBLDEX1 ;;13440864

LRBLDEX2 ;;14011718

LRBLDK ;;4408781

LRBLDL ;;8027727

LRBLDL1 ;;1162721

LRBLDLG ;;19044672

LRBLDMV ;;6414505

LRBLDP ;;2025215

LRBLDPA ;;3813923

LRBLDPA1 ;;13875145

LRBLDPA2 ;;13988829

LRBLDPAW ;;3164806

LRBLDPH ;;10358285

LRBLDPK ;;7469503

LRBLDPL ;;3867229

LRBLDPT ;;9337312

LRBLDPT1 ;;3715345

LRBLDR ;;15121433

LRBLDR1 ;;7668103

LRBLDRR ;;16370364

LRBLDRR1 ;;15032705

LRBLDRR2 ;;3066287

LRBLDSC ;;8397022

LRBLDT ;;13239896

LRBLDTA ;;2604164

LRBLDUC ;;4698546

LRBLDW ;;5918756

LRBLDX ;;4935632

LRBLFIX ;;1289829

LRBLJ ;;984549

LRBLJA ;;10779194

LRBLJA1 ;;6301480

LRBLJB ;;9637545

LRBLJC ;;9275638

LRBLJCK ;;9133133

LRBLJD ;;13165494

LRBLJD1 ;;13899699

LRBLJDA ;;10972758

LRBLJDM ;;11207222

LRBLJDP ;;9084280

LRBLJED ;;13071752

LRBLJI ;;8199613

LRBLJL ;;17014884

LRBLJL1 ;;8687646

LRBLJLA ;;9051165

LRBLJLG ;;15685077

LRBLJLG1 ;;11427027

LRBLJM ;;6502625

LRBLJM1 ;;8953366

LRBLJP ;;5290456

LRBLJPA ;;5587022

LRBLJPA1 ;;16327603

LRBLJPA2 ;;10519413

LRBLJPH ;;6292279

LRBLJPP ;;12819280

LRBLJPP1 ;;6500529

LRBLJR ;;8082545

LRBLJRB ;;10184614

LRBLJSH ;;10420740

LRBLJT ;;9138951

LRBLJTS ;;3989459

LRBLJTS1 ;;8904419

LRBLJTS2 ;;8577037

LRBLJU ;;5981259

LRBLJU1 ;;6735669

LRBLJUT ;;5844963

LRBLJW ;;10073924

LRBLJX ;;5755281

LRBLP ;;17385811

LRBLPA ;;5230196

LRBLPAB ;;3921486

LRBLPB ;;1128898

LRBLPBR ;;9231407

LRBLPBR1 ;;15470435

LRBLPC ;;15671667

LRBLPC1 ;;7192443

LRBLPCS ;;12068405

LRBLPCS1 ;;9887619

LRBLPCSS ;;9974761

LRBLPD ;;11082733

LRBLPD1 ;;10107862

LRBLPE ;;11575871

LRBLPE1 ;;7387090

LRBLPED ;;14607261

LRBLPED1 ;;9696043

LRBLPED2 ;;3426586

LRBLPEW ;;14855298

LRBLPH ;;3897023

LRBLPIT ;;7051836

LRBLPOST ;;1810321

LRBLPP ;;1084680

LRBLPQA ;;8810766

LRBLPR ;;6345892

LRBLPR1 ;;12731130

LRBLPRA ;;5693589

LRBLPT ;;8846509

LRBLPT1 ;;11224251

LRBLPTR ;;11758227

LRBLPTR1 ;;10126100

LRBLPUS ;;10288915

LRBLPUS1 ;;7988890

LRBLPUS2 ;;10276414

LRBLPX ;;15329379

LRBLPX1 ;;11550716

LRBLQPR ;;5571599

LRBLQST ;;6415500

LRBLRCT ;;9833422

LRBLS ;;10888668

LRBLSET ;;2877561

LRBLSSN ;;3897804

LRBLST ;;3535761

LRBLSTR ;;3249276

LRBLSUM ;;1987283

LRBLTA ;;6903899

LRBLTA1 ;;4221860

LRBLTX ;;13956029

LRBLTXA ;;11752893

LRBLU ;;16142329

LRBLUL ;;1134633

LRBLVAL ;;715004

LRBLW ;;4545909

LRBLWD ;;4923072

LRBLWDS ;;8168141

LRBLXREF ;;269112

LRBLY ;;3089131

LRCAP64 ;;9254789

LRCAP67 ;;7903112

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

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

LRAUS     ;;2611608

LRAUSICD  ;;3659214

LRAUSM    ;;11817138

LRAUSTA   ;;5008931

LRBARA    ;;3774911

LRBARB    ;;6451096

LRBARBT   ;;5739996

LRBLA     ;;9313272

LRBLA1    ;;9926399

LRBLA2    ;;6490884

LRBLAA    ;;14326109

LRBLAA1   ;;3751384

LRBLAB    ;;1343081

LRBLAGG   ;;2364163

LRBLB     ;;5073682

LRBLBU    ;;2220381

LRBLC     ;;1993068

LRBLCAP   ;;2878590

LRBLCMV   ;;4895767

LRBLCON   ;;2097

LRBLD     ;;3295327

LRBLDA    ;;12115475

LRBLDA1   ;;3235853

LRBLDAA   ;;12203824

LRBLDAL   ;;9196362

LRBLDC    ;;14081954

LRBLDC1   ;;5278208

LRBLDCR   ;;10142238

LRBLDCU   ;;5349018

LRBLDED   ;;6440773

LRBLDEL   ;;9949435

LRBLDELT  ;;5309734

LRBLDEX   ;;3417783

LRBLDEX1  ;;13440864

LRBLDEX2  ;;14011718

LRBLDK    ;;4408781

LRBLDL    ;;8027727

LRBLDL1   ;;1162721

LRBLDLG   ;;19044672

LRBLDMV   ;;6414505

LRBLDP    ;;2025215

LRBLDPA   ;;3813923

LRBLDPA1  ;;13875145

LRBLDPA2  ;;13988829

LRBLDPAW  ;;3164806

LRBLDPH   ;;10358285

LRBLDPK   ;;7469503

LRBLDPL   ;;3867229

LRBLDPT   ;;9337312

LRBLDPT1  ;;3715345

LRBLDR    ;;15121433

LRBLDR1   ;;7668103

LRBLDRR   ;;16370364

LRBLDRR1  ;;15032705

LRBLDRR2  ;;3066287

LRBLDSC   ;;8397022

LRBLDT    ;;13239896

LRBLDTA   ;;2604164

LRBLDUC   ;;4698546

LRBLDW    ;;5918756

LRBLDX    ;;4935632

LRBLFIX   ;;1289829

LRBLJ     ;;984549

LRBLJA    ;;10779194

LRBLJA1   ;;6301480

LRBLJB    ;;9637545

LRBLJC    ;;9275638

LRBLJCK   ;;9133133

LRBLJD    ;;13165494

LRBLJD1   ;;13899699

LRBLJDA   ;;10972758

LRBLJDM   ;;11207222

LRBLJDP   ;;9084280

LRBLJED   ;;13071752

LRBLJI    ;;8199613

LRBLJL    ;;17014884

LRBLJL1   ;;8687646

LRBLJLA   ;;9051165

LRBLJLG   ;;15685077

LRBLJLG1  ;;11427027

LRBLJM    ;;6502625

LRBLJM1   ;;8953366

LRBLJP    ;;5290456

LRBLJPA   ;;5587022

LRBLJPA1  ;;16327603

LRBLJPA2  ;;10519413

LRBLJPH   ;;6292279

LRBLJPP   ;;12819280

LRBLJPP1  ;;6500529

LRBLJR    ;;8082545

LRBLJRB   ;;10184614

LRBLJSH   ;;10420740

LRBLJT    ;;9138951

LRBLJTS   ;;3989459

LRBLJTS1  ;;8904419

LRBLJTS2  ;;8577037

LRBLJU    ;;5981259

LRBLJU1   ;;6735669

LRBLJUT   ;;5844963

LRBLJW    ;;10073924

LRBLJX    ;;5755281

LRBLP     ;;17385811

LRBLPA    ;;5230196

LRBLPAB   ;;3921486

LRBLPB    ;;1128898

LRBLPBR   ;;9231407

LRBLPBR1  ;;15470435

LRBLPC    ;;15671667

LRBLPC1   ;;7192443

LRBLPCS   ;;12068405

LRBLPCS1  ;;9887619

LRBLPCSS  ;;9974761

LRBLPD    ;;11082733

LRBLPD1   ;;10107862

LRBLPE    ;;11575871

LRBLPE1   ;;7387090

LRBLPED   ;;14607261

LRBLPED1  ;;9696043

LRBLPED2  ;;3426586

LRBLPEW   ;;14855298

LRBLPH    ;;3897023

LRBLPIT   ;;7051836

LRBLPOST  ;;1810321

LRBLPP    ;;1084680

LRBLPQA   ;;8810766

LRBLPR    ;;6345892

LRBLPR1   ;;12731130

LRBLPRA   ;;5693589

LRBLPT    ;;8846509

LRBLPT1   ;;11224251

LRBLPTR   ;;11758227

LRBLPTR1  ;;10126100

LRBLPUS   ;;10288915

LRBLPUS1  ;;7988890

LRBLPUS2  ;;10276414

LRBLPX    ;;15329379

LRBLPX1   ;;11550716

LRBLQPR   ;;5571599

LRBLQST   ;;6415500

LRBLRCT   ;;9833422

LRBLS     ;;10888668

LRBLSET   ;;2877561

LRBLSSN   ;;3897804

LRBLST    ;;3535761

LRBLSTR   ;;3249276

LRBLSUM   ;;1987283

LRBLTA    ;;6903899

LRBLTA1   ;;4221860

LRBLTX    ;;13956029

LRBLTXA   ;;11752893

LRBLU     ;;16142329

LRBLUL    ;;1134633

LRBLVAL   ;;715004

LRBLW     ;;4545909

LRBLWD    ;;4923072

LRBLWDS   ;;8168141

LRBLXREF  ;;269112

LRBLY     ;;3089131

LRCAP64   ;;9254789

LRCAP67   ;;7903112