102 lines
2.3 KiB
Mathematica
102 lines
2.3 KiB
Mathematica
HLNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2951013.161539
|
|
;;1.6;HEALTH LEVEL SEVEN;;Oct 13, 1995
|
|
;;7.3;2951013.161539
|
|
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")
|
|
;
|
|
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 ;;
|
|
HLCHK ;;15554889
|
|
HLCS ;;5054627
|
|
HLCS1 ;;10146376
|
|
HLCSDL ;;4226325
|
|
HLCSDL1 ;;4097807
|
|
HLCSDL2 ;;3748206
|
|
HLCSDR ;;3037425
|
|
HLCSDR1 ;;10572184
|
|
HLCSDR2 ;;5037799
|
|
HLCSFMN ;;4628837
|
|
HLCSFMN0 ;;5723402
|
|
HLCSFMN1 ;;3733023
|
|
HLCSHDR ;;5439890
|
|
HLCSIN ;;1581884
|
|
HLCSLNCH ;;6946551
|
|
HLCSMM ;;2729548
|
|
HLCSMM1 ;;3526168
|
|
HLCSMON ;;7357108
|
|
HLCSMON1 ;;3920951
|
|
HLCSORA1 ;;3241108
|
|
HLCSORA2 ;;1041738
|
|
HLCSORAT ;;5245857
|
|
HLCSOUT ;;3686510
|
|
HLCSQUE ;;4277953
|
|
HLCSQUE1 ;;1091487
|
|
HLCSQUED ;;1486768
|
|
HLCSRE1 ;;1476526
|
|
HLCSREP ;;576102
|
|
HLCSREQ ;;1749378
|
|
HLCSRES ;;1744198
|
|
HLCSRQ ;;667862
|
|
HLCSRV ;;82086
|
|
HLCSTERM ;;2472908
|
|
HLCSUTL ;;3650650
|
|
HLCSUTL1 ;;2138096
|
|
HLCSUTL2 ;;2000113
|
|
HLDTIW01 ;;2985011
|
|
HLDTIW02 ;;3113507
|
|
HLDTIW03 ;;7259996
|
|
HLDTIW04 ;;7467021
|
|
HLDTIW05 ;;5070958
|
|
HLDTIW2A ;;2299262
|
|
HLDTIW2B ;;3939992
|
|
HLDTIW2C ;;5265559
|
|
HLDTIWP0 ;;7906384
|
|
HLDTIWP1 ;;7858585
|
|
HLDTIWP2 ;;8034167
|
|
HLDTIWP3 ;;8640942
|
|
HLDTIWP4 ;;4866569
|
|
HLDTIWP5 ;;5186790
|
|
HLDTIWP6 ;;5226642
|
|
HLDTIWU0 ;;2665911
|
|
HLDTIWU1 ;;6042447
|
|
HLDTIWU2 ;;2061645
|
|
HLDTIWU3 ;;2154979
|
|
HLDTIWU4 ;;5985571
|
|
HLDTIWU5 ;;2798441
|
|
HLFNC ;;5564618
|
|
HLFNC1 ;;1599816
|
|
HLFNC2 ;;5144993
|
|
HLFNC3 ;;2627567
|
|
HLLM ;;10329188
|
|
HLLM1 ;;3316521
|
|
HLLP ;;13230724
|
|
HLMA ;;3791837
|
|
HLMA0 ;;603501
|
|
HLMA1 ;;4194174
|
|
HLMA2 ;;1082489
|
|
HLPOST ;;4060423
|
|
HLPOST16 ;;7441421
|
|
HLPOSTQ ;;4443120
|
|
HLPRE16 ;;997068
|
|
HLSERV ;;3192635
|
|
HLTASK ;;2278627
|
|
HLTF ;;7368663
|
|
HLTF0 ;;4721527
|
|
HLTF1 ;;12182659
|
|
HLTP ;;5313409
|
|
HLTP0 ;;3059568
|
|
HLTP01 ;;3910226
|
|
HLTP1 ;;4281970
|
|
HLTP2 ;;1168795
|
|
HLTPCK1 ;;3874944
|
|
HLTPCK1A ;;10240252
|
|
HLTRANS ;;11965538
|
|
HLUOPT ;;11331726
|
|
HLUOPT1 ;;7100021
|
|
HLUTIL1 ;;1134063
|
|
HLUTIL2 ;;3877956
|
|
HLUTIL3 ;;424284
|