1: package body okl_bpd_cap_purpose_pvt_w as
2: /* $Header: OKLECPUB.pls 120.2 2005/10/30 03:16:40 appldev 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_p4(t out nocopy okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type, a0 JTF_NUMBER_TABLE
23: , a1 JTF_NUMBER_TABLE
24: , a2 JTF_NUMBER_TABLE
25: , a3 JTF_NUMBER_TABLE
26: , a4 JTF_NUMBER_TABLE
47: end loop;
48: end if;
49: end if;
50: end rosetta_table_copy_in_p4;
51: procedure rosetta_table_copy_out_p4(t okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type, a0 out nocopy JTF_NUMBER_TABLE
52: , a1 out nocopy JTF_NUMBER_TABLE
53: , a2 out nocopy JTF_NUMBER_TABLE
54: , a3 out nocopy JTF_NUMBER_TABLE
55: , a4 out nocopy JTF_NUMBER_TABLE
116: , p6_a5 out nocopy JTF_NUMBER_TABLE
117: )
118:
119: as
120: ddp_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
121: ddx_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
122: ddindx binary_integer; indx binary_integer;
123: begin
124:
117: )
118:
119: as
120: ddp_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
121: ddx_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
122: ddindx binary_integer; indx binary_integer;
123: begin
124:
125: -- copy data to the local IN or IN-OUT args, if any
127:
128:
129:
130:
131: okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_in_p4(ddp_strm_tbl, p5_a0
132: , p5_a1
133: , p5_a2
134: , p5_a3
135: , p5_a4
137: );
138:
139:
140: -- here's the delegated call to the old PL/SQL routine
141: okl_bpd_cap_purpose_pvt.create_purpose(p_api_version,
142: p_init_msg_list,
143: x_return_status,
144: x_msg_count,
145: x_msg_data,
152:
153:
154:
155:
156: okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_out_p4(ddx_strm_tbl, p6_a0
157: , p6_a1
158: , p6_a2
159: , p6_a3
160: , p6_a4
181: , p6_a5 out nocopy JTF_NUMBER_TABLE
182: )
183:
184: as
185: ddp_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
186: ddx_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
187: ddindx binary_integer; indx binary_integer;
188: begin
189:
182: )
183:
184: as
185: ddp_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
186: ddx_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
187: ddindx binary_integer; indx binary_integer;
188: begin
189:
190: -- copy data to the local IN or IN-OUT args, if any
192:
193:
194:
195:
196: okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_in_p4(ddp_strm_tbl, p5_a0
197: , p5_a1
198: , p5_a2
199: , p5_a3
200: , p5_a4
202: );
203:
204:
205: -- here's the delegated call to the old PL/SQL routine
206: okl_bpd_cap_purpose_pvt.update_purpose(p_api_version,
207: p_init_msg_list,
208: x_return_status,
209: x_msg_count,
210: x_msg_data,
217:
218:
219:
220:
221: okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_out_p4(ddx_strm_tbl, p6_a0
222: , p6_a1
223: , p6_a2
224: , p6_a3
225: , p6_a4
246: , p6_a5 out nocopy JTF_NUMBER_TABLE
247: )
248:
249: as
250: ddp_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
251: ddx_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
252: ddindx binary_integer; indx binary_integer;
253: begin
254:
247: )
248:
249: as
250: ddp_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
251: ddx_strm_tbl okl_bpd_cap_purpose_pvt.okl_cash_dtls_tbl_type;
252: ddindx binary_integer; indx binary_integer;
253: begin
254:
255: -- copy data to the local IN or IN-OUT args, if any
257:
258:
259:
260:
261: okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_in_p4(ddp_strm_tbl, p5_a0
262: , p5_a1
263: , p5_a2
264: , p5_a3
265: , p5_a4
267: );
268:
269:
270: -- here's the delegated call to the old PL/SQL routine
271: okl_bpd_cap_purpose_pvt.delete_purpose(p_api_version,
272: p_init_msg_list,
273: x_return_status,
274: x_msg_count,
275: x_msg_data,
282:
283:
284:
285:
286: okl_bpd_cap_purpose_pvt_w.rosetta_table_copy_out_p4(ddx_strm_tbl, p6_a0
287: , p6_a1
288: , p6_a2
289: , p6_a3
290: , p6_a4
291: , p6_a5
292: );
293: end;
294:
295: end okl_bpd_cap_purpose_pvt_w;