[Home] [Help]
PACKAGE BODY: APPS.OKL_POOLCONC_PVT_W
Source
1 package body okl_poolconc_pvt_w as
2 /* $Header: OKLESZCB.pls 120.2 2007/12/18 06:51:29 ssdeshpa 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 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 rosetta_table_copy_in_p74(t out nocopy okl_poolconc_pvt.error_message_type, a0 JTF_VARCHAR2_TABLE_2000) as
26 ddindx binary_integer; indx binary_integer;
27 begin
28 if a0 is not null and a0.count > 0 then
29 if a0.count > 0 then
30 indx := a0.first;
31 ddindx := 1;
32 while true loop
33 t(ddindx) := a0(indx);
34 ddindx := ddindx+1;
35 if a0.last =indx
36 then exit;
37 end if;
38 indx := a0.next(indx);
39 end loop;
40 end if;
41 end if;
42 end rosetta_table_copy_in_p74;
43 procedure rosetta_table_copy_out_p74(t okl_poolconc_pvt.error_message_type, a0 out nocopy JTF_VARCHAR2_TABLE_2000) as
44 ddindx binary_integer; indx binary_integer;
45 begin
46 if t is null or t.count = 0 then
47 a0 := JTF_VARCHAR2_TABLE_2000();
48 else
49 a0 := JTF_VARCHAR2_TABLE_2000();
50 if t.count > 0 then
51 a0.extend(t.count);
52 ddindx := t.first;
53 indx := 1;
54 while true loop
55 a0(indx) := t(ddindx);
56 indx := indx+1;
57 if t.last =ddindx
58 then exit;
59 end if;
60 ddindx := t.next(ddindx);
61 end loop;
62 end if;
63 end if;
64 end rosetta_table_copy_out_p74;
65
66 procedure add_pool_contents_ui(p_api_version NUMBER
67 , p_init_msg_list VARCHAR2
68 , x_return_status out nocopy VARCHAR2
69 , x_msg_count out nocopy NUMBER
70 , x_msg_data out nocopy VARCHAR2
71 , x_request_id out nocopy NUMBER
72 , p_sty_id1 NUMBER
73 , p_sty_id2 NUMBER
74 , p_stream_type_subclass VARCHAR2
75 , p_multi_org VARCHAR2
76 , p6_a0 NUMBER := 0-1962.0724
77 , p6_a1 VARCHAR2 := fnd_api.g_miss_char
78 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
79 , p6_a3 NUMBER := 0-1962.0724
80 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
81 , p6_a5 NUMBER := 0-1962.0724
82 , p6_a6 NUMBER := 0-1962.0724
83 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
84 , p6_a8 NUMBER := 0-1962.0724
85 , p6_a9 DATE := fnd_api.g_miss_date
86 , p6_a10 DATE := fnd_api.g_miss_date
87 , p6_a11 DATE := fnd_api.g_miss_date
88 , p6_a12 DATE := fnd_api.g_miss_date
89 , p6_a13 NUMBER := 0-1962.0724
90 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
91 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
92 , p6_a16 NUMBER := 0-1962.0724
93 , p6_a17 NUMBER := 0-1962.0724
94 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
95 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
96 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
97 , p6_a21 NUMBER := 0-1962.0724
98 , p6_a22 NUMBER := 0-1962.0724
99 , p6_a23 NUMBER := 0-1962.0724
100 , p6_a24 NUMBER := 0-1962.0724
101 , p6_a25 NUMBER := 0-1962.0724
102 , p6_a26 NUMBER := 0-1962.0724
103 , p6_a27 NUMBER := 0-1962.0724
104 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
105 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
106 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
107 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
108 , p6_a32 DATE := fnd_api.g_miss_date
109 , p6_a33 DATE := fnd_api.g_miss_date
110 , p6_a34 NUMBER := 0-1962.0724
111 , p6_a35 NUMBER := 0-1962.0724
112 , p6_a36 DATE := fnd_api.g_miss_date
113 , p6_a37 DATE := fnd_api.g_miss_date
114 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
115 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
116 )
117
118 as
119 ddp_polsrch_rec okl_poolconc_pvt.polsrch_rec_type;
120 ddindx binary_integer; indx binary_integer;
121 begin
122
123 -- copy data to the local IN or IN-OUT args, if any
124
125
126
127
128
129
130 ddp_polsrch_rec.cust_object1_id1 := rosetta_g_miss_num_map(p6_a0);
131 ddp_polsrch_rec.lessee := p6_a1;
132 ddp_polsrch_rec.sic_code := p6_a2;
133 ddp_polsrch_rec.dnz_chr_id := rosetta_g_miss_num_map(p6_a3);
134 ddp_polsrch_rec.contract_number := p6_a4;
135 ddp_polsrch_rec.pre_tax_yield_from := rosetta_g_miss_num_map(p6_a5);
136 ddp_polsrch_rec.pre_tax_yield_to := rosetta_g_miss_num_map(p6_a6);
137 ddp_polsrch_rec.book_classification := p6_a7;
138 ddp_polsrch_rec.pdt_id := rosetta_g_miss_num_map(p6_a8);
139 ddp_polsrch_rec.start_from_date := rosetta_g_miss_date_in_map(p6_a9);
140 ddp_polsrch_rec.start_to_date := rosetta_g_miss_date_in_map(p6_a10);
141 ddp_polsrch_rec.end_from_date := rosetta_g_miss_date_in_map(p6_a11);
142 ddp_polsrch_rec.end_to_date := rosetta_g_miss_date_in_map(p6_a12);
143 ddp_polsrch_rec.operating_unit := rosetta_g_miss_num_map(p6_a13);
144 ddp_polsrch_rec.currency_code := p6_a14;
145 ddp_polsrch_rec.tax_owner := p6_a15;
146 ddp_polsrch_rec.kle_id := rosetta_g_miss_num_map(p6_a16);
147 ddp_polsrch_rec.asset_id := rosetta_g_miss_num_map(p6_a17);
148 ddp_polsrch_rec.asset_number := p6_a18;
149 ddp_polsrch_rec.model_number := p6_a19;
150 ddp_polsrch_rec.manufacturer_name := p6_a20;
151 ddp_polsrch_rec.location_id := rosetta_g_miss_num_map(p6_a21);
152 ddp_polsrch_rec.item_id1 := rosetta_g_miss_num_map(p6_a22);
153 ddp_polsrch_rec.vendor_id1 := rosetta_g_miss_num_map(p6_a23);
154 ddp_polsrch_rec.oec_from := rosetta_g_miss_num_map(p6_a24);
155 ddp_polsrch_rec.oec_to := rosetta_g_miss_num_map(p6_a25);
156 ddp_polsrch_rec.residual_percentage := rosetta_g_miss_num_map(p6_a26);
157 ddp_polsrch_rec.sty_id := rosetta_g_miss_num_map(p6_a27);
158 ddp_polsrch_rec.stream_type_code := p6_a28;
159 ddp_polsrch_rec.stream_type_name := p6_a29;
160 ddp_polsrch_rec.stream_say_code := p6_a30;
161 ddp_polsrch_rec.stream_active_yn := p6_a31;
162 ddp_polsrch_rec.stream_element_from_date := rosetta_g_miss_date_in_map(p6_a32);
163 ddp_polsrch_rec.stream_element_to_date := rosetta_g_miss_date_in_map(p6_a33);
164 ddp_polsrch_rec.stream_element_amount := rosetta_g_miss_num_map(p6_a34);
165 ddp_polsrch_rec.pol_id := rosetta_g_miss_num_map(p6_a35);
166 ddp_polsrch_rec.streams_from_date := rosetta_g_miss_date_in_map(p6_a36);
167 ddp_polsrch_rec.streams_to_date := rosetta_g_miss_date_in_map(p6_a37);
168 ddp_polsrch_rec.stream_element_payment_freq := p6_a38;
169 ddp_polsrch_rec.cust_crd_clf_code := p6_a39;
170
171
172
173
174
175 -- here's the delegated call to the old PL/SQL routine
176 okl_poolconc_pvt.add_pool_contents_ui(p_api_version,
177 p_init_msg_list,
178 x_return_status,
179 x_msg_count,
180 x_msg_data,
181 x_request_id,
182 ddp_polsrch_rec,
183 p_sty_id1,
184 p_sty_id2,
185 p_stream_type_subclass,
186 p_multi_org);
187
188 -- copy data back from the local variables to OUT or IN-OUT args, if any
189
190
191
192
193
194
195
196
197
198
199 end;
200
201 procedure cleanup_pool_contents_ui(p_api_version NUMBER
202 , p_init_msg_list VARCHAR2
203 , x_return_status out nocopy VARCHAR2
204 , x_msg_count out nocopy NUMBER
205 , x_msg_data out nocopy VARCHAR2
206 , x_request_id out nocopy NUMBER
207 , p_stream_type_subclass VARCHAR2
208 , p_multi_org VARCHAR2
209 , p_action_code VARCHAR2
210 , p6_a0 NUMBER := 0-1962.0724
211 , p6_a1 VARCHAR2 := fnd_api.g_miss_char
212 , p6_a2 VARCHAR2 := fnd_api.g_miss_char
213 , p6_a3 NUMBER := 0-1962.0724
214 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
215 , p6_a5 NUMBER := 0-1962.0724
216 , p6_a6 NUMBER := 0-1962.0724
217 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
218 , p6_a8 NUMBER := 0-1962.0724
219 , p6_a9 DATE := fnd_api.g_miss_date
220 , p6_a10 DATE := fnd_api.g_miss_date
221 , p6_a11 DATE := fnd_api.g_miss_date
222 , p6_a12 DATE := fnd_api.g_miss_date
223 , p6_a13 NUMBER := 0-1962.0724
224 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
225 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
226 , p6_a16 NUMBER := 0-1962.0724
227 , p6_a17 NUMBER := 0-1962.0724
228 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
229 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
230 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
231 , p6_a21 NUMBER := 0-1962.0724
232 , p6_a22 NUMBER := 0-1962.0724
233 , p6_a23 NUMBER := 0-1962.0724
234 , p6_a24 NUMBER := 0-1962.0724
235 , p6_a25 NUMBER := 0-1962.0724
236 , p6_a26 NUMBER := 0-1962.0724
237 , p6_a27 NUMBER := 0-1962.0724
238 , p6_a28 VARCHAR2 := fnd_api.g_miss_char
239 , p6_a29 VARCHAR2 := fnd_api.g_miss_char
240 , p6_a30 VARCHAR2 := fnd_api.g_miss_char
241 , p6_a31 VARCHAR2 := fnd_api.g_miss_char
242 , p6_a32 DATE := fnd_api.g_miss_date
243 , p6_a33 DATE := fnd_api.g_miss_date
244 , p6_a34 NUMBER := 0-1962.0724
245 , p6_a35 NUMBER := 0-1962.0724
246 , p6_a36 DATE := fnd_api.g_miss_date
247 , p6_a37 DATE := fnd_api.g_miss_date
248 , p6_a38 VARCHAR2 := fnd_api.g_miss_char
249 , p6_a39 VARCHAR2 := fnd_api.g_miss_char
250 )
251
252 as
253 ddp_polsrch_rec okl_poolconc_pvt.polsrch_rec_type;
254 ddindx binary_integer; indx binary_integer;
255 begin
256
257 -- copy data to the local IN or IN-OUT args, if any
258
259
260
261
262
263
264 ddp_polsrch_rec.cust_object1_id1 := rosetta_g_miss_num_map(p6_a0);
265 ddp_polsrch_rec.lessee := p6_a1;
266 ddp_polsrch_rec.sic_code := p6_a2;
267 ddp_polsrch_rec.dnz_chr_id := rosetta_g_miss_num_map(p6_a3);
268 ddp_polsrch_rec.contract_number := p6_a4;
269 ddp_polsrch_rec.pre_tax_yield_from := rosetta_g_miss_num_map(p6_a5);
270 ddp_polsrch_rec.pre_tax_yield_to := rosetta_g_miss_num_map(p6_a6);
271 ddp_polsrch_rec.book_classification := p6_a7;
272 ddp_polsrch_rec.pdt_id := rosetta_g_miss_num_map(p6_a8);
273 ddp_polsrch_rec.start_from_date := rosetta_g_miss_date_in_map(p6_a9);
274 ddp_polsrch_rec.start_to_date := rosetta_g_miss_date_in_map(p6_a10);
275 ddp_polsrch_rec.end_from_date := rosetta_g_miss_date_in_map(p6_a11);
276 ddp_polsrch_rec.end_to_date := rosetta_g_miss_date_in_map(p6_a12);
277 ddp_polsrch_rec.operating_unit := rosetta_g_miss_num_map(p6_a13);
278 ddp_polsrch_rec.currency_code := p6_a14;
279 ddp_polsrch_rec.tax_owner := p6_a15;
280 ddp_polsrch_rec.kle_id := rosetta_g_miss_num_map(p6_a16);
281 ddp_polsrch_rec.asset_id := rosetta_g_miss_num_map(p6_a17);
282 ddp_polsrch_rec.asset_number := p6_a18;
283 ddp_polsrch_rec.model_number := p6_a19;
284 ddp_polsrch_rec.manufacturer_name := p6_a20;
285 ddp_polsrch_rec.location_id := rosetta_g_miss_num_map(p6_a21);
286 ddp_polsrch_rec.item_id1 := rosetta_g_miss_num_map(p6_a22);
287 ddp_polsrch_rec.vendor_id1 := rosetta_g_miss_num_map(p6_a23);
288 ddp_polsrch_rec.oec_from := rosetta_g_miss_num_map(p6_a24);
289 ddp_polsrch_rec.oec_to := rosetta_g_miss_num_map(p6_a25);
290 ddp_polsrch_rec.residual_percentage := rosetta_g_miss_num_map(p6_a26);
291 ddp_polsrch_rec.sty_id := rosetta_g_miss_num_map(p6_a27);
292 ddp_polsrch_rec.stream_type_code := p6_a28;
293 ddp_polsrch_rec.stream_type_name := p6_a29;
294 ddp_polsrch_rec.stream_say_code := p6_a30;
295 ddp_polsrch_rec.stream_active_yn := p6_a31;
296 ddp_polsrch_rec.stream_element_from_date := rosetta_g_miss_date_in_map(p6_a32);
297 ddp_polsrch_rec.stream_element_to_date := rosetta_g_miss_date_in_map(p6_a33);
298 ddp_polsrch_rec.stream_element_amount := rosetta_g_miss_num_map(p6_a34);
299 ddp_polsrch_rec.pol_id := rosetta_g_miss_num_map(p6_a35);
300 ddp_polsrch_rec.streams_from_date := rosetta_g_miss_date_in_map(p6_a36);
301 ddp_polsrch_rec.streams_to_date := rosetta_g_miss_date_in_map(p6_a37);
302 ddp_polsrch_rec.stream_element_payment_freq := p6_a38;
303 ddp_polsrch_rec.cust_crd_clf_code := p6_a39;
304
305
306
307
308 -- here's the delegated call to the old PL/SQL routine
309 okl_poolconc_pvt.cleanup_pool_contents_ui(p_api_version,
310 p_init_msg_list,
311 x_return_status,
312 x_msg_count,
313 x_msg_data,
314 x_request_id,
315 ddp_polsrch_rec,
316 p_stream_type_subclass,
317 p_multi_org,
318 p_action_code);
319
320 -- copy data back from the local variables to OUT or IN-OUT args, if any
321
322
323
324
325
326
327
328
329
330 end;
331
332 end okl_poolconc_pvt_w;