source: FOIAVistA/trunk/r/SURGERY-SR/SRNTEG0.m@ 1800

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1SRNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;JUN 24, 1993@10:46:22
2 ;;3.0; Surgery ;;24 Jun 93
3 ;;7.0;JUN 24, 1993@10:46:22
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 G CONT^SRNTEG01
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 ;;
12SROCMPS ;;11634013
13SROCNR ;;6501039
14SROCNR1 ;;13706047
15SROCNR2 ;;13533185
16SROCODE ;;3430511
17SROCOM ;;5150235
18SROCOMP ;;12557366
19SROCON ;;7757520
20SROCON1 ;;874865
21SROCOND ;;2285
22SROCPT ;;1135014
23SROCRAT ;;9106508
24SRODATE ;;4080611
25SRODCT1 ;;13487226
26SRODELA ;;11853938
27SRODEV ;;275574
28SRODICT ;;12398051
29SRODLA1 ;;8914646
30SRODLA2 ;;9982605
31SRODLAY ;;9348184
32SRODLT ;;9341903
33SRODLT0 ;;8117340
34SRODLT1 ;;3117817
35SRODLT2 ;;4190492
36SRODPT ;;2370986
37SROERR ;;12680766
38SROERR0 ;;3581133
39SROERR1 ;;15586687
40SROERR2 ;;8080430
41SROERRPO ;;9592757
42SROFILE ;;11321600
43SROFLD ;;3049077
44SROICU ;;7026928
45SROICU1 ;;9648009
46SROICU2 ;;9703712
47SROINQ ;;13650153
48SROIRR ;;4959802
49SROKEY ;;8178720
50SROKEY1 ;;9276852
51SROKRET ;;950405
52SROLOCK ;;7721330
53SROMED ;;14319705
54SROMENU ;;8450234
55SROMOR ;;8349609
56SROMORT ;;10557507
57SRONAN ;;3749513
58SRONAN1 ;;5813213
59SRONASS ;;13373165
60SRONBCH ;;1692514
61SRONEW ;;9745297
62SRONIN ;;1539867
63SRONIN1 ;;10909129
64SRONIN2 ;;11115711
65SRONIN3 ;;10241634
66SRONIN4 ;;6641012
67SRONIN5 ;;9982835
68SRONIN6 ;;13264035
69SRONITE ;;40878
70SRONON ;;9871379
71SRONON0 ;;13768814
72SRONON1 ;;9659892
73SRONOP ;;14675614
74SRONOP1 ;;4632135
75SRONOR ;;9218812
76SRONOR1 ;;5033721
77SRONOR2 ;;9853192
78SRONOR3 ;;9777137
79SRONOR4 ;;9527245
80SRONOR5 ;;9496023
81SRONOR6 ;;5181795
82SRONOR7 ;;9879875
83SRONOR8 ;;9797371
84SRONRN1 ;;11882384
85SRONRN2 ;;10842342
86SRONRN3 ;;7359997
87SRONRN4 ;;11105877
88SRONRN5 ;;11842993
89SRONRNF ;;9081246
90SRONRPT ;;4751943
91SRONRPT0 ;;14852429
92SRONRPT1 ;;14308588
93SRONRPT2 ;;17178265
94SRONRPT3 ;;9328079
95SRONUR ;;3335620
96SRONUR1 ;;14294813
97SRONUR2 ;;15172306
98SRONXR ;;948758
99SROOPRM ;;8890272
100SROOPRM1 ;;8345600
101SROP ;;11421165
102SROP1 ;;2869582
103SROPAC0 ;;7281750
104SROPAC1 ;;4116346
105SROPACT ;;4285094
106SROPAT ;;4083891
107SROPDEL ;;10518417
108SROPER ;;8249828
109SROPLIS ;;5891254
110SROPLIST ;;10573308
111SROPLST1 ;;8344386
112SROPLSTS ;;15458118
113SROPOST ;;11117912
114SROPOST0 ;;11314400
115SROPOST1 ;;4109705
116SROPOST2 ;;6929347
117SROPPC ;;10469597
118SROPR01 ;;9968913
119SROPR02 ;;9203095
120SROPR03 ;;12977397
121SROPRE ;;20213002
122SROPRE0 ;;3862541
123SROPREQ ;;5334609
124SROPRI ;;13037058
125SROPRI1 ;;5091384
126SROPRI2 ;;9977752
127SROPRIN ;;1919966
128SROPRIO ;;14632165
129SROPRIT ;;7802902
130SROPROC ;;16746178
131SROPRPT ;;1495355
132SROPRPT1 ;;10715706
133SROPRPT2 ;;8932470
134SROPRPT3 ;;13365148
135SROPRPT4 ;;4139502
136SROPS ;;7320444
137SROQ ;;19916846
138SROQ0 ;;6909462
139SROQ0A ;;3418494
140SROQ1 ;;5710420
141SROQ1A ;;5986558
142SROQ2 ;;10055055
143SROQM ;;2454081
144SROQM0 ;;8643769
145SROQM1 ;;9986266
146SROQT ;;6682831
147SROR ;;1064043
148SRORAT1 ;;9464973
149SRORAT2 ;;5618055
150SRORATA ;;4507955
151SRORATP ;;5270692
152SRORATS ;;4033835
153SROREA ;;2641219
154SROREA1 ;;4701907
155SROREA2 ;;6036733
156SROREAS ;;8242299
157SROREQ ;;4758469
158SROREQ1 ;;13883180
159SROREQ2 ;;11963363
160SROREQ3 ;;13081345
161SROREQ4 ;;11044703
162SROREST ;;7931836
163SRORESV ;;5067326
164SRORET ;;11944655
165SRORHRS ;;9870467
166SRORHRS0 ;;5611756
167SRORIN ;;14448907
168SRORTRN ;;1927140
169SRORUT ;;8711950
170SRORUT0 ;;12484053
171SRORUT1 ;;7215261
Note: See TracBrowser for help on using the repository browser.