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_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;