PSONTEG0.m

PSONTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512

 ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 ;;7.3;2971222.09512

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

PSOLMPAT ;;2077877

PSOLMPF ;;82942

PSOLMPI ;;236025

PSOLMPO ;;574251

PSOLMPO1 ;;631906

PSOLMPO2 ;;309636

PSOLMRN ;;149494

PSOLMUTL ;;3907839

PSOLSET ;;18071759

PSOMGCM1 ;;18199513

PSOMGCOM ;;14747963

PSOMGM31 ;;8642183

PSOMGMN1 ;;9199713

PSOMGMN2 ;;10913986

PSOMGMN3 ;;21220452

PSOMGMN4 ;;13607235

PSOMGMRP ;;17512057

PSOMGR31 ;;5472288

PSOMGREP ;;14509657

PSOMGRP1 ;;10005146

PSOMGRP2 ;;12746057

PSOMGRP3 ;;22051038

PSOMGRP4 ;;14193453

PSON52 ;;15058449

PSONEW ;;10857033

PSONEW1 ;;5853188

PSONEW2 ;;5747569

PSONEW3 ;;4823153

PSONGR ;;1642324

PSONRXN ;;5166343

PSOORAL ;;1953958

PSOORAL1 ;;14844886

PSOORAL2 ;;15285227

PSOORCPY ;;6201885

PSOORDA ;;23785410

PSOORDER ;;24139932

PSOORDRG ;;15391172

PSOORED1 ;;15120313

PSOORED2 ;;13743509

PSOOREDT ;;27715444

PSOORFI1 ;;34184243

PSOORFI2 ;;11898144

PSOORFIN ;;29613344

PSOORNE1 ;;18429602

PSOORNE2 ;;32087079

PSOORNE3 ;;34298369

PSOORNE4 ;;16801213

PSOORNE5 ;;4747585

PSOORNEW ;;33298659

PSOORNW1 ;;16686302

PSOORNW2 ;;19314033

PSOORRL ;;32892842

PSOORRNW ;;7620577

PSOORUT1 ;;25104398

PSOORUT2 ;;11110235

PSOORUT3 ;;7030365

PSOORUTL ;;16417066

PSOP ;;26901334

PSOP1 ;;14922973

PSOP2 ;;7742346

PSOPAT ;;3373034

PSOPOLY ;;19048209

PSOPOST ;;11860998

PSOPOST1 ;;3803788

PSOPRF ;;16636561

PSOPRFSS ;;11665475

PSOPRVW ;;15709488

PSOPTPST ;;11916464

PSOR52 ;;9823686

PSORDS ;;7510779

PSOREF ;;22849705

PSOREF0 ;;17663887

PSOREF1 ;;4675116

PSOREF2 ;;4285052

PSORENW ;;7868447

PSORENW0 ;;17581309

PSORENW1 ;;7561359

PSORENW2 ;;3114014

PSORENW3 ;;7725131

PSORENW4 ;;11953560

PSORESK ;;19949534

PSORESK1 ;;5577574

PSORFL ;;7091639

PSORN52 ;;14654715

PSORN52C ;;11670503

PSORPTS ;;4390596

PSORPTS1 ;;10870691

PSORX1 ;;13739820

PSORXDL ;;8292823

PSORXED ;;19772932

PSORXED1 ;;13216882

PSORXI ;;4007749

PSORXL ;;30811210

PSORXL1 ;;17622725

PSORXLAB ;;17184627

PSORXPA1 ;;10282253

PSORXPR ;;20068051

PSORXPR1 ;;9326949

PSORXRP1 ;;12432743

PSORXRP2 ;;16270284

PSORXRPT ;;18273562

PSORXVW ;;31330798

PSORXVW1 ;;24881247

PSORXVW2 ;;6339614

PSOSD ;;21513648

PSOSD0 ;;18808868

PSOSD1 ;;25474451

PSOSD2 ;;15671850

PSOSD3 ;;13566482

PSOSDP ;;22741952

PSOSIGNO ;;8860973

PSOSITED ;;4084959

PSOSTART ;;3654679

PSOSUBCH ;;13569666

PSOSUCH1 ;;14382618

PSOSUCHG ;;36479970

PSOSUDCN ;;5688481

PSOSUDEL ;;5176204

PSOSUDP1 ;;22550976

PSOSUDP2 ;;2671676

PSOSUDPR ;;20603485

PSOSUINV ;;4955002

PSOSULB1 ;;14468070

PSOSULBL ;;20325252

PSOSULOG ;;3451426

PSOSUP ;;6112613

PSOSUPAT ;;25778529

PSOSUPOE ;;20956068

PSOSUPRX ;;27824240

PSOSURST ;;22950023

PSOSUSRP ;;11551615

PSOSUTL ;;30422344

PSOSUTL1 ;;19577048

PSOTRLBL ;;12824470

PSOUTIL ;;22136773

PSOUTL ;;23844742

PSOUTLA ;;16954930

PSOUTLA1 ;;3764410

PSOVCNT ;;8718043

PSOVER ;;20917337

PSOVER1 ;;18464868

PSOVER2 ;;11072834

PSOVERC ;;6875668

PSOVRPT ;;13870743

PSOVWI ;;994942

PSONTEG0  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971222.09512

 +1       ;;7.0;OUTPATIENT PHARMACY;;DEC 1997

 +2       ;;7.3;2971222.09512

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

