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

Source


1 package body ahl_warranty_entl_pvt_w as
2   /* $Header: AHLWENTB.pls 120.0.12020000.2 2012/12/13 05:26:56 shnatu ship $ */
3   procedure rosetta_table_copy_in_p19(t out nocopy ahl_warranty_entl_pvt.warranty_entl_tbl_type, a0 JTF_NUMBER_TABLE
4     , a1 JTF_VARCHAR2_TABLE_100
5     , a2 JTF_NUMBER_TABLE
6     , a3 JTF_DATE_TABLE
7     , a4 JTF_NUMBER_TABLE
8     , a5 JTF_DATE_TABLE
9     , a6 JTF_NUMBER_TABLE
10     , a7 JTF_NUMBER_TABLE
11     , a8 JTF_NUMBER_TABLE
12     , a9 JTF_NUMBER_TABLE
13     , a10 JTF_VARCHAR2_TABLE_100
14     , a11 JTF_NUMBER_TABLE
15     , a12 JTF_NUMBER_TABLE
16     , a13 JTF_NUMBER_TABLE
17     , a14 JTF_NUMBER_TABLE
18     , a15 JTF_NUMBER_TABLE
19     , a16 JTF_NUMBER_TABLE
20     , a17 JTF_VARCHAR2_TABLE_100
21     , a18 JTF_VARCHAR2_TABLE_100
22     , a19 JTF_NUMBER_TABLE
23     , a20 JTF_VARCHAR2_TABLE_100
24     , a21 JTF_VARCHAR2_TABLE_200
25     , a22 JTF_VARCHAR2_TABLE_200
26     , a23 JTF_VARCHAR2_TABLE_200
27     , a24 JTF_VARCHAR2_TABLE_200
28     , a25 JTF_VARCHAR2_TABLE_200
29     , a26 JTF_VARCHAR2_TABLE_200
30     , a27 JTF_VARCHAR2_TABLE_200
31     , a28 JTF_VARCHAR2_TABLE_200
32     , a29 JTF_VARCHAR2_TABLE_200
33     , a30 JTF_VARCHAR2_TABLE_200
34     , a31 JTF_VARCHAR2_TABLE_200
35     , a32 JTF_VARCHAR2_TABLE_200
36     , a33 JTF_VARCHAR2_TABLE_200
37     , a34 JTF_VARCHAR2_TABLE_200
38     , a35 JTF_VARCHAR2_TABLE_200
39     ) as
40     ddindx binary_integer; indx binary_integer;
41   begin
42   if a0 is not null and a0.count > 0 then
43       if a0.count > 0 then
44         indx := a0.first;
45         ddindx := 1;
46         while true loop
47           t(ddindx).warranty_entitlement_id := a0(indx);
48           t(ddindx).operation_flag := a1(indx);
49           t(ddindx).object_version_number := a2(indx);
50           t(ddindx).last_update_date := a3(indx);
51           t(ddindx).last_updated_by := a4(indx);
52           t(ddindx).creation_date := a5(indx);
53           t(ddindx).created_by := a6(indx);
54           t(ddindx).last_update_login := a7(indx);
55           t(ddindx).security_group_id := a8(indx);
56           t(ddindx).warranty_contract_id := a9(indx);
57           t(ddindx).entitlement_status_code := a10(indx);
58           t(ddindx).warranty_claim_id := a11(indx);
59           t(ddindx).po_header_id := a12(indx);
60           t(ddindx).sr_incident_id := a13(indx);
61           t(ddindx).visit_task_id := a14(indx);
62           t(ddindx).workorder_id := a15(indx);
63           t(ddindx).osp_order_line_id := a16(indx);
64           t(ddindx).warranty_labour_capture := a17(indx);
65           t(ddindx).warranty_mtl_capture := a18(indx);
66           t(ddindx).order_claim_amount := a19(indx);
67           t(ddindx).attribute_category := a20(indx);
68           t(ddindx).attribute1 := a21(indx);
69           t(ddindx).attribute2 := a22(indx);
70           t(ddindx).attribute3 := a23(indx);
71           t(ddindx).attribute4 := a24(indx);
72           t(ddindx).attribute5 := a25(indx);
73           t(ddindx).attribute6 := a26(indx);
74           t(ddindx).attribute7 := a27(indx);
75           t(ddindx).attribute8 := a28(indx);
76           t(ddindx).attribute9 := a29(indx);
77           t(ddindx).attribute10 := a30(indx);
78           t(ddindx).attribute11 := a31(indx);
79           t(ddindx).attribute12 := a32(indx);
80           t(ddindx).attribute13 := a33(indx);
81           t(ddindx).attribute14 := a34(indx);
82           t(ddindx).attribute15 := a35(indx);
83           ddindx := ddindx+1;
84           if a0.last =indx
85             then exit;
86           end if;
87           indx := a0.next(indx);
88         end loop;
89       end if;
90    end if;
91   end rosetta_table_copy_in_p19;
92   procedure rosetta_table_copy_out_p19(t ahl_warranty_entl_pvt.warranty_entl_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
93     , a1 out nocopy JTF_VARCHAR2_TABLE_100
94     , a2 out nocopy JTF_NUMBER_TABLE
95     , a3 out nocopy JTF_DATE_TABLE
96     , a4 out nocopy JTF_NUMBER_TABLE
97     , a5 out nocopy JTF_DATE_TABLE
98     , a6 out nocopy JTF_NUMBER_TABLE
99     , a7 out nocopy JTF_NUMBER_TABLE
100     , a8 out nocopy JTF_NUMBER_TABLE
101     , a9 out nocopy JTF_NUMBER_TABLE
102     , a10 out nocopy JTF_VARCHAR2_TABLE_100
103     , a11 out nocopy JTF_NUMBER_TABLE
104     , a12 out nocopy JTF_NUMBER_TABLE
105     , a13 out nocopy JTF_NUMBER_TABLE
106     , a14 out nocopy JTF_NUMBER_TABLE
107     , a15 out nocopy JTF_NUMBER_TABLE
108     , a16 out nocopy JTF_NUMBER_TABLE
109     , a17 out nocopy JTF_VARCHAR2_TABLE_100
110     , a18 out nocopy JTF_VARCHAR2_TABLE_100
111     , a19 out nocopy JTF_NUMBER_TABLE
112     , a20 out nocopy JTF_VARCHAR2_TABLE_100
113     , a21 out nocopy JTF_VARCHAR2_TABLE_200
114     , a22 out nocopy JTF_VARCHAR2_TABLE_200
115     , a23 out nocopy JTF_VARCHAR2_TABLE_200
116     , a24 out nocopy JTF_VARCHAR2_TABLE_200
117     , a25 out nocopy JTF_VARCHAR2_TABLE_200
118     , a26 out nocopy JTF_VARCHAR2_TABLE_200
119     , a27 out nocopy JTF_VARCHAR2_TABLE_200
120     , a28 out nocopy JTF_VARCHAR2_TABLE_200
121     , a29 out nocopy JTF_VARCHAR2_TABLE_200
122     , a30 out nocopy JTF_VARCHAR2_TABLE_200
123     , a31 out nocopy JTF_VARCHAR2_TABLE_200
124     , a32 out nocopy JTF_VARCHAR2_TABLE_200
125     , a33 out nocopy JTF_VARCHAR2_TABLE_200
126     , a34 out nocopy JTF_VARCHAR2_TABLE_200
127     , a35 out nocopy JTF_VARCHAR2_TABLE_200
128     ) as
129     ddindx binary_integer; indx binary_integer;
130   begin
131   if t is null or t.count = 0 then
132     a0 := JTF_NUMBER_TABLE();
133     a1 := JTF_VARCHAR2_TABLE_100();
134     a2 := JTF_NUMBER_TABLE();
135     a3 := JTF_DATE_TABLE();
136     a4 := JTF_NUMBER_TABLE();
137     a5 := JTF_DATE_TABLE();
138     a6 := JTF_NUMBER_TABLE();
139     a7 := JTF_NUMBER_TABLE();
140     a8 := JTF_NUMBER_TABLE();
141     a9 := JTF_NUMBER_TABLE();
142     a10 := JTF_VARCHAR2_TABLE_100();
143     a11 := JTF_NUMBER_TABLE();
144     a12 := JTF_NUMBER_TABLE();
145     a13 := JTF_NUMBER_TABLE();
146     a14 := JTF_NUMBER_TABLE();
147     a15 := JTF_NUMBER_TABLE();
148     a16 := JTF_NUMBER_TABLE();
149     a17 := JTF_VARCHAR2_TABLE_100();
150     a18 := JTF_VARCHAR2_TABLE_100();
151     a19 := JTF_NUMBER_TABLE();
152     a20 := JTF_VARCHAR2_TABLE_100();
153     a21 := JTF_VARCHAR2_TABLE_200();
154     a22 := JTF_VARCHAR2_TABLE_200();
155     a23 := JTF_VARCHAR2_TABLE_200();
156     a24 := JTF_VARCHAR2_TABLE_200();
157     a25 := JTF_VARCHAR2_TABLE_200();
158     a26 := JTF_VARCHAR2_TABLE_200();
159     a27 := JTF_VARCHAR2_TABLE_200();
160     a28 := JTF_VARCHAR2_TABLE_200();
161     a29 := JTF_VARCHAR2_TABLE_200();
162     a30 := JTF_VARCHAR2_TABLE_200();
163     a31 := JTF_VARCHAR2_TABLE_200();
164     a32 := JTF_VARCHAR2_TABLE_200();
165     a33 := JTF_VARCHAR2_TABLE_200();
166     a34 := JTF_VARCHAR2_TABLE_200();
167     a35 := JTF_VARCHAR2_TABLE_200();
168   else
169       a0 := JTF_NUMBER_TABLE();
170       a1 := JTF_VARCHAR2_TABLE_100();
171       a2 := JTF_NUMBER_TABLE();
172       a3 := JTF_DATE_TABLE();
173       a4 := JTF_NUMBER_TABLE();
174       a5 := JTF_DATE_TABLE();
175       a6 := JTF_NUMBER_TABLE();
176       a7 := JTF_NUMBER_TABLE();
177       a8 := JTF_NUMBER_TABLE();
178       a9 := JTF_NUMBER_TABLE();
179       a10 := JTF_VARCHAR2_TABLE_100();
180       a11 := JTF_NUMBER_TABLE();
181       a12 := JTF_NUMBER_TABLE();
182       a13 := JTF_NUMBER_TABLE();
183       a14 := JTF_NUMBER_TABLE();
184       a15 := JTF_NUMBER_TABLE();
185       a16 := JTF_NUMBER_TABLE();
186       a17 := JTF_VARCHAR2_TABLE_100();
187       a18 := JTF_VARCHAR2_TABLE_100();
188       a19 := JTF_NUMBER_TABLE();
189       a20 := JTF_VARCHAR2_TABLE_100();
190       a21 := JTF_VARCHAR2_TABLE_200();
191       a22 := JTF_VARCHAR2_TABLE_200();
192       a23 := JTF_VARCHAR2_TABLE_200();
193       a24 := JTF_VARCHAR2_TABLE_200();
194       a25 := JTF_VARCHAR2_TABLE_200();
195       a26 := JTF_VARCHAR2_TABLE_200();
196       a27 := JTF_VARCHAR2_TABLE_200();
197       a28 := JTF_VARCHAR2_TABLE_200();
198       a29 := JTF_VARCHAR2_TABLE_200();
199       a30 := JTF_VARCHAR2_TABLE_200();
200       a31 := JTF_VARCHAR2_TABLE_200();
201       a32 := JTF_VARCHAR2_TABLE_200();
202       a33 := JTF_VARCHAR2_TABLE_200();
203       a34 := JTF_VARCHAR2_TABLE_200();
204       a35 := JTF_VARCHAR2_TABLE_200();
205       if t.count > 0 then
206         a0.extend(t.count);
207         a1.extend(t.count);
208         a2.extend(t.count);
209         a3.extend(t.count);
210         a4.extend(t.count);
211         a5.extend(t.count);
212         a6.extend(t.count);
213         a7.extend(t.count);
214         a8.extend(t.count);
215         a9.extend(t.count);
216         a10.extend(t.count);
217         a11.extend(t.count);
218         a12.extend(t.count);
219         a13.extend(t.count);
220         a14.extend(t.count);
221         a15.extend(t.count);
222         a16.extend(t.count);
223         a17.extend(t.count);
224         a18.extend(t.count);
225         a19.extend(t.count);
226         a20.extend(t.count);
227         a21.extend(t.count);
228         a22.extend(t.count);
229         a23.extend(t.count);
230         a24.extend(t.count);
231         a25.extend(t.count);
232         a26.extend(t.count);
233         a27.extend(t.count);
234         a28.extend(t.count);
235         a29.extend(t.count);
236         a30.extend(t.count);
237         a31.extend(t.count);
238         a32.extend(t.count);
239         a33.extend(t.count);
240         a34.extend(t.count);
241         a35.extend(t.count);
242         ddindx := t.first;
243         indx := 1;
244         while true loop
245           a0(indx) := t(ddindx).warranty_entitlement_id;
246           a1(indx) := t(ddindx).operation_flag;
247           a2(indx) := t(ddindx).object_version_number;
248           a3(indx) := t(ddindx).last_update_date;
249           a4(indx) := t(ddindx).last_updated_by;
250           a5(indx) := t(ddindx).creation_date;
251           a6(indx) := t(ddindx).created_by;
252           a7(indx) := t(ddindx).last_update_login;
253           a8(indx) := t(ddindx).security_group_id;
254           a9(indx) := t(ddindx).warranty_contract_id;
255           a10(indx) := t(ddindx).entitlement_status_code;
256           a11(indx) := t(ddindx).warranty_claim_id;
257           a12(indx) := t(ddindx).po_header_id;
258           a13(indx) := t(ddindx).sr_incident_id;
259           a14(indx) := t(ddindx).visit_task_id;
260           a15(indx) := t(ddindx).workorder_id;
261           a16(indx) := t(ddindx).osp_order_line_id;
262           a17(indx) := t(ddindx).warranty_labour_capture;
263           a18(indx) := t(ddindx).warranty_mtl_capture;
264           a19(indx) := t(ddindx).order_claim_amount;
265           a20(indx) := t(ddindx).attribute_category;
266           a21(indx) := t(ddindx).attribute1;
267           a22(indx) := t(ddindx).attribute2;
268           a23(indx) := t(ddindx).attribute3;
269           a24(indx) := t(ddindx).attribute4;
270           a25(indx) := t(ddindx).attribute5;
271           a26(indx) := t(ddindx).attribute6;
272           a27(indx) := t(ddindx).attribute7;
273           a28(indx) := t(ddindx).attribute8;
274           a29(indx) := t(ddindx).attribute9;
275           a30(indx) := t(ddindx).attribute10;
276           a31(indx) := t(ddindx).attribute11;
277           a32(indx) := t(ddindx).attribute12;
278           a33(indx) := t(ddindx).attribute13;
279           a34(indx) := t(ddindx).attribute14;
280           a35(indx) := t(ddindx).attribute15;
281           indx := indx+1;
282           if t.last =ddindx
283             then exit;
284           end if;
285           ddindx := t.next(ddindx);
286         end loop;
287       end if;
288    end if;
289   end rosetta_table_copy_out_p19;
290 
291   procedure process_warranty_entitlements(p_api_version  NUMBER
292     , p_init_msg_list  VARCHAR2
293     , p_commit  VARCHAR2
294     , p_validation_level  NUMBER
295     , p_module_type  VARCHAR2
296     , p_user_role  VARCHAR2
297     , p_appr_action  VARCHAR2
298     , p7_a0 in out nocopy JTF_NUMBER_TABLE
299     , p7_a1 in out nocopy JTF_VARCHAR2_TABLE_100
300     , p7_a2 in out nocopy JTF_NUMBER_TABLE
301     , p7_a3 in out nocopy JTF_DATE_TABLE
302     , p7_a4 in out nocopy JTF_NUMBER_TABLE
303     , p7_a5 in out nocopy JTF_DATE_TABLE
304     , p7_a6 in out nocopy JTF_NUMBER_TABLE
305     , p7_a7 in out nocopy JTF_NUMBER_TABLE
306     , p7_a8 in out nocopy JTF_NUMBER_TABLE
307     , p7_a9 in out nocopy JTF_NUMBER_TABLE
308     , p7_a10 in out nocopy JTF_VARCHAR2_TABLE_100
309     , p7_a11 in out nocopy JTF_NUMBER_TABLE
310     , p7_a12 in out nocopy JTF_NUMBER_TABLE
311     , p7_a13 in out nocopy JTF_NUMBER_TABLE
312     , p7_a14 in out nocopy JTF_NUMBER_TABLE
313     , p7_a15 in out nocopy JTF_NUMBER_TABLE
314     , p7_a16 in out nocopy JTF_NUMBER_TABLE
315     , p7_a17 in out nocopy JTF_VARCHAR2_TABLE_100
316     , p7_a18 in out nocopy JTF_VARCHAR2_TABLE_100
317     , p7_a19 in out nocopy JTF_NUMBER_TABLE
318     , p7_a20 in out nocopy JTF_VARCHAR2_TABLE_100
319     , p7_a21 in out nocopy JTF_VARCHAR2_TABLE_200
320     , p7_a22 in out nocopy JTF_VARCHAR2_TABLE_200
321     , p7_a23 in out nocopy JTF_VARCHAR2_TABLE_200
322     , p7_a24 in out nocopy JTF_VARCHAR2_TABLE_200
323     , p7_a25 in out nocopy JTF_VARCHAR2_TABLE_200
324     , p7_a26 in out nocopy JTF_VARCHAR2_TABLE_200
325     , p7_a27 in out nocopy JTF_VARCHAR2_TABLE_200
326     , p7_a28 in out nocopy JTF_VARCHAR2_TABLE_200
327     , p7_a29 in out nocopy JTF_VARCHAR2_TABLE_200
328     , p7_a30 in out nocopy JTF_VARCHAR2_TABLE_200
329     , p7_a31 in out nocopy JTF_VARCHAR2_TABLE_200
330     , p7_a32 in out nocopy JTF_VARCHAR2_TABLE_200
331     , p7_a33 in out nocopy JTF_VARCHAR2_TABLE_200
332     , p7_a34 in out nocopy JTF_VARCHAR2_TABLE_200
333     , p7_a35 in out nocopy JTF_VARCHAR2_TABLE_200
334     , x_return_status out nocopy  VARCHAR2
335     , x_msg_count out nocopy  NUMBER
336     , x_msg_data out nocopy  VARCHAR2
337   )
338 
339   as
340     ddp_x_warranty_entl_tbl ahl_warranty_entl_pvt.warranty_entl_tbl_type;
341     ddindx binary_integer; indx binary_integer;
342   begin
343 
344     -- copy data to the local IN or IN-OUT args, if any
345 
346 
347 
348 
349 
350 
351 
352     ahl_warranty_entl_pvt_w.rosetta_table_copy_in_p19(ddp_x_warranty_entl_tbl, p7_a0
353       , p7_a1
354       , p7_a2
355       , p7_a3
356       , p7_a4
357       , p7_a5
358       , p7_a6
359       , p7_a7
360       , p7_a8
361       , p7_a9
362       , p7_a10
363       , p7_a11
364       , p7_a12
365       , p7_a13
366       , p7_a14
367       , p7_a15
368       , p7_a16
369       , p7_a17
370       , p7_a18
371       , p7_a19
372       , p7_a20
373       , p7_a21
374       , p7_a22
375       , p7_a23
376       , p7_a24
377       , p7_a25
378       , p7_a26
379       , p7_a27
380       , p7_a28
381       , p7_a29
382       , p7_a30
383       , p7_a31
384       , p7_a32
385       , p7_a33
386       , p7_a34
387       , p7_a35
388       );
389 
390 
391 
392 
393     -- here's the delegated call to the old PL/SQL routine
394     ahl_warranty_entl_pvt.process_warranty_entitlements(p_api_version,
395       p_init_msg_list,
396       p_commit,
397       p_validation_level,
398       p_module_type,
399       p_user_role,
400       p_appr_action,
401       ddp_x_warranty_entl_tbl,
402       x_return_status,
403       x_msg_count,
404       x_msg_data);
405 
406     -- copy data back from the local variables to OUT or IN-OUT args, if any
407 
408 
409 
410 
411 
412 
413 
414     ahl_warranty_entl_pvt_w.rosetta_table_copy_out_p19(ddp_x_warranty_entl_tbl, p7_a0
415       , p7_a1
416       , p7_a2
417       , p7_a3
418       , p7_a4
419       , p7_a5
420       , p7_a6
421       , p7_a7
422       , p7_a8
423       , p7_a9
424       , p7_a10
425       , p7_a11
426       , p7_a12
427       , p7_a13
428       , p7_a14
429       , p7_a15
430       , p7_a16
431       , p7_a17
432       , p7_a18
433       , p7_a19
434       , p7_a20
435       , p7_a21
436       , p7_a22
437       , p7_a23
438       , p7_a24
439       , p7_a25
440       , p7_a26
441       , p7_a27
442       , p7_a28
443       , p7_a29
444       , p7_a30
445       , p7_a31
446       , p7_a32
447       , p7_a33
448       , p7_a34
449       , p7_a35
450       );
451 
452 
453 
454   end;
455 
456 end ahl_warranty_entl_pvt_w;