[Home] [Help]
PACKAGE BODY: APPS.AHL_DI_PRO_TYPE_ASO_PUB_W
Source
1 package body ahl_di_pro_type_aso_pub_w as
2 /* $Header: AHLPTAWB.pls 115.7 2002/12/03 12:30:16 pbarman 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_di_pro_type_aso_pub.doc_type_assoc_tbl, a0 JTF_NUMBER_TABLE
14 , a1 JTF_VARCHAR2_TABLE_100
15 , a2 JTF_VARCHAR2_TABLE_100
16 , a3 JTF_VARCHAR2_TABLE_100
17 , a4 JTF_VARCHAR2_TABLE_100
18 , a5 JTF_VARCHAR2_TABLE_100
19 , a6 JTF_VARCHAR2_TABLE_200
20 , a7 JTF_VARCHAR2_TABLE_200
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_NUMBER_TABLE
35 , a22 JTF_VARCHAR2_TABLE_100
36 ) as
37 ddindx binary_integer; indx binary_integer;
38 begin
39 if a0 is not null and a0.count > 0 then
40 if a0.count > 0 then
41 indx := a0.first;
42 ddindx := 1;
43 while true loop
44 t(ddindx).document_sub_type_id := a0(indx);
45 t(ddindx).doc_type_code := a1(indx);
46 t(ddindx).doc_type_desc := a2(indx);
47 t(ddindx).doc_sub_type_code := a3(indx);
48 t(ddindx).doc_sub_type_desc := a4(indx);
49 t(ddindx).attribute_category := a5(indx);
50 t(ddindx).attribute1 := a6(indx);
51 t(ddindx).attribute2 := a7(indx);
52 t(ddindx).attribute3 := a8(indx);
53 t(ddindx).attribute4 := a9(indx);
54 t(ddindx).attribute5 := a10(indx);
55 t(ddindx).attribute6 := a11(indx);
56 t(ddindx).attribute7 := a12(indx);
57 t(ddindx).attribute8 := a13(indx);
58 t(ddindx).attribute9 := a14(indx);
59 t(ddindx).attribute10 := a15(indx);
60 t(ddindx).attribute11 := a16(indx);
61 t(ddindx).attribute12 := a17(indx);
62 t(ddindx).attribute13 := a18(indx);
63 t(ddindx).attribute14 := a19(indx);
64 t(ddindx).attribute15 := a20(indx);
65 t(ddindx).object_version_number := a21(indx);
66 t(ddindx).delete_flag := a22(indx);
67 ddindx := ddindx+1;
68 if a0.last =indx
69 then exit;
70 end if;
71 indx := a0.next(indx);
72 end loop;
73 end if;
74 end if;
75 end rosetta_table_copy_in_p1;
76 procedure rosetta_table_copy_out_p1(t ahl_di_pro_type_aso_pub.doc_type_assoc_tbl, a0 out nocopy JTF_NUMBER_TABLE
77 , a1 out nocopy JTF_VARCHAR2_TABLE_100
78 , a2 out nocopy JTF_VARCHAR2_TABLE_100
79 , a3 out nocopy JTF_VARCHAR2_TABLE_100
80 , a4 out nocopy JTF_VARCHAR2_TABLE_100
81 , a5 out nocopy JTF_VARCHAR2_TABLE_100
82 , a6 out nocopy JTF_VARCHAR2_TABLE_200
83 , a7 out nocopy JTF_VARCHAR2_TABLE_200
84 , a8 out nocopy JTF_VARCHAR2_TABLE_200
85 , a9 out nocopy JTF_VARCHAR2_TABLE_200
86 , a10 out nocopy JTF_VARCHAR2_TABLE_200
87 , a11 out nocopy JTF_VARCHAR2_TABLE_200
88 , a12 out nocopy JTF_VARCHAR2_TABLE_200
89 , a13 out nocopy JTF_VARCHAR2_TABLE_200
90 , a14 out nocopy JTF_VARCHAR2_TABLE_200
91 , a15 out nocopy JTF_VARCHAR2_TABLE_200
92 , a16 out nocopy JTF_VARCHAR2_TABLE_200
93 , a17 out nocopy JTF_VARCHAR2_TABLE_200
94 , a18 out nocopy JTF_VARCHAR2_TABLE_200
95 , a19 out nocopy JTF_VARCHAR2_TABLE_200
96 , a20 out nocopy JTF_VARCHAR2_TABLE_200
97 , a21 out nocopy JTF_NUMBER_TABLE
98 , a22 out nocopy JTF_VARCHAR2_TABLE_100
99 ) as
100 ddindx binary_integer; indx binary_integer;
101 begin
102 if t is null or t.count = 0 then
103 a0 := JTF_NUMBER_TABLE();
104 a1 := JTF_VARCHAR2_TABLE_100();
105 a2 := JTF_VARCHAR2_TABLE_100();
106 a3 := JTF_VARCHAR2_TABLE_100();
107 a4 := JTF_VARCHAR2_TABLE_100();
108 a5 := JTF_VARCHAR2_TABLE_100();
109 a6 := JTF_VARCHAR2_TABLE_200();
110 a7 := JTF_VARCHAR2_TABLE_200();
111 a8 := JTF_VARCHAR2_TABLE_200();
112 a9 := JTF_VARCHAR2_TABLE_200();
113 a10 := JTF_VARCHAR2_TABLE_200();
114 a11 := JTF_VARCHAR2_TABLE_200();
115 a12 := JTF_VARCHAR2_TABLE_200();
116 a13 := JTF_VARCHAR2_TABLE_200();
117 a14 := JTF_VARCHAR2_TABLE_200();
118 a15 := JTF_VARCHAR2_TABLE_200();
119 a16 := JTF_VARCHAR2_TABLE_200();
120 a17 := JTF_VARCHAR2_TABLE_200();
121 a18 := JTF_VARCHAR2_TABLE_200();
122 a19 := JTF_VARCHAR2_TABLE_200();
123 a20 := JTF_VARCHAR2_TABLE_200();
124 a21 := JTF_NUMBER_TABLE();
125 a22 := JTF_VARCHAR2_TABLE_100();
126 else
127 a0 := JTF_NUMBER_TABLE();
128 a1 := JTF_VARCHAR2_TABLE_100();
129 a2 := JTF_VARCHAR2_TABLE_100();
130 a3 := JTF_VARCHAR2_TABLE_100();
131 a4 := JTF_VARCHAR2_TABLE_100();
132 a5 := JTF_VARCHAR2_TABLE_100();
133 a6 := JTF_VARCHAR2_TABLE_200();
134 a7 := JTF_VARCHAR2_TABLE_200();
135 a8 := JTF_VARCHAR2_TABLE_200();
136 a9 := JTF_VARCHAR2_TABLE_200();
137 a10 := JTF_VARCHAR2_TABLE_200();
138 a11 := JTF_VARCHAR2_TABLE_200();
139 a12 := JTF_VARCHAR2_TABLE_200();
140 a13 := JTF_VARCHAR2_TABLE_200();
141 a14 := JTF_VARCHAR2_TABLE_200();
142 a15 := JTF_VARCHAR2_TABLE_200();
143 a16 := JTF_VARCHAR2_TABLE_200();
144 a17 := JTF_VARCHAR2_TABLE_200();
145 a18 := JTF_VARCHAR2_TABLE_200();
146 a19 := JTF_VARCHAR2_TABLE_200();
147 a20 := JTF_VARCHAR2_TABLE_200();
148 a21 := JTF_NUMBER_TABLE();
149 a22 := JTF_VARCHAR2_TABLE_100();
150 if t.count > 0 then
151 a0.extend(t.count);
152 a1.extend(t.count);
153 a2.extend(t.count);
154 a3.extend(t.count);
155 a4.extend(t.count);
156 a5.extend(t.count);
157 a6.extend(t.count);
158 a7.extend(t.count);
159 a8.extend(t.count);
160 a9.extend(t.count);
161 a10.extend(t.count);
162 a11.extend(t.count);
163 a12.extend(t.count);
164 a13.extend(t.count);
165 a14.extend(t.count);
166 a15.extend(t.count);
167 a16.extend(t.count);
168 a17.extend(t.count);
169 a18.extend(t.count);
170 a19.extend(t.count);
171 a20.extend(t.count);
172 a21.extend(t.count);
173 a22.extend(t.count);
174 ddindx := t.first;
175 indx := 1;
176 while true loop
177 a0(indx) := t(ddindx).document_sub_type_id;
178 a1(indx) := t(ddindx).doc_type_code;
179 a2(indx) := t(ddindx).doc_type_desc;
180 a3(indx) := t(ddindx).doc_sub_type_code;
181 a4(indx) := t(ddindx).doc_sub_type_desc;
182 a5(indx) := t(ddindx).attribute_category;
183 a6(indx) := t(ddindx).attribute1;
184 a7(indx) := t(ddindx).attribute2;
185 a8(indx) := t(ddindx).attribute3;
186 a9(indx) := t(ddindx).attribute4;
187 a10(indx) := t(ddindx).attribute5;
188 a11(indx) := t(ddindx).attribute6;
189 a12(indx) := t(ddindx).attribute7;
190 a13(indx) := t(ddindx).attribute8;
191 a14(indx) := t(ddindx).attribute9;
192 a15(indx) := t(ddindx).attribute10;
193 a16(indx) := t(ddindx).attribute11;
194 a17(indx) := t(ddindx).attribute12;
195 a18(indx) := t(ddindx).attribute13;
196 a19(indx) := t(ddindx).attribute14;
197 a20(indx) := t(ddindx).attribute15;
198 a21(indx) := t(ddindx).object_version_number;
199 a22(indx) := t(ddindx).delete_flag;
200 indx := indx+1;
201 if t.last =ddindx
202 then exit;
203 end if;
204 ddindx := t.next(ddindx);
205 end loop;
206 end if;
207 end if;
208 end rosetta_table_copy_out_p1;
209
210 procedure create_doc_type_assoc(p_api_version NUMBER
211 , p_init_msg_list VARCHAR2
212 , p_commit VARCHAR2
213 , p_validate_only VARCHAR2
214 , p_validation_level NUMBER
215 , p5_a0 in out nocopy JTF_NUMBER_TABLE
216 , p5_a1 in out nocopy JTF_VARCHAR2_TABLE_100
217 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
218 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
219 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
220 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
221 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_200
222 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_200
223 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_200
224 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_200
225 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_200
226 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_200
227 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_200
228 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_200
229 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_200
230 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_200
231 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_200
232 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_200
233 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_200
234 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
235 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_200
236 , p5_a21 in out nocopy JTF_NUMBER_TABLE
237 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_100
238 , p_module_type VARCHAR2
239 , x_return_status out nocopy VARCHAR2
240 , x_msg_count out nocopy NUMBER
241 , x_msg_data out nocopy VARCHAR2
242 )
243
244 as
245 ddp_x_doc_type_assoc_tbl ahl_di_pro_type_aso_pub.doc_type_assoc_tbl;
246 ddindx binary_integer; indx binary_integer;
247 begin
248
249 -- copy data to the local IN or IN-OUT args, if any
250
251
252
253
254
255 ahl_di_pro_type_aso_pub_w.rosetta_table_copy_in_p1(ddp_x_doc_type_assoc_tbl, p5_a0
256 , p5_a1
257 , p5_a2
258 , p5_a3
259 , p5_a4
260 , p5_a5
261 , p5_a6
262 , p5_a7
263 , p5_a8
264 , p5_a9
265 , p5_a10
266 , p5_a11
267 , p5_a12
268 , p5_a13
269 , p5_a14
270 , p5_a15
271 , p5_a16
272 , p5_a17
273 , p5_a18
274 , p5_a19
275 , p5_a20
276 , p5_a21
277 , p5_a22
278 );
279
280
281
282
283
284 -- here's the delegated call to the old PL/SQL routine
285 ahl_di_pro_type_aso_pub.create_doc_type_assoc(p_api_version,
286 p_init_msg_list,
287 p_commit,
288 p_validate_only,
289 p_validation_level,
290 ddp_x_doc_type_assoc_tbl,
291 p_module_type,
292 x_return_status,
293 x_msg_count,
294 x_msg_data);
295
296 -- copy data back from the local variables to OUT or IN-OUT args, if any
297
298
299
300
301
302 ahl_di_pro_type_aso_pub_w.rosetta_table_copy_out_p1(ddp_x_doc_type_assoc_tbl, p5_a0
303 , p5_a1
304 , p5_a2
305 , p5_a3
306 , p5_a4
307 , p5_a5
308 , p5_a6
309 , p5_a7
310 , p5_a8
311 , p5_a9
312 , p5_a10
313 , p5_a11
314 , p5_a12
315 , p5_a13
316 , p5_a14
317 , p5_a15
318 , p5_a16
319 , p5_a17
320 , p5_a18
321 , p5_a19
322 , p5_a20
323 , p5_a21
324 , p5_a22
325 );
326
327
328
329
330 end;
331
332 procedure modify_doc_type_assoc(p_api_version NUMBER
333 , p_init_msg_list VARCHAR2
334 , p_commit VARCHAR2
335 , p_validate_only VARCHAR2
336 , p_validation_level NUMBER
337 , p5_a0 in out nocopy JTF_NUMBER_TABLE
338 , p5_a1 in out nocopy JTF_VARCHAR2_TABLE_100
339 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_100
340 , p5_a3 in out nocopy JTF_VARCHAR2_TABLE_100
341 , p5_a4 in out nocopy JTF_VARCHAR2_TABLE_100
342 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
343 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_200
344 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_200
345 , p5_a8 in out nocopy JTF_VARCHAR2_TABLE_200
346 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_200
347 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_200
348 , p5_a11 in out nocopy JTF_VARCHAR2_TABLE_200
349 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_200
350 , p5_a13 in out nocopy JTF_VARCHAR2_TABLE_200
351 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_200
352 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_200
353 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_200
354 , p5_a17 in out nocopy JTF_VARCHAR2_TABLE_200
355 , p5_a18 in out nocopy JTF_VARCHAR2_TABLE_200
356 , p5_a19 in out nocopy JTF_VARCHAR2_TABLE_200
357 , p5_a20 in out nocopy JTF_VARCHAR2_TABLE_200
358 , p5_a21 in out nocopy JTF_NUMBER_TABLE
359 , p5_a22 in out nocopy JTF_VARCHAR2_TABLE_100
360 , p_module_type VARCHAR2
361 , x_return_status out nocopy VARCHAR2
362 , x_msg_count out nocopy NUMBER
363 , x_msg_data out nocopy VARCHAR2
364 )
365
366 as
367 ddp_x_doc_type_assoc_tbl ahl_di_pro_type_aso_pub.doc_type_assoc_tbl;
368 ddindx binary_integer; indx binary_integer;
369 begin
370
371 -- copy data to the local IN or IN-OUT args, if any
372
373
374
375
376
377 ahl_di_pro_type_aso_pub_w.rosetta_table_copy_in_p1(ddp_x_doc_type_assoc_tbl, p5_a0
378 , p5_a1
379 , p5_a2
380 , p5_a3
381 , p5_a4
382 , p5_a5
383 , p5_a6
384 , p5_a7
385 , p5_a8
386 , p5_a9
387 , p5_a10
388 , p5_a11
389 , p5_a12
390 , p5_a13
391 , p5_a14
392 , p5_a15
393 , p5_a16
394 , p5_a17
395 , p5_a18
396 , p5_a19
397 , p5_a20
398 , p5_a21
399 , p5_a22
400 );
401
402
403
404
405
409 p_commit,
406 -- here's the delegated call to the old PL/SQL routine
407 ahl_di_pro_type_aso_pub.modify_doc_type_assoc(p_api_version,
408 p_init_msg_list,
410 p_validate_only,
411 p_validation_level,
412 ddp_x_doc_type_assoc_tbl,
413 p_module_type,
414 x_return_status,
415 x_msg_count,
416 x_msg_data);
417
418 -- copy data back from the local variables to OUT or IN-OUT args, if any
419
420
421
422
423
424 ahl_di_pro_type_aso_pub_w.rosetta_table_copy_out_p1(ddp_x_doc_type_assoc_tbl, p5_a0
425 , p5_a1
426 , p5_a2
427 , p5_a3
428 , p5_a4
429 , p5_a5
430 , p5_a6
431 , p5_a7
432 , p5_a8
433 , p5_a9
434 , p5_a10
435 , p5_a11
436 , p5_a12
437 , p5_a13
438 , p5_a14
439 , p5_a15
440 , p5_a16
441 , p5_a17
442 , p5_a18
443 , p5_a19
444 , p5_a20
445 , p5_a21
446 , p5_a22
447 );
448
449
450
451
452 end;
453
454 end ahl_di_pro_type_aso_pub_w;