[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_VISIT_CST_PR_PVT_W
Source
1 package body ahl_vwp_visit_cst_pr_pvt_w as
2 /* $Header: AHLWVCPB.pls 120.1 2006/05/04 07:17 anraj 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_vwp_visit_cst_pr_pvt.cost_price_tbl_type, a0 JTF_NUMBER_TABLE
17 , a1 JTF_NUMBER_TABLE
18 , a2 JTF_NUMBER_TABLE
19 , a3 JTF_NUMBER_TABLE
20 , a4 JTF_NUMBER_TABLE
21 , a5 JTF_NUMBER_TABLE
22 , a6 JTF_NUMBER_TABLE
23 , a7 JTF_VARCHAR2_TABLE_100
24 , a8 JTF_NUMBER_TABLE
25 , a9 JTF_NUMBER_TABLE
26 , a10 JTF_NUMBER_TABLE
27 , a11 JTF_NUMBER_TABLE
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_NUMBER_TABLE
33 , a17 JTF_VARCHAR2_TABLE_100
34 , a18 JTF_NUMBER_TABLE
35 , a19 JTF_NUMBER_TABLE
36 , a20 JTF_NUMBER_TABLE
37 , a21 JTF_DATE_TABLE
38 , a22 JTF_DATE_TABLE
39 , a23 JTF_DATE_TABLE
40 , a24 JTF_DATE_TABLE
41 , a25 JTF_DATE_TABLE
42 , a26 JTF_DATE_TABLE
43 , a27 JTF_VARCHAR2_TABLE_100
44 , a28 JTF_NUMBER_TABLE
45 , a29 JTF_VARCHAR2_TABLE_100
46 , a30 JTF_VARCHAR2_TABLE_2000
47 , a31 JTF_NUMBER_TABLE
48 , a32 JTF_VARCHAR2_TABLE_400
49 , a33 JTF_VARCHAR2_TABLE_300
50 , a34 JTF_VARCHAR2_TABLE_300
51 , a35 JTF_NUMBER_TABLE
52 , a36 JTF_VARCHAR2_TABLE_100
53 , a37 JTF_NUMBER_TABLE
54 , a38 JTF_NUMBER_TABLE
55 , a39 JTF_NUMBER_TABLE
56 , a40 JTF_DATE_TABLE
57 , a41 JTF_NUMBER_TABLE
58 , a42 JTF_DATE_TABLE
59 , a43 JTF_NUMBER_TABLE
60 , a44 JTF_VARCHAR2_TABLE_100
61 , a45 JTF_VARCHAR2_TABLE_200
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 ) as
77 ddindx binary_integer; indx binary_integer;
78 begin
79 if a0 is not null and a0.count > 0 then
80 if a0.count > 0 then
81 indx := a0.first;
82 ddindx := 1;
83 while true loop
84 t(ddindx).visit_task_id := a0(indx);
85 t(ddindx).visit_id := a1(indx);
86 t(ddindx).mr_id := a2(indx);
87 t(ddindx).actual_cost := a3(indx);
88 t(ddindx).estimated_cost := a4(indx);
89 t(ddindx).actual_price := a5(indx);
90 t(ddindx).estimated_price := a6(indx);
91 t(ddindx).currency := a7(indx);
92 t(ddindx).snapshot_id := a8(indx);
93 t(ddindx).object_version_number := a9(indx);
94 t(ddindx).estimated_profit := a10(indx);
95 t(ddindx).actual_profit := a11(indx);
96 t(ddindx).outside_party_flag := a12(indx);
97 t(ddindx).is_outside_pty_flag_updt := a13(indx);
98 t(ddindx).is_cst_pr_info_required := a14(indx);
99 t(ddindx).is_cst_struc_updated := a15(indx);
100 t(ddindx).price_list_id := a16(indx);
101 t(ddindx).price_list_name := a17(indx);
102 t(ddindx).service_request_id := a18(indx);
103 t(ddindx).customer_id := a19(indx);
104 t(ddindx).organization_id := a20(indx);
105 t(ddindx).visit_start_date := rosetta_g_miss_date_in_map(a21(indx));
106 t(ddindx).visit_end_date := rosetta_g_miss_date_in_map(a22(indx));
107 t(ddindx).mr_start_date := rosetta_g_miss_date_in_map(a23(indx));
108 t(ddindx).mr_end_date := rosetta_g_miss_date_in_map(a24(indx));
109 t(ddindx).task_start_date := rosetta_g_miss_date_in_map(a25(indx));
110 t(ddindx).task_end_date := rosetta_g_miss_date_in_map(a26(indx));
111 t(ddindx).task_name := a27(indx);
112 t(ddindx).visit_task_number := a28(indx);
113 t(ddindx).mr_title := a29(indx);
114 t(ddindx).mr_description := a30(indx);
115 t(ddindx).billing_item_id := a31(indx);
116 t(ddindx).item_name := a32(indx);
117 t(ddindx).item_description := a33(indx);
118 t(ddindx).organization_name := a34(indx);
119 t(ddindx).workorder_id := a35(indx);
120 t(ddindx).master_wo_flag := a36(indx);
121 t(ddindx).mr_session_id := a37(indx);
122 t(ddindx).cost_session_id := a38(indx);
123 t(ddindx).created_by := a39(indx);
124 t(ddindx).creation_date := rosetta_g_miss_date_in_map(a40(indx));
125 t(ddindx).last_updated_by := a41(indx);
126 t(ddindx).last_update_date := rosetta_g_miss_date_in_map(a42(indx));
127 t(ddindx).last_update_login := a43(indx);
128 t(ddindx).attribute_category := a44(indx);
129 t(ddindx).attribute1 := a45(indx);
130 t(ddindx).attribute2 := a46(indx);
131 t(ddindx).attribute3 := a47(indx);
132 t(ddindx).attribute4 := a48(indx);
133 t(ddindx).attribute5 := a49(indx);
134 t(ddindx).attribute6 := a50(indx);
135 t(ddindx).attribute7 := a51(indx);
136 t(ddindx).attribute8 := a52(indx);
137 t(ddindx).attribute9 := a53(indx);
138 t(ddindx).attribute10 := a54(indx);
139 t(ddindx).attribute11 := a55(indx);
140 t(ddindx).attribute12 := a56(indx);
141 t(ddindx).attribute13 := a57(indx);
142 t(ddindx).attribute14 := a58(indx);
143 t(ddindx).attribute15 := a59(indx);
144 ddindx := ddindx+1;
145 if a0.last =indx
146 then exit;
147 end if;
148 indx := a0.next(indx);
149 end loop;
150 end if;
151 end if;
152 end rosetta_table_copy_in_p1;
153 procedure rosetta_table_copy_out_p1(t ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
154 , a1 out nocopy JTF_NUMBER_TABLE
155 , a2 out nocopy JTF_NUMBER_TABLE
156 , a3 out nocopy JTF_NUMBER_TABLE
157 , a4 out nocopy JTF_NUMBER_TABLE
158 , a5 out nocopy JTF_NUMBER_TABLE
159 , a6 out nocopy JTF_NUMBER_TABLE
160 , a7 out nocopy JTF_VARCHAR2_TABLE_100
161 , a8 out nocopy JTF_NUMBER_TABLE
162 , a9 out nocopy JTF_NUMBER_TABLE
163 , a10 out nocopy JTF_NUMBER_TABLE
164 , a11 out nocopy JTF_NUMBER_TABLE
165 , a12 out nocopy JTF_VARCHAR2_TABLE_100
166 , a13 out nocopy JTF_VARCHAR2_TABLE_100
167 , a14 out nocopy JTF_VARCHAR2_TABLE_100
168 , a15 out nocopy JTF_VARCHAR2_TABLE_100
169 , a16 out nocopy JTF_NUMBER_TABLE
170 , a17 out nocopy JTF_VARCHAR2_TABLE_100
171 , a18 out nocopy JTF_NUMBER_TABLE
172 , a19 out nocopy JTF_NUMBER_TABLE
173 , a20 out nocopy JTF_NUMBER_TABLE
174 , a21 out nocopy JTF_DATE_TABLE
175 , a22 out nocopy JTF_DATE_TABLE
176 , a23 out nocopy JTF_DATE_TABLE
177 , a24 out nocopy JTF_DATE_TABLE
178 , a25 out nocopy JTF_DATE_TABLE
179 , a26 out nocopy JTF_DATE_TABLE
180 , a27 out nocopy JTF_VARCHAR2_TABLE_100
181 , a28 out nocopy JTF_NUMBER_TABLE
182 , a29 out nocopy JTF_VARCHAR2_TABLE_100
183 , a30 out nocopy JTF_VARCHAR2_TABLE_2000
184 , a31 out nocopy JTF_NUMBER_TABLE
185 , a32 out nocopy JTF_VARCHAR2_TABLE_400
186 , a33 out nocopy JTF_VARCHAR2_TABLE_300
187 , a34 out nocopy JTF_VARCHAR2_TABLE_300
188 , a35 out nocopy JTF_NUMBER_TABLE
189 , a36 out nocopy JTF_VARCHAR2_TABLE_100
190 , a37 out nocopy JTF_NUMBER_TABLE
191 , a38 out nocopy JTF_NUMBER_TABLE
192 , a39 out nocopy JTF_NUMBER_TABLE
193 , a40 out nocopy JTF_DATE_TABLE
194 , a41 out nocopy JTF_NUMBER_TABLE
195 , a42 out nocopy JTF_DATE_TABLE
196 , a43 out nocopy JTF_NUMBER_TABLE
197 , a44 out nocopy JTF_VARCHAR2_TABLE_100
198 , a45 out nocopy JTF_VARCHAR2_TABLE_200
199 , a46 out nocopy JTF_VARCHAR2_TABLE_200
200 , a47 out nocopy JTF_VARCHAR2_TABLE_200
201 , a48 out nocopy JTF_VARCHAR2_TABLE_200
202 , a49 out nocopy JTF_VARCHAR2_TABLE_200
203 , a50 out nocopy JTF_VARCHAR2_TABLE_200
204 , a51 out nocopy JTF_VARCHAR2_TABLE_200
205 , a52 out nocopy JTF_VARCHAR2_TABLE_200
206 , a53 out nocopy JTF_VARCHAR2_TABLE_200
207 , a54 out nocopy JTF_VARCHAR2_TABLE_200
208 , a55 out nocopy JTF_VARCHAR2_TABLE_200
209 , a56 out nocopy JTF_VARCHAR2_TABLE_200
210 , a57 out nocopy JTF_VARCHAR2_TABLE_200
211 , a58 out nocopy JTF_VARCHAR2_TABLE_200
212 , a59 out nocopy JTF_VARCHAR2_TABLE_200
213 ) as
214 ddindx binary_integer; indx binary_integer;
215 begin
216 if t is null or t.count = 0 then
217 a0 := JTF_NUMBER_TABLE();
218 a1 := JTF_NUMBER_TABLE();
219 a2 := JTF_NUMBER_TABLE();
220 a3 := JTF_NUMBER_TABLE();
221 a4 := JTF_NUMBER_TABLE();
222 a5 := JTF_NUMBER_TABLE();
223 a6 := JTF_NUMBER_TABLE();
224 a7 := JTF_VARCHAR2_TABLE_100();
225 a8 := JTF_NUMBER_TABLE();
226 a9 := JTF_NUMBER_TABLE();
227 a10 := JTF_NUMBER_TABLE();
228 a11 := JTF_NUMBER_TABLE();
229 a12 := JTF_VARCHAR2_TABLE_100();
230 a13 := JTF_VARCHAR2_TABLE_100();
231 a14 := JTF_VARCHAR2_TABLE_100();
232 a15 := JTF_VARCHAR2_TABLE_100();
233 a16 := JTF_NUMBER_TABLE();
234 a17 := JTF_VARCHAR2_TABLE_100();
235 a18 := JTF_NUMBER_TABLE();
236 a19 := JTF_NUMBER_TABLE();
237 a20 := JTF_NUMBER_TABLE();
238 a21 := JTF_DATE_TABLE();
239 a22 := JTF_DATE_TABLE();
240 a23 := JTF_DATE_TABLE();
241 a24 := JTF_DATE_TABLE();
242 a25 := JTF_DATE_TABLE();
243 a26 := JTF_DATE_TABLE();
244 a27 := JTF_VARCHAR2_TABLE_100();
245 a28 := JTF_NUMBER_TABLE();
246 a29 := JTF_VARCHAR2_TABLE_100();
247 a30 := JTF_VARCHAR2_TABLE_2000();
248 a31 := JTF_NUMBER_TABLE();
249 a32 := JTF_VARCHAR2_TABLE_400();
250 a33 := JTF_VARCHAR2_TABLE_300();
251 a34 := JTF_VARCHAR2_TABLE_300();
252 a35 := JTF_NUMBER_TABLE();
253 a36 := JTF_VARCHAR2_TABLE_100();
254 a37 := JTF_NUMBER_TABLE();
255 a38 := JTF_NUMBER_TABLE();
256 a39 := JTF_NUMBER_TABLE();
257 a40 := JTF_DATE_TABLE();
258 a41 := JTF_NUMBER_TABLE();
259 a42 := JTF_DATE_TABLE();
260 a43 := JTF_NUMBER_TABLE();
261 a44 := JTF_VARCHAR2_TABLE_100();
262 a45 := JTF_VARCHAR2_TABLE_200();
263 a46 := JTF_VARCHAR2_TABLE_200();
264 a47 := JTF_VARCHAR2_TABLE_200();
265 a48 := JTF_VARCHAR2_TABLE_200();
266 a49 := JTF_VARCHAR2_TABLE_200();
267 a50 := JTF_VARCHAR2_TABLE_200();
268 a51 := JTF_VARCHAR2_TABLE_200();
269 a52 := JTF_VARCHAR2_TABLE_200();
270 a53 := JTF_VARCHAR2_TABLE_200();
271 a54 := JTF_VARCHAR2_TABLE_200();
272 a55 := JTF_VARCHAR2_TABLE_200();
273 a56 := JTF_VARCHAR2_TABLE_200();
274 a57 := JTF_VARCHAR2_TABLE_200();
275 a58 := JTF_VARCHAR2_TABLE_200();
276 a59 := JTF_VARCHAR2_TABLE_200();
277 else
278 a0 := JTF_NUMBER_TABLE();
279 a1 := JTF_NUMBER_TABLE();
280 a2 := JTF_NUMBER_TABLE();
281 a3 := JTF_NUMBER_TABLE();
282 a4 := JTF_NUMBER_TABLE();
283 a5 := JTF_NUMBER_TABLE();
284 a6 := JTF_NUMBER_TABLE();
285 a7 := JTF_VARCHAR2_TABLE_100();
286 a8 := JTF_NUMBER_TABLE();
287 a9 := JTF_NUMBER_TABLE();
288 a10 := JTF_NUMBER_TABLE();
289 a11 := JTF_NUMBER_TABLE();
290 a12 := JTF_VARCHAR2_TABLE_100();
291 a13 := JTF_VARCHAR2_TABLE_100();
292 a14 := JTF_VARCHAR2_TABLE_100();
293 a15 := JTF_VARCHAR2_TABLE_100();
294 a16 := JTF_NUMBER_TABLE();
295 a17 := JTF_VARCHAR2_TABLE_100();
296 a18 := JTF_NUMBER_TABLE();
297 a19 := JTF_NUMBER_TABLE();
298 a20 := JTF_NUMBER_TABLE();
299 a21 := JTF_DATE_TABLE();
300 a22 := JTF_DATE_TABLE();
301 a23 := JTF_DATE_TABLE();
302 a24 := JTF_DATE_TABLE();
303 a25 := JTF_DATE_TABLE();
304 a26 := JTF_DATE_TABLE();
305 a27 := JTF_VARCHAR2_TABLE_100();
306 a28 := JTF_NUMBER_TABLE();
307 a29 := JTF_VARCHAR2_TABLE_100();
308 a30 := JTF_VARCHAR2_TABLE_2000();
309 a31 := JTF_NUMBER_TABLE();
310 a32 := JTF_VARCHAR2_TABLE_400();
311 a33 := JTF_VARCHAR2_TABLE_300();
312 a34 := JTF_VARCHAR2_TABLE_300();
313 a35 := JTF_NUMBER_TABLE();
314 a36 := JTF_VARCHAR2_TABLE_100();
315 a37 := JTF_NUMBER_TABLE();
316 a38 := JTF_NUMBER_TABLE();
317 a39 := JTF_NUMBER_TABLE();
318 a40 := JTF_DATE_TABLE();
319 a41 := JTF_NUMBER_TABLE();
320 a42 := JTF_DATE_TABLE();
321 a43 := JTF_NUMBER_TABLE();
322 a44 := JTF_VARCHAR2_TABLE_100();
323 a45 := JTF_VARCHAR2_TABLE_200();
324 a46 := JTF_VARCHAR2_TABLE_200();
325 a47 := JTF_VARCHAR2_TABLE_200();
326 a48 := JTF_VARCHAR2_TABLE_200();
327 a49 := JTF_VARCHAR2_TABLE_200();
328 a50 := JTF_VARCHAR2_TABLE_200();
329 a51 := JTF_VARCHAR2_TABLE_200();
330 a52 := JTF_VARCHAR2_TABLE_200();
331 a53 := JTF_VARCHAR2_TABLE_200();
332 a54 := JTF_VARCHAR2_TABLE_200();
333 a55 := JTF_VARCHAR2_TABLE_200();
334 a56 := JTF_VARCHAR2_TABLE_200();
335 a57 := JTF_VARCHAR2_TABLE_200();
336 a58 := JTF_VARCHAR2_TABLE_200();
337 a59 := JTF_VARCHAR2_TABLE_200();
338 if t.count > 0 then
339 a0.extend(t.count);
340 a1.extend(t.count);
341 a2.extend(t.count);
342 a3.extend(t.count);
343 a4.extend(t.count);
344 a5.extend(t.count);
345 a6.extend(t.count);
346 a7.extend(t.count);
347 a8.extend(t.count);
348 a9.extend(t.count);
349 a10.extend(t.count);
350 a11.extend(t.count);
351 a12.extend(t.count);
352 a13.extend(t.count);
353 a14.extend(t.count);
354 a15.extend(t.count);
355 a16.extend(t.count);
356 a17.extend(t.count);
357 a18.extend(t.count);
358 a19.extend(t.count);
359 a20.extend(t.count);
360 a21.extend(t.count);
361 a22.extend(t.count);
362 a23.extend(t.count);
363 a24.extend(t.count);
364 a25.extend(t.count);
365 a26.extend(t.count);
366 a27.extend(t.count);
367 a28.extend(t.count);
368 a29.extend(t.count);
369 a30.extend(t.count);
370 a31.extend(t.count);
371 a32.extend(t.count);
372 a33.extend(t.count);
373 a34.extend(t.count);
374 a35.extend(t.count);
375 a36.extend(t.count);
376 a37.extend(t.count);
377 a38.extend(t.count);
378 a39.extend(t.count);
379 a40.extend(t.count);
380 a41.extend(t.count);
381 a42.extend(t.count);
382 a43.extend(t.count);
383 a44.extend(t.count);
384 a45.extend(t.count);
385 a46.extend(t.count);
386 a47.extend(t.count);
387 a48.extend(t.count);
388 a49.extend(t.count);
389 a50.extend(t.count);
390 a51.extend(t.count);
391 a52.extend(t.count);
392 a53.extend(t.count);
393 a54.extend(t.count);
394 a55.extend(t.count);
395 a56.extend(t.count);
396 a57.extend(t.count);
397 a58.extend(t.count);
398 a59.extend(t.count);
399 ddindx := t.first;
400 indx := 1;
401 while true loop
402 a0(indx) := t(ddindx).visit_task_id;
403 a1(indx) := t(ddindx).visit_id;
404 a2(indx) := t(ddindx).mr_id;
405 a3(indx) := t(ddindx).actual_cost;
406 a4(indx) := t(ddindx).estimated_cost;
407 a5(indx) := t(ddindx).actual_price;
408 a6(indx) := t(ddindx).estimated_price;
409 a7(indx) := t(ddindx).currency;
410 a8(indx) := t(ddindx).snapshot_id;
411 a9(indx) := t(ddindx).object_version_number;
412 a10(indx) := t(ddindx).estimated_profit;
413 a11(indx) := t(ddindx).actual_profit;
414 a12(indx) := t(ddindx).outside_party_flag;
415 a13(indx) := t(ddindx).is_outside_pty_flag_updt;
416 a14(indx) := t(ddindx).is_cst_pr_info_required;
417 a15(indx) := t(ddindx).is_cst_struc_updated;
418 a16(indx) := t(ddindx).price_list_id;
419 a17(indx) := t(ddindx).price_list_name;
420 a18(indx) := t(ddindx).service_request_id;
421 a19(indx) := t(ddindx).customer_id;
422 a20(indx) := t(ddindx).organization_id;
423 a21(indx) := t(ddindx).visit_start_date;
424 a22(indx) := t(ddindx).visit_end_date;
425 a23(indx) := t(ddindx).mr_start_date;
426 a24(indx) := t(ddindx).mr_end_date;
427 a25(indx) := t(ddindx).task_start_date;
428 a26(indx) := t(ddindx).task_end_date;
429 a27(indx) := t(ddindx).task_name;
430 a28(indx) := t(ddindx).visit_task_number;
431 a29(indx) := t(ddindx).mr_title;
432 a30(indx) := t(ddindx).mr_description;
433 a31(indx) := t(ddindx).billing_item_id;
434 a32(indx) := t(ddindx).item_name;
435 a33(indx) := t(ddindx).item_description;
436 a34(indx) := t(ddindx).organization_name;
437 a35(indx) := t(ddindx).workorder_id;
438 a36(indx) := t(ddindx).master_wo_flag;
439 a37(indx) := t(ddindx).mr_session_id;
440 a38(indx) := t(ddindx).cost_session_id;
441 a39(indx) := t(ddindx).created_by;
442 a40(indx) := t(ddindx).creation_date;
443 a41(indx) := t(ddindx).last_updated_by;
444 a42(indx) := t(ddindx).last_update_date;
445 a43(indx) := t(ddindx).last_update_login;
446 a44(indx) := t(ddindx).attribute_category;
447 a45(indx) := t(ddindx).attribute1;
448 a46(indx) := t(ddindx).attribute2;
449 a47(indx) := t(ddindx).attribute3;
450 a48(indx) := t(ddindx).attribute4;
451 a49(indx) := t(ddindx).attribute5;
452 a50(indx) := t(ddindx).attribute6;
453 a51(indx) := t(ddindx).attribute7;
454 a52(indx) := t(ddindx).attribute8;
455 a53(indx) := t(ddindx).attribute9;
456 a54(indx) := t(ddindx).attribute10;
457 a55(indx) := t(ddindx).attribute11;
458 a56(indx) := t(ddindx).attribute12;
459 a57(indx) := t(ddindx).attribute13;
460 a58(indx) := t(ddindx).attribute14;
461 a59(indx) := t(ddindx).attribute15;
462 indx := indx+1;
463 if t.last =ddindx
464 then exit;
465 end if;
466 ddindx := t.next(ddindx);
467 end loop;
468 end if;
469 end if;
470 end rosetta_table_copy_out_p1;
471
472 procedure get_visit_cost_details(p_api_version NUMBER
473 , p_init_msg_list VARCHAR2
474 , p_commit VARCHAR2
475 , p_validation_level NUMBER
476 , p_module_type VARCHAR2
477 , p5_a0 in out nocopy NUMBER
478 , p5_a1 in out nocopy NUMBER
479 , p5_a2 in out nocopy NUMBER
480 , p5_a3 in out nocopy NUMBER
481 , p5_a4 in out nocopy NUMBER
482 , p5_a5 in out nocopy NUMBER
483 , p5_a6 in out nocopy NUMBER
484 , p5_a7 in out nocopy VARCHAR2
485 , p5_a8 in out nocopy NUMBER
486 , p5_a9 in out nocopy NUMBER
487 , p5_a10 in out nocopy NUMBER
488 , p5_a11 in out nocopy NUMBER
489 , p5_a12 in out nocopy VARCHAR2
490 , p5_a13 in out nocopy VARCHAR2
491 , p5_a14 in out nocopy VARCHAR2
492 , p5_a15 in out nocopy VARCHAR2
493 , p5_a16 in out nocopy NUMBER
494 , p5_a17 in out nocopy VARCHAR2
495 , p5_a18 in out nocopy NUMBER
496 , p5_a19 in out nocopy NUMBER
497 , p5_a20 in out nocopy NUMBER
498 , p5_a21 in out nocopy DATE
499 , p5_a22 in out nocopy DATE
500 , p5_a23 in out nocopy DATE
501 , p5_a24 in out nocopy DATE
502 , p5_a25 in out nocopy DATE
503 , p5_a26 in out nocopy DATE
504 , p5_a27 in out nocopy VARCHAR2
505 , p5_a28 in out nocopy NUMBER
506 , p5_a29 in out nocopy VARCHAR2
507 , p5_a30 in out nocopy VARCHAR2
508 , p5_a31 in out nocopy NUMBER
509 , p5_a32 in out nocopy VARCHAR2
510 , p5_a33 in out nocopy VARCHAR2
511 , p5_a34 in out nocopy VARCHAR2
512 , p5_a35 in out nocopy NUMBER
513 , p5_a36 in out nocopy VARCHAR2
514 , p5_a37 in out nocopy NUMBER
515 , p5_a38 in out nocopy NUMBER
516 , p5_a39 in out nocopy NUMBER
517 , p5_a40 in out nocopy DATE
518 , p5_a41 in out nocopy NUMBER
519 , p5_a42 in out nocopy DATE
520 , p5_a43 in out nocopy NUMBER
521 , p5_a44 in out nocopy VARCHAR2
522 , p5_a45 in out nocopy VARCHAR2
523 , p5_a46 in out nocopy VARCHAR2
524 , p5_a47 in out nocopy VARCHAR2
525 , p5_a48 in out nocopy VARCHAR2
526 , p5_a49 in out nocopy VARCHAR2
527 , p5_a50 in out nocopy VARCHAR2
528 , p5_a51 in out nocopy VARCHAR2
529 , p5_a52 in out nocopy VARCHAR2
530 , p5_a53 in out nocopy VARCHAR2
531 , p5_a54 in out nocopy VARCHAR2
532 , p5_a55 in out nocopy VARCHAR2
533 , p5_a56 in out nocopy VARCHAR2
534 , p5_a57 in out nocopy VARCHAR2
535 , p5_a58 in out nocopy VARCHAR2
536 , p5_a59 in out nocopy VARCHAR2
537 , x_return_status out nocopy VARCHAR2
538 , x_msg_count out nocopy NUMBER
539 , x_msg_data out nocopy VARCHAR2
540 )
541
542 as
543 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
544 ddindx binary_integer; indx binary_integer;
545 begin
546
547 -- copy data to the local IN or IN-OUT args, if any
548
549
550
551
552
553 ddp_x_cost_price_rec.visit_task_id := p5_a0;
554 ddp_x_cost_price_rec.visit_id := p5_a1;
555 ddp_x_cost_price_rec.mr_id := p5_a2;
556 ddp_x_cost_price_rec.actual_cost := p5_a3;
557 ddp_x_cost_price_rec.estimated_cost := p5_a4;
558 ddp_x_cost_price_rec.actual_price := p5_a5;
559 ddp_x_cost_price_rec.estimated_price := p5_a6;
560 ddp_x_cost_price_rec.currency := p5_a7;
561 ddp_x_cost_price_rec.snapshot_id := p5_a8;
562 ddp_x_cost_price_rec.object_version_number := p5_a9;
563 ddp_x_cost_price_rec.estimated_profit := p5_a10;
564 ddp_x_cost_price_rec.actual_profit := p5_a11;
565 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
566 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
567 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
568 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
569 ddp_x_cost_price_rec.price_list_id := p5_a16;
570 ddp_x_cost_price_rec.price_list_name := p5_a17;
571 ddp_x_cost_price_rec.service_request_id := p5_a18;
572 ddp_x_cost_price_rec.customer_id := p5_a19;
573 ddp_x_cost_price_rec.organization_id := p5_a20;
574 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
575 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
576 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
577 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
578 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
579 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
580 ddp_x_cost_price_rec.task_name := p5_a27;
581 ddp_x_cost_price_rec.visit_task_number := p5_a28;
582 ddp_x_cost_price_rec.mr_title := p5_a29;
583 ddp_x_cost_price_rec.mr_description := p5_a30;
584 ddp_x_cost_price_rec.billing_item_id := p5_a31;
585 ddp_x_cost_price_rec.item_name := p5_a32;
586 ddp_x_cost_price_rec.item_description := p5_a33;
587 ddp_x_cost_price_rec.organization_name := p5_a34;
588 ddp_x_cost_price_rec.workorder_id := p5_a35;
589 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
590 ddp_x_cost_price_rec.mr_session_id := p5_a37;
591 ddp_x_cost_price_rec.cost_session_id := p5_a38;
592 ddp_x_cost_price_rec.created_by := p5_a39;
593 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
594 ddp_x_cost_price_rec.last_updated_by := p5_a41;
595 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
596 ddp_x_cost_price_rec.last_update_login := p5_a43;
597 ddp_x_cost_price_rec.attribute_category := p5_a44;
598 ddp_x_cost_price_rec.attribute1 := p5_a45;
599 ddp_x_cost_price_rec.attribute2 := p5_a46;
600 ddp_x_cost_price_rec.attribute3 := p5_a47;
601 ddp_x_cost_price_rec.attribute4 := p5_a48;
602 ddp_x_cost_price_rec.attribute5 := p5_a49;
603 ddp_x_cost_price_rec.attribute6 := p5_a50;
604 ddp_x_cost_price_rec.attribute7 := p5_a51;
605 ddp_x_cost_price_rec.attribute8 := p5_a52;
606 ddp_x_cost_price_rec.attribute9 := p5_a53;
607 ddp_x_cost_price_rec.attribute10 := p5_a54;
608 ddp_x_cost_price_rec.attribute11 := p5_a55;
609 ddp_x_cost_price_rec.attribute12 := p5_a56;
610 ddp_x_cost_price_rec.attribute13 := p5_a57;
611 ddp_x_cost_price_rec.attribute14 := p5_a58;
612 ddp_x_cost_price_rec.attribute15 := p5_a59;
613
614
615
616
617 -- here's the delegated call to the old PL/SQL routine
618 ahl_vwp_visit_cst_pr_pvt.get_visit_cost_details(p_api_version,
619 p_init_msg_list,
620 p_commit,
621 p_validation_level,
622 p_module_type,
623 ddp_x_cost_price_rec,
624 x_return_status,
625 x_msg_count,
626 x_msg_data);
627
628 -- copy data back from the local variables to OUT or IN-OUT args, if any
629
630
631
632
633
634 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
635 p5_a1 := ddp_x_cost_price_rec.visit_id;
636 p5_a2 := ddp_x_cost_price_rec.mr_id;
637 p5_a3 := ddp_x_cost_price_rec.actual_cost;
638 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
639 p5_a5 := ddp_x_cost_price_rec.actual_price;
640 p5_a6 := ddp_x_cost_price_rec.estimated_price;
641 p5_a7 := ddp_x_cost_price_rec.currency;
642 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
643 p5_a9 := ddp_x_cost_price_rec.object_version_number;
644 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
645 p5_a11 := ddp_x_cost_price_rec.actual_profit;
646 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
647 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
648 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
649 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
650 p5_a16 := ddp_x_cost_price_rec.price_list_id;
651 p5_a17 := ddp_x_cost_price_rec.price_list_name;
652 p5_a18 := ddp_x_cost_price_rec.service_request_id;
653 p5_a19 := ddp_x_cost_price_rec.customer_id;
654 p5_a20 := ddp_x_cost_price_rec.organization_id;
655 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
656 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
657 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
658 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
659 p5_a25 := ddp_x_cost_price_rec.task_start_date;
660 p5_a26 := ddp_x_cost_price_rec.task_end_date;
661 p5_a27 := ddp_x_cost_price_rec.task_name;
662 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
663 p5_a29 := ddp_x_cost_price_rec.mr_title;
664 p5_a30 := ddp_x_cost_price_rec.mr_description;
665 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
666 p5_a32 := ddp_x_cost_price_rec.item_name;
667 p5_a33 := ddp_x_cost_price_rec.item_description;
668 p5_a34 := ddp_x_cost_price_rec.organization_name;
669 p5_a35 := ddp_x_cost_price_rec.workorder_id;
670 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
671 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
672 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
673 p5_a39 := ddp_x_cost_price_rec.created_by;
674 p5_a40 := ddp_x_cost_price_rec.creation_date;
675 p5_a41 := ddp_x_cost_price_rec.last_updated_by;
676 p5_a42 := ddp_x_cost_price_rec.last_update_date;
677 p5_a43 := ddp_x_cost_price_rec.last_update_login;
678 p5_a44 := ddp_x_cost_price_rec.attribute_category;
679 p5_a45 := ddp_x_cost_price_rec.attribute1;
680 p5_a46 := ddp_x_cost_price_rec.attribute2;
681 p5_a47 := ddp_x_cost_price_rec.attribute3;
682 p5_a48 := ddp_x_cost_price_rec.attribute4;
683 p5_a49 := ddp_x_cost_price_rec.attribute5;
684 p5_a50 := ddp_x_cost_price_rec.attribute6;
685 p5_a51 := ddp_x_cost_price_rec.attribute7;
686 p5_a52 := ddp_x_cost_price_rec.attribute8;
687 p5_a53 := ddp_x_cost_price_rec.attribute9;
688 p5_a54 := ddp_x_cost_price_rec.attribute10;
689 p5_a55 := ddp_x_cost_price_rec.attribute11;
690 p5_a56 := ddp_x_cost_price_rec.attribute12;
691 p5_a57 := ddp_x_cost_price_rec.attribute13;
692 p5_a58 := ddp_x_cost_price_rec.attribute14;
693 p5_a59 := ddp_x_cost_price_rec.attribute15;
694
695
696
697 end;
698
699 procedure estimate_visit_cost(p_api_version NUMBER
700 , p_init_msg_list VARCHAR2
701 , p_commit VARCHAR2
702 , p_validation_level NUMBER
703 , p_module_type VARCHAR2
704 , p5_a0 in out nocopy NUMBER
705 , p5_a1 in out nocopy NUMBER
706 , p5_a2 in out nocopy NUMBER
707 , p5_a3 in out nocopy NUMBER
708 , p5_a4 in out nocopy NUMBER
709 , p5_a5 in out nocopy NUMBER
710 , p5_a6 in out nocopy NUMBER
711 , p5_a7 in out nocopy VARCHAR2
712 , p5_a8 in out nocopy NUMBER
713 , p5_a9 in out nocopy NUMBER
714 , p5_a10 in out nocopy NUMBER
715 , p5_a11 in out nocopy NUMBER
716 , p5_a12 in out nocopy VARCHAR2
717 , p5_a13 in out nocopy VARCHAR2
718 , p5_a14 in out nocopy VARCHAR2
719 , p5_a15 in out nocopy VARCHAR2
720 , p5_a16 in out nocopy NUMBER
721 , p5_a17 in out nocopy VARCHAR2
722 , p5_a18 in out nocopy NUMBER
723 , p5_a19 in out nocopy NUMBER
724 , p5_a20 in out nocopy NUMBER
725 , p5_a21 in out nocopy DATE
726 , p5_a22 in out nocopy DATE
727 , p5_a23 in out nocopy DATE
728 , p5_a24 in out nocopy DATE
729 , p5_a25 in out nocopy DATE
730 , p5_a26 in out nocopy DATE
731 , p5_a27 in out nocopy VARCHAR2
732 , p5_a28 in out nocopy NUMBER
733 , p5_a29 in out nocopy VARCHAR2
734 , p5_a30 in out nocopy VARCHAR2
735 , p5_a31 in out nocopy NUMBER
736 , p5_a32 in out nocopy VARCHAR2
737 , p5_a33 in out nocopy VARCHAR2
738 , p5_a34 in out nocopy VARCHAR2
739 , p5_a35 in out nocopy NUMBER
740 , p5_a36 in out nocopy VARCHAR2
741 , p5_a37 in out nocopy NUMBER
742 , p5_a38 in out nocopy NUMBER
743 , p5_a39 in out nocopy NUMBER
744 , p5_a40 in out nocopy DATE
745 , p5_a41 in out nocopy NUMBER
746 , p5_a42 in out nocopy DATE
747 , p5_a43 in out nocopy NUMBER
748 , p5_a44 in out nocopy VARCHAR2
749 , p5_a45 in out nocopy VARCHAR2
750 , p5_a46 in out nocopy VARCHAR2
751 , p5_a47 in out nocopy VARCHAR2
752 , p5_a48 in out nocopy VARCHAR2
753 , p5_a49 in out nocopy VARCHAR2
754 , p5_a50 in out nocopy VARCHAR2
755 , p5_a51 in out nocopy VARCHAR2
756 , p5_a52 in out nocopy VARCHAR2
757 , p5_a53 in out nocopy VARCHAR2
758 , p5_a54 in out nocopy VARCHAR2
759 , p5_a55 in out nocopy VARCHAR2
760 , p5_a56 in out nocopy VARCHAR2
761 , p5_a57 in out nocopy VARCHAR2
762 , p5_a58 in out nocopy VARCHAR2
763 , p5_a59 in out nocopy VARCHAR2
764 , x_return_status out nocopy VARCHAR2
765 , x_msg_count out nocopy NUMBER
766 , x_msg_data out nocopy VARCHAR2
767 )
768
769 as
770 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
771 ddindx binary_integer; indx binary_integer;
772 begin
773
774 -- copy data to the local IN or IN-OUT args, if any
775
776
777
778
779
780 ddp_x_cost_price_rec.visit_task_id := p5_a0;
781 ddp_x_cost_price_rec.visit_id := p5_a1;
782 ddp_x_cost_price_rec.mr_id := p5_a2;
783 ddp_x_cost_price_rec.actual_cost := p5_a3;
784 ddp_x_cost_price_rec.estimated_cost := p5_a4;
785 ddp_x_cost_price_rec.actual_price := p5_a5;
786 ddp_x_cost_price_rec.estimated_price := p5_a6;
787 ddp_x_cost_price_rec.currency := p5_a7;
788 ddp_x_cost_price_rec.snapshot_id := p5_a8;
789 ddp_x_cost_price_rec.object_version_number := p5_a9;
790 ddp_x_cost_price_rec.estimated_profit := p5_a10;
791 ddp_x_cost_price_rec.actual_profit := p5_a11;
792 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
793 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
794 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
795 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
796 ddp_x_cost_price_rec.price_list_id := p5_a16;
797 ddp_x_cost_price_rec.price_list_name := p5_a17;
798 ddp_x_cost_price_rec.service_request_id := p5_a18;
799 ddp_x_cost_price_rec.customer_id := p5_a19;
800 ddp_x_cost_price_rec.organization_id := p5_a20;
801 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
802 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
803 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
804 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
805 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
806 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
807 ddp_x_cost_price_rec.task_name := p5_a27;
808 ddp_x_cost_price_rec.visit_task_number := p5_a28;
809 ddp_x_cost_price_rec.mr_title := p5_a29;
810 ddp_x_cost_price_rec.mr_description := p5_a30;
811 ddp_x_cost_price_rec.billing_item_id := p5_a31;
812 ddp_x_cost_price_rec.item_name := p5_a32;
813 ddp_x_cost_price_rec.item_description := p5_a33;
814 ddp_x_cost_price_rec.organization_name := p5_a34;
815 ddp_x_cost_price_rec.workorder_id := p5_a35;
816 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
817 ddp_x_cost_price_rec.mr_session_id := p5_a37;
818 ddp_x_cost_price_rec.cost_session_id := p5_a38;
819 ddp_x_cost_price_rec.created_by := p5_a39;
820 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
821 ddp_x_cost_price_rec.last_updated_by := p5_a41;
822 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
823 ddp_x_cost_price_rec.last_update_login := p5_a43;
824 ddp_x_cost_price_rec.attribute_category := p5_a44;
825 ddp_x_cost_price_rec.attribute1 := p5_a45;
826 ddp_x_cost_price_rec.attribute2 := p5_a46;
827 ddp_x_cost_price_rec.attribute3 := p5_a47;
828 ddp_x_cost_price_rec.attribute4 := p5_a48;
829 ddp_x_cost_price_rec.attribute5 := p5_a49;
830 ddp_x_cost_price_rec.attribute6 := p5_a50;
831 ddp_x_cost_price_rec.attribute7 := p5_a51;
832 ddp_x_cost_price_rec.attribute8 := p5_a52;
833 ddp_x_cost_price_rec.attribute9 := p5_a53;
834 ddp_x_cost_price_rec.attribute10 := p5_a54;
835 ddp_x_cost_price_rec.attribute11 := p5_a55;
836 ddp_x_cost_price_rec.attribute12 := p5_a56;
837 ddp_x_cost_price_rec.attribute13 := p5_a57;
838 ddp_x_cost_price_rec.attribute14 := p5_a58;
839 ddp_x_cost_price_rec.attribute15 := p5_a59;
840
841
842
843
844 -- here's the delegated call to the old PL/SQL routine
845 ahl_vwp_visit_cst_pr_pvt.estimate_visit_cost(p_api_version,
846 p_init_msg_list,
847 p_commit,
848 p_validation_level,
849 p_module_type,
850 ddp_x_cost_price_rec,
851 x_return_status,
852 x_msg_count,
853 x_msg_data);
854
855 -- copy data back from the local variables to OUT or IN-OUT args, if any
856
857
858
859
860
861 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
862 p5_a1 := ddp_x_cost_price_rec.visit_id;
863 p5_a2 := ddp_x_cost_price_rec.mr_id;
864 p5_a3 := ddp_x_cost_price_rec.actual_cost;
865 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
866 p5_a5 := ddp_x_cost_price_rec.actual_price;
867 p5_a6 := ddp_x_cost_price_rec.estimated_price;
868 p5_a7 := ddp_x_cost_price_rec.currency;
869 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
870 p5_a9 := ddp_x_cost_price_rec.object_version_number;
871 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
872 p5_a11 := ddp_x_cost_price_rec.actual_profit;
873 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
874 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
875 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
876 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
877 p5_a16 := ddp_x_cost_price_rec.price_list_id;
878 p5_a17 := ddp_x_cost_price_rec.price_list_name;
879 p5_a18 := ddp_x_cost_price_rec.service_request_id;
880 p5_a19 := ddp_x_cost_price_rec.customer_id;
881 p5_a20 := ddp_x_cost_price_rec.organization_id;
882 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
883 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
884 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
885 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
886 p5_a25 := ddp_x_cost_price_rec.task_start_date;
887 p5_a26 := ddp_x_cost_price_rec.task_end_date;
888 p5_a27 := ddp_x_cost_price_rec.task_name;
889 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
890 p5_a29 := ddp_x_cost_price_rec.mr_title;
891 p5_a30 := ddp_x_cost_price_rec.mr_description;
892 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
893 p5_a32 := ddp_x_cost_price_rec.item_name;
894 p5_a33 := ddp_x_cost_price_rec.item_description;
895 p5_a34 := ddp_x_cost_price_rec.organization_name;
896 p5_a35 := ddp_x_cost_price_rec.workorder_id;
897 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
898 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
899 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
900 p5_a39 := ddp_x_cost_price_rec.created_by;
901 p5_a40 := ddp_x_cost_price_rec.creation_date;
902 p5_a41 := ddp_x_cost_price_rec.last_updated_by;
903 p5_a42 := ddp_x_cost_price_rec.last_update_date;
904 p5_a43 := ddp_x_cost_price_rec.last_update_login;
905 p5_a44 := ddp_x_cost_price_rec.attribute_category;
906 p5_a45 := ddp_x_cost_price_rec.attribute1;
907 p5_a46 := ddp_x_cost_price_rec.attribute2;
908 p5_a47 := ddp_x_cost_price_rec.attribute3;
909 p5_a48 := ddp_x_cost_price_rec.attribute4;
910 p5_a49 := ddp_x_cost_price_rec.attribute5;
911 p5_a50 := ddp_x_cost_price_rec.attribute6;
912 p5_a51 := ddp_x_cost_price_rec.attribute7;
913 p5_a52 := ddp_x_cost_price_rec.attribute8;
914 p5_a53 := ddp_x_cost_price_rec.attribute9;
915 p5_a54 := ddp_x_cost_price_rec.attribute10;
916 p5_a55 := ddp_x_cost_price_rec.attribute11;
917 p5_a56 := ddp_x_cost_price_rec.attribute12;
918 p5_a57 := ddp_x_cost_price_rec.attribute13;
919 p5_a58 := ddp_x_cost_price_rec.attribute14;
920 p5_a59 := ddp_x_cost_price_rec.attribute15;
921
922
923
924 end;
925
926 procedure estimate_visit_price(p_api_version NUMBER
927 , p_init_msg_list VARCHAR2
928 , p_commit VARCHAR2
929 , p_validation_level NUMBER
930 , p_module_type VARCHAR2
931 , p5_a0 in out nocopy NUMBER
932 , p5_a1 in out nocopy NUMBER
933 , p5_a2 in out nocopy NUMBER
934 , p5_a3 in out nocopy NUMBER
935 , p5_a4 in out nocopy NUMBER
936 , p5_a5 in out nocopy NUMBER
937 , p5_a6 in out nocopy NUMBER
938 , p5_a7 in out nocopy VARCHAR2
939 , p5_a8 in out nocopy NUMBER
940 , p5_a9 in out nocopy NUMBER
941 , p5_a10 in out nocopy NUMBER
942 , p5_a11 in out nocopy NUMBER
943 , p5_a12 in out nocopy VARCHAR2
944 , p5_a13 in out nocopy VARCHAR2
945 , p5_a14 in out nocopy VARCHAR2
946 , p5_a15 in out nocopy VARCHAR2
947 , p5_a16 in out nocopy NUMBER
948 , p5_a17 in out nocopy VARCHAR2
949 , p5_a18 in out nocopy NUMBER
950 , p5_a19 in out nocopy NUMBER
951 , p5_a20 in out nocopy NUMBER
952 , p5_a21 in out nocopy DATE
953 , p5_a22 in out nocopy DATE
954 , p5_a23 in out nocopy DATE
955 , p5_a24 in out nocopy DATE
956 , p5_a25 in out nocopy DATE
957 , p5_a26 in out nocopy DATE
958 , p5_a27 in out nocopy VARCHAR2
959 , p5_a28 in out nocopy NUMBER
960 , p5_a29 in out nocopy VARCHAR2
961 , p5_a30 in out nocopy VARCHAR2
962 , p5_a31 in out nocopy NUMBER
963 , p5_a32 in out nocopy VARCHAR2
964 , p5_a33 in out nocopy VARCHAR2
965 , p5_a34 in out nocopy VARCHAR2
966 , p5_a35 in out nocopy NUMBER
967 , p5_a36 in out nocopy VARCHAR2
968 , p5_a37 in out nocopy NUMBER
969 , p5_a38 in out nocopy NUMBER
970 , p5_a39 in out nocopy NUMBER
971 , p5_a40 in out nocopy DATE
972 , p5_a41 in out nocopy NUMBER
973 , p5_a42 in out nocopy DATE
974 , p5_a43 in out nocopy NUMBER
975 , p5_a44 in out nocopy VARCHAR2
976 , p5_a45 in out nocopy VARCHAR2
977 , p5_a46 in out nocopy VARCHAR2
978 , p5_a47 in out nocopy VARCHAR2
979 , p5_a48 in out nocopy VARCHAR2
980 , p5_a49 in out nocopy VARCHAR2
981 , p5_a50 in out nocopy VARCHAR2
982 , p5_a51 in out nocopy VARCHAR2
983 , p5_a52 in out nocopy VARCHAR2
984 , p5_a53 in out nocopy VARCHAR2
985 , p5_a54 in out nocopy VARCHAR2
986 , p5_a55 in out nocopy VARCHAR2
987 , p5_a56 in out nocopy VARCHAR2
988 , p5_a57 in out nocopy VARCHAR2
989 , p5_a58 in out nocopy VARCHAR2
990 , p5_a59 in out nocopy VARCHAR2
991 , x_return_status out nocopy VARCHAR2
992 , x_msg_count out nocopy NUMBER
993 , x_msg_data out nocopy VARCHAR2
994 )
995
996 as
997 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
998 ddindx binary_integer; indx binary_integer;
999 begin
1000
1001 -- copy data to the local IN or IN-OUT args, if any
1002
1003
1004
1005
1006
1007 ddp_x_cost_price_rec.visit_task_id := p5_a0;
1008 ddp_x_cost_price_rec.visit_id := p5_a1;
1009 ddp_x_cost_price_rec.mr_id := p5_a2;
1010 ddp_x_cost_price_rec.actual_cost := p5_a3;
1011 ddp_x_cost_price_rec.estimated_cost := p5_a4;
1012 ddp_x_cost_price_rec.actual_price := p5_a5;
1013 ddp_x_cost_price_rec.estimated_price := p5_a6;
1014 ddp_x_cost_price_rec.currency := p5_a7;
1015 ddp_x_cost_price_rec.snapshot_id := p5_a8;
1016 ddp_x_cost_price_rec.object_version_number := p5_a9;
1017 ddp_x_cost_price_rec.estimated_profit := p5_a10;
1018 ddp_x_cost_price_rec.actual_profit := p5_a11;
1019 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
1020 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
1021 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
1022 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
1023 ddp_x_cost_price_rec.price_list_id := p5_a16;
1024 ddp_x_cost_price_rec.price_list_name := p5_a17;
1025 ddp_x_cost_price_rec.service_request_id := p5_a18;
1026 ddp_x_cost_price_rec.customer_id := p5_a19;
1027 ddp_x_cost_price_rec.organization_id := p5_a20;
1028 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
1029 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
1030 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
1031 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
1032 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
1033 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
1034 ddp_x_cost_price_rec.task_name := p5_a27;
1035 ddp_x_cost_price_rec.visit_task_number := p5_a28;
1036 ddp_x_cost_price_rec.mr_title := p5_a29;
1037 ddp_x_cost_price_rec.mr_description := p5_a30;
1038 ddp_x_cost_price_rec.billing_item_id := p5_a31;
1039 ddp_x_cost_price_rec.item_name := p5_a32;
1040 ddp_x_cost_price_rec.item_description := p5_a33;
1041 ddp_x_cost_price_rec.organization_name := p5_a34;
1042 ddp_x_cost_price_rec.workorder_id := p5_a35;
1043 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
1044 ddp_x_cost_price_rec.mr_session_id := p5_a37;
1045 ddp_x_cost_price_rec.cost_session_id := p5_a38;
1046 ddp_x_cost_price_rec.created_by := p5_a39;
1047 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
1048 ddp_x_cost_price_rec.last_updated_by := p5_a41;
1049 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
1050 ddp_x_cost_price_rec.last_update_login := p5_a43;
1051 ddp_x_cost_price_rec.attribute_category := p5_a44;
1052 ddp_x_cost_price_rec.attribute1 := p5_a45;
1053 ddp_x_cost_price_rec.attribute2 := p5_a46;
1054 ddp_x_cost_price_rec.attribute3 := p5_a47;
1055 ddp_x_cost_price_rec.attribute4 := p5_a48;
1056 ddp_x_cost_price_rec.attribute5 := p5_a49;
1057 ddp_x_cost_price_rec.attribute6 := p5_a50;
1058 ddp_x_cost_price_rec.attribute7 := p5_a51;
1059 ddp_x_cost_price_rec.attribute8 := p5_a52;
1060 ddp_x_cost_price_rec.attribute9 := p5_a53;
1061 ddp_x_cost_price_rec.attribute10 := p5_a54;
1062 ddp_x_cost_price_rec.attribute11 := p5_a55;
1063 ddp_x_cost_price_rec.attribute12 := p5_a56;
1064 ddp_x_cost_price_rec.attribute13 := p5_a57;
1065 ddp_x_cost_price_rec.attribute14 := p5_a58;
1066 ddp_x_cost_price_rec.attribute15 := p5_a59;
1067
1068
1069
1070
1071 -- here's the delegated call to the old PL/SQL routine
1072 ahl_vwp_visit_cst_pr_pvt.estimate_visit_price(p_api_version,
1073 p_init_msg_list,
1074 p_commit,
1075 p_validation_level,
1076 p_module_type,
1077 ddp_x_cost_price_rec,
1078 x_return_status,
1079 x_msg_count,
1080 x_msg_data);
1081
1082 -- copy data back from the local variables to OUT or IN-OUT args, if any
1083
1084
1085
1086
1087
1088 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
1089 p5_a1 := ddp_x_cost_price_rec.visit_id;
1090 p5_a2 := ddp_x_cost_price_rec.mr_id;
1091 p5_a3 := ddp_x_cost_price_rec.actual_cost;
1092 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
1093 p5_a5 := ddp_x_cost_price_rec.actual_price;
1094 p5_a6 := ddp_x_cost_price_rec.estimated_price;
1095 p5_a7 := ddp_x_cost_price_rec.currency;
1096 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
1097 p5_a9 := ddp_x_cost_price_rec.object_version_number;
1098 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
1099 p5_a11 := ddp_x_cost_price_rec.actual_profit;
1100 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
1101 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
1102 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
1103 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
1104 p5_a16 := ddp_x_cost_price_rec.price_list_id;
1105 p5_a17 := ddp_x_cost_price_rec.price_list_name;
1106 p5_a18 := ddp_x_cost_price_rec.service_request_id;
1107 p5_a19 := ddp_x_cost_price_rec.customer_id;
1108 p5_a20 := ddp_x_cost_price_rec.organization_id;
1109 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
1110 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
1111 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
1112 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
1113 p5_a25 := ddp_x_cost_price_rec.task_start_date;
1114 p5_a26 := ddp_x_cost_price_rec.task_end_date;
1115 p5_a27 := ddp_x_cost_price_rec.task_name;
1116 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
1117 p5_a29 := ddp_x_cost_price_rec.mr_title;
1118 p5_a30 := ddp_x_cost_price_rec.mr_description;
1119 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
1120 p5_a32 := ddp_x_cost_price_rec.item_name;
1121 p5_a33 := ddp_x_cost_price_rec.item_description;
1122 p5_a34 := ddp_x_cost_price_rec.organization_name;
1123 p5_a35 := ddp_x_cost_price_rec.workorder_id;
1124 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
1125 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
1126 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
1127 p5_a39 := ddp_x_cost_price_rec.created_by;
1128 p5_a40 := ddp_x_cost_price_rec.creation_date;
1129 p5_a41 := ddp_x_cost_price_rec.last_updated_by;
1130 p5_a42 := ddp_x_cost_price_rec.last_update_date;
1131 p5_a43 := ddp_x_cost_price_rec.last_update_login;
1132 p5_a44 := ddp_x_cost_price_rec.attribute_category;
1133 p5_a45 := ddp_x_cost_price_rec.attribute1;
1134 p5_a46 := ddp_x_cost_price_rec.attribute2;
1135 p5_a47 := ddp_x_cost_price_rec.attribute3;
1136 p5_a48 := ddp_x_cost_price_rec.attribute4;
1137 p5_a49 := ddp_x_cost_price_rec.attribute5;
1138 p5_a50 := ddp_x_cost_price_rec.attribute6;
1139 p5_a51 := ddp_x_cost_price_rec.attribute7;
1140 p5_a52 := ddp_x_cost_price_rec.attribute8;
1141 p5_a53 := ddp_x_cost_price_rec.attribute9;
1142 p5_a54 := ddp_x_cost_price_rec.attribute10;
1143 p5_a55 := ddp_x_cost_price_rec.attribute11;
1144 p5_a56 := ddp_x_cost_price_rec.attribute12;
1145 p5_a57 := ddp_x_cost_price_rec.attribute13;
1146 p5_a58 := ddp_x_cost_price_rec.attribute14;
1147 p5_a59 := ddp_x_cost_price_rec.attribute15;
1148
1149
1150
1151 end;
1152
1153 procedure create_cost_snapshot(p_api_version NUMBER
1154 , p_init_msg_list VARCHAR2
1155 , p_commit VARCHAR2
1156 , p_validation_level NUMBER
1157 , p_module_type VARCHAR2
1158 , p5_a0 in out nocopy NUMBER
1159 , p5_a1 in out nocopy NUMBER
1160 , p5_a2 in out nocopy NUMBER
1161 , p5_a3 in out nocopy NUMBER
1162 , p5_a4 in out nocopy NUMBER
1163 , p5_a5 in out nocopy NUMBER
1164 , p5_a6 in out nocopy NUMBER
1165 , p5_a7 in out nocopy VARCHAR2
1166 , p5_a8 in out nocopy NUMBER
1167 , p5_a9 in out nocopy NUMBER
1168 , p5_a10 in out nocopy NUMBER
1169 , p5_a11 in out nocopy NUMBER
1170 , p5_a12 in out nocopy VARCHAR2
1171 , p5_a13 in out nocopy VARCHAR2
1172 , p5_a14 in out nocopy VARCHAR2
1173 , p5_a15 in out nocopy VARCHAR2
1174 , p5_a16 in out nocopy NUMBER
1175 , p5_a17 in out nocopy VARCHAR2
1176 , p5_a18 in out nocopy NUMBER
1177 , p5_a19 in out nocopy NUMBER
1178 , p5_a20 in out nocopy NUMBER
1179 , p5_a21 in out nocopy DATE
1180 , p5_a22 in out nocopy DATE
1181 , p5_a23 in out nocopy DATE
1182 , p5_a24 in out nocopy DATE
1183 , p5_a25 in out nocopy DATE
1184 , p5_a26 in out nocopy DATE
1185 , p5_a27 in out nocopy VARCHAR2
1186 , p5_a28 in out nocopy NUMBER
1187 , p5_a29 in out nocopy VARCHAR2
1188 , p5_a30 in out nocopy VARCHAR2
1189 , p5_a31 in out nocopy NUMBER
1190 , p5_a32 in out nocopy VARCHAR2
1191 , p5_a33 in out nocopy VARCHAR2
1192 , p5_a34 in out nocopy VARCHAR2
1193 , p5_a35 in out nocopy NUMBER
1194 , p5_a36 in out nocopy VARCHAR2
1195 , p5_a37 in out nocopy NUMBER
1196 , p5_a38 in out nocopy NUMBER
1197 , p5_a39 in out nocopy NUMBER
1198 , p5_a40 in out nocopy DATE
1199 , p5_a41 in out nocopy NUMBER
1200 , p5_a42 in out nocopy DATE
1201 , p5_a43 in out nocopy NUMBER
1202 , p5_a44 in out nocopy VARCHAR2
1203 , p5_a45 in out nocopy VARCHAR2
1204 , p5_a46 in out nocopy VARCHAR2
1205 , p5_a47 in out nocopy VARCHAR2
1206 , p5_a48 in out nocopy VARCHAR2
1207 , p5_a49 in out nocopy VARCHAR2
1208 , p5_a50 in out nocopy VARCHAR2
1209 , p5_a51 in out nocopy VARCHAR2
1210 , p5_a52 in out nocopy VARCHAR2
1211 , p5_a53 in out nocopy VARCHAR2
1212 , p5_a54 in out nocopy VARCHAR2
1213 , p5_a55 in out nocopy VARCHAR2
1214 , p5_a56 in out nocopy VARCHAR2
1215 , p5_a57 in out nocopy VARCHAR2
1216 , p5_a58 in out nocopy VARCHAR2
1217 , p5_a59 in out nocopy VARCHAR2
1218 , x_return_status out nocopy VARCHAR2
1219 , x_msg_count out nocopy NUMBER
1220 , x_msg_data out nocopy VARCHAR2
1221 )
1222
1223 as
1224 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1225 ddindx binary_integer; indx binary_integer;
1226 begin
1227
1228 -- copy data to the local IN or IN-OUT args, if any
1229
1230
1231
1232
1233
1234 ddp_x_cost_price_rec.visit_task_id := p5_a0;
1235 ddp_x_cost_price_rec.visit_id := p5_a1;
1236 ddp_x_cost_price_rec.mr_id := p5_a2;
1237 ddp_x_cost_price_rec.actual_cost := p5_a3;
1238 ddp_x_cost_price_rec.estimated_cost := p5_a4;
1239 ddp_x_cost_price_rec.actual_price := p5_a5;
1240 ddp_x_cost_price_rec.estimated_price := p5_a6;
1241 ddp_x_cost_price_rec.currency := p5_a7;
1242 ddp_x_cost_price_rec.snapshot_id := p5_a8;
1243 ddp_x_cost_price_rec.object_version_number := p5_a9;
1244 ddp_x_cost_price_rec.estimated_profit := p5_a10;
1245 ddp_x_cost_price_rec.actual_profit := p5_a11;
1246 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
1247 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
1248 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
1249 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
1250 ddp_x_cost_price_rec.price_list_id := p5_a16;
1251 ddp_x_cost_price_rec.price_list_name := p5_a17;
1252 ddp_x_cost_price_rec.service_request_id := p5_a18;
1253 ddp_x_cost_price_rec.customer_id := p5_a19;
1254 ddp_x_cost_price_rec.organization_id := p5_a20;
1255 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
1256 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
1257 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
1258 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
1259 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
1260 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
1261 ddp_x_cost_price_rec.task_name := p5_a27;
1262 ddp_x_cost_price_rec.visit_task_number := p5_a28;
1263 ddp_x_cost_price_rec.mr_title := p5_a29;
1264 ddp_x_cost_price_rec.mr_description := p5_a30;
1265 ddp_x_cost_price_rec.billing_item_id := p5_a31;
1266 ddp_x_cost_price_rec.item_name := p5_a32;
1267 ddp_x_cost_price_rec.item_description := p5_a33;
1268 ddp_x_cost_price_rec.organization_name := p5_a34;
1269 ddp_x_cost_price_rec.workorder_id := p5_a35;
1270 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
1271 ddp_x_cost_price_rec.mr_session_id := p5_a37;
1272 ddp_x_cost_price_rec.cost_session_id := p5_a38;
1273 ddp_x_cost_price_rec.created_by := p5_a39;
1274 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
1275 ddp_x_cost_price_rec.last_updated_by := p5_a41;
1276 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
1277 ddp_x_cost_price_rec.last_update_login := p5_a43;
1278 ddp_x_cost_price_rec.attribute_category := p5_a44;
1279 ddp_x_cost_price_rec.attribute1 := p5_a45;
1280 ddp_x_cost_price_rec.attribute2 := p5_a46;
1281 ddp_x_cost_price_rec.attribute3 := p5_a47;
1282 ddp_x_cost_price_rec.attribute4 := p5_a48;
1283 ddp_x_cost_price_rec.attribute5 := p5_a49;
1284 ddp_x_cost_price_rec.attribute6 := p5_a50;
1285 ddp_x_cost_price_rec.attribute7 := p5_a51;
1286 ddp_x_cost_price_rec.attribute8 := p5_a52;
1287 ddp_x_cost_price_rec.attribute9 := p5_a53;
1288 ddp_x_cost_price_rec.attribute10 := p5_a54;
1289 ddp_x_cost_price_rec.attribute11 := p5_a55;
1290 ddp_x_cost_price_rec.attribute12 := p5_a56;
1291 ddp_x_cost_price_rec.attribute13 := p5_a57;
1292 ddp_x_cost_price_rec.attribute14 := p5_a58;
1293 ddp_x_cost_price_rec.attribute15 := p5_a59;
1294
1295
1296
1297
1298 -- here's the delegated call to the old PL/SQL routine
1299 ahl_vwp_visit_cst_pr_pvt.create_cost_snapshot(p_api_version,
1300 p_init_msg_list,
1301 p_commit,
1302 p_validation_level,
1303 p_module_type,
1304 ddp_x_cost_price_rec,
1305 x_return_status,
1306 x_msg_count,
1307 x_msg_data);
1308
1309 -- copy data back from the local variables to OUT or IN-OUT args, if any
1310
1311
1312
1313
1314
1315 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
1316 p5_a1 := ddp_x_cost_price_rec.visit_id;
1317 p5_a2 := ddp_x_cost_price_rec.mr_id;
1318 p5_a3 := ddp_x_cost_price_rec.actual_cost;
1319 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
1320 p5_a5 := ddp_x_cost_price_rec.actual_price;
1321 p5_a6 := ddp_x_cost_price_rec.estimated_price;
1322 p5_a7 := ddp_x_cost_price_rec.currency;
1323 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
1324 p5_a9 := ddp_x_cost_price_rec.object_version_number;
1325 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
1326 p5_a11 := ddp_x_cost_price_rec.actual_profit;
1327 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
1328 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
1329 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
1330 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
1331 p5_a16 := ddp_x_cost_price_rec.price_list_id;
1332 p5_a17 := ddp_x_cost_price_rec.price_list_name;
1333 p5_a18 := ddp_x_cost_price_rec.service_request_id;
1334 p5_a19 := ddp_x_cost_price_rec.customer_id;
1335 p5_a20 := ddp_x_cost_price_rec.organization_id;
1336 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
1337 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
1338 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
1339 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
1340 p5_a25 := ddp_x_cost_price_rec.task_start_date;
1341 p5_a26 := ddp_x_cost_price_rec.task_end_date;
1342 p5_a27 := ddp_x_cost_price_rec.task_name;
1343 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
1344 p5_a29 := ddp_x_cost_price_rec.mr_title;
1345 p5_a30 := ddp_x_cost_price_rec.mr_description;
1346 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
1347 p5_a32 := ddp_x_cost_price_rec.item_name;
1348 p5_a33 := ddp_x_cost_price_rec.item_description;
1349 p5_a34 := ddp_x_cost_price_rec.organization_name;
1350 p5_a35 := ddp_x_cost_price_rec.workorder_id;
1351 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
1352 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
1353 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
1354 p5_a39 := ddp_x_cost_price_rec.created_by;
1355 p5_a40 := ddp_x_cost_price_rec.creation_date;
1356 p5_a41 := ddp_x_cost_price_rec.last_updated_by;
1357 p5_a42 := ddp_x_cost_price_rec.last_update_date;
1358 p5_a43 := ddp_x_cost_price_rec.last_update_login;
1359 p5_a44 := ddp_x_cost_price_rec.attribute_category;
1360 p5_a45 := ddp_x_cost_price_rec.attribute1;
1361 p5_a46 := ddp_x_cost_price_rec.attribute2;
1362 p5_a47 := ddp_x_cost_price_rec.attribute3;
1363 p5_a48 := ddp_x_cost_price_rec.attribute4;
1364 p5_a49 := ddp_x_cost_price_rec.attribute5;
1365 p5_a50 := ddp_x_cost_price_rec.attribute6;
1366 p5_a51 := ddp_x_cost_price_rec.attribute7;
1367 p5_a52 := ddp_x_cost_price_rec.attribute8;
1368 p5_a53 := ddp_x_cost_price_rec.attribute9;
1369 p5_a54 := ddp_x_cost_price_rec.attribute10;
1370 p5_a55 := ddp_x_cost_price_rec.attribute11;
1371 p5_a56 := ddp_x_cost_price_rec.attribute12;
1372 p5_a57 := ddp_x_cost_price_rec.attribute13;
1373 p5_a58 := ddp_x_cost_price_rec.attribute14;
1374 p5_a59 := ddp_x_cost_price_rec.attribute15;
1375
1376
1377
1378 end;
1379
1380 procedure update_visit_cost_details(p_api_version NUMBER
1381 , p_init_msg_list VARCHAR2
1382 , p_commit VARCHAR2
1383 , p_validation_level NUMBER
1384 , p_module_type VARCHAR2
1385 , p5_a0 in out nocopy NUMBER
1386 , p5_a1 in out nocopy NUMBER
1387 , p5_a2 in out nocopy NUMBER
1388 , p5_a3 in out nocopy NUMBER
1389 , p5_a4 in out nocopy NUMBER
1390 , p5_a5 in out nocopy NUMBER
1391 , p5_a6 in out nocopy NUMBER
1392 , p5_a7 in out nocopy VARCHAR2
1393 , p5_a8 in out nocopy NUMBER
1394 , p5_a9 in out nocopy NUMBER
1395 , p5_a10 in out nocopy NUMBER
1396 , p5_a11 in out nocopy NUMBER
1397 , p5_a12 in out nocopy VARCHAR2
1398 , p5_a13 in out nocopy VARCHAR2
1399 , p5_a14 in out nocopy VARCHAR2
1400 , p5_a15 in out nocopy VARCHAR2
1401 , p5_a16 in out nocopy NUMBER
1402 , p5_a17 in out nocopy VARCHAR2
1403 , p5_a18 in out nocopy NUMBER
1404 , p5_a19 in out nocopy NUMBER
1405 , p5_a20 in out nocopy NUMBER
1406 , p5_a21 in out nocopy DATE
1407 , p5_a22 in out nocopy DATE
1408 , p5_a23 in out nocopy DATE
1409 , p5_a24 in out nocopy DATE
1410 , p5_a25 in out nocopy DATE
1411 , p5_a26 in out nocopy DATE
1412 , p5_a27 in out nocopy VARCHAR2
1413 , p5_a28 in out nocopy NUMBER
1414 , p5_a29 in out nocopy VARCHAR2
1415 , p5_a30 in out nocopy VARCHAR2
1416 , p5_a31 in out nocopy NUMBER
1417 , p5_a32 in out nocopy VARCHAR2
1418 , p5_a33 in out nocopy VARCHAR2
1419 , p5_a34 in out nocopy VARCHAR2
1420 , p5_a35 in out nocopy NUMBER
1421 , p5_a36 in out nocopy VARCHAR2
1422 , p5_a37 in out nocopy NUMBER
1423 , p5_a38 in out nocopy NUMBER
1424 , p5_a39 in out nocopy NUMBER
1425 , p5_a40 in out nocopy DATE
1426 , p5_a41 in out nocopy NUMBER
1427 , p5_a42 in out nocopy DATE
1428 , p5_a43 in out nocopy NUMBER
1429 , p5_a44 in out nocopy VARCHAR2
1430 , p5_a45 in out nocopy VARCHAR2
1431 , p5_a46 in out nocopy VARCHAR2
1432 , p5_a47 in out nocopy VARCHAR2
1433 , p5_a48 in out nocopy VARCHAR2
1434 , p5_a49 in out nocopy VARCHAR2
1435 , p5_a50 in out nocopy VARCHAR2
1436 , p5_a51 in out nocopy VARCHAR2
1437 , p5_a52 in out nocopy VARCHAR2
1438 , p5_a53 in out nocopy VARCHAR2
1439 , p5_a54 in out nocopy VARCHAR2
1440 , p5_a55 in out nocopy VARCHAR2
1441 , p5_a56 in out nocopy VARCHAR2
1442 , p5_a57 in out nocopy VARCHAR2
1443 , p5_a58 in out nocopy VARCHAR2
1444 , p5_a59 in out nocopy VARCHAR2
1445 , x_return_status out nocopy VARCHAR2
1446 , x_msg_count out nocopy NUMBER
1447 , x_msg_data out nocopy VARCHAR2
1448 )
1449
1450 as
1451 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1452 ddindx binary_integer; indx binary_integer;
1453 begin
1454
1455 -- copy data to the local IN or IN-OUT args, if any
1456
1457
1458
1459
1460
1461 ddp_x_cost_price_rec.visit_task_id := p5_a0;
1462 ddp_x_cost_price_rec.visit_id := p5_a1;
1463 ddp_x_cost_price_rec.mr_id := p5_a2;
1464 ddp_x_cost_price_rec.actual_cost := p5_a3;
1465 ddp_x_cost_price_rec.estimated_cost := p5_a4;
1466 ddp_x_cost_price_rec.actual_price := p5_a5;
1467 ddp_x_cost_price_rec.estimated_price := p5_a6;
1468 ddp_x_cost_price_rec.currency := p5_a7;
1469 ddp_x_cost_price_rec.snapshot_id := p5_a8;
1470 ddp_x_cost_price_rec.object_version_number := p5_a9;
1471 ddp_x_cost_price_rec.estimated_profit := p5_a10;
1472 ddp_x_cost_price_rec.actual_profit := p5_a11;
1473 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
1474 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
1475 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
1476 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
1477 ddp_x_cost_price_rec.price_list_id := p5_a16;
1478 ddp_x_cost_price_rec.price_list_name := p5_a17;
1479 ddp_x_cost_price_rec.service_request_id := p5_a18;
1480 ddp_x_cost_price_rec.customer_id := p5_a19;
1481 ddp_x_cost_price_rec.organization_id := p5_a20;
1482 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
1483 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
1484 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
1485 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
1486 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
1487 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
1488 ddp_x_cost_price_rec.task_name := p5_a27;
1489 ddp_x_cost_price_rec.visit_task_number := p5_a28;
1490 ddp_x_cost_price_rec.mr_title := p5_a29;
1491 ddp_x_cost_price_rec.mr_description := p5_a30;
1492 ddp_x_cost_price_rec.billing_item_id := p5_a31;
1493 ddp_x_cost_price_rec.item_name := p5_a32;
1494 ddp_x_cost_price_rec.item_description := p5_a33;
1495 ddp_x_cost_price_rec.organization_name := p5_a34;
1496 ddp_x_cost_price_rec.workorder_id := p5_a35;
1497 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
1498 ddp_x_cost_price_rec.mr_session_id := p5_a37;
1499 ddp_x_cost_price_rec.cost_session_id := p5_a38;
1500 ddp_x_cost_price_rec.created_by := p5_a39;
1501 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
1502 ddp_x_cost_price_rec.last_updated_by := p5_a41;
1503 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
1504 ddp_x_cost_price_rec.last_update_login := p5_a43;
1505 ddp_x_cost_price_rec.attribute_category := p5_a44;
1506 ddp_x_cost_price_rec.attribute1 := p5_a45;
1507 ddp_x_cost_price_rec.attribute2 := p5_a46;
1508 ddp_x_cost_price_rec.attribute3 := p5_a47;
1509 ddp_x_cost_price_rec.attribute4 := p5_a48;
1510 ddp_x_cost_price_rec.attribute5 := p5_a49;
1511 ddp_x_cost_price_rec.attribute6 := p5_a50;
1512 ddp_x_cost_price_rec.attribute7 := p5_a51;
1513 ddp_x_cost_price_rec.attribute8 := p5_a52;
1514 ddp_x_cost_price_rec.attribute9 := p5_a53;
1515 ddp_x_cost_price_rec.attribute10 := p5_a54;
1516 ddp_x_cost_price_rec.attribute11 := p5_a55;
1517 ddp_x_cost_price_rec.attribute12 := p5_a56;
1518 ddp_x_cost_price_rec.attribute13 := p5_a57;
1519 ddp_x_cost_price_rec.attribute14 := p5_a58;
1520 ddp_x_cost_price_rec.attribute15 := p5_a59;
1521
1522
1523
1524
1525 -- here's the delegated call to the old PL/SQL routine
1526 ahl_vwp_visit_cst_pr_pvt.update_visit_cost_details(p_api_version,
1527 p_init_msg_list,
1528 p_commit,
1529 p_validation_level,
1530 p_module_type,
1531 ddp_x_cost_price_rec,
1532 x_return_status,
1533 x_msg_count,
1534 x_msg_data);
1535
1536 -- copy data back from the local variables to OUT or IN-OUT args, if any
1537
1538
1539
1540
1541
1542 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
1543 p5_a1 := ddp_x_cost_price_rec.visit_id;
1544 p5_a2 := ddp_x_cost_price_rec.mr_id;
1545 p5_a3 := ddp_x_cost_price_rec.actual_cost;
1546 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
1547 p5_a5 := ddp_x_cost_price_rec.actual_price;
1548 p5_a6 := ddp_x_cost_price_rec.estimated_price;
1549 p5_a7 := ddp_x_cost_price_rec.currency;
1550 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
1551 p5_a9 := ddp_x_cost_price_rec.object_version_number;
1552 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
1553 p5_a11 := ddp_x_cost_price_rec.actual_profit;
1554 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
1555 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
1556 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
1557 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
1558 p5_a16 := ddp_x_cost_price_rec.price_list_id;
1559 p5_a17 := ddp_x_cost_price_rec.price_list_name;
1560 p5_a18 := ddp_x_cost_price_rec.service_request_id;
1561 p5_a19 := ddp_x_cost_price_rec.customer_id;
1562 p5_a20 := ddp_x_cost_price_rec.organization_id;
1563 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
1564 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
1565 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
1566 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
1567 p5_a25 := ddp_x_cost_price_rec.task_start_date;
1568 p5_a26 := ddp_x_cost_price_rec.task_end_date;
1569 p5_a27 := ddp_x_cost_price_rec.task_name;
1570 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
1571 p5_a29 := ddp_x_cost_price_rec.mr_title;
1572 p5_a30 := ddp_x_cost_price_rec.mr_description;
1573 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
1574 p5_a32 := ddp_x_cost_price_rec.item_name;
1575 p5_a33 := ddp_x_cost_price_rec.item_description;
1576 p5_a34 := ddp_x_cost_price_rec.organization_name;
1577 p5_a35 := ddp_x_cost_price_rec.workorder_id;
1578 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
1579 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
1580 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
1581 p5_a39 := ddp_x_cost_price_rec.created_by;
1582 p5_a40 := ddp_x_cost_price_rec.creation_date;
1583 p5_a41 := ddp_x_cost_price_rec.last_updated_by;
1584 p5_a42 := ddp_x_cost_price_rec.last_update_date;
1585 p5_a43 := ddp_x_cost_price_rec.last_update_login;
1586 p5_a44 := ddp_x_cost_price_rec.attribute_category;
1587 p5_a45 := ddp_x_cost_price_rec.attribute1;
1588 p5_a46 := ddp_x_cost_price_rec.attribute2;
1589 p5_a47 := ddp_x_cost_price_rec.attribute3;
1590 p5_a48 := ddp_x_cost_price_rec.attribute4;
1591 p5_a49 := ddp_x_cost_price_rec.attribute5;
1592 p5_a50 := ddp_x_cost_price_rec.attribute6;
1593 p5_a51 := ddp_x_cost_price_rec.attribute7;
1594 p5_a52 := ddp_x_cost_price_rec.attribute8;
1595 p5_a53 := ddp_x_cost_price_rec.attribute9;
1596 p5_a54 := ddp_x_cost_price_rec.attribute10;
1597 p5_a55 := ddp_x_cost_price_rec.attribute11;
1598 p5_a56 := ddp_x_cost_price_rec.attribute12;
1599 p5_a57 := ddp_x_cost_price_rec.attribute13;
1600 p5_a58 := ddp_x_cost_price_rec.attribute14;
1601 p5_a59 := ddp_x_cost_price_rec.attribute15;
1602
1603
1604
1605 end;
1606
1607 procedure get_visit_items_no_price(p_api_version NUMBER
1608 , p_init_msg_list VARCHAR2
1609 , p_commit VARCHAR2
1610 , p_validation_level NUMBER
1611 , p_module_type VARCHAR2
1612 , x_return_status out nocopy VARCHAR2
1613 , x_msg_count out nocopy NUMBER
1614 , x_msg_data out nocopy VARCHAR2
1615 , p8_a0 NUMBER
1616 , p8_a1 NUMBER
1617 , p8_a2 NUMBER
1618 , p8_a3 NUMBER
1619 , p8_a4 NUMBER
1620 , p8_a5 NUMBER
1621 , p8_a6 NUMBER
1622 , p8_a7 VARCHAR2
1623 , p8_a8 NUMBER
1624 , p8_a9 NUMBER
1625 , p8_a10 NUMBER
1626 , p8_a11 NUMBER
1627 , p8_a12 VARCHAR2
1628 , p8_a13 VARCHAR2
1629 , p8_a14 VARCHAR2
1630 , p8_a15 VARCHAR2
1631 , p8_a16 NUMBER
1632 , p8_a17 VARCHAR2
1633 , p8_a18 NUMBER
1634 , p8_a19 NUMBER
1635 , p8_a20 NUMBER
1636 , p8_a21 DATE
1637 , p8_a22 DATE
1638 , p8_a23 DATE
1639 , p8_a24 DATE
1640 , p8_a25 DATE
1641 , p8_a26 DATE
1642 , p8_a27 VARCHAR2
1643 , p8_a28 NUMBER
1644 , p8_a29 VARCHAR2
1645 , p8_a30 VARCHAR2
1646 , p8_a31 NUMBER
1647 , p8_a32 VARCHAR2
1648 , p8_a33 VARCHAR2
1649 , p8_a34 VARCHAR2
1650 , p8_a35 NUMBER
1651 , p8_a36 VARCHAR2
1652 , p8_a37 NUMBER
1653 , p8_a38 NUMBER
1654 , p8_a39 NUMBER
1655 , p8_a40 DATE
1656 , p8_a41 NUMBER
1657 , p8_a42 DATE
1658 , p8_a43 NUMBER
1659 , p8_a44 VARCHAR2
1660 , p8_a45 VARCHAR2
1661 , p8_a46 VARCHAR2
1662 , p8_a47 VARCHAR2
1663 , p8_a48 VARCHAR2
1664 , p8_a49 VARCHAR2
1665 , p8_a50 VARCHAR2
1666 , p8_a51 VARCHAR2
1667 , p8_a52 VARCHAR2
1668 , p8_a53 VARCHAR2
1669 , p8_a54 VARCHAR2
1670 , p8_a55 VARCHAR2
1671 , p8_a56 VARCHAR2
1672 , p8_a57 VARCHAR2
1673 , p8_a58 VARCHAR2
1674 , p8_a59 VARCHAR2
1675 , p9_a0 out nocopy JTF_NUMBER_TABLE
1676 , p9_a1 out nocopy JTF_NUMBER_TABLE
1677 , p9_a2 out nocopy JTF_NUMBER_TABLE
1678 , p9_a3 out nocopy JTF_NUMBER_TABLE
1679 , p9_a4 out nocopy JTF_NUMBER_TABLE
1680 , p9_a5 out nocopy JTF_NUMBER_TABLE
1681 , p9_a6 out nocopy JTF_NUMBER_TABLE
1682 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
1683 , p9_a8 out nocopy JTF_NUMBER_TABLE
1684 , p9_a9 out nocopy JTF_NUMBER_TABLE
1685 , p9_a10 out nocopy JTF_NUMBER_TABLE
1686 , p9_a11 out nocopy JTF_NUMBER_TABLE
1687 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
1688 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
1689 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
1690 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
1691 , p9_a16 out nocopy JTF_NUMBER_TABLE
1692 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
1693 , p9_a18 out nocopy JTF_NUMBER_TABLE
1694 , p9_a19 out nocopy JTF_NUMBER_TABLE
1695 , p9_a20 out nocopy JTF_NUMBER_TABLE
1696 , p9_a21 out nocopy JTF_DATE_TABLE
1697 , p9_a22 out nocopy JTF_DATE_TABLE
1698 , p9_a23 out nocopy JTF_DATE_TABLE
1699 , p9_a24 out nocopy JTF_DATE_TABLE
1700 , p9_a25 out nocopy JTF_DATE_TABLE
1701 , p9_a26 out nocopy JTF_DATE_TABLE
1702 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
1703 , p9_a28 out nocopy JTF_NUMBER_TABLE
1704 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_100
1705 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_2000
1706 , p9_a31 out nocopy JTF_NUMBER_TABLE
1707 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_400
1708 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_300
1709 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_300
1710 , p9_a35 out nocopy JTF_NUMBER_TABLE
1711 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
1712 , p9_a37 out nocopy JTF_NUMBER_TABLE
1713 , p9_a38 out nocopy JTF_NUMBER_TABLE
1714 , p9_a39 out nocopy JTF_NUMBER_TABLE
1715 , p9_a40 out nocopy JTF_DATE_TABLE
1716 , p9_a41 out nocopy JTF_NUMBER_TABLE
1717 , p9_a42 out nocopy JTF_DATE_TABLE
1718 , p9_a43 out nocopy JTF_NUMBER_TABLE
1719 , p9_a44 out nocopy JTF_VARCHAR2_TABLE_100
1720 , p9_a45 out nocopy JTF_VARCHAR2_TABLE_200
1721 , p9_a46 out nocopy JTF_VARCHAR2_TABLE_200
1722 , p9_a47 out nocopy JTF_VARCHAR2_TABLE_200
1723 , p9_a48 out nocopy JTF_VARCHAR2_TABLE_200
1724 , p9_a49 out nocopy JTF_VARCHAR2_TABLE_200
1725 , p9_a50 out nocopy JTF_VARCHAR2_TABLE_200
1726 , p9_a51 out nocopy JTF_VARCHAR2_TABLE_200
1727 , p9_a52 out nocopy JTF_VARCHAR2_TABLE_200
1728 , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
1729 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_200
1730 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_200
1731 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_200
1732 , p9_a57 out nocopy JTF_VARCHAR2_TABLE_200
1733 , p9_a58 out nocopy JTF_VARCHAR2_TABLE_200
1734 , p9_a59 out nocopy JTF_VARCHAR2_TABLE_200
1735 )
1736
1737 as
1738 ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1739 ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
1740 ddindx binary_integer; indx binary_integer;
1741 begin
1742
1743 -- copy data to the local IN or IN-OUT args, if any
1744
1745
1746
1747
1748
1749
1750
1751
1752 ddp_cost_price_rec.visit_task_id := p8_a0;
1753 ddp_cost_price_rec.visit_id := p8_a1;
1754 ddp_cost_price_rec.mr_id := p8_a2;
1755 ddp_cost_price_rec.actual_cost := p8_a3;
1756 ddp_cost_price_rec.estimated_cost := p8_a4;
1757 ddp_cost_price_rec.actual_price := p8_a5;
1758 ddp_cost_price_rec.estimated_price := p8_a6;
1759 ddp_cost_price_rec.currency := p8_a7;
1760 ddp_cost_price_rec.snapshot_id := p8_a8;
1761 ddp_cost_price_rec.object_version_number := p8_a9;
1762 ddp_cost_price_rec.estimated_profit := p8_a10;
1763 ddp_cost_price_rec.actual_profit := p8_a11;
1764 ddp_cost_price_rec.outside_party_flag := p8_a12;
1765 ddp_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
1766 ddp_cost_price_rec.is_cst_pr_info_required := p8_a14;
1767 ddp_cost_price_rec.is_cst_struc_updated := p8_a15;
1768 ddp_cost_price_rec.price_list_id := p8_a16;
1769 ddp_cost_price_rec.price_list_name := p8_a17;
1770 ddp_cost_price_rec.service_request_id := p8_a18;
1771 ddp_cost_price_rec.customer_id := p8_a19;
1772 ddp_cost_price_rec.organization_id := p8_a20;
1773 ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
1774 ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
1775 ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
1776 ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
1777 ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
1778 ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
1779 ddp_cost_price_rec.task_name := p8_a27;
1780 ddp_cost_price_rec.visit_task_number := p8_a28;
1781 ddp_cost_price_rec.mr_title := p8_a29;
1782 ddp_cost_price_rec.mr_description := p8_a30;
1783 ddp_cost_price_rec.billing_item_id := p8_a31;
1784 ddp_cost_price_rec.item_name := p8_a32;
1785 ddp_cost_price_rec.item_description := p8_a33;
1786 ddp_cost_price_rec.organization_name := p8_a34;
1787 ddp_cost_price_rec.workorder_id := p8_a35;
1788 ddp_cost_price_rec.master_wo_flag := p8_a36;
1789 ddp_cost_price_rec.mr_session_id := p8_a37;
1790 ddp_cost_price_rec.cost_session_id := p8_a38;
1791 ddp_cost_price_rec.created_by := p8_a39;
1792 ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a40);
1793 ddp_cost_price_rec.last_updated_by := p8_a41;
1794 ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a42);
1795 ddp_cost_price_rec.last_update_login := p8_a43;
1796 ddp_cost_price_rec.attribute_category := p8_a44;
1797 ddp_cost_price_rec.attribute1 := p8_a45;
1798 ddp_cost_price_rec.attribute2 := p8_a46;
1799 ddp_cost_price_rec.attribute3 := p8_a47;
1800 ddp_cost_price_rec.attribute4 := p8_a48;
1801 ddp_cost_price_rec.attribute5 := p8_a49;
1802 ddp_cost_price_rec.attribute6 := p8_a50;
1803 ddp_cost_price_rec.attribute7 := p8_a51;
1804 ddp_cost_price_rec.attribute8 := p8_a52;
1805 ddp_cost_price_rec.attribute9 := p8_a53;
1806 ddp_cost_price_rec.attribute10 := p8_a54;
1807 ddp_cost_price_rec.attribute11 := p8_a55;
1808 ddp_cost_price_rec.attribute12 := p8_a56;
1809 ddp_cost_price_rec.attribute13 := p8_a57;
1810 ddp_cost_price_rec.attribute14 := p8_a58;
1811 ddp_cost_price_rec.attribute15 := p8_a59;
1812
1813
1814 -- here's the delegated call to the old PL/SQL routine
1815 ahl_vwp_visit_cst_pr_pvt.get_visit_items_no_price(p_api_version,
1816 p_init_msg_list,
1817 p_commit,
1818 p_validation_level,
1819 p_module_type,
1820 x_return_status,
1821 x_msg_count,
1822 x_msg_data,
1823 ddp_cost_price_rec,
1824 ddx_cost_price_tbl);
1825
1826 -- copy data back from the local variables to OUT or IN-OUT args, if any
1827
1828
1829
1830
1831
1832
1833
1834
1835
1836 ahl_vwp_visit_cst_pr_pvt_w.rosetta_table_copy_out_p1(ddx_cost_price_tbl, p9_a0
1837 , p9_a1
1838 , p9_a2
1839 , p9_a3
1840 , p9_a4
1841 , p9_a5
1842 , p9_a6
1843 , p9_a7
1844 , p9_a8
1845 , p9_a9
1846 , p9_a10
1847 , p9_a11
1848 , p9_a12
1849 , p9_a13
1850 , p9_a14
1851 , p9_a15
1852 , p9_a16
1853 , p9_a17
1854 , p9_a18
1855 , p9_a19
1856 , p9_a20
1857 , p9_a21
1858 , p9_a22
1859 , p9_a23
1860 , p9_a24
1861 , p9_a25
1862 , p9_a26
1863 , p9_a27
1864 , p9_a28
1865 , p9_a29
1866 , p9_a30
1867 , p9_a31
1868 , p9_a32
1869 , p9_a33
1870 , p9_a34
1871 , p9_a35
1872 , p9_a36
1873 , p9_a37
1874 , p9_a38
1875 , p9_a39
1876 , p9_a40
1877 , p9_a41
1878 , p9_a42
1879 , p9_a43
1880 , p9_a44
1881 , p9_a45
1882 , p9_a46
1883 , p9_a47
1884 , p9_a48
1885 , p9_a49
1886 , p9_a50
1887 , p9_a51
1888 , p9_a52
1889 , p9_a53
1890 , p9_a54
1891 , p9_a55
1892 , p9_a56
1893 , p9_a57
1894 , p9_a58
1895 , p9_a59
1896 );
1897 end;
1898
1899 end ahl_vwp_visit_cst_pr_pvt_w;