DBA Data[Home] [Help]

PACKAGE BODY: APPS.OKL_SETUPPSTYPES_PVT_W

Source


1 package body okl_setuppstypes_pvt_w as
2   /* $Header: OKLESPSB.pls 120.1 2005/07/12 09:10:45 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_no_data_found out nocopy  number
23     , x_return_status out nocopy  VARCHAR2
24     , p3_a0 out nocopy  NUMBER
25     , p3_a1 out nocopy  DATE
26     , p3_a2 out nocopy  DATE
27     , p3_a3 out nocopy  NUMBER
28     , p3_a4 out nocopy  VARCHAR2
29     , p3_a5 out nocopy  NUMBER
30     , p3_a6 out nocopy  NUMBER
31     , p3_a7 out nocopy  NUMBER
32     , p3_a8 out nocopy  DATE
33     , p3_a9 out nocopy  DATE
34     , p3_a10 out nocopy  NUMBER
35     , p3_a11 out nocopy  NUMBER
36     , p0_a0  NUMBER := 0-1962.0724
37     , p0_a1  DATE := fnd_api.g_miss_date
38     , p0_a2  DATE := fnd_api.g_miss_date
39     , p0_a3  NUMBER := 0-1962.0724
40     , p0_a4  VARCHAR2 := fnd_api.g_miss_char
41     , p0_a5  NUMBER := 0-1962.0724
42     , p0_a6  NUMBER := 0-1962.0724
43     , p0_a7  NUMBER := 0-1962.0724
44     , p0_a8  DATE := fnd_api.g_miss_date
45     , p0_a9  DATE := fnd_api.g_miss_date
46     , p0_a10  NUMBER := 0-1962.0724
47     , p0_a11  NUMBER := 0-1962.0724
48   )
49 
50   as
51     ddp_psyv_rec okl_setuppstypes_pvt.psyv_rec_type;
52     ddx_no_data_found boolean;
53     ddx_psyv_rec okl_setuppstypes_pvt.psyv_rec_type;
54     ddindx binary_integer; indx binary_integer;
55   begin
56 
57     -- copy data to the local IN or IN-OUT args, if any
58     ddp_psyv_rec.id := rosetta_g_miss_num_map(p0_a0);
59     ddp_psyv_rec.from_date := rosetta_g_miss_date_in_map(p0_a1);
60     ddp_psyv_rec.to_date := rosetta_g_miss_date_in_map(p0_a2);
61     ddp_psyv_rec.object_version_number := rosetta_g_miss_num_map(p0_a3);
62     ddp_psyv_rec.accrual_yn := p0_a4;
63     ddp_psyv_rec.sty_id := rosetta_g_miss_num_map(p0_a5);
64     ddp_psyv_rec.pdt_id := rosetta_g_miss_num_map(p0_a6);
65     ddp_psyv_rec.created_by := rosetta_g_miss_num_map(p0_a7);
66     ddp_psyv_rec.creation_date := rosetta_g_miss_date_in_map(p0_a8);
67     ddp_psyv_rec.last_update_date := rosetta_g_miss_date_in_map(p0_a9);
68     ddp_psyv_rec.last_updated_by := rosetta_g_miss_num_map(p0_a10);
69     ddp_psyv_rec.last_update_login := rosetta_g_miss_num_map(p0_a11);
70 
71 
72 
73 
74     -- here's the delegated call to the old PL/SQL routine
75     okl_setuppstypes_pvt.get_rec(ddp_psyv_rec,
76       ddx_no_data_found,
77       x_return_status,
78       ddx_psyv_rec);
79 
80     -- copy data back from the local variables to OUT or IN-OUT args, if any
81 
82   if ddx_no_data_found is null
83     then x_no_data_found := null;
84   elsif ddx_no_data_found
85     then x_no_data_found := 1;
86   else x_no_data_found := 0;
87   end if;
88 
89 
90     p3_a0 := rosetta_g_miss_num_map(ddx_psyv_rec.id);
91     p3_a1 := ddx_psyv_rec.from_date;
92     p3_a2 := ddx_psyv_rec.to_date;
93     p3_a3 := rosetta_g_miss_num_map(ddx_psyv_rec.object_version_number);
94     p3_a4 := ddx_psyv_rec.accrual_yn;
95     p3_a5 := rosetta_g_miss_num_map(ddx_psyv_rec.sty_id);
96     p3_a6 := rosetta_g_miss_num_map(ddx_psyv_rec.pdt_id);
97     p3_a7 := rosetta_g_miss_num_map(ddx_psyv_rec.created_by);
98     p3_a8 := ddx_psyv_rec.creation_date;
99     p3_a9 := ddx_psyv_rec.last_update_date;
100     p3_a10 := rosetta_g_miss_num_map(ddx_psyv_rec.last_updated_by);
101     p3_a11 := rosetta_g_miss_num_map(ddx_psyv_rec.last_update_login);
102   end;
103 
104   procedure insert_pstypes(p_api_version  NUMBER
105     , p_init_msg_list  VARCHAR2
106     , x_return_status out nocopy  VARCHAR2
107     , x_msg_count out nocopy  NUMBER
108     , x_msg_data out nocopy  VARCHAR2
109     , p7_a0 out nocopy  NUMBER
110     , p7_a1 out nocopy  DATE
111     , p7_a2 out nocopy  DATE
112     , p7_a3 out nocopy  NUMBER
113     , p7_a4 out nocopy  VARCHAR2
114     , p7_a5 out nocopy  NUMBER
115     , p7_a6 out nocopy  NUMBER
116     , p7_a7 out nocopy  NUMBER
117     , p7_a8 out nocopy  DATE
118     , p7_a9 out nocopy  DATE
119     , p7_a10 out nocopy  NUMBER
120     , p7_a11 out nocopy  NUMBER
121     , p5_a0  NUMBER := 0-1962.0724
122     , p5_a1  NUMBER := 0-1962.0724
123     , p5_a2  NUMBER := 0-1962.0724
124     , p5_a3  NUMBER := 0-1962.0724
125     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
126     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
127     , p5_a6  NUMBER := 0-1962.0724
128     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
129     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
130     , p5_a9  DATE := fnd_api.g_miss_date
131     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
132     , p5_a11  DATE := fnd_api.g_miss_date
133     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
134     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
135     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
136     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
137     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
138     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
139     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
140     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
141     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
142     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
143     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
144     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
145     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
146     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
147     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
148     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
149     , p5_a28  NUMBER := 0-1962.0724
150     , p5_a29  DATE := fnd_api.g_miss_date
151     , p5_a30  NUMBER := 0-1962.0724
152     , p5_a31  DATE := fnd_api.g_miss_date
153     , p5_a32  NUMBER := 0-1962.0724
154     , p6_a0  NUMBER := 0-1962.0724
155     , p6_a1  DATE := fnd_api.g_miss_date
156     , p6_a2  DATE := fnd_api.g_miss_date
157     , p6_a3  NUMBER := 0-1962.0724
158     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
159     , p6_a5  NUMBER := 0-1962.0724
160     , p6_a6  NUMBER := 0-1962.0724
161     , p6_a7  NUMBER := 0-1962.0724
162     , p6_a8  DATE := fnd_api.g_miss_date
163     , p6_a9  DATE := fnd_api.g_miss_date
164     , p6_a10  NUMBER := 0-1962.0724
165     , p6_a11  NUMBER := 0-1962.0724
166   )
167 
168   as
169     ddp_pdtv_rec okl_setuppstypes_pvt.pdtv_rec_type;
170     ddp_psyv_rec okl_setuppstypes_pvt.psyv_rec_type;
171     ddx_psyv_rec okl_setuppstypes_pvt.psyv_rec_type;
172     ddindx binary_integer; indx binary_integer;
173   begin
174 
175     -- copy data to the local IN or IN-OUT args, if any
176 
177 
178 
179 
180 
181     ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
182     ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
183     ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
184     ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
185     ddp_pdtv_rec.name := p5_a4;
186     ddp_pdtv_rec.description := p5_a5;
187     ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
188     ddp_pdtv_rec.product_status_code := p5_a7;
189     ddp_pdtv_rec.legacy_product_yn := p5_a8;
190     ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a9);
191     ddp_pdtv_rec.version := p5_a10;
192     ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
193     ddp_pdtv_rec.attribute_category := p5_a12;
194     ddp_pdtv_rec.attribute1 := p5_a13;
195     ddp_pdtv_rec.attribute2 := p5_a14;
196     ddp_pdtv_rec.attribute3 := p5_a15;
197     ddp_pdtv_rec.attribute4 := p5_a16;
198     ddp_pdtv_rec.attribute5 := p5_a17;
199     ddp_pdtv_rec.attribute6 := p5_a18;
200     ddp_pdtv_rec.attribute7 := p5_a19;
201     ddp_pdtv_rec.attribute8 := p5_a20;
202     ddp_pdtv_rec.attribute9 := p5_a21;
203     ddp_pdtv_rec.attribute10 := p5_a22;
204     ddp_pdtv_rec.attribute11 := p5_a23;
205     ddp_pdtv_rec.attribute12 := p5_a24;
206     ddp_pdtv_rec.attribute13 := p5_a25;
207     ddp_pdtv_rec.attribute14 := p5_a26;
208     ddp_pdtv_rec.attribute15 := p5_a27;
209     ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
210     ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
211     ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
212     ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
213     ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
214 
215     ddp_psyv_rec.id := rosetta_g_miss_num_map(p6_a0);
216     ddp_psyv_rec.from_date := rosetta_g_miss_date_in_map(p6_a1);
217     ddp_psyv_rec.to_date := rosetta_g_miss_date_in_map(p6_a2);
218     ddp_psyv_rec.object_version_number := rosetta_g_miss_num_map(p6_a3);
219     ddp_psyv_rec.accrual_yn := p6_a4;
220     ddp_psyv_rec.sty_id := rosetta_g_miss_num_map(p6_a5);
221     ddp_psyv_rec.pdt_id := rosetta_g_miss_num_map(p6_a6);
222     ddp_psyv_rec.created_by := rosetta_g_miss_num_map(p6_a7);
223     ddp_psyv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
224     ddp_psyv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a9);
225     ddp_psyv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a10);
226     ddp_psyv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
227 
228 
229     -- here's the delegated call to the old PL/SQL routine
230     okl_setuppstypes_pvt.insert_pstypes(p_api_version,
231       p_init_msg_list,
232       x_return_status,
233       x_msg_count,
234       x_msg_data,
235       ddp_pdtv_rec,
236       ddp_psyv_rec,
237       ddx_psyv_rec);
238 
239     -- copy data back from the local variables to OUT or IN-OUT args, if any
240 
241 
242 
243 
244 
245 
246 
247     p7_a0 := rosetta_g_miss_num_map(ddx_psyv_rec.id);
248     p7_a1 := ddx_psyv_rec.from_date;
249     p7_a2 := ddx_psyv_rec.to_date;
250     p7_a3 := rosetta_g_miss_num_map(ddx_psyv_rec.object_version_number);
251     p7_a4 := ddx_psyv_rec.accrual_yn;
252     p7_a5 := rosetta_g_miss_num_map(ddx_psyv_rec.sty_id);
253     p7_a6 := rosetta_g_miss_num_map(ddx_psyv_rec.pdt_id);
254     p7_a7 := rosetta_g_miss_num_map(ddx_psyv_rec.created_by);
255     p7_a8 := ddx_psyv_rec.creation_date;
256     p7_a9 := ddx_psyv_rec.last_update_date;
257     p7_a10 := rosetta_g_miss_num_map(ddx_psyv_rec.last_updated_by);
258     p7_a11 := rosetta_g_miss_num_map(ddx_psyv_rec.last_update_login);
259   end;
260 
261   procedure update_pstypes(p_api_version  NUMBER
262     , p_init_msg_list  VARCHAR2
263     , x_return_status out nocopy  VARCHAR2
264     , x_msg_count out nocopy  NUMBER
265     , x_msg_data out nocopy  VARCHAR2
266     , p7_a0 out nocopy  NUMBER
267     , p7_a1 out nocopy  DATE
268     , p7_a2 out nocopy  DATE
269     , p7_a3 out nocopy  NUMBER
270     , p7_a4 out nocopy  VARCHAR2
271     , p7_a5 out nocopy  NUMBER
272     , p7_a6 out nocopy  NUMBER
273     , p7_a7 out nocopy  NUMBER
274     , p7_a8 out nocopy  DATE
275     , p7_a9 out nocopy  DATE
276     , p7_a10 out nocopy  NUMBER
277     , p7_a11 out nocopy  NUMBER
278     , p5_a0  NUMBER := 0-1962.0724
279     , p5_a1  NUMBER := 0-1962.0724
280     , p5_a2  NUMBER := 0-1962.0724
281     , p5_a3  NUMBER := 0-1962.0724
282     , p5_a4  VARCHAR2 := fnd_api.g_miss_char
283     , p5_a5  VARCHAR2 := fnd_api.g_miss_char
284     , p5_a6  NUMBER := 0-1962.0724
285     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
286     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
287     , p5_a9  DATE := fnd_api.g_miss_date
288     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
289     , p5_a11  DATE := fnd_api.g_miss_date
290     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
291     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
292     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
293     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
294     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
295     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
296     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
297     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
298     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
299     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
300     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
301     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
302     , p5_a24  VARCHAR2 := fnd_api.g_miss_char
303     , p5_a25  VARCHAR2 := fnd_api.g_miss_char
304     , p5_a26  VARCHAR2 := fnd_api.g_miss_char
305     , p5_a27  VARCHAR2 := fnd_api.g_miss_char
306     , p5_a28  NUMBER := 0-1962.0724
307     , p5_a29  DATE := fnd_api.g_miss_date
308     , p5_a30  NUMBER := 0-1962.0724
309     , p5_a31  DATE := fnd_api.g_miss_date
310     , p5_a32  NUMBER := 0-1962.0724
311     , p6_a0  NUMBER := 0-1962.0724
312     , p6_a1  DATE := fnd_api.g_miss_date
313     , p6_a2  DATE := fnd_api.g_miss_date
314     , p6_a3  NUMBER := 0-1962.0724
315     , p6_a4  VARCHAR2 := fnd_api.g_miss_char
316     , p6_a5  NUMBER := 0-1962.0724
317     , p6_a6  NUMBER := 0-1962.0724
318     , p6_a7  NUMBER := 0-1962.0724
319     , p6_a8  DATE := fnd_api.g_miss_date
320     , p6_a9  DATE := fnd_api.g_miss_date
321     , p6_a10  NUMBER := 0-1962.0724
322     , p6_a11  NUMBER := 0-1962.0724
323   )
324 
325   as
326     ddp_pdtv_rec okl_setuppstypes_pvt.pdtv_rec_type;
327     ddp_psyv_rec okl_setuppstypes_pvt.psyv_rec_type;
328     ddx_psyv_rec okl_setuppstypes_pvt.psyv_rec_type;
329     ddindx binary_integer; indx binary_integer;
330   begin
331 
332     -- copy data to the local IN or IN-OUT args, if any
333 
334 
335 
336 
337 
338     ddp_pdtv_rec.id := rosetta_g_miss_num_map(p5_a0);
339     ddp_pdtv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
340     ddp_pdtv_rec.aes_id := rosetta_g_miss_num_map(p5_a2);
341     ddp_pdtv_rec.ptl_id := rosetta_g_miss_num_map(p5_a3);
342     ddp_pdtv_rec.name := p5_a4;
343     ddp_pdtv_rec.description := p5_a5;
344     ddp_pdtv_rec.reporting_pdt_id := rosetta_g_miss_num_map(p5_a6);
345     ddp_pdtv_rec.product_status_code := p5_a7;
346     ddp_pdtv_rec.legacy_product_yn := p5_a8;
347     ddp_pdtv_rec.from_date := rosetta_g_miss_date_in_map(p5_a9);
348     ddp_pdtv_rec.version := p5_a10;
349     ddp_pdtv_rec.to_date := rosetta_g_miss_date_in_map(p5_a11);
350     ddp_pdtv_rec.attribute_category := p5_a12;
351     ddp_pdtv_rec.attribute1 := p5_a13;
352     ddp_pdtv_rec.attribute2 := p5_a14;
353     ddp_pdtv_rec.attribute3 := p5_a15;
354     ddp_pdtv_rec.attribute4 := p5_a16;
355     ddp_pdtv_rec.attribute5 := p5_a17;
356     ddp_pdtv_rec.attribute6 := p5_a18;
357     ddp_pdtv_rec.attribute7 := p5_a19;
358     ddp_pdtv_rec.attribute8 := p5_a20;
359     ddp_pdtv_rec.attribute9 := p5_a21;
360     ddp_pdtv_rec.attribute10 := p5_a22;
361     ddp_pdtv_rec.attribute11 := p5_a23;
362     ddp_pdtv_rec.attribute12 := p5_a24;
363     ddp_pdtv_rec.attribute13 := p5_a25;
364     ddp_pdtv_rec.attribute14 := p5_a26;
365     ddp_pdtv_rec.attribute15 := p5_a27;
366     ddp_pdtv_rec.created_by := rosetta_g_miss_num_map(p5_a28);
367     ddp_pdtv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a29);
368     ddp_pdtv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a30);
369     ddp_pdtv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a31);
370     ddp_pdtv_rec.last_update_login := rosetta_g_miss_num_map(p5_a32);
371 
372     ddp_psyv_rec.id := rosetta_g_miss_num_map(p6_a0);
373     ddp_psyv_rec.from_date := rosetta_g_miss_date_in_map(p6_a1);
374     ddp_psyv_rec.to_date := rosetta_g_miss_date_in_map(p6_a2);
375     ddp_psyv_rec.object_version_number := rosetta_g_miss_num_map(p6_a3);
376     ddp_psyv_rec.accrual_yn := p6_a4;
377     ddp_psyv_rec.sty_id := rosetta_g_miss_num_map(p6_a5);
378     ddp_psyv_rec.pdt_id := rosetta_g_miss_num_map(p6_a6);
379     ddp_psyv_rec.created_by := rosetta_g_miss_num_map(p6_a7);
380     ddp_psyv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a8);
381     ddp_psyv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a9);
382     ddp_psyv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a10);
383     ddp_psyv_rec.last_update_login := rosetta_g_miss_num_map(p6_a11);
384 
385 
386     -- here's the delegated call to the old PL/SQL routine
387     okl_setuppstypes_pvt.update_pstypes(p_api_version,
388       p_init_msg_list,
389       x_return_status,
390       x_msg_count,
391       x_msg_data,
392       ddp_pdtv_rec,
393       ddp_psyv_rec,
394       ddx_psyv_rec);
395 
396     -- copy data back from the local variables to OUT or IN-OUT args, if any
397 
398 
399 
400 
401 
402 
403 
404     p7_a0 := rosetta_g_miss_num_map(ddx_psyv_rec.id);
405     p7_a1 := ddx_psyv_rec.from_date;
406     p7_a2 := ddx_psyv_rec.to_date;
407     p7_a3 := rosetta_g_miss_num_map(ddx_psyv_rec.object_version_number);
408     p7_a4 := ddx_psyv_rec.accrual_yn;
409     p7_a5 := rosetta_g_miss_num_map(ddx_psyv_rec.sty_id);
410     p7_a6 := rosetta_g_miss_num_map(ddx_psyv_rec.pdt_id);
411     p7_a7 := rosetta_g_miss_num_map(ddx_psyv_rec.created_by);
412     p7_a8 := ddx_psyv_rec.creation_date;
413     p7_a9 := ddx_psyv_rec.last_update_date;
414     p7_a10 := rosetta_g_miss_num_map(ddx_psyv_rec.last_updated_by);
415     p7_a11 := rosetta_g_miss_num_map(ddx_psyv_rec.last_update_login);
416   end;
417 
418 end okl_setuppstypes_pvt_w;