[Home] [Help]
PACKAGE BODY: APPS.HZ_ORIG_SYSTEM_REF_PVT_JW
Source
1 package body hz_orig_system_ref_pvt_jw as
2 /* $Header: ARHMOSJB.pls 120.5 2006/05/31 12:17: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 create_orig_sys_entity_mapp_1(p_init_msg_list VARCHAR2
23 , p_validation_level NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p2_a0 VARCHAR2 := null
28 , p2_a1 VARCHAR2 := null
29 , p2_a2 VARCHAR2 := null
30 , p2_a3 VARCHAR2 := null
31 , p2_a4 VARCHAR2 := null
32 , p2_a5 VARCHAR2 := null
33 , p2_a6 NUMBER := null
34 , p2_a7 VARCHAR2 := null
35 , p2_a8 VARCHAR2 := null
36 , p2_a9 VARCHAR2 := null
37 , p2_a10 VARCHAR2 := null
38 , p2_a11 VARCHAR2 := null
39 , p2_a12 VARCHAR2 := null
40 , p2_a13 VARCHAR2 := null
41 , p2_a14 VARCHAR2 := null
42 , p2_a15 VARCHAR2 := null
43 , p2_a16 VARCHAR2 := null
44 , p2_a17 VARCHAR2 := null
45 , p2_a18 VARCHAR2 := null
46 , p2_a19 VARCHAR2 := null
47 , p2_a20 VARCHAR2 := null
48 , p2_a21 VARCHAR2 := null
49 , p2_a22 VARCHAR2 := null
50 , p2_a23 VARCHAR2 := null
51 , p2_a24 VARCHAR2 := null
52 , p2_a25 VARCHAR2 := null
53 , p2_a26 VARCHAR2 := null
54 , p2_a27 VARCHAR2 := null
55 )
56 as
57 ddp_orig_sys_entity_map_rec hz_orig_system_ref_pub.orig_sys_entity_map_rec_type;
58 ddindx binary_integer; indx binary_integer;
59 begin
60
61 -- copy data to the local IN or IN-OUT args, if any
62
63
64 ddp_orig_sys_entity_map_rec.orig_system := p2_a0;
65 ddp_orig_sys_entity_map_rec.owner_table_name := p2_a1;
66 ddp_orig_sys_entity_map_rec.status := p2_a2;
67 ddp_orig_sys_entity_map_rec.multiple_flag := p2_a3;
68 ddp_orig_sys_entity_map_rec.multi_osr_flag := p2_a4;
69 ddp_orig_sys_entity_map_rec.created_by_module := p2_a5;
70 ddp_orig_sys_entity_map_rec.application_id := rosetta_g_miss_num_map(p2_a6);
71 ddp_orig_sys_entity_map_rec.attribute_category := p2_a7;
72 ddp_orig_sys_entity_map_rec.attribute1 := p2_a8;
73 ddp_orig_sys_entity_map_rec.attribute2 := p2_a9;
74 ddp_orig_sys_entity_map_rec.attribute3 := p2_a10;
75 ddp_orig_sys_entity_map_rec.attribute4 := p2_a11;
76 ddp_orig_sys_entity_map_rec.attribute5 := p2_a12;
77 ddp_orig_sys_entity_map_rec.attribute6 := p2_a13;
78 ddp_orig_sys_entity_map_rec.attribute7 := p2_a14;
79 ddp_orig_sys_entity_map_rec.attribute8 := p2_a15;
80 ddp_orig_sys_entity_map_rec.attribute9 := p2_a16;
81 ddp_orig_sys_entity_map_rec.attribute10 := p2_a17;
82 ddp_orig_sys_entity_map_rec.attribute11 := p2_a18;
83 ddp_orig_sys_entity_map_rec.attribute12 := p2_a19;
84 ddp_orig_sys_entity_map_rec.attribute13 := p2_a20;
85 ddp_orig_sys_entity_map_rec.attribute14 := p2_a21;
86 ddp_orig_sys_entity_map_rec.attribute15 := p2_a22;
87 ddp_orig_sys_entity_map_rec.attribute16 := p2_a23;
88 ddp_orig_sys_entity_map_rec.attribute17 := p2_a24;
89 ddp_orig_sys_entity_map_rec.attribute18 := p2_a25;
90 ddp_orig_sys_entity_map_rec.attribute19 := p2_a26;
91 ddp_orig_sys_entity_map_rec.attribute20 := p2_a27;
92
93
94
95
96 -- here's the delegated call to the old PL/SQL routine
97 hz_orig_system_ref_pvt.create_orig_sys_entity_mapping(p_init_msg_list,
98 p_validation_level,
99 ddp_orig_sys_entity_map_rec,
100 x_return_status,
101 x_msg_count,
102 x_msg_data);
103
104 -- copy data back from the local OUT or IN-OUT args, if any
105
106
107
108
109
110 end;
111
112 procedure update_orig_sys_entity_mapp_2(p_init_msg_list VARCHAR2
113 , p_validation_level NUMBER
114 , p_object_version_number in out nocopy NUMBER
115 , x_return_status out nocopy VARCHAR2
116 , x_msg_count out nocopy NUMBER
117 , x_msg_data out nocopy VARCHAR2
118 , p2_a0 VARCHAR2 := null
119 , p2_a1 VARCHAR2 := null
120 , p2_a2 VARCHAR2 := null
121 , p2_a3 VARCHAR2 := null
122 , p2_a4 VARCHAR2 := null
123 , p2_a5 VARCHAR2 := null
124 , p2_a6 NUMBER := null
125 , p2_a7 VARCHAR2 := null
126 , p2_a8 VARCHAR2 := null
127 , p2_a9 VARCHAR2 := null
128 , p2_a10 VARCHAR2 := null
129 , p2_a11 VARCHAR2 := null
130 , p2_a12 VARCHAR2 := null
131 , p2_a13 VARCHAR2 := null
132 , p2_a14 VARCHAR2 := null
133 , p2_a15 VARCHAR2 := null
134 , p2_a16 VARCHAR2 := null
135 , p2_a17 VARCHAR2 := null
136 , p2_a18 VARCHAR2 := null
137 , p2_a19 VARCHAR2 := null
138 , p2_a20 VARCHAR2 := null
139 , p2_a21 VARCHAR2 := null
140 , p2_a22 VARCHAR2 := null
141 , p2_a23 VARCHAR2 := null
142 , p2_a24 VARCHAR2 := null
143 , p2_a25 VARCHAR2 := null
144 , p2_a26 VARCHAR2 := null
145 , p2_a27 VARCHAR2 := null
146 )
147 as
148 ddp_orig_sys_entity_map_rec hz_orig_system_ref_pub.orig_sys_entity_map_rec_type;
149 ddindx binary_integer; indx binary_integer;
150 begin
151
152 -- copy data to the local IN or IN-OUT args, if any
153
154
155 ddp_orig_sys_entity_map_rec.orig_system := p2_a0;
156 ddp_orig_sys_entity_map_rec.owner_table_name := p2_a1;
157 ddp_orig_sys_entity_map_rec.status := p2_a2;
158 ddp_orig_sys_entity_map_rec.multiple_flag := p2_a3;
159 ddp_orig_sys_entity_map_rec.multi_osr_flag := p2_a4;
160 ddp_orig_sys_entity_map_rec.created_by_module := p2_a5;
161 ddp_orig_sys_entity_map_rec.application_id := rosetta_g_miss_num_map(p2_a6);
162 ddp_orig_sys_entity_map_rec.attribute_category := p2_a7;
163 ddp_orig_sys_entity_map_rec.attribute1 := p2_a8;
164 ddp_orig_sys_entity_map_rec.attribute2 := p2_a9;
165 ddp_orig_sys_entity_map_rec.attribute3 := p2_a10;
166 ddp_orig_sys_entity_map_rec.attribute4 := p2_a11;
167 ddp_orig_sys_entity_map_rec.attribute5 := p2_a12;
168 ddp_orig_sys_entity_map_rec.attribute6 := p2_a13;
169 ddp_orig_sys_entity_map_rec.attribute7 := p2_a14;
170 ddp_orig_sys_entity_map_rec.attribute8 := p2_a15;
171 ddp_orig_sys_entity_map_rec.attribute9 := p2_a16;
172 ddp_orig_sys_entity_map_rec.attribute10 := p2_a17;
173 ddp_orig_sys_entity_map_rec.attribute11 := p2_a18;
174 ddp_orig_sys_entity_map_rec.attribute12 := p2_a19;
175 ddp_orig_sys_entity_map_rec.attribute13 := p2_a20;
176 ddp_orig_sys_entity_map_rec.attribute14 := p2_a21;
177 ddp_orig_sys_entity_map_rec.attribute15 := p2_a22;
178 ddp_orig_sys_entity_map_rec.attribute16 := p2_a23;
179 ddp_orig_sys_entity_map_rec.attribute17 := p2_a24;
180 ddp_orig_sys_entity_map_rec.attribute18 := p2_a25;
181 ddp_orig_sys_entity_map_rec.attribute19 := p2_a26;
182 ddp_orig_sys_entity_map_rec.attribute20 := p2_a27;
183
184
185
186
187
188 -- here's the delegated call to the old PL/SQL routine
189 hz_orig_system_ref_pvt.update_orig_sys_entity_mapping(p_init_msg_list,
190 p_validation_level,
191 ddp_orig_sys_entity_map_rec,
192 p_object_version_number,
193 x_return_status,
194 x_msg_count,
195 x_msg_data);
196
197 -- copy data back from the local OUT or IN-OUT args, if any
198
199
200
201
202
203
204 end;
205
206 procedure create_orig_system_referenc_3(p_init_msg_list VARCHAR2
207 , p_validation_level NUMBER
208 , x_return_status out nocopy VARCHAR2
209 , x_msg_count out nocopy NUMBER
210 , x_msg_data out nocopy VARCHAR2
211 , p2_a0 NUMBER := null
212 , p2_a1 VARCHAR2 := null
213 , p2_a2 VARCHAR2 := null
214 , p2_a3 VARCHAR2 := null
215 , p2_a4 NUMBER := null
216 , p2_a5 NUMBER := null
217 , p2_a6 VARCHAR2 := null
218 , p2_a7 VARCHAR2 := null
219 , p2_a8 VARCHAR2 := null
220 , p2_a9 DATE := null
221 , p2_a10 DATE := null
222 , p2_a11 VARCHAR2 := null
223 , p2_a12 NUMBER := null
224 , p2_a13 VARCHAR2 := null
225 , p2_a14 VARCHAR2 := null
226 , p2_a15 VARCHAR2 := null
227 , p2_a16 VARCHAR2 := null
228 , p2_a17 VARCHAR2 := null
229 , p2_a18 VARCHAR2 := null
230 , p2_a19 VARCHAR2 := null
231 , p2_a20 VARCHAR2 := null
232 , p2_a21 VARCHAR2 := null
233 , p2_a22 VARCHAR2 := null
234 , p2_a23 VARCHAR2 := null
235 , p2_a24 VARCHAR2 := null
236 , p2_a25 VARCHAR2 := null
237 , p2_a26 VARCHAR2 := null
238 , p2_a27 VARCHAR2 := null
239 , p2_a28 VARCHAR2 := null
240 , p2_a29 VARCHAR2 := null
241 , p2_a30 VARCHAR2 := null
242 , p2_a31 VARCHAR2 := null
243 , p2_a32 VARCHAR2 := null
244 , p2_a33 VARCHAR2 := null
245 )
246 as
247 ddp_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
248 ddindx binary_integer; indx binary_integer;
249 begin
250
251 -- copy data to the local IN or IN-OUT args, if any
252
253
254 ddp_orig_sys_reference_rec.orig_system_ref_id := rosetta_g_miss_num_map(p2_a0);
255 ddp_orig_sys_reference_rec.orig_system := p2_a1;
256 ddp_orig_sys_reference_rec.orig_system_reference := p2_a2;
257 ddp_orig_sys_reference_rec.owner_table_name := p2_a3;
258 ddp_orig_sys_reference_rec.owner_table_id := rosetta_g_miss_num_map(p2_a4);
259 ddp_orig_sys_reference_rec.party_id := rosetta_g_miss_num_map(p2_a5);
260 ddp_orig_sys_reference_rec.status := p2_a6;
261 ddp_orig_sys_reference_rec.reason_code := p2_a7;
262 ddp_orig_sys_reference_rec.old_orig_system_reference := p2_a8;
263 ddp_orig_sys_reference_rec.start_date_active := rosetta_g_miss_date_in_map(p2_a9);
264 ddp_orig_sys_reference_rec.end_date_active := rosetta_g_miss_date_in_map(p2_a10);
265 ddp_orig_sys_reference_rec.created_by_module := p2_a11;
266 ddp_orig_sys_reference_rec.application_id := rosetta_g_miss_num_map(p2_a12);
267 ddp_orig_sys_reference_rec.attribute_category := p2_a13;
268 ddp_orig_sys_reference_rec.attribute1 := p2_a14;
269 ddp_orig_sys_reference_rec.attribute2 := p2_a15;
270 ddp_orig_sys_reference_rec.attribute3 := p2_a16;
271 ddp_orig_sys_reference_rec.attribute4 := p2_a17;
272 ddp_orig_sys_reference_rec.attribute5 := p2_a18;
273 ddp_orig_sys_reference_rec.attribute6 := p2_a19;
274 ddp_orig_sys_reference_rec.attribute7 := p2_a20;
275 ddp_orig_sys_reference_rec.attribute8 := p2_a21;
276 ddp_orig_sys_reference_rec.attribute9 := p2_a22;
277 ddp_orig_sys_reference_rec.attribute10 := p2_a23;
278 ddp_orig_sys_reference_rec.attribute11 := p2_a24;
279 ddp_orig_sys_reference_rec.attribute12 := p2_a25;
280 ddp_orig_sys_reference_rec.attribute13 := p2_a26;
281 ddp_orig_sys_reference_rec.attribute14 := p2_a27;
282 ddp_orig_sys_reference_rec.attribute15 := p2_a28;
283 ddp_orig_sys_reference_rec.attribute16 := p2_a29;
284 ddp_orig_sys_reference_rec.attribute17 := p2_a30;
285 ddp_orig_sys_reference_rec.attribute18 := p2_a31;
286 ddp_orig_sys_reference_rec.attribute19 := p2_a32;
287 ddp_orig_sys_reference_rec.attribute20 := p2_a33;
288
289
290
291
292 -- here's the delegated call to the old PL/SQL routine
293 hz_orig_system_ref_pvt.create_orig_system_reference(p_init_msg_list,
294 p_validation_level,
295 ddp_orig_sys_reference_rec,
296 x_return_status,
297 x_msg_count,
298 x_msg_data);
299
300 -- copy data back from the local OUT or IN-OUT args, if any
301
302
303
304
305
306 end;
307
308 procedure update_orig_system_referenc_4(p_init_msg_list VARCHAR2
309 , p_validation_level NUMBER
310 , p_object_version_number in out nocopy NUMBER
311 , x_return_status out nocopy VARCHAR2
312 , x_msg_count out nocopy NUMBER
313 , x_msg_data out nocopy VARCHAR2
314 , p2_a0 NUMBER := null
315 , p2_a1 VARCHAR2 := null
316 , p2_a2 VARCHAR2 := null
317 , p2_a3 VARCHAR2 := null
318 , p2_a4 NUMBER := null
319 , p2_a5 NUMBER := null
320 , p2_a6 VARCHAR2 := null
321 , p2_a7 VARCHAR2 := null
322 , p2_a8 VARCHAR2 := null
323 , p2_a9 DATE := null
324 , p2_a10 DATE := null
325 , p2_a11 VARCHAR2 := null
326 , p2_a12 NUMBER := null
327 , p2_a13 VARCHAR2 := null
328 , p2_a14 VARCHAR2 := null
329 , p2_a15 VARCHAR2 := null
330 , p2_a16 VARCHAR2 := null
331 , p2_a17 VARCHAR2 := null
332 , p2_a18 VARCHAR2 := null
333 , p2_a19 VARCHAR2 := null
334 , p2_a20 VARCHAR2 := null
335 , p2_a21 VARCHAR2 := null
336 , p2_a22 VARCHAR2 := null
337 , p2_a23 VARCHAR2 := null
338 , p2_a24 VARCHAR2 := null
339 , p2_a25 VARCHAR2 := null
340 , p2_a26 VARCHAR2 := null
341 , p2_a27 VARCHAR2 := null
342 , p2_a28 VARCHAR2 := null
343 , p2_a29 VARCHAR2 := null
344 , p2_a30 VARCHAR2 := null
345 , p2_a31 VARCHAR2 := null
346 , p2_a32 VARCHAR2 := null
347 , p2_a33 VARCHAR2 := null
348 )
349 as
350 ddp_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
351 ddindx binary_integer; indx binary_integer;
352 begin
353
354 -- copy data to the local IN or IN-OUT args, if any
355
356
357 ddp_orig_sys_reference_rec.orig_system_ref_id := rosetta_g_miss_num_map(p2_a0);
358 ddp_orig_sys_reference_rec.orig_system := p2_a1;
359 ddp_orig_sys_reference_rec.orig_system_reference := p2_a2;
360 ddp_orig_sys_reference_rec.owner_table_name := p2_a3;
361 ddp_orig_sys_reference_rec.owner_table_id := rosetta_g_miss_num_map(p2_a4);
362 ddp_orig_sys_reference_rec.party_id := rosetta_g_miss_num_map(p2_a5);
363 ddp_orig_sys_reference_rec.status := p2_a6;
364 ddp_orig_sys_reference_rec.reason_code := p2_a7;
365 ddp_orig_sys_reference_rec.old_orig_system_reference := p2_a8;
366 ddp_orig_sys_reference_rec.start_date_active := rosetta_g_miss_date_in_map(p2_a9);
367 ddp_orig_sys_reference_rec.end_date_active := rosetta_g_miss_date_in_map(p2_a10);
368 ddp_orig_sys_reference_rec.created_by_module := p2_a11;
369 ddp_orig_sys_reference_rec.application_id := rosetta_g_miss_num_map(p2_a12);
370 ddp_orig_sys_reference_rec.attribute_category := p2_a13;
371 ddp_orig_sys_reference_rec.attribute1 := p2_a14;
372 ddp_orig_sys_reference_rec.attribute2 := p2_a15;
373 ddp_orig_sys_reference_rec.attribute3 := p2_a16;
374 ddp_orig_sys_reference_rec.attribute4 := p2_a17;
375 ddp_orig_sys_reference_rec.attribute5 := p2_a18;
376 ddp_orig_sys_reference_rec.attribute6 := p2_a19;
377 ddp_orig_sys_reference_rec.attribute7 := p2_a20;
378 ddp_orig_sys_reference_rec.attribute8 := p2_a21;
379 ddp_orig_sys_reference_rec.attribute9 := p2_a22;
380 ddp_orig_sys_reference_rec.attribute10 := p2_a23;
381 ddp_orig_sys_reference_rec.attribute11 := p2_a24;
382 ddp_orig_sys_reference_rec.attribute12 := p2_a25;
383 ddp_orig_sys_reference_rec.attribute13 := p2_a26;
384 ddp_orig_sys_reference_rec.attribute14 := p2_a27;
385 ddp_orig_sys_reference_rec.attribute15 := p2_a28;
386 ddp_orig_sys_reference_rec.attribute16 := p2_a29;
387 ddp_orig_sys_reference_rec.attribute17 := p2_a30;
388 ddp_orig_sys_reference_rec.attribute18 := p2_a31;
389 ddp_orig_sys_reference_rec.attribute19 := p2_a32;
390 ddp_orig_sys_reference_rec.attribute20 := p2_a33;
391
392
393
394
395
396 -- here's the delegated call to the old PL/SQL routine
397 hz_orig_system_ref_pvt.update_orig_system_reference(p_init_msg_list,
398 p_validation_level,
399 ddp_orig_sys_reference_rec,
400 p_object_version_number,
401 x_return_status,
402 x_msg_count,
403 x_msg_data);
404
405 -- copy data back from the local OUT or IN-OUT args, if any
406
410
407
408
409
411
412 end;
413
414 procedure get_orig_sys_reference_rec_5(p_init_msg_list VARCHAR2
415 , p_orig_system_ref_id NUMBER
416 , p2_a0 out nocopy NUMBER
417 , p2_a1 out nocopy VARCHAR2
418 , p2_a2 out nocopy VARCHAR2
419 , p2_a3 out nocopy VARCHAR2
420 , p2_a4 out nocopy NUMBER
421 , p2_a5 out nocopy NUMBER
422 , p2_a6 out nocopy VARCHAR2
423 , p2_a7 out nocopy VARCHAR2
424 , p2_a8 out nocopy VARCHAR2
425 , p2_a9 out nocopy DATE
426 , p2_a10 out nocopy DATE
427 , p2_a11 out nocopy VARCHAR2
428 , p2_a12 out nocopy NUMBER
429 , p2_a13 out nocopy VARCHAR2
430 , p2_a14 out nocopy VARCHAR2
431 , p2_a15 out nocopy VARCHAR2
432 , p2_a16 out nocopy VARCHAR2
433 , p2_a17 out nocopy VARCHAR2
434 , p2_a18 out nocopy VARCHAR2
435 , p2_a19 out nocopy VARCHAR2
436 , p2_a20 out nocopy VARCHAR2
437 , p2_a21 out nocopy VARCHAR2
438 , p2_a22 out nocopy VARCHAR2
439 , p2_a23 out nocopy VARCHAR2
440 , p2_a24 out nocopy VARCHAR2
441 , p2_a25 out nocopy VARCHAR2
442 , p2_a26 out nocopy VARCHAR2
443 , p2_a27 out nocopy VARCHAR2
444 , p2_a28 out nocopy VARCHAR2
445 , p2_a29 out nocopy VARCHAR2
446 , p2_a30 out nocopy VARCHAR2
447 , p2_a31 out nocopy VARCHAR2
448 , p2_a32 out nocopy VARCHAR2
449 , p2_a33 out nocopy VARCHAR2
450 , x_return_status out nocopy VARCHAR2
451 , x_msg_count out nocopy NUMBER
452 , x_msg_data out nocopy VARCHAR2
453 )
454 as
455 ddx_orig_sys_reference_rec hz_orig_system_ref_pub.orig_sys_reference_rec_type;
456 ddindx binary_integer; indx binary_integer;
457 begin
458
459 -- copy data to the local IN or IN-OUT args, if any
460
461
462
463
464
465
466 -- here's the delegated call to the old PL/SQL routine
467 hz_orig_system_ref_pvt.get_orig_sys_reference_rec(p_init_msg_list,
468 p_orig_system_ref_id,
469 ddx_orig_sys_reference_rec,
470 x_return_status,
471 x_msg_count,
472 x_msg_data);
473
474 -- copy data back from the local OUT or IN-OUT args, if any
475
476
477 p2_a0 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.orig_system_ref_id);
478 p2_a1 := ddx_orig_sys_reference_rec.orig_system;
479 p2_a2 := ddx_orig_sys_reference_rec.orig_system_reference;
480 p2_a3 := ddx_orig_sys_reference_rec.owner_table_name;
481 p2_a4 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.owner_table_id);
482 p2_a5 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.party_id);
483 p2_a6 := ddx_orig_sys_reference_rec.status;
484 p2_a7 := ddx_orig_sys_reference_rec.reason_code;
485 p2_a8 := ddx_orig_sys_reference_rec.old_orig_system_reference;
486 p2_a9 := ddx_orig_sys_reference_rec.start_date_active;
487 p2_a10 := ddx_orig_sys_reference_rec.end_date_active;
488 p2_a11 := ddx_orig_sys_reference_rec.created_by_module;
489 p2_a12 := rosetta_g_miss_num_map(ddx_orig_sys_reference_rec.application_id);
490 p2_a13 := ddx_orig_sys_reference_rec.attribute_category;
491 p2_a14 := ddx_orig_sys_reference_rec.attribute1;
492 p2_a15 := ddx_orig_sys_reference_rec.attribute2;
493 p2_a16 := ddx_orig_sys_reference_rec.attribute3;
494 p2_a17 := ddx_orig_sys_reference_rec.attribute4;
495 p2_a18 := ddx_orig_sys_reference_rec.attribute5;
496 p2_a19 := ddx_orig_sys_reference_rec.attribute6;
497 p2_a20 := ddx_orig_sys_reference_rec.attribute7;
498 p2_a21 := ddx_orig_sys_reference_rec.attribute8;
499 p2_a22 := ddx_orig_sys_reference_rec.attribute9;
500 p2_a23 := ddx_orig_sys_reference_rec.attribute10;
501 p2_a24 := ddx_orig_sys_reference_rec.attribute11;
502 p2_a25 := ddx_orig_sys_reference_rec.attribute12;
503 p2_a26 := ddx_orig_sys_reference_rec.attribute13;
504 p2_a27 := ddx_orig_sys_reference_rec.attribute14;
505 p2_a28 := ddx_orig_sys_reference_rec.attribute15;
506 p2_a29 := ddx_orig_sys_reference_rec.attribute16;
507 p2_a30 := ddx_orig_sys_reference_rec.attribute17;
508 p2_a31 := ddx_orig_sys_reference_rec.attribute18;
509 p2_a32 := ddx_orig_sys_reference_rec.attribute19;
510 p2_a33 := ddx_orig_sys_reference_rec.attribute20;
511
512
513
514 end;
515
516 procedure create_orig_system_6(p_init_msg_list VARCHAR2
517 , p_validation_level NUMBER
518 , x_return_status out nocopy VARCHAR2
519 , x_msg_count out nocopy NUMBER
520 , x_msg_data out nocopy VARCHAR2
521 , p2_a0 NUMBER := null
522 , p2_a1 VARCHAR2 := null
523 , p2_a2 VARCHAR2 := null
524 , p2_a3 VARCHAR2 := null
525 , p2_a4 VARCHAR2 := null
526 , p2_a5 VARCHAR2 := null
527 , p2_a6 VARCHAR2 := null
528 , p2_a7 VARCHAR2 := null
529 , p2_a8 VARCHAR2 := null
530 , p2_a9 VARCHAR2 := null
531 , p2_a10 VARCHAR2 := null
532 , p2_a11 VARCHAR2 := null
533 , p2_a12 VARCHAR2 := null
534 , p2_a13 VARCHAR2 := null
535 , p2_a14 VARCHAR2 := null
536 , p2_a15 VARCHAR2 := null
537 , p2_a16 VARCHAR2 := null
538 , p2_a17 VARCHAR2 := null
539 , p2_a18 VARCHAR2 := null
540 , p2_a19 VARCHAR2 := null
541 , p2_a20 VARCHAR2 := null
542 , p2_a21 VARCHAR2 := null
543 , p2_a22 VARCHAR2 := null
544 , p2_a23 VARCHAR2 := null
545 , p2_a24 VARCHAR2 := null
546 , p2_a25 VARCHAR2 := null
547 , p2_a26 VARCHAR2 := null
548 , p2_a27 VARCHAR2 := null
549 , p2_a28 VARCHAR2 := null
550 )
551 as
552 ddp_orig_sys_rec hz_orig_system_ref_pvt.orig_sys_rec_type;
553 ddindx binary_integer; indx binary_integer;
554 begin
555
556 -- copy data to the local IN or IN-OUT args, if any
557
558
559 ddp_orig_sys_rec.orig_system_id := rosetta_g_miss_num_map(p2_a0);
560 ddp_orig_sys_rec.orig_system := p2_a1;
561 ddp_orig_sys_rec.orig_system_name := p2_a2;
562 ddp_orig_sys_rec.description := p2_a3;
563 ddp_orig_sys_rec.orig_system_type := p2_a4;
564 ddp_orig_sys_rec.sst_flag := p2_a5;
565 ddp_orig_sys_rec.status := p2_a6;
566 ddp_orig_sys_rec.created_by_module := p2_a7;
567 ddp_orig_sys_rec.attribute_category := p2_a8;
568 ddp_orig_sys_rec.attribute1 := p2_a9;
569 ddp_orig_sys_rec.attribute2 := p2_a10;
570 ddp_orig_sys_rec.attribute3 := p2_a11;
571 ddp_orig_sys_rec.attribute4 := p2_a12;
572 ddp_orig_sys_rec.attribute5 := p2_a13;
573 ddp_orig_sys_rec.attribute6 := p2_a14;
574 ddp_orig_sys_rec.attribute7 := p2_a15;
575 ddp_orig_sys_rec.attribute8 := p2_a16;
576 ddp_orig_sys_rec.attribute9 := p2_a17;
577 ddp_orig_sys_rec.attribute10 := p2_a18;
578 ddp_orig_sys_rec.attribute11 := p2_a19;
579 ddp_orig_sys_rec.attribute12 := p2_a20;
580 ddp_orig_sys_rec.attribute13 := p2_a21;
581 ddp_orig_sys_rec.attribute14 := p2_a22;
582 ddp_orig_sys_rec.attribute15 := p2_a23;
583 ddp_orig_sys_rec.attribute16 := p2_a24;
584 ddp_orig_sys_rec.attribute17 := p2_a25;
585 ddp_orig_sys_rec.attribute18 := p2_a26;
586 ddp_orig_sys_rec.attribute19 := p2_a27;
587 ddp_orig_sys_rec.attribute20 := p2_a28;
588
589
590
591
592 -- here's the delegated call to the old PL/SQL routine
593 hz_orig_system_ref_pvt.create_orig_system(p_init_msg_list,
594 p_validation_level,
595 ddp_orig_sys_rec,
596 x_return_status,
597 x_msg_count,
598 x_msg_data);
599
600 -- copy data back from the local OUT or IN-OUT args, if any
601
602
603
604
605
606 end;
607
608 procedure update_orig_system_7(p_init_msg_list VARCHAR2
609 , p_validation_level NUMBER
610 , p_object_version_number in out nocopy NUMBER
611 , x_return_status out nocopy VARCHAR2
612 , x_msg_count out nocopy NUMBER
613 , x_msg_data out nocopy VARCHAR2
614 , p2_a0 NUMBER := null
615 , p2_a1 VARCHAR2 := null
616 , p2_a2 VARCHAR2 := null
617 , p2_a3 VARCHAR2 := null
618 , p2_a4 VARCHAR2 := null
619 , p2_a5 VARCHAR2 := null
620 , p2_a6 VARCHAR2 := null
621 , p2_a7 VARCHAR2 := null
622 , p2_a8 VARCHAR2 := null
623 , p2_a9 VARCHAR2 := null
624 , p2_a10 VARCHAR2 := null
625 , p2_a11 VARCHAR2 := null
626 , p2_a12 VARCHAR2 := null
627 , p2_a13 VARCHAR2 := null
628 , p2_a14 VARCHAR2 := null
629 , p2_a15 VARCHAR2 := null
630 , p2_a16 VARCHAR2 := null
631 , p2_a17 VARCHAR2 := null
632 , p2_a18 VARCHAR2 := null
633 , p2_a19 VARCHAR2 := null
634 , p2_a20 VARCHAR2 := null
635 , p2_a21 VARCHAR2 := null
636 , p2_a22 VARCHAR2 := null
637 , p2_a23 VARCHAR2 := null
638 , p2_a24 VARCHAR2 := null
639 , p2_a25 VARCHAR2 := null
640 , p2_a26 VARCHAR2 := null
641 , p2_a27 VARCHAR2 := null
642 , p2_a28 VARCHAR2 := null
643 )
644 as
645 ddp_orig_sys_rec hz_orig_system_ref_pvt.orig_sys_rec_type;
646 ddindx binary_integer; indx binary_integer;
647 begin
648
649 -- copy data to the local IN or IN-OUT args, if any
650
651
652 ddp_orig_sys_rec.orig_system_id := rosetta_g_miss_num_map(p2_a0);
653 ddp_orig_sys_rec.orig_system := p2_a1;
654 ddp_orig_sys_rec.orig_system_name := p2_a2;
655 ddp_orig_sys_rec.description := p2_a3;
656 ddp_orig_sys_rec.orig_system_type := p2_a4;
657 ddp_orig_sys_rec.sst_flag := p2_a5;
658 ddp_orig_sys_rec.status := p2_a6;
659 ddp_orig_sys_rec.created_by_module := p2_a7;
660 ddp_orig_sys_rec.attribute_category := p2_a8;
661 ddp_orig_sys_rec.attribute1 := p2_a9;
662 ddp_orig_sys_rec.attribute2 := p2_a10;
663 ddp_orig_sys_rec.attribute3 := p2_a11;
664 ddp_orig_sys_rec.attribute4 := p2_a12;
665 ddp_orig_sys_rec.attribute5 := p2_a13;
666 ddp_orig_sys_rec.attribute6 := p2_a14;
667 ddp_orig_sys_rec.attribute7 := p2_a15;
668 ddp_orig_sys_rec.attribute8 := p2_a16;
669 ddp_orig_sys_rec.attribute9 := p2_a17;
670 ddp_orig_sys_rec.attribute10 := p2_a18;
671 ddp_orig_sys_rec.attribute11 := p2_a19;
672 ddp_orig_sys_rec.attribute12 := p2_a20;
673 ddp_orig_sys_rec.attribute13 := p2_a21;
674 ddp_orig_sys_rec.attribute14 := p2_a22;
675 ddp_orig_sys_rec.attribute15 := p2_a23;
676 ddp_orig_sys_rec.attribute16 := p2_a24;
677 ddp_orig_sys_rec.attribute17 := p2_a25;
678 ddp_orig_sys_rec.attribute18 := p2_a26;
679 ddp_orig_sys_rec.attribute19 := p2_a27;
680 ddp_orig_sys_rec.attribute20 := p2_a28;
681
682
683
684
685
686 -- here's the delegated call to the old PL/SQL routine
687 hz_orig_system_ref_pvt.update_orig_system(p_init_msg_list,
688 p_validation_level,
689 ddp_orig_sys_rec,
690 p_object_version_number,
691 x_return_status,
692 x_msg_count,
693 x_msg_data);
694
695 -- copy data back from the local OUT or IN-OUT args, if any
696
697
698
699
700
701
702 end;
703
704 end hz_orig_system_ref_pvt_jw;