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