167 lines
3.5 KiB
Mathematica
167 lines
3.5 KiB
Mathematica
SPNNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970102.142829
|
|
;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
|
;;7.3;2970102.142829
|
|
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 ;;
|
|
SPNADF ;;15403481
|
|
SPNADF1 ;;10403748
|
|
SPNADR ;;15407416
|
|
SPNADR1 ;;13864717
|
|
SPNAHOC0 ;;5112482
|
|
SPNAHOC1 ;;7390947
|
|
SPNAHOC2 ;;4532335
|
|
SPNAHOC3 ;;9424340
|
|
SPNAHOC4 ;;4801860
|
|
SPNAHOC5 ;;3562093
|
|
SPNAHOCH ;;13380994
|
|
SPNAHOCV ;;7909205
|
|
SPNAHOCW ;;9223961
|
|
SPNAHOCX ;;4045087
|
|
SPNAHOCY ;;8055326
|
|
SPNAHOCZ ;;4077642
|
|
SPNCMR ;;7515214
|
|
SPNCMR1 ;;6100809
|
|
SPNCMR2 ;;1585118
|
|
SPNCMR3 ;;2282624
|
|
SPNCMR5 ;;938322
|
|
SPNFEDT0 ;;7116141
|
|
SPNFEDT1 ;;1521882
|
|
SPNFEDT2 ;;2262520
|
|
SPNFEDT3 ;;2956421
|
|
SPNFEDT4 ;;5839956
|
|
SPNFMENU ;;3399726
|
|
SPNFPLT0 ;;4630220
|
|
SPNFPLT1 ;;5617787
|
|
SPNFSRV0 ;;5059830
|
|
SPNFSRV1 ;;2730283
|
|
SPNFSRV2 ;;2183080
|
|
SPNFUTL0 ;;5795431
|
|
SPNHS0 ;;3928726
|
|
SPNLCNTR ;;699240
|
|
SPNLCNV0 ;;9060803
|
|
SPNLCNV1 ;;5165973
|
|
SPNLEDT1 ;;1047959
|
|
SPNLEDT2 ;;1293666
|
|
SPNLENV ;;1705684
|
|
SPNLGE ;;1412957
|
|
SPNLGEAA ;;1911323
|
|
SPNLGECH ;;3573838
|
|
SPNLGEDM ;;1638377
|
|
SPNLGEFM ;;2421218
|
|
SPNLGEIP ;;3565491
|
|
SPNLGEOP ;;1844210
|
|
SPNLGERA ;;2384769
|
|
SPNLGERX ;;4436558
|
|
SPNLGEUD ;;3825999
|
|
SPNLGICI ;;2263085
|
|
SPNLGICP ;;406534
|
|
SPNLGIFU ;;677655
|
|
SPNLGRCH ;;3583508
|
|
SPNLGRIP ;;3507757
|
|
SPNLGROP ;;5465385
|
|
SPNLGRPS ;;2403079
|
|
SPNLGRRA ;;3545302
|
|
SPNLGRRX ;;5440735
|
|
SPNLGSCH ;;2877434
|
|
SPNLGSIP ;;2726894
|
|
SPNLGSOP ;;5461773
|
|
SPNLGSRX ;;3402778
|
|
SPNLGU ;;171559
|
|
SPNLGUCD ;;122779
|
|
SPNLGUSN ;;3530116
|
|
SPNLPDM0 ;;1309927
|
|
SPNLPIN ;;6042813
|
|
SPNLPRE1 ;;376320
|
|
SPNLPST1 ;;5433928
|
|
SPNLR ;;4151564
|
|
SPNLR1 ;;4136294
|
|
SPNLRA ;;1219305
|
|
SPNLRB ;;3757137
|
|
SPNLRB1 ;;3833257
|
|
SPNLRC ;;2406125
|
|
SPNLRD ;;3781112
|
|
SPNLRE ;;3909143
|
|
SPNLRF ;;920158
|
|
SPNLRJ ;;1440181
|
|
SPNLRJI ;;8305812
|
|
SPNLRJO ;;5729001
|
|
SPNLRK ;;2435304
|
|
SPNLRK1 ;;9333185
|
|
SPNLRL ;;5136329
|
|
SPNLRL1 ;;5898379
|
|
SPNLRL2 ;;5836094
|
|
SPNLRL3 ;;4917596
|
|
SPNLRM ;;4843158
|
|
SPNLRM1 ;;9988527
|
|
SPNLRM2 ;;4584524
|
|
SPNLRQ ;;3257445
|
|
SPNLRQI ;;3527085
|
|
SPNLRQO ;;3775625
|
|
SPNLRR ;;1884883
|
|
SPNLRR1 ;;2955328
|
|
SPNLRS ;;1806317
|
|
SPNLRS1 ;;5036988
|
|
SPNLRU ;;2837311
|
|
SPNLRU1 ;;2906436
|
|
SPNLRUDT ;;3390925
|
|
SPNLS ;;8097522
|
|
SPNLS1 ;;4593735
|
|
SPNLS2 ;;1936803
|
|
SPNLSCH ;;3370441
|
|
SPNLSCRN ;;140541
|
|
SPNLSPAR ;;4216798
|
|
SPNLUTL0 ;;6430927
|
|
SPNLUTL1 ;;3502860
|
|
SPNLXMD ;;5164849
|
|
SPNPATUL ;;2290624
|
|
SPNPPRE0 ;;476603
|
|
SPNPRT01 ;;2779346
|
|
SPNPRT02 ;;6759747
|
|
SPNPRT03 ;;3600682
|
|
SPNPRT04 ;;5453876
|
|
SPNPRT05 ;;5929436
|
|
SPNPRT06 ;;6466568
|
|
SPNPRT07 ;;9991003
|
|
SPNPRT08 ;;2409993
|
|
SPNPRT09 ;;5355648
|
|
SPNPRTAF ;;401979
|
|
SPNPRTAR ;;412448
|
|
SPNPRTAU ;;634289
|
|
SPNPRTMT ;;1693776
|
|
SPNPRTSR ;;1853939
|
|
SPNPRTUP ;;605598
|
|
SPNPSR00 ;;3136002
|
|
SPNPSR01 ;;1362572
|
|
SPNPSR02 ;;749655
|
|
SPNPSR03 ;;779613
|
|
SPNPSR04 ;;961507
|
|
SPNPSR05 ;;2364593
|
|
SPNPSR06 ;;1393910
|
|
SPNPSR07 ;;2428231
|
|
SPNPSR08 ;;2057894
|
|
SPNPSR09 ;;906810
|
|
SPNPSR10 ;;2440748
|
|
SPNPSR11 ;;2500112
|
|
SPNPSR12 ;;1102271
|
|
SPNPSR13 ;;2927274
|
|
SPNPSR14 ;;487031
|
|
SPNPSR15 ;;4700219
|
|
SPNPSR16 ;;1497953
|
|
SPNPSR17 ;;2506476
|
|
SPNPSR18 ;;3313331
|
|
SPNPSR19 ;;3582188
|
|
SPNPSR20 ;;2926245
|
|
SPNPSR21 ;;1099052
|
|
SPNPSR22 ;;1322167
|
|
SPNPSR23 ;;2229414
|
|
SPNPSR24 ;;1321006
|
|
SPNPSR25 ;;1364208
|
|
SPNUTL0 ;;6376020
|
|
SPNUTL1 ;;3134019
|