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_SETUPOPTRULES_PVT_W

Source


1 package body okl_setupoptrules_pvt_w as
2   /* $Header: OKLESORB.pls 115.2 2002/12/24 04:02:20 sgorantl 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  VARCHAR2
29     , p3_a5 out nocopy  VARCHAR2
30     , p3_a6 out nocopy  NUMBER
31     , p3_a7 out nocopy  NUMBER
32     , p3_a8 out nocopy  VARCHAR2
33     , p3_a9 out nocopy  NUMBER
34     , p3_a10 out nocopy  DATE
35     , p3_a11 out nocopy  NUMBER
36     , p3_a12 out nocopy  DATE
37     , p3_a13 out nocopy  NUMBER
38     , p0_a0  NUMBER := 0-1962.0724
39     , p0_a1  NUMBER := 0-1962.0724
40     , p0_a2  NUMBER := 0-1962.0724
41     , p0_a3  NUMBER := 0-1962.0724
42     , p0_a4  VARCHAR2 := fnd_api.g_miss_char
43     , p0_a5  VARCHAR2 := fnd_api.g_miss_char
44     , p0_a6  NUMBER := 0-1962.0724
45     , p0_a7  NUMBER := 0-1962.0724
46     , p0_a8  VARCHAR2 := fnd_api.g_miss_char
47     , p0_a9  NUMBER := 0-1962.0724
48     , p0_a10  DATE := fnd_api.g_miss_date
49     , p0_a11  NUMBER := 0-1962.0724
50     , p0_a12  DATE := fnd_api.g_miss_date
51     , p0_a13  NUMBER := 0-1962.0724
52   )
53 
54   as
55     ddp_orlv_rec okl_setupoptrules_pvt.orlv_rec_type;
56     ddx_no_data_found boolean;
57     ddx_orlv_rec okl_setupoptrules_pvt.orlv_rec_type;
58     ddindx binary_integer; indx binary_integer;
59   begin
60 
61     -- copy data to the local IN or IN-OUT args, if any
62     ddp_orlv_rec.id := rosetta_g_miss_num_map(p0_a0);
63     ddp_orlv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
64     ddp_orlv_rec.opt_id := rosetta_g_miss_num_map(p0_a2);
65     ddp_orlv_rec.srd_id_for := rosetta_g_miss_num_map(p0_a3);
66     ddp_orlv_rec.rgr_rgd_code := p0_a4;
67     ddp_orlv_rec.rgr_rdf_code := p0_a5;
68     ddp_orlv_rec.lrg_lse_id := rosetta_g_miss_num_map(p0_a6);
69     ddp_orlv_rec.lrg_srd_id := rosetta_g_miss_num_map(p0_a7);
70     ddp_orlv_rec.overall_instructions := p0_a8;
71     ddp_orlv_rec.created_by := rosetta_g_miss_num_map(p0_a9);
72     ddp_orlv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a10);
73     ddp_orlv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a11);
74     ddp_orlv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a12);
75     ddp_orlv_rec.last_update_login := rosetta_g_miss_num_map(p0_a13);
76 
77 
78 
79 
80     -- here's the delegated call to the old PL/SQL routine
81     okl_setupoptrules_pvt.get_rec(ddp_orlv_rec,
82       x_return_status,
83       ddx_no_data_found,
84       ddx_orlv_rec);
85 
86     -- copy data back from the local variables to OUT or IN-OUT args, if any
87 
88 
89   if ddx_no_data_found is null
90     then x_no_data_found := null;
91   elsif ddx_no_data_found
92     then x_no_data_found := 1;
93   else x_no_data_found := 0;
94   end if;
95 
96     p3_a0 := rosetta_g_miss_num_map(ddx_orlv_rec.id);
97     p3_a1 := rosetta_g_miss_num_map(ddx_orlv_rec.object_version_number);
98     p3_a2 := rosetta_g_miss_num_map(ddx_orlv_rec.opt_id);
99     p3_a3 := rosetta_g_miss_num_map(ddx_orlv_rec.srd_id_for);
100     p3_a4 := ddx_orlv_rec.rgr_rgd_code;
101     p3_a5 := ddx_orlv_rec.rgr_rdf_code;
102     p3_a6 := rosetta_g_miss_num_map(ddx_orlv_rec.lrg_lse_id);
103     p3_a7 := rosetta_g_miss_num_map(ddx_orlv_rec.lrg_srd_id);
104     p3_a8 := ddx_orlv_rec.overall_instructions;
105     p3_a9 := rosetta_g_miss_num_map(ddx_orlv_rec.created_by);
106     p3_a10 := ddx_orlv_rec.creation_date;
107     p3_a11 := rosetta_g_miss_num_map(ddx_orlv_rec.last_updated_by);
108     p3_a12 := ddx_orlv_rec.last_update_date;
109     p3_a13 := rosetta_g_miss_num_map(ddx_orlv_rec.last_update_login);
110   end;
111 
112   procedure insert_optrules(p_api_version  NUMBER
113     , p_init_msg_list  VARCHAR2
114     , x_return_status out nocopy  VARCHAR2
115     , x_msg_count out nocopy  NUMBER
116     , x_msg_data out nocopy  VARCHAR2
117     , p7_a0 out nocopy  NUMBER
118     , p7_a1 out nocopy  NUMBER
119     , p7_a2 out nocopy  NUMBER
120     , p7_a3 out nocopy  NUMBER
121     , p7_a4 out nocopy  VARCHAR2
122     , p7_a5 out nocopy  VARCHAR2
123     , p7_a6 out nocopy  NUMBER
124     , p7_a7 out nocopy  NUMBER
125     , p7_a8 out nocopy  VARCHAR2
126     , p7_a9 out nocopy  NUMBER
127     , p7_a10 out nocopy  DATE
128     , p7_a11 out nocopy  NUMBER
129     , p7_a12 out nocopy  DATE
130     , p7_a13 out nocopy  NUMBER
131     , p5_a0  NUMBER := 0-1962.0724
132     , p5_a1  NUMBER := 0-1962.0724
133     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
134     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
135     , p5_a4  DATE := fnd_api.g_miss_date
136     , p5_a5  DATE := fnd_api.g_miss_date
137     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
138     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
139     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
140     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
141     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
142     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
143     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
144     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
145     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
146     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
147     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
148     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
149     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
150     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
151     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
152     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
153     , p5_a22  NUMBER := 0-1962.0724
154     , p5_a23  DATE := fnd_api.g_miss_date
155     , p5_a24  NUMBER := 0-1962.0724
156     , p5_a25  DATE := fnd_api.g_miss_date
157     , p5_a26  NUMBER := 0-1962.0724
158     , p6_a0  NUMBER := 0-1962.0724
159     , p6_a1  NUMBER := 0-1962.0724
160     , p6_a2  NUMBER := 0-1962.0724
161     , p6_a3  NUMBER := 0-1962.0724
162     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
163     , p6_a5  VARCHAR2 := fnd_api.g_miss_char
164     , p6_a6  NUMBER := 0-1962.0724
165     , p6_a7  NUMBER := 0-1962.0724
166     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
167     , p6_a9  NUMBER := 0-1962.0724
168     , p6_a10  DATE := fnd_api.g_miss_date
169     , p6_a11  NUMBER := 0-1962.0724
170     , p6_a12  DATE := fnd_api.g_miss_date
171     , p6_a13  NUMBER := 0-1962.0724
172   )
173 
174   as
175     ddp_optv_rec okl_setupoptrules_pvt.optv_rec_type;
176     ddp_orlv_rec okl_setupoptrules_pvt.orlv_rec_type;
177     ddx_orlv_rec okl_setupoptrules_pvt.orlv_rec_type;
178     ddindx binary_integer; indx binary_integer;
179   begin
180 
181     -- copy data to the local IN or IN-OUT args, if any
182 
183 
184 
185 
186 
187     ddp_optv_rec.id := rosetta_g_miss_num_map(p5_a0);
188     ddp_optv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
189     ddp_optv_rec.name := p5_a2;
190     ddp_optv_rec.description := p5_a3;
191     ddp_optv_rec.from_date := rosetta_g_miss_date_in_map(p5_a4);
192     ddp_optv_rec.to_date := rosetta_g_miss_date_in_map(p5_a5);
193     ddp_optv_rec.attribute_category := p5_a6;
194     ddp_optv_rec.attribute1 := p5_a7;
195     ddp_optv_rec.attribute2 := p5_a8;
196     ddp_optv_rec.attribute3 := p5_a9;
197     ddp_optv_rec.attribute4 := p5_a10;
198     ddp_optv_rec.attribute5 := p5_a11;
199     ddp_optv_rec.attribute6 := p5_a12;
200     ddp_optv_rec.attribute7 := p5_a13;
201     ddp_optv_rec.attribute8 := p5_a14;
202     ddp_optv_rec.attribute9 := p5_a15;
203     ddp_optv_rec.attribute10 := p5_a16;
204     ddp_optv_rec.attribute11 := p5_a17;
205     ddp_optv_rec.attribute12 := p5_a18;
206     ddp_optv_rec.attribute13 := p5_a19;
207     ddp_optv_rec.attribute14 := p5_a20;
208     ddp_optv_rec.attribute15 := p5_a21;
209     ddp_optv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
210     ddp_optv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
211     ddp_optv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
212     ddp_optv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
213     ddp_optv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
214 
215     ddp_orlv_rec.id := rosetta_g_miss_num_map(p6_a0);
216     ddp_orlv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
217     ddp_orlv_rec.opt_id := rosetta_g_miss_num_map(p6_a2);
218     ddp_orlv_rec.srd_id_for := rosetta_g_miss_num_map(p6_a3);
219     ddp_orlv_rec.rgr_rgd_code := p6_a4;
220     ddp_orlv_rec.rgr_rdf_code := p6_a5;
221     ddp_orlv_rec.lrg_lse_id := rosetta_g_miss_num_map(p6_a6);
222     ddp_orlv_rec.lrg_srd_id := rosetta_g_miss_num_map(p6_a7);
223     ddp_orlv_rec.overall_instructions := p6_a8;
224     ddp_orlv_rec.created_by := rosetta_g_miss_num_map(p6_a9);
225     ddp_orlv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a10);
226     ddp_orlv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a11);
227     ddp_orlv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a12);
228     ddp_orlv_rec.last_update_login := rosetta_g_miss_num_map(p6_a13);
229 
230 
231     -- here's the delegated call to the old PL/SQL routine
232     okl_setupoptrules_pvt.insert_optrules(p_api_version,
233       p_init_msg_list,
234       x_return_status,
235       x_msg_count,
236       x_msg_data,
237       ddp_optv_rec,
238       ddp_orlv_rec,
239       ddx_orlv_rec);
240 
241     -- copy data back from the local variables to OUT or IN-OUT args, if any
242 
243 
244 
245 
246 
247 
248 
249     p7_a0 := rosetta_g_miss_num_map(ddx_orlv_rec.id);
250     p7_a1 := rosetta_g_miss_num_map(ddx_orlv_rec.object_version_number);
251     p7_a2 := rosetta_g_miss_num_map(ddx_orlv_rec.opt_id);
252     p7_a3 := rosetta_g_miss_num_map(ddx_orlv_rec.srd_id_for);
253     p7_a4 := ddx_orlv_rec.rgr_rgd_code;
254     p7_a5 := ddx_orlv_rec.rgr_rdf_code;
255     p7_a6 := rosetta_g_miss_num_map(ddx_orlv_rec.lrg_lse_id);
256     p7_a7 := rosetta_g_miss_num_map(ddx_orlv_rec.lrg_srd_id);
257     p7_a8 := ddx_orlv_rec.overall_instructions;
258     p7_a9 := rosetta_g_miss_num_map(ddx_orlv_rec.created_by);
259     p7_a10 := ddx_orlv_rec.creation_date;
260     p7_a11 := rosetta_g_miss_num_map(ddx_orlv_rec.last_updated_by);
261     p7_a12 := ddx_orlv_rec.last_update_date;
262     p7_a13 := rosetta_g_miss_num_map(ddx_orlv_rec.last_update_login);
263   end;
264 
265   procedure delete_optrules(p_api_version  NUMBER
266     , p_init_msg_list  VARCHAR2
267     , x_return_status out nocopy  VARCHAR2
268     , x_msg_count out nocopy  NUMBER
269     , x_msg_data out nocopy  VARCHAR2
270     , p6_a0 JTF_NUMBER_TABLE
271     , p6_a1 JTF_NUMBER_TABLE
272     , p6_a2 JTF_NUMBER_TABLE
273     , p6_a3 JTF_NUMBER_TABLE
274     , p6_a4 JTF_VARCHAR2_TABLE_100
275     , p6_a5 JTF_VARCHAR2_TABLE_100
276     , p6_a6 JTF_NUMBER_TABLE
277     , p6_a7 JTF_NUMBER_TABLE
278     , p6_a8 JTF_VARCHAR2_TABLE_2000
279     , p6_a9 JTF_NUMBER_TABLE
280     , p6_a10 JTF_DATE_TABLE
281     , p6_a11 JTF_NUMBER_TABLE
282     , p6_a12 JTF_DATE_TABLE
283     , p6_a13 JTF_NUMBER_TABLE
284     , p5_a0  NUMBER := 0-1962.0724
285     , p5_a1  NUMBER := 0-1962.0724
286     , p5_a2  VARCHAR2 := fnd_api.g_miss_char
287     , p5_a3  VARCHAR2 := fnd_api.g_miss_char
288     , p5_a4  DATE := fnd_api.g_miss_date
289     , p5_a5  DATE := fnd_api.g_miss_date
290     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
291     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
292     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
293     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
294     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
295     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
296     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
297     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
299     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
300     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
301     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
302     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
303     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
304     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
305     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
306     , p5_a22  NUMBER := 0-1962.0724
307     , p5_a23  DATE := fnd_api.g_miss_date
308     , p5_a24  NUMBER := 0-1962.0724
309     , p5_a25  DATE := fnd_api.g_miss_date
310     , p5_a26  NUMBER := 0-1962.0724
311   )
312 
313   as
314     ddp_optv_rec okl_setupoptrules_pvt.optv_rec_type;
315     ddp_orlv_tbl okl_setupoptrules_pvt.orlv_tbl_type;
316     ddindx binary_integer; indx binary_integer;
317   begin
318 
319     -- copy data to the local IN or IN-OUT args, if any
320 
321 
322 
323 
324 
325     ddp_optv_rec.id := rosetta_g_miss_num_map(p5_a0);
326     ddp_optv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
327     ddp_optv_rec.name := p5_a2;
328     ddp_optv_rec.description := p5_a3;
329     ddp_optv_rec.from_date := rosetta_g_miss_date_in_map(p5_a4);
330     ddp_optv_rec.to_date := rosetta_g_miss_date_in_map(p5_a5);
331     ddp_optv_rec.attribute_category := p5_a6;
332     ddp_optv_rec.attribute1 := p5_a7;
333     ddp_optv_rec.attribute2 := p5_a8;
334     ddp_optv_rec.attribute3 := p5_a9;
335     ddp_optv_rec.attribute4 := p5_a10;
336     ddp_optv_rec.attribute5 := p5_a11;
337     ddp_optv_rec.attribute6 := p5_a12;
338     ddp_optv_rec.attribute7 := p5_a13;
339     ddp_optv_rec.attribute8 := p5_a14;
340     ddp_optv_rec.attribute9 := p5_a15;
341     ddp_optv_rec.attribute10 := p5_a16;
342     ddp_optv_rec.attribute11 := p5_a17;
343     ddp_optv_rec.attribute12 := p5_a18;
344     ddp_optv_rec.attribute13 := p5_a19;
345     ddp_optv_rec.attribute14 := p5_a20;
346     ddp_optv_rec.attribute15 := p5_a21;
347     ddp_optv_rec.created_by := rosetta_g_miss_num_map(p5_a22);
348     ddp_optv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a23);
349     ddp_optv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a24);
350     ddp_optv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a25);
351     ddp_optv_rec.last_update_login := rosetta_g_miss_num_map(p5_a26);
352 
353     okl_orl_pvt_w.rosetta_table_copy_in_p5(ddp_orlv_tbl, p6_a0
354       , p6_a1
355       , p6_a2
356       , p6_a3
357       , p6_a4
358       , p6_a5
359       , p6_a6
360       , p6_a7
361       , p6_a8
362       , p6_a9
363       , p6_a10
364       , p6_a11
365       , p6_a12
366       , p6_a13
367       );
368 
369     -- here's the delegated call to the old PL/SQL routine
370     okl_setupoptrules_pvt.delete_optrules(p_api_version,
371       p_init_msg_list,
372       x_return_status,
373       x_msg_count,
374       x_msg_data,
375       ddp_optv_rec,
376       ddp_orlv_tbl);
377 
378     -- copy data back from the local variables to OUT or IN-OUT args, if any
379 
380 
381 
382 
383 
384 
385   end;
386 
387 end okl_setupoptrules_pvt_w;