APSPNTEG.m

APSPNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070531.093001

 ;;0.0;

 ;;7.3;3070531.093001

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

APSPDIR ;;11599806

APSPEC05 ;;3836775

APSPFNC2 ;;7757680

APSPFUNC ;;5481105

APSPNE4 ;;23560321

APSPPCC1 ;;5640816

APSPPCCV ;;9161401

APSPPOSH ;;989877

APSQPINS ;;2975193

APSQSIGN ;;8483568

PSBMLLKU ;;18271810

PSBOHDR ;;7216150

PSBOMH2 ;;10386928

PSBOML ;;10563532

PSBOMM ;;21879657

PSBOVT ;;706858

PSBOWA ;;14535171

PSBRPC ;;18994530

PSBSVHL7 ;;16341797

PSBVDLPA ;;5916736

PSBVITFL ;;4140396

PSGOETO ;;18874979

PSOBBC ;;22663544

PSOBINGO ;;30292198

PSOCAN3 ;;30029256

PSOCAN4 ;;21965696

PSOCP ;;19907225

PSODIR1 ;;32234709

PSODIR2 ;;10818979

PSODRG ;;11430899

PSODSPL ;;11552219

PSOFSIG ;;25435508

PSOHCSUM ;;13620940

PSOHLSN1 ;;31037568

PSOLLL1 ;;22793156

PSOLLLI ;;27751826

PSOLMUTL ;;3695810

PSOMGCM1 ;;20424154

PSON52 ;;23525965

PSONEW2 ;;15255100

PSOORDRG ;;17774287

PSOORED1 ;;26802347

PSOORED2 ;;27382623

PSOORED5 ;;23520500

PSOORED6 ;;21860019

PSOORFI1 ;;39021004

PSOORFI2 ;;35491389

PSOORFI3 ;;38332764

PSOORNE1 ;;28446523

PSOORNE3 ;;46190004

PSOORNEW ;;37053281

PSOORNW2 ;;23259398

PSOORRL ;;28672258

PSOORUT1 ;;29316971

PSOORUT2 ;;16677238

PSOORUTL ;;21806539

PSOPTPST ;;18295611

PSOR52 ;;10901546

PSOREF0 ;;17830416

PSORENW1 ;;24502311

PSORENW4 ;;27980145

PSORN52 ;;29412464

PSORXED ;;28880907

PSORXVW2 ;;17238160

PSOSD1 ;;26749098

PSOSD2 ;;17827177

PSOSD3 ;;21307946

PSOSDP ;;18699539

APSPNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3070531.093001

 +1       ;;0.0;

 +2       ;;7.3;3070531.093001

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

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

APSPDIR   ;;11599806

APSPEC05  ;;3836775

APSPFNC2  ;;7757680

APSPFUNC  ;;5481105

APSPNE4   ;;23560321

APSPPCC1  ;;5640816

APSPPCCV  ;;9161401

APSPPOSH  ;;989877

APSQPINS  ;;2975193

APSQSIGN  ;;8483568

PSBMLLKU  ;;18271810

PSBOHDR   ;;7216150

PSBOMH2   ;;10386928

PSBOML    ;;10563532

PSBOMM    ;;21879657

PSBOVT    ;;706858

PSBOWA    ;;14535171

PSBRPC    ;;18994530

PSBSVHL7  ;;16341797

PSBVDLPA  ;;5916736

PSBVITFL  ;;4140396

PSGOETO   ;;18874979

PSOBBC    ;;22663544

PSOBINGO  ;;30292198

PSOCAN3   ;;30029256

PSOCAN4   ;;21965696

PSOCP     ;;19907225

PSODIR1   ;;32234709

PSODIR2   ;;10818979

PSODRG    ;;11430899

PSODSPL   ;;11552219

PSOFSIG   ;;25435508

PSOHCSUM  ;;13620940

PSOHLSN1  ;;31037568

PSOLLL1   ;;22793156

PSOLLLI   ;;27751826

PSOLMUTL  ;;3695810

PSOMGCM1  ;;20424154

PSON52    ;;23525965

PSONEW2   ;;15255100

PSOORDRG  ;;17774287

PSOORED1  ;;26802347

PSOORED2  ;;27382623

PSOORED5  ;;23520500

PSOORED6  ;;21860019

PSOORFI1  ;;39021004

PSOORFI2  ;;35491389

PSOORFI3  ;;38332764

PSOORNE1  ;;28446523

PSOORNE3  ;;46190004

PSOORNEW  ;;37053281

PSOORNW2  ;;23259398

PSOORRL   ;;28672258

PSOORUT1  ;;29316971

PSOORUT2  ;;16677238

PSOORUTL  ;;21806539

PSOPTPST  ;;18295611

PSOR52    ;;10901546

PSOREF0   ;;17830416

PSORENW1  ;;24502311

PSORENW4  ;;27980145

PSORN52   ;;29412464

PSORXED   ;;28880907

PSORXVW2  ;;17238160

PSOSD1    ;;26749098

PSOSD2    ;;17827177

PSOSD3    ;;21307946

PSOSDP    ;;18699539