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_DI_ASSO_DOC_GEN_PUB_W

Source


1 package body ahl_di_asso_doc_gen_pub_w as
2   /* $Header: AHLWDAGB.pls 115.1 2003/07/02 14:00:44 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_asso_doc_gen_pub.association_tbl, a0 JTF_NUMBER_TABLE
14     , a1 JTF_NUMBER_TABLE
15     , a2 JTF_VARCHAR2_TABLE_100
16     , a3 JTF_NUMBER_TABLE
17     , a4 JTF_VARCHAR2_TABLE_100
18     , a5 JTF_VARCHAR2_TABLE_100
19     , a6 JTF_VARCHAR2_TABLE_100
20     , a7 JTF_VARCHAR2_TABLE_100
21     , a8 JTF_NUMBER_TABLE
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_300
27     , a14 JTF_VARCHAR2_TABLE_100
28     , a15 JTF_VARCHAR2_TABLE_100
29     , a16 JTF_VARCHAR2_TABLE_2000
30     , a17 JTF_VARCHAR2_TABLE_100
31     , a18 JTF_VARCHAR2_TABLE_100
32     , a19 JTF_NUMBER_TABLE
33     , a20 JTF_VARCHAR2_TABLE_100
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_200
43     , a30 JTF_VARCHAR2_TABLE_200
44     , a31 JTF_VARCHAR2_TABLE_200
45     , a32 JTF_VARCHAR2_TABLE_200
46     , a33 JTF_VARCHAR2_TABLE_200
47     , a34 JTF_VARCHAR2_TABLE_200
48     , a35 JTF_VARCHAR2_TABLE_200
49     , a36 JTF_VARCHAR2_TABLE_100
50     ) as
51     ddindx binary_integer; indx binary_integer;
52   begin
53   if a0 is not null and a0.count > 0 then
54       if a0.count > 0 then
55         indx := a0.first;
56         ddindx := 1;
57         while true loop
58           t(ddindx).doc_title_asso_id := a0(indx);
59           t(ddindx).document_id := a1(indx);
60           t(ddindx).document_no := a2(indx);
61           t(ddindx).doc_revision_id := a3(indx);
62           t(ddindx).revision_no := a4(indx);
63           t(ddindx).use_latest_rev_flag := a5(indx);
64           t(ddindx).aso_object_type_code := a6(indx);
65           t(ddindx).aso_object_desc := a7(indx);
66           t(ddindx).aso_object_id := a8(indx);
67           t(ddindx).serial_no := a9(indx);
68           t(ddindx).source_lang := a10(indx);
69           t(ddindx).chapter := a11(indx);
70           t(ddindx).section := a12(indx);
71           t(ddindx).subject := a13(indx);
72           t(ddindx).page := a14(indx);
73           t(ddindx).figure := a15(indx);
74           t(ddindx).note := a16(indx);
75           t(ddindx).source_ref_code := a17(indx);
76           t(ddindx).source_ref_mean := a18(indx);
77           t(ddindx).object_version_number := a19(indx);
78           t(ddindx).attribute_category := a20(indx);
79           t(ddindx).attribute1 := a21(indx);
80           t(ddindx).attribute2 := a22(indx);
81           t(ddindx).attribute3 := a23(indx);
82           t(ddindx).attribute4 := a24(indx);
83           t(ddindx).attribute5 := a25(indx);
84           t(ddindx).attribute6 := a26(indx);
85           t(ddindx).attribute7 := a27(indx);
86           t(ddindx).attribute8 := a28(indx);
87           t(ddindx).attribute9 := a29(indx);
88           t(ddindx).attribute10 := a30(indx);
89           t(ddindx).attribute11 := a31(indx);
90           t(ddindx).attribute12 := a32(indx);
91           t(ddindx).attribute13 := a33(indx);
92           t(ddindx).attribute14 := a34(indx);
93           t(ddindx).attribute15 := a35(indx);
94           t(ddindx).dml_operation := a36(indx);
95           ddindx := ddindx+1;
96           if a0.last =indx
97             then exit;
98           end if;
99           indx := a0.next(indx);
100         end loop;
101       end if;
102    end if;
103   end rosetta_table_copy_in_p1;
104   procedure rosetta_table_copy_out_p1(t ahl_di_asso_doc_gen_pub.association_tbl, a0 out nocopy JTF_NUMBER_TABLE
105     , a1 out nocopy JTF_NUMBER_TABLE
106     , a2 out nocopy JTF_VARCHAR2_TABLE_100
107     , a3 out nocopy JTF_NUMBER_TABLE
108     , a4 out nocopy JTF_VARCHAR2_TABLE_100
109     , a5 out nocopy JTF_VARCHAR2_TABLE_100
110     , a6 out nocopy JTF_VARCHAR2_TABLE_100
111     , a7 out nocopy JTF_VARCHAR2_TABLE_100
112     , a8 out nocopy JTF_NUMBER_TABLE
113     , a9 out nocopy JTF_VARCHAR2_TABLE_100
114     , a10 out nocopy JTF_VARCHAR2_TABLE_100
115     , a11 out nocopy JTF_VARCHAR2_TABLE_100
116     , a12 out nocopy JTF_VARCHAR2_TABLE_100
117     , a13 out nocopy JTF_VARCHAR2_TABLE_300
118     , a14 out nocopy JTF_VARCHAR2_TABLE_100
119     , a15 out nocopy JTF_VARCHAR2_TABLE_100
120     , a16 out nocopy JTF_VARCHAR2_TABLE_2000
121     , a17 out nocopy JTF_VARCHAR2_TABLE_100
122     , a18 out nocopy JTF_VARCHAR2_TABLE_100
123     , a19 out nocopy JTF_NUMBER_TABLE
124     , a20 out nocopy JTF_VARCHAR2_TABLE_100
125     , a21 out nocopy JTF_VARCHAR2_TABLE_200
126     , a22 out nocopy JTF_VARCHAR2_TABLE_200
127     , a23 out nocopy JTF_VARCHAR2_TABLE_200
128     , a24 out nocopy JTF_VARCHAR2_TABLE_200
129     , a25 out nocopy JTF_VARCHAR2_TABLE_200
130     , a26 out nocopy JTF_VARCHAR2_TABLE_200
131     , a27 out nocopy JTF_VARCHAR2_TABLE_200
132     , a28 out nocopy JTF_VARCHAR2_TABLE_200
133     , a29 out nocopy JTF_VARCHAR2_TABLE_200
134     , a30 out nocopy JTF_VARCHAR2_TABLE_200
135     , a31 out nocopy JTF_VARCHAR2_TABLE_200
136     , a32 out nocopy JTF_VARCHAR2_TABLE_200
137     , a33 out nocopy JTF_VARCHAR2_TABLE_200
138     , a34 out nocopy JTF_VARCHAR2_TABLE_200
139     , a35 out nocopy JTF_VARCHAR2_TABLE_200
140     , a36 out nocopy JTF_VARCHAR2_TABLE_100
141     ) as
142     ddindx binary_integer; indx binary_integer;
143   begin
144   if t is null or t.count = 0 then
145     a0 := JTF_NUMBER_TABLE();
146     a1 := JTF_NUMBER_TABLE();
147     a2 := JTF_VARCHAR2_TABLE_100();
148     a3 := JTF_NUMBER_TABLE();
149     a4 := JTF_VARCHAR2_TABLE_100();
150     a5 := JTF_VARCHAR2_TABLE_100();
151     a6 := JTF_VARCHAR2_TABLE_100();
152     a7 := JTF_VARCHAR2_TABLE_100();
153     a8 := JTF_NUMBER_TABLE();
154     a9 := JTF_VARCHAR2_TABLE_100();
155     a10 := JTF_VARCHAR2_TABLE_100();
156     a11 := JTF_VARCHAR2_TABLE_100();
157     a12 := JTF_VARCHAR2_TABLE_100();
158     a13 := JTF_VARCHAR2_TABLE_300();
159     a14 := JTF_VARCHAR2_TABLE_100();
160     a15 := JTF_VARCHAR2_TABLE_100();
161     a16 := JTF_VARCHAR2_TABLE_2000();
162     a17 := JTF_VARCHAR2_TABLE_100();
163     a18 := JTF_VARCHAR2_TABLE_100();
164     a19 := JTF_NUMBER_TABLE();
165     a20 := JTF_VARCHAR2_TABLE_100();
166     a21 := JTF_VARCHAR2_TABLE_200();
167     a22 := JTF_VARCHAR2_TABLE_200();
168     a23 := JTF_VARCHAR2_TABLE_200();
169     a24 := JTF_VARCHAR2_TABLE_200();
170     a25 := JTF_VARCHAR2_TABLE_200();
171     a26 := JTF_VARCHAR2_TABLE_200();
172     a27 := JTF_VARCHAR2_TABLE_200();
173     a28 := JTF_VARCHAR2_TABLE_200();
174     a29 := JTF_VARCHAR2_TABLE_200();
175     a30 := JTF_VARCHAR2_TABLE_200();
176     a31 := JTF_VARCHAR2_TABLE_200();
177     a32 := JTF_VARCHAR2_TABLE_200();
178     a33 := JTF_VARCHAR2_TABLE_200();
179     a34 := JTF_VARCHAR2_TABLE_200();
180     a35 := JTF_VARCHAR2_TABLE_200();
181     a36 := JTF_VARCHAR2_TABLE_100();
182   else
183       a0 := JTF_NUMBER_TABLE();
184       a1 := JTF_NUMBER_TABLE();
185       a2 := JTF_VARCHAR2_TABLE_100();
186       a3 := JTF_NUMBER_TABLE();
187       a4 := JTF_VARCHAR2_TABLE_100();
188       a5 := JTF_VARCHAR2_TABLE_100();
189       a6 := JTF_VARCHAR2_TABLE_100();
190       a7 := JTF_VARCHAR2_TABLE_100();
191       a8 := JTF_NUMBER_TABLE();
192       a9 := JTF_VARCHAR2_TABLE_100();
193       a10 := JTF_VARCHAR2_TABLE_100();
194       a11 := JTF_VARCHAR2_TABLE_100();
195       a12 := JTF_VARCHAR2_TABLE_100();
196       a13 := JTF_VARCHAR2_TABLE_300();
197       a14 := JTF_VARCHAR2_TABLE_100();
198       a15 := JTF_VARCHAR2_TABLE_100();
199       a16 := JTF_VARCHAR2_TABLE_2000();
200       a17 := JTF_VARCHAR2_TABLE_100();
201       a18 := JTF_VARCHAR2_TABLE_100();
202       a19 := JTF_NUMBER_TABLE();
203       a20 := JTF_VARCHAR2_TABLE_100();
204       a21 := JTF_VARCHAR2_TABLE_200();
205       a22 := JTF_VARCHAR2_TABLE_200();
206       a23 := JTF_VARCHAR2_TABLE_200();
207       a24 := JTF_VARCHAR2_TABLE_200();
208       a25 := JTF_VARCHAR2_TABLE_200();
209       a26 := JTF_VARCHAR2_TABLE_200();
210       a27 := JTF_VARCHAR2_TABLE_200();
211       a28 := JTF_VARCHAR2_TABLE_200();
212       a29 := JTF_VARCHAR2_TABLE_200();
213       a30 := JTF_VARCHAR2_TABLE_200();
214       a31 := JTF_VARCHAR2_TABLE_200();
215       a32 := JTF_VARCHAR2_TABLE_200();
216       a33 := JTF_VARCHAR2_TABLE_200();
217       a34 := JTF_VARCHAR2_TABLE_200();
218       a35 := JTF_VARCHAR2_TABLE_200();
219       a36 := JTF_VARCHAR2_TABLE_100();
220       if t.count > 0 then
221         a0.extend(t.count);
222         a1.extend(t.count);
223         a2.extend(t.count);
224         a3.extend(t.count);
225         a4.extend(t.count);
226         a5.extend(t.count);
227         a6.extend(t.count);
228         a7.extend(t.count);
229         a8.extend(t.count);
230         a9.extend(t.count);
231         a10.extend(t.count);
232         a11.extend(t.count);
233         a12.extend(t.count);
234         a13.extend(t.count);
235         a14.extend(t.count);
236         a15.extend(t.count);
237         a16.extend(t.count);
238         a17.extend(t.count);
239         a18.extend(t.count);
240         a19.extend(t.count);
241         a20.extend(t.count);
242         a21.extend(t.count);
243         a22.extend(t.count);
244         a23.extend(t.count);
245         a24.extend(t.count);
246         a25.extend(t.count);
247         a26.extend(t.count);
248         a27.extend(t.count);
249         a28.extend(t.count);
250         a29.extend(t.count);
251         a30.extend(t.count);
252         a31.extend(t.count);
253         a32.extend(t.count);
254         a33.extend(t.count);
255         a34.extend(t.count);
256         a35.extend(t.count);
257         a36.extend(t.count);
258         ddindx := t.first;
259         indx := 1;
260         while true loop
261           a0(indx) := t(ddindx).doc_title_asso_id;
262           a1(indx) := t(ddindx).document_id;
263           a2(indx) := t(ddindx).document_no;
264           a3(indx) := t(ddindx).doc_revision_id;
265           a4(indx) := t(ddindx).revision_no;
266           a5(indx) := t(ddindx).use_latest_rev_flag;
267           a6(indx) := t(ddindx).aso_object_type_code;
268           a7(indx) := t(ddindx).aso_object_desc;
269           a8(indx) := t(ddindx).aso_object_id;
270           a9(indx) := t(ddindx).serial_no;
271           a10(indx) := t(ddindx).source_lang;
272           a11(indx) := t(ddindx).chapter;
273           a12(indx) := t(ddindx).section;
274           a13(indx) := t(ddindx).subject;
275           a14(indx) := t(ddindx).page;
276           a15(indx) := t(ddindx).figure;
277           a16(indx) := t(ddindx).note;
278           a17(indx) := t(ddindx).source_ref_code;
279           a18(indx) := t(ddindx).source_ref_mean;
280           a19(indx) := t(ddindx).object_version_number;
281           a20(indx) := t(ddindx).attribute_category;
282           a21(indx) := t(ddindx).attribute1;
283           a22(indx) := t(ddindx).attribute2;
284           a23(indx) := t(ddindx).attribute3;
285           a24(indx) := t(ddindx).attribute4;
286           a25(indx) := t(ddindx).attribute5;
287           a26(indx) := t(ddindx).attribute6;
288           a27(indx) := t(ddindx).attribute7;
289           a28(indx) := t(ddindx).attribute8;
290           a29(indx) := t(ddindx).attribute9;
291           a30(indx) := t(ddindx).attribute10;
292           a31(indx) := t(ddindx).attribute11;
293           a32(indx) := t(ddindx).attribute12;
294           a33(indx) := t(ddindx).attribute13;
295           a34(indx) := t(ddindx).attribute14;
296           a35(indx) := t(ddindx).attribute15;
297           a36(indx) := t(ddindx).dml_operation;
298           indx := indx+1;
299           if t.last =ddindx
300             then exit;
301           end if;
302           ddindx := t.next(ddindx);
303         end loop;
304       end if;
305    end if;
306   end rosetta_table_copy_out_p1;
307 
308   procedure process_association(p_api_version  NUMBER
309     , p_init_msg_list  VARCHAR2
310     , p_commit  VARCHAR2
311     , p_validation_level  NUMBER
312     , p_validate_only  VARCHAR2
313     , p_module_type  VARCHAR2
314     , x_return_status out nocopy  VARCHAR2
315     , x_msg_count out nocopy  NUMBER
316     , x_msg_data out nocopy  VARCHAR2
317     , p9_a0 in out nocopy JTF_NUMBER_TABLE
318     , p9_a1 in out nocopy JTF_NUMBER_TABLE
319     , p9_a2 in out nocopy JTF_VARCHAR2_TABLE_100
320     , p9_a3 in out nocopy JTF_NUMBER_TABLE
321     , p9_a4 in out nocopy JTF_VARCHAR2_TABLE_100
322     , p9_a5 in out nocopy JTF_VARCHAR2_TABLE_100
323     , p9_a6 in out nocopy JTF_VARCHAR2_TABLE_100
324     , p9_a7 in out nocopy JTF_VARCHAR2_TABLE_100
325     , p9_a8 in out nocopy JTF_NUMBER_TABLE
326     , p9_a9 in out nocopy JTF_VARCHAR2_TABLE_100
327     , p9_a10 in out nocopy JTF_VARCHAR2_TABLE_100
328     , p9_a11 in out nocopy JTF_VARCHAR2_TABLE_100
329     , p9_a12 in out nocopy JTF_VARCHAR2_TABLE_100
330     , p9_a13 in out nocopy JTF_VARCHAR2_TABLE_300
331     , p9_a14 in out nocopy JTF_VARCHAR2_TABLE_100
332     , p9_a15 in out nocopy JTF_VARCHAR2_TABLE_100
333     , p9_a16 in out nocopy JTF_VARCHAR2_TABLE_2000
334     , p9_a17 in out nocopy JTF_VARCHAR2_TABLE_100
335     , p9_a18 in out nocopy JTF_VARCHAR2_TABLE_100
336     , p9_a19 in out nocopy JTF_NUMBER_TABLE
337     , p9_a20 in out nocopy JTF_VARCHAR2_TABLE_100
338     , p9_a21 in out nocopy JTF_VARCHAR2_TABLE_200
339     , p9_a22 in out nocopy JTF_VARCHAR2_TABLE_200
340     , p9_a23 in out nocopy JTF_VARCHAR2_TABLE_200
341     , p9_a24 in out nocopy JTF_VARCHAR2_TABLE_200
342     , p9_a25 in out nocopy JTF_VARCHAR2_TABLE_200
343     , p9_a26 in out nocopy JTF_VARCHAR2_TABLE_200
344     , p9_a27 in out nocopy JTF_VARCHAR2_TABLE_200
345     , p9_a28 in out nocopy JTF_VARCHAR2_TABLE_200
346     , p9_a29 in out nocopy JTF_VARCHAR2_TABLE_200
347     , p9_a30 in out nocopy JTF_VARCHAR2_TABLE_200
348     , p9_a31 in out nocopy JTF_VARCHAR2_TABLE_200
349     , p9_a32 in out nocopy JTF_VARCHAR2_TABLE_200
350     , p9_a33 in out nocopy JTF_VARCHAR2_TABLE_200
351     , p9_a34 in out nocopy JTF_VARCHAR2_TABLE_200
352     , p9_a35 in out nocopy JTF_VARCHAR2_TABLE_200
353     , p9_a36 in out nocopy JTF_VARCHAR2_TABLE_100
354   )
355 
356   as
357     ddp_x_association_tbl ahl_di_asso_doc_gen_pub.association_tbl;
358     ddindx binary_integer; indx binary_integer;
359   begin
360 
361     -- copy data to the local IN or IN-OUT args, if any
362 
363 
364 
365 
366 
367 
368 
369 
370 
371     ahl_di_asso_doc_gen_pub_w.rosetta_table_copy_in_p1(ddp_x_association_tbl, p9_a0
372       , p9_a1
373       , p9_a2
374       , p9_a3
375       , p9_a4
376       , p9_a5
377       , p9_a6
378       , p9_a7
379       , p9_a8
380       , p9_a9
381       , p9_a10
382       , p9_a11
383       , p9_a12
384       , p9_a13
385       , p9_a14
386       , p9_a15
387       , p9_a16
388       , p9_a17
389       , p9_a18
390       , p9_a19
391       , p9_a20
392       , p9_a21
393       , p9_a22
394       , p9_a23
395       , p9_a24
396       , p9_a25
397       , p9_a26
398       , p9_a27
399       , p9_a28
400       , p9_a29
401       , p9_a30
402       , p9_a31
403       , p9_a32
404       , p9_a33
405       , p9_a34
406       , p9_a35
407       , p9_a36
408       );
409 
410     -- here's the delegated call to the old PL/SQL routine
411     ahl_di_asso_doc_gen_pub.process_association(p_api_version,
412       p_init_msg_list,
413       p_commit,
414       p_validation_level,
415       p_validate_only,
416       p_module_type,
417       x_return_status,
418       x_msg_count,
419       x_msg_data,
420       ddp_x_association_tbl);
421 
422     -- copy data back from the local variables to OUT or IN-OUT args, if any
423 
424 
425 
426 
427 
428 
429 
430 
431 
432     ahl_di_asso_doc_gen_pub_w.rosetta_table_copy_out_p1(ddp_x_association_tbl, p9_a0
433       , p9_a1
434       , p9_a2
435       , p9_a3
436       , p9_a4
437       , p9_a5
438       , p9_a6
439       , p9_a7
440       , p9_a8
441       , p9_a9
442       , p9_a10
443       , p9_a11
444       , p9_a12
445       , p9_a13
446       , p9_a14
447       , p9_a15
448       , p9_a16
449       , p9_a17
450       , p9_a18
451       , p9_a19
452       , p9_a20
453       , p9_a21
454       , p9_a22
455       , p9_a23
456       , p9_a24
457       , p9_a25
458       , p9_a26
459       , p9_a27
460       , p9_a28
461       , p9_a29
462       , p9_a30
463       , p9_a31
464       , p9_a32
465       , p9_a33
466       , p9_a34
467       , p9_a35
468       , p9_a36
469       );
470   end;
471 
472 end ahl_di_asso_doc_gen_pub_w;