DBA Data[Home] [Help]

PACKAGE BODY: APPS.AHL_VWP_TASK_CST_PR_PVT_W

Source


1 package body ahl_vwp_task_cst_pr_pvt_w as
2   /* $Header: AHLWTCPB.pls 120.1 2006/05/04 06:46 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 get_task_cost_details(p_api_version  NUMBER
17     , p_init_msg_list  VARCHAR2
18     , p_commit  VARCHAR2
19     , p_validation_level  NUMBER
20     , p_module_type  VARCHAR2
21     , p5_a0 in out nocopy  NUMBER
22     , p5_a1 in out nocopy  NUMBER
23     , p5_a2 in out nocopy  NUMBER
24     , p5_a3 in out nocopy  NUMBER
25     , p5_a4 in out nocopy  NUMBER
26     , p5_a5 in out nocopy  NUMBER
27     , p5_a6 in out nocopy  NUMBER
28     , p5_a7 in out nocopy  VARCHAR2
29     , p5_a8 in out nocopy  NUMBER
30     , p5_a9 in out nocopy  NUMBER
31     , p5_a10 in out nocopy  NUMBER
32     , p5_a11 in out nocopy  NUMBER
33     , p5_a12 in out nocopy  VARCHAR2
34     , p5_a13 in out nocopy  VARCHAR2
35     , p5_a14 in out nocopy  VARCHAR2
36     , p5_a15 in out nocopy  VARCHAR2
37     , p5_a16 in out nocopy  NUMBER
38     , p5_a17 in out nocopy  VARCHAR2
39     , p5_a18 in out nocopy  NUMBER
40     , p5_a19 in out nocopy  NUMBER
41     , p5_a20 in out nocopy  NUMBER
42     , p5_a21 in out nocopy  DATE
43     , p5_a22 in out nocopy  DATE
44     , p5_a23 in out nocopy  DATE
45     , p5_a24 in out nocopy  DATE
46     , p5_a25 in out nocopy  DATE
47     , p5_a26 in out nocopy  DATE
48     , p5_a27 in out nocopy  VARCHAR2
49     , p5_a28 in out nocopy  NUMBER
50     , p5_a29 in out nocopy  VARCHAR2
51     , p5_a30 in out nocopy  VARCHAR2
52     , p5_a31 in out nocopy  NUMBER
53     , p5_a32 in out nocopy  VARCHAR2
54     , p5_a33 in out nocopy  VARCHAR2
55     , p5_a34 in out nocopy  VARCHAR2
56     , p5_a35 in out nocopy  NUMBER
57     , p5_a36 in out nocopy  VARCHAR2
58     , p5_a37 in out nocopy  NUMBER
59     , p5_a38 in out nocopy  NUMBER
60     , p5_a39 in out nocopy  NUMBER
61     , p5_a40 in out nocopy  DATE
62     , p5_a41 in out nocopy  NUMBER
63     , p5_a42 in out nocopy  DATE
64     , p5_a43 in out nocopy  NUMBER
65     , p5_a44 in out nocopy  VARCHAR2
66     , p5_a45 in out nocopy  VARCHAR2
67     , p5_a46 in out nocopy  VARCHAR2
68     , p5_a47 in out nocopy  VARCHAR2
69     , p5_a48 in out nocopy  VARCHAR2
70     , p5_a49 in out nocopy  VARCHAR2
71     , p5_a50 in out nocopy  VARCHAR2
72     , p5_a51 in out nocopy  VARCHAR2
73     , p5_a52 in out nocopy  VARCHAR2
74     , p5_a53 in out nocopy  VARCHAR2
75     , p5_a54 in out nocopy  VARCHAR2
76     , p5_a55 in out nocopy  VARCHAR2
77     , p5_a56 in out nocopy  VARCHAR2
78     , p5_a57 in out nocopy  VARCHAR2
79     , p5_a58 in out nocopy  VARCHAR2
80     , p5_a59 in out nocopy  VARCHAR2
81     , x_return_status out nocopy  VARCHAR2
82     , x_msg_count out nocopy  NUMBER
83     , x_msg_data out nocopy  VARCHAR2
84   )
85 
86   as
87     ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
88     ddindx binary_integer; indx binary_integer;
89   begin
90 
91     -- copy data to the local IN or IN-OUT args, if any
92 
93 
94 
95 
96 
97     ddp_x_cost_price_rec.visit_task_id := p5_a0;
98     ddp_x_cost_price_rec.visit_id := p5_a1;
99     ddp_x_cost_price_rec.mr_id := p5_a2;
100     ddp_x_cost_price_rec.actual_cost := p5_a3;
101     ddp_x_cost_price_rec.estimated_cost := p5_a4;
102     ddp_x_cost_price_rec.actual_price := p5_a5;
103     ddp_x_cost_price_rec.estimated_price := p5_a6;
104     ddp_x_cost_price_rec.currency := p5_a7;
105     ddp_x_cost_price_rec.snapshot_id := p5_a8;
106     ddp_x_cost_price_rec.object_version_number := p5_a9;
107     ddp_x_cost_price_rec.estimated_profit := p5_a10;
108     ddp_x_cost_price_rec.actual_profit := p5_a11;
109     ddp_x_cost_price_rec.outside_party_flag := p5_a12;
110     ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
111     ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
112     ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
113     ddp_x_cost_price_rec.price_list_id := p5_a16;
114     ddp_x_cost_price_rec.price_list_name := p5_a17;
115     ddp_x_cost_price_rec.service_request_id := p5_a18;
116     ddp_x_cost_price_rec.customer_id := p5_a19;
117     ddp_x_cost_price_rec.organization_id := p5_a20;
118     ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
119     ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
120     ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
121     ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
122     ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
123     ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
124     ddp_x_cost_price_rec.task_name := p5_a27;
125     ddp_x_cost_price_rec.visit_task_number := p5_a28;
126     ddp_x_cost_price_rec.mr_title := p5_a29;
127     ddp_x_cost_price_rec.mr_description := p5_a30;
128     ddp_x_cost_price_rec.billing_item_id := p5_a31;
129     ddp_x_cost_price_rec.item_name := p5_a32;
130     ddp_x_cost_price_rec.item_description := p5_a33;
131     ddp_x_cost_price_rec.organization_name := p5_a34;
132     ddp_x_cost_price_rec.workorder_id := p5_a35;
133     ddp_x_cost_price_rec.master_wo_flag := p5_a36;
134     ddp_x_cost_price_rec.mr_session_id := p5_a37;
135     ddp_x_cost_price_rec.cost_session_id := p5_a38;
136     ddp_x_cost_price_rec.created_by := p5_a39;
137     ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
138     ddp_x_cost_price_rec.last_updated_by := p5_a41;
139     ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
140     ddp_x_cost_price_rec.last_update_login := p5_a43;
141     ddp_x_cost_price_rec.attribute_category := p5_a44;
142     ddp_x_cost_price_rec.attribute1 := p5_a45;
143     ddp_x_cost_price_rec.attribute2 := p5_a46;
144     ddp_x_cost_price_rec.attribute3 := p5_a47;
145     ddp_x_cost_price_rec.attribute4 := p5_a48;
146     ddp_x_cost_price_rec.attribute5 := p5_a49;
147     ddp_x_cost_price_rec.attribute6 := p5_a50;
148     ddp_x_cost_price_rec.attribute7 := p5_a51;
149     ddp_x_cost_price_rec.attribute8 := p5_a52;
150     ddp_x_cost_price_rec.attribute9 := p5_a53;
151     ddp_x_cost_price_rec.attribute10 := p5_a54;
152     ddp_x_cost_price_rec.attribute11 := p5_a55;
153     ddp_x_cost_price_rec.attribute12 := p5_a56;
154     ddp_x_cost_price_rec.attribute13 := p5_a57;
155     ddp_x_cost_price_rec.attribute14 := p5_a58;
156     ddp_x_cost_price_rec.attribute15 := p5_a59;
157 
158 
159 
160 
161     -- here's the delegated call to the old PL/SQL routine
162     ahl_vwp_task_cst_pr_pvt.get_task_cost_details(p_api_version,
163       p_init_msg_list,
164       p_commit,
165       p_validation_level,
166       p_module_type,
167       ddp_x_cost_price_rec,
168       x_return_status,
169       x_msg_count,
170       x_msg_data);
171 
172     -- copy data back from the local variables to OUT or IN-OUT args, if any
173 
174 
175 
176 
177 
178     p5_a0 := ddp_x_cost_price_rec.visit_task_id;
179     p5_a1 := ddp_x_cost_price_rec.visit_id;
180     p5_a2 := ddp_x_cost_price_rec.mr_id;
181     p5_a3 := ddp_x_cost_price_rec.actual_cost;
182     p5_a4 := ddp_x_cost_price_rec.estimated_cost;
183     p5_a5 := ddp_x_cost_price_rec.actual_price;
184     p5_a6 := ddp_x_cost_price_rec.estimated_price;
185     p5_a7 := ddp_x_cost_price_rec.currency;
186     p5_a8 := ddp_x_cost_price_rec.snapshot_id;
187     p5_a9 := ddp_x_cost_price_rec.object_version_number;
188     p5_a10 := ddp_x_cost_price_rec.estimated_profit;
189     p5_a11 := ddp_x_cost_price_rec.actual_profit;
190     p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
191     p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
192     p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
193     p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
194     p5_a16 := ddp_x_cost_price_rec.price_list_id;
195     p5_a17 := ddp_x_cost_price_rec.price_list_name;
196     p5_a18 := ddp_x_cost_price_rec.service_request_id;
197     p5_a19 := ddp_x_cost_price_rec.customer_id;
198     p5_a20 := ddp_x_cost_price_rec.organization_id;
199     p5_a21 := ddp_x_cost_price_rec.visit_start_date;
200     p5_a22 := ddp_x_cost_price_rec.visit_end_date;
201     p5_a23 := ddp_x_cost_price_rec.mr_start_date;
202     p5_a24 := ddp_x_cost_price_rec.mr_end_date;
203     p5_a25 := ddp_x_cost_price_rec.task_start_date;
204     p5_a26 := ddp_x_cost_price_rec.task_end_date;
205     p5_a27 := ddp_x_cost_price_rec.task_name;
206     p5_a28 := ddp_x_cost_price_rec.visit_task_number;
207     p5_a29 := ddp_x_cost_price_rec.mr_title;
208     p5_a30 := ddp_x_cost_price_rec.mr_description;
209     p5_a31 := ddp_x_cost_price_rec.billing_item_id;
210     p5_a32 := ddp_x_cost_price_rec.item_name;
211     p5_a33 := ddp_x_cost_price_rec.item_description;
212     p5_a34 := ddp_x_cost_price_rec.organization_name;
213     p5_a35 := ddp_x_cost_price_rec.workorder_id;
214     p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
215     p5_a37 := ddp_x_cost_price_rec.mr_session_id;
216     p5_a38 := ddp_x_cost_price_rec.cost_session_id;
217     p5_a39 := ddp_x_cost_price_rec.created_by;
218     p5_a40 := ddp_x_cost_price_rec.creation_date;
219     p5_a41 := ddp_x_cost_price_rec.last_updated_by;
220     p5_a42 := ddp_x_cost_price_rec.last_update_date;
221     p5_a43 := ddp_x_cost_price_rec.last_update_login;
222     p5_a44 := ddp_x_cost_price_rec.attribute_category;
223     p5_a45 := ddp_x_cost_price_rec.attribute1;
224     p5_a46 := ddp_x_cost_price_rec.attribute2;
225     p5_a47 := ddp_x_cost_price_rec.attribute3;
226     p5_a48 := ddp_x_cost_price_rec.attribute4;
227     p5_a49 := ddp_x_cost_price_rec.attribute5;
228     p5_a50 := ddp_x_cost_price_rec.attribute6;
229     p5_a51 := ddp_x_cost_price_rec.attribute7;
230     p5_a52 := ddp_x_cost_price_rec.attribute8;
231     p5_a53 := ddp_x_cost_price_rec.attribute9;
232     p5_a54 := ddp_x_cost_price_rec.attribute10;
233     p5_a55 := ddp_x_cost_price_rec.attribute11;
234     p5_a56 := ddp_x_cost_price_rec.attribute12;
235     p5_a57 := ddp_x_cost_price_rec.attribute13;
236     p5_a58 := ddp_x_cost_price_rec.attribute14;
237     p5_a59 := ddp_x_cost_price_rec.attribute15;
238 
239 
240 
241   end;
242 
243   procedure estimate_task_cost(p_api_version  NUMBER
244     , p_init_msg_list  VARCHAR2
245     , p_commit  VARCHAR2
246     , p_validation_level  NUMBER
247     , p_module_type  VARCHAR2
248     , p5_a0 in out nocopy  NUMBER
249     , p5_a1 in out nocopy  NUMBER
250     , p5_a2 in out nocopy  NUMBER
251     , p5_a3 in out nocopy  NUMBER
252     , p5_a4 in out nocopy  NUMBER
253     , p5_a5 in out nocopy  NUMBER
254     , p5_a6 in out nocopy  NUMBER
255     , p5_a7 in out nocopy  VARCHAR2
256     , p5_a8 in out nocopy  NUMBER
257     , p5_a9 in out nocopy  NUMBER
258     , p5_a10 in out nocopy  NUMBER
259     , p5_a11 in out nocopy  NUMBER
260     , p5_a12 in out nocopy  VARCHAR2
261     , p5_a13 in out nocopy  VARCHAR2
262     , p5_a14 in out nocopy  VARCHAR2
263     , p5_a15 in out nocopy  VARCHAR2
264     , p5_a16 in out nocopy  NUMBER
265     , p5_a17 in out nocopy  VARCHAR2
266     , p5_a18 in out nocopy  NUMBER
267     , p5_a19 in out nocopy  NUMBER
268     , p5_a20 in out nocopy  NUMBER
269     , p5_a21 in out nocopy  DATE
270     , p5_a22 in out nocopy  DATE
271     , p5_a23 in out nocopy  DATE
272     , p5_a24 in out nocopy  DATE
273     , p5_a25 in out nocopy  DATE
274     , p5_a26 in out nocopy  DATE
275     , p5_a27 in out nocopy  VARCHAR2
276     , p5_a28 in out nocopy  NUMBER
277     , p5_a29 in out nocopy  VARCHAR2
278     , p5_a30 in out nocopy  VARCHAR2
279     , p5_a31 in out nocopy  NUMBER
280     , p5_a32 in out nocopy  VARCHAR2
281     , p5_a33 in out nocopy  VARCHAR2
282     , p5_a34 in out nocopy  VARCHAR2
283     , p5_a35 in out nocopy  NUMBER
284     , p5_a36 in out nocopy  VARCHAR2
285     , p5_a37 in out nocopy  NUMBER
286     , p5_a38 in out nocopy  NUMBER
287     , p5_a39 in out nocopy  NUMBER
288     , p5_a40 in out nocopy  DATE
289     , p5_a41 in out nocopy  NUMBER
290     , p5_a42 in out nocopy  DATE
291     , p5_a43 in out nocopy  NUMBER
292     , p5_a44 in out nocopy  VARCHAR2
293     , p5_a45 in out nocopy  VARCHAR2
294     , p5_a46 in out nocopy  VARCHAR2
295     , p5_a47 in out nocopy  VARCHAR2
296     , p5_a48 in out nocopy  VARCHAR2
297     , p5_a49 in out nocopy  VARCHAR2
298     , p5_a50 in out nocopy  VARCHAR2
299     , p5_a51 in out nocopy  VARCHAR2
300     , p5_a52 in out nocopy  VARCHAR2
301     , p5_a53 in out nocopy  VARCHAR2
302     , p5_a54 in out nocopy  VARCHAR2
303     , p5_a55 in out nocopy  VARCHAR2
304     , p5_a56 in out nocopy  VARCHAR2
305     , p5_a57 in out nocopy  VARCHAR2
306     , p5_a58 in out nocopy  VARCHAR2
307     , p5_a59 in out nocopy  VARCHAR2
308     , x_return_status out nocopy  VARCHAR2
309     , x_msg_count out nocopy  NUMBER
310     , x_msg_data out nocopy  VARCHAR2
311   )
312 
313   as
314     ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
315     ddindx binary_integer; indx binary_integer;
316   begin
317 
318     -- copy data to the local IN or IN-OUT args, if any
319 
320 
321 
322 
323 
324     ddp_x_cost_price_rec.visit_task_id := p5_a0;
325     ddp_x_cost_price_rec.visit_id := p5_a1;
326     ddp_x_cost_price_rec.mr_id := p5_a2;
327     ddp_x_cost_price_rec.actual_cost := p5_a3;
328     ddp_x_cost_price_rec.estimated_cost := p5_a4;
329     ddp_x_cost_price_rec.actual_price := p5_a5;
330     ddp_x_cost_price_rec.estimated_price := p5_a6;
331     ddp_x_cost_price_rec.currency := p5_a7;
332     ddp_x_cost_price_rec.snapshot_id := p5_a8;
333     ddp_x_cost_price_rec.object_version_number := p5_a9;
334     ddp_x_cost_price_rec.estimated_profit := p5_a10;
335     ddp_x_cost_price_rec.actual_profit := p5_a11;
336     ddp_x_cost_price_rec.outside_party_flag := p5_a12;
337     ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
338     ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
339     ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
340     ddp_x_cost_price_rec.price_list_id := p5_a16;
341     ddp_x_cost_price_rec.price_list_name := p5_a17;
342     ddp_x_cost_price_rec.service_request_id := p5_a18;
343     ddp_x_cost_price_rec.customer_id := p5_a19;
344     ddp_x_cost_price_rec.organization_id := p5_a20;
345     ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
346     ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
347     ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
348     ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
349     ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
350     ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
351     ddp_x_cost_price_rec.task_name := p5_a27;
352     ddp_x_cost_price_rec.visit_task_number := p5_a28;
353     ddp_x_cost_price_rec.mr_title := p5_a29;
354     ddp_x_cost_price_rec.mr_description := p5_a30;
355     ddp_x_cost_price_rec.billing_item_id := p5_a31;
356     ddp_x_cost_price_rec.item_name := p5_a32;
357     ddp_x_cost_price_rec.item_description := p5_a33;
358     ddp_x_cost_price_rec.organization_name := p5_a34;
359     ddp_x_cost_price_rec.workorder_id := p5_a35;
360     ddp_x_cost_price_rec.master_wo_flag := p5_a36;
361     ddp_x_cost_price_rec.mr_session_id := p5_a37;
362     ddp_x_cost_price_rec.cost_session_id := p5_a38;
363     ddp_x_cost_price_rec.created_by := p5_a39;
364     ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
365     ddp_x_cost_price_rec.last_updated_by := p5_a41;
366     ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
367     ddp_x_cost_price_rec.last_update_login := p5_a43;
368     ddp_x_cost_price_rec.attribute_category := p5_a44;
369     ddp_x_cost_price_rec.attribute1 := p5_a45;
370     ddp_x_cost_price_rec.attribute2 := p5_a46;
371     ddp_x_cost_price_rec.attribute3 := p5_a47;
372     ddp_x_cost_price_rec.attribute4 := p5_a48;
373     ddp_x_cost_price_rec.attribute5 := p5_a49;
374     ddp_x_cost_price_rec.attribute6 := p5_a50;
375     ddp_x_cost_price_rec.attribute7 := p5_a51;
376     ddp_x_cost_price_rec.attribute8 := p5_a52;
377     ddp_x_cost_price_rec.attribute9 := p5_a53;
378     ddp_x_cost_price_rec.attribute10 := p5_a54;
379     ddp_x_cost_price_rec.attribute11 := p5_a55;
380     ddp_x_cost_price_rec.attribute12 := p5_a56;
381     ddp_x_cost_price_rec.attribute13 := p5_a57;
382     ddp_x_cost_price_rec.attribute14 := p5_a58;
383     ddp_x_cost_price_rec.attribute15 := p5_a59;
384 
385 
386 
387 
388     -- here's the delegated call to the old PL/SQL routine
389     ahl_vwp_task_cst_pr_pvt.estimate_task_cost(p_api_version,
390       p_init_msg_list,
391       p_commit,
392       p_validation_level,
393       p_module_type,
394       ddp_x_cost_price_rec,
395       x_return_status,
396       x_msg_count,
397       x_msg_data);
398 
399     -- copy data back from the local variables to OUT or IN-OUT args, if any
400 
401 
402 
403 
404 
405     p5_a0 := ddp_x_cost_price_rec.visit_task_id;
406     p5_a1 := ddp_x_cost_price_rec.visit_id;
407     p5_a2 := ddp_x_cost_price_rec.mr_id;
408     p5_a3 := ddp_x_cost_price_rec.actual_cost;
409     p5_a4 := ddp_x_cost_price_rec.estimated_cost;
410     p5_a5 := ddp_x_cost_price_rec.actual_price;
411     p5_a6 := ddp_x_cost_price_rec.estimated_price;
412     p5_a7 := ddp_x_cost_price_rec.currency;
413     p5_a8 := ddp_x_cost_price_rec.snapshot_id;
414     p5_a9 := ddp_x_cost_price_rec.object_version_number;
415     p5_a10 := ddp_x_cost_price_rec.estimated_profit;
416     p5_a11 := ddp_x_cost_price_rec.actual_profit;
417     p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
418     p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
419     p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
420     p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
421     p5_a16 := ddp_x_cost_price_rec.price_list_id;
422     p5_a17 := ddp_x_cost_price_rec.price_list_name;
423     p5_a18 := ddp_x_cost_price_rec.service_request_id;
424     p5_a19 := ddp_x_cost_price_rec.customer_id;
425     p5_a20 := ddp_x_cost_price_rec.organization_id;
426     p5_a21 := ddp_x_cost_price_rec.visit_start_date;
427     p5_a22 := ddp_x_cost_price_rec.visit_end_date;
428     p5_a23 := ddp_x_cost_price_rec.mr_start_date;
429     p5_a24 := ddp_x_cost_price_rec.mr_end_date;
430     p5_a25 := ddp_x_cost_price_rec.task_start_date;
431     p5_a26 := ddp_x_cost_price_rec.task_end_date;
432     p5_a27 := ddp_x_cost_price_rec.task_name;
433     p5_a28 := ddp_x_cost_price_rec.visit_task_number;
434     p5_a29 := ddp_x_cost_price_rec.mr_title;
435     p5_a30 := ddp_x_cost_price_rec.mr_description;
436     p5_a31 := ddp_x_cost_price_rec.billing_item_id;
437     p5_a32 := ddp_x_cost_price_rec.item_name;
438     p5_a33 := ddp_x_cost_price_rec.item_description;
439     p5_a34 := ddp_x_cost_price_rec.organization_name;
440     p5_a35 := ddp_x_cost_price_rec.workorder_id;
441     p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
442     p5_a37 := ddp_x_cost_price_rec.mr_session_id;
443     p5_a38 := ddp_x_cost_price_rec.cost_session_id;
444     p5_a39 := ddp_x_cost_price_rec.created_by;
445     p5_a40 := ddp_x_cost_price_rec.creation_date;
446     p5_a41 := ddp_x_cost_price_rec.last_updated_by;
447     p5_a42 := ddp_x_cost_price_rec.last_update_date;
448     p5_a43 := ddp_x_cost_price_rec.last_update_login;
449     p5_a44 := ddp_x_cost_price_rec.attribute_category;
450     p5_a45 := ddp_x_cost_price_rec.attribute1;
451     p5_a46 := ddp_x_cost_price_rec.attribute2;
452     p5_a47 := ddp_x_cost_price_rec.attribute3;
453     p5_a48 := ddp_x_cost_price_rec.attribute4;
454     p5_a49 := ddp_x_cost_price_rec.attribute5;
455     p5_a50 := ddp_x_cost_price_rec.attribute6;
456     p5_a51 := ddp_x_cost_price_rec.attribute7;
457     p5_a52 := ddp_x_cost_price_rec.attribute8;
458     p5_a53 := ddp_x_cost_price_rec.attribute9;
459     p5_a54 := ddp_x_cost_price_rec.attribute10;
460     p5_a55 := ddp_x_cost_price_rec.attribute11;
461     p5_a56 := ddp_x_cost_price_rec.attribute12;
462     p5_a57 := ddp_x_cost_price_rec.attribute13;
463     p5_a58 := ddp_x_cost_price_rec.attribute14;
464     p5_a59 := ddp_x_cost_price_rec.attribute15;
465 
466 
467 
468   end;
469 
470   procedure estimate_task_price(p_api_version  NUMBER
471     , p_init_msg_list  VARCHAR2
472     , p_commit  VARCHAR2
473     , p_validation_level  NUMBER
474     , p_module_type  VARCHAR2
475     , p5_a0 in out nocopy  NUMBER
476     , p5_a1 in out nocopy  NUMBER
477     , p5_a2 in out nocopy  NUMBER
478     , p5_a3 in out nocopy  NUMBER
479     , p5_a4 in out nocopy  NUMBER
480     , p5_a5 in out nocopy  NUMBER
481     , p5_a6 in out nocopy  NUMBER
482     , p5_a7 in out nocopy  VARCHAR2
483     , p5_a8 in out nocopy  NUMBER
484     , p5_a9 in out nocopy  NUMBER
485     , p5_a10 in out nocopy  NUMBER
486     , p5_a11 in out nocopy  NUMBER
487     , p5_a12 in out nocopy  VARCHAR2
488     , p5_a13 in out nocopy  VARCHAR2
489     , p5_a14 in out nocopy  VARCHAR2
490     , p5_a15 in out nocopy  VARCHAR2
491     , p5_a16 in out nocopy  NUMBER
492     , p5_a17 in out nocopy  VARCHAR2
493     , p5_a18 in out nocopy  NUMBER
494     , p5_a19 in out nocopy  NUMBER
495     , p5_a20 in out nocopy  NUMBER
496     , p5_a21 in out nocopy  DATE
497     , p5_a22 in out nocopy  DATE
498     , p5_a23 in out nocopy  DATE
499     , p5_a24 in out nocopy  DATE
500     , p5_a25 in out nocopy  DATE
501     , p5_a26 in out nocopy  DATE
502     , p5_a27 in out nocopy  VARCHAR2
503     , p5_a28 in out nocopy  NUMBER
504     , p5_a29 in out nocopy  VARCHAR2
505     , p5_a30 in out nocopy  VARCHAR2
506     , p5_a31 in out nocopy  NUMBER
507     , p5_a32 in out nocopy  VARCHAR2
508     , p5_a33 in out nocopy  VARCHAR2
509     , p5_a34 in out nocopy  VARCHAR2
510     , p5_a35 in out nocopy  NUMBER
511     , p5_a36 in out nocopy  VARCHAR2
512     , p5_a37 in out nocopy  NUMBER
513     , p5_a38 in out nocopy  NUMBER
514     , p5_a39 in out nocopy  NUMBER
515     , p5_a40 in out nocopy  DATE
516     , p5_a41 in out nocopy  NUMBER
517     , p5_a42 in out nocopy  DATE
518     , p5_a43 in out nocopy  NUMBER
519     , p5_a44 in out nocopy  VARCHAR2
520     , p5_a45 in out nocopy  VARCHAR2
521     , p5_a46 in out nocopy  VARCHAR2
522     , p5_a47 in out nocopy  VARCHAR2
523     , p5_a48 in out nocopy  VARCHAR2
524     , p5_a49 in out nocopy  VARCHAR2
525     , p5_a50 in out nocopy  VARCHAR2
526     , p5_a51 in out nocopy  VARCHAR2
527     , p5_a52 in out nocopy  VARCHAR2
528     , p5_a53 in out nocopy  VARCHAR2
529     , p5_a54 in out nocopy  VARCHAR2
530     , p5_a55 in out nocopy  VARCHAR2
531     , p5_a56 in out nocopy  VARCHAR2
532     , p5_a57 in out nocopy  VARCHAR2
533     , p5_a58 in out nocopy  VARCHAR2
534     , p5_a59 in out nocopy  VARCHAR2
535     , x_return_status out nocopy  VARCHAR2
536     , x_msg_count out nocopy  NUMBER
537     , x_msg_data out nocopy  VARCHAR2
538   )
539 
540   as
541     ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
542     ddindx binary_integer; indx binary_integer;
543   begin
544 
545     -- copy data to the local IN or IN-OUT args, if any
546 
547 
548 
549 
550 
551     ddp_x_cost_price_rec.visit_task_id := p5_a0;
552     ddp_x_cost_price_rec.visit_id := p5_a1;
553     ddp_x_cost_price_rec.mr_id := p5_a2;
554     ddp_x_cost_price_rec.actual_cost := p5_a3;
555     ddp_x_cost_price_rec.estimated_cost := p5_a4;
556     ddp_x_cost_price_rec.actual_price := p5_a5;
557     ddp_x_cost_price_rec.estimated_price := p5_a6;
558     ddp_x_cost_price_rec.currency := p5_a7;
559     ddp_x_cost_price_rec.snapshot_id := p5_a8;
560     ddp_x_cost_price_rec.object_version_number := p5_a9;
561     ddp_x_cost_price_rec.estimated_profit := p5_a10;
562     ddp_x_cost_price_rec.actual_profit := p5_a11;
563     ddp_x_cost_price_rec.outside_party_flag := p5_a12;
564     ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
565     ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
566     ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
567     ddp_x_cost_price_rec.price_list_id := p5_a16;
568     ddp_x_cost_price_rec.price_list_name := p5_a17;
569     ddp_x_cost_price_rec.service_request_id := p5_a18;
570     ddp_x_cost_price_rec.customer_id := p5_a19;
571     ddp_x_cost_price_rec.organization_id := p5_a20;
572     ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
573     ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
574     ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
575     ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
576     ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
577     ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
578     ddp_x_cost_price_rec.task_name := p5_a27;
579     ddp_x_cost_price_rec.visit_task_number := p5_a28;
580     ddp_x_cost_price_rec.mr_title := p5_a29;
581     ddp_x_cost_price_rec.mr_description := p5_a30;
582     ddp_x_cost_price_rec.billing_item_id := p5_a31;
583     ddp_x_cost_price_rec.item_name := p5_a32;
584     ddp_x_cost_price_rec.item_description := p5_a33;
585     ddp_x_cost_price_rec.organization_name := p5_a34;
586     ddp_x_cost_price_rec.workorder_id := p5_a35;
587     ddp_x_cost_price_rec.master_wo_flag := p5_a36;
588     ddp_x_cost_price_rec.mr_session_id := p5_a37;
589     ddp_x_cost_price_rec.cost_session_id := p5_a38;
590     ddp_x_cost_price_rec.created_by := p5_a39;
591     ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
592     ddp_x_cost_price_rec.last_updated_by := p5_a41;
593     ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
594     ddp_x_cost_price_rec.last_update_login := p5_a43;
595     ddp_x_cost_price_rec.attribute_category := p5_a44;
596     ddp_x_cost_price_rec.attribute1 := p5_a45;
597     ddp_x_cost_price_rec.attribute2 := p5_a46;
598     ddp_x_cost_price_rec.attribute3 := p5_a47;
599     ddp_x_cost_price_rec.attribute4 := p5_a48;
600     ddp_x_cost_price_rec.attribute5 := p5_a49;
601     ddp_x_cost_price_rec.attribute6 := p5_a50;
602     ddp_x_cost_price_rec.attribute7 := p5_a51;
603     ddp_x_cost_price_rec.attribute8 := p5_a52;
604     ddp_x_cost_price_rec.attribute9 := p5_a53;
605     ddp_x_cost_price_rec.attribute10 := p5_a54;
606     ddp_x_cost_price_rec.attribute11 := p5_a55;
607     ddp_x_cost_price_rec.attribute12 := p5_a56;
608     ddp_x_cost_price_rec.attribute13 := p5_a57;
609     ddp_x_cost_price_rec.attribute14 := p5_a58;
610     ddp_x_cost_price_rec.attribute15 := p5_a59;
611 
612 
613 
614 
615     -- here's the delegated call to the old PL/SQL routine
616     ahl_vwp_task_cst_pr_pvt.estimate_task_price(p_api_version,
617       p_init_msg_list,
618       p_commit,
619       p_validation_level,
620       p_module_type,
621       ddp_x_cost_price_rec,
622       x_return_status,
623       x_msg_count,
624       x_msg_data);
625 
626     -- copy data back from the local variables to OUT or IN-OUT args, if any
627 
628 
629 
630 
631 
632     p5_a0 := ddp_x_cost_price_rec.visit_task_id;
633     p5_a1 := ddp_x_cost_price_rec.visit_id;
634     p5_a2 := ddp_x_cost_price_rec.mr_id;
635     p5_a3 := ddp_x_cost_price_rec.actual_cost;
636     p5_a4 := ddp_x_cost_price_rec.estimated_cost;
637     p5_a5 := ddp_x_cost_price_rec.actual_price;
638     p5_a6 := ddp_x_cost_price_rec.estimated_price;
639     p5_a7 := ddp_x_cost_price_rec.currency;
640     p5_a8 := ddp_x_cost_price_rec.snapshot_id;
641     p5_a9 := ddp_x_cost_price_rec.object_version_number;
642     p5_a10 := ddp_x_cost_price_rec.estimated_profit;
643     p5_a11 := ddp_x_cost_price_rec.actual_profit;
644     p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
645     p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
646     p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
647     p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
648     p5_a16 := ddp_x_cost_price_rec.price_list_id;
649     p5_a17 := ddp_x_cost_price_rec.price_list_name;
650     p5_a18 := ddp_x_cost_price_rec.service_request_id;
651     p5_a19 := ddp_x_cost_price_rec.customer_id;
652     p5_a20 := ddp_x_cost_price_rec.organization_id;
653     p5_a21 := ddp_x_cost_price_rec.visit_start_date;
654     p5_a22 := ddp_x_cost_price_rec.visit_end_date;
655     p5_a23 := ddp_x_cost_price_rec.mr_start_date;
656     p5_a24 := ddp_x_cost_price_rec.mr_end_date;
657     p5_a25 := ddp_x_cost_price_rec.task_start_date;
658     p5_a26 := ddp_x_cost_price_rec.task_end_date;
659     p5_a27 := ddp_x_cost_price_rec.task_name;
660     p5_a28 := ddp_x_cost_price_rec.visit_task_number;
661     p5_a29 := ddp_x_cost_price_rec.mr_title;
662     p5_a30 := ddp_x_cost_price_rec.mr_description;
663     p5_a31 := ddp_x_cost_price_rec.billing_item_id;
664     p5_a32 := ddp_x_cost_price_rec.item_name;
665     p5_a33 := ddp_x_cost_price_rec.item_description;
666     p5_a34 := ddp_x_cost_price_rec.organization_name;
667     p5_a35 := ddp_x_cost_price_rec.workorder_id;
668     p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
669     p5_a37 := ddp_x_cost_price_rec.mr_session_id;
670     p5_a38 := ddp_x_cost_price_rec.cost_session_id;
671     p5_a39 := ddp_x_cost_price_rec.created_by;
672     p5_a40 := ddp_x_cost_price_rec.creation_date;
673     p5_a41 := ddp_x_cost_price_rec.last_updated_by;
674     p5_a42 := ddp_x_cost_price_rec.last_update_date;
675     p5_a43 := ddp_x_cost_price_rec.last_update_login;
676     p5_a44 := ddp_x_cost_price_rec.attribute_category;
677     p5_a45 := ddp_x_cost_price_rec.attribute1;
678     p5_a46 := ddp_x_cost_price_rec.attribute2;
679     p5_a47 := ddp_x_cost_price_rec.attribute3;
680     p5_a48 := ddp_x_cost_price_rec.attribute4;
681     p5_a49 := ddp_x_cost_price_rec.attribute5;
682     p5_a50 := ddp_x_cost_price_rec.attribute6;
683     p5_a51 := ddp_x_cost_price_rec.attribute7;
684     p5_a52 := ddp_x_cost_price_rec.attribute8;
685     p5_a53 := ddp_x_cost_price_rec.attribute9;
686     p5_a54 := ddp_x_cost_price_rec.attribute10;
687     p5_a55 := ddp_x_cost_price_rec.attribute11;
688     p5_a56 := ddp_x_cost_price_rec.attribute12;
689     p5_a57 := ddp_x_cost_price_rec.attribute13;
690     p5_a58 := ddp_x_cost_price_rec.attribute14;
691     p5_a59 := ddp_x_cost_price_rec.attribute15;
692 
693 
694 
695   end;
696 
697   procedure update_task_cost_details(p_api_version  NUMBER
698     , p_init_msg_list  VARCHAR2
699     , p_commit  VARCHAR2
700     , p_validation_level  NUMBER
701     , p_module_type  VARCHAR2
702     , p5_a0  NUMBER
703     , p5_a1  NUMBER
704     , p5_a2  NUMBER
705     , p5_a3  NUMBER
706     , p5_a4  NUMBER
707     , p5_a5  NUMBER
708     , p5_a6  NUMBER
709     , p5_a7  VARCHAR2
710     , p5_a8  NUMBER
711     , p5_a9  NUMBER
712     , p5_a10  NUMBER
713     , p5_a11  NUMBER
714     , p5_a12  VARCHAR2
715     , p5_a13  VARCHAR2
716     , p5_a14  VARCHAR2
717     , p5_a15  VARCHAR2
718     , p5_a16  NUMBER
719     , p5_a17  VARCHAR2
720     , p5_a18  NUMBER
721     , p5_a19  NUMBER
722     , p5_a20  NUMBER
723     , p5_a21  DATE
724     , p5_a22  DATE
725     , p5_a23  DATE
726     , p5_a24  DATE
727     , p5_a25  DATE
728     , p5_a26  DATE
729     , p5_a27  VARCHAR2
730     , p5_a28  NUMBER
731     , p5_a29  VARCHAR2
732     , p5_a30  VARCHAR2
733     , p5_a31  NUMBER
734     , p5_a32  VARCHAR2
735     , p5_a33  VARCHAR2
736     , p5_a34  VARCHAR2
737     , p5_a35  NUMBER
738     , p5_a36  VARCHAR2
739     , p5_a37  NUMBER
740     , p5_a38  NUMBER
741     , p5_a39  NUMBER
742     , p5_a40  DATE
743     , p5_a41  NUMBER
744     , p5_a42  DATE
745     , p5_a43  NUMBER
746     , p5_a44  VARCHAR2
747     , p5_a45  VARCHAR2
748     , p5_a46  VARCHAR2
749     , p5_a47  VARCHAR2
750     , p5_a48  VARCHAR2
751     , p5_a49  VARCHAR2
752     , p5_a50  VARCHAR2
753     , p5_a51  VARCHAR2
754     , p5_a52  VARCHAR2
755     , p5_a53  VARCHAR2
756     , p5_a54  VARCHAR2
757     , p5_a55  VARCHAR2
758     , p5_a56  VARCHAR2
759     , p5_a57  VARCHAR2
760     , p5_a58  VARCHAR2
761     , p5_a59  VARCHAR2
762     , x_return_status out nocopy  VARCHAR2
763     , x_msg_count out nocopy  NUMBER
764     , x_msg_data out nocopy  VARCHAR2
765   )
766 
767   as
768     ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
769     ddindx binary_integer; indx binary_integer;
770   begin
771 
772     -- copy data to the local IN or IN-OUT args, if any
773 
774 
775 
776 
777 
778     ddp_cost_price_rec.visit_task_id := p5_a0;
779     ddp_cost_price_rec.visit_id := p5_a1;
780     ddp_cost_price_rec.mr_id := p5_a2;
781     ddp_cost_price_rec.actual_cost := p5_a3;
782     ddp_cost_price_rec.estimated_cost := p5_a4;
783     ddp_cost_price_rec.actual_price := p5_a5;
784     ddp_cost_price_rec.estimated_price := p5_a6;
785     ddp_cost_price_rec.currency := p5_a7;
786     ddp_cost_price_rec.snapshot_id := p5_a8;
787     ddp_cost_price_rec.object_version_number := p5_a9;
788     ddp_cost_price_rec.estimated_profit := p5_a10;
789     ddp_cost_price_rec.actual_profit := p5_a11;
790     ddp_cost_price_rec.outside_party_flag := p5_a12;
791     ddp_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
792     ddp_cost_price_rec.is_cst_pr_info_required := p5_a14;
793     ddp_cost_price_rec.is_cst_struc_updated := p5_a15;
794     ddp_cost_price_rec.price_list_id := p5_a16;
795     ddp_cost_price_rec.price_list_name := p5_a17;
796     ddp_cost_price_rec.service_request_id := p5_a18;
797     ddp_cost_price_rec.customer_id := p5_a19;
798     ddp_cost_price_rec.organization_id := p5_a20;
799     ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
800     ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
801     ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
802     ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
803     ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
804     ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
805     ddp_cost_price_rec.task_name := p5_a27;
806     ddp_cost_price_rec.visit_task_number := p5_a28;
807     ddp_cost_price_rec.mr_title := p5_a29;
808     ddp_cost_price_rec.mr_description := p5_a30;
809     ddp_cost_price_rec.billing_item_id := p5_a31;
810     ddp_cost_price_rec.item_name := p5_a32;
811     ddp_cost_price_rec.item_description := p5_a33;
812     ddp_cost_price_rec.organization_name := p5_a34;
813     ddp_cost_price_rec.workorder_id := p5_a35;
814     ddp_cost_price_rec.master_wo_flag := p5_a36;
815     ddp_cost_price_rec.mr_session_id := p5_a37;
816     ddp_cost_price_rec.cost_session_id := p5_a38;
817     ddp_cost_price_rec.created_by := p5_a39;
818     ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
819     ddp_cost_price_rec.last_updated_by := p5_a41;
820     ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
821     ddp_cost_price_rec.last_update_login := p5_a43;
822     ddp_cost_price_rec.attribute_category := p5_a44;
823     ddp_cost_price_rec.attribute1 := p5_a45;
824     ddp_cost_price_rec.attribute2 := p5_a46;
825     ddp_cost_price_rec.attribute3 := p5_a47;
826     ddp_cost_price_rec.attribute4 := p5_a48;
827     ddp_cost_price_rec.attribute5 := p5_a49;
828     ddp_cost_price_rec.attribute6 := p5_a50;
829     ddp_cost_price_rec.attribute7 := p5_a51;
830     ddp_cost_price_rec.attribute8 := p5_a52;
831     ddp_cost_price_rec.attribute9 := p5_a53;
832     ddp_cost_price_rec.attribute10 := p5_a54;
833     ddp_cost_price_rec.attribute11 := p5_a55;
834     ddp_cost_price_rec.attribute12 := p5_a56;
835     ddp_cost_price_rec.attribute13 := p5_a57;
836     ddp_cost_price_rec.attribute14 := p5_a58;
837     ddp_cost_price_rec.attribute15 := p5_a59;
838 
839 
840 
841 
842     -- here's the delegated call to the old PL/SQL routine
843     ahl_vwp_task_cst_pr_pvt.update_task_cost_details(p_api_version,
844       p_init_msg_list,
845       p_commit,
846       p_validation_level,
847       p_module_type,
848       ddp_cost_price_rec,
849       x_return_status,
850       x_msg_count,
851       x_msg_data);
852 
853     -- copy data back from the local variables to OUT or IN-OUT args, if any
854 
855 
856 
857 
858 
859 
860 
861 
862   end;
863 
864   procedure get_node_cost_details(p_api_version  NUMBER
865     , p_init_msg_list  VARCHAR2
866     , p_commit  VARCHAR2
867     , p_validation_level  NUMBER
868     , p_module_type  VARCHAR2
869     , x_return_status out nocopy  VARCHAR2
870     , x_msg_count out nocopy  NUMBER
871     , x_msg_data out nocopy  VARCHAR2
872     , p8_a0 in out nocopy  NUMBER
873     , p8_a1 in out nocopy  NUMBER
874     , p8_a2 in out nocopy  NUMBER
875     , p8_a3 in out nocopy  NUMBER
876     , p8_a4 in out nocopy  NUMBER
877     , p8_a5 in out nocopy  NUMBER
878     , p8_a6 in out nocopy  NUMBER
879     , p8_a7 in out nocopy  VARCHAR2
880     , p8_a8 in out nocopy  NUMBER
881     , p8_a9 in out nocopy  NUMBER
882     , p8_a10 in out nocopy  NUMBER
883     , p8_a11 in out nocopy  NUMBER
884     , p8_a12 in out nocopy  VARCHAR2
885     , p8_a13 in out nocopy  VARCHAR2
886     , p8_a14 in out nocopy  VARCHAR2
887     , p8_a15 in out nocopy  VARCHAR2
888     , p8_a16 in out nocopy  NUMBER
889     , p8_a17 in out nocopy  VARCHAR2
890     , p8_a18 in out nocopy  NUMBER
891     , p8_a19 in out nocopy  NUMBER
892     , p8_a20 in out nocopy  NUMBER
893     , p8_a21 in out nocopy  DATE
894     , p8_a22 in out nocopy  DATE
895     , p8_a23 in out nocopy  DATE
896     , p8_a24 in out nocopy  DATE
897     , p8_a25 in out nocopy  DATE
898     , p8_a26 in out nocopy  DATE
899     , p8_a27 in out nocopy  VARCHAR2
900     , p8_a28 in out nocopy  NUMBER
901     , p8_a29 in out nocopy  VARCHAR2
902     , p8_a30 in out nocopy  VARCHAR2
903     , p8_a31 in out nocopy  NUMBER
904     , p8_a32 in out nocopy  VARCHAR2
905     , p8_a33 in out nocopy  VARCHAR2
906     , p8_a34 in out nocopy  VARCHAR2
907     , p8_a35 in out nocopy  NUMBER
908     , p8_a36 in out nocopy  VARCHAR2
909     , p8_a37 in out nocopy  NUMBER
910     , p8_a38 in out nocopy  NUMBER
911     , p8_a39 in out nocopy  NUMBER
912     , p8_a40 in out nocopy  DATE
913     , p8_a41 in out nocopy  NUMBER
914     , p8_a42 in out nocopy  DATE
915     , p8_a43 in out nocopy  NUMBER
916     , p8_a44 in out nocopy  VARCHAR2
917     , p8_a45 in out nocopy  VARCHAR2
918     , p8_a46 in out nocopy  VARCHAR2
919     , p8_a47 in out nocopy  VARCHAR2
920     , p8_a48 in out nocopy  VARCHAR2
921     , p8_a49 in out nocopy  VARCHAR2
922     , p8_a50 in out nocopy  VARCHAR2
923     , p8_a51 in out nocopy  VARCHAR2
924     , p8_a52 in out nocopy  VARCHAR2
925     , p8_a53 in out nocopy  VARCHAR2
926     , p8_a54 in out nocopy  VARCHAR2
927     , p8_a55 in out nocopy  VARCHAR2
928     , p8_a56 in out nocopy  VARCHAR2
929     , p8_a57 in out nocopy  VARCHAR2
930     , p8_a58 in out nocopy  VARCHAR2
931     , p8_a59 in out nocopy  VARCHAR2
932   )
933 
934   as
935     ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
936     ddindx binary_integer; indx binary_integer;
937   begin
938 
939     -- copy data to the local IN or IN-OUT args, if any
940 
941 
942 
943 
944 
945 
946 
947 
948     ddp_x_cost_price_rec.visit_task_id := p8_a0;
949     ddp_x_cost_price_rec.visit_id := p8_a1;
950     ddp_x_cost_price_rec.mr_id := p8_a2;
951     ddp_x_cost_price_rec.actual_cost := p8_a3;
952     ddp_x_cost_price_rec.estimated_cost := p8_a4;
953     ddp_x_cost_price_rec.actual_price := p8_a5;
954     ddp_x_cost_price_rec.estimated_price := p8_a6;
955     ddp_x_cost_price_rec.currency := p8_a7;
956     ddp_x_cost_price_rec.snapshot_id := p8_a8;
957     ddp_x_cost_price_rec.object_version_number := p8_a9;
958     ddp_x_cost_price_rec.estimated_profit := p8_a10;
959     ddp_x_cost_price_rec.actual_profit := p8_a11;
960     ddp_x_cost_price_rec.outside_party_flag := p8_a12;
961     ddp_x_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
962     ddp_x_cost_price_rec.is_cst_pr_info_required := p8_a14;
963     ddp_x_cost_price_rec.is_cst_struc_updated := p8_a15;
964     ddp_x_cost_price_rec.price_list_id := p8_a16;
965     ddp_x_cost_price_rec.price_list_name := p8_a17;
966     ddp_x_cost_price_rec.service_request_id := p8_a18;
967     ddp_x_cost_price_rec.customer_id := p8_a19;
968     ddp_x_cost_price_rec.organization_id := p8_a20;
969     ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
970     ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
971     ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
972     ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
973     ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
974     ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
975     ddp_x_cost_price_rec.task_name := p8_a27;
976     ddp_x_cost_price_rec.visit_task_number := p8_a28;
977     ddp_x_cost_price_rec.mr_title := p8_a29;
978     ddp_x_cost_price_rec.mr_description := p8_a30;
979     ddp_x_cost_price_rec.billing_item_id := p8_a31;
980     ddp_x_cost_price_rec.item_name := p8_a32;
981     ddp_x_cost_price_rec.item_description := p8_a33;
982     ddp_x_cost_price_rec.organization_name := p8_a34;
983     ddp_x_cost_price_rec.workorder_id := p8_a35;
984     ddp_x_cost_price_rec.master_wo_flag := p8_a36;
985     ddp_x_cost_price_rec.mr_session_id := p8_a37;
986     ddp_x_cost_price_rec.cost_session_id := p8_a38;
987     ddp_x_cost_price_rec.created_by := p8_a39;
988     ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a40);
989     ddp_x_cost_price_rec.last_updated_by := p8_a41;
990     ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a42);
991     ddp_x_cost_price_rec.last_update_login := p8_a43;
992     ddp_x_cost_price_rec.attribute_category := p8_a44;
993     ddp_x_cost_price_rec.attribute1 := p8_a45;
994     ddp_x_cost_price_rec.attribute2 := p8_a46;
995     ddp_x_cost_price_rec.attribute3 := p8_a47;
996     ddp_x_cost_price_rec.attribute4 := p8_a48;
997     ddp_x_cost_price_rec.attribute5 := p8_a49;
998     ddp_x_cost_price_rec.attribute6 := p8_a50;
999     ddp_x_cost_price_rec.attribute7 := p8_a51;
1000     ddp_x_cost_price_rec.attribute8 := p8_a52;
1001     ddp_x_cost_price_rec.attribute9 := p8_a53;
1002     ddp_x_cost_price_rec.attribute10 := p8_a54;
1003     ddp_x_cost_price_rec.attribute11 := p8_a55;
1004     ddp_x_cost_price_rec.attribute12 := p8_a56;
1005     ddp_x_cost_price_rec.attribute13 := p8_a57;
1006     ddp_x_cost_price_rec.attribute14 := p8_a58;
1007     ddp_x_cost_price_rec.attribute15 := p8_a59;
1008 
1009     -- here's the delegated call to the old PL/SQL routine
1010     ahl_vwp_task_cst_pr_pvt.get_node_cost_details(p_api_version,
1011       p_init_msg_list,
1012       p_commit,
1013       p_validation_level,
1014       p_module_type,
1015       x_return_status,
1016       x_msg_count,
1017       x_msg_data,
1018       ddp_x_cost_price_rec);
1019 
1020     -- copy data back from the local variables to OUT or IN-OUT args, if any
1021 
1022 
1023 
1024 
1025 
1026 
1027 
1028 
1029     p8_a0 := ddp_x_cost_price_rec.visit_task_id;
1030     p8_a1 := ddp_x_cost_price_rec.visit_id;
1031     p8_a2 := ddp_x_cost_price_rec.mr_id;
1032     p8_a3 := ddp_x_cost_price_rec.actual_cost;
1033     p8_a4 := ddp_x_cost_price_rec.estimated_cost;
1034     p8_a5 := ddp_x_cost_price_rec.actual_price;
1035     p8_a6 := ddp_x_cost_price_rec.estimated_price;
1036     p8_a7 := ddp_x_cost_price_rec.currency;
1037     p8_a8 := ddp_x_cost_price_rec.snapshot_id;
1038     p8_a9 := ddp_x_cost_price_rec.object_version_number;
1039     p8_a10 := ddp_x_cost_price_rec.estimated_profit;
1040     p8_a11 := ddp_x_cost_price_rec.actual_profit;
1041     p8_a12 := ddp_x_cost_price_rec.outside_party_flag;
1042     p8_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
1043     p8_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
1044     p8_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
1045     p8_a16 := ddp_x_cost_price_rec.price_list_id;
1046     p8_a17 := ddp_x_cost_price_rec.price_list_name;
1047     p8_a18 := ddp_x_cost_price_rec.service_request_id;
1048     p8_a19 := ddp_x_cost_price_rec.customer_id;
1049     p8_a20 := ddp_x_cost_price_rec.organization_id;
1050     p8_a21 := ddp_x_cost_price_rec.visit_start_date;
1051     p8_a22 := ddp_x_cost_price_rec.visit_end_date;
1052     p8_a23 := ddp_x_cost_price_rec.mr_start_date;
1053     p8_a24 := ddp_x_cost_price_rec.mr_end_date;
1054     p8_a25 := ddp_x_cost_price_rec.task_start_date;
1055     p8_a26 := ddp_x_cost_price_rec.task_end_date;
1056     p8_a27 := ddp_x_cost_price_rec.task_name;
1057     p8_a28 := ddp_x_cost_price_rec.visit_task_number;
1058     p8_a29 := ddp_x_cost_price_rec.mr_title;
1059     p8_a30 := ddp_x_cost_price_rec.mr_description;
1060     p8_a31 := ddp_x_cost_price_rec.billing_item_id;
1061     p8_a32 := ddp_x_cost_price_rec.item_name;
1062     p8_a33 := ddp_x_cost_price_rec.item_description;
1063     p8_a34 := ddp_x_cost_price_rec.organization_name;
1064     p8_a35 := ddp_x_cost_price_rec.workorder_id;
1065     p8_a36 := ddp_x_cost_price_rec.master_wo_flag;
1066     p8_a37 := ddp_x_cost_price_rec.mr_session_id;
1067     p8_a38 := ddp_x_cost_price_rec.cost_session_id;
1068     p8_a39 := ddp_x_cost_price_rec.created_by;
1069     p8_a40 := ddp_x_cost_price_rec.creation_date;
1070     p8_a41 := ddp_x_cost_price_rec.last_updated_by;
1071     p8_a42 := ddp_x_cost_price_rec.last_update_date;
1072     p8_a43 := ddp_x_cost_price_rec.last_update_login;
1073     p8_a44 := ddp_x_cost_price_rec.attribute_category;
1074     p8_a45 := ddp_x_cost_price_rec.attribute1;
1075     p8_a46 := ddp_x_cost_price_rec.attribute2;
1076     p8_a47 := ddp_x_cost_price_rec.attribute3;
1077     p8_a48 := ddp_x_cost_price_rec.attribute4;
1078     p8_a49 := ddp_x_cost_price_rec.attribute5;
1079     p8_a50 := ddp_x_cost_price_rec.attribute6;
1080     p8_a51 := ddp_x_cost_price_rec.attribute7;
1081     p8_a52 := ddp_x_cost_price_rec.attribute8;
1082     p8_a53 := ddp_x_cost_price_rec.attribute9;
1083     p8_a54 := ddp_x_cost_price_rec.attribute10;
1084     p8_a55 := ddp_x_cost_price_rec.attribute11;
1085     p8_a56 := ddp_x_cost_price_rec.attribute12;
1086     p8_a57 := ddp_x_cost_price_rec.attribute13;
1087     p8_a58 := ddp_x_cost_price_rec.attribute14;
1088     p8_a59 := ddp_x_cost_price_rec.attribute15;
1089   end;
1090 
1091   procedure get_task_items_no_price(p_api_version  NUMBER
1092     , p_init_msg_list  VARCHAR2
1093     , p_commit  VARCHAR2
1094     , p_validation_level  NUMBER
1095     , p_module_type  VARCHAR2
1096     , x_return_status out nocopy  VARCHAR2
1097     , x_msg_count out nocopy  NUMBER
1098     , x_msg_data out nocopy  VARCHAR2
1099     , p8_a0  NUMBER
1100     , p8_a1  NUMBER
1101     , p8_a2  NUMBER
1102     , p8_a3  NUMBER
1103     , p8_a4  NUMBER
1104     , p8_a5  NUMBER
1105     , p8_a6  NUMBER
1106     , p8_a7  VARCHAR2
1107     , p8_a8  NUMBER
1108     , p8_a9  NUMBER
1109     , p8_a10  NUMBER
1110     , p8_a11  NUMBER
1111     , p8_a12  VARCHAR2
1112     , p8_a13  VARCHAR2
1113     , p8_a14  VARCHAR2
1114     , p8_a15  VARCHAR2
1115     , p8_a16  NUMBER
1116     , p8_a17  VARCHAR2
1117     , p8_a18  NUMBER
1118     , p8_a19  NUMBER
1119     , p8_a20  NUMBER
1120     , p8_a21  DATE
1121     , p8_a22  DATE
1122     , p8_a23  DATE
1123     , p8_a24  DATE
1124     , p8_a25  DATE
1125     , p8_a26  DATE
1126     , p8_a27  VARCHAR2
1127     , p8_a28  NUMBER
1128     , p8_a29  VARCHAR2
1129     , p8_a30  VARCHAR2
1130     , p8_a31  NUMBER
1131     , p8_a32  VARCHAR2
1132     , p8_a33  VARCHAR2
1133     , p8_a34  VARCHAR2
1134     , p8_a35  NUMBER
1135     , p8_a36  VARCHAR2
1136     , p8_a37  NUMBER
1137     , p8_a38  NUMBER
1138     , p8_a39  NUMBER
1139     , p8_a40  DATE
1140     , p8_a41  NUMBER
1141     , p8_a42  DATE
1142     , p8_a43  NUMBER
1143     , p8_a44  VARCHAR2
1144     , p8_a45  VARCHAR2
1145     , p8_a46  VARCHAR2
1146     , p8_a47  VARCHAR2
1147     , p8_a48  VARCHAR2
1148     , p8_a49  VARCHAR2
1149     , p8_a50  VARCHAR2
1150     , p8_a51  VARCHAR2
1151     , p8_a52  VARCHAR2
1152     , p8_a53  VARCHAR2
1153     , p8_a54  VARCHAR2
1154     , p8_a55  VARCHAR2
1155     , p8_a56  VARCHAR2
1156     , p8_a57  VARCHAR2
1157     , p8_a58  VARCHAR2
1158     , p8_a59  VARCHAR2
1159     , p9_a0 out nocopy JTF_NUMBER_TABLE
1160     , p9_a1 out nocopy JTF_NUMBER_TABLE
1161     , p9_a2 out nocopy JTF_NUMBER_TABLE
1162     , p9_a3 out nocopy JTF_NUMBER_TABLE
1163     , p9_a4 out nocopy JTF_NUMBER_TABLE
1164     , p9_a5 out nocopy JTF_NUMBER_TABLE
1165     , p9_a6 out nocopy JTF_NUMBER_TABLE
1166     , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
1167     , p9_a8 out nocopy JTF_NUMBER_TABLE
1168     , p9_a9 out nocopy JTF_NUMBER_TABLE
1169     , p9_a10 out nocopy JTF_NUMBER_TABLE
1170     , p9_a11 out nocopy JTF_NUMBER_TABLE
1171     , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
1172     , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
1173     , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
1174     , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
1175     , p9_a16 out nocopy JTF_NUMBER_TABLE
1176     , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
1177     , p9_a18 out nocopy JTF_NUMBER_TABLE
1178     , p9_a19 out nocopy JTF_NUMBER_TABLE
1179     , p9_a20 out nocopy JTF_NUMBER_TABLE
1180     , p9_a21 out nocopy JTF_DATE_TABLE
1181     , p9_a22 out nocopy JTF_DATE_TABLE
1182     , p9_a23 out nocopy JTF_DATE_TABLE
1183     , p9_a24 out nocopy JTF_DATE_TABLE
1184     , p9_a25 out nocopy JTF_DATE_TABLE
1185     , p9_a26 out nocopy JTF_DATE_TABLE
1186     , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
1187     , p9_a28 out nocopy JTF_NUMBER_TABLE
1188     , p9_a29 out nocopy JTF_VARCHAR2_TABLE_100
1189     , p9_a30 out nocopy JTF_VARCHAR2_TABLE_2000
1190     , p9_a31 out nocopy JTF_NUMBER_TABLE
1191     , p9_a32 out nocopy JTF_VARCHAR2_TABLE_400
1192     , p9_a33 out nocopy JTF_VARCHAR2_TABLE_300
1193     , p9_a34 out nocopy JTF_VARCHAR2_TABLE_300
1194     , p9_a35 out nocopy JTF_NUMBER_TABLE
1195     , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
1196     , p9_a37 out nocopy JTF_NUMBER_TABLE
1197     , p9_a38 out nocopy JTF_NUMBER_TABLE
1198     , p9_a39 out nocopy JTF_NUMBER_TABLE
1199     , p9_a40 out nocopy JTF_DATE_TABLE
1200     , p9_a41 out nocopy JTF_NUMBER_TABLE
1201     , p9_a42 out nocopy JTF_DATE_TABLE
1202     , p9_a43 out nocopy JTF_NUMBER_TABLE
1203     , p9_a44 out nocopy JTF_VARCHAR2_TABLE_100
1204     , p9_a45 out nocopy JTF_VARCHAR2_TABLE_200
1205     , p9_a46 out nocopy JTF_VARCHAR2_TABLE_200
1206     , p9_a47 out nocopy JTF_VARCHAR2_TABLE_200
1207     , p9_a48 out nocopy JTF_VARCHAR2_TABLE_200
1208     , p9_a49 out nocopy JTF_VARCHAR2_TABLE_200
1209     , p9_a50 out nocopy JTF_VARCHAR2_TABLE_200
1210     , p9_a51 out nocopy JTF_VARCHAR2_TABLE_200
1211     , p9_a52 out nocopy JTF_VARCHAR2_TABLE_200
1212     , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
1213     , p9_a54 out nocopy JTF_VARCHAR2_TABLE_200
1214     , p9_a55 out nocopy JTF_VARCHAR2_TABLE_200
1215     , p9_a56 out nocopy JTF_VARCHAR2_TABLE_200
1216     , p9_a57 out nocopy JTF_VARCHAR2_TABLE_200
1217     , p9_a58 out nocopy JTF_VARCHAR2_TABLE_200
1218     , p9_a59 out nocopy JTF_VARCHAR2_TABLE_200
1219   )
1220 
1221   as
1222     ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1223     ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
1224     ddindx binary_integer; indx binary_integer;
1225   begin
1226 
1227     -- copy data to the local IN or IN-OUT args, if any
1228 
1229 
1230 
1231 
1232 
1233 
1234 
1235 
1236     ddp_cost_price_rec.visit_task_id := p8_a0;
1237     ddp_cost_price_rec.visit_id := p8_a1;
1238     ddp_cost_price_rec.mr_id := p8_a2;
1239     ddp_cost_price_rec.actual_cost := p8_a3;
1240     ddp_cost_price_rec.estimated_cost := p8_a4;
1241     ddp_cost_price_rec.actual_price := p8_a5;
1242     ddp_cost_price_rec.estimated_price := p8_a6;
1243     ddp_cost_price_rec.currency := p8_a7;
1244     ddp_cost_price_rec.snapshot_id := p8_a8;
1245     ddp_cost_price_rec.object_version_number := p8_a9;
1246     ddp_cost_price_rec.estimated_profit := p8_a10;
1247     ddp_cost_price_rec.actual_profit := p8_a11;
1248     ddp_cost_price_rec.outside_party_flag := p8_a12;
1249     ddp_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
1250     ddp_cost_price_rec.is_cst_pr_info_required := p8_a14;
1251     ddp_cost_price_rec.is_cst_struc_updated := p8_a15;
1252     ddp_cost_price_rec.price_list_id := p8_a16;
1253     ddp_cost_price_rec.price_list_name := p8_a17;
1254     ddp_cost_price_rec.service_request_id := p8_a18;
1255     ddp_cost_price_rec.customer_id := p8_a19;
1256     ddp_cost_price_rec.organization_id := p8_a20;
1257     ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
1258     ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
1259     ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
1260     ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
1261     ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
1262     ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
1263     ddp_cost_price_rec.task_name := p8_a27;
1264     ddp_cost_price_rec.visit_task_number := p8_a28;
1265     ddp_cost_price_rec.mr_title := p8_a29;
1266     ddp_cost_price_rec.mr_description := p8_a30;
1267     ddp_cost_price_rec.billing_item_id := p8_a31;
1268     ddp_cost_price_rec.item_name := p8_a32;
1269     ddp_cost_price_rec.item_description := p8_a33;
1270     ddp_cost_price_rec.organization_name := p8_a34;
1271     ddp_cost_price_rec.workorder_id := p8_a35;
1272     ddp_cost_price_rec.master_wo_flag := p8_a36;
1273     ddp_cost_price_rec.mr_session_id := p8_a37;
1274     ddp_cost_price_rec.cost_session_id := p8_a38;
1275     ddp_cost_price_rec.created_by := p8_a39;
1276     ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a40);
1277     ddp_cost_price_rec.last_updated_by := p8_a41;
1278     ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a42);
1279     ddp_cost_price_rec.last_update_login := p8_a43;
1280     ddp_cost_price_rec.attribute_category := p8_a44;
1281     ddp_cost_price_rec.attribute1 := p8_a45;
1282     ddp_cost_price_rec.attribute2 := p8_a46;
1283     ddp_cost_price_rec.attribute3 := p8_a47;
1284     ddp_cost_price_rec.attribute4 := p8_a48;
1285     ddp_cost_price_rec.attribute5 := p8_a49;
1286     ddp_cost_price_rec.attribute6 := p8_a50;
1287     ddp_cost_price_rec.attribute7 := p8_a51;
1288     ddp_cost_price_rec.attribute8 := p8_a52;
1289     ddp_cost_price_rec.attribute9 := p8_a53;
1290     ddp_cost_price_rec.attribute10 := p8_a54;
1291     ddp_cost_price_rec.attribute11 := p8_a55;
1292     ddp_cost_price_rec.attribute12 := p8_a56;
1293     ddp_cost_price_rec.attribute13 := p8_a57;
1294     ddp_cost_price_rec.attribute14 := p8_a58;
1295     ddp_cost_price_rec.attribute15 := p8_a59;
1296 
1297 
1298     -- here's the delegated call to the old PL/SQL routine
1299     ahl_vwp_task_cst_pr_pvt.get_task_items_no_price(p_api_version,
1300       p_init_msg_list,
1301       p_commit,
1302       p_validation_level,
1303       p_module_type,
1304       x_return_status,
1305       x_msg_count,
1306       x_msg_data,
1307       ddp_cost_price_rec,
1308       ddx_cost_price_tbl);
1309 
1310     -- copy data back from the local variables to OUT or IN-OUT args, if any
1311 
1312 
1313 
1314 
1315 
1316 
1317 
1318 
1319 
1320     ahl_vwp_visit_cst_pr_pvt_w.rosetta_table_copy_out_p1(ddx_cost_price_tbl, p9_a0
1321       , p9_a1
1322       , p9_a2
1323       , p9_a3
1324       , p9_a4
1325       , p9_a5
1326       , p9_a6
1327       , p9_a7
1328       , p9_a8
1329       , p9_a9
1330       , p9_a10
1331       , p9_a11
1332       , p9_a12
1333       , p9_a13
1334       , p9_a14
1335       , p9_a15
1336       , p9_a16
1337       , p9_a17
1338       , p9_a18
1339       , p9_a19
1340       , p9_a20
1341       , p9_a21
1342       , p9_a22
1343       , p9_a23
1344       , p9_a24
1345       , p9_a25
1346       , p9_a26
1347       , p9_a27
1348       , p9_a28
1349       , p9_a29
1350       , p9_a30
1351       , p9_a31
1352       , p9_a32
1353       , p9_a33
1354       , p9_a34
1355       , p9_a35
1356       , p9_a36
1357       , p9_a37
1358       , p9_a38
1359       , p9_a39
1360       , p9_a40
1361       , p9_a41
1362       , p9_a42
1363       , p9_a43
1364       , p9_a44
1365       , p9_a45
1366       , p9_a46
1367       , p9_a47
1368       , p9_a48
1369       , p9_a49
1370       , p9_a50
1371       , p9_a51
1372       , p9_a52
1373       , p9_a53
1374       , p9_a54
1375       , p9_a55
1376       , p9_a56
1377       , p9_a57
1378       , p9_a58
1379       , p9_a59
1380       );
1381   end;
1382 
1383 end ahl_vwp_task_cst_pr_pvt_w;