PSJNTEG0.m

PSJNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955

 ;;0.0;

 ;;7.3;2971216.152955

 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^PSJNTEG1

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

PSGTCTD ;;6065289

PSGTCTD0 ;;8315839

PSGTI ;;6401473

PSGVBW ;;18130677

PSGVBW0 ;;15711004

PSGVBW1 ;;2577458

PSGVBWP ;;13781808

PSGVBWU ;;14654477

PSGVDS ;;7457905

PSGVW ;;13617950

PSGVW0 ;;4907591

PSGVWP ;;3618804

PSIV ;;9632222

PSIVACT ;;5206018

PSIVAL ;;7219660

PSIVALN ;;3733100

PSIVAMIS ;;13357019

PSIVAOR ;;15769366

PSIVAOR1 ;;4646774

PSIVCAL ;;13734655

PSIVCHK ;;11955268

PSIVCHK1 ;;10650255

PSIVCSED ;;4498107

PSIVDCR ;;15391673

PSIVDCR1 ;;15555679

PSIVDCR2 ;;10558819

PSIVDRG ;;8093131

PSIVEDRG ;;12165589

PSIVEDT ;;11834139

PSIVEDT1 ;;8513857

PSIVHIS ;;3341319

PSIVHLD ;;1849135

PSIVHLP ;;11111969

PSIVHLP1 ;;10706730

PSIVHLP2 ;;11000260

PSIVHLP3 ;;3588957

PSIVHYP ;;3653720

PSIVHYPL ;;15011059

PSIVLABL ;;12986653

PSIVLBDL ;;7062706

PSIVLBL1 ;;16294393

PSIVLTR ;;1848959

PSIVLTR1 ;;4469996

PSIVMAN ;;11277462

PSIVMAN1 ;;13852085

PSIVOE ;;4165977

PSIVOPT ;;10674345

PSIVOPT1 ;;10501516

PSIVOPT2 ;;12232659

PSIVORA ;;13128297

PSIVORA1 ;;11240725

PSIVORAL ;;9610524

PSIVORC ;;10141585

PSIVORC1 ;;14586162

PSIVORC2 ;;13696024

PSIVORE ;;14225817

PSIVORE1 ;;14892529

PSIVORE2 ;;7806596

PSIVOREN ;;11929114

PSIVORFA ;;11673391

PSIVORFB ;;11186136

PSIVORFE ;;7975789

PSIVORH ;;4076816

PSIVORLB ;;9232616

PSIVORV1 ;;11935581

PSIVORV2 ;;6852622

PSIVPAT ;;7058627

PSIVPCR ;;12828965

PSIVPCR1 ;;3217504

PSIVPGE ;;16101277

PSIVPR ;;11856703

PSIVPRO ;;10241971

PSIVQUI ;;7058626

PSIVRD ;;12883074

PSIVREC ;;4540790

PSIVRNL ;;17941560

PSIVRP ;;19368402

PSIVRP1 ;;9529006

PSIVRQ ;;11580483

PSIVRQ1 ;;14193047

PSIVSET ;;11971611

PSIVSP ;;11493491

PSIVSPDC ;;4523227

PSIVST2 ;;10812968

PSIVSTAT ;;11185386

PSIVSUS ;;20540089

PSIVSUS1 ;;9233493

PSIVUDL ;;12893010

PSIVUTL ;;7154813

PSIVUTL1 ;;7128902

PSIVUWL ;;9325172

PSIVVW1 ;;8162548

PSIVWCR ;;12737296

PSIVWCR1 ;;2836925

PSIVWL ;;15985042

PSIVWL1 ;;15920427

PSIVWRP ;;14216186

PSIVXREF ;;672248

PSIVXU ;;2636747

PSJ200 ;;11883362

PSJAC ;;8790985

PSJADT ;;14320096

PSJADT0 ;;17469396

PSJADT1 ;;3886524

PSJALG ;;4878413

