[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.2.12020000.2 2012/12/14 06:50:50 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 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 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_task_cst_pr_pvt.get_task_cost_details(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_task_cost(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_task_cst_pr_pvt.estimate_task_cost(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 estimate_task_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 , p5_a0 in out nocopy NUMBER
506 , p5_a1 in out nocopy NUMBER
507 , p5_a2 in out nocopy NUMBER
508 , p5_a3 in out nocopy NUMBER
509 , p5_a4 in out nocopy NUMBER
510 , p5_a5 in out nocopy NUMBER
511 , p5_a6 in out nocopy NUMBER
512 , p5_a7 in out nocopy VARCHAR2
513 , p5_a8 in out nocopy NUMBER
514 , p5_a9 in out nocopy NUMBER
515 , p5_a10 in out nocopy NUMBER
516 , p5_a11 in out nocopy NUMBER
517 , p5_a12 in out nocopy VARCHAR2
518 , p5_a13 in out nocopy VARCHAR2
519 , p5_a14 in out nocopy VARCHAR2
520 , p5_a15 in out nocopy VARCHAR2
521 , p5_a16 in out nocopy NUMBER
522 , p5_a17 in out nocopy VARCHAR2
523 , p5_a18 in out nocopy NUMBER
524 , p5_a19 in out nocopy NUMBER
525 , p5_a20 in out nocopy NUMBER
526 , p5_a21 in out nocopy DATE
527 , p5_a22 in out nocopy DATE
528 , p5_a23 in out nocopy DATE
529 , p5_a24 in out nocopy DATE
530 , p5_a25 in out nocopy DATE
531 , p5_a26 in out nocopy DATE
532 , p5_a27 in out nocopy VARCHAR2
533 , p5_a28 in out nocopy NUMBER
534 , p5_a29 in out nocopy VARCHAR2
535 , p5_a30 in out nocopy VARCHAR2
536 , p5_a31 in out nocopy NUMBER
537 , p5_a32 in out nocopy VARCHAR2
538 , p5_a33 in out nocopy VARCHAR2
539 , p5_a34 in out nocopy VARCHAR2
540 , p5_a35 in out nocopy NUMBER
541 , p5_a36 in out nocopy VARCHAR2
542 , p5_a37 in out nocopy NUMBER
543 , p5_a38 in out nocopy NUMBER
544 , p5_a39 in out nocopy NUMBER
545 , p5_a40 in out nocopy VARCHAR2
546 , p5_a41 in out nocopy VARCHAR2
547 , p5_a42 in out nocopy VARCHAR2
548 , p5_a43 in out nocopy DATE
549 , p5_a44 in out nocopy NUMBER
550 , p5_a45 in out nocopy DATE
551 , p5_a46 in out nocopy NUMBER
552 , p5_a47 in out nocopy DATE
553 , p5_a48 in out nocopy NUMBER
554 , p5_a49 in out nocopy VARCHAR2
555 , p5_a50 in out nocopy VARCHAR2
556 , p5_a51 in out nocopy VARCHAR2
557 , p5_a52 in out nocopy VARCHAR2
558 , p5_a53 in out nocopy VARCHAR2
559 , p5_a54 in out nocopy VARCHAR2
560 , p5_a55 in out nocopy VARCHAR2
561 , p5_a56 in out nocopy VARCHAR2
562 , p5_a57 in out nocopy VARCHAR2
563 , p5_a58 in out nocopy VARCHAR2
564 , p5_a59 in out nocopy VARCHAR2
565 , p5_a60 in out nocopy VARCHAR2
566 , p5_a61 in out nocopy VARCHAR2
567 , p5_a62 in out nocopy VARCHAR2
568 , p5_a63 in out nocopy VARCHAR2
569 , p5_a64 in out nocopy VARCHAR2
570 , x_return_status out nocopy VARCHAR2
571 , x_msg_count out nocopy NUMBER
572 , x_msg_data out nocopy VARCHAR2
573 )
574
575 as
576 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
577 ddindx binary_integer; indx binary_integer;
578 begin
579
580 -- copy data to the local IN or IN-OUT args, if any
581
582
583
584
585
586 ddp_x_cost_price_rec.visit_task_id := p5_a0;
587 ddp_x_cost_price_rec.visit_id := p5_a1;
588 ddp_x_cost_price_rec.mr_id := p5_a2;
589 ddp_x_cost_price_rec.actual_cost := p5_a3;
590 ddp_x_cost_price_rec.estimated_cost := p5_a4;
591 ddp_x_cost_price_rec.actual_price := p5_a5;
592 ddp_x_cost_price_rec.estimated_price := p5_a6;
593 ddp_x_cost_price_rec.currency := p5_a7;
594 ddp_x_cost_price_rec.snapshot_id := p5_a8;
595 ddp_x_cost_price_rec.object_version_number := p5_a9;
596 ddp_x_cost_price_rec.estimated_profit := p5_a10;
597 ddp_x_cost_price_rec.actual_profit := p5_a11;
598 ddp_x_cost_price_rec.outside_party_flag := p5_a12;
599 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
600 ddp_x_cost_price_rec.is_cst_pr_info_required := p5_a14;
601 ddp_x_cost_price_rec.is_cst_struc_updated := p5_a15;
602 ddp_x_cost_price_rec.price_list_id := p5_a16;
603 ddp_x_cost_price_rec.price_list_name := p5_a17;
604 ddp_x_cost_price_rec.service_request_id := p5_a18;
605 ddp_x_cost_price_rec.customer_id := p5_a19;
606 ddp_x_cost_price_rec.organization_id := p5_a20;
607 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
608 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
609 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
610 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
611 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
612 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
613 ddp_x_cost_price_rec.task_name := p5_a27;
614 ddp_x_cost_price_rec.visit_task_number := p5_a28;
615 ddp_x_cost_price_rec.mr_title := p5_a29;
616 ddp_x_cost_price_rec.mr_description := p5_a30;
617 ddp_x_cost_price_rec.billing_item_id := p5_a31;
618 ddp_x_cost_price_rec.item_name := p5_a32;
619 ddp_x_cost_price_rec.item_description := p5_a33;
620 ddp_x_cost_price_rec.organization_name := p5_a34;
621 ddp_x_cost_price_rec.workorder_id := p5_a35;
622 ddp_x_cost_price_rec.master_wo_flag := p5_a36;
623 ddp_x_cost_price_rec.mr_session_id := p5_a37;
624 ddp_x_cost_price_rec.cost_session_id := p5_a38;
625 ddp_x_cost_price_rec.cp_request_id := p5_a39;
626 ddp_x_cost_price_rec.cp_phase := p5_a40;
627 ddp_x_cost_price_rec.cp_phase_code := p5_a41;
628 ddp_x_cost_price_rec.cp_status := p5_a42;
629 ddp_x_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p5_a43);
630 ddp_x_cost_price_rec.created_by := p5_a44;
631 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a45);
632 ddp_x_cost_price_rec.last_updated_by := p5_a46;
633 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a47);
634 ddp_x_cost_price_rec.last_update_login := p5_a48;
635 ddp_x_cost_price_rec.attribute_category := p5_a49;
636 ddp_x_cost_price_rec.attribute1 := p5_a50;
637 ddp_x_cost_price_rec.attribute2 := p5_a51;
638 ddp_x_cost_price_rec.attribute3 := p5_a52;
639 ddp_x_cost_price_rec.attribute4 := p5_a53;
640 ddp_x_cost_price_rec.attribute5 := p5_a54;
641 ddp_x_cost_price_rec.attribute6 := p5_a55;
642 ddp_x_cost_price_rec.attribute7 := p5_a56;
643 ddp_x_cost_price_rec.attribute8 := p5_a57;
644 ddp_x_cost_price_rec.attribute9 := p5_a58;
645 ddp_x_cost_price_rec.attribute10 := p5_a59;
646 ddp_x_cost_price_rec.attribute11 := p5_a60;
647 ddp_x_cost_price_rec.attribute12 := p5_a61;
648 ddp_x_cost_price_rec.attribute13 := p5_a62;
649 ddp_x_cost_price_rec.attribute14 := p5_a63;
650 ddp_x_cost_price_rec.attribute15 := p5_a64;
651
652
653
654
655 -- here's the delegated call to the old PL/SQL routine
656 ahl_vwp_task_cst_pr_pvt.estimate_task_price(p_api_version,
657 p_init_msg_list,
658 p_commit,
659 p_validation_level,
660 p_module_type,
661 ddp_x_cost_price_rec,
662 x_return_status,
663 x_msg_count,
664 x_msg_data);
665
666 -- copy data back from the local variables to OUT or IN-OUT args, if any
667
668
669
670
671
672 p5_a0 := ddp_x_cost_price_rec.visit_task_id;
673 p5_a1 := ddp_x_cost_price_rec.visit_id;
674 p5_a2 := ddp_x_cost_price_rec.mr_id;
675 p5_a3 := ddp_x_cost_price_rec.actual_cost;
676 p5_a4 := ddp_x_cost_price_rec.estimated_cost;
677 p5_a5 := ddp_x_cost_price_rec.actual_price;
678 p5_a6 := ddp_x_cost_price_rec.estimated_price;
679 p5_a7 := ddp_x_cost_price_rec.currency;
680 p5_a8 := ddp_x_cost_price_rec.snapshot_id;
681 p5_a9 := ddp_x_cost_price_rec.object_version_number;
682 p5_a10 := ddp_x_cost_price_rec.estimated_profit;
683 p5_a11 := ddp_x_cost_price_rec.actual_profit;
684 p5_a12 := ddp_x_cost_price_rec.outside_party_flag;
685 p5_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
686 p5_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
687 p5_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
688 p5_a16 := ddp_x_cost_price_rec.price_list_id;
689 p5_a17 := ddp_x_cost_price_rec.price_list_name;
690 p5_a18 := ddp_x_cost_price_rec.service_request_id;
691 p5_a19 := ddp_x_cost_price_rec.customer_id;
692 p5_a20 := ddp_x_cost_price_rec.organization_id;
693 p5_a21 := ddp_x_cost_price_rec.visit_start_date;
694 p5_a22 := ddp_x_cost_price_rec.visit_end_date;
695 p5_a23 := ddp_x_cost_price_rec.mr_start_date;
696 p5_a24 := ddp_x_cost_price_rec.mr_end_date;
697 p5_a25 := ddp_x_cost_price_rec.task_start_date;
698 p5_a26 := ddp_x_cost_price_rec.task_end_date;
699 p5_a27 := ddp_x_cost_price_rec.task_name;
700 p5_a28 := ddp_x_cost_price_rec.visit_task_number;
701 p5_a29 := ddp_x_cost_price_rec.mr_title;
702 p5_a30 := ddp_x_cost_price_rec.mr_description;
703 p5_a31 := ddp_x_cost_price_rec.billing_item_id;
704 p5_a32 := ddp_x_cost_price_rec.item_name;
705 p5_a33 := ddp_x_cost_price_rec.item_description;
706 p5_a34 := ddp_x_cost_price_rec.organization_name;
707 p5_a35 := ddp_x_cost_price_rec.workorder_id;
708 p5_a36 := ddp_x_cost_price_rec.master_wo_flag;
709 p5_a37 := ddp_x_cost_price_rec.mr_session_id;
710 p5_a38 := ddp_x_cost_price_rec.cost_session_id;
711 p5_a39 := ddp_x_cost_price_rec.cp_request_id;
712 p5_a40 := ddp_x_cost_price_rec.cp_phase;
713 p5_a41 := ddp_x_cost_price_rec.cp_phase_code;
714 p5_a42 := ddp_x_cost_price_rec.cp_status;
715 p5_a43 := ddp_x_cost_price_rec.cp_request_date;
716 p5_a44 := ddp_x_cost_price_rec.created_by;
717 p5_a45 := ddp_x_cost_price_rec.creation_date;
718 p5_a46 := ddp_x_cost_price_rec.last_updated_by;
719 p5_a47 := ddp_x_cost_price_rec.last_update_date;
720 p5_a48 := ddp_x_cost_price_rec.last_update_login;
721 p5_a49 := ddp_x_cost_price_rec.attribute_category;
722 p5_a50 := ddp_x_cost_price_rec.attribute1;
723 p5_a51 := ddp_x_cost_price_rec.attribute2;
724 p5_a52 := ddp_x_cost_price_rec.attribute3;
725 p5_a53 := ddp_x_cost_price_rec.attribute4;
726 p5_a54 := ddp_x_cost_price_rec.attribute5;
727 p5_a55 := ddp_x_cost_price_rec.attribute6;
728 p5_a56 := ddp_x_cost_price_rec.attribute7;
729 p5_a57 := ddp_x_cost_price_rec.attribute8;
730 p5_a58 := ddp_x_cost_price_rec.attribute9;
731 p5_a59 := ddp_x_cost_price_rec.attribute10;
732 p5_a60 := ddp_x_cost_price_rec.attribute11;
733 p5_a61 := ddp_x_cost_price_rec.attribute12;
734 p5_a62 := ddp_x_cost_price_rec.attribute13;
735 p5_a63 := ddp_x_cost_price_rec.attribute14;
736 p5_a64 := ddp_x_cost_price_rec.attribute15;
737
738
739
740 end;
741
742 procedure update_task_cost_details(p_api_version NUMBER
743 , p_init_msg_list VARCHAR2
744 , p_commit VARCHAR2
745 , p_validation_level NUMBER
746 , p_module_type VARCHAR2
747 , p5_a0 NUMBER
748 , p5_a1 NUMBER
749 , p5_a2 NUMBER
750 , p5_a3 NUMBER
751 , p5_a4 NUMBER
752 , p5_a5 NUMBER
753 , p5_a6 NUMBER
754 , p5_a7 VARCHAR2
755 , p5_a8 NUMBER
756 , p5_a9 NUMBER
757 , p5_a10 NUMBER
758 , p5_a11 NUMBER
759 , p5_a12 VARCHAR2
760 , p5_a13 VARCHAR2
761 , p5_a14 VARCHAR2
762 , p5_a15 VARCHAR2
763 , p5_a16 NUMBER
764 , p5_a17 VARCHAR2
765 , p5_a18 NUMBER
766 , p5_a19 NUMBER
767 , p5_a20 NUMBER
768 , p5_a21 DATE
769 , p5_a22 DATE
770 , p5_a23 DATE
771 , p5_a24 DATE
772 , p5_a25 DATE
773 , p5_a26 DATE
774 , p5_a27 VARCHAR2
775 , p5_a28 NUMBER
776 , p5_a29 VARCHAR2
777 , p5_a30 VARCHAR2
778 , p5_a31 NUMBER
779 , p5_a32 VARCHAR2
780 , p5_a33 VARCHAR2
781 , p5_a34 VARCHAR2
782 , p5_a35 NUMBER
783 , p5_a36 VARCHAR2
784 , p5_a37 NUMBER
785 , p5_a38 NUMBER
786 , p5_a39 NUMBER
787 , p5_a40 VARCHAR2
788 , p5_a41 VARCHAR2
789 , p5_a42 VARCHAR2
790 , p5_a43 DATE
791 , p5_a44 NUMBER
792 , p5_a45 DATE
793 , p5_a46 NUMBER
794 , p5_a47 DATE
795 , p5_a48 NUMBER
796 , p5_a49 VARCHAR2
797 , p5_a50 VARCHAR2
798 , p5_a51 VARCHAR2
799 , p5_a52 VARCHAR2
800 , p5_a53 VARCHAR2
801 , p5_a54 VARCHAR2
802 , p5_a55 VARCHAR2
803 , p5_a56 VARCHAR2
804 , p5_a57 VARCHAR2
805 , p5_a58 VARCHAR2
806 , p5_a59 VARCHAR2
807 , p5_a60 VARCHAR2
808 , p5_a61 VARCHAR2
809 , p5_a62 VARCHAR2
810 , p5_a63 VARCHAR2
811 , p5_a64 VARCHAR2
812 , x_return_status out nocopy VARCHAR2
813 , x_msg_count out nocopy NUMBER
814 , x_msg_data out nocopy VARCHAR2
815 )
816
817 as
818 ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
819 ddindx binary_integer; indx binary_integer;
820 begin
821
822 -- copy data to the local IN or IN-OUT args, if any
823
824
825
826
827
828 ddp_cost_price_rec.visit_task_id := p5_a0;
829 ddp_cost_price_rec.visit_id := p5_a1;
830 ddp_cost_price_rec.mr_id := p5_a2;
831 ddp_cost_price_rec.actual_cost := p5_a3;
832 ddp_cost_price_rec.estimated_cost := p5_a4;
833 ddp_cost_price_rec.actual_price := p5_a5;
834 ddp_cost_price_rec.estimated_price := p5_a6;
835 ddp_cost_price_rec.currency := p5_a7;
836 ddp_cost_price_rec.snapshot_id := p5_a8;
837 ddp_cost_price_rec.object_version_number := p5_a9;
838 ddp_cost_price_rec.estimated_profit := p5_a10;
839 ddp_cost_price_rec.actual_profit := p5_a11;
840 ddp_cost_price_rec.outside_party_flag := p5_a12;
841 ddp_cost_price_rec.is_outside_pty_flag_updt := p5_a13;
842 ddp_cost_price_rec.is_cst_pr_info_required := p5_a14;
843 ddp_cost_price_rec.is_cst_struc_updated := p5_a15;
844 ddp_cost_price_rec.price_list_id := p5_a16;
845 ddp_cost_price_rec.price_list_name := p5_a17;
846 ddp_cost_price_rec.service_request_id := p5_a18;
847 ddp_cost_price_rec.customer_id := p5_a19;
848 ddp_cost_price_rec.organization_id := p5_a20;
849 ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p5_a21);
850 ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p5_a22);
851 ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p5_a23);
852 ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p5_a24);
853 ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p5_a25);
854 ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p5_a26);
855 ddp_cost_price_rec.task_name := p5_a27;
856 ddp_cost_price_rec.visit_task_number := p5_a28;
857 ddp_cost_price_rec.mr_title := p5_a29;
858 ddp_cost_price_rec.mr_description := p5_a30;
859 ddp_cost_price_rec.billing_item_id := p5_a31;
860 ddp_cost_price_rec.item_name := p5_a32;
861 ddp_cost_price_rec.item_description := p5_a33;
862 ddp_cost_price_rec.organization_name := p5_a34;
863 ddp_cost_price_rec.workorder_id := p5_a35;
864 ddp_cost_price_rec.master_wo_flag := p5_a36;
865 ddp_cost_price_rec.mr_session_id := p5_a37;
866 ddp_cost_price_rec.cost_session_id := p5_a38;
867 ddp_cost_price_rec.cp_request_id := p5_a39;
868 ddp_cost_price_rec.cp_phase := p5_a40;
869 ddp_cost_price_rec.cp_phase_code := p5_a41;
870 ddp_cost_price_rec.cp_status := p5_a42;
871 ddp_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p5_a43);
872 ddp_cost_price_rec.created_by := p5_a44;
873 ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p5_a45);
874 ddp_cost_price_rec.last_updated_by := p5_a46;
875 ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a47);
876 ddp_cost_price_rec.last_update_login := p5_a48;
877 ddp_cost_price_rec.attribute_category := p5_a49;
878 ddp_cost_price_rec.attribute1 := p5_a50;
879 ddp_cost_price_rec.attribute2 := p5_a51;
880 ddp_cost_price_rec.attribute3 := p5_a52;
881 ddp_cost_price_rec.attribute4 := p5_a53;
882 ddp_cost_price_rec.attribute5 := p5_a54;
883 ddp_cost_price_rec.attribute6 := p5_a55;
884 ddp_cost_price_rec.attribute7 := p5_a56;
885 ddp_cost_price_rec.attribute8 := p5_a57;
886 ddp_cost_price_rec.attribute9 := p5_a58;
887 ddp_cost_price_rec.attribute10 := p5_a59;
888 ddp_cost_price_rec.attribute11 := p5_a60;
889 ddp_cost_price_rec.attribute12 := p5_a61;
890 ddp_cost_price_rec.attribute13 := p5_a62;
891 ddp_cost_price_rec.attribute14 := p5_a63;
892 ddp_cost_price_rec.attribute15 := p5_a64;
893
894
895
896
897 -- here's the delegated call to the old PL/SQL routine
898 ahl_vwp_task_cst_pr_pvt.update_task_cost_details(p_api_version,
899 p_init_msg_list,
900 p_commit,
901 p_validation_level,
902 p_module_type,
903 ddp_cost_price_rec,
904 x_return_status,
905 x_msg_count,
906 x_msg_data);
907
908 -- copy data back from the local variables to OUT or IN-OUT args, if any
909
910
911
912
913
914
915
916
917 end;
918
919 procedure get_node_cost_details(p_api_version NUMBER
920 , p_init_msg_list VARCHAR2
921 , p_commit VARCHAR2
922 , p_validation_level NUMBER
923 , p_module_type VARCHAR2
924 , x_return_status out nocopy VARCHAR2
925 , x_msg_count out nocopy NUMBER
926 , x_msg_data out nocopy VARCHAR2
927 , p8_a0 in out nocopy NUMBER
928 , p8_a1 in out nocopy NUMBER
929 , p8_a2 in out nocopy NUMBER
930 , p8_a3 in out nocopy NUMBER
931 , p8_a4 in out nocopy NUMBER
932 , p8_a5 in out nocopy NUMBER
933 , p8_a6 in out nocopy NUMBER
934 , p8_a7 in out nocopy VARCHAR2
935 , p8_a8 in out nocopy NUMBER
936 , p8_a9 in out nocopy NUMBER
937 , p8_a10 in out nocopy NUMBER
938 , p8_a11 in out nocopy NUMBER
939 , p8_a12 in out nocopy VARCHAR2
940 , p8_a13 in out nocopy VARCHAR2
941 , p8_a14 in out nocopy VARCHAR2
942 , p8_a15 in out nocopy VARCHAR2
943 , p8_a16 in out nocopy NUMBER
944 , p8_a17 in out nocopy VARCHAR2
945 , p8_a18 in out nocopy NUMBER
946 , p8_a19 in out nocopy NUMBER
947 , p8_a20 in out nocopy NUMBER
948 , p8_a21 in out nocopy DATE
949 , p8_a22 in out nocopy DATE
950 , p8_a23 in out nocopy DATE
951 , p8_a24 in out nocopy DATE
952 , p8_a25 in out nocopy DATE
953 , p8_a26 in out nocopy DATE
954 , p8_a27 in out nocopy VARCHAR2
955 , p8_a28 in out nocopy NUMBER
956 , p8_a29 in out nocopy VARCHAR2
957 , p8_a30 in out nocopy VARCHAR2
958 , p8_a31 in out nocopy NUMBER
959 , p8_a32 in out nocopy VARCHAR2
960 , p8_a33 in out nocopy VARCHAR2
961 , p8_a34 in out nocopy VARCHAR2
962 , p8_a35 in out nocopy NUMBER
963 , p8_a36 in out nocopy VARCHAR2
964 , p8_a37 in out nocopy NUMBER
965 , p8_a38 in out nocopy NUMBER
966 , p8_a39 in out nocopy NUMBER
967 , p8_a40 in out nocopy VARCHAR2
968 , p8_a41 in out nocopy VARCHAR2
969 , p8_a42 in out nocopy VARCHAR2
970 , p8_a43 in out nocopy DATE
971 , p8_a44 in out nocopy NUMBER
972 , p8_a45 in out nocopy DATE
973 , p8_a46 in out nocopy NUMBER
974 , p8_a47 in out nocopy DATE
975 , p8_a48 in out nocopy NUMBER
976 , p8_a49 in out nocopy VARCHAR2
977 , p8_a50 in out nocopy VARCHAR2
978 , p8_a51 in out nocopy VARCHAR2
979 , p8_a52 in out nocopy VARCHAR2
980 , p8_a53 in out nocopy VARCHAR2
981 , p8_a54 in out nocopy VARCHAR2
982 , p8_a55 in out nocopy VARCHAR2
983 , p8_a56 in out nocopy VARCHAR2
984 , p8_a57 in out nocopy VARCHAR2
985 , p8_a58 in out nocopy VARCHAR2
986 , p8_a59 in out nocopy VARCHAR2
987 , p8_a60 in out nocopy VARCHAR2
988 , p8_a61 in out nocopy VARCHAR2
989 , p8_a62 in out nocopy VARCHAR2
990 , p8_a63 in out nocopy VARCHAR2
991 , p8_a64 in out nocopy VARCHAR2
992 )
993
994 as
995 ddp_x_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
996 ddindx binary_integer; indx binary_integer;
997 begin
998
999 -- copy data to the local IN or IN-OUT args, if any
1000
1001
1002
1003
1004
1005
1006
1007
1008 ddp_x_cost_price_rec.visit_task_id := p8_a0;
1009 ddp_x_cost_price_rec.visit_id := p8_a1;
1010 ddp_x_cost_price_rec.mr_id := p8_a2;
1011 ddp_x_cost_price_rec.actual_cost := p8_a3;
1012 ddp_x_cost_price_rec.estimated_cost := p8_a4;
1013 ddp_x_cost_price_rec.actual_price := p8_a5;
1014 ddp_x_cost_price_rec.estimated_price := p8_a6;
1015 ddp_x_cost_price_rec.currency := p8_a7;
1016 ddp_x_cost_price_rec.snapshot_id := p8_a8;
1017 ddp_x_cost_price_rec.object_version_number := p8_a9;
1018 ddp_x_cost_price_rec.estimated_profit := p8_a10;
1019 ddp_x_cost_price_rec.actual_profit := p8_a11;
1020 ddp_x_cost_price_rec.outside_party_flag := p8_a12;
1021 ddp_x_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
1022 ddp_x_cost_price_rec.is_cst_pr_info_required := p8_a14;
1023 ddp_x_cost_price_rec.is_cst_struc_updated := p8_a15;
1024 ddp_x_cost_price_rec.price_list_id := p8_a16;
1025 ddp_x_cost_price_rec.price_list_name := p8_a17;
1026 ddp_x_cost_price_rec.service_request_id := p8_a18;
1027 ddp_x_cost_price_rec.customer_id := p8_a19;
1028 ddp_x_cost_price_rec.organization_id := p8_a20;
1029 ddp_x_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
1030 ddp_x_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
1031 ddp_x_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
1032 ddp_x_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
1033 ddp_x_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
1034 ddp_x_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
1035 ddp_x_cost_price_rec.task_name := p8_a27;
1036 ddp_x_cost_price_rec.visit_task_number := p8_a28;
1037 ddp_x_cost_price_rec.mr_title := p8_a29;
1038 ddp_x_cost_price_rec.mr_description := p8_a30;
1039 ddp_x_cost_price_rec.billing_item_id := p8_a31;
1040 ddp_x_cost_price_rec.item_name := p8_a32;
1041 ddp_x_cost_price_rec.item_description := p8_a33;
1042 ddp_x_cost_price_rec.organization_name := p8_a34;
1043 ddp_x_cost_price_rec.workorder_id := p8_a35;
1044 ddp_x_cost_price_rec.master_wo_flag := p8_a36;
1045 ddp_x_cost_price_rec.mr_session_id := p8_a37;
1046 ddp_x_cost_price_rec.cost_session_id := p8_a38;
1047 ddp_x_cost_price_rec.cp_request_id := p8_a39;
1048 ddp_x_cost_price_rec.cp_phase := p8_a40;
1049 ddp_x_cost_price_rec.cp_phase_code := p8_a41;
1050 ddp_x_cost_price_rec.cp_status := p8_a42;
1051 ddp_x_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p8_a43);
1052 ddp_x_cost_price_rec.created_by := p8_a44;
1053 ddp_x_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a45);
1054 ddp_x_cost_price_rec.last_updated_by := p8_a46;
1055 ddp_x_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a47);
1056 ddp_x_cost_price_rec.last_update_login := p8_a48;
1057 ddp_x_cost_price_rec.attribute_category := p8_a49;
1058 ddp_x_cost_price_rec.attribute1 := p8_a50;
1059 ddp_x_cost_price_rec.attribute2 := p8_a51;
1060 ddp_x_cost_price_rec.attribute3 := p8_a52;
1061 ddp_x_cost_price_rec.attribute4 := p8_a53;
1062 ddp_x_cost_price_rec.attribute5 := p8_a54;
1063 ddp_x_cost_price_rec.attribute6 := p8_a55;
1064 ddp_x_cost_price_rec.attribute7 := p8_a56;
1065 ddp_x_cost_price_rec.attribute8 := p8_a57;
1066 ddp_x_cost_price_rec.attribute9 := p8_a58;
1067 ddp_x_cost_price_rec.attribute10 := p8_a59;
1068 ddp_x_cost_price_rec.attribute11 := p8_a60;
1069 ddp_x_cost_price_rec.attribute12 := p8_a61;
1070 ddp_x_cost_price_rec.attribute13 := p8_a62;
1071 ddp_x_cost_price_rec.attribute14 := p8_a63;
1072 ddp_x_cost_price_rec.attribute15 := p8_a64;
1073
1074 -- here's the delegated call to the old PL/SQL routine
1075 ahl_vwp_task_cst_pr_pvt.get_node_cost_details(p_api_version,
1076 p_init_msg_list,
1077 p_commit,
1078 p_validation_level,
1079 p_module_type,
1080 x_return_status,
1081 x_msg_count,
1082 x_msg_data,
1083 ddp_x_cost_price_rec);
1084
1085 -- copy data back from the local variables to OUT or IN-OUT args, if any
1086
1087
1088
1089
1090
1091
1092
1093
1094 p8_a0 := ddp_x_cost_price_rec.visit_task_id;
1095 p8_a1 := ddp_x_cost_price_rec.visit_id;
1096 p8_a2 := ddp_x_cost_price_rec.mr_id;
1097 p8_a3 := ddp_x_cost_price_rec.actual_cost;
1098 p8_a4 := ddp_x_cost_price_rec.estimated_cost;
1099 p8_a5 := ddp_x_cost_price_rec.actual_price;
1100 p8_a6 := ddp_x_cost_price_rec.estimated_price;
1101 p8_a7 := ddp_x_cost_price_rec.currency;
1102 p8_a8 := ddp_x_cost_price_rec.snapshot_id;
1103 p8_a9 := ddp_x_cost_price_rec.object_version_number;
1104 p8_a10 := ddp_x_cost_price_rec.estimated_profit;
1105 p8_a11 := ddp_x_cost_price_rec.actual_profit;
1106 p8_a12 := ddp_x_cost_price_rec.outside_party_flag;
1107 p8_a13 := ddp_x_cost_price_rec.is_outside_pty_flag_updt;
1108 p8_a14 := ddp_x_cost_price_rec.is_cst_pr_info_required;
1109 p8_a15 := ddp_x_cost_price_rec.is_cst_struc_updated;
1110 p8_a16 := ddp_x_cost_price_rec.price_list_id;
1111 p8_a17 := ddp_x_cost_price_rec.price_list_name;
1112 p8_a18 := ddp_x_cost_price_rec.service_request_id;
1113 p8_a19 := ddp_x_cost_price_rec.customer_id;
1114 p8_a20 := ddp_x_cost_price_rec.organization_id;
1115 p8_a21 := ddp_x_cost_price_rec.visit_start_date;
1116 p8_a22 := ddp_x_cost_price_rec.visit_end_date;
1117 p8_a23 := ddp_x_cost_price_rec.mr_start_date;
1118 p8_a24 := ddp_x_cost_price_rec.mr_end_date;
1119 p8_a25 := ddp_x_cost_price_rec.task_start_date;
1120 p8_a26 := ddp_x_cost_price_rec.task_end_date;
1121 p8_a27 := ddp_x_cost_price_rec.task_name;
1122 p8_a28 := ddp_x_cost_price_rec.visit_task_number;
1123 p8_a29 := ddp_x_cost_price_rec.mr_title;
1124 p8_a30 := ddp_x_cost_price_rec.mr_description;
1125 p8_a31 := ddp_x_cost_price_rec.billing_item_id;
1126 p8_a32 := ddp_x_cost_price_rec.item_name;
1127 p8_a33 := ddp_x_cost_price_rec.item_description;
1128 p8_a34 := ddp_x_cost_price_rec.organization_name;
1129 p8_a35 := ddp_x_cost_price_rec.workorder_id;
1130 p8_a36 := ddp_x_cost_price_rec.master_wo_flag;
1131 p8_a37 := ddp_x_cost_price_rec.mr_session_id;
1132 p8_a38 := ddp_x_cost_price_rec.cost_session_id;
1133 p8_a39 := ddp_x_cost_price_rec.cp_request_id;
1134 p8_a40 := ddp_x_cost_price_rec.cp_phase;
1135 p8_a41 := ddp_x_cost_price_rec.cp_phase_code;
1136 p8_a42 := ddp_x_cost_price_rec.cp_status;
1137 p8_a43 := ddp_x_cost_price_rec.cp_request_date;
1138 p8_a44 := ddp_x_cost_price_rec.created_by;
1139 p8_a45 := ddp_x_cost_price_rec.creation_date;
1140 p8_a46 := ddp_x_cost_price_rec.last_updated_by;
1141 p8_a47 := ddp_x_cost_price_rec.last_update_date;
1142 p8_a48 := ddp_x_cost_price_rec.last_update_login;
1143 p8_a49 := ddp_x_cost_price_rec.attribute_category;
1144 p8_a50 := ddp_x_cost_price_rec.attribute1;
1145 p8_a51 := ddp_x_cost_price_rec.attribute2;
1146 p8_a52 := ddp_x_cost_price_rec.attribute3;
1147 p8_a53 := ddp_x_cost_price_rec.attribute4;
1148 p8_a54 := ddp_x_cost_price_rec.attribute5;
1149 p8_a55 := ddp_x_cost_price_rec.attribute6;
1150 p8_a56 := ddp_x_cost_price_rec.attribute7;
1151 p8_a57 := ddp_x_cost_price_rec.attribute8;
1152 p8_a58 := ddp_x_cost_price_rec.attribute9;
1153 p8_a59 := ddp_x_cost_price_rec.attribute10;
1154 p8_a60 := ddp_x_cost_price_rec.attribute11;
1155 p8_a61 := ddp_x_cost_price_rec.attribute12;
1156 p8_a62 := ddp_x_cost_price_rec.attribute13;
1157 p8_a63 := ddp_x_cost_price_rec.attribute14;
1158 p8_a64 := ddp_x_cost_price_rec.attribute15;
1159 end;
1160
1161 procedure get_task_items_no_price(p_api_version NUMBER
1162 , p_init_msg_list VARCHAR2
1163 , p_commit VARCHAR2
1164 , p_validation_level NUMBER
1165 , p_module_type VARCHAR2
1166 , x_return_status out nocopy VARCHAR2
1167 , x_msg_count out nocopy NUMBER
1168 , x_msg_data out nocopy VARCHAR2
1169 , p8_a0 NUMBER
1170 , p8_a1 NUMBER
1171 , p8_a2 NUMBER
1172 , p8_a3 NUMBER
1173 , p8_a4 NUMBER
1174 , p8_a5 NUMBER
1175 , p8_a6 NUMBER
1176 , p8_a7 VARCHAR2
1177 , p8_a8 NUMBER
1178 , p8_a9 NUMBER
1179 , p8_a10 NUMBER
1180 , p8_a11 NUMBER
1181 , p8_a12 VARCHAR2
1182 , p8_a13 VARCHAR2
1183 , p8_a14 VARCHAR2
1184 , p8_a15 VARCHAR2
1185 , p8_a16 NUMBER
1186 , p8_a17 VARCHAR2
1187 , p8_a18 NUMBER
1188 , p8_a19 NUMBER
1189 , p8_a20 NUMBER
1190 , p8_a21 DATE
1191 , p8_a22 DATE
1192 , p8_a23 DATE
1193 , p8_a24 DATE
1194 , p8_a25 DATE
1195 , p8_a26 DATE
1196 , p8_a27 VARCHAR2
1197 , p8_a28 NUMBER
1198 , p8_a29 VARCHAR2
1199 , p8_a30 VARCHAR2
1200 , p8_a31 NUMBER
1201 , p8_a32 VARCHAR2
1202 , p8_a33 VARCHAR2
1203 , p8_a34 VARCHAR2
1204 , p8_a35 NUMBER
1205 , p8_a36 VARCHAR2
1206 , p8_a37 NUMBER
1207 , p8_a38 NUMBER
1208 , p8_a39 NUMBER
1209 , p8_a40 VARCHAR2
1210 , p8_a41 VARCHAR2
1211 , p8_a42 VARCHAR2
1212 , p8_a43 DATE
1213 , p8_a44 NUMBER
1214 , p8_a45 DATE
1215 , p8_a46 NUMBER
1216 , p8_a47 DATE
1217 , p8_a48 NUMBER
1218 , p8_a49 VARCHAR2
1219 , p8_a50 VARCHAR2
1220 , p8_a51 VARCHAR2
1221 , p8_a52 VARCHAR2
1222 , p8_a53 VARCHAR2
1223 , p8_a54 VARCHAR2
1224 , p8_a55 VARCHAR2
1225 , p8_a56 VARCHAR2
1226 , p8_a57 VARCHAR2
1227 , p8_a58 VARCHAR2
1228 , p8_a59 VARCHAR2
1229 , p8_a60 VARCHAR2
1230 , p8_a61 VARCHAR2
1231 , p8_a62 VARCHAR2
1232 , p8_a63 VARCHAR2
1233 , p8_a64 VARCHAR2
1234 , p9_a0 out nocopy JTF_NUMBER_TABLE
1235 , p9_a1 out nocopy JTF_NUMBER_TABLE
1236 , p9_a2 out nocopy JTF_NUMBER_TABLE
1237 , p9_a3 out nocopy JTF_NUMBER_TABLE
1238 , p9_a4 out nocopy JTF_NUMBER_TABLE
1239 , p9_a5 out nocopy JTF_NUMBER_TABLE
1240 , p9_a6 out nocopy JTF_NUMBER_TABLE
1241 , p9_a7 out nocopy JTF_VARCHAR2_TABLE_100
1242 , p9_a8 out nocopy JTF_NUMBER_TABLE
1243 , p9_a9 out nocopy JTF_NUMBER_TABLE
1244 , p9_a10 out nocopy JTF_NUMBER_TABLE
1245 , p9_a11 out nocopy JTF_NUMBER_TABLE
1246 , p9_a12 out nocopy JTF_VARCHAR2_TABLE_100
1247 , p9_a13 out nocopy JTF_VARCHAR2_TABLE_100
1248 , p9_a14 out nocopy JTF_VARCHAR2_TABLE_100
1249 , p9_a15 out nocopy JTF_VARCHAR2_TABLE_100
1250 , p9_a16 out nocopy JTF_NUMBER_TABLE
1251 , p9_a17 out nocopy JTF_VARCHAR2_TABLE_100
1252 , p9_a18 out nocopy JTF_NUMBER_TABLE
1253 , p9_a19 out nocopy JTF_NUMBER_TABLE
1254 , p9_a20 out nocopy JTF_NUMBER_TABLE
1255 , p9_a21 out nocopy JTF_DATE_TABLE
1256 , p9_a22 out nocopy JTF_DATE_TABLE
1257 , p9_a23 out nocopy JTF_DATE_TABLE
1258 , p9_a24 out nocopy JTF_DATE_TABLE
1259 , p9_a25 out nocopy JTF_DATE_TABLE
1260 , p9_a26 out nocopy JTF_DATE_TABLE
1261 , p9_a27 out nocopy JTF_VARCHAR2_TABLE_100
1262 , p9_a28 out nocopy JTF_NUMBER_TABLE
1263 , p9_a29 out nocopy JTF_VARCHAR2_TABLE_100
1264 , p9_a30 out nocopy JTF_VARCHAR2_TABLE_2000
1265 , p9_a31 out nocopy JTF_NUMBER_TABLE
1266 , p9_a32 out nocopy JTF_VARCHAR2_TABLE_400
1267 , p9_a33 out nocopy JTF_VARCHAR2_TABLE_300
1268 , p9_a34 out nocopy JTF_VARCHAR2_TABLE_300
1269 , p9_a35 out nocopy JTF_NUMBER_TABLE
1270 , p9_a36 out nocopy JTF_VARCHAR2_TABLE_100
1271 , p9_a37 out nocopy JTF_NUMBER_TABLE
1272 , p9_a38 out nocopy JTF_NUMBER_TABLE
1273 , p9_a39 out nocopy JTF_NUMBER_TABLE
1274 , p9_a40 out nocopy JTF_VARCHAR2_TABLE_100
1275 , p9_a41 out nocopy JTF_VARCHAR2_TABLE_100
1276 , p9_a42 out nocopy JTF_VARCHAR2_TABLE_100
1277 , p9_a43 out nocopy JTF_DATE_TABLE
1278 , p9_a44 out nocopy JTF_NUMBER_TABLE
1279 , p9_a45 out nocopy JTF_DATE_TABLE
1280 , p9_a46 out nocopy JTF_NUMBER_TABLE
1281 , p9_a47 out nocopy JTF_DATE_TABLE
1282 , p9_a48 out nocopy JTF_NUMBER_TABLE
1283 , p9_a49 out nocopy JTF_VARCHAR2_TABLE_100
1284 , p9_a50 out nocopy JTF_VARCHAR2_TABLE_200
1285 , p9_a51 out nocopy JTF_VARCHAR2_TABLE_200
1286 , p9_a52 out nocopy JTF_VARCHAR2_TABLE_200
1287 , p9_a53 out nocopy JTF_VARCHAR2_TABLE_200
1288 , p9_a54 out nocopy JTF_VARCHAR2_TABLE_200
1289 , p9_a55 out nocopy JTF_VARCHAR2_TABLE_200
1290 , p9_a56 out nocopy JTF_VARCHAR2_TABLE_200
1291 , p9_a57 out nocopy JTF_VARCHAR2_TABLE_200
1292 , p9_a58 out nocopy JTF_VARCHAR2_TABLE_200
1293 , p9_a59 out nocopy JTF_VARCHAR2_TABLE_200
1294 , p9_a60 out nocopy JTF_VARCHAR2_TABLE_200
1295 , p9_a61 out nocopy JTF_VARCHAR2_TABLE_200
1296 , p9_a62 out nocopy JTF_VARCHAR2_TABLE_200
1297 , p9_a63 out nocopy JTF_VARCHAR2_TABLE_200
1298 , p9_a64 out nocopy JTF_VARCHAR2_TABLE_200
1299 )
1300
1301 as
1302 ddp_cost_price_rec ahl_vwp_visit_cst_pr_pvt.cost_price_rec_type;
1303 ddx_cost_price_tbl ahl_vwp_visit_cst_pr_pvt.cost_price_tbl_type;
1304 ddindx binary_integer; indx binary_integer;
1305 begin
1306
1307 -- copy data to the local IN or IN-OUT args, if any
1308
1309
1310
1311
1312
1313
1314
1315
1316 ddp_cost_price_rec.visit_task_id := p8_a0;
1317 ddp_cost_price_rec.visit_id := p8_a1;
1318 ddp_cost_price_rec.mr_id := p8_a2;
1319 ddp_cost_price_rec.actual_cost := p8_a3;
1320 ddp_cost_price_rec.estimated_cost := p8_a4;
1321 ddp_cost_price_rec.actual_price := p8_a5;
1322 ddp_cost_price_rec.estimated_price := p8_a6;
1323 ddp_cost_price_rec.currency := p8_a7;
1324 ddp_cost_price_rec.snapshot_id := p8_a8;
1325 ddp_cost_price_rec.object_version_number := p8_a9;
1326 ddp_cost_price_rec.estimated_profit := p8_a10;
1327 ddp_cost_price_rec.actual_profit := p8_a11;
1328 ddp_cost_price_rec.outside_party_flag := p8_a12;
1329 ddp_cost_price_rec.is_outside_pty_flag_updt := p8_a13;
1330 ddp_cost_price_rec.is_cst_pr_info_required := p8_a14;
1331 ddp_cost_price_rec.is_cst_struc_updated := p8_a15;
1332 ddp_cost_price_rec.price_list_id := p8_a16;
1333 ddp_cost_price_rec.price_list_name := p8_a17;
1334 ddp_cost_price_rec.service_request_id := p8_a18;
1335 ddp_cost_price_rec.customer_id := p8_a19;
1336 ddp_cost_price_rec.organization_id := p8_a20;
1337 ddp_cost_price_rec.visit_start_date := rosetta_g_miss_date_in_map(p8_a21);
1338 ddp_cost_price_rec.visit_end_date := rosetta_g_miss_date_in_map(p8_a22);
1339 ddp_cost_price_rec.mr_start_date := rosetta_g_miss_date_in_map(p8_a23);
1340 ddp_cost_price_rec.mr_end_date := rosetta_g_miss_date_in_map(p8_a24);
1341 ddp_cost_price_rec.task_start_date := rosetta_g_miss_date_in_map(p8_a25);
1342 ddp_cost_price_rec.task_end_date := rosetta_g_miss_date_in_map(p8_a26);
1343 ddp_cost_price_rec.task_name := p8_a27;
1344 ddp_cost_price_rec.visit_task_number := p8_a28;
1345 ddp_cost_price_rec.mr_title := p8_a29;
1346 ddp_cost_price_rec.mr_description := p8_a30;
1347 ddp_cost_price_rec.billing_item_id := p8_a31;
1348 ddp_cost_price_rec.item_name := p8_a32;
1349 ddp_cost_price_rec.item_description := p8_a33;
1350 ddp_cost_price_rec.organization_name := p8_a34;
1351 ddp_cost_price_rec.workorder_id := p8_a35;
1352 ddp_cost_price_rec.master_wo_flag := p8_a36;
1353 ddp_cost_price_rec.mr_session_id := p8_a37;
1354 ddp_cost_price_rec.cost_session_id := p8_a38;
1355 ddp_cost_price_rec.cp_request_id := p8_a39;
1356 ddp_cost_price_rec.cp_phase := p8_a40;
1357 ddp_cost_price_rec.cp_phase_code := p8_a41;
1358 ddp_cost_price_rec.cp_status := p8_a42;
1359 ddp_cost_price_rec.cp_request_date := rosetta_g_miss_date_in_map(p8_a43);
1360 ddp_cost_price_rec.created_by := p8_a44;
1361 ddp_cost_price_rec.creation_date := rosetta_g_miss_date_in_map(p8_a45);
1362 ddp_cost_price_rec.last_updated_by := p8_a46;
1363 ddp_cost_price_rec.last_update_date := rosetta_g_miss_date_in_map(p8_a47);
1364 ddp_cost_price_rec.last_update_login := p8_a48;
1365 ddp_cost_price_rec.attribute_category := p8_a49;
1366 ddp_cost_price_rec.attribute1 := p8_a50;
1367 ddp_cost_price_rec.attribute2 := p8_a51;
1368 ddp_cost_price_rec.attribute3 := p8_a52;
1369 ddp_cost_price_rec.attribute4 := p8_a53;
1370 ddp_cost_price_rec.attribute5 := p8_a54;
1371 ddp_cost_price_rec.attribute6 := p8_a55;
1372 ddp_cost_price_rec.attribute7 := p8_a56;
1373 ddp_cost_price_rec.attribute8 := p8_a57;
1374 ddp_cost_price_rec.attribute9 := p8_a58;
1375 ddp_cost_price_rec.attribute10 := p8_a59;
1376 ddp_cost_price_rec.attribute11 := p8_a60;
1377 ddp_cost_price_rec.attribute12 := p8_a61;
1378 ddp_cost_price_rec.attribute13 := p8_a62;
1379 ddp_cost_price_rec.attribute14 := p8_a63;
1380 ddp_cost_price_rec.attribute15 := p8_a64;
1381
1382
1383 -- here's the delegated call to the old PL/SQL routine
1384 ahl_vwp_task_cst_pr_pvt.get_task_items_no_price(p_api_version,
1385 p_init_msg_list,
1386 p_commit,
1387 p_validation_level,
1388 p_module_type,
1389 x_return_status,
1390 x_msg_count,
1391 x_msg_data,
1392 ddp_cost_price_rec,
1393 ddx_cost_price_tbl);
1394
1395 -- copy data back from the local variables to OUT or IN-OUT args, if any
1396
1397
1398
1399
1400
1401
1402
1403
1404
1405 ahl_vwp_visit_cst_pr_pvt_w.rosetta_table_copy_out_p1(ddx_cost_price_tbl, p9_a0
1406 , p9_a1
1407 , p9_a2
1408 , p9_a3
1409 , p9_a4
1410 , p9_a5
1411 , p9_a6
1412 , p9_a7
1413 , p9_a8
1414 , p9_a9
1415 , p9_a10
1416 , p9_a11
1417 , p9_a12
1418 , p9_a13
1419 , p9_a14
1420 , p9_a15
1421 , p9_a16
1422 , p9_a17
1423 , p9_a18
1424 , p9_a19
1425 , p9_a20
1426 , p9_a21
1427 , p9_a22
1428 , p9_a23
1429 , p9_a24
1430 , p9_a25
1431 , p9_a26
1432 , p9_a27
1433 , p9_a28
1434 , p9_a29
1435 , p9_a30
1436 , p9_a31
1437 , p9_a32
1438 , p9_a33
1439 , p9_a34
1440 , p9_a35
1441 , p9_a36
1442 , p9_a37
1443 , p9_a38
1444 , p9_a39
1445 , p9_a40
1446 , p9_a41
1447 , p9_a42
1448 , p9_a43
1449 , p9_a44
1450 , p9_a45
1451 , p9_a46
1452 , p9_a47
1453 , p9_a48
1454 , p9_a49
1455 , p9_a50
1456 , p9_a51
1457 , p9_a52
1458 , p9_a53
1459 , p9_a54
1460 , p9_a55
1461 , p9_a56
1462 , p9_a57
1463 , p9_a58
1464 , p9_a59
1465 , p9_a60
1466 , p9_a61
1467 , p9_a62
1468 , p9_a63
1469 , p9_a64
1470 );
1471 end;
1472
1473 end ahl_vwp_task_cst_pr_pvt_w;