PSDNTEG.m

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

 G CONT^PSDNTEG0

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

PSDACT ;;9975594

PSDACT1 ;;11604254

PSDACT2 ;;6805666

PSDADJ ;;13992080

PSDADJB ;;3411172

PSDADJC ;;12709010

PSDADJD ;;13684417

PSDADJI ;;9664608

PSDADJIN ;;10882845

PSDADJN ;;12308094

PSDADJN1 ;;9209503

PSDADJR ;;9137032

PSDADJW ;;3140510

PSDADT ;;1852503

PSDADT1 ;;2880338

PSDAMIS ;;12951751

PSDAMIS0 ;;12093150

PSDAMIS1 ;;10954000

PSDAMIS2 ;;8653026

PSDAMIS3 ;;11517002

PSDAMIS4 ;;6905875

PSDAPU ;;453681

PSDBAL ;;11324223

PSDBALI ;;13145477

PSDBALI1 ;;4034805

PSDBAN ;;11322182

PSDBAN1 ;;6447121

PSDCODE ;;1276619

PSDCOR ;;12698386

PSDCOR1 ;;13395954

PSDCOR2 ;;13487461

PSDCOR3 ;;1989323

PSDCORP ;;10704766

PSDCORP1 ;;8074809

PSDCORP2 ;;8214810

PSDCORP3 ;;9384457

PSDCOSD ;;11666341

PSDCOSH ;;8058420

PSDCOSM ;;1588896

PSDCOSN ;;11610030

PSDCOST ;;17808268

PSDCOSV ;;8309730

PSDCPO ;;15492261

PSDCRP ;;15861595

PSDCSI ;;8739313

PSDCSL ;;9907995

PSDDFP ;;13632184

PSDDFP1 ;;4717046

PSDDWK ;;14582819

PSDDWK1 ;;8730816

PSDDWK2 ;;7776016

PSDDWK3 ;;7689842

PSDDWK4 ;;5365045

PSDDWKE ;;10267106

PSDEA ;;7236323

PSDEA41 ;;13153026

PSDEM ;;11848547

PSDEM1 ;;12993745

PSDEM2 ;;11157976

PSDEM3 ;;2984202

PSDEM4 ;;7256790

PSDEN ;;9553918

PSDERCP ;;15389660

PSDERD ;;7069296

PSDERP ;;15124151

PSDEST ;;14170737

PSDESTF ;;11545390

PSDESTO ;;12940785

PSDESTP ;;24798965

PSDEVO ;;13442414

PSDEVO1 ;;11404589

PSDEVOR ;;15314902

PSDEXGS ;;12646994

PSDEXGS1 ;;6305959

PSDEXP ;;15048479

PSDEXP1 ;;5042879

PSDFIL2 ;;14725710

PSDFIL3 ;;14685555

PSDFILM ;;2926376

PSDFND ;;16502908

PSDFND1 ;;2124618

PSDFT ;;14866922

PSDFT1 ;;15918295

PSDGEN ;;1437730

PSDGPR ;;11702075

PSDGSH ;;3741711

PSDGSH1 ;;5746281

PSDGSH11 ;;6013794

PSDGSH2 ;;13901298

PSDGSK ;;7890554

PSDGSL ;;8633650

PSDGSL1 ;;8018119

PSDGSPU ;;8969282

PSDGSRV ;;13538823

PSDGSRV1 ;;16149091

PSDGSRV2 ;;14427491

PSDHELP ;;167485

PSDHL7 ;;6316421

PSDHLK ;;1069196

PSDHLP ;;1933023

PSDHLX ;;1153846

PSDHLY ;;924987

PSDHRPT ;;14954948

PSDINPRE ;;3161234

PSDIPOS1 ;;4077569

PSDIPOST ;;6876049

PSDLBL ;;14060349

PSDLBL0 ;;8605513

PSDLBL1 ;;13258327

PSDLBL2 ;;10638900

PSDLBL3 ;;10994226

PSDLBL4 ;;4065314

PSDLBL5 ;;7201861

PSDLBLB ;;7160018

PSDLBLI ;;9423541

PSDLBLP ;;12044908

PSDLBLR ;;9703853

PSDLBLR0 ;;6059606

PSDLBLR1 ;;2638419

PSDLBLR2 ;;4532916

PSDLSTK ;;8066682

PSDLSTK1 ;;9733870

PSDLSTK2 ;;8185271

PSDMAPU ;;7479575

PSDMFG ;;3721775

PSDNACT ;;6740699

PSDNARC ;;3678699

PSDNBT ;;11058243

PSDNCGS ;;10321965

PSDNDES ;;13786726

PSDNRGO ;;12162069

PSDNRGS ;;15623486

PSDNSCG ;;10659453

PSDNSCL ;;9525064

PSDNSTK ;;16898603

PSDNTF ;;19598600

PSDNTR ;;14807386

PSDNTT ;;10244486

PSDNTT1 ;;8835538

PSDNU ;;13021502

PSDNU1 ;;14738135

PSDNU2 ;;12732100

PSDNU3 ;;2907042

PSDNVT ;;1478644

PSDOPT ;;12920789

PSDOPT0 ;;9875269

PSDOPT1 ;;7115187

PSDOPT2 ;;2480174

PSDOPTI ;;16473032

PSDOPTN ;;10853518

PSDOPTR ;;2226366

PSDOPTS ;;15071130

PSDOPTX ;;10178752

PSDOPTY ;;5930170

PSDOPTZ ;;7145611

PSDOR2 ;;7280763

PSDOR21 ;;9843322

PSDORD ;;13245815

PSDNTEG   ;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        GOTO CONT^PSDNTEG0

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

PSDACT    ;;9975594

