RMPFNTEG.m

RMPFNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 16, 1995@15:11:16 [ 06/16/95  3:12 PM ]

 ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995

 ;;7.2;JUN 16, 1995@15:11:16

 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^RMPFNTE0

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

RMPFDB ;;7985494

RMPFDB1 ;;5327145

RMPFDD ;;6780535

RMPFDD1 ;;1853521

RMPFDD2 ;;7548855

RMPFDD3 ;;1694297

RMPFDE ;;4145081

RMPFDE1 ;;4645621

RMPFDM ;;3979050

RMPFDS ;;7728252

RMPFDS1 ;;11491484

RMPFDS2 ;;3763842

RMPFDT ;;5032550

RMPFDT1 ;;7210498

RMPFDT10 ;;5932828

RMPFDT2 ;;9298702

RMPFDT3 ;;12151565

RMPFDT4 ;;4871722

RMPFDT5 ;;5420260

RMPFDT6 ;;16073715

RMPFDT7 ;;7639492

RMPFDT8 ;;3077554

RMPFDT9 ;;3205473

RMPFDX ;;3285892

RMPFEA ;;8405794

RMPFEA1 ;;5771148

RMPFEA2 ;;9168132

RMPFEA3 ;;3698817

RMPFEB ;;6611117

RMPFEC ;;6345785

RMPFED ;;6121487

RMPFEI ;;4568983

RMPFEM ;;5413808

RMPFEP ;;5214494

RMPFEP2 ;;1787421

RMPFER ;;10009792

RMPFES ;;2678622

RMPFET ;;4884433

RMPFET0 ;;8247791

RMPFET1 ;;6898827

RMPFET10 ;;1395589

RMPFET2 ;;7527775

RMPFET3 ;;5074361

RMPFET4 ;;6180170

RMPFET5 ;;1937126

RMPFET6 ;;9736183

RMPFET61 ;;5076416

RMPFET62 ;;3336855

RMPFET7 ;;9887002

RMPFET71 ;;5061804

RMPFET8 ;;12230430

RMPFET81 ;;8528583

RMPFET82 ;;9437093

RMPFET83 ;;4334108

RMPFET84 ;;12653919

RMPFET85 ;;3473283

RMPFET9 ;;7120144

RMPFETL ;;5221909

RMPFETL1 ;;5113827

RMPFEU ;;5339587

RMPFEV ;;3791462

RMPFEV1 ;;3776913

RMPFI001 ;;9101182

RMPFI002 ;;7785053

RMPFI003 ;;7449233

RMPFI004 ;;9396389

RMPFI005 ;;8568642

RMPFI006 ;;8383334

RMPFI007 ;;9271411

RMPFI008 ;;9404335

RMPFI009 ;;8532634

RMPFI00A ;;7450884

RMPFI00B ;;6905976

RMPFI00C ;;7981514

RMPFI00D ;;5775527

RMPFI00E ;;8567448

RMPFI00F ;;8740739

RMPFI00G ;;7502855

RMPFI00H ;;2558708

RMPFI00I ;;5469255

RMPFI00J ;;5759139

RMPFI00K ;;5206111

RMPFI00L ;;5367661

RMPFI00M ;;5479747

RMPFI00N ;;1700337

RMPFI00O ;;7710079

RMPFI00P ;;6057943

RMPFI00Q ;;2842637

RMPFI00R ;;4279262

RMPFI00S ;;2630007

RMPFI00T ;;4666119

RMPFI00U ;;1987706

RMPFI00V ;;5816632

RMPFI00W ;;1029154

RMPFI00X ;;3140327

RMPFI00Y ;;1750613

RMPFI00Z ;;7909735

RMPFI010 ;;8746974

RMPFI011 ;;2111574

RMPFI012 ;;5193014

RMPFI013 ;;5619373

RMPFI014 ;;5653983

RMPFI015 ;;5633232

RMPFI016 ;;5944417

RMPFI017 ;;5803751

RMPFI018 ;;6015885

