[Home] [Help]
PACKAGE BODY: APPS.HZ_ORGANIZATION_INFO_V2PUB_JW
Source
1 package body hz_organization_info_v2pub_jw as
2 /* $Header: ARH2OIJB.pls 120.3 2005/06/18 04:28:35 jhuang 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 function rosetta_g_miss_num_map(n number) return number as
7 a number := fnd_api.g_miss_num;
8 b number := 0-1962.0724;
9 begin
10 if n=a then return b; end if;
11 if n=b then return a; end if;
12 return n;
13 end;
14
15 -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16 function rosetta_g_miss_date_in_map(d date) return date as
17 begin
18 if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19 return d;
20 end;
21
22 procedure create_financial_report_1(p_init_msg_list VARCHAR2
23 , x_financial_report_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := null
28 , p1_a1 NUMBER := null
29 , p1_a2 VARCHAR2 := null
30 , p1_a3 VARCHAR2 := null
31 , p1_a4 DATE := null
32 , p1_a5 VARCHAR2 := null
33 , p1_a6 DATE := null
34 , p1_a7 DATE := null
35 , p1_a8 VARCHAR2 := null
36 , p1_a9 VARCHAR2 := null
37 , p1_a10 VARCHAR2 := null
38 , p1_a11 VARCHAR2 := null
39 , p1_a12 VARCHAR2 := null
40 , p1_a13 VARCHAR2 := null
41 , p1_a14 VARCHAR2 := null
42 , p1_a15 VARCHAR2 := null
43 , p1_a16 VARCHAR2 := null
44 , p1_a17 VARCHAR2 := null
45 , p1_a18 VARCHAR2 := null
46 , p1_a19 VARCHAR2 := null
47 , p1_a20 VARCHAR2 := null
48 , p1_a21 VARCHAR2 := null
49 , p1_a22 VARCHAR2 := null
50 , p1_a23 VARCHAR2 := null
51 , p1_a24 VARCHAR2 := null
52 )
53 as
54 ddp_financial_report_rec hz_organization_info_v2pub.financial_report_rec_type;
55 ddindx binary_integer; indx binary_integer;
56 begin
57
58 -- copy data to the local IN or IN-OUT args, if any
59
60 ddp_financial_report_rec.financial_report_id := rosetta_g_miss_num_map(p1_a0);
61 ddp_financial_report_rec.party_id := rosetta_g_miss_num_map(p1_a1);
62 ddp_financial_report_rec.type_of_financial_report := p1_a2;
63 ddp_financial_report_rec.document_reference := p1_a3;
64 ddp_financial_report_rec.date_report_issued := rosetta_g_miss_date_in_map(p1_a4);
65 ddp_financial_report_rec.issued_period := p1_a5;
66 ddp_financial_report_rec.report_start_date := rosetta_g_miss_date_in_map(p1_a6);
67 ddp_financial_report_rec.report_end_date := rosetta_g_miss_date_in_map(p1_a7);
68 ddp_financial_report_rec.actual_content_source := p1_a8;
69 ddp_financial_report_rec.requiring_authority := p1_a9;
70 ddp_financial_report_rec.audit_ind := p1_a10;
71 ddp_financial_report_rec.consolidated_ind := p1_a11;
72 ddp_financial_report_rec.estimated_ind := p1_a12;
73 ddp_financial_report_rec.fiscal_ind := p1_a13;
74 ddp_financial_report_rec.final_ind := p1_a14;
75 ddp_financial_report_rec.forecast_ind := p1_a15;
76 ddp_financial_report_rec.opening_ind := p1_a16;
77 ddp_financial_report_rec.proforma_ind := p1_a17;
78 ddp_financial_report_rec.qualified_ind := p1_a18;
79 ddp_financial_report_rec.restated_ind := p1_a19;
80 ddp_financial_report_rec.signed_by_principals_ind := p1_a20;
81 ddp_financial_report_rec.trial_balance_ind := p1_a21;
82 ddp_financial_report_rec.unbalanced_ind := p1_a22;
83 ddp_financial_report_rec.status := p1_a23;
84 ddp_financial_report_rec.created_by_module := p1_a24;
85
86
87
88
89
90 -- here's the delegated call to the old PL/SQL routine
91 hz_organization_info_v2pub.create_financial_report(p_init_msg_list,
92 ddp_financial_report_rec,
93 x_financial_report_id,
94 x_return_status,
95 x_msg_count,
96 x_msg_data);
97
98 -- copy data back from the local OUT or IN-OUT args, if any
99
100
101
102
103
104 end;
105
106 procedure update_financial_report_2(p_init_msg_list VARCHAR2
107 , p_object_version_number in out nocopy NUMBER
108 , x_return_status out nocopy VARCHAR2
109 , x_msg_count out nocopy NUMBER
110 , x_msg_data out nocopy VARCHAR2
111 , p1_a0 NUMBER := null
112 , p1_a1 NUMBER := null
113 , p1_a2 VARCHAR2 := null
114 , p1_a3 VARCHAR2 := null
115 , p1_a4 DATE := null
116 , p1_a5 VARCHAR2 := null
117 , p1_a6 DATE := null
118 , p1_a7 DATE := null
119 , p1_a8 VARCHAR2 := null
120 , p1_a9 VARCHAR2 := null
121 , p1_a10 VARCHAR2 := null
122 , p1_a11 VARCHAR2 := null
123 , p1_a12 VARCHAR2 := null
124 , p1_a13 VARCHAR2 := null
125 , p1_a14 VARCHAR2 := null
126 , p1_a15 VARCHAR2 := null
127 , p1_a16 VARCHAR2 := null
128 , p1_a17 VARCHAR2 := null
129 , p1_a18 VARCHAR2 := null
130 , p1_a19 VARCHAR2 := null
131 , p1_a20 VARCHAR2 := null
132 , p1_a21 VARCHAR2 := null
133 , p1_a22 VARCHAR2 := null
134 , p1_a23 VARCHAR2 := null
135 , p1_a24 VARCHAR2 := null
136 )
137 as
138 ddp_financial_report_rec hz_organization_info_v2pub.financial_report_rec_type;
139 ddindx binary_integer; indx binary_integer;
140 begin
141
142 -- copy data to the local IN or IN-OUT args, if any
143
144 ddp_financial_report_rec.financial_report_id := rosetta_g_miss_num_map(p1_a0);
145 ddp_financial_report_rec.party_id := rosetta_g_miss_num_map(p1_a1);
146 ddp_financial_report_rec.type_of_financial_report := p1_a2;
147 ddp_financial_report_rec.document_reference := p1_a3;
148 ddp_financial_report_rec.date_report_issued := rosetta_g_miss_date_in_map(p1_a4);
149 ddp_financial_report_rec.issued_period := p1_a5;
150 ddp_financial_report_rec.report_start_date := rosetta_g_miss_date_in_map(p1_a6);
151 ddp_financial_report_rec.report_end_date := rosetta_g_miss_date_in_map(p1_a7);
152 ddp_financial_report_rec.actual_content_source := p1_a8;
153 ddp_financial_report_rec.requiring_authority := p1_a9;
154 ddp_financial_report_rec.audit_ind := p1_a10;
155 ddp_financial_report_rec.consolidated_ind := p1_a11;
156 ddp_financial_report_rec.estimated_ind := p1_a12;
157 ddp_financial_report_rec.fiscal_ind := p1_a13;
158 ddp_financial_report_rec.final_ind := p1_a14;
159 ddp_financial_report_rec.forecast_ind := p1_a15;
160 ddp_financial_report_rec.opening_ind := p1_a16;
161 ddp_financial_report_rec.proforma_ind := p1_a17;
162 ddp_financial_report_rec.qualified_ind := p1_a18;
163 ddp_financial_report_rec.restated_ind := p1_a19;
164 ddp_financial_report_rec.signed_by_principals_ind := p1_a20;
165 ddp_financial_report_rec.trial_balance_ind := p1_a21;
166 ddp_financial_report_rec.unbalanced_ind := p1_a22;
167 ddp_financial_report_rec.status := p1_a23;
168 ddp_financial_report_rec.created_by_module := p1_a24;
169
170
171
172
173
174 -- here's the delegated call to the old PL/SQL routine
175 hz_organization_info_v2pub.update_financial_report(p_init_msg_list,
176 ddp_financial_report_rec,
177 p_object_version_number,
178 x_return_status,
179 x_msg_count,
180 x_msg_data);
181
182 -- copy data back from the local OUT or IN-OUT args, if any
183
184
185
186
187
188 end;
189
190 procedure create_financial_number_3(p_init_msg_list VARCHAR2
191 , x_financial_number_id out nocopy NUMBER
192 , x_return_status out nocopy VARCHAR2
193 , x_msg_count out nocopy NUMBER
194 , x_msg_data out nocopy VARCHAR2
195 , p1_a0 NUMBER := null
196 , p1_a1 NUMBER := null
197 , p1_a2 NUMBER := null
198 , p1_a3 VARCHAR2 := null
199 , p1_a4 NUMBER := null
200 , p1_a5 VARCHAR2 := null
201 , p1_a6 VARCHAR2 := null
202 , p1_a7 VARCHAR2 := null
203 , p1_a8 VARCHAR2 := null
204 , p1_a9 VARCHAR2 := null
205 )
206 as
207 ddp_financial_number_rec hz_organization_info_v2pub.financial_number_rec_type;
208 ddindx binary_integer; indx binary_integer;
209 begin
210
211 -- copy data to the local IN or IN-OUT args, if any
212
213 ddp_financial_number_rec.financial_number_id := rosetta_g_miss_num_map(p1_a0);
214 ddp_financial_number_rec.financial_report_id := rosetta_g_miss_num_map(p1_a1);
215 ddp_financial_number_rec.financial_number := rosetta_g_miss_num_map(p1_a2);
216 ddp_financial_number_rec.financial_number_name := p1_a3;
217 ddp_financial_number_rec.financial_units_applied := rosetta_g_miss_num_map(p1_a4);
218 ddp_financial_number_rec.financial_number_currency := p1_a5;
219 ddp_financial_number_rec.projected_actual_flag := p1_a6;
220 ddp_financial_number_rec.content_source_type := p1_a7;
221 ddp_financial_number_rec.status := p1_a8;
222 ddp_financial_number_rec.created_by_module := p1_a9;
223
224
225
226
227
228 -- here's the delegated call to the old PL/SQL routine
229 hz_organization_info_v2pub.create_financial_number(p_init_msg_list,
230 ddp_financial_number_rec,
231 x_financial_number_id,
232 x_return_status,
233 x_msg_count,
234 x_msg_data);
235
236 -- copy data back from the local OUT or IN-OUT args, if any
237
238
239
240
241
242 end;
243
244 procedure update_financial_number_4(p_init_msg_list VARCHAR2
245 , p_object_version_number in out nocopy NUMBER
246 , x_return_status out nocopy VARCHAR2
247 , x_msg_count out nocopy NUMBER
248 , x_msg_data out nocopy VARCHAR2
249 , p1_a0 NUMBER := null
250 , p1_a1 NUMBER := null
251 , p1_a2 NUMBER := null
252 , p1_a3 VARCHAR2 := null
253 , p1_a4 NUMBER := null
254 , p1_a5 VARCHAR2 := null
255 , p1_a6 VARCHAR2 := null
256 , p1_a7 VARCHAR2 := null
257 , p1_a8 VARCHAR2 := null
258 , p1_a9 VARCHAR2 := null
259 )
260 as
261 ddp_financial_number_rec hz_organization_info_v2pub.financial_number_rec_type;
262 ddindx binary_integer; indx binary_integer;
263 begin
264
265 -- copy data to the local IN or IN-OUT args, if any
266
267 ddp_financial_number_rec.financial_number_id := rosetta_g_miss_num_map(p1_a0);
268 ddp_financial_number_rec.financial_report_id := rosetta_g_miss_num_map(p1_a1);
269 ddp_financial_number_rec.financial_number := rosetta_g_miss_num_map(p1_a2);
270 ddp_financial_number_rec.financial_number_name := p1_a3;
271 ddp_financial_number_rec.financial_units_applied := rosetta_g_miss_num_map(p1_a4);
272 ddp_financial_number_rec.financial_number_currency := p1_a5;
273 ddp_financial_number_rec.projected_actual_flag := p1_a6;
274 ddp_financial_number_rec.content_source_type := p1_a7;
275 ddp_financial_number_rec.status := p1_a8;
276 ddp_financial_number_rec.created_by_module := p1_a9;
277
278
279
280
281
282 -- here's the delegated call to the old PL/SQL routine
283 hz_organization_info_v2pub.update_financial_number(p_init_msg_list,
284 ddp_financial_number_rec,
285 p_object_version_number,
286 x_return_status,
287 x_msg_count,
288 x_msg_data);
289
290 -- copy data back from the local OUT or IN-OUT args, if any
291
292
293
294
295
296 end;
297
298 procedure get_financial_report_rec_5(p_init_msg_list VARCHAR2
299 , p_financial_report_id NUMBER
300 , p2_a0 out nocopy NUMBER
301 , p2_a1 out nocopy NUMBER
302 , p2_a2 out nocopy VARCHAR2
303 , p2_a3 out nocopy VARCHAR2
304 , p2_a4 out nocopy DATE
305 , p2_a5 out nocopy VARCHAR2
306 , p2_a6 out nocopy DATE
307 , p2_a7 out nocopy DATE
308 , p2_a8 out nocopy VARCHAR2
309 , p2_a9 out nocopy VARCHAR2
310 , p2_a10 out nocopy VARCHAR2
311 , p2_a11 out nocopy VARCHAR2
312 , p2_a12 out nocopy VARCHAR2
313 , p2_a13 out nocopy VARCHAR2
314 , p2_a14 out nocopy VARCHAR2
315 , p2_a15 out nocopy VARCHAR2
316 , p2_a16 out nocopy VARCHAR2
317 , p2_a17 out nocopy VARCHAR2
318 , p2_a18 out nocopy VARCHAR2
319 , p2_a19 out nocopy VARCHAR2
320 , p2_a20 out nocopy VARCHAR2
321 , p2_a21 out nocopy VARCHAR2
322 , p2_a22 out nocopy VARCHAR2
323 , p2_a23 out nocopy VARCHAR2
324 , p2_a24 out nocopy VARCHAR2
325 , x_return_status out nocopy VARCHAR2
326 , x_msg_count out nocopy NUMBER
327 , x_msg_data out nocopy VARCHAR2
328 )
329 as
330 ddp_financial_report_rec hz_organization_info_v2pub.financial_report_rec_type;
331 ddindx binary_integer; indx binary_integer;
332 begin
333
334 -- copy data to the local IN or IN-OUT args, if any
335
336
337
338
339
340
341 -- here's the delegated call to the old PL/SQL routine
342 hz_organization_info_v2pub.get_financial_report_rec(p_init_msg_list,
343 p_financial_report_id,
344 ddp_financial_report_rec,
345 x_return_status,
346 x_msg_count,
347 x_msg_data);
348
349 -- copy data back from the local OUT or IN-OUT args, if any
350
351
352 p2_a0 := rosetta_g_miss_num_map(ddp_financial_report_rec.financial_report_id);
353 p2_a1 := rosetta_g_miss_num_map(ddp_financial_report_rec.party_id);
354 p2_a2 := ddp_financial_report_rec.type_of_financial_report;
355 p2_a3 := ddp_financial_report_rec.document_reference;
356 p2_a4 := ddp_financial_report_rec.date_report_issued;
357 p2_a5 := ddp_financial_report_rec.issued_period;
358 p2_a6 := ddp_financial_report_rec.report_start_date;
359 p2_a7 := ddp_financial_report_rec.report_end_date;
360 p2_a8 := ddp_financial_report_rec.actual_content_source;
361 p2_a9 := ddp_financial_report_rec.requiring_authority;
362 p2_a10 := ddp_financial_report_rec.audit_ind;
363 p2_a11 := ddp_financial_report_rec.consolidated_ind;
364 p2_a12 := ddp_financial_report_rec.estimated_ind;
365 p2_a13 := ddp_financial_report_rec.fiscal_ind;
366 p2_a14 := ddp_financial_report_rec.final_ind;
367 p2_a15 := ddp_financial_report_rec.forecast_ind;
368 p2_a16 := ddp_financial_report_rec.opening_ind;
369 p2_a17 := ddp_financial_report_rec.proforma_ind;
370 p2_a18 := ddp_financial_report_rec.qualified_ind;
371 p2_a19 := ddp_financial_report_rec.restated_ind;
372 p2_a20 := ddp_financial_report_rec.signed_by_principals_ind;
373 p2_a21 := ddp_financial_report_rec.trial_balance_ind;
374 p2_a22 := ddp_financial_report_rec.unbalanced_ind;
375 p2_a23 := ddp_financial_report_rec.status;
376 p2_a24 := ddp_financial_report_rec.created_by_module;
377
378
379
380 end;
381
382 procedure get_financial_number_rec_6(p_init_msg_list VARCHAR2
383 , p_financial_number_id NUMBER
384 , p2_a0 out nocopy NUMBER
385 , p2_a1 out nocopy NUMBER
386 , p2_a2 out nocopy NUMBER
387 , p2_a3 out nocopy VARCHAR2
388 , p2_a4 out nocopy NUMBER
389 , p2_a5 out nocopy VARCHAR2
390 , p2_a6 out nocopy VARCHAR2
391 , p2_a7 out nocopy VARCHAR2
392 , p2_a8 out nocopy VARCHAR2
393 , p2_a9 out nocopy VARCHAR2
394 , x_return_status out nocopy VARCHAR2
395 , x_msg_count out nocopy NUMBER
396 , x_msg_data out nocopy VARCHAR2
397 )
398 as
399 ddp_financial_number_rec hz_organization_info_v2pub.financial_number_rec_type;
400 ddindx binary_integer; indx binary_integer;
401 begin
402
403 -- copy data to the local IN or IN-OUT args, if any
404
405
406
407
408
409
410 -- here's the delegated call to the old PL/SQL routine
411 hz_organization_info_v2pub.get_financial_number_rec(p_init_msg_list,
412 p_financial_number_id,
413 ddp_financial_number_rec,
414 x_return_status,
415 x_msg_count,
416 x_msg_data);
417
418 -- copy data back from the local OUT or IN-OUT args, if any
419
420
421 p2_a0 := rosetta_g_miss_num_map(ddp_financial_number_rec.financial_number_id);
422 p2_a1 := rosetta_g_miss_num_map(ddp_financial_number_rec.financial_report_id);
423 p2_a2 := rosetta_g_miss_num_map(ddp_financial_number_rec.financial_number);
424 p2_a3 := ddp_financial_number_rec.financial_number_name;
425 p2_a4 := rosetta_g_miss_num_map(ddp_financial_number_rec.financial_units_applied);
426 p2_a5 := ddp_financial_number_rec.financial_number_currency;
427 p2_a6 := ddp_financial_number_rec.projected_actual_flag;
428 p2_a7 := ddp_financial_number_rec.content_source_type;
429 p2_a8 := ddp_financial_number_rec.status;
430 p2_a9 := ddp_financial_number_rec.created_by_module;
431
432
433
434 end;
435
436 end hz_organization_info_v2pub_jw;