[Home] [Help]
PACKAGE BODY: APPS.FARX_C_INVMISS_PKG
Source
1 PACKAGE BODY FARX_C_INVMISS_PKG as
2 /* $Header: farxcimb.pls 115.3 2002/11/12 08:23:12 glchen ship $ */
3
4 PROCEDURE MISS_ASSET (
5 errbuf out nocopy varchar2,
6 retcode out nocopy number,
7 argument1 in varchar2, -- inventory name
8 argument2 in varchar2 default null,
9 argument3 in varchar2 default null,
10 argument4 in varchar2 default null,
11 argument5 in varchar2 default null,
12 argument6 in varchar2 default null,
13 argument7 in varchar2 default null,
14 argument8 in varchar2 default null,
15 argument9 in varchar2 default null,
16 argument10 in varchar2 default null,
17 argument11 in varchar2 default null,
18 argument12 in varchar2 default null,
19 argument13 in varchar2 default null,
20 argument14 in varchar2 default null,
21 argument15 in varchar2 default null,
22 argument16 in varchar2 default null,
23 argument17 in varchar2 default null,
24 argument18 in varchar2 default null,
25 argument19 in varchar2 default null,
26 argument20 in varchar2 default null,
27 argument21 in varchar2 default null,
28 argument22 in varchar2 default null,
29 argument23 in varchar2 default null,
30 argument24 in varchar2 default null,
31 argument25 in varchar2 default null,
32 argument26 in varchar2 default null,
33 argument27 in varchar2 default null,
34 argument28 in varchar2 default null,
35 argument29 in varchar2 default null,
36 argument30 in varchar2 default null,
37 argument31 in varchar2 default null,
38 argument32 in varchar2 default null,
39 argument33 in varchar2 default null,
40 argument34 in varchar2 default null,
41 argument35 in varchar2 default null,
42 argument36 in varchar2 default null,
43 argument37 in varchar2 default null,
44 argument38 in varchar2 default null,
45 argument39 in varchar2 default null,
46 argument40 in varchar2 default null,
47 argument41 in varchar2 default null,
48 argument42 in varchar2 default null,
49 argument43 in varchar2 default null,
50 argument44 in varchar2 default null,
51 argument45 in varchar2 default null,
52 argument46 in varchar2 default null,
53 argument47 in varchar2 default null,
54 argument48 in varchar2 default null,
55 argument49 in varchar2 default null,
56 argument50 in varchar2 default null,
57 argument51 in varchar2 default null,
58 argument52 in varchar2 default null,
59 argument53 in varchar2 default null,
60 argument54 in varchar2 default null,
61 argument55 in varchar2 default null,
62 argument56 in varchar2 default null,
63 argument57 in varchar2 default null,
64 argument58 in varchar2 default null,
65 argument59 in varchar2 default null,
66 argument60 in varchar2 default null,
67 argument61 in varchar2 default null,
68 argument62 in varchar2 default null,
69 argument63 in varchar2 default null,
70 argument64 in varchar2 default null,
71 argument65 in varchar2 default null,
72 argument66 in varchar2 default null,
73 argument67 in varchar2 default null,
74 argument68 in varchar2 default null,
75 argument69 in varchar2 default null,
76 argument70 in varchar2 default null,
77 argument71 in varchar2 default null,
78 argument72 in varchar2 default null,
79 argument73 in varchar2 default null,
80 argument74 in varchar2 default null,
81 argument75 in varchar2 default null,
82 argument76 in varchar2 default null,
83 argument77 in varchar2 default null,
84 argument78 in varchar2 default null,
85 argument79 in varchar2 default null,
86 argument80 in varchar2 default null,
87 argument81 in varchar2 default null,
88 argument82 in varchar2 default null,
89 argument83 in varchar2 default null,
90 argument84 in varchar2 default null,
91 argument85 in varchar2 default null,
92 argument86 in varchar2 default null,
93 argument87 in varchar2 default null,
94 argument88 in varchar2 default null,
95 argument89 in varchar2 default null,
96 argument90 in varchar2 default null,
97 argument91 in varchar2 default null,
98 argument92 in varchar2 default null,
99 argument93 in varchar2 default null,
100 argument94 in varchar2 default null,
101 argument95 in varchar2 default null,
102 argument96 in varchar2 default null,
103 argument97 in varchar2 default null,
104 argument98 in varchar2 default null,
105 argument99 in varchar2 default null,
106 argument100 in varchar2 default null) is
107
108 h_request_id number;
109 h_user_id number;
110 h_err_msg varchar2(2000);
111
112 begin
113
114 retcode := 0;
115
116 -- select max(fcr.request_id)
117 -- into h_request_id
118 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
119 -- where fcr.argument1 = argument1
120 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
121 -- and fcp.concurrent_program_name = 'RXFAPIMA';
122
123 h_request_id := fnd_global.conc_request_id;
124 fnd_profile.get('USER_ID',h_user_id);
125
126 farx_inv_miss_pkg.miss_asset (
127 inventory_name => argument1,
128 request_id => h_request_id,
129 user_id => h_user_id,
130 retcode => retcode,
131 errbuf => errbuf);
132
133
134 exception when others then
135 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
136 h_err_msg := fnd_message.get;
137 fa_rx_conc_mesg_pkg.log(h_err_msg);
138 retcode := 2;
139
140 end miss_asset;
141
142
143
144 PROCEDURE COMPARE (
145 errbuf out nocopy varchar2,
146 retcode out nocopy number,
147 argument1 in varchar2, -- inventory name
148 argument2 in varchar2 default null, -- category flex struc
149 argument3 in varchar2 default null, -- category
150 argument4 in varchar2 default null, -- location flex struc
151 argument5 in varchar2 default null, -- location
152 argument6 in varchar2 default null,
153 argument7 in varchar2 default null,
154 argument8 in varchar2 default null,
155 argument9 in varchar2 default null,
156 argument10 in varchar2 default null,
157 argument11 in varchar2 default null,
158 argument12 in varchar2 default null,
159 argument13 in varchar2 default null,
160 argument14 in varchar2 default null,
161 argument15 in varchar2 default null,
162 argument16 in varchar2 default null,
163 argument17 in varchar2 default null,
164 argument18 in varchar2 default null,
165 argument19 in varchar2 default null,
166 argument20 in varchar2 default null,
167 argument21 in varchar2 default null,
168 argument22 in varchar2 default null,
169 argument23 in varchar2 default null,
170 argument24 in varchar2 default null,
171 argument25 in varchar2 default null,
172 argument26 in varchar2 default null,
173 argument27 in varchar2 default null,
174 argument28 in varchar2 default null,
175 argument29 in varchar2 default null,
176 argument30 in varchar2 default null,
177 argument31 in varchar2 default null,
178 argument32 in varchar2 default null,
179 argument33 in varchar2 default null,
180 argument34 in varchar2 default null,
181 argument35 in varchar2 default null,
182 argument36 in varchar2 default null,
183 argument37 in varchar2 default null,
184 argument38 in varchar2 default null,
185 argument39 in varchar2 default null,
186 argument40 in varchar2 default null,
187 argument41 in varchar2 default null,
188 argument42 in varchar2 default null,
189 argument43 in varchar2 default null,
190 argument44 in varchar2 default null,
191 argument45 in varchar2 default null,
192 argument46 in varchar2 default null,
193 argument47 in varchar2 default null,
194 argument48 in varchar2 default null,
195 argument49 in varchar2 default null,
196 argument50 in varchar2 default null,
197 argument51 in varchar2 default null,
198 argument52 in varchar2 default null,
199 argument53 in varchar2 default null,
200 argument54 in varchar2 default null,
201 argument55 in varchar2 default null,
202 argument56 in varchar2 default null,
203 argument57 in varchar2 default null,
204 argument58 in varchar2 default null,
205 argument59 in varchar2 default null,
206 argument60 in varchar2 default null,
207 argument61 in varchar2 default null,
208 argument62 in varchar2 default null,
209 argument63 in varchar2 default null,
210 argument64 in varchar2 default null,
211 argument65 in varchar2 default null,
212 argument66 in varchar2 default null,
213 argument67 in varchar2 default null,
214 argument68 in varchar2 default null,
215 argument69 in varchar2 default null,
216 argument70 in varchar2 default null,
217 argument71 in varchar2 default null,
218 argument72 in varchar2 default null,
219 argument73 in varchar2 default null,
220 argument74 in varchar2 default null,
221 argument75 in varchar2 default null,
222 argument76 in varchar2 default null,
223 argument77 in varchar2 default null,
224 argument78 in varchar2 default null,
225 argument79 in varchar2 default null,
226 argument80 in varchar2 default null,
227 argument81 in varchar2 default null,
228 argument82 in varchar2 default null,
229 argument83 in varchar2 default null,
230 argument84 in varchar2 default null,
231 argument85 in varchar2 default null,
232 argument86 in varchar2 default null,
233 argument87 in varchar2 default null,
234 argument88 in varchar2 default null,
235 argument89 in varchar2 default null,
236 argument90 in varchar2 default null,
237 argument91 in varchar2 default null,
238 argument92 in varchar2 default null,
239 argument93 in varchar2 default null,
240 argument94 in varchar2 default null,
241 argument95 in varchar2 default null,
242 argument96 in varchar2 default null,
243 argument97 in varchar2 default null,
244 argument98 in varchar2 default null,
245 argument99 in varchar2 default null,
246 argument100 in varchar2 default null) is
247
248
249 h_request_id number;
250 h_user_id number;
251 h_err_msg varchar2(2000);
252
253 begin
254 retcode := 0;
255
256 -- select max(fcr.request_id)
257 -- into h_request_id
258 -- from fnd_concurrent_requests fcr, fnd_concurrent_programs fcp
259 -- where fcr.argument1 = argument1
260 -- and fcr.concurrent_program_id = fcp.concurrent_program_id
261 -- and fcp.concurrent_program_name = 'RXFAPIMA';
262
263 h_request_id := fnd_global.conc_request_id;
264 fnd_profile.get('USER_ID',h_user_id);
265
266 farx_inv_miss_pkg.comparison (
267 inventory_name => argument1,
268 location => argument5,
269 category => argument3,
270 request_id => h_request_id,
271 user_id => h_user_id,
272 retcode => retcode,
273 errbuf => errbuf);
274
275
276
277
278 exception when others then
279 fnd_message.set_name('OFA', 'FA_SHARED_SERVER_ERROR');
280 h_err_msg := fnd_message.get;
281 fa_rx_conc_mesg_pkg.log(h_err_msg);
282 retcode := 2;
283
284 end compare;
285
286 END FARX_C_INVMISS_PKG;