[Home] [Help]
PACKAGE BODY: APPS.HZ_ORIG_SYSTEM_REF_PUB_JW
Source
1 package body hz_orig_system_ref_pub_jw as
2 /* $Header: ARHPOSJB.pls 120.5 2006/05/31 12:22:33 idali 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 get_orig_sys_entity_map_rec_1(p_init_msg_list VARCHAR2
23 , p_orig_system VARCHAR2
24 , p_owner_table_name VARCHAR2
25 , p3_a0 out nocopy VARCHAR2
26 , p3_a1 out nocopy VARCHAR2
27 , p3_a2 out nocopy VARCHAR2
28 , p3_a3 out nocopy VARCHAR2
29 , p3_a4 out nocopy VARCHAR2
30 , p3_a5 out nocopy VARCHAR2
31 , p3_a6 out nocopy NUMBER
32 , p3_a7 out nocopy VARCHAR2
33 , p3_a8 out nocopy VARCHAR2
34 , p3_a9 out nocopy VARCHAR2
35 , p3_a10 out nocopy VARCHAR2
36 , p3_a11 out nocopy VARCHAR2
37 , p3_a12 out nocopy VARCHAR2
38 , p3_a13 out nocopy VARCHAR2
39 , p3_a14 out nocopy VARCHAR2
40 , p3_a15 out nocopy VARCHAR2
41 , p3_a16 out nocopy VARCHAR2
42 , p3_a17 out nocopy VARCHAR2
43 , p3_a18 out nocopy VARCHAR2
44 , p3_a19 out nocopy VARCHAR2
45 , p3_a20 out nocopy VARCHAR2
46 , p3_a21 out nocopy VARCHAR2
47 , p3_a22 out nocopy VARCHAR2
48 , p3_a23 out nocopy VARCHAR2
49 , p3_a24 out nocopy VARCHAR2
50 , p3_a25 out nocopy VARCHAR2
51 , p3_a26 out nocopy VARCHAR2
52 , p3_a27 out nocopy VARCHAR2
53 , x_return_status out nocopy VARCHAR2
54 , x_msg_count out nocopy NUMBER
55 , x_msg_data out nocopy VARCHAR2
56 )
57 as
58 ddx_orig_sys_entity_map_rec hz_orig_system_ref_pub.orig_sys_entity_map_rec_type;
59 ddindx binary_integer; indx binary_integer;
60 begin
61
62 -- copy data to the local IN or IN-OUT args, if any
63
64
65
66
67
68
69
70 -- here's the delegated call to the old PL/SQL routine
71 hz_orig_system_ref_pub.get_orig_sys_entity_map_rec(p_init_msg_list,
72 p_orig_system,
73 p_owner_table_name,
74 ddx_orig_sys_entity_map_rec,
75 x_return_status,
76 x_msg_count,
77 x_msg_data);
78
79 -- copy data back from the local OUT or IN-OUT args, if any
80
81
82
83 p3_a0 := ddx_orig_sys_entity_map_rec.orig_system;
84 p3_a1 := ddx_orig_sys_entity_map_rec.owner_table_name;
85 p3_a2 := ddx_orig_sys_entity_map_rec.status;
86 p3_a3 := ddx_orig_sys_entity_map_rec.multiple_flag;
87 p3_a4 := ddx_orig_sys_entity_map_rec.multi_osr_flag;
88 p3_a5 := ddx_orig_sys_entity_map_rec.created_by_module;
89 p3_a6 := rosetta_g_miss_num_map(ddx_orig_sys_entity_map_rec.application_id);
90 p3_a7 := ddx_orig_sys_entity_map_rec.attribute_category;
91 p3_a8 := ddx_orig_sys_entity_map_rec.attribute1;
92 p3_a9 := ddx_orig_sys_entity_map_rec.attribute2;
93 p3_a10 := ddx_orig_sys_entity_map_rec.attribute3;
94 p3_a11 := ddx_orig_sys_entity_map_rec.attribute4;
95 p3_a12 := ddx_orig_sys_entity_map_rec.attribute5;
96 p3_a13 := ddx_orig_sys_entity_map_rec.attribute6;
97 p3_a14 := ddx_orig_sys_entity_map_rec.attribute7;
98 p3_a15 := ddx_orig_sys_entity_map_rec.attribute8;
99 p3_a16 := ddx_orig_sys_entity_map_rec.attribute9;
100 p3_a17 := ddx_orig_sys_entity_map_rec.attribute10;
101 p3_a18 := ddx_orig_sys_entity_map_rec.attribute11;
102 p3_a19 := ddx_orig_sys_entity_map_rec.attribute12;
103 p3_a20 := ddx_orig_sys_entity_map_rec.attribute13;
104 p3_a21 := ddx_orig_sys_entity_map_rec.attribute14;
105 p3_a22 := ddx_orig_sys_entity_map_rec.attribute15;
106 p3_a23 := ddx_orig_sys_entity_map_rec.attribute16;
107 p3_a24 := ddx_orig_sys_entity_map_rec.attribute17;
108 p3_a25 := ddx_orig_sys_entity_map_rec.attribute18;
109 p3_a26 := ddx_orig_sys_entity_map_rec.attribute19;
110 p3_a27 := ddx_orig_sys_entity_map_rec.attribute20;
111
112
113
114 end;
115
116 procedure get_orig_sys_reference_rec_2(p_init_msg_list VARCHAR2
117 , p_orig_system_ref_id NUMBER
118 , p2_a0 out nocopy NUMBER
119 , p2_a1 out nocopy VARCHAR2
120 , p2_a2 out nocopy VARCHAR2
121 , p2_a3 out nocopy VARCHAR2
122 , p2_a4 out nocopy NUMBER
123 , p2_a5 out nocopy NUMBER
124 , p2_a6 out nocopy VARCHAR2
125 , p2_a7 out nocopy VARCHAR2
126 , p2_a8 out nocopy VARCHAR2
127 , p2_a9 out nocopy DATE
128 , p2_a10 out nocopy DATE
129 , p2_a11 out nocopy VARCHAR2
130 , p2_a12 out nocopy NUMBER
131 , p2_a13 out nocopy VARCHAR2
132 , p2_a14 out nocopy VARCHAR2
133 , p2_a15 out nocopy VARCHAR2
134 , p2_a16 out nocopy VARCHAR2
135 , p2_a17 out nocopy VARCHAR2
136 , p2_a18 out nocopy VARCHAR2
137 , p2_a19 out nocopy VARCHAR2
138 , p2_a20 out nocopy VARCHAR2
139 , p2_a21 out nocopy VARCHAR2
140 , p2_a22 out nocopy VARCHAR2
141 , p2_a23 out nocopy VARCHAR2
142 , p2_a24 out nocopy VARCHAR2
143 , p2_a25 out nocopy VARCHAR2
144 , p2_a26 out nocopy VARCHAR2
145 , p2_a27 out nocopy VARCHAR2
146 , p2_a28 out nocopy VARCHAR2
147 , p2_a29 out nocopy VARCHAR2
148 , p2_a30 out nocopy VARCHAR2
149 , p2_a31 out nocopy VARCHAR2
150 , p2_a32 out nocopy VARCHAR2
151 , p2_a33 out nocopy VARCHAR2
152 , x_return_status out nocopy VARCHAR2
153 , x_msg_count out nocopy NUMBER
154 , x_msg_data out nocopy VARCHAR2
155 )
156 as
157 ddx_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
158 ddindx binary_integer; indx binary_integer;
159 begin
160
161 -- copy data to the local IN or IN-OUT args, if any
162
163
164
165
166
167
168 -- here's the delegated call to the old PL/SQL routine
169 hz_orig_system_ref_pub.get_orig_sys_reference_rec(p_init_msg_list,
170 p_orig_system_ref_id,
171 ddx_orig_sys_reference_rec,
172 x_return_status,
173 x_msg_count,
174 x_msg_data);
175
176 -- copy data back from the local OUT or IN-OUT args, if any
177
178
179 p2_a0 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.orig_system_ref_id);
180 p2_a1 := ddx_orig_sys_reference_rec.orig_system;
181 p2_a2 := ddx_orig_sys_reference_rec.orig_system_reference;
182 p2_a3 := ddx_orig_sys_reference_rec.owner_table_name;
183 p2_a4 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.owner_table_id);
184 p2_a5 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.party_id);
185 p2_a6 := ddx_orig_sys_reference_rec.status;
186 p2_a7 := ddx_orig_sys_reference_rec.reason_code;
187 p2_a8 := ddx_orig_sys_reference_rec.old_orig_system_reference;
188 p2_a9 := ddx_orig_sys_reference_rec.start_date_active;
189 p2_a10 := ddx_orig_sys_reference_rec.end_date_active;
190 p2_a11 := ddx_orig_sys_reference_rec.created_by_module;
191 p2_a12 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.application_id);
192 p2_a13 := ddx_orig_sys_reference_rec.attribute_category;
193 p2_a14 := ddx_orig_sys_reference_rec.attribute1;
194 p2_a15 := ddx_orig_sys_reference_rec.attribute2;
195 p2_a16 := ddx_orig_sys_reference_rec.attribute3;
196 p2_a17 := ddx_orig_sys_reference_rec.attribute4;
197 p2_a18 := ddx_orig_sys_reference_rec.attribute5;
198 p2_a19 := ddx_orig_sys_reference_rec.attribute6;
199 p2_a20 := ddx_orig_sys_reference_rec.attribute7;
200 p2_a21 := ddx_orig_sys_reference_rec.attribute8;
201 p2_a22 := ddx_orig_sys_reference_rec.attribute9;
202 p2_a23 := ddx_orig_sys_reference_rec.attribute10;
203 p2_a24 := ddx_orig_sys_reference_rec.attribute11;
204 p2_a25 := ddx_orig_sys_reference_rec.attribute12;
205 p2_a26 := ddx_orig_sys_reference_rec.attribute13;
206 p2_a27 := ddx_orig_sys_reference_rec.attribute14;
207 p2_a28 := ddx_orig_sys_reference_rec.attribute15;
208 p2_a29 := ddx_orig_sys_reference_rec.attribute16;
209 p2_a30 := ddx_orig_sys_reference_rec.attribute17;
210 p2_a31 := ddx_orig_sys_reference_rec.attribute18;
211 p2_a32 := ddx_orig_sys_reference_rec.attribute19;
212 p2_a33 := ddx_orig_sys_reference_rec.attribute20;
213
214
215
216 end;
217
218 procedure create_orig_system_referenc_3(p_init_msg_list VARCHAR2
219 , x_return_status out nocopy VARCHAR2
220 , x_msg_count out nocopy NUMBER
221 , x_msg_data out nocopy VARCHAR2
222 , p1_a0 NUMBER := null
223 , p1_a1 VARCHAR2 := null
224 , p1_a2 VARCHAR2 := null
225 , p1_a3 VARCHAR2 := null
226 , p1_a4 NUMBER := null
227 , p1_a5 NUMBER := null
228 , p1_a6 VARCHAR2 := null
229 , p1_a7 VARCHAR2 := null
230 , p1_a8 VARCHAR2 := null
231 , p1_a9 DATE := null
232 , p1_a10 DATE := null
233 , p1_a11 VARCHAR2 := null
234 , p1_a12 NUMBER := null
235 , p1_a13 VARCHAR2 := null
236 , p1_a14 VARCHAR2 := null
237 , p1_a15 VARCHAR2 := null
238 , p1_a16 VARCHAR2 := null
239 , p1_a17 VARCHAR2 := null
240 , p1_a18 VARCHAR2 := null
241 , p1_a19 VARCHAR2 := null
242 , p1_a20 VARCHAR2 := null
243 , p1_a21 VARCHAR2 := null
244 , p1_a22 VARCHAR2 := null
245 , p1_a23 VARCHAR2 := null
246 , p1_a24 VARCHAR2 := null
247 , p1_a25 VARCHAR2 := null
248 , p1_a26 VARCHAR2 := null
249 , p1_a27 VARCHAR2 := null
250 , p1_a28 VARCHAR2 := null
251 , p1_a29 VARCHAR2 := null
252 , p1_a30 VARCHAR2 := null
253 , p1_a31 VARCHAR2 := null
254 , p1_a32 VARCHAR2 := null
255 , p1_a33 VARCHAR2 := null
256 )
257 as
258 ddp_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
259 ddindx binary_integer; indx binary_integer;
260 begin
261
262 -- copy data to the local IN or IN-OUT args, if any
263
264 ddp_orig_sys_reference_rec.orig_system_ref_id := rosetta_g_miss_num_map(p1_a0);
265 ddp_orig_sys_reference_rec.orig_system := p1_a1;
266 ddp_orig_sys_reference_rec.orig_system_reference := p1_a2;
267 ddp_orig_sys_reference_rec.owner_table_name := p1_a3;
268 ddp_orig_sys_reference_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
269 ddp_orig_sys_reference_rec.party_id := rosetta_g_miss_num_map(p1_a5);
270 ddp_orig_sys_reference_rec.status := p1_a6;
271 ddp_orig_sys_reference_rec.reason_code := p1_a7;
272 ddp_orig_sys_reference_rec.old_orig_system_reference := p1_a8;
273 ddp_orig_sys_reference_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a9);
274 ddp_orig_sys_reference_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a10);
275 ddp_orig_sys_reference_rec.created_by_module := p1_a11;
276 ddp_orig_sys_reference_rec.application_id := rosetta_g_miss_num_map(p1_a12);
277 ddp_orig_sys_reference_rec.attribute_category := p1_a13;
278 ddp_orig_sys_reference_rec.attribute1 := p1_a14;
279 ddp_orig_sys_reference_rec.attribute2 := p1_a15;
280 ddp_orig_sys_reference_rec.attribute3 := p1_a16;
281 ddp_orig_sys_reference_rec.attribute4 := p1_a17;
282 ddp_orig_sys_reference_rec.attribute5 := p1_a18;
283 ddp_orig_sys_reference_rec.attribute6 := p1_a19;
284 ddp_orig_sys_reference_rec.attribute7 := p1_a20;
285 ddp_orig_sys_reference_rec.attribute8 := p1_a21;
286 ddp_orig_sys_reference_rec.attribute9 := p1_a22;
287 ddp_orig_sys_reference_rec.attribute10 := p1_a23;
288 ddp_orig_sys_reference_rec.attribute11 := p1_a24;
289 ddp_orig_sys_reference_rec.attribute12 := p1_a25;
290 ddp_orig_sys_reference_rec.attribute13 := p1_a26;
291 ddp_orig_sys_reference_rec.attribute14 := p1_a27;
292 ddp_orig_sys_reference_rec.attribute15 := p1_a28;
293 ddp_orig_sys_reference_rec.attribute16 := p1_a29;
294 ddp_orig_sys_reference_rec.attribute17 := p1_a30;
295 ddp_orig_sys_reference_rec.attribute18 := p1_a31;
296 ddp_orig_sys_reference_rec.attribute19 := p1_a32;
297 ddp_orig_sys_reference_rec.attribute20 := p1_a33;
298
299
300
301
302 -- here's the delegated call to the old PL/SQL routine
303 hz_orig_system_ref_pub.create_orig_system_reference(p_init_msg_list,
304 ddp_orig_sys_reference_rec,
305 x_return_status,
306 x_msg_count,
307 x_msg_data);
308
309 -- copy data back from the local OUT or IN-OUT args, if any
310
311
312
313
314 end;
315
316 procedure update_orig_system_referenc_4(p_init_msg_list VARCHAR2
317 , p_object_version_number in out nocopy NUMBER
318 , x_return_status out nocopy VARCHAR2
319 , x_msg_count out nocopy NUMBER
320 , x_msg_data out nocopy VARCHAR2
321 , p1_a0 NUMBER := null
322 , p1_a1 VARCHAR2 := null
323 , p1_a2 VARCHAR2 := null
324 , p1_a3 VARCHAR2 := null
325 , p1_a4 NUMBER := null
326 , p1_a5 NUMBER := null
327 , p1_a6 VARCHAR2 := null
328 , p1_a7 VARCHAR2 := null
329 , p1_a8 VARCHAR2 := null
330 , p1_a9 DATE := null
331 , p1_a10 DATE := null
332 , p1_a11 VARCHAR2 := null
333 , p1_a12 NUMBER := null
334 , p1_a13 VARCHAR2 := null
335 , p1_a14 VARCHAR2 := null
336 , p1_a15 VARCHAR2 := null
337 , p1_a16 VARCHAR2 := null
338 , p1_a17 VARCHAR2 := null
339 , p1_a18 VARCHAR2 := null
340 , p1_a19 VARCHAR2 := null
341 , p1_a20 VARCHAR2 := null
342 , p1_a21 VARCHAR2 := null
343 , p1_a22 VARCHAR2 := null
344 , p1_a23 VARCHAR2 := null
345 , p1_a24 VARCHAR2 := null
346 , p1_a25 VARCHAR2 := null
347 , p1_a26 VARCHAR2 := null
348 , p1_a27 VARCHAR2 := null
349 , p1_a28 VARCHAR2 := null
350 , p1_a29 VARCHAR2 := null
351 , p1_a30 VARCHAR2 := null
352 , p1_a31 VARCHAR2 := null
353 , p1_a32 VARCHAR2 := null
354 , p1_a33 VARCHAR2 := null
355 )
356 as
357 ddp_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
358 ddindx binary_integer; indx binary_integer;
359 begin
360
361 -- copy data to the local IN or IN-OUT args, if any
362
363 ddp_orig_sys_reference_rec.orig_system_ref_id := rosetta_g_miss_num_map(p1_a0);
364 ddp_orig_sys_reference_rec.orig_system := p1_a1;
365 ddp_orig_sys_reference_rec.orig_system_reference := p1_a2;
366 ddp_orig_sys_reference_rec.owner_table_name := p1_a3;
367 ddp_orig_sys_reference_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
368 ddp_orig_sys_reference_rec.party_id := rosetta_g_miss_num_map(p1_a5);
369 ddp_orig_sys_reference_rec.status := p1_a6;
370 ddp_orig_sys_reference_rec.reason_code := p1_a7;
371 ddp_orig_sys_reference_rec.old_orig_system_reference := p1_a8;
372 ddp_orig_sys_reference_rec.start_date_active := rosetta_g_miss_date_in_map(p1_a9);
373 ddp_orig_sys_reference_rec.end_date_active := rosetta_g_miss_date_in_map(p1_a10);
374 ddp_orig_sys_reference_rec.created_by_module := p1_a11;
375 ddp_orig_sys_reference_rec.application_id := rosetta_g_miss_num_map(p1_a12);
376 ddp_orig_sys_reference_rec.attribute_category := p1_a13;
377 ddp_orig_sys_reference_rec.attribute1 := p1_a14;
378 ddp_orig_sys_reference_rec.attribute2 := p1_a15;
379 ddp_orig_sys_reference_rec.attribute3 := p1_a16;
380 ddp_orig_sys_reference_rec.attribute4 := p1_a17;
381 ddp_orig_sys_reference_rec.attribute5 := p1_a18;
382 ddp_orig_sys_reference_rec.attribute6 := p1_a19;
383 ddp_orig_sys_reference_rec.attribute7 := p1_a20;
384 ddp_orig_sys_reference_rec.attribute8 := p1_a21;
385 ddp_orig_sys_reference_rec.attribute9 := p1_a22;
386 ddp_orig_sys_reference_rec.attribute10 := p1_a23;
387 ddp_orig_sys_reference_rec.attribute11 := p1_a24;
388 ddp_orig_sys_reference_rec.attribute12 := p1_a25;
389 ddp_orig_sys_reference_rec.attribute13 := p1_a26;
390 ddp_orig_sys_reference_rec.attribute14 := p1_a27;
391 ddp_orig_sys_reference_rec.attribute15 := p1_a28;
392 ddp_orig_sys_reference_rec.attribute16 := p1_a29;
393 ddp_orig_sys_reference_rec.attribute17 := p1_a30;
394 ddp_orig_sys_reference_rec.attribute18 := p1_a31;
395 ddp_orig_sys_reference_rec.attribute19 := p1_a32;
396 ddp_orig_sys_reference_rec.attribute20 := p1_a33;
397
398
399
400
401
402 -- here's the delegated call to the old PL/SQL routine
403 hz_orig_system_ref_pub.update_orig_system_reference(p_init_msg_list,
404 ddp_orig_sys_reference_rec,
405 p_object_version_number,
406 x_return_status,
407 x_msg_count,
408 x_msg_data);
409
410 -- copy data back from the local OUT or IN-OUT args, if any
411
412
413
414
415
416 end;
417
418 end hz_orig_system_ref_pub_jw;