[Home] [Help]
PACKAGE BODY: APPS.QP_QUALIFIER_RULES_PUB_OA
Source
1 package body qp_qualifier_rules_pub_oa as
2 /* $Header: ozfaqprb.pls 120.0 2005/08/31 09:43 gramanat noship $ */
3 procedure rosetta_table_copy_in_p1(t out nocopy qp_qualifier_rules_pub.qualifiers_tbl_type, a0 JTF_VARCHAR2_TABLE_300
4 , a1 JTF_VARCHAR2_TABLE_300
5 , a2 JTF_VARCHAR2_TABLE_300
6 , a3 JTF_VARCHAR2_TABLE_300
7 , a4 JTF_VARCHAR2_TABLE_300
8 , a5 JTF_VARCHAR2_TABLE_300
9 , a6 JTF_VARCHAR2_TABLE_300
10 , a7 JTF_VARCHAR2_TABLE_300
11 , a8 JTF_VARCHAR2_TABLE_300
12 , a9 JTF_VARCHAR2_TABLE_300
13 , a10 JTF_VARCHAR2_TABLE_300
14 , a11 JTF_VARCHAR2_TABLE_300
15 , a12 JTF_VARCHAR2_TABLE_300
16 , a13 JTF_VARCHAR2_TABLE_300
17 , a14 JTF_VARCHAR2_TABLE_300
18 , a15 JTF_VARCHAR2_TABLE_100
19 , a16 JTF_VARCHAR2_TABLE_100
20 , a17 JTF_NUMBER_TABLE
21 , a18 JTF_NUMBER_TABLE
22 , a19 JTF_DATE_TABLE
23 , a20 JTF_DATE_TABLE
24 , a21 JTF_VARCHAR2_TABLE_100
25 , a22 JTF_NUMBER_TABLE
26 , a23 JTF_DATE_TABLE
27 , a24 JTF_NUMBER_TABLE
28 , a25 JTF_NUMBER_TABLE
29 , a26 JTF_NUMBER_TABLE
30 , a27 JTF_NUMBER_TABLE
31 , a28 JTF_NUMBER_TABLE
32 , a29 JTF_DATE_TABLE
33 , a30 JTF_VARCHAR2_TABLE_100
34 , a31 JTF_VARCHAR2_TABLE_300
35 , a32 JTF_VARCHAR2_TABLE_300
36 , a33 JTF_VARCHAR2_TABLE_100
37 , a34 JTF_VARCHAR2_TABLE_100
38 , a35 JTF_NUMBER_TABLE
39 , a36 JTF_NUMBER_TABLE
40 , a37 JTF_NUMBER_TABLE
41 , a38 JTF_NUMBER_TABLE
42 , a39 JTF_NUMBER_TABLE
43 , a40 JTF_DATE_TABLE
44 , a41 JTF_VARCHAR2_TABLE_100
45 , a42 JTF_NUMBER_TABLE
46 , a43 JTF_NUMBER_TABLE
47 , a44 JTF_VARCHAR2_TABLE_100
48 , a45 JTF_NUMBER_TABLE
49 , a46 JTF_NUMBER_TABLE
50 , a47 JTF_VARCHAR2_TABLE_100
51 , a48 JTF_NUMBER_TABLE
52 , a49 JTF_VARCHAR2_TABLE_100
53 , a50 JTF_VARCHAR2_TABLE_100
54 , a51 JTF_VARCHAR2_TABLE_100
55 ) as
56 ddindx binary_integer; indx binary_integer;
57 begin
58 if a0 is not null and a0.count > 0 then
59 if a0.count > 0 then
60 indx := a0.first;
61 ddindx := 1;
62 while true loop
63 t(ddindx).attribute1 := a0(indx);
64 t(ddindx).attribute10 := a1(indx);
65 t(ddindx).attribute11 := a2(indx);
66 t(ddindx).attribute12 := a3(indx);
67 t(ddindx).attribute13 := a4(indx);
68 t(ddindx).attribute14 := a5(indx);
69 t(ddindx).attribute15 := a6(indx);
70 t(ddindx).attribute2 := a7(indx);
71 t(ddindx).attribute3 := a8(indx);
72 t(ddindx).attribute4 := a9(indx);
73 t(ddindx).attribute5 := a10(indx);
74 t(ddindx).attribute6 := a11(indx);
75 t(ddindx).attribute7 := a12(indx);
76 t(ddindx).attribute8 := a13(indx);
77 t(ddindx).attribute9 := a14(indx);
78 t(ddindx).comparison_operator_code := a15(indx);
79 t(ddindx).context := a16(indx);
80 t(ddindx).created_by := a17(indx);
81 t(ddindx).created_from_rule_id := a18(indx);
82 t(ddindx).creation_date := a19(indx);
83 t(ddindx).end_date_active := a20(indx);
84 t(ddindx).excluder_flag := a21(indx);
85 t(ddindx).last_updated_by := a22(indx);
86 t(ddindx).last_update_date := a23(indx);
87 t(ddindx).last_update_login := a24(indx);
88 t(ddindx).list_header_id := a25(indx);
89 t(ddindx).list_line_id := a26(indx);
90 t(ddindx).program_application_id := a27(indx);
91 t(ddindx).program_id := a28(indx);
92 t(ddindx).program_update_date := a29(indx);
93 t(ddindx).qualifier_attribute := a30(indx);
94 t(ddindx).qualifier_attr_value := a31(indx);
95 t(ddindx).qualifier_attr_value_to := a32(indx);
96 t(ddindx).qualifier_context := a33(indx);
97 t(ddindx).qualifier_datatype := a34(indx);
98 t(ddindx).qualifier_grouping_no := a35(indx);
99 t(ddindx).qualifier_id := a36(indx);
100 t(ddindx).qualifier_precedence := a37(indx);
101 t(ddindx).qualifier_rule_id := a38(indx);
102 t(ddindx).request_id := a39(indx);
103 t(ddindx).start_date_active := a40(indx);
104 t(ddindx).list_type_code := a41(indx);
105 t(ddindx).qual_attr_value_from_number := a42(indx);
106 t(ddindx).qual_attr_value_to_number := a43(indx);
107 t(ddindx).active_flag := a44(indx);
108 t(ddindx).search_ind := a45(indx);
109 t(ddindx).qualifier_group_cnt := a46(indx);
110 t(ddindx).header_quals_exist_flag := a47(indx);
111 t(ddindx).distinct_row_count := a48(indx);
112 t(ddindx).return_status := a49(indx);
113 t(ddindx).db_flag := a50(indx);
114 t(ddindx).operation := a51(indx);
115 ddindx := ddindx+1;
116 if a0.last =indx
117 then exit;
118 end if;
119 indx := a0.next(indx);
120 end loop;
121 end if;
122 end if;
123 end rosetta_table_copy_in_p1;
124 procedure rosetta_table_copy_out_p1(t qp_qualifier_rules_pub.qualifiers_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_300
125 , a1 out nocopy JTF_VARCHAR2_TABLE_300
126 , a2 out nocopy JTF_VARCHAR2_TABLE_300
127 , a3 out nocopy JTF_VARCHAR2_TABLE_300
128 , a4 out nocopy JTF_VARCHAR2_TABLE_300
129 , a5 out nocopy JTF_VARCHAR2_TABLE_300
130 , a6 out nocopy JTF_VARCHAR2_TABLE_300
131 , a7 out nocopy JTF_VARCHAR2_TABLE_300
132 , a8 out nocopy JTF_VARCHAR2_TABLE_300
133 , a9 out nocopy JTF_VARCHAR2_TABLE_300
134 , a10 out nocopy JTF_VARCHAR2_TABLE_300
135 , a11 out nocopy JTF_VARCHAR2_TABLE_300
136 , a12 out nocopy JTF_VARCHAR2_TABLE_300
137 , a13 out nocopy JTF_VARCHAR2_TABLE_300
138 , a14 out nocopy JTF_VARCHAR2_TABLE_300
139 , a15 out nocopy JTF_VARCHAR2_TABLE_100
140 , a16 out nocopy JTF_VARCHAR2_TABLE_100
141 , a17 out nocopy JTF_NUMBER_TABLE
142 , a18 out nocopy JTF_NUMBER_TABLE
143 , a19 out nocopy JTF_DATE_TABLE
144 , a20 out nocopy JTF_DATE_TABLE
145 , a21 out nocopy JTF_VARCHAR2_TABLE_100
146 , a22 out nocopy JTF_NUMBER_TABLE
147 , a23 out nocopy JTF_DATE_TABLE
148 , a24 out nocopy JTF_NUMBER_TABLE
149 , a25 out nocopy JTF_NUMBER_TABLE
150 , a26 out nocopy JTF_NUMBER_TABLE
151 , a27 out nocopy JTF_NUMBER_TABLE
152 , a28 out nocopy JTF_NUMBER_TABLE
153 , a29 out nocopy JTF_DATE_TABLE
154 , a30 out nocopy JTF_VARCHAR2_TABLE_100
155 , a31 out nocopy JTF_VARCHAR2_TABLE_300
156 , a32 out nocopy JTF_VARCHAR2_TABLE_300
157 , a33 out nocopy JTF_VARCHAR2_TABLE_100
158 , a34 out nocopy JTF_VARCHAR2_TABLE_100
159 , a35 out nocopy JTF_NUMBER_TABLE
160 , a36 out nocopy JTF_NUMBER_TABLE
161 , a37 out nocopy JTF_NUMBER_TABLE
162 , a38 out nocopy JTF_NUMBER_TABLE
163 , a39 out nocopy JTF_NUMBER_TABLE
164 , a40 out nocopy JTF_DATE_TABLE
165 , a41 out nocopy JTF_VARCHAR2_TABLE_100
166 , a42 out nocopy JTF_NUMBER_TABLE
167 , a43 out nocopy JTF_NUMBER_TABLE
168 , a44 out nocopy JTF_VARCHAR2_TABLE_100
169 , a45 out nocopy JTF_NUMBER_TABLE
170 , a46 out nocopy JTF_NUMBER_TABLE
171 , a47 out nocopy JTF_VARCHAR2_TABLE_100
172 , a48 out nocopy JTF_NUMBER_TABLE
173 , a49 out nocopy JTF_VARCHAR2_TABLE_100
174 , a50 out nocopy JTF_VARCHAR2_TABLE_100
175 , a51 out nocopy JTF_VARCHAR2_TABLE_100
176 ) as
177 ddindx binary_integer; indx binary_integer;
178 begin
179 if t is null or t.count = 0 then
180 a0 := JTF_VARCHAR2_TABLE_300();
181 a1 := JTF_VARCHAR2_TABLE_300();
182 a2 := JTF_VARCHAR2_TABLE_300();
183 a3 := JTF_VARCHAR2_TABLE_300();
184 a4 := JTF_VARCHAR2_TABLE_300();
185 a5 := JTF_VARCHAR2_TABLE_300();
186 a6 := JTF_VARCHAR2_TABLE_300();
187 a7 := JTF_VARCHAR2_TABLE_300();
188 a8 := JTF_VARCHAR2_TABLE_300();
189 a9 := JTF_VARCHAR2_TABLE_300();
190 a10 := JTF_VARCHAR2_TABLE_300();
191 a11 := JTF_VARCHAR2_TABLE_300();
192 a12 := JTF_VARCHAR2_TABLE_300();
193 a13 := JTF_VARCHAR2_TABLE_300();
194 a14 := JTF_VARCHAR2_TABLE_300();
195 a15 := JTF_VARCHAR2_TABLE_100();
196 a16 := JTF_VARCHAR2_TABLE_100();
197 a17 := JTF_NUMBER_TABLE();
198 a18 := JTF_NUMBER_TABLE();
199 a19 := JTF_DATE_TABLE();
200 a20 := JTF_DATE_TABLE();
201 a21 := JTF_VARCHAR2_TABLE_100();
202 a22 := JTF_NUMBER_TABLE();
203 a23 := JTF_DATE_TABLE();
204 a24 := JTF_NUMBER_TABLE();
205 a25 := JTF_NUMBER_TABLE();
206 a26 := JTF_NUMBER_TABLE();
207 a27 := JTF_NUMBER_TABLE();
208 a28 := JTF_NUMBER_TABLE();
209 a29 := JTF_DATE_TABLE();
210 a30 := JTF_VARCHAR2_TABLE_100();
211 a31 := JTF_VARCHAR2_TABLE_300();
212 a32 := JTF_VARCHAR2_TABLE_300();
213 a33 := JTF_VARCHAR2_TABLE_100();
214 a34 := JTF_VARCHAR2_TABLE_100();
215 a35 := JTF_NUMBER_TABLE();
216 a36 := JTF_NUMBER_TABLE();
217 a37 := JTF_NUMBER_TABLE();
218 a38 := JTF_NUMBER_TABLE();
219 a39 := JTF_NUMBER_TABLE();
220 a40 := JTF_DATE_TABLE();
221 a41 := JTF_VARCHAR2_TABLE_100();
222 a42 := JTF_NUMBER_TABLE();
223 a43 := JTF_NUMBER_TABLE();
224 a44 := JTF_VARCHAR2_TABLE_100();
225 a45 := JTF_NUMBER_TABLE();
226 a46 := JTF_NUMBER_TABLE();
227 a47 := JTF_VARCHAR2_TABLE_100();
228 a48 := JTF_NUMBER_TABLE();
229 a49 := JTF_VARCHAR2_TABLE_100();
230 a50 := JTF_VARCHAR2_TABLE_100();
231 a51 := JTF_VARCHAR2_TABLE_100();
232 else
233 a0 := JTF_VARCHAR2_TABLE_300();
234 a1 := JTF_VARCHAR2_TABLE_300();
235 a2 := JTF_VARCHAR2_TABLE_300();
236 a3 := JTF_VARCHAR2_TABLE_300();
237 a4 := JTF_VARCHAR2_TABLE_300();
238 a5 := JTF_VARCHAR2_TABLE_300();
239 a6 := JTF_VARCHAR2_TABLE_300();
240 a7 := JTF_VARCHAR2_TABLE_300();
241 a8 := JTF_VARCHAR2_TABLE_300();
242 a9 := JTF_VARCHAR2_TABLE_300();
243 a10 := JTF_VARCHAR2_TABLE_300();
244 a11 := JTF_VARCHAR2_TABLE_300();
245 a12 := JTF_VARCHAR2_TABLE_300();
246 a13 := JTF_VARCHAR2_TABLE_300();
247 a14 := JTF_VARCHAR2_TABLE_300();
248 a15 := JTF_VARCHAR2_TABLE_100();
249 a16 := JTF_VARCHAR2_TABLE_100();
250 a17 := JTF_NUMBER_TABLE();
251 a18 := JTF_NUMBER_TABLE();
252 a19 := JTF_DATE_TABLE();
253 a20 := JTF_DATE_TABLE();
254 a21 := JTF_VARCHAR2_TABLE_100();
255 a22 := JTF_NUMBER_TABLE();
256 a23 := JTF_DATE_TABLE();
257 a24 := JTF_NUMBER_TABLE();
258 a25 := JTF_NUMBER_TABLE();
259 a26 := JTF_NUMBER_TABLE();
260 a27 := JTF_NUMBER_TABLE();
261 a28 := JTF_NUMBER_TABLE();
262 a29 := JTF_DATE_TABLE();
263 a30 := JTF_VARCHAR2_TABLE_100();
264 a31 := JTF_VARCHAR2_TABLE_300();
265 a32 := JTF_VARCHAR2_TABLE_300();
266 a33 := JTF_VARCHAR2_TABLE_100();
267 a34 := JTF_VARCHAR2_TABLE_100();
268 a35 := JTF_NUMBER_TABLE();
269 a36 := JTF_NUMBER_TABLE();
270 a37 := JTF_NUMBER_TABLE();
271 a38 := JTF_NUMBER_TABLE();
272 a39 := JTF_NUMBER_TABLE();
273 a40 := JTF_DATE_TABLE();
274 a41 := JTF_VARCHAR2_TABLE_100();
275 a42 := JTF_NUMBER_TABLE();
276 a43 := JTF_NUMBER_TABLE();
277 a44 := JTF_VARCHAR2_TABLE_100();
278 a45 := JTF_NUMBER_TABLE();
279 a46 := JTF_NUMBER_TABLE();
280 a47 := JTF_VARCHAR2_TABLE_100();
281 a48 := JTF_NUMBER_TABLE();
282 a49 := JTF_VARCHAR2_TABLE_100();
283 a50 := JTF_VARCHAR2_TABLE_100();
284 a51 := JTF_VARCHAR2_TABLE_100();
285 if t.count > 0 then
286 a0.extend(t.count);
287 a1.extend(t.count);
288 a2.extend(t.count);
289 a3.extend(t.count);
290 a4.extend(t.count);
291 a5.extend(t.count);
292 a6.extend(t.count);
293 a7.extend(t.count);
294 a8.extend(t.count);
295 a9.extend(t.count);
296 a10.extend(t.count);
297 a11.extend(t.count);
298 a12.extend(t.count);
299 a13.extend(t.count);
300 a14.extend(t.count);
301 a15.extend(t.count);
302 a16.extend(t.count);
303 a17.extend(t.count);
304 a18.extend(t.count);
305 a19.extend(t.count);
306 a20.extend(t.count);
307 a21.extend(t.count);
308 a22.extend(t.count);
309 a23.extend(t.count);
310 a24.extend(t.count);
311 a25.extend(t.count);
312 a26.extend(t.count);
313 a27.extend(t.count);
314 a28.extend(t.count);
315 a29.extend(t.count);
316 a30.extend(t.count);
317 a31.extend(t.count);
318 a32.extend(t.count);
319 a33.extend(t.count);
320 a34.extend(t.count);
321 a35.extend(t.count);
322 a36.extend(t.count);
323 a37.extend(t.count);
324 a38.extend(t.count);
325 a39.extend(t.count);
326 a40.extend(t.count);
327 a41.extend(t.count);
328 a42.extend(t.count);
329 a43.extend(t.count);
330 a44.extend(t.count);
331 a45.extend(t.count);
332 a46.extend(t.count);
333 a47.extend(t.count);
334 a48.extend(t.count);
335 a49.extend(t.count);
336 a50.extend(t.count);
337 a51.extend(t.count);
338 ddindx := t.first;
339 indx := 1;
340 while true loop
341 a0(indx) := t(ddindx).attribute1;
342 a1(indx) := t(ddindx).attribute10;
343 a2(indx) := t(ddindx).attribute11;
344 a3(indx) := t(ddindx).attribute12;
345 a4(indx) := t(ddindx).attribute13;
346 a5(indx) := t(ddindx).attribute14;
347 a6(indx) := t(ddindx).attribute15;
348 a7(indx) := t(ddindx).attribute2;
349 a8(indx) := t(ddindx).attribute3;
350 a9(indx) := t(ddindx).attribute4;
351 a10(indx) := t(ddindx).attribute5;
352 a11(indx) := t(ddindx).attribute6;
353 a12(indx) := t(ddindx).attribute7;
354 a13(indx) := t(ddindx).attribute8;
355 a14(indx) := t(ddindx).attribute9;
356 a15(indx) := t(ddindx).comparison_operator_code;
357 a16(indx) := t(ddindx).context;
358 a17(indx) := t(ddindx).created_by;
359 a18(indx) := t(ddindx).created_from_rule_id;
360 a19(indx) := t(ddindx).creation_date;
361 a20(indx) := t(ddindx).end_date_active;
362 a21(indx) := t(ddindx).excluder_flag;
363 a22(indx) := t(ddindx).last_updated_by;
364 a23(indx) := t(ddindx).last_update_date;
365 a24(indx) := t(ddindx).last_update_login;
366 a25(indx) := t(ddindx).list_header_id;
367 a26(indx) := t(ddindx).list_line_id;
368 a27(indx) := t(ddindx).program_application_id;
369 a28(indx) := t(ddindx).program_id;
370 a29(indx) := t(ddindx).program_update_date;
371 a30(indx) := t(ddindx).qualifier_attribute;
372 a31(indx) := t(ddindx).qualifier_attr_value;
373 a32(indx) := t(ddindx).qualifier_attr_value_to;
374 a33(indx) := t(ddindx).qualifier_context;
375 a34(indx) := t(ddindx).qualifier_datatype;
376 a35(indx) := t(ddindx).qualifier_grouping_no;
377 a36(indx) := t(ddindx).qualifier_id;
378 a37(indx) := t(ddindx).qualifier_precedence;
379 a38(indx) := t(ddindx).qualifier_rule_id;
380 a39(indx) := t(ddindx).request_id;
381 a40(indx) := t(ddindx).start_date_active;
382 a41(indx) := t(ddindx).list_type_code;
383 a42(indx) := t(ddindx).qual_attr_value_from_number;
384 a43(indx) := t(ddindx).qual_attr_value_to_number;
385 a44(indx) := t(ddindx).active_flag;
386 a45(indx) := t(ddindx).search_ind;
387 a46(indx) := t(ddindx).qualifier_group_cnt;
388 a47(indx) := t(ddindx).header_quals_exist_flag;
389 a48(indx) := t(ddindx).distinct_row_count;
390 a49(indx) := t(ddindx).return_status;
391 a50(indx) := t(ddindx).db_flag;
392 a51(indx) := t(ddindx).operation;
393 indx := indx+1;
394 if t.last =ddindx
395 then exit;
396 end if;
397 ddindx := t.next(ddindx);
398 end loop;
399 end if;
400 end if;
401 end rosetta_table_copy_out_p1;
402
403 end qp_qualifier_rules_pub_oa;