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