PSOLMPAT  ;;2077877

PSOLMPF   ;;82942

PSOLMPI   ;;236025

PSOLMPO   ;;574251

PSOLMPO1  ;;631906

PSOLMPO2  ;;309636

PSOLMRN   ;;149494

PSOLMUTL  ;;3907839

PSOLSET   ;;18071759

PSOMGCM1  ;;18199513

PSOMGCOM  ;;14747963

PSOMGM31  ;;8642183

PSOMGMN1  ;;9199713

PSOMGMN2  ;;10913986

PSOMGMN3  ;;21220452

PSOMGMN4  ;;13607235

PSOMGMRP  ;;17512057

PSOMGR31  ;;5472288

PSOMGREP  ;;14509657

PSOMGRP1  ;;10005146

PSOMGRP2  ;;12746057

PSOMGRP3  ;;22051038

PSOMGRP4  ;;14193453

PSON52    ;;15058449

PSONEW    ;;10857033

PSONEW1   ;;5853188

PSONEW2   ;;5747569

PSONEW3   ;;4823153

PSONGR    ;;1642324

PSONRXN   ;;5166343

PSOORAL   ;;1953958

PSOORAL1  ;;14844886

PSOORAL2  ;;15285227

PSOORCPY  ;;6201885

PSOORDA   ;;23785410

PSOORDER  ;;24139932

PSOORDRG  ;;15391172

PSOORED1  ;;15120313

PSOORED2  ;;13743509

PSOOREDT  ;;27715444

PSOORFI1  ;;34184243

PSOORFI2  ;;11898144

PSOORFIN  ;;29613344

PSOORNE1  ;;18429602

PSOORNE2  ;;32087079

PSOORNE3  ;;34298369

PSOORNE4  ;;16801213

PSOORNE5  ;;4747585

PSOORNEW  ;;33298659

PSOORNW1  ;;16686302

PSOORNW2  ;;19314033

PSOORRL   ;;32892842

PSOORRNW  ;;7620577

PSOORUT1  ;;25104398

PSOORUT2  ;;11110235

PSOORUT3  ;;7030365

PSOORUTL  ;;16417066

PSOP      ;;26901334

PSOP1     ;;14922973

PSOP2     ;;7742346

PSOPAT    ;;3373034

PSOPOLY   ;;19048209

PSOPOST   ;;11860998

PSOPOST1  ;;3803788

PSOPRF    ;;16636561

PSOPRFSS  ;;11665475

PSOPRVW   ;;15709488

PSOPTPST  ;;11916464

PSOR52    ;;9823686

PSORDS    ;;7510779

PSOREF    ;;22849705

PSOREF0   ;;17663887

PSOREF1   ;;4675116

PSOREF2   ;;4285052

PSORENW   ;;7868447

PSORENW0  ;;17581309

PSORENW1  ;;7561359

PSORENW2  ;;3114014

PSORENW3  ;;7725131

PSORENW4  ;;11953560

PSORESK   ;;19949534

PSORESK1  ;;5577574

PSORFL    ;;7091639

PSORN52   ;;14654715

PSORN52C  ;;11670503

PSORPTS   ;;4390596

PSORPTS1  ;;10870691

PSORX1    ;;13739820

PSORXDL   ;;8292823

PSORXED   ;;19772932

PSORXED1  ;;13216882

PSORXI    ;;4007749

PSORXL    ;;30811210

PSORXL1   ;;17622725

PSORXLAB  ;;17184627

PSORXPA1  ;;10282253

PSORXPR   ;;20068051

PSORXPR1  ;;9326949

PSORXRP1  ;;12432743

PSORXRP2  ;;16270284

PSORXRPT  ;;18273562

PSORXVW   ;;31330798

PSORXVW1  ;;24881247

PSORXVW2  ;;6339614

PSOSD     ;;21513648

PSOSD0    ;;18808868

PSOSD1    ;;25474451

PSOSD2    ;;15671850

PSOSD3    ;;13566482

PSOSDP    ;;22741952

PSOSIGNO  ;;8860973

PSOSITED  ;;4084959

PSOSTART  ;;3654679

PSOSUBCH  ;;13569666

PSOSUCH1  ;;14382618

PSOSUCHG  ;;36479970

PSOSUDCN  ;;5688481

PSOSUDEL  ;;5176204

PSOSUDP1  ;;22550976

PSOSUDP2  ;;2671676

PSOSUDPR  ;;20603485

PSOSUINV  ;;4955002

PSOSULB1  ;;14468070

PSOSULBL  ;;20325252

PSOSULOG  ;;3451426

PSOSUP    ;;6112613

PSOSUPAT  ;;25778529

PSOSUPOE  ;;20956068

PSOSUPRX  ;;27824240

PSOSURST  ;;22950023

PSOSUSRP  ;;11551615

PSOSUTL   ;;30422344

PSOSUTL1  ;;19577048

PSOTRLBL  ;;12824470

PSOUTIL   ;;22136773

PSOUTL    ;;23844742

PSOUTLA   ;;16954930

PSOUTLA1  ;;3764410

PSOVCNT   ;;8718043

PSOVER    ;;20917337

PSOVER1   ;;18464868

PSOVER2   ;;11072834

PSOVERC   ;;6875668

PSOVRPT   ;;13870743

PSOVWI    ;;994942