LRNTEG02.m

LRNTEG02 ;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^LRNTEG03

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

LAB ;;4469282

LABALARM ;;1725902

LABCX4B ;;4969683

LABCX4H ;;2877182

LABCX4I ;;1758045

LABCX4XX ;;9720435

LABCX7E ;;4922215

LABCX7I ;;2328397

LABCX7L ;;5360559

LABCX7P ;;1155050

LABCX7R ;;1165947

LABCX7S ;;2874373

LABCX7U ;;6038458

LABCX7XX ;;13527904

LABERR ;;6723757

LABERRP ;;8941185

LABINIT ;;1305627

LABIOH ;;3438860

LABIOU ;;2985417

LABITKU ;;2892401

LABL330 ;;1793802

LABMD87P ;;2246662

LABTEST ;;5684456

LABTST ;;1286364

LAC178 ;;1611778

LAC178HP ;;1924152

LACBIO ;;2219151

LACCHEM6 ;;2168098

LACD1600 ;;2664450

LACD3500 ;;3857820

LACEL8E ;;2335316

LACFARA ;;2989623

LACHEM1 ;;2788689

LACL5500 ;;1611068

LACLNTE ;;1623976

LACLNTEK ;;1744336

LACLT200 ;;1623074

LACLT20P ;;1550815

LACMIRA ;;3382137

LACMIRAS ;;3383186

LACOAGX2 ;;5743346

LACOARA4 ;;2022293

LACOLT ;;2617037

LACOLT1 ;;2725487

LACOLT2 ;;2907579

LACOLT24 ;;1873788

LACOLT3 ;;2235147

LACOLT5 ;;2394892

LACOLT6 ;;2327875

LACOLTSE ;;2501860

LACOLTSS ;;2786625

LACRIT ;;1807623

LACTDMS ;;1536603

LADACOS ;;2237707

LADEKT7B ;;5038304

LADIMD ;;6174501

LADIMPI ;;1476347

LADIMPXX ;;8097203

LADJOB ;;8831351

LADKERM2 ;;1797259

LADKERM3 ;;3050054

LADKERMI ;;6082711

LADMND ;;3143752

LADOWN ;;5592262

LADOWN1 ;;814617

LAE4A ;;2319660

LAEKT4 ;;2279169

LAEKT7 ;;3265447

LAEKT7B ;;4963523

LAEKT7D ;;5312143

LAEKT7P ;;1779980

LAELT ;;1478307

LAELT8D ;;2030247

LAEPXD ;;6755716

LAEPXPXX ;;3014114

LAERA ;;2134815

LAEXEC ;;2453228

LAFARA2 ;;2053264

LAFUNC ;;8173189

LAGEN ;;8522786

LAH1 ;;1962582

LAH480 ;;1938995

LAH6K ;;1686444

LAH705 ;;2345162

LAH717D ;;3562094

LAH717H ;;1479212

LAH717U ;;3121048

LAH737 ;;2174243

LAH747 ;;4463969

LAHLOG ;;2130577

LAHT1K ;;3437782

LAHT1KD ;;4253188

LAHTCCA ;;3384890

LAHTCCAH ;;1517040

LAHTRK ;;5043240

LAHWATCH ;;9468150

LAIL13 ;;1698826

LAIL1306 ;;1726747

LAIL1312 ;;3761758

LAIL508 ;;2544818

LAIL943 ;;2282295

LAINI001 ;;10779076

LAINI002 ;;11041048

LAINI003 ;;11424380

LAINI004 ;;10435916

LAINI005 ;;11177200

LAINI006 ;;9336904

LAINI007 ;;11944817

LAINI008 ;;9411982

LAINI009 ;;8477060

LAINI00A ;;7578675

LAINI00B ;;11543419

LAINI00C ;;3069776

LAINI00D ;;781128

LAINI00E ;;7443974

LAINI00F ;;9948059

LAINI00G ;;10390033

LAINI00H ;;10411510

LAINI00I ;;8098898

LAINI00J ;;7041548

LAINI00K ;;4293175

LAINI00L ;;5759984

LAINI00M ;;6368633

LAINI00N ;;6239812

LAINIS ;;2127607

LAINIT ;;10463604

LAINIT1 ;;4867433

LAINIT2 ;;5232043

LAINIT3 ;;16801779

LAINIT4 ;;3357213

LAINIT5 ;;480125

LAIPOST ;;71705

LAIPRE ;;1068374

LAIRIS ;;3758674

LAJOB ;;9292248

LAJOB1 ;;1625663

LAKDA ;;1580934

LAKDIFF ;;7244730

LAKDIFF1 ;;5795474

LAKDIFF2 ;;2778086

LAKDIFF3 ;;1615579

LAKERM2 ;;1951909

LAKERM3 ;;3319597

LAKERMIT ;;7002832

LAKOAG40 ;;2939970

LAKUR ;;9604316

LAKUR1 ;;9931048

LAL13 ;;1510885

LAL1306 ;;1538704

LAL1312 ;;3573718

LAL508 ;;2356820

LAL943 ;;2094294

LALBG3 ;;2320932

LAMIAUT0 ;;16889735

LAMIAUT1 ;;10561766

LAMIAUT2 ;;8812742

LAMIAUT3 ;;10843165

LAMIAUT4 ;;12393001

LAMIAUT5 ;;3774247

LAMIAUT6 ;;10787231

LRNTEG02  ;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^LRNTEG03

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

LAB       ;;4469282

LABALARM  ;;1725902

