LRNTEG01.m

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

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

BLRSLTLR ;;8877459

BLRSPRPT ;;21631090

BLRSPRSE ;;2169492

BLRSQUE ;;450264

BLRTEMP ;;4571885

BLRTN ;;64920482

BLRTN1 ;;4960106

BLRTNA ;;17252070

BLRTNB ;;16695234

BLRTNM ;;30659901

BLRTNM1 ;;13108179

BLRTNORD ;;12708941

BLRUTIL ;;25347736

BLRUTIL2 ;;9921537

LA1103 ;;2854308

LA23 ;;3839516

LA27 ;;13160437

LA40 ;;2573057

LA42 ;;2468319

LA44 ;;2463527

LA47 ;;2222265

LA7ADL ;;5237792

LA7ADL1 ;;5133559

LA7ADL2 ;;4822910

LA7ADLS ;;3687428

LA7CHKF ;;11028299

LA7CHKFP ;;4137834

LA7DEDT ;;5836716

LA7DLOC ;;553499

LA7DVC ;;7449294

LA7DVEXT ;;5618546

LA7DVM ;;7061863

LA7HL7 ;;3532643

LA7HLP ;;2959766

LA7IN001 ;;3576608

LA7IN002 ;;7349032

LA7IN003 ;;10789665

LA7IN004 ;;11068042

LA7IN005 ;;11446798

LA7IN006 ;;10471699

LA7IN007 ;;11212983

LA7IN008 ;;9422353

LA7IN009 ;;12193337

LA7IN00A ;;9663853

LA7IN00B ;;8613047

LA7IN00C ;;11170639

LA7IN00D ;;8179390

LA7IN00E ;;1129304

LA7IN00F ;;8939524

LA7IN00G ;;8447417

LA7IN00H ;;3169579

LA7IN00I ;;11837856

LA7IN00J ;;6650264

LA7IN00K ;;2380055

LA7IN00L ;;7051586

LA7IN00M ;;15463352

LA7IN00N ;;13180750

LA7IN00O ;;12679445

LA7IN00P ;;9031274

LA7IN00Q ;;8832803

LA7IN00R ;;8853960

LA7IN00S ;;9274026

LA7IN00T ;;7383646

LA7IN00U ;;9929607

LA7IN00V ;;7810083

LA7IN00W ;;8656496

LA7IN00X ;;8368063

LA7IN00Y ;;8050570

LA7IN00Z ;;6213705

LA7IN010 ;;1122099

LA7INIS ;;2208562

LA7INIT ;;10276237

LA7INIT1 ;;4913507

LA7INIT2 ;;5278212

LA7INIT3 ;;16851444

LA7INIT4 ;;3403384

LA7INIT5 ;;1000544

LA7LOG ;;9009311

LA7NTEG ;;3388163

LA7POST ;;2029950

LA7PURG ;;3834284

LA7QRY ;;1084520

LA7QRY1 ;;3555910

LA7QRY2 ;;4552927

LA7SBC ;;1531663

LA7SBCR ;;653666

LA7SBCR1 ;;4924406

LA7SBCR2 ;;2564479

LA7SBCR3 ;;615485

LA7SCE ;;11501726

LA7SM ;;10277989

LA7SM1 ;;8587872

LA7SM2 ;;12143125

LA7SMB ;;14649107

LA7SMP ;;11746903

LA7SMP0 ;;9303222

LA7SMPXL ;;3215234

LA7SMU ;;7104257

LA7SMU1 ;;6300206

LA7SMU2 ;;5290542

LA7SRR ;;6233015

LA7SSR ;;3331715

LA7SUTL ;;2887231

LA7UID ;;2071504

LA7UID1 ;;2775829

LA7UID2 ;;8650640

LA7UIIN ;;3440168

LA7UIIN1 ;;5541384

LA7UIIN2 ;;12296505

LA7UTIL ;;5774470

LA7UTILA ;;10237097

LA7UXQA ;;7260762

LA7VHL ;;4568355

LA7VHLU ;;4487468

LA7VHLU1 ;;2323481

LA7VHLU2 ;;4100825

LA7VHLU3 ;;2007360

LA7VHLU4 ;;5424804

LA7VHLU5 ;;5541950

LA7VIN ;;1398763

LA7VIN1 ;;5261630

LA7VIN2 ;;5808892

LA7VIN3 ;;2061956

LA7VIN4 ;;7936019

LA7VIN5 ;;5205707

LA7VIN5A ;;5039195

LA7VLL ;;5170411

LA7VMSG ;;3253314

LA7VMSG1 ;;8305079

LA7VOBR ;;2129056

LA7VOBRA ;;5326634

LA7VOBX ;;2088674

LA7VOBX1 ;;4057776

LA7VOBX2 ;;4350324

LA7VOBX3 ;;5240738

LA7VOBXA ;;6232009

LA7VORC ;;1565653

LA7VORM ;;6471896

LA7VORM1 ;;7594289

LA7VORM2 ;;3426954

LA7VORM3 ;;6787219

LA7VORR1 ;;11081469

LA7VORU ;;6241961

LA7VORU1 ;;4734718

LA7VORU2 ;;1962290

LA7VORUA ;;2199285

LA7VPID ;;4123683

LA7VSET ;;15979413

LA7VSET1 ;;9065449

LA7VSTP ;;6079680

LA7VSTP1 ;;3317926

LAABL3 ;;2079151

LAABL500 ;;2246283

LAACA ;;2691272

LAACA4 ;;2338091

LAAIMX ;;2734120

LAALTA ;;2299725

LAASTRA ;;2655973

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

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

BLRSLTLR  ;;8877459

BLRSPRPT  ;;21631090