PSJDCHK ;;11850014

PSJDDUT ;;16989030

PSJDDUT2 ;;12090780

PSJDDUT3 ;;4798877

PSJDEA ;;4418374

PSJDGAL ;;2657545

PSJEEU ;;5082000

PSJEEU0 ;;11810342

PSJEXP ;;22569862

PSJEXP0 ;;17975167

PSJFL ;;7929486

PSJFL1 ;;4540012

PSJH1 ;;9462313

PSJHEAD ;;15526491

PSJHIS ;;4373003

PSJHL2 ;;8978069

PSJHL3 ;;13294105

PSJHL4 ;;21181671

PSJHL5 ;;6805998

PSJHL6 ;;10385690

PSJHL7 ;;15568482

PSJHL9 ;;11661940

PSJHLERR ;;2035077

PSJHLU ;;4443407

PSJHVARS ;;7325044

PSJIENV ;;712925

PSJIPRE ;;4561152

PSJIPST ;;9594885

PSJIPST1 ;;14509257

PSJIPST2 ;;9596551

PSJIPST3 ;;17764021

PSJIPSTA ;;6270357

PSJLIACT ;;2257018

PSJLIFN ;;4534897

PSJLIFNI ;;1742255

PSJLIORD ;;999487

PSJLIPRF ;;653170

PSJLIUTL ;;6126958

PSJLIVFD ;;5508085

PSJLIVMD ;;5160354

PSJLMAL ;;98929

PSJLMDA ;;178896

PSJLMGUD ;;17316547

PSJLMHED ;;9814074

PSJLMPRI ;;6611303

PSJLMPRU ;;5945946

PSJLMUDE ;;19967093

PSJLMUT1 ;;17706585

PSJLMUTL ;;10117738

PSJLOI ;;863278

PSJMDIR ;;15822387

PSJNTEG0  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955

 +1       ;;0.0;

 +2       ;;7.3;2971216.152955

 +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^PSJNTEG1

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

PSGTCTD   ;;6065289

PSGTCTD0  ;;8315839

PSGTI     ;;6401473

PSGVBW    ;;18130677

PSGVBW0   ;;15711004

PSGVBW1   ;;2577458

PSGVBWP   ;;13781808

PSGVBWU   ;;14654477

PSGVDS    ;;7457905

PSGVW     ;;13617950

PSGVW0    ;;4907591

PSGVWP    ;;3618804

PSIV      ;;9632222

PSIVACT   ;;5206018

PSIVAL    ;;7219660

PSIVALN   ;;3733100

PSIVAMIS  ;;13357019

PSIVAOR   ;;15769366

PSIVAOR1  ;;4646774

PSIVCAL   ;;13734655

PSIVCHK   ;;11955268

PSIVCHK1  ;;10650255

PSIVCSED  ;;4498107

PSIVDCR   ;;15391673

PSIVDCR1  ;;15555679

PSIVDCR2  ;;10558819

PSIVDRG   ;;8093131

PSIVEDRG  ;;12165589

PSIVEDT   ;;11834139

PSIVEDT1  ;;8513857

PSIVHIS   ;;3341319

PSIVHLD   ;;1849135

PSIVHLP   ;;11111969

PSIVHLP1  ;;10706730

PSIVHLP2  ;;11000260

PSIVHLP3  ;;3588957

PSIVHYP   ;;3653720

PSIVHYPL  ;;15011059

PSIVLABL  ;;12986653

PSIVLBDL  ;;7062706

PSIVLBL1  ;;16294393

PSIVLTR   ;;1848959

PSIVLTR1  ;;4469996

PSIVMAN   ;;11277462

PSIVMAN1  ;;13852085

PSIVOE    ;;4165977

PSIVOPT   ;;10674345

PSIVOPT1  ;;10501516

PSIVOPT2  ;;12232659

PSIVORA   ;;13128297

PSIVORA1  ;;11240725

