173 lines
3.5 KiB
Mathematica
173 lines
3.5 KiB
Mathematica
|
IBDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970424.083551
|
||
|
|
;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
|
||
|
|
;;7.3;2970424.083551
|
||
|
|
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^IBDNTEG0
|
||
|
|
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 ;;
|
||
|
|
IBD3KENV ;;2482893
|
||
|
|
IBD3KPT ;;11964813
|
||
|
|
IBDE ;;2997987
|
||
|
|
IBDE1 ;;7343104
|
||
|
|
IBDE1A ;;3361399
|
||
|
|
IBDE1B ;;1339223
|
||
|
|
IBDE2 ;;409473
|
||
|
|
IBDE3 ;;9480134
|
||
|
|
IBDE4 ;;4707082
|
||
|
|
IBDEHELP ;;7817644
|
||
|
|
IBDEPRE ;;4328499
|
||
|
|
IBDEPT ;;239186
|
||
|
|
IBDF10 ;;11871257
|
||
|
|
IBDF10A ;;14844945
|
||
|
|
IBDF10B ;;4334206
|
||
|
|
IBDF10C ;;7145394
|
||
|
|
IBDF11 ;;3746255
|
||
|
|
IBDF11A ;;3372216
|
||
|
|
IBDF12 ;;2449474
|
||
|
|
IBDF13 ;;6065810
|
||
|
|
IBDF14 ;;2806524
|
||
|
|
IBDF14A ;;8128142
|
||
|
|
IBDF15 ;;2835740
|
||
|
|
IBDF15A ;;9106437
|
||
|
|
IBDF16 ;;8212382
|
||
|
|
IBDF17 ;;7062222
|
||
|
|
IBDF18 ;;5760005
|
||
|
|
IBDF18A ;;3427205
|
||
|
|
IBDF18A1 ;;8968373
|
||
|
|
IBDF18B ;;1183119
|
||
|
|
IBDF18C ;;9383133
|
||
|
|
IBDF18D ;;2224052
|
||
|
|
IBDF18E ;;11340277
|
||
|
|
IBDF18E0 ;;11693827
|
||
|
|
IBDF18E1 ;;10375249
|
||
|
|
IBDF18E2 ;;4914156
|
||
|
|
IBDF18E3 ;;554180
|
||
|
|
IBDF19 ;;7787654
|
||
|
|
IBDF1A ;;6906704
|
||
|
|
IBDF1B ;;13886733
|
||
|
|
IBDF1B1 ;;11709608
|
||
|
|
IBDF1B1A ;;12963462
|
||
|
|
IBDF1B1B ;;1767481
|
||
|
|
IBDF1B2 ;;2289984
|
||
|
|
IBDF1B3 ;;7853311
|
||
|
|
IBDF1B5 ;;11098411
|
||
|
|
IBDF1BA ;;11321310
|
||
|
|
IBDF1C ;;4183587
|
||
|
|
IBDF2A ;;13089889
|
||
|
|
IBDF2A1 ;;16675892
|
||
|
|
IBDF2A2 ;;5398601
|
||
|
|
IBDF2B ;;7733441
|
||
|
|
IBDF2B1 ;;2426473
|
||
|
|
IBDF2D ;;11307498
|
||
|
|
IBDF2D1 ;;7091947
|
||
|
|
IBDF2D2 ;;20452649
|
||
|
|
IBDF2D3 ;;12284133
|
||
|
|
IBDF2E ;;1625292
|
||
|
|
IBDF2F ;;14953767
|
||
|
|
IBDF2F1 ;;6492541
|
||
|
|
IBDF2G ;;1305076
|
||
|
|
IBDF2H ;;1131607
|
||
|
|
IBDF3 ;;7478886
|
||
|
|
IBDF4 ;;18681956
|
||
|
|
IBDF4A ;;13810939
|
||
|
|
IBDF5 ;;9209729
|
||
|
|
IBDF5A ;;4140889
|
||
|
|
IBDF5B ;;6698423
|
||
|
|
IBDF5C ;;3822764
|
||
|
|
IBDF5D ;;5086357
|
||
|
|
IBDF6 ;;8604587
|
||
|
|
IBDF6A ;;6144443
|
||
|
|
IBDF6C ;;1009133
|
||
|
|
IBDF7 ;;2565275
|
||
|
|
IBDF8 ;;1630744
|
||
|
|
IBDF9 ;;3819084
|
||
|
|
IBDF9A ;;16913688
|
||
|
|
IBDF9A1 ;;7479813
|
||
|
|
IBDF9A3 ;;7052911
|
||
|
|
IBDF9B ;;11180213
|
||
|
|
IBDF9B1 ;;13740809
|
||
|
|
IBDF9B2 ;;6322343
|
||
|
|
IBDF9B3 ;;5177091
|
||
|
|
IBDF9B4 ;;6134853
|
||
|
|
IBDF9C ;;5406188
|
||
|
|
IBDF9D ;;5163363
|
||
|
|
IBDF9E ;;5934543
|
||
|
|
IBDFBK1 ;;4906853
|
||
|
|
IBDFBK2 ;;6362708
|
||
|
|
IBDFBK3 ;;16698204
|
||
|
|
IBDFBKR ;;7402561
|
||
|
|
IBDFBKS ;;15247370
|
||
|
|
IBDFBKS1 ;;5830972
|
||
|
|
IBDFBKS2 ;;14974345
|
||
|
|
IBDFBKS3 ;;12904114
|
||
|
|
IBDFBKS4 ;;8554663
|
||
|
|
IBDFC ;;11407114
|
||
|
|
IBDFC1 ;;4784941
|
||
|
|
IBDFC2 ;;8753867
|
||
|
|
IBDFC2A ;;8223304
|
||
|
|
IBDFC2B ;;13124658
|
||
|
|
IBDFC3 ;;3078465
|
||
|
|
IBDFC4 ;;60053
|
||
|
|
IBDFCG ;;16657494
|
||
|
|
IBDFCG1 ;;6651180
|
||
|
|
IBDFCMP ;;10284232
|
||
|
|
IBDFCMP1 ;;12808450
|
||
|
|
IBDFCNOF ;;9651795
|
||
|
|
IBDFDE ;;28292527
|
||
|
|
IBDFDE0 ;;11338817
|
||
|
|
IBDFDE1 ;;13698331
|
||
|
|
IBDFDE10 ;;424026
|
||
|
|
IBDFDE2 ;;20881171
|
||
|
|
IBDFDE21 ;;20139881
|
||
|
|
IBDFDE22 ;;5338516
|
||
|
|
IBDFDE3 ;;18089819
|
||
|
|
IBDFDE4 ;;11204271
|
||
|
|
IBDFDE41 ;;6974404
|
||
|
|
IBDFDE42 ;;2472593
|
||
|
|
IBDFDE5 ;;20092356
|
||
|
|
IBDFDE6 ;;20813168
|
||
|
|
IBDFDE61 ;;2306021
|
||
|
|
IBDFDE7 ;;13809118
|
||
|
|
IBDFDE8 ;;7762272
|
||
|
|
IBDFDE9 ;;7383712
|
||
|
|
IBDFDEA ;;11764220
|
||
|
|
IBDFDVE ;;392266
|
||
|
|
IBDFESP ;;5681865
|
||
|
|
IBDFFRFT ;;5605728
|
||
|
|
IBDFFSMP ;;4992963
|
||
|
|
IBDFFT ;;19343496
|
||
|
|
IBDFFT1 ;;38001031
|
||
|
|
IBDFFT2 ;;3352777
|
||
|
|
IBDFFT3 ;;19870534
|
||
|
|
IBDFFT4 ;;4158691
|
||
|
|
IBDFFV ;;7432713
|
||
|
|
IBDFFV1 ;;2385105
|
||
|
|
IBDFFV2 ;;4347225
|
||
|
|
IBDFFV3 ;;5257927
|
||
|
|
IBDFGRP ;;9136849
|
||
|
|
IBDFHLP ;;3402730
|
||
|
|
IBDFLST ;;11634433
|
||
|
|
IBDFLST1 ;;1683695
|
||
|
|
IBDFM1 ;;13441067
|
||
|
|
IBDFN ;;15680196
|
||
|
|
IBDFN1 ;;1213860
|
||
|
|
IBDFN10 ;;2765146
|
||
|
|
IBDFN11 ;;2856878
|
||
|
|
IBDFN12 ;;1612905
|
||
|
|
IBDFN13 ;;66244
|
||
|
|
IBDFN14 ;;2226507
|
||
|
|
IBDFN2 ;;8020032
|
||
|
|
IBDFN3 ;;2845147
|
||
|
|
IBDFN4 ;;2973307
|
||
|
|
IBDFN5 ;;3054776
|
||
|
|
IBDFN6 ;;2853724
|
||
|
|
IBDFN7 ;;1460739
|
||
|
|
IBDFN8 ;;124808
|
||
|
|
IBDFN9 ;;194363
|
||
|
|
IBDFOSG ;;10173582
|
||
|
|
IBDFOSG1 ;;7086168
|