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_FMP_MR_ROUTE_PVT_W

Source


1 package body ahl_fmp_mr_route_pvt_w as
2   /* $Header: AHLWMRUB.pls 120.0.12020000.2 2012/12/13 06:17:20 shnatu 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   rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6   rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7 
8   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9   function rosetta_g_miss_date_in_map(d date) return date as
10   begin
11     if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12     if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13     return d;
14   end;
15 
16   procedure rosetta_table_copy_in_p1(t out nocopy ahl_fmp_mr_route_pvt.mr_route_tbl, a0 JTF_NUMBER_TABLE
17     , a1 JTF_NUMBER_TABLE
18     , a2 JTF_NUMBER_TABLE
19     , a3 JTF_VARCHAR2_TABLE_100
20     , a4 JTF_NUMBER_TABLE
21     , a5 JTF_NUMBER_TABLE
22     , a6 JTF_VARCHAR2_TABLE_100
23     , a7 JTF_NUMBER_TABLE
24     , a8 JTF_VARCHAR2_TABLE_2000
25     , a9 JTF_VARCHAR2_TABLE_100
26     , a10 JTF_VARCHAR2_TABLE_100
27     , a11 JTF_NUMBER_TABLE
28     , a12 JTF_VARCHAR2_TABLE_100
29     , a13 JTF_VARCHAR2_TABLE_100
30     , a14 JTF_VARCHAR2_TABLE_100
31     , a15 JTF_VARCHAR2_TABLE_200
32     , a16 JTF_VARCHAR2_TABLE_200
33     , a17 JTF_VARCHAR2_TABLE_200
34     , a18 JTF_VARCHAR2_TABLE_200
35     , a19 JTF_VARCHAR2_TABLE_200
36     , a20 JTF_VARCHAR2_TABLE_200
37     , a21 JTF_VARCHAR2_TABLE_200
38     , a22 JTF_VARCHAR2_TABLE_200
39     , a23 JTF_VARCHAR2_TABLE_200
40     , a24 JTF_VARCHAR2_TABLE_200
41     , a25 JTF_VARCHAR2_TABLE_200
42     , a26 JTF_VARCHAR2_TABLE_200
43     , a27 JTF_VARCHAR2_TABLE_200
44     , a28 JTF_VARCHAR2_TABLE_200
45     , a29 JTF_VARCHAR2_TABLE_200
46     , a30 JTF_DATE_TABLE
47     , a31 JTF_NUMBER_TABLE
48     , a32 JTF_DATE_TABLE
49     , a33 JTF_NUMBER_TABLE
50     , a34 JTF_NUMBER_TABLE
51     , a35 JTF_VARCHAR2_TABLE_100
52     ) as
53     ddindx binary_integer; indx binary_integer;
54   begin
55   if a0 is not null and a0.count > 0 then
56       if a0.count > 0 then
57         indx := a0.first;
58         ddindx := 1;
59         while true loop
60           t(ddindx).mr_route_id := a0(indx);
61           t(ddindx).object_version_number := a1(indx);
62           t(ddindx).mr_header_id := a2(indx);
63           t(ddindx).mr_title := a3(indx);
64           t(ddindx).mr_version_number := a4(indx);
65           t(ddindx).route_id := a5(indx);
66           t(ddindx).route_number := a6(indx);
67           t(ddindx).route_revision_number := a7(indx);
68           t(ddindx).route_description := a8(indx);
69           t(ddindx).product_type := a9(indx);
70           t(ddindx).operator := a10(indx);
71           t(ddindx).stage := a11(indx);
72           t(ddindx).stage_type_code := a12(indx);
73           t(ddindx).stage_type_meaning := a13(indx);
74           t(ddindx).attribute_category := a14(indx);
75           t(ddindx).attribute1 := a15(indx);
76           t(ddindx).attribute2 := a16(indx);
77           t(ddindx).attribute3 := a17(indx);
78           t(ddindx).attribute4 := a18(indx);
79           t(ddindx).attribute5 := a19(indx);
80           t(ddindx).attribute6 := a20(indx);
81           t(ddindx).attribute7 := a21(indx);
82           t(ddindx).attribute8 := a22(indx);
83           t(ddindx).attribute9 := a23(indx);
84           t(ddindx).attribute10 := a24(indx);
85           t(ddindx).attribute11 := a25(indx);
86           t(ddindx).attribute12 := a26(indx);
87           t(ddindx).attribute13 := a27(indx);
88           t(ddindx).attribute14 := a28(indx);
89           t(ddindx).attribute15 := a29(indx);
90           t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a30(indx));
91           t(ddindx).last_updated_by := a31(indx);
92           t(ddindx).creation_date := rosetta_g_miss_date_in_map(a32(indx));
93           t(ddindx).created_by := a33(indx);
94           t(ddindx).last_update_login := a34(indx);
95           t(ddindx).dml_operation := a35(indx);
96           ddindx := ddindx+1;
97           if a0.last =indx
98             then exit;
99           end if;
100           indx := a0.next(indx);
101         end loop;
102       end if;
103    end if;
104   end rosetta_table_copy_in_p1;
105   procedure rosetta_table_copy_out_p1(t ahl_fmp_mr_route_pvt.mr_route_tbl, a0 out nocopy JTF_NUMBER_TABLE
106     , a1 out nocopy JTF_NUMBER_TABLE
107     , a2 out nocopy JTF_NUMBER_TABLE
108     , a3 out nocopy JTF_VARCHAR2_TABLE_100
109     , a4 out nocopy JTF_NUMBER_TABLE
110     , a5 out nocopy JTF_NUMBER_TABLE
111     , a6 out nocopy JTF_VARCHAR2_TABLE_100
112     , a7 out nocopy JTF_NUMBER_TABLE
113     , a8 out nocopy JTF_VARCHAR2_TABLE_2000
114     , a9 out nocopy JTF_VARCHAR2_TABLE_100
115     , a10 out nocopy JTF_VARCHAR2_TABLE_100
116     , a11 out nocopy JTF_NUMBER_TABLE
117     , a12 out nocopy JTF_VARCHAR2_TABLE_100
118     , a13 out nocopy JTF_VARCHAR2_TABLE_100
119     , a14 out nocopy JTF_VARCHAR2_TABLE_100
120     , a15 out nocopy JTF_VARCHAR2_TABLE_200
121     , a16 out nocopy JTF_VARCHAR2_TABLE_200
122     , a17 out nocopy JTF_VARCHAR2_TABLE_200
123     , a18 out nocopy JTF_VARCHAR2_TABLE_200
124     , a19 out nocopy JTF_VARCHAR2_TABLE_200
125     , a20 out nocopy JTF_VARCHAR2_TABLE_200
126     , a21 out nocopy JTF_VARCHAR2_TABLE_200
127     , a22 out nocopy JTF_VARCHAR2_TABLE_200
128     , a23 out nocopy JTF_VARCHAR2_TABLE_200
129     , a24 out nocopy JTF_VARCHAR2_TABLE_200
130     , a25 out nocopy JTF_VARCHAR2_TABLE_200
131     , a26 out nocopy JTF_VARCHAR2_TABLE_200
132     , a27 out nocopy JTF_VARCHAR2_TABLE_200
133     , a28 out nocopy JTF_VARCHAR2_TABLE_200
134     , a29 out nocopy JTF_VARCHAR2_TABLE_200
135     , a30 out nocopy JTF_DATE_TABLE
136     , a31 out nocopy JTF_NUMBER_TABLE
137     , a32 out nocopy JTF_DATE_TABLE
138     , a33 out nocopy JTF_NUMBER_TABLE
139     , a34 out nocopy JTF_NUMBER_TABLE
140     , a35 out nocopy JTF_VARCHAR2_TABLE_100
141     ) as
142     ddindx binary_integer; indx binary_integer;
143   begin
144   if t is null or t.count = 0 then
145     a0 := JTF_NUMBER_TABLE();
146     a1 := JTF_NUMBER_TABLE();
147     a2 := JTF_NUMBER_TABLE();
148     a3 := JTF_VARCHAR2_TABLE_100();
149     a4 := JTF_NUMBER_TABLE();
150     a5 := JTF_NUMBER_TABLE();
151     a6 := JTF_VARCHAR2_TABLE_100();
152     a7 := JTF_NUMBER_TABLE();
153     a8 := JTF_VARCHAR2_TABLE_2000();
154     a9 := JTF_VARCHAR2_TABLE_100();
155     a10 := JTF_VARCHAR2_TABLE_100();
156     a11 := JTF_NUMBER_TABLE();
157     a12 := JTF_VARCHAR2_TABLE_100();
158     a13 := JTF_VARCHAR2_TABLE_100();
159     a14 := JTF_VARCHAR2_TABLE_100();
160     a15 := JTF_VARCHAR2_TABLE_200();
161     a16 := JTF_VARCHAR2_TABLE_200();
162     a17 := JTF_VARCHAR2_TABLE_200();
163     a18 := JTF_VARCHAR2_TABLE_200();
164     a19 := JTF_VARCHAR2_TABLE_200();
165     a20 := JTF_VARCHAR2_TABLE_200();
166     a21 := JTF_VARCHAR2_TABLE_200();
167     a22 := JTF_VARCHAR2_TABLE_200();
168     a23 := JTF_VARCHAR2_TABLE_200();
169     a24 := JTF_VARCHAR2_TABLE_200();
170     a25 := JTF_VARCHAR2_TABLE_200();
171     a26 := JTF_VARCHAR2_TABLE_200();
172     a27 := JTF_VARCHAR2_TABLE_200();
173     a28 := JTF_VARCHAR2_TABLE_200();
174     a29 := JTF_VARCHAR2_TABLE_200();
175     a30 := JTF_DATE_TABLE();
176     a31 := JTF_NUMBER_TABLE();
177     a32 := JTF_DATE_TABLE();
178     a33 := JTF_NUMBER_TABLE();
179     a34 := JTF_NUMBER_TABLE();
180     a35 := JTF_VARCHAR2_TABLE_100();
181   else
182       a0 := JTF_NUMBER_TABLE();
183       a1 := JTF_NUMBER_TABLE();
184       a2 := JTF_NUMBER_TABLE();
185       a3 := JTF_VARCHAR2_TABLE_100();
186       a4 := JTF_NUMBER_TABLE();
187       a5 := JTF_NUMBER_TABLE();
188       a6 := JTF_VARCHAR2_TABLE_100();
189       a7 := JTF_NUMBER_TABLE();
190       a8 := JTF_VARCHAR2_TABLE_2000();
191       a9 := JTF_VARCHAR2_TABLE_100();
192       a10 := JTF_VARCHAR2_TABLE_100();
193       a11 := JTF_NUMBER_TABLE();
194       a12 := JTF_VARCHAR2_TABLE_100();
195       a13 := JTF_VARCHAR2_TABLE_100();
196       a14 := JTF_VARCHAR2_TABLE_100();
197       a15 := JTF_VARCHAR2_TABLE_200();
198       a16 := JTF_VARCHAR2_TABLE_200();
199       a17 := JTF_VARCHAR2_TABLE_200();
200       a18 := JTF_VARCHAR2_TABLE_200();
201       a19 := JTF_VARCHAR2_TABLE_200();
202       a20 := JTF_VARCHAR2_TABLE_200();
203       a21 := JTF_VARCHAR2_TABLE_200();
204       a22 := JTF_VARCHAR2_TABLE_200();
205       a23 := JTF_VARCHAR2_TABLE_200();
206       a24 := JTF_VARCHAR2_TABLE_200();
207       a25 := JTF_VARCHAR2_TABLE_200();
208       a26 := JTF_VARCHAR2_TABLE_200();
209       a27 := JTF_VARCHAR2_TABLE_200();
210       a28 := JTF_VARCHAR2_TABLE_200();
211       a29 := JTF_VARCHAR2_TABLE_200();
212       a30 := JTF_DATE_TABLE();
213       a31 := JTF_NUMBER_TABLE();
214       a32 := JTF_DATE_TABLE();
215       a33 := JTF_NUMBER_TABLE();
216       a34 := JTF_NUMBER_TABLE();
217       a35 := JTF_VARCHAR2_TABLE_100();
218       if t.count > 0 then
219         a0.extend(t.count);
220         a1.extend(t.count);
221         a2.extend(t.count);
222         a3.extend(t.count);
223         a4.extend(t.count);
224         a5.extend(t.count);
225         a6.extend(t.count);
226         a7.extend(t.count);
227         a8.extend(t.count);
228         a9.extend(t.count);
229         a10.extend(t.count);
230         a11.extend(t.count);
231         a12.extend(t.count);
232         a13.extend(t.count);
233         a14.extend(t.count);
234         a15.extend(t.count);
235         a16.extend(t.count);
236         a17.extend(t.count);
237         a18.extend(t.count);
238         a19.extend(t.count);
239         a20.extend(t.count);
240         a21.extend(t.count);
241         a22.extend(t.count);
242         a23.extend(t.count);
243         a24.extend(t.count);
244         a25.extend(t.count);
245         a26.extend(t.count);
246         a27.extend(t.count);
247         a28.extend(t.count);
248         a29.extend(t.count);
249         a30.extend(t.count);
250         a31.extend(t.count);
251         a32.extend(t.count);
252         a33.extend(t.count);
253         a34.extend(t.count);
254         a35.extend(t.count);
255         ddindx := t.first;
256         indx := 1;
257         while true loop
258           a0(indx) := t(ddindx).mr_route_id;
259           a1(indx) := t(ddindx).object_version_number;
260           a2(indx) := t(ddindx).mr_header_id;
261           a3(indx) := t(ddindx).mr_title;
262           a4(indx) := t(ddindx).mr_version_number;
263           a5(indx) := t(ddindx).route_id;
264           a6(indx) := t(ddindx).route_number;
265           a7(indx) := t(ddindx).route_revision_number;
266           a8(indx) := t(ddindx).route_description;
267           a9(indx) := t(ddindx).product_type;
268           a10(indx) := t(ddindx).operator;
269           a11(indx) := t(ddindx).stage;
270           a12(indx) := t(ddindx).stage_type_code;
271           a13(indx) := t(ddindx).stage_type_meaning;
272           a14(indx) := t(ddindx).attribute_category;
273           a15(indx) := t(ddindx).attribute1;
274           a16(indx) := t(ddindx).attribute2;
275           a17(indx) := t(ddindx).attribute3;
276           a18(indx) := t(ddindx).attribute4;
277           a19(indx) := t(ddindx).attribute5;
278           a20(indx) := t(ddindx).attribute6;
279           a21(indx) := t(ddindx).attribute7;
280           a22(indx) := t(ddindx).attribute8;
281           a23(indx) := t(ddindx).attribute9;
282           a24(indx) := t(ddindx).attribute10;
283           a25(indx) := t(ddindx).attribute11;
284           a26(indx) := t(ddindx).attribute12;
285           a27(indx) := t(ddindx).attribute13;
289           a31(indx) := t(ddindx).last_updated_by;
286           a28(indx) := t(ddindx).attribute14;
287           a29(indx) := t(ddindx).attribute15;
288           a30(indx) := t(ddindx).last_update_date;
290           a32(indx) := t(ddindx).creation_date;
291           a33(indx) := t(ddindx).created_by;
292           a34(indx) := t(ddindx).last_update_login;
293           a35(indx) := t(ddindx).dml_operation;
294           indx := indx+1;
295           if t.last =ddindx
296             then exit;
297           end if;
298           ddindx := t.next(ddindx);
299         end loop;
300       end if;
301    end if;
302   end rosetta_table_copy_out_p1;
303 
304   procedure process_mr_route(p_api_version  NUMBER
305     , p_init_msg_list  VARCHAR2
306     , p_commit  VARCHAR2
307     , p_validation_level  NUMBER
308     , p_default  VARCHAR2
309     , p_module_type  VARCHAR2
310     , x_return_status out nocopy  VARCHAR2
311     , x_msg_count out nocopy  NUMBER
312     , x_msg_data out nocopy  VARCHAR2
313     , p9_a0 in out nocopy JTF_NUMBER_TABLE
314     , p9_a1 in out nocopy JTF_NUMBER_TABLE
315     , p9_a2 in out nocopy JTF_NUMBER_TABLE
316     , p9_a3 in out nocopy JTF_VARCHAR2_TABLE_100
317     , p9_a4 in out nocopy JTF_NUMBER_TABLE
318     , p9_a5 in out nocopy JTF_NUMBER_TABLE
319     , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_100
320     , p9_a7 in out nocopy JTF_NUMBER_TABLE
321     , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_2000
322     , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_100
323     , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
324     , p9_a11 in out nocopy JTF_NUMBER_TABLE
325     , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_100
326     , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_100
327     , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_100
328     , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
329     , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
330     , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
331     , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
332     , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
333     , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
334     , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
335     , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
336     , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
337     , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
338     , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
339     , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
340     , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
341     , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
342     , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_200
343     , p9_a30 in out nocopy JTF_DATE_TABLE
344     , p9_a31 in out nocopy JTF_NUMBER_TABLE
345     , p9_a32 in out nocopy JTF_DATE_TABLE
346     , p9_a33 in out nocopy JTF_NUMBER_TABLE
347     , p9_a34 in out nocopy JTF_NUMBER_TABLE
348     , p9_a35 in out nocopy JTF_VARCHAR2_TABLE_100
349   )
350 
351   as
352     ddp_x_mr_route_tbl ahl_fmp_mr_route_pvt.mr_route_tbl;
353     ddindx binary_integer; indx binary_integer;
354   begin
355 
356     -- copy data to the local IN or IN-OUT args, if any
357 
358 
359 
360 
361 
362 
363 
364 
365 
366     ahl_fmp_mr_route_pvt_w.rosetta_table_copy_in_p1(ddp_x_mr_route_tbl, p9_a0
367       , p9_a1
368       , p9_a2
369       , p9_a3
370       , p9_a4
371       , p9_a5
372       , p9_a6
373       , p9_a7
374       , p9_a8
375       , p9_a9
376       , p9_a10
377       , p9_a11
378       , p9_a12
379       , p9_a13
380       , p9_a14
381       , p9_a15
382       , p9_a16
383       , p9_a17
384       , p9_a18
385       , p9_a19
386       , p9_a20
387       , p9_a21
388       , p9_a22
389       , p9_a23
390       , p9_a24
391       , p9_a25
392       , p9_a26
393       , p9_a27
394       , p9_a28
395       , p9_a29
396       , p9_a30
397       , p9_a31
398       , p9_a32
399       , p9_a33
400       , p9_a34
401       , p9_a35
402       );
403 
404     -- here's the delegated call to the old PL/SQL routine
405     ahl_fmp_mr_route_pvt.process_mr_route(p_api_version,
406       p_init_msg_list,
407       p_commit,
408       p_validation_level,
409       p_default,
410       p_module_type,
411       x_return_status,
412       x_msg_count,
413       x_msg_data,
414       ddp_x_mr_route_tbl);
415 
416     -- copy data back from the local variables to OUT or IN-OUT args, if any
417 
418 
419 
420 
421 
422 
423 
424 
425 
426     ahl_fmp_mr_route_pvt_w.rosetta_table_copy_out_p1(ddp_x_mr_route_tbl, p9_a0
427       , p9_a1
428       , p9_a2
429       , p9_a3
430       , p9_a4
431       , p9_a5
432       , p9_a6
433       , p9_a7
434       , p9_a8
435       , p9_a9
436       , p9_a10
437       , p9_a11
438       , p9_a12
439       , p9_a13
440       , p9_a14
441       , p9_a15
442       , p9_a16
443       , p9_a17
444       , p9_a18
445       , p9_a19
446       , p9_a20
447       , p9_a21
448       , p9_a22
449       , p9_a23
450       , p9_a24
451       , p9_a25
452       , p9_a26
453       , p9_a27
454       , p9_a28
455       , p9_a29
456       , p9_a30
457       , p9_a31
458       , p9_a32
459       , p9_a33
460       , p9_a34
461       , p9_a35
462       );
463   end;
464 
465 end ahl_fmp_mr_route_pvt_w;