PSIVORAL  ;;9610524

PSIVORC   ;;10141585

PSIVORC1  ;;14586162

PSIVORC2  ;;13696024

PSIVORE   ;;14225817

PSIVORE1  ;;14892529

PSIVORE2  ;;7806596

PSIVOREN  ;;11929114

PSIVORFA  ;;11673391

PSIVORFB  ;;11186136

PSIVORFE  ;;7975789

PSIVORH   ;;4076816

PSIVORLB  ;;9232616

PSIVORV1  ;;11935581

PSIVORV2  ;;6852622

PSIVPAT   ;;7058627

PSIVPCR   ;;12828965

PSIVPCR1  ;;3217504

PSIVPGE   ;;16101277

PSIVPR    ;;11856703

PSIVPRO   ;;10241971

PSIVQUI   ;;7058626

PSIVRD    ;;12883074

PSIVREC   ;;4540790

PSIVRNL   ;;17941560

PSIVRP    ;;19368402

PSIVRP1   ;;9529006

PSIVRQ    ;;11580483

PSIVRQ1   ;;14193047

PSIVSET   ;;11971611

PSIVSP    ;;11493491

PSIVSPDC  ;;4523227

PSIVST2   ;;10812968

PSIVSTAT  ;;11185386

PSIVSUS   ;;20540089

PSIVSUS1  ;;9233493

PSIVUDL   ;;12893010

PSIVUTL   ;;7154813

PSIVUTL1  ;;7128902

PSIVUWL   ;;9325172

PSIVVW1   ;;8162548

PSIVWCR   ;;12737296

PSIVWCR1  ;;2836925

PSIVWL    ;;15985042

PSIVWL1   ;;15920427

PSIVWRP   ;;14216186

PSIVXREF  ;;672248

PSIVXU    ;;2636747

PSJ200    ;;11883362

PSJAC     ;;8790985

PSJADT    ;;14320096

PSJADT0   ;;17469396

PSJADT1   ;;3886524

PSJALG    ;;4878413

PSJDCHK   ;;11850014

PSJDDUT   ;;16989030

PSJDDUT2  ;;12090780

PSJDDUT3  ;;4798877

PSJDEA    ;;4418374

PSJDGAL   ;;2657545

PSJEEU    ;;5082000

PSJEEU0   ;;11810342

PSJEXP    ;;22569862

PSJEXP0   ;;17975167

PSJFL     ;;7929486

PSJFL1    ;;4540012

PSJH1     ;;9462313

PSJHEAD   ;;15526491

PSJHIS    ;;4373003

PSJHL2    ;;8978069

PSJHL3    ;;13294105

PSJHL4    ;;21181671

PSJHL5    ;;6805998

PSJHL6    ;;10385690

PSJHL7    ;;15568482

PSJHL9    ;;11661940

PSJHLERR  ;;2035077

PSJHLU    ;;4443407

PSJHVARS  ;;7325044

PSJIENV   ;;712925

PSJIPRE   ;;4561152

PSJIPST   ;;9594885

PSJIPST1  ;;14509257

PSJIPST2  ;;9596551

PSJIPST3  ;;17764021

PSJIPSTA  ;;6270357

PSJLIACT  ;;2257018

PSJLIFN   ;;4534897

PSJLIFNI  ;;1742255

PSJLIORD  ;;999487

PSJLIPRF  ;;653170

PSJLIUTL  ;;6126958

PSJLIVFD  ;;5508085

PSJLIVMD  ;;5160354

PSJLMAL   ;;98929

PSJLMDA   ;;178896

PSJLMGUD  ;;17316547

PSJLMHED  ;;9814074

PSJLMPRI  ;;6611303

PSJLMPRU  ;;5945946

PSJLMUDE  ;;19967093

PSJLMUT1  ;;17706585

PSJLMUTL  ;;10117738

PSJLOI    ;;863278

PSJMDIR   ;;15822387