[Home] [Help]
PACKAGE BODY: APPS.OKL_ACCOUNTING_UPDATE_PUB_W
Source
1 package body okl_accounting_update_pub_w as
2 /* $Header: OKLUAEUB.pls 120.1 2005/07/07 13:35:05 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 update_acct_entries(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 , p6_a0 out nocopy NUMBER
28 , p6_a1 out nocopy NUMBER
29 , p6_a2 out nocopy NUMBER
30 , p6_a3 out nocopy VARCHAR2
31 , p6_a4 out nocopy NUMBER
32 , p6_a5 out nocopy NUMBER
33 , p6_a6 out nocopy NUMBER
34 , p6_a7 out nocopy VARCHAR2
35 , p6_a8 out nocopy DATE
36 , p6_a9 out nocopy NUMBER
37 , p6_a10 out nocopy NUMBER
38 , p6_a11 out nocopy NUMBER
39 , p6_a12 out nocopy NUMBER
40 , p6_a13 out nocopy NUMBER
41 , p6_a14 out nocopy VARCHAR2
42 , p6_a15 out nocopy NUMBER
43 , p6_a16 out nocopy VARCHAR2
44 , p6_a17 out nocopy VARCHAR2
45 , p6_a18 out nocopy VARCHAR2
46 , p6_a19 out nocopy VARCHAR2
47 , p6_a20 out nocopy VARCHAR2
48 , p6_a21 out nocopy VARCHAR2
49 , p6_a22 out nocopy VARCHAR2
50 , p6_a23 out nocopy VARCHAR2
51 , p6_a24 out nocopy VARCHAR2
52 , p6_a25 out nocopy VARCHAR2
53 , p6_a26 out nocopy VARCHAR2
54 , p6_a27 out nocopy NUMBER
55 , p6_a28 out nocopy NUMBER
56 , p6_a29 out nocopy NUMBER
57 , p6_a30 out nocopy VARCHAR2
58 , p6_a31 out nocopy NUMBER
59 , p6_a32 out nocopy VARCHAR2
60 , p6_a33 out nocopy VARCHAR2
61 , p6_a34 out nocopy NUMBER
62 , p6_a35 out nocopy NUMBER
63 , p6_a36 out nocopy NUMBER
64 , p6_a37 out nocopy NUMBER
65 , p6_a38 out nocopy NUMBER
66 , p6_a39 out nocopy VARCHAR2
67 , p6_a40 out nocopy NUMBER
68 , p6_a41 out nocopy VARCHAR2
69 , p6_a42 out nocopy NUMBER
70 , p6_a43 out nocopy NUMBER
71 , p6_a44 out nocopy VARCHAR2
72 , p6_a45 out nocopy NUMBER
73 , p6_a46 out nocopy NUMBER
74 , p6_a47 out nocopy DATE
75 , p6_a48 out nocopy NUMBER
76 , p6_a49 out nocopy NUMBER
77 , p6_a50 out nocopy NUMBER
78 , p6_a51 out nocopy DATE
79 , p6_a52 out nocopy NUMBER
80 , p6_a53 out nocopy DATE
81 , p6_a54 out nocopy NUMBER
82 , p6_a55 out nocopy NUMBER
83 , p6_a56 out nocopy NUMBER
84 , p6_a57 out nocopy NUMBER
85 , p5_a0 NUMBER := 0-1962.0724
86 , p5_a1 NUMBER := 0-1962.0724
87 , p5_a2 NUMBER := 0-1962.0724
88 , p5_a3 VARCHAR2 := fnd_api.g_miss_char
89 , p5_a4 NUMBER := 0-1962.0724
90 , p5_a5 NUMBER := 0-1962.0724
91 , p5_a6 NUMBER := 0-1962.0724
92 , p5_a7 VARCHAR2 := fnd_api.g_miss_char
93 , p5_a8 DATE := fnd_api.g_miss_date
94 , p5_a9 NUMBER := 0-1962.0724
95 , p5_a10 NUMBER := 0-1962.0724
96 , p5_a11 NUMBER := 0-1962.0724
97 , p5_a12 NUMBER := 0-1962.0724
98 , p5_a13 NUMBER := 0-1962.0724
99 , p5_a14 VARCHAR2 := fnd_api.g_miss_char
100 , p5_a15 NUMBER := 0-1962.0724
101 , p5_a16 VARCHAR2 := fnd_api.g_miss_char
102 , p5_a17 VARCHAR2 := fnd_api.g_miss_char
103 , p5_a18 VARCHAR2 := fnd_api.g_miss_char
104 , p5_a19 VARCHAR2 := fnd_api.g_miss_char
105 , p5_a20 VARCHAR2 := fnd_api.g_miss_char
106 , p5_a21 VARCHAR2 := fnd_api.g_miss_char
107 , p5_a22 VARCHAR2 := fnd_api.g_miss_char
108 , p5_a23 VARCHAR2 := fnd_api.g_miss_char
109 , p5_a24 VARCHAR2 := fnd_api.g_miss_char
110 , p5_a25 VARCHAR2 := fnd_api.g_miss_char
111 , p5_a26 VARCHAR2 := fnd_api.g_miss_char
112 , p5_a27 NUMBER := 0-1962.0724
113 , p5_a28 NUMBER := 0-1962.0724
114 , p5_a29 NUMBER := 0-1962.0724
115 , p5_a30 VARCHAR2 := fnd_api.g_miss_char
116 , p5_a31 NUMBER := 0-1962.0724
117 , p5_a32 VARCHAR2 := fnd_api.g_miss_char
118 , p5_a33 VARCHAR2 := fnd_api.g_miss_char
119 , p5_a34 NUMBER := 0-1962.0724
120 , p5_a35 NUMBER := 0-1962.0724
121 , p5_a36 NUMBER := 0-1962.0724
122 , p5_a37 NUMBER := 0-1962.0724
123 , p5_a38 NUMBER := 0-1962.0724
124 , p5_a39 VARCHAR2 := fnd_api.g_miss_char
125 , p5_a40 NUMBER := 0-1962.0724
126 , p5_a41 VARCHAR2 := fnd_api.g_miss_char
127 , p5_a42 NUMBER := 0-1962.0724
128 , p5_a43 NUMBER := 0-1962.0724
129 , p5_a44 VARCHAR2 := fnd_api.g_miss_char
130 , p5_a45 NUMBER := 0-1962.0724
131 , p5_a46 NUMBER := 0-1962.0724
132 , p5_a47 DATE := fnd_api.g_miss_date
133 , p5_a48 NUMBER := 0-1962.0724
134 , p5_a49 NUMBER := 0-1962.0724
135 , p5_a50 NUMBER := 0-1962.0724
136 , p5_a51 DATE := fnd_api.g_miss_date
137 , p5_a52 NUMBER := 0-1962.0724
138 , p5_a53 DATE := fnd_api.g_miss_date
139 , p5_a54 NUMBER := 0-1962.0724
140 , p5_a55 NUMBER := 0-1962.0724
141 , p5_a56 NUMBER := 0-1962.0724
142 , p5_a57 NUMBER := 0-1962.0724
143 )
144
145 as
146 ddp_aelv_rec okl_accounting_update_pub.aelv_rec_type;
147 ddx_aelv_rec okl_accounting_update_pub.aelv_rec_type;
148 ddindx binary_integer; indx binary_integer;
149 begin
150
151 -- copy data to the local IN or IN-OUT args, if any
152
153
154
155
156
157 ddp_aelv_rec.ae_line_id := rosetta_g_miss_num_map(p5_a0);
158 ddp_aelv_rec.object_version_number := rosetta_g_miss_num_map(p5_a1);
159 ddp_aelv_rec.ae_header_id := rosetta_g_miss_num_map(p5_a2);
160 ddp_aelv_rec.currency_conversion_type := p5_a3;
161 ddp_aelv_rec.code_combination_id := rosetta_g_miss_num_map(p5_a4);
162 ddp_aelv_rec.org_id := rosetta_g_miss_num_map(p5_a5);
163 ddp_aelv_rec.ae_line_number := rosetta_g_miss_num_map(p5_a6);
164 ddp_aelv_rec.ae_line_type_code := p5_a7;
165 ddp_aelv_rec.currency_conversion_date := rosetta_g_miss_date_in_map(p5_a8);
166 ddp_aelv_rec.currency_conversion_rate := rosetta_g_miss_num_map(p5_a9);
167 ddp_aelv_rec.entered_dr := rosetta_g_miss_num_map(p5_a10);
168 ddp_aelv_rec.entered_cr := rosetta_g_miss_num_map(p5_a11);
169 ddp_aelv_rec.accounted_dr := rosetta_g_miss_num_map(p5_a12);
170 ddp_aelv_rec.accounted_cr := rosetta_g_miss_num_map(p5_a13);
171 ddp_aelv_rec.source_table := p5_a14;
172 ddp_aelv_rec.source_id := rosetta_g_miss_num_map(p5_a15);
173 ddp_aelv_rec.reference1 := p5_a16;
174 ddp_aelv_rec.reference2 := p5_a17;
175 ddp_aelv_rec.reference3 := p5_a18;
176 ddp_aelv_rec.reference4 := p5_a19;
177 ddp_aelv_rec.reference5 := p5_a20;
178 ddp_aelv_rec.reference6 := p5_a21;
179 ddp_aelv_rec.reference7 := p5_a22;
180 ddp_aelv_rec.reference8 := p5_a23;
181 ddp_aelv_rec.reference9 := p5_a24;
182 ddp_aelv_rec.reference10 := p5_a25;
183 ddp_aelv_rec.description := p5_a26;
184 ddp_aelv_rec.third_party_id := rosetta_g_miss_num_map(p5_a27);
185 ddp_aelv_rec.third_party_sub_id := rosetta_g_miss_num_map(p5_a28);
186 ddp_aelv_rec.stat_amount := rosetta_g_miss_num_map(p5_a29);
187 ddp_aelv_rec.ussgl_transaction_code := p5_a30;
188 ddp_aelv_rec.subledger_doc_sequence_id := rosetta_g_miss_num_map(p5_a31);
189 ddp_aelv_rec.accounting_error_code := p5_a32;
190 ddp_aelv_rec.gl_transfer_error_code := p5_a33;
191 ddp_aelv_rec.gl_sl_link_id := rosetta_g_miss_num_map(p5_a34);
192 ddp_aelv_rec.taxable_entered_dr := rosetta_g_miss_num_map(p5_a35);
193 ddp_aelv_rec.taxable_entered_cr := rosetta_g_miss_num_map(p5_a36);
194 ddp_aelv_rec.taxable_accounted_dr := rosetta_g_miss_num_map(p5_a37);
195 ddp_aelv_rec.taxable_accounted_cr := rosetta_g_miss_num_map(p5_a38);
196 ddp_aelv_rec.applied_from_trx_hdr_table := p5_a39;
197 ddp_aelv_rec.applied_from_trx_hdr_id := rosetta_g_miss_num_map(p5_a40);
198 ddp_aelv_rec.applied_to_trx_hdr_table := p5_a41;
199 ddp_aelv_rec.applied_to_trx_hdr_id := rosetta_g_miss_num_map(p5_a42);
200 ddp_aelv_rec.tax_link_id := rosetta_g_miss_num_map(p5_a43);
201 ddp_aelv_rec.currency_code := p5_a44;
202 ddp_aelv_rec.program_id := rosetta_g_miss_num_map(p5_a45);
203 ddp_aelv_rec.program_application_id := rosetta_g_miss_num_map(p5_a46);
204 ddp_aelv_rec.program_update_date := rosetta_g_miss_date_in_map(p5_a47);
205 ddp_aelv_rec.request_id := rosetta_g_miss_num_map(p5_a48);
206 ddp_aelv_rec.aeh_tbl_index := rosetta_g_miss_num_map(p5_a49);
207 ddp_aelv_rec.created_by := rosetta_g_miss_num_map(p5_a50);
208 ddp_aelv_rec.creation_date := rosetta_g_miss_date_in_map(p5_a51);
209 ddp_aelv_rec.last_updated_by := rosetta_g_miss_num_map(p5_a52);
210 ddp_aelv_rec.last_update_date := rosetta_g_miss_date_in_map(p5_a53);
211 ddp_aelv_rec.last_update_login := rosetta_g_miss_num_map(p5_a54);
212 ddp_aelv_rec.account_overlay_source_id := rosetta_g_miss_num_map(p5_a55);
213 ddp_aelv_rec.subledger_doc_sequence_value := rosetta_g_miss_num_map(p5_a56);
214 ddp_aelv_rec.tax_code_id := rosetta_g_miss_num_map(p5_a57);
215
216
217 -- here's the delegated call to the old PL/SQL routine
218 okl_accounting_update_pub.update_acct_entries(p_api_version,
219 p_init_msg_list,
220 x_return_status,
221 x_msg_count,
222 x_msg_data,
223 ddp_aelv_rec,
224 ddx_aelv_rec);
225
226 -- copy data back from the local variables to OUT or IN-OUT args, if any
227
228
229
230
231
232
233 p6_a0 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_line_id);
234 p6_a1 := rosetta_g_miss_num_map(ddx_aelv_rec.object_version_number);
235 p6_a2 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_header_id);
236 p6_a3 := ddx_aelv_rec.currency_conversion_type;
237 p6_a4 := rosetta_g_miss_num_map(ddx_aelv_rec.code_combination_id);
238 p6_a5 := rosetta_g_miss_num_map(ddx_aelv_rec.org_id);
239 p6_a6 := rosetta_g_miss_num_map(ddx_aelv_rec.ae_line_number);
240 p6_a7 := ddx_aelv_rec.ae_line_type_code;
241 p6_a8 := ddx_aelv_rec.currency_conversion_date;
242 p6_a9 := rosetta_g_miss_num_map(ddx_aelv_rec.currency_conversion_rate);
243 p6_a10 := rosetta_g_miss_num_map(ddx_aelv_rec.entered_dr);
244 p6_a11 := rosetta_g_miss_num_map(ddx_aelv_rec.entered_cr);
245 p6_a12 := rosetta_g_miss_num_map(ddx_aelv_rec.accounted_dr);
246 p6_a13 := rosetta_g_miss_num_map(ddx_aelv_rec.accounted_cr);
247 p6_a14 := ddx_aelv_rec.source_table;
248 p6_a15 := rosetta_g_miss_num_map(ddx_aelv_rec.source_id);
249 p6_a16 := ddx_aelv_rec.reference1;
250 p6_a17 := ddx_aelv_rec.reference2;
251 p6_a18 := ddx_aelv_rec.reference3;
252 p6_a19 := ddx_aelv_rec.reference4;
253 p6_a20 := ddx_aelv_rec.reference5;
254 p6_a21 := ddx_aelv_rec.reference6;
255 p6_a22 := ddx_aelv_rec.reference7;
256 p6_a23 := ddx_aelv_rec.reference8;
257 p6_a24 := ddx_aelv_rec.reference9;
258 p6_a25 := ddx_aelv_rec.reference10;
259 p6_a26 := ddx_aelv_rec.description;
260 p6_a27 := rosetta_g_miss_num_map(ddx_aelv_rec.third_party_id);
261 p6_a28 := rosetta_g_miss_num_map(ddx_aelv_rec.third_party_sub_id);
262 p6_a29 := rosetta_g_miss_num_map(ddx_aelv_rec.stat_amount);
263 p6_a30 := ddx_aelv_rec.ussgl_transaction_code;
264 p6_a31 := rosetta_g_miss_num_map(ddx_aelv_rec.subledger_doc_sequence_id);
265 p6_a32 := ddx_aelv_rec.accounting_error_code;
266 p6_a33 := ddx_aelv_rec.gl_transfer_error_code;
267 p6_a34 := rosetta_g_miss_num_map(ddx_aelv_rec.gl_sl_link_id);
268 p6_a35 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_entered_dr);
269 p6_a36 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_entered_cr);
270 p6_a37 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_accounted_dr);
271 p6_a38 := rosetta_g_miss_num_map(ddx_aelv_rec.taxable_accounted_cr);
272 p6_a39 := ddx_aelv_rec.applied_from_trx_hdr_table;
273 p6_a40 := rosetta_g_miss_num_map(ddx_aelv_rec.applied_from_trx_hdr_id);
274 p6_a41 := ddx_aelv_rec.applied_to_trx_hdr_table;
275 p6_a42 := rosetta_g_miss_num_map(ddx_aelv_rec.applied_to_trx_hdr_id);
276 p6_a43 := rosetta_g_miss_num_map(ddx_aelv_rec.tax_link_id);
277 p6_a44 := ddx_aelv_rec.currency_code;
278 p6_a45 := rosetta_g_miss_num_map(ddx_aelv_rec.program_id);
279 p6_a46 := rosetta_g_miss_num_map(ddx_aelv_rec.program_application_id);
280 p6_a47 := ddx_aelv_rec.program_update_date;
281 p6_a48 := rosetta_g_miss_num_map(ddx_aelv_rec.request_id);
282 p6_a49 := rosetta_g_miss_num_map(ddx_aelv_rec.aeh_tbl_index);
283 p6_a50 := rosetta_g_miss_num_map(ddx_aelv_rec.created_by);
284 p6_a51 := ddx_aelv_rec.creation_date;
285 p6_a52 := rosetta_g_miss_num_map(ddx_aelv_rec.last_updated_by);
286 p6_a53 := ddx_aelv_rec.last_update_date;
287 p6_a54 := rosetta_g_miss_num_map(ddx_aelv_rec.last_update_login);
288 p6_a55 := rosetta_g_miss_num_map(ddx_aelv_rec.account_overlay_source_id);
289 p6_a56 := rosetta_g_miss_num_map(ddx_aelv_rec.subledger_doc_sequence_value);
290 p6_a57 := rosetta_g_miss_num_map(ddx_aelv_rec.tax_code_id);
291 end;
292
293 end okl_accounting_update_pub_w;