source: FOIAVistA/tag/r/SURGERY-SR/SRNTEG01.m@ 1540

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

initial load of FOIAVistA 6/30/08 version
File size: 3.1 KB
Line 
1SRNTEG01 ;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 ;
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 ;;
12SRORUT2 ;;4358601
13SROSCH ;;11118862
14SROSCH1 ;;13049307
15SROSCH2 ;;3456014
16SROSNR ;;6401070
17SROSNR1 ;;13500950
18SROSNR2 ;;13333561
19SROSPC1 ;;9128609
20SROSPEC ;;10943509
21SROSPSS ;;11611626
22SROSRPT ;;4622183
23SROSRPT0 ;;14262043
24SROSRPT1 ;;8082515
25SROSRPT2 ;;3664190
26SROSTAFF ;;7478492
27SROSTOP ;;482543
28SROSUR ;;13568496
29SROSUR1 ;;5491300
30SROSUR2 ;;15261504
31SROTHER ;;10201414
32SROTRIG ;;311968
33SROTRPT ;;3090334
34SROTRPT0 ;;8629917
35SROUNV ;;6411021
36SROUNV1 ;;7501677
37SROUNV2 ;;8120061
38SROUTED ;;3787421
39SROUTIN ;;3810199
40SROUTR1 ;;3217649
41SROUTRN ;;14264130
42SROUTUP ;;7303556
43SROVAR ;;9741521
44SROVER ;;13869821
45SROVER1 ;;3141116
46SROWC ;;14190229
47SROWC1 ;;8388648
48SROWC2 ;;8056835
49SROWC3 ;;5727509
50SROWL ;;9142245
51SROWL0 ;;9908168
52SROWRQ ;;4757977
53SROWRQ1 ;;15007155
54SROXPR ;;679930
55SROXR1 ;;7170960
56SROXR2 ;;7620900
57SROXR4 ;;2897681
58SROXREF ;;3015909
59SROXRET ;;8369518
60SRSAVG ;;4834230
61SRSAVL ;;15393182
62SRSAVL1 ;;9422142
63SRSBD1 ;;1173034
64SRSBDEL ;;16592681
65SRSBLOK ;;4253560
66SRSBOUT ;;17702043
67SRSBTCH ;;8763533
68SRSCAN ;;8345930
69SRSCAN0 ;;8834749
70SRSCAN1 ;;5546303
71SRSCAN2 ;;6743158
72SRSCD ;;14561257
73SRSCDS ;;13118595
74SRSCDS1 ;;10523262
75SRSCDW ;;10798685
76SRSCDW1 ;;10448602
77SRSCG ;;2499341
78SRSCHAP ;;9897352
79SRSCHC ;;6772693
80SRSCHC1 ;;9657008
81SRSCHC2 ;;1244432
82SRSCHCA ;;6623794
83SRSCHCC ;;7655893
84SRSCHD ;;6991751
85SRSCHD1 ;;6353592
86SRSCHD2 ;;7812904
87SRSCHDA ;;12107557
88SRSCHDC ;;14546169
89SRSCHK ;;3180574
90SRSCHOR ;;5237814
91SRSCHUN ;;12683269
92SRSCHUN1 ;;8264095
93SRSCHUP ;;5762136
94SRSCONR ;;11907499
95SRSCPT ;;13571536
96SRSCPT1 ;;11796404
97SRSCPT2 ;;12903856
98SRSCRAP ;;6565050
99SRSDIS1 ;;7839099
100SRSDISP ;;8541868
101SRSDT ;;5989686
102SRSEND ;;5442128
103SRSGRPH ;;7578905
104SRSIND ;;3376323
105SRSKILL ;;16166502
106SRSKILL1 ;;18934960
107SRSKILL2 ;;8133718
108SRSLOOK ;;10181844
109SRSLOOK1 ;;10175389
110SRSMREQ ;;2985467
111SRSPUT0 ;;11569524
112SRSPUT1 ;;6335796
113SRSPUT2 ;;4332219
114SRSRBS ;;14156393
115SRSRBS1 ;;11801894
116SRSRBW ;;12165414
117SRSRBW1 ;;11402555
118SRSREQ ;;10962213
119SRSREQUT ;;7874591
120SRSRQST ;;11717709
121SRSRQST1 ;;8197996
122SRSTIME ;;5873261
123SRSTR ;;9069898
124SRSTRAN ;;2511510
125SRSUP1 ;;16576534
126SRSUPC ;;5463059
127SRSUPRG ;;4038321
128SRSUPRQ ;;17501885
129SRSUTIN ;;3648628
130SRSUTL ;;5914534
131SRSUTL2 ;;5689683
132SRSWL ;;7992277
133SRSWL1 ;;7124388
134SRSWL10 ;;8138161
135SRSWL11 ;;12717710
136SRSWL12 ;;10265744
137SRSWL13 ;;16005965
138SRSWL14 ;;7829112
139SRSWL15 ;;13775925
140SRSWL2 ;;6295678
141SRSWL3 ;;12061766
142SRSWL4 ;;11132191
143SRSWL5 ;;2024493
144SRSWL6 ;;8860633
145SRSWL7 ;;14153033
146SRSWL8 ;;7566212
147SRSWL9 ;;12279693
148SRSWLST ;;16065493
149SRSWREQ ;;8111469
Note: See TracBrowser for help on using the repository browser.