[Home] [Help]
PACKAGE BODY: APPS.AHL_PRD_VISITS_PVT_W
Source
1 package body ahl_prd_visits_pvt_w as
2 /* $Header: AHLWPSVB.pls 120.1 2006/05/03 00:45 bachandr 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_p1(t out nocopy ahl_prd_visits_pvt.visit_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_VARCHAR2_TABLE_100
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_DATE_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_DATE_TABLE
23 , a7 JTF_NUMBER_TABLE
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_VARCHAR2_TABLE_300
27 , a11 JTF_NUMBER_TABLE
28 , a12 JTF_VARCHAR2_TABLE_300
29 , a13 JTF_NUMBER_TABLE
30 , a14 JTF_VARCHAR2_TABLE_100
31 , a15 JTF_VARCHAR2_TABLE_100
32 , a16 JTF_VARCHAR2_TABLE_100
33 , a17 JTF_DATE_TABLE
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_DATE_TABLE
36 , a20 JTF_NUMBER_TABLE
37 , a21 JTF_DATE_TABLE
38 , a22 JTF_DATE_TABLE
39 , a23 JTF_VARCHAR2_TABLE_100
40 , a24 JTF_VARCHAR2_TABLE_100
41 , a25 JTF_VARCHAR2_TABLE_100
42 , a26 JTF_VARCHAR2_TABLE_100
43 , a27 JTF_NUMBER_TABLE
44 , a28 JTF_VARCHAR2_TABLE_100
45 , a29 JTF_NUMBER_TABLE
46 , a30 JTF_VARCHAR2_TABLE_100
47 , a31 JTF_NUMBER_TABLE
48 , a32 JTF_VARCHAR2_TABLE_100
49 , a33 JTF_NUMBER_TABLE
50 , a34 JTF_NUMBER_TABLE
51 , a35 JTF_VARCHAR2_TABLE_100
52 , a36 JTF_VARCHAR2_TABLE_100
53 , a37 JTF_VARCHAR2_TABLE_100
54 , a38 JTF_VARCHAR2_TABLE_100
55 , a39 JTF_VARCHAR2_TABLE_100
56 , a40 JTF_VARCHAR2_TABLE_100
57 , a41 JTF_NUMBER_TABLE
58 , a42 JTF_NUMBER_TABLE
59 , a43 JTF_VARCHAR2_TABLE_4000
60 , a44 JTF_NUMBER_TABLE
61 , a45 JTF_VARCHAR2_TABLE_100
62 , a46 JTF_VARCHAR2_TABLE_200
63 , a47 JTF_VARCHAR2_TABLE_200
64 , a48 JTF_VARCHAR2_TABLE_200
65 , a49 JTF_VARCHAR2_TABLE_200
66 , a50 JTF_VARCHAR2_TABLE_200
67 , a51 JTF_VARCHAR2_TABLE_200
68 , a52 JTF_VARCHAR2_TABLE_200
69 , a53 JTF_VARCHAR2_TABLE_200
70 , a54 JTF_VARCHAR2_TABLE_200
71 , a55 JTF_VARCHAR2_TABLE_200
72 , a56 JTF_VARCHAR2_TABLE_200
73 , a57 JTF_VARCHAR2_TABLE_200
74 , a58 JTF_VARCHAR2_TABLE_200
75 , a59 JTF_VARCHAR2_TABLE_200
76 , a60 JTF_VARCHAR2_TABLE_200
77 , a61 JTF_VARCHAR2_TABLE_100
78 , a62 JTF_VARCHAR2_TABLE_100
79 , a63 JTF_VARCHAR2_TABLE_300
80 , a64 JTF_VARCHAR2_TABLE_100
81 , a65 JTF_NUMBER_TABLE
82 , a66 JTF_VARCHAR2_TABLE_100
83 , a67 JTF_VARCHAR2_TABLE_100
84 ) as
85 ddindx binary_integer; indx binary_integer;
86 begin
87 if a0 is not null and a0.count > 0 then
88 if a0.count > 0 then
89 indx := a0.first;
90 ddindx := 1;
91 while true loop
92 t(ddindx).visit_id := a0(indx);
93 t(ddindx).visit_name := a1(indx);
94 t(ddindx).visit_number := a2(indx);
95 t(ddindx).object_version_number := a3(indx);
96 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
97 t(ddindx).last_updated_by := a5(indx);
98 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
99 t(ddindx).created_by := a7(indx);
100 t(ddindx).last_update_login := a8(indx);
101 t(ddindx).organization_id := a9(indx);
102 t(ddindx).org_name := a10(indx);
103 t(ddindx).department_id := a11(indx);
104 t(ddindx).dept_name := a12(indx);
105 t(ddindx).service_request_id := a13(indx);
106 t(ddindx).service_request_number := a14(indx);
107 t(ddindx).space_category_code := a15(indx);
108 t(ddindx).space_category_name := a16(indx);
109 t(ddindx).start_date := rosetta_g_miss_date_in_map(a17(indx));
110 t(ddindx).start_hour := a18(indx);
111 t(ddindx).plan_end_date := rosetta_g_miss_date_in_map(a19(indx));
112 t(ddindx).plan_end_hour := a20(indx);
113 t(ddindx).end_date := rosetta_g_miss_date_in_map(a21(indx));
114 t(ddindx).due_by_date := rosetta_g_miss_date_in_map(a22(indx));
115 t(ddindx).visit_type_code := a23(indx);
116 t(ddindx).visit_type_name := a24(indx);
117 t(ddindx).status_code := a25(indx);
118 t(ddindx).status_name := a26(indx);
119 t(ddindx).simulation_plan_id := a27(indx);
120 t(ddindx).simulation_plan_name := a28(indx);
121 t(ddindx).asso_primary_visit_id := a29(indx);
122 t(ddindx).unit_name := a30(indx);
123 t(ddindx).item_instance_id := a31(indx);
124 t(ddindx).serial_number := a32(indx);
125 t(ddindx).inventory_item_id := a33(indx);
126 t(ddindx).item_organization_id := a34(indx);
127 t(ddindx).item_name := a35(indx);
128 t(ddindx).simulation_delete_flag := a36(indx);
129 t(ddindx).template_flag := a37(indx);
130 t(ddindx).out_of_sync_flag := a38(indx);
131 t(ddindx).project_flag := a39(indx);
132 t(ddindx).project_flag_code := a40(indx);
133 t(ddindx).project_id := a41(indx);
134 t(ddindx).project_number := a42(indx);
135 t(ddindx).description := a43(indx);
136 t(ddindx).duration := a44(indx);
137 t(ddindx).attribute_category := a45(indx);
138 t(ddindx).attribute1 := a46(indx);
139 t(ddindx).attribute2 := a47(indx);
140 t(ddindx).attribute3 := a48(indx);
141 t(ddindx).attribute4 := a49(indx);
142 t(ddindx).attribute5 := a50(indx);
143 t(ddindx).attribute6 := a51(indx);
144 t(ddindx).attribute7 := a52(indx);
145 t(ddindx).attribute8 := a53(indx);
146 t(ddindx).attribute9 := a54(indx);
147 t(ddindx).attribute10 := a55(indx);
148 t(ddindx).attribute11 := a56(indx);
149 t(ddindx).attribute12 := a57(indx);
150 t(ddindx).attribute13 := a58(indx);
151 t(ddindx).attribute14 := a59(indx);
152 t(ddindx).attribute15 := a60(indx);
153 t(ddindx).operation_flag := a61(indx);
154 t(ddindx).outside_party_flag := a62(indx);
155 t(ddindx).job_number := a63(indx);
156 t(ddindx).proj_template_name := a64(indx);
157 t(ddindx).proj_template_id := a65(indx);
158 t(ddindx).priority_value := a66(indx);
159 t(ddindx).priority_code := a67(indx);
160 ddindx := ddindx+1;
161 if a0.last =indx
162 then exit;
163 end if;
164 indx := a0.next(indx);
165 end loop;
166 end if;
167 end if;
168 end rosetta_table_copy_in_p1;
169 procedure rosetta_table_copy_out_p1(t ahl_prd_visits_pvt.visit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
170 , a1 out nocopy JTF_VARCHAR2_TABLE_100
171 , a2 out nocopy JTF_NUMBER_TABLE
172 , a3 out nocopy JTF_NUMBER_TABLE
173 , a4 out nocopy JTF_DATE_TABLE
174 , a5 out nocopy JTF_NUMBER_TABLE
175 , a6 out nocopy JTF_DATE_TABLE
176 , a7 out nocopy JTF_NUMBER_TABLE
177 , a8 out nocopy JTF_NUMBER_TABLE
178 , a9 out nocopy JTF_NUMBER_TABLE
179 , a10 out nocopy JTF_VARCHAR2_TABLE_300
180 , a11 out nocopy JTF_NUMBER_TABLE
181 , a12 out nocopy JTF_VARCHAR2_TABLE_300
182 , a13 out nocopy JTF_NUMBER_TABLE
183 , a14 out nocopy JTF_VARCHAR2_TABLE_100
184 , a15 out nocopy JTF_VARCHAR2_TABLE_100
185 , a16 out nocopy JTF_VARCHAR2_TABLE_100
186 , a17 out nocopy JTF_DATE_TABLE
187 , a18 out nocopy JTF_NUMBER_TABLE
188 , a19 out nocopy JTF_DATE_TABLE
189 , a20 out nocopy JTF_NUMBER_TABLE
190 , a21 out nocopy JTF_DATE_TABLE
191 , a22 out nocopy JTF_DATE_TABLE
192 , a23 out nocopy JTF_VARCHAR2_TABLE_100
193 , a24 out nocopy JTF_VARCHAR2_TABLE_100
194 , a25 out nocopy JTF_VARCHAR2_TABLE_100
195 , a26 out nocopy JTF_VARCHAR2_TABLE_100
196 , a27 out nocopy JTF_NUMBER_TABLE
197 , a28 out nocopy JTF_VARCHAR2_TABLE_100
198 , a29 out nocopy JTF_NUMBER_TABLE
199 , a30 out nocopy JTF_VARCHAR2_TABLE_100
200 , a31 out nocopy JTF_NUMBER_TABLE
201 , a32 out nocopy JTF_VARCHAR2_TABLE_100
202 , a33 out nocopy JTF_NUMBER_TABLE
203 , a34 out nocopy JTF_NUMBER_TABLE
204 , a35 out nocopy JTF_VARCHAR2_TABLE_100
205 , a36 out nocopy JTF_VARCHAR2_TABLE_100
206 , a37 out nocopy JTF_VARCHAR2_TABLE_100
207 , a38 out nocopy JTF_VARCHAR2_TABLE_100
208 , a39 out nocopy JTF_VARCHAR2_TABLE_100
209 , a40 out nocopy JTF_VARCHAR2_TABLE_100
210 , a41 out nocopy JTF_NUMBER_TABLE
211 , a42 out nocopy JTF_NUMBER_TABLE
212 , a43 out nocopy JTF_VARCHAR2_TABLE_4000
213 , a44 out nocopy JTF_NUMBER_TABLE
214 , a45 out nocopy JTF_VARCHAR2_TABLE_100
215 , a46 out nocopy JTF_VARCHAR2_TABLE_200
216 , a47 out nocopy JTF_VARCHAR2_TABLE_200
217 , a48 out nocopy JTF_VARCHAR2_TABLE_200
218 , a49 out nocopy JTF_VARCHAR2_TABLE_200
219 , a50 out nocopy JTF_VARCHAR2_TABLE_200
220 , a51 out nocopy JTF_VARCHAR2_TABLE_200
221 , a52 out nocopy JTF_VARCHAR2_TABLE_200
222 , a53 out nocopy JTF_VARCHAR2_TABLE_200
223 , a54 out nocopy JTF_VARCHAR2_TABLE_200
224 , a55 out nocopy JTF_VARCHAR2_TABLE_200
225 , a56 out nocopy JTF_VARCHAR2_TABLE_200
226 , a57 out nocopy JTF_VARCHAR2_TABLE_200
227 , a58 out nocopy JTF_VARCHAR2_TABLE_200
228 , a59 out nocopy JTF_VARCHAR2_TABLE_200
229 , a60 out nocopy JTF_VARCHAR2_TABLE_200
230 , a61 out nocopy JTF_VARCHAR2_TABLE_100
231 , a62 out nocopy JTF_VARCHAR2_TABLE_100
232 , a63 out nocopy JTF_VARCHAR2_TABLE_300
233 , a64 out nocopy JTF_VARCHAR2_TABLE_100
234 , a65 out nocopy JTF_NUMBER_TABLE
235 , a66 out nocopy JTF_VARCHAR2_TABLE_100
236 , a67 out nocopy JTF_VARCHAR2_TABLE_100
237 ) as
238 ddindx binary_integer; indx binary_integer;
239 begin
240 if t is null or t.count = 0 then
241 a0 := JTF_NUMBER_TABLE();
242 a1 := JTF_VARCHAR2_TABLE_100();
243 a2 := JTF_NUMBER_TABLE();
244 a3 := JTF_NUMBER_TABLE();
245 a4 := JTF_DATE_TABLE();
246 a5 := JTF_NUMBER_TABLE();
247 a6 := JTF_DATE_TABLE();
248 a7 := JTF_NUMBER_TABLE();
249 a8 := JTF_NUMBER_TABLE();
250 a9 := JTF_NUMBER_TABLE();
251 a10 := JTF_VARCHAR2_TABLE_300();
252 a11 := JTF_NUMBER_TABLE();
253 a12 := JTF_VARCHAR2_TABLE_300();
254 a13 := JTF_NUMBER_TABLE();
255 a14 := JTF_VARCHAR2_TABLE_100();
256 a15 := JTF_VARCHAR2_TABLE_100();
257 a16 := JTF_VARCHAR2_TABLE_100();
258 a17 := JTF_DATE_TABLE();
259 a18 := JTF_NUMBER_TABLE();
260 a19 := JTF_DATE_TABLE();
261 a20 := JTF_NUMBER_TABLE();
262 a21 := JTF_DATE_TABLE();
263 a22 := JTF_DATE_TABLE();
264 a23 := JTF_VARCHAR2_TABLE_100();
265 a24 := JTF_VARCHAR2_TABLE_100();
266 a25 := JTF_VARCHAR2_TABLE_100();
267 a26 := JTF_VARCHAR2_TABLE_100();
268 a27 := JTF_NUMBER_TABLE();
269 a28 := JTF_VARCHAR2_TABLE_100();
270 a29 := JTF_NUMBER_TABLE();
271 a30 := JTF_VARCHAR2_TABLE_100();
272 a31 := JTF_NUMBER_TABLE();
273 a32 := JTF_VARCHAR2_TABLE_100();
274 a33 := JTF_NUMBER_TABLE();
275 a34 := JTF_NUMBER_TABLE();
276 a35 := JTF_VARCHAR2_TABLE_100();
277 a36 := JTF_VARCHAR2_TABLE_100();
278 a37 := JTF_VARCHAR2_TABLE_100();
279 a38 := JTF_VARCHAR2_TABLE_100();
280 a39 := JTF_VARCHAR2_TABLE_100();
281 a40 := JTF_VARCHAR2_TABLE_100();
282 a41 := JTF_NUMBER_TABLE();
283 a42 := JTF_NUMBER_TABLE();
284 a43 := JTF_VARCHAR2_TABLE_4000();
285 a44 := JTF_NUMBER_TABLE();
286 a45 := JTF_VARCHAR2_TABLE_100();
287 a46 := JTF_VARCHAR2_TABLE_200();
288 a47 := JTF_VARCHAR2_TABLE_200();
289 a48 := JTF_VARCHAR2_TABLE_200();
290 a49 := JTF_VARCHAR2_TABLE_200();
291 a50 := JTF_VARCHAR2_TABLE_200();
292 a51 := JTF_VARCHAR2_TABLE_200();
293 a52 := JTF_VARCHAR2_TABLE_200();
294 a53 := JTF_VARCHAR2_TABLE_200();
295 a54 := JTF_VARCHAR2_TABLE_200();
296 a55 := JTF_VARCHAR2_TABLE_200();
297 a56 := JTF_VARCHAR2_TABLE_200();
298 a57 := JTF_VARCHAR2_TABLE_200();
299 a58 := JTF_VARCHAR2_TABLE_200();
300 a59 := JTF_VARCHAR2_TABLE_200();
301 a60 := JTF_VARCHAR2_TABLE_200();
302 a61 := JTF_VARCHAR2_TABLE_100();
303 a62 := JTF_VARCHAR2_TABLE_100();
304 a63 := JTF_VARCHAR2_TABLE_300();
305 a64 := JTF_VARCHAR2_TABLE_100();
306 a65 := JTF_NUMBER_TABLE();
307 a66 := JTF_VARCHAR2_TABLE_100();
308 a67 := JTF_VARCHAR2_TABLE_100();
309 else
310 a0 := JTF_NUMBER_TABLE();
311 a1 := JTF_VARCHAR2_TABLE_100();
312 a2 := JTF_NUMBER_TABLE();
316 a6 := JTF_DATE_TABLE();
313 a3 := JTF_NUMBER_TABLE();
314 a4 := JTF_DATE_TABLE();
315 a5 := JTF_NUMBER_TABLE();
317 a7 := JTF_NUMBER_TABLE();
318 a8 := JTF_NUMBER_TABLE();
319 a9 := JTF_NUMBER_TABLE();
320 a10 := JTF_VARCHAR2_TABLE_300();
321 a11 := JTF_NUMBER_TABLE();
322 a12 := JTF_VARCHAR2_TABLE_300();
323 a13 := JTF_NUMBER_TABLE();
324 a14 := JTF_VARCHAR2_TABLE_100();
325 a15 := JTF_VARCHAR2_TABLE_100();
326 a16 := JTF_VARCHAR2_TABLE_100();
327 a17 := JTF_DATE_TABLE();
328 a18 := JTF_NUMBER_TABLE();
329 a19 := JTF_DATE_TABLE();
330 a20 := JTF_NUMBER_TABLE();
331 a21 := JTF_DATE_TABLE();
332 a22 := JTF_DATE_TABLE();
333 a23 := JTF_VARCHAR2_TABLE_100();
334 a24 := JTF_VARCHAR2_TABLE_100();
335 a25 := JTF_VARCHAR2_TABLE_100();
336 a26 := JTF_VARCHAR2_TABLE_100();
337 a27 := JTF_NUMBER_TABLE();
338 a28 := JTF_VARCHAR2_TABLE_100();
339 a29 := JTF_NUMBER_TABLE();
340 a30 := JTF_VARCHAR2_TABLE_100();
341 a31 := JTF_NUMBER_TABLE();
342 a32 := JTF_VARCHAR2_TABLE_100();
343 a33 := JTF_NUMBER_TABLE();
344 a34 := JTF_NUMBER_TABLE();
345 a35 := JTF_VARCHAR2_TABLE_100();
346 a36 := JTF_VARCHAR2_TABLE_100();
347 a37 := JTF_VARCHAR2_TABLE_100();
348 a38 := JTF_VARCHAR2_TABLE_100();
349 a39 := JTF_VARCHAR2_TABLE_100();
350 a40 := JTF_VARCHAR2_TABLE_100();
351 a41 := JTF_NUMBER_TABLE();
352 a42 := JTF_NUMBER_TABLE();
353 a43 := JTF_VARCHAR2_TABLE_4000();
354 a44 := JTF_NUMBER_TABLE();
355 a45 := JTF_VARCHAR2_TABLE_100();
356 a46 := JTF_VARCHAR2_TABLE_200();
357 a47 := JTF_VARCHAR2_TABLE_200();
358 a48 := JTF_VARCHAR2_TABLE_200();
359 a49 := JTF_VARCHAR2_TABLE_200();
360 a50 := JTF_VARCHAR2_TABLE_200();
361 a51 := JTF_VARCHAR2_TABLE_200();
362 a52 := JTF_VARCHAR2_TABLE_200();
363 a53 := JTF_VARCHAR2_TABLE_200();
364 a54 := JTF_VARCHAR2_TABLE_200();
365 a55 := JTF_VARCHAR2_TABLE_200();
366 a56 := JTF_VARCHAR2_TABLE_200();
367 a57 := JTF_VARCHAR2_TABLE_200();
368 a58 := JTF_VARCHAR2_TABLE_200();
369 a59 := JTF_VARCHAR2_TABLE_200();
370 a60 := JTF_VARCHAR2_TABLE_200();
371 a61 := JTF_VARCHAR2_TABLE_100();
372 a62 := JTF_VARCHAR2_TABLE_100();
373 a63 := JTF_VARCHAR2_TABLE_300();
374 a64 := JTF_VARCHAR2_TABLE_100();
375 a65 := JTF_NUMBER_TABLE();
376 a66 := JTF_VARCHAR2_TABLE_100();
377 a67 := JTF_VARCHAR2_TABLE_100();
378 if t.count > 0 then
379 a0.extend(t.count);
380 a1.extend(t.count);
381 a2.extend(t.count);
382 a3.extend(t.count);
383 a4.extend(t.count);
384 a5.extend(t.count);
385 a6.extend(t.count);
386 a7.extend(t.count);
387 a8.extend(t.count);
388 a9.extend(t.count);
389 a10.extend(t.count);
390 a11.extend(t.count);
391 a12.extend(t.count);
392 a13.extend(t.count);
393 a14.extend(t.count);
394 a15.extend(t.count);
395 a16.extend(t.count);
396 a17.extend(t.count);
397 a18.extend(t.count);
398 a19.extend(t.count);
399 a20.extend(t.count);
400 a21.extend(t.count);
401 a22.extend(t.count);
402 a23.extend(t.count);
403 a24.extend(t.count);
404 a25.extend(t.count);
405 a26.extend(t.count);
406 a27.extend(t.count);
407 a28.extend(t.count);
408 a29.extend(t.count);
409 a30.extend(t.count);
410 a31.extend(t.count);
411 a32.extend(t.count);
412 a33.extend(t.count);
413 a34.extend(t.count);
414 a35.extend(t.count);
415 a36.extend(t.count);
416 a37.extend(t.count);
417 a38.extend(t.count);
418 a39.extend(t.count);
419 a40.extend(t.count);
420 a41.extend(t.count);
421 a42.extend(t.count);
422 a43.extend(t.count);
423 a44.extend(t.count);
424 a45.extend(t.count);
425 a46.extend(t.count);
426 a47.extend(t.count);
427 a48.extend(t.count);
428 a49.extend(t.count);
429 a50.extend(t.count);
430 a51.extend(t.count);
431 a52.extend(t.count);
432 a53.extend(t.count);
433 a54.extend(t.count);
434 a55.extend(t.count);
435 a56.extend(t.count);
436 a57.extend(t.count);
437 a58.extend(t.count);
438 a59.extend(t.count);
439 a60.extend(t.count);
440 a61.extend(t.count);
441 a62.extend(t.count);
442 a63.extend(t.count);
443 a64.extend(t.count);
444 a65.extend(t.count);
445 a66.extend(t.count);
446 a67.extend(t.count);
447 ddindx := t.first;
448 indx := 1;
449 while true loop
450 a0(indx) := t(ddindx).visit_id;
451 a1(indx) := t(ddindx).visit_name;
452 a2(indx) := t(ddindx).visit_number;
453 a3(indx) := t(ddindx).object_version_number;
454 a4(indx) := t(ddindx).last_update_date;
455 a5(indx) := t(ddindx).last_updated_by;
456 a6(indx) := t(ddindx).creation_date;
457 a7(indx) := t(ddindx).created_by;
458 a8(indx) := t(ddindx).last_update_login;
459 a9(indx) := t(ddindx).organization_id;
460 a10(indx) := t(ddindx).org_name;
461 a11(indx) := t(ddindx).department_id;
462 a12(indx) := t(ddindx).dept_name;
466 a16(indx) := t(ddindx).space_category_name;
463 a13(indx) := t(ddindx).service_request_id;
464 a14(indx) := t(ddindx).service_request_number;
465 a15(indx) := t(ddindx).space_category_code;
467 a17(indx) := t(ddindx).start_date;
468 a18(indx) := t(ddindx).start_hour;
469 a19(indx) := t(ddindx).plan_end_date;
470 a20(indx) := t(ddindx).plan_end_hour;
471 a21(indx) := t(ddindx).end_date;
472 a22(indx) := t(ddindx).due_by_date;
473 a23(indx) := t(ddindx).visit_type_code;
474 a24(indx) := t(ddindx).visit_type_name;
475 a25(indx) := t(ddindx).status_code;
476 a26(indx) := t(ddindx).status_name;
477 a27(indx) := t(ddindx).simulation_plan_id;
478 a28(indx) := t(ddindx).simulation_plan_name;
479 a29(indx) := t(ddindx).asso_primary_visit_id;
480 a30(indx) := t(ddindx).unit_name;
481 a31(indx) := t(ddindx).item_instance_id;
482 a32(indx) := t(ddindx).serial_number;
483 a33(indx) := t(ddindx).inventory_item_id;
484 a34(indx) := t(ddindx).item_organization_id;
485 a35(indx) := t(ddindx).item_name;
486 a36(indx) := t(ddindx).simulation_delete_flag;
487 a37(indx) := t(ddindx).template_flag;
488 a38(indx) := t(ddindx).out_of_sync_flag;
489 a39(indx) := t(ddindx).project_flag;
490 a40(indx) := t(ddindx).project_flag_code;
491 a41(indx) := t(ddindx).project_id;
492 a42(indx) := t(ddindx).project_number;
493 a43(indx) := t(ddindx).description;
494 a44(indx) := t(ddindx).duration;
495 a45(indx) := t(ddindx).attribute_category;
496 a46(indx) := t(ddindx).attribute1;
497 a47(indx) := t(ddindx).attribute2;
498 a48(indx) := t(ddindx).attribute3;
499 a49(indx) := t(ddindx).attribute4;
500 a50(indx) := t(ddindx).attribute5;
501 a51(indx) := t(ddindx).attribute6;
502 a52(indx) := t(ddindx).attribute7;
503 a53(indx) := t(ddindx).attribute8;
504 a54(indx) := t(ddindx).attribute9;
505 a55(indx) := t(ddindx).attribute10;
506 a56(indx) := t(ddindx).attribute11;
507 a57(indx) := t(ddindx).attribute12;
508 a58(indx) := t(ddindx).attribute13;
509 a59(indx) := t(ddindx).attribute14;
510 a60(indx) := t(ddindx).attribute15;
511 a61(indx) := t(ddindx).operation_flag;
512 a62(indx) := t(ddindx).outside_party_flag;
513 a63(indx) := t(ddindx).job_number;
514 a64(indx) := t(ddindx).proj_template_name;
515 a65(indx) := t(ddindx).proj_template_id;
516 a66(indx) := t(ddindx).priority_value;
517 a67(indx) := t(ddindx).priority_code;
518 indx := indx+1;
519 if t.last =ddindx
520 then exit;
521 end if;
522 ddindx := t.next(ddindx);
523 end loop;
524 end if;
525 end if;
526 end rosetta_table_copy_out_p1;
527
528 procedure get_visit_details(p_api_version NUMBER
529 , p_init_msg_list VARCHAR2
530 , p_commit VARCHAR2
531 , p_validation_level NUMBER
532 , p_module_type VARCHAR2
533 , p_visit_id NUMBER
534 , p6_a0 out nocopy NUMBER
535 , p6_a1 out nocopy VARCHAR2
536 , p6_a2 out nocopy NUMBER
537 , p6_a3 out nocopy NUMBER
538 , p6_a4 out nocopy DATE
539 , p6_a5 out nocopy NUMBER
540 , p6_a6 out nocopy DATE
541 , p6_a7 out nocopy NUMBER
542 , p6_a8 out nocopy NUMBER
543 , p6_a9 out nocopy NUMBER
544 , p6_a10 out nocopy VARCHAR2
545 , p6_a11 out nocopy NUMBER
546 , p6_a12 out nocopy VARCHAR2
547 , p6_a13 out nocopy NUMBER
548 , p6_a14 out nocopy VARCHAR2
549 , p6_a15 out nocopy VARCHAR2
550 , p6_a16 out nocopy VARCHAR2
551 , p6_a17 out nocopy DATE
552 , p6_a18 out nocopy NUMBER
553 , p6_a19 out nocopy DATE
554 , p6_a20 out nocopy NUMBER
555 , p6_a21 out nocopy DATE
556 , p6_a22 out nocopy DATE
557 , p6_a23 out nocopy VARCHAR2
558 , p6_a24 out nocopy VARCHAR2
559 , p6_a25 out nocopy VARCHAR2
560 , p6_a26 out nocopy VARCHAR2
561 , p6_a27 out nocopy NUMBER
562 , p6_a28 out nocopy VARCHAR2
563 , p6_a29 out nocopy NUMBER
564 , p6_a30 out nocopy VARCHAR2
565 , p6_a31 out nocopy NUMBER
566 , p6_a32 out nocopy VARCHAR2
567 , p6_a33 out nocopy NUMBER
568 , p6_a34 out nocopy NUMBER
569 , p6_a35 out nocopy VARCHAR2
570 , p6_a36 out nocopy VARCHAR2
571 , p6_a37 out nocopy VARCHAR2
572 , p6_a38 out nocopy VARCHAR2
573 , p6_a39 out nocopy VARCHAR2
574 , p6_a40 out nocopy VARCHAR2
575 , p6_a41 out nocopy NUMBER
576 , p6_a42 out nocopy NUMBER
577 , p6_a43 out nocopy VARCHAR2
578 , p6_a44 out nocopy NUMBER
579 , p6_a45 out nocopy VARCHAR2
580 , p6_a46 out nocopy VARCHAR2
581 , p6_a47 out nocopy VARCHAR2
582 , p6_a48 out nocopy VARCHAR2
583 , p6_a49 out nocopy VARCHAR2
584 , p6_a50 out nocopy VARCHAR2
585 , p6_a51 out nocopy VARCHAR2
586 , p6_a52 out nocopy VARCHAR2
587 , p6_a53 out nocopy VARCHAR2
588 , p6_a54 out nocopy VARCHAR2
589 , p6_a55 out nocopy VARCHAR2
590 , p6_a56 out nocopy VARCHAR2
591 , p6_a57 out nocopy VARCHAR2
592 , p6_a58 out nocopy VARCHAR2
593 , p6_a59 out nocopy VARCHAR2
594 , p6_a60 out nocopy VARCHAR2
595 , p6_a61 out nocopy VARCHAR2
596 , p6_a62 out nocopy VARCHAR2
597 , p6_a63 out nocopy VARCHAR2
598 , p6_a64 out nocopy VARCHAR2
599 , p6_a65 out nocopy NUMBER
603 , x_msg_count out nocopy NUMBER
600 , p6_a66 out nocopy VARCHAR2
601 , p6_a67 out nocopy VARCHAR2
602 , x_return_status out nocopy VARCHAR2
604 , x_msg_data out nocopy VARCHAR2
605 )
606
607 as
608 ddx_visit_rec ahl_prd_visits_pvt.visit_rec_type;
609 ddindx binary_integer; indx binary_integer;
610 begin
611
612 -- copy data to the local IN or IN-OUT args, if any
613
614
615
616
617
618
619
620
621
622
623 -- here's the delegated call to the old PL/SQL routine
624 ahl_prd_visits_pvt.get_visit_details(p_api_version,
625 p_init_msg_list,
626 p_commit,
627 p_validation_level,
628 p_module_type,
629 p_visit_id,
630 ddx_visit_rec,
631 x_return_status,
632 x_msg_count,
633 x_msg_data);
634
635 -- copy data back from the local variables to OUT or IN-OUT args, if any
636
637
638
639
640
641
642 p6_a0 := ddx_visit_rec.visit_id;
643 p6_a1 := ddx_visit_rec.visit_name;
644 p6_a2 := ddx_visit_rec.visit_number;
645 p6_a3 := ddx_visit_rec.object_version_number;
646 p6_a4 := ddx_visit_rec.last_update_date;
647 p6_a5 := ddx_visit_rec.last_updated_by;
648 p6_a6 := ddx_visit_rec.creation_date;
649 p6_a7 := ddx_visit_rec.created_by;
650 p6_a8 := ddx_visit_rec.last_update_login;
651 p6_a9 := ddx_visit_rec.organization_id;
652 p6_a10 := ddx_visit_rec.org_name;
653 p6_a11 := ddx_visit_rec.department_id;
654 p6_a12 := ddx_visit_rec.dept_name;
655 p6_a13 := ddx_visit_rec.service_request_id;
656 p6_a14 := ddx_visit_rec.service_request_number;
657 p6_a15 := ddx_visit_rec.space_category_code;
658 p6_a16 := ddx_visit_rec.space_category_name;
659 p6_a17 := ddx_visit_rec.start_date;
660 p6_a18 := ddx_visit_rec.start_hour;
661 p6_a19 := ddx_visit_rec.plan_end_date;
662 p6_a20 := ddx_visit_rec.plan_end_hour;
663 p6_a21 := ddx_visit_rec.end_date;
664 p6_a22 := ddx_visit_rec.due_by_date;
665 p6_a23 := ddx_visit_rec.visit_type_code;
666 p6_a24 := ddx_visit_rec.visit_type_name;
667 p6_a25 := ddx_visit_rec.status_code;
668 p6_a26 := ddx_visit_rec.status_name;
669 p6_a27 := ddx_visit_rec.simulation_plan_id;
670 p6_a28 := ddx_visit_rec.simulation_plan_name;
671 p6_a29 := ddx_visit_rec.asso_primary_visit_id;
672 p6_a30 := ddx_visit_rec.unit_name;
673 p6_a31 := ddx_visit_rec.item_instance_id;
674 p6_a32 := ddx_visit_rec.serial_number;
675 p6_a33 := ddx_visit_rec.inventory_item_id;
676 p6_a34 := ddx_visit_rec.item_organization_id;
677 p6_a35 := ddx_visit_rec.item_name;
678 p6_a36 := ddx_visit_rec.simulation_delete_flag;
679 p6_a37 := ddx_visit_rec.template_flag;
680 p6_a38 := ddx_visit_rec.out_of_sync_flag;
681 p6_a39 := ddx_visit_rec.project_flag;
682 p6_a40 := ddx_visit_rec.project_flag_code;
683 p6_a41 := ddx_visit_rec.project_id;
684 p6_a42 := ddx_visit_rec.project_number;
685 p6_a43 := ddx_visit_rec.description;
686 p6_a44 := ddx_visit_rec.duration;
687 p6_a45 := ddx_visit_rec.attribute_category;
688 p6_a46 := ddx_visit_rec.attribute1;
689 p6_a47 := ddx_visit_rec.attribute2;
690 p6_a48 := ddx_visit_rec.attribute3;
691 p6_a49 := ddx_visit_rec.attribute4;
692 p6_a50 := ddx_visit_rec.attribute5;
693 p6_a51 := ddx_visit_rec.attribute6;
694 p6_a52 := ddx_visit_rec.attribute7;
695 p6_a53 := ddx_visit_rec.attribute8;
696 p6_a54 := ddx_visit_rec.attribute9;
697 p6_a55 := ddx_visit_rec.attribute10;
698 p6_a56 := ddx_visit_rec.attribute11;
699 p6_a57 := ddx_visit_rec.attribute12;
700 p6_a58 := ddx_visit_rec.attribute13;
701 p6_a59 := ddx_visit_rec.attribute14;
702 p6_a60 := ddx_visit_rec.attribute15;
703 p6_a61 := ddx_visit_rec.operation_flag;
704 p6_a62 := ddx_visit_rec.outside_party_flag;
705 p6_a63 := ddx_visit_rec.job_number;
706 p6_a64 := ddx_visit_rec.proj_template_name;
707 p6_a65 := ddx_visit_rec.proj_template_id;
708 p6_a66 := ddx_visit_rec.priority_value;
709 p6_a67 := ddx_visit_rec.priority_code;
710
711
712
713 end;
714
715 end ahl_prd_visits_pvt_w;