168 lines
3.5 KiB
Mathematica
168 lines
3.5 KiB
Mathematica
PSJNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2971216.152955
|
|
;;0.0;
|
|
;;7.3;2971216.152955
|
|
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^PSJNTEG1
|
|
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 ;;
|
|
PSGTCTD ;;6065289
|
|
PSGTCTD0 ;;8315839
|
|
PSGTI ;;6401473
|
|
PSGVBW ;;18130677
|
|
PSGVBW0 ;;15711004
|
|
PSGVBW1 ;;2577458
|
|
PSGVBWP ;;13781808
|
|
PSGVBWU ;;14654477
|
|
PSGVDS ;;7457905
|
|
PSGVW ;;13617950
|
|
PSGVW0 ;;4907591
|
|
PSGVWP ;;3618804
|
|
PSIV ;;9632222
|
|
PSIVACT ;;5206018
|
|
PSIVAL ;;7219660
|
|
PSIVALN ;;3733100
|
|
PSIVAMIS ;;13357019
|
|
PSIVAOR ;;15769366
|
|
PSIVAOR1 ;;4646774
|
|
PSIVCAL ;;13734655
|
|
PSIVCHK ;;11955268
|
|
PSIVCHK1 ;;10650255
|
|
PSIVCSED ;;4498107
|
|
PSIVDCR ;;15391673
|
|
PSIVDCR1 ;;15555679
|
|
PSIVDCR2 ;;10558819
|
|
PSIVDRG ;;8093131
|
|
PSIVEDRG ;;12165589
|
|
PSIVEDT ;;11834139
|
|
PSIVEDT1 ;;8513857
|
|
PSIVHIS ;;3341319
|
|
PSIVHLD ;;1849135
|
|
PSIVHLP ;;11111969
|
|
PSIVHLP1 ;;10706730
|
|
PSIVHLP2 ;;11000260
|
|
PSIVHLP3 ;;3588957
|
|
PSIVHYP ;;3653720
|
|
PSIVHYPL ;;15011059
|
|
PSIVLABL ;;12986653
|
|
PSIVLBDL ;;7062706
|
|
PSIVLBL1 ;;16294393
|
|
PSIVLTR ;;1848959
|
|
PSIVLTR1 ;;4469996
|
|
PSIVMAN ;;11277462
|
|
PSIVMAN1 ;;13852085
|
|
PSIVOE ;;4165977
|
|
PSIVOPT ;;10674345
|
|
PSIVOPT1 ;;10501516
|
|
PSIVOPT2 ;;12232659
|
|
PSIVORA ;;13128297
|
|
PSIVORA1 ;;11240725
|
|
PSIVORAL ;;9610524
|
|
PSIVORC ;;10141585
|
|
PSIVORC1 ;;14586162
|
|
PSIVORC2 ;;13696024
|
|
PSIVORE ;;14225817
|
|
PSIVORE1 ;;14892529
|
|
PSIVORE2 ;;7806596
|
|
PSIVOREN ;;11929114
|
|
PSIVORFA ;;11673391
|
|
PSIVORFB ;;11186136
|
|
PSIVORFE ;;7975789
|
|
PSIVORH ;;4076816
|
|
PSIVORLB ;;9232616
|
|
PSIVORV1 ;;11935581
|
|
PSIVORV2 ;;6852622
|
|
PSIVPAT ;;7058627
|
|
PSIVPCR ;;12828965
|
|
PSIVPCR1 ;;3217504
|
|
PSIVPGE ;;16101277
|
|
PSIVPR ;;11856703
|
|
PSIVPRO ;;10241971
|
|
PSIVQUI ;;7058626
|
|
PSIVRD ;;12883074
|
|
PSIVREC ;;4540790
|
|
PSIVRNL ;;17941560
|
|
PSIVRP ;;19368402
|
|
PSIVRP1 ;;9529006
|
|
PSIVRQ ;;11580483
|
|
PSIVRQ1 ;;14193047
|
|
PSIVSET ;;11971611
|
|
PSIVSP ;;11493491
|
|
PSIVSPDC ;;4523227
|
|
PSIVST2 ;;10812968
|
|
PSIVSTAT ;;11185386
|
|
PSIVSUS ;;20540089
|
|
PSIVSUS1 ;;9233493
|
|
PSIVUDL ;;12893010
|
|
PSIVUTL ;;7154813
|
|
PSIVUTL1 ;;7128902
|
|
PSIVUWL ;;9325172
|
|
PSIVVW1 ;;8162548
|
|
PSIVWCR ;;12737296
|
|
PSIVWCR1 ;;2836925
|
|
PSIVWL ;;15985042
|
|
PSIVWL1 ;;15920427
|
|
PSIVWRP ;;14216186
|
|
PSIVXREF ;;672248
|
|
PSIVXU ;;2636747
|
|
PSJ200 ;;11883362
|
|
PSJAC ;;8790985
|
|
PSJADT ;;14320096
|
|
PSJADT0 ;;17469396
|
|
PSJADT1 ;;3886524
|
|
PSJALG ;;4878413
|
|
PSJDCHK ;;11850014
|
|
PSJDDUT ;;16989030
|
|
PSJDDUT2 ;;12090780
|
|
PSJDDUT3 ;;4798877
|
|
PSJDEA ;;4418374
|
|
PSJDGAL ;;2657545
|
|
PSJEEU ;;5082000
|
|
PSJEEU0 ;;11810342
|
|
PSJEXP ;;22569862
|
|
PSJEXP0 ;;17975167
|
|
PSJFL ;;7929486
|
|
PSJFL1 ;;4540012
|
|
PSJH1 ;;9462313
|
|
PSJHEAD ;;15526491
|
|
PSJHIS ;;4373003
|
|
PSJHL2 ;;8978069
|
|
PSJHL3 ;;13294105
|
|
PSJHL4 ;;21181671
|
|
PSJHL5 ;;6805998
|
|
PSJHL6 ;;10385690
|
|
PSJHL7 ;;15568482
|
|
PSJHL9 ;;11661940
|
|
PSJHLERR ;;2035077
|
|
PSJHLU ;;4443407
|
|
PSJHVARS ;;7325044
|
|
PSJIENV ;;712925
|
|
PSJIPRE ;;4561152
|
|
PSJIPST ;;9594885
|
|
PSJIPST1 ;;14509257
|
|
PSJIPST2 ;;9596551
|
|
PSJIPST3 ;;17764021
|
|
PSJIPSTA ;;6270357
|
|
PSJLIACT ;;2257018
|
|
PSJLIFN ;;4534897
|
|
PSJLIFNI ;;1742255
|
|
PSJLIORD ;;999487
|
|
PSJLIPRF ;;653170
|
|
PSJLIUTL ;;6126958
|
|
PSJLIVFD ;;5508085
|
|
PSJLIVMD ;;5160354
|
|
PSJLMAL ;;98929
|
|
PSJLMDA ;;178896
|
|
PSJLMGUD ;;17316547
|
|
PSJLMHED ;;9814074
|
|
PSJLMPRI ;;6611303
|
|
PSJLMPRU ;;5945946
|
|
PSJLMUDE ;;19967093
|
|
PSJLMUT1 ;;17706585
|
|
PSJLMUTL ;;10117738
|
|
PSJLOI ;;863278
|
|
PSJMDIR ;;15822387
|