LABCX4B   ;;4969683

LABCX4H   ;;2877182

LABCX4I   ;;1758045

LABCX4XX  ;;9720435

LABCX7E   ;;4922215

LABCX7I   ;;2328397

LABCX7L   ;;5360559

LABCX7P   ;;1155050

LABCX7R   ;;1165947

LABCX7S   ;;2874373

LABCX7U   ;;6038458

LABCX7XX  ;;13527904

LABERR    ;;6723757

LABERRP   ;;8941185

LABINIT   ;;1305627

LABIOH    ;;3438860

LABIOU    ;;2985417

LABITKU   ;;2892401

LABL330   ;;1793802

LABMD87P  ;;2246662

LABTEST   ;;5684456

LABTST    ;;1286364

LAC178    ;;1611778

LAC178HP  ;;1924152

LACBIO    ;;2219151

LACCHEM6  ;;2168098

LACD1600  ;;2664450

LACD3500  ;;3857820

LACEL8E   ;;2335316

LACFARA   ;;2989623

LACHEM1   ;;2788689

LACL5500  ;;1611068

LACLNTE   ;;1623976

LACLNTEK  ;;1744336

LACLT200  ;;1623074

LACLT20P  ;;1550815

LACMIRA   ;;3382137

LACMIRAS  ;;3383186

LACOAGX2  ;;5743346

LACOARA4  ;;2022293

LACOLT    ;;2617037

LACOLT1   ;;2725487

LACOLT2   ;;2907579

LACOLT24  ;;1873788

LACOLT3   ;;2235147

LACOLT5   ;;2394892

LACOLT6   ;;2327875

LACOLTSE  ;;2501860

LACOLTSS  ;;2786625

LACRIT    ;;1807623

LACTDMS   ;;1536603

LADACOS   ;;2237707

LADEKT7B  ;;5038304

LADIMD    ;;6174501

LADIMPI   ;;1476347

LADIMPXX  ;;8097203

LADJOB    ;;8831351

LADKERM2  ;;1797259

LADKERM3  ;;3050054

LADKERMI  ;;6082711

LADMND    ;;3143752

LADOWN    ;;5592262

LADOWN1   ;;814617

LAE4A     ;;2319660

LAEKT4    ;;2279169

LAEKT7    ;;3265447

LAEKT7B   ;;4963523

LAEKT7D   ;;5312143

LAEKT7P   ;;1779980

LAELT     ;;1478307

LAELT8D   ;;2030247

LAEPXD    ;;6755716

LAEPXPXX  ;;3014114

LAERA     ;;2134815

LAEXEC    ;;2453228

LAFARA2   ;;2053264

LAFUNC    ;;8173189

LAGEN     ;;8522786

LAH1      ;;1962582

LAH480    ;;1938995

LAH6K     ;;1686444

LAH705    ;;2345162

LAH717D   ;;3562094

LAH717H   ;;1479212

LAH717U   ;;3121048

LAH737    ;;2174243

LAH747    ;;4463969

LAHLOG    ;;2130577

LAHT1K    ;;3437782

LAHT1KD   ;;4253188

LAHTCCA   ;;3384890

LAHTCCAH  ;;1517040

LAHTRK    ;;5043240

LAHWATCH  ;;9468150

LAIL13    ;;1698826

LAIL1306  ;;1726747

LAIL1312  ;;3761758

LAIL508   ;;2544818

LAIL943   ;;2282295

LAINI001  ;;10779076

LAINI002  ;;11041048

LAINI003  ;;11424380

LAINI004  ;;10435916

LAINI005  ;;11177200

LAINI006  ;;9336904

LAINI007  ;;11944817

LAINI008  ;;9411982

LAINI009  ;;8477060

LAINI00A  ;;7578675

LAINI00B  ;;11543419

LAINI00C  ;;3069776

LAINI00D  ;;781128

LAINI00E  ;;7443974

LAINI00F  ;;9948059

LAINI00G  ;;10390033

LAINI00H  ;;10411510

LAINI00I  ;;8098898

LAINI00J  ;;7041548

LAINI00K  ;;4293175

LAINI00L  ;;5759984

LAINI00M  ;;6368633

LAINI00N  ;;6239812

LAINIS    ;;2127607

LAINIT    ;;10463604

LAINIT1   ;;4867433

LAINIT2   ;;5232043

LAINIT3   ;;16801779

LAINIT4   ;;3357213

LAINIT5   ;;480125

LAIPOST   ;;71705

LAIPRE    ;;1068374

LAIRIS    ;;3758674

LAJOB     ;;9292248

LAJOB1    ;;1625663

LAKDA     ;;1580934

LAKDIFF   ;;7244730

LAKDIFF1  ;;5795474

LAKDIFF2  ;;2778086

LAKDIFF3  ;;1615579

LAKERM2   ;;1951909

LAKERM3   ;;3319597

LAKERMIT  ;;7002832

LAKOAG40  ;;2939970

LAKUR     ;;9604316

LAKUR1    ;;9931048

LAL13     ;;1510885

LAL1306   ;;1538704

LAL1312   ;;3573718

LAL508    ;;2356820

LAL943    ;;2094294

LALBG3    ;;2320932

LAMIAUT0  ;;16889735

LAMIAUT1  ;;10561766

LAMIAUT2  ;;8812742

LAMIAUT3  ;;10843165

LAMIAUT4  ;;12393001

LAMIAUT5  ;;3774247

LAMIAUT6  ;;10787231