[Home] [Help]
PACKAGE BODY: APPS.AHL_RM_PROD_ZONE_AS_PVT_W
Source
1 package body ahl_rm_prod_zone_as_pvt_w as
2 /* $Header: AHLWAPMB.pls 115.1 2002/11/13 01:41:36 jeli 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_prod_zone_as_pvt.prod_zone_as_tbl_type, a0 JTF_NUMBER_TABLE
14 , a1 JTF_NUMBER_TABLE
15 , a2 JTF_DATE_TABLE
16 , a3 JTF_NUMBER_TABLE
17 , a4 JTF_DATE_TABLE
18 , a5 JTF_NUMBER_TABLE
19 , a6 JTF_NUMBER_TABLE
20 , a7 JTF_VARCHAR2_TABLE_100
21 , a8 JTF_VARCHAR2_TABLE_100
22 , a9 JTF_VARCHAR2_TABLE_100
23 , a10 JTF_VARCHAR2_TABLE_100
24 , a11 JTF_VARCHAR2_TABLE_100
25 , a12 JTF_VARCHAR2_TABLE_100
26 , a13 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_200
37 , a24 JTF_VARCHAR2_TABLE_200
38 , a25 JTF_VARCHAR2_TABLE_200
39 , a26 JTF_VARCHAR2_TABLE_200
40 , a27 JTF_VARCHAR2_TABLE_200
41 , a28 JTF_VARCHAR2_TABLE_200
42 , a29 JTF_VARCHAR2_TABLE_100
43 ) as
44 ddindx binary_integer; indx binary_integer;
45 begin
46 if a0 is not null and a0.count > 0 then
47 if a0.count > 0 then
48 indx := a0.first;
49 ddindx := 1;
50 while true loop
51 t(ddindx).prodtype_zone_id := a0(indx);
52 t(ddindx).object_version_number := a1(indx);
53 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
54 t(ddindx).last_updated_by := a3(indx);
55 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
56 t(ddindx).created_by := a5(indx);
57 t(ddindx).last_update_login := a6(indx);
58 t(ddindx).product_type_code := a7(indx);
59 t(ddindx).product_type := a8(indx);
60 t(ddindx).zone_code := a9(indx);
61 t(ddindx).zone := a10(indx);
62 t(ddindx).sub_zone_code := a11(indx);
63 t(ddindx).sub_zone := a12(indx);
64 t(ddindx).attribute_category := a13(indx);
65 t(ddindx).attribute1 := a14(indx);
66 t(ddindx).attribute2 := a15(indx);
67 t(ddindx).attribute3 := a16(indx);
68 t(ddindx).attribute4 := a17(indx);
69 t(ddindx).attribute5 := a18(indx);
70 t(ddindx).attribute6 := a19(indx);
71 t(ddindx).attribute7 := a20(indx);
72 t(ddindx).attribute8 := a21(indx);
73 t(ddindx).attribute9 := a22(indx);
74 t(ddindx).attribute10 := a23(indx);
75 t(ddindx).attribute11 := a24(indx);
76 t(ddindx).attribute12 := a25(indx);
77 t(ddindx).attribute13 := a26(indx);
78 t(ddindx).attribute14 := a27(indx);
79 t(ddindx).attribute15 := a28(indx);
80 t(ddindx).dml_operation := a29(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_prod_zone_as_pvt.prod_zone_as_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
91 , a1 out nocopy JTF_NUMBER_TABLE
92 , a2 out nocopy JTF_DATE_TABLE
93 , a3 out nocopy JTF_NUMBER_TABLE
94 , a4 out nocopy JTF_DATE_TABLE
95 , a5 out nocopy JTF_NUMBER_TABLE
96 , a6 out nocopy JTF_NUMBER_TABLE
97 , a7 out nocopy JTF_VARCHAR2_TABLE_100
98 , a8 out nocopy JTF_VARCHAR2_TABLE_100
99 , a9 out nocopy JTF_VARCHAR2_TABLE_100
100 , a10 out nocopy JTF_VARCHAR2_TABLE_100
101 , a11 out nocopy JTF_VARCHAR2_TABLE_100
102 , a12 out nocopy JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_100
120 ) as
121 ddindx binary_integer; indx binary_integer;
122 begin
123 if t is null or t.count = 0 then
124 a0 := JTF_NUMBER_TABLE();
125 a1 := JTF_NUMBER_TABLE();
126 a2 := JTF_DATE_TABLE();
127 a3 := JTF_NUMBER_TABLE();
128 a4 := JTF_DATE_TABLE();
129 a5 := JTF_NUMBER_TABLE();
130 a6 := JTF_NUMBER_TABLE();
131 a7 := JTF_VARCHAR2_TABLE_100();
132 a8 := JTF_VARCHAR2_TABLE_100();
133 a9 := JTF_VARCHAR2_TABLE_100();
134 a10 := JTF_VARCHAR2_TABLE_100();
135 a11 := JTF_VARCHAR2_TABLE_100();
136 a12 := JTF_VARCHAR2_TABLE_100();
137 a13 := JTF_VARCHAR2_TABLE_100();
138 a14 := JTF_VARCHAR2_TABLE_200();
139 a15 := JTF_VARCHAR2_TABLE_200();
140 a16 := JTF_VARCHAR2_TABLE_200();
141 a17 := JTF_VARCHAR2_TABLE_200();
142 a18 := JTF_VARCHAR2_TABLE_200();
143 a19 := JTF_VARCHAR2_TABLE_200();
144 a20 := JTF_VARCHAR2_TABLE_200();
145 a21 := JTF_VARCHAR2_TABLE_200();
146 a22 := JTF_VARCHAR2_TABLE_200();
147 a23 := JTF_VARCHAR2_TABLE_200();
148 a24 := JTF_VARCHAR2_TABLE_200();
149 a25 := JTF_VARCHAR2_TABLE_200();
150 a26 := JTF_VARCHAR2_TABLE_200();
151 a27 := JTF_VARCHAR2_TABLE_200();
152 a28 := JTF_VARCHAR2_TABLE_200();
153 a29 := JTF_VARCHAR2_TABLE_100();
154 else
155 a0 := JTF_NUMBER_TABLE();
156 a1 := JTF_NUMBER_TABLE();
157 a2 := JTF_DATE_TABLE();
158 a3 := JTF_NUMBER_TABLE();
159 a4 := JTF_DATE_TABLE();
160 a5 := JTF_NUMBER_TABLE();
161 a6 := JTF_NUMBER_TABLE();
162 a7 := JTF_VARCHAR2_TABLE_100();
163 a8 := JTF_VARCHAR2_TABLE_100();
164 a9 := JTF_VARCHAR2_TABLE_100();
165 a10 := JTF_VARCHAR2_TABLE_100();
166 a11 := JTF_VARCHAR2_TABLE_100();
167 a12 := JTF_VARCHAR2_TABLE_100();
168 a13 := JTF_VARCHAR2_TABLE_100();
169 a14 := JTF_VARCHAR2_TABLE_200();
170 a15 := JTF_VARCHAR2_TABLE_200();
171 a16 := JTF_VARCHAR2_TABLE_200();
172 a17 := JTF_VARCHAR2_TABLE_200();
173 a18 := JTF_VARCHAR2_TABLE_200();
174 a19 := JTF_VARCHAR2_TABLE_200();
175 a20 := JTF_VARCHAR2_TABLE_200();
176 a21 := JTF_VARCHAR2_TABLE_200();
177 a22 := JTF_VARCHAR2_TABLE_200();
178 a23 := JTF_VARCHAR2_TABLE_200();
179 a24 := JTF_VARCHAR2_TABLE_200();
180 a25 := JTF_VARCHAR2_TABLE_200();
181 a26 := JTF_VARCHAR2_TABLE_200();
182 a27 := JTF_VARCHAR2_TABLE_200();
183 a28 := JTF_VARCHAR2_TABLE_200();
184 a29 := JTF_VARCHAR2_TABLE_100();
185 if t.count > 0 then
186 a0.extend(t.count);
187 a1.extend(t.count);
188 a2.extend(t.count);
189 a3.extend(t.count);
190 a4.extend(t.count);
191 a5.extend(t.count);
192 a6.extend(t.count);
193 a7.extend(t.count);
194 a8.extend(t.count);
195 a9.extend(t.count);
196 a10.extend(t.count);
197 a11.extend(t.count);
198 a12.extend(t.count);
199 a13.extend(t.count);
200 a14.extend(t.count);
201 a15.extend(t.count);
202 a16.extend(t.count);
203 a17.extend(t.count);
204 a18.extend(t.count);
205 a19.extend(t.count);
206 a20.extend(t.count);
207 a21.extend(t.count);
208 a22.extend(t.count);
209 a23.extend(t.count);
210 a24.extend(t.count);
211 a25.extend(t.count);
212 a26.extend(t.count);
213 a27.extend(t.count);
214 a28.extend(t.count);
215 a29.extend(t.count);
216 ddindx := t.first;
217 indx := 1;
218 while true loop
219 a0(indx) := t(ddindx).prodtype_zone_id;
220 a1(indx) := t(ddindx).object_version_number;
221 a2(indx) := t(ddindx).last_update_date;
222 a3(indx) := t(ddindx).last_updated_by;
223 a4(indx) := t(ddindx).creation_date;
224 a5(indx) := t(ddindx).created_by;
225 a6(indx) := t(ddindx).last_update_login;
226 a7(indx) := t(ddindx).product_type_code;
227 a8(indx) := t(ddindx).product_type;
228 a9(indx) := t(ddindx).zone_code;
229 a10(indx) := t(ddindx).zone;
230 a11(indx) := t(ddindx).sub_zone_code;
231 a12(indx) := t(ddindx).sub_zone;
232 a13(indx) := t(ddindx).attribute_category;
233 a14(indx) := t(ddindx).attribute1;
234 a15(indx) := t(ddindx).attribute2;
235 a16(indx) := t(ddindx).attribute3;
236 a17(indx) := t(ddindx).attribute4;
237 a18(indx) := t(ddindx).attribute5;
238 a19(indx) := t(ddindx).attribute6;
239 a20(indx) := t(ddindx).attribute7;
240 a21(indx) := t(ddindx).attribute8;
241 a22(indx) := t(ddindx).attribute9;
242 a23(indx) := t(ddindx).attribute10;
243 a24(indx) := t(ddindx).attribute11;
247 a28(indx) := t(ddindx).attribute15;
244 a25(indx) := t(ddindx).attribute12;
245 a26(indx) := t(ddindx).attribute13;
246 a27(indx) := t(ddindx).attribute14;
248 a29(indx) := t(ddindx).dml_operation;
249 indx := indx+1;
250 if t.last =ddindx
251 then exit;
252 end if;
253 ddindx := t.next(ddindx);
254 end loop;
255 end if;
256 end if;
257 end rosetta_table_copy_out_p1;
258
259 procedure process_prod_zone_as(p_api_version NUMBER
260 , p_init_msg_list VARCHAR2
261 , p_commit VARCHAR2
262 , p_validation_level NUMBER
263 , p_default VARCHAR2
264 , p_module_type VARCHAR2
265 , x_return_status out nocopy VARCHAR2
266 , x_msg_count out nocopy NUMBER
267 , x_msg_data out nocopy VARCHAR2
268 , p_associate_flag VARCHAR2
269 , p10_a0 in out nocopy JTF_NUMBER_TABLE
270 , p10_a1 in out nocopy JTF_NUMBER_TABLE
271 , p10_a2 in out nocopy JTF_DATE_TABLE
272 , p10_a3 in out nocopy JTF_NUMBER_TABLE
273 , p10_a4 in out nocopy JTF_DATE_TABLE
274 , p10_a5 in out nocopy JTF_NUMBER_TABLE
275 , p10_a6 in out nocopy JTF_NUMBER_TABLE
276 , p10_a7 in out nocopy JTF_VARCHAR2_TABLE_100
277 , p10_a8 in out nocopy JTF_VARCHAR2_TABLE_100
278 , p10_a9 in out nocopy JTF_VARCHAR2_TABLE_100
279 , p10_a10 in out nocopy JTF_VARCHAR2_TABLE_100
280 , p10_a11 in out nocopy JTF_VARCHAR2_TABLE_100
281 , p10_a12 in out nocopy JTF_VARCHAR2_TABLE_100
282 , p10_a13 in out nocopy JTF_VARCHAR2_TABLE_100
283 , p10_a14 in out nocopy JTF_VARCHAR2_TABLE_200
284 , p10_a15 in out nocopy JTF_VARCHAR2_TABLE_200
285 , p10_a16 in out nocopy JTF_VARCHAR2_TABLE_200
286 , p10_a17 in out nocopy JTF_VARCHAR2_TABLE_200
287 , p10_a18 in out nocopy JTF_VARCHAR2_TABLE_200
288 , p10_a19 in out nocopy JTF_VARCHAR2_TABLE_200
289 , p10_a20 in out nocopy JTF_VARCHAR2_TABLE_200
290 , p10_a21 in out nocopy JTF_VARCHAR2_TABLE_200
291 , p10_a22 in out nocopy JTF_VARCHAR2_TABLE_200
292 , p10_a23 in out nocopy JTF_VARCHAR2_TABLE_200
293 , p10_a24 in out nocopy JTF_VARCHAR2_TABLE_200
294 , p10_a25 in out nocopy JTF_VARCHAR2_TABLE_200
295 , p10_a26 in out nocopy JTF_VARCHAR2_TABLE_200
296 , p10_a27 in out nocopy JTF_VARCHAR2_TABLE_200
297 , p10_a28 in out nocopy JTF_VARCHAR2_TABLE_200
298 , p10_a29 in out nocopy JTF_VARCHAR2_TABLE_100
299 )
300
301 as
302 ddp_x_prod_zone_as_tbl ahl_rm_prod_zone_as_pvt.prod_zone_as_tbl_type;
303 ddindx binary_integer; indx binary_integer;
304 begin
305
306 -- copy data to the local IN or IN-OUT args, if any
307
308
309
310
311
312
313
314
315
316
317 ahl_rm_prod_zone_as_pvt_w.rosetta_table_copy_in_p1(ddp_x_prod_zone_as_tbl, p10_a0
318 , p10_a1
319 , p10_a2
320 , p10_a3
321 , p10_a4
322 , p10_a5
323 , p10_a6
324 , p10_a7
325 , p10_a8
326 , p10_a9
327 , p10_a10
328 , p10_a11
329 , p10_a12
330 , p10_a13
331 , p10_a14
332 , p10_a15
333 , p10_a16
334 , p10_a17
335 , p10_a18
336 , p10_a19
337 , p10_a20
338 , p10_a21
339 , p10_a22
340 , p10_a23
341 , p10_a24
342 , p10_a25
343 , p10_a26
344 , p10_a27
345 , p10_a28
346 , p10_a29
347 );
348
349 -- here's the delegated call to the old PL/SQL routine
350 ahl_rm_prod_zone_as_pvt.process_prod_zone_as(p_api_version,
351 p_init_msg_list,
352 p_commit,
353 p_validation_level,
354 p_default,
355 p_module_type,
356 x_return_status,
357 x_msg_count,
358 x_msg_data,
359 p_associate_flag,
360 ddp_x_prod_zone_as_tbl);
361
362 -- copy data back from the local variables to OUT or IN-OUT args, if any
363
364
365
366
367
368
369
370
371
372
373 ahl_rm_prod_zone_as_pvt_w.rosetta_table_copy_out_p1(ddp_x_prod_zone_as_tbl, p10_a0
374 , p10_a1
375 , p10_a2
376 , p10_a3
377 , p10_a4
378 , p10_a5
379 , p10_a6
380 , p10_a7
381 , p10_a8
382 , p10_a9
383 , p10_a10
384 , p10_a11
385 , p10_a12
386 , p10_a13
387 , p10_a14
388 , p10_a15
389 , p10_a16
390 , p10_a17
391 , p10_a18
392 , p10_a19
393 , p10_a20
394 , p10_a21
395 , p10_a22
396 , p10_a23
397 , p10_a24
398 , p10_a25
399 , p10_a26
400 , p10_a27
401 , p10_a28
402 , p10_a29
403 );
404 end;
405
406 end ahl_rm_prod_zone_as_pvt_w;