eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_SETUPCGRPARAMETERS_PVT_W

Source


1 package body okl_setupcgrparameters_pvt_w as
2   /* $Header: OKLESCMB.pls 120.1 2005/07/12 09:08:48 dkagrawa noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   function rosetta_g_miss_num_map(n number) return number as
14     a number := fnd_api.g_miss_num;
15     b number := 0-1962.0724;
16   begin
17     if n=a then return b; end if;
18     if n=b then return a; end if;
19     return n;
20   end;
21 
22   procedure get_rec(x_return_status out nocopy  VARCHAR2
23     , x_no_data_found out nocopy  number
24     , p3_a0 out nocopy  NUMBER
25     , p3_a1 out nocopy  NUMBER
26     , p3_a2 out nocopy  NUMBER
27     , p3_a3 out nocopy  NUMBER
28     , p3_a4 out nocopy  NUMBER
29     , p3_a5 out nocopy  DATE
30     , p3_a6 out nocopy  NUMBER
31     , p3_a7 out nocopy  DATE
32     , p3_a8 out nocopy  NUMBER
33     , p0_a0  NUMBER := 0-1962.0724
34     , p0_a1  NUMBER := 0-1962.0724
35     , p0_a2  NUMBER := 0-1962.0724
36     , p0_a3  NUMBER := 0-1962.0724
37     , p0_a4  NUMBER := 0-1962.0724
38     , p0_a5  DATE := fnd_api.g_miss_date
39     , p0_a6  NUMBER := 0-1962.0724
40     , p0_a7  DATE := fnd_api.g_miss_date
41     , p0_a8  NUMBER := 0-1962.0724
42   )
43 
44   as
45     ddp_cgmv_rec okl_setupcgrparameters_pvt.cgmv_rec_type;
46     ddx_no_data_found boolean;
47     ddx_cgmv_rec okl_setupcgrparameters_pvt.cgmv_rec_type;
48     ddindx binary_integer; indx binary_integer;
49   begin
50 
51     -- copy data to the local IN or IN-OUT args, if any
52     ddp_cgmv_rec.id := rosetta_g_miss_num_map(p0_a0);
53     ddp_cgmv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
54     ddp_cgmv_rec.cgr_id := rosetta_g_miss_num_map(p0_a2);
55     ddp_cgmv_rec.pmr_id := rosetta_g_miss_num_map(p0_a3);
56     ddp_cgmv_rec.created_by := rosetta_g_miss_num_map(p0_a4);
57     ddp_cgmv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a5);
58     ddp_cgmv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a6);
59     ddp_cgmv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a7);
60     ddp_cgmv_rec.last_update_login := rosetta_g_miss_num_map(p0_a8);
61 
62 
63 
64 
65     -- here's the delegated call to the old PL/SQL routine
66     okl_setupcgrparameters_pvt.get_rec(ddp_cgmv_rec,
67       x_return_status,
68       ddx_no_data_found,
69       ddx_cgmv_rec);
70 
71     -- copy data back from the local variables to OUT or IN-OUT args, if any
72 
73 
74   if ddx_no_data_found is null
75     then x_no_data_found := null;
76   elsif ddx_no_data_found
77     then x_no_data_found := 1;
78   else x_no_data_found := 0;
79   end if;
80 
81     p3_a0 := rosetta_g_miss_num_map(ddx_cgmv_rec.id);
82     p3_a1 := rosetta_g_miss_num_map(ddx_cgmv_rec.object_version_number);
83     p3_a2 := rosetta_g_miss_num_map(ddx_cgmv_rec.cgr_id);
84     p3_a3 := rosetta_g_miss_num_map(ddx_cgmv_rec.pmr_id);
85     p3_a4 := rosetta_g_miss_num_map(ddx_cgmv_rec.created_by);
86     p3_a5 := ddx_cgmv_rec.creation_date;
87     p3_a6 := rosetta_g_miss_num_map(ddx_cgmv_rec.last_updated_by);
88     p3_a7 := ddx_cgmv_rec.last_update_date;
89     p3_a8 := rosetta_g_miss_num_map(ddx_cgmv_rec.last_update_login);
90   end;
91 
92   procedure insert_cgrparameters(p_api_version  NUMBER
93     , p_init_msg_list  VARCHAR2
94     , x_return_status out nocopy  VARCHAR2
95     , x_msg_count out nocopy  NUMBER
96     , x_msg_data out nocopy  VARCHAR2
97     , p6_a0 out nocopy  NUMBER
98     , p6_a1 out nocopy  NUMBER
99     , p6_a2 out nocopy  NUMBER
100     , p6_a3 out nocopy  NUMBER
101     , p6_a4 out nocopy  NUMBER
102     , p6_a5 out nocopy  DATE
103     , p6_a6 out nocopy  NUMBER
104     , p6_a7 out nocopy  DATE
105     , p6_a8 out nocopy  NUMBER
106     , p5_a0  NUMBER := 0-1962.0724
107     , p5_a1  NUMBER := 0-1962.0724
108     , p5_a2  NUMBER := 0-1962.0724
109     , p5_a3  NUMBER := 0-1962.0724
110     , p5_a4  NUMBER := 0-1962.0724
111     , p5_a5  DATE := fnd_api.g_miss_date
112     , p5_a6  NUMBER := 0-1962.0724
113     , p5_a7  DATE := fnd_api.g_miss_date
114     , p5_a8  NUMBER := 0-1962.0724
115   )
116 
117   as
118     ddp_cgmv_rec okl_setupcgrparameters_pvt.cgmv_rec_type;
119     ddx_cgmv_rec okl_setupcgrparameters_pvt.cgmv_rec_type;
120     ddindx binary_integer; indx binary_integer;
121   begin
122 
123     -- copy data to the local IN or IN-OUT args, if any
124 
125 
126 
127 
128 
129     ddp_cgmv_rec.id := rosetta_g_miss_num_map(p5_a0);
130     ddp_cgmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
131     ddp_cgmv_rec.cgr_id := rosetta_g_miss_num_map(p5_a2);
132     ddp_cgmv_rec.pmr_id := rosetta_g_miss_num_map(p5_a3);
133     ddp_cgmv_rec.created_by := rosetta_g_miss_num_map(p5_a4);
134     ddp_cgmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a5);
135     ddp_cgmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a6);
136     ddp_cgmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a7);
137     ddp_cgmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a8);
138 
139 
140     -- here's the delegated call to the old PL/SQL routine
141     okl_setupcgrparameters_pvt.insert_cgrparameters(p_api_version,
142       p_init_msg_list,
143       x_return_status,
144       x_msg_count,
145       x_msg_data,
146       ddp_cgmv_rec,
147       ddx_cgmv_rec);
148 
149     -- copy data back from the local variables to OUT or IN-OUT args, if any
150 
151 
152 
153 
154 
155 
156     p6_a0 := rosetta_g_miss_num_map(ddx_cgmv_rec.id);
157     p6_a1 := rosetta_g_miss_num_map(ddx_cgmv_rec.object_version_number);
158     p6_a2 := rosetta_g_miss_num_map(ddx_cgmv_rec.cgr_id);
159     p6_a3 := rosetta_g_miss_num_map(ddx_cgmv_rec.pmr_id);
160     p6_a4 := rosetta_g_miss_num_map(ddx_cgmv_rec.created_by);
161     p6_a5 := ddx_cgmv_rec.creation_date;
162     p6_a6 := rosetta_g_miss_num_map(ddx_cgmv_rec.last_updated_by);
163     p6_a7 := ddx_cgmv_rec.last_update_date;
164     p6_a8 := rosetta_g_miss_num_map(ddx_cgmv_rec.last_update_login);
165   end;
166 
167   procedure update_cgrparameters(p_api_version  NUMBER
168     , p_init_msg_list  VARCHAR2
169     , x_return_status out nocopy  VARCHAR2
170     , x_msg_count out nocopy  NUMBER
171     , x_msg_data out nocopy  VARCHAR2
172     , p6_a0 out nocopy  NUMBER
173     , p6_a1 out nocopy  NUMBER
174     , p6_a2 out nocopy  NUMBER
175     , p6_a3 out nocopy  NUMBER
176     , p6_a4 out nocopy  NUMBER
177     , p6_a5 out nocopy  DATE
178     , p6_a6 out nocopy  NUMBER
179     , p6_a7 out nocopy  DATE
180     , p6_a8 out nocopy  NUMBER
181     , p5_a0  NUMBER := 0-1962.0724
182     , p5_a1  NUMBER := 0-1962.0724
183     , p5_a2  NUMBER := 0-1962.0724
184     , p5_a3  NUMBER := 0-1962.0724
185     , p5_a4  NUMBER := 0-1962.0724
186     , p5_a5  DATE := fnd_api.g_miss_date
187     , p5_a6  NUMBER := 0-1962.0724
188     , p5_a7  DATE := fnd_api.g_miss_date
189     , p5_a8  NUMBER := 0-1962.0724
190   )
191 
192   as
193     ddp_cgmv_rec okl_setupcgrparameters_pvt.cgmv_rec_type;
194     ddx_cgmv_rec okl_setupcgrparameters_pvt.cgmv_rec_type;
195     ddindx binary_integer; indx binary_integer;
196   begin
197 
198     -- copy data to the local IN or IN-OUT args, if any
199 
200 
201 
202 
203 
204     ddp_cgmv_rec.id := rosetta_g_miss_num_map(p5_a0);
205     ddp_cgmv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
206     ddp_cgmv_rec.cgr_id := rosetta_g_miss_num_map(p5_a2);
207     ddp_cgmv_rec.pmr_id := rosetta_g_miss_num_map(p5_a3);
208     ddp_cgmv_rec.created_by := rosetta_g_miss_num_map(p5_a4);
209     ddp_cgmv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a5);
210     ddp_cgmv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a6);
211     ddp_cgmv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a7);
212     ddp_cgmv_rec.last_update_login := rosetta_g_miss_num_map(p5_a8);
213 
214 
215     -- here's the delegated call to the old PL/SQL routine
216     okl_setupcgrparameters_pvt.update_cgrparameters(p_api_version,
217       p_init_msg_list,
218       x_return_status,
219       x_msg_count,
220       x_msg_data,
221       ddp_cgmv_rec,
222       ddx_cgmv_rec);
223 
224     -- copy data back from the local variables to OUT or IN-OUT args, if any
225 
226 
227 
228 
229 
230 
231     p6_a0 := rosetta_g_miss_num_map(ddx_cgmv_rec.id);
232     p6_a1 := rosetta_g_miss_num_map(ddx_cgmv_rec.object_version_number);
233     p6_a2 := rosetta_g_miss_num_map(ddx_cgmv_rec.cgr_id);
234     p6_a3 := rosetta_g_miss_num_map(ddx_cgmv_rec.pmr_id);
235     p6_a4 := rosetta_g_miss_num_map(ddx_cgmv_rec.created_by);
236     p6_a5 := ddx_cgmv_rec.creation_date;
237     p6_a6 := rosetta_g_miss_num_map(ddx_cgmv_rec.last_updated_by);
238     p6_a7 := ddx_cgmv_rec.last_update_date;
239     p6_a8 := rosetta_g_miss_num_map(ddx_cgmv_rec.last_update_login);
240   end;
241 
242   procedure delete_cgrparameters(p_api_version  NUMBER
243     , p_init_msg_list  VARCHAR2
244     , x_return_status out nocopy  VARCHAR2
245     , x_msg_count out nocopy  NUMBER
246     , x_msg_data out nocopy  VARCHAR2
247     , p5_a0 JTF_NUMBER_TABLE
248     , p5_a1 JTF_NUMBER_TABLE
249     , p5_a2 JTF_NUMBER_TABLE
250     , p5_a3 JTF_NUMBER_TABLE
251     , p5_a4 JTF_NUMBER_TABLE
252     , p5_a5 JTF_DATE_TABLE
253     , p5_a6 JTF_NUMBER_TABLE
254     , p5_a7 JTF_DATE_TABLE
255     , p5_a8 JTF_NUMBER_TABLE
256   )
257 
258   as
259     ddp_cgmv_tbl okl_setupcgrparameters_pvt.cgmv_tbl_type;
260     ddindx binary_integer; indx binary_integer;
261   begin
262 
263     -- copy data to the local IN or IN-OUT args, if any
264 
265 
266 
267 
268 
269     okl_cgm_pvt_w.rosetta_table_copy_in_p5(ddp_cgmv_tbl, p5_a0
270       , p5_a1
271       , p5_a2
272       , p5_a3
273       , p5_a4
274       , p5_a5
275       , p5_a6
276       , p5_a7
277       , p5_a8
278       );
279 
280     -- here's the delegated call to the old PL/SQL routine
281     okl_setupcgrparameters_pvt.delete_cgrparameters(p_api_version,
282       p_init_msg_list,
283       x_return_status,
284       x_msg_count,
285       x_msg_data,
286       ddp_cgmv_tbl);
287 
288     -- copy data back from the local variables to OUT or IN-OUT args, if any
289 
290 
291 
292 
293 
294   end;
295 
296   procedure insert_cgrparameters(p_api_version  NUMBER
297     , p_init_msg_list  VARCHAR2
298     , x_return_status out nocopy  VARCHAR2
299     , x_msg_count out nocopy  NUMBER
300     , x_msg_data out nocopy  VARCHAR2
301     , p5_a0 JTF_NUMBER_TABLE
302     , p5_a1 JTF_NUMBER_TABLE
303     , p5_a2 JTF_NUMBER_TABLE
304     , p5_a3 JTF_NUMBER_TABLE
305     , p5_a4 JTF_NUMBER_TABLE
306     , p5_a5 JTF_DATE_TABLE
307     , p5_a6 JTF_NUMBER_TABLE
308     , p5_a7 JTF_DATE_TABLE
309     , p5_a8 JTF_NUMBER_TABLE
310     , p6_a0 out nocopy JTF_NUMBER_TABLE
311     , p6_a1 out nocopy JTF_NUMBER_TABLE
312     , p6_a2 out nocopy JTF_NUMBER_TABLE
313     , p6_a3 out nocopy JTF_NUMBER_TABLE
314     , p6_a4 out nocopy JTF_NUMBER_TABLE
315     , p6_a5 out nocopy JTF_DATE_TABLE
316     , p6_a6 out nocopy JTF_NUMBER_TABLE
317     , p6_a7 out nocopy JTF_DATE_TABLE
318     , p6_a8 out nocopy JTF_NUMBER_TABLE
319   )
320 
321   as
322     ddp_cgmv_tbl okl_setupcgrparameters_pvt.cgmv_tbl_type;
323     ddx_cgmv_tbl okl_setupcgrparameters_pvt.cgmv_tbl_type;
324     ddindx binary_integer; indx binary_integer;
325   begin
326 
327     -- copy data to the local IN or IN-OUT args, if any
328 
329 
330 
331 
332 
333     okl_cgm_pvt_w.rosetta_table_copy_in_p5(ddp_cgmv_tbl, p5_a0
334       , p5_a1
335       , p5_a2
336       , p5_a3
337       , p5_a4
338       , p5_a5
339       , p5_a6
340       , p5_a7
341       , p5_a8
342       );
343 
344 
345     -- here's the delegated call to the old PL/SQL routine
346     okl_setupcgrparameters_pvt.insert_cgrparameters(p_api_version,
347       p_init_msg_list,
348       x_return_status,
349       x_msg_count,
350       x_msg_data,
351       ddp_cgmv_tbl,
352       ddx_cgmv_tbl);
353 
354     -- copy data back from the local variables to OUT or IN-OUT args, if any
355 
356 
357 
358 
359 
360 
361     okl_cgm_pvt_w.rosetta_table_copy_out_p5(ddx_cgmv_tbl, p6_a0
362       , p6_a1
363       , p6_a2
364       , p6_a3
365       , p6_a4
366       , p6_a5
367       , p6_a6
368       , p6_a7
369       , p6_a8
370       );
371   end;
372 
373   procedure update_cgrparameters(p_api_version  NUMBER
374     , p_init_msg_list  VARCHAR2
375     , x_return_status out nocopy  VARCHAR2
376     , x_msg_count out nocopy  NUMBER
377     , x_msg_data out nocopy  VARCHAR2
378     , p5_a0 JTF_NUMBER_TABLE
379     , p5_a1 JTF_NUMBER_TABLE
380     , p5_a2 JTF_NUMBER_TABLE
381     , p5_a3 JTF_NUMBER_TABLE
382     , p5_a4 JTF_NUMBER_TABLE
383     , p5_a5 JTF_DATE_TABLE
384     , p5_a6 JTF_NUMBER_TABLE
385     , p5_a7 JTF_DATE_TABLE
386     , p5_a8 JTF_NUMBER_TABLE
387     , p6_a0 out nocopy JTF_NUMBER_TABLE
388     , p6_a1 out nocopy JTF_NUMBER_TABLE
389     , p6_a2 out nocopy JTF_NUMBER_TABLE
390     , p6_a3 out nocopy JTF_NUMBER_TABLE
391     , p6_a4 out nocopy JTF_NUMBER_TABLE
392     , p6_a5 out nocopy JTF_DATE_TABLE
393     , p6_a6 out nocopy JTF_NUMBER_TABLE
394     , p6_a7 out nocopy JTF_DATE_TABLE
395     , p6_a8 out nocopy JTF_NUMBER_TABLE
396   )
397 
398   as
399     ddp_cgmv_tbl okl_setupcgrparameters_pvt.cgmv_tbl_type;
400     ddx_cgmv_tbl okl_setupcgrparameters_pvt.cgmv_tbl_type;
401     ddindx binary_integer; indx binary_integer;
402   begin
403 
404     -- copy data to the local IN or IN-OUT args, if any
405 
406 
407 
408 
409 
410     okl_cgm_pvt_w.rosetta_table_copy_in_p5(ddp_cgmv_tbl, p5_a0
411       , p5_a1
412       , p5_a2
413       , p5_a3
414       , p5_a4
415       , p5_a5
416       , p5_a6
417       , p5_a7
418       , p5_a8
419       );
420 
421 
422     -- here's the delegated call to the old PL/SQL routine
423     okl_setupcgrparameters_pvt.update_cgrparameters(p_api_version,
424       p_init_msg_list,
425       x_return_status,
426       x_msg_count,
427       x_msg_data,
428       ddp_cgmv_tbl,
429       ddx_cgmv_tbl);
430 
431     -- copy data back from the local variables to OUT or IN-OUT args, if any
432 
433 
434 
435 
436 
437 
438     okl_cgm_pvt_w.rosetta_table_copy_out_p5(ddx_cgmv_tbl, p6_a0
439       , p6_a1
440       , p6_a2
441       , p6_a3
442       , p6_a4
443       , p6_a5
444       , p6_a6
445       , p6_a7
446       , p6_a8
447       );
448   end;
449 
450 end okl_setupcgrparameters_pvt_w;