[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_VISITS_PVT_W
Source
1 package body ahl_vwp_visits_pvt_w as
2 /* $Header: AHLWVSTB.pls 120.2 2007/12/18 09:57:23 sowsubra ship $ */
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_p3(t out nocopy ahl_vwp_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_NUMBER_TABLE
36 , a20 JTF_DATE_TABLE
37 , a21 JTF_NUMBER_TABLE
38 , a22 JTF_NUMBER_TABLE
39 , a23 JTF_DATE_TABLE
40 , a24 JTF_DATE_TABLE
41 , a25 JTF_VARCHAR2_TABLE_100
42 , a26 JTF_VARCHAR2_TABLE_100
43 , a27 JTF_VARCHAR2_TABLE_100
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_VARCHAR2_TABLE_100
51 , a35 JTF_NUMBER_TABLE
52 , a36 JTF_NUMBER_TABLE
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_VARCHAR2_TABLE_100
58 , a42 JTF_VARCHAR2_TABLE_100
59 , a43 JTF_NUMBER_TABLE
60 , a44 JTF_NUMBER_TABLE
61 , a45 JTF_VARCHAR2_TABLE_4000
62 , a46 JTF_NUMBER_TABLE
63 , a47 JTF_VARCHAR2_TABLE_100
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_200
78 , a62 JTF_VARCHAR2_TABLE_200
79 , a63 JTF_VARCHAR2_TABLE_100
80 , a64 JTF_VARCHAR2_TABLE_100
81 , a65 JTF_VARCHAR2_TABLE_300
82 , a66 JTF_VARCHAR2_TABLE_100
83 , a67 JTF_NUMBER_TABLE
84 , a68 JTF_VARCHAR2_TABLE_100
85 , a69 JTF_VARCHAR2_TABLE_100
86 , a70 JTF_NUMBER_TABLE
87 , a71 JTF_VARCHAR2_TABLE_100
88 , a72 JTF_VARCHAR2_TABLE_100
89 , a73 JTF_NUMBER_TABLE
90 , a74 JTF_VARCHAR2_TABLE_100
91 , a75 JTF_VARCHAR2_TABLE_100
92 , a76 JTF_VARCHAR2_TABLE_300
93 , a77 JTF_NUMBER_TABLE
94 ) as
95 ddindx binary_integer; indx binary_integer;
96 begin
97 if a0 is not null and a0.count > 0 then
98 if a0.count > 0 then
99 indx := a0.first;
100 ddindx := 1;
101 while true loop
102 t(ddindx).visit_id := a0(indx);
103 t(ddindx).visit_name := a1(indx);
104 t(ddindx).visit_number := a2(indx);
105 t(ddindx).object_version_number := a3(indx);
106 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a4(indx));
107 t(ddindx).last_updated_by := a5(indx);
108 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a6(indx));
109 t(ddindx).created_by := a7(indx);
110 t(ddindx).last_update_login := a8(indx);
111 t(ddindx).organization_id := a9(indx);
112 t(ddindx).org_name := a10(indx);
113 t(ddindx).department_id := a11(indx);
114 t(ddindx).dept_name := a12(indx);
115 t(ddindx).service_request_id := a13(indx);
116 t(ddindx).service_request_number := a14(indx);
117 t(ddindx).space_category_code := a15(indx);
118 t(ddindx).space_category_name := a16(indx);
119 t(ddindx).start_date := rosetta_g_miss_date_in_map(a17(indx));
120 t(ddindx).start_hour := a18(indx);
121 t(ddindx).start_min := a19(indx);
122 t(ddindx).plan_end_date := rosetta_g_miss_date_in_map(a20(indx));
123 t(ddindx).plan_end_hour := a21(indx);
124 t(ddindx).plan_end_min := a22(indx);
125 t(ddindx).end_date := rosetta_g_miss_date_in_map(a23(indx));
126 t(ddindx).due_by_date := rosetta_g_miss_date_in_map(a24(indx));
127 t(ddindx).visit_type_code := a25(indx);
128 t(ddindx).visit_type_name := a26(indx);
129 t(ddindx).status_code := a27(indx);
130 t(ddindx).status_name := a28(indx);
131 t(ddindx).simulation_plan_id := a29(indx);
132 t(ddindx).simulation_plan_name := a30(indx);
133 t(ddindx).asso_primary_visit_id := a31(indx);
134 t(ddindx).unit_name := a32(indx);
135 t(ddindx).item_instance_id := a33(indx);
136 t(ddindx).serial_number := a34(indx);
137 t(ddindx).inventory_item_id := a35(indx);
138 t(ddindx).item_organization_id := a36(indx);
139 t(ddindx).item_name := a37(indx);
140 t(ddindx).simulation_delete_flag := a38(indx);
141 t(ddindx).template_flag := a39(indx);
142 t(ddindx).out_of_sync_flag := a40(indx);
143 t(ddindx).project_flag := a41(indx);
144 t(ddindx).project_flag_code := a42(indx);
145 t(ddindx).project_id := a43(indx);
146 t(ddindx).project_number := a44(indx);
147 t(ddindx).description := a45(indx);
148 t(ddindx).duration := a46(indx);
149 t(ddindx).attribute_category := a47(indx);
150 t(ddindx).attribute1 := a48(indx);
151 t(ddindx).attribute2 := a49(indx);
152 t(ddindx).attribute3 := a50(indx);
153 t(ddindx).attribute4 := a51(indx);
154 t(ddindx).attribute5 := a52(indx);
155 t(ddindx).attribute6 := a53(indx);
156 t(ddindx).attribute7 := a54(indx);
157 t(ddindx).attribute8 := a55(indx);
158 t(ddindx).attribute9 := a56(indx);
159 t(ddindx).attribute10 := a57(indx);
160 t(ddindx).attribute11 := a58(indx);
161 t(ddindx).attribute12 := a59(indx);
162 t(ddindx).attribute13 := a60(indx);
163 t(ddindx).attribute14 := a61(indx);
164 t(ddindx).attribute15 := a62(indx);
165 t(ddindx).operation_flag := a63(indx);
166 t(ddindx).outside_party_flag := a64(indx);
167 t(ddindx).job_number := a65(indx);
168 t(ddindx).proj_template_name := a66(indx);
169 t(ddindx).proj_template_id := a67(indx);
170 t(ddindx).priority_value := a68(indx);
171 t(ddindx).priority_code := a69(indx);
172 t(ddindx).unit_schedule_id := a70(indx);
173 t(ddindx).visit_create_type := a71(indx);
174 t(ddindx).visit_create_meaning := a72(indx);
175 t(ddindx).unit_header_id := a73(indx);
176 t(ddindx).flight_number := a74(indx);
177 t(ddindx).subinventory := a75(indx);
178 t(ddindx).locator_segment := a76(indx);
179 t(ddindx).inv_locator_id := a77(indx);
180 ddindx := ddindx+1;
181 if a0.last =indx
182 then exit;
183 end if;
184 indx := a0.next(indx);
185 end loop;
186 end if;
187 end if;
188 end rosetta_table_copy_in_p3;
189 procedure rosetta_table_copy_out_p3(t ahl_vwp_visits_pvt.visit_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
190 , a1 out nocopy JTF_VARCHAR2_TABLE_100
191 , a2 out nocopy JTF_NUMBER_TABLE
192 , a3 out nocopy JTF_NUMBER_TABLE
193 , a4 out nocopy JTF_DATE_TABLE
194 , a5 out nocopy JTF_NUMBER_TABLE
195 , a6 out nocopy JTF_DATE_TABLE
196 , a7 out nocopy JTF_NUMBER_TABLE
197 , a8 out nocopy JTF_NUMBER_TABLE
198 , a9 out nocopy JTF_NUMBER_TABLE
199 , a10 out nocopy JTF_VARCHAR2_TABLE_300
200 , a11 out nocopy JTF_NUMBER_TABLE
201 , a12 out nocopy JTF_VARCHAR2_TABLE_300
202 , a13 out nocopy JTF_NUMBER_TABLE
203 , a14 out nocopy JTF_VARCHAR2_TABLE_100
204 , a15 out nocopy JTF_VARCHAR2_TABLE_100
205 , a16 out nocopy JTF_VARCHAR2_TABLE_100
206 , a17 out nocopy JTF_DATE_TABLE
207 , a18 out nocopy JTF_NUMBER_TABLE
208 , a19 out nocopy JTF_NUMBER_TABLE
209 , a20 out nocopy JTF_DATE_TABLE
210 , a21 out nocopy JTF_NUMBER_TABLE
211 , a22 out nocopy JTF_NUMBER_TABLE
212 , a23 out nocopy JTF_DATE_TABLE
213 , a24 out nocopy JTF_DATE_TABLE
214 , a25 out nocopy JTF_VARCHAR2_TABLE_100
215 , a26 out nocopy JTF_VARCHAR2_TABLE_100
216 , a27 out nocopy JTF_VARCHAR2_TABLE_100
217 , a28 out nocopy JTF_VARCHAR2_TABLE_100
218 , a29 out nocopy JTF_NUMBER_TABLE
219 , a30 out nocopy JTF_VARCHAR2_TABLE_100
220 , a31 out nocopy JTF_NUMBER_TABLE
221 , a32 out nocopy JTF_VARCHAR2_TABLE_100
222 , a33 out nocopy JTF_NUMBER_TABLE
223 , a34 out nocopy JTF_VARCHAR2_TABLE_100
224 , a35 out nocopy JTF_NUMBER_TABLE
225 , a36 out nocopy JTF_NUMBER_TABLE
226 , a37 out nocopy JTF_VARCHAR2_TABLE_100
227 , a38 out nocopy JTF_VARCHAR2_TABLE_100
228 , a39 out nocopy JTF_VARCHAR2_TABLE_100
229 , a40 out nocopy JTF_VARCHAR2_TABLE_100
230 , a41 out nocopy JTF_VARCHAR2_TABLE_100
231 , a42 out nocopy JTF_VARCHAR2_TABLE_100
232 , a43 out nocopy JTF_NUMBER_TABLE
233 , a44 out nocopy JTF_NUMBER_TABLE
234 , a45 out nocopy JTF_VARCHAR2_TABLE_4000
235 , a46 out nocopy JTF_NUMBER_TABLE
236 , a47 out nocopy JTF_VARCHAR2_TABLE_100
237 , a48 out nocopy JTF_VARCHAR2_TABLE_200
238 , a49 out nocopy JTF_VARCHAR2_TABLE_200
239 , a50 out nocopy JTF_VARCHAR2_TABLE_200
240 , a51 out nocopy JTF_VARCHAR2_TABLE_200
241 , a52 out nocopy JTF_VARCHAR2_TABLE_200
242 , a53 out nocopy JTF_VARCHAR2_TABLE_200
243 , a54 out nocopy JTF_VARCHAR2_TABLE_200
244 , a55 out nocopy JTF_VARCHAR2_TABLE_200
245 , a56 out nocopy JTF_VARCHAR2_TABLE_200
246 , a57 out nocopy JTF_VARCHAR2_TABLE_200
247 , a58 out nocopy JTF_VARCHAR2_TABLE_200
248 , a59 out nocopy JTF_VARCHAR2_TABLE_200
249 , a60 out nocopy JTF_VARCHAR2_TABLE_200
250 , a61 out nocopy JTF_VARCHAR2_TABLE_200
251 , a62 out nocopy JTF_VARCHAR2_TABLE_200
252 , a63 out nocopy JTF_VARCHAR2_TABLE_100
253 , a64 out nocopy JTF_VARCHAR2_TABLE_100
254 , a65 out nocopy JTF_VARCHAR2_TABLE_300
255 , a66 out nocopy JTF_VARCHAR2_TABLE_100
256 , a67 out nocopy JTF_NUMBER_TABLE
257 , a68 out nocopy JTF_VARCHAR2_TABLE_100
258 , a69 out nocopy JTF_VARCHAR2_TABLE_100
259 , a70 out nocopy JTF_NUMBER_TABLE
260 , a71 out nocopy JTF_VARCHAR2_TABLE_100
261 , a72 out nocopy JTF_VARCHAR2_TABLE_100
262 , a73 out nocopy JTF_NUMBER_TABLE
263 , a74 out nocopy JTF_VARCHAR2_TABLE_100
264 , a75 out nocopy JTF_VARCHAR2_TABLE_100
265 , a76 out nocopy JTF_VARCHAR2_TABLE_300
266 , a77 out nocopy JTF_NUMBER_TABLE
267 ) as
268 ddindx binary_integer; indx binary_integer;
269 begin
270 if t is null or t.count = 0 then
271 a0 := JTF_NUMBER_TABLE();
272 a1 := JTF_VARCHAR2_TABLE_100();
273 a2 := JTF_NUMBER_TABLE();
274 a3 := JTF_NUMBER_TABLE();
275 a4 := JTF_DATE_TABLE();
276 a5 := JTF_NUMBER_TABLE();
277 a6 := JTF_DATE_TABLE();
278 a7 := JTF_NUMBER_TABLE();
279 a8 := JTF_NUMBER_TABLE();
280 a9 := JTF_NUMBER_TABLE();
281 a10 := JTF_VARCHAR2_TABLE_300();
282 a11 := JTF_NUMBER_TABLE();
283 a12 := JTF_VARCHAR2_TABLE_300();
284 a13 := JTF_NUMBER_TABLE();
285 a14 := JTF_VARCHAR2_TABLE_100();
286 a15 := JTF_VARCHAR2_TABLE_100();
287 a16 := JTF_VARCHAR2_TABLE_100();
288 a17 := JTF_DATE_TABLE();
289 a18 := JTF_NUMBER_TABLE();
290 a19 := JTF_NUMBER_TABLE();
291 a20 := JTF_DATE_TABLE();
292 a21 := JTF_NUMBER_TABLE();
293 a22 := JTF_NUMBER_TABLE();
294 a23 := JTF_DATE_TABLE();
295 a24 := JTF_DATE_TABLE();
296 a25 := JTF_VARCHAR2_TABLE_100();
297 a26 := JTF_VARCHAR2_TABLE_100();
298 a27 := JTF_VARCHAR2_TABLE_100();
299 a28 := JTF_VARCHAR2_TABLE_100();
300 a29 := JTF_NUMBER_TABLE();
301 a30 := JTF_VARCHAR2_TABLE_100();
302 a31 := JTF_NUMBER_TABLE();
303 a32 := JTF_VARCHAR2_TABLE_100();
304 a33 := JTF_NUMBER_TABLE();
305 a34 := JTF_VARCHAR2_TABLE_100();
306 a35 := JTF_NUMBER_TABLE();
307 a36 := JTF_NUMBER_TABLE();
308 a37 := JTF_VARCHAR2_TABLE_100();
309 a38 := JTF_VARCHAR2_TABLE_100();
310 a39 := JTF_VARCHAR2_TABLE_100();
311 a40 := JTF_VARCHAR2_TABLE_100();
312 a41 := JTF_VARCHAR2_TABLE_100();
313 a42 := JTF_VARCHAR2_TABLE_100();
314 a43 := JTF_NUMBER_TABLE();
315 a44 := JTF_NUMBER_TABLE();
316 a45 := JTF_VARCHAR2_TABLE_4000();
317 a46 := JTF_NUMBER_TABLE();
318 a47 := JTF_VARCHAR2_TABLE_100();
319 a48 := JTF_VARCHAR2_TABLE_200();
320 a49 := JTF_VARCHAR2_TABLE_200();
321 a50 := JTF_VARCHAR2_TABLE_200();
322 a51 := JTF_VARCHAR2_TABLE_200();
323 a52 := JTF_VARCHAR2_TABLE_200();
324 a53 := JTF_VARCHAR2_TABLE_200();
325 a54 := JTF_VARCHAR2_TABLE_200();
326 a55 := JTF_VARCHAR2_TABLE_200();
327 a56 := JTF_VARCHAR2_TABLE_200();
328 a57 := JTF_VARCHAR2_TABLE_200();
329 a58 := JTF_VARCHAR2_TABLE_200();
330 a59 := JTF_VARCHAR2_TABLE_200();
331 a60 := JTF_VARCHAR2_TABLE_200();
332 a61 := JTF_VARCHAR2_TABLE_200();
333 a62 := JTF_VARCHAR2_TABLE_200();
334 a63 := JTF_VARCHAR2_TABLE_100();
335 a64 := JTF_VARCHAR2_TABLE_100();
336 a65 := JTF_VARCHAR2_TABLE_300();
337 a66 := JTF_VARCHAR2_TABLE_100();
338 a67 := JTF_NUMBER_TABLE();
339 a68 := JTF_VARCHAR2_TABLE_100();
340 a69 := JTF_VARCHAR2_TABLE_100();
341 a70 := JTF_NUMBER_TABLE();
342 a71 := JTF_VARCHAR2_TABLE_100();
343 a72 := JTF_VARCHAR2_TABLE_100();
344 a73 := JTF_NUMBER_TABLE();
345 a74 := JTF_VARCHAR2_TABLE_100();
346 a75 := JTF_VARCHAR2_TABLE_100();
347 a76 := JTF_VARCHAR2_TABLE_300();
348 a77 := JTF_NUMBER_TABLE();
349 else
350 a0 := JTF_NUMBER_TABLE();
351 a1 := JTF_VARCHAR2_TABLE_100();
352 a2 := JTF_NUMBER_TABLE();
353 a3 := JTF_NUMBER_TABLE();
354 a4 := JTF_DATE_TABLE();
355 a5 := JTF_NUMBER_TABLE();
356 a6 := JTF_DATE_TABLE();
357 a7 := JTF_NUMBER_TABLE();
358 a8 := JTF_NUMBER_TABLE();
359 a9 := JTF_NUMBER_TABLE();
360 a10 := JTF_VARCHAR2_TABLE_300();
361 a11 := JTF_NUMBER_TABLE();
362 a12 := JTF_VARCHAR2_TABLE_300();
363 a13 := JTF_NUMBER_TABLE();
364 a14 := JTF_VARCHAR2_TABLE_100();
365 a15 := JTF_VARCHAR2_TABLE_100();
366 a16 := JTF_VARCHAR2_TABLE_100();
367 a17 := JTF_DATE_TABLE();
368 a18 := JTF_NUMBER_TABLE();
369 a19 := JTF_NUMBER_TABLE();
370 a20 := JTF_DATE_TABLE();
371 a21 := JTF_NUMBER_TABLE();
375 a25 := JTF_VARCHAR2_TABLE_100();
372 a22 := JTF_NUMBER_TABLE();
373 a23 := JTF_DATE_TABLE();
374 a24 := JTF_DATE_TABLE();
376 a26 := JTF_VARCHAR2_TABLE_100();
377 a27 := JTF_VARCHAR2_TABLE_100();
378 a28 := JTF_VARCHAR2_TABLE_100();
379 a29 := JTF_NUMBER_TABLE();
380 a30 := JTF_VARCHAR2_TABLE_100();
381 a31 := JTF_NUMBER_TABLE();
382 a32 := JTF_VARCHAR2_TABLE_100();
383 a33 := JTF_NUMBER_TABLE();
384 a34 := JTF_VARCHAR2_TABLE_100();
385 a35 := JTF_NUMBER_TABLE();
386 a36 := JTF_NUMBER_TABLE();
387 a37 := JTF_VARCHAR2_TABLE_100();
388 a38 := JTF_VARCHAR2_TABLE_100();
389 a39 := JTF_VARCHAR2_TABLE_100();
390 a40 := JTF_VARCHAR2_TABLE_100();
391 a41 := JTF_VARCHAR2_TABLE_100();
392 a42 := JTF_VARCHAR2_TABLE_100();
393 a43 := JTF_NUMBER_TABLE();
394 a44 := JTF_NUMBER_TABLE();
395 a45 := JTF_VARCHAR2_TABLE_4000();
396 a46 := JTF_NUMBER_TABLE();
397 a47 := JTF_VARCHAR2_TABLE_100();
398 a48 := JTF_VARCHAR2_TABLE_200();
399 a49 := JTF_VARCHAR2_TABLE_200();
400 a50 := JTF_VARCHAR2_TABLE_200();
401 a51 := JTF_VARCHAR2_TABLE_200();
402 a52 := JTF_VARCHAR2_TABLE_200();
403 a53 := JTF_VARCHAR2_TABLE_200();
404 a54 := JTF_VARCHAR2_TABLE_200();
405 a55 := JTF_VARCHAR2_TABLE_200();
406 a56 := JTF_VARCHAR2_TABLE_200();
407 a57 := JTF_VARCHAR2_TABLE_200();
408 a58 := JTF_VARCHAR2_TABLE_200();
409 a59 := JTF_VARCHAR2_TABLE_200();
410 a60 := JTF_VARCHAR2_TABLE_200();
411 a61 := JTF_VARCHAR2_TABLE_200();
412 a62 := JTF_VARCHAR2_TABLE_200();
413 a63 := JTF_VARCHAR2_TABLE_100();
414 a64 := JTF_VARCHAR2_TABLE_100();
415 a65 := JTF_VARCHAR2_TABLE_300();
416 a66 := JTF_VARCHAR2_TABLE_100();
417 a67 := JTF_NUMBER_TABLE();
418 a68 := JTF_VARCHAR2_TABLE_100();
419 a69 := JTF_VARCHAR2_TABLE_100();
420 a70 := JTF_NUMBER_TABLE();
421 a71 := JTF_VARCHAR2_TABLE_100();
422 a72 := JTF_VARCHAR2_TABLE_100();
423 a73 := JTF_NUMBER_TABLE();
424 a74 := JTF_VARCHAR2_TABLE_100();
425 a75 := JTF_VARCHAR2_TABLE_100();
426 a76 := JTF_VARCHAR2_TABLE_300();
427 a77 := JTF_NUMBER_TABLE();
428 if t.count > 0 then
429 a0.extend(t.count);
430 a1.extend(t.count);
431 a2.extend(t.count);
432 a3.extend(t.count);
433 a4.extend(t.count);
434 a5.extend(t.count);
435 a6.extend(t.count);
436 a7.extend(t.count);
437 a8.extend(t.count);
438 a9.extend(t.count);
439 a10.extend(t.count);
440 a11.extend(t.count);
441 a12.extend(t.count);
442 a13.extend(t.count);
443 a14.extend(t.count);
444 a15.extend(t.count);
445 a16.extend(t.count);
446 a17.extend(t.count);
447 a18.extend(t.count);
448 a19.extend(t.count);
449 a20.extend(t.count);
450 a21.extend(t.count);
451 a22.extend(t.count);
452 a23.extend(t.count);
453 a24.extend(t.count);
454 a25.extend(t.count);
455 a26.extend(t.count);
456 a27.extend(t.count);
457 a28.extend(t.count);
458 a29.extend(t.count);
459 a30.extend(t.count);
460 a31.extend(t.count);
461 a32.extend(t.count);
462 a33.extend(t.count);
463 a34.extend(t.count);
464 a35.extend(t.count);
465 a36.extend(t.count);
466 a37.extend(t.count);
467 a38.extend(t.count);
468 a39.extend(t.count);
469 a40.extend(t.count);
470 a41.extend(t.count);
471 a42.extend(t.count);
472 a43.extend(t.count);
473 a44.extend(t.count);
474 a45.extend(t.count);
475 a46.extend(t.count);
476 a47.extend(t.count);
477 a48.extend(t.count);
478 a49.extend(t.count);
479 a50.extend(t.count);
480 a51.extend(t.count);
481 a52.extend(t.count);
482 a53.extend(t.count);
483 a54.extend(t.count);
484 a55.extend(t.count);
485 a56.extend(t.count);
486 a57.extend(t.count);
487 a58.extend(t.count);
488 a59.extend(t.count);
489 a60.extend(t.count);
490 a61.extend(t.count);
491 a62.extend(t.count);
492 a63.extend(t.count);
493 a64.extend(t.count);
494 a65.extend(t.count);
495 a66.extend(t.count);
496 a67.extend(t.count);
497 a68.extend(t.count);
498 a69.extend(t.count);
499 a70.extend(t.count);
500 a71.extend(t.count);
501 a72.extend(t.count);
502 a73.extend(t.count);
503 a74.extend(t.count);
504 a75.extend(t.count);
505 a76.extend(t.count);
506 a77.extend(t.count);
507 ddindx := t.first;
508 indx := 1;
509 while true loop
510 a0(indx) := t(ddindx).visit_id;
511 a1(indx) := t(ddindx).visit_name;
512 a2(indx) := t(ddindx).visit_number;
513 a3(indx) := t(ddindx).object_version_number;
517 a7(indx) := t(ddindx).created_by;
514 a4(indx) := t(ddindx).last_update_date;
515 a5(indx) := t(ddindx).last_updated_by;
516 a6(indx) := t(ddindx).creation_date;
518 a8(indx) := t(ddindx).last_update_login;
519 a9(indx) := t(ddindx).organization_id;
520 a10(indx) := t(ddindx).org_name;
521 a11(indx) := t(ddindx).department_id;
522 a12(indx) := t(ddindx).dept_name;
523 a13(indx) := t(ddindx).service_request_id;
524 a14(indx) := t(ddindx).service_request_number;
525 a15(indx) := t(ddindx).space_category_code;
526 a16(indx) := t(ddindx).space_category_name;
527 a17(indx) := t(ddindx).start_date;
528 a18(indx) := t(ddindx).start_hour;
529 a19(indx) := t(ddindx).start_min;
530 a20(indx) := t(ddindx).plan_end_date;
531 a21(indx) := t(ddindx).plan_end_hour;
532 a22(indx) := t(ddindx).plan_end_min;
533 a23(indx) := t(ddindx).end_date;
534 a24(indx) := t(ddindx).due_by_date;
535 a25(indx) := t(ddindx).visit_type_code;
536 a26(indx) := t(ddindx).visit_type_name;
537 a27(indx) := t(ddindx).status_code;
538 a28(indx) := t(ddindx).status_name;
539 a29(indx) := t(ddindx).simulation_plan_id;
540 a30(indx) := t(ddindx).simulation_plan_name;
541 a31(indx) := t(ddindx).asso_primary_visit_id;
542 a32(indx) := t(ddindx).unit_name;
543 a33(indx) := t(ddindx).item_instance_id;
544 a34(indx) := t(ddindx).serial_number;
545 a35(indx) := t(ddindx).inventory_item_id;
546 a36(indx) := t(ddindx).item_organization_id;
547 a37(indx) := t(ddindx).item_name;
548 a38(indx) := t(ddindx).simulation_delete_flag;
549 a39(indx) := t(ddindx).template_flag;
550 a40(indx) := t(ddindx).out_of_sync_flag;
551 a41(indx) := t(ddindx).project_flag;
552 a42(indx) := t(ddindx).project_flag_code;
553 a43(indx) := t(ddindx).project_id;
554 a44(indx) := t(ddindx).project_number;
555 a45(indx) := t(ddindx).description;
556 a46(indx) := t(ddindx).duration;
557 a47(indx) := t(ddindx).attribute_category;
558 a48(indx) := t(ddindx).attribute1;
559 a49(indx) := t(ddindx).attribute2;
560 a50(indx) := t(ddindx).attribute3;
561 a51(indx) := t(ddindx).attribute4;
562 a52(indx) := t(ddindx).attribute5;
563 a53(indx) := t(ddindx).attribute6;
564 a54(indx) := t(ddindx).attribute7;
565 a55(indx) := t(ddindx).attribute8;
566 a56(indx) := t(ddindx).attribute9;
567 a57(indx) := t(ddindx).attribute10;
568 a58(indx) := t(ddindx).attribute11;
569 a59(indx) := t(ddindx).attribute12;
570 a60(indx) := t(ddindx).attribute13;
571 a61(indx) := t(ddindx).attribute14;
572 a62(indx) := t(ddindx).attribute15;
573 a63(indx) := t(ddindx).operation_flag;
574 a64(indx) := t(ddindx).outside_party_flag;
575 a65(indx) := t(ddindx).job_number;
576 a66(indx) := t(ddindx).proj_template_name;
577 a67(indx) := t(ddindx).proj_template_id;
578 a68(indx) := t(ddindx).priority_value;
579 a69(indx) := t(ddindx).priority_code;
580 a70(indx) := t(ddindx).unit_schedule_id;
581 a71(indx) := t(ddindx).visit_create_type;
582 a72(indx) := t(ddindx).visit_create_meaning;
583 a73(indx) := t(ddindx).unit_header_id;
584 a74(indx) := t(ddindx).flight_number;
585 a75(indx) := t(ddindx).subinventory;
586 a76(indx) := t(ddindx).locator_segment;
587 a77(indx) := t(ddindx).inv_locator_id;
588 indx := indx+1;
589 if t.last =ddindx
590 then exit;
591 end if;
592 ddindx := t.next(ddindx);
593 end loop;
594 end if;
595 end if;
596 end rosetta_table_copy_out_p3;
597
598 procedure rosetta_table_copy_in_p4(t out nocopy ahl_vwp_visits_pvt.error_tbl_type, a0 JTF_NUMBER_TABLE
599 , a1 JTF_VARCHAR2_TABLE_100
600 , a2 JTF_VARCHAR2_TABLE_100
601 , a3 JTF_VARCHAR2_TABLE_100
602 , a4 JTF_VARCHAR2_TABLE_100
603 , a5 JTF_DATE_TABLE
604 , a6 JTF_DATE_TABLE
605 , a7 JTF_VARCHAR2_TABLE_100
606 ) as
607 ddindx binary_integer; indx binary_integer;
608 begin
609 if a0 is not null and a0.count > 0 then
610 if a0.count > 0 then
611 indx := a0.first;
612 ddindx := 1;
613 while true loop
614 t(ddindx).job_id := a0(indx);
615 t(ddindx).job_number := a1(indx);
616 t(ddindx).service_request := a2(indx);
617 t(ddindx).task_number := a3(indx);
618 t(ddindx).priority := a4(indx);
619 t(ddindx).scheduled_start_date := rosetta_g_miss_date_in_map(a5(indx));
620 t(ddindx).scheduled_end_date := rosetta_g_miss_date_in_map(a6(indx));
621 t(ddindx).job_status := a7(indx);
622 ddindx := ddindx+1;
623 if a0.last =indx
624 then exit;
625 end if;
626 indx := a0.next(indx);
627 end loop;
631 procedure rosetta_table_copy_out_p4(t ahl_vwp_visits_pvt.error_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
628 end if;
629 end if;
630 end rosetta_table_copy_in_p4;
632 , a1 out nocopy JTF_VARCHAR2_TABLE_100
633 , a2 out nocopy JTF_VARCHAR2_TABLE_100
634 , a3 out nocopy JTF_VARCHAR2_TABLE_100
635 , a4 out nocopy JTF_VARCHAR2_TABLE_100
636 , a5 out nocopy JTF_DATE_TABLE
637 , a6 out nocopy JTF_DATE_TABLE
638 , a7 out nocopy JTF_VARCHAR2_TABLE_100
639 ) as
640 ddindx binary_integer; indx binary_integer;
641 begin
642 if t is null or t.count = 0 then
643 a0 := JTF_NUMBER_TABLE();
644 a1 := JTF_VARCHAR2_TABLE_100();
645 a2 := JTF_VARCHAR2_TABLE_100();
646 a3 := JTF_VARCHAR2_TABLE_100();
647 a4 := JTF_VARCHAR2_TABLE_100();
648 a5 := JTF_DATE_TABLE();
649 a6 := JTF_DATE_TABLE();
650 a7 := JTF_VARCHAR2_TABLE_100();
651 else
652 a0 := JTF_NUMBER_TABLE();
653 a1 := JTF_VARCHAR2_TABLE_100();
654 a2 := JTF_VARCHAR2_TABLE_100();
655 a3 := JTF_VARCHAR2_TABLE_100();
656 a4 := JTF_VARCHAR2_TABLE_100();
657 a5 := JTF_DATE_TABLE();
658 a6 := JTF_DATE_TABLE();
659 a7 := JTF_VARCHAR2_TABLE_100();
660 if t.count > 0 then
661 a0.extend(t.count);
662 a1.extend(t.count);
663 a2.extend(t.count);
664 a3.extend(t.count);
665 a4.extend(t.count);
666 a5.extend(t.count);
667 a6.extend(t.count);
668 a7.extend(t.count);
669 ddindx := t.first;
670 indx := 1;
671 while true loop
672 a0(indx) := t(ddindx).job_id;
673 a1(indx) := t(ddindx).job_number;
674 a2(indx) := t(ddindx).service_request;
675 a3(indx) := t(ddindx).task_number;
676 a4(indx) := t(ddindx).priority;
677 a5(indx) := t(ddindx).scheduled_start_date;
678 a6(indx) := t(ddindx).scheduled_end_date;
679 a7(indx) := t(ddindx).job_status;
680 indx := indx+1;
681 if t.last =ddindx
682 then exit;
683 end if;
684 ddindx := t.next(ddindx);
685 end loop;
686 end if;
687 end if;
688 end rosetta_table_copy_out_p4;
689
690 procedure process_visit(p_api_version NUMBER
691 , p_init_msg_list VARCHAR2
692 , p_commit VARCHAR2
693 , p_validation_level NUMBER
694 , p_module_type VARCHAR2
695 , p5_a0 in out nocopy JTF_NUMBER_TABLE
696 , p5_a1 in out nocopy JTF_VARCHAR2_TABLE_100
697 , p5_a2 in out nocopy JTF_NUMBER_TABLE
698 , p5_a3 in out nocopy JTF_NUMBER_TABLE
699 , p5_a4 in out nocopy JTF_DATE_TABLE
700 , p5_a5 in out nocopy JTF_NUMBER_TABLE
701 , p5_a6 in out nocopy JTF_DATE_TABLE
702 , p5_a7 in out nocopy JTF_NUMBER_TABLE
703 , p5_a8 in out nocopy JTF_NUMBER_TABLE
704 , p5_a9 in out nocopy JTF_NUMBER_TABLE
705 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_300
706 , p5_a11 in out nocopy JTF_NUMBER_TABLE
707 , p5_a12 in out nocopy JTF_VARCHAR2_TABLE_300
708 , p5_a13 in out nocopy JTF_NUMBER_TABLE
709 , p5_a14 in out nocopy JTF_VARCHAR2_TABLE_100
710 , p5_a15 in out nocopy JTF_VARCHAR2_TABLE_100
711 , p5_a16 in out nocopy JTF_VARCHAR2_TABLE_100
712 , p5_a17 in out nocopy JTF_DATE_TABLE
713 , p5_a18 in out nocopy JTF_NUMBER_TABLE
714 , p5_a19 in out nocopy JTF_NUMBER_TABLE
715 , p5_a20 in out nocopy JTF_DATE_TABLE
716 , p5_a21 in out nocopy JTF_NUMBER_TABLE
717 , p5_a22 in out nocopy JTF_NUMBER_TABLE
718 , p5_a23 in out nocopy JTF_DATE_TABLE
719 , p5_a24 in out nocopy JTF_DATE_TABLE
720 , p5_a25 in out nocopy JTF_VARCHAR2_TABLE_100
721 , p5_a26 in out nocopy JTF_VARCHAR2_TABLE_100
722 , p5_a27 in out nocopy JTF_VARCHAR2_TABLE_100
723 , p5_a28 in out nocopy JTF_VARCHAR2_TABLE_100
724 , p5_a29 in out nocopy JTF_NUMBER_TABLE
725 , p5_a30 in out nocopy JTF_VARCHAR2_TABLE_100
726 , p5_a31 in out nocopy JTF_NUMBER_TABLE
727 , p5_a32 in out nocopy JTF_VARCHAR2_TABLE_100
728 , p5_a33 in out nocopy JTF_NUMBER_TABLE
729 , p5_a34 in out nocopy JTF_VARCHAR2_TABLE_100
730 , p5_a35 in out nocopy JTF_NUMBER_TABLE
731 , p5_a36 in out nocopy JTF_NUMBER_TABLE
732 , p5_a37 in out nocopy JTF_VARCHAR2_TABLE_100
733 , p5_a38 in out nocopy JTF_VARCHAR2_TABLE_100
734 , p5_a39 in out nocopy JTF_VARCHAR2_TABLE_100
735 , p5_a40 in out nocopy JTF_VARCHAR2_TABLE_100
736 , p5_a41 in out nocopy JTF_VARCHAR2_TABLE_100
737 , p5_a42 in out nocopy JTF_VARCHAR2_TABLE_100
738 , p5_a43 in out nocopy JTF_NUMBER_TABLE
739 , p5_a44 in out nocopy JTF_NUMBER_TABLE
740 , p5_a45 in out nocopy JTF_VARCHAR2_TABLE_4000
741 , p5_a46 in out nocopy JTF_NUMBER_TABLE
742 , p5_a47 in out nocopy JTF_VARCHAR2_TABLE_100
743 , p5_a48 in out nocopy JTF_VARCHAR2_TABLE_200
744 , p5_a49 in out nocopy JTF_VARCHAR2_TABLE_200
745 , p5_a50 in out nocopy JTF_VARCHAR2_TABLE_200
746 , p5_a51 in out nocopy JTF_VARCHAR2_TABLE_200
747 , p5_a52 in out nocopy JTF_VARCHAR2_TABLE_200
748 , p5_a53 in out nocopy JTF_VARCHAR2_TABLE_200
749 , p5_a54 in out nocopy JTF_VARCHAR2_TABLE_200
750 , p5_a55 in out nocopy JTF_VARCHAR2_TABLE_200
751 , p5_a56 in out nocopy JTF_VARCHAR2_TABLE_200
755 , p5_a60 in out nocopy JTF_VARCHAR2_TABLE_200
752 , p5_a57 in out nocopy JTF_VARCHAR2_TABLE_200
753 , p5_a58 in out nocopy JTF_VARCHAR2_TABLE_200
754 , p5_a59 in out nocopy JTF_VARCHAR2_TABLE_200
756 , p5_a61 in out nocopy JTF_VARCHAR2_TABLE_200
757 , p5_a62 in out nocopy JTF_VARCHAR2_TABLE_200
758 , p5_a63 in out nocopy JTF_VARCHAR2_TABLE_100
759 , p5_a64 in out nocopy JTF_VARCHAR2_TABLE_100
760 , p5_a65 in out nocopy JTF_VARCHAR2_TABLE_300
761 , p5_a66 in out nocopy JTF_VARCHAR2_TABLE_100
762 , p5_a67 in out nocopy JTF_NUMBER_TABLE
763 , p5_a68 in out nocopy JTF_VARCHAR2_TABLE_100
764 , p5_a69 in out nocopy JTF_VARCHAR2_TABLE_100
765 , p5_a70 in out nocopy JTF_NUMBER_TABLE
766 , p5_a71 in out nocopy JTF_VARCHAR2_TABLE_100
767 , p5_a72 in out nocopy JTF_VARCHAR2_TABLE_100
768 , p5_a73 in out nocopy JTF_NUMBER_TABLE
769 , p5_a74 in out nocopy JTF_VARCHAR2_TABLE_100
770 , p5_a75 in out nocopy JTF_VARCHAR2_TABLE_100
771 , p5_a76 in out nocopy JTF_VARCHAR2_TABLE_300
772 , p5_a77 in out nocopy JTF_NUMBER_TABLE
773 , x_return_status out nocopy VARCHAR2
774 , x_msg_count out nocopy NUMBER
775 , x_msg_data out nocopy VARCHAR2
776 )
777
778 as
779 ddp_x_visit_tbl ahl_vwp_visits_pvt.visit_tbl_type;
780 ddindx binary_integer; indx binary_integer;
781 begin
782
783 -- copy data to the local IN or IN-OUT args, if any
784
785
786
787
788
789 ahl_vwp_visits_pvt_w.rosetta_table_copy_in_p3(ddp_x_visit_tbl, p5_a0
790 , p5_a1
791 , p5_a2
792 , p5_a3
793 , p5_a4
794 , p5_a5
795 , p5_a6
796 , p5_a7
797 , p5_a8
798 , p5_a9
799 , p5_a10
800 , p5_a11
801 , p5_a12
802 , p5_a13
803 , p5_a14
804 , p5_a15
805 , p5_a16
806 , p5_a17
807 , p5_a18
808 , p5_a19
809 , p5_a20
810 , p5_a21
811 , p5_a22
812 , p5_a23
813 , p5_a24
814 , p5_a25
815 , p5_a26
816 , p5_a27
817 , p5_a28
818 , p5_a29
819 , p5_a30
820 , p5_a31
821 , p5_a32
822 , p5_a33
823 , p5_a34
824 , p5_a35
825 , p5_a36
826 , p5_a37
827 , p5_a38
828 , p5_a39
829 , p5_a40
830 , p5_a41
831 , p5_a42
832 , p5_a43
833 , p5_a44
834 , p5_a45
835 , p5_a46
836 , p5_a47
837 , p5_a48
838 , p5_a49
839 , p5_a50
840 , p5_a51
841 , p5_a52
842 , p5_a53
843 , p5_a54
844 , p5_a55
845 , p5_a56
846 , p5_a57
847 , p5_a58
848 , p5_a59
849 , p5_a60
850 , p5_a61
851 , p5_a62
852 , p5_a63
853 , p5_a64
854 , p5_a65
855 , p5_a66
856 , p5_a67
857 , p5_a68
858 , p5_a69
859 , p5_a70
860 , p5_a71
861 , p5_a72
862 , p5_a73
863 , p5_a74
864 , p5_a75
865 , p5_a76
866 , p5_a77
867 );
868
869
870
871
872 -- here's the delegated call to the old PL/SQL routine
873 ahl_vwp_visits_pvt.process_visit(p_api_version,
874 p_init_msg_list,
875 p_commit,
876 p_validation_level,
877 p_module_type,
878 ddp_x_visit_tbl,
879 x_return_status,
880 x_msg_count,
881 x_msg_data);
882
883 -- copy data back from the local variables to OUT or IN-OUT args, if any
884
885
886
887
888
889 ahl_vwp_visits_pvt_w.rosetta_table_copy_out_p3(ddp_x_visit_tbl, p5_a0
890 , p5_a1
891 , p5_a2
892 , p5_a3
893 , p5_a4
894 , p5_a5
895 , p5_a6
896 , p5_a7
897 , p5_a8
898 , p5_a9
899 , p5_a10
900 , p5_a11
901 , p5_a12
902 , p5_a13
903 , p5_a14
904 , p5_a15
905 , p5_a16
906 , p5_a17
907 , p5_a18
908 , p5_a19
909 , p5_a20
910 , p5_a21
911 , p5_a22
912 , p5_a23
913 , p5_a24
914 , p5_a25
915 , p5_a26
916 , p5_a27
917 , p5_a28
918 , p5_a29
919 , p5_a30
920 , p5_a31
921 , p5_a32
922 , p5_a33
923 , p5_a34
924 , p5_a35
925 , p5_a36
926 , p5_a37
927 , p5_a38
928 , p5_a39
929 , p5_a40
930 , p5_a41
931 , p5_a42
932 , p5_a43
933 , p5_a44
934 , p5_a45
935 , p5_a46
936 , p5_a47
937 , p5_a48
938 , p5_a49
939 , p5_a50
940 , p5_a51
941 , p5_a52
942 , p5_a53
943 , p5_a54
944 , p5_a55
945 , p5_a56
946 , p5_a57
947 , p5_a58
948 , p5_a59
952 , p5_a63
949 , p5_a60
950 , p5_a61
951 , p5_a62
953 , p5_a64
954 , p5_a65
955 , p5_a66
956 , p5_a67
957 , p5_a68
958 , p5_a69
959 , p5_a70
960 , p5_a71
961 , p5_a72
962 , p5_a73
963 , p5_a74
964 , p5_a75
965 , p5_a76
966 , p5_a77
967 );
968
969
970
971 end;
972
973 procedure get_visit_details(p_api_version NUMBER
974 , p_init_msg_list VARCHAR2
975 , p_commit VARCHAR2
976 , p_validation_level NUMBER
977 , p_module_type VARCHAR2
978 , p_visit_id NUMBER
979 , p6_a0 out nocopy NUMBER
980 , p6_a1 out nocopy VARCHAR2
981 , p6_a2 out nocopy NUMBER
982 , p6_a3 out nocopy NUMBER
983 , p6_a4 out nocopy DATE
984 , p6_a5 out nocopy NUMBER
985 , p6_a6 out nocopy DATE
986 , p6_a7 out nocopy NUMBER
987 , p6_a8 out nocopy NUMBER
988 , p6_a9 out nocopy NUMBER
989 , p6_a10 out nocopy VARCHAR2
990 , p6_a11 out nocopy NUMBER
991 , p6_a12 out nocopy VARCHAR2
992 , p6_a13 out nocopy NUMBER
993 , p6_a14 out nocopy VARCHAR2
994 , p6_a15 out nocopy VARCHAR2
995 , p6_a16 out nocopy VARCHAR2
996 , p6_a17 out nocopy DATE
997 , p6_a18 out nocopy NUMBER
998 , p6_a19 out nocopy NUMBER
999 , p6_a20 out nocopy DATE
1000 , p6_a21 out nocopy NUMBER
1001 , p6_a22 out nocopy NUMBER
1002 , p6_a23 out nocopy DATE
1003 , p6_a24 out nocopy DATE
1004 , p6_a25 out nocopy VARCHAR2
1005 , p6_a26 out nocopy VARCHAR2
1006 , p6_a27 out nocopy VARCHAR2
1007 , p6_a28 out nocopy VARCHAR2
1008 , p6_a29 out nocopy NUMBER
1009 , p6_a30 out nocopy VARCHAR2
1010 , p6_a31 out nocopy NUMBER
1011 , p6_a32 out nocopy VARCHAR2
1012 , p6_a33 out nocopy NUMBER
1013 , p6_a34 out nocopy VARCHAR2
1014 , p6_a35 out nocopy NUMBER
1015 , p6_a36 out nocopy NUMBER
1016 , p6_a37 out nocopy VARCHAR2
1017 , p6_a38 out nocopy VARCHAR2
1018 , p6_a39 out nocopy VARCHAR2
1019 , p6_a40 out nocopy VARCHAR2
1020 , p6_a41 out nocopy VARCHAR2
1021 , p6_a42 out nocopy VARCHAR2
1022 , p6_a43 out nocopy NUMBER
1023 , p6_a44 out nocopy NUMBER
1024 , p6_a45 out nocopy VARCHAR2
1025 , p6_a46 out nocopy NUMBER
1026 , p6_a47 out nocopy VARCHAR2
1027 , p6_a48 out nocopy VARCHAR2
1028 , p6_a49 out nocopy VARCHAR2
1029 , p6_a50 out nocopy VARCHAR2
1030 , p6_a51 out nocopy VARCHAR2
1031 , p6_a52 out nocopy VARCHAR2
1032 , p6_a53 out nocopy VARCHAR2
1033 , p6_a54 out nocopy VARCHAR2
1034 , p6_a55 out nocopy VARCHAR2
1035 , p6_a56 out nocopy VARCHAR2
1036 , p6_a57 out nocopy VARCHAR2
1037 , p6_a58 out nocopy VARCHAR2
1038 , p6_a59 out nocopy VARCHAR2
1039 , p6_a60 out nocopy VARCHAR2
1040 , p6_a61 out nocopy VARCHAR2
1041 , p6_a62 out nocopy VARCHAR2
1042 , p6_a63 out nocopy VARCHAR2
1043 , p6_a64 out nocopy VARCHAR2
1044 , p6_a65 out nocopy VARCHAR2
1045 , p6_a66 out nocopy VARCHAR2
1046 , p6_a67 out nocopy NUMBER
1047 , p6_a68 out nocopy VARCHAR2
1048 , p6_a69 out nocopy VARCHAR2
1049 , p6_a70 out nocopy NUMBER
1050 , p6_a71 out nocopy VARCHAR2
1051 , p6_a72 out nocopy VARCHAR2
1052 , p6_a73 out nocopy NUMBER
1053 , p6_a74 out nocopy VARCHAR2
1054 , p6_a75 out nocopy VARCHAR2
1055 , p6_a76 out nocopy VARCHAR2
1056 , p6_a77 out nocopy NUMBER
1057 , x_return_status out nocopy VARCHAR2
1058 , x_msg_count out nocopy NUMBER
1059 , x_msg_data out nocopy VARCHAR2
1060 )
1061
1062 as
1063 ddx_visit_rec ahl_vwp_visits_pvt.visit_rec_type;
1064 ddindx binary_integer; indx binary_integer;
1065 begin
1066
1067 -- copy data to the local IN or IN-OUT args, if any
1068
1069
1070
1071
1072
1073
1074
1075
1076
1077
1078 -- here's the delegated call to the old PL/SQL routine
1079 ahl_vwp_visits_pvt.get_visit_details(p_api_version,
1080 p_init_msg_list,
1081 p_commit,
1082 p_validation_level,
1083 p_module_type,
1084 p_visit_id,
1085 ddx_visit_rec,
1086 x_return_status,
1087 x_msg_count,
1088 x_msg_data);
1089
1090 -- copy data back from the local variables to OUT or IN-OUT args, if any
1091
1092
1093
1094
1095
1096
1097 p6_a0 := ddx_visit_rec.visit_id;
1098 p6_a1 := ddx_visit_rec.visit_name;
1099 p6_a2 := ddx_visit_rec.visit_number;
1100 p6_a3 := ddx_visit_rec.object_version_number;
1101 p6_a4 := ddx_visit_rec.last_update_date;
1102 p6_a5 := ddx_visit_rec.last_updated_by;
1103 p6_a6 := ddx_visit_rec.creation_date;
1104 p6_a7 := ddx_visit_rec.created_by;
1105 p6_a8 := ddx_visit_rec.last_update_login;
1106 p6_a9 := ddx_visit_rec.organization_id;
1107 p6_a10 := ddx_visit_rec.org_name;
1108 p6_a11 := ddx_visit_rec.department_id;
1109 p6_a12 := ddx_visit_rec.dept_name;
1110 p6_a13 := ddx_visit_rec.service_request_id;
1114 p6_a17 := ddx_visit_rec.start_date;
1111 p6_a14 := ddx_visit_rec.service_request_number;
1112 p6_a15 := ddx_visit_rec.space_category_code;
1113 p6_a16 := ddx_visit_rec.space_category_name;
1115 p6_a18 := ddx_visit_rec.start_hour;
1116 p6_a19 := ddx_visit_rec.start_min;
1117 p6_a20 := ddx_visit_rec.plan_end_date;
1118 p6_a21 := ddx_visit_rec.plan_end_hour;
1119 p6_a22 := ddx_visit_rec.plan_end_min;
1120 p6_a23 := ddx_visit_rec.end_date;
1121 p6_a24 := ddx_visit_rec.due_by_date;
1122 p6_a25 := ddx_visit_rec.visit_type_code;
1123 p6_a26 := ddx_visit_rec.visit_type_name;
1124 p6_a27 := ddx_visit_rec.status_code;
1125 p6_a28 := ddx_visit_rec.status_name;
1126 p6_a29 := ddx_visit_rec.simulation_plan_id;
1127 p6_a30 := ddx_visit_rec.simulation_plan_name;
1128 p6_a31 := ddx_visit_rec.asso_primary_visit_id;
1129 p6_a32 := ddx_visit_rec.unit_name;
1130 p6_a33 := ddx_visit_rec.item_instance_id;
1131 p6_a34 := ddx_visit_rec.serial_number;
1132 p6_a35 := ddx_visit_rec.inventory_item_id;
1133 p6_a36 := ddx_visit_rec.item_organization_id;
1134 p6_a37 := ddx_visit_rec.item_name;
1135 p6_a38 := ddx_visit_rec.simulation_delete_flag;
1136 p6_a39 := ddx_visit_rec.template_flag;
1137 p6_a40 := ddx_visit_rec.out_of_sync_flag;
1138 p6_a41 := ddx_visit_rec.project_flag;
1139 p6_a42 := ddx_visit_rec.project_flag_code;
1140 p6_a43 := ddx_visit_rec.project_id;
1141 p6_a44 := ddx_visit_rec.project_number;
1142 p6_a45 := ddx_visit_rec.description;
1143 p6_a46 := ddx_visit_rec.duration;
1144 p6_a47 := ddx_visit_rec.attribute_category;
1145 p6_a48 := ddx_visit_rec.attribute1;
1146 p6_a49 := ddx_visit_rec.attribute2;
1147 p6_a50 := ddx_visit_rec.attribute3;
1148 p6_a51 := ddx_visit_rec.attribute4;
1149 p6_a52 := ddx_visit_rec.attribute5;
1150 p6_a53 := ddx_visit_rec.attribute6;
1151 p6_a54 := ddx_visit_rec.attribute7;
1152 p6_a55 := ddx_visit_rec.attribute8;
1153 p6_a56 := ddx_visit_rec.attribute9;
1154 p6_a57 := ddx_visit_rec.attribute10;
1155 p6_a58 := ddx_visit_rec.attribute11;
1156 p6_a59 := ddx_visit_rec.attribute12;
1157 p6_a60 := ddx_visit_rec.attribute13;
1158 p6_a61 := ddx_visit_rec.attribute14;
1159 p6_a62 := ddx_visit_rec.attribute15;
1160 p6_a63 := ddx_visit_rec.operation_flag;
1161 p6_a64 := ddx_visit_rec.outside_party_flag;
1162 p6_a65 := ddx_visit_rec.job_number;
1163 p6_a66 := ddx_visit_rec.proj_template_name;
1164 p6_a67 := ddx_visit_rec.proj_template_id;
1165 p6_a68 := ddx_visit_rec.priority_value;
1166 p6_a69 := ddx_visit_rec.priority_code;
1167 p6_a70 := ddx_visit_rec.unit_schedule_id;
1168 p6_a71 := ddx_visit_rec.visit_create_type;
1169 p6_a72 := ddx_visit_rec.visit_create_meaning;
1170 p6_a73 := ddx_visit_rec.unit_header_id;
1171 p6_a74 := ddx_visit_rec.flight_number;
1172 p6_a75 := ddx_visit_rec.subinventory;
1173 p6_a76 := ddx_visit_rec.locator_segment;
1174 p6_a77 := ddx_visit_rec.inv_locator_id;
1175
1176
1177
1178 end;
1179
1180 end ahl_vwp_visits_pvt_w;