eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.OKL_LESSEE_AS_VENDOR_PVT_W

Source


1 package body okl_lessee_as_vendor_pvt_w as
2   /* $Header: OKLELVPB.pls 115.0 2003/10/09 00:55:26 cklee 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 create_lessee_as_vendor(p_api_version  NUMBER
23     , p_init_msg_list  VARCHAR2
24     , x_return_status out nocopy  VARCHAR2
25     , x_msg_count out nocopy  NUMBER
26     , x_msg_data out nocopy  VARCHAR2
27     , p_chr_id  NUMBER
28     , p7_a0 out nocopy  NUMBER
29     , p7_a1 out nocopy  NUMBER
30     , p7_a2 out nocopy  NUMBER
31     , p7_a3 out nocopy  NUMBER
32     , p7_a4 out nocopy  NUMBER
33     , p7_a5 out nocopy  NUMBER
34     , p7_a6 out nocopy  VARCHAR2
35     , p7_a7 out nocopy  VARCHAR2
36     , p7_a8 out nocopy  VARCHAR2
37     , p7_a9 out nocopy  VARCHAR2
38     , p7_a10 out nocopy  VARCHAR2
39     , p7_a11 out nocopy  VARCHAR2
40     , p7_a12 out nocopy  VARCHAR2
41     , p7_a13 out nocopy  VARCHAR2
42     , p7_a14 out nocopy  VARCHAR2
43     , p7_a15 out nocopy  VARCHAR2
44     , p7_a16 out nocopy  VARCHAR2
45     , p7_a17 out nocopy  VARCHAR2
46     , p7_a18 out nocopy  VARCHAR2
47     , p7_a19 out nocopy  VARCHAR2
48     , p7_a20 out nocopy  VARCHAR2
49     , p7_a21 out nocopy  VARCHAR2
50     , p7_a22 out nocopy  VARCHAR2
51     , p7_a23 out nocopy  VARCHAR2
52     , p7_a24 out nocopy  NUMBER
53     , p7_a25 out nocopy  DATE
54     , p7_a26 out nocopy  NUMBER
55     , p7_a27 out nocopy  DATE
56     , p7_a28 out nocopy  NUMBER
57     , p6_a0  NUMBER := 0-1962.0724
58     , p6_a1  NUMBER := 0-1962.0724
59     , p6_a2  NUMBER := 0-1962.0724
60     , p6_a3  NUMBER := 0-1962.0724
61     , p6_a4  NUMBER := 0-1962.0724
62     , p6_a5  NUMBER := 0-1962.0724
63     , p6_a6  VARCHAR2 := fnd_api.g_miss_char
64     , p6_a7  VARCHAR2 := fnd_api.g_miss_char
65     , p6_a8  VARCHAR2 := fnd_api.g_miss_char
66     , p6_a9  VARCHAR2 := fnd_api.g_miss_char
67     , p6_a10  VARCHAR2 := fnd_api.g_miss_char
68     , p6_a11  VARCHAR2 := fnd_api.g_miss_char
69     , p6_a12  VARCHAR2 := fnd_api.g_miss_char
70     , p6_a13  VARCHAR2 := fnd_api.g_miss_char
71     , p6_a14  VARCHAR2 := fnd_api.g_miss_char
72     , p6_a15  VARCHAR2 := fnd_api.g_miss_char
73     , p6_a16  VARCHAR2 := fnd_api.g_miss_char
74     , p6_a17  VARCHAR2 := fnd_api.g_miss_char
75     , p6_a18  VARCHAR2 := fnd_api.g_miss_char
76     , p6_a19  VARCHAR2 := fnd_api.g_miss_char
77     , p6_a20  VARCHAR2 := fnd_api.g_miss_char
78     , p6_a21  VARCHAR2 := fnd_api.g_miss_char
79     , p6_a22  VARCHAR2 := fnd_api.g_miss_char
80     , p6_a23  VARCHAR2 := fnd_api.g_miss_char
81     , p6_a24  NUMBER := 0-1962.0724
82     , p6_a25  DATE := fnd_api.g_miss_date
83     , p6_a26  NUMBER := 0-1962.0724
84     , p6_a27  DATE := fnd_api.g_miss_date
85     , p6_a28  NUMBER := 0-1962.0724
86   )
87 
88   as
89     ddp_ppydv_rec okl_lessee_as_vendor_pvt.ppydv_rec_type;
90     ddx_ppydv_rec okl_lessee_as_vendor_pvt.ppydv_rec_type;
91     ddindx binary_integer; indx binary_integer;
92   begin
93 
94     -- copy data to the local IN or IN-OUT args, if any
95 
96 
97 
98 
99 
100 
101     ddp_ppydv_rec.id := rosetta_g_miss_num_map(p6_a0);
102     ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p6_a1);
103     ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p6_a2);
104     ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p6_a3);
105     ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p6_a4);
106     ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p6_a5);
107     ddp_ppydv_rec.payment_method_code := p6_a6;
108     ddp_ppydv_rec.pay_group_code := p6_a7;
109     ddp_ppydv_rec.attribute_category := p6_a8;
110     ddp_ppydv_rec.attribute1 := p6_a9;
111     ddp_ppydv_rec.attribute2 := p6_a10;
112     ddp_ppydv_rec.attribute3 := p6_a11;
113     ddp_ppydv_rec.attribute4 := p6_a12;
114     ddp_ppydv_rec.attribute5 := p6_a13;
115     ddp_ppydv_rec.attribute6 := p6_a14;
116     ddp_ppydv_rec.attribute7 := p6_a15;
117     ddp_ppydv_rec.attribute8 := p6_a16;
118     ddp_ppydv_rec.attribute9 := p6_a17;
119     ddp_ppydv_rec.attribute10 := p6_a18;
120     ddp_ppydv_rec.attribute11 := p6_a19;
121     ddp_ppydv_rec.attribute12 := p6_a20;
122     ddp_ppydv_rec.attribute13 := p6_a21;
123     ddp_ppydv_rec.attribute14 := p6_a22;
124     ddp_ppydv_rec.attribute15 := p6_a23;
125     ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p6_a24);
126     ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p6_a25);
127     ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p6_a26);
128     ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p6_a27);
129     ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p6_a28);
130 
131 
132     -- here's the delegated call to the old PL/SQL routine
133     okl_lessee_as_vendor_pvt.create_lessee_as_vendor(p_api_version,
134       p_init_msg_list,
135       x_return_status,
136       x_msg_count,
137       x_msg_data,
138       p_chr_id,
139       ddp_ppydv_rec,
140       ddx_ppydv_rec);
141 
142     -- copy data back from the local variables to OUT or IN-OUT args, if any
143 
144 
145 
146 
147 
148 
149 
150     p7_a0 := rosetta_g_miss_num_map(ddx_ppydv_rec.id);
151     p7_a1 := rosetta_g_miss_num_map(ddx_ppydv_rec.object_version_number);
152     p7_a2 := rosetta_g_miss_num_map(ddx_ppydv_rec.cpl_id);
153     p7_a3 := rosetta_g_miss_num_map(ddx_ppydv_rec.vendor_id);
154     p7_a4 := rosetta_g_miss_num_map(ddx_ppydv_rec.pay_site_id);
155     p7_a5 := rosetta_g_miss_num_map(ddx_ppydv_rec.payment_term_id);
156     p7_a6 := ddx_ppydv_rec.payment_method_code;
157     p7_a7 := ddx_ppydv_rec.pay_group_code;
158     p7_a8 := ddx_ppydv_rec.attribute_category;
159     p7_a9 := ddx_ppydv_rec.attribute1;
160     p7_a10 := ddx_ppydv_rec.attribute2;
161     p7_a11 := ddx_ppydv_rec.attribute3;
162     p7_a12 := ddx_ppydv_rec.attribute4;
163     p7_a13 := ddx_ppydv_rec.attribute5;
164     p7_a14 := ddx_ppydv_rec.attribute6;
165     p7_a15 := ddx_ppydv_rec.attribute7;
166     p7_a16 := ddx_ppydv_rec.attribute8;
167     p7_a17 := ddx_ppydv_rec.attribute9;
168     p7_a18 := ddx_ppydv_rec.attribute10;
169     p7_a19 := ddx_ppydv_rec.attribute11;
170     p7_a20 := ddx_ppydv_rec.attribute12;
171     p7_a21 := ddx_ppydv_rec.attribute13;
172     p7_a22 := ddx_ppydv_rec.attribute14;
173     p7_a23 := ddx_ppydv_rec.attribute15;
174     p7_a24 := rosetta_g_miss_num_map(ddx_ppydv_rec.created_by);
175     p7_a25 := ddx_ppydv_rec.creation_date;
176     p7_a26 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_updated_by);
177     p7_a27 := ddx_ppydv_rec.last_update_date;
178     p7_a28 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_update_login);
179   end;
180 
181   procedure update_lessee_as_vendor(p_api_version  NUMBER
182     , p_init_msg_list  VARCHAR2
183     , x_return_status out nocopy  VARCHAR2
184     , x_msg_count out nocopy  NUMBER
185     , x_msg_data out nocopy  VARCHAR2
186     , p6_a0 out nocopy  NUMBER
187     , p6_a1 out nocopy  NUMBER
188     , p6_a2 out nocopy  NUMBER
189     , p6_a3 out nocopy  NUMBER
190     , p6_a4 out nocopy  NUMBER
191     , p6_a5 out nocopy  NUMBER
192     , p6_a6 out nocopy  VARCHAR2
193     , p6_a7 out nocopy  VARCHAR2
194     , p6_a8 out nocopy  VARCHAR2
195     , p6_a9 out nocopy  VARCHAR2
196     , p6_a10 out nocopy  VARCHAR2
197     , p6_a11 out nocopy  VARCHAR2
198     , p6_a12 out nocopy  VARCHAR2
199     , p6_a13 out nocopy  VARCHAR2
200     , p6_a14 out nocopy  VARCHAR2
201     , p6_a15 out nocopy  VARCHAR2
202     , p6_a16 out nocopy  VARCHAR2
203     , p6_a17 out nocopy  VARCHAR2
204     , p6_a18 out nocopy  VARCHAR2
205     , p6_a19 out nocopy  VARCHAR2
206     , p6_a20 out nocopy  VARCHAR2
207     , p6_a21 out nocopy  VARCHAR2
208     , p6_a22 out nocopy  VARCHAR2
209     , p6_a23 out nocopy  VARCHAR2
210     , p6_a24 out nocopy  NUMBER
211     , p6_a25 out nocopy  DATE
212     , p6_a26 out nocopy  NUMBER
213     , p6_a27 out nocopy  DATE
214     , p6_a28 out nocopy  NUMBER
215     , p5_a0  NUMBER := 0-1962.0724
216     , p5_a1  NUMBER := 0-1962.0724
217     , p5_a2  NUMBER := 0-1962.0724
218     , p5_a3  NUMBER := 0-1962.0724
219     , p5_a4  NUMBER := 0-1962.0724
220     , p5_a5  NUMBER := 0-1962.0724
221     , p5_a6  VARCHAR2 := fnd_api.g_miss_char
222     , p5_a7  VARCHAR2 := fnd_api.g_miss_char
223     , p5_a8  VARCHAR2 := fnd_api.g_miss_char
224     , p5_a9  VARCHAR2 := fnd_api.g_miss_char
225     , p5_a10  VARCHAR2 := fnd_api.g_miss_char
226     , p5_a11  VARCHAR2 := fnd_api.g_miss_char
227     , p5_a12  VARCHAR2 := fnd_api.g_miss_char
228     , p5_a13  VARCHAR2 := fnd_api.g_miss_char
229     , p5_a14  VARCHAR2 := fnd_api.g_miss_char
230     , p5_a15  VARCHAR2 := fnd_api.g_miss_char
231     , p5_a16  VARCHAR2 := fnd_api.g_miss_char
232     , p5_a17  VARCHAR2 := fnd_api.g_miss_char
233     , p5_a18  VARCHAR2 := fnd_api.g_miss_char
234     , p5_a19  VARCHAR2 := fnd_api.g_miss_char
235     , p5_a20  VARCHAR2 := fnd_api.g_miss_char
236     , p5_a21  VARCHAR2 := fnd_api.g_miss_char
237     , p5_a22  VARCHAR2 := fnd_api.g_miss_char
238     , p5_a23  VARCHAR2 := fnd_api.g_miss_char
239     , p5_a24  NUMBER := 0-1962.0724
240     , p5_a25  DATE := fnd_api.g_miss_date
241     , p5_a26  NUMBER := 0-1962.0724
242     , p5_a27  DATE := fnd_api.g_miss_date
243     , p5_a28  NUMBER := 0-1962.0724
244   )
245 
246   as
247     ddp_ppydv_rec okl_lessee_as_vendor_pvt.ppydv_rec_type;
248     ddx_ppydv_rec okl_lessee_as_vendor_pvt.ppydv_rec_type;
249     ddindx binary_integer; indx binary_integer;
250   begin
251 
252     -- copy data to the local IN or IN-OUT args, if any
253 
254 
255 
256 
257 
258     ddp_ppydv_rec.id := rosetta_g_miss_num_map(p5_a0);
259     ddp_ppydv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
260     ddp_ppydv_rec.cpl_id := rosetta_g_miss_num_map(p5_a2);
261     ddp_ppydv_rec.vendor_id := rosetta_g_miss_num_map(p5_a3);
262     ddp_ppydv_rec.pay_site_id := rosetta_g_miss_num_map(p5_a4);
263     ddp_ppydv_rec.payment_term_id := rosetta_g_miss_num_map(p5_a5);
264     ddp_ppydv_rec.payment_method_code := p5_a6;
265     ddp_ppydv_rec.pay_group_code := p5_a7;
266     ddp_ppydv_rec.attribute_category := p5_a8;
267     ddp_ppydv_rec.attribute1 := p5_a9;
268     ddp_ppydv_rec.attribute2 := p5_a10;
269     ddp_ppydv_rec.attribute3 := p5_a11;
270     ddp_ppydv_rec.attribute4 := p5_a12;
271     ddp_ppydv_rec.attribute5 := p5_a13;
272     ddp_ppydv_rec.attribute6 := p5_a14;
273     ddp_ppydv_rec.attribute7 := p5_a15;
274     ddp_ppydv_rec.attribute8 := p5_a16;
275     ddp_ppydv_rec.attribute9 := p5_a17;
276     ddp_ppydv_rec.attribute10 := p5_a18;
277     ddp_ppydv_rec.attribute11 := p5_a19;
278     ddp_ppydv_rec.attribute12 := p5_a20;
279     ddp_ppydv_rec.attribute13 := p5_a21;
280     ddp_ppydv_rec.attribute14 := p5_a22;
281     ddp_ppydv_rec.attribute15 := p5_a23;
282     ddp_ppydv_rec.created_by := rosetta_g_miss_num_map(p5_a24);
283     ddp_ppydv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a25);
284     ddp_ppydv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a26);
285     ddp_ppydv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a27);
286     ddp_ppydv_rec.last_update_login := rosetta_g_miss_num_map(p5_a28);
287 
288 
289     -- here's the delegated call to the old PL/SQL routine
290     okl_lessee_as_vendor_pvt.update_lessee_as_vendor(p_api_version,
291       p_init_msg_list,
292       x_return_status,
293       x_msg_count,
294       x_msg_data,
295       ddp_ppydv_rec,
296       ddx_ppydv_rec);
297 
298     -- copy data back from the local variables to OUT or IN-OUT args, if any
299 
300 
301 
302 
303 
304 
305     p6_a0 := rosetta_g_miss_num_map(ddx_ppydv_rec.id);
306     p6_a1 := rosetta_g_miss_num_map(ddx_ppydv_rec.object_version_number);
307     p6_a2 := rosetta_g_miss_num_map(ddx_ppydv_rec.cpl_id);
308     p6_a3 := rosetta_g_miss_num_map(ddx_ppydv_rec.vendor_id);
309     p6_a4 := rosetta_g_miss_num_map(ddx_ppydv_rec.pay_site_id);
310     p6_a5 := rosetta_g_miss_num_map(ddx_ppydv_rec.payment_term_id);
311     p6_a6 := ddx_ppydv_rec.payment_method_code;
312     p6_a7 := ddx_ppydv_rec.pay_group_code;
313     p6_a8 := ddx_ppydv_rec.attribute_category;
314     p6_a9 := ddx_ppydv_rec.attribute1;
315     p6_a10 := ddx_ppydv_rec.attribute2;
316     p6_a11 := ddx_ppydv_rec.attribute3;
317     p6_a12 := ddx_ppydv_rec.attribute4;
318     p6_a13 := ddx_ppydv_rec.attribute5;
319     p6_a14 := ddx_ppydv_rec.attribute6;
320     p6_a15 := ddx_ppydv_rec.attribute7;
321     p6_a16 := ddx_ppydv_rec.attribute8;
322     p6_a17 := ddx_ppydv_rec.attribute9;
323     p6_a18 := ddx_ppydv_rec.attribute10;
324     p6_a19 := ddx_ppydv_rec.attribute11;
325     p6_a20 := ddx_ppydv_rec.attribute12;
326     p6_a21 := ddx_ppydv_rec.attribute13;
327     p6_a22 := ddx_ppydv_rec.attribute14;
328     p6_a23 := ddx_ppydv_rec.attribute15;
329     p6_a24 := rosetta_g_miss_num_map(ddx_ppydv_rec.created_by);
330     p6_a25 := ddx_ppydv_rec.creation_date;
331     p6_a26 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_updated_by);
332     p6_a27 := ddx_ppydv_rec.last_update_date;
333     p6_a28 := rosetta_g_miss_num_map(ddx_ppydv_rec.last_update_login);
334   end;
335 
336 end okl_lessee_as_vendor_pvt_w;