[Home] [Help]
PACKAGE BODY: APPS.AHL_APPR_SPACE_CAPB_PUB_W
Source
1 package body ahl_appr_space_capb_pub_w as
2 /* $Header: AHLWSPCB.pls 120.1 2006/05/02 07:18 sathapli 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 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure rosetta_table_copy_in_p2(t out nocopy ahl_appr_space_capb_pub.space_tbl, a0 JTF_NUMBER_TABLE
17 , a1 JTF_VARCHAR2_TABLE_100
18 , a2 JTF_DATE_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_VARCHAR2_TABLE_300
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_VARCHAR2_TABLE_300
28 , a12 JTF_VARCHAR2_TABLE_100
29 , a13 JTF_VARCHAR2_TABLE_100
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_VARCHAR2_TABLE_2000
33 , a17 JTF_VARCHAR2_TABLE_100
34 , a18 JTF_VARCHAR2_TABLE_200
35 , a19 JTF_VARCHAR2_TABLE_200
36 , a20 JTF_VARCHAR2_TABLE_200
37 , a21 JTF_VARCHAR2_TABLE_200
38 , a22 JTF_VARCHAR2_TABLE_200
39 , a23 JTF_VARCHAR2_TABLE_200
40 , a24 JTF_VARCHAR2_TABLE_200
41 , a25 JTF_VARCHAR2_TABLE_200
42 , a26 JTF_VARCHAR2_TABLE_200
43 , a27 JTF_VARCHAR2_TABLE_200
44 , a28 JTF_VARCHAR2_TABLE_200
45 , a29 JTF_VARCHAR2_TABLE_200
46 , a30 JTF_VARCHAR2_TABLE_200
47 , a31 JTF_VARCHAR2_TABLE_200
48 , a32 JTF_VARCHAR2_TABLE_200
49 , a33 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).space_id := a0(indx);
59 t(ddindx).space_name := a1(indx);
60 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a2(indx));
61 t(ddindx).last_updated_by := a3(indx);
62 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a4(indx));
63 t(ddindx).created_by := a5(indx);
64 t(ddindx).last_update_login := a6(indx);
65 t(ddindx).object_version_number := a7(indx);
66 t(ddindx).organization_id := a8(indx);
67 t(ddindx).org_name := a9(indx);
68 t(ddindx).department_id := a10(indx);
69 t(ddindx).dept_description := a11(indx);
70 t(ddindx).space_category_code := a12(indx);
71 t(ddindx).space_category_mean := a13(indx);
72 t(ddindx).inactive_flag_code := a14(indx);
73 t(ddindx).inactive_flag_mean := a15(indx);
74 t(ddindx).description := a16(indx);
75 t(ddindx).attribute_category := a17(indx);
76 t(ddindx).attribute1 := a18(indx);
77 t(ddindx).attribute2 := a19(indx);
78 t(ddindx).attribute3 := a20(indx);
79 t(ddindx).attribute4 := a21(indx);
80 t(ddindx).attribute5 := a22(indx);
81 t(ddindx).attribute6 := a23(indx);
82 t(ddindx).attribute7 := a24(indx);
83 t(ddindx).attribute8 := a25(indx);
84 t(ddindx).attribute9 := a26(indx);
85 t(ddindx).attribute10 := a27(indx);
86 t(ddindx).attribute11 := a28(indx);
87 t(ddindx).attribute12 := a29(indx);
88 t(ddindx).attribute13 := a30(indx);
89 t(ddindx).attribute14 := a31(indx);
90 t(ddindx).attribute15 := a32(indx);
91 t(ddindx).operation_flag := a33(indx);
92 ddindx := ddindx+1;
93 if a0.last =indx
94 then exit;
95 end if;
96 indx := a0.next(indx);
97 end loop;
98 end if;
99 end if;
100 end rosetta_table_copy_in_p2;
101 procedure rosetta_table_copy_out_p2(t ahl_appr_space_capb_pub.space_tbl, a0 out nocopy JTF_NUMBER_TABLE
102 , a1 out nocopy JTF_VARCHAR2_TABLE_100
103 , a2 out nocopy JTF_DATE_TABLE
104 , a3 out nocopy JTF_NUMBER_TABLE
105 , a4 out nocopy JTF_DATE_TABLE
106 , a5 out nocopy JTF_NUMBER_TABLE
107 , a6 out nocopy JTF_NUMBER_TABLE
108 , a7 out nocopy JTF_NUMBER_TABLE
109 , a8 out nocopy JTF_NUMBER_TABLE
110 , a9 out nocopy JTF_VARCHAR2_TABLE_300
111 , a10 out nocopy JTF_NUMBER_TABLE
112 , a11 out nocopy JTF_VARCHAR2_TABLE_300
113 , a12 out nocopy JTF_VARCHAR2_TABLE_100
114 , a13 out nocopy JTF_VARCHAR2_TABLE_100
115 , a14 out nocopy JTF_VARCHAR2_TABLE_100
116 , a15 out nocopy JTF_VARCHAR2_TABLE_100
117 , a16 out nocopy JTF_VARCHAR2_TABLE_2000
118 , a17 out nocopy JTF_VARCHAR2_TABLE_100
119 , a18 out nocopy JTF_VARCHAR2_TABLE_200
120 , a19 out nocopy JTF_VARCHAR2_TABLE_200
121 , a20 out nocopy JTF_VARCHAR2_TABLE_200
122 , a21 out nocopy JTF_VARCHAR2_TABLE_200
123 , a22 out nocopy JTF_VARCHAR2_TABLE_200
124 , a23 out nocopy JTF_VARCHAR2_TABLE_200
125 , a24 out nocopy JTF_VARCHAR2_TABLE_200
126 , a25 out nocopy JTF_VARCHAR2_TABLE_200
127 , a26 out nocopy JTF_VARCHAR2_TABLE_200
128 , a27 out nocopy JTF_VARCHAR2_TABLE_200
129 , a28 out nocopy JTF_VARCHAR2_TABLE_200
130 , a29 out nocopy JTF_VARCHAR2_TABLE_200
131 , a30 out nocopy JTF_VARCHAR2_TABLE_200
132 , a31 out nocopy JTF_VARCHAR2_TABLE_200
133 , a32 out nocopy JTF_VARCHAR2_TABLE_200
134 , a33 out nocopy JTF_VARCHAR2_TABLE_100
135 ) as
136 ddindx binary_integer; indx binary_integer;
137 begin
138 if t is null or t.count = 0 then
139 a0 := JTF_NUMBER_TABLE();
140 a1 := JTF_VARCHAR2_TABLE_100();
141 a2 := JTF_DATE_TABLE();
142 a3 := JTF_NUMBER_TABLE();
143 a4 := JTF_DATE_TABLE();
144 a5 := JTF_NUMBER_TABLE();
145 a6 := JTF_NUMBER_TABLE();
146 a7 := JTF_NUMBER_TABLE();
147 a8 := JTF_NUMBER_TABLE();
148 a9 := JTF_VARCHAR2_TABLE_300();
149 a10 := JTF_NUMBER_TABLE();
150 a11 := JTF_VARCHAR2_TABLE_300();
151 a12 := JTF_VARCHAR2_TABLE_100();
152 a13 := JTF_VARCHAR2_TABLE_100();
153 a14 := JTF_VARCHAR2_TABLE_100();
154 a15 := JTF_VARCHAR2_TABLE_100();
155 a16 := JTF_VARCHAR2_TABLE_2000();
156 a17 := JTF_VARCHAR2_TABLE_100();
157 a18 := JTF_VARCHAR2_TABLE_200();
158 a19 := JTF_VARCHAR2_TABLE_200();
159 a20 := JTF_VARCHAR2_TABLE_200();
160 a21 := JTF_VARCHAR2_TABLE_200();
161 a22 := JTF_VARCHAR2_TABLE_200();
162 a23 := JTF_VARCHAR2_TABLE_200();
163 a24 := JTF_VARCHAR2_TABLE_200();
164 a25 := JTF_VARCHAR2_TABLE_200();
165 a26 := JTF_VARCHAR2_TABLE_200();
166 a27 := JTF_VARCHAR2_TABLE_200();
167 a28 := JTF_VARCHAR2_TABLE_200();
168 a29 := JTF_VARCHAR2_TABLE_200();
169 a30 := JTF_VARCHAR2_TABLE_200();
170 a31 := JTF_VARCHAR2_TABLE_200();
171 a32 := JTF_VARCHAR2_TABLE_200();
172 a33 := JTF_VARCHAR2_TABLE_100();
173 else
174 a0 := JTF_NUMBER_TABLE();
175 a1 := JTF_VARCHAR2_TABLE_100();
176 a2 := JTF_DATE_TABLE();
177 a3 := JTF_NUMBER_TABLE();
178 a4 := JTF_DATE_TABLE();
179 a5 := JTF_NUMBER_TABLE();
180 a6 := JTF_NUMBER_TABLE();
181 a7 := JTF_NUMBER_TABLE();
182 a8 := JTF_NUMBER_TABLE();
183 a9 := JTF_VARCHAR2_TABLE_300();
184 a10 := JTF_NUMBER_TABLE();
185 a11 := JTF_VARCHAR2_TABLE_300();
186 a12 := JTF_VARCHAR2_TABLE_100();
187 a13 := JTF_VARCHAR2_TABLE_100();
188 a14 := JTF_VARCHAR2_TABLE_100();
189 a15 := JTF_VARCHAR2_TABLE_100();
190 a16 := JTF_VARCHAR2_TABLE_2000();
191 a17 := JTF_VARCHAR2_TABLE_100();
192 a18 := JTF_VARCHAR2_TABLE_200();
193 a19 := JTF_VARCHAR2_TABLE_200();
194 a20 := JTF_VARCHAR2_TABLE_200();
195 a21 := JTF_VARCHAR2_TABLE_200();
196 a22 := JTF_VARCHAR2_TABLE_200();
197 a23 := JTF_VARCHAR2_TABLE_200();
198 a24 := JTF_VARCHAR2_TABLE_200();
199 a25 := JTF_VARCHAR2_TABLE_200();
200 a26 := JTF_VARCHAR2_TABLE_200();
201 a27 := JTF_VARCHAR2_TABLE_200();
202 a28 := JTF_VARCHAR2_TABLE_200();
203 a29 := JTF_VARCHAR2_TABLE_200();
204 a30 := JTF_VARCHAR2_TABLE_200();
205 a31 := JTF_VARCHAR2_TABLE_200();
206 a32 := JTF_VARCHAR2_TABLE_200();
207 a33 := JTF_VARCHAR2_TABLE_100();
208 if t.count > 0 then
209 a0.extend(t.count);
210 a1.extend(t.count);
211 a2.extend(t.count);
212 a3.extend(t.count);
213 a4.extend(t.count);
214 a5.extend(t.count);
215 a6.extend(t.count);
216 a7.extend(t.count);
217 a8.extend(t.count);
218 a9.extend(t.count);
219 a10.extend(t.count);
220 a11.extend(t.count);
221 a12.extend(t.count);
222 a13.extend(t.count);
223 a14.extend(t.count);
224 a15.extend(t.count);
225 a16.extend(t.count);
226 a17.extend(t.count);
227 a18.extend(t.count);
228 a19.extend(t.count);
229 a20.extend(t.count);
230 a21.extend(t.count);
231 a22.extend(t.count);
232 a23.extend(t.count);
233 a24.extend(t.count);
234 a25.extend(t.count);
235 a26.extend(t.count);
236 a27.extend(t.count);
237 a28.extend(t.count);
238 a29.extend(t.count);
239 a30.extend(t.count);
240 a31.extend(t.count);
241 a32.extend(t.count);
242 a33.extend(t.count);
243 ddindx := t.first;
244 indx := 1;
245 while true loop
246 a0(indx) := t(ddindx).space_id;
247 a1(indx) := t(ddindx).space_name;
248 a2(indx) := t(ddindx).last_update_date;
249 a3(indx) := t(ddindx).last_updated_by;
250 a4(indx) := t(ddindx).creation_date;
251 a5(indx) := t(ddindx).created_by;
252 a6(indx) := t(ddindx).last_update_login;
253 a7(indx) := t(ddindx).object_version_number;
254 a8(indx) := t(ddindx).organization_id;
255 a9(indx) := t(ddindx).org_name;
256 a10(indx) := t(ddindx).department_id;
257 a11(indx) := t(ddindx).dept_description;
258 a12(indx) := t(ddindx).space_category_code;
259 a13(indx) := t(ddindx).space_category_mean;
260 a14(indx) := t(ddindx).inactive_flag_code;
261 a15(indx) := t(ddindx).inactive_flag_mean;
262 a16(indx) := t(ddindx).description;
263 a17(indx) := t(ddindx).attribute_category;
264 a18(indx) := t(ddindx).attribute1;
265 a19(indx) := t(ddindx).attribute2;
266 a20(indx) := t(ddindx).attribute3;
267 a21(indx) := t(ddindx).attribute4;
268 a22(indx) := t(ddindx).attribute5;
269 a23(indx) := t(ddindx).attribute6;
270 a24(indx) := t(ddindx).attribute7;
271 a25(indx) := t(ddindx).attribute8;
272 a26(indx) := t(ddindx).attribute9;
273 a27(indx) := t(ddindx).attribute10;
274 a28(indx) := t(ddindx).attribute11;
275 a29(indx) := t(ddindx).attribute12;
276 a30(indx) := t(ddindx).attribute13;
277 a31(indx) := t(ddindx).attribute14;
278 a32(indx) := t(ddindx).attribute15;
279 a33(indx) := t(ddindx).operation_flag;
280 indx := indx+1;
281 if t.last =ddindx
282 then exit;
283 end if;
284 ddindx := t.next(ddindx);
285 end loop;
286 end if;
287 end if;
288 end rosetta_table_copy_out_p2;
289
290 procedure rosetta_table_copy_in_p3(t out nocopy ahl_appr_space_capb_pub.space_capbl_tbl, a0 JTF_NUMBER_TABLE
291 , a1 JTF_DATE_TABLE
292 , a2 JTF_NUMBER_TABLE
293 , a3 JTF_DATE_TABLE
294 , a4 JTF_NUMBER_TABLE
295 , a5 JTF_NUMBER_TABLE
296 , a6 JTF_NUMBER_TABLE
297 , a7 JTF_VARCHAR2_TABLE_100
298 , a8 JTF_VARCHAR2_TABLE_100
299 , a9 JTF_NUMBER_TABLE
300 , a10 JTF_VARCHAR2_TABLE_300
301 , a11 JTF_NUMBER_TABLE
302 , a12 JTF_VARCHAR2_TABLE_300
303 , a13 JTF_NUMBER_TABLE
304 , a14 JTF_VARCHAR2_TABLE_100
305 , a15 JTF_VARCHAR2_TABLE_100
306 , a16 JTF_VARCHAR2_TABLE_200
307 , a17 JTF_VARCHAR2_TABLE_200
308 , a18 JTF_VARCHAR2_TABLE_200
309 , a19 JTF_VARCHAR2_TABLE_200
310 , a20 JTF_VARCHAR2_TABLE_200
311 , a21 JTF_VARCHAR2_TABLE_200
312 , a22 JTF_VARCHAR2_TABLE_200
313 , a23 JTF_VARCHAR2_TABLE_200
314 , a24 JTF_VARCHAR2_TABLE_200
315 , a25 JTF_VARCHAR2_TABLE_200
316 , a26 JTF_VARCHAR2_TABLE_200
317 , a27 JTF_VARCHAR2_TABLE_200
318 , a28 JTF_VARCHAR2_TABLE_200
319 , a29 JTF_VARCHAR2_TABLE_200
320 , a30 JTF_VARCHAR2_TABLE_200
321 , a31 JTF_VARCHAR2_TABLE_100
322 ) as
323 ddindx binary_integer; indx binary_integer;
324 begin
325 if a0 is not null and a0.count > 0 then
326 if a0.count > 0 then
327 indx := a0.first;
328 ddindx := 1;
329 while true loop
330 t(ddindx).space_capability_id := a0(indx);
331 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a1(indx));
332 t(ddindx).last_updated_by := a2(indx);
333 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a3(indx));
334 t(ddindx).created_by := a4(indx);
335 t(ddindx).last_update_login := a5(indx);
336 t(ddindx).object_version_number := a6(indx);
337 t(ddindx).visit_type_code := a7(indx);
338 t(ddindx).visit_type_mean := a8(indx);
339 t(ddindx).inventory_item_id := a9(indx);
340 t(ddindx).item_description := a10(indx);
341 t(ddindx).organization_id := a11(indx);
342 t(ddindx).org_name := a12(indx);
343 t(ddindx).space_id := a13(indx);
344 t(ddindx).space_name := a14(indx);
345 t(ddindx).attribute_category := a15(indx);
346 t(ddindx).attribute1 := a16(indx);
347 t(ddindx).attribute2 := a17(indx);
348 t(ddindx).attribute3 := a18(indx);
349 t(ddindx).attribute4 := a19(indx);
350 t(ddindx).attribute5 := a20(indx);
351 t(ddindx).attribute6 := a21(indx);
352 t(ddindx).attribute7 := a22(indx);
353 t(ddindx).attribute8 := a23(indx);
354 t(ddindx).attribute9 := a24(indx);
355 t(ddindx).attribute10 := a25(indx);
356 t(ddindx).attribute11 := a26(indx);
357 t(ddindx).attribute12 := a27(indx);
358 t(ddindx).attribute13 := a28(indx);
359 t(ddindx).attribute14 := a29(indx);
360 t(ddindx).attribute15 := a30(indx);
361 t(ddindx).operation_flag := a31(indx);
362 ddindx := ddindx+1;
363 if a0.last =indx
364 then exit;
365 end if;
366 indx := a0.next(indx);
367 end loop;
368 end if;
369 end if;
370 end rosetta_table_copy_in_p3;
371 procedure rosetta_table_copy_out_p3(t ahl_appr_space_capb_pub.space_capbl_tbl, a0 out nocopy JTF_NUMBER_TABLE
372 , a1 out nocopy JTF_DATE_TABLE
373 , a2 out nocopy JTF_NUMBER_TABLE
374 , a3 out nocopy JTF_DATE_TABLE
375 , a4 out nocopy JTF_NUMBER_TABLE
376 , a5 out nocopy JTF_NUMBER_TABLE
377 , a6 out nocopy JTF_NUMBER_TABLE
378 , a7 out nocopy JTF_VARCHAR2_TABLE_100
379 , a8 out nocopy JTF_VARCHAR2_TABLE_100
380 , a9 out nocopy JTF_NUMBER_TABLE
381 , a10 out nocopy JTF_VARCHAR2_TABLE_300
382 , a11 out nocopy JTF_NUMBER_TABLE
383 , a12 out nocopy JTF_VARCHAR2_TABLE_300
384 , a13 out nocopy JTF_NUMBER_TABLE
385 , a14 out nocopy JTF_VARCHAR2_TABLE_100
386 , a15 out nocopy JTF_VARCHAR2_TABLE_100
387 , a16 out nocopy JTF_VARCHAR2_TABLE_200
388 , a17 out nocopy JTF_VARCHAR2_TABLE_200
389 , a18 out nocopy JTF_VARCHAR2_TABLE_200
390 , a19 out nocopy JTF_VARCHAR2_TABLE_200
391 , a20 out nocopy JTF_VARCHAR2_TABLE_200
392 , a21 out nocopy JTF_VARCHAR2_TABLE_200
393 , a22 out nocopy JTF_VARCHAR2_TABLE_200
394 , a23 out nocopy JTF_VARCHAR2_TABLE_200
395 , a24 out nocopy JTF_VARCHAR2_TABLE_200
396 , a25 out nocopy JTF_VARCHAR2_TABLE_200
397 , a26 out nocopy JTF_VARCHAR2_TABLE_200
398 , a27 out nocopy JTF_VARCHAR2_TABLE_200
399 , a28 out nocopy JTF_VARCHAR2_TABLE_200
400 , a29 out nocopy JTF_VARCHAR2_TABLE_200
401 , a30 out nocopy JTF_VARCHAR2_TABLE_200
402 , a31 out nocopy JTF_VARCHAR2_TABLE_100
403 ) as
404 ddindx binary_integer; indx binary_integer;
405 begin
406 if t is null or t.count = 0 then
407 a0 := JTF_NUMBER_TABLE();
408 a1 := JTF_DATE_TABLE();
409 a2 := JTF_NUMBER_TABLE();
410 a3 := JTF_DATE_TABLE();
411 a4 := JTF_NUMBER_TABLE();
412 a5 := JTF_NUMBER_TABLE();
413 a6 := JTF_NUMBER_TABLE();
414 a7 := JTF_VARCHAR2_TABLE_100();
415 a8 := JTF_VARCHAR2_TABLE_100();
416 a9 := JTF_NUMBER_TABLE();
417 a10 := JTF_VARCHAR2_TABLE_300();
418 a11 := JTF_NUMBER_TABLE();
419 a12 := JTF_VARCHAR2_TABLE_300();
420 a13 := JTF_NUMBER_TABLE();
421 a14 := JTF_VARCHAR2_TABLE_100();
422 a15 := JTF_VARCHAR2_TABLE_100();
423 a16 := JTF_VARCHAR2_TABLE_200();
424 a17 := JTF_VARCHAR2_TABLE_200();
425 a18 := JTF_VARCHAR2_TABLE_200();
426 a19 := JTF_VARCHAR2_TABLE_200();
427 a20 := JTF_VARCHAR2_TABLE_200();
428 a21 := JTF_VARCHAR2_TABLE_200();
429 a22 := JTF_VARCHAR2_TABLE_200();
430 a23 := JTF_VARCHAR2_TABLE_200();
431 a24 := JTF_VARCHAR2_TABLE_200();
432 a25 := JTF_VARCHAR2_TABLE_200();
433 a26 := JTF_VARCHAR2_TABLE_200();
434 a27 := JTF_VARCHAR2_TABLE_200();
435 a28 := JTF_VARCHAR2_TABLE_200();
436 a29 := JTF_VARCHAR2_TABLE_200();
437 a30 := JTF_VARCHAR2_TABLE_200();
438 a31 := JTF_VARCHAR2_TABLE_100();
439 else
440 a0 := JTF_NUMBER_TABLE();
441 a1 := JTF_DATE_TABLE();
442 a2 := JTF_NUMBER_TABLE();
443 a3 := JTF_DATE_TABLE();
444 a4 := JTF_NUMBER_TABLE();
445 a5 := JTF_NUMBER_TABLE();
446 a6 := JTF_NUMBER_TABLE();
447 a7 := JTF_VARCHAR2_TABLE_100();
448 a8 := JTF_VARCHAR2_TABLE_100();
449 a9 := JTF_NUMBER_TABLE();
450 a10 := JTF_VARCHAR2_TABLE_300();
451 a11 := JTF_NUMBER_TABLE();
452 a12 := JTF_VARCHAR2_TABLE_300();
453 a13 := JTF_NUMBER_TABLE();
454 a14 := JTF_VARCHAR2_TABLE_100();
455 a15 := JTF_VARCHAR2_TABLE_100();
456 a16 := JTF_VARCHAR2_TABLE_200();
457 a17 := JTF_VARCHAR2_TABLE_200();
458 a18 := JTF_VARCHAR2_TABLE_200();
459 a19 := JTF_VARCHAR2_TABLE_200();
460 a20 := JTF_VARCHAR2_TABLE_200();
461 a21 := JTF_VARCHAR2_TABLE_200();
462 a22 := JTF_VARCHAR2_TABLE_200();
463 a23 := JTF_VARCHAR2_TABLE_200();
464 a24 := JTF_VARCHAR2_TABLE_200();
465 a25 := JTF_VARCHAR2_TABLE_200();
466 a26 := JTF_VARCHAR2_TABLE_200();
467 a27 := JTF_VARCHAR2_TABLE_200();
468 a28 := JTF_VARCHAR2_TABLE_200();
469 a29 := JTF_VARCHAR2_TABLE_200();
470 a30 := JTF_VARCHAR2_TABLE_200();
471 a31 := JTF_VARCHAR2_TABLE_100();
472 if t.count > 0 then
473 a0.extend(t.count);
474 a1.extend(t.count);
475 a2.extend(t.count);
476 a3.extend(t.count);
477 a4.extend(t.count);
478 a5.extend(t.count);
479 a6.extend(t.count);
480 a7.extend(t.count);
481 a8.extend(t.count);
482 a9.extend(t.count);
483 a10.extend(t.count);
484 a11.extend(t.count);
485 a12.extend(t.count);
486 a13.extend(t.count);
487 a14.extend(t.count);
488 a15.extend(t.count);
489 a16.extend(t.count);
490 a17.extend(t.count);
491 a18.extend(t.count);
492 a19.extend(t.count);
493 a20.extend(t.count);
494 a21.extend(t.count);
495 a22.extend(t.count);
496 a23.extend(t.count);
497 a24.extend(t.count);
498 a25.extend(t.count);
499 a26.extend(t.count);
500 a27.extend(t.count);
501 a28.extend(t.count);
502 a29.extend(t.count);
503 a30.extend(t.count);
504 a31.extend(t.count);
505 ddindx := t.first;
506 indx := 1;
507 while true loop
508 a0(indx) := t(ddindx).space_capability_id;
509 a1(indx) := t(ddindx).last_update_date;
510 a2(indx) := t(ddindx).last_updated_by;
511 a3(indx) := t(ddindx).creation_date;
512 a4(indx) := t(ddindx).created_by;
513 a5(indx) := t(ddindx).last_update_login;
514 a6(indx) := t(ddindx).object_version_number;
515 a7(indx) := t(ddindx).visit_type_code;
516 a8(indx) := t(ddindx).visit_type_mean;
517 a9(indx) := t(ddindx).inventory_item_id;
518 a10(indx) := t(ddindx).item_description;
519 a11(indx) := t(ddindx).organization_id;
520 a12(indx) := t(ddindx).org_name;
521 a13(indx) := t(ddindx).space_id;
522 a14(indx) := t(ddindx).space_name;
523 a15(indx) := t(ddindx).attribute_category;
524 a16(indx) := t(ddindx).attribute1;
525 a17(indx) := t(ddindx).attribute2;
526 a18(indx) := t(ddindx).attribute3;
527 a19(indx) := t(ddindx).attribute4;
528 a20(indx) := t(ddindx).attribute5;
529 a21(indx) := t(ddindx).attribute6;
530 a22(indx) := t(ddindx).attribute7;
531 a23(indx) := t(ddindx).attribute8;
532 a24(indx) := t(ddindx).attribute9;
533 a25(indx) := t(ddindx).attribute10;
534 a26(indx) := t(ddindx).attribute11;
535 a27(indx) := t(ddindx).attribute12;
536 a28(indx) := t(ddindx).attribute13;
537 a29(indx) := t(ddindx).attribute14;
538 a30(indx) := t(ddindx).attribute15;
539 a31(indx) := t(ddindx).operation_flag;
540 indx := indx+1;
541 if t.last =ddindx
542 then exit;
543 end if;
544 ddindx := t.next(ddindx);
545 end loop;
546 end if;
547 end if;
548 end rosetta_table_copy_out_p3;
549
550 procedure process_space_capbl(p_api_version NUMBER
551 , p_init_msg_list VARCHAR2
552 , p_commit VARCHAR2
553 , p_validation_level NUMBER
554 , p_module_type VARCHAR2
555 , p5_a0 in out nocopy NUMBER
556 , p5_a1 in out nocopy VARCHAR2
557 , p5_a2 in out nocopy DATE
558 , p5_a3 in out nocopy NUMBER
559 , p5_a4 in out nocopy DATE
560 , p5_a5 in out nocopy NUMBER
561 , p5_a6 in out nocopy NUMBER
562 , p5_a7 in out nocopy NUMBER
563 , p5_a8 in out nocopy NUMBER
564 , p5_a9 in out nocopy VARCHAR2
565 , p5_a10 in out nocopy NUMBER
566 , p5_a11 in out nocopy VARCHAR2
567 , p5_a12 in out nocopy VARCHAR2
568 , p5_a13 in out nocopy VARCHAR2
569 , p5_a14 in out nocopy VARCHAR2
570 , p5_a15 in out nocopy VARCHAR2
571 , p5_a16 in out nocopy VARCHAR2
572 , p5_a17 in out nocopy VARCHAR2
573 , p5_a18 in out nocopy VARCHAR2
574 , p5_a19 in out nocopy VARCHAR2
575 , p5_a20 in out nocopy VARCHAR2
576 , p5_a21 in out nocopy VARCHAR2
577 , p5_a22 in out nocopy VARCHAR2
578 , p5_a23 in out nocopy VARCHAR2
579 , p5_a24 in out nocopy VARCHAR2
580 , p5_a25 in out nocopy VARCHAR2
581 , p5_a26 in out nocopy VARCHAR2
582 , p5_a27 in out nocopy VARCHAR2
583 , p5_a28 in out nocopy VARCHAR2
584 , p5_a29 in out nocopy VARCHAR2
585 , p5_a30 in out nocopy VARCHAR2
586 , p5_a31 in out nocopy VARCHAR2
587 , p5_a32 in out nocopy VARCHAR2
588 , p5_a33 in out nocopy VARCHAR2
589 , p6_a0 in out nocopy JTF_NUMBER_TABLE
590 , p6_a1 in out nocopy JTF_DATE_TABLE
591 , p6_a2 in out nocopy JTF_NUMBER_TABLE
592 , p6_a3 in out nocopy JTF_DATE_TABLE
593 , p6_a4 in out nocopy JTF_NUMBER_TABLE
594 , p6_a5 in out nocopy JTF_NUMBER_TABLE
595 , p6_a6 in out nocopy JTF_NUMBER_TABLE
596 , p6_a7 in out nocopy JTF_VARCHAR2_TABLE_100
597 , p6_a8 in out nocopy JTF_VARCHAR2_TABLE_100
598 , p6_a9 in out nocopy JTF_NUMBER_TABLE
599 , p6_a10 in out nocopy JTF_VARCHAR2_TABLE_300
600 , p6_a11 in out nocopy JTF_NUMBER_TABLE
601 , p6_a12 in out nocopy JTF_VARCHAR2_TABLE_300
602 , p6_a13 in out nocopy JTF_NUMBER_TABLE
603 , p6_a14 in out nocopy JTF_VARCHAR2_TABLE_100
604 , p6_a15 in out nocopy JTF_VARCHAR2_TABLE_100
605 , p6_a16 in out nocopy JTF_VARCHAR2_TABLE_200
606 , p6_a17 in out nocopy JTF_VARCHAR2_TABLE_200
607 , p6_a18 in out nocopy JTF_VARCHAR2_TABLE_200
608 , p6_a19 in out nocopy JTF_VARCHAR2_TABLE_200
609 , p6_a20 in out nocopy JTF_VARCHAR2_TABLE_200
610 , p6_a21 in out nocopy JTF_VARCHAR2_TABLE_200
611 , p6_a22 in out nocopy JTF_VARCHAR2_TABLE_200
612 , p6_a23 in out nocopy JTF_VARCHAR2_TABLE_200
613 , p6_a24 in out nocopy JTF_VARCHAR2_TABLE_200
614 , p6_a25 in out nocopy JTF_VARCHAR2_TABLE_200
615 , p6_a26 in out nocopy JTF_VARCHAR2_TABLE_200
616 , p6_a27 in out nocopy JTF_VARCHAR2_TABLE_200
617 , p6_a28 in out nocopy JTF_VARCHAR2_TABLE_200
618 , p6_a29 in out nocopy JTF_VARCHAR2_TABLE_200
619 , p6_a30 in out nocopy JTF_VARCHAR2_TABLE_200
620 , p6_a31 in out nocopy JTF_VARCHAR2_TABLE_100
621 , x_return_status out nocopy VARCHAR2
622 , x_msg_count out nocopy NUMBER
623 , x_msg_data out nocopy VARCHAR2
624 )
625
626 as
627 ddp_x_space_rec ahl_appr_space_capb_pub.space_rec;
628 ddp_x_space_capbl_tbl ahl_appr_space_capb_pub.space_capbl_tbl;
629 ddindx binary_integer; indx binary_integer;
630 begin
631
632 -- copy data to the local IN or IN-OUT args, if any
633
634
635
636
637
638 ddp_x_space_rec.space_id := p5_a0;
639 ddp_x_space_rec.space_name := p5_a1;
640 ddp_x_space_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a2);
641 ddp_x_space_rec.last_updated_by := p5_a3;
642 ddp_x_space_rec.creation_date := rosetta_g_miss_date_in_map(p5_a4);
643 ddp_x_space_rec.created_by := p5_a5;
644 ddp_x_space_rec.last_update_login := p5_a6;
645 ddp_x_space_rec.object_version_number := p5_a7;
646 ddp_x_space_rec.organization_id := p5_a8;
647 ddp_x_space_rec.org_name := p5_a9;
648 ddp_x_space_rec.department_id := p5_a10;
649 ddp_x_space_rec.dept_description := p5_a11;
650 ddp_x_space_rec.space_category_code := p5_a12;
651 ddp_x_space_rec.space_category_mean := p5_a13;
652 ddp_x_space_rec.inactive_flag_code := p5_a14;
653 ddp_x_space_rec.inactive_flag_mean := p5_a15;
654 ddp_x_space_rec.description := p5_a16;
655 ddp_x_space_rec.attribute_category := p5_a17;
656 ddp_x_space_rec.attribute1 := p5_a18;
657 ddp_x_space_rec.attribute2 := p5_a19;
658 ddp_x_space_rec.attribute3 := p5_a20;
659 ddp_x_space_rec.attribute4 := p5_a21;
660 ddp_x_space_rec.attribute5 := p5_a22;
661 ddp_x_space_rec.attribute6 := p5_a23;
662 ddp_x_space_rec.attribute7 := p5_a24;
663 ddp_x_space_rec.attribute8 := p5_a25;
664 ddp_x_space_rec.attribute9 := p5_a26;
665 ddp_x_space_rec.attribute10 := p5_a27;
666 ddp_x_space_rec.attribute11 := p5_a28;
667 ddp_x_space_rec.attribute12 := p5_a29;
668 ddp_x_space_rec.attribute13 := p5_a30;
669 ddp_x_space_rec.attribute14 := p5_a31;
670 ddp_x_space_rec.attribute15 := p5_a32;
671 ddp_x_space_rec.operation_flag := p5_a33;
672
673 ahl_appr_space_capb_pub_w.rosetta_table_copy_in_p3(ddp_x_space_capbl_tbl, p6_a0
674 , p6_a1
675 , p6_a2
676 , p6_a3
677 , p6_a4
678 , p6_a5
679 , p6_a6
680 , p6_a7
681 , p6_a8
682 , p6_a9
683 , p6_a10
684 , p6_a11
685 , p6_a12
686 , p6_a13
687 , p6_a14
688 , p6_a15
689 , p6_a16
690 , p6_a17
691 , p6_a18
692 , p6_a19
693 , p6_a20
694 , p6_a21
695 , p6_a22
696 , p6_a23
697 , p6_a24
698 , p6_a25
699 , p6_a26
700 , p6_a27
701 , p6_a28
702 , p6_a29
703 , p6_a30
704 , p6_a31
705 );
706
707
708
709
710 -- here's the delegated call to the old PL/SQL routine
711 ahl_appr_space_capb_pub.process_space_capbl(p_api_version,
712 p_init_msg_list,
713 p_commit,
714 p_validation_level,
715 p_module_type,
716 ddp_x_space_rec,
717 ddp_x_space_capbl_tbl,
718 x_return_status,
719 x_msg_count,
720 x_msg_data);
721
722 -- copy data back from the local variables to OUT or IN-OUT args, if any
723
724
725
726
727
728 p5_a0 := ddp_x_space_rec.space_id;
729 p5_a1 := ddp_x_space_rec.space_name;
730 p5_a2 := ddp_x_space_rec.last_update_date;
731 p5_a3 := ddp_x_space_rec.last_updated_by;
732 p5_a4 := ddp_x_space_rec.creation_date;
733 p5_a5 := ddp_x_space_rec.created_by;
734 p5_a6 := ddp_x_space_rec.last_update_login;
735 p5_a7 := ddp_x_space_rec.object_version_number;
736 p5_a8 := ddp_x_space_rec.organization_id;
737 p5_a9 := ddp_x_space_rec.org_name;
738 p5_a10 := ddp_x_space_rec.department_id;
739 p5_a11 := ddp_x_space_rec.dept_description;
740 p5_a12 := ddp_x_space_rec.space_category_code;
741 p5_a13 := ddp_x_space_rec.space_category_mean;
742 p5_a14 := ddp_x_space_rec.inactive_flag_code;
743 p5_a15 := ddp_x_space_rec.inactive_flag_mean;
744 p5_a16 := ddp_x_space_rec.description;
745 p5_a17 := ddp_x_space_rec.attribute_category;
746 p5_a18 := ddp_x_space_rec.attribute1;
747 p5_a19 := ddp_x_space_rec.attribute2;
748 p5_a20 := ddp_x_space_rec.attribute3;
749 p5_a21 := ddp_x_space_rec.attribute4;
750 p5_a22 := ddp_x_space_rec.attribute5;
751 p5_a23 := ddp_x_space_rec.attribute6;
752 p5_a24 := ddp_x_space_rec.attribute7;
753 p5_a25 := ddp_x_space_rec.attribute8;
754 p5_a26 := ddp_x_space_rec.attribute9;
755 p5_a27 := ddp_x_space_rec.attribute10;
756 p5_a28 := ddp_x_space_rec.attribute11;
757 p5_a29 := ddp_x_space_rec.attribute12;
758 p5_a30 := ddp_x_space_rec.attribute13;
759 p5_a31 := ddp_x_space_rec.attribute14;
760 p5_a32 := ddp_x_space_rec.attribute15;
761 p5_a33 := ddp_x_space_rec.operation_flag;
762
763 ahl_appr_space_capb_pub_w.rosetta_table_copy_out_p3(ddp_x_space_capbl_tbl, p6_a0
764 , p6_a1
765 , p6_a2
766 , p6_a3
767 , p6_a4
768 , p6_a5
769 , p6_a6
770 , p6_a7
771 , p6_a8
772 , p6_a9
773 , p6_a10
774 , p6_a11
775 , p6_a12
776 , p6_a13
777 , p6_a14
778 , p6_a15
779 , p6_a16
780 , p6_a17
781 , p6_a18
782 , p6_a19
783 , p6_a20
784 , p6_a21
785 , p6_a22
786 , p6_a23
787 , p6_a24
788 , p6_a25
789 , p6_a26
790 , p6_a27
791 , p6_a28
792 , p6_a29
793 , p6_a30
794 , p6_a31
795 );
796
797
798
799 end;
800
801 end ahl_appr_space_capb_pub_w;