source: FOIAVistA/trunk/r/TEXT_INTEGRATION_UTILITIES-GMRP-TIU/TIUNTEG.m@ 1314

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1TIUNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970620.123138
2 ;;1.0;TEXT INTEGRATION UTILITIES;;Jun 20, 1997
3 ;;7.3;2970620.123138
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^TIUNTEG0
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 ;;
12TIUADD ;;7939178
13TIUALRT ;;7724825
14TIUAPIOK ;;3873064
15TIUAUDIT ;;1559021
16TIUBPEDT ;;508305
17TIUBR ;;16765412
18TIUBRWS ;;1237447
19TIUCHLP ;;5315023
20TIUCNSLT ;;3238172
21TIUDD ;;6376918
22TIUDD0 ;;21480632
23TIUDD01 ;;20076138
24TIUDD8 ;;2520260
25TIUDD98 ;;3931207
26TIUDEV ;;663743
27TIUDIRH ;;6774537
28TIUDIRT ;;4819153
29TIUDPEDT ;;536132
30TIUDSCNV ;;16495251
31TIUEDI1 ;;12991861
32TIUEDI2 ;;2954081
33TIUEDIH ;;2975
34TIUEDIM ;;4154959
35TIUEDIT ;;15928365
36TIUEDITR ;;3870968
37TIUELST ;;6772054
38TIUENV ;;2421536
39TIUEPRNT ;;2624119
40TIUFA ;;7724519
41TIUFA1 ;;8087670
42TIUFC ;;16465224
43TIUFC1 ;;19039288
44TIUFD ;;13475272
45TIUFD1 ;;7389491
46TIUFD2 ;;9547245
47TIUFD3 ;;14786473
48TIUFD4 ;;10720702
49TIUFH ;;4847823
50TIUFH1 ;;8382917
51TIUFHA ;;11209902
52TIUFHA1 ;;16234597
53TIUFHA2 ;;20808986
54TIUFHA3 ;;15228639
55TIUFHA4 ;;12217790
56TIUFHA5 ;;12641740
57TIUFHA6 ;;12852158
58TIUFHLP ;;18092533
59TIUFHLP1 ;;7453350
60TIUFJ ;;1653738
61TIUFL ;;8221970
62TIUFL1 ;;9625979
63TIUFLA ;;6405212
64TIUFLA1 ;;2988344
65TIUFLD ;;11125322
66TIUFLD1 ;;4692678
67TIUFLF ;;4692333
68TIUFLF1 ;;16152310
69TIUFLF2 ;;6745681
70TIUFLF3 ;;15793790
71TIUFLF4 ;;5459448
72TIUFLF5 ;;11369224
73TIUFLF6 ;;8814847
74TIUFLF7 ;;9734560
75TIUFLF8 ;;9404495
76TIUFLJ ;;12909079
77TIUFLJ1 ;;3627713
78TIUFLLM ;;2495187
79TIUFLLM1 ;;6144428
80TIUFLLM2 ;;12502975
81TIUFLLM3 ;;2548
82TIUFLT ;;3650017
83TIUFLX ;;12531676
84TIUFPR ;;9166442
85TIUFT ;;14588286
86TIUFT1 ;;10470637
87TIUFX ;;3844855
88TIUFXHL1 ;;9104209
89TIUFXHLX ;;18092984
90TIUHELP ;;4390368
91TIUIL ;;10707933
92TIUIL1 ;;10268200
93TIUIL10 ;;7628768
94TIUIL2 ;;11877224
95TIUIL3 ;;10819358
96TIUIL4 ;;9431475
97TIUIL5 ;;11262828
98TIUIL6 ;;9326742
99TIUIL7 ;;9797774
100TIUIL8 ;;11200556
101TIUIL9 ;;9274343
102TIULA ;;9753874
103TIULA1 ;;6870970
104TIULA2 ;;11422552
105TIULA3 ;;3916214
106TIULA4 ;;4078327
107TIULAB ;;2641708
108TIULADR ;;929390
109TIULAPI ;;2326288
110TIULAPIC ;;1609587
111TIULAPIS ;;2575326
112TIULC ;;8062118
113TIULC1 ;;5470005
114TIULD ;;4208524
115TIULE ;;1891756
116TIULEXP ;;835975
117TIULF ;;2643087
118TIULG ;;2290558
119TIULIP ;;1481077
120TIULM ;;1683142
121TIULMED ;;1603954
122TIULO ;;10506939
123TIULO1 ;;1280434
124TIULP ;;5129626
125TIULP1 ;;9230018
126TIULQ ;;4047639
127TIULQ2 ;;2252073
128TIULS ;;6580172
129TIULS1 ;;1692
130TIULV ;;8064646
131TIULX ;;3630728
132TIUMOVE ;;6394806
133TIUPD ;;7130073
134TIUPEDSP ;;452634
135TIUPEFIX ;;8681313
136TIUPEVN1 ;;629456
137TIUPEVNT ;;12440029
138TIUPL ;;1185
139TIUPLST ;;6597575
140TIUPNAPI ;;2629902
141TIUPNCV ;;11015132
142TIUPNCV1 ;;4045073
143TIUPNCV2 ;;9243409
144TIUPNCV3 ;;6588806
145TIUPNCV4 ;;7285743
146TIUPNCV5 ;;6195313
147TIUPNCV6 ;;4479485
148TIUPNCV7 ;;5344754
149TIUPNCV8 ;;6071067
150TIUPNCVX ;;6339101
151TIUPOST ;;1636376
152TIUPRD ;;3348806
153TIUPRDS ;;2346057
154TIUPRDS1 ;;16479696
155TIUPRDS2 ;;4555312
156TIUPREF ;;449069
157TIUPRPN ;;1209356
158TIUPRPN1 ;;14535169
159TIUPRPN2 ;;3472106
160TIUPRPN3 ;;6243546
161TIUPRPN4 ;;3435921
162TIUPRPN5 ;;8277668
163TIUPRPN6 ;;4171463
164TIUPRPN7 ;;9719095
165TIUPUTC ;;11775034
166TIUPUTD ;;6772714
167TIUPUTPN ;;6063243
168TIUPUTU ;;5268373
169TIUPXAP1 ;;5360722
170TIUPXAP2 ;;2016671
171TIUPXAPC ;;6952381
172TIUPXAPI ;;11865817
173TIUPXAPS ;;2373559
Note: See TracBrowser for help on using the repository browser.