PSDNTEG0.m

PSDNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204

 ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 ;;7.3;2970224.092204

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

PSDORD1 ;;5503924

PSDORD2 ;;9845578

PSDORD3 ;;10533519

PSDORD4 ;;6799467

PSDORL ;;8634977

PSDORM ;;776198

PSDORN ;;17240585

PSDORN0 ;;3335766

PSDORN1 ;;10110015

PSDORN2 ;;9413654

PSDORN3 ;;2529519

PSDORNC ;;11880898

PSDORNO ;;8417500

PSDORNP ;;2507189

PSDORNV ;;22085947

PSDORP ;;13916576

PSDORP1 ;;10804969

PSDORP2 ;;10839369

PSDORSN ;;12743249

PSDORST ;;11974190

PSDORSU ;;1465679

PSDORV ;;12050829

PSDORV1 ;;9568706

PSDPAT ;;9885020

PSDPAT1 ;;15574098

PSDPAT2 ;;1802637

PSDPATI ;;2646287

PSDPDR ;;12844263

PSDPDR1 ;;9409104

PSDPDR2 ;;11849071

PSDPDU ;;6045018

PSDPDU1 ;;8201887

PSDPGS ;;14596742

PSDPGS1 ;;13694811

PSDPLOG ;;11534343

PSDPLOG1 ;;12446872

PSDPLOG2 ;;12389311

PSDPLOG3 ;;13851776

PSDPMFG ;;13422702

PSDPMFG1 ;;5591190

PSDPND ;;13294730

PSDPND1 ;;6924928

PSDPRG ;;1970060

PSDPRT ;;2408019

PSDPSI ;;14873503

PSDPSTK ;;8990935

PSDPSTK1 ;;8092144

PSDPUGS ;;16231791

PSDPWK ;;15287898

PSDPWK1 ;;7742039

PSDPWK2 ;;7700215

PSDPWK3 ;;2545818

PSDRDR ;;15646391

PSDRDR1 ;;8437976

PSDRDR2 ;;8426549

PSDREC ;;14123478

PSDREC1 ;;12864977

PSDREC2 ;;15231570

PSDREC3 ;;15332761

PSDREC4 ;;18621378

PSDREPD ;;13641941

PSDREPV ;;7760550

PSDREV ;;7566494

PSDREVC ;;11004109

PSDREVD ;;11761089

PSDRF ;;10486656

PSDRF1 ;;4186133

PSDRF2 ;;1861988

PSDRF4 ;;9624765

PSDRF5 ;;3739493

PSDRFD ;;5100369

PSDRFL ;;4102731

PSDRFM ;;3789859

PSDRFR ;;11253895

PSDRFS ;;10472321

PSDRFT ;;5774305

PSDRFU ;;4537478

PSDRFV ;;2769747

PSDRFW ;;11631143

PSDRFX ;;4489710

PSDRFZ ;;2541571

PSDRLOG ;;11699910

PSDRLOG1 ;;11924210

PSDRLOG2 ;;11940626

PSDRLOG3 ;;14064513

PSDRPGS ;;9527571

PSDRPGS1 ;;6879636

PSDRPGS2 ;;10242187

PSDRPGS3 ;;783899

PSDRPT ;;14469073

PSDRSI ;;8838714

PSDRWK ;;13538312

PSDSET ;;5861527

PSDSITE ;;5487380

PSDSP ;;1202028

PSDSTK ;;13320484

PSDTER ;;15930469

PSDTER1 ;;2193405

PSDTER2 ;;12051923

PSDTRA ;;14206901

PSDTRA1 ;;5410830

PSDTRAK ;;6276923

PSDTRN ;;15129881

PSDTRN1 ;;4640239

PSDTRV ;;11437123

PSDTRV1 ;;8648163

PSDTRVR ;;10130105

PSDTRVR1 ;;8134031

PSDUP2 ;;7299120

PSDUP3 ;;5837741

PSDUSER ;;5959242

PSDUTL ;;7108281

PSDUTL1 ;;7232289

PSDUTL2 ;;2220870

PSDUTL3 ;;5520873

PSDUTL4 ;;1808777

PSDUTL5 ;;3705845

PSDWADD ;;17564518

PSDWCHG ;;18928513

PSDWL ;;2402560

PSDNTEG0  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970224.092204

 +1       ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97

 +2       ;;7.3;2970224.092204

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

