[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.2.12020000.2 2012/12/14 09:54:27 shnatu ship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 procedure 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 VARCHAR2
62 , p5_a41 in out nocopy VARCHAR2
63 , p5_a42 in out nocopy VARCHAR2
64 , p5_a43 in out nocopy DATE
65 , p5_a44 in out nocopy NUMBER
66 , p5_a45 in out nocopy DATE
67 , p5_a46 in out nocopy NUMBER
68 , p5_a47 in out nocopy DATE
69 , p5_a48 in out nocopy NUMBER
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 , p5_a60 in out nocopy VARCHAR2
82 , p5_a61 in out nocopy VARCHAR2
83 , p5_a62 in out nocopy VARCHAR2
84 , p5_a63 in out nocopy VARCHAR2
85 , p5_a64 in out nocopy VARCHAR2
86 , x_return_status out nocopy VARCHAR2
87 , x_msg_count out nocopy NUMBER
88 , x_msg_data out nocopy VARCHAR2
89 )
90
91 as
92 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
93 ddindx binary_integer; indx binary_integer;
94 begin
95
96 -- copy data to the local IN or IN-OUT args, if any
97
98
99
100
101
102 ddp_x_cost_price_rec.visit_task_id := p5_a0;
103 ddp_x_cost_price_rec.visit_id := p5_a1;
104 ddp_x_cost_price_rec.mr_id := p5_a2;
105 ddp_x_cost_price_rec.actual_cost := p5_a3;
106 ddp_x_cost_price_rec.estimated_cost := p5_a4;
107 ddp_x_cost_price_rec.actual_price := p5_a5;
108 ddp_x_cost_price_rec.estimated_price := p5_a6;
109 ddp_x_cost_price_rec.currency := p5_a7;
110 ddp_x_cost_price_rec.snapshot_id := p5_a8;
111 ddp_x_cost_price_rec.object_version_number := p5_a9;
112 ddp_x_cost_price_rec.estimated_profit := p5_a10;
113 ddp_x_cost_price_rec.actual_profit := p5_a11;
114 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
115 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
116 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
117 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
118 ddp_x_cost_price_rec.price_list_id := p5_a16;
119 ddp_x_cost_price_rec.price_list_name := p5_a17;
120 ddp_x_cost_price_rec.service_request_id := p5_a18;
121 ddp_x_cost_price_rec.customer_id := p5_a19;
122 ddp_x_cost_price_rec.organization_id := p5_a20;
123 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
124 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
125 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
126 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
127 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
128 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
129 ddp_x_cost_price_rec.task_name := p5_a27;
130 ddp_x_cost_price_rec.visit_task_number := p5_a28;
131 ddp_x_cost_price_rec.mr_title := p5_a29;
132 ddp_x_cost_price_rec.mr_description := p5_a30;
133 ddp_x_cost_price_rec.billing_item_id := p5_a31;
134 ddp_x_cost_price_rec.item_name := p5_a32;
135 ddp_x_cost_price_rec.item_description := p5_a33;
136 ddp_x_cost_price_rec.organization_name := p5_a34;
137 ddp_x_cost_price_rec.workorder_id := p5_a35;
138 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
139 ddp_x_cost_price_rec.mr_session_id := p5_a37;
140 ddp_x_cost_price_rec.cost_session_id := p5_a38;
141 ddp_x_cost_price_rec.cp_request_id := p5_a39;
142 ddp_x_cost_price_rec.cp_phase := p5_a40;
143 ddp_x_cost_price_rec.cp_phase_code := p5_a41;
144 ddp_x_cost_price_rec.cp_status := p5_a42;
145 ddp_x_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p5_a43);
146 ddp_x_cost_price_rec.created_by := p5_a44;
147 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a45);
148 ddp_x_cost_price_rec.last_updated_by := p5_a46;
149 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a47);
150 ddp_x_cost_price_rec.last_update_login := p5_a48;
151 ddp_x_cost_price_rec.attribute_category := p5_a49;
152 ddp_x_cost_price_rec.attribute1 := p5_a50;
153 ddp_x_cost_price_rec.attribute2 := p5_a51;
154 ddp_x_cost_price_rec.attribute3 := p5_a52;
155 ddp_x_cost_price_rec.attribute4 := p5_a53;
156 ddp_x_cost_price_rec.attribute5 := p5_a54;
157 ddp_x_cost_price_rec.attribute6 := p5_a55;
158 ddp_x_cost_price_rec.attribute7 := p5_a56;
159 ddp_x_cost_price_rec.attribute8 := p5_a57;
160 ddp_x_cost_price_rec.attribute9 := p5_a58;
161 ddp_x_cost_price_rec.attribute10 := p5_a59;
162 ddp_x_cost_price_rec.attribute11 := p5_a60;
163 ddp_x_cost_price_rec.attribute12 := p5_a61;
164 ddp_x_cost_price_rec.attribute13 := p5_a62;
165 ddp_x_cost_price_rec.attribute14 := p5_a63;
166 ddp_x_cost_price_rec.attribute15 := p5_a64;
167
168
169
170
171 -- here's the delegated call to the old PL/SQL routine
172 ahl_vwp_mr_cst_pr_pvt.estimate_mr_cost(p_api_version,
173 p_init_msg_list,
174 p_commit,
175 p_validation_level,
176 p_module_type,
177 ddp_x_cost_price_rec,
178 x_return_status,
179 x_msg_count,
180 x_msg_data);
181
182 -- copy data back from the local variables to OUT or IN-OUT args, if any
183
184
185
186
187
188 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
189 p5_a1 := ddp_x_cost_price_rec.visit_id;
190 p5_a2 := ddp_x_cost_price_rec.mr_id;
191 p5_a3 := ddp_x_cost_price_rec.actual_cost;
192 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
193 p5_a5 := ddp_x_cost_price_rec.actual_price;
194 p5_a6 := ddp_x_cost_price_rec.estimated_price;
195 p5_a7 := ddp_x_cost_price_rec.currency;
196 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
197 p5_a9 := ddp_x_cost_price_rec.object_version_number;
198 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
199 p5_a11 := ddp_x_cost_price_rec.actual_profit;
200 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
201 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
202 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
203 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
204 p5_a16 := ddp_x_cost_price_rec.price_list_id;
205 p5_a17 := ddp_x_cost_price_rec.price_list_name;
206 p5_a18 := ddp_x_cost_price_rec.service_request_id;
207 p5_a19 := ddp_x_cost_price_rec.customer_id;
208 p5_a20 := ddp_x_cost_price_rec.organization_id;
209 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
210 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
211 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
212 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
213 p5_a25 := ddp_x_cost_price_rec.task_start_date;
214 p5_a26 := ddp_x_cost_price_rec.task_end_date;
215 p5_a27 := ddp_x_cost_price_rec.task_name;
216 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
217 p5_a29 := ddp_x_cost_price_rec.mr_title;
218 p5_a30 := ddp_x_cost_price_rec.mr_description;
219 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
220 p5_a32 := ddp_x_cost_price_rec.item_name;
221 p5_a33 := ddp_x_cost_price_rec.item_description;
222 p5_a34 := ddp_x_cost_price_rec.organization_name;
223 p5_a35 := ddp_x_cost_price_rec.workorder_id;
224 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
225 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
226 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
227 p5_a39 := ddp_x_cost_price_rec.cp_request_id;
228 p5_a40 := ddp_x_cost_price_rec.cp_phase;
229 p5_a41 := ddp_x_cost_price_rec.cp_phase_code;
230 p5_a42 := ddp_x_cost_price_rec.cp_status;
231 p5_a43 := ddp_x_cost_price_rec.cp_request_date;
232 p5_a44 := ddp_x_cost_price_rec.created_by;
233 p5_a45 := ddp_x_cost_price_rec.creation_date;
234 p5_a46 := ddp_x_cost_price_rec.last_updated_by;
235 p5_a47 := ddp_x_cost_price_rec.last_update_date;
236 p5_a48 := ddp_x_cost_price_rec.last_update_login;
237 p5_a49 := ddp_x_cost_price_rec.attribute_category;
238 p5_a50 := ddp_x_cost_price_rec.attribute1;
239 p5_a51 := ddp_x_cost_price_rec.attribute2;
240 p5_a52 := ddp_x_cost_price_rec.attribute3;
241 p5_a53 := ddp_x_cost_price_rec.attribute4;
242 p5_a54 := ddp_x_cost_price_rec.attribute5;
243 p5_a55 := ddp_x_cost_price_rec.attribute6;
244 p5_a56 := ddp_x_cost_price_rec.attribute7;
245 p5_a57 := ddp_x_cost_price_rec.attribute8;
246 p5_a58 := ddp_x_cost_price_rec.attribute9;
247 p5_a59 := ddp_x_cost_price_rec.attribute10;
248 p5_a60 := ddp_x_cost_price_rec.attribute11;
249 p5_a61 := ddp_x_cost_price_rec.attribute12;
250 p5_a62 := ddp_x_cost_price_rec.attribute13;
251 p5_a63 := ddp_x_cost_price_rec.attribute14;
252 p5_a64 := ddp_x_cost_price_rec.attribute15;
253
254
255
256 end;
257
258 procedure estimate_mr_price(p_api_version NUMBER
259 , p_init_msg_list VARCHAR2
260 , p_commit VARCHAR2
261 , p_validation_level NUMBER
262 , p_module_type VARCHAR2
263 , p5_a0 in out nocopy NUMBER
264 , p5_a1 in out nocopy NUMBER
265 , p5_a2 in out nocopy NUMBER
266 , p5_a3 in out nocopy NUMBER
267 , p5_a4 in out nocopy NUMBER
268 , p5_a5 in out nocopy NUMBER
269 , p5_a6 in out nocopy NUMBER
270 , p5_a7 in out nocopy VARCHAR2
271 , p5_a8 in out nocopy NUMBER
272 , p5_a9 in out nocopy NUMBER
273 , p5_a10 in out nocopy NUMBER
274 , p5_a11 in out nocopy NUMBER
275 , p5_a12 in out nocopy VARCHAR2
276 , p5_a13 in out nocopy VARCHAR2
277 , p5_a14 in out nocopy VARCHAR2
278 , p5_a15 in out nocopy VARCHAR2
279 , p5_a16 in out nocopy NUMBER
280 , p5_a17 in out nocopy VARCHAR2
281 , p5_a18 in out nocopy NUMBER
282 , p5_a19 in out nocopy NUMBER
283 , p5_a20 in out nocopy NUMBER
284 , p5_a21 in out nocopy DATE
285 , p5_a22 in out nocopy DATE
286 , p5_a23 in out nocopy DATE
287 , p5_a24 in out nocopy DATE
288 , p5_a25 in out nocopy DATE
289 , p5_a26 in out nocopy DATE
290 , p5_a27 in out nocopy VARCHAR2
291 , p5_a28 in out nocopy NUMBER
292 , p5_a29 in out nocopy VARCHAR2
293 , p5_a30 in out nocopy VARCHAR2
294 , p5_a31 in out nocopy NUMBER
295 , p5_a32 in out nocopy VARCHAR2
296 , p5_a33 in out nocopy VARCHAR2
297 , p5_a34 in out nocopy VARCHAR2
298 , p5_a35 in out nocopy NUMBER
299 , p5_a36 in out nocopy VARCHAR2
300 , p5_a37 in out nocopy NUMBER
301 , p5_a38 in out nocopy NUMBER
302 , p5_a39 in out nocopy NUMBER
303 , p5_a40 in out nocopy VARCHAR2
304 , p5_a41 in out nocopy VARCHAR2
305 , p5_a42 in out nocopy VARCHAR2
306 , p5_a43 in out nocopy DATE
307 , p5_a44 in out nocopy NUMBER
308 , p5_a45 in out nocopy DATE
309 , p5_a46 in out nocopy NUMBER
310 , p5_a47 in out nocopy DATE
311 , p5_a48 in out nocopy NUMBER
312 , p5_a49 in out nocopy VARCHAR2
313 , p5_a50 in out nocopy VARCHAR2
314 , p5_a51 in out nocopy VARCHAR2
315 , p5_a52 in out nocopy VARCHAR2
316 , p5_a53 in out nocopy VARCHAR2
317 , p5_a54 in out nocopy VARCHAR2
318 , p5_a55 in out nocopy VARCHAR2
319 , p5_a56 in out nocopy VARCHAR2
320 , p5_a57 in out nocopy VARCHAR2
321 , p5_a58 in out nocopy VARCHAR2
322 , p5_a59 in out nocopy VARCHAR2
323 , p5_a60 in out nocopy VARCHAR2
324 , p5_a61 in out nocopy VARCHAR2
325 , p5_a62 in out nocopy VARCHAR2
326 , p5_a63 in out nocopy VARCHAR2
327 , p5_a64 in out nocopy VARCHAR2
328 , x_return_status out nocopy VARCHAR2
329 , x_msg_count out nocopy NUMBER
330 , x_msg_data out nocopy VARCHAR2
331 )
332
333 as
334 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
335 ddindx binary_integer; indx binary_integer;
336 begin
337
338 -- copy data to the local IN or IN-OUT args, if any
339
340
341
342
343
344 ddp_x_cost_price_rec.visit_task_id := p5_a0;
345 ddp_x_cost_price_rec.visit_id := p5_a1;
346 ddp_x_cost_price_rec.mr_id := p5_a2;
347 ddp_x_cost_price_rec.actual_cost := p5_a3;
348 ddp_x_cost_price_rec.estimated_cost := p5_a4;
349 ddp_x_cost_price_rec.actual_price := p5_a5;
350 ddp_x_cost_price_rec.estimated_price := p5_a6;
351 ddp_x_cost_price_rec.currency := p5_a7;
352 ddp_x_cost_price_rec.snapshot_id := p5_a8;
353 ddp_x_cost_price_rec.object_version_number := p5_a9;
354 ddp_x_cost_price_rec.estimated_profit := p5_a10;
355 ddp_x_cost_price_rec.actual_profit := p5_a11;
356 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
357 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
358 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
359 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
360 ddp_x_cost_price_rec.price_list_id := p5_a16;
361 ddp_x_cost_price_rec.price_list_name := p5_a17;
362 ddp_x_cost_price_rec.service_request_id := p5_a18;
363 ddp_x_cost_price_rec.customer_id := p5_a19;
364 ddp_x_cost_price_rec.organization_id := p5_a20;
365 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
366 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
367 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
368 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
369 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
370 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
371 ddp_x_cost_price_rec.task_name := p5_a27;
372 ddp_x_cost_price_rec.visit_task_number := p5_a28;
373 ddp_x_cost_price_rec.mr_title := p5_a29;
374 ddp_x_cost_price_rec.mr_description := p5_a30;
375 ddp_x_cost_price_rec.billing_item_id := p5_a31;
376 ddp_x_cost_price_rec.item_name := p5_a32;
377 ddp_x_cost_price_rec.item_description := p5_a33;
378 ddp_x_cost_price_rec.organization_name := p5_a34;
379 ddp_x_cost_price_rec.workorder_id := p5_a35;
380 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
381 ddp_x_cost_price_rec.mr_session_id := p5_a37;
382 ddp_x_cost_price_rec.cost_session_id := p5_a38;
383 ddp_x_cost_price_rec.cp_request_id := p5_a39;
384 ddp_x_cost_price_rec.cp_phase := p5_a40;
385 ddp_x_cost_price_rec.cp_phase_code := p5_a41;
386 ddp_x_cost_price_rec.cp_status := p5_a42;
387 ddp_x_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p5_a43);
388 ddp_x_cost_price_rec.created_by := p5_a44;
389 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a45);
390 ddp_x_cost_price_rec.last_updated_by := p5_a46;
391 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a47);
392 ddp_x_cost_price_rec.last_update_login := p5_a48;
393 ddp_x_cost_price_rec.attribute_category := p5_a49;
394 ddp_x_cost_price_rec.attribute1 := p5_a50;
395 ddp_x_cost_price_rec.attribute2 := p5_a51;
396 ddp_x_cost_price_rec.attribute3 := p5_a52;
397 ddp_x_cost_price_rec.attribute4 := p5_a53;
398 ddp_x_cost_price_rec.attribute5 := p5_a54;
399 ddp_x_cost_price_rec.attribute6 := p5_a55;
400 ddp_x_cost_price_rec.attribute7 := p5_a56;
401 ddp_x_cost_price_rec.attribute8 := p5_a57;
402 ddp_x_cost_price_rec.attribute9 := p5_a58;
403 ddp_x_cost_price_rec.attribute10 := p5_a59;
404 ddp_x_cost_price_rec.attribute11 := p5_a60;
405 ddp_x_cost_price_rec.attribute12 := p5_a61;
406 ddp_x_cost_price_rec.attribute13 := p5_a62;
407 ddp_x_cost_price_rec.attribute14 := p5_a63;
408 ddp_x_cost_price_rec.attribute15 := p5_a64;
409
410
411
412
413 -- here's the delegated call to the old PL/SQL routine
414 ahl_vwp_mr_cst_pr_pvt.estimate_mr_price(p_api_version,
415 p_init_msg_list,
416 p_commit,
417 p_validation_level,
418 p_module_type,
419 ddp_x_cost_price_rec,
420 x_return_status,
421 x_msg_count,
422 x_msg_data);
423
424 -- copy data back from the local variables to OUT or IN-OUT args, if any
425
426
427
428
429
430 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
431 p5_a1 := ddp_x_cost_price_rec.visit_id;
432 p5_a2 := ddp_x_cost_price_rec.mr_id;
433 p5_a3 := ddp_x_cost_price_rec.actual_cost;
434 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
435 p5_a5 := ddp_x_cost_price_rec.actual_price;
436 p5_a6 := ddp_x_cost_price_rec.estimated_price;
437 p5_a7 := ddp_x_cost_price_rec.currency;
438 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
439 p5_a9 := ddp_x_cost_price_rec.object_version_number;
440 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
441 p5_a11 := ddp_x_cost_price_rec.actual_profit;
442 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
443 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
444 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
445 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
446 p5_a16 := ddp_x_cost_price_rec.price_list_id;
447 p5_a17 := ddp_x_cost_price_rec.price_list_name;
448 p5_a18 := ddp_x_cost_price_rec.service_request_id;
449 p5_a19 := ddp_x_cost_price_rec.customer_id;
450 p5_a20 := ddp_x_cost_price_rec.organization_id;
451 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
452 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
453 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
454 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
455 p5_a25 := ddp_x_cost_price_rec.task_start_date;
456 p5_a26 := ddp_x_cost_price_rec.task_end_date;
457 p5_a27 := ddp_x_cost_price_rec.task_name;
458 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
459 p5_a29 := ddp_x_cost_price_rec.mr_title;
460 p5_a30 := ddp_x_cost_price_rec.mr_description;
461 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
462 p5_a32 := ddp_x_cost_price_rec.item_name;
463 p5_a33 := ddp_x_cost_price_rec.item_description;
464 p5_a34 := ddp_x_cost_price_rec.organization_name;
465 p5_a35 := ddp_x_cost_price_rec.workorder_id;
466 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
467 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
468 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
469 p5_a39 := ddp_x_cost_price_rec.cp_request_id;
470 p5_a40 := ddp_x_cost_price_rec.cp_phase;
471 p5_a41 := ddp_x_cost_price_rec.cp_phase_code;
472 p5_a42 := ddp_x_cost_price_rec.cp_status;
473 p5_a43 := ddp_x_cost_price_rec.cp_request_date;
474 p5_a44 := ddp_x_cost_price_rec.created_by;
475 p5_a45 := ddp_x_cost_price_rec.creation_date;
476 p5_a46 := ddp_x_cost_price_rec.last_updated_by;
477 p5_a47 := ddp_x_cost_price_rec.last_update_date;
478 p5_a48 := ddp_x_cost_price_rec.last_update_login;
479 p5_a49 := ddp_x_cost_price_rec.attribute_category;
480 p5_a50 := ddp_x_cost_price_rec.attribute1;
481 p5_a51 := ddp_x_cost_price_rec.attribute2;
482 p5_a52 := ddp_x_cost_price_rec.attribute3;
483 p5_a53 := ddp_x_cost_price_rec.attribute4;
484 p5_a54 := ddp_x_cost_price_rec.attribute5;
485 p5_a55 := ddp_x_cost_price_rec.attribute6;
486 p5_a56 := ddp_x_cost_price_rec.attribute7;
487 p5_a57 := ddp_x_cost_price_rec.attribute8;
488 p5_a58 := ddp_x_cost_price_rec.attribute9;
489 p5_a59 := ddp_x_cost_price_rec.attribute10;
490 p5_a60 := ddp_x_cost_price_rec.attribute11;
491 p5_a61 := ddp_x_cost_price_rec.attribute12;
492 p5_a62 := ddp_x_cost_price_rec.attribute13;
493 p5_a63 := ddp_x_cost_price_rec.attribute14;
494 p5_a64 := ddp_x_cost_price_rec.attribute15;
495
496
497
498 end;
499
500 procedure get_mr_items_no_price(p_api_version NUMBER
501 , p_init_msg_list VARCHAR2
502 , p_commit VARCHAR2
503 , p_validation_level NUMBER
504 , p_module_type VARCHAR2
505 , x_return_status out nocopy VARCHAR2
506 , x_msg_count out nocopy NUMBER
507 , x_msg_data out nocopy VARCHAR2
508 , p8_a0 NUMBER
509 , p8_a1 NUMBER
510 , p8_a2 NUMBER
511 , p8_a3 NUMBER
512 , p8_a4 NUMBER
513 , p8_a5 NUMBER
514 , p8_a6 NUMBER
515 , p8_a7 VARCHAR2
516 , p8_a8 NUMBER
517 , p8_a9 NUMBER
518 , p8_a10 NUMBER
519 , p8_a11 NUMBER
520 , p8_a12 VARCHAR2
521 , p8_a13 VARCHAR2
522 , p8_a14 VARCHAR2
523 , p8_a15 VARCHAR2
524 , p8_a16 NUMBER
525 , p8_a17 VARCHAR2
526 , p8_a18 NUMBER
527 , p8_a19 NUMBER
528 , p8_a20 NUMBER
529 , p8_a21 DATE
530 , p8_a22 DATE
531 , p8_a23 DATE
532 , p8_a24 DATE
533 , p8_a25 DATE
534 , p8_a26 DATE
535 , p8_a27 VARCHAR2
536 , p8_a28 NUMBER
537 , p8_a29 VARCHAR2
538 , p8_a30 VARCHAR2
539 , p8_a31 NUMBER
540 , p8_a32 VARCHAR2
541 , p8_a33 VARCHAR2
542 , p8_a34 VARCHAR2
543 , p8_a35 NUMBER
544 , p8_a36 VARCHAR2
545 , p8_a37 NUMBER
546 , p8_a38 NUMBER
547 , p8_a39 NUMBER
548 , p8_a40 VARCHAR2
549 , p8_a41 VARCHAR2
550 , p8_a42 VARCHAR2
551 , p8_a43 DATE
552 , p8_a44 NUMBER
553 , p8_a45 DATE
554 , p8_a46 NUMBER
555 , p8_a47 DATE
556 , p8_a48 NUMBER
557 , p8_a49 VARCHAR2
558 , p8_a50 VARCHAR2
559 , p8_a51 VARCHAR2
560 , p8_a52 VARCHAR2
561 , p8_a53 VARCHAR2
562 , p8_a54 VARCHAR2
563 , p8_a55 VARCHAR2
564 , p8_a56 VARCHAR2
565 , p8_a57 VARCHAR2
566 , p8_a58 VARCHAR2
567 , p8_a59 VARCHAR2
568 , p8_a60 VARCHAR2
569 , p8_a61 VARCHAR2
570 , p8_a62 VARCHAR2
571 , p8_a63 VARCHAR2
572 , p8_a64 VARCHAR2
573 , p9_a0 out nocopy JTF_NUMBER_TABLE
574 , p9_a1 out nocopy JTF_NUMBER_TABLE
575 , p9_a2 out nocopy JTF_NUMBER_TABLE
576 , p9_a3 out nocopy JTF_NUMBER_TABLE
577 , p9_a4 out nocopy JTF_NUMBER_TABLE
578 , p9_a5 out nocopy JTF_NUMBER_TABLE
579 , p9_a6 out nocopy JTF_NUMBER_TABLE
580 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
581 , p9_a8 out nocopy JTF_NUMBER_TABLE
582 , p9_a9 out nocopy JTF_NUMBER_TABLE
583 , p9_a10 out nocopy JTF_NUMBER_TABLE
584 , p9_a11 out nocopy JTF_NUMBER_TABLE
585 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
586 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
587 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
588 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
589 , p9_a16 out nocopy JTF_NUMBER_TABLE
590 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
591 , p9_a18 out nocopy JTF_NUMBER_TABLE
592 , p9_a19 out nocopy JTF_NUMBER_TABLE
593 , p9_a20 out nocopy JTF_NUMBER_TABLE
594 , p9_a21 out nocopy JTF_DATE_TABLE
595 , p9_a22 out nocopy JTF_DATE_TABLE
596 , p9_a23 out nocopy JTF_DATE_TABLE
597 , p9_a24 out nocopy JTF_DATE_TABLE
598 , p9_a25 out nocopy JTF_DATE_TABLE
599 , p9_a26 out nocopy JTF_DATE_TABLE
600 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
601 , p9_a28 out nocopy JTF_NUMBER_TABLE
602 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_100
603 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_2000
604 , p9_a31 out nocopy JTF_NUMBER_TABLE
605 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_400
606 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_300
607 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_300
608 , p9_a35 out nocopy JTF_NUMBER_TABLE
609 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
610 , p9_a37 out nocopy JTF_NUMBER_TABLE
611 , p9_a38 out nocopy JTF_NUMBER_TABLE
612 , p9_a39 out nocopy JTF_NUMBER_TABLE
613 , p9_a40 out nocopy JTF_VARCHAR2_TABLE_100
614 , p9_a41 out nocopy JTF_VARCHAR2_TABLE_100
615 , p9_a42 out nocopy JTF_VARCHAR2_TABLE_100
616 , p9_a43 out nocopy JTF_DATE_TABLE
617 , p9_a44 out nocopy JTF_NUMBER_TABLE
618 , p9_a45 out nocopy JTF_DATE_TABLE
619 , p9_a46 out nocopy JTF_NUMBER_TABLE
620 , p9_a47 out nocopy JTF_DATE_TABLE
621 , p9_a48 out nocopy JTF_NUMBER_TABLE
622 , p9_a49 out nocopy JTF_VARCHAR2_TABLE_100
623 , p9_a50 out nocopy JTF_VARCHAR2_TABLE_200
624 , p9_a51 out nocopy JTF_VARCHAR2_TABLE_200
625 , p9_a52 out nocopy JTF_VARCHAR2_TABLE_200
626 , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
627 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_200
628 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_200
629 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_200
630 , p9_a57 out nocopy JTF_VARCHAR2_TABLE_200
631 , p9_a58 out nocopy JTF_VARCHAR2_TABLE_200
632 , p9_a59 out nocopy JTF_VARCHAR2_TABLE_200
633 , p9_a60 out nocopy JTF_VARCHAR2_TABLE_200
634 , p9_a61 out nocopy JTF_VARCHAR2_TABLE_200
635 , p9_a62 out nocopy JTF_VARCHAR2_TABLE_200
636 , p9_a63 out nocopy JTF_VARCHAR2_TABLE_200
637 , p9_a64 out nocopy JTF_VARCHAR2_TABLE_200
638 )
639
640 as
641 ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
642 ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
643 ddindx binary_integer; indx binary_integer;
644 begin
645
646 -- copy data to the local IN or IN-OUT args, if any
647
648
649
650
651
652
653
654
655 ddp_cost_price_rec.visit_task_id := p8_a0;
656 ddp_cost_price_rec.visit_id := p8_a1;
657 ddp_cost_price_rec.mr_id := p8_a2;
658 ddp_cost_price_rec.actual_cost := p8_a3;
659 ddp_cost_price_rec.estimated_cost := p8_a4;
660 ddp_cost_price_rec.actual_price := p8_a5;
661 ddp_cost_price_rec.estimated_price := p8_a6;
662 ddp_cost_price_rec.currency := p8_a7;
663 ddp_cost_price_rec.snapshot_id := p8_a8;
664 ddp_cost_price_rec.object_version_number := p8_a9;
665 ddp_cost_price_rec.estimated_profit := p8_a10;
666 ddp_cost_price_rec.actual_profit := p8_a11;
667 ddp_cost_price_rec.outside_party_flag := p8_a12;
668 ddp_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
669 ddp_cost_price_rec.is_cst_pr_info_required := p8_a14;
670 ddp_cost_price_rec.is_cst_struc_updated := p8_a15;
671 ddp_cost_price_rec.price_list_id := p8_a16;
672 ddp_cost_price_rec.price_list_name := p8_a17;
673 ddp_cost_price_rec.service_request_id := p8_a18;
674 ddp_cost_price_rec.customer_id := p8_a19;
675 ddp_cost_price_rec.organization_id := p8_a20;
676 ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
677 ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
678 ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
679 ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
680 ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
681 ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
682 ddp_cost_price_rec.task_name := p8_a27;
683 ddp_cost_price_rec.visit_task_number := p8_a28;
684 ddp_cost_price_rec.mr_title := p8_a29;
685 ddp_cost_price_rec.mr_description := p8_a30;
686 ddp_cost_price_rec.billing_item_id := p8_a31;
687 ddp_cost_price_rec.item_name := p8_a32;
688 ddp_cost_price_rec.item_description := p8_a33;
689 ddp_cost_price_rec.organization_name := p8_a34;
690 ddp_cost_price_rec.workorder_id := p8_a35;
691 ddp_cost_price_rec.master_wo_flag := p8_a36;
692 ddp_cost_price_rec.mr_session_id := p8_a37;
693 ddp_cost_price_rec.cost_session_id := p8_a38;
694 ddp_cost_price_rec.cp_request_id := p8_a39;
695 ddp_cost_price_rec.cp_phase := p8_a40;
696 ddp_cost_price_rec.cp_phase_code := p8_a41;
697 ddp_cost_price_rec.cp_status := p8_a42;
698 ddp_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p8_a43);
699 ddp_cost_price_rec.created_by := p8_a44;
700 ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a45);
701 ddp_cost_price_rec.last_updated_by := p8_a46;
702 ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a47);
703 ddp_cost_price_rec.last_update_login := p8_a48;
704 ddp_cost_price_rec.attribute_category := p8_a49;
705 ddp_cost_price_rec.attribute1 := p8_a50;
706 ddp_cost_price_rec.attribute2 := p8_a51;
707 ddp_cost_price_rec.attribute3 := p8_a52;
708 ddp_cost_price_rec.attribute4 := p8_a53;
709 ddp_cost_price_rec.attribute5 := p8_a54;
710 ddp_cost_price_rec.attribute6 := p8_a55;
711 ddp_cost_price_rec.attribute7 := p8_a56;
712 ddp_cost_price_rec.attribute8 := p8_a57;
713 ddp_cost_price_rec.attribute9 := p8_a58;
714 ddp_cost_price_rec.attribute10 := p8_a59;
715 ddp_cost_price_rec.attribute11 := p8_a60;
716 ddp_cost_price_rec.attribute12 := p8_a61;
717 ddp_cost_price_rec.attribute13 := p8_a62;
718 ddp_cost_price_rec.attribute14 := p8_a63;
719 ddp_cost_price_rec.attribute15 := p8_a64;
720
721
722 -- here's the delegated call to the old PL/SQL routine
723 ahl_vwp_mr_cst_pr_pvt.get_mr_items_no_price(p_api_version,
724 p_init_msg_list,
725 p_commit,
726 p_validation_level,
727 p_module_type,
728 x_return_status,
729 x_msg_count,
730 x_msg_data,
731 ddp_cost_price_rec,
732 ddx_cost_price_tbl);
733
734 -- copy data back from the local variables to OUT or IN-OUT args, if any
735
736
737
738
739
740
741
742
743
744 ahl_vwp_visit_cst_pr_pvt_w.rosetta_table_copy_out_p1(ddx_cost_price_tbl, p9_a0
745 , p9_a1
746 , p9_a2
747 , p9_a3
748 , p9_a4
749 , p9_a5
750 , p9_a6
751 , p9_a7
752 , p9_a8
753 , p9_a9
754 , p9_a10
755 , p9_a11
756 , p9_a12
757 , p9_a13
758 , p9_a14
759 , p9_a15
760 , p9_a16
761 , p9_a17
762 , p9_a18
763 , p9_a19
764 , p9_a20
765 , p9_a21
766 , p9_a22
767 , p9_a23
768 , p9_a24
769 , p9_a25
770 , p9_a26
771 , p9_a27
772 , p9_a28
773 , p9_a29
774 , p9_a30
775 , p9_a31
776 , p9_a32
777 , p9_a33
778 , p9_a34
779 , p9_a35
780 , p9_a36
781 , p9_a37
782 , p9_a38
783 , p9_a39
784 , p9_a40
785 , p9_a41
786 , p9_a42
787 , p9_a43
788 , p9_a44
789 , p9_a45
790 , p9_a46
791 , p9_a47
792 , p9_a48
793 , p9_a49
794 , p9_a50
795 , p9_a51
796 , p9_a52
797 , p9_a53
798 , p9_a54
799 , p9_a55
800 , p9_a56
801 , p9_a57
802 , p9_a58
803 , p9_a59
804 , p9_a60
805 , p9_a61
806 , p9_a62
807 , p9_a63
808 , p9_a64
809 );
810 end;
811
812 procedure get_mr_cost_details(p_api_version NUMBER
813 , p_init_msg_list VARCHAR2
814 , p_commit VARCHAR2
815 , p_validation_level NUMBER
816 , p_module_type VARCHAR2
817 , p5_a0 in out nocopy NUMBER
818 , p5_a1 in out nocopy NUMBER
819 , p5_a2 in out nocopy NUMBER
820 , p5_a3 in out nocopy NUMBER
821 , p5_a4 in out nocopy NUMBER
822 , p5_a5 in out nocopy NUMBER
823 , p5_a6 in out nocopy NUMBER
824 , p5_a7 in out nocopy VARCHAR2
825 , p5_a8 in out nocopy NUMBER
826 , p5_a9 in out nocopy NUMBER
827 , p5_a10 in out nocopy NUMBER
828 , p5_a11 in out nocopy NUMBER
829 , p5_a12 in out nocopy VARCHAR2
830 , p5_a13 in out nocopy VARCHAR2
831 , p5_a14 in out nocopy VARCHAR2
832 , p5_a15 in out nocopy VARCHAR2
833 , p5_a16 in out nocopy NUMBER
834 , p5_a17 in out nocopy VARCHAR2
835 , p5_a18 in out nocopy NUMBER
836 , p5_a19 in out nocopy NUMBER
837 , p5_a20 in out nocopy NUMBER
838 , p5_a21 in out nocopy DATE
839 , p5_a22 in out nocopy DATE
840 , p5_a23 in out nocopy DATE
841 , p5_a24 in out nocopy DATE
842 , p5_a25 in out nocopy DATE
843 , p5_a26 in out nocopy DATE
844 , p5_a27 in out nocopy VARCHAR2
845 , p5_a28 in out nocopy NUMBER
846 , p5_a29 in out nocopy VARCHAR2
847 , p5_a30 in out nocopy VARCHAR2
848 , p5_a31 in out nocopy NUMBER
849 , p5_a32 in out nocopy VARCHAR2
850 , p5_a33 in out nocopy VARCHAR2
851 , p5_a34 in out nocopy VARCHAR2
852 , p5_a35 in out nocopy NUMBER
853 , p5_a36 in out nocopy VARCHAR2
854 , p5_a37 in out nocopy NUMBER
855 , p5_a38 in out nocopy NUMBER
856 , p5_a39 in out nocopy NUMBER
857 , p5_a40 in out nocopy VARCHAR2
858 , p5_a41 in out nocopy VARCHAR2
859 , p5_a42 in out nocopy VARCHAR2
860 , p5_a43 in out nocopy DATE
861 , p5_a44 in out nocopy NUMBER
862 , p5_a45 in out nocopy DATE
863 , p5_a46 in out nocopy NUMBER
864 , p5_a47 in out nocopy DATE
865 , p5_a48 in out nocopy NUMBER
866 , p5_a49 in out nocopy VARCHAR2
867 , p5_a50 in out nocopy VARCHAR2
868 , p5_a51 in out nocopy VARCHAR2
869 , p5_a52 in out nocopy VARCHAR2
870 , p5_a53 in out nocopy VARCHAR2
871 , p5_a54 in out nocopy VARCHAR2
872 , p5_a55 in out nocopy VARCHAR2
873 , p5_a56 in out nocopy VARCHAR2
874 , p5_a57 in out nocopy VARCHAR2
875 , p5_a58 in out nocopy VARCHAR2
876 , p5_a59 in out nocopy VARCHAR2
877 , p5_a60 in out nocopy VARCHAR2
878 , p5_a61 in out nocopy VARCHAR2
879 , p5_a62 in out nocopy VARCHAR2
880 , p5_a63 in out nocopy VARCHAR2
881 , p5_a64 in out nocopy VARCHAR2
882 , x_return_status out nocopy VARCHAR2
883 , x_msg_count out nocopy NUMBER
884 , x_msg_data out nocopy VARCHAR2
885 )
886
887 as
888 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
889 ddindx binary_integer; indx binary_integer;
890 begin
891
892 -- copy data to the local IN or IN-OUT args, if any
893
894
895
896
897
898 ddp_x_cost_price_rec.visit_task_id := p5_a0;
899 ddp_x_cost_price_rec.visit_id := p5_a1;
900 ddp_x_cost_price_rec.mr_id := p5_a2;
901 ddp_x_cost_price_rec.actual_cost := p5_a3;
902 ddp_x_cost_price_rec.estimated_cost := p5_a4;
903 ddp_x_cost_price_rec.actual_price := p5_a5;
904 ddp_x_cost_price_rec.estimated_price := p5_a6;
905 ddp_x_cost_price_rec.currency := p5_a7;
906 ddp_x_cost_price_rec.snapshot_id := p5_a8;
907 ddp_x_cost_price_rec.object_version_number := p5_a9;
908 ddp_x_cost_price_rec.estimated_profit := p5_a10;
909 ddp_x_cost_price_rec.actual_profit := p5_a11;
910 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
911 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
912 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
913 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
914 ddp_x_cost_price_rec.price_list_id := p5_a16;
915 ddp_x_cost_price_rec.price_list_name := p5_a17;
916 ddp_x_cost_price_rec.service_request_id := p5_a18;
917 ddp_x_cost_price_rec.customer_id := p5_a19;
918 ddp_x_cost_price_rec.organization_id := p5_a20;
919 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
920 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
921 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
922 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
923 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
924 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
925 ddp_x_cost_price_rec.task_name := p5_a27;
926 ddp_x_cost_price_rec.visit_task_number := p5_a28;
927 ddp_x_cost_price_rec.mr_title := p5_a29;
928 ddp_x_cost_price_rec.mr_description := p5_a30;
929 ddp_x_cost_price_rec.billing_item_id := p5_a31;
930 ddp_x_cost_price_rec.item_name := p5_a32;
931 ddp_x_cost_price_rec.item_description := p5_a33;
932 ddp_x_cost_price_rec.organization_name := p5_a34;
933 ddp_x_cost_price_rec.workorder_id := p5_a35;
934 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
935 ddp_x_cost_price_rec.mr_session_id := p5_a37;
936 ddp_x_cost_price_rec.cost_session_id := p5_a38;
937 ddp_x_cost_price_rec.cp_request_id := p5_a39;
938 ddp_x_cost_price_rec.cp_phase := p5_a40;
939 ddp_x_cost_price_rec.cp_phase_code := p5_a41;
940 ddp_x_cost_price_rec.cp_status := p5_a42;
941 ddp_x_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p5_a43);
942 ddp_x_cost_price_rec.created_by := p5_a44;
943 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a45);
944 ddp_x_cost_price_rec.last_updated_by := p5_a46;
945 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a47);
946 ddp_x_cost_price_rec.last_update_login := p5_a48;
947 ddp_x_cost_price_rec.attribute_category := p5_a49;
948 ddp_x_cost_price_rec.attribute1 := p5_a50;
949 ddp_x_cost_price_rec.attribute2 := p5_a51;
950 ddp_x_cost_price_rec.attribute3 := p5_a52;
951 ddp_x_cost_price_rec.attribute4 := p5_a53;
952 ddp_x_cost_price_rec.attribute5 := p5_a54;
953 ddp_x_cost_price_rec.attribute6 := p5_a55;
954 ddp_x_cost_price_rec.attribute7 := p5_a56;
955 ddp_x_cost_price_rec.attribute8 := p5_a57;
956 ddp_x_cost_price_rec.attribute9 := p5_a58;
957 ddp_x_cost_price_rec.attribute10 := p5_a59;
958 ddp_x_cost_price_rec.attribute11 := p5_a60;
959 ddp_x_cost_price_rec.attribute12 := p5_a61;
960 ddp_x_cost_price_rec.attribute13 := p5_a62;
961 ddp_x_cost_price_rec.attribute14 := p5_a63;
962 ddp_x_cost_price_rec.attribute15 := p5_a64;
963
964
965
966
967 -- here's the delegated call to the old PL/SQL routine
968 ahl_vwp_mr_cst_pr_pvt.get_mr_cost_details(p_api_version,
969 p_init_msg_list,
970 p_commit,
971 p_validation_level,
972 p_module_type,
973 ddp_x_cost_price_rec,
974 x_return_status,
975 x_msg_count,
976 x_msg_data);
977
978 -- copy data back from the local variables to OUT or IN-OUT args, if any
979
980
981
982
983
984 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
985 p5_a1 := ddp_x_cost_price_rec.visit_id;
986 p5_a2 := ddp_x_cost_price_rec.mr_id;
987 p5_a3 := ddp_x_cost_price_rec.actual_cost;
988 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
989 p5_a5 := ddp_x_cost_price_rec.actual_price;
990 p5_a6 := ddp_x_cost_price_rec.estimated_price;
991 p5_a7 := ddp_x_cost_price_rec.currency;
992 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
993 p5_a9 := ddp_x_cost_price_rec.object_version_number;
994 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
995 p5_a11 := ddp_x_cost_price_rec.actual_profit;
996 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
997 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
998 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
999 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
1000 p5_a16 := ddp_x_cost_price_rec.price_list_id;
1001 p5_a17 := ddp_x_cost_price_rec.price_list_name;
1002 p5_a18 := ddp_x_cost_price_rec.service_request_id;
1003 p5_a19 := ddp_x_cost_price_rec.customer_id;
1004 p5_a20 := ddp_x_cost_price_rec.organization_id;
1005 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
1006 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
1007 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
1008 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
1009 p5_a25 := ddp_x_cost_price_rec.task_start_date;
1010 p5_a26 := ddp_x_cost_price_rec.task_end_date;
1011 p5_a27 := ddp_x_cost_price_rec.task_name;
1012 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
1013 p5_a29 := ddp_x_cost_price_rec.mr_title;
1014 p5_a30 := ddp_x_cost_price_rec.mr_description;
1015 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
1016 p5_a32 := ddp_x_cost_price_rec.item_name;
1017 p5_a33 := ddp_x_cost_price_rec.item_description;
1018 p5_a34 := ddp_x_cost_price_rec.organization_name;
1019 p5_a35 := ddp_x_cost_price_rec.workorder_id;
1020 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
1021 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
1022 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
1023 p5_a39 := ddp_x_cost_price_rec.cp_request_id;
1024 p5_a40 := ddp_x_cost_price_rec.cp_phase;
1025 p5_a41 := ddp_x_cost_price_rec.cp_phase_code;
1026 p5_a42 := ddp_x_cost_price_rec.cp_status;
1027 p5_a43 := ddp_x_cost_price_rec.cp_request_date;
1028 p5_a44 := ddp_x_cost_price_rec.created_by;
1029 p5_a45 := ddp_x_cost_price_rec.creation_date;
1030 p5_a46 := ddp_x_cost_price_rec.last_updated_by;
1031 p5_a47 := ddp_x_cost_price_rec.last_update_date;
1032 p5_a48 := ddp_x_cost_price_rec.last_update_login;
1033 p5_a49 := ddp_x_cost_price_rec.attribute_category;
1034 p5_a50 := ddp_x_cost_price_rec.attribute1;
1035 p5_a51 := ddp_x_cost_price_rec.attribute2;
1036 p5_a52 := ddp_x_cost_price_rec.attribute3;
1037 p5_a53 := ddp_x_cost_price_rec.attribute4;
1038 p5_a54 := ddp_x_cost_price_rec.attribute5;
1039 p5_a55 := ddp_x_cost_price_rec.attribute6;
1040 p5_a56 := ddp_x_cost_price_rec.attribute7;
1041 p5_a57 := ddp_x_cost_price_rec.attribute8;
1042 p5_a58 := ddp_x_cost_price_rec.attribute9;
1043 p5_a59 := ddp_x_cost_price_rec.attribute10;
1044 p5_a60 := ddp_x_cost_price_rec.attribute11;
1045 p5_a61 := ddp_x_cost_price_rec.attribute12;
1046 p5_a62 := ddp_x_cost_price_rec.attribute13;
1047 p5_a63 := ddp_x_cost_price_rec.attribute14;
1048 p5_a64 := ddp_x_cost_price_rec.attribute15;
1049
1050
1051
1052 end;
1053
1054 end ahl_vwp_mr_cst_pr_pvt_w;