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 ---[H[J[2J[HRMPFNTEG 3837 printed Sep 23, 2025@20:12:59 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
