179 lines
3.5 KiB
Mathematica
179 lines
3.5 KiB
Mathematica
FHNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;OCT 11, 1995@10:01:46
|
|
;;0.0;
|
|
;;7.1;OCT 11, 1995@10:01:46
|
|
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^FHNTEG0
|
|
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 ;;
|
|
FH ;;1933177
|
|
FHADM2 ;;2855586
|
|
FHADM21 ;;7966786
|
|
FHADM2A ;;2375833
|
|
FHADM3 ;;5810121
|
|
FHADM4 ;;9500389
|
|
FHADM5 ;;323152
|
|
FHADR1 ;;6236966
|
|
FHADR10 ;;2472024
|
|
FHADR1A ;;6939546
|
|
FHADR2 ;;3823209
|
|
FHADR3 ;;1811235
|
|
FHADR3A ;;6395711
|
|
FHADR4 ;;3651849
|
|
FHADR5 ;;3779837
|
|
FHADR6 ;;10058150
|
|
FHADR61 ;;2724873
|
|
FHADR7 ;;6397935
|
|
FHADR8 ;;3103134
|
|
FHADR81 ;;5662701
|
|
FHADR9 ;;7544892
|
|
FHADR9A ;;4060734
|
|
FHADRPT ;;2949179
|
|
FHADRSY ;;1383849
|
|
FHASC ;;1661812
|
|
FHASE ;;12352922
|
|
FHASE1 ;;4636527
|
|
FHASE1A ;;10368196
|
|
FHASE2 ;;4358156
|
|
FHASE3 ;;1455346
|
|
FHASM1 ;;8647619
|
|
FHASM2 ;;8399539
|
|
FHASM2A ;;2430817
|
|
FHASM2B ;;3386101
|
|
FHASM2C ;;3102927
|
|
FHASM2D ;;2275862
|
|
FHASM3 ;;5096802
|
|
FHASM3A ;;9169407
|
|
FHASM4 ;;6344698
|
|
FHASM5 ;;8945494
|
|
FHASM6 ;;7486877
|
|
FHASM7 ;;9593313
|
|
FHASMR ;;2727928
|
|
FHASMR1 ;;9517687
|
|
FHASN ;;3149876
|
|
FHASN1 ;;3511694
|
|
FHASN3 ;;6030523
|
|
FHASN4 ;;9774004
|
|
FHASN5 ;;8678046
|
|
FHASN6 ;;7635637
|
|
FHASN7 ;;2602313
|
|
FHASN71 ;;9171190
|
|
FHASP ;;7858984
|
|
FHASP1 ;;5062129
|
|
FHASP2 ;;3530400
|
|
FHASXR ;;6537891
|
|
FHASXR1 ;;8965616
|
|
FHBIR ;;4059872
|
|
FHCLN ;;740822
|
|
FHCMS1 ;;778447
|
|
FHCMSR ;;4571401
|
|
FHCMSR1 ;;6665228
|
|
FHCTF ;;681451
|
|
FHCTF1 ;;6124347
|
|
FHCTF2 ;;397188
|
|
FHCTF3 ;;13151878
|
|
FHCTF4 ;;6160915
|
|
FHDCR1 ;;8507036
|
|
FHDCR11 ;;4507014
|
|
FHDCR1A ;;6164513
|
|
FHDCR1B ;;9131155
|
|
FHDCR1C ;;2162795
|
|
FHDCR1D ;;6930746
|
|
FHDCR2 ;;872781
|
|
FHDEV ;;1319169
|
|
FHDMP ;;7066349
|
|
FHDMP1 ;;3150137
|
|
FHDMP2 ;;5848038
|
|
FHDMP3 ;;4936568
|
|
FHDMP4 ;;7823399
|
|
FHDMP5 ;;5203454
|
|
FHDPA ;;2974151
|
|
FHIPST ;;5821572
|
|
FHIPST1 ;;2376175
|
|
FHIPST10 ;;5608317
|
|
FHIPST11 ;;5908172
|
|
FHIPST12 ;;5840142
|
|
FHIPST13 ;;5669546
|
|
FHIPST14 ;;6093522
|
|
FHIPST15 ;;4681408
|
|
FHIPST16 ;;5603245
|
|
FHIPST17 ;;1797845
|
|
FHIPST18 ;;1252543
|
|
FHIPST19 ;;811740
|
|
FHIPST2 ;;1871064
|
|
FHIPST20 ;;3761391
|
|
FHIPST3 ;;5363809
|
|
FHIPST4 ;;1980574
|
|
FHIPST5 ;;1154415
|
|
FHIPST6 ;;700221
|
|
FHIPST7 ;;1254271
|
|
FHIPST8 ;;1109712
|
|
FHIPST9 ;;6158714
|
|
FHMTK ;;8334209
|
|
FHMTK1 ;;9736775
|
|
FHMTK11 ;;9501249
|
|
FHMTK1A ;;5652773
|
|
FHMTK1B ;;9506136
|
|
FHMTK1C ;;7533994
|
|
FHMTK2 ;;4933044
|
|
FHMTK21 ;;5663649
|
|
FHMTK3 ;;7247098
|
|
FHMTK4 ;;6393503
|
|
FHMTK5 ;;7788180
|
|
FHMTK6 ;;6997795
|
|
FHMTK7 ;;4842201
|
|
FHNO1 ;;2554062
|
|
FHNO2 ;;10768538
|
|
FHNO21 ;;3984168
|
|
FHNO3 ;;3504490
|
|
FHNO31 ;;7450905
|
|
FHNO4 ;;1121656
|
|
FHNO41 ;;7922111
|
|
FHNO5 ;;5224038
|
|
FHNO6 ;;9801097
|
|
FHNO7 ;;2361316
|
|
FHNO8 ;;2731298
|
|
FHNU ;;1616737
|
|
FHNU1 ;;4573798
|
|
FHNU10 ;;5583463
|
|
FHNU11 ;;10048442
|
|
FHNU12 ;;5447130
|
|
FHNU2 ;;12335468
|
|
FHNU3 ;;6834955
|
|
FHNU4 ;;11724524
|
|
FHNU5 ;;10454629
|
|
FHNU6 ;;4729171
|
|
FHNU7 ;;5806572
|
|
FHNU8 ;;7815140
|
|
FHNU9 ;;4484537
|
|
FHNUT ;;4362721
|
|
FHORC ;;4988961
|
|
FHORC1 ;;3376539
|
|
FHORC2 ;;10784717
|
|
FHORC3 ;;7547945
|
|
FHORC4 ;;2770986
|
|
FHORC5 ;;2011042
|
|
FHORCW ;;6949788
|
|
FHORD ;;1618989
|
|
FHORD1 ;;12718924
|
|
FHORD10 ;;6881787
|
|
FHORD11 ;;10078328
|
|
FHORD13 ;;7875615
|
|
FHORD1A ;;3630323
|
|
FHORD2 ;;6094066
|
|
FHORD3 ;;6474710
|
|
FHORD4 ;;5320132
|
|
FHORD41 ;;4108718
|
|
FHORD5 ;;5286069
|
|
FHORD6 ;;9749127
|
|
FHORD61 ;;7575939
|
|
FHORD7 ;;5790814
|
|
FHORD71 ;;7838090
|
|
FHORD72 ;;7184640
|
|
FHORD8 ;;6489332
|
|
FHORD81 ;;5717162
|
|
FHORD82 ;;7938833
|