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.CN_ATTAIN_SCHEDULE_PVT_W

Source


1 package body cn_attain_schedule_pvt_w as
2   /* $Header: cnwatshb.pls 115.3 2002/11/25 22:22:27 nkodkani ship $ */
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   procedure rosetta_table_copy_in_p1(t out nocopy cn_attain_schedule_pvt.attain_schedule_tbl_type, a0 JTF_NUMBER_TABLE
14     , a1 JTF_VARCHAR2_TABLE_100
15     , a2 JTF_VARCHAR2_TABLE_100
16     , a3 JTF_VARCHAR2_TABLE_200
17     , a4 JTF_VARCHAR2_TABLE_200
18     , a5 JTF_VARCHAR2_TABLE_200
19     , a6 JTF_VARCHAR2_TABLE_200
20     , a7 JTF_VARCHAR2_TABLE_200
21     , a8 JTF_VARCHAR2_TABLE_200
22     , a9 JTF_VARCHAR2_TABLE_200
23     , a10 JTF_VARCHAR2_TABLE_200
24     , a11 JTF_VARCHAR2_TABLE_200
25     , a12 JTF_VARCHAR2_TABLE_200
26     , a13 JTF_VARCHAR2_TABLE_200
27     , a14 JTF_VARCHAR2_TABLE_200
28     , a15 JTF_VARCHAR2_TABLE_200
29     , a16 JTF_VARCHAR2_TABLE_200
30     , a17 JTF_VARCHAR2_TABLE_200
31     , a18 JTF_NUMBER_TABLE
32     ) as
33     ddindx binary_integer; indx binary_integer;
34   begin
35   if a0 is not null and a0.count > 0 then
36       if a0.count > 0 then
37         indx := a0.first;
38         ddindx := 1;
39         while true loop
40           t(ddindx).attain_schedule_id := a0(indx);
41           t(ddindx).name := a1(indx);
42           t(ddindx).attribute_category := a2(indx);
43           t(ddindx).attribute1 := a3(indx);
44           t(ddindx).attribute2 := a4(indx);
45           t(ddindx).attribute3 := a5(indx);
46           t(ddindx).attribute4 := a6(indx);
47           t(ddindx).attribute5 := a7(indx);
48           t(ddindx).attribute6 := a8(indx);
49           t(ddindx).attribute7 := a9(indx);
50           t(ddindx).attribute8 := a10(indx);
51           t(ddindx).attribute9 := a11(indx);
52           t(ddindx).attribute10 := a12(indx);
53           t(ddindx).attribute11 := a13(indx);
54           t(ddindx).attribute12 := a14(indx);
55           t(ddindx).attribute13 := a15(indx);
56           t(ddindx).attribute14 := a16(indx);
57           t(ddindx).attribute15 := a17(indx);
58           t(ddindx).object_version_number := a18(indx);
59           ddindx := ddindx+1;
60           if a0.last =indx
61             then exit;
62           end if;
63           indx := a0.next(indx);
64         end loop;
65       end if;
66    end if;
67   end rosetta_table_copy_in_p1;
68   procedure rosetta_table_copy_out_p1(t cn_attain_schedule_pvt.attain_schedule_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
69     , a1 out nocopy JTF_VARCHAR2_TABLE_100
70     , a2 out nocopy JTF_VARCHAR2_TABLE_100
71     , a3 out nocopy JTF_VARCHAR2_TABLE_200
72     , a4 out nocopy JTF_VARCHAR2_TABLE_200
73     , a5 out nocopy JTF_VARCHAR2_TABLE_200
74     , a6 out nocopy JTF_VARCHAR2_TABLE_200
75     , a7 out nocopy JTF_VARCHAR2_TABLE_200
76     , a8 out nocopy JTF_VARCHAR2_TABLE_200
77     , a9 out nocopy JTF_VARCHAR2_TABLE_200
78     , a10 out nocopy JTF_VARCHAR2_TABLE_200
79     , a11 out nocopy JTF_VARCHAR2_TABLE_200
80     , a12 out nocopy JTF_VARCHAR2_TABLE_200
81     , a13 out nocopy JTF_VARCHAR2_TABLE_200
82     , a14 out nocopy JTF_VARCHAR2_TABLE_200
83     , a15 out nocopy JTF_VARCHAR2_TABLE_200
84     , a16 out nocopy JTF_VARCHAR2_TABLE_200
85     , a17 out nocopy JTF_VARCHAR2_TABLE_200
86     , a18 out nocopy JTF_NUMBER_TABLE
87     ) as
88     ddindx binary_integer; indx binary_integer;
89   begin
90   if t is null or t.count = 0 then
91     a0 := JTF_NUMBER_TABLE();
92     a1 := JTF_VARCHAR2_TABLE_100();
93     a2 := JTF_VARCHAR2_TABLE_100();
94     a3 := JTF_VARCHAR2_TABLE_200();
95     a4 := JTF_VARCHAR2_TABLE_200();
96     a5 := JTF_VARCHAR2_TABLE_200();
97     a6 := JTF_VARCHAR2_TABLE_200();
98     a7 := JTF_VARCHAR2_TABLE_200();
99     a8 := JTF_VARCHAR2_TABLE_200();
100     a9 := JTF_VARCHAR2_TABLE_200();
101     a10 := JTF_VARCHAR2_TABLE_200();
102     a11 := JTF_VARCHAR2_TABLE_200();
103     a12 := JTF_VARCHAR2_TABLE_200();
104     a13 := JTF_VARCHAR2_TABLE_200();
105     a14 := JTF_VARCHAR2_TABLE_200();
106     a15 := JTF_VARCHAR2_TABLE_200();
107     a16 := JTF_VARCHAR2_TABLE_200();
108     a17 := JTF_VARCHAR2_TABLE_200();
109     a18 := JTF_NUMBER_TABLE();
110   else
111       a0 := JTF_NUMBER_TABLE();
112       a1 := JTF_VARCHAR2_TABLE_100();
113       a2 := JTF_VARCHAR2_TABLE_100();
114       a3 := JTF_VARCHAR2_TABLE_200();
115       a4 := JTF_VARCHAR2_TABLE_200();
116       a5 := JTF_VARCHAR2_TABLE_200();
117       a6 := JTF_VARCHAR2_TABLE_200();
118       a7 := JTF_VARCHAR2_TABLE_200();
119       a8 := JTF_VARCHAR2_TABLE_200();
120       a9 := JTF_VARCHAR2_TABLE_200();
121       a10 := JTF_VARCHAR2_TABLE_200();
122       a11 := JTF_VARCHAR2_TABLE_200();
123       a12 := JTF_VARCHAR2_TABLE_200();
124       a13 := JTF_VARCHAR2_TABLE_200();
125       a14 := JTF_VARCHAR2_TABLE_200();
126       a15 := JTF_VARCHAR2_TABLE_200();
127       a16 := JTF_VARCHAR2_TABLE_200();
128       a17 := JTF_VARCHAR2_TABLE_200();
129       a18 := JTF_NUMBER_TABLE();
130       if t.count > 0 then
131         a0.extend(t.count);
132         a1.extend(t.count);
133         a2.extend(t.count);
134         a3.extend(t.count);
135         a4.extend(t.count);
136         a5.extend(t.count);
137         a6.extend(t.count);
138         a7.extend(t.count);
139         a8.extend(t.count);
140         a9.extend(t.count);
141         a10.extend(t.count);
142         a11.extend(t.count);
143         a12.extend(t.count);
144         a13.extend(t.count);
145         a14.extend(t.count);
146         a15.extend(t.count);
147         a16.extend(t.count);
148         a17.extend(t.count);
149         a18.extend(t.count);
150         ddindx := t.first;
151         indx := 1;
152         while true loop
153           a0(indx) := t(ddindx).attain_schedule_id;
154           a1(indx) := t(ddindx).name;
155           a2(indx) := t(ddindx).attribute_category;
156           a3(indx) := t(ddindx).attribute1;
157           a4(indx) := t(ddindx).attribute2;
158           a5(indx) := t(ddindx).attribute3;
159           a6(indx) := t(ddindx).attribute4;
160           a7(indx) := t(ddindx).attribute5;
161           a8(indx) := t(ddindx).attribute6;
162           a9(indx) := t(ddindx).attribute7;
163           a10(indx) := t(ddindx).attribute8;
164           a11(indx) := t(ddindx).attribute9;
165           a12(indx) := t(ddindx).attribute10;
166           a13(indx) := t(ddindx).attribute11;
167           a14(indx) := t(ddindx).attribute12;
168           a15(indx) := t(ddindx).attribute13;
169           a16(indx) := t(ddindx).attribute14;
170           a17(indx) := t(ddindx).attribute15;
171           a18(indx) := t(ddindx).object_version_number;
172           indx := indx+1;
173           if t.last =ddindx
174             then exit;
175           end if;
176           ddindx := t.next(ddindx);
177         end loop;
178       end if;
179    end if;
180   end rosetta_table_copy_out_p1;
181 
182   procedure create_attain_schedule(p_api_version  NUMBER
183     , p_init_msg_list  VARCHAR2
184     , p_commit  VARCHAR2
185     , p_validation_level  NUMBER
186     , p4_a0  NUMBER
187     , p4_a1  VARCHAR2
188     , p4_a2  VARCHAR2
189     , p4_a3  VARCHAR2
190     , p4_a4  VARCHAR2
191     , p4_a5  VARCHAR2
192     , p4_a6  VARCHAR2
193     , p4_a7  VARCHAR2
194     , p4_a8  VARCHAR2
195     , p4_a9  VARCHAR2
196     , p4_a10  VARCHAR2
197     , p4_a11  VARCHAR2
198     , p4_a12  VARCHAR2
199     , p4_a13  VARCHAR2
200     , p4_a14  VARCHAR2
201     , p4_a15  VARCHAR2
202     , p4_a16  VARCHAR2
203     , p4_a17  VARCHAR2
204     , p4_a18  NUMBER
205     , x_return_status out nocopy  VARCHAR2
206     , x_msg_count out nocopy  NUMBER
207     , x_msg_data out nocopy  VARCHAR2
208   )
209 
210   as
211     ddp_attain_schedule cn_attain_schedule_pvt.attain_schedule_rec_type;
212     ddindx binary_integer; indx binary_integer;
213   begin
214 
215     -- copy data to the local IN or IN-OUT args, if any
216 
217 
218 
219 
220     ddp_attain_schedule.attain_schedule_id := p4_a0;
221     ddp_attain_schedule.name := p4_a1;
222     ddp_attain_schedule.attribute_category := p4_a2;
223     ddp_attain_schedule.attribute1 := p4_a3;
224     ddp_attain_schedule.attribute2 := p4_a4;
225     ddp_attain_schedule.attribute3 := p4_a5;
226     ddp_attain_schedule.attribute4 := p4_a6;
227     ddp_attain_schedule.attribute5 := p4_a7;
228     ddp_attain_schedule.attribute6 := p4_a8;
229     ddp_attain_schedule.attribute7 := p4_a9;
230     ddp_attain_schedule.attribute8 := p4_a10;
231     ddp_attain_schedule.attribute9 := p4_a11;
232     ddp_attain_schedule.attribute10 := p4_a12;
233     ddp_attain_schedule.attribute11 := p4_a13;
234     ddp_attain_schedule.attribute12 := p4_a14;
235     ddp_attain_schedule.attribute13 := p4_a15;
236     ddp_attain_schedule.attribute14 := p4_a16;
237     ddp_attain_schedule.attribute15 := p4_a17;
238     ddp_attain_schedule.object_version_number := p4_a18;
239 
240 
241 
242 
243     -- here's the delegated call to the old PL/SQL routine
244     cn_attain_schedule_pvt.create_attain_schedule(p_api_version,
245       p_init_msg_list,
246       p_commit,
247       p_validation_level,
248       ddp_attain_schedule,
249       x_return_status,
250       x_msg_count,
251       x_msg_data);
252 
253     -- copy data back from the local variables to OUT or IN-OUT args, if any
254 
255 
256 
257 
258 
259 
260 
261   end;
262 
263   procedure update_attain_schedule(p_api_version  NUMBER
264     , p_init_msg_list  VARCHAR2
265     , p_commit  VARCHAR2
266     , p_validation_level  NUMBER
267     , p4_a0  NUMBER
268     , p4_a1  VARCHAR2
269     , p4_a2  VARCHAR2
270     , p4_a3  VARCHAR2
271     , p4_a4  VARCHAR2
272     , p4_a5  VARCHAR2
273     , p4_a6  VARCHAR2
274     , p4_a7  VARCHAR2
275     , p4_a8  VARCHAR2
276     , p4_a9  VARCHAR2
277     , p4_a10  VARCHAR2
278     , p4_a11  VARCHAR2
279     , p4_a12  VARCHAR2
280     , p4_a13  VARCHAR2
281     , p4_a14  VARCHAR2
282     , p4_a15  VARCHAR2
283     , p4_a16  VARCHAR2
284     , p4_a17  VARCHAR2
285     , p4_a18  NUMBER
286     , x_return_status out nocopy  VARCHAR2
287     , x_msg_count out nocopy  NUMBER
288     , x_msg_data out nocopy  VARCHAR2
289   )
290 
291   as
292     ddp_attain_schedule cn_attain_schedule_pvt.attain_schedule_rec_type;
293     ddindx binary_integer; indx binary_integer;
294   begin
295 
296     -- copy data to the local IN or IN-OUT args, if any
297 
298 
299 
300 
301     ddp_attain_schedule.attain_schedule_id := p4_a0;
302     ddp_attain_schedule.name := p4_a1;
303     ddp_attain_schedule.attribute_category := p4_a2;
304     ddp_attain_schedule.attribute1 := p4_a3;
305     ddp_attain_schedule.attribute2 := p4_a4;
306     ddp_attain_schedule.attribute3 := p4_a5;
307     ddp_attain_schedule.attribute4 := p4_a6;
308     ddp_attain_schedule.attribute5 := p4_a7;
309     ddp_attain_schedule.attribute6 := p4_a8;
310     ddp_attain_schedule.attribute7 := p4_a9;
311     ddp_attain_schedule.attribute8 := p4_a10;
312     ddp_attain_schedule.attribute9 := p4_a11;
313     ddp_attain_schedule.attribute10 := p4_a12;
314     ddp_attain_schedule.attribute11 := p4_a13;
315     ddp_attain_schedule.attribute12 := p4_a14;
316     ddp_attain_schedule.attribute13 := p4_a15;
317     ddp_attain_schedule.attribute14 := p4_a16;
318     ddp_attain_schedule.attribute15 := p4_a17;
319     ddp_attain_schedule.object_version_number := p4_a18;
320 
321 
322 
323 
324     -- here's the delegated call to the old PL/SQL routine
325     cn_attain_schedule_pvt.update_attain_schedule(p_api_version,
326       p_init_msg_list,
327       p_commit,
328       p_validation_level,
329       ddp_attain_schedule,
330       x_return_status,
331       x_msg_count,
332       x_msg_data);
333 
334     -- copy data back from the local variables to OUT or IN-OUT args, if any
335 
336 
337 
338 
339 
340 
341 
342   end;
343 
344   procedure delete_attain_schedule(p_api_version  NUMBER
345     , p_init_msg_list  VARCHAR2
346     , p_commit  VARCHAR2
347     , p_validation_level  NUMBER
348     , p4_a0  NUMBER
349     , p4_a1  VARCHAR2
350     , p4_a2  VARCHAR2
351     , p4_a3  VARCHAR2
352     , p4_a4  VARCHAR2
353     , p4_a5  VARCHAR2
354     , p4_a6  VARCHAR2
355     , p4_a7  VARCHAR2
356     , p4_a8  VARCHAR2
357     , p4_a9  VARCHAR2
358     , p4_a10  VARCHAR2
359     , p4_a11  VARCHAR2
360     , p4_a12  VARCHAR2
361     , p4_a13  VARCHAR2
362     , p4_a14  VARCHAR2
363     , p4_a15  VARCHAR2
364     , p4_a16  VARCHAR2
365     , p4_a17  VARCHAR2
366     , p4_a18  NUMBER
367     , x_return_status out nocopy  VARCHAR2
368     , x_msg_count out nocopy  NUMBER
369     , x_msg_data out nocopy  VARCHAR2
370   )
371 
372   as
373     ddp_attain_schedule cn_attain_schedule_pvt.attain_schedule_rec_type;
374     ddindx binary_integer; indx binary_integer;
375   begin
376 
377     -- copy data to the local IN or IN-OUT args, if any
378 
379 
380 
381 
382     ddp_attain_schedule.attain_schedule_id := p4_a0;
383     ddp_attain_schedule.name := p4_a1;
384     ddp_attain_schedule.attribute_category := p4_a2;
385     ddp_attain_schedule.attribute1 := p4_a3;
386     ddp_attain_schedule.attribute2 := p4_a4;
387     ddp_attain_schedule.attribute3 := p4_a5;
388     ddp_attain_schedule.attribute4 := p4_a6;
389     ddp_attain_schedule.attribute5 := p4_a7;
390     ddp_attain_schedule.attribute6 := p4_a8;
391     ddp_attain_schedule.attribute7 := p4_a9;
392     ddp_attain_schedule.attribute8 := p4_a10;
393     ddp_attain_schedule.attribute9 := p4_a11;
394     ddp_attain_schedule.attribute10 := p4_a12;
395     ddp_attain_schedule.attribute11 := p4_a13;
396     ddp_attain_schedule.attribute12 := p4_a14;
397     ddp_attain_schedule.attribute13 := p4_a15;
398     ddp_attain_schedule.attribute14 := p4_a16;
399     ddp_attain_schedule.attribute15 := p4_a17;
400     ddp_attain_schedule.object_version_number := p4_a18;
401 
402 
403 
404 
405     -- here's the delegated call to the old PL/SQL routine
406     cn_attain_schedule_pvt.delete_attain_schedule(p_api_version,
407       p_init_msg_list,
408       p_commit,
409       p_validation_level,
410       ddp_attain_schedule,
411       x_return_status,
412       x_msg_count,
413       x_msg_data);
414 
415     -- copy data back from the local variables to OUT or IN-OUT args, if any
416 
417 
418 
419 
420 
421 
422 
423   end;
424 
425   procedure get_attain_schedule(p_api_version  NUMBER
426     , p_init_msg_list  VARCHAR2
427     , p_commit  VARCHAR2
428     , p_validation_level  NUMBER
429     , p4_a0 out nocopy JTF_NUMBER_TABLE
430     , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
431     , p4_a2 out nocopy JTF_VARCHAR2_TABLE_100
432     , p4_a3 out nocopy JTF_VARCHAR2_TABLE_200
433     , p4_a4 out nocopy JTF_VARCHAR2_TABLE_200
434     , p4_a5 out nocopy JTF_VARCHAR2_TABLE_200
435     , p4_a6 out nocopy JTF_VARCHAR2_TABLE_200
436     , p4_a7 out nocopy JTF_VARCHAR2_TABLE_200
437     , p4_a8 out nocopy JTF_VARCHAR2_TABLE_200
438     , p4_a9 out nocopy JTF_VARCHAR2_TABLE_200
439     , p4_a10 out nocopy JTF_VARCHAR2_TABLE_200
440     , p4_a11 out nocopy JTF_VARCHAR2_TABLE_200
441     , p4_a12 out nocopy JTF_VARCHAR2_TABLE_200
442     , p4_a13 out nocopy JTF_VARCHAR2_TABLE_200
443     , p4_a14 out nocopy JTF_VARCHAR2_TABLE_200
444     , p4_a15 out nocopy JTF_VARCHAR2_TABLE_200
445     , p4_a16 out nocopy JTF_VARCHAR2_TABLE_200
446     , p4_a17 out nocopy JTF_VARCHAR2_TABLE_200
447     , p4_a18 out nocopy JTF_NUMBER_TABLE
448     , x_return_status out nocopy  VARCHAR2
449     , x_msg_count out nocopy  NUMBER
450     , x_msg_data out nocopy  VARCHAR2
451   )
452 
453   as
454     ddx_attain_schedule cn_attain_schedule_pvt.attain_schedule_tbl_type;
455     ddindx binary_integer; indx binary_integer;
456   begin
457 
458     -- copy data to the local IN or IN-OUT args, if any
459 
460 
461 
462 
463 
464 
465 
466 
467     -- here's the delegated call to the old PL/SQL routine
468     cn_attain_schedule_pvt.get_attain_schedule(p_api_version,
469       p_init_msg_list,
470       p_commit,
471       p_validation_level,
472       ddx_attain_schedule,
473       x_return_status,
474       x_msg_count,
475       x_msg_data);
476 
477     -- copy data back from the local variables to OUT or IN-OUT args, if any
478 
479 
480 
481 
482     cn_attain_schedule_pvt_w.rosetta_table_copy_out_p1(ddx_attain_schedule, p4_a0
483       , p4_a1
484       , p4_a2
485       , p4_a3
486       , p4_a4
487       , p4_a5
488       , p4_a6
489       , p4_a7
490       , p4_a8
491       , p4_a9
492       , p4_a10
493       , p4_a11
494       , p4_a12
495       , p4_a13
496       , p4_a14
497       , p4_a15
498       , p4_a16
499       , p4_a17
500       , p4_a18
501       );
502 
503 
504 
505   end;
506 
507 end cn_attain_schedule_pvt_w;