Last change
on this file since 1569 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
3.5 KB
|
Line | |
---|
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.