168 lines
3.6 KiB
Mathematica
168 lines
3.6 KiB
Mathematica
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
|