source: FOIAVistA/trunk/r/ENGINEERING-EN/ENXJNTE0.m@ 1764

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

initial load of FOIAVistA 6/30/08 version

File size: 3.5 KB
Line 
1ENXJNTE0 ;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^ENXJNTE1
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 ;;
12ENXJI049 ;;8264747
13ENXJI04A ;;8001102
14ENXJI04B ;;8400014
15ENXJI04C ;;8581691
16ENXJI04D ;;8544541
17ENXJI04E ;;8310060
18ENXJI04F ;;8354584
19ENXJI04G ;;8242171
20ENXJI04H ;;8587769
21ENXJI04I ;;8273839
22ENXJI04J ;;8315561
23ENXJI04K ;;8241985
24ENXJI04L ;;8307131
25ENXJI04M ;;8082469
26ENXJI04N ;;8137613
27ENXJI04O ;;7784268
28ENXJI04P ;;7808977
29ENXJI04Q ;;7830561
30ENXJI04R ;;7924352
31ENXJI04S ;;8192158
32ENXJI04T ;;8142844
33ENXJI04U ;;7530541
34ENXJI04V ;;8135322
35ENXJI04W ;;8293126
36ENXJI04X ;;8323471
37ENXJI04Y ;;8127927
38ENXJI04Z ;;8013872
39ENXJI050 ;;8044242
40ENXJI051 ;;8067917
41ENXJI052 ;;8252661
42ENXJI053 ;;8436275
43ENXJI054 ;;8480402
44ENXJI055 ;;7820141
45ENXJI056 ;;8336113
46ENXJI057 ;;8324407
47ENXJI058 ;;8056120
48ENXJI059 ;;7986057
49ENXJI05A ;;8069862
50ENXJI05B ;;8309037
51ENXJI05C ;;7942234
52ENXJI05D ;;8124629
53ENXJI05E ;;8177665
54ENXJI05F ;;8132590
55ENXJI05G ;;8223409
56ENXJI05H ;;8081761
57ENXJI05I ;;7941126
58ENXJI05J ;;7966102
59ENXJI05K ;;7961404
60ENXJI05L ;;8209134
61ENXJI05M ;;7929905
62ENXJI05N ;;8002631
63ENXJI05O ;;7666586
64ENXJI05P ;;8026898
65ENXJI05Q ;;7948970
66ENXJI05R ;;8493105
67ENXJI05S ;;8000200
68ENXJI05T ;;8069269
69ENXJI05U ;;8320150
70ENXJI05V ;;8224719
71ENXJI05W ;;8143147
72ENXJI05X ;;8308780
73ENXJI05Y ;;7884639
74ENXJI05Z ;;8093854
75ENXJI060 ;;7858871
76ENXJI061 ;;7828218
77ENXJI062 ;;7738161
78ENXJI063 ;;7859140
79ENXJI064 ;;8121038
80ENXJI065 ;;8049423
81ENXJI066 ;;7768324
82ENXJI067 ;;8250939
83ENXJI068 ;;8386029
84ENXJI069 ;;7961723
85ENXJI06A ;;8115637
86ENXJI06B ;;7915710
87ENXJI06C ;;7850339
88ENXJI06D ;;7960402
89ENXJI06E ;;8191709
90ENXJI06F ;;8320568
91ENXJI06G ;;7935616
92ENXJI06H ;;8085329
93ENXJI06I ;;8231153
94ENXJI06J ;;8000896
95ENXJI06K ;;7672720
96ENXJI06L ;;7740908
97ENXJI06M ;;7618423
98ENXJI06N ;;7871641
99ENXJI06O ;;7960497
100ENXJI06P ;;8031710
101ENXJI06Q ;;7828718
102ENXJI06R ;;7888606
103ENXJI06S ;;7895114
104ENXJI06T ;;7873419
105ENXJI06U ;;8211953
106ENXJI06V ;;8157359
107ENXJI06W ;;8436956
108ENXJI06X ;;8129748
109ENXJI06Y ;;7907023
110ENXJI06Z ;;8268738
111ENXJI070 ;;8205358
112ENXJI071 ;;7849490
113ENXJI072 ;;8030699
114ENXJI073 ;;8259313
115ENXJI074 ;;7923401
116ENXJI075 ;;8286824
117ENXJI076 ;;8347915
118ENXJI077 ;;8280411
119ENXJI078 ;;7764205
120ENXJI079 ;;8170669
121ENXJI07A ;;8219047
122ENXJI07B ;;7729426
123ENXJI07C ;;8224802
124ENXJI07D ;;7900372
125ENXJI07E ;;8266506
126ENXJI07F ;;7941687
127ENXJI07G ;;7952774
128ENXJI07H ;;8201043
129ENXJI07I ;;8102402
130ENXJI07J ;;7875388
131ENXJI07K ;;7996056
132ENXJI07L ;;7732505
133ENXJI07M ;;8131868
134ENXJI07N ;;7919125
135ENXJI07O ;;7936409
136ENXJI07P ;;7967820
137ENXJI07Q ;;8020266
138ENXJI07R ;;7930200
139ENXJI07S ;;7743453
140ENXJI07T ;;7873024
141ENXJI07U ;;7850759
142ENXJI07V ;;7909400
143ENXJI07W ;;8037277
144ENXJI07X ;;8114530
145ENXJI07Y ;;7985936
146ENXJI07Z ;;8279181
147ENXJI080 ;;7953353
148ENXJI081 ;;8289046
149ENXJI082 ;;8392467
150ENXJI083 ;;8312372
151ENXJI084 ;;8320277
152ENXJI085 ;;7849251
153ENXJI086 ;;7909072
154ENXJI087 ;;7916533
155ENXJI088 ;;8096453
156ENXJI089 ;;8017810
157ENXJI08A ;;8188906
158ENXJI08B ;;8096381
159ENXJI08C ;;8292208
160ENXJI08D ;;8131652
161ENXJI08E ;;7912632
162ENXJI08F ;;8468905
163ENXJI08G ;;8232994
Note: See TracBrowser for help on using the repository browser.