Last change
on this file since 1423 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
3.5 KB
|
Rev | Line | |
---|
[628] | 1 | SPNNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970102.142829
|
---|
| 2 | ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
---|
| 3 | ;;7.3;2970102.142829
|
---|
| 4 | S XT4="I 1",X=$T(+3) W !!,"Checksum routine created on ",$P(X,";",4)," by KERNEL V",$P(X,";",3),!
|
---|
| 5 | 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")
|
---|
| 6 | ;
|
---|
| 7 | K %1,%2,%3,X,Y,XT1,XT2,XT3,XT4 Q
|
---|
| 8 | 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),!
|
---|
| 9 | W !,"Check a subset of routines:" K ^UTILITY($J) X ^%ZOSF("RSEL")
|
---|
| 10 | W ! G CONT
|
---|
| 11 | ROU ;;
|
---|
| 12 | SPNADF ;;15403481
|
---|
| 13 | SPNADF1 ;;10403748
|
---|
| 14 | SPNADR ;;15407416
|
---|
| 15 | SPNADR1 ;;13864717
|
---|
| 16 | SPNAHOC0 ;;5112482
|
---|
| 17 | SPNAHOC1 ;;7390947
|
---|
| 18 | SPNAHOC2 ;;4532335
|
---|
| 19 | SPNAHOC3 ;;9424340
|
---|
| 20 | SPNAHOC4 ;;4801860
|
---|
| 21 | SPNAHOC5 ;;3562093
|
---|
| 22 | SPNAHOCH ;;13380994
|
---|
| 23 | SPNAHOCV ;;7909205
|
---|
| 24 | SPNAHOCW ;;9223961
|
---|
| 25 | SPNAHOCX ;;4045087
|
---|
| 26 | SPNAHOCY ;;8055326
|
---|
| 27 | SPNAHOCZ ;;4077642
|
---|
| 28 | SPNCMR ;;7515214
|
---|
| 29 | SPNCMR1 ;;6100809
|
---|
| 30 | SPNCMR2 ;;1585118
|
---|
| 31 | SPNCMR3 ;;2282624
|
---|
| 32 | SPNCMR5 ;;938322
|
---|
| 33 | SPNFEDT0 ;;7116141
|
---|
| 34 | SPNFEDT1 ;;1521882
|
---|
| 35 | SPNFEDT2 ;;2262520
|
---|
| 36 | SPNFEDT3 ;;2956421
|
---|
| 37 | SPNFEDT4 ;;5839956
|
---|
| 38 | SPNFMENU ;;3399726
|
---|
| 39 | SPNFPLT0 ;;4630220
|
---|
| 40 | SPNFPLT1 ;;5617787
|
---|
| 41 | SPNFSRV0 ;;5059830
|
---|
| 42 | SPNFSRV1 ;;2730283
|
---|
| 43 | SPNFSRV2 ;;2183080
|
---|
| 44 | SPNFUTL0 ;;5795431
|
---|
| 45 | SPNHS0 ;;3928726
|
---|
| 46 | SPNLCNTR ;;699240
|
---|
| 47 | SPNLCNV0 ;;9060803
|
---|
| 48 | SPNLCNV1 ;;5165973
|
---|
| 49 | SPNLEDT1 ;;1047959
|
---|
| 50 | SPNLEDT2 ;;1293666
|
---|
| 51 | SPNLENV ;;1705684
|
---|
| 52 | SPNLGE ;;1412957
|
---|
| 53 | SPNLGEAA ;;1911323
|
---|
| 54 | SPNLGECH ;;3573838
|
---|
| 55 | SPNLGEDM ;;1638377
|
---|
| 56 | SPNLGEFM ;;2421218
|
---|
| 57 | SPNLGEIP ;;3565491
|
---|
| 58 | SPNLGEOP ;;1844210
|
---|
| 59 | SPNLGERA ;;2384769
|
---|
| 60 | SPNLGERX ;;4436558
|
---|
| 61 | SPNLGEUD ;;3825999
|
---|
| 62 | SPNLGICI ;;2263085
|
---|
| 63 | SPNLGICP ;;406534
|
---|
| 64 | SPNLGIFU ;;677655
|
---|
| 65 | SPNLGRCH ;;3583508
|
---|
| 66 | SPNLGRIP ;;3507757
|
---|
| 67 | SPNLGROP ;;5465385
|
---|
| 68 | SPNLGRPS ;;2403079
|
---|
| 69 | SPNLGRRA ;;3545302
|
---|
| 70 | SPNLGRRX ;;5440735
|
---|
| 71 | SPNLGSCH ;;2877434
|
---|
| 72 | SPNLGSIP ;;2726894
|
---|
| 73 | SPNLGSOP ;;5461773
|
---|
| 74 | SPNLGSRX ;;3402778
|
---|
| 75 | SPNLGU ;;171559
|
---|
| 76 | SPNLGUCD ;;122779
|
---|
| 77 | SPNLGUSN ;;3530116
|
---|
| 78 | SPNLPDM0 ;;1309927
|
---|
| 79 | SPNLPIN ;;6042813
|
---|
| 80 | SPNLPRE1 ;;376320
|
---|
| 81 | SPNLPST1 ;;5433928
|
---|
| 82 | SPNLR ;;4151564
|
---|
| 83 | SPNLR1 ;;4136294
|
---|
| 84 | SPNLRA ;;1219305
|
---|
| 85 | SPNLRB ;;3757137
|
---|
| 86 | SPNLRB1 ;;3833257
|
---|
| 87 | SPNLRC ;;2406125
|
---|
| 88 | SPNLRD ;;3781112
|
---|
| 89 | SPNLRE ;;3909143
|
---|
| 90 | SPNLRF ;;920158
|
---|
| 91 | SPNLRJ ;;1440181
|
---|
| 92 | SPNLRJI ;;8305812
|
---|
| 93 | SPNLRJO ;;5729001
|
---|
| 94 | SPNLRK ;;2435304
|
---|
| 95 | SPNLRK1 ;;9333185
|
---|
| 96 | SPNLRL ;;5136329
|
---|
| 97 | SPNLRL1 ;;5898379
|
---|
| 98 | SPNLRL2 ;;5836094
|
---|
| 99 | SPNLRL3 ;;4917596
|
---|
| 100 | SPNLRM ;;4843158
|
---|
| 101 | SPNLRM1 ;;9988527
|
---|
| 102 | SPNLRM2 ;;4584524
|
---|
| 103 | SPNLRQ ;;3257445
|
---|
| 104 | SPNLRQI ;;3527085
|
---|
| 105 | SPNLRQO ;;3775625
|
---|
| 106 | SPNLRR ;;1884883
|
---|
| 107 | SPNLRR1 ;;2955328
|
---|
| 108 | SPNLRS ;;1806317
|
---|
| 109 | SPNLRS1 ;;5036988
|
---|
| 110 | SPNLRU ;;2837311
|
---|
| 111 | SPNLRU1 ;;2906436
|
---|
| 112 | SPNLRUDT ;;3390925
|
---|
| 113 | SPNLS ;;8097522
|
---|
| 114 | SPNLS1 ;;4593735
|
---|
| 115 | SPNLS2 ;;1936803
|
---|
| 116 | SPNLSCH ;;3370441
|
---|
| 117 | SPNLSCRN ;;140541
|
---|
| 118 | SPNLSPAR ;;4216798
|
---|
| 119 | SPNLUTL0 ;;6430927
|
---|
| 120 | SPNLUTL1 ;;3502860
|
---|
| 121 | SPNLXMD ;;5164849
|
---|
| 122 | SPNPATUL ;;2290624
|
---|
| 123 | SPNPPRE0 ;;476603
|
---|
| 124 | SPNPRT01 ;;2779346
|
---|
| 125 | SPNPRT02 ;;6759747
|
---|
| 126 | SPNPRT03 ;;3600682
|
---|
| 127 | SPNPRT04 ;;5453876
|
---|
| 128 | SPNPRT05 ;;5929436
|
---|
| 129 | SPNPRT06 ;;6466568
|
---|
| 130 | SPNPRT07 ;;9991003
|
---|
| 131 | SPNPRT08 ;;2409993
|
---|
| 132 | SPNPRT09 ;;5355648
|
---|
| 133 | SPNPRTAF ;;401979
|
---|
| 134 | SPNPRTAR ;;412448
|
---|
| 135 | SPNPRTAU ;;634289
|
---|
| 136 | SPNPRTMT ;;1693776
|
---|
| 137 | SPNPRTSR ;;1853939
|
---|
| 138 | SPNPRTUP ;;605598
|
---|
| 139 | SPNPSR00 ;;3136002
|
---|
| 140 | SPNPSR01 ;;1362572
|
---|
| 141 | SPNPSR02 ;;749655
|
---|
| 142 | SPNPSR03 ;;779613
|
---|
| 143 | SPNPSR04 ;;961507
|
---|
| 144 | SPNPSR05 ;;2364593
|
---|
| 145 | SPNPSR06 ;;1393910
|
---|
| 146 | SPNPSR07 ;;2428231
|
---|
| 147 | SPNPSR08 ;;2057894
|
---|
| 148 | SPNPSR09 ;;906810
|
---|
| 149 | SPNPSR10 ;;2440748
|
---|
| 150 | SPNPSR11 ;;2500112
|
---|
| 151 | SPNPSR12 ;;1102271
|
---|
| 152 | SPNPSR13 ;;2927274
|
---|
| 153 | SPNPSR14 ;;487031
|
---|
| 154 | SPNPSR15 ;;4700219
|
---|
| 155 | SPNPSR16 ;;1497953
|
---|
| 156 | SPNPSR17 ;;2506476
|
---|
| 157 | SPNPSR18 ;;3313331
|
---|
| 158 | SPNPSR19 ;;3582188
|
---|
| 159 | SPNPSR20 ;;2926245
|
---|
| 160 | SPNPSR21 ;;1099052
|
---|
| 161 | SPNPSR22 ;;1322167
|
---|
| 162 | SPNPSR23 ;;2229414
|
---|
| 163 | SPNPSR24 ;;1321006
|
---|
| 164 | SPNPSR25 ;;1364208
|
---|
| 165 | SPNUTL0 ;;6376020
|
---|
| 166 | SPNUTL1 ;;3134019
|
---|
Note:
See
TracBrowser
for help on using the repository browser.