PSDORD1   ;;5503924

PSDORD2   ;;9845578

PSDORD3   ;;10533519

PSDORD4   ;;6799467

PSDORL    ;;8634977

PSDORM    ;;776198

PSDORN    ;;17240585

PSDORN0   ;;3335766

PSDORN1   ;;10110015

PSDORN2   ;;9413654

PSDORN3   ;;2529519

PSDORNC   ;;11880898

PSDORNO   ;;8417500

PSDORNP   ;;2507189

PSDORNV   ;;22085947

PSDORP    ;;13916576

PSDORP1   ;;10804969

PSDORP2   ;;10839369

PSDORSN   ;;12743249

PSDORST   ;;11974190

PSDORSU   ;;1465679

PSDORV    ;;12050829

PSDORV1   ;;9568706

PSDPAT    ;;9885020

PSDPAT1   ;;15574098

PSDPAT2   ;;1802637

PSDPATI   ;;2646287

PSDPDR    ;;12844263

PSDPDR1   ;;9409104

PSDPDR2   ;;11849071

PSDPDU    ;;6045018

PSDPDU1   ;;8201887

PSDPGS    ;;14596742

PSDPGS1   ;;13694811

PSDPLOG   ;;11534343

PSDPLOG1  ;;12446872

PSDPLOG2  ;;12389311

PSDPLOG3  ;;13851776

PSDPMFG   ;;13422702

PSDPMFG1  ;;5591190

PSDPND    ;;13294730

PSDPND1   ;;6924928

PSDPRG    ;;1970060

PSDPRT    ;;2408019

PSDPSI    ;;14873503

PSDPSTK   ;;8990935

PSDPSTK1  ;;8092144

PSDPUGS   ;;16231791

PSDPWK    ;;15287898

PSDPWK1   ;;7742039

PSDPWK2   ;;7700215

PSDPWK3   ;;2545818

PSDRDR    ;;15646391

PSDRDR1   ;;8437976

PSDRDR2   ;;8426549

PSDREC    ;;14123478

PSDREC1   ;;12864977

PSDREC2   ;;15231570

PSDREC3   ;;15332761

PSDREC4   ;;18621378

PSDREPD   ;;13641941

PSDREPV   ;;7760550

PSDREV    ;;7566494

PSDREVC   ;;11004109

PSDREVD   ;;11761089

PSDRF     ;;10486656

PSDRF1    ;;4186133

PSDRF2    ;;1861988

PSDRF4    ;;9624765

PSDRF5    ;;3739493

PSDRFD    ;;5100369

PSDRFL    ;;4102731

PSDRFM    ;;3789859

PSDRFR    ;;11253895

PSDRFS    ;;10472321

PSDRFT    ;;5774305

PSDRFU    ;;4537478

PSDRFV    ;;2769747

PSDRFW    ;;11631143

PSDRFX    ;;4489710

PSDRFZ    ;;2541571

PSDRLOG   ;;11699910

PSDRLOG1  ;;11924210

PSDRLOG2  ;;11940626

PSDRLOG3  ;;14064513

PSDRPGS   ;;9527571

PSDRPGS1  ;;6879636

PSDRPGS2  ;;10242187

PSDRPGS3  ;;783899

PSDRPT    ;;14469073

PSDRSI    ;;8838714

PSDRWK    ;;13538312

PSDSET    ;;5861527

PSDSITE   ;;5487380

PSDSP     ;;1202028

PSDSTK    ;;13320484

PSDTER    ;;15930469

PSDTER1   ;;2193405

PSDTER2   ;;12051923

PSDTRA    ;;14206901

PSDTRA1   ;;5410830

PSDTRAK   ;;6276923

PSDTRN    ;;15129881

PSDTRN1   ;;4640239

PSDTRV    ;;11437123

PSDTRV1   ;;8648163

PSDTRVR   ;;10130105

PSDTRVR1  ;;8134031

PSDUP2    ;;7299120

PSDUP3    ;;5837741

PSDUSER   ;;5959242

PSDUTL    ;;7108281

PSDUTL1   ;;7232289

PSDUTL2   ;;2220870

PSDUTL3   ;;5520873

PSDUTL4   ;;1808777

PSDUTL5   ;;3705845

PSDWADD   ;;17564518

PSDWCHG   ;;18928513

PSDWL     ;;2402560