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_PUB_W

Source


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