PSGWNTEG.m

PSGWNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;DEC 29, 1993@14:32:42

 ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 ;;7.1;DEC 29, 1993@14:32:42

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

PSGWADE ;;5846325

PSGWADE1 ;;14948420

PSGWADP ;;10440536

PSGWADP1 ;;7139779

PSGWAIO ;;10895622

PSGWAOU ;;7642629

PSGWAOUI ;;8589667

PSGWAP ;;5873548

PSGWAR ;;13010701

PSGWAR1 ;;5874442

PSGWARP ;;7999478

PSGWATR ;;9067134

PSGWATR1 ;;8722201

PSGWBGIN ;;15240669

PSGWBO ;;13307403

PSGWBO1 ;;4182102

PSGWBOA ;;14982807

PSGWBOE ;;7211426

PSGWBOI ;;8488836

PSGWBOIP ;;5337394

PSGWBOS ;;14262354

PSGWCAD ;;13822666

PSGWCAD1 ;;10592470

PSGWCAD2 ;;10973869

PSGWCAD3 ;;10927751

PSGWCCE ;;851128

PSGWCCP ;;6746655

PSGWCHG ;;17641519

PSGWCL ;;8811361

PSGWCLP ;;9392322

PSGWCPA ;;11713939

PSGWCPA1 ;;14134524

PSGWDEL ;;8358632

PSGWDR ;;11959846

PSGWDUP ;;9744636

PSGWDUP1 ;;12298655

PSGWEDI ;;13589597

PSGWEDI1 ;;2529136

PSGWEDIS ;;4420181

PSGWEE ;;895250

PSGWEXP ;;1618724

PSGWEXR ;;12646958

PSGWEXR1 ;;4384605

PSGWEXR2 ;;7099192

PSGWFIL ;;641249

PSGWFLBO ;;2970440

PSGWHC ;;12430303

PSGWHC0 ;;6955744

PSGWHC1 ;;5916074

PSGWHV ;;8690535

PSGWHV0 ;;6712805

PSGWHV1 ;;5588983

PSGWKINV ;;286315

PSGWL ;;13973426

PSGWLSI ;;6513133

PSGWLSI1 ;;11512487

PSGWLSI2 ;;7691709

PSGWNU ;;9603147

PSGWNU1 ;;6882055

PSGWOD2 ;;2664332

PSGWODP ;;9462668

PSGWODPR ;;7461754

PSGWODRN ;;17619352

PSGWOLD ;;12732432

PSGWOLD1 ;;2110087

PSGWOND ;;11310229

PSGWONDM ;;19072476

PSGWPAW ;;6593463

PSGWPAW1 ;;15460526

PSGWPERC ;;1919931

PSGWPERE ;;1523274

PSGWPI ;;6679648

PSGWPI1 ;;13320049

PSGWPI2 ;;9680378

PSGWPIG ;;10827983

PSGWPIS ;;12279683

PSGWPL ;;13836679

PSGWPL0 ;;14308325

PSGWPL1 ;;5068891

PSGWPOST ;;19592480

PSGWPRE1 ;;6549690

PSGWPSI ;;7769362

PSGWPSI1 ;;6999982

PSGWPST1 ;;2283832

PSGWRA ;;16600066

PSGWRAC ;;11116098

PSGWRI ;;3716796

PSGWSC ;;9216557

PSGWSC1 ;;6105570

PSGWSET ;;5617928

PSGWSIG ;;7288214

PSGWSTD ;;5434665

PSGWSTKI ;;6517961

PSGWTOT ;;8644984

PSGWTOT1 ;;11144490

PSGWTOT2 ;;13583982

PSGWTR ;;15688724

PSGWTR1 ;;7061927

PSGWUAS ;;10975746

PSGWUTL ;;14759833

PSGWUTL1 ;;7498103

PSGWVW ;;11025406

PSGWWRD ;;17109762

PSGWXREF ;;10462873

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSGWNTEG   2785     printed  Apr 09, 2024@20:45:07                                                                                                                                                                                                    Page 2

PSGWNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;DEC 29, 1993@14:32:42

 +1       ;;2.3; Automatic Replenishment/Ward Stock ;;4 JAN 94

 +2       ;;7.1;DEC 29, 1993@14:32:42

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

PSGWADE   ;;5846325

PSGWADE1  ;;14948420

PSGWADP   ;;10440536

PSGWADP1  ;;7139779

PSGWAIO   ;;10895622

PSGWAOU   ;;7642629

PSGWAOUI  ;;8589667

PSGWAP    ;;5873548

PSGWAR    ;;13010701

PSGWAR1   ;;5874442

PSGWARP   ;;7999478

PSGWATR   ;;9067134

PSGWATR1  ;;8722201

PSGWBGIN  ;;15240669

PSGWBO    ;;13307403

PSGWBO1   ;;4182102

PSGWBOA   ;;14982807

PSGWBOE   ;;7211426

PSGWBOI   ;;8488836

PSGWBOIP  ;;5337394

PSGWBOS   ;;14262354

PSGWCAD   ;;13822666

PSGWCAD1  ;;10592470

PSGWCAD2  ;;10973869

PSGWCAD3  ;;10927751

PSGWCCE   ;;851128

PSGWCCP   ;;6746655

PSGWCHG   ;;17641519

PSGWCL    ;;8811361

PSGWCLP   ;;9392322

PSGWCPA   ;;11713939

PSGWCPA1  ;;14134524

PSGWDEL   ;;8358632

PSGWDR    ;;11959846

PSGWDUP   ;;9744636

PSGWDUP1  ;;12298655

PSGWEDI   ;;13589597

PSGWEDI1  ;;2529136

PSGWEDIS  ;;4420181

PSGWEE    ;;895250

PSGWEXP   ;;1618724

PSGWEXR   ;;12646958

PSGWEXR1  ;;4384605

PSGWEXR2  ;;7099192

PSGWFIL   ;;641249

PSGWFLBO  ;;2970440

PSGWHC    ;;12430303

PSGWHC0   ;;6955744

PSGWHC1   ;;5916074

PSGWHV    ;;8690535

PSGWHV0   ;;6712805

PSGWHV1   ;;5588983

PSGWKINV  ;;286315

PSGWL     ;;13973426

PSGWLSI   ;;6513133

PSGWLSI1  ;;11512487

PSGWLSI2  ;;7691709

PSGWNU    ;;9603147

PSGWNU1   ;;6882055

PSGWOD2   ;;2664332

PSGWODP   ;;9462668

PSGWODPR  ;;7461754

PSGWODRN  ;;17619352

PSGWOLD   ;;12732432

PSGWOLD1  ;;2110087

PSGWOND   ;;11310229

PSGWONDM  ;;19072476

PSGWPAW   ;;6593463

PSGWPAW1  ;;15460526

PSGWPERC  ;;1919931

PSGWPERE  ;;1523274

PSGWPI    ;;6679648

PSGWPI1   ;;13320049

PSGWPI2   ;;9680378

PSGWPIG   ;;10827983

PSGWPIS   ;;12279683

PSGWPL    ;;13836679

PSGWPL0   ;;14308325

PSGWPL1   ;;5068891

PSGWPOST  ;;19592480

PSGWPRE1  ;;6549690

PSGWPSI   ;;7769362

PSGWPSI1  ;;6999982

PSGWPST1  ;;2283832

PSGWRA    ;;16600066

PSGWRAC   ;;11116098

PSGWRI    ;;3716796

PSGWSC    ;;9216557

PSGWSC1   ;;6105570

PSGWSET   ;;5617928

PSGWSIG   ;;7288214

PSGWSTD   ;;5434665

PSGWSTKI  ;;6517961

PSGWTOT   ;;8644984

PSGWTOT1  ;;11144490

PSGWTOT2  ;;13583982

PSGWTR    ;;15688724

PSGWTR1   ;;7061927

PSGWUAS   ;;10975746

PSGWUTL   ;;14759833

PSGWUTL1  ;;7498103

PSGWVW    ;;11025406

PSGWWRD   ;;17109762

PSGWXREF  ;;10462873