source: FOIAVistA/trunk/r/ENGINEERING-EN/ENXJNTEG.m@ 914

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1ENXJNTEG ;ISC/XTSUMBLD KERNEL - Package checksum checker ;FEB 26, 1996@14:03:14
2 ;;7.0;ENGINEERING;**30**;AUG 17, 1993
3 ;;7.2;FEB 26, 1996@14:03:14
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^ENXJNTE0
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 ;;
12ENXJI001 ;;7396841
13ENXJI002 ;;8054337
14ENXJI003 ;;7748082
15ENXJI004 ;;8245669
16ENXJI005 ;;7991510
17ENXJI006 ;;8343436
18ENXJI007 ;;7971802
19ENXJI008 ;;7943723
20ENXJI009 ;;8035135
21ENXJI00A ;;8060167
22ENXJI00B ;;7819708
23ENXJI00C ;;7972050
24ENXJI00D ;;7867699
25ENXJI00E ;;8003844
26ENXJI00F ;;8355389
27ENXJI00G ;;8490006
28ENXJI00H ;;7526714
29ENXJI00I ;;7885709
30ENXJI00J ;;7965158
31ENXJI00K ;;8547932
32ENXJI00L ;;8164818
33ENXJI00M ;;7980845
34ENXJI00N ;;8151309
35ENXJI00O ;;7803413
36ENXJI00P ;;7823211
37ENXJI00Q ;;7843016
38ENXJI00R ;;8199590
39ENXJI00S ;;8232428
40ENXJI00T ;;8068739
41ENXJI00U ;;8131257
42ENXJI00V ;;8072719
43ENXJI00W ;;7829847
44ENXJI00X ;;8126532
45ENXJI00Y ;;7789520
46ENXJI00Z ;;8048776
47ENXJI010 ;;8307699
48ENXJI011 ;;7980293
49ENXJI012 ;;8570462
50ENXJI013 ;;7932208
51ENXJI014 ;;8078990
52ENXJI015 ;;8066315
53ENXJI016 ;;7835738
54ENXJI017 ;;8541178
55ENXJI018 ;;7989580
56ENXJI019 ;;8060414
57ENXJI01A ;;7848248
58ENXJI01B ;;8067832
59ENXJI01C ;;7982313
60ENXJI01D ;;8056481
61ENXJI01E ;;7970124
62ENXJI01F ;;8312556
63ENXJI01G ;;8179010
64ENXJI01H ;;8269429
65ENXJI01I ;;8052155
66ENXJI01J ;;8390051
67ENXJI01K ;;8457906
68ENXJI01L ;;7943054
69ENXJI01M ;;8187617
70ENXJI01N ;;8363958
71ENXJI01O ;;8436550
72ENXJI01P ;;8021669
73ENXJI01Q ;;7711492
74ENXJI01R ;;8396776
75ENXJI01S ;;8323150
76ENXJI01T ;;8036951
77ENXJI01U ;;8128276
78ENXJI01V ;;8275726
79ENXJI01W ;;8129400
80ENXJI01X ;;7913518
81ENXJI01Y ;;8203144
82ENXJI01Z ;;7870180
83ENXJI020 ;;8307528
84ENXJI021 ;;8069974
85ENXJI022 ;;7477285
86ENXJI023 ;;8007370
87ENXJI024 ;;7941676
88ENXJI025 ;;7896308
89ENXJI026 ;;7480678
90ENXJI027 ;;7731745
91ENXJI028 ;;8299463
92ENXJI029 ;;8108638
93ENXJI02A ;;8286303
94ENXJI02B ;;8546701
95ENXJI02C ;;8215908
96ENXJI02D ;;8075159
97ENXJI02E ;;8335781
98ENXJI02F ;;8349849
99ENXJI02G ;;7945444
100ENXJI02H ;;7427646
101ENXJI02I ;;8225123
102ENXJI02J ;;8138227
103ENXJI02K ;;7939930
104ENXJI02L ;;7997012
105ENXJI02M ;;7935136
106ENXJI02N ;;8307865
107ENXJI02O ;;8226616
108ENXJI02P ;;7979997
109ENXJI02Q ;;8488542
110ENXJI02R ;;8452020
111ENXJI02S ;;8201242
112ENXJI02T ;;8498821
113ENXJI02U ;;7926197
114ENXJI02V ;;8692377
115ENXJI02W ;;7916520
116ENXJI02X ;;7969373
117ENXJI02Y ;;8183535
118ENXJI02Z ;;7730032
119ENXJI030 ;;8250404
120ENXJI031 ;;8116848
121ENXJI032 ;;8230104
122ENXJI033 ;;8295878
123ENXJI034 ;;8322190
124ENXJI035 ;;8359227
125ENXJI036 ;;8400957
126ENXJI037 ;;8019033
127ENXJI038 ;;8084287
128ENXJI039 ;;7953462
129ENXJI03A ;;7945310
130ENXJI03B ;;8265465
131ENXJI03C ;;8253118
132ENXJI03D ;;8303903
133ENXJI03E ;;8126451
134ENXJI03F ;;8607341
135ENXJI03G ;;8840183
136ENXJI03H ;;8398680
137ENXJI03I ;;8377427
138ENXJI03J ;;8338952
139ENXJI03K ;;8501069
140ENXJI03L ;;8198715
141ENXJI03M ;;8107718
142ENXJI03N ;;8201029
143ENXJI03O ;;8534990
144ENXJI03P ;;8304605
145ENXJI03Q ;;8567177
146ENXJI03R ;;8238542
147ENXJI03S ;;8256490
148ENXJI03T ;;8169961
149ENXJI03U ;;8342040
150ENXJI03V ;;8266794
151ENXJI03W ;;8390358
152ENXJI03X ;;8041067
153ENXJI03Y ;;8225473
154ENXJI03Z ;;8076503
155ENXJI040 ;;8050820
156ENXJI041 ;;8289879
157ENXJI042 ;;8187421
158ENXJI043 ;;8132901
159ENXJI044 ;;8403796
160ENXJI045 ;;8360546
161ENXJI046 ;;8274746
162ENXJI047 ;;8033399
163ENXJI048 ;;8506728
Note: See TracBrowser for help on using the repository browser.