[Home] [Help]
PACKAGE BODY: APPS.OKL_AM_SYSTEM_PARAMS_PVT_W
Source
1 package body okl_am_system_params_pvt_w as
2 /* $Header: OKLEASAB.pls 120.9.12010000.2 2008/11/14 05:48:25 kkorrapo 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 process_system_params(p_api_version NUMBER
26 , p_init_msg_list VARCHAR2
27 , x_return_status out nocopy VARCHAR2
28 , x_msg_count out nocopy NUMBER
29 , x_msg_data out nocopy VARCHAR2
30 , p6_a0 out nocopy NUMBER
31 , p6_a1 out nocopy VARCHAR2
32 , p6_a2 out nocopy VARCHAR2
33 , p6_a3 out nocopy NUMBER
34 , p6_a4 out nocopy NUMBER
35 , p6_a5 out nocopy VARCHAR2
36 , p6_a6 out nocopy NUMBER
37 , p6_a7 out nocopy VARCHAR2
38 , p6_a8 out nocopy VARCHAR2
39 , p6_a9 out nocopy VARCHAR2
40 , p6_a10 out nocopy VARCHAR2
41 , p6_a11 out nocopy VARCHAR2
42 , p6_a12 out nocopy NUMBER
43 , p6_a13 out nocopy NUMBER
44 , p6_a14 out nocopy NUMBER
45 , p6_a15 out nocopy VARCHAR2
46 , p6_a16 out nocopy VARCHAR2
47 , p6_a17 out nocopy NUMBER
48 , p6_a18 out nocopy VARCHAR2
49 , p6_a19 out nocopy NUMBER
50 , p6_a20 out nocopy NUMBER
51 , p6_a21 out nocopy VARCHAR2
52 , p6_a22 out nocopy VARCHAR2
53 , p6_a23 out nocopy NUMBER
54 , p6_a24 out nocopy VARCHAR2
55 , p6_a25 out nocopy VARCHAR2
56 , p6_a26 out nocopy VARCHAR2
57 , p6_a27 out nocopy VARCHAR2
58 , p6_a28 out nocopy NUMBER
59 , p6_a29 out nocopy NUMBER
60 , p6_a30 out nocopy NUMBER
61 , p6_a31 out nocopy VARCHAR2
62 , p6_a32 out nocopy NUMBER
63 , p6_a33 out nocopy NUMBER
64 , p6_a34 out nocopy NUMBER
65 , p6_a35 out nocopy NUMBER
66 , p6_a36 out nocopy NUMBER
67 , p6_a37 out nocopy DATE
68 , p6_a38 out nocopy VARCHAR2
69 , p6_a39 out nocopy VARCHAR2
70 , p6_a40 out nocopy VARCHAR2
71 , p6_a41 out nocopy VARCHAR2
72 , p6_a42 out nocopy VARCHAR2
73 , p6_a43 out nocopy VARCHAR2
74 , p6_a44 out nocopy VARCHAR2
75 , p6_a45 out nocopy VARCHAR2
76 , p6_a46 out nocopy VARCHAR2
77 , p6_a47 out nocopy VARCHAR2
78 , p6_a48 out nocopy VARCHAR2
79 , p6_a49 out nocopy VARCHAR2
80 , p6_a50 out nocopy VARCHAR2
81 , p6_a51 out nocopy VARCHAR2
82 , p6_a52 out nocopy VARCHAR2
83 , p6_a53 out nocopy VARCHAR2
84 , p6_a54 out nocopy NUMBER
85 , p6_a55 out nocopy DATE
86 , p6_a56 out nocopy NUMBER
87 , p6_a57 out nocopy DATE
88 , p6_a58 out nocopy NUMBER
89 , p6_a59 out nocopy VARCHAR2
90 , p6_a60 out nocopy VARCHAR2
91 , p6_a61 out nocopy VARCHAR2
92 , p6_a62 out nocopy VARCHAR2
93 , p5_a0 NUMBER := 0-1962.0724
94 , p5_a1 VARCHAR2 := fnd_api.g_miss_char
95 , p5_a2 VARCHAR2 := fnd_api.g_miss_char
96 , p5_a3 NUMBER := 0-1962.0724
97 , p5_a4 NUMBER := 0-1962.0724
98 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
99 , p5_a6 NUMBER := 0-1962.0724
100 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
101 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
102 , p5_a9 VARCHAR2 := fnd_api.g_miss_char
103 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
104 , p5_a11 VARCHAR2 := fnd_api.g_miss_char
105 , p5_a12 NUMBER := 0-1962.0724
106 , p5_a13 NUMBER := 0-1962.0724
107 , p5_a14 NUMBER := 0-1962.0724
108 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
109 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
110 , p5_a17 NUMBER := 0-1962.0724
111 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
112 , p5_a19 NUMBER := 0-1962.0724
113 , p5_a20 NUMBER := 0-1962.0724
114 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
115 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a23 NUMBER := 0-1962.0724
117 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
118 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
119 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
120 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
121 , p5_a28 NUMBER := 0-1962.0724
122 , p5_a29 NUMBER := 0-1962.0724
123 , p5_a30 NUMBER := 0-1962.0724
124 , p5_a31 VARCHAR2 := fnd_api.g_miss_char
125 , p5_a32 NUMBER := 0-1962.0724
126 , p5_a33 NUMBER := 0-1962.0724
127 , p5_a34 NUMBER := 0-1962.0724
128 , p5_a35 NUMBER := 0-1962.0724
129 , p5_a36 NUMBER := 0-1962.0724
130 , p5_a37 DATE := fnd_api.g_miss_date
131 , p5_a38 VARCHAR2 := fnd_api.g_miss_char
132 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
133 , p5_a40 VARCHAR2 := fnd_api.g_miss_char
134 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
135 , p5_a42 VARCHAR2 := fnd_api.g_miss_char
136 , p5_a43 VARCHAR2 := fnd_api.g_miss_char
137 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
138 , p5_a45 VARCHAR2 := fnd_api.g_miss_char
139 , p5_a46 VARCHAR2 := fnd_api.g_miss_char
140 , p5_a47 VARCHAR2 := fnd_api.g_miss_char
141 , p5_a48 VARCHAR2 := fnd_api.g_miss_char
142 , p5_a49 VARCHAR2 := fnd_api.g_miss_char
143 , p5_a50 VARCHAR2 := fnd_api.g_miss_char
144 , p5_a51 VARCHAR2 := fnd_api.g_miss_char
145 , p5_a52 VARCHAR2 := fnd_api.g_miss_char
146 , p5_a53 VARCHAR2 := fnd_api.g_miss_char
147 , p5_a54 NUMBER := 0-1962.0724
148 , p5_a55 DATE := fnd_api.g_miss_date
149 , p5_a56 NUMBER := 0-1962.0724
150 , p5_a57 DATE := fnd_api.g_miss_date
151 , p5_a58 NUMBER := 0-1962.0724
152 , p5_a59 VARCHAR2 := fnd_api.g_miss_char
153 , p5_a60 VARCHAR2 := fnd_api.g_miss_char
154 , p5_a61 VARCHAR2 := fnd_api.g_miss_char
155 , p5_a62 VARCHAR2 := fnd_api.g_miss_char
156 )
157
158 as
159 ddp_sypv_rec okl_am_system_params_pvt.sypv_rec_type;
160 ddx_sypv_rec okl_am_system_params_pvt.sypv_rec_type;
161 ddindx binary_integer; indx binary_integer;
162 begin
163
164 -- copy data to the local IN or IN-OUT args, if any
165
166
167
168
169
170 ddp_sypv_rec.id := rosetta_g_miss_num_map(p5_a0);
171 ddp_sypv_rec.delink_yn := p5_a1;
172 ddp_sypv_rec.remk_subinventory := p5_a2;
173 ddp_sypv_rec.remk_organization_id := rosetta_g_miss_num_map(p5_a3);
174 ddp_sypv_rec.remk_price_list_id := rosetta_g_miss_num_map(p5_a4);
175 ddp_sypv_rec.remk_process_code := p5_a5;
176 ddp_sypv_rec.remk_item_template_id := rosetta_g_miss_num_map(p5_a6);
177 ddp_sypv_rec.remk_item_invoiced_code := p5_a7;
178 ddp_sypv_rec.lease_inv_org_yn := p5_a8;
179 ddp_sypv_rec.tax_upfront_yn := p5_a9;
180 ddp_sypv_rec.tax_invoice_yn := p5_a10;
181 ddp_sypv_rec.tax_schedule_yn := p5_a11;
182 ddp_sypv_rec.tax_upfront_sty_id := rosetta_g_miss_num_map(p5_a12);
183 ddp_sypv_rec.category_set_id := rosetta_g_miss_num_map(p5_a13);
184 ddp_sypv_rec.validation_set_id := rosetta_g_miss_num_map(p5_a14);
185 ddp_sypv_rec.cancel_quotes_yn := p5_a15;
186 ddp_sypv_rec.chk_accrual_previous_mnth_yn := p5_a16;
187 ddp_sypv_rec.task_template_group_id := rosetta_g_miss_num_map(p5_a17);
188 ddp_sypv_rec.owner_type_code := p5_a18;
189 ddp_sypv_rec.owner_id := rosetta_g_miss_num_map(p5_a19);
190 ddp_sypv_rec.item_inv_org_id := rosetta_g_miss_num_map(p5_a20);
191 ddp_sypv_rec.rpt_prod_book_type_code := p5_a21;
192 ddp_sypv_rec.asst_add_book_type_code := p5_a22;
193 ddp_sypv_rec.ccard_remittance_id := rosetta_g_miss_num_map(p5_a23);
194 ddp_sypv_rec.corporate_book := p5_a24;
195 ddp_sypv_rec.tax_book_1 := p5_a25;
196 ddp_sypv_rec.tax_book_2 := p5_a26;
197 ddp_sypv_rec.depreciate_yn := p5_a27;
198 ddp_sypv_rec.fa_location_id := rosetta_g_miss_num_map(p5_a28);
199 ddp_sypv_rec.formula_id := rosetta_g_miss_num_map(p5_a29);
200 ddp_sypv_rec.asset_key_id := rosetta_g_miss_num_map(p5_a30);
201 ddp_sypv_rec.part_trmnt_apply_round_diff := p5_a31;
202 ddp_sypv_rec.object_version_number := rosetta_g_miss_num_map(p5_a32);
203 ddp_sypv_rec.org_id := rosetta_g_miss_num_map(p5_a33);
204 ddp_sypv_rec.request_id := rosetta_g_miss_num_map(p5_a34);
205 ddp_sypv_rec.program_application_id := rosetta_g_miss_num_map(p5_a35);
206 ddp_sypv_rec.program_id := rosetta_g_miss_num_map(p5_a36);
207 ddp_sypv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a37);
208 ddp_sypv_rec.attribute_category := p5_a38;
209 ddp_sypv_rec.attribute1 := p5_a39;
210 ddp_sypv_rec.attribute2 := p5_a40;
211 ddp_sypv_rec.attribute3 := p5_a41;
212 ddp_sypv_rec.attribute4 := p5_a42;
213 ddp_sypv_rec.attribute5 := p5_a43;
214 ddp_sypv_rec.attribute6 := p5_a44;
215 ddp_sypv_rec.attribute7 := p5_a45;
216 ddp_sypv_rec.attribute8 := p5_a46;
217 ddp_sypv_rec.attribute9 := p5_a47;
218 ddp_sypv_rec.attribute10 := p5_a48;
219 ddp_sypv_rec.attribute11 := p5_a49;
220 ddp_sypv_rec.attribute12 := p5_a50;
221 ddp_sypv_rec.attribute13 := p5_a51;
222 ddp_sypv_rec.attribute14 := p5_a52;
223 ddp_sypv_rec.attribute15 := p5_a53;
224 ddp_sypv_rec.created_by := rosetta_g_miss_num_map(p5_a54);
225 ddp_sypv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a55);
226 ddp_sypv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a56);
227 ddp_sypv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a57);
228 ddp_sypv_rec.last_update_login := rosetta_g_miss_num_map(p5_a58);
229 ddp_sypv_rec.lseapp_seq_prefix_txt := p5_a59;
230 ddp_sypv_rec.lseopp_seq_prefix_txt := p5_a60;
231 ddp_sypv_rec.qckqte_seq_prefix_txt := p5_a61;
232 ddp_sypv_rec.lseqte_seq_prefix_txt := p5_a62;
233
234
235 -- here's the delegated call to the old PL/SQL routine
236 okl_am_system_params_pvt.process_system_params(p_api_version,
237 p_init_msg_list,
238 x_return_status,
239 x_msg_count,
240 x_msg_data,
241 ddp_sypv_rec,
242 ddx_sypv_rec);
243
244 -- copy data back from the local variables to OUT or IN-OUT args, if any
245
246
247
248
249
250
251 p6_a0 := rosetta_g_miss_num_map(ddx_sypv_rec.id);
252 p6_a1 := ddx_sypv_rec.delink_yn;
253 p6_a2 := ddx_sypv_rec.remk_subinventory;
254 p6_a3 := rosetta_g_miss_num_map(ddx_sypv_rec.remk_organization_id);
255 p6_a4 := rosetta_g_miss_num_map(ddx_sypv_rec.remk_price_list_id);
256 p6_a5 := ddx_sypv_rec.remk_process_code;
257 p6_a6 := rosetta_g_miss_num_map(ddx_sypv_rec.remk_item_template_id);
258 p6_a7 := ddx_sypv_rec.remk_item_invoiced_code;
259 p6_a8 := ddx_sypv_rec.lease_inv_org_yn;
260 p6_a9 := ddx_sypv_rec.tax_upfront_yn;
261 p6_a10 := ddx_sypv_rec.tax_invoice_yn;
262 p6_a11 := ddx_sypv_rec.tax_schedule_yn;
263 p6_a12 := rosetta_g_miss_num_map(ddx_sypv_rec.tax_upfront_sty_id);
264 p6_a13 := rosetta_g_miss_num_map(ddx_sypv_rec.category_set_id);
265 p6_a14 := rosetta_g_miss_num_map(ddx_sypv_rec.validation_set_id);
266 p6_a15 := ddx_sypv_rec.cancel_quotes_yn;
267 p6_a16 := ddx_sypv_rec.chk_accrual_previous_mnth_yn;
268 p6_a17 := rosetta_g_miss_num_map(ddx_sypv_rec.task_template_group_id);
269 p6_a18 := ddx_sypv_rec.owner_type_code;
270 p6_a19 := rosetta_g_miss_num_map(ddx_sypv_rec.owner_id);
271 p6_a20 := rosetta_g_miss_num_map(ddx_sypv_rec.item_inv_org_id);
272 p6_a21 := ddx_sypv_rec.rpt_prod_book_type_code;
273 p6_a22 := ddx_sypv_rec.asst_add_book_type_code;
274 p6_a23 := rosetta_g_miss_num_map(ddx_sypv_rec.ccard_remittance_id);
275 p6_a24 := ddx_sypv_rec.corporate_book;
276 p6_a25 := ddx_sypv_rec.tax_book_1;
277 p6_a26 := ddx_sypv_rec.tax_book_2;
278 p6_a27 := ddx_sypv_rec.depreciate_yn;
279 p6_a28 := rosetta_g_miss_num_map(ddx_sypv_rec.fa_location_id);
280 p6_a29 := rosetta_g_miss_num_map(ddx_sypv_rec.formula_id);
281 p6_a30 := rosetta_g_miss_num_map(ddx_sypv_rec.asset_key_id);
282 p6_a31 := ddx_sypv_rec.part_trmnt_apply_round_diff;
283 p6_a32 := rosetta_g_miss_num_map(ddx_sypv_rec.object_version_number);
284 p6_a33 := rosetta_g_miss_num_map(ddx_sypv_rec.org_id);
285 p6_a34 := rosetta_g_miss_num_map(ddx_sypv_rec.request_id);
286 p6_a35 := rosetta_g_miss_num_map(ddx_sypv_rec.program_application_id);
287 p6_a36 := rosetta_g_miss_num_map(ddx_sypv_rec.program_id);
288 p6_a37 := ddx_sypv_rec.program_update_date;
289 p6_a38 := ddx_sypv_rec.attribute_category;
290 p6_a39 := ddx_sypv_rec.attribute1;
291 p6_a40 := ddx_sypv_rec.attribute2;
292 p6_a41 := ddx_sypv_rec.attribute3;
293 p6_a42 := ddx_sypv_rec.attribute4;
294 p6_a43 := ddx_sypv_rec.attribute5;
295 p6_a44 := ddx_sypv_rec.attribute6;
296 p6_a45 := ddx_sypv_rec.attribute7;
297 p6_a46 := ddx_sypv_rec.attribute8;
298 p6_a47 := ddx_sypv_rec.attribute9;
299 p6_a48 := ddx_sypv_rec.attribute10;
300 p6_a49 := ddx_sypv_rec.attribute11;
301 p6_a50 := ddx_sypv_rec.attribute12;
302 p6_a51 := ddx_sypv_rec.attribute13;
303 p6_a52 := ddx_sypv_rec.attribute14;
304 p6_a53 := ddx_sypv_rec.attribute15;
305 p6_a54 := rosetta_g_miss_num_map(ddx_sypv_rec.created_by);
306 p6_a55 := ddx_sypv_rec.creation_date;
307 p6_a56 := rosetta_g_miss_num_map(ddx_sypv_rec.last_updated_by);
308 p6_a57 := ddx_sypv_rec.last_update_date;
309 p6_a58 := rosetta_g_miss_num_map(ddx_sypv_rec.last_update_login);
310 p6_a59 := ddx_sypv_rec.lseapp_seq_prefix_txt;
311 p6_a60 := ddx_sypv_rec.lseopp_seq_prefix_txt;
312 p6_a61 := ddx_sypv_rec.qckqte_seq_prefix_txt;
313 p6_a62 := ddx_sypv_rec.lseqte_seq_prefix_txt;
314 end;
315
316 end okl_am_system_params_pvt_w;