APSP1006.m

APSP1006 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3080519.181144

 ;;7.0;IHS PHARMACY MODIFICATIONS;;May 07,2008

 ;;7.3;3080519.181144

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

PSGL ;;15105088

PSOLLL4 ;;4420621

APSPDIR ;;12058576

PSORENW3 ;;23784705

PSONEW1 ;;11332433

PSONEW3 ;;7389781

APSPRRTS ;;12716541

APSPUTIL ;;2431222

APSPFNC2 ;;18138978

APSAWP11 ;;11312504

APSPFUNC ;;6240270

PSOLLL2 ;;8786839

PSON52 ;;23680420

PSOORCPY ;;15357635

PSOORFI1 ;;39645017

PSOORRNW ;;14962680

PSBRPC1 ;;5520330

APSPCTR ;;11935999

APSPPCCV ;;10462694

PSODRDUP ;;31574203

APSPFNC3 ;;14361640

PSONEW2 ;;15509067

PSOORNE3 ;;46896593

PSOLMUTL ;;4073191

PSOORUT2 ;;17343416

PSODSPL ;;11653918

PSOORUT1 ;;29663656

PSOPOLY ;;23549177

PSOPRF ;;19903704

PSOSD3 ;;21248264

APSPFNC1 ;;7971598

APSPLBL ;;29414223

PSOREF ;;35758020

PSORESK ;;32747714

PSOBUILD ;;21932212

PSODISP ;;26361521

PSODISPS ;;17446269

APSPAUTO ;;19685605

APSPPCC ;;10420138

PSOORFI2 ;;35604577

PSOR52 ;;11091291

PSOLLLI ;;27837137

PSOLLL1 ;;23118001

PSOHLNEW ;;35766991

PSBVITFL ;;4516516

APSPELRX ;;5980604

APSPPCC2 ;;1789398

APSQSHOW ;;7396679

PSOORED3 ;;22566931

PSBRPC ;;19100158

PSOUTL ;;26706928

APSQSIGN ;;8876910

PSOORNW1 ;;21206988

PSOCAN2 ;;28531657

PSIVSTAT ;;11325450

APSP1006  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;3080519.181144

 +1       ;;7.0;IHS PHARMACY MODIFICATIONS;;May 07,2008

 +2       ;;7.3;3080519.181144

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

PSGL      ;;15105088

PSOLLL4   ;;4420621

APSPDIR   ;;12058576

PSORENW3  ;;23784705

PSONEW1   ;;11332433

PSONEW3   ;;7389781

APSPRRTS  ;;12716541

APSPUTIL  ;;2431222

APSPFNC2  ;;18138978

APSAWP11  ;;11312504

APSPFUNC  ;;6240270

PSOLLL2   ;;8786839

PSON52    ;;23680420

PSOORCPY  ;;15357635

PSOORFI1  ;;39645017

PSOORRNW  ;;14962680

PSBRPC1   ;;5520330

APSPCTR   ;;11935999

APSPPCCV  ;;10462694

PSODRDUP  ;;31574203

APSPFNC3  ;;14361640

PSONEW2   ;;15509067

PSOORNE3  ;;46896593

PSOLMUTL  ;;4073191

PSOORUT2  ;;17343416

PSODSPL   ;;11653918

PSOORUT1  ;;29663656

PSOPOLY   ;;23549177

PSOPRF    ;;19903704

PSOSD3    ;;21248264

APSPFNC1  ;;7971598

APSPLBL   ;;29414223

PSOREF    ;;35758020

PSORESK   ;;32747714

PSOBUILD  ;;21932212

PSODISP   ;;26361521

PSODISPS  ;;17446269

APSPAUTO  ;;19685605

APSPPCC   ;;10420138

PSOORFI2  ;;35604577

PSOR52    ;;11091291

PSOLLLI   ;;27837137

PSOLLL1   ;;23118001

PSOHLNEW  ;;35766991

PSBVITFL  ;;4516516

APSPELRX  ;;5980604

APSPPCC2  ;;1789398

APSQSHOW  ;;7396679

PSOORED3  ;;22566931

PSBRPC    ;;19100158

PSOUTL    ;;26706928

APSQSIGN  ;;8876910

PSOORNW1  ;;21206988

PSOCAN2   ;;28531657

PSIVSTAT  ;;11325450