[Home] [Help]
PACKAGE BODY: APPS.OKL_SETUPPRODUCTS_PUB_W
Source
1 package body okl_setupproducts_pub_w as
2 /* $Header: OKLUSPDB.pls 120.1 2005/10/07 05:46:33 dkagrawa 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
6 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7 function rosetta_g_miss_date_in_map(d date) return date as
8 begin
9 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10 return d;
11 end;
12
13 function rosetta_g_miss_num_map(n number) return number as
14 a number := fnd_api.g_miss_num;
15 b number := 0-1962.0724;
16 begin
17 if n=a then return b; end if;
18 if n=b then return a; end if;
19 return n;
20 end;
21
22 procedure get_rec(x_return_status out nocopy VARCHAR2
23 , x_msg_data out nocopy VARCHAR2
24 , x_no_data_found out nocopy number
25 , p4_a0 out nocopy NUMBER
26 , p4_a1 out nocopy NUMBER
27 , p4_a2 out nocopy NUMBER
28 , p4_a3 out nocopy NUMBER
29 , p4_a4 out nocopy VARCHAR2
30 , p4_a5 out nocopy VARCHAR2
31 , p4_a6 out nocopy NUMBER
32 , p4_a7 out nocopy VARCHAR2
33 , p4_a8 out nocopy VARCHAR2
34 , p4_a9 out nocopy DATE
35 , p4_a10 out nocopy VARCHAR2
36 , p4_a11 out nocopy DATE
37 , p4_a12 out nocopy VARCHAR2
38 , p4_a13 out nocopy VARCHAR2
39 , p4_a14 out nocopy VARCHAR2
40 , p4_a15 out nocopy VARCHAR2
41 , p4_a16 out nocopy VARCHAR2
42 , p4_a17 out nocopy VARCHAR2
43 , p4_a18 out nocopy VARCHAR2
44 , p4_a19 out nocopy VARCHAR2
45 , p4_a20 out nocopy VARCHAR2
46 , p4_a21 out nocopy VARCHAR2
47 , p4_a22 out nocopy VARCHAR2
48 , p4_a23 out nocopy VARCHAR2
49 , p4_a24 out nocopy VARCHAR2
50 , p4_a25 out nocopy VARCHAR2
51 , p4_a26 out nocopy VARCHAR2
52 , p4_a27 out nocopy VARCHAR2
53 , p4_a28 out nocopy NUMBER
54 , p4_a29 out nocopy DATE
55 , p4_a30 out nocopy NUMBER
56 , p4_a31 out nocopy DATE
57 , p4_a32 out nocopy NUMBER
58 , p0_a0 NUMBER := 0-1962.0724
59 , p0_a1 NUMBER := 0-1962.0724
60 , p0_a2 NUMBER := 0-1962.0724
61 , p0_a3 NUMBER := 0-1962.0724
62 , p0_a4 VARCHAR2 := fnd_api.g_miss_char
63 , p0_a5 VARCHAR2 := fnd_api.g_miss_char
64 , p0_a6 NUMBER := 0-1962.0724
65 , p0_a7 VARCHAR2 := fnd_api.g_miss_char
66 , p0_a8 VARCHAR2 := fnd_api.g_miss_char
67 , p0_a9 DATE := fnd_api.g_miss_date
68 , p0_a10 VARCHAR2 := fnd_api.g_miss_char
69 , p0_a11 DATE := fnd_api.g_miss_date
70 , p0_a12 VARCHAR2 := fnd_api.g_miss_char
71 , p0_a13 VARCHAR2 := fnd_api.g_miss_char
72 , p0_a14 VARCHAR2 := fnd_api.g_miss_char
73 , p0_a15 VARCHAR2 := fnd_api.g_miss_char
74 , p0_a16 VARCHAR2 := fnd_api.g_miss_char
75 , p0_a17 VARCHAR2 := fnd_api.g_miss_char
76 , p0_a18 VARCHAR2 := fnd_api.g_miss_char
77 , p0_a19 VARCHAR2 := fnd_api.g_miss_char
78 , p0_a20 VARCHAR2 := fnd_api.g_miss_char
79 , p0_a21 VARCHAR2 := fnd_api.g_miss_char
80 , p0_a22 VARCHAR2 := fnd_api.g_miss_char
81 , p0_a23 VARCHAR2 := fnd_api.g_miss_char
82 , p0_a24 VARCHAR2 := fnd_api.g_miss_char
83 , p0_a25 VARCHAR2 := fnd_api.g_miss_char
84 , p0_a26 VARCHAR2 := fnd_api.g_miss_char
85 , p0_a27 VARCHAR2 := fnd_api.g_miss_char
86 , p0_a28 NUMBER := 0-1962.0724
87 , p0_a29 DATE := fnd_api.g_miss_date
88 , p0_a30 NUMBER := 0-1962.0724
89 , p0_a31 DATE := fnd_api.g_miss_date
90 , p0_a32 NUMBER := 0-1962.0724
91 )
92
93 as
94 ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
95 ddx_no_data_found boolean;
96 ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
97 ddindx binary_integer; indx binary_integer;
98 begin
99
100 -- copy data to the local IN or IN-OUT args, if any
101 ddp_pdtv_rec.id := rosetta_g_miss_num_map(p0_a0);
102 ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p0_a1);
103 ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p0_a2);
104 ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p0_a3);
105 ddp_pdtv_rec.name := p0_a4;
106 ddp_pdtv_rec.description := p0_a5;
107 ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p0_a6);
108 ddp_pdtv_rec.product_status_code := p0_a7;
109 ddp_pdtv_rec.legacy_product_yn := p0_a8;
110 ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p0_a9);
111 ddp_pdtv_rec.version := p0_a10;
112 ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p0_a11);
113 ddp_pdtv_rec.attribute_category := p0_a12;
114 ddp_pdtv_rec.attribute1 := p0_a13;
115 ddp_pdtv_rec.attribute2 := p0_a14;
116 ddp_pdtv_rec.attribute3 := p0_a15;
117 ddp_pdtv_rec.attribute4 := p0_a16;
118 ddp_pdtv_rec.attribute5 := p0_a17;
119 ddp_pdtv_rec.attribute6 := p0_a18;
120 ddp_pdtv_rec.attribute7 := p0_a19;
121 ddp_pdtv_rec.attribute8 := p0_a20;
122 ddp_pdtv_rec.attribute9 := p0_a21;
123 ddp_pdtv_rec.attribute10 := p0_a22;
124 ddp_pdtv_rec.attribute11 := p0_a23;
125 ddp_pdtv_rec.attribute12 := p0_a24;
126 ddp_pdtv_rec.attribute13 := p0_a25;
127 ddp_pdtv_rec.attribute14 := p0_a26;
128 ddp_pdtv_rec.attribute15 := p0_a27;
129 ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p0_a28);
130 ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a29);
131 ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a30);
132 ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a31);
133 ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p0_a32);
134
135
136
137
138
139 -- here's the delegated call to the old PL/SQL routine
140 okl_setupproducts_pub.get_rec(ddp_pdtv_rec,
141 x_return_status,
142 x_msg_data,
143 ddx_no_data_found,
144 ddx_pdtv_rec);
145
146 -- copy data back from the local variables to OUT or IN-OUT args, if any
147
148
149
150 if ddx_no_data_found is null
151 then x_no_data_found := null;
152 elsif ddx_no_data_found
153 then x_no_data_found := 1;
154 else x_no_data_found := 0;
155 end if;
156
157 p4_a0 := rosetta_g_miss_num_map(ddx_pdtv_rec.id);
158 p4_a1 := rosetta_g_miss_num_map(ddx_pdtv_rec.object_version_number);
159 p4_a2 := rosetta_g_miss_num_map(ddx_pdtv_rec.aes_id);
160 p4_a3 := rosetta_g_miss_num_map(ddx_pdtv_rec.ptl_id);
161 p4_a4 := ddx_pdtv_rec.name;
162 p4_a5 := ddx_pdtv_rec.description;
163 p4_a6 := rosetta_g_miss_num_map(ddx_pdtv_rec.reporting_pdt_id);
164 p4_a7 := ddx_pdtv_rec.product_status_code;
165 p4_a8 := ddx_pdtv_rec.legacy_product_yn;
166 p4_a9 := ddx_pdtv_rec.from_date;
167 p4_a10 := ddx_pdtv_rec.version;
168 p4_a11 := ddx_pdtv_rec.to_date;
169 p4_a12 := ddx_pdtv_rec.attribute_category;
170 p4_a13 := ddx_pdtv_rec.attribute1;
171 p4_a14 := ddx_pdtv_rec.attribute2;
172 p4_a15 := ddx_pdtv_rec.attribute3;
173 p4_a16 := ddx_pdtv_rec.attribute4;
174 p4_a17 := ddx_pdtv_rec.attribute5;
175 p4_a18 := ddx_pdtv_rec.attribute6;
176 p4_a19 := ddx_pdtv_rec.attribute7;
177 p4_a20 := ddx_pdtv_rec.attribute8;
178 p4_a21 := ddx_pdtv_rec.attribute9;
179 p4_a22 := ddx_pdtv_rec.attribute10;
180 p4_a23 := ddx_pdtv_rec.attribute11;
181 p4_a24 := ddx_pdtv_rec.attribute12;
182 p4_a25 := ddx_pdtv_rec.attribute13;
183 p4_a26 := ddx_pdtv_rec.attribute14;
184 p4_a27 := ddx_pdtv_rec.attribute15;
185 p4_a28 := rosetta_g_miss_num_map(ddx_pdtv_rec.created_by);
186 p4_a29 := ddx_pdtv_rec.creation_date;
187 p4_a30 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_updated_by);
188 p4_a31 := ddx_pdtv_rec.last_update_date;
189 p4_a32 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_update_login);
190 end;
191
192 procedure getpdt_parameters(p_api_version NUMBER
193 , p_init_msg_list VARCHAR2
194 , x_return_status out nocopy VARCHAR2
195 , x_no_data_found out nocopy number
196 , x_msg_count out nocopy NUMBER
197 , x_msg_data out nocopy VARCHAR2
198 , p_product_date date
199 , p8_a0 out nocopy NUMBER
200 , p8_a1 out nocopy VARCHAR2
201 , p8_a2 out nocopy DATE
202 , p8_a3 out nocopy DATE
203 , p8_a4 out nocopy VARCHAR2
204 , p8_a5 out nocopy NUMBER
205 , p8_a6 out nocopy NUMBER
206 , p8_a7 out nocopy NUMBER
207 , p8_a8 out nocopy VARCHAR2
208 , p8_a9 out nocopy VARCHAR2
209 , p8_a10 out nocopy VARCHAR2
210 , p8_a11 out nocopy VARCHAR2
211 , p8_a12 out nocopy VARCHAR2
212 , p8_a13 out nocopy VARCHAR2
213 , p8_a14 out nocopy VARCHAR2
214 , p8_a15 out nocopy VARCHAR2
215 , p8_a16 out nocopy VARCHAR2
216 , p8_a17 out nocopy VARCHAR2
217 , p8_a18 out nocopy VARCHAR2
218 , p8_a19 out nocopy VARCHAR2
219 , p8_a20 out nocopy VARCHAR2
220 , p8_a21 out nocopy VARCHAR2
221 , p8_a22 out nocopy VARCHAR2
222 , p8_a23 out nocopy VARCHAR2
223 , p8_a24 out nocopy VARCHAR2
224 , p8_a25 out nocopy VARCHAR2
225 , p8_a26 out nocopy VARCHAR2
226 , p8_a27 out nocopy VARCHAR2
227 , p8_a28 out nocopy VARCHAR2
228 , p8_a29 out nocopy VARCHAR2
229 , p8_a30 out nocopy NUMBER
230 , p8_a31 out nocopy VARCHAR2
231 , p6_a0 NUMBER := 0-1962.0724
232 , p6_a1 NUMBER := 0-1962.0724
233 , p6_a2 NUMBER := 0-1962.0724
234 , p6_a3 NUMBER := 0-1962.0724
235 , p6_a4 VARCHAR2 := fnd_api.g_miss_char
236 , p6_a5 VARCHAR2 := fnd_api.g_miss_char
237 , p6_a6 NUMBER := 0-1962.0724
238 , p6_a7 VARCHAR2 := fnd_api.g_miss_char
239 , p6_a8 VARCHAR2 := fnd_api.g_miss_char
240 , p6_a9 DATE := fnd_api.g_miss_date
241 , p6_a10 VARCHAR2 := fnd_api.g_miss_char
242 , p6_a11 DATE := fnd_api.g_miss_date
243 , p6_a12 VARCHAR2 := fnd_api.g_miss_char
244 , p6_a13 VARCHAR2 := fnd_api.g_miss_char
245 , p6_a14 VARCHAR2 := fnd_api.g_miss_char
246 , p6_a15 VARCHAR2 := fnd_api.g_miss_char
247 , p6_a16 VARCHAR2 := fnd_api.g_miss_char
248 , p6_a17 VARCHAR2 := fnd_api.g_miss_char
249 , p6_a18 VARCHAR2 := fnd_api.g_miss_char
250 , p6_a19 VARCHAR2 := fnd_api.g_miss_char
251 , p6_a20 VARCHAR2 := fnd_api.g_miss_char
252 , p6_a21 VARCHAR2 := fnd_api.g_miss_char
253 , p6_a22 VARCHAR2 := fnd_api.g_miss_char
254 , p6_a23 VARCHAR2 := fnd_api.g_miss_char
255 , p6_a24 VARCHAR2 := fnd_api.g_miss_char
256 , p6_a25 VARCHAR2 := fnd_api.g_miss_char
257 , p6_a26 VARCHAR2 := fnd_api.g_miss_char
258 , p6_a27 VARCHAR2 := fnd_api.g_miss_char
259 , p6_a28 NUMBER := 0-1962.0724
260 , p6_a29 DATE := fnd_api.g_miss_date
261 , p6_a30 NUMBER := 0-1962.0724
262 , p6_a31 DATE := fnd_api.g_miss_date
263 , p6_a32 NUMBER := 0-1962.0724
264 )
265
266 as
267 ddx_no_data_found boolean;
268 ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
269 ddp_product_date date;
270 ddp_pdt_parameter_rec okl_setupproducts_pub.pdt_parameters_rec_type;
271 ddindx binary_integer; indx binary_integer;
272 begin
273
274 -- copy data to the local IN or IN-OUT args, if any
275
276
277
278
279
280
281 ddp_pdtv_rec.id := rosetta_g_miss_num_map(p6_a0);
282 ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
283 ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p6_a2);
284 ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p6_a3);
285 ddp_pdtv_rec.name := p6_a4;
286 ddp_pdtv_rec.description := p6_a5;
287 ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p6_a6);
288 ddp_pdtv_rec.product_status_code := p6_a7;
289 ddp_pdtv_rec.legacy_product_yn := p6_a8;
290 ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p6_a9);
291 ddp_pdtv_rec.version := p6_a10;
292 ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p6_a11);
293 ddp_pdtv_rec.attribute_category := p6_a12;
294 ddp_pdtv_rec.attribute1 := p6_a13;
295 ddp_pdtv_rec.attribute2 := p6_a14;
296 ddp_pdtv_rec.attribute3 := p6_a15;
297 ddp_pdtv_rec.attribute4 := p6_a16;
298 ddp_pdtv_rec.attribute5 := p6_a17;
299 ddp_pdtv_rec.attribute6 := p6_a18;
300 ddp_pdtv_rec.attribute7 := p6_a19;
301 ddp_pdtv_rec.attribute8 := p6_a20;
302 ddp_pdtv_rec.attribute9 := p6_a21;
303 ddp_pdtv_rec.attribute10 := p6_a22;
304 ddp_pdtv_rec.attribute11 := p6_a23;
305 ddp_pdtv_rec.attribute12 := p6_a24;
306 ddp_pdtv_rec.attribute13 := p6_a25;
307 ddp_pdtv_rec.attribute14 := p6_a26;
308 ddp_pdtv_rec.attribute15 := p6_a27;
309 ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p6_a28);
310 ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a29);
311 ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a30);
312 ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a31);
313 ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p6_a32);
314
315 ddp_product_date := rosetta_g_miss_date_in_map(p_product_date);
316
317
318 -- here's the delegated call to the old PL/SQL routine
319 okl_setupproducts_pub.getpdt_parameters(p_api_version,
320 p_init_msg_list,
321 x_return_status,
322 ddx_no_data_found,
323 x_msg_count,
324 x_msg_data,
325 ddp_pdtv_rec,
326 ddp_product_date,
327 ddp_pdt_parameter_rec);
328
329 -- copy data back from the local variables to OUT or IN-OUT args, if any
330
331
332
333 if ddx_no_data_found is null
334 then x_no_data_found := null;
335 elsif ddx_no_data_found
336 then x_no_data_found := 1;
337 else x_no_data_found := 0;
338 end if;
339
340
341
342
343
344 p8_a0 := rosetta_g_miss_num_map(ddp_pdt_parameter_rec.id);
345 p8_a1 := ddp_pdt_parameter_rec.name;
346 p8_a2 := ddp_pdt_parameter_rec.from_date;
347 p8_a3 := ddp_pdt_parameter_rec.to_date;
348 p8_a4 := ddp_pdt_parameter_rec.version;
349 p8_a5 := rosetta_g_miss_num_map(ddp_pdt_parameter_rec.object_version_number);
350 p8_a6 := rosetta_g_miss_num_map(ddp_pdt_parameter_rec.aes_id);
351 p8_a7 := rosetta_g_miss_num_map(ddp_pdt_parameter_rec.ptl_id);
352 p8_a8 := ddp_pdt_parameter_rec.legacy_product_yn;
353 p8_a9 := ddp_pdt_parameter_rec.attribute_category;
354 p8_a10 := ddp_pdt_parameter_rec.attribute1;
355 p8_a11 := ddp_pdt_parameter_rec.attribute2;
356 p8_a12 := ddp_pdt_parameter_rec.attribute3;
357 p8_a13 := ddp_pdt_parameter_rec.attribute4;
358 p8_a14 := ddp_pdt_parameter_rec.attribute5;
359 p8_a15 := ddp_pdt_parameter_rec.attribute6;
360 p8_a16 := ddp_pdt_parameter_rec.attribute7;
361 p8_a17 := ddp_pdt_parameter_rec.attribute8;
362 p8_a18 := ddp_pdt_parameter_rec.attribute9;
363 p8_a19 := ddp_pdt_parameter_rec.attribute10;
364 p8_a20 := ddp_pdt_parameter_rec.attribute11;
365 p8_a21 := ddp_pdt_parameter_rec.attribute12;
366 p8_a22 := ddp_pdt_parameter_rec.attribute13;
367 p8_a23 := ddp_pdt_parameter_rec.attribute14;
368 p8_a24 := ddp_pdt_parameter_rec.attribute15;
369 p8_a25 := ddp_pdt_parameter_rec.product_subclass;
370 p8_a26 := ddp_pdt_parameter_rec.deal_type;
371 p8_a27 := ddp_pdt_parameter_rec.tax_owner;
372 p8_a28 := ddp_pdt_parameter_rec.revenue_recognition_method;
373 p8_a29 := ddp_pdt_parameter_rec.interest_calculation_basis;
374 p8_a30 := rosetta_g_miss_num_map(ddp_pdt_parameter_rec.reporting_pdt_id);
375 p8_a31 := ddp_pdt_parameter_rec.reporting_product;
376 end;
377
378 procedure insert_products(p_api_version NUMBER
379 , p_init_msg_list VARCHAR2
380 , x_return_status out nocopy VARCHAR2
381 , x_msg_count out nocopy NUMBER
382 , x_msg_data out nocopy VARCHAR2
383 , p6_a0 out nocopy NUMBER
384 , p6_a1 out nocopy NUMBER
385 , p6_a2 out nocopy NUMBER
386 , p6_a3 out nocopy NUMBER
387 , p6_a4 out nocopy VARCHAR2
388 , p6_a5 out nocopy VARCHAR2
389 , p6_a6 out nocopy NUMBER
390 , p6_a7 out nocopy VARCHAR2
391 , p6_a8 out nocopy VARCHAR2
392 , p6_a9 out nocopy DATE
393 , p6_a10 out nocopy VARCHAR2
394 , p6_a11 out nocopy DATE
395 , p6_a12 out nocopy VARCHAR2
396 , p6_a13 out nocopy VARCHAR2
397 , p6_a14 out nocopy VARCHAR2
398 , p6_a15 out nocopy VARCHAR2
399 , p6_a16 out nocopy VARCHAR2
400 , p6_a17 out nocopy VARCHAR2
401 , p6_a18 out nocopy VARCHAR2
402 , p6_a19 out nocopy VARCHAR2
403 , p6_a20 out nocopy VARCHAR2
404 , p6_a21 out nocopy VARCHAR2
405 , p6_a22 out nocopy VARCHAR2
406 , p6_a23 out nocopy VARCHAR2
407 , p6_a24 out nocopy VARCHAR2
408 , p6_a25 out nocopy VARCHAR2
409 , p6_a26 out nocopy VARCHAR2
410 , p6_a27 out nocopy VARCHAR2
411 , p6_a28 out nocopy NUMBER
412 , p6_a29 out nocopy DATE
413 , p6_a30 out nocopy NUMBER
414 , p6_a31 out nocopy DATE
415 , p6_a32 out nocopy NUMBER
416 , p5_a0 NUMBER := 0-1962.0724
417 , p5_a1 NUMBER := 0-1962.0724
418 , p5_a2 NUMBER := 0-1962.0724
419 , p5_a3 NUMBER := 0-1962.0724
420 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
421 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
422 , p5_a6 NUMBER := 0-1962.0724
423 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
424 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
425 , p5_a9 DATE := fnd_api.g_miss_date
426 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
427 , p5_a11 DATE := fnd_api.g_miss_date
428 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
429 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
430 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
431 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
432 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
433 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
434 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
435 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
436 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
437 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
438 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
439 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
440 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
441 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
442 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
443 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
444 , p5_a28 NUMBER := 0-1962.0724
445 , p5_a29 DATE := fnd_api.g_miss_date
446 , p5_a30 NUMBER := 0-1962.0724
447 , p5_a31 DATE := fnd_api.g_miss_date
448 , p5_a32 NUMBER := 0-1962.0724
449 )
450
451 as
452 ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
453 ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
454 ddindx binary_integer; indx binary_integer;
455 begin
456
457 -- copy data to the local IN or IN-OUT args, if any
458
459
460
461
462
463 ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
464 ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
465 ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
466 ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
467 ddp_pdtv_rec.name := p5_a4;
468 ddp_pdtv_rec.description := p5_a5;
469 ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
470 ddp_pdtv_rec.product_status_code := p5_a7;
471 ddp_pdtv_rec.legacy_product_yn := p5_a8;
472 ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a9);
473 ddp_pdtv_rec.version := p5_a10;
474 ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
475 ddp_pdtv_rec.attribute_category := p5_a12;
476 ddp_pdtv_rec.attribute1 := p5_a13;
477 ddp_pdtv_rec.attribute2 := p5_a14;
478 ddp_pdtv_rec.attribute3 := p5_a15;
479 ddp_pdtv_rec.attribute4 := p5_a16;
480 ddp_pdtv_rec.attribute5 := p5_a17;
481 ddp_pdtv_rec.attribute6 := p5_a18;
482 ddp_pdtv_rec.attribute7 := p5_a19;
483 ddp_pdtv_rec.attribute8 := p5_a20;
484 ddp_pdtv_rec.attribute9 := p5_a21;
485 ddp_pdtv_rec.attribute10 := p5_a22;
486 ddp_pdtv_rec.attribute11 := p5_a23;
487 ddp_pdtv_rec.attribute12 := p5_a24;
488 ddp_pdtv_rec.attribute13 := p5_a25;
489 ddp_pdtv_rec.attribute14 := p5_a26;
490 ddp_pdtv_rec.attribute15 := p5_a27;
491 ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
492 ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
493 ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
494 ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
495 ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
496
497
498 -- here's the delegated call to the old PL/SQL routine
499 okl_setupproducts_pub.insert_products(p_api_version,
500 p_init_msg_list,
501 x_return_status,
502 x_msg_count,
503 x_msg_data,
504 ddp_pdtv_rec,
505 ddx_pdtv_rec);
506
507 -- copy data back from the local variables to OUT or IN-OUT args, if any
508
509
510
511
512
513
514 p6_a0 := rosetta_g_miss_num_map(ddx_pdtv_rec.id);
515 p6_a1 := rosetta_g_miss_num_map(ddx_pdtv_rec.object_version_number);
516 p6_a2 := rosetta_g_miss_num_map(ddx_pdtv_rec.aes_id);
517 p6_a3 := rosetta_g_miss_num_map(ddx_pdtv_rec.ptl_id);
518 p6_a4 := ddx_pdtv_rec.name;
519 p6_a5 := ddx_pdtv_rec.description;
520 p6_a6 := rosetta_g_miss_num_map(ddx_pdtv_rec.reporting_pdt_id);
521 p6_a7 := ddx_pdtv_rec.product_status_code;
522 p6_a8 := ddx_pdtv_rec.legacy_product_yn;
523 p6_a9 := ddx_pdtv_rec.from_date;
524 p6_a10 := ddx_pdtv_rec.version;
525 p6_a11 := ddx_pdtv_rec.to_date;
526 p6_a12 := ddx_pdtv_rec.attribute_category;
527 p6_a13 := ddx_pdtv_rec.attribute1;
528 p6_a14 := ddx_pdtv_rec.attribute2;
529 p6_a15 := ddx_pdtv_rec.attribute3;
530 p6_a16 := ddx_pdtv_rec.attribute4;
531 p6_a17 := ddx_pdtv_rec.attribute5;
532 p6_a18 := ddx_pdtv_rec.attribute6;
533 p6_a19 := ddx_pdtv_rec.attribute7;
534 p6_a20 := ddx_pdtv_rec.attribute8;
535 p6_a21 := ddx_pdtv_rec.attribute9;
536 p6_a22 := ddx_pdtv_rec.attribute10;
537 p6_a23 := ddx_pdtv_rec.attribute11;
538 p6_a24 := ddx_pdtv_rec.attribute12;
539 p6_a25 := ddx_pdtv_rec.attribute13;
540 p6_a26 := ddx_pdtv_rec.attribute14;
541 p6_a27 := ddx_pdtv_rec.attribute15;
542 p6_a28 := rosetta_g_miss_num_map(ddx_pdtv_rec.created_by);
543 p6_a29 := ddx_pdtv_rec.creation_date;
544 p6_a30 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_updated_by);
545 p6_a31 := ddx_pdtv_rec.last_update_date;
546 p6_a32 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_update_login);
547 end;
548
549 procedure update_products(p_api_version NUMBER
550 , p_init_msg_list VARCHAR2
551 , x_return_status out nocopy VARCHAR2
552 , x_msg_count out nocopy NUMBER
553 , x_msg_data out nocopy VARCHAR2
554 , p6_a0 out nocopy NUMBER
555 , p6_a1 out nocopy NUMBER
556 , p6_a2 out nocopy NUMBER
557 , p6_a3 out nocopy NUMBER
558 , p6_a4 out nocopy VARCHAR2
559 , p6_a5 out nocopy VARCHAR2
560 , p6_a6 out nocopy NUMBER
561 , p6_a7 out nocopy VARCHAR2
562 , p6_a8 out nocopy VARCHAR2
563 , p6_a9 out nocopy DATE
564 , p6_a10 out nocopy VARCHAR2
565 , p6_a11 out nocopy DATE
566 , p6_a12 out nocopy VARCHAR2
567 , p6_a13 out nocopy VARCHAR2
568 , p6_a14 out nocopy VARCHAR2
569 , p6_a15 out nocopy VARCHAR2
570 , p6_a16 out nocopy VARCHAR2
571 , p6_a17 out nocopy VARCHAR2
572 , p6_a18 out nocopy VARCHAR2
573 , p6_a19 out nocopy VARCHAR2
574 , p6_a20 out nocopy VARCHAR2
575 , p6_a21 out nocopy VARCHAR2
576 , p6_a22 out nocopy VARCHAR2
577 , p6_a23 out nocopy VARCHAR2
578 , p6_a24 out nocopy VARCHAR2
579 , p6_a25 out nocopy VARCHAR2
580 , p6_a26 out nocopy VARCHAR2
581 , p6_a27 out nocopy VARCHAR2
582 , p6_a28 out nocopy NUMBER
583 , p6_a29 out nocopy DATE
584 , p6_a30 out nocopy NUMBER
585 , p6_a31 out nocopy DATE
586 , p6_a32 out nocopy NUMBER
587 , p5_a0 NUMBER := 0-1962.0724
588 , p5_a1 NUMBER := 0-1962.0724
589 , p5_a2 NUMBER := 0-1962.0724
590 , p5_a3 NUMBER := 0-1962.0724
591 , p5_a4 VARCHAR2 := fnd_api.g_miss_char
592 , p5_a5 VARCHAR2 := fnd_api.g_miss_char
593 , p5_a6 NUMBER := 0-1962.0724
594 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
595 , p5_a8 VARCHAR2 := fnd_api.g_miss_char
596 , p5_a9 DATE := fnd_api.g_miss_date
597 , p5_a10 VARCHAR2 := fnd_api.g_miss_char
598 , p5_a11 DATE := fnd_api.g_miss_date
599 , p5_a12 VARCHAR2 := fnd_api.g_miss_char
600 , p5_a13 VARCHAR2 := fnd_api.g_miss_char
601 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
602 , p5_a15 VARCHAR2 := fnd_api.g_miss_char
603 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
604 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
605 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
606 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
607 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
608 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
609 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
610 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
611 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
612 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
613 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
614 , p5_a27 VARCHAR2 := fnd_api.g_miss_char
615 , p5_a28 NUMBER := 0-1962.0724
616 , p5_a29 DATE := fnd_api.g_miss_date
617 , p5_a30 NUMBER := 0-1962.0724
618 , p5_a31 DATE := fnd_api.g_miss_date
619 , p5_a32 NUMBER := 0-1962.0724
620 )
621
622 as
623 ddp_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
624 ddx_pdtv_rec okl_setupproducts_pub.pdtv_rec_type;
625 ddindx binary_integer; indx binary_integer;
626 begin
627
628 -- copy data to the local IN or IN-OUT args, if any
629
630
631
632
633
634 ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
635 ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
636 ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
637 ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
638 ddp_pdtv_rec.name := p5_a4;
639 ddp_pdtv_rec.description := p5_a5;
640 ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
641 ddp_pdtv_rec.product_status_code := p5_a7;
642 ddp_pdtv_rec.legacy_product_yn := p5_a8;
643 ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a9);
644 ddp_pdtv_rec.version := p5_a10;
645 ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
646 ddp_pdtv_rec.attribute_category := p5_a12;
647 ddp_pdtv_rec.attribute1 := p5_a13;
648 ddp_pdtv_rec.attribute2 := p5_a14;
649 ddp_pdtv_rec.attribute3 := p5_a15;
650 ddp_pdtv_rec.attribute4 := p5_a16;
651 ddp_pdtv_rec.attribute5 := p5_a17;
652 ddp_pdtv_rec.attribute6 := p5_a18;
653 ddp_pdtv_rec.attribute7 := p5_a19;
654 ddp_pdtv_rec.attribute8 := p5_a20;
655 ddp_pdtv_rec.attribute9 := p5_a21;
656 ddp_pdtv_rec.attribute10 := p5_a22;
657 ddp_pdtv_rec.attribute11 := p5_a23;
658 ddp_pdtv_rec.attribute12 := p5_a24;
659 ddp_pdtv_rec.attribute13 := p5_a25;
660 ddp_pdtv_rec.attribute14 := p5_a26;
661 ddp_pdtv_rec.attribute15 := p5_a27;
662 ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
663 ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
664 ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
665 ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
666 ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
667
668
669 -- here's the delegated call to the old PL/SQL routine
670 okl_setupproducts_pub.update_products(p_api_version,
671 p_init_msg_list,
672 x_return_status,
673 x_msg_count,
674 x_msg_data,
675 ddp_pdtv_rec,
676 ddx_pdtv_rec);
677
678 -- copy data back from the local variables to OUT or IN-OUT args, if any
679
680
681
682
683
684
685 p6_a0 := rosetta_g_miss_num_map(ddx_pdtv_rec.id);
686 p6_a1 := rosetta_g_miss_num_map(ddx_pdtv_rec.object_version_number);
687 p6_a2 := rosetta_g_miss_num_map(ddx_pdtv_rec.aes_id);
688 p6_a3 := rosetta_g_miss_num_map(ddx_pdtv_rec.ptl_id);
689 p6_a4 := ddx_pdtv_rec.name;
690 p6_a5 := ddx_pdtv_rec.description;
691 p6_a6 := rosetta_g_miss_num_map(ddx_pdtv_rec.reporting_pdt_id);
692 p6_a7 := ddx_pdtv_rec.product_status_code;
693 p6_a8 := ddx_pdtv_rec.legacy_product_yn;
694 p6_a9 := ddx_pdtv_rec.from_date;
695 p6_a10 := ddx_pdtv_rec.version;
696 p6_a11 := ddx_pdtv_rec.to_date;
697 p6_a12 := ddx_pdtv_rec.attribute_category;
698 p6_a13 := ddx_pdtv_rec.attribute1;
699 p6_a14 := ddx_pdtv_rec.attribute2;
700 p6_a15 := ddx_pdtv_rec.attribute3;
701 p6_a16 := ddx_pdtv_rec.attribute4;
702 p6_a17 := ddx_pdtv_rec.attribute5;
703 p6_a18 := ddx_pdtv_rec.attribute6;
704 p6_a19 := ddx_pdtv_rec.attribute7;
705 p6_a20 := ddx_pdtv_rec.attribute8;
706 p6_a21 := ddx_pdtv_rec.attribute9;
707 p6_a22 := ddx_pdtv_rec.attribute10;
708 p6_a23 := ddx_pdtv_rec.attribute11;
709 p6_a24 := ddx_pdtv_rec.attribute12;
710 p6_a25 := ddx_pdtv_rec.attribute13;
711 p6_a26 := ddx_pdtv_rec.attribute14;
712 p6_a27 := ddx_pdtv_rec.attribute15;
713 p6_a28 := rosetta_g_miss_num_map(ddx_pdtv_rec.created_by);
714 p6_a29 := ddx_pdtv_rec.creation_date;
715 p6_a30 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_updated_by);
716 p6_a31 := ddx_pdtv_rec.last_update_date;
717 p6_a32 := rosetta_g_miss_num_map(ddx_pdtv_rec.last_update_login);
718 end;
719
720 end okl_setupproducts_pub_w;