PSONTEG.m

PSONTEG ;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")

 G CONT^PSONTEG0

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

PSOAMIS ;;8088370

PSOAMIS0 ;;15530501

PSOAMIS1 ;;15933021

PSOARC ;;1543895

PSOARCCO ;;7879291

PSOARCCV ;;16524016

PSOARCDE ;;1519886

PSOARCF1 ;;9938950

PSOARCF2 ;;6313447

PSOARCF3 ;;10989252

PSOARCF4 ;;14824919

PSOARCF5 ;;10373233

PSOARCF6 ;;2114902

PSOARCIN ;;10467127

PSOARCLT ;;11361257

PSOARCR1 ;;6659841

PSOARCR2 ;;11410187

PSOARCRR ;;12610244

PSOARCS2 ;;11785445

PSOARCSV ;;14563867

PSOARCTG ;;9524360

PSOARCTP ;;4774424

PSOARX ;;24537743

PSOARX1 ;;8732603

PSOAUTOC ;;11799857

PSOB ;;12093795

PSOBARV ;;4590989

PSOBBC ;;17077721

PSOBGMG1 ;;9615217

PSOBGMG2 ;;16559725

PSOBGMG3 ;;11706993

PSOBGMGR ;;26029612

PSOBING1 ;;20449880

PSOBINGO ;;27965067

PSOBKDED ;;3390318

PSOBMST ;;12548532

PSOBRPRT ;;12685512

PSOBSET ;;8800979

PSOBSET1 ;;8233165

PSOBUILD ;;18513958

PSOCAN ;;18537431

PSOCAN1 ;;24583271

PSOCAN2 ;;22710446

PSOCAN3 ;;17987886

PSOCAN4 ;;12203613

PSOCLERK ;;580896

PSOCLO1 ;;16692398

PSOCLOLS ;;7584419

PSOCLUTL ;;24520306

PSOCMOP ;;8682406

PSOCMOPA ;;6009311

PSOCMOPB ;;5657331

PSOCMOPC ;;3165423

PSOCOPAY ;;2628544

PSOCOST ;;16988098

PSOCOSTP ;;4824429

PSOCP ;;3646662

PSOCPA ;;8121410

PSOCPB ;;14175665

PSOCPC ;;2336163

PSOCPD ;;11289046

PSOCPDUP ;;14367470

PSOCPE ;;2802442

PSOCPTRH ;;3598887

PSOCPTRI ;;9927109

PSOCPVW ;;3063870

PSOCSRL ;;19568056

PSOCST ;;1243245

PSOCST10 ;;11107494

PSOCST11 ;;11338986

PSOCST12 ;;18885137

PSOCST2 ;;10800053

PSOCST3 ;;11384106

PSOCST4 ;;11040507

PSOCST5 ;;13475863

PSOCST6 ;;10963759

PSOCST7 ;;9540110

PSOCST8 ;;10397479

PSOCST9 ;;14526699

PSOCSTD ;;16715457

PSOCSTM ;;17123922

PSODACT ;;8653547

PSODEA ;;2282011

PSODEDT ;;8093286

PSODELI ;;1437148

PSODEM ;;10715086

PSODGAL ;;5387171

PSODGDG1 ;;22372333

PSODGDG2 ;;7110510

PSODGDGI ;;21636668

PSODIR ;;6314040

PSODIR1 ;;16914116

PSODIR2 ;;9167439

PSODIR3 ;;5216246

PSODISP ;;24192299

PSODISP1 ;;20533972

PSODISP2 ;;2853632

PSODISP3 ;;8688157

PSODISPS ;;15792743

PSODIV ;;9106287

PSODLKP ;;12394095

PSODP ;;7869809

PSODRDU1 ;;13178884

PSODRDU2 ;;9325905

PSODRDUP ;;22075959

PSODRG ;;7801992

PSODSPL ;;8767448

PSODSRC ;;2809154

PSODUE ;;4990585

PSOEXBCH ;;17471798

PSOEXDT ;;3390663

PSOEXREF ;;2938164

PSOEXRST ;;27534572

PSOFUNC ;;5153561

PSOHCSUM ;;7694494

PSOHELP ;;20630563

PSOHELP1 ;;18428458

PSOHELP2 ;;5206648

PSOHELP3 ;;4616409

PSOHELP4 ;;782147

PSOHLD ;;18883227

PSOHLEXP ;;6671290

PSOHLNE1 ;;10306531

PSOHLNE2 ;;24072158

PSOHLNEW ;;33884077

PSOHLSG ;;14426239

PSOHLSG1 ;;22096952

PSOHLSG2 ;;11980019

PSOHLSG3 ;;17462571

PSOHLSG4 ;;5082832

PSOHLSIG ;;16078021

PSOHLSIH ;;12638114

PSOHLSN ;;15349796

PSOHLSN1 ;;20803809

PSOHLUP ;;12005271

PSOHLUP1 ;;7432439

PSOLAB ;;4226213

PSOLBL ;;26777589

PSOLBL1 ;;18314169

PSOLBL2 ;;18742229

PSOLBL3 ;;2387864

PSOLBL4 ;;22298368

PSOLBLD ;;18323127

PSOLBLD1 ;;6414526

PSOLBLN ;;17575125

PSOLBLN1 ;;25664258

PSOLBLN2 ;;20535870

PSOLBLS ;;18302467

PSOLBLT ;;3427886

PSOLMAL ;;100919

PSOLMAO ;;95773

PSOLMDA ;;197910

PSOLMLST ;;1673965

PSONTEG   ;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        GOTO CONT^PSONTEG0

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

PSOAMIS   ;;8088370

