source: FOIAVistA/trunk/r/TOOLKIT-AWCM-XD-XIN-XPAR-XQAB-XT-XUC-XUR-ZIN-ZTED/XTNTEG0.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1XTNTEG0 ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2950425.092013
2 ;;7.3;TOOLKIT;;Apr 25, 1995
3 ;;7.3;2950425.092013
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^XTNTEG01
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 ;;
12XTLKEFOP ;;12288261
13XTLKKSCH ;;5117176
14XTLKKWL ;;2673960
15XTLKKWL1 ;;8089076
16XTLKKWL2 ;;8570562
17XTLKKWLD ;;830939
18XTLKMGR ;;8218132
19XTLKPRT ;;3890354
20XTLKPST ;;561010
21XTLKTICD ;;2688040
22XTLKTOKN ;;3207127
23XTLKWIC ;;2000831
24XTRCMP ;;4749536
25XTRGRPE ;;342530
26XTRTHV ;;6157862
27XTSPING ;;258974
28XTSUMBLD ;;10426704
29XTVCHG ;;2433675
30XTVGC1 ;;22093368
31XTVGC1A ;;6994193
32XTVGC2 ;;20558103
33XTVGC2A ;;17354751
34XTVGC2A1 ;;9865117
35XTVNUM ;;7898211
36XTVRC1 ;;9444013
37XTVRC1A ;;18908374
38XTVRC1Z ;;573177
39XTVRC2 ;;18916359
40XTVRCRES ;;5210571
41XUCIN001 ;;6331531
42XUCIN002 ;;7847815
43XUCIN003 ;;5328738
44XUCIN004 ;;5633578
45XUCIN005 ;;4016858
46XUCIN006 ;;6384285
47XUCIN007 ;;2842241
48XUCIN008 ;;4454633
49XUCIN009 ;;7054787
50XUCIN00A ;;3478716
51XUCIN00B ;;3162587
52XUCIN00C ;;4414148
53XUCIN00D ;;5426793
54XUCIN00E ;;6950804
55XUCIN00F ;;6487754
56XUCIN00G ;;5536118
57XUCIN00H ;;5595361
58XUCIN00I ;;3636839
59XUCIN00J ;;4985882
60XUCIN00K ;;1326743
61XUCIN00L ;;1575674
62XUCIN00M ;;5562214
63XUCIN00N ;;5268349
64XUCIN00O ;;4317063
65XUCIN00P ;;5661675
66XUCIN00Q ;;7342486
67XUCIN00R ;;8641639
68XUCIN00S ;;5853502
69XUCIN00T ;;5815554
70XUCIN00U ;;6204905
71XUCIN00V ;;4353627
72XUCIN00W ;;5144510
73XUCIN00X ;;5630258
74XUCIN00Y ;;6331276
75XUCIN00Z ;;7705187
76XUCIN010 ;;5146314
77XUCIN011 ;;2024106
78XUCINIS ;;2173432
79XUCINIT ;;10781726
80XUCINIT1 ;;5752814
81XUCINIT2 ;;5232654
82XUCINIT3 ;;16094813
83XUCINIT4 ;;3357826
84XUCINIT5 ;;1367458
85XUCMBR1 ;;5837802
86XUCMBR2 ;;10844732
87XUCMBR3 ;;9625086
88XUCMBRTL ;;8754496
89XUCMDSL ;;4295323
90XUCMFGI ;;1467166
91XUCMFIL ;;5382924
92XUCMGRAF ;;1687213
93XUCMNI2A ;;20928196
94XUCMNIT ;;11960925
95XUCMNIT1 ;;7377867
96XUCMNIT2 ;;16835662
97XUCMNIT3 ;;5784566
98XUCMNIT4 ;;11052588
99XUCMNIT5 ;;4264655
100XUCMNT3A ;;10767827
101XUCMPA ;;7085998
102XUCMPA1 ;;7618346
103XUCMPA2 ;;6586755
104XUCMPA2A ;;5655040
105XUCMPA2B ;;9904709
106XUCMPOST ;;1750081
107XUCMPRE ;;2500182
108XUCMTM ;;9551796
109XUCMTM1 ;;3008863
110XUCMVPG ;;4016494
111XUCMVPG1 ;;5894133
112XUCMVPI ;;5930227
113XUCMVPM ;;4086669
114XUCMVPM1 ;;11280175
115XUCMVPS ;;6211427
116XUCMVPU ;;3071852
117XUCPCLCT ;;3573145
118XUCPFRMT ;;13051323
119XUCPRAW ;;13134609
120XUCS1E ;;5744464
121XUCS1R ;;11414218
122XUCS1RA ;;11144520
123XUCS1RB ;;11341248
124XUCS1RBA ;;6176633
125XUCS2E ;;5426963
126XUCS2R ;;7996923
127XUCS2RA ;;6913779
128XUCS2RB ;;8006304
129XUCS2RBA ;;4179178
130XUCS4E ;;1556880
131XUCS4R ;;11653758
132XUCS4RB ;;9766381
133XUCS5E ;;1037983
134XUCS5EA ;;5223554
135XUCS6E ;;1362981
136XUCS6R ;;6132484
137XUCS8E ;;2709944
138XUCS8R ;;12237493
139XUCS8RB ;;10517473
140XUCS8RG ;;5086949
141XUCS8RGA ;;4599537
142XUCSCDE ;;3642152
143XUCSCDG ;;6572594
144XUCSCDGA ;;4312009
145XUCSCDR ;;9885385
146XUCSCDRB ;;8466812
147XUCSI001 ;;6807214
148XUCSI002 ;;8095362
149XUCSI003 ;;7090131
150XUCSI004 ;;6290195
151XUCSI005 ;;3935311
152XUCSI006 ;;4874125
153XUCSI007 ;;6391003
154XUCSI008 ;;6245860
155XUCSI009 ;;6641536
156XUCSI00A ;;7072648
157XUCSI00B ;;6183955
158XUCSI00C ;;5840656
159XUCSI00D ;;5871453
160XUCSI00E ;;2444351
161XUCSI00F ;;850326
162XUCSI00G ;;5117155
163XUCSI00H ;;7689858
164XUCSI00I ;;6887131
165XUCSI00J ;;6573491
166XUCSI00K ;;6171637
167XUCSI00L ;;4221793
Note: See TracBrowser for help on using the repository browser.