RMPFI019 ;;6446026

RMPFI01A ;;6084904

RMPFI01B ;;5692774

RMPFI01C ;;5489433

RMPFI01D ;;5524367

RMPFI01E ;;5769437

RMPFI01F ;;5954284

RMPFI01G ;;5632547

RMPFI01H ;;5500705

RMPFI01I ;;5659791

RMPFI01J ;;5721878

RMPFI01K ;;5688757

RMPFI01L ;;5648234

RMPFI01M ;;5728190

RMPFI01N ;;5638332

RMPFI01O ;;5685290

RMPFI01P ;;5662656

RMPFI01Q ;;5635562

RMPFI01R ;;5608347

RMPFI01S ;;5722882

RMPFI01T ;;5869215

RMPFI01U ;;5807891

RMPFI01V ;;5884150

RMPFI01W ;;5724166

RMPFI01X ;;5782541

RMPFI01Y ;;5823401

RMPFI01Z ;;5786037

RMPFI020 ;;5752784

RMPFI021 ;;5712284

RMPFI022 ;;5693920

RMPFI023 ;;5643376

RMPFI024 ;;5817109

RMPFI025 ;;5668655

RMPFI026 ;;5740613

RMPFI027 ;;5715820

RMPFI028 ;;5671808

RMPFI029 ;;5588855

RMPFI02A ;;5755110

RMPFI02B ;;5452628

RMPFI02C ;;5615315

RMPFI02D ;;5074153

RMPFI02E ;;5372538

RMPFI02F ;;5781953

RMPFI02G ;;5969567

RMPFI02H ;;5557799

RMPFI02I ;;5684725

RMPFI02J ;;855995

RMPFI02K ;;7064576

RMPFI02L ;;2588815

RMPFI02M ;;5536519

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---RMPFNTEG   3837     printed  Mar 13, 2025@21:41:43                                                                                                                                                                                                    Page 2

RMPFNTEG  ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 16, 1995@15:11:16 [ 06/16/95  3:12 PM ]

 +1       ;;2.0;REMOTE ORDER/ENTRY SYSTEM;;JUN 16, 1995

 +2       ;;7.2;JUN 16, 1995@15:11:16

 +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^RMPFNTE0

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

RMPFDB    ;;7985494

RMPFDB1   ;;5327145

RMPFDD    ;;6780535

RMPFDD1   ;;1853521

RMPFDD2   ;;7548855

RMPFDD3   ;;1694297

RMPFDE    ;;4145081

RMPFDE1   ;;4645621

RMPFDM    ;;3979050

RMPFDS    ;;7728252

RMPFDS1   ;;11491484

RMPFDS2   ;;3763842

RMPFDT    ;;5032550

RMPFDT1   ;;7210498

RMPFDT10  ;;5932828

RMPFDT2   ;;9298702

RMPFDT3   ;;12151565

RMPFDT4   ;;4871722

RMPFDT5   ;;5420260

RMPFDT6   ;;16073715

RMPFDT7   ;;7639492

RMPFDT8   ;;3077554

RMPFDT9   ;;3205473

RMPFDX    ;;3285892

RMPFEA    ;;8405794

RMPFEA1   ;;5771148

RMPFEA2   ;;9168132

RMPFEA3   ;;3698817

RMPFEB    ;;6611117

RMPFEC    ;;6345785

RMPFED    ;;6121487

RMPFEI    ;;4568983

RMPFEM    ;;5413808

RMPFEP    ;;5214494

RMPFEP2   ;;1787421

RMPFER    ;;10009792

RMPFES    ;;2678622

RMPFET    ;;4884433

RMPFET0   ;;8247791

RMPFET1   ;;6898827

RMPFET10  ;;1395589

RMPFET2   ;;7527775

RMPFET3   ;;5074361

RMPFET4   ;;6180170

RMPFET5   ;;1937126

RMPFET6   ;;9736183

RMPFET61  ;;5076416

RMPFET62  ;;3336855

RMPFET7   ;;9887002

