[Home] [Help]
PACKAGE BODY: APPS.AHL_VWP_MR_CST_PR_PVT_W
Source
1 package body ahl_vwp_mr_cst_pr_pvt_w as
2 /* $Header: AHLWMCPB.pls 120.1 2006/05/04 06:21 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 estimate_mr_cost(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_mr_cst_pr_pvt.estimate_mr_cost(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_mr_price(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);
353 ddp_x_cost_price_rec.mr_title := p5_a29;
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;
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_mr_cst_pr_pvt.estimate_mr_price(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;
465
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;
466
467
468 end;
469
470 procedure get_mr_items_no_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 , x_return_status out nocopy VARCHAR2
476 , x_msg_count out nocopy NUMBER
477 , x_msg_data out nocopy VARCHAR2
478 , p8_a0 NUMBER
479 , p8_a1 NUMBER
480 , p8_a2 NUMBER
481 , p8_a3 NUMBER
482 , p8_a4 NUMBER
483 , p8_a5 NUMBER
484 , p8_a6 NUMBER
485 , p8_a7 VARCHAR2
486 , p8_a8 NUMBER
487 , p8_a9 NUMBER
488 , p8_a10 NUMBER
489 , p8_a11 NUMBER
490 , p8_a12 VARCHAR2
491 , p8_a13 VARCHAR2
492 , p8_a14 VARCHAR2
493 , p8_a15 VARCHAR2
494 , p8_a16 NUMBER
495 , p8_a17 VARCHAR2
496 , p8_a18 NUMBER
497 , p8_a19 NUMBER
498 , p8_a20 NUMBER
499 , p8_a21 DATE
500 , p8_a22 DATE
501 , p8_a23 DATE
502 , p8_a24 DATE
503 , p8_a25 DATE
504 , p8_a26 DATE
505 , p8_a27 VARCHAR2
506 , p8_a28 NUMBER
507 , p8_a29 VARCHAR2
508 , p8_a30 VARCHAR2
509 , p8_a31 NUMBER
510 , p8_a32 VARCHAR2
511 , p8_a33 VARCHAR2
512 , p8_a34 VARCHAR2
513 , p8_a35 NUMBER
514 , p8_a36 VARCHAR2
515 , p8_a37 NUMBER
516 , p8_a38 NUMBER
517 , p8_a39 NUMBER
518 , p8_a40 DATE
519 , p8_a41 NUMBER
520 , p8_a42 DATE
521 , p8_a43 NUMBER
522 , p8_a44 VARCHAR2
523 , p8_a45 VARCHAR2
524 , p8_a46 VARCHAR2
525 , p8_a47 VARCHAR2
526 , p8_a48 VARCHAR2
527 , p8_a49 VARCHAR2
528 , p8_a50 VARCHAR2
529 , p8_a51 VARCHAR2
530 , p8_a52 VARCHAR2
531 , p8_a53 VARCHAR2
532 , p8_a54 VARCHAR2
533 , p8_a55 VARCHAR2
534 , p8_a56 VARCHAR2
535 , p8_a57 VARCHAR2
536 , p8_a58 VARCHAR2
537 , p8_a59 VARCHAR2
538 , p9_a0 out nocopy JTF_NUMBER_TABLE
539 , p9_a1 out nocopy JTF_NUMBER_TABLE
540 , p9_a2 out nocopy JTF_NUMBER_TABLE
541 , p9_a3 out nocopy JTF_NUMBER_TABLE
542 , p9_a4 out nocopy JTF_NUMBER_TABLE
543 , p9_a5 out nocopy JTF_NUMBER_TABLE
544 , p9_a6 out nocopy JTF_NUMBER_TABLE
545 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
546 , p9_a8 out nocopy JTF_NUMBER_TABLE
547 , p9_a9 out nocopy JTF_NUMBER_TABLE
548 , p9_a10 out nocopy JTF_NUMBER_TABLE
549 , p9_a11 out nocopy JTF_NUMBER_TABLE
550 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
551 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
552 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
553 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
554 , p9_a16 out nocopy JTF_NUMBER_TABLE
555 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
556 , p9_a18 out nocopy JTF_NUMBER_TABLE
557 , p9_a19 out nocopy JTF_NUMBER_TABLE
558 , p9_a20 out nocopy JTF_NUMBER_TABLE
559 , p9_a21 out nocopy JTF_DATE_TABLE
560 , p9_a22 out nocopy JTF_DATE_TABLE
561 , p9_a23 out nocopy JTF_DATE_TABLE
562 , p9_a24 out nocopy JTF_DATE_TABLE
563 , p9_a25 out nocopy JTF_DATE_TABLE
564 , p9_a26 out nocopy JTF_DATE_TABLE
565 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
566 , p9_a28 out nocopy JTF_NUMBER_TABLE
567 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_100
568 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_2000
569 , p9_a31 out nocopy JTF_NUMBER_TABLE
570 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_400
571 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_300
572 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_300
573 , p9_a35 out nocopy JTF_NUMBER_TABLE
574 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
575 , p9_a37 out nocopy JTF_NUMBER_TABLE
576 , p9_a38 out nocopy JTF_NUMBER_TABLE
577 , p9_a39 out nocopy JTF_NUMBER_TABLE
578 , p9_a40 out nocopy JTF_DATE_TABLE
579 , p9_a41 out nocopy JTF_NUMBER_TABLE
580 , p9_a42 out nocopy JTF_DATE_TABLE
581 , p9_a43 out nocopy JTF_NUMBER_TABLE
582 , p9_a44 out nocopy JTF_VARCHAR2_TABLE_100
583 , p9_a45 out nocopy JTF_VARCHAR2_TABLE_200
584 , p9_a46 out nocopy JTF_VARCHAR2_TABLE_200
585 , p9_a47 out nocopy JTF_VARCHAR2_TABLE_200
586 , p9_a48 out nocopy JTF_VARCHAR2_TABLE_200
587 , p9_a49 out nocopy JTF_VARCHAR2_TABLE_200
588 , p9_a50 out nocopy JTF_VARCHAR2_TABLE_200
589 , p9_a51 out nocopy JTF_VARCHAR2_TABLE_200
590 , p9_a52 out nocopy JTF_VARCHAR2_TABLE_200
591 , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
592 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_200
593 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_200
594 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_200
595 , p9_a57 out nocopy JTF_VARCHAR2_TABLE_200
596 , p9_a58 out nocopy JTF_VARCHAR2_TABLE_200
597 , p9_a59 out nocopy JTF_VARCHAR2_TABLE_200
598 )
599
600 as
601 ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
602 ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
603 ddindx binary_integer; indx binary_integer;
604 begin
605
606 -- copy data to the local IN or IN-OUT args, if any
610
607
608
609
611
612
613
614
615 ddp_cost_price_rec.visit_task_id := p8_a0;
616 ddp_cost_price_rec.visit_id := p8_a1;
617 ddp_cost_price_rec.mr_id := p8_a2;
618 ddp_cost_price_rec.actual_cost := p8_a3;
619 ddp_cost_price_rec.estimated_cost := p8_a4;
620 ddp_cost_price_rec.actual_price := p8_a5;
621 ddp_cost_price_rec.estimated_price := p8_a6;
622 ddp_cost_price_rec.currency := p8_a7;
623 ddp_cost_price_rec.snapshot_id := p8_a8;
624 ddp_cost_price_rec.object_version_number := p8_a9;
625 ddp_cost_price_rec.estimated_profit := p8_a10;
626 ddp_cost_price_rec.actual_profit := p8_a11;
627 ddp_cost_price_rec.outside_party_flag := p8_a12;
628 ddp_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
629 ddp_cost_price_rec.is_cst_pr_info_required := p8_a14;
630 ddp_cost_price_rec.is_cst_struc_updated := p8_a15;
631 ddp_cost_price_rec.price_list_id := p8_a16;
632 ddp_cost_price_rec.price_list_name := p8_a17;
633 ddp_cost_price_rec.service_request_id := p8_a18;
634 ddp_cost_price_rec.customer_id := p8_a19;
635 ddp_cost_price_rec.organization_id := p8_a20;
636 ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
637 ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
638 ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
639 ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
640 ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
641 ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
642 ddp_cost_price_rec.task_name := p8_a27;
643 ddp_cost_price_rec.visit_task_number := p8_a28;
644 ddp_cost_price_rec.mr_title := p8_a29;
645 ddp_cost_price_rec.mr_description := p8_a30;
646 ddp_cost_price_rec.billing_item_id := p8_a31;
647 ddp_cost_price_rec.item_name := p8_a32;
648 ddp_cost_price_rec.item_description := p8_a33;
649 ddp_cost_price_rec.organization_name := p8_a34;
650 ddp_cost_price_rec.workorder_id := p8_a35;
651 ddp_cost_price_rec.master_wo_flag := p8_a36;
652 ddp_cost_price_rec.mr_session_id := p8_a37;
653 ddp_cost_price_rec.cost_session_id := p8_a38;
654 ddp_cost_price_rec.created_by := p8_a39;
655 ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a40);
656 ddp_cost_price_rec.last_updated_by := p8_a41;
657 ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a42);
658 ddp_cost_price_rec.last_update_login := p8_a43;
659 ddp_cost_price_rec.attribute_category := p8_a44;
660 ddp_cost_price_rec.attribute1 := p8_a45;
661 ddp_cost_price_rec.attribute2 := p8_a46;
662 ddp_cost_price_rec.attribute3 := p8_a47;
663 ddp_cost_price_rec.attribute4 := p8_a48;
664 ddp_cost_price_rec.attribute5 := p8_a49;
665 ddp_cost_price_rec.attribute6 := p8_a50;
666 ddp_cost_price_rec.attribute7 := p8_a51;
667 ddp_cost_price_rec.attribute8 := p8_a52;
668 ddp_cost_price_rec.attribute9 := p8_a53;
669 ddp_cost_price_rec.attribute10 := p8_a54;
670 ddp_cost_price_rec.attribute11 := p8_a55;
671 ddp_cost_price_rec.attribute12 := p8_a56;
672 ddp_cost_price_rec.attribute13 := p8_a57;
673 ddp_cost_price_rec.attribute14 := p8_a58;
674 ddp_cost_price_rec.attribute15 := p8_a59;
675
676
677 -- here's the delegated call to the old PL/SQL routine
678 ahl_vwp_mr_cst_pr_pvt.get_mr_items_no_price(p_api_version,
679 p_init_msg_list,
680 p_commit,
681 p_validation_level,
682 p_module_type,
683 x_return_status,
684 x_msg_count,
685 x_msg_data,
686 ddp_cost_price_rec,
687 ddx_cost_price_tbl);
688
689 -- copy data back from the local variables to OUT or IN-OUT args, if any
690
691
692
693
694
695
696
697
698
699 ahl_vwp_visit_cst_pr_pvt_w.rosetta_table_copy_out_p1(ddx_cost_price_tbl, p9_a0
700 , p9_a1
701 , p9_a2
702 , p9_a3
703 , p9_a4
704 , p9_a5
705 , p9_a6
706 , p9_a7
707 , p9_a8
708 , p9_a9
709 , p9_a10
710 , p9_a11
711 , p9_a12
712 , p9_a13
713 , p9_a14
714 , p9_a15
715 , p9_a16
716 , p9_a17
717 , p9_a18
718 , p9_a19
719 , p9_a20
720 , p9_a21
721 , p9_a22
722 , p9_a23
723 , p9_a24
724 , p9_a25
725 , p9_a26
726 , p9_a27
727 , p9_a28
728 , p9_a29
729 , p9_a30
730 , p9_a31
731 , p9_a32
732 , p9_a33
733 , p9_a34
734 , p9_a35
735 , p9_a36
736 , p9_a37
737 , p9_a38
738 , p9_a39
739 , p9_a40
740 , p9_a41
741 , p9_a42
742 , p9_a43
743 , p9_a44
744 , p9_a45
745 , p9_a46
746 , p9_a47
747 , p9_a48
748 , p9_a49
749 , p9_a50
750 , p9_a51
751 , p9_a52
752 , p9_a53
753 , p9_a54
754 , p9_a55
755 , p9_a56
756 , p9_a57
757 , p9_a58
758 , p9_a59
762 procedure get_mr_cost_details(p_api_version NUMBER
759 );
760 end;
761
763 , p_init_msg_list VARCHAR2
764 , p_commit VARCHAR2
765 , p_validation_level NUMBER
766 , p_module_type VARCHAR2
767 , p5_a0 in out nocopy NUMBER
768 , p5_a1 in out nocopy NUMBER
769 , p5_a2 in out nocopy NUMBER
770 , p5_a3 in out nocopy NUMBER
771 , p5_a4 in out nocopy NUMBER
772 , p5_a5 in out nocopy NUMBER
773 , p5_a6 in out nocopy NUMBER
774 , p5_a7 in out nocopy VARCHAR2
775 , p5_a8 in out nocopy NUMBER
776 , p5_a9 in out nocopy NUMBER
777 , p5_a10 in out nocopy NUMBER
778 , p5_a11 in out nocopy NUMBER
779 , p5_a12 in out nocopy VARCHAR2
780 , p5_a13 in out nocopy VARCHAR2
781 , p5_a14 in out nocopy VARCHAR2
782 , p5_a15 in out nocopy VARCHAR2
783 , p5_a16 in out nocopy NUMBER
784 , p5_a17 in out nocopy VARCHAR2
785 , p5_a18 in out nocopy NUMBER
786 , p5_a19 in out nocopy NUMBER
787 , p5_a20 in out nocopy NUMBER
788 , p5_a21 in out nocopy DATE
789 , p5_a22 in out nocopy DATE
790 , p5_a23 in out nocopy DATE
791 , p5_a24 in out nocopy DATE
792 , p5_a25 in out nocopy DATE
793 , p5_a26 in out nocopy DATE
794 , p5_a27 in out nocopy VARCHAR2
795 , p5_a28 in out nocopy NUMBER
796 , p5_a29 in out nocopy VARCHAR2
797 , p5_a30 in out nocopy VARCHAR2
798 , p5_a31 in out nocopy NUMBER
799 , p5_a32 in out nocopy VARCHAR2
800 , p5_a33 in out nocopy VARCHAR2
801 , p5_a34 in out nocopy VARCHAR2
802 , p5_a35 in out nocopy NUMBER
803 , p5_a36 in out nocopy VARCHAR2
804 , p5_a37 in out nocopy NUMBER
805 , p5_a38 in out nocopy NUMBER
806 , p5_a39 in out nocopy NUMBER
807 , p5_a40 in out nocopy DATE
808 , p5_a41 in out nocopy NUMBER
809 , p5_a42 in out nocopy DATE
810 , p5_a43 in out nocopy NUMBER
811 , p5_a44 in out nocopy VARCHAR2
812 , p5_a45 in out nocopy VARCHAR2
813 , p5_a46 in out nocopy VARCHAR2
814 , p5_a47 in out nocopy VARCHAR2
815 , p5_a48 in out nocopy VARCHAR2
816 , p5_a49 in out nocopy VARCHAR2
817 , p5_a50 in out nocopy VARCHAR2
818 , p5_a51 in out nocopy VARCHAR2
819 , p5_a52 in out nocopy VARCHAR2
820 , p5_a53 in out nocopy VARCHAR2
821 , p5_a54 in out nocopy VARCHAR2
822 , p5_a55 in out nocopy VARCHAR2
823 , p5_a56 in out nocopy VARCHAR2
824 , p5_a57 in out nocopy VARCHAR2
825 , p5_a58 in out nocopy VARCHAR2
826 , p5_a59 in out nocopy VARCHAR2
827 , x_return_status out nocopy VARCHAR2
828 , x_msg_count out nocopy NUMBER
829 , x_msg_data out nocopy VARCHAR2
830 )
831
832 as
833 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
834 ddindx binary_integer; indx binary_integer;
835 begin
836
837 -- copy data to the local IN or IN-OUT args, if any
838
839
840
841
842
843 ddp_x_cost_price_rec.visit_task_id := p5_a0;
844 ddp_x_cost_price_rec.visit_id := p5_a1;
845 ddp_x_cost_price_rec.mr_id := p5_a2;
846 ddp_x_cost_price_rec.actual_cost := p5_a3;
847 ddp_x_cost_price_rec.estimated_cost := p5_a4;
848 ddp_x_cost_price_rec.actual_price := p5_a5;
849 ddp_x_cost_price_rec.estimated_price := p5_a6;
850 ddp_x_cost_price_rec.currency := p5_a7;
851 ddp_x_cost_price_rec.snapshot_id := p5_a8;
852 ddp_x_cost_price_rec.object_version_number := p5_a9;
853 ddp_x_cost_price_rec.estimated_profit := p5_a10;
854 ddp_x_cost_price_rec.actual_profit := p5_a11;
855 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
856 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
857 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
858 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
859 ddp_x_cost_price_rec.price_list_id := p5_a16;
860 ddp_x_cost_price_rec.price_list_name := p5_a17;
861 ddp_x_cost_price_rec.service_request_id := p5_a18;
862 ddp_x_cost_price_rec.customer_id := p5_a19;
863 ddp_x_cost_price_rec.organization_id := p5_a20;
864 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
865 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
866 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
867 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
868 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
869 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
870 ddp_x_cost_price_rec.task_name := p5_a27;
871 ddp_x_cost_price_rec.visit_task_number := p5_a28;
872 ddp_x_cost_price_rec.mr_title := p5_a29;
873 ddp_x_cost_price_rec.mr_description := p5_a30;
874 ddp_x_cost_price_rec.billing_item_id := p5_a31;
875 ddp_x_cost_price_rec.item_name := p5_a32;
876 ddp_x_cost_price_rec.item_description := p5_a33;
877 ddp_x_cost_price_rec.organization_name := p5_a34;
878 ddp_x_cost_price_rec.workorder_id := p5_a35;
879 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
880 ddp_x_cost_price_rec.mr_session_id := p5_a37;
881 ddp_x_cost_price_rec.cost_session_id := p5_a38;
882 ddp_x_cost_price_rec.created_by := p5_a39;
883 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a40);
884 ddp_x_cost_price_rec.last_updated_by := p5_a41;
885 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a42);
886 ddp_x_cost_price_rec.last_update_login := p5_a43;
887 ddp_x_cost_price_rec.attribute_category := p5_a44;
888 ddp_x_cost_price_rec.attribute1 := p5_a45;
889 ddp_x_cost_price_rec.attribute2 := p5_a46;
890 ddp_x_cost_price_rec.attribute3 := p5_a47;
891 ddp_x_cost_price_rec.attribute4 := p5_a48;
892 ddp_x_cost_price_rec.attribute5 := p5_a49;
893 ddp_x_cost_price_rec.attribute6 := p5_a50;
894 ddp_x_cost_price_rec.attribute7 := p5_a51;
895 ddp_x_cost_price_rec.attribute8 := p5_a52;
896 ddp_x_cost_price_rec.attribute9 := p5_a53;
897 ddp_x_cost_price_rec.attribute10 := p5_a54;
898 ddp_x_cost_price_rec.attribute11 := p5_a55;
899 ddp_x_cost_price_rec.attribute12 := p5_a56;
900 ddp_x_cost_price_rec.attribute13 := p5_a57;
901 ddp_x_cost_price_rec.attribute14 := p5_a58;
902 ddp_x_cost_price_rec.attribute15 := p5_a59;
903
904
905
906
907 -- here's the delegated call to the old PL/SQL routine
908 ahl_vwp_mr_cst_pr_pvt.get_mr_cost_details(p_api_version,
909 p_init_msg_list,
910 p_commit,
911 p_validation_level,
912 p_module_type,
913 ddp_x_cost_price_rec,
914 x_return_status,
915 x_msg_count,
916 x_msg_data);
917
918 -- copy data back from the local variables to OUT or IN-OUT args, if any
919
920
921
922
923
924 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
925 p5_a1 := ddp_x_cost_price_rec.visit_id;
926 p5_a2 := ddp_x_cost_price_rec.mr_id;
927 p5_a3 := ddp_x_cost_price_rec.actual_cost;
928 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
929 p5_a5 := ddp_x_cost_price_rec.actual_price;
930 p5_a6 := ddp_x_cost_price_rec.estimated_price;
931 p5_a7 := ddp_x_cost_price_rec.currency;
932 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
933 p5_a9 := ddp_x_cost_price_rec.object_version_number;
934 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
935 p5_a11 := ddp_x_cost_price_rec.actual_profit;
936 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
937 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
938 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
939 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
940 p5_a16 := ddp_x_cost_price_rec.price_list_id;
941 p5_a17 := ddp_x_cost_price_rec.price_list_name;
942 p5_a18 := ddp_x_cost_price_rec.service_request_id;
943 p5_a19 := ddp_x_cost_price_rec.customer_id;
944 p5_a20 := ddp_x_cost_price_rec.organization_id;
945 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
946 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
947 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
948 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
949 p5_a25 := ddp_x_cost_price_rec.task_start_date;
950 p5_a26 := ddp_x_cost_price_rec.task_end_date;
951 p5_a27 := ddp_x_cost_price_rec.task_name;
952 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
953 p5_a29 := ddp_x_cost_price_rec.mr_title;
954 p5_a30 := ddp_x_cost_price_rec.mr_description;
955 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
956 p5_a32 := ddp_x_cost_price_rec.item_name;
957 p5_a33 := ddp_x_cost_price_rec.item_description;
958 p5_a34 := ddp_x_cost_price_rec.organization_name;
959 p5_a35 := ddp_x_cost_price_rec.workorder_id;
960 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
961 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
962 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
963 p5_a39 := ddp_x_cost_price_rec.created_by;
964 p5_a40 := ddp_x_cost_price_rec.creation_date;
965 p5_a41 := ddp_x_cost_price_rec.last_updated_by;
966 p5_a42 := ddp_x_cost_price_rec.last_update_date;
967 p5_a43 := ddp_x_cost_price_rec.last_update_login;
968 p5_a44 := ddp_x_cost_price_rec.attribute_category;
969 p5_a45 := ddp_x_cost_price_rec.attribute1;
970 p5_a46 := ddp_x_cost_price_rec.attribute2;
971 p5_a47 := ddp_x_cost_price_rec.attribute3;
972 p5_a48 := ddp_x_cost_price_rec.attribute4;
973 p5_a49 := ddp_x_cost_price_rec.attribute5;
974 p5_a50 := ddp_x_cost_price_rec.attribute6;
975 p5_a51 := ddp_x_cost_price_rec.attribute7;
976 p5_a52 := ddp_x_cost_price_rec.attribute8;
977 p5_a53 := ddp_x_cost_price_rec.attribute9;
978 p5_a54 := ddp_x_cost_price_rec.attribute10;
979 p5_a55 := ddp_x_cost_price_rec.attribute11;
980 p5_a56 := ddp_x_cost_price_rec.attribute12;
981 p5_a57 := ddp_x_cost_price_rec.attribute13;
982 p5_a58 := ddp_x_cost_price_rec.attribute14;
983 p5_a59 := ddp_x_cost_price_rec.attribute15;
984
985
986
987 end;
988
989 end ahl_vwp_mr_cst_pr_pvt_w;