171 lines
3.5 KiB
Mathematica
171 lines
3.5 KiB
Mathematica
MCNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2960909.113955
|
|
;;2.3;Medicine;;09/13/1996
|
|
;;7.3;2960909.113955
|
|
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^MCNTEG0
|
|
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 ;;
|
|
MCARAM ;;7513129
|
|
MCARAM0 ;;8652928
|
|
MCARAM0A ;;3324603
|
|
MCARAM0B ;;1635444
|
|
MCARAM0C ;;259164
|
|
MCARAM0D ;;1414732
|
|
MCARAM0E ;;2281887
|
|
MCARAM0F ;;1175131
|
|
MCARAM0G ;;965472
|
|
MCARAM0H ;;1245689
|
|
MCARAM1 ;;9634784
|
|
MCARAM2 ;;5013333
|
|
MCARAM3 ;;7540725
|
|
MCARAM4 ;;5388145
|
|
MCARAM5 ;;7414846
|
|
MCARAM6 ;;4370819
|
|
MCARAM7 ;;3389255
|
|
MCARAML ;;884394
|
|
MCARAMLA ;;1770487
|
|
MCARAMLB ;;1030845
|
|
MCARAMLC ;;2145896
|
|
MCARAMLD ;;1213232
|
|
MCARAMLE ;;985870
|
|
MCARAMLF ;;1648647
|
|
MCARAMLG ;;3429686
|
|
MCARAMLH ;;4812240
|
|
MCARAP ;;13128865
|
|
MCARAP1 ;;8368139
|
|
MCARAP2 ;;8581535
|
|
MCARASE ;;1343241
|
|
MCARATVE ;;4660706
|
|
MCARBSA ;;1893009
|
|
MCARD ;;7219348
|
|
MCARD1 ;;9153309
|
|
MCARDBL ;;2745397
|
|
MCARDC ;;8324014
|
|
MCARDC1 ;;10958868
|
|
MCARDCM ;;8624300
|
|
MCARDCM1 ;;9199269
|
|
MCARDCM2 ;;16019523
|
|
MCARDCM3 ;;4461677
|
|
MCARDCN ;;8168560
|
|
MCARDCN1 ;;11879348
|
|
MCARDCQ ;;9767978
|
|
MCARDCQ1 ;;14107855
|
|
MCARDHLP ;;7413320
|
|
MCARDML ;;7891874
|
|
MCARDNJ ;;12950077
|
|
MCARDNJ1 ;;11164953
|
|
MCARDNJ2 ;;8566701
|
|
MCARDNK ;;4192119
|
|
MCARDNQ ;;9677299
|
|
MCARDNQ2 ;;5603751
|
|
MCARDPAR ;;1087615
|
|
MCARDPL ;;6589975
|
|
MCARDSE ;;4910080
|
|
MCARDSS ;;2795427
|
|
MCARE ;;10169181
|
|
MCARE1 ;;587426
|
|
MCARED ;;1346233
|
|
MCAREH ;;2668985
|
|
MCARENV ;;1706772
|
|
MCARENV1 ;;5645418
|
|
MCAREO ;;1226288
|
|
MCARGD ;;10355791
|
|
MCARGE ;;12626600
|
|
MCARGEA ;;2183926
|
|
MCARGEO ;;1273111
|
|
MCARGES ;;8749771
|
|
MCARGP ;;8855698
|
|
MCARGPA ;;2450896
|
|
MCARGS ;;15196656
|
|
MCARHP ;;9526217
|
|
MCARLV ;;1224221
|
|
MCARP ;;12050941
|
|
MCARP1 ;;6483686
|
|
MCARPAC ;;4176211
|
|
MCARPACE ;;7935031
|
|
MCARPAL ;;8294365
|
|
MCARPCE ;;6947531
|
|
MCARPCS ;;2823538
|
|
MCARPCS1 ;;8993163
|
|
MCARPCS2 ;;6070211
|
|
MCARPCS3 ;;10490801
|
|
MCARPCS4 ;;6236777
|
|
MCARPROC ;;2609457
|
|
MCARPS ;;12724091
|
|
MCARPS1 ;;4080525
|
|
MCARSRE ;;2689053
|
|
MCARSRP ;;4956056
|
|
MCARSRR ;;7715339
|
|
MCARSUP ;;5565217
|
|
MCARVCHK ;;5828316
|
|
MCBPFTP1 ;;13843469
|
|
MCBPFTP2 ;;7860225
|
|
MCBPFTP3 ;;7872831
|
|
MCBPFTP4 ;;2488267
|
|
MCBPFTP5 ;;4778343
|
|
MCBPFTP6 ;;1682113
|
|
MCBPFTP7 ;;3150765
|
|
MCDBELM ;;8207435
|
|
MCDBSAVE ;;4573907
|
|
MCDIE001 ;;5582646
|
|
MCDIE002 ;;5818428
|
|
MCDIE003 ;;4575251
|
|
MCDIEDIE ;;4025966
|
|
MCDUP1 ;;10974055
|
|
MCDUPE ;;28907
|
|
MCDUPM ;;4383298
|
|
MCDUPP ;;5884894
|
|
MCDUPR ;;8492052
|
|
MCEF ;;2902953
|
|
MCENDIQ1 ;;198583
|
|
MCENV00 ;;6610520
|
|
MCENVCHK ;;160465
|
|
MCEO ;;1629111
|
|
MCEPROC ;;1763322
|
|
MCESCON3 ;;626548
|
|
MCESCONV ;;10707161
|
|
MCESEDT ;;12796040
|
|
MCESEDT2 ;;10366787
|
|
MCESHLP ;;6844447
|
|
MCESLIST ;;5146729
|
|
MCESMFDV ;;2288072
|
|
MCESPRT ;;6425050
|
|
MCESSCR ;;5268874
|
|
MCFIXOEP ;;740019
|
|
MCGBL ;;5394986
|
|
MCMAG ;;1044714
|
|
MCMAGDSP ;;5147124
|
|
MCMENUDE ;;5822044
|
|
MCNMDUP ;;2619985
|
|
MCNP2CHK ;;4467177
|
|
MCNP2X ;;793498
|
|
MCOR ;;14232069
|
|
MCOR1 ;;5268190
|
|
MCOREX ;;2660895
|
|
MCORMN ;;4051049
|
|
MCORMN0 ;;6741624
|
|
MCORMN01 ;;1977484
|
|
MCORMN1 ;;5869467
|
|
MCORMN2 ;;6151277
|
|
MCPARAM ;;504047
|
|
MCPFTE ;;4844525
|
|
MCPFTI ;;6287475
|
|
MCPFTIC ;;5278858
|
|
MCPFTP ;;1702907
|
|
MCPFTP1 ;;12497840
|
|
MCPFTP1A ;;1637882
|
|
MCPFTP2 ;;11990988
|
|
MCPFTP2A ;;12428437
|
|
MCPFTP3 ;;5993259
|
|
MCPFTP4 ;;6787432
|
|
MCPFTP4A ;;1678587
|
|
MCPFTP5 ;;13958685
|
|
MCPFTR ;;1913488
|
|
MCPFTSS ;;546237
|
|
MCPMV ;;2778636
|
|
MCPMVA ;;641401
|