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_RM_RT_OP_DEP_PVT_W

Source


1 package body ahl_rm_rt_op_dep_pvt_w as
2   /* $Header: AHLWOPDB.pls 120.0.12020000.2 2012/12/13 06:33:38 shnatu noship $ */
3   procedure rosetta_table_copy_in_p1(t out nocopy ahl_rm_rt_op_dep_pvt.rt_oper_dep_tbl, a0 JTF_NUMBER_TABLE
4     , a1 JTF_NUMBER_TABLE
5     , a2 JTF_NUMBER_TABLE
6     , a3 JTF_VARCHAR2_TABLE_100
7     , a4 JTF_VARCHAR2_TABLE_100
8     , a5 JTF_NUMBER_TABLE
9     , a6 JTF_VARCHAR2_TABLE_100
10     , a7 JTF_VARCHAR2_TABLE_100
11     , a8 JTF_NUMBER_TABLE
12     , a9 JTF_VARCHAR2_TABLE_100
13     , a10 JTF_VARCHAR2_TABLE_100
14     , a11 JTF_NUMBER_TABLE
15     , a12 JTF_NUMBER_TABLE
16     , a13 JTF_VARCHAR2_TABLE_100
17     , a14 JTF_VARCHAR2_TABLE_200
18     , a15 JTF_VARCHAR2_TABLE_200
19     , a16 JTF_VARCHAR2_TABLE_200
20     , a17 JTF_VARCHAR2_TABLE_200
21     , a18 JTF_VARCHAR2_TABLE_200
22     , a19 JTF_VARCHAR2_TABLE_200
23     , a20 JTF_VARCHAR2_TABLE_200
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_DATE_TABLE
33     , a30 JTF_NUMBER_TABLE
34     , a31 JTF_DATE_TABLE
35     , a32 JTF_NUMBER_TABLE
36     , a33 JTF_NUMBER_TABLE
37     , a34 JTF_VARCHAR2_TABLE_100
38     ) as
39     ddindx binary_integer; indx binary_integer;
40   begin
41   if a0 is not null and a0.count > 0 then
42       if a0.count > 0 then
43         indx := a0.first;
44         ddindx := 1;
45         while true loop
46           t(ddindx).rt_op_dependency_id := a0(indx);
47           t(ddindx).object_version_number := a1(indx);
48           t(ddindx).from_op_step := a2(indx);
49           t(ddindx).from_op_number := a3(indx);
50           t(ddindx).from_op_status := a4(indx);
51           t(ddindx).from_rt_op_id := a5(indx);
52           t(ddindx).dependency_code := a6(indx);
53           t(ddindx).dependency_mean := a7(indx);
54           t(ddindx).to_op_step := a8(indx);
55           t(ddindx).to_op_number := a9(indx);
56           t(ddindx).to_op_status := a10(indx);
57           t(ddindx).to_rt_op_id := a11(indx);
58           t(ddindx).security_group_id := a12(indx);
59           t(ddindx).attribute_category := a13(indx);
60           t(ddindx).attribute1 := a14(indx);
61           t(ddindx).attribute2 := a15(indx);
62           t(ddindx).attribute3 := a16(indx);
63           t(ddindx).attribute4 := a17(indx);
64           t(ddindx).attribute5 := a18(indx);
65           t(ddindx).attribute6 := a19(indx);
66           t(ddindx).attribute7 := a20(indx);
67           t(ddindx).attribute8 := a21(indx);
68           t(ddindx).attribute9 := a22(indx);
69           t(ddindx).attribute10 := a23(indx);
70           t(ddindx).attribute11 := a24(indx);
71           t(ddindx).attribute12 := a25(indx);
72           t(ddindx).attribute13 := a26(indx);
73           t(ddindx).attribute14 := a27(indx);
74           t(ddindx).attribute15 := a28(indx);
75           t(ddindx).last_update_date := a29(indx);
76           t(ddindx).last_updated_by := a30(indx);
77           t(ddindx).creation_date := a31(indx);
78           t(ddindx).created_by := a32(indx);
79           t(ddindx).last_update_login := a33(indx);
80           t(ddindx).dml_operation := a34(indx);
81           ddindx := ddindx+1;
82           if a0.last =indx
83             then exit;
84           end if;
85           indx := a0.next(indx);
86         end loop;
87       end if;
88    end if;
89   end rosetta_table_copy_in_p1;
90   procedure rosetta_table_copy_out_p1(t ahl_rm_rt_op_dep_pvt.rt_oper_dep_tbl, a0 out nocopy JTF_NUMBER_TABLE
91     , a1 out nocopy JTF_NUMBER_TABLE
92     , a2 out nocopy JTF_NUMBER_TABLE
93     , a3 out nocopy JTF_VARCHAR2_TABLE_100
94     , a4 out nocopy JTF_VARCHAR2_TABLE_100
95     , a5 out nocopy JTF_NUMBER_TABLE
96     , a6 out nocopy JTF_VARCHAR2_TABLE_100
97     , a7 out nocopy JTF_VARCHAR2_TABLE_100
98     , a8 out nocopy JTF_NUMBER_TABLE
99     , a9 out nocopy JTF_VARCHAR2_TABLE_100
100     , a10 out nocopy JTF_VARCHAR2_TABLE_100
101     , a11 out nocopy JTF_NUMBER_TABLE
102     , a12 out nocopy JTF_NUMBER_TABLE
103     , a13 out nocopy JTF_VARCHAR2_TABLE_100
104     , a14 out nocopy JTF_VARCHAR2_TABLE_200
105     , a15 out nocopy JTF_VARCHAR2_TABLE_200
106     , a16 out nocopy JTF_VARCHAR2_TABLE_200
107     , a17 out nocopy JTF_VARCHAR2_TABLE_200
108     , a18 out nocopy JTF_VARCHAR2_TABLE_200
109     , a19 out nocopy JTF_VARCHAR2_TABLE_200
110     , a20 out nocopy JTF_VARCHAR2_TABLE_200
111     , a21 out nocopy JTF_VARCHAR2_TABLE_200
112     , a22 out nocopy JTF_VARCHAR2_TABLE_200
113     , a23 out nocopy JTF_VARCHAR2_TABLE_200
114     , a24 out nocopy JTF_VARCHAR2_TABLE_200
115     , a25 out nocopy JTF_VARCHAR2_TABLE_200
116     , a26 out nocopy JTF_VARCHAR2_TABLE_200
117     , a27 out nocopy JTF_VARCHAR2_TABLE_200
118     , a28 out nocopy JTF_VARCHAR2_TABLE_200
119     , a29 out nocopy JTF_DATE_TABLE
120     , a30 out nocopy JTF_NUMBER_TABLE
121     , a31 out nocopy JTF_DATE_TABLE
122     , a32 out nocopy JTF_NUMBER_TABLE
123     , a33 out nocopy JTF_NUMBER_TABLE
124     , a34 out nocopy JTF_VARCHAR2_TABLE_100
125     ) as
126     ddindx binary_integer; indx binary_integer;
127   begin
128   if t is null or t.count = 0 then
129     a0 := JTF_NUMBER_TABLE();
130     a1 := JTF_NUMBER_TABLE();
131     a2 := JTF_NUMBER_TABLE();
132     a3 := JTF_VARCHAR2_TABLE_100();
133     a4 := JTF_VARCHAR2_TABLE_100();
134     a5 := JTF_NUMBER_TABLE();
135     a6 := JTF_VARCHAR2_TABLE_100();
136     a7 := JTF_VARCHAR2_TABLE_100();
137     a8 := JTF_NUMBER_TABLE();
138     a9 := JTF_VARCHAR2_TABLE_100();
139     a10 := JTF_VARCHAR2_TABLE_100();
140     a11 := JTF_NUMBER_TABLE();
141     a12 := JTF_NUMBER_TABLE();
142     a13 := JTF_VARCHAR2_TABLE_100();
143     a14 := JTF_VARCHAR2_TABLE_200();
144     a15 := JTF_VARCHAR2_TABLE_200();
145     a16 := JTF_VARCHAR2_TABLE_200();
146     a17 := JTF_VARCHAR2_TABLE_200();
147     a18 := JTF_VARCHAR2_TABLE_200();
148     a19 := JTF_VARCHAR2_TABLE_200();
149     a20 := JTF_VARCHAR2_TABLE_200();
150     a21 := JTF_VARCHAR2_TABLE_200();
151     a22 := JTF_VARCHAR2_TABLE_200();
152     a23 := JTF_VARCHAR2_TABLE_200();
153     a24 := JTF_VARCHAR2_TABLE_200();
154     a25 := JTF_VARCHAR2_TABLE_200();
155     a26 := JTF_VARCHAR2_TABLE_200();
156     a27 := JTF_VARCHAR2_TABLE_200();
157     a28 := JTF_VARCHAR2_TABLE_200();
158     a29 := JTF_DATE_TABLE();
159     a30 := JTF_NUMBER_TABLE();
160     a31 := JTF_DATE_TABLE();
161     a32 := JTF_NUMBER_TABLE();
162     a33 := JTF_NUMBER_TABLE();
163     a34 := JTF_VARCHAR2_TABLE_100();
164   else
165       a0 := JTF_NUMBER_TABLE();
166       a1 := JTF_NUMBER_TABLE();
167       a2 := JTF_NUMBER_TABLE();
168       a3 := JTF_VARCHAR2_TABLE_100();
169       a4 := JTF_VARCHAR2_TABLE_100();
170       a5 := JTF_NUMBER_TABLE();
171       a6 := JTF_VARCHAR2_TABLE_100();
172       a7 := JTF_VARCHAR2_TABLE_100();
173       a8 := JTF_NUMBER_TABLE();
174       a9 := JTF_VARCHAR2_TABLE_100();
175       a10 := JTF_VARCHAR2_TABLE_100();
176       a11 := JTF_NUMBER_TABLE();
177       a12 := JTF_NUMBER_TABLE();
178       a13 := JTF_VARCHAR2_TABLE_100();
179       a14 := JTF_VARCHAR2_TABLE_200();
180       a15 := JTF_VARCHAR2_TABLE_200();
181       a16 := JTF_VARCHAR2_TABLE_200();
182       a17 := JTF_VARCHAR2_TABLE_200();
183       a18 := JTF_VARCHAR2_TABLE_200();
184       a19 := JTF_VARCHAR2_TABLE_200();
185       a20 := JTF_VARCHAR2_TABLE_200();
186       a21 := JTF_VARCHAR2_TABLE_200();
187       a22 := JTF_VARCHAR2_TABLE_200();
188       a23 := JTF_VARCHAR2_TABLE_200();
189       a24 := JTF_VARCHAR2_TABLE_200();
190       a25 := JTF_VARCHAR2_TABLE_200();
191       a26 := JTF_VARCHAR2_TABLE_200();
192       a27 := JTF_VARCHAR2_TABLE_200();
193       a28 := JTF_VARCHAR2_TABLE_200();
194       a29 := JTF_DATE_TABLE();
195       a30 := JTF_NUMBER_TABLE();
196       a31 := JTF_DATE_TABLE();
197       a32 := JTF_NUMBER_TABLE();
198       a33 := JTF_NUMBER_TABLE();
199       a34 := JTF_VARCHAR2_TABLE_100();
200       if t.count > 0 then
201         a0.extend(t.count);
202         a1.extend(t.count);
203         a2.extend(t.count);
204         a3.extend(t.count);
205         a4.extend(t.count);
206         a5.extend(t.count);
207         a6.extend(t.count);
208         a7.extend(t.count);
209         a8.extend(t.count);
210         a9.extend(t.count);
211         a10.extend(t.count);
212         a11.extend(t.count);
213         a12.extend(t.count);
214         a13.extend(t.count);
215         a14.extend(t.count);
216         a15.extend(t.count);
217         a16.extend(t.count);
218         a17.extend(t.count);
219         a18.extend(t.count);
220         a19.extend(t.count);
221         a20.extend(t.count);
222         a21.extend(t.count);
223         a22.extend(t.count);
224         a23.extend(t.count);
225         a24.extend(t.count);
226         a25.extend(t.count);
227         a26.extend(t.count);
228         a27.extend(t.count);
229         a28.extend(t.count);
230         a29.extend(t.count);
231         a30.extend(t.count);
232         a31.extend(t.count);
233         a32.extend(t.count);
234         a33.extend(t.count);
235         a34.extend(t.count);
236         ddindx := t.first;
237         indx := 1;
238         while true loop
239           a0(indx) := t(ddindx).rt_op_dependency_id;
240           a1(indx) := t(ddindx).object_version_number;
241           a2(indx) := t(ddindx).from_op_step;
242           a3(indx) := t(ddindx).from_op_number;
243           a4(indx) := t(ddindx).from_op_status;
244           a5(indx) := t(ddindx).from_rt_op_id;
245           a6(indx) := t(ddindx).dependency_code;
246           a7(indx) := t(ddindx).dependency_mean;
247           a8(indx) := t(ddindx).to_op_step;
248           a9(indx) := t(ddindx).to_op_number;
249           a10(indx) := t(ddindx).to_op_status;
250           a11(indx) := t(ddindx).to_rt_op_id;
251           a12(indx) := t(ddindx).security_group_id;
252           a13(indx) := t(ddindx).attribute_category;
253           a14(indx) := t(ddindx).attribute1;
254           a15(indx) := t(ddindx).attribute2;
255           a16(indx) := t(ddindx).attribute3;
256           a17(indx) := t(ddindx).attribute4;
257           a18(indx) := t(ddindx).attribute5;
258           a19(indx) := t(ddindx).attribute6;
259           a20(indx) := t(ddindx).attribute7;
260           a21(indx) := t(ddindx).attribute8;
261           a22(indx) := t(ddindx).attribute9;
262           a23(indx) := t(ddindx).attribute10;
263           a24(indx) := t(ddindx).attribute11;
264           a25(indx) := t(ddindx).attribute12;
265           a26(indx) := t(ddindx).attribute13;
266           a27(indx) := t(ddindx).attribute14;
267           a28(indx) := t(ddindx).attribute15;
268           a29(indx) := t(ddindx).last_update_date;
269           a30(indx) := t(ddindx).last_updated_by;
270           a31(indx) := t(ddindx).creation_date;
271           a32(indx) := t(ddindx).created_by;
272           a33(indx) := t(ddindx).last_update_login;
273           a34(indx) := t(ddindx).dml_operation;
274           indx := indx+1;
275           if t.last =ddindx
276             then exit;
277           end if;
278           ddindx := t.next(ddindx);
279         end loop;
280       end if;
281    end if;
282   end rosetta_table_copy_out_p1;
283 
284   procedure process_rt_oper_dep(p_api_version  NUMBER
285     , p_init_msg_list  VARCHAR2
286     , p_commit  VARCHAR2
287     , p_validation_level  NUMBER
288     , p_default  VARCHAR2
289     , p_module_type  VARCHAR2
290     , x_return_status out nocopy  VARCHAR2
291     , x_msg_count out nocopy  NUMBER
292     , x_msg_data out nocopy  VARCHAR2
293     , p_route_id  NUMBER
294     , p10_a0 in out nocopy JTF_NUMBER_TABLE
295     , p10_a1 in out nocopy JTF_NUMBER_TABLE
296     , p10_a2 in out nocopy JTF_NUMBER_TABLE
297     , p10_a3 in out nocopy JTF_VARCHAR2_TABLE_100
298     , p10_a4 in out nocopy JTF_VARCHAR2_TABLE_100
299     , p10_a5 in out nocopy JTF_NUMBER_TABLE
300     , p10_a6 in out nocopy JTF_VARCHAR2_TABLE_100
301     , p10_a7 in out nocopy JTF_VARCHAR2_TABLE_100
302     , p10_a8 in out nocopy JTF_NUMBER_TABLE
303     , p10_a9 in out nocopy JTF_VARCHAR2_TABLE_100
304     , p10_a10 in out nocopy JTF_VARCHAR2_TABLE_100
305     , p10_a11 in out nocopy JTF_NUMBER_TABLE
306     , p10_a12 in out nocopy JTF_NUMBER_TABLE
307     , p10_a13 in out nocopy JTF_VARCHAR2_TABLE_100
308     , p10_a14 in out nocopy JTF_VARCHAR2_TABLE_200
309     , p10_a15 in out nocopy JTF_VARCHAR2_TABLE_200
310     , p10_a16 in out nocopy JTF_VARCHAR2_TABLE_200
311     , p10_a17 in out nocopy JTF_VARCHAR2_TABLE_200
312     , p10_a18 in out nocopy JTF_VARCHAR2_TABLE_200
313     , p10_a19 in out nocopy JTF_VARCHAR2_TABLE_200
314     , p10_a20 in out nocopy JTF_VARCHAR2_TABLE_200
315     , p10_a21 in out nocopy JTF_VARCHAR2_TABLE_200
316     , p10_a22 in out nocopy JTF_VARCHAR2_TABLE_200
317     , p10_a23 in out nocopy JTF_VARCHAR2_TABLE_200
318     , p10_a24 in out nocopy JTF_VARCHAR2_TABLE_200
319     , p10_a25 in out nocopy JTF_VARCHAR2_TABLE_200
320     , p10_a26 in out nocopy JTF_VARCHAR2_TABLE_200
321     , p10_a27 in out nocopy JTF_VARCHAR2_TABLE_200
322     , p10_a28 in out nocopy JTF_VARCHAR2_TABLE_200
323     , p10_a29 in out nocopy JTF_DATE_TABLE
324     , p10_a30 in out nocopy JTF_NUMBER_TABLE
325     , p10_a31 in out nocopy JTF_DATE_TABLE
326     , p10_a32 in out nocopy JTF_NUMBER_TABLE
327     , p10_a33 in out nocopy JTF_NUMBER_TABLE
328     , p10_a34 in out nocopy JTF_VARCHAR2_TABLE_100
329   )
330 
331   as
332     ddp_x_rt_oper_dep_tbl ahl_rm_rt_op_dep_pvt.rt_oper_dep_tbl;
333     ddindx binary_integer; indx binary_integer;
334   begin
335 
336     -- copy data to the local IN or IN-OUT args, if any
337 
338 
339 
340 
341 
342 
343 
344 
345 
346 
347     ahl_rm_rt_op_dep_pvt_w.rosetta_table_copy_in_p1(ddp_x_rt_oper_dep_tbl, p10_a0
348       , p10_a1
349       , p10_a2
350       , p10_a3
351       , p10_a4
352       , p10_a5
353       , p10_a6
354       , p10_a7
355       , p10_a8
356       , p10_a9
357       , p10_a10
358       , p10_a11
359       , p10_a12
360       , p10_a13
361       , p10_a14
362       , p10_a15
363       , p10_a16
364       , p10_a17
365       , p10_a18
366       , p10_a19
367       , p10_a20
368       , p10_a21
369       , p10_a22
370       , p10_a23
371       , p10_a24
372       , p10_a25
373       , p10_a26
374       , p10_a27
375       , p10_a28
376       , p10_a29
377       , p10_a30
378       , p10_a31
379       , p10_a32
380       , p10_a33
381       , p10_a34
382       );
383 
384     -- here's the delegated call to the old PL/SQL routine
385     ahl_rm_rt_op_dep_pvt.process_rt_oper_dep(p_api_version,
386       p_init_msg_list,
387       p_commit,
388       p_validation_level,
389       p_default,
390       p_module_type,
391       x_return_status,
392       x_msg_count,
393       x_msg_data,
394       p_route_id,
395       ddp_x_rt_oper_dep_tbl);
396 
397     -- copy data back from the local variables to OUT or IN-OUT args, if any
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408     ahl_rm_rt_op_dep_pvt_w.rosetta_table_copy_out_p1(ddp_x_rt_oper_dep_tbl, p10_a0
409       , p10_a1
410       , p10_a2
411       , p10_a3
412       , p10_a4
413       , p10_a5
414       , p10_a6
415       , p10_a7
416       , p10_a8
417       , p10_a9
418       , p10_a10
419       , p10_a11
420       , p10_a12
421       , p10_a13
422       , p10_a14
423       , p10_a15
424       , p10_a16
425       , p10_a17
426       , p10_a18
427       , p10_a19
428       , p10_a20
429       , p10_a21
430       , p10_a22
431       , p10_a23
432       , p10_a24
433       , p10_a25
434       , p10_a26
435       , p10_a27
436       , p10_a28
437       , p10_a29
438       , p10_a30
439       , p10_a31
440       , p10_a32
441       , p10_a33
442       , p10_a34
443       );
444   end;
445 
446 end ahl_rm_rt_op_dep_pvt_w;