PXNTEG0.m

PXNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960814.111525

 ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 ;;7.3;2960814.111525

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

PXEDIM ;;2693872

PXEDIP ;;1319914

PXIPENV ;;4829265

PXIPOST ;;10609601

PXIPOST1 ;;5403177

PXIPREI ;;98554

PXKCO ;;9069835

PXKCO1 ;;5412432

PXKCOC ;;4494784

PXKCOC1 ;;5092027

PXKCODX ;;4448898

PXKCODX1 ;;2851561

PXKCOP ;;5617646

PXKCOV ;;6243549

PXKCOV1 ;;839177

PXKENC ;;2241921

PXKFCPT ;;476276

PXKFCPT1 ;;5059140

PXKFHF ;;331373

PXKFIMM ;;344831

PXKFIMM1 ;;1448124

PXKFPED ;;313254

PXKFPOV ;;585703

PXKFPRV ;;341731

PXKFSK ;;334599

PXKFSK1 ;;1397729

PXKFTRT ;;453618

PXKFVST ;;1800075

PXKFXAM ;;322199

PXKMAIN ;;9022682

PXKMAIN1 ;;7844038

PXKMAIN2 ;;3960335

PXKMASC ;;4745615

PXKMASC1 ;;425778

PXKVST ;;7444037

PXPT ;;4195785

PXPTPOST ;;310535

PXRHS01 ;;3657081

PXRHS02 ;;3882829

PXRHS03 ;;3581019

PXRHS04 ;;2343645

PXRHS05 ;;2600637

PXRHS06 ;;3145202

PXRHS07 ;;3381334

PXRHS08 ;;3092038

PXRHS12 ;;3243447

PXRHS13 ;;284836

PXRHS14 ;;2063087

PXRM ;;1708203

PXRMAFOP ;;1628213

PXRMAGE ;;3463261

PXRMCF ;;1080464

PXRMCFOP ;;2116530

PXRMCODE ;;4751961

PXRMDATE ;;8190170

PXRMDEV ;;912350

PXRMDGOP ;;1722486

PXRMDGPT ;;5029719

PXRMDISC ;;349895

PXRMEDIT ;;189592

PXRMEDU ;;1978722

PXRMEXAM ;;1528931

PXRMFOUT ;;7789264

PXRMHF ;;880737

PXRMHFOP ;;2603921

PXRMICD9 ;;40926

PXRMIMM ;;1908149

PXRMLAB ;;1469254

PXRMLOG ;;5648113

PXRMMEAS ;;4562918

PXRMOBES ;;660543

PXRMPINF ;;128503

PXRMPROB ;;586296

PXRMPROC ;;13175

PXRMPROP ;;816990

PXRMPT ;;1973992

PXRMRAD ;;1310165

PXRMRAOP ;;932105

PXRMREDT ;;607428

PXRMRINQ ;;248770

PXRMSKIN ;;1472020

PXRMSTDC ;;160943

PXRMTAXP ;;4911949

PXRMTEDT ;;493821

PXRMTF ;;182258

PXRMTFOP ;;1412749

PXRMTGOP ;;634049

PXRMTP ;;766683

PXRMTPA ;;693519

PXRMTYPE ;;817172

PXRMUNIQ ;;4375824

PXRMUTIL ;;3647079

PXRMVCOP ;;1123516

PXRMVCPT ;;585304

PXRMVPOP ;;1088013

PXRMVPOV ;;584024

PXRMWCHK ;;2052937

PXRRADUT ;;1787434

PXRRECQ ;;862139

PXRRECSE ;;4656064

PXRRFDD ;;2261881

PXRRFDP ;;9864798

PXRRFDQ ;;969448

PXRRFDSD ;;6406005

PXRRFDSE ;;3427136

PXRRGPRT ;;4739446

PXRRGUT ;;786807

PXRRLCCP ;;4173188

PXRRLCD ;;1192118

PXRRLCHP ;;4624532

PXRRPCE ;;11186617

PXRRPCE1 ;;9048578

PXRRPCE2 ;;10302854

PXRRPCE3 ;;17178680

PXRRPCE4 ;;18066573

PXRRPCE5 ;;12851121

PXRRPCEQ ;;8481247

PXRRPCR ;;13260711

PXRRPCR1 ;;3427796

PXRRPCR2 ;;13244946

PXRRPCR3 ;;7942411

PXRRPCR4 ;;5999209

PXRRPRD ;;1140404

PXRRPRDP ;;6700997

PXRRPRPL ;;921087

PXRRPRSP ;;3247242

PXRRSC ;;13073533

PXSCH1 ;;4162981

PXSCH2 ;;2132778

PXSCH3 ;;1751960

PXSCH4 ;;2844383

PXTTEDC ;;3598740

PXTTEDE ;;433947

PXTTEDQ ;;923725

PXTTU1 ;;4808536

PXUTL1 ;;3604821

PXUTLSCC ;;5994057

PXUTLSTP ;;5176784

PXUTLVST ;;545819

PXXDPT ;;2929744

PXNTEG0   ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960814.111525

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;;Aug 12, 1996

 +2       ;;7.3;2960814.111525

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

