165 lines
3.5 KiB
Mathematica
165 lines
3.5 KiB
Mathematica
PRCANTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;SEP 19, 1995@07:50:48
|
|
;;0.0;
|
|
;;7.2;SEP 19, 1995@07:50:48
|
|
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^PRCANTE0
|
|
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 ;;
|
|
PRCAACC ;;4043366
|
|
PRCAADBO ;;7034078
|
|
PRCAADIN ;;8227592
|
|
PRCAAPR ;;8140887
|
|
PRCAAPR1 ;;11564152
|
|
PRCAATR ;;8783907
|
|
PRCABD ;;12291906
|
|
PRCABIL ;;5564563
|
|
PRCABIL1 ;;12422838
|
|
PRCABIL2 ;;7387356
|
|
PRCABIL3 ;;8121698
|
|
PRCABJ ;;6692362
|
|
PRCABJ1 ;;4663573
|
|
PRCABJV ;;5372708
|
|
PRCABP1 ;;16980544
|
|
PRCABP2 ;;18171823
|
|
PRCABPF ;;2946867
|
|
PRCACLM ;;10348676
|
|
PRCACM ;;12117368
|
|
PRCACOL ;;11033444
|
|
PRCACPV ;;7264265
|
|
PRCACV10 ;;5428098
|
|
PRCADCDJ ;;9619500
|
|
PRCADCJ1 ;;3167285
|
|
PRCADEL ;;5304005
|
|
PRCADIN ;;4845537
|
|
PRCADJ ;;10533524
|
|
PRCADR ;;9677108
|
|
PRCADR1 ;;11064839
|
|
PRCADR2 ;;7168312
|
|
PRCADR3 ;;9610774
|
|
PRCAEA ;;418637
|
|
PRCAEA1 ;;3517911
|
|
PRCAEIN ;;11764234
|
|
PRCAEOL ;;10518361
|
|
PRCAEXM ;;7481608
|
|
PRCAFBD ;;8294390
|
|
PRCAFBD1 ;;261027
|
|
PRCAFBDM ;;3222877
|
|
PRCAFBDU ;;10728645
|
|
PRCAFDCT ;;1379875
|
|
PRCAFN ;;7392695
|
|
PRCAFN1 ;;973771
|
|
PRCAFOR ;;1315459
|
|
PRCAFUT ;;7677086
|
|
PRCAFWO ;;3376487
|
|
PRCAG ;;13321013
|
|
PRCAGD ;;7990199
|
|
PRCAGDR ;;5054538
|
|
PRCAGDT ;;13912127
|
|
PRCAGF ;;9875365
|
|
PRCAGF1 ;;2876711
|
|
PRCAGP ;;4992125
|
|
PRCAGS ;;12982296
|
|
PRCAGST ;;5366761
|
|
PRCAGST1 ;;8964951
|
|
PRCAGST2 ;;2033418
|
|
PRCAGT ;;5306041
|
|
PRCAGU ;;5343760
|
|
PRCAHIS ;;12620784
|
|
PRCAHIS1 ;;1270244
|
|
PRCAHOL ;;4781886
|
|
PRCAI001 ;;10494501
|
|
PRCAI002 ;;10270191
|
|
PRCAI003 ;;10643856
|
|
PRCAI004 ;;5223325
|
|
PRCAI005 ;;10294153
|
|
PRCAI006 ;;9782997
|
|
PRCAI007 ;;9921433
|
|
PRCAI008 ;;7685656
|
|
PRCAI009 ;;8595920
|
|
PRCAI00A ;;1514956
|
|
PRCAI00B ;;10354031
|
|
PRCAI00C ;;10732944
|
|
PRCAI00D ;;10713175
|
|
PRCAI00E ;;9703211
|
|
PRCAI00F ;;2226181
|
|
PRCAI00G ;;8572946
|
|
PRCAI00H ;;7759041
|
|
PRCAI00I ;;5083256
|
|
PRCAI00J ;;1682048
|
|
PRCAI00K ;;6804588
|
|
PRCAI00L ;;11058467
|
|
PRCAI00M ;;12092172
|
|
PRCAI00N ;;12009282
|
|
PRCAI00O ;;11132794
|
|
PRCAI00P ;;10588558
|
|
PRCAI00Q ;;11870810
|
|
PRCAI00R ;;10563027
|
|
PRCAI00S ;;11709448
|
|
PRCAI00T ;;10733716
|
|
PRCAI00U ;;12043887
|
|
PRCAI00V ;;11209150
|
|
PRCAI00W ;;12055251
|
|
PRCAI00X ;;12174925
|
|
PRCAI00Y ;;10083230
|
|
PRCAI00Z ;;11734912
|
|
PRCAI010 ;;11753448
|
|
PRCAI011 ;;12423487
|
|
PRCAI012 ;;11161716
|
|
PRCAI013 ;;11937677
|
|
PRCAI014 ;;11274950
|
|
PRCAI015 ;;12191184
|
|
PRCAI016 ;;12316390
|
|
PRCAI017 ;;11848678
|
|
PRCAI018 ;;9793777
|
|
PRCAI019 ;;9067966
|
|
PRCAI01A ;;8871846
|
|
PRCAI01B ;;10973851
|
|
PRCAI01C ;;9544703
|
|
PRCAI01D ;;1329297
|
|
PRCAI01E ;;8149208
|
|
PRCAI01F ;;6405246
|
|
PRCAI01G ;;7699411
|
|
PRCAI01H ;;2271317
|
|
PRCAI01I ;;3458480
|
|
PRCAI01J ;;1308374
|
|
PRCAI01K ;;5188583
|
|
PRCAI01L ;;2982491
|
|
PRCAI01M ;;2777196
|
|
PRCAI01N ;;6471211
|
|
PRCAI01O ;;1330888
|
|
PRCAI01P ;;5671362
|
|
PRCAI01Q ;;5765023
|
|
PRCAI01R ;;985299
|
|
PRCAI01S ;;8843474
|
|
PRCAI01T ;;2981051
|
|
PRCAI01U ;;10391329
|
|
PRCAI01V ;;11193669
|
|
PRCAI01W ;;11423867
|
|
PRCAI01X ;;8911230
|
|
PRCAI01Y ;;9863908
|
|
PRCAI01Z ;;9048562
|
|
PRCAI020 ;;8483072
|
|
PRCAI021 ;;9763786
|
|
PRCAI022 ;;9708713
|
|
PRCAI023 ;;8723029
|
|
PRCAI024 ;;7678151
|
|
PRCAI025 ;;8154091
|
|
PRCAI026 ;;7528430
|
|
PRCAI027 ;;9113682
|
|
PRCAI028 ;;8796987
|
|
PRCAI029 ;;10356723
|
|
PRCAI02A ;;7361260
|
|
PRCAI02B ;;3016704
|
|
PRCAI02C ;;7563131
|
|
PRCAI02D ;;8426136
|
|
PRCAI02E ;;3979266
|
|
PRCAI02F ;;7202613
|
|
PRCAI02G ;;3340026
|
|
PRCAI02H ;;7455606
|
|
PRCAI02I ;;6439710
|
|
PRCAI02J ;;10255391
|