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_PUB_W

Source


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