RMPFET71  ;;5061804

RMPFET8   ;;12230430

RMPFET81  ;;8528583

RMPFET82  ;;9437093

RMPFET83  ;;4334108

RMPFET84  ;;12653919

RMPFET85  ;;3473283

RMPFET9   ;;7120144

RMPFETL   ;;5221909

RMPFETL1  ;;5113827

RMPFEU    ;;5339587

RMPFEV    ;;3791462

RMPFEV1   ;;3776913

RMPFI001  ;;9101182

RMPFI002  ;;7785053

RMPFI003  ;;7449233

RMPFI004  ;;9396389

RMPFI005  ;;8568642

RMPFI006  ;;8383334

RMPFI007  ;;9271411

RMPFI008  ;;9404335

RMPFI009  ;;8532634

RMPFI00A  ;;7450884

RMPFI00B  ;;6905976

RMPFI00C  ;;7981514

RMPFI00D  ;;5775527

RMPFI00E  ;;8567448

RMPFI00F  ;;8740739

RMPFI00G  ;;7502855

RMPFI00H  ;;2558708

RMPFI00I  ;;5469255

RMPFI00J  ;;5759139

RMPFI00K  ;;5206111

RMPFI00L  ;;5367661

RMPFI00M  ;;5479747

RMPFI00N  ;;1700337

RMPFI00O  ;;7710079

RMPFI00P  ;;6057943

RMPFI00Q  ;;2842637

RMPFI00R  ;;4279262

RMPFI00S  ;;2630007

RMPFI00T  ;;4666119

RMPFI00U  ;;1987706

RMPFI00V  ;;5816632

RMPFI00W  ;;1029154

RMPFI00X  ;;3140327

RMPFI00Y  ;;1750613

RMPFI00Z  ;;7909735

RMPFI010  ;;8746974

RMPFI011  ;;2111574

RMPFI012  ;;5193014

RMPFI013  ;;5619373

RMPFI014  ;;5653983

RMPFI015  ;;5633232

RMPFI016  ;;5944417

RMPFI017  ;;5803751

RMPFI018  ;;6015885

RMPFI019  ;;6446026

RMPFI01A  ;;6084904

RMPFI01B  ;;5692774

RMPFI01C  ;;5489433

RMPFI01D  ;;5524367

RMPFI01E  ;;5769437

RMPFI01F  ;;5954284

RMPFI01G  ;;5632547

RMPFI01H  ;;5500705

RMPFI01I  ;;5659791

RMPFI01J  ;;5721878

RMPFI01K  ;;5688757

RMPFI01L  ;;5648234

RMPFI01M  ;;5728190

RMPFI01N  ;;5638332

RMPFI01O  ;;5685290

RMPFI01P  ;;5662656

RMPFI01Q  ;;5635562

RMPFI01R  ;;5608347

RMPFI01S  ;;5722882

RMPFI01T  ;;5869215

RMPFI01U  ;;5807891

RMPFI01V  ;;5884150

RMPFI01W  ;;5724166

RMPFI01X  ;;5782541

RMPFI01Y  ;;5823401

RMPFI01Z  ;;5786037

RMPFI020  ;;5752784

RMPFI021  ;;5712284

RMPFI022  ;;5693920

RMPFI023  ;;5643376

RMPFI024  ;;5817109

RMPFI025  ;;5668655

RMPFI026  ;;5740613

RMPFI027  ;;5715820

RMPFI028  ;;5671808

RMPFI029  ;;5588855

RMPFI02A  ;;5755110

RMPFI02B  ;;5452628

RMPFI02C  ;;5615315

RMPFI02D  ;;5074153

RMPFI02E  ;;5372538

RMPFI02F  ;;5781953

RMPFI02G  ;;5969567

RMPFI02H  ;;5557799

RMPFI02I  ;;5684725

RMPFI02J  ;;855995

RMPFI02K  ;;7064576

RMPFI02L  ;;2588815

RMPFI02M  ;;5536519