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