[Home] [Help]
PACKAGE BODY: APPS.OKL_BPD_MAN_RCT_HANDLE_PVT_W
Source
1 package body okl_bpd_man_rct_handle_pvt_w as
2 /* $Header: OKLEMRHB.pls 120.0 2005/10/14 10:17:08 abindal 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 man_receipt_apply(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_VARCHAR2_TABLE_100
30 , p5_a3 JTF_NUMBER_TABLE
31 , p5_a4 JTF_NUMBER_TABLE
32 , p5_a5 JTF_NUMBER_TABLE
33 , p5_a6 JTF_NUMBER_TABLE
34 , p5_a7 JTF_NUMBER_TABLE
35 , p5_a8 JTF_VARCHAR2_TABLE_200
36 , p5_a9 JTF_NUMBER_TABLE
37 , p5_a10 JTF_NUMBER_TABLE
38 , p5_a11 JTF_NUMBER_TABLE
39 , p5_a12 JTF_VARCHAR2_TABLE_100
40 , p5_a13 JTF_NUMBER_TABLE
41 , p5_a14 JTF_DATE_TABLE
42 , p5_a15 JTF_VARCHAR2_TABLE_100
43 , p5_a16 JTF_VARCHAR2_TABLE_500
44 , p5_a17 JTF_VARCHAR2_TABLE_500
45 , p5_a18 JTF_VARCHAR2_TABLE_500
46 , p5_a19 JTF_VARCHAR2_TABLE_500
47 , p5_a20 JTF_VARCHAR2_TABLE_500
48 , p5_a21 JTF_VARCHAR2_TABLE_500
49 , p5_a22 JTF_VARCHAR2_TABLE_500
50 , p5_a23 JTF_VARCHAR2_TABLE_500
51 , p5_a24 JTF_VARCHAR2_TABLE_500
52 , p5_a25 JTF_VARCHAR2_TABLE_500
53 , p5_a26 JTF_VARCHAR2_TABLE_500
54 , p5_a27 JTF_VARCHAR2_TABLE_500
55 , p5_a28 JTF_VARCHAR2_TABLE_500
56 , p5_a29 JTF_VARCHAR2_TABLE_500
57 , p5_a30 JTF_VARCHAR2_TABLE_500
58 , p5_a31 JTF_NUMBER_TABLE
59 , p5_a32 JTF_NUMBER_TABLE
60 , p5_a33 JTF_NUMBER_TABLE
61 , p5_a34 JTF_DATE_TABLE
62 , p5_a35 JTF_NUMBER_TABLE
63 , p5_a36 JTF_NUMBER_TABLE
64 , p5_a37 JTF_DATE_TABLE
65 , p5_a38 JTF_NUMBER_TABLE
66 , p5_a39 JTF_DATE_TABLE
67 , p5_a40 JTF_NUMBER_TABLE
68 , p_receipt_id NUMBER
69 , p_receipt_amount NUMBER
70 , p_receipt_date date
71 , p_receipt_currency VARCHAR2
72 )
73
74 as
75 ddp_xcav_tbl okl_bpd_man_rct_handle_pvt.xcav_tbl_type;
76 ddp_receipt_date date;
77 ddindx binary_integer; indx binary_integer;
78 begin
79
80 -- copy data to the local IN or IN-OUT args, if any
81
82
83
84
85
86 okl_xca_pvt_w.rosetta_table_copy_in_p8(ddp_xcav_tbl, p5_a0
87 , p5_a1
88 , p5_a2
89 , p5_a3
90 , p5_a4
91 , p5_a5
92 , p5_a6
93 , p5_a7
94 , p5_a8
95 , p5_a9
96 , p5_a10
97 , p5_a11
98 , p5_a12
99 , p5_a13
100 , p5_a14
101 , p5_a15
102 , p5_a16
103 , p5_a17
104 , p5_a18
105 , p5_a19
106 , p5_a20
107 , p5_a21
108 , p5_a22
109 , p5_a23
110 , p5_a24
111 , p5_a25
112 , p5_a26
113 , p5_a27
114 , p5_a28
115 , p5_a29
116 , p5_a30
117 , p5_a31
118 , p5_a32
119 , p5_a33
120 , p5_a34
121 , p5_a35
122 , p5_a36
123 , p5_a37
124 , p5_a38
125 , p5_a39
126 , p5_a40
127 );
128
129
130
131 ddp_receipt_date := rosetta_g_miss_date_in_map(p_receipt_date);
132
133
134 -- here's the delegated call to the old PL/SQL routine
135 okl_bpd_man_rct_handle_pvt.man_receipt_apply(p_api_version,
136 p_init_msg_list,
137 x_return_status,
138 x_msg_count,
139 x_msg_data,
140 ddp_xcav_tbl,
141 p_receipt_id,
142 p_receipt_amount,
143 ddp_receipt_date,
144 p_receipt_currency);
145
146 -- copy data back from the local variables to OUT or IN-OUT args, if any
147
148
149
150
151
152
153
154
155
156 end;
157
158 procedure man_receipt_unapply(p_api_version NUMBER
159 , p_init_msg_list VARCHAR2
160 , x_return_status out nocopy VARCHAR2
161 , x_msg_count out nocopy NUMBER
162 , x_msg_data out nocopy VARCHAR2
163 , p5_a0 JTF_NUMBER_TABLE
164 , p5_a1 JTF_NUMBER_TABLE
165 , p5_a2 JTF_VARCHAR2_TABLE_100
166 , p5_a3 JTF_NUMBER_TABLE
167 , p5_a4 JTF_NUMBER_TABLE
168 , p5_a5 JTF_NUMBER_TABLE
169 , p5_a6 JTF_NUMBER_TABLE
170 , p5_a7 JTF_NUMBER_TABLE
171 , p5_a8 JTF_VARCHAR2_TABLE_200
172 , p5_a9 JTF_NUMBER_TABLE
173 , p5_a10 JTF_NUMBER_TABLE
174 , p5_a11 JTF_NUMBER_TABLE
175 , p5_a12 JTF_VARCHAR2_TABLE_100
176 , p5_a13 JTF_NUMBER_TABLE
177 , p5_a14 JTF_DATE_TABLE
178 , p5_a15 JTF_VARCHAR2_TABLE_100
179 , p5_a16 JTF_VARCHAR2_TABLE_500
180 , p5_a17 JTF_VARCHAR2_TABLE_500
181 , p5_a18 JTF_VARCHAR2_TABLE_500
182 , p5_a19 JTF_VARCHAR2_TABLE_500
183 , p5_a20 JTF_VARCHAR2_TABLE_500
184 , p5_a21 JTF_VARCHAR2_TABLE_500
185 , p5_a22 JTF_VARCHAR2_TABLE_500
186 , p5_a23 JTF_VARCHAR2_TABLE_500
187 , p5_a24 JTF_VARCHAR2_TABLE_500
188 , p5_a25 JTF_VARCHAR2_TABLE_500
189 , p5_a26 JTF_VARCHAR2_TABLE_500
190 , p5_a27 JTF_VARCHAR2_TABLE_500
191 , p5_a28 JTF_VARCHAR2_TABLE_500
192 , p5_a29 JTF_VARCHAR2_TABLE_500
193 , p5_a30 JTF_VARCHAR2_TABLE_500
194 , p5_a31 JTF_NUMBER_TABLE
195 , p5_a32 JTF_NUMBER_TABLE
196 , p5_a33 JTF_NUMBER_TABLE
197 , p5_a34 JTF_DATE_TABLE
198 , p5_a35 JTF_NUMBER_TABLE
199 , p5_a36 JTF_NUMBER_TABLE
200 , p5_a37 JTF_DATE_TABLE
201 , p5_a38 JTF_NUMBER_TABLE
202 , p5_a39 JTF_DATE_TABLE
203 , p5_a40 JTF_NUMBER_TABLE
204 , p_receipt_id NUMBER
205 , p_receipt_date date
206 )
207
208 as
209 ddp_xcav_tbl okl_bpd_man_rct_handle_pvt.xcav_tbl_type;
210 ddp_receipt_date date;
211 ddindx binary_integer; indx binary_integer;
212 begin
213
214 -- copy data to the local IN or IN-OUT args, if any
215
216
217
218
219
220 okl_xca_pvt_w.rosetta_table_copy_in_p8(ddp_xcav_tbl, p5_a0
221 , p5_a1
222 , p5_a2
223 , p5_a3
224 , p5_a4
225 , p5_a5
226 , p5_a6
227 , p5_a7
228 , p5_a8
229 , p5_a9
230 , p5_a10
231 , p5_a11
232 , p5_a12
233 , p5_a13
234 , p5_a14
235 , p5_a15
236 , p5_a16
237 , p5_a17
238 , p5_a18
239 , p5_a19
240 , p5_a20
241 , p5_a21
242 , p5_a22
243 , p5_a23
244 , p5_a24
245 , p5_a25
246 , p5_a26
247 , p5_a27
248 , p5_a28
249 , p5_a29
250 , p5_a30
251 , p5_a31
252 , p5_a32
253 , p5_a33
254 , p5_a34
255 , p5_a35
256 , p5_a36
257 , p5_a37
258 , p5_a38
259 , p5_a39
260 , p5_a40
261 );
262
263
264 ddp_receipt_date := rosetta_g_miss_date_in_map(p_receipt_date);
265
266 -- here's the delegated call to the old PL/SQL routine
267 okl_bpd_man_rct_handle_pvt.man_receipt_unapply(p_api_version,
268 p_init_msg_list,
269 x_return_status,
270 x_msg_count,
271 x_msg_data,
272 ddp_xcav_tbl,
273 p_receipt_id,
274 ddp_receipt_date);
275
276 -- copy data back from the local variables to OUT or IN-OUT args, if any
277
278
279
280
281
282
283
284 end;
285
286 end okl_bpd_man_rct_handle_pvt_w;