source: FOIAVistA/tag/r/ENGINEERING-EN/ENNTEG.m@ 1373

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

initial load of FOIAVistA 6/30/08 version
File size: 3.5 KB
Line 
1ENNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;AUG 20, 1993@12:21:45
2 ;;0.0;
3 ;;7.0;AUG 20, 1993@12:21:45
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^ENNTEG0
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 ;;
12EN ;;4938515
13ENAR ;;4431979
14ENAR1 ;;11871100
15ENAR2 ;;1956328
16ENARG ;;12454624
17ENARG1 ;;10340652
18ENARG2 ;;3342843
19ENARG21 ;;8950920
20ENARG22 ;;2185436
21ENARGO ;;12073974
22ENARGR ;;10074633
23ENARL ;;6031740
24ENARY101 ;;8216312
25ENARY102 ;;3454122
26ENARY11 ;;6231668
27ENARY12 ;;3385721
28ENARY13 ;;3062569
29ENARY14 ;;9343114
30ENARY201 ;;9975781
31ENARY202 ;;15589237
32ENARY203 ;;8196720
33ENARY21 ;;6261664
34ENARY22 ;;3569758
35ENARY23 ;;3062575
36ENARY24 ;;9343120
37ENBCPM ;;3638063
38ENBCPM1 ;;13549362
39ENBCPM2 ;;6031204
40ENBCPM3 ;;9064950
41ENBCPM4 ;;9596301
42ENBCPM5 ;;11484758
43ENBCPM6 ;;4953530
44ENBCPM7 ;;7941452
45ENBCPM8 ;;2186844
46ENBCPM9 ;;2873183
47ENCTBAR ;;5687234
48ENCTFLD ;;5724601
49ENCTLAB ;;5178388
50ENCTMAN ;;4414940
51ENCTMES1 ;;6006739
52ENCTMES2 ;;1519431
53ENCTPRG ;;3043163
54ENCTQUES ;;4002140
55ENCTRCH ;;8407760
56ENCTREAD ;;16551995
57ENCTRED ;;12095305
58ENCTTI ;;2160648
59ENCTUTL ;;4206790
60ENEQ ;;3683192
61ENEQ1 ;;15475812
62ENEQ2 ;;9230615
63ENEQCMR ;;7911609
64ENEQHS ;;10570477
65ENEQNX ;;3531149
66ENEQNX1 ;;9966591
67ENEQNX2 ;;5226292
68ENEQNX3 ;;11743073
69ENEQNX4 ;;7713903
70ENEQNX5 ;;2603248
71ENEQP ;;6605681
72ENEQP1 ;;688458
73ENEQPMP ;;15856392
74ENEQPMP1 ;;10411981
75ENEQPMP2 ;;2126362
76ENEQPMP3 ;;13277582
77ENEQPMR ;;3478732
78ENEQPMR1 ;;12627078
79ENEQPMR2 ;;18212122
80ENEQPMR3 ;;13149321
81ENEQPMR4 ;;14556251
82ENEQPMR5 ;;13179441
83ENEQPMR6 ;;19977814
84ENEQPMS ;;3641624
85ENEQPMS1 ;;19804179
86ENEQPMS2 ;;10467421
87ENEQPMS3 ;;5620243
88ENEQPMS4 ;;18118122
89ENEQPMS5 ;;15643787
90ENEQPMS6 ;;5204081
91ENEQPMS7 ;;14854573
92ENEQPMS8 ;;7326330
93ENEQRP ;;3693556
94ENEQRP1 ;;10562964
95ENEQRP2 ;;10365465
96ENEQRP3 ;;8672209
97ENEQRP4 ;;5918859
98ENEQRP5 ;;6086341
99ENEQRPI ;;9865436
100ENETRAN ;;4039043
101ENETRAN1 ;;11679240
102ENETRAN2 ;;4333961
103ENEWOD ;;5495583
104ENEWOD1 ;;5251799
105ENFSA ;;7314584
106ENFSA1 ;;5548335
107ENFSA2 ;;5319649
108ENJ ;;6133268
109ENJC2 ;;8912737
110ENJDPL ;;7674160
111ENJINJ ;;11938160
112ENJINJ1 ;;8955976
113ENJINJ2 ;;4028275
114ENJINJ3 ;;1559977
115ENJINK ;;4413907
116ENJINQ ;;11064638
117ENJMUL ;;8552821
118ENJPARAM ;;2694588
119ENLBL ;;3135966
120ENLBL1 ;;3245151
121ENLBL10 ;;14378355
122ENLBL11 ;;7160263
123ENLBL12 ;;13421987
124ENLBL15 ;;12572513
125ENLBL16 ;;1826387
126ENLBL2 ;;3418306
127ENLBL3 ;;10033853
128ENLBL4 ;;13077812
129ENLBL5 ;;13751323
130ENLBL6 ;;12095536
131ENLBL7 ;;4062804
132ENLBL8 ;;8234100
133ENLBL9 ;;10853901
134ENLIB ;;6814617
135ENLIB1 ;;9070707
136ENLIB2 ;;8379485
137ENMAN ;;5576464
138ENNEWPK2 ;;5397991
139ENNEWPKG ;;3718383
140ENPL1 ;;570844
141ENPL10 ;;3212501
142ENPL11 ;;741836
143ENPL1A ;;4660189
144ENPL2 ;;1954959
145ENPL3 ;;5279839
146ENPL3A ;;6695082
147ENPL3B ;;5892963
148ENPL4 ;;2500320
149ENPL5 ;;6174517
150ENPL5A ;;7212529
151ENPL5B ;;7246310
152ENPL5C ;;1776100
153ENPL6 ;;629956
154ENPL7 ;;7630291
155ENPL7A ;;2540563
156ENPL7B ;;7246249
157ENPL7C ;;3950594
158ENPL8 ;;5044355
159ENPL8A ;;4072945
160ENPL9 ;;4550205
161ENPOST ;;6322701
162ENPROJ ;;10601112
163ENPROJ1 ;;3824567
164ENPROJ2 ;;7500311
165ENPROJ3 ;;5258779
166ENPROJ7 ;;6977689
167ENPROJ8 ;;10562136
168ENPROJ9 ;;1570570
169ENPRP ;;5660213
170ENPRP1 ;;9519708
171ENPRP2 ;;9986033
172ENPRP3 ;;7038858
173ENPRP4 ;;4795223
Note: See TracBrowser for help on using the repository browser.