source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDNTEG.m@ 812

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1SDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 13, 1993@12:51:49
2 ;;5.3;Scheduling;;Aug 13, 1993
3 ;;7.0;AUG 13, 1993@12:51:49
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^SDNTEG0
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 ;;
12SD ;;804795
13SDA223AN ;;5976444
14SDA223N ;;15706566
15SDA223N1 ;;1453813
16SDACS ;;3663833
17SDACS0 ;;8480166
18SDACS1 ;;15001549
19SDACSCG ;;13087344
20SDACSCGB ;;14826419
21SDACSCGP ;;16113980
22SDAL ;;5804280
23SDAL0 ;;11625993
24SDAM ;;3230589
25SDAM1 ;;8184632
26SDAM10 ;;2952107
27SDAM2 ;;7920545
28SDAM3 ;;4512652
29SDAM5 ;;3960436
30SDAMBAE ;;14898871
31SDAMBAE0 ;;10423066
32SDAMBAE1 ;;12061053
33SDAMBAE2 ;;14284562
34SDAMBAE3 ;;8934007
35SDAMBAE4 ;;4962021
36SDAMBAE5 ;;4282115
37SDAMBAE6 ;;1267277
38SDAMBCL ;;9282452
39SDAMBEE ;;285989
40SDAMBMR ;;17161851
41SDAMBMR1 ;;17719721
42SDAMBMR2 ;;14320995
43SDAMBMR3 ;;13093130
44SDAMC ;;5653136
45SDAMEP ;;3031106
46SDAMEP1 ;;8403410
47SDAMEP2 ;;6257643
48SDAMEP3 ;;2601010
49SDAMEP4 ;;456357
50SDAMEVT ;;9977931
51SDAMEVT0 ;;2555
52SDAMEVT1 ;;6083206
53SDAMEVT2 ;;2164883
54SDAMEVT3 ;;5224872
55SDAMEVT4 ;;3158378
56SDAMEX ;;7750940
57SDAMEX1 ;;498097
58SDAMLD ;;6800106
59SDAMN ;;3294769
60SDAMO ;;3484006
61SDAMO0 ;;2572315
62SDAMO1 ;;2965567
63SDAMO11 ;;7155191
64SDAMO2 ;;4539854
65SDAMODO ;;4758418
66SDAMODO1 ;;1799429
67SDAMODO2 ;;6940403
68SDAMODO3 ;;7227049
69SDAMOL ;;1948337
70SDAMOL1 ;;15707520
71SDAMOLP ;;4924500
72SDAMOS ;;7939456
73SDAMOS0 ;;2977018
74SDAMOS1 ;;5801474
75SDAMOSP ;;7809048
76SDAMQ ;;4702330
77SDAMQ1 ;;4494515
78SDAMQ2 ;;5530986
79SDAMQ3 ;;5302646
80SDAMQ4 ;;2800995
81SDAMQ5 ;;2347715
82SDAMU ;;1269661
83SDAMWI ;;6378214
84SDAMWI1 ;;2383935
85SDAPP ;;4770952
86SDASEE ;;14445544
87SDASEE1 ;;7969810
88SDASEE2 ;;2176573
89SDASEP ;;11261741
90SDASO ;;7227723
91SDAUT1 ;;3642937
92SDAUT2 ;;19663831
93SDB ;;9944374
94SDB0 ;;6741618
95SDB1 ;;12121223
96SDC ;;14900742
97SDC0 ;;14671704
98SDC1 ;;3434743
99SDC2 ;;7784041
100SDC3 ;;5313137
101SDC4 ;;1142041
102SDCAN ;;785063
103SDCCP ;;3508258
104SDCD ;;6752619
105SDCI ;;1611841
106SDCIAL ;;11232401
107SDCLAS ;;13141298
108SDCLAS0 ;;12392553
109SDCLAS1 ;;14835834
110SDCLAV ;;7282312
111SDCLAV0 ;;4873869
112SDCLAV1 ;;13150157
113SDCLDOW ;;5388954
114SDCLK ;;19141458
115SDCNL ;;14997623
116SDCNP ;;13115963
117SDCNP0 ;;19213709
118SDCNP1 ;;12622692
119SDCNP1A ;;18920698
120SDCNP2 ;;6743499
121SDCO ;;2028989
122SDCO0 ;;9640540
123SDCO1 ;;6940811
124SDCO2 ;;4571129
125SDCO20 ;;3099353
126SDCO21 ;;2878529
127SDCO22 ;;2672854
128SDCO23 ;;2021308
129SDCO3 ;;5529902
130SDCO31 ;;1167543
131SDCO4 ;;5802239
132SDCO41 ;;1622955
133SDCO5 ;;653104
134SDCO6 ;;2985390
135SDCO7 ;;1746597
136SDCO8 ;;1488932
137SDCOAM ;;7877912
138SDCODD ;;951277
139SDCODEL ;;4028664
140SDCOM ;;3597941
141SDCOU ;;2812724
142SDCOU1 ;;307548
143SDCOU2 ;;618877
144SDCOUR ;;2941998
145SDCP ;;15308939
146SDCSSD ;;5210687
147SDCVP ;;15690811
148SDCWL ;;20480131
149SDCWL1 ;;19198498
150SDCWL2 ;;15060622
151SDCWL3 ;;12725071
152SDD ;;6872339
153SDD0 ;;13858093
154SDDADT ;;1358703
155SDDADT0 ;;11414282
156SDDIV ;;5127804
157SDDPA ;;17722979
158SDDSO ;;7872162
159SDDSSA ;;4192206
160SDDSSA0 ;;19997912
161SDDSSA1 ;;13066332
162SDF ;;11416969
163SDF1 ;;8010091
164SDHOL ;;347989
165SDKILL ;;10034892
166SDL1 ;;8211181
167SDLT ;;5076280
168SDLTE ;;2306144
169SDLTP ;;16470189
170SDM ;;16978464
171SDM0 ;;15944427
172SDM1 ;;18343842
173SDM1A ;;11720115
174SDM2 ;;11018279
175SDM3 ;;10287325
176SDM4 ;;7146893
177SDMEAN ;;6896890
178SDMM ;;18035821
179SDMM1 ;;7854683
180SDMT ;;7004794
Note: See TracBrowser for help on using the repository browser.