BLRSPRSE  ;;2169492

BLRSQUE   ;;450264

BLRTEMP   ;;4571885

BLRTN     ;;64920482

BLRTN1    ;;4960106

BLRTNA    ;;17252070

BLRTNB    ;;16695234

BLRTNM    ;;30659901

BLRTNM1   ;;13108179

BLRTNORD  ;;12708941

BLRUTIL   ;;25347736

BLRUTIL2  ;;9921537

LA1103    ;;2854308

LA23      ;;3839516

LA27      ;;13160437

LA40      ;;2573057

LA42      ;;2468319

LA44      ;;2463527

LA47      ;;2222265

LA7ADL    ;;5237792

LA7ADL1   ;;5133559

LA7ADL2   ;;4822910

LA7ADLS   ;;3687428

LA7CHKF   ;;11028299

LA7CHKFP  ;;4137834

LA7DEDT   ;;5836716

LA7DLOC   ;;553499

LA7DVC    ;;7449294

LA7DVEXT  ;;5618546

LA7DVM    ;;7061863

LA7HL7    ;;3532643

LA7HLP    ;;2959766

LA7IN001  ;;3576608

LA7IN002  ;;7349032

LA7IN003  ;;10789665

LA7IN004  ;;11068042

LA7IN005  ;;11446798

LA7IN006  ;;10471699

LA7IN007  ;;11212983

LA7IN008  ;;9422353

LA7IN009  ;;12193337

LA7IN00A  ;;9663853

LA7IN00B  ;;8613047

LA7IN00C  ;;11170639

LA7IN00D  ;;8179390

LA7IN00E  ;;1129304

LA7IN00F  ;;8939524

LA7IN00G  ;;8447417

LA7IN00H  ;;3169579

LA7IN00I  ;;11837856

LA7IN00J  ;;6650264

LA7IN00K  ;;2380055

LA7IN00L  ;;7051586

LA7IN00M  ;;15463352

LA7IN00N  ;;13180750

LA7IN00O  ;;12679445

LA7IN00P  ;;9031274

LA7IN00Q  ;;8832803

LA7IN00R  ;;8853960

LA7IN00S  ;;9274026

LA7IN00T  ;;7383646

LA7IN00U  ;;9929607

LA7IN00V  ;;7810083

LA7IN00W  ;;8656496

LA7IN00X  ;;8368063

LA7IN00Y  ;;8050570

LA7IN00Z  ;;6213705

LA7IN010  ;;1122099

LA7INIS   ;;2208562

LA7INIT   ;;10276237

LA7INIT1  ;;4913507

LA7INIT2  ;;5278212

LA7INIT3  ;;16851444

LA7INIT4  ;;3403384

LA7INIT5  ;;1000544

LA7LOG    ;;9009311

LA7NTEG   ;;3388163

LA7POST   ;;2029950

LA7PURG   ;;3834284

LA7QRY    ;;1084520

LA7QRY1   ;;3555910

LA7QRY2   ;;4552927

LA7SBC    ;;1531663

LA7SBCR   ;;653666

LA7SBCR1  ;;4924406

LA7SBCR2  ;;2564479

LA7SBCR3  ;;615485

LA7SCE    ;;11501726

LA7SM     ;;10277989

LA7SM1    ;;8587872

LA7SM2    ;;12143125

LA7SMB    ;;14649107

LA7SMP    ;;11746903

LA7SMP0   ;;9303222

LA7SMPXL  ;;3215234

LA7SMU    ;;7104257

LA7SMU1   ;;6300206

LA7SMU2   ;;5290542

LA7SRR    ;;6233015

LA7SSR    ;;3331715

LA7SUTL   ;;2887231

LA7UID    ;;2071504

LA7UID1   ;;2775829

LA7UID2   ;;8650640

LA7UIIN   ;;3440168

LA7UIIN1  ;;5541384

LA7UIIN2  ;;12296505

LA7UTIL   ;;5774470

LA7UTILA  ;;10237097

LA7UXQA   ;;7260762

LA7VHL    ;;4568355

LA7VHLU   ;;4487468

LA7VHLU1  ;;2323481

LA7VHLU2  ;;4100825

LA7VHLU3  ;;2007360

LA7VHLU4  ;;5424804

LA7VHLU5  ;;5541950

LA7VIN    ;;1398763

LA7VIN1   ;;5261630

LA7VIN2   ;;5808892

LA7VIN3   ;;2061956

LA7VIN4   ;;7936019

LA7VIN5   ;;5205707

LA7VIN5A  ;;5039195

LA7VLL    ;;5170411

LA7VMSG   ;;3253314

LA7VMSG1  ;;8305079

LA7VOBR   ;;2129056

LA7VOBRA  ;;5326634

LA7VOBX   ;;2088674

LA7VOBX1  ;;4057776

LA7VOBX2  ;;4350324

LA7VOBX3  ;;5240738

LA7VOBXA  ;;6232009

LA7VORC   ;;1565653

LA7VORM   ;;6471896

LA7VORM1  ;;7594289

LA7VORM2  ;;3426954

LA7VORM3  ;;6787219

LA7VORR1  ;;11081469

LA7VORU   ;;6241961

LA7VORU1  ;;4734718

LA7VORU2  ;;1962290

LA7VORUA  ;;2199285

LA7VPID   ;;4123683

LA7VSET   ;;15979413

LA7VSET1  ;;9065449

LA7VSTP   ;;6079680

LA7VSTP1  ;;3317926

LAABL3    ;;2079151

LAABL500  ;;2246283

LAACA     ;;2691272

LAACA4    ;;2338091

LAAIMX    ;;2734120

LAALTA    ;;2299725

LAASTRA   ;;2655973