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