[Home] [Help]
PACKAGE BODY: APPS.FND_REQUEST_INFO
Source
1 package body FND_REQUEST_INFO as
2 /* $Header: AFCPRINB.pls 120.2 2005/08/19 20:47:22 jtoruno ship $ */
3
4
5
6 -- PRIVATE VARIABLES
7 --
8
9 P_nargs number := null;
10 P_ProgName varchar2(30) := null;
11 P_ProgAppName varchar2(30) := null;
12 P_ReqStartDate date := null;
13 P_reqid number := null;
14 P_count integer := null;
15 P_increment_flag varchar2(1) :='N';
16 P_nls_territory varchar2(30) := null;
17 P_errbuf varchar2(240) := null;
18 P_arg1 varchar2(240) := CHR(0);
19 P_arg2 varchar2(240) := CHR(0);
20 P_arg3 varchar2(240) := CHR(0);
21 P_arg4 varchar2(240) := CHR(0);
22 P_arg5 varchar2(240) := CHR(0);
23 P_arg6 varchar2(240) := CHR(0);
24 P_arg7 varchar2(240) := CHR(0);
25 P_arg8 varchar2(240) := CHR(0);
26 P_arg9 varchar2(240) := CHR(0);
27 P_arg10 varchar2(240) := CHR(0);
28 P_arg11 varchar2(240) := CHR(0);
29 P_arg12 varchar2(240) := CHR(0);
30 P_arg13 varchar2(240) := CHR(0);
31 P_arg14 varchar2(240) := CHR(0);
32 P_arg15 varchar2(240) := CHR(0);
33 P_arg16 varchar2(240) := CHR(0);
34 P_arg17 varchar2(240) := CHR(0);
35 P_arg18 varchar2(240) := CHR(0);
36 P_arg19 varchar2(240) := CHR(0);
37 P_arg20 varchar2(240) := CHR(0);
38 P_arg21 varchar2(240) := CHR(0);
39 P_arg22 varchar2(240) := CHR(0);
40 P_arg23 varchar2(240) := CHR(0);
41 P_arg24 varchar2(240) := CHR(0);
42 P_arg25 varchar2(240) := CHR(0);
43 P_arg26 varchar2(240) := CHR(0);
44 P_arg27 varchar2(240) := CHR(0);
45 P_arg28 varchar2(240) := CHR(0);
46 P_arg29 varchar2(240) := CHR(0);
47 P_arg30 varchar2(240) := CHR(0);
48 P_arg31 varchar2(240) := CHR(0);
49 P_arg32 varchar2(240) := CHR(0);
50 P_arg33 varchar2(240) := CHR(0);
51 P_arg34 varchar2(240) := CHR(0);
52 P_arg35 varchar2(240) := CHR(0);
53 P_arg36 varchar2(240) := CHR(0);
54 P_arg37 varchar2(240) := CHR(0);
55 P_arg38 varchar2(240) := CHR(0);
56 P_arg39 varchar2(240) := CHR(0);
57 P_arg40 varchar2(240) := CHR(0);
58 P_arg41 varchar2(240) := CHR(0);
59 P_arg42 varchar2(240) := CHR(0);
60 P_arg43 varchar2(240) := CHR(0);
61 P_arg44 varchar2(240) := CHR(0);
62 P_arg45 varchar2(240) := CHR(0);
63 P_arg46 varchar2(240) := CHR(0);
64 P_arg47 varchar2(240) := CHR(0);
65 P_arg48 varchar2(240) := CHR(0);
66 P_arg49 varchar2(240) := CHR(0);
67 P_arg50 varchar2(240) := CHR(0);
68 P_arg51 varchar2(240) := CHR(0);
69 P_arg52 varchar2(240) := CHR(0);
70 P_arg53 varchar2(240) := CHR(0);
71 P_arg54 varchar2(240) := CHR(0);
72 P_arg55 varchar2(240) := CHR(0);
73 P_arg56 varchar2(240) := CHR(0);
74 P_arg57 varchar2(240) := CHR(0);
75 P_arg58 varchar2(240) := CHR(0);
76 P_arg59 varchar2(240) := CHR(0);
77 P_arg60 varchar2(240) := CHR(0);
78 P_arg61 varchar2(240) := CHR(0);
79 P_arg62 varchar2(240) := CHR(0);
80 P_arg63 varchar2(240) := CHR(0);
81 P_arg64 varchar2(240) := CHR(0);
82 P_arg65 varchar2(240) := CHR(0);
83 P_arg66 varchar2(240) := CHR(0);
84 P_arg67 varchar2(240) := CHR(0);
85 P_arg68 varchar2(240) := CHR(0);
86 P_arg69 varchar2(240) := CHR(0);
87 P_arg70 varchar2(240) := CHR(0);
88 P_arg71 varchar2(240) := CHR(0);
89 P_arg72 varchar2(240) := CHR(0);
90 P_arg73 varchar2(240) := CHR(0);
91 P_arg74 varchar2(240) := CHR(0);
92 P_arg75 varchar2(240) := CHR(0);
93 P_arg76 varchar2(240) := CHR(0);
94 P_arg77 varchar2(240) := CHR(0);
95 P_arg78 varchar2(240) := CHR(0);
96 P_arg79 varchar2(240) := CHR(0);
97 P_arg80 varchar2(240) := CHR(0);
98 P_arg81 varchar2(240) := CHR(0);
99 P_arg82 varchar2(240) := CHR(0);
100 P_arg83 varchar2(240) := CHR(0);
101 P_arg84 varchar2(240) := CHR(0);
102 P_arg85 varchar2(240) := CHR(0);
103 P_arg86 varchar2(240) := CHR(0);
104 P_arg87 varchar2(240) := CHR(0);
105 P_arg88 varchar2(240) := CHR(0);
106 P_arg89 varchar2(240) := CHR(0);
107 P_arg90 varchar2(240) := CHR(0);
108 P_arg91 varchar2(240) := CHR(0);
109 P_arg92 varchar2(240) := CHR(0);
110 P_arg93 varchar2(240) := CHR(0);
111 P_arg94 varchar2(240) := CHR(0);
112 P_arg95 varchar2(240) := CHR(0);
113 P_arg96 varchar2(240) := CHR(0);
114 P_arg97 varchar2(240) := CHR(0);
115 P_arg98 varchar2(240) := CHR(0);
116 P_arg99 varchar2(240) := CHR(0);
117 P_arg100 varchar2(240) := CHR(0);
118
119
120 P_errnum number := 0;
121 P_fsegs fnd_dflex.segments_dr;
122
123
124 procedure initialize is
125
126 flexi fnd_dflex.dflex_dr;
127 fcontexts fnd_dflex.contexts_dr;
128 fcontext fnd_dflex.context_r;
129 prog_app_name varchar2(30);
130 prog_name varchar2(30);
131
132 begin
133
134 P_reqid := fnd_global.conc_request_id;
135
136 select
137 ARGUMENT1, ARGUMENT2, ARGUMENT3, ARGUMENT4, ARGUMENT5,
138 ARGUMENT6, ARGUMENT7, ARGUMENT8, ARGUMENT9, ARGUMENT10,
139 ARGUMENT11, ARGUMENT12, ARGUMENT13, ARGUMENT14, ARGUMENT15,
140 ARGUMENT16, ARGUMENT17, ARGUMENT18, ARGUMENT19, ARGUMENT20,
141 ARGUMENT21, ARGUMENT22, ARGUMENT23, ARGUMENT24, ARGUMENT25,
142 Argument26, Argument27, Argument28, Argument29, Argument30,
143 Argument31, Argument32, Argument33, Argument34, Argument35,
144 Argument36, Argument37, Argument38, Argument39, Argument40,
145 Argument41, Argument42, Argument43, Argument44, Argument45,
146 Argument46, Argument47, Argument48, Argument49, Argument50,
147 Argument51, Argument52, Argument53, Argument54, Argument55,
148 Argument56, Argument57, Argument58, Argument59, Argument60,
149 Argument61, Argument62, Argument63, Argument64, Argument65,
150 Argument66, Argument67, Argument68, Argument69, Argument70,
151 Argument71, Argument72, Argument73, Argument74, Argument75,
152 Argument76, Argument77, Argument78, Argument79, Argument80,
153 Argument81, Argument82, Argument83, Argument84, Argument85,
154 Argument86, Argument87, Argument88, Argument89, Argument90,
155 Argument91, Argument92, Argument93, Argument94, Argument95,
156 Argument96, Argument97, Argument98, Argument99, Argument100,
157 CONCURRENT_PROGRAM_NAME, APPLICATION_SHORT_NAME, NLS_TERRITORY
158 into
159 P_arg1, P_arg2, P_arg3, P_arg4, P_arg5, P_arg6, P_arg7,
160 P_arg8, P_arg9, P_arg10, P_arg11, P_arg12, P_arg13, P_arg14,
161 P_arg15, P_arg16, P_arg17, P_arg18, P_arg19, P_arg20,
162 P_arg21, P_arg22, P_arg23, P_arg24, P_arg25,
163 P_arg26, P_arg27, P_arg28, P_arg29, P_arg30,
164 P_arg31, P_arg32, P_arg33, P_arg34, P_arg35,
165 P_arg36, P_arg37, P_arg38, P_arg39, P_arg40,
166 P_arg41, P_arg42, P_arg43, P_arg44, P_arg45,
167 P_arg46, P_arg47, P_arg48, P_arg49, P_arg50,
168 P_arg51, P_arg52, P_arg53, P_arg54, P_arg55,
169 P_arg56, P_arg57, P_arg58, P_arg59, P_arg60,
170 P_arg61, P_arg62, P_arg63, P_arg64, P_arg65,
171 P_arg66, P_arg67, P_arg68, P_arg69, P_arg70,
172 P_arg71, P_arg72, P_arg73, P_arg74, P_arg75,
173 P_arg76, P_arg77, P_arg78, P_arg79, P_arg80,
174 P_arg81, P_arg82, P_arg83, P_arg84, P_arg85,
175 P_arg86, P_arg87, P_arg88, P_arg89, P_arg90,
176 P_arg91, P_arg92, P_arg93, P_arg94, P_arg95,
177 P_arg96, P_arg97, P_arg98, P_arg99, P_arg100,
178 prog_name, prog_app_name, P_nls_territory
179 from fnd_run_requests r,
180 fnd_concurrent_programs p,
181 fnd_application a
182 where r.parent_request_id = fnd_global.conc_request_id
183 and r.concurrent_program_id = p.concurrent_program_id
184 and r.application_id = p.application_id
185 and r.application_id = a.application_id;
186
187
188
189 fnd_dflex.get_flexfield(prog_app_name, '$SRS$.' || prog_name,
190 fcontext.flexfield, flexi);
191 fnd_dflex.get_contexts(fcontext.flexfield, fcontexts);
192 fcontext.context_code := fcontexts.context_code(fcontexts.global_context);
193 fnd_dflex.get_segments(fcontext,P_fsegs, TRUE);
194
195 P_ProgName := prog_name;
196 P_ProgAppName := prog_app_name;
197
198 end;
199
200
201 FUNCTION GET_REQUEST_ID return number is
202 begin
203
204 if (P_reqid is null) then
205 return (0);
206 else
207 return ( P_reqid );
208 end if;
209
210 end;
211
212
213 FUNCTION GET_PARAM_INFO(Param_num in number,
214 Name out nocopy varchar2)
215 return number is
216 begin
217
218 if (Param_num>P_fsegs.nsegments) then
219 return (-1);
220 end if;
221
222 Name := P_fsegs.segment_name(Param_num);
223
224 return(0);
225 end;
226
227
228 FUNCTION GET_PARAM_NUMBER(name in varchar2,
229 Param_num out nocopy number)
230 return number is
231
232 counter number;
233
234 begin
235 if (P_fsegs.nsegments < 1) then
236 return (-1);
237 end if;
238
239 counter := 1;
240 while ((counter < P_fsegs.nsegments) and
241 (Name <> P_fsegs.segment_name(counter))) loop
242 counter := counter + 1;
243 end loop;
244
245 IF (Name <> P_fsegs.segment_name(counter)) then
246 return (-1);
247 end if;
248
249 Param_num := counter;
250
251 return(0);
252
253 end;
254
255
256
257 PROCEDURE GET_PROGRAM(PROG_NAME out nocopy VARCHAR2,
258 PROG_APP_NAME out nocopy varchar2) is
259
260 begin
261 PROG_NAME := P_ProgName;
262 PROG_APP_NAME := P_ProgAppName;
263 end;
264
265
266 FUNCTION GET_PARAMETER(param_num in number) return varchar2 is
267
268 begin
269 -- if (param_num > P_nargs) then return(NULL); end if;
270
271 if (param_num = 1) then return(P_arg1); end if;
272 if (param_num = 2) then return(P_arg2); end if;
273 if (param_num = 3) then return(P_arg3); end if;
274 if (param_num = 4) then return(P_arg4); end if;
275 if (param_num = 5) then return(P_arg5); end if;
276 if (param_num = 6) then return(P_arg6); end if;
277 if (param_num = 7) then return(P_arg7); end if;
278 if (param_num = 8) then return(P_arg8); end if;
279 if (param_num = 9) then return(P_arg9); end if;
280 if (param_num = 10) then return(P_arg10); end if;
281 if (param_num = 11) then return(P_arg11); end if;
282 if (param_num = 12) then return(P_arg12); end if;
283 if (param_num = 13) then return(P_arg13); end if;
284 if (param_num = 14) then return(P_arg14); end if;
285 if (param_num = 15) then return(P_arg15); end if;
286 if (param_num = 16) then return(P_arg16); end if;
287 if (param_num = 17) then return(P_arg17); end if;
288 if (param_num = 18) then return(P_arg18); end if;
289 if (param_num = 19) then return(P_arg19); end if;
290 if (param_num = 20) then return(P_arg20); end if;
291 if (param_num = 21) then return(P_arg21); end if;
292 if (param_num = 22) then return(P_arg22); end if;
293 if (param_num = 23) then return(P_arg23); end if;
294 if (param_num = 24) then return(P_arg24); end if;
295 if (param_num = 25) then return(P_arg25); end if;
296 if (param_num = 26) then return(P_arg26); end if;
297 if (param_num = 27) then return(P_arg27); end if;
298 if (param_num = 28) then return(P_arg28); end if;
299 if (param_num = 29) then return(P_arg29); end if;
300 if (param_num = 30) then return(P_arg30); end if;
301 if (param_num = 31) then return(P_arg31); end if;
302 if (param_num = 32) then return(P_arg32); end if;
303 if (param_num = 33) then return(P_arg33); end if;
304 if (param_num = 34) then return(P_arg34); end if;
305 if (param_num = 35) then return(P_arg35); end if;
306 if (param_num = 36) then return(P_arg36); end if;
307 if (param_num = 37) then return(P_arg37); end if;
308 if (param_num = 38) then return(P_arg38); end if;
309 if (param_num = 39) then return(P_arg39); end if;
310 if (param_num = 40) then return(P_arg40); end if;
311 if (param_num = 41) then return(P_arg41); end if;
312 if (param_num = 42) then return(P_arg42); end if;
313 if (param_num = 43) then return(P_arg43); end if;
314 if (param_num = 44) then return(P_arg44); end if;
315 if (param_num = 45) then return(P_arg45); end if;
316 if (param_num = 46) then return(P_arg46); end if;
317 if (param_num = 47) then return(P_arg47); end if;
318 if (param_num = 48) then return(P_arg48); end if;
319 if (param_num = 49) then return(P_arg49); end if;
320 if (param_num = 50) then return(P_arg50); end if;
321 if (param_num = 51) then return(P_arg51); end if;
322 if (param_num = 52) then return(P_arg52); end if;
323 if (param_num = 53) then return(P_arg53); end if;
324 if (param_num = 54) then return(P_arg54); end if;
325 if (param_num = 55) then return(P_arg55); end if;
326 if (param_num = 56) then return(P_arg56); end if;
327 if (param_num = 57) then return(P_arg57); end if;
328 if (param_num = 58) then return(P_arg58); end if;
329 if (param_num = 59) then return(P_arg59); end if;
330 if (param_num = 60) then return(P_arg60); end if;
331 if (param_num = 61) then return(P_arg61); end if;
332 if (param_num = 62) then return(P_arg62); end if;
333 if (param_num = 63) then return(P_arg63); end if;
334 if (param_num = 64) then return(P_arg64); end if;
335 if (param_num = 65) then return(P_arg65); end if;
336 if (param_num = 66) then return(P_arg66); end if;
337 if (param_num = 67) then return(P_arg67); end if;
338 if (param_num = 68) then return(P_arg68); end if;
339 if (param_num = 69) then return(P_arg69); end if;
340 if (param_num = 70) then return(P_arg70); end if;
341 if (param_num = 71) then return(P_arg71); end if;
342 if (param_num = 72) then return(P_arg72); end if;
343 if (param_num = 73) then return(P_arg73); end if;
344 if (param_num = 74) then return(P_arg74); end if;
345 if (param_num = 75) then return(P_arg75); end if;
346 if (param_num = 76) then return(P_arg76); end if;
347 if (param_num = 77) then return(P_arg77); end if;
348 if (param_num = 78) then return(P_arg78); end if;
349 if (param_num = 79) then return(P_arg79); end if;
350 if (param_num = 80) then return(P_arg80); end if;
351 if (param_num = 81) then return(P_arg81); end if;
352 if (param_num = 82) then return(P_arg82); end if;
353 if (param_num = 83) then return(P_arg83); end if;
354 if (param_num = 84) then return(P_arg84); end if;
355 if (param_num = 85) then return(P_arg85); end if;
356 if (param_num = 86) then return(P_arg86); end if;
357 if (param_num = 87) then return(P_arg87); end if;
358 if (param_num = 88) then return(P_arg88); end if;
359 if (param_num = 89) then return(P_arg89); end if;
360 if (param_num = 90) then return(P_arg90); end if;
361 if (param_num = 91) then return(P_arg91); end if;
362 if (param_num = 92) then return(P_arg92); end if;
363 if (param_num = 93) then return(P_arg93); end if;
364 if (param_num = 94) then return(P_arg94); end if;
365 if (param_num = 95) then return(P_arg95); end if;
366 if (param_num = 96) then return(P_arg96); end if;
367 if (param_num = 97) then return(P_arg97); end if;
368 if (param_num = 98) then return(P_arg98); end if;
369 if (param_num = 99) then return(P_arg99); end if;
370 if (param_num = 100) then return(P_arg100); end if;
371 end;
372
373
374 FUNCTION GET_PARAMETER(name in varchar2) return varchar2 is
375 param_num number;
376 ret_val number;
377 begin
378 ret_val := get_param_number( name, param_num );
379 if ( ret_val < 0 ) then
380 return null;
381 end if;
382 return get_parameter(param_num);
383 end;
384
385 FUNCTION get_territory return varchar2 is
386 Begin
387 return(P_nls_territory);
388 end;
389
390 end;