[Home] [Help]
PACKAGE BODY: APPS.EAM_CONSTRUCTION_EST_PUB_W
Source
1 package body eam_construction_est_pub_w as
2 /* $Header: EAMPCEWB.pls 120.0.12010000.3 2009/01/03 00:08:14 devijay noship $ */
3 rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4 rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 rosetta_g_mistake_date_high date := to_date('01/01/+4710', 'MM/DD/SYYYY');
6 rosetta_g_mistake_date_low date := to_date('01/01/-4710', 'MM/DD/SYYYY');
7
8 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
9 function rosetta_g_miss_date_in_map(d date) return date as
10 begin
11 if d > rosetta_g_mistake_date_high then return fnd_api.g_miss_date; end if;
12 if d < rosetta_g_mistake_date_low then return fnd_api.g_miss_date; end if;
13 return d;
14 end;
15
16 function rosetta_g_miss_num_map(n number) return number as
17 a number := fnd_api.g_miss_num;
18 b number := 0-1962.0724;
19 begin
20 if n=a then return b; end if;
21 if n=b then return a; end if;
22 return n;
23 end;
24
25 procedure explode_initial_estimate(p_api_version NUMBER
26 , p_init_msg_list VARCHAR2
27 , p_commit VARCHAR2
28 , p_estimate_id NUMBER
29 , p4_a0 out nocopy JTF_NUMBER_TABLE
30 , p4_a1 out nocopy JTF_VARCHAR2_TABLE_100
31 , p4_a2 out nocopy JTF_VARCHAR2_TABLE_2000
32 , p4_a3 out nocopy JTF_NUMBER_TABLE
33 , p4_a4 out nocopy JTF_VARCHAR2_TABLE_100
34 , p4_a5 out nocopy JTF_VARCHAR2_TABLE_100
35 , x_return_status out nocopy VARCHAR2
36 , x_msg_count out nocopy NUMBER
37 , x_msg_data out nocopy VARCHAR2
38 )
39
40 as
41 ddx_ce_msg_tbl eam_est_datastructures_pub.eam_ce_message_tbl;
42 ddindx binary_integer; indx binary_integer;
43 begin
44
45 -- copy data to the local IN or IN-OUT args, if any
46
47
48
49
50
51
52
53
54 -- here's the delegated call to the old PL/SQL routine
55 eam_construction_est_pub.explode_initial_estimate(p_api_version,
56 p_init_msg_list,
57 p_commit,
58 p_estimate_id,
59 ddx_ce_msg_tbl,
60 x_return_status,
61 x_msg_count,
62 x_msg_data);
63
64 -- copy data back from the local variables to OUT or IN-OUT args, if any
65
66
67
68
69 eam_est_datastructures_pub_w.rosetta_table_copy_out_p3(ddx_ce_msg_tbl, p4_a0
70 , p4_a1
71 , p4_a2
72 , p4_a3
73 , p4_a4
74 , p4_a5
75 );
76
77
78
79 end;
80
81 procedure insert_all_wo_lines(p_api_version NUMBER
82 , p_init_msg_list VARCHAR2
83 , p_commit VARCHAR2
84 , p_estimate_id NUMBER
85 , p4_a0 JTF_NUMBER_TABLE
86 , p4_a1 JTF_NUMBER_TABLE
87 , p4_a2 JTF_NUMBER_TABLE
88 , p4_a3 JTF_NUMBER_TABLE
89 , p4_a4 JTF_NUMBER_TABLE
90 , p4_a5 JTF_VARCHAR2_TABLE_100
91 , p4_a6 JTF_NUMBER_TABLE
92 , p4_a7 JTF_NUMBER_TABLE
93 , p4_a8 JTF_NUMBER_TABLE
94 , p4_a9 JTF_VARCHAR2_TABLE_100
95 , p4_a10 JTF_VARCHAR2_TABLE_300
96 , p4_a11 JTF_NUMBER_TABLE
97 , p4_a12 JTF_NUMBER_TABLE
98 , p4_a13 JTF_NUMBER_TABLE
99 , p4_a14 JTF_VARCHAR2_TABLE_100
100 , p4_a15 JTF_DATE_TABLE
101 , p4_a16 JTF_DATE_TABLE
102 , p4_a17 JTF_NUMBER_TABLE
103 , p4_a18 JTF_NUMBER_TABLE
104 , p4_a19 JTF_NUMBER_TABLE
105 , p4_a20 JTF_NUMBER_TABLE
106 , p4_a21 JTF_NUMBER_TABLE
107 , p4_a22 JTF_NUMBER_TABLE
108 , p4_a23 JTF_NUMBER_TABLE
109 , p4_a24 JTF_NUMBER_TABLE
110 , p4_a25 JTF_VARCHAR2_TABLE_300
111 , p4_a26 JTF_NUMBER_TABLE
112 , p4_a27 JTF_NUMBER_TABLE
113 , p4_a28 JTF_VARCHAR2_TABLE_4000
114 , p4_a29 JTF_NUMBER_TABLE
115 , p4_a30 JTF_NUMBER_TABLE
116 , p4_a31 JTF_VARCHAR2_TABLE_100
117 , p4_a32 JTF_NUMBER_TABLE
118 , p4_a33 JTF_NUMBER_TABLE
119 , p4_a34 JTF_NUMBER_TABLE
120 , p4_a35 JTF_NUMBER_TABLE
121 , p4_a36 JTF_NUMBER_TABLE
122 , p4_a37 JTF_NUMBER_TABLE
123 , p4_a38 JTF_NUMBER_TABLE
124 , p4_a39 JTF_VARCHAR2_TABLE_100
125 , p4_a40 JTF_NUMBER_TABLE
126 , p4_a41 JTF_VARCHAR2_TABLE_300
127 , p4_a42 JTF_NUMBER_TABLE
128 , p4_a43 JTF_VARCHAR2_TABLE_100
129 , p4_a44 JTF_NUMBER_TABLE
130 , p4_a45 JTF_NUMBER_TABLE
131 , p4_a46 JTF_NUMBER_TABLE
132 , p4_a47 JTF_VARCHAR2_TABLE_100
133 , p4_a48 JTF_NUMBER_TABLE
134 , p4_a49 JTF_NUMBER_TABLE
135 , p4_a50 JTF_VARCHAR2_TABLE_100
136 , p4_a51 JTF_VARCHAR2_TABLE_300
137 , p4_a52 JTF_NUMBER_TABLE
138 , p4_a53 JTF_VARCHAR2_TABLE_100
139 , p4_a54 JTF_DATE_TABLE
140 , p4_a55 JTF_NUMBER_TABLE
141 , p4_a56 JTF_NUMBER_TABLE
142 , p4_a57 JTF_NUMBER_TABLE
143 , p4_a58 JTF_NUMBER_TABLE
144 , p4_a59 JTF_VARCHAR2_TABLE_300
145 , p4_a60 JTF_NUMBER_TABLE
146 , p4_a61 JTF_NUMBER_TABLE
147 , p4_a62 JTF_NUMBER_TABLE
148 , p4_a63 JTF_NUMBER_TABLE
149 , p4_a64 JTF_NUMBER_TABLE
150 , p4_a65 JTF_NUMBER_TABLE
151 , x_return_status out nocopy VARCHAR2
152 , x_msg_count out nocopy NUMBER
153 , x_msg_data out nocopy VARCHAR2
154 )
155
156 as
157 ddp_eam_ce_wo_lines_tbl eam_est_datastructures_pub.eam_ce_work_order_lines_tbl;
158 ddindx binary_integer; indx binary_integer;
159 begin
160
161 -- copy data to the local IN or IN-OUT args, if any
162
163
164
165
166 eam_est_datastructures_pub_w.rosetta_table_copy_in_p13(ddp_eam_ce_wo_lines_tbl, p4_a0
167 , p4_a1
168 , p4_a2
169 , p4_a3
170 , p4_a4
171 , p4_a5
172 , p4_a6
173 , p4_a7
174 , p4_a8
175 , p4_a9
176 , p4_a10
177 , p4_a11
178 , p4_a12
179 , p4_a13
180 , p4_a14
181 , p4_a15
182 , p4_a16
183 , p4_a17
184 , p4_a18
185 , p4_a19
186 , p4_a20
187 , p4_a21
188 , p4_a22
189 , p4_a23
190 , p4_a24
191 , p4_a25
192 , p4_a26
193 , p4_a27
194 , p4_a28
195 , p4_a29
196 , p4_a30
197 , p4_a31
198 , p4_a32
199 , p4_a33
200 , p4_a34
201 , p4_a35
202 , p4_a36
203 , p4_a37
204 , p4_a38
205 , p4_a39
206 , p4_a40
207 , p4_a41
208 , p4_a42
209 , p4_a43
210 , p4_a44
211 , p4_a45
212 , p4_a46
213 , p4_a47
214 , p4_a48
215 , p4_a49
216 , p4_a50
217 , p4_a51
218 , p4_a52
219 , p4_a53
220 , p4_a54
221 , p4_a55
222 , p4_a56
223 , p4_a57
224 , p4_a58
225 , p4_a59
226 , p4_a60
227 , p4_a61
228 , p4_a62
229 , p4_a63
230 , p4_a64
231 , p4_a65
232 );
233
234
235
236
237 -- here's the delegated call to the old PL/SQL routine
238 eam_construction_est_pub.insert_all_wo_lines(p_api_version,
239 p_init_msg_list,
240 p_commit,
241 p_estimate_id,
242 ddp_eam_ce_wo_lines_tbl,
243 x_return_status,
244 x_msg_count,
245 x_msg_data);
246
247 -- copy data back from the local variables to OUT or IN-OUT args, if any
248
249
250
251
252
253
254
255 end;
256
257 procedure insert_parent_wo_line(p_api_version NUMBER
258 , p_init_msg_list VARCHAR2
259 , p_commit VARCHAR2
260 , p_estimate_id NUMBER
261 , x_return_status out nocopy VARCHAR2
262 , x_msg_count out nocopy NUMBER
263 , x_msg_data out nocopy VARCHAR2
264 , p4_a0 NUMBER := 0-1962.0724
265 , p4_a1 VARCHAR2 := fnd_api.g_miss_char
266 , p4_a2 NUMBER := 0-1962.0724
267 , p4_a3 NUMBER := 0-1962.0724
268 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
269 , p4_a5 NUMBER := 0-1962.0724
270 , p4_a6 NUMBER := 0-1962.0724
271 , p4_a7 NUMBER := 0-1962.0724
272 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
273 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
274 , p4_a10 NUMBER := 0-1962.0724
275 , p4_a11 NUMBER := 0-1962.0724
276 , p4_a12 DATE := fnd_api.g_miss_date
277 , p4_a13 DATE := fnd_api.g_miss_date
278 , p4_a14 NUMBER := 0-1962.0724
279 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
280 , p4_a16 NUMBER := 0-1962.0724
281 )
282
283 as
284 ddp_parent_wo_line_rec eam_est_datastructures_pub.eam_ce_parent_wo_rec;
285 ddindx binary_integer; indx binary_integer;
286 begin
287
288 -- copy data to the local IN or IN-OUT args, if any
289
290
291
292
293 ddp_parent_wo_line_rec.estimate_id := rosetta_g_miss_num_map(p4_a0);
294 ddp_parent_wo_line_rec.parent_work_order_number := p4_a1;
295 ddp_parent_wo_line_rec.organization_id := rosetta_g_miss_num_map(p4_a2);
296 ddp_parent_wo_line_rec.asset_group_id := rosetta_g_miss_num_map(p4_a3);
297 ddp_parent_wo_line_rec.asset_number := p4_a4;
298 ddp_parent_wo_line_rec.maintenance_object_id := rosetta_g_miss_num_map(p4_a5);
299 ddp_parent_wo_line_rec.maintenance_object_type := rosetta_g_miss_num_map(p4_a6);
300 ddp_parent_wo_line_rec.maintenance_object_source := rosetta_g_miss_num_map(p4_a7);
301 ddp_parent_wo_line_rec.work_order_description := p4_a8;
302 ddp_parent_wo_line_rec.acct_class_code := p4_a9;
303 ddp_parent_wo_line_rec.project_id := rosetta_g_miss_num_map(p4_a10);
304 ddp_parent_wo_line_rec.task_id := rosetta_g_miss_num_map(p4_a11);
305 ddp_parent_wo_line_rec.scheduled_start_date := rosetta_g_miss_date_in_map(p4_a12);
306 ddp_parent_wo_line_rec.scheduled_completion_date := rosetta_g_miss_date_in_map(p4_a13);
307 ddp_parent_wo_line_rec.status_type := rosetta_g_miss_num_map(p4_a14);
308 ddp_parent_wo_line_rec.create_parent_flag := p4_a15;
309 ddp_parent_wo_line_rec.owning_department_id := rosetta_g_miss_num_map(p4_a16);
310
311
312
313
314 -- here's the delegated call to the old PL/SQL routine
315 eam_construction_est_pub.insert_parent_wo_line(p_api_version,
316 p_init_msg_list,
317 p_commit,
318 p_estimate_id,
319 ddp_parent_wo_line_rec,
320 x_return_status,
321 x_msg_count,
322 x_msg_data);
323
324 -- copy data back from the local variables to OUT or IN-OUT args, if any
325
326
327
328
329
330
331
332 end;
333
334 procedure get_cu_recs(p_api_version NUMBER
335 , p_commit VARCHAR2
336 , p_init_msg_list VARCHAR2
337 , p_validation_level NUMBER
338 , p_org_id NUMBER
339 , p5_a0 in out nocopy JTF_NUMBER_TABLE
340 , p5_a1 in out nocopy JTF_VARCHAR2_TABLE_100
341 , p5_a2 in out nocopy JTF_VARCHAR2_TABLE_300
342 , p5_a3 in out nocopy JTF_NUMBER_TABLE
343 , p5_a4 in out nocopy JTF_DATE_TABLE
344 , p5_a5 in out nocopy JTF_DATE_TABLE
345 , x_return_status out nocopy VARCHAR2
346 , x_msg_count out nocopy NUMBER
347 , x_msg_data out nocopy VARCHAR2
348 )
349
350 as
351 ddpx_cu_tbl eam_est_datastructures_pub.eam_construction_units_tbl;
352 ddindx binary_integer; indx binary_integer;
353 begin
354
355 -- copy data to the local IN or IN-OUT args, if any
356
357
358
359
360
361 eam_est_datastructures_pub_w.rosetta_table_copy_in_p9(ddpx_cu_tbl, p5_a0
362 , p5_a1
363 , p5_a2
364 , p5_a3
365 , p5_a4
366 , p5_a5
367 );
368
369
370
371
372 -- here's the delegated call to the old PL/SQL routine
373 eam_construction_est_pub.get_cu_recs(p_api_version,
374 p_commit,
375 p_init_msg_list,
376 p_validation_level,
377 p_org_id,
378 ddpx_cu_tbl,
379 x_return_status,
380 x_msg_count,
381 x_msg_data);
382
383 -- copy data back from the local variables to OUT or IN-OUT args, if any
384
385
386
387
391 , p5_a2
388
389 eam_est_datastructures_pub_w.rosetta_table_copy_out_p9(ddpx_cu_tbl, p5_a0
390 , p5_a1
392 , p5_a3
393 , p5_a4
394 , p5_a5
395 );
396
397
398
399 end;
400
401 procedure get_cu_activities(p_api_version NUMBER
402 , p_commit VARCHAR2
403 , p_init_msg_list VARCHAR2
404 , p_validation_level NUMBER
405 , p_cu_id NUMBER
406 , p5_a0 out nocopy JTF_NUMBER_TABLE
407 , p5_a1 out nocopy JTF_NUMBER_TABLE
408 , p5_a2 out nocopy JTF_NUMBER_TABLE
409 , p5_a3 out nocopy JTF_NUMBER_TABLE
410 , p5_a4 out nocopy JTF_NUMBER_TABLE
411 , p5_a5 out nocopy JTF_VARCHAR2_TABLE_100
412 , p5_a6 out nocopy JTF_VARCHAR2_TABLE_300
413 , p5_a7 out nocopy JTF_VARCHAR2_TABLE_100
414 , p5_a8 out nocopy JTF_NUMBER_TABLE
415 , p5_a9 out nocopy JTF_VARCHAR2_TABLE_100
416 , p5_a10 out nocopy JTF_VARCHAR2_TABLE_300
417 , p5_a11 out nocopy JTF_NUMBER_TABLE
418 , p5_a12 out nocopy JTF_NUMBER_TABLE
419 , p5_a13 out nocopy JTF_NUMBER_TABLE
420 , x_return_status out nocopy VARCHAR2
421 , x_msg_count out nocopy NUMBER
422 , x_msg_data out nocopy VARCHAR2
423 )
424
425 as
426 ddx_activities_tbl eam_est_datastructures_pub.eam_estimate_associations_tbl;
427 ddindx binary_integer; indx binary_integer;
428 begin
429
430 -- copy data to the local IN or IN-OUT args, if any
431
432
433
434
435
436
437
438
439
440 -- here's the delegated call to the old PL/SQL routine
441 eam_construction_est_pub.get_cu_activities(p_api_version,
442 p_commit,
443 p_init_msg_list,
444 p_validation_level,
445 p_cu_id,
446 ddx_activities_tbl,
447 x_return_status,
448 x_msg_count,
449 x_msg_data);
450
451 -- copy data back from the local variables to OUT or IN-OUT args, if any
452
453
454
455
456
457 eam_est_datastructures_pub_w.rosetta_table_copy_out_p11(ddx_activities_tbl, p5_a0
458 , p5_a1
459 , p5_a2
460 , p5_a3
461 , p5_a4
462 , p5_a5
463 , p5_a6
464 , p5_a7
465 , p5_a8
466 , p5_a9
467 , p5_a10
468 , p5_a11
469 , p5_a12
470 , p5_a13
471 );
472
473
474
475 end;
476
477 procedure create_estimate(p_api_version NUMBER
478 , p_commit VARCHAR2
479 , p_init_msg_list VARCHAR2
480 , p_validation_level NUMBER
481 , p4_a0 in out nocopy NUMBER
482 , p4_a1 in out nocopy NUMBER
483 , p4_a2 in out nocopy VARCHAR2
484 , p4_a3 in out nocopy VARCHAR2
485 , p4_a4 in out nocopy NUMBER
486 , p4_a5 in out nocopy NUMBER
487 , p4_a6 in out nocopy VARCHAR2
488 , p4_a7 in out nocopy VARCHAR2
489 , p4_a8 in out nocopy VARCHAR2
490 , p4_a9 in out nocopy VARCHAR2
491 , p4_a10 in out nocopy VARCHAR2
492 , p4_a11 in out nocopy VARCHAR2
493 , p4_a12 in out nocopy VARCHAR2
494 , p4_a13 in out nocopy VARCHAR2
495 , p4_a14 in out nocopy VARCHAR2
496 , p4_a15 in out nocopy VARCHAR2
497 , p4_a16 in out nocopy VARCHAR2
498 , p4_a17 in out nocopy VARCHAR2
499 , p4_a18 in out nocopy VARCHAR2
500 , p4_a19 in out nocopy VARCHAR2
501 , p4_a20 in out nocopy VARCHAR2
502 , p4_a21 in out nocopy VARCHAR2
503 , p4_a22 in out nocopy VARCHAR2
504 , x_return_status out nocopy VARCHAR2
505 , x_msg_count out nocopy NUMBER
506 , x_msg_data out nocopy VARCHAR2
507 )
508
509 as
510 ddpx_estimate_rec eam_est_datastructures_pub.eam_construction_estimate_rec;
511 ddindx binary_integer; indx binary_integer;
512 begin
513
514 -- copy data to the local IN or IN-OUT args, if any
515
516
517
518
519 ddpx_estimate_rec.estimate_id := rosetta_g_miss_num_map(p4_a0);
520 ddpx_estimate_rec.organization_id := rosetta_g_miss_num_map(p4_a1);
521 ddpx_estimate_rec.estimate_number := p4_a2;
522 ddpx_estimate_rec.estimate_description := p4_a3;
523 ddpx_estimate_rec.grouping_option := rosetta_g_miss_num_map(p4_a4);
524 ddpx_estimate_rec.parent_wo_id := rosetta_g_miss_num_map(p4_a5);
525 ddpx_estimate_rec.create_parent_wo_flag := p4_a6;
526 ddpx_estimate_rec.attribute_category := p4_a7;
527 ddpx_estimate_rec.attribute1 := p4_a8;
528 ddpx_estimate_rec.attribute2 := p4_a9;
529 ddpx_estimate_rec.attribute3 := p4_a10;
530 ddpx_estimate_rec.attribute4 := p4_a11;
531 ddpx_estimate_rec.attribute5 := p4_a12;
532 ddpx_estimate_rec.attribute6 := p4_a13;
533 ddpx_estimate_rec.attribute7 := p4_a14;
534 ddpx_estimate_rec.attribute8 := p4_a15;
535 ddpx_estimate_rec.attribute9 := p4_a16;
536 ddpx_estimate_rec.attribute10 := p4_a17;
537 ddpx_estimate_rec.attribute11 := p4_a18;
538 ddpx_estimate_rec.attribute12 := p4_a19;
539 ddpx_estimate_rec.attribute13 := p4_a20;
540 ddpx_estimate_rec.attribute14 := p4_a21;
541 ddpx_estimate_rec.attribute15 := p4_a22;
542
543
544
545
546 -- here's the delegated call to the old PL/SQL routine
547 eam_construction_est_pub.create_estimate(p_api_version,
548 p_commit,
549 p_init_msg_list,
550 p_validation_level,
551 ddpx_estimate_rec,
552 x_return_status,
553 x_msg_count,
554 x_msg_data);
555
556 -- copy data back from the local variables to OUT or IN-OUT args, if any
557
558
562 p4_a1 := rosetta_g_miss_num_map(ddpx_estimate_rec.organization_id);
559
560
561 p4_a0 := rosetta_g_miss_num_map(ddpx_estimate_rec.estimate_id);
563 p4_a2 := ddpx_estimate_rec.estimate_number;
564 p4_a3 := ddpx_estimate_rec.estimate_description;
565 p4_a4 := rosetta_g_miss_num_map(ddpx_estimate_rec.grouping_option);
566 p4_a5 := rosetta_g_miss_num_map(ddpx_estimate_rec.parent_wo_id);
567 p4_a6 := ddpx_estimate_rec.create_parent_wo_flag;
568 p4_a7 := ddpx_estimate_rec.attribute_category;
569 p4_a8 := ddpx_estimate_rec.attribute1;
570 p4_a9 := ddpx_estimate_rec.attribute2;
571 p4_a10 := ddpx_estimate_rec.attribute3;
572 p4_a11 := ddpx_estimate_rec.attribute4;
573 p4_a12 := ddpx_estimate_rec.attribute5;
574 p4_a13 := ddpx_estimate_rec.attribute6;
575 p4_a14 := ddpx_estimate_rec.attribute7;
576 p4_a15 := ddpx_estimate_rec.attribute8;
577 p4_a16 := ddpx_estimate_rec.attribute9;
578 p4_a17 := ddpx_estimate_rec.attribute10;
579 p4_a18 := ddpx_estimate_rec.attribute11;
580 p4_a19 := ddpx_estimate_rec.attribute12;
581 p4_a20 := ddpx_estimate_rec.attribute13;
582 p4_a21 := ddpx_estimate_rec.attribute14;
583 p4_a22 := ddpx_estimate_rec.attribute15;
584
585
586
587 end;
588
589 procedure update_estimate(p_api_version NUMBER
590 , p_commit VARCHAR2
591 , p_init_msg_list VARCHAR2
592 , p_validation_level NUMBER
593 , x_return_status out nocopy VARCHAR2
594 , x_msg_count out nocopy NUMBER
595 , x_msg_data out nocopy VARCHAR2
596 , p4_a0 NUMBER := 0-1962.0724
597 , p4_a1 NUMBER := 0-1962.0724
598 , p4_a2 VARCHAR2 := fnd_api.g_miss_char
599 , p4_a3 VARCHAR2 := fnd_api.g_miss_char
600 , p4_a4 NUMBER := 0-1962.0724
601 , p4_a5 NUMBER := 0-1962.0724
602 , p4_a6 VARCHAR2 := fnd_api.g_miss_char
603 , p4_a7 VARCHAR2 := fnd_api.g_miss_char
604 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
605 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
606 , p4_a10 VARCHAR2 := fnd_api.g_miss_char
607 , p4_a11 VARCHAR2 := fnd_api.g_miss_char
608 , p4_a12 VARCHAR2 := fnd_api.g_miss_char
609 , p4_a13 VARCHAR2 := fnd_api.g_miss_char
610 , p4_a14 VARCHAR2 := fnd_api.g_miss_char
611 , p4_a15 VARCHAR2 := fnd_api.g_miss_char
612 , p4_a16 VARCHAR2 := fnd_api.g_miss_char
613 , p4_a17 VARCHAR2 := fnd_api.g_miss_char
614 , p4_a18 VARCHAR2 := fnd_api.g_miss_char
615 , p4_a19 VARCHAR2 := fnd_api.g_miss_char
616 , p4_a20 VARCHAR2 := fnd_api.g_miss_char
617 , p4_a21 VARCHAR2 := fnd_api.g_miss_char
618 , p4_a22 VARCHAR2 := fnd_api.g_miss_char
619 )
620
621 as
622 ddp_estimate_rec eam_est_datastructures_pub.eam_construction_estimate_rec;
623 ddindx binary_integer; indx binary_integer;
624 begin
625
626 -- copy data to the local IN or IN-OUT args, if any
627
628
629
630
631 ddp_estimate_rec.estimate_id := rosetta_g_miss_num_map(p4_a0);
632 ddp_estimate_rec.organization_id := rosetta_g_miss_num_map(p4_a1);
633 ddp_estimate_rec.estimate_number := p4_a2;
634 ddp_estimate_rec.estimate_description := p4_a3;
635 ddp_estimate_rec.grouping_option := rosetta_g_miss_num_map(p4_a4);
636 ddp_estimate_rec.parent_wo_id := rosetta_g_miss_num_map(p4_a5);
637 ddp_estimate_rec.create_parent_wo_flag := p4_a6;
638 ddp_estimate_rec.attribute_category := p4_a7;
639 ddp_estimate_rec.attribute1 := p4_a8;
640 ddp_estimate_rec.attribute2 := p4_a9;
641 ddp_estimate_rec.attribute3 := p4_a10;
642 ddp_estimate_rec.attribute4 := p4_a11;
643 ddp_estimate_rec.attribute5 := p4_a12;
644 ddp_estimate_rec.attribute6 := p4_a13;
645 ddp_estimate_rec.attribute7 := p4_a14;
646 ddp_estimate_rec.attribute8 := p4_a15;
647 ddp_estimate_rec.attribute9 := p4_a16;
648 ddp_estimate_rec.attribute10 := p4_a17;
649 ddp_estimate_rec.attribute11 := p4_a18;
650 ddp_estimate_rec.attribute12 := p4_a19;
651 ddp_estimate_rec.attribute13 := p4_a20;
652 ddp_estimate_rec.attribute14 := p4_a21;
653 ddp_estimate_rec.attribute15 := p4_a22;
654
655
656
657
658 -- here's the delegated call to the old PL/SQL routine
659 eam_construction_est_pub.update_estimate(p_api_version,
660 p_commit,
661 p_init_msg_list,
662 p_validation_level,
663 ddp_estimate_rec,
664 x_return_status,
665 x_msg_count,
666 x_msg_data);
667
668 -- copy data back from the local variables to OUT or IN-OUT args, if any
669
670
671
672
673
674
675
676 end;
677
678 procedure set_activities_for_ce(p_api_version NUMBER
679 , p_commit VARCHAR2
680 , p_init_msg_list VARCHAR2
681 , p_validation_level NUMBER
682 , p_ce_id NUMBER
683 , p5_a0 in out nocopy JTF_NUMBER_TABLE
684 , p5_a1 in out nocopy JTF_NUMBER_TABLE
685 , p5_a2 in out nocopy JTF_NUMBER_TABLE
686 , p5_a3 in out nocopy JTF_NUMBER_TABLE
687 , p5_a4 in out nocopy JTF_NUMBER_TABLE
688 , p5_a5 in out nocopy JTF_VARCHAR2_TABLE_100
689 , p5_a6 in out nocopy JTF_VARCHAR2_TABLE_300
690 , p5_a7 in out nocopy JTF_VARCHAR2_TABLE_100
691 , p5_a8 in out nocopy JTF_NUMBER_TABLE
692 , p5_a9 in out nocopy JTF_VARCHAR2_TABLE_100
693 , p5_a10 in out nocopy JTF_VARCHAR2_TABLE_300
694 , p5_a11 in out nocopy JTF_NUMBER_TABLE
695 , p5_a12 in out nocopy JTF_NUMBER_TABLE
696 , p5_a13 in out nocopy JTF_NUMBER_TABLE
697 , x_return_status out nocopy VARCHAR2
698 , x_msg_count out nocopy NUMBER
699 , x_msg_data out nocopy VARCHAR2
700 )
701
702 as
703 ddpx_activities_tbl eam_est_datastructures_pub.eam_estimate_associations_tbl;
704 ddindx binary_integer; indx binary_integer;
705 begin
706
707 -- copy data to the local IN or IN-OUT args, if any
708
709
710
711
712
713 eam_est_datastructures_pub_w.rosetta_table_copy_in_p11(ddpx_activities_tbl, p5_a0
714 , p5_a1
715 , p5_a2
716 , p5_a3
717 , p5_a4
718 , p5_a5
719 , p5_a6
720 , p5_a7
721 , p5_a8
722 , p5_a9
723 , p5_a10
724 , p5_a11
725 , p5_a12
726 , p5_a13
727 );
728
729
730
731
732 -- here's the delegated call to the old PL/SQL routine
733 eam_construction_est_pub.set_activities_for_ce(p_api_version,
734 p_commit,
735 p_init_msg_list,
736 p_validation_level,
737 p_ce_id,
738 ddpx_activities_tbl,
739 x_return_status,
740 x_msg_count,
741 x_msg_data);
742
743 -- copy data back from the local variables to OUT or IN-OUT args, if any
744
745
746
747
748
749 eam_est_datastructures_pub_w.rosetta_table_copy_out_p11(ddpx_activities_tbl, p5_a0
750 , p5_a1
751 , p5_a2
752 , p5_a3
753 , p5_a4
754 , p5_a5
755 , p5_a6
756 , p5_a7
757 , p5_a8
758 , p5_a9
759 , p5_a10
760 , p5_a11
761 , p5_a12
762 , p5_a13
763 );
764
765
766
767 end;
768
769 procedure update_ce_wo_lns_by_group_opt(p_api_version NUMBER
770 , p_commit VARCHAR2
771 , p_init_msg_list VARCHAR2
772 , p_validation_level NUMBER
773 , x_return_status out nocopy VARCHAR2
774 , x_msg_count out nocopy NUMBER
775 , x_msg_data out nocopy VARCHAR2
776 , p4_a0 NUMBER := 0-1962.0724
777 , p4_a1 VARCHAR2 := fnd_api.g_miss_char
778 , p4_a2 NUMBER := 0-1962.0724
779 , p4_a3 NUMBER := 0-1962.0724
780 , p4_a4 VARCHAR2 := fnd_api.g_miss_char
781 , p4_a5 NUMBER := 0-1962.0724
782 , p4_a6 NUMBER := 0-1962.0724
783 , p4_a7 NUMBER := 0-1962.0724
784 , p4_a8 VARCHAR2 := fnd_api.g_miss_char
785 , p4_a9 VARCHAR2 := fnd_api.g_miss_char
786 , p4_a10 NUMBER := 0-1962.0724
787 , p4_a11 NUMBER := 0-1962.0724
788 , p4_a12 DATE := fnd_api.g_miss_date
789 , p4_a13 DATE := fnd_api.g_miss_date
790 , p4_a14 NUMBER := 0-1962.0724
791 , p4_a15 NUMBER := 0-1962.0724
792 )
793
794 as
795 ddp_ce_wo_defaults eam_est_datastructures_pub.eam_ce_wo_defaults_rec;
796 ddindx binary_integer; indx binary_integer;
797 begin
798
799 -- copy data to the local IN or IN-OUT args, if any
800
801
802
803
807 ddp_ce_wo_defaults.asset_group_id := rosetta_g_miss_num_map(p4_a3);
804 ddp_ce_wo_defaults.estimate_id := rosetta_g_miss_num_map(p4_a0);
805 ddp_ce_wo_defaults.default_work_order_number := p4_a1;
806 ddp_ce_wo_defaults.organization_id := rosetta_g_miss_num_map(p4_a2);
808 ddp_ce_wo_defaults.asset_number := p4_a4;
809 ddp_ce_wo_defaults.maintenance_object_id := rosetta_g_miss_num_map(p4_a5);
810 ddp_ce_wo_defaults.maintenance_object_type := rosetta_g_miss_num_map(p4_a6);
811 ddp_ce_wo_defaults.maintenance_object_source := rosetta_g_miss_num_map(p4_a7);
812 ddp_ce_wo_defaults.work_order_description := p4_a8;
813 ddp_ce_wo_defaults.acct_class_code := p4_a9;
814 ddp_ce_wo_defaults.project_id := rosetta_g_miss_num_map(p4_a10);
815 ddp_ce_wo_defaults.task_id := rosetta_g_miss_num_map(p4_a11);
816 ddp_ce_wo_defaults.scheduled_start_date := rosetta_g_miss_date_in_map(p4_a12);
817 ddp_ce_wo_defaults.scheduled_completion_date := rosetta_g_miss_date_in_map(p4_a13);
818 ddp_ce_wo_defaults.user_defined_status_id := rosetta_g_miss_num_map(p4_a14);
819 ddp_ce_wo_defaults.grouping_option := rosetta_g_miss_num_map(p4_a15);
820
821
822
823
824 -- here's the delegated call to the old PL/SQL routine
825 eam_construction_est_pub.update_ce_wo_lns_by_group_opt(p_api_version,
826 p_commit,
827 p_init_msg_list,
828 p_validation_level,
829 ddp_ce_wo_defaults,
830 x_return_status,
831 x_msg_count,
832 x_msg_data);
833
834 -- copy data back from the local variables to OUT or IN-OUT args, if any
835
836
837
838
839
840
841
842 end;
843
844 end eam_construction_est_pub_w;