[Home] [Help]
PACKAGE BODY: APPS.OKL_CURE_VNDR_RFND_PUB_W
Source
1 package body okl_cure_vndr_rfnd_pub_w as
2 /* $Header: OKLURFSB.pls 115.0 2003/04/25 04:15:40 smereddy 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_cure_refund(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 , p5_a0 JTF_NUMBER_TABLE
28 , p5_a1 JTF_NUMBER_TABLE
29 , p5_a2 JTF_NUMBER_TABLE
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_VARCHAR2_TABLE_100
32 , p5_a5 JTF_VARCHAR2_TABLE_200
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_VARCHAR2_TABLE_200
35 , p5_a8 JTF_NUMBER_TABLE
36 , p5_a9 JTF_NUMBER_TABLE
37 , p5_a10 JTF_VARCHAR2_TABLE_200
38 , p5_a11 JTF_NUMBER_TABLE
39 , p5_a12 JTF_NUMBER_TABLE
40 , p5_a13 JTF_NUMBER_TABLE
41 , p5_a14 JTF_NUMBER_TABLE
42 , p5_a15 JTF_NUMBER_TABLE
43 , p6_a0 out nocopy JTF_NUMBER_TABLE
44 , p6_a1 out nocopy JTF_NUMBER_TABLE
45 , p6_a2 out nocopy JTF_NUMBER_TABLE
46 , p6_a3 out nocopy JTF_NUMBER_TABLE
47 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
48 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
49 , p6_a6 out nocopy JTF_NUMBER_TABLE
50 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
51 , p6_a8 out nocopy JTF_NUMBER_TABLE
52 , p6_a9 out nocopy JTF_NUMBER_TABLE
53 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
54 , p6_a11 out nocopy JTF_NUMBER_TABLE
55 , p6_a12 out nocopy JTF_NUMBER_TABLE
56 , p6_a13 out nocopy JTF_NUMBER_TABLE
57 , p6_a14 out nocopy JTF_NUMBER_TABLE
58 , p6_a15 out nocopy JTF_NUMBER_TABLE
59 )
60
61 as
62 ddp_cure_rfnd_tbl okl_cure_vndr_rfnd_pub.cure_rfnd_tbl_type;
63 ddx_cure_rfnd_tbl okl_cure_vndr_rfnd_pub.cure_rfnd_tbl_type;
64 ddindx binary_integer; indx binary_integer;
65 begin
66
67 -- copy data to the local IN or IN-OUT args, if any
68
69
70
71
72
73 okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_in_p1(ddp_cure_rfnd_tbl, p5_a0
74 , p5_a1
75 , p5_a2
76 , p5_a3
77 , p5_a4
78 , p5_a5
79 , p5_a6
80 , p5_a7
81 , p5_a8
82 , p5_a9
83 , p5_a10
84 , p5_a11
85 , p5_a12
86 , p5_a13
87 , p5_a14
88 , p5_a15
89 );
90
91
92 -- here's the delegated call to the old PL/SQL routine
93 okl_cure_vndr_rfnd_pub.create_cure_refund(p_api_version,
94 p_init_msg_list,
95 x_return_status,
96 x_msg_count,
97 x_msg_data,
98 ddp_cure_rfnd_tbl,
99 ddx_cure_rfnd_tbl);
100
101 -- copy data back from the local variables to OUT or IN-OUT args, if any
102
103
104
105
106
107
108 okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_out_p1(ddx_cure_rfnd_tbl, p6_a0
109 , p6_a1
110 , p6_a2
111 , p6_a3
112 , p6_a4
113 , p6_a5
114 , p6_a6
115 , p6_a7
116 , p6_a8
117 , p6_a9
118 , p6_a10
119 , p6_a11
120 , p6_a12
121 , p6_a13
122 , p6_a14
123 , p6_a15
124 );
125 end;
126
127 procedure update_cure_refund(p_api_version NUMBER
128 , p_init_msg_list VARCHAR2
129 , x_return_status out nocopy VARCHAR2
130 , x_msg_count out nocopy NUMBER
131 , x_msg_data out nocopy VARCHAR2
132 , p5_a0 JTF_NUMBER_TABLE
133 , p5_a1 JTF_NUMBER_TABLE
134 , p5_a2 JTF_NUMBER_TABLE
135 , p5_a3 JTF_NUMBER_TABLE
136 , p5_a4 JTF_VARCHAR2_TABLE_100
137 , p5_a5 JTF_VARCHAR2_TABLE_200
138 , p5_a6 JTF_NUMBER_TABLE
139 , p5_a7 JTF_VARCHAR2_TABLE_200
140 , p5_a8 JTF_NUMBER_TABLE
141 , p5_a9 JTF_NUMBER_TABLE
142 , p5_a10 JTF_VARCHAR2_TABLE_200
143 , p5_a11 JTF_NUMBER_TABLE
144 , p5_a12 JTF_NUMBER_TABLE
145 , p5_a13 JTF_NUMBER_TABLE
146 , p5_a14 JTF_NUMBER_TABLE
147 , p5_a15 JTF_NUMBER_TABLE
148 , p6_a0 out nocopy JTF_NUMBER_TABLE
149 , p6_a1 out nocopy JTF_NUMBER_TABLE
150 , p6_a2 out nocopy JTF_NUMBER_TABLE
151 , p6_a3 out nocopy JTF_NUMBER_TABLE
152 , p6_a4 out nocopy JTF_VARCHAR2_TABLE_100
153 , p6_a5 out nocopy JTF_VARCHAR2_TABLE_200
154 , p6_a6 out nocopy JTF_NUMBER_TABLE
155 , p6_a7 out nocopy JTF_VARCHAR2_TABLE_200
156 , p6_a8 out nocopy JTF_NUMBER_TABLE
157 , p6_a9 out nocopy JTF_NUMBER_TABLE
158 , p6_a10 out nocopy JTF_VARCHAR2_TABLE_200
159 , p6_a11 out nocopy JTF_NUMBER_TABLE
160 , p6_a12 out nocopy JTF_NUMBER_TABLE
161 , p6_a13 out nocopy JTF_NUMBER_TABLE
162 , p6_a14 out nocopy JTF_NUMBER_TABLE
163 , p6_a15 out nocopy JTF_NUMBER_TABLE
164 )
165
166 as
167 ddp_cure_rfnd_tbl okl_cure_vndr_rfnd_pub.cure_rfnd_tbl_type;
168 ddx_cure_rfnd_tbl okl_cure_vndr_rfnd_pub.cure_rfnd_tbl_type;
169 ddindx binary_integer; indx binary_integer;
170 begin
171
172 -- copy data to the local IN or IN-OUT args, if any
173
174
175
176
177
178 okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_in_p1(ddp_cure_rfnd_tbl, p5_a0
179 , p5_a1
180 , p5_a2
181 , p5_a3
182 , p5_a4
183 , p5_a5
184 , p5_a6
185 , p5_a7
186 , p5_a8
187 , p5_a9
188 , p5_a10
189 , p5_a11
190 , p5_a12
191 , p5_a13
192 , p5_a14
193 , p5_a15
194 );
195
196
197 -- here's the delegated call to the old PL/SQL routine
198 okl_cure_vndr_rfnd_pub.update_cure_refund(p_api_version,
199 p_init_msg_list,
200 x_return_status,
201 x_msg_count,
202 x_msg_data,
203 ddp_cure_rfnd_tbl,
204 ddx_cure_rfnd_tbl);
205
206 -- copy data back from the local variables to OUT or IN-OUT args, if any
207
208
209
210
211
212
213 okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_out_p1(ddx_cure_rfnd_tbl, p6_a0
214 , p6_a1
215 , p6_a2
216 , p6_a3
217 , p6_a4
218 , p6_a5
219 , p6_a6
220 , p6_a7
221 , p6_a8
222 , p6_a9
223 , p6_a10
224 , p6_a11
225 , p6_a12
226 , p6_a13
227 , p6_a14
228 , p6_a15
229 );
230 end;
231
232 procedure delete_cure_refund(p_api_version NUMBER
233 , p_init_msg_list VARCHAR2
234 , x_return_status out nocopy VARCHAR2
235 , x_msg_count out nocopy NUMBER
236 , x_msg_data out nocopy VARCHAR2
237 , p5_a0 JTF_NUMBER_TABLE
238 , p5_a1 JTF_NUMBER_TABLE
239 , p5_a2 JTF_NUMBER_TABLE
240 , p5_a3 JTF_NUMBER_TABLE
241 , p5_a4 JTF_VARCHAR2_TABLE_100
242 , p5_a5 JTF_VARCHAR2_TABLE_200
243 , p5_a6 JTF_NUMBER_TABLE
244 , p5_a7 JTF_VARCHAR2_TABLE_200
245 , p5_a8 JTF_NUMBER_TABLE
246 , p5_a9 JTF_NUMBER_TABLE
247 , p5_a10 JTF_VARCHAR2_TABLE_200
248 , p5_a11 JTF_NUMBER_TABLE
249 , p5_a12 JTF_NUMBER_TABLE
250 , p5_a13 JTF_NUMBER_TABLE
251 , p5_a14 JTF_NUMBER_TABLE
252 , p5_a15 JTF_NUMBER_TABLE
253 )
254
255 as
256 ddp_cure_rfnd_tbl okl_cure_vndr_rfnd_pub.cure_rfnd_tbl_type;
257 ddindx binary_integer; indx binary_integer;
258 begin
259
260 -- copy data to the local IN or IN-OUT args, if any
261
262
263
264
265
266 okl_cure_vndr_rfnd_pvt_w.rosetta_table_copy_in_p1(ddp_cure_rfnd_tbl, p5_a0
267 , p5_a1
268 , p5_a2
269 , p5_a3
270 , p5_a4
271 , p5_a5
272 , p5_a6
273 , p5_a7
274 , p5_a8
275 , p5_a9
276 , p5_a10
277 , p5_a11
278 , p5_a12
279 , p5_a13
280 , p5_a14
281 , p5_a15
282 );
283
284 -- here's the delegated call to the old PL/SQL routine
285 okl_cure_vndr_rfnd_pub.delete_cure_refund(p_api_version,
286 p_init_msg_list,
287 x_return_status,
288 x_msg_count,
289 x_msg_data,
290 ddp_cure_rfnd_tbl);
291
292 -- copy data back from the local variables to OUT or IN-OUT args, if any
293
294
295
296
297
298 end;
299
300 end okl_cure_vndr_rfnd_pub_w;