1: package body cn_imp_maps_pvt_w as
2: /* $Header: cnwimmpb.pls 120.4 2006/03/23 00:42 hanaraya 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');
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 rosetta_table_copy_in_p0(t out nocopy cn_imp_maps_pvt.v_tbl_type, a0 JTF_VARCHAR2_TABLE_200) as
17: ddindx binary_integer; indx binary_integer;
18: begin
19: if a0 is not null and a0.count > 0 then
20: if a0.count > 0 then
30: end loop;
31: end if;
32: end if;
33: end rosetta_table_copy_in_p0;
34: procedure rosetta_table_copy_out_p0(t cn_imp_maps_pvt.v_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200) as
35: ddindx binary_integer; indx binary_integer;
36: begin
37: if t is null or t.count = 0 then
38: a0 := JTF_VARCHAR2_TABLE_200();
53: end if;
54: end if;
55: end rosetta_table_copy_out_p0;
56:
57: procedure rosetta_table_copy_in_p6(t out nocopy cn_imp_maps_pvt.map_field_tbl_type, a0 JTF_VARCHAR2_TABLE_200
58: , a1 JTF_VARCHAR2_TABLE_200
59: , a2 JTF_VARCHAR2_TABLE_200
60: ) as
61: ddindx binary_integer; indx binary_integer;
76: end loop;
77: end if;
78: end if;
79: end rosetta_table_copy_in_p6;
80: procedure rosetta_table_copy_out_p6(t cn_imp_maps_pvt.map_field_tbl_type, a0 out nocopy JTF_VARCHAR2_TABLE_200
81: , a1 out nocopy JTF_VARCHAR2_TABLE_200
82: , a2 out nocopy JTF_VARCHAR2_TABLE_200
83: ) as
84: ddindx binary_integer; indx binary_integer;
153: , p_org_id NUMBER
154: )
155:
156: as
157: ddp_imp_map cn_imp_maps_pvt.imp_maps_rec_type;
158: ddp_source_fields cn_imp_maps_pvt.map_field_tbl_type;
159: ddp_target_fields cn_imp_maps_pvt.v_tbl_type;
160: ddindx binary_integer; indx binary_integer;
161: begin
154: )
155:
156: as
157: ddp_imp_map cn_imp_maps_pvt.imp_maps_rec_type;
158: ddp_source_fields cn_imp_maps_pvt.map_field_tbl_type;
159: ddp_target_fields cn_imp_maps_pvt.v_tbl_type;
160: ddindx binary_integer; indx binary_integer;
161: begin
162:
155:
156: as
157: ddp_imp_map cn_imp_maps_pvt.imp_maps_rec_type;
158: ddp_source_fields cn_imp_maps_pvt.map_field_tbl_type;
159: ddp_target_fields cn_imp_maps_pvt.v_tbl_type;
160: ddindx binary_integer; indx binary_integer;
161: begin
162:
163: -- copy data to the local IN or IN-OUT args, if any
195: ddp_imp_map.last_update_date := rosetta_g_miss_date_in_map(p9_a22);
196: ddp_imp_map.last_updated_by := p9_a23;
197: ddp_imp_map.last_update_login := p9_a24;
198:
199: cn_imp_maps_pvt_w.rosetta_table_copy_in_p6(ddp_source_fields, p10_a0
200: , p10_a1
201: , p10_a2
202: );
203:
200: , p10_a1
201: , p10_a2
202: );
203:
204: cn_imp_maps_pvt_w.rosetta_table_copy_in_p0(ddp_target_fields, p_target_fields);
205:
206:
207:
208: -- here's the delegated call to the old PL/SQL routine
205:
206:
207:
208: -- here's the delegated call to the old PL/SQL routine
209: cn_imp_maps_pvt.create_mapping(p_api_version,
210: p_init_msg_list,
211: p_commit,
212: p_validation_level,
213: x_return_status,
259: , p_org_id NUMBER
260: )
261:
262: as
263: ddx_source_fields cn_imp_maps_pvt.map_field_tbl_type;
264: ddx_target_fields cn_imp_maps_pvt.map_field_tbl_type;
265: ddx_mapped_fields cn_imp_maps_pvt.map_field_tbl_type;
266: ddindx binary_integer; indx binary_integer;
267: begin
260: )
261:
262: as
263: ddx_source_fields cn_imp_maps_pvt.map_field_tbl_type;
264: ddx_target_fields cn_imp_maps_pvt.map_field_tbl_type;
265: ddx_mapped_fields cn_imp_maps_pvt.map_field_tbl_type;
266: ddindx binary_integer; indx binary_integer;
267: begin
268:
261:
262: as
263: ddx_source_fields cn_imp_maps_pvt.map_field_tbl_type;
264: ddx_target_fields cn_imp_maps_pvt.map_field_tbl_type;
265: ddx_mapped_fields cn_imp_maps_pvt.map_field_tbl_type;
266: ddindx binary_integer; indx binary_integer;
267: begin
268:
269: -- copy data to the local IN or IN-OUT args, if any
281:
282:
283:
284: -- here's the delegated call to the old PL/SQL routine
285: cn_imp_maps_pvt.retrieve_fields(p_api_version,
286: p_init_msg_list,
287: p_commit,
288: p_validation_level,
289: x_return_status,
306:
307:
308:
309:
310: cn_imp_maps_pvt_w.rosetta_table_copy_out_p6(ddx_source_fields, p9_a0
311: , p9_a1
312: , p9_a2
313: );
314:
311: , p9_a1
312: , p9_a2
313: );
314:
315: cn_imp_maps_pvt_w.rosetta_table_copy_out_p6(ddx_target_fields, p10_a0
316: , p10_a1
317: , p10_a2
318: );
319:
316: , p10_a1
317: , p10_a2
318: );
319:
320: cn_imp_maps_pvt_w.rosetta_table_copy_out_p6(ddx_mapped_fields, p11_a0
321: , p11_a1
322: , p11_a2
323: );
324:
360: , x_imp_map_id out nocopy NUMBER
361: )
362:
363: as
364: ddp_imp_map cn_imp_maps_pvt.imp_maps_rec_type;
365: ddindx binary_integer; indx binary_integer;
366: begin
367:
368: -- copy data to the local IN or IN-OUT args, if any
400: ddp_imp_map.last_update_login := p7_a24;
401:
402:
403: -- here's the delegated call to the old PL/SQL routine
404: cn_imp_maps_pvt.create_imp_map(p_api_version,
405: p_init_msg_list,
406: p_commit,
407: p_validation_level,
408: x_return_status,
456: , p7_a24 NUMBER
457: )
458:
459: as
460: ddp_imp_map cn_imp_maps_pvt.imp_maps_rec_type;
461: ddindx binary_integer; indx binary_integer;
462: begin
463:
464: -- copy data to the local IN or IN-OUT args, if any
495: ddp_imp_map.last_updated_by := p7_a23;
496: ddp_imp_map.last_update_login := p7_a24;
497:
498: -- here's the delegated call to the old PL/SQL routine
499: cn_imp_maps_pvt.delete_imp_map(p_api_version,
500: p_init_msg_list,
501: p_commit,
502: p_validation_level,
503: x_return_status,
514:
515:
516: end;
517:
518: end cn_imp_maps_pvt_w;