PSOAMIS0  ;;15530501

PSOAMIS1  ;;15933021

PSOARC    ;;1543895

PSOARCCO  ;;7879291

PSOARCCV  ;;16524016

PSOARCDE  ;;1519886

PSOARCF1  ;;9938950

PSOARCF2  ;;6313447

PSOARCF3  ;;10989252

PSOARCF4  ;;14824919

PSOARCF5  ;;10373233

PSOARCF6  ;;2114902

PSOARCIN  ;;10467127

PSOARCLT  ;;11361257

PSOARCR1  ;;6659841

PSOARCR2  ;;11410187

PSOARCRR  ;;12610244

PSOARCS2  ;;11785445

PSOARCSV  ;;14563867

PSOARCTG  ;;9524360

PSOARCTP  ;;4774424

PSOARX    ;;24537743

PSOARX1   ;;8732603

PSOAUTOC  ;;11799857

PSOB      ;;12093795

PSOBARV   ;;4590989

PSOBBC    ;;17077721

PSOBGMG1  ;;9615217

PSOBGMG2  ;;16559725

PSOBGMG3  ;;11706993

PSOBGMGR  ;;26029612

PSOBING1  ;;20449880

PSOBINGO  ;;27965067

PSOBKDED  ;;3390318

PSOBMST   ;;12548532

PSOBRPRT  ;;12685512

PSOBSET   ;;8800979

PSOBSET1  ;;8233165

PSOBUILD  ;;18513958

PSOCAN    ;;18537431

PSOCAN1   ;;24583271

PSOCAN2   ;;22710446

PSOCAN3   ;;17987886

PSOCAN4   ;;12203613

PSOCLERK  ;;580896

PSOCLO1   ;;16692398

PSOCLOLS  ;;7584419

PSOCLUTL  ;;24520306

PSOCMOP   ;;8682406

PSOCMOPA  ;;6009311

PSOCMOPB  ;;5657331

PSOCMOPC  ;;3165423

PSOCOPAY  ;;2628544

PSOCOST   ;;16988098

PSOCOSTP  ;;4824429

PSOCP     ;;3646662

PSOCPA    ;;8121410

PSOCPB    ;;14175665

PSOCPC    ;;2336163

PSOCPD    ;;11289046

PSOCPDUP  ;;14367470

PSOCPE    ;;2802442

PSOCPTRH  ;;3598887

PSOCPTRI  ;;9927109

PSOCPVW   ;;3063870

PSOCSRL   ;;19568056

PSOCST    ;;1243245

PSOCST10  ;;11107494

PSOCST11  ;;11338986

PSOCST12  ;;18885137

PSOCST2   ;;10800053

PSOCST3   ;;11384106

PSOCST4   ;;11040507

PSOCST5   ;;13475863

PSOCST6   ;;10963759

PSOCST7   ;;9540110

PSOCST8   ;;10397479

PSOCST9   ;;14526699

PSOCSTD   ;;16715457

PSOCSTM   ;;17123922

PSODACT   ;;8653547

PSODEA    ;;2282011

PSODEDT   ;;8093286

PSODELI   ;;1437148

PSODEM    ;;10715086

PSODGAL   ;;5387171

PSODGDG1  ;;22372333

PSODGDG2  ;;7110510

PSODGDGI  ;;21636668

PSODIR    ;;6314040

PSODIR1   ;;16914116

PSODIR2   ;;9167439

PSODIR3   ;;5216246

PSODISP   ;;24192299

PSODISP1  ;;20533972

PSODISP2  ;;2853632

PSODISP3  ;;8688157

PSODISPS  ;;15792743

PSODIV    ;;9106287

PSODLKP   ;;12394095

PSODP     ;;7869809

PSODRDU1  ;;13178884

PSODRDU2  ;;9325905

PSODRDUP  ;;22075959

PSODRG    ;;7801992

PSODSPL   ;;8767448

PSODSRC   ;;2809154

PSODUE    ;;4990585

PSOEXBCH  ;;17471798

PSOEXDT   ;;3390663

PSOEXREF  ;;2938164

PSOEXRST  ;;27534572

PSOFUNC   ;;5153561

PSOHCSUM  ;;7694494

PSOHELP   ;;20630563

PSOHELP1  ;;18428458

PSOHELP2  ;;5206648

PSOHELP3  ;;4616409

PSOHELP4  ;;782147

PSOHLD    ;;18883227

PSOHLEXP  ;;6671290

PSOHLNE1  ;;10306531

PSOHLNE2  ;;24072158

PSOHLNEW  ;;33884077

PSOHLSG   ;;14426239

PSOHLSG1  ;;22096952

PSOHLSG2  ;;11980019

PSOHLSG3  ;;17462571

PSOHLSG4  ;;5082832

PSOHLSIG  ;;16078021

PSOHLSIH  ;;12638114

PSOHLSN   ;;15349796

PSOHLSN1  ;;20803809

PSOHLUP   ;;12005271

PSOHLUP1  ;;7432439

PSOLAB    ;;4226213

PSOLBL    ;;26777589

PSOLBL1   ;;18314169

PSOLBL2   ;;18742229

PSOLBL3   ;;2387864

PSOLBL4   ;;22298368

PSOLBLD   ;;18323127

PSOLBLD1  ;;6414526

PSOLBLN   ;;17575125

PSOLBLN1  ;;25664258

PSOLBLN2  ;;20535870

PSOLBLS   ;;18302467

PSOLBLT   ;;3427886

PSOLMAL   ;;100919

PSOLMAO   ;;95773

PSOLMDA   ;;197910

PSOLMLST  ;;1673965