LRNTEG010.m

LRNTEG010 ;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")

 ;

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

LRUPA2 ;;10974299

LRUPAC ;;5916352

LRUPACA ;;12631718

LRUPACS ;;9035294

LRUPACT ;;12694645

LRUPAD ;;7871989

LRUPAD1 ;;4528427

LRUPAD2 ;;7067273

LRUPQ ;;5210627

LRUPQ1 ;;6039670

LRUPS ;;4568582

LRUPT ;;9743055

LRUPUM ;;4445786

LRUQ ;;2119325

LRUR ;;5302269

LRURG ;;586092

LRUSE ;;1307386

LRUSET ;;1033259

LRUSNOM ;;1662713

LRUSP ;;3768482

LRUT ;;1514927

LRUTA ;;5428927

LRUTAD ;;10086342

LRUTELL ;;1641819

LRUTL ;;14457046

LRUTRAN ;;3763685

LRUTT ;;19604178

LRUTW ;;8071355

LRUU ;;1188950

LRUV ;;431835

LRUW ;;11539437

LRUWG ;;11756688

LRUWK ;;1447760

LRUWL ;;3154077

LRUWLF ;;5263437

LRVER ;;18461843

LRVER1 ;;8669095

LRVER2 ;;6863520

LRVER3 ;;15166790

LRVER3A ;;13461221

LRVER4 ;;20046038

LRVER5 ;;14625235

LRVERA ;;744899

LRVR ;;13559553

LRVR1 ;;11330807

LRVR2 ;;6537512

LRVR3 ;;11039819

LRVR4 ;;9099233

LRVR5 ;;12027340

LRVRA ;;6437835

LRVRKIL ;;5274435

LRVRW ;;8891709

LRWD ;;1690075

LRWLHEAD ;;1381769

LRWLST ;;18941194

LRWLST1 ;;19741330

LRWLST11 ;;21592713

LRWLST12 ;;6838938

LRWLST13 ;;7074253

LRWLST2 ;;4364617

LRWOMEN ;;1007918

LRWRKIN1 ;;13404466

LRWRKINC ;;22516225

LRWRKLS1 ;;4197920

LRWRKLST ;;6932333

LRWRKS ;;9153628

LRWRKS2 ;;6139479

LRWU ;;11454126

LRWU1 ;;4734062

LRWU2 ;;1628868

LRWU3 ;;9072042

LRWU4 ;;5888859

LRWU5 ;;12040949

LRWU6 ;;7690628

LRWU7 ;;8222184

LRX ;;18010668

LRX6 ;;16653774

LRX60 ;;9058290

LRX62P6 ;;8959259

LRX62P61 ;;20118481

LRX6PRO ;;3924585

LRXDRPT ;;3317856

LRXO0 ;;2620853

LRXO00 ;;10754525

LRXO1 ;;10777239

LRXO10 ;;3844331

LRXO11 ;;13242547

LRXO1A ;;11098397

LRXO2 ;;11310904

LRXO3 ;;6402916

LRXO4 ;;15721478

LRXO4A ;;6752921

LRXO4A00 ;;5124862

LRXO4B ;;912926

LRXO5 ;;18573594

LRXO6 ;;6537123

LRXO7 ;;5423594

LRXO8 ;;4046708

LRXO9 ;;9580900

LRXOS0 ;;2472447

LRXOS1 ;;3900750

LRXREF ;;9645318

LRXREF1 ;;7565632

LRZABG1 ;;8766128