source: FOIAVistA/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNNTEG.m@ 1607

Last change on this file since 1607 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

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