PXEDIM    ;;2693872

PXEDIP    ;;1319914

PXIPENV   ;;4829265

PXIPOST   ;;10609601

PXIPOST1  ;;5403177

PXIPREI   ;;98554

PXKCO     ;;9069835

PXKCO1    ;;5412432

PXKCOC    ;;4494784

PXKCOC1   ;;5092027

PXKCODX   ;;4448898

PXKCODX1  ;;2851561

PXKCOP    ;;5617646

PXKCOV    ;;6243549

PXKCOV1   ;;839177

PXKENC    ;;2241921

PXKFCPT   ;;476276

PXKFCPT1  ;;5059140

PXKFHF    ;;331373

PXKFIMM   ;;344831

PXKFIMM1  ;;1448124

PXKFPED   ;;313254

PXKFPOV   ;;585703

PXKFPRV   ;;341731

PXKFSK    ;;334599

PXKFSK1   ;;1397729

PXKFTRT   ;;453618

PXKFVST   ;;1800075

PXKFXAM   ;;322199

PXKMAIN   ;;9022682

PXKMAIN1  ;;7844038

PXKMAIN2  ;;3960335

PXKMASC   ;;4745615

PXKMASC1  ;;425778

PXKVST    ;;7444037

PXPT      ;;4195785

PXPTPOST  ;;310535

PXRHS01   ;;3657081

PXRHS02   ;;3882829

PXRHS03   ;;3581019

PXRHS04   ;;2343645

PXRHS05   ;;2600637

PXRHS06   ;;3145202

PXRHS07   ;;3381334

PXRHS08   ;;3092038

PXRHS12   ;;3243447

PXRHS13   ;;284836

PXRHS14   ;;2063087

PXRM      ;;1708203

PXRMAFOP  ;;1628213

PXRMAGE   ;;3463261

PXRMCF    ;;1080464

PXRMCFOP  ;;2116530

PXRMCODE  ;;4751961

PXRMDATE  ;;8190170

PXRMDEV   ;;912350

PXRMDGOP  ;;1722486

PXRMDGPT  ;;5029719

PXRMDISC  ;;349895

PXRMEDIT  ;;189592

PXRMEDU   ;;1978722

PXRMEXAM  ;;1528931

PXRMFOUT  ;;7789264

PXRMHF    ;;880737

PXRMHFOP  ;;2603921

PXRMICD9  ;;40926

PXRMIMM   ;;1908149

PXRMLAB   ;;1469254

PXRMLOG   ;;5648113

PXRMMEAS  ;;4562918

PXRMOBES  ;;660543

PXRMPINF  ;;128503

PXRMPROB  ;;586296

PXRMPROC  ;;13175

PXRMPROP  ;;816990

PXRMPT    ;;1973992

PXRMRAD   ;;1310165

PXRMRAOP  ;;932105

PXRMREDT  ;;607428

PXRMRINQ  ;;248770

PXRMSKIN  ;;1472020

PXRMSTDC  ;;160943

PXRMTAXP  ;;4911949

PXRMTEDT  ;;493821

PXRMTF    ;;182258

PXRMTFOP  ;;1412749

PXRMTGOP  ;;634049

PXRMTP    ;;766683

PXRMTPA   ;;693519

PXRMTYPE  ;;817172

PXRMUNIQ  ;;4375824

PXRMUTIL  ;;3647079

PXRMVCOP  ;;1123516

PXRMVCPT  ;;585304

PXRMVPOP  ;;1088013

PXRMVPOV  ;;584024

PXRMWCHK  ;;2052937

PXRRADUT  ;;1787434

PXRRECQ   ;;862139

PXRRECSE  ;;4656064

PXRRFDD   ;;2261881

PXRRFDP   ;;9864798

PXRRFDQ   ;;969448

PXRRFDSD  ;;6406005

PXRRFDSE  ;;3427136

PXRRGPRT  ;;4739446

PXRRGUT   ;;786807

PXRRLCCP  ;;4173188

PXRRLCD   ;;1192118

PXRRLCHP  ;;4624532

PXRRPCE   ;;11186617

PXRRPCE1  ;;9048578

PXRRPCE2  ;;10302854

PXRRPCE3  ;;17178680

PXRRPCE4  ;;18066573

PXRRPCE5  ;;12851121

PXRRPCEQ  ;;8481247

PXRRPCR   ;;13260711

PXRRPCR1  ;;3427796

PXRRPCR2  ;;13244946

PXRRPCR3  ;;7942411

PXRRPCR4  ;;5999209

PXRRPRD   ;;1140404

PXRRPRDP  ;;6700997

PXRRPRPL  ;;921087

PXRRPRSP  ;;3247242

PXRRSC    ;;13073533

PXSCH1    ;;4162981

PXSCH2    ;;2132778

PXSCH3    ;;1751960

PXSCH4    ;;2844383

PXTTEDC   ;;3598740

PXTTEDE   ;;433947

PXTTEDQ   ;;923725

PXTTU1    ;;4808536

PXUTL1    ;;3604821

PXUTLSCC  ;;5994057

PXUTLSTP  ;;5176784

PXUTLVST  ;;545819

PXXDPT    ;;2929744