LRNTEG0.m

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

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

LRAUDA ;;2234244

LRAUFIX ;;316002

LRAUL ;;10927481

LRAUMLK ;;4980671

LRAURPT ;;16385191

LRAURV ;;8143951

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

LRBLDK ;;4408781

LRBLDL ;;8027727

LRBLDL1 ;;1162721

LRBLDLG ;;19044672

LRBLDP ;;2025215

LRBLDPA ;;3813923

LRBLDPA1 ;;13875145

LRBLDPA2 ;;13988829

LRBLDPAW ;;3164806

LRBLDPH ;;10358285

LRBLDPK ;;7998460

LRBLDPL ;;3867229

LRBLDPT ;;9866269

LRBLDPT1 ;;3715345

LRBLDR ;;15121433

LRBLDR1 ;;7668103

LRBLDRR ;;15871256

LRBLDRR1 ;;14701889

LRBLDRR2 ;;3066287

LRBLDSC ;;8397022

LRBLDT ;;13117428

LRBLDTA ;;2604164

LRBLDUC ;;4698546

LRBLDW ;;5918756

LRBLDX ;;4935632

LRBLFIX ;;1289829

LRBLJ ;;984549

LRBLJA ;;10779194

LRBLJA1 ;;6301480

LRBLJB ;;9637545

LRBLJC ;;9275638

LRBLJCK ;;9133133

LRBLJD ;;13102215

LRBLJD1 ;;13655002

LRBLJDA ;;10951052

LRBLJDM ;;11207222

LRBLJDP ;;9084280

LRBLJED ;;13071752

LRBLJI ;;8199613

LRBLJL ;;16439081

LRBLJL1 ;;7275954

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

LRBLPCS1 ;;9661884

LRBLPCSS ;;9786071

LRBLPD ;;11082733

LRBLPD1 ;;10107862

LRBLPE ;;11555396

LRBLPE1 ;;7387090

LRBLPED ;;14607261

LRBLPED1 ;;9696043

LRBLPED2 ;;3426586

LRBLPEW ;;14855298

LRBLPH ;;3897023

LRBLPIT ;;7051836

LRBLPOST ;;1810321

LRBLPP ;;1084680

LRBLPQA ;;8810766

LRBLPR ;;6345892

LRBLPR1 ;;12719049

LRBLPRA ;;5693589

LRBLPT ;;8846509

LRBLPT1 ;;11224251

LRBLPTR ;;11758227

LRBLPTR1 ;;10126100

LRBLPUS ;;10288915

LRBLPUS1 ;;7988890

LRBLPUS2 ;;10276414

LRBLPX ;;14423115

LRBLPX1 ;;11550716

LRBLQPR ;;5571599

LRBLQST ;;6415500

LRBLRCT ;;9833422

LRBLS ;;10901031

LRBLSET ;;2877561

LRBLSSN ;;3897804

LRBLST ;;3535761

LRBLSTR ;;3249276

LRBLSUM ;;1987283

LRBLTA ;;6903899

LRBLTA1 ;;4221860

LRBLTX ;;13956029

LRBLTXA ;;11752893

LRBLU ;;16066234

LRBLUL ;;1134633

LRBLVAL ;;715004

LRBLW ;;4545909

LRBLWD ;;4923072

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---LRNTEG0   3789     printed  Feb 18, 2025@23:44:06                                                                                                                                                                                                     Page 2

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

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

LRAUDA    ;;2234244

LRAUFIX   ;;316002

LRAUL     ;;10927481

LRAUMLK   ;;4980671

LRAURPT   ;;16385191

LRAURV    ;;8143951

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

LRBLDK    ;;4408781

LRBLDL    ;;8027727

LRBLDL1   ;;1162721

LRBLDLG   ;;19044672

LRBLDP    ;;2025215

LRBLDPA   ;;3813923

LRBLDPA1  ;;13875145

LRBLDPA2  ;;13988829

LRBLDPAW  ;;3164806

LRBLDPH   ;;10358285

LRBLDPK   ;;7998460

LRBLDPL   ;;3867229

LRBLDPT   ;;9866269

LRBLDPT1  ;;3715345

LRBLDR    ;;15121433

LRBLDR1   ;;7668103

LRBLDRR   ;;15871256

LRBLDRR1  ;;14701889

LRBLDRR2  ;;3066287

LRBLDSC   ;;8397022

LRBLDT    ;;13117428

LRBLDTA   ;;2604164

LRBLDUC   ;;4698546

LRBLDW    ;;5918756

LRBLDX    ;;4935632

LRBLFIX   ;;1289829

LRBLJ     ;;984549

LRBLJA    ;;10779194

LRBLJA1   ;;6301480

LRBLJB    ;;9637545

LRBLJC    ;;9275638

LRBLJCK   ;;9133133

LRBLJD    ;;13102215

LRBLJD1   ;;13655002

LRBLJDA   ;;10951052

LRBLJDM   ;;11207222

LRBLJDP   ;;9084280

LRBLJED   ;;13071752

LRBLJI    ;;8199613

LRBLJL    ;;16439081

LRBLJL1   ;;7275954

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

LRBLPCS1  ;;9661884

LRBLPCSS  ;;9786071

LRBLPD    ;;11082733

LRBLPD1   ;;10107862

LRBLPE    ;;11555396

LRBLPE1   ;;7387090

LRBLPED   ;;14607261

LRBLPED1  ;;9696043

LRBLPED2  ;;3426586

LRBLPEW   ;;14855298

LRBLPH    ;;3897023

LRBLPIT   ;;7051836

LRBLPOST  ;;1810321

LRBLPP    ;;1084680

LRBLPQA   ;;8810766

LRBLPR    ;;6345892

LRBLPR1   ;;12719049

LRBLPRA   ;;5693589

LRBLPT    ;;8846509

LRBLPT1   ;;11224251

LRBLPTR   ;;11758227

LRBLPTR1  ;;10126100

LRBLPUS   ;;10288915

LRBLPUS1  ;;7988890

LRBLPUS2  ;;10276414

LRBLPX    ;;14423115

LRBLPX1   ;;11550716

LRBLQPR   ;;5571599

LRBLQST   ;;6415500

LRBLRCT   ;;9833422

LRBLS     ;;10901031

LRBLSET   ;;2877561

LRBLSSN   ;;3897804

LRBLST    ;;3535761

LRBLSTR   ;;3249276

LRBLSUM   ;;1987283

LRBLTA    ;;6903899

LRBLTA1   ;;4221860

LRBLTX    ;;13956029

LRBLTXA   ;;11752893

LRBLU     ;;16066234

LRBLUL    ;;1134633

LRBLVAL   ;;715004

LRBLW     ;;4545909

LRBLWD    ;;4923072