source: FOIAVistA/tag/r/SURGERY-SR/SRNTEG.m@ 1569

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 
1SRNTEG ;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^SRNTEG0
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 ;;
12SRCUSS ;;13128616
13SRCUSS0 ;;11932742
14SRCUSS1 ;;14024981
15SRCUSS2 ;;9008801
16SRCUSS3 ;;8147839
17SRCUSS4 ;;8817864
18SRCUSS5 ;;1705099
19SROA30 ;;13123589
20SROABCH ;;6036002
21SROAC ;;8074997
22SROAC1 ;;811669
23SROAC2 ;;7839725
24SROACAR ;;8480830
25SROACAT ;;7090373
26SROACC ;;17863169
27SROACC0 ;;13064481
28SROACC1 ;;11929528
29SROACC2 ;;10979053
30SROACC3 ;;11318821
31SROACC4 ;;10650931
32SROACC5 ;;11342334
33SROACC6 ;;9694366
34SROACCM ;;5442845
35SROACCR ;;10280990
36SROACCT ;;6477022
37SROACL1 ;;11536133
38SROACLN ;;6690925
39SROACOM ;;5271992
40SROACOP ;;10401802
41SROACR1 ;;10974698
42SROACRC ;;8615250
43SROACS ;;17495772
44SROACTH ;;4583908
45SROADEL ;;7357586
46SROADOC ;;9175831
47SROADOC1 ;;17090569
48SROAERR ;;5502190
49SROAEX ;;14370150
50SROAL1 ;;10740868
51SROAL11 ;;9261896
52SROAL2 ;;9570235
53SROAL21 ;;5999753
54SROALAB ;;5683374
55SROALC ;;9188663
56SROALCP ;;8851245
57SROALCS ;;10545065
58SROALCSP ;;9911958
59SROALDP ;;5758536
60SROALEN ;;7542354
61SROALET ;;11955292
62SROALL ;;11950510
63SROALLP ;;10358750
64SROALLS ;;12609154
65SROALLSP ;;12599574
66SROALN1 ;;12516462
67SROALN2 ;;7427970
68SROALN3 ;;13840617
69SROALNO ;;10739667
70SROALOG ;;12771858
71SROALSS ;;12611289
72SROALSSP ;;12640766
73SROALST ;;11222652
74SROALSTP ;;10401017
75SROALT ;;9077666
76SROALTP ;;8814293
77SROALTS ;;10204410
78SROALTSP ;;9824963
79SROAMEAS ;;71772
80SROAMIS ;;11919401
81SROAMIS1 ;;11009877
82SROANEW ;;11162809
83SROANIN ;;3341842
84SROANP ;;10889746
85SROANP1 ;;11114124
86SROANT ;;9203425
87SROANTP ;;8862033
88SROANTS ;;9560904
89SROANTSP ;;9451309
90SROAO ;;7410117
91SROAOP ;;11418072
92SROAOP1 ;;12217328
93SROAOPS ;;8050404
94SROAOSET ;;3431177
95SROAOTH ;;3393938
96SROAPAS ;;6024518
97SROAPC ;;1047865
98SROAPCA ;;13042967
99SROAPCA0 ;;553613
100SROAPCA1 ;;8911710
101SROAPCA2 ;;9377265
102SROAPCA3 ;;7422507
103SROAPR1A ;;3752585
104SROAPR2 ;;6197830
105SROAPRE ;;8740356
106SROAPRE1 ;;4090377
107SROAPRE2 ;;3501275
108SROAPRT1 ;;15523830
109SROAPRT2 ;;10007362
110SROAPRT3 ;;10638329
111SROAPRT4 ;;8634120
112SROAPRT5 ;;6747189
113SROAPRT6 ;;4391520
114SROAPRT7 ;;16872471
115SROAPS1 ;;16535485
116SROAPS2 ;;10890544
117SROAR ;;8206451
118SROAR1 ;;12304213
119SROAR2 ;;11247893
120SROARET ;;13046895
121SROARPT ;;4779374
122SROARPT0 ;;16972368
123SROARPT1 ;;15190572
124SROARPT2 ;;3764497
125SROASS ;;11306593
126SROASS1 ;;7807496
127SROASSE ;;10185778
128SROASSP ;;4152937
129SROASWAP ;;8677386
130SROASWP ;;18452779
131SROASWP0 ;;7552610
132SROASWP1 ;;5461676
133SROASWP2 ;;11754339
134SROASWP3 ;;17786597
135SROASWPD ;;2734567
136SROAT0P ;;11334796
137SROAT0T ;;4303410
138SROAT1P ;;12727482
139SROAT1T ;;3406860
140SROAT2P ;;12597003
141SROAT2T ;;5717811
142SROATCM ;;1118815
143SROATCM1 ;;11449351
144SROATCM2 ;;6369827
145SROATM1 ;;16600818
146SROATM2 ;;18977949
147SROATM3 ;;9985638
148SROATM4 ;;6407807
149SROATMIT ;;4502627
150SROATMNO ;;2187622
151SROATT ;;13398424
152SROATT0 ;;7944441
153SROATT1 ;;2912932
154SROATT2 ;;4045394
155SROBLOD ;;5570434
156SROBTCH ;;1744175
157SROCAN ;;7968055
158SROCAN0 ;;9498623
159SROCANUP ;;5599175
160SROCASE ;;2252
161SROCCAT ;;9818522
162SROCHDD ;;2209304
163SROCMP ;;9802456
164SROCMP1 ;;5787553
165SROCMP2 ;;3425866
166SROCMPD ;;2578858
167SROCMPED ;;15288632
168SROCMPL ;;12462861
Note: See TracBrowser for help on using the repository browser.