source: FOIAVistA/trunk/r/AUTOMATED_INFO_COLLECTION_SYS-IBD/IBDNTEG.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1IBDNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;2970424.083551
2 ;;3.0;AUTOMATED INFO COLLECTION SYS;;APR 24, 1997
3 ;;7.3;2970424.083551
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^IBDNTEG0
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 ;;
12IBD3KENV ;;2482893
13IBD3KPT ;;11964813
14IBDE ;;2997987
15IBDE1 ;;7343104
16IBDE1A ;;3361399
17IBDE1B ;;1339223
18IBDE2 ;;409473
19IBDE3 ;;9480134
20IBDE4 ;;4707082
21IBDEHELP ;;7817644
22IBDEPRE ;;4328499
23IBDEPT ;;239186
24IBDF10 ;;11871257
25IBDF10A ;;14844945
26IBDF10B ;;4334206
27IBDF10C ;;7145394
28IBDF11 ;;3746255
29IBDF11A ;;3372216
30IBDF12 ;;2449474
31IBDF13 ;;6065810
32IBDF14 ;;2806524
33IBDF14A ;;8128142
34IBDF15 ;;2835740
35IBDF15A ;;9106437
36IBDF16 ;;8212382
37IBDF17 ;;7062222
38IBDF18 ;;5760005
39IBDF18A ;;3427205
40IBDF18A1 ;;8968373
41IBDF18B ;;1183119
42IBDF18C ;;9383133
43IBDF18D ;;2224052
44IBDF18E ;;11340277
45IBDF18E0 ;;11693827
46IBDF18E1 ;;10375249
47IBDF18E2 ;;4914156
48IBDF18E3 ;;554180
49IBDF19 ;;7787654
50IBDF1A ;;6906704
51IBDF1B ;;13886733
52IBDF1B1 ;;11709608
53IBDF1B1A ;;12963462
54IBDF1B1B ;;1767481
55IBDF1B2 ;;2289984
56IBDF1B3 ;;7853311
57IBDF1B5 ;;11098411
58IBDF1BA ;;11321310
59IBDF1C ;;4183587
60IBDF2A ;;13089889
61IBDF2A1 ;;16675892
62IBDF2A2 ;;5398601
63IBDF2B ;;7733441
64IBDF2B1 ;;2426473
65IBDF2D ;;11307498
66IBDF2D1 ;;7091947
67IBDF2D2 ;;20452649
68IBDF2D3 ;;12284133
69IBDF2E ;;1625292
70IBDF2F ;;14953767
71IBDF2F1 ;;6492541
72IBDF2G ;;1305076
73IBDF2H ;;1131607
74IBDF3 ;;7478886
75IBDF4 ;;18681956
76IBDF4A ;;13810939
77IBDF5 ;;9209729
78IBDF5A ;;4140889
79IBDF5B ;;6698423
80IBDF5C ;;3822764
81IBDF5D ;;5086357
82IBDF6 ;;8604587
83IBDF6A ;;6144443
84IBDF6C ;;1009133
85IBDF7 ;;2565275
86IBDF8 ;;1630744
87IBDF9 ;;3819084
88IBDF9A ;;16913688
89IBDF9A1 ;;7479813
90IBDF9A3 ;;7052911
91IBDF9B ;;11180213
92IBDF9B1 ;;13740809
93IBDF9B2 ;;6322343
94IBDF9B3 ;;5177091
95IBDF9B4 ;;6134853
96IBDF9C ;;5406188
97IBDF9D ;;5163363
98IBDF9E ;;5934543
99IBDFBK1 ;;4906853
100IBDFBK2 ;;6362708
101IBDFBK3 ;;16698204
102IBDFBKR ;;7402561
103IBDFBKS ;;15247370
104IBDFBKS1 ;;5830972
105IBDFBKS2 ;;14974345
106IBDFBKS3 ;;12904114
107IBDFBKS4 ;;8554663
108IBDFC ;;11407114
109IBDFC1 ;;4784941
110IBDFC2 ;;8753867
111IBDFC2A ;;8223304
112IBDFC2B ;;13124658
113IBDFC3 ;;3078465
114IBDFC4 ;;60053
115IBDFCG ;;16657494
116IBDFCG1 ;;6651180
117IBDFCMP ;;10284232
118IBDFCMP1 ;;12808450
119IBDFCNOF ;;9651795
120IBDFDE ;;28292527
121IBDFDE0 ;;11338817
122IBDFDE1 ;;13698331
123IBDFDE10 ;;424026
124IBDFDE2 ;;20881171
125IBDFDE21 ;;20139881
126IBDFDE22 ;;5338516
127IBDFDE3 ;;18089819
128IBDFDE4 ;;11204271
129IBDFDE41 ;;6974404
130IBDFDE42 ;;2472593
131IBDFDE5 ;;20092356
132IBDFDE6 ;;20813168
133IBDFDE61 ;;2306021
134IBDFDE7 ;;13809118
135IBDFDE8 ;;7762272
136IBDFDE9 ;;7383712
137IBDFDEA ;;11764220
138IBDFDVE ;;392266
139IBDFESP ;;5681865
140IBDFFRFT ;;5605728
141IBDFFSMP ;;4992963
142IBDFFT ;;19343496
143IBDFFT1 ;;38001031
144IBDFFT2 ;;3352777
145IBDFFT3 ;;19870534
146IBDFFT4 ;;4158691
147IBDFFV ;;7432713
148IBDFFV1 ;;2385105
149IBDFFV2 ;;4347225
150IBDFFV3 ;;5257927
151IBDFGRP ;;9136849
152IBDFHLP ;;3402730
153IBDFLST ;;11634433
154IBDFLST1 ;;1683695
155IBDFM1 ;;13441067
156IBDFN ;;15680196
157IBDFN1 ;;1213860
158IBDFN10 ;;2765146
159IBDFN11 ;;2856878
160IBDFN12 ;;1612905
161IBDFN13 ;;66244
162IBDFN14 ;;2226507
163IBDFN2 ;;8020032
164IBDFN3 ;;2845147
165IBDFN4 ;;2973307
166IBDFN5 ;;3054776
167IBDFN6 ;;2853724
168IBDFN7 ;;1460739
169IBDFN8 ;;124808
170IBDFN9 ;;194363
171IBDFOSG ;;10173582
172IBDFOSG1 ;;7086168
Note: See TracBrowser for help on using the repository browser.