PSDACT1   ;;11604254

PSDACT2   ;;6805666

PSDADJ    ;;13992080

PSDADJB   ;;3411172

PSDADJC   ;;12709010

PSDADJD   ;;13684417

PSDADJI   ;;9664608

PSDADJIN  ;;10882845

PSDADJN   ;;12308094

PSDADJN1  ;;9209503

PSDADJR   ;;9137032

PSDADJW   ;;3140510

PSDADT    ;;1852503

PSDADT1   ;;2880338

PSDAMIS   ;;12951751

PSDAMIS0  ;;12093150

PSDAMIS1  ;;10954000

PSDAMIS2  ;;8653026

PSDAMIS3  ;;11517002

PSDAMIS4  ;;6905875

PSDAPU    ;;453681

PSDBAL    ;;11324223

PSDBALI   ;;13145477

PSDBALI1  ;;4034805

PSDBAN    ;;11322182

PSDBAN1   ;;6447121

PSDCODE   ;;1276619

PSDCOR    ;;12698386

PSDCOR1   ;;13395954

PSDCOR2   ;;13487461

PSDCOR3   ;;1989323

PSDCORP   ;;10704766

PSDCORP1  ;;8074809

PSDCORP2  ;;8214810

PSDCORP3  ;;9384457

PSDCOSD   ;;11666341

PSDCOSH   ;;8058420

PSDCOSM   ;;1588896

PSDCOSN   ;;11610030

PSDCOST   ;;17808268

PSDCOSV   ;;8309730

PSDCPO    ;;15492261

PSDCRP    ;;15861595

PSDCSI    ;;8739313

PSDCSL    ;;9907995

PSDDFP    ;;13632184

PSDDFP1   ;;4717046

PSDDWK    ;;14582819

PSDDWK1   ;;8730816

PSDDWK2   ;;7776016

PSDDWK3   ;;7689842

PSDDWK4   ;;5365045

PSDDWKE   ;;10267106

PSDEA     ;;7236323

PSDEA41   ;;13153026

PSDEM     ;;11848547

PSDEM1    ;;12993745

PSDEM2    ;;11157976

PSDEM3    ;;2984202

PSDEM4    ;;7256790

PSDEN     ;;9553918

PSDERCP   ;;15389660

PSDERD    ;;7069296

PSDERP    ;;15124151

PSDEST    ;;14170737

PSDESTF   ;;11545390

PSDESTO   ;;12940785

PSDESTP   ;;24798965

PSDEVO    ;;13442414

PSDEVO1   ;;11404589

PSDEVOR   ;;15314902

PSDEXGS   ;;12646994

PSDEXGS1  ;;6305959

PSDEXP    ;;15048479

PSDEXP1   ;;5042879

PSDFIL2   ;;14725710

PSDFIL3   ;;14685555

PSDFILM   ;;2926376

PSDFND    ;;16502908

PSDFND1   ;;2124618

PSDFT     ;;14866922

PSDFT1    ;;15918295

PSDGEN    ;;1437730

PSDGPR    ;;11702075

PSDGSH    ;;3741711

PSDGSH1   ;;5746281

PSDGSH11  ;;6013794

PSDGSH2   ;;13901298

PSDGSK    ;;7890554

PSDGSL    ;;8633650

PSDGSL1   ;;8018119

PSDGSPU   ;;8969282

PSDGSRV   ;;13538823

PSDGSRV1  ;;16149091

PSDGSRV2  ;;14427491

PSDHELP   ;;167485

PSDHL7    ;;6316421

PSDHLK    ;;1069196

PSDHLP    ;;1933023

PSDHLX    ;;1153846

PSDHLY    ;;924987

PSDHRPT   ;;14954948

PSDINPRE  ;;3161234

PSDIPOS1  ;;4077569

PSDIPOST  ;;6876049

PSDLBL    ;;14060349

PSDLBL0   ;;8605513

PSDLBL1   ;;13258327

PSDLBL2   ;;10638900

PSDLBL3   ;;10994226

PSDLBL4   ;;4065314

PSDLBL5   ;;7201861

PSDLBLB   ;;7160018

PSDLBLI   ;;9423541

PSDLBLP   ;;12044908

PSDLBLR   ;;9703853

PSDLBLR0  ;;6059606

PSDLBLR1  ;;2638419

PSDLBLR2  ;;4532916

PSDLSTK   ;;8066682

PSDLSTK1  ;;9733870

PSDLSTK2  ;;8185271

PSDMAPU   ;;7479575

PSDMFG    ;;3721775

PSDNACT   ;;6740699

PSDNARC   ;;3678699

PSDNBT    ;;11058243

PSDNCGS   ;;10321965

PSDNDES   ;;13786726

PSDNRGO   ;;12162069

PSDNRGS   ;;15623486

PSDNSCG   ;;10659453

PSDNSCL   ;;9525064

PSDNSTK   ;;16898603

PSDNTF    ;;19598600

PSDNTR    ;;14807386

PSDNTT    ;;10244486

PSDNTT1   ;;8835538

PSDNU     ;;13021502

PSDNU1    ;;14738135

PSDNU2    ;;12732100

PSDNU3    ;;2907042

PSDNVT    ;;1478644

PSDOPT    ;;12920789

PSDOPT0   ;;9875269

PSDOPT1   ;;7115187

PSDOPT2   ;;2480174

PSDOPTI   ;;16473032

PSDOPTN   ;;10853518

PSDOPTR   ;;2226366

PSDOPTS   ;;15071130

PSDOPTX   ;;10178752

PSDOPTY   ;;5930170

PSDOPTZ   ;;7145611

PSDOR2    ;;7280763

PSDOR21   ;;9843322

PSDORD    ;;13245815