1: package body ibe_copy_logicalcontent_grp_w as
2: /* $Header: IBEGRCTB.pls 120.0.12010000.1 2009/12/16 05:24:47 pgoutia 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:
18: if n=b then return a; end if;
19: return n;
20: end;
21:
22: procedure rosetta_table_copy_in_p2(t out nocopy ibe_copy_logicalcontent_grp.ids_list, a0 JTF_NUMBER_TABLE) as
23: ddindx binary_integer; indx binary_integer;
24: begin
25: if a0 is null then
26: t := null;
24: begin
25: if a0 is null then
26: t := null;
27: elsif a0.count = 0 then
28: t := ibe_copy_logicalcontent_grp.ids_list();
29: else
30: if a0.count > 0 then
31: t := ibe_copy_logicalcontent_grp.ids_list();
32: t.extend(a0.count);
27: elsif a0.count = 0 then
28: t := ibe_copy_logicalcontent_grp.ids_list();
29: else
30: if a0.count > 0 then
31: t := ibe_copy_logicalcontent_grp.ids_list();
32: t.extend(a0.count);
33: indx := a0.first;
34: ddindx := 1;
35: while true loop
42: end loop;
43: end if;
44: end if;
45: end rosetta_table_copy_in_p2;
46: procedure rosetta_table_copy_out_p2(t ibe_copy_logicalcontent_grp.ids_list, a0 out nocopy JTF_NUMBER_TABLE) as
47: ddindx binary_integer; indx binary_integer;
48: begin
49: if t is null then
50: a0 := null;
81: , x_msg_data out nocopy VARCHAR2
82: )
83:
84: as
85: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
86: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
87: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
88: ddindx binary_integer; indx binary_integer;
89: begin
82: )
83:
84: as
85: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
86: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
87: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
88: ddindx binary_integer; indx binary_integer;
89: begin
90:
83:
84: as
85: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
86: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
87: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
88: ddindx binary_integer; indx binary_integer;
89: begin
90:
91: -- copy data to the local IN or IN-OUT args, if any
93:
94:
95:
96:
97: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_context_ids, p_from_context_ids);
98:
99: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_to_product_ids, p_to_product_ids);
100:
101:
95:
96:
97: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_context_ids, p_from_context_ids);
98:
99: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_to_product_ids, p_to_product_ids);
100:
101:
102:
103:
102:
103:
104:
105: -- here's the delegated call to the old PL/SQL routine
106: ibe_copy_logicalcontent_grp.copy_lgl_ctnt(p_api_version,
107: p_init_msg_list,
108: p_commit,
109: p_object_type_code,
110: p_from_product_id,
122:
123:
124:
125:
126: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_out_p2(ddx_copy_status, x_copy_status);
127:
128:
129:
130: end;
143: , x_msg_data out nocopy VARCHAR2
144: )
145:
146: as
147: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
148: ddp_from_deliverable_ids ibe_copy_logicalcontent_grp.ids_list;
149: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
150: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
151: ddindx binary_integer; indx binary_integer;
144: )
145:
146: as
147: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
148: ddp_from_deliverable_ids ibe_copy_logicalcontent_grp.ids_list;
149: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
150: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
151: ddindx binary_integer; indx binary_integer;
152: begin
145:
146: as
147: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
148: ddp_from_deliverable_ids ibe_copy_logicalcontent_grp.ids_list;
149: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
150: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
151: ddindx binary_integer; indx binary_integer;
152: begin
153:
146: as
147: ddp_from_context_ids ibe_copy_logicalcontent_grp.ids_list;
148: ddp_from_deliverable_ids ibe_copy_logicalcontent_grp.ids_list;
149: ddp_to_product_ids ibe_copy_logicalcontent_grp.ids_list;
150: ddx_copy_status ibe_copy_logicalcontent_grp.ids_list;
151: ddindx binary_integer; indx binary_integer;
152: begin
153:
154: -- copy data to the local IN or IN-OUT args, if any
156:
157:
158:
159:
160: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_context_ids, p_from_context_ids);
161:
162: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_deliverable_ids, p_from_deliverable_ids);
163:
164: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_to_product_ids, p_to_product_ids);
158:
159:
160: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_context_ids, p_from_context_ids);
161:
162: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_deliverable_ids, p_from_deliverable_ids);
163:
164: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_to_product_ids, p_to_product_ids);
165:
166:
160: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_context_ids, p_from_context_ids);
161:
162: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_from_deliverable_ids, p_from_deliverable_ids);
163:
164: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_in_p2(ddp_to_product_ids, p_to_product_ids);
165:
166:
167:
168:
167:
168:
169:
170: -- here's the delegated call to the old PL/SQL routine
171: ibe_copy_logicalcontent_grp.copy_lgl_ctnt(p_api_version,
172: p_init_msg_list,
173: p_commit,
174: p_object_type_code,
175: p_from_product_id,
189:
190:
191:
192:
193: ibe_copy_logicalcontent_grp_w.rosetta_table_copy_out_p2(ddx_copy_status, x_copy_status);
194:
195:
196:
197: end;
195:
196:
197: end;
198:
199: end ibe_copy_logicalcontent_grp_w;