[Home] [Help]
PACKAGE BODY: APPS.AHL_RM_RT_OPER_PANEL_PVT_W
Source
1 package body ahl_rm_rt_oper_panel_pvt_w as
2 /* $Header: AHLWRAPB.pls 120.0.12000000.1 2007/10/17 13:21:24 adivenka 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 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_rm_rt_oper_panel_pvt.rt_oper_panel_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_VARCHAR2_TABLE_100
25 , a9 JTF_VARCHAR2_TABLE_100
26 , a10 JTF_VARCHAR2_TABLE_200
27 , a11 JTF_VARCHAR2_TABLE_200
28 , a12 JTF_VARCHAR2_TABLE_200
29 , a13 JTF_VARCHAR2_TABLE_200
30 , a14 JTF_VARCHAR2_TABLE_200
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_100
42 ) as
43 ddindx binary_integer; indx binary_integer;
44 begin
45 if a0 is not null and a0.count > 0 then
46 if a0.count > 0 then
47 indx := a0.first;
48 ddindx := 1;
49 while true loop
50 t(ddindx).rt_oper_panel_id := a0(indx);
51 t(ddindx).object_version_number := a1(indx);
52 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
53 t(ddindx).last_updated_by := a3(indx);
54 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
55 t(ddindx).created_by := a5(indx);
56 t(ddindx).last_update_login := a6(indx);
57 t(ddindx).panel_type_id := a7(indx);
58 t(ddindx).panel_type := a8(indx);
59 t(ddindx).attribute_category := a9(indx);
60 t(ddindx).attribute1 := a10(indx);
61 t(ddindx).attribute2 := a11(indx);
62 t(ddindx).attribute3 := a12(indx);
63 t(ddindx).attribute4 := a13(indx);
64 t(ddindx).attribute5 := a14(indx);
65 t(ddindx).attribute6 := a15(indx);
66 t(ddindx).attribute7 := a16(indx);
67 t(ddindx).attribute8 := a17(indx);
68 t(ddindx).attribute9 := a18(indx);
69 t(ddindx).attribute10 := a19(indx);
70 t(ddindx).attribute11 := a20(indx);
71 t(ddindx).attribute12 := a21(indx);
72 t(ddindx).attribute13 := a22(indx);
73 t(ddindx).attribute14 := a23(indx);
74 t(ddindx).attribute15 := a24(indx);
75 t(ddindx).dml_operation := a25(indx);
76 ddindx := ddindx+1;
77 if a0.last =indx
78 then exit;
79 end if;
80 indx := a0.next(indx);
81 end loop;
82 end if;
83 end if;
84 end rosetta_table_copy_in_p1;
85 procedure rosetta_table_copy_out_p1(t ahl_rm_rt_oper_panel_pvt.rt_oper_panel_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
86 , a1 out nocopy JTF_NUMBER_TABLE
87 , a2 out nocopy JTF_DATE_TABLE
88 , a3 out nocopy JTF_NUMBER_TABLE
89 , a4 out nocopy JTF_DATE_TABLE
90 , a5 out nocopy JTF_NUMBER_TABLE
91 , a6 out nocopy JTF_NUMBER_TABLE
92 , a7 out nocopy JTF_VARCHAR2_TABLE_100
93 , a8 out nocopy JTF_VARCHAR2_TABLE_100
94 , a9 out nocopy JTF_VARCHAR2_TABLE_100
95 , a10 out nocopy JTF_VARCHAR2_TABLE_200
96 , a11 out nocopy JTF_VARCHAR2_TABLE_200
97 , a12 out nocopy JTF_VARCHAR2_TABLE_200
98 , a13 out nocopy JTF_VARCHAR2_TABLE_200
99 , a14 out nocopy JTF_VARCHAR2_TABLE_200
100 , a15 out nocopy JTF_VARCHAR2_TABLE_200
101 , a16 out nocopy JTF_VARCHAR2_TABLE_200
102 , a17 out nocopy JTF_VARCHAR2_TABLE_200
103 , a18 out nocopy JTF_VARCHAR2_TABLE_200
104 , a19 out nocopy JTF_VARCHAR2_TABLE_200
105 , a20 out nocopy JTF_VARCHAR2_TABLE_200
106 , a21 out nocopy JTF_VARCHAR2_TABLE_200
107 , a22 out nocopy JTF_VARCHAR2_TABLE_200
108 , a23 out nocopy JTF_VARCHAR2_TABLE_200
109 , a24 out nocopy JTF_VARCHAR2_TABLE_200
110 , a25 out nocopy JTF_VARCHAR2_TABLE_100
111 ) as
112 ddindx binary_integer; indx binary_integer;
113 begin
114 if t is null or t.count = 0 then
115 a0 := JTF_NUMBER_TABLE();
116 a1 := JTF_NUMBER_TABLE();
117 a2 := JTF_DATE_TABLE();
118 a3 := JTF_NUMBER_TABLE();
119 a4 := JTF_DATE_TABLE();
120 a5 := JTF_NUMBER_TABLE();
121 a6 := JTF_NUMBER_TABLE();
122 a7 := JTF_VARCHAR2_TABLE_100();
123 a8 := JTF_VARCHAR2_TABLE_100();
124 a9 := JTF_VARCHAR2_TABLE_100();
125 a10 := JTF_VARCHAR2_TABLE_200();
126 a11 := JTF_VARCHAR2_TABLE_200();
127 a12 := JTF_VARCHAR2_TABLE_200();
128 a13 := JTF_VARCHAR2_TABLE_200();
129 a14 := JTF_VARCHAR2_TABLE_200();
130 a15 := JTF_VARCHAR2_TABLE_200();
131 a16 := JTF_VARCHAR2_TABLE_200();
132 a17 := JTF_VARCHAR2_TABLE_200();
133 a18 := JTF_VARCHAR2_TABLE_200();
134 a19 := JTF_VARCHAR2_TABLE_200();
135 a20 := JTF_VARCHAR2_TABLE_200();
136 a21 := JTF_VARCHAR2_TABLE_200();
137 a22 := JTF_VARCHAR2_TABLE_200();
138 a23 := JTF_VARCHAR2_TABLE_200();
139 a24 := JTF_VARCHAR2_TABLE_200();
140 a25 := JTF_VARCHAR2_TABLE_100();
141 else
142 a0 := JTF_NUMBER_TABLE();
143 a1 := JTF_NUMBER_TABLE();
144 a2 := JTF_DATE_TABLE();
145 a3 := JTF_NUMBER_TABLE();
146 a4 := JTF_DATE_TABLE();
147 a5 := JTF_NUMBER_TABLE();
148 a6 := JTF_NUMBER_TABLE();
149 a7 := JTF_VARCHAR2_TABLE_100();
150 a8 := JTF_VARCHAR2_TABLE_100();
151 a9 := JTF_VARCHAR2_TABLE_100();
152 a10 := JTF_VARCHAR2_TABLE_200();
153 a11 := JTF_VARCHAR2_TABLE_200();
154 a12 := JTF_VARCHAR2_TABLE_200();
155 a13 := JTF_VARCHAR2_TABLE_200();
156 a14 := JTF_VARCHAR2_TABLE_200();
157 a15 := JTF_VARCHAR2_TABLE_200();
158 a16 := JTF_VARCHAR2_TABLE_200();
159 a17 := JTF_VARCHAR2_TABLE_200();
160 a18 := JTF_VARCHAR2_TABLE_200();
161 a19 := JTF_VARCHAR2_TABLE_200();
162 a20 := JTF_VARCHAR2_TABLE_200();
163 a21 := JTF_VARCHAR2_TABLE_200();
164 a22 := JTF_VARCHAR2_TABLE_200();
165 a23 := JTF_VARCHAR2_TABLE_200();
166 a24 := JTF_VARCHAR2_TABLE_200();
167 a25 := JTF_VARCHAR2_TABLE_100();
168 if t.count > 0 then
169 a0.extend(t.count);
170 a1.extend(t.count);
171 a2.extend(t.count);
172 a3.extend(t.count);
173 a4.extend(t.count);
174 a5.extend(t.count);
175 a6.extend(t.count);
176 a7.extend(t.count);
177 a8.extend(t.count);
178 a9.extend(t.count);
179 a10.extend(t.count);
180 a11.extend(t.count);
181 a12.extend(t.count);
182 a13.extend(t.count);
183 a14.extend(t.count);
184 a15.extend(t.count);
185 a16.extend(t.count);
186 a17.extend(t.count);
187 a18.extend(t.count);
188 a19.extend(t.count);
189 a20.extend(t.count);
190 a21.extend(t.count);
191 a22.extend(t.count);
192 a23.extend(t.count);
193 a24.extend(t.count);
194 a25.extend(t.count);
195 ddindx := t.first;
196 indx := 1;
197 while true loop
198 a0(indx) := t(ddindx).rt_oper_panel_id;
199 a1(indx) := t(ddindx).object_version_number;
200 a2(indx) := t(ddindx).last_update_date;
201 a3(indx) := t(ddindx).last_updated_by;
202 a4(indx) := t(ddindx).creation_date;
203 a5(indx) := t(ddindx).created_by;
204 a6(indx) := t(ddindx).last_update_login;
205 a7(indx) := t(ddindx).panel_type_id;
206 a8(indx) := t(ddindx).panel_type;
207 a9(indx) := t(ddindx).attribute_category;
208 a10(indx) := t(ddindx).attribute1;
209 a11(indx) := t(ddindx).attribute2;
210 a12(indx) := t(ddindx).attribute3;
211 a13(indx) := t(ddindx).attribute4;
212 a14(indx) := t(ddindx).attribute5;
213 a15(indx) := t(ddindx).attribute6;
214 a16(indx) := t(ddindx).attribute7;
215 a17(indx) := t(ddindx).attribute8;
216 a18(indx) := t(ddindx).attribute9;
217 a19(indx) := t(ddindx).attribute10;
218 a20(indx) := t(ddindx).attribute11;
219 a21(indx) := t(ddindx).attribute12;
220 a22(indx) := t(ddindx).attribute13;
221 a23(indx) := t(ddindx).attribute14;
222 a24(indx) := t(ddindx).attribute15;
223 a25(indx) := t(ddindx).dml_operation;
224 indx := indx+1;
225 if t.last =ddindx
226 then exit;
227 end if;
228 ddindx := t.next(ddindx);
229 end loop;
230 end if;
231 end if;
232 end rosetta_table_copy_out_p1;
233
234 procedure process_rt_oper_panel(p_api_version NUMBER
235 , p_init_msg_list VARCHAR2
236 , p_commit VARCHAR2
237 , p_validation_level NUMBER
238 , p_default VARCHAR2
239 , p_module_type VARCHAR2
240 , x_return_status out nocopy VARCHAR2
241 , x_msg_count out nocopy NUMBER
242 , x_msg_data out nocopy VARCHAR2
243 , p9_a0 in out nocopy JTF_NUMBER_TABLE
244 , p9_a1 in out nocopy JTF_NUMBER_TABLE
245 , p9_a2 in out nocopy JTF_DATE_TABLE
246 , p9_a3 in out nocopy JTF_NUMBER_TABLE
247 , p9_a4 in out nocopy JTF_DATE_TABLE
248 , p9_a5 in out nocopy JTF_NUMBER_TABLE
249 , p9_a6 in out nocopy JTF_NUMBER_TABLE
250 , p9_a7 in out nocopy JTF_VARCHAR2_TABLE_100
251 , p9_a8 in out nocopy JTF_VARCHAR2_TABLE_100
252 , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_100
253 , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_200
254 , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_200
255 , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_200
256 , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_200
257 , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_200
258 , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_200
259 , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_200
260 , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_200
261 , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_200
262 , p9_a19 in out nocopy JTF_VARCHAR2_TABLE_200
263 , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_200
264 , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
265 , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
266 , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
267 , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
268 , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_100
269 , p_association_type_code VARCHAR2
270 , p_object_id NUMBER
271 )
272
273 as
274 ddp_x_rt_oper_panel_tbl ahl_rm_rt_oper_panel_pvt.rt_oper_panel_tbl_type;
275 ddindx binary_integer; indx binary_integer;
276 begin
277
278 -- copy data to the local IN or IN-OUT args, if any
279
280
281
282
283
284
285
286
287
288 ahl_rm_rt_oper_panel_pvt_w.rosetta_table_copy_in_p1(ddp_x_rt_oper_panel_tbl, p9_a0
289 , p9_a1
290 , p9_a2
291 , p9_a3
292 , p9_a4
293 , p9_a5
294 , p9_a6
295 , p9_a7
296 , p9_a8
297 , p9_a9
298 , p9_a10
299 , p9_a11
300 , p9_a12
301 , p9_a13
302 , p9_a14
303 , p9_a15
304 , p9_a16
305 , p9_a17
306 , p9_a18
307 , p9_a19
308 , p9_a20
309 , p9_a21
310 , p9_a22
311 , p9_a23
312 , p9_a24
313 , p9_a25
314 );
315
316
317
318 -- here's the delegated call to the old PL/SQL routine
319 ahl_rm_rt_oper_panel_pvt.process_rt_oper_panel(p_api_version,
320 p_init_msg_list,
321 p_commit,
322 p_validation_level,
323 p_default,
324 p_module_type,
325 x_return_status,
326 x_msg_count,
327 x_msg_data,
328 ddp_x_rt_oper_panel_tbl,
329 p_association_type_code,
330 p_object_id);
331
332 -- copy data back from the local variables to OUT or IN-OUT args, if any
333
334
335
336
337
338
339
340
341
342 ahl_rm_rt_oper_panel_pvt_w.rosetta_table_copy_out_p1(ddp_x_rt_oper_panel_tbl, p9_a0
343 , p9_a1
344 , p9_a2
345 , p9_a3
346 , p9_a4
347 , p9_a5
348 , p9_a6
349 , p9_a7
350 , p9_a8
351 , p9_a9
352 , p9_a10
353 , p9_a11
354 , p9_a12
355 , p9_a13
356 , p9_a14
357 , p9_a15
358 , p9_a16
359 , p9_a17
360 , p9_a18
361 , p9_a19
362 , p9_a20
363 , p9_a21
364 , p9_a22
365 , p9_a23
366 , p9_a24
367 , p9_a25
368 );
369
370
371 end;
372
373 end ahl_rm_rt_oper_panel_pvt_w;