[Home] [Help]
PACKAGE BODY: APPS.HZ_CONTACT_POINT_V2PUB_JW
Source
1 package body hz_contact_point_v2pub_jw as
2 /* $Header: ARH2CPJB.pls 120.3 2005/06/18 04:27: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_contact_point_1(p_init_msg_list VARCHAR2
23 , x_contact_point_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 VARCHAR2 := null
29 , p1_a2 VARCHAR2 := null
30 , p1_a3 VARCHAR2 := null
31 , p1_a4 NUMBER := null
32 , p1_a5 VARCHAR2 := null
33 , p1_a6 VARCHAR2 := null
34 , p1_a7 VARCHAR2 := 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 , p1_a25 VARCHAR2 := null
53 , p1_a26 VARCHAR2 := null
54 , p1_a27 VARCHAR2 := null
55 , p1_a28 VARCHAR2 := null
56 , p1_a29 VARCHAR2 := null
57 , p1_a30 VARCHAR2 := null
58 , p1_a31 VARCHAR2 := null
59 , p1_a32 VARCHAR2 := null
60 , p1_a33 NUMBER := null
61 , p1_a34 VARCHAR2 := null
62 , p2_a0 VARCHAR2 := null
63 , p2_a1 VARCHAR2 := null
64 , p2_a2 VARCHAR2 := null
65 , p2_a3 VARCHAR2 := null
66 , p2_a4 VARCHAR2 := null
67 , p2_a5 VARCHAR2 := null
68 , p2_a6 NUMBER := null
69 , p2_a7 VARCHAR2 := null
70 , p3_a0 VARCHAR2 := null
71 , p3_a1 VARCHAR2 := null
72 , p4_a0 VARCHAR2 := null
73 , p4_a1 DATE := null
74 , p4_a2 NUMBER := null
75 , p4_a3 VARCHAR2 := null
76 , p4_a4 VARCHAR2 := null
77 , p4_a5 VARCHAR2 := null
78 , p4_a6 VARCHAR2 := null
79 , p4_a7 VARCHAR2 := null
80 , p4_a8 VARCHAR2 := null
81 , p5_a0 VARCHAR2 := null
82 , p6_a0 VARCHAR2 := null
83 , p6_a1 VARCHAR2 := null
84 )
85 as
86 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
87 ddp_edi_rec hz_contact_point_v2pub.edi_rec_type;
88 ddp_email_rec hz_contact_point_v2pub.email_rec_type;
89 ddp_phone_rec hz_contact_point_v2pub.phone_rec_type;
90 ddp_telex_rec hz_contact_point_v2pub.telex_rec_type;
91 ddp_web_rec hz_contact_point_v2pub.web_rec_type;
92 ddindx binary_integer; indx binary_integer;
93 begin
94
95 -- copy data to the local IN or IN-OUT args, if any
96
97 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
98 ddp_contact_point_rec.contact_point_type := p1_a1;
99 ddp_contact_point_rec.status := p1_a2;
100 ddp_contact_point_rec.owner_table_name := p1_a3;
101 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
102 ddp_contact_point_rec.primary_flag := p1_a5;
103 ddp_contact_point_rec.orig_system_reference := p1_a6;
104 ddp_contact_point_rec.orig_system := p1_a7;
105 ddp_contact_point_rec.content_source_type := p1_a8;
106 ddp_contact_point_rec.attribute_category := p1_a9;
107 ddp_contact_point_rec.attribute1 := p1_a10;
108 ddp_contact_point_rec.attribute2 := p1_a11;
109 ddp_contact_point_rec.attribute3 := p1_a12;
110 ddp_contact_point_rec.attribute4 := p1_a13;
111 ddp_contact_point_rec.attribute5 := p1_a14;
112 ddp_contact_point_rec.attribute6 := p1_a15;
113 ddp_contact_point_rec.attribute7 := p1_a16;
114 ddp_contact_point_rec.attribute8 := p1_a17;
115 ddp_contact_point_rec.attribute9 := p1_a18;
116 ddp_contact_point_rec.attribute10 := p1_a19;
117 ddp_contact_point_rec.attribute11 := p1_a20;
118 ddp_contact_point_rec.attribute12 := p1_a21;
119 ddp_contact_point_rec.attribute13 := p1_a22;
120 ddp_contact_point_rec.attribute14 := p1_a23;
121 ddp_contact_point_rec.attribute15 := p1_a24;
122 ddp_contact_point_rec.attribute16 := p1_a25;
123 ddp_contact_point_rec.attribute17 := p1_a26;
124 ddp_contact_point_rec.attribute18 := p1_a27;
125 ddp_contact_point_rec.attribute19 := p1_a28;
126 ddp_contact_point_rec.attribute20 := p1_a29;
127 ddp_contact_point_rec.contact_point_purpose := p1_a30;
128 ddp_contact_point_rec.primary_by_purpose := p1_a31;
129 ddp_contact_point_rec.created_by_module := p1_a32;
130 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
131 ddp_contact_point_rec.actual_content_source := p1_a34;
132
133 ddp_edi_rec.edi_transaction_handling := p2_a0;
134 ddp_edi_rec.edi_id_number := p2_a1;
135 ddp_edi_rec.edi_payment_method := p2_a2;
136 ddp_edi_rec.edi_payment_format := p2_a3;
137 ddp_edi_rec.edi_remittance_method := p2_a4;
138 ddp_edi_rec.edi_remittance_instruction := p2_a5;
139 ddp_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p2_a6);
140 ddp_edi_rec.edi_ece_tp_location_code := p2_a7;
141
142 ddp_email_rec.email_format := p3_a0;
143 ddp_email_rec.email_address := p3_a1;
144
145 ddp_phone_rec.phone_calling_calendar := p4_a0;
146 ddp_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p4_a1);
147 ddp_phone_rec.timezone_id := rosetta_g_miss_num_map(p4_a2);
148 ddp_phone_rec.phone_area_code := p4_a3;
149 ddp_phone_rec.phone_country_code := p4_a4;
150 ddp_phone_rec.phone_number := p4_a5;
151 ddp_phone_rec.phone_extension := p4_a6;
152 ddp_phone_rec.phone_line_type := p4_a7;
153 ddp_phone_rec.raw_phone_number := p4_a8;
154
155 ddp_telex_rec.telex_number := p5_a0;
156
157 ddp_web_rec.web_type := p6_a0;
158 ddp_web_rec.url := p6_a1;
159
160
161
162
163
164 -- here's the delegated call to the old PL/SQL routine
165 hz_contact_point_v2pub.create_contact_point(p_init_msg_list,
166 ddp_contact_point_rec,
167 ddp_edi_rec,
168 ddp_email_rec,
169 ddp_phone_rec,
170 ddp_telex_rec,
171 ddp_web_rec,
172 x_contact_point_id,
173 x_return_status,
174 x_msg_count,
175 x_msg_data);
176
177 -- copy data back from the local OUT or IN-OUT args, if any
178
179
180
181
182
183
184
185
186
187
188 end;
189
190 procedure create_edi_contact_point_2(p_init_msg_list VARCHAR2
191 , x_contact_point_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 VARCHAR2 := null
197 , p1_a2 VARCHAR2 := 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 , p1_a10 VARCHAR2 := null
206 , p1_a11 VARCHAR2 := null
207 , p1_a12 VARCHAR2 := null
208 , p1_a13 VARCHAR2 := null
209 , p1_a14 VARCHAR2 := null
210 , p1_a15 VARCHAR2 := null
211 , p1_a16 VARCHAR2 := null
212 , p1_a17 VARCHAR2 := null
213 , p1_a18 VARCHAR2 := null
214 , p1_a19 VARCHAR2 := null
215 , p1_a20 VARCHAR2 := null
216 , p1_a21 VARCHAR2 := null
217 , p1_a22 VARCHAR2 := null
218 , p1_a23 VARCHAR2 := null
219 , p1_a24 VARCHAR2 := null
220 , p1_a25 VARCHAR2 := null
221 , p1_a26 VARCHAR2 := null
222 , p1_a27 VARCHAR2 := null
223 , p1_a28 VARCHAR2 := null
224 , p1_a29 VARCHAR2 := null
225 , p1_a30 VARCHAR2 := null
226 , p1_a31 VARCHAR2 := null
227 , p1_a32 VARCHAR2 := null
228 , p1_a33 NUMBER := null
229 , p1_a34 VARCHAR2 := null
230 , p2_a0 VARCHAR2 := null
231 , p2_a1 VARCHAR2 := null
232 , p2_a2 VARCHAR2 := null
233 , p2_a3 VARCHAR2 := null
234 , p2_a4 VARCHAR2 := null
235 , p2_a5 VARCHAR2 := null
236 , p2_a6 NUMBER := null
237 , p2_a7 VARCHAR2 := null
238 )
239 as
240 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
241 ddp_edi_rec hz_contact_point_v2pub.edi_rec_type;
242 ddindx binary_integer; indx binary_integer;
243 begin
244
245 -- copy data to the local IN or IN-OUT args, if any
246
247 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
248 ddp_contact_point_rec.contact_point_type := p1_a1;
249 ddp_contact_point_rec.status := p1_a2;
250 ddp_contact_point_rec.owner_table_name := p1_a3;
251 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
252 ddp_contact_point_rec.primary_flag := p1_a5;
253 ddp_contact_point_rec.orig_system_reference := p1_a6;
254 ddp_contact_point_rec.orig_system := p1_a7;
255 ddp_contact_point_rec.content_source_type := p1_a8;
256 ddp_contact_point_rec.attribute_category := p1_a9;
257 ddp_contact_point_rec.attribute1 := p1_a10;
258 ddp_contact_point_rec.attribute2 := p1_a11;
259 ddp_contact_point_rec.attribute3 := p1_a12;
260 ddp_contact_point_rec.attribute4 := p1_a13;
261 ddp_contact_point_rec.attribute5 := p1_a14;
262 ddp_contact_point_rec.attribute6 := p1_a15;
263 ddp_contact_point_rec.attribute7 := p1_a16;
264 ddp_contact_point_rec.attribute8 := p1_a17;
265 ddp_contact_point_rec.attribute9 := p1_a18;
266 ddp_contact_point_rec.attribute10 := p1_a19;
267 ddp_contact_point_rec.attribute11 := p1_a20;
268 ddp_contact_point_rec.attribute12 := p1_a21;
269 ddp_contact_point_rec.attribute13 := p1_a22;
270 ddp_contact_point_rec.attribute14 := p1_a23;
271 ddp_contact_point_rec.attribute15 := p1_a24;
272 ddp_contact_point_rec.attribute16 := p1_a25;
273 ddp_contact_point_rec.attribute17 := p1_a26;
274 ddp_contact_point_rec.attribute18 := p1_a27;
275 ddp_contact_point_rec.attribute19 := p1_a28;
276 ddp_contact_point_rec.attribute20 := p1_a29;
277 ddp_contact_point_rec.contact_point_purpose := p1_a30;
278 ddp_contact_point_rec.primary_by_purpose := p1_a31;
279 ddp_contact_point_rec.created_by_module := p1_a32;
280 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
281 ddp_contact_point_rec.actual_content_source := p1_a34;
282
283 ddp_edi_rec.edi_transaction_handling := p2_a0;
284 ddp_edi_rec.edi_id_number := p2_a1;
285 ddp_edi_rec.edi_payment_method := p2_a2;
286 ddp_edi_rec.edi_payment_format := p2_a3;
287 ddp_edi_rec.edi_remittance_method := p2_a4;
288 ddp_edi_rec.edi_remittance_instruction := p2_a5;
289 ddp_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p2_a6);
290 ddp_edi_rec.edi_ece_tp_location_code := p2_a7;
291
292
293
294
295
296 -- here's the delegated call to the old PL/SQL routine
297 hz_contact_point_v2pub.create_edi_contact_point(p_init_msg_list,
298 ddp_contact_point_rec,
299 ddp_edi_rec,
300 x_contact_point_id,
301 x_return_status,
302 x_msg_count,
303 x_msg_data);
304
305 -- copy data back from the local OUT or IN-OUT args, if any
306
307
308
309
310
311
312 end;
313
314 procedure create_web_contact_point_3(p_init_msg_list VARCHAR2
315 , x_contact_point_id out nocopy NUMBER
316 , x_return_status out nocopy VARCHAR2
317 , x_msg_count out nocopy NUMBER
318 , x_msg_data out nocopy VARCHAR2
319 , p1_a0 NUMBER := null
320 , p1_a1 VARCHAR2 := null
321 , p1_a2 VARCHAR2 := null
322 , p1_a3 VARCHAR2 := null
323 , p1_a4 NUMBER := null
324 , p1_a5 VARCHAR2 := null
325 , p1_a6 VARCHAR2 := null
326 , p1_a7 VARCHAR2 := null
327 , p1_a8 VARCHAR2 := null
328 , p1_a9 VARCHAR2 := null
329 , p1_a10 VARCHAR2 := null
330 , p1_a11 VARCHAR2 := null
331 , p1_a12 VARCHAR2 := null
332 , p1_a13 VARCHAR2 := null
333 , p1_a14 VARCHAR2 := null
334 , p1_a15 VARCHAR2 := null
335 , p1_a16 VARCHAR2 := null
336 , p1_a17 VARCHAR2 := null
337 , p1_a18 VARCHAR2 := null
338 , p1_a19 VARCHAR2 := null
339 , p1_a20 VARCHAR2 := null
340 , p1_a21 VARCHAR2 := null
341 , p1_a22 VARCHAR2 := null
342 , p1_a23 VARCHAR2 := null
343 , p1_a24 VARCHAR2 := null
344 , p1_a25 VARCHAR2 := null
345 , p1_a26 VARCHAR2 := null
346 , p1_a27 VARCHAR2 := null
347 , p1_a28 VARCHAR2 := null
348 , p1_a29 VARCHAR2 := null
349 , p1_a30 VARCHAR2 := null
350 , p1_a31 VARCHAR2 := null
351 , p1_a32 VARCHAR2 := null
352 , p1_a33 NUMBER := null
353 , p1_a34 VARCHAR2 := null
354 , p2_a0 VARCHAR2 := null
355 , p2_a1 VARCHAR2 := null
356 )
357 as
358 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
359 ddp_web_rec hz_contact_point_v2pub.web_rec_type;
360 ddindx binary_integer; indx binary_integer;
361 begin
362
363 -- copy data to the local IN or IN-OUT args, if any
364
365 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
366 ddp_contact_point_rec.contact_point_type := p1_a1;
370 ddp_contact_point_rec.primary_flag := p1_a5;
367 ddp_contact_point_rec.status := p1_a2;
368 ddp_contact_point_rec.owner_table_name := p1_a3;
369 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
371 ddp_contact_point_rec.orig_system_reference := p1_a6;
372 ddp_contact_point_rec.orig_system := p1_a7;
373 ddp_contact_point_rec.content_source_type := p1_a8;
374 ddp_contact_point_rec.attribute_category := p1_a9;
375 ddp_contact_point_rec.attribute1 := p1_a10;
376 ddp_contact_point_rec.attribute2 := p1_a11;
377 ddp_contact_point_rec.attribute3 := p1_a12;
378 ddp_contact_point_rec.attribute4 := p1_a13;
379 ddp_contact_point_rec.attribute5 := p1_a14;
380 ddp_contact_point_rec.attribute6 := p1_a15;
381 ddp_contact_point_rec.attribute7 := p1_a16;
382 ddp_contact_point_rec.attribute8 := p1_a17;
383 ddp_contact_point_rec.attribute9 := p1_a18;
384 ddp_contact_point_rec.attribute10 := p1_a19;
385 ddp_contact_point_rec.attribute11 := p1_a20;
386 ddp_contact_point_rec.attribute12 := p1_a21;
387 ddp_contact_point_rec.attribute13 := p1_a22;
388 ddp_contact_point_rec.attribute14 := p1_a23;
389 ddp_contact_point_rec.attribute15 := p1_a24;
390 ddp_contact_point_rec.attribute16 := p1_a25;
391 ddp_contact_point_rec.attribute17 := p1_a26;
392 ddp_contact_point_rec.attribute18 := p1_a27;
393 ddp_contact_point_rec.attribute19 := p1_a28;
394 ddp_contact_point_rec.attribute20 := p1_a29;
395 ddp_contact_point_rec.contact_point_purpose := p1_a30;
396 ddp_contact_point_rec.primary_by_purpose := p1_a31;
397 ddp_contact_point_rec.created_by_module := p1_a32;
398 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
399 ddp_contact_point_rec.actual_content_source := p1_a34;
400
401 ddp_web_rec.web_type := p2_a0;
402 ddp_web_rec.url := p2_a1;
403
404
405
406
407
408 -- here's the delegated call to the old PL/SQL routine
409 hz_contact_point_v2pub.create_web_contact_point(p_init_msg_list,
410 ddp_contact_point_rec,
411 ddp_web_rec,
412 x_contact_point_id,
413 x_return_status,
414 x_msg_count,
415 x_msg_data);
416
417 -- copy data back from the local OUT or IN-OUT args, if any
418
419
420
421
422
423
424 end;
425
426 procedure create_eft_contact_point_4(p_init_msg_list VARCHAR2
427 , x_contact_point_id out nocopy NUMBER
428 , x_return_status out nocopy VARCHAR2
429 , x_msg_count out nocopy NUMBER
430 , x_msg_data out nocopy VARCHAR2
431 , p1_a0 NUMBER := null
432 , p1_a1 VARCHAR2 := null
433 , p1_a2 VARCHAR2 := null
434 , p1_a3 VARCHAR2 := null
435 , p1_a4 NUMBER := null
436 , p1_a5 VARCHAR2 := null
437 , p1_a6 VARCHAR2 := null
438 , p1_a7 VARCHAR2 := null
439 , p1_a8 VARCHAR2 := null
440 , p1_a9 VARCHAR2 := null
441 , p1_a10 VARCHAR2 := null
442 , p1_a11 VARCHAR2 := null
443 , p1_a12 VARCHAR2 := null
444 , p1_a13 VARCHAR2 := null
445 , p1_a14 VARCHAR2 := null
446 , p1_a15 VARCHAR2 := null
447 , p1_a16 VARCHAR2 := null
448 , p1_a17 VARCHAR2 := null
449 , p1_a18 VARCHAR2 := null
450 , p1_a19 VARCHAR2 := null
451 , p1_a20 VARCHAR2 := null
452 , p1_a21 VARCHAR2 := null
453 , p1_a22 VARCHAR2 := null
454 , p1_a23 VARCHAR2 := null
455 , p1_a24 VARCHAR2 := null
456 , p1_a25 VARCHAR2 := null
457 , p1_a26 VARCHAR2 := null
458 , p1_a27 VARCHAR2 := null
459 , p1_a28 VARCHAR2 := null
460 , p1_a29 VARCHAR2 := null
461 , p1_a30 VARCHAR2 := null
462 , p1_a31 VARCHAR2 := null
463 , p1_a32 VARCHAR2 := null
464 , p1_a33 NUMBER := null
465 , p1_a34 VARCHAR2 := null
466 , p2_a0 NUMBER := null
467 , p2_a1 NUMBER := null
468 , p2_a2 VARCHAR2 := null
469 , p2_a3 VARCHAR2 := null
470 )
471 as
472 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
473 ddp_eft_rec hz_contact_point_v2pub.eft_rec_type;
474 ddindx binary_integer; indx binary_integer;
475 begin
476
477 -- copy data to the local IN or IN-OUT args, if any
478
479 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
480 ddp_contact_point_rec.contact_point_type := p1_a1;
481 ddp_contact_point_rec.status := p1_a2;
482 ddp_contact_point_rec.owner_table_name := p1_a3;
483 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
484 ddp_contact_point_rec.primary_flag := p1_a5;
485 ddp_contact_point_rec.orig_system_reference := p1_a6;
486 ddp_contact_point_rec.orig_system := p1_a7;
487 ddp_contact_point_rec.content_source_type := p1_a8;
488 ddp_contact_point_rec.attribute_category := p1_a9;
489 ddp_contact_point_rec.attribute1 := p1_a10;
490 ddp_contact_point_rec.attribute2 := p1_a11;
491 ddp_contact_point_rec.attribute3 := p1_a12;
492 ddp_contact_point_rec.attribute4 := p1_a13;
493 ddp_contact_point_rec.attribute5 := p1_a14;
494 ddp_contact_point_rec.attribute6 := p1_a15;
495 ddp_contact_point_rec.attribute7 := p1_a16;
499 ddp_contact_point_rec.attribute11 := p1_a20;
496 ddp_contact_point_rec.attribute8 := p1_a17;
497 ddp_contact_point_rec.attribute9 := p1_a18;
498 ddp_contact_point_rec.attribute10 := p1_a19;
500 ddp_contact_point_rec.attribute12 := p1_a21;
501 ddp_contact_point_rec.attribute13 := p1_a22;
502 ddp_contact_point_rec.attribute14 := p1_a23;
503 ddp_contact_point_rec.attribute15 := p1_a24;
504 ddp_contact_point_rec.attribute16 := p1_a25;
505 ddp_contact_point_rec.attribute17 := p1_a26;
506 ddp_contact_point_rec.attribute18 := p1_a27;
507 ddp_contact_point_rec.attribute19 := p1_a28;
508 ddp_contact_point_rec.attribute20 := p1_a29;
509 ddp_contact_point_rec.contact_point_purpose := p1_a30;
510 ddp_contact_point_rec.primary_by_purpose := p1_a31;
511 ddp_contact_point_rec.created_by_module := p1_a32;
512 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
513 ddp_contact_point_rec.actual_content_source := p1_a34;
514
515 ddp_eft_rec.eft_transmission_program_id := rosetta_g_miss_num_map(p2_a0);
516 ddp_eft_rec.eft_printing_program_id := rosetta_g_miss_num_map(p2_a1);
517 ddp_eft_rec.eft_user_number := p2_a2;
518 ddp_eft_rec.eft_swift_code := p2_a3;
519
520
521
522
523
524 -- here's the delegated call to the old PL/SQL routine
525 hz_contact_point_v2pub.create_eft_contact_point(p_init_msg_list,
526 ddp_contact_point_rec,
527 ddp_eft_rec,
528 x_contact_point_id,
529 x_return_status,
530 x_msg_count,
531 x_msg_data);
532
533 -- copy data back from the local OUT or IN-OUT args, if any
534
535
536
537
538
539
540 end;
541
542 procedure create_phone_contact_point_5(p_init_msg_list VARCHAR2
543 , x_contact_point_id out nocopy NUMBER
544 , x_return_status out nocopy VARCHAR2
545 , x_msg_count out nocopy NUMBER
546 , x_msg_data out nocopy VARCHAR2
547 , p1_a0 NUMBER := null
548 , p1_a1 VARCHAR2 := null
549 , p1_a2 VARCHAR2 := null
550 , p1_a3 VARCHAR2 := null
551 , p1_a4 NUMBER := null
552 , p1_a5 VARCHAR2 := null
553 , p1_a6 VARCHAR2 := null
554 , p1_a7 VARCHAR2 := null
555 , p1_a8 VARCHAR2 := null
556 , p1_a9 VARCHAR2 := null
557 , p1_a10 VARCHAR2 := null
558 , p1_a11 VARCHAR2 := null
559 , p1_a12 VARCHAR2 := null
560 , p1_a13 VARCHAR2 := null
561 , p1_a14 VARCHAR2 := null
562 , p1_a15 VARCHAR2 := null
563 , p1_a16 VARCHAR2 := null
564 , p1_a17 VARCHAR2 := null
565 , p1_a18 VARCHAR2 := null
566 , p1_a19 VARCHAR2 := null
567 , p1_a20 VARCHAR2 := null
568 , p1_a21 VARCHAR2 := null
569 , p1_a22 VARCHAR2 := null
570 , p1_a23 VARCHAR2 := null
571 , p1_a24 VARCHAR2 := null
572 , p1_a25 VARCHAR2 := null
573 , p1_a26 VARCHAR2 := null
574 , p1_a27 VARCHAR2 := null
575 , p1_a28 VARCHAR2 := null
576 , p1_a29 VARCHAR2 := null
577 , p1_a30 VARCHAR2 := null
578 , p1_a31 VARCHAR2 := null
579 , p1_a32 VARCHAR2 := null
580 , p1_a33 NUMBER := null
581 , p1_a34 VARCHAR2 := null
582 , p2_a0 VARCHAR2 := null
583 , p2_a1 DATE := null
584 , p2_a2 NUMBER := null
585 , p2_a3 VARCHAR2 := null
586 , p2_a4 VARCHAR2 := null
587 , p2_a5 VARCHAR2 := null
588 , p2_a6 VARCHAR2 := null
589 , p2_a7 VARCHAR2 := null
590 , p2_a8 VARCHAR2 := null
591 )
592 as
593 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
594 ddp_phone_rec hz_contact_point_v2pub.phone_rec_type;
595 ddindx binary_integer; indx binary_integer;
596 begin
597
598 -- copy data to the local IN or IN-OUT args, if any
599
600 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
601 ddp_contact_point_rec.contact_point_type := p1_a1;
602 ddp_contact_point_rec.status := p1_a2;
603 ddp_contact_point_rec.owner_table_name := p1_a3;
604 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
605 ddp_contact_point_rec.primary_flag := p1_a5;
606 ddp_contact_point_rec.orig_system_reference := p1_a6;
607 ddp_contact_point_rec.orig_system := p1_a7;
608 ddp_contact_point_rec.content_source_type := p1_a8;
609 ddp_contact_point_rec.attribute_category := p1_a9;
610 ddp_contact_point_rec.attribute1 := p1_a10;
611 ddp_contact_point_rec.attribute2 := p1_a11;
612 ddp_contact_point_rec.attribute3 := p1_a12;
613 ddp_contact_point_rec.attribute4 := p1_a13;
614 ddp_contact_point_rec.attribute5 := p1_a14;
615 ddp_contact_point_rec.attribute6 := p1_a15;
616 ddp_contact_point_rec.attribute7 := p1_a16;
617 ddp_contact_point_rec.attribute8 := p1_a17;
618 ddp_contact_point_rec.attribute9 := p1_a18;
619 ddp_contact_point_rec.attribute10 := p1_a19;
620 ddp_contact_point_rec.attribute11 := p1_a20;
621 ddp_contact_point_rec.attribute12 := p1_a21;
622 ddp_contact_point_rec.attribute13 := p1_a22;
623 ddp_contact_point_rec.attribute14 := p1_a23;
624 ddp_contact_point_rec.attribute15 := p1_a24;
625 ddp_contact_point_rec.attribute16 := p1_a25;
629 ddp_contact_point_rec.attribute20 := p1_a29;
626 ddp_contact_point_rec.attribute17 := p1_a26;
627 ddp_contact_point_rec.attribute18 := p1_a27;
628 ddp_contact_point_rec.attribute19 := p1_a28;
630 ddp_contact_point_rec.contact_point_purpose := p1_a30;
631 ddp_contact_point_rec.primary_by_purpose := p1_a31;
632 ddp_contact_point_rec.created_by_module := p1_a32;
633 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
634 ddp_contact_point_rec.actual_content_source := p1_a34;
635
636 ddp_phone_rec.phone_calling_calendar := p2_a0;
637 ddp_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
638 ddp_phone_rec.timezone_id := rosetta_g_miss_num_map(p2_a2);
639 ddp_phone_rec.phone_area_code := p2_a3;
640 ddp_phone_rec.phone_country_code := p2_a4;
641 ddp_phone_rec.phone_number := p2_a5;
642 ddp_phone_rec.phone_extension := p2_a6;
643 ddp_phone_rec.phone_line_type := p2_a7;
644 ddp_phone_rec.raw_phone_number := p2_a8;
645
646
647
648
649
650 -- here's the delegated call to the old PL/SQL routine
651 hz_contact_point_v2pub.create_phone_contact_point(p_init_msg_list,
652 ddp_contact_point_rec,
653 ddp_phone_rec,
654 x_contact_point_id,
655 x_return_status,
656 x_msg_count,
657 x_msg_data);
658
659 -- copy data back from the local OUT or IN-OUT args, if any
660
661
662
663
664
665
666 end;
667
668 procedure create_telex_contact_point_6(p_init_msg_list VARCHAR2
669 , x_contact_point_id out nocopy NUMBER
670 , x_return_status out nocopy VARCHAR2
671 , x_msg_count out nocopy NUMBER
672 , x_msg_data out nocopy VARCHAR2
673 , p1_a0 NUMBER := null
674 , p1_a1 VARCHAR2 := null
675 , p1_a2 VARCHAR2 := null
676 , p1_a3 VARCHAR2 := null
677 , p1_a4 NUMBER := null
678 , p1_a5 VARCHAR2 := null
679 , p1_a6 VARCHAR2 := null
680 , p1_a7 VARCHAR2 := null
681 , p1_a8 VARCHAR2 := null
682 , p1_a9 VARCHAR2 := null
683 , p1_a10 VARCHAR2 := null
684 , p1_a11 VARCHAR2 := null
685 , p1_a12 VARCHAR2 := null
686 , p1_a13 VARCHAR2 := null
687 , p1_a14 VARCHAR2 := null
688 , p1_a15 VARCHAR2 := null
689 , p1_a16 VARCHAR2 := null
690 , p1_a17 VARCHAR2 := null
691 , p1_a18 VARCHAR2 := null
692 , p1_a19 VARCHAR2 := null
693 , p1_a20 VARCHAR2 := null
694 , p1_a21 VARCHAR2 := null
695 , p1_a22 VARCHAR2 := null
696 , p1_a23 VARCHAR2 := null
697 , p1_a24 VARCHAR2 := null
698 , p1_a25 VARCHAR2 := null
699 , p1_a26 VARCHAR2 := null
700 , p1_a27 VARCHAR2 := null
701 , p1_a28 VARCHAR2 := null
702 , p1_a29 VARCHAR2 := null
703 , p1_a30 VARCHAR2 := null
704 , p1_a31 VARCHAR2 := null
705 , p1_a32 VARCHAR2 := null
706 , p1_a33 NUMBER := null
707 , p1_a34 VARCHAR2 := null
708 , p2_a0 VARCHAR2 := null
709 )
710 as
711 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
712 ddp_telex_rec hz_contact_point_v2pub.telex_rec_type;
713 ddindx binary_integer; indx binary_integer;
714 begin
715
716 -- copy data to the local IN or IN-OUT args, if any
717
718 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
719 ddp_contact_point_rec.contact_point_type := p1_a1;
720 ddp_contact_point_rec.status := p1_a2;
721 ddp_contact_point_rec.owner_table_name := p1_a3;
722 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
723 ddp_contact_point_rec.primary_flag := p1_a5;
724 ddp_contact_point_rec.orig_system_reference := p1_a6;
725 ddp_contact_point_rec.orig_system := p1_a7;
726 ddp_contact_point_rec.content_source_type := p1_a8;
727 ddp_contact_point_rec.attribute_category := p1_a9;
728 ddp_contact_point_rec.attribute1 := p1_a10;
729 ddp_contact_point_rec.attribute2 := p1_a11;
730 ddp_contact_point_rec.attribute3 := p1_a12;
731 ddp_contact_point_rec.attribute4 := p1_a13;
732 ddp_contact_point_rec.attribute5 := p1_a14;
733 ddp_contact_point_rec.attribute6 := p1_a15;
734 ddp_contact_point_rec.attribute7 := p1_a16;
735 ddp_contact_point_rec.attribute8 := p1_a17;
736 ddp_contact_point_rec.attribute9 := p1_a18;
737 ddp_contact_point_rec.attribute10 := p1_a19;
738 ddp_contact_point_rec.attribute11 := p1_a20;
739 ddp_contact_point_rec.attribute12 := p1_a21;
740 ddp_contact_point_rec.attribute13 := p1_a22;
741 ddp_contact_point_rec.attribute14 := p1_a23;
742 ddp_contact_point_rec.attribute15 := p1_a24;
743 ddp_contact_point_rec.attribute16 := p1_a25;
744 ddp_contact_point_rec.attribute17 := p1_a26;
745 ddp_contact_point_rec.attribute18 := p1_a27;
746 ddp_contact_point_rec.attribute19 := p1_a28;
747 ddp_contact_point_rec.attribute20 := p1_a29;
748 ddp_contact_point_rec.contact_point_purpose := p1_a30;
749 ddp_contact_point_rec.primary_by_purpose := p1_a31;
750 ddp_contact_point_rec.created_by_module := p1_a32;
751 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
752 ddp_contact_point_rec.actual_content_source := p1_a34;
753
757
754 ddp_telex_rec.telex_number := p2_a0;
755
756
758
759
760 -- here's the delegated call to the old PL/SQL routine
761 hz_contact_point_v2pub.create_telex_contact_point(p_init_msg_list,
762 ddp_contact_point_rec,
763 ddp_telex_rec,
764 x_contact_point_id,
765 x_return_status,
766 x_msg_count,
767 x_msg_data);
768
769 -- copy data back from the local OUT or IN-OUT args, if any
770
771
772
773
774
775
776 end;
777
778 procedure create_email_contact_point_7(p_init_msg_list VARCHAR2
779 , x_contact_point_id out nocopy NUMBER
780 , x_return_status out nocopy VARCHAR2
781 , x_msg_count out nocopy NUMBER
782 , x_msg_data out nocopy VARCHAR2
783 , p1_a0 NUMBER := null
784 , p1_a1 VARCHAR2 := null
785 , p1_a2 VARCHAR2 := null
786 , p1_a3 VARCHAR2 := null
787 , p1_a4 NUMBER := null
788 , p1_a5 VARCHAR2 := null
789 , p1_a6 VARCHAR2 := null
790 , p1_a7 VARCHAR2 := null
791 , p1_a8 VARCHAR2 := null
792 , p1_a9 VARCHAR2 := null
793 , p1_a10 VARCHAR2 := null
794 , p1_a11 VARCHAR2 := null
795 , p1_a12 VARCHAR2 := null
796 , p1_a13 VARCHAR2 := null
797 , p1_a14 VARCHAR2 := null
798 , p1_a15 VARCHAR2 := null
799 , p1_a16 VARCHAR2 := null
800 , p1_a17 VARCHAR2 := null
801 , p1_a18 VARCHAR2 := null
802 , p1_a19 VARCHAR2 := null
803 , p1_a20 VARCHAR2 := null
804 , p1_a21 VARCHAR2 := null
805 , p1_a22 VARCHAR2 := null
806 , p1_a23 VARCHAR2 := null
807 , p1_a24 VARCHAR2 := null
808 , p1_a25 VARCHAR2 := null
809 , p1_a26 VARCHAR2 := null
810 , p1_a27 VARCHAR2 := null
811 , p1_a28 VARCHAR2 := null
812 , p1_a29 VARCHAR2 := null
813 , p1_a30 VARCHAR2 := null
814 , p1_a31 VARCHAR2 := null
815 , p1_a32 VARCHAR2 := null
816 , p1_a33 NUMBER := null
817 , p1_a34 VARCHAR2 := null
818 , p2_a0 VARCHAR2 := null
819 , p2_a1 VARCHAR2 := null
820 )
821 as
822 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
823 ddp_email_rec hz_contact_point_v2pub.email_rec_type;
824 ddindx binary_integer; indx binary_integer;
825 begin
826
827 -- copy data to the local IN or IN-OUT args, if any
828
829 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
830 ddp_contact_point_rec.contact_point_type := p1_a1;
831 ddp_contact_point_rec.status := p1_a2;
832 ddp_contact_point_rec.owner_table_name := p1_a3;
833 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
834 ddp_contact_point_rec.primary_flag := p1_a5;
835 ddp_contact_point_rec.orig_system_reference := p1_a6;
836 ddp_contact_point_rec.orig_system := p1_a7;
837 ddp_contact_point_rec.content_source_type := p1_a8;
838 ddp_contact_point_rec.attribute_category := p1_a9;
839 ddp_contact_point_rec.attribute1 := p1_a10;
840 ddp_contact_point_rec.attribute2 := p1_a11;
841 ddp_contact_point_rec.attribute3 := p1_a12;
842 ddp_contact_point_rec.attribute4 := p1_a13;
843 ddp_contact_point_rec.attribute5 := p1_a14;
844 ddp_contact_point_rec.attribute6 := p1_a15;
845 ddp_contact_point_rec.attribute7 := p1_a16;
846 ddp_contact_point_rec.attribute8 := p1_a17;
847 ddp_contact_point_rec.attribute9 := p1_a18;
848 ddp_contact_point_rec.attribute10 := p1_a19;
849 ddp_contact_point_rec.attribute11 := p1_a20;
850 ddp_contact_point_rec.attribute12 := p1_a21;
851 ddp_contact_point_rec.attribute13 := p1_a22;
852 ddp_contact_point_rec.attribute14 := p1_a23;
853 ddp_contact_point_rec.attribute15 := p1_a24;
854 ddp_contact_point_rec.attribute16 := p1_a25;
855 ddp_contact_point_rec.attribute17 := p1_a26;
856 ddp_contact_point_rec.attribute18 := p1_a27;
857 ddp_contact_point_rec.attribute19 := p1_a28;
858 ddp_contact_point_rec.attribute20 := p1_a29;
859 ddp_contact_point_rec.contact_point_purpose := p1_a30;
860 ddp_contact_point_rec.primary_by_purpose := p1_a31;
861 ddp_contact_point_rec.created_by_module := p1_a32;
862 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
863 ddp_contact_point_rec.actual_content_source := p1_a34;
864
865 ddp_email_rec.email_format := p2_a0;
866 ddp_email_rec.email_address := p2_a1;
867
868
869
870
871
872 -- here's the delegated call to the old PL/SQL routine
873 hz_contact_point_v2pub.create_email_contact_point(p_init_msg_list,
874 ddp_contact_point_rec,
875 ddp_email_rec,
876 x_contact_point_id,
877 x_return_status,
878 x_msg_count,
879 x_msg_data);
880
881 -- copy data back from the local OUT or IN-OUT args, if any
882
883
884
885
886
887
888 end;
889
890 procedure update_contact_point_8(p_init_msg_list VARCHAR2
891 , p_object_version_number in out nocopy NUMBER
892 , x_return_status out nocopy VARCHAR2
893 , x_msg_count out nocopy NUMBER
894 , x_msg_data out nocopy VARCHAR2
898 , p1_a3 VARCHAR2 := null
895 , p1_a0 NUMBER := null
896 , p1_a1 VARCHAR2 := null
897 , p1_a2 VARCHAR2 := null
899 , p1_a4 NUMBER := null
900 , p1_a5 VARCHAR2 := null
901 , p1_a6 VARCHAR2 := null
902 , p1_a7 VARCHAR2 := null
903 , p1_a8 VARCHAR2 := null
904 , p1_a9 VARCHAR2 := null
905 , p1_a10 VARCHAR2 := null
906 , p1_a11 VARCHAR2 := null
907 , p1_a12 VARCHAR2 := null
908 , p1_a13 VARCHAR2 := null
909 , p1_a14 VARCHAR2 := null
910 , p1_a15 VARCHAR2 := null
911 , p1_a16 VARCHAR2 := null
912 , p1_a17 VARCHAR2 := null
913 , p1_a18 VARCHAR2 := null
914 , p1_a19 VARCHAR2 := null
915 , p1_a20 VARCHAR2 := null
916 , p1_a21 VARCHAR2 := null
917 , p1_a22 VARCHAR2 := null
918 , p1_a23 VARCHAR2 := null
919 , p1_a24 VARCHAR2 := null
920 , p1_a25 VARCHAR2 := null
921 , p1_a26 VARCHAR2 := null
922 , p1_a27 VARCHAR2 := null
923 , p1_a28 VARCHAR2 := null
924 , p1_a29 VARCHAR2 := null
925 , p1_a30 VARCHAR2 := null
926 , p1_a31 VARCHAR2 := null
927 , p1_a32 VARCHAR2 := null
928 , p1_a33 NUMBER := null
929 , p1_a34 VARCHAR2 := null
930 , p2_a0 VARCHAR2 := null
931 , p2_a1 VARCHAR2 := null
932 , p2_a2 VARCHAR2 := null
933 , p2_a3 VARCHAR2 := null
934 , p2_a4 VARCHAR2 := null
935 , p2_a5 VARCHAR2 := null
936 , p2_a6 NUMBER := null
937 , p2_a7 VARCHAR2 := null
938 , p3_a0 VARCHAR2 := null
939 , p3_a1 VARCHAR2 := null
940 , p4_a0 VARCHAR2 := null
941 , p4_a1 DATE := null
942 , p4_a2 NUMBER := null
943 , p4_a3 VARCHAR2 := null
944 , p4_a4 VARCHAR2 := null
945 , p4_a5 VARCHAR2 := null
946 , p4_a6 VARCHAR2 := null
947 , p4_a7 VARCHAR2 := null
948 , p4_a8 VARCHAR2 := null
949 , p5_a0 VARCHAR2 := null
950 , p6_a0 VARCHAR2 := null
951 , p6_a1 VARCHAR2 := null
952 )
953 as
954 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
955 ddp_edi_rec hz_contact_point_v2pub.edi_rec_type;
956 ddp_email_rec hz_contact_point_v2pub.email_rec_type;
957 ddp_phone_rec hz_contact_point_v2pub.phone_rec_type;
958 ddp_telex_rec hz_contact_point_v2pub.telex_rec_type;
959 ddp_web_rec hz_contact_point_v2pub.web_rec_type;
960 ddindx binary_integer; indx binary_integer;
961 begin
962
963 -- copy data to the local IN or IN-OUT args, if any
964
965 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
966 ddp_contact_point_rec.contact_point_type := p1_a1;
967 ddp_contact_point_rec.status := p1_a2;
968 ddp_contact_point_rec.owner_table_name := p1_a3;
969 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
970 ddp_contact_point_rec.primary_flag := p1_a5;
971 ddp_contact_point_rec.orig_system_reference := p1_a6;
972 ddp_contact_point_rec.orig_system := p1_a7;
973 ddp_contact_point_rec.content_source_type := p1_a8;
974 ddp_contact_point_rec.attribute_category := p1_a9;
975 ddp_contact_point_rec.attribute1 := p1_a10;
976 ddp_contact_point_rec.attribute2 := p1_a11;
977 ddp_contact_point_rec.attribute3 := p1_a12;
978 ddp_contact_point_rec.attribute4 := p1_a13;
979 ddp_contact_point_rec.attribute5 := p1_a14;
980 ddp_contact_point_rec.attribute6 := p1_a15;
981 ddp_contact_point_rec.attribute7 := p1_a16;
982 ddp_contact_point_rec.attribute8 := p1_a17;
983 ddp_contact_point_rec.attribute9 := p1_a18;
984 ddp_contact_point_rec.attribute10 := p1_a19;
985 ddp_contact_point_rec.attribute11 := p1_a20;
986 ddp_contact_point_rec.attribute12 := p1_a21;
987 ddp_contact_point_rec.attribute13 := p1_a22;
988 ddp_contact_point_rec.attribute14 := p1_a23;
989 ddp_contact_point_rec.attribute15 := p1_a24;
990 ddp_contact_point_rec.attribute16 := p1_a25;
991 ddp_contact_point_rec.attribute17 := p1_a26;
992 ddp_contact_point_rec.attribute18 := p1_a27;
993 ddp_contact_point_rec.attribute19 := p1_a28;
994 ddp_contact_point_rec.attribute20 := p1_a29;
995 ddp_contact_point_rec.contact_point_purpose := p1_a30;
996 ddp_contact_point_rec.primary_by_purpose := p1_a31;
997 ddp_contact_point_rec.created_by_module := p1_a32;
998 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
999 ddp_contact_point_rec.actual_content_source := p1_a34;
1000
1001 ddp_edi_rec.edi_transaction_handling := p2_a0;
1002 ddp_edi_rec.edi_id_number := p2_a1;
1003 ddp_edi_rec.edi_payment_method := p2_a2;
1004 ddp_edi_rec.edi_payment_format := p2_a3;
1005 ddp_edi_rec.edi_remittance_method := p2_a4;
1006 ddp_edi_rec.edi_remittance_instruction := p2_a5;
1007 ddp_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p2_a6);
1008 ddp_edi_rec.edi_ece_tp_location_code := p2_a7;
1009
1010 ddp_email_rec.email_format := p3_a0;
1011 ddp_email_rec.email_address := p3_a1;
1012
1013 ddp_phone_rec.phone_calling_calendar := p4_a0;
1014 ddp_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p4_a1);
1015 ddp_phone_rec.timezone_id := rosetta_g_miss_num_map(p4_a2);
1016 ddp_phone_rec.phone_area_code := p4_a3;
1017 ddp_phone_rec.phone_country_code := p4_a4;
1018 ddp_phone_rec.phone_number := p4_a5;
1022
1019 ddp_phone_rec.phone_extension := p4_a6;
1020 ddp_phone_rec.phone_line_type := p4_a7;
1021 ddp_phone_rec.raw_phone_number := p4_a8;
1023 ddp_telex_rec.telex_number := p5_a0;
1024
1025 ddp_web_rec.web_type := p6_a0;
1026 ddp_web_rec.url := p6_a1;
1027
1028
1029
1030
1031
1032 -- here's the delegated call to the old PL/SQL routine
1033 hz_contact_point_v2pub.update_contact_point(p_init_msg_list,
1034 ddp_contact_point_rec,
1035 ddp_edi_rec,
1036 ddp_email_rec,
1037 ddp_phone_rec,
1038 ddp_telex_rec,
1039 ddp_web_rec,
1040 p_object_version_number,
1041 x_return_status,
1042 x_msg_count,
1043 x_msg_data);
1044
1045 -- copy data back from the local OUT or IN-OUT args, if any
1046
1047
1048
1049
1050
1051
1052
1053
1054
1055
1056 end;
1057
1058 procedure update_edi_contact_point_9(p_init_msg_list VARCHAR2
1059 , p_object_version_number in out nocopy NUMBER
1060 , x_return_status out nocopy VARCHAR2
1061 , x_msg_count out nocopy NUMBER
1062 , x_msg_data out nocopy VARCHAR2
1063 , p1_a0 NUMBER := null
1064 , p1_a1 VARCHAR2 := null
1065 , p1_a2 VARCHAR2 := null
1066 , p1_a3 VARCHAR2 := null
1067 , p1_a4 NUMBER := null
1068 , p1_a5 VARCHAR2 := null
1069 , p1_a6 VARCHAR2 := null
1070 , p1_a7 VARCHAR2 := null
1071 , p1_a8 VARCHAR2 := null
1072 , p1_a9 VARCHAR2 := null
1073 , p1_a10 VARCHAR2 := null
1074 , p1_a11 VARCHAR2 := null
1075 , p1_a12 VARCHAR2 := null
1076 , p1_a13 VARCHAR2 := null
1077 , p1_a14 VARCHAR2 := null
1078 , p1_a15 VARCHAR2 := null
1079 , p1_a16 VARCHAR2 := null
1080 , p1_a17 VARCHAR2 := null
1081 , p1_a18 VARCHAR2 := null
1082 , p1_a19 VARCHAR2 := null
1083 , p1_a20 VARCHAR2 := null
1084 , p1_a21 VARCHAR2 := null
1085 , p1_a22 VARCHAR2 := null
1086 , p1_a23 VARCHAR2 := null
1087 , p1_a24 VARCHAR2 := null
1088 , p1_a25 VARCHAR2 := null
1089 , p1_a26 VARCHAR2 := null
1090 , p1_a27 VARCHAR2 := null
1091 , p1_a28 VARCHAR2 := null
1092 , p1_a29 VARCHAR2 := null
1093 , p1_a30 VARCHAR2 := null
1094 , p1_a31 VARCHAR2 := null
1095 , p1_a32 VARCHAR2 := null
1096 , p1_a33 NUMBER := null
1097 , p1_a34 VARCHAR2 := null
1098 , p2_a0 VARCHAR2 := null
1099 , p2_a1 VARCHAR2 := null
1100 , p2_a2 VARCHAR2 := null
1101 , p2_a3 VARCHAR2 := null
1102 , p2_a4 VARCHAR2 := null
1103 , p2_a5 VARCHAR2 := null
1104 , p2_a6 NUMBER := null
1105 , p2_a7 VARCHAR2 := null
1106 )
1107 as
1108 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1109 ddp_edi_rec hz_contact_point_v2pub.edi_rec_type;
1110 ddindx binary_integer; indx binary_integer;
1111 begin
1112
1113 -- copy data to the local IN or IN-OUT args, if any
1114
1115 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
1116 ddp_contact_point_rec.contact_point_type := p1_a1;
1117 ddp_contact_point_rec.status := p1_a2;
1118 ddp_contact_point_rec.owner_table_name := p1_a3;
1119 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
1120 ddp_contact_point_rec.primary_flag := p1_a5;
1121 ddp_contact_point_rec.orig_system_reference := p1_a6;
1122 ddp_contact_point_rec.orig_system := p1_a7;
1123 ddp_contact_point_rec.content_source_type := p1_a8;
1124 ddp_contact_point_rec.attribute_category := p1_a9;
1125 ddp_contact_point_rec.attribute1 := p1_a10;
1126 ddp_contact_point_rec.attribute2 := p1_a11;
1127 ddp_contact_point_rec.attribute3 := p1_a12;
1128 ddp_contact_point_rec.attribute4 := p1_a13;
1129 ddp_contact_point_rec.attribute5 := p1_a14;
1130 ddp_contact_point_rec.attribute6 := p1_a15;
1131 ddp_contact_point_rec.attribute7 := p1_a16;
1132 ddp_contact_point_rec.attribute8 := p1_a17;
1133 ddp_contact_point_rec.attribute9 := p1_a18;
1134 ddp_contact_point_rec.attribute10 := p1_a19;
1135 ddp_contact_point_rec.attribute11 := p1_a20;
1136 ddp_contact_point_rec.attribute12 := p1_a21;
1137 ddp_contact_point_rec.attribute13 := p1_a22;
1138 ddp_contact_point_rec.attribute14 := p1_a23;
1139 ddp_contact_point_rec.attribute15 := p1_a24;
1140 ddp_contact_point_rec.attribute16 := p1_a25;
1141 ddp_contact_point_rec.attribute17 := p1_a26;
1142 ddp_contact_point_rec.attribute18 := p1_a27;
1143 ddp_contact_point_rec.attribute19 := p1_a28;
1144 ddp_contact_point_rec.attribute20 := p1_a29;
1145 ddp_contact_point_rec.contact_point_purpose := p1_a30;
1146 ddp_contact_point_rec.primary_by_purpose := p1_a31;
1147 ddp_contact_point_rec.created_by_module := p1_a32;
1148 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
1149 ddp_contact_point_rec.actual_content_source := p1_a34;
1150
1151 ddp_edi_rec.edi_transaction_handling := p2_a0;
1152 ddp_edi_rec.edi_id_number := p2_a1;
1153 ddp_edi_rec.edi_payment_method := p2_a2;
1154 ddp_edi_rec.edi_payment_format := p2_a3;
1155 ddp_edi_rec.edi_remittance_method := p2_a4;
1156 ddp_edi_rec.edi_remittance_instruction := p2_a5;
1160
1157 ddp_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p2_a6);
1158 ddp_edi_rec.edi_ece_tp_location_code := p2_a7;
1159
1161
1162
1163
1164 -- here's the delegated call to the old PL/SQL routine
1165 hz_contact_point_v2pub.update_edi_contact_point(p_init_msg_list,
1166 ddp_contact_point_rec,
1167 ddp_edi_rec,
1168 p_object_version_number,
1169 x_return_status,
1170 x_msg_count,
1171 x_msg_data);
1172
1173 -- copy data back from the local OUT or IN-OUT args, if any
1174
1175
1176
1177
1178
1179
1180 end;
1181
1182 procedure update_web_contact_point_10(p_init_msg_list VARCHAR2
1183 , p_object_version_number in out nocopy NUMBER
1184 , x_return_status out nocopy VARCHAR2
1185 , x_msg_count out nocopy NUMBER
1186 , x_msg_data out nocopy VARCHAR2
1187 , p1_a0 NUMBER := null
1188 , p1_a1 VARCHAR2 := null
1189 , p1_a2 VARCHAR2 := null
1190 , p1_a3 VARCHAR2 := null
1191 , p1_a4 NUMBER := null
1192 , p1_a5 VARCHAR2 := null
1193 , p1_a6 VARCHAR2 := null
1194 , p1_a7 VARCHAR2 := null
1195 , p1_a8 VARCHAR2 := null
1196 , p1_a9 VARCHAR2 := null
1197 , p1_a10 VARCHAR2 := null
1198 , p1_a11 VARCHAR2 := null
1199 , p1_a12 VARCHAR2 := null
1200 , p1_a13 VARCHAR2 := null
1201 , p1_a14 VARCHAR2 := null
1202 , p1_a15 VARCHAR2 := null
1203 , p1_a16 VARCHAR2 := null
1204 , p1_a17 VARCHAR2 := null
1205 , p1_a18 VARCHAR2 := null
1206 , p1_a19 VARCHAR2 := null
1207 , p1_a20 VARCHAR2 := null
1208 , p1_a21 VARCHAR2 := null
1209 , p1_a22 VARCHAR2 := null
1210 , p1_a23 VARCHAR2 := null
1211 , p1_a24 VARCHAR2 := null
1212 , p1_a25 VARCHAR2 := null
1213 , p1_a26 VARCHAR2 := null
1214 , p1_a27 VARCHAR2 := null
1215 , p1_a28 VARCHAR2 := null
1216 , p1_a29 VARCHAR2 := null
1217 , p1_a30 VARCHAR2 := null
1218 , p1_a31 VARCHAR2 := null
1219 , p1_a32 VARCHAR2 := null
1220 , p1_a33 NUMBER := null
1221 , p1_a34 VARCHAR2 := null
1222 , p2_a0 VARCHAR2 := null
1223 , p2_a1 VARCHAR2 := null
1224 )
1225 as
1226 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1227 ddp_web_rec hz_contact_point_v2pub.web_rec_type;
1228 ddindx binary_integer; indx binary_integer;
1229 begin
1230
1231 -- copy data to the local IN or IN-OUT args, if any
1232
1233 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
1234 ddp_contact_point_rec.contact_point_type := p1_a1;
1235 ddp_contact_point_rec.status := p1_a2;
1236 ddp_contact_point_rec.owner_table_name := p1_a3;
1237 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
1238 ddp_contact_point_rec.primary_flag := p1_a5;
1239 ddp_contact_point_rec.orig_system_reference := p1_a6;
1240 ddp_contact_point_rec.orig_system := p1_a7;
1241 ddp_contact_point_rec.content_source_type := p1_a8;
1242 ddp_contact_point_rec.attribute_category := p1_a9;
1243 ddp_contact_point_rec.attribute1 := p1_a10;
1244 ddp_contact_point_rec.attribute2 := p1_a11;
1245 ddp_contact_point_rec.attribute3 := p1_a12;
1246 ddp_contact_point_rec.attribute4 := p1_a13;
1247 ddp_contact_point_rec.attribute5 := p1_a14;
1248 ddp_contact_point_rec.attribute6 := p1_a15;
1249 ddp_contact_point_rec.attribute7 := p1_a16;
1250 ddp_contact_point_rec.attribute8 := p1_a17;
1251 ddp_contact_point_rec.attribute9 := p1_a18;
1252 ddp_contact_point_rec.attribute10 := p1_a19;
1253 ddp_contact_point_rec.attribute11 := p1_a20;
1254 ddp_contact_point_rec.attribute12 := p1_a21;
1255 ddp_contact_point_rec.attribute13 := p1_a22;
1256 ddp_contact_point_rec.attribute14 := p1_a23;
1257 ddp_contact_point_rec.attribute15 := p1_a24;
1258 ddp_contact_point_rec.attribute16 := p1_a25;
1259 ddp_contact_point_rec.attribute17 := p1_a26;
1260 ddp_contact_point_rec.attribute18 := p1_a27;
1261 ddp_contact_point_rec.attribute19 := p1_a28;
1262 ddp_contact_point_rec.attribute20 := p1_a29;
1263 ddp_contact_point_rec.contact_point_purpose := p1_a30;
1264 ddp_contact_point_rec.primary_by_purpose := p1_a31;
1265 ddp_contact_point_rec.created_by_module := p1_a32;
1266 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
1267 ddp_contact_point_rec.actual_content_source := p1_a34;
1268
1269 ddp_web_rec.web_type := p2_a0;
1270 ddp_web_rec.url := p2_a1;
1271
1272
1273
1274
1275
1276 -- here's the delegated call to the old PL/SQL routine
1277 hz_contact_point_v2pub.update_web_contact_point(p_init_msg_list,
1278 ddp_contact_point_rec,
1279 ddp_web_rec,
1280 p_object_version_number,
1281 x_return_status,
1282 x_msg_count,
1283 x_msg_data);
1284
1285 -- copy data back from the local OUT or IN-OUT args, if any
1286
1287
1288
1289
1290
1291
1292 end;
1293
1294 procedure update_eft_contact_point_11(p_init_msg_list VARCHAR2
1295 , p_object_version_number in out nocopy NUMBER
1296 , x_return_status out nocopy VARCHAR2
1297 , x_msg_count out nocopy NUMBER
1298 , x_msg_data out nocopy VARCHAR2
1302 , p1_a3 VARCHAR2 := null
1299 , p1_a0 NUMBER := null
1300 , p1_a1 VARCHAR2 := null
1301 , p1_a2 VARCHAR2 := null
1303 , p1_a4 NUMBER := null
1304 , p1_a5 VARCHAR2 := null
1305 , p1_a6 VARCHAR2 := null
1306 , p1_a7 VARCHAR2 := null
1307 , p1_a8 VARCHAR2 := null
1308 , p1_a9 VARCHAR2 := null
1309 , p1_a10 VARCHAR2 := null
1310 , p1_a11 VARCHAR2 := null
1311 , p1_a12 VARCHAR2 := null
1312 , p1_a13 VARCHAR2 := null
1313 , p1_a14 VARCHAR2 := null
1314 , p1_a15 VARCHAR2 := null
1315 , p1_a16 VARCHAR2 := null
1316 , p1_a17 VARCHAR2 := null
1317 , p1_a18 VARCHAR2 := null
1318 , p1_a19 VARCHAR2 := null
1319 , p1_a20 VARCHAR2 := null
1320 , p1_a21 VARCHAR2 := null
1321 , p1_a22 VARCHAR2 := null
1322 , p1_a23 VARCHAR2 := null
1323 , p1_a24 VARCHAR2 := null
1324 , p1_a25 VARCHAR2 := null
1325 , p1_a26 VARCHAR2 := null
1326 , p1_a27 VARCHAR2 := null
1327 , p1_a28 VARCHAR2 := null
1328 , p1_a29 VARCHAR2 := null
1329 , p1_a30 VARCHAR2 := null
1330 , p1_a31 VARCHAR2 := null
1331 , p1_a32 VARCHAR2 := null
1332 , p1_a33 NUMBER := null
1333 , p1_a34 VARCHAR2 := null
1334 , p2_a0 NUMBER := null
1335 , p2_a1 NUMBER := null
1336 , p2_a2 VARCHAR2 := null
1337 , p2_a3 VARCHAR2 := null
1338 )
1339 as
1340 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1341 ddp_eft_rec hz_contact_point_v2pub.eft_rec_type;
1342 ddindx binary_integer; indx binary_integer;
1343 begin
1344
1345 -- copy data to the local IN or IN-OUT args, if any
1346
1347 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
1348 ddp_contact_point_rec.contact_point_type := p1_a1;
1349 ddp_contact_point_rec.status := p1_a2;
1350 ddp_contact_point_rec.owner_table_name := p1_a3;
1351 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
1352 ddp_contact_point_rec.primary_flag := p1_a5;
1353 ddp_contact_point_rec.orig_system_reference := p1_a6;
1354 ddp_contact_point_rec.orig_system := p1_a7;
1355 ddp_contact_point_rec.content_source_type := p1_a8;
1356 ddp_contact_point_rec.attribute_category := p1_a9;
1357 ddp_contact_point_rec.attribute1 := p1_a10;
1358 ddp_contact_point_rec.attribute2 := p1_a11;
1359 ddp_contact_point_rec.attribute3 := p1_a12;
1360 ddp_contact_point_rec.attribute4 := p1_a13;
1361 ddp_contact_point_rec.attribute5 := p1_a14;
1362 ddp_contact_point_rec.attribute6 := p1_a15;
1363 ddp_contact_point_rec.attribute7 := p1_a16;
1364 ddp_contact_point_rec.attribute8 := p1_a17;
1365 ddp_contact_point_rec.attribute9 := p1_a18;
1366 ddp_contact_point_rec.attribute10 := p1_a19;
1367 ddp_contact_point_rec.attribute11 := p1_a20;
1368 ddp_contact_point_rec.attribute12 := p1_a21;
1369 ddp_contact_point_rec.attribute13 := p1_a22;
1370 ddp_contact_point_rec.attribute14 := p1_a23;
1371 ddp_contact_point_rec.attribute15 := p1_a24;
1372 ddp_contact_point_rec.attribute16 := p1_a25;
1373 ddp_contact_point_rec.attribute17 := p1_a26;
1374 ddp_contact_point_rec.attribute18 := p1_a27;
1375 ddp_contact_point_rec.attribute19 := p1_a28;
1376 ddp_contact_point_rec.attribute20 := p1_a29;
1377 ddp_contact_point_rec.contact_point_purpose := p1_a30;
1378 ddp_contact_point_rec.primary_by_purpose := p1_a31;
1379 ddp_contact_point_rec.created_by_module := p1_a32;
1380 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
1381 ddp_contact_point_rec.actual_content_source := p1_a34;
1382
1383 ddp_eft_rec.eft_transmission_program_id := rosetta_g_miss_num_map(p2_a0);
1384 ddp_eft_rec.eft_printing_program_id := rosetta_g_miss_num_map(p2_a1);
1385 ddp_eft_rec.eft_user_number := p2_a2;
1386 ddp_eft_rec.eft_swift_code := p2_a3;
1387
1388
1389
1390
1391
1392 -- here's the delegated call to the old PL/SQL routine
1393 hz_contact_point_v2pub.update_eft_contact_point(p_init_msg_list,
1394 ddp_contact_point_rec,
1395 ddp_eft_rec,
1396 p_object_version_number,
1397 x_return_status,
1398 x_msg_count,
1399 x_msg_data);
1400
1401 -- copy data back from the local OUT or IN-OUT args, if any
1402
1403
1404
1405
1406
1407
1408 end;
1409
1410 procedure update_phone_contact_point_12(p_init_msg_list VARCHAR2
1411 , p_object_version_number in out nocopy NUMBER
1412 , x_return_status out nocopy VARCHAR2
1413 , x_msg_count out nocopy NUMBER
1414 , x_msg_data out nocopy VARCHAR2
1415 , p1_a0 NUMBER := null
1416 , p1_a1 VARCHAR2 := null
1417 , p1_a2 VARCHAR2 := null
1418 , p1_a3 VARCHAR2 := null
1419 , p1_a4 NUMBER := null
1420 , p1_a5 VARCHAR2 := null
1421 , p1_a6 VARCHAR2 := null
1422 , p1_a7 VARCHAR2 := null
1423 , p1_a8 VARCHAR2 := null
1424 , p1_a9 VARCHAR2 := null
1425 , p1_a10 VARCHAR2 := null
1426 , p1_a11 VARCHAR2 := null
1427 , p1_a12 VARCHAR2 := null
1428 , p1_a13 VARCHAR2 := null
1429 , p1_a14 VARCHAR2 := null
1430 , p1_a15 VARCHAR2 := null
1431 , p1_a16 VARCHAR2 := null
1432 , p1_a17 VARCHAR2 := null
1433 , p1_a18 VARCHAR2 := null
1437 , p1_a22 VARCHAR2 := null
1434 , p1_a19 VARCHAR2 := null
1435 , p1_a20 VARCHAR2 := null
1436 , p1_a21 VARCHAR2 := null
1438 , p1_a23 VARCHAR2 := null
1439 , p1_a24 VARCHAR2 := null
1440 , p1_a25 VARCHAR2 := null
1441 , p1_a26 VARCHAR2 := null
1442 , p1_a27 VARCHAR2 := null
1443 , p1_a28 VARCHAR2 := null
1444 , p1_a29 VARCHAR2 := null
1445 , p1_a30 VARCHAR2 := null
1446 , p1_a31 VARCHAR2 := null
1447 , p1_a32 VARCHAR2 := null
1448 , p1_a33 NUMBER := null
1449 , p1_a34 VARCHAR2 := null
1450 , p2_a0 VARCHAR2 := null
1451 , p2_a1 DATE := null
1452 , p2_a2 NUMBER := null
1453 , p2_a3 VARCHAR2 := null
1454 , p2_a4 VARCHAR2 := null
1455 , p2_a5 VARCHAR2 := null
1456 , p2_a6 VARCHAR2 := null
1457 , p2_a7 VARCHAR2 := null
1458 , p2_a8 VARCHAR2 := null
1459 )
1460 as
1461 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1462 ddp_phone_rec hz_contact_point_v2pub.phone_rec_type;
1463 ddindx binary_integer; indx binary_integer;
1464 begin
1465
1466 -- copy data to the local IN or IN-OUT args, if any
1467
1468 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
1469 ddp_contact_point_rec.contact_point_type := p1_a1;
1470 ddp_contact_point_rec.status := p1_a2;
1471 ddp_contact_point_rec.owner_table_name := p1_a3;
1472 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
1473 ddp_contact_point_rec.primary_flag := p1_a5;
1474 ddp_contact_point_rec.orig_system_reference := p1_a6;
1475 ddp_contact_point_rec.orig_system := p1_a7;
1476 ddp_contact_point_rec.content_source_type := p1_a8;
1477 ddp_contact_point_rec.attribute_category := p1_a9;
1478 ddp_contact_point_rec.attribute1 := p1_a10;
1479 ddp_contact_point_rec.attribute2 := p1_a11;
1480 ddp_contact_point_rec.attribute3 := p1_a12;
1481 ddp_contact_point_rec.attribute4 := p1_a13;
1482 ddp_contact_point_rec.attribute5 := p1_a14;
1483 ddp_contact_point_rec.attribute6 := p1_a15;
1484 ddp_contact_point_rec.attribute7 := p1_a16;
1485 ddp_contact_point_rec.attribute8 := p1_a17;
1486 ddp_contact_point_rec.attribute9 := p1_a18;
1487 ddp_contact_point_rec.attribute10 := p1_a19;
1488 ddp_contact_point_rec.attribute11 := p1_a20;
1489 ddp_contact_point_rec.attribute12 := p1_a21;
1490 ddp_contact_point_rec.attribute13 := p1_a22;
1491 ddp_contact_point_rec.attribute14 := p1_a23;
1492 ddp_contact_point_rec.attribute15 := p1_a24;
1493 ddp_contact_point_rec.attribute16 := p1_a25;
1494 ddp_contact_point_rec.attribute17 := p1_a26;
1495 ddp_contact_point_rec.attribute18 := p1_a27;
1496 ddp_contact_point_rec.attribute19 := p1_a28;
1497 ddp_contact_point_rec.attribute20 := p1_a29;
1498 ddp_contact_point_rec.contact_point_purpose := p1_a30;
1499 ddp_contact_point_rec.primary_by_purpose := p1_a31;
1500 ddp_contact_point_rec.created_by_module := p1_a32;
1501 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
1502 ddp_contact_point_rec.actual_content_source := p1_a34;
1503
1504 ddp_phone_rec.phone_calling_calendar := p2_a0;
1505 ddp_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
1506 ddp_phone_rec.timezone_id := rosetta_g_miss_num_map(p2_a2);
1507 ddp_phone_rec.phone_area_code := p2_a3;
1508 ddp_phone_rec.phone_country_code := p2_a4;
1509 ddp_phone_rec.phone_number := p2_a5;
1510 ddp_phone_rec.phone_extension := p2_a6;
1511 ddp_phone_rec.phone_line_type := p2_a7;
1512 ddp_phone_rec.raw_phone_number := p2_a8;
1513
1514
1515
1516
1517
1518 -- here's the delegated call to the old PL/SQL routine
1519 hz_contact_point_v2pub.update_phone_contact_point(p_init_msg_list,
1520 ddp_contact_point_rec,
1521 ddp_phone_rec,
1522 p_object_version_number,
1523 x_return_status,
1524 x_msg_count,
1525 x_msg_data);
1526
1527 -- copy data back from the local OUT or IN-OUT args, if any
1528
1529
1530
1531
1532
1533
1534 end;
1535
1536 procedure update_telex_contact_point_13(p_init_msg_list VARCHAR2
1537 , p_object_version_number in out nocopy NUMBER
1538 , x_return_status out nocopy VARCHAR2
1539 , x_msg_count out nocopy NUMBER
1540 , x_msg_data out nocopy VARCHAR2
1541 , p1_a0 NUMBER := null
1542 , p1_a1 VARCHAR2 := null
1543 , p1_a2 VARCHAR2 := null
1544 , p1_a3 VARCHAR2 := null
1545 , p1_a4 NUMBER := null
1546 , p1_a5 VARCHAR2 := null
1547 , p1_a6 VARCHAR2 := null
1548 , p1_a7 VARCHAR2 := null
1549 , p1_a8 VARCHAR2 := null
1550 , p1_a9 VARCHAR2 := null
1551 , p1_a10 VARCHAR2 := null
1552 , p1_a11 VARCHAR2 := null
1553 , p1_a12 VARCHAR2 := null
1554 , p1_a13 VARCHAR2 := null
1555 , p1_a14 VARCHAR2 := null
1556 , p1_a15 VARCHAR2 := null
1557 , p1_a16 VARCHAR2 := null
1558 , p1_a17 VARCHAR2 := null
1559 , p1_a18 VARCHAR2 := null
1560 , p1_a19 VARCHAR2 := null
1561 , p1_a20 VARCHAR2 := null
1562 , p1_a21 VARCHAR2 := null
1563 , p1_a22 VARCHAR2 := null
1564 , p1_a23 VARCHAR2 := null
1565 , p1_a24 VARCHAR2 := null
1566 , p1_a25 VARCHAR2 := null
1567 , p1_a26 VARCHAR2 := null
1568 , p1_a27 VARCHAR2 := null
1569 , p1_a28 VARCHAR2 := null
1570 , p1_a29 VARCHAR2 := null
1571 , p1_a30 VARCHAR2 := null
1575 , p1_a34 VARCHAR2 := null
1572 , p1_a31 VARCHAR2 := null
1573 , p1_a32 VARCHAR2 := null
1574 , p1_a33 NUMBER := null
1576 , p2_a0 VARCHAR2 := null
1577 )
1578 as
1579 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1580 ddp_telex_rec hz_contact_point_v2pub.telex_rec_type;
1581 ddindx binary_integer; indx binary_integer;
1582 begin
1583
1584 -- copy data to the local IN or IN-OUT args, if any
1585
1586 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
1587 ddp_contact_point_rec.contact_point_type := p1_a1;
1588 ddp_contact_point_rec.status := p1_a2;
1589 ddp_contact_point_rec.owner_table_name := p1_a3;
1590 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
1591 ddp_contact_point_rec.primary_flag := p1_a5;
1592 ddp_contact_point_rec.orig_system_reference := p1_a6;
1593 ddp_contact_point_rec.orig_system := p1_a7;
1594 ddp_contact_point_rec.content_source_type := p1_a8;
1595 ddp_contact_point_rec.attribute_category := p1_a9;
1596 ddp_contact_point_rec.attribute1 := p1_a10;
1597 ddp_contact_point_rec.attribute2 := p1_a11;
1598 ddp_contact_point_rec.attribute3 := p1_a12;
1599 ddp_contact_point_rec.attribute4 := p1_a13;
1600 ddp_contact_point_rec.attribute5 := p1_a14;
1601 ddp_contact_point_rec.attribute6 := p1_a15;
1602 ddp_contact_point_rec.attribute7 := p1_a16;
1603 ddp_contact_point_rec.attribute8 := p1_a17;
1604 ddp_contact_point_rec.attribute9 := p1_a18;
1605 ddp_contact_point_rec.attribute10 := p1_a19;
1606 ddp_contact_point_rec.attribute11 := p1_a20;
1607 ddp_contact_point_rec.attribute12 := p1_a21;
1608 ddp_contact_point_rec.attribute13 := p1_a22;
1609 ddp_contact_point_rec.attribute14 := p1_a23;
1610 ddp_contact_point_rec.attribute15 := p1_a24;
1611 ddp_contact_point_rec.attribute16 := p1_a25;
1612 ddp_contact_point_rec.attribute17 := p1_a26;
1613 ddp_contact_point_rec.attribute18 := p1_a27;
1614 ddp_contact_point_rec.attribute19 := p1_a28;
1615 ddp_contact_point_rec.attribute20 := p1_a29;
1616 ddp_contact_point_rec.contact_point_purpose := p1_a30;
1617 ddp_contact_point_rec.primary_by_purpose := p1_a31;
1618 ddp_contact_point_rec.created_by_module := p1_a32;
1619 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
1620 ddp_contact_point_rec.actual_content_source := p1_a34;
1621
1622 ddp_telex_rec.telex_number := p2_a0;
1623
1624
1625
1626
1627
1628 -- here's the delegated call to the old PL/SQL routine
1629 hz_contact_point_v2pub.update_telex_contact_point(p_init_msg_list,
1630 ddp_contact_point_rec,
1631 ddp_telex_rec,
1632 p_object_version_number,
1633 x_return_status,
1634 x_msg_count,
1635 x_msg_data);
1636
1637 -- copy data back from the local OUT or IN-OUT args, if any
1638
1639
1640
1641
1642
1643
1644 end;
1645
1646 procedure update_email_contact_point_14(p_init_msg_list VARCHAR2
1647 , p_object_version_number in out nocopy NUMBER
1648 , x_return_status out nocopy VARCHAR2
1649 , x_msg_count out nocopy NUMBER
1650 , x_msg_data out nocopy VARCHAR2
1651 , p1_a0 NUMBER := null
1652 , p1_a1 VARCHAR2 := null
1653 , p1_a2 VARCHAR2 := null
1654 , p1_a3 VARCHAR2 := null
1655 , p1_a4 NUMBER := null
1656 , p1_a5 VARCHAR2 := null
1657 , p1_a6 VARCHAR2 := null
1658 , p1_a7 VARCHAR2 := null
1659 , p1_a8 VARCHAR2 := null
1660 , p1_a9 VARCHAR2 := null
1661 , p1_a10 VARCHAR2 := null
1662 , p1_a11 VARCHAR2 := null
1663 , p1_a12 VARCHAR2 := null
1664 , p1_a13 VARCHAR2 := null
1665 , p1_a14 VARCHAR2 := null
1666 , p1_a15 VARCHAR2 := null
1667 , p1_a16 VARCHAR2 := null
1668 , p1_a17 VARCHAR2 := null
1669 , p1_a18 VARCHAR2 := null
1670 , p1_a19 VARCHAR2 := null
1671 , p1_a20 VARCHAR2 := null
1672 , p1_a21 VARCHAR2 := null
1673 , p1_a22 VARCHAR2 := null
1674 , p1_a23 VARCHAR2 := null
1675 , p1_a24 VARCHAR2 := null
1676 , p1_a25 VARCHAR2 := null
1677 , p1_a26 VARCHAR2 := null
1678 , p1_a27 VARCHAR2 := null
1679 , p1_a28 VARCHAR2 := null
1680 , p1_a29 VARCHAR2 := null
1681 , p1_a30 VARCHAR2 := null
1682 , p1_a31 VARCHAR2 := null
1683 , p1_a32 VARCHAR2 := null
1684 , p1_a33 NUMBER := null
1685 , p1_a34 VARCHAR2 := null
1686 , p2_a0 VARCHAR2 := null
1687 , p2_a1 VARCHAR2 := null
1688 )
1689 as
1690 ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1691 ddp_email_rec hz_contact_point_v2pub.email_rec_type;
1692 ddindx binary_integer; indx binary_integer;
1693 begin
1694
1695 -- copy data to the local IN or IN-OUT args, if any
1696
1697 ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
1698 ddp_contact_point_rec.contact_point_type := p1_a1;
1699 ddp_contact_point_rec.status := p1_a2;
1700 ddp_contact_point_rec.owner_table_name := p1_a3;
1701 ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
1702 ddp_contact_point_rec.primary_flag := p1_a5;
1703 ddp_contact_point_rec.orig_system_reference := p1_a6;
1704 ddp_contact_point_rec.orig_system := p1_a7;
1708 ddp_contact_point_rec.attribute2 := p1_a11;
1705 ddp_contact_point_rec.content_source_type := p1_a8;
1706 ddp_contact_point_rec.attribute_category := p1_a9;
1707 ddp_contact_point_rec.attribute1 := p1_a10;
1709 ddp_contact_point_rec.attribute3 := p1_a12;
1710 ddp_contact_point_rec.attribute4 := p1_a13;
1711 ddp_contact_point_rec.attribute5 := p1_a14;
1712 ddp_contact_point_rec.attribute6 := p1_a15;
1713 ddp_contact_point_rec.attribute7 := p1_a16;
1714 ddp_contact_point_rec.attribute8 := p1_a17;
1715 ddp_contact_point_rec.attribute9 := p1_a18;
1716 ddp_contact_point_rec.attribute10 := p1_a19;
1717 ddp_contact_point_rec.attribute11 := p1_a20;
1718 ddp_contact_point_rec.attribute12 := p1_a21;
1719 ddp_contact_point_rec.attribute13 := p1_a22;
1720 ddp_contact_point_rec.attribute14 := p1_a23;
1721 ddp_contact_point_rec.attribute15 := p1_a24;
1722 ddp_contact_point_rec.attribute16 := p1_a25;
1723 ddp_contact_point_rec.attribute17 := p1_a26;
1724 ddp_contact_point_rec.attribute18 := p1_a27;
1725 ddp_contact_point_rec.attribute19 := p1_a28;
1726 ddp_contact_point_rec.attribute20 := p1_a29;
1727 ddp_contact_point_rec.contact_point_purpose := p1_a30;
1728 ddp_contact_point_rec.primary_by_purpose := p1_a31;
1729 ddp_contact_point_rec.created_by_module := p1_a32;
1730 ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
1731 ddp_contact_point_rec.actual_content_source := p1_a34;
1732
1733 ddp_email_rec.email_format := p2_a0;
1734 ddp_email_rec.email_address := p2_a1;
1735
1736
1737
1738
1739
1740 -- here's the delegated call to the old PL/SQL routine
1741 hz_contact_point_v2pub.update_email_contact_point(p_init_msg_list,
1742 ddp_contact_point_rec,
1743 ddp_email_rec,
1744 p_object_version_number,
1745 x_return_status,
1746 x_msg_count,
1747 x_msg_data);
1748
1749 -- copy data back from the local OUT or IN-OUT args, if any
1750
1751
1752
1753
1754
1755
1756 end;
1757
1758 procedure get_contact_point_rec_15(p_init_msg_list VARCHAR2
1759 , p_contact_point_id NUMBER
1760 , p2_a0 out nocopy NUMBER
1761 , p2_a1 out nocopy VARCHAR2
1762 , p2_a2 out nocopy VARCHAR2
1763 , p2_a3 out nocopy VARCHAR2
1764 , p2_a4 out nocopy NUMBER
1765 , p2_a5 out nocopy VARCHAR2
1766 , p2_a6 out nocopy VARCHAR2
1767 , p2_a7 out nocopy VARCHAR2
1768 , p2_a8 out nocopy VARCHAR2
1769 , p2_a9 out nocopy VARCHAR2
1770 , p2_a10 out nocopy VARCHAR2
1771 , p2_a11 out nocopy VARCHAR2
1772 , p2_a12 out nocopy VARCHAR2
1773 , p2_a13 out nocopy VARCHAR2
1774 , p2_a14 out nocopy VARCHAR2
1775 , p2_a15 out nocopy VARCHAR2
1776 , p2_a16 out nocopy VARCHAR2
1777 , p2_a17 out nocopy VARCHAR2
1778 , p2_a18 out nocopy VARCHAR2
1779 , p2_a19 out nocopy VARCHAR2
1780 , p2_a20 out nocopy VARCHAR2
1781 , p2_a21 out nocopy VARCHAR2
1782 , p2_a22 out nocopy VARCHAR2
1783 , p2_a23 out nocopy VARCHAR2
1784 , p2_a24 out nocopy VARCHAR2
1785 , p2_a25 out nocopy VARCHAR2
1786 , p2_a26 out nocopy VARCHAR2
1787 , p2_a27 out nocopy VARCHAR2
1788 , p2_a28 out nocopy VARCHAR2
1789 , p2_a29 out nocopy VARCHAR2
1790 , p2_a30 out nocopy VARCHAR2
1791 , p2_a31 out nocopy VARCHAR2
1792 , p2_a32 out nocopy VARCHAR2
1793 , p2_a33 out nocopy NUMBER
1794 , p2_a34 out nocopy VARCHAR2
1795 , p3_a0 out nocopy VARCHAR2
1796 , p3_a1 out nocopy VARCHAR2
1797 , p3_a2 out nocopy VARCHAR2
1798 , p3_a3 out nocopy VARCHAR2
1799 , p3_a4 out nocopy VARCHAR2
1800 , p3_a5 out nocopy VARCHAR2
1801 , p3_a6 out nocopy NUMBER
1802 , p3_a7 out nocopy VARCHAR2
1803 , p4_a0 out nocopy VARCHAR2
1804 , p4_a1 out nocopy VARCHAR2
1805 , p5_a0 out nocopy VARCHAR2
1806 , p5_a1 out nocopy DATE
1807 , p5_a2 out nocopy NUMBER
1808 , p5_a3 out nocopy VARCHAR2
1809 , p5_a4 out nocopy VARCHAR2
1810 , p5_a5 out nocopy VARCHAR2
1811 , p5_a6 out nocopy VARCHAR2
1812 , p5_a7 out nocopy VARCHAR2
1813 , p5_a8 out nocopy VARCHAR2
1814 , p6_a0 out nocopy VARCHAR2
1815 , p7_a0 out nocopy VARCHAR2
1816 , p7_a1 out nocopy VARCHAR2
1817 , x_return_status out nocopy VARCHAR2
1818 , x_msg_count out nocopy NUMBER
1819 , x_msg_data out nocopy VARCHAR2
1820 )
1821 as
1822 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1823 ddx_edi_rec hz_contact_point_v2pub.edi_rec_type;
1824 ddx_email_rec hz_contact_point_v2pub.email_rec_type;
1825 ddx_phone_rec hz_contact_point_v2pub.phone_rec_type;
1826 ddx_telex_rec hz_contact_point_v2pub.telex_rec_type;
1827 ddx_web_rec hz_contact_point_v2pub.web_rec_type;
1828 ddindx binary_integer; indx binary_integer;
1829 begin
1830
1831 -- copy data to the local IN or IN-OUT args, if any
1832
1833
1834
1835
1836
1837
1838
1839
1840
1841
1842
1843 -- here's the delegated call to the old PL/SQL routine
1844 hz_contact_point_v2pub.get_contact_point_rec(p_init_msg_list,
1845 p_contact_point_id,
1849 ddx_phone_rec,
1846 ddx_contact_point_rec,
1847 ddx_edi_rec,
1848 ddx_email_rec,
1850 ddx_telex_rec,
1851 ddx_web_rec,
1852 x_return_status,
1853 x_msg_count,
1854 x_msg_data);
1855
1856 -- copy data back from the local OUT or IN-OUT args, if any
1857
1858
1859 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
1860 p2_a1 := ddx_contact_point_rec.contact_point_type;
1861 p2_a2 := ddx_contact_point_rec.status;
1862 p2_a3 := ddx_contact_point_rec.owner_table_name;
1863 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
1864 p2_a5 := ddx_contact_point_rec.primary_flag;
1865 p2_a6 := ddx_contact_point_rec.orig_system_reference;
1866 p2_a7 := ddx_contact_point_rec.orig_system;
1867 p2_a8 := ddx_contact_point_rec.content_source_type;
1868 p2_a9 := ddx_contact_point_rec.attribute_category;
1869 p2_a10 := ddx_contact_point_rec.attribute1;
1870 p2_a11 := ddx_contact_point_rec.attribute2;
1871 p2_a12 := ddx_contact_point_rec.attribute3;
1872 p2_a13 := ddx_contact_point_rec.attribute4;
1873 p2_a14 := ddx_contact_point_rec.attribute5;
1874 p2_a15 := ddx_contact_point_rec.attribute6;
1875 p2_a16 := ddx_contact_point_rec.attribute7;
1876 p2_a17 := ddx_contact_point_rec.attribute8;
1877 p2_a18 := ddx_contact_point_rec.attribute9;
1878 p2_a19 := ddx_contact_point_rec.attribute10;
1879 p2_a20 := ddx_contact_point_rec.attribute11;
1880 p2_a21 := ddx_contact_point_rec.attribute12;
1881 p2_a22 := ddx_contact_point_rec.attribute13;
1882 p2_a23 := ddx_contact_point_rec.attribute14;
1883 p2_a24 := ddx_contact_point_rec.attribute15;
1884 p2_a25 := ddx_contact_point_rec.attribute16;
1885 p2_a26 := ddx_contact_point_rec.attribute17;
1886 p2_a27 := ddx_contact_point_rec.attribute18;
1887 p2_a28 := ddx_contact_point_rec.attribute19;
1888 p2_a29 := ddx_contact_point_rec.attribute20;
1889 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
1890 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
1891 p2_a32 := ddx_contact_point_rec.created_by_module;
1892 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
1893 p2_a34 := ddx_contact_point_rec.actual_content_source;
1894
1895 p3_a0 := ddx_edi_rec.edi_transaction_handling;
1896 p3_a1 := ddx_edi_rec.edi_id_number;
1897 p3_a2 := ddx_edi_rec.edi_payment_method;
1898 p3_a3 := ddx_edi_rec.edi_payment_format;
1899 p3_a4 := ddx_edi_rec.edi_remittance_method;
1900 p3_a5 := ddx_edi_rec.edi_remittance_instruction;
1901 p3_a6 := rosetta_g_miss_num_map(ddx_edi_rec.edi_tp_header_id);
1902 p3_a7 := ddx_edi_rec.edi_ece_tp_location_code;
1903
1904 p4_a0 := ddx_email_rec.email_format;
1905 p4_a1 := ddx_email_rec.email_address;
1906
1907 p5_a0 := ddx_phone_rec.phone_calling_calendar;
1908 p5_a1 := ddx_phone_rec.last_contact_dt_time;
1909 p5_a2 := rosetta_g_miss_num_map(ddx_phone_rec.timezone_id);
1910 p5_a3 := ddx_phone_rec.phone_area_code;
1911 p5_a4 := ddx_phone_rec.phone_country_code;
1912 p5_a5 := ddx_phone_rec.phone_number;
1913 p5_a6 := ddx_phone_rec.phone_extension;
1914 p5_a7 := ddx_phone_rec.phone_line_type;
1915 p5_a8 := ddx_phone_rec.raw_phone_number;
1916
1917 p6_a0 := ddx_telex_rec.telex_number;
1918
1919 p7_a0 := ddx_web_rec.web_type;
1920 p7_a1 := ddx_web_rec.url;
1921
1922
1923
1924 end;
1925
1926 procedure get_edi_contact_point_16(p_init_msg_list VARCHAR2
1927 , p_contact_point_id NUMBER
1928 , p2_a0 out nocopy NUMBER
1929 , p2_a1 out nocopy VARCHAR2
1930 , p2_a2 out nocopy VARCHAR2
1931 , p2_a3 out nocopy VARCHAR2
1932 , p2_a4 out nocopy NUMBER
1933 , p2_a5 out nocopy VARCHAR2
1934 , p2_a6 out nocopy VARCHAR2
1935 , p2_a7 out nocopy VARCHAR2
1936 , p2_a8 out nocopy VARCHAR2
1937 , p2_a9 out nocopy VARCHAR2
1938 , p2_a10 out nocopy VARCHAR2
1939 , p2_a11 out nocopy VARCHAR2
1940 , p2_a12 out nocopy VARCHAR2
1941 , p2_a13 out nocopy VARCHAR2
1942 , p2_a14 out nocopy VARCHAR2
1943 , p2_a15 out nocopy VARCHAR2
1944 , p2_a16 out nocopy VARCHAR2
1945 , p2_a17 out nocopy VARCHAR2
1946 , p2_a18 out nocopy VARCHAR2
1947 , p2_a19 out nocopy VARCHAR2
1948 , p2_a20 out nocopy VARCHAR2
1949 , p2_a21 out nocopy VARCHAR2
1950 , p2_a22 out nocopy VARCHAR2
1951 , p2_a23 out nocopy VARCHAR2
1952 , p2_a24 out nocopy VARCHAR2
1953 , p2_a25 out nocopy VARCHAR2
1954 , p2_a26 out nocopy VARCHAR2
1955 , p2_a27 out nocopy VARCHAR2
1956 , p2_a28 out nocopy VARCHAR2
1957 , p2_a29 out nocopy VARCHAR2
1958 , p2_a30 out nocopy VARCHAR2
1959 , p2_a31 out nocopy VARCHAR2
1960 , p2_a32 out nocopy VARCHAR2
1961 , p2_a33 out nocopy NUMBER
1962 , p2_a34 out nocopy VARCHAR2
1963 , p3_a0 out nocopy VARCHAR2
1964 , p3_a1 out nocopy VARCHAR2
1965 , p3_a2 out nocopy VARCHAR2
1966 , p3_a3 out nocopy VARCHAR2
1967 , p3_a4 out nocopy VARCHAR2
1968 , p3_a5 out nocopy VARCHAR2
1969 , p3_a6 out nocopy NUMBER
1970 , p3_a7 out nocopy VARCHAR2
1971 , x_return_status out nocopy VARCHAR2
1972 , x_msg_count out nocopy NUMBER
1976 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
1973 , x_msg_data out nocopy VARCHAR2
1974 )
1975 as
1977 ddx_edi_rec hz_contact_point_v2pub.edi_rec_type;
1978 ddindx binary_integer; indx binary_integer;
1979 begin
1980
1981 -- copy data to the local IN or IN-OUT args, if any
1982
1983
1984
1985
1986
1987
1988
1989 -- here's the delegated call to the old PL/SQL routine
1990 hz_contact_point_v2pub.get_edi_contact_point(p_init_msg_list,
1991 p_contact_point_id,
1992 ddx_contact_point_rec,
1993 ddx_edi_rec,
1994 x_return_status,
1995 x_msg_count,
1996 x_msg_data);
1997
1998 -- copy data back from the local OUT or IN-OUT args, if any
1999
2000
2001 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
2002 p2_a1 := ddx_contact_point_rec.contact_point_type;
2003 p2_a2 := ddx_contact_point_rec.status;
2004 p2_a3 := ddx_contact_point_rec.owner_table_name;
2005 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
2006 p2_a5 := ddx_contact_point_rec.primary_flag;
2007 p2_a6 := ddx_contact_point_rec.orig_system_reference;
2008 p2_a7 := ddx_contact_point_rec.orig_system;
2009 p2_a8 := ddx_contact_point_rec.content_source_type;
2010 p2_a9 := ddx_contact_point_rec.attribute_category;
2011 p2_a10 := ddx_contact_point_rec.attribute1;
2012 p2_a11 := ddx_contact_point_rec.attribute2;
2013 p2_a12 := ddx_contact_point_rec.attribute3;
2014 p2_a13 := ddx_contact_point_rec.attribute4;
2015 p2_a14 := ddx_contact_point_rec.attribute5;
2016 p2_a15 := ddx_contact_point_rec.attribute6;
2017 p2_a16 := ddx_contact_point_rec.attribute7;
2018 p2_a17 := ddx_contact_point_rec.attribute8;
2019 p2_a18 := ddx_contact_point_rec.attribute9;
2020 p2_a19 := ddx_contact_point_rec.attribute10;
2021 p2_a20 := ddx_contact_point_rec.attribute11;
2022 p2_a21 := ddx_contact_point_rec.attribute12;
2023 p2_a22 := ddx_contact_point_rec.attribute13;
2024 p2_a23 := ddx_contact_point_rec.attribute14;
2025 p2_a24 := ddx_contact_point_rec.attribute15;
2026 p2_a25 := ddx_contact_point_rec.attribute16;
2027 p2_a26 := ddx_contact_point_rec.attribute17;
2028 p2_a27 := ddx_contact_point_rec.attribute18;
2029 p2_a28 := ddx_contact_point_rec.attribute19;
2030 p2_a29 := ddx_contact_point_rec.attribute20;
2031 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
2032 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
2033 p2_a32 := ddx_contact_point_rec.created_by_module;
2034 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
2035 p2_a34 := ddx_contact_point_rec.actual_content_source;
2036
2037 p3_a0 := ddx_edi_rec.edi_transaction_handling;
2038 p3_a1 := ddx_edi_rec.edi_id_number;
2039 p3_a2 := ddx_edi_rec.edi_payment_method;
2040 p3_a3 := ddx_edi_rec.edi_payment_format;
2041 p3_a4 := ddx_edi_rec.edi_remittance_method;
2042 p3_a5 := ddx_edi_rec.edi_remittance_instruction;
2043 p3_a6 := rosetta_g_miss_num_map(ddx_edi_rec.edi_tp_header_id);
2044 p3_a7 := ddx_edi_rec.edi_ece_tp_location_code;
2045
2046
2047
2048 end;
2049
2050 procedure get_eft_contact_point_17(p_init_msg_list VARCHAR2
2051 , p_contact_point_id NUMBER
2052 , p2_a0 out nocopy NUMBER
2053 , p2_a1 out nocopy VARCHAR2
2054 , p2_a2 out nocopy VARCHAR2
2055 , p2_a3 out nocopy VARCHAR2
2056 , p2_a4 out nocopy NUMBER
2057 , p2_a5 out nocopy VARCHAR2
2058 , p2_a6 out nocopy VARCHAR2
2059 , p2_a7 out nocopy VARCHAR2
2060 , p2_a8 out nocopy VARCHAR2
2061 , p2_a9 out nocopy VARCHAR2
2062 , p2_a10 out nocopy VARCHAR2
2063 , p2_a11 out nocopy VARCHAR2
2064 , p2_a12 out nocopy VARCHAR2
2065 , p2_a13 out nocopy VARCHAR2
2066 , p2_a14 out nocopy VARCHAR2
2067 , p2_a15 out nocopy VARCHAR2
2068 , p2_a16 out nocopy VARCHAR2
2069 , p2_a17 out nocopy VARCHAR2
2070 , p2_a18 out nocopy VARCHAR2
2071 , p2_a19 out nocopy VARCHAR2
2072 , p2_a20 out nocopy VARCHAR2
2073 , p2_a21 out nocopy VARCHAR2
2074 , p2_a22 out nocopy VARCHAR2
2075 , p2_a23 out nocopy VARCHAR2
2076 , p2_a24 out nocopy VARCHAR2
2077 , p2_a25 out nocopy VARCHAR2
2078 , p2_a26 out nocopy VARCHAR2
2079 , p2_a27 out nocopy VARCHAR2
2080 , p2_a28 out nocopy VARCHAR2
2081 , p2_a29 out nocopy VARCHAR2
2082 , p2_a30 out nocopy VARCHAR2
2083 , p2_a31 out nocopy VARCHAR2
2084 , p2_a32 out nocopy VARCHAR2
2085 , p2_a33 out nocopy NUMBER
2086 , p2_a34 out nocopy VARCHAR2
2087 , p3_a0 out nocopy NUMBER
2088 , p3_a1 out nocopy NUMBER
2089 , p3_a2 out nocopy VARCHAR2
2090 , p3_a3 out nocopy VARCHAR2
2091 , x_return_status out nocopy VARCHAR2
2092 , x_msg_count out nocopy NUMBER
2093 , x_msg_data out nocopy VARCHAR2
2094 )
2095 as
2096 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2097 ddx_eft_rec hz_contact_point_v2pub.eft_rec_type;
2098 ddindx binary_integer; indx binary_integer;
2099 begin
2100
2101 -- copy data to the local IN or IN-OUT args, if any
2102
2103
2104
2105
2106
2110 hz_contact_point_v2pub.get_eft_contact_point(p_init_msg_list,
2107
2108
2109 -- here's the delegated call to the old PL/SQL routine
2111 p_contact_point_id,
2112 ddx_contact_point_rec,
2113 ddx_eft_rec,
2114 x_return_status,
2115 x_msg_count,
2116 x_msg_data);
2117
2118 -- copy data back from the local OUT or IN-OUT args, if any
2119
2120
2121 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
2122 p2_a1 := ddx_contact_point_rec.contact_point_type;
2123 p2_a2 := ddx_contact_point_rec.status;
2124 p2_a3 := ddx_contact_point_rec.owner_table_name;
2125 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
2126 p2_a5 := ddx_contact_point_rec.primary_flag;
2127 p2_a6 := ddx_contact_point_rec.orig_system_reference;
2128 p2_a7 := ddx_contact_point_rec.orig_system;
2129 p2_a8 := ddx_contact_point_rec.content_source_type;
2130 p2_a9 := ddx_contact_point_rec.attribute_category;
2131 p2_a10 := ddx_contact_point_rec.attribute1;
2132 p2_a11 := ddx_contact_point_rec.attribute2;
2133 p2_a12 := ddx_contact_point_rec.attribute3;
2134 p2_a13 := ddx_contact_point_rec.attribute4;
2135 p2_a14 := ddx_contact_point_rec.attribute5;
2136 p2_a15 := ddx_contact_point_rec.attribute6;
2137 p2_a16 := ddx_contact_point_rec.attribute7;
2138 p2_a17 := ddx_contact_point_rec.attribute8;
2139 p2_a18 := ddx_contact_point_rec.attribute9;
2140 p2_a19 := ddx_contact_point_rec.attribute10;
2141 p2_a20 := ddx_contact_point_rec.attribute11;
2142 p2_a21 := ddx_contact_point_rec.attribute12;
2143 p2_a22 := ddx_contact_point_rec.attribute13;
2144 p2_a23 := ddx_contact_point_rec.attribute14;
2145 p2_a24 := ddx_contact_point_rec.attribute15;
2146 p2_a25 := ddx_contact_point_rec.attribute16;
2147 p2_a26 := ddx_contact_point_rec.attribute17;
2148 p2_a27 := ddx_contact_point_rec.attribute18;
2149 p2_a28 := ddx_contact_point_rec.attribute19;
2150 p2_a29 := ddx_contact_point_rec.attribute20;
2151 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
2152 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
2153 p2_a32 := ddx_contact_point_rec.created_by_module;
2154 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
2155 p2_a34 := ddx_contact_point_rec.actual_content_source;
2156
2157 p3_a0 := rosetta_g_miss_num_map(ddx_eft_rec.eft_transmission_program_id);
2158 p3_a1 := rosetta_g_miss_num_map(ddx_eft_rec.eft_printing_program_id);
2159 p3_a2 := ddx_eft_rec.eft_user_number;
2160 p3_a3 := ddx_eft_rec.eft_swift_code;
2161
2162
2163
2164 end;
2165
2166 procedure get_web_contact_point_18(p_init_msg_list VARCHAR2
2167 , p_contact_point_id NUMBER
2168 , p2_a0 out nocopy NUMBER
2169 , p2_a1 out nocopy VARCHAR2
2170 , p2_a2 out nocopy VARCHAR2
2171 , p2_a3 out nocopy VARCHAR2
2172 , p2_a4 out nocopy NUMBER
2173 , p2_a5 out nocopy VARCHAR2
2174 , p2_a6 out nocopy VARCHAR2
2175 , p2_a7 out nocopy VARCHAR2
2176 , p2_a8 out nocopy VARCHAR2
2177 , p2_a9 out nocopy VARCHAR2
2178 , p2_a10 out nocopy VARCHAR2
2179 , p2_a11 out nocopy VARCHAR2
2180 , p2_a12 out nocopy VARCHAR2
2181 , p2_a13 out nocopy VARCHAR2
2182 , p2_a14 out nocopy VARCHAR2
2183 , p2_a15 out nocopy VARCHAR2
2184 , p2_a16 out nocopy VARCHAR2
2185 , p2_a17 out nocopy VARCHAR2
2186 , p2_a18 out nocopy VARCHAR2
2187 , p2_a19 out nocopy VARCHAR2
2188 , p2_a20 out nocopy VARCHAR2
2189 , p2_a21 out nocopy VARCHAR2
2190 , p2_a22 out nocopy VARCHAR2
2191 , p2_a23 out nocopy VARCHAR2
2192 , p2_a24 out nocopy VARCHAR2
2193 , p2_a25 out nocopy VARCHAR2
2194 , p2_a26 out nocopy VARCHAR2
2195 , p2_a27 out nocopy VARCHAR2
2196 , p2_a28 out nocopy VARCHAR2
2197 , p2_a29 out nocopy VARCHAR2
2198 , p2_a30 out nocopy VARCHAR2
2199 , p2_a31 out nocopy VARCHAR2
2200 , p2_a32 out nocopy VARCHAR2
2201 , p2_a33 out nocopy NUMBER
2202 , p2_a34 out nocopy VARCHAR2
2203 , p3_a0 out nocopy VARCHAR2
2204 , p3_a1 out nocopy VARCHAR2
2205 , x_return_status out nocopy VARCHAR2
2206 , x_msg_count out nocopy NUMBER
2207 , x_msg_data out nocopy VARCHAR2
2208 )
2209 as
2210 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2211 ddx_web_rec hz_contact_point_v2pub.web_rec_type;
2212 ddindx binary_integer; indx binary_integer;
2213 begin
2214
2215 -- copy data to the local IN or IN-OUT args, if any
2216
2217
2218
2219
2220
2221
2222
2223 -- here's the delegated call to the old PL/SQL routine
2224 hz_contact_point_v2pub.get_web_contact_point(p_init_msg_list,
2225 p_contact_point_id,
2226 ddx_contact_point_rec,
2227 ddx_web_rec,
2228 x_return_status,
2229 x_msg_count,
2230 x_msg_data);
2231
2232 -- copy data back from the local OUT or IN-OUT args, if any
2233
2234
2235 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
2236 p2_a1 := ddx_contact_point_rec.contact_point_type;
2237 p2_a2 := ddx_contact_point_rec.status;
2238 p2_a3 := ddx_contact_point_rec.owner_table_name;
2242 p2_a7 := ddx_contact_point_rec.orig_system;
2239 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
2240 p2_a5 := ddx_contact_point_rec.primary_flag;
2241 p2_a6 := ddx_contact_point_rec.orig_system_reference;
2243 p2_a8 := ddx_contact_point_rec.content_source_type;
2244 p2_a9 := ddx_contact_point_rec.attribute_category;
2245 p2_a10 := ddx_contact_point_rec.attribute1;
2246 p2_a11 := ddx_contact_point_rec.attribute2;
2247 p2_a12 := ddx_contact_point_rec.attribute3;
2248 p2_a13 := ddx_contact_point_rec.attribute4;
2249 p2_a14 := ddx_contact_point_rec.attribute5;
2250 p2_a15 := ddx_contact_point_rec.attribute6;
2251 p2_a16 := ddx_contact_point_rec.attribute7;
2252 p2_a17 := ddx_contact_point_rec.attribute8;
2253 p2_a18 := ddx_contact_point_rec.attribute9;
2254 p2_a19 := ddx_contact_point_rec.attribute10;
2255 p2_a20 := ddx_contact_point_rec.attribute11;
2256 p2_a21 := ddx_contact_point_rec.attribute12;
2257 p2_a22 := ddx_contact_point_rec.attribute13;
2258 p2_a23 := ddx_contact_point_rec.attribute14;
2259 p2_a24 := ddx_contact_point_rec.attribute15;
2260 p2_a25 := ddx_contact_point_rec.attribute16;
2261 p2_a26 := ddx_contact_point_rec.attribute17;
2262 p2_a27 := ddx_contact_point_rec.attribute18;
2263 p2_a28 := ddx_contact_point_rec.attribute19;
2264 p2_a29 := ddx_contact_point_rec.attribute20;
2265 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
2266 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
2267 p2_a32 := ddx_contact_point_rec.created_by_module;
2268 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
2269 p2_a34 := ddx_contact_point_rec.actual_content_source;
2270
2271 p3_a0 := ddx_web_rec.web_type;
2272 p3_a1 := ddx_web_rec.url;
2273
2274
2275
2276 end;
2277
2278 procedure get_phone_contact_point_19(p_init_msg_list VARCHAR2
2279 , p_contact_point_id NUMBER
2280 , p2_a0 out nocopy NUMBER
2281 , p2_a1 out nocopy VARCHAR2
2282 , p2_a2 out nocopy VARCHAR2
2283 , p2_a3 out nocopy VARCHAR2
2284 , p2_a4 out nocopy NUMBER
2285 , p2_a5 out nocopy VARCHAR2
2286 , p2_a6 out nocopy VARCHAR2
2287 , p2_a7 out nocopy VARCHAR2
2288 , p2_a8 out nocopy VARCHAR2
2289 , p2_a9 out nocopy VARCHAR2
2290 , p2_a10 out nocopy VARCHAR2
2291 , p2_a11 out nocopy VARCHAR2
2292 , p2_a12 out nocopy VARCHAR2
2293 , p2_a13 out nocopy VARCHAR2
2294 , p2_a14 out nocopy VARCHAR2
2295 , p2_a15 out nocopy VARCHAR2
2296 , p2_a16 out nocopy VARCHAR2
2297 , p2_a17 out nocopy VARCHAR2
2298 , p2_a18 out nocopy VARCHAR2
2299 , p2_a19 out nocopy VARCHAR2
2300 , p2_a20 out nocopy VARCHAR2
2301 , p2_a21 out nocopy VARCHAR2
2302 , p2_a22 out nocopy VARCHAR2
2303 , p2_a23 out nocopy VARCHAR2
2304 , p2_a24 out nocopy VARCHAR2
2305 , p2_a25 out nocopy VARCHAR2
2306 , p2_a26 out nocopy VARCHAR2
2307 , p2_a27 out nocopy VARCHAR2
2308 , p2_a28 out nocopy VARCHAR2
2309 , p2_a29 out nocopy VARCHAR2
2310 , p2_a30 out nocopy VARCHAR2
2311 , p2_a31 out nocopy VARCHAR2
2312 , p2_a32 out nocopy VARCHAR2
2313 , p2_a33 out nocopy NUMBER
2314 , p2_a34 out nocopy VARCHAR2
2315 , p3_a0 out nocopy VARCHAR2
2316 , p3_a1 out nocopy DATE
2317 , p3_a2 out nocopy NUMBER
2318 , p3_a3 out nocopy VARCHAR2
2319 , p3_a4 out nocopy VARCHAR2
2320 , p3_a5 out nocopy VARCHAR2
2321 , p3_a6 out nocopy VARCHAR2
2322 , p3_a7 out nocopy VARCHAR2
2323 , p3_a8 out nocopy VARCHAR2
2324 , x_return_status out nocopy VARCHAR2
2325 , x_msg_count out nocopy NUMBER
2326 , x_msg_data out nocopy VARCHAR2
2327 )
2328 as
2329 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2330 ddx_phone_rec hz_contact_point_v2pub.phone_rec_type;
2331 ddindx binary_integer; indx binary_integer;
2332 begin
2333
2334 -- copy data to the local IN or IN-OUT args, if any
2335
2336
2337
2338
2339
2340
2341
2342 -- here's the delegated call to the old PL/SQL routine
2343 hz_contact_point_v2pub.get_phone_contact_point(p_init_msg_list,
2344 p_contact_point_id,
2345 ddx_contact_point_rec,
2346 ddx_phone_rec,
2347 x_return_status,
2348 x_msg_count,
2349 x_msg_data);
2350
2351 -- copy data back from the local OUT or IN-OUT args, if any
2352
2353
2354 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
2355 p2_a1 := ddx_contact_point_rec.contact_point_type;
2356 p2_a2 := ddx_contact_point_rec.status;
2357 p2_a3 := ddx_contact_point_rec.owner_table_name;
2358 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
2359 p2_a5 := ddx_contact_point_rec.primary_flag;
2360 p2_a6 := ddx_contact_point_rec.orig_system_reference;
2361 p2_a7 := ddx_contact_point_rec.orig_system;
2362 p2_a8 := ddx_contact_point_rec.content_source_type;
2363 p2_a9 := ddx_contact_point_rec.attribute_category;
2364 p2_a10 := ddx_contact_point_rec.attribute1;
2365 p2_a11 := ddx_contact_point_rec.attribute2;
2366 p2_a12 := ddx_contact_point_rec.attribute3;
2367 p2_a13 := ddx_contact_point_rec.attribute4;
2371 p2_a17 := ddx_contact_point_rec.attribute8;
2368 p2_a14 := ddx_contact_point_rec.attribute5;
2369 p2_a15 := ddx_contact_point_rec.attribute6;
2370 p2_a16 := ddx_contact_point_rec.attribute7;
2372 p2_a18 := ddx_contact_point_rec.attribute9;
2373 p2_a19 := ddx_contact_point_rec.attribute10;
2374 p2_a20 := ddx_contact_point_rec.attribute11;
2375 p2_a21 := ddx_contact_point_rec.attribute12;
2376 p2_a22 := ddx_contact_point_rec.attribute13;
2377 p2_a23 := ddx_contact_point_rec.attribute14;
2378 p2_a24 := ddx_contact_point_rec.attribute15;
2379 p2_a25 := ddx_contact_point_rec.attribute16;
2380 p2_a26 := ddx_contact_point_rec.attribute17;
2381 p2_a27 := ddx_contact_point_rec.attribute18;
2382 p2_a28 := ddx_contact_point_rec.attribute19;
2383 p2_a29 := ddx_contact_point_rec.attribute20;
2384 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
2385 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
2386 p2_a32 := ddx_contact_point_rec.created_by_module;
2387 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
2388 p2_a34 := ddx_contact_point_rec.actual_content_source;
2389
2390 p3_a0 := ddx_phone_rec.phone_calling_calendar;
2391 p3_a1 := ddx_phone_rec.last_contact_dt_time;
2392 p3_a2 := rosetta_g_miss_num_map(ddx_phone_rec.timezone_id);
2393 p3_a3 := ddx_phone_rec.phone_area_code;
2394 p3_a4 := ddx_phone_rec.phone_country_code;
2395 p3_a5 := ddx_phone_rec.phone_number;
2396 p3_a6 := ddx_phone_rec.phone_extension;
2397 p3_a7 := ddx_phone_rec.phone_line_type;
2398 p3_a8 := ddx_phone_rec.raw_phone_number;
2399
2400
2401
2402 end;
2403
2404 procedure get_telex_contact_point_20(p_init_msg_list VARCHAR2
2405 , p_contact_point_id NUMBER
2406 , p2_a0 out nocopy NUMBER
2407 , p2_a1 out nocopy VARCHAR2
2408 , p2_a2 out nocopy VARCHAR2
2409 , p2_a3 out nocopy VARCHAR2
2410 , p2_a4 out nocopy NUMBER
2411 , p2_a5 out nocopy VARCHAR2
2412 , p2_a6 out nocopy VARCHAR2
2413 , p2_a7 out nocopy VARCHAR2
2414 , p2_a8 out nocopy VARCHAR2
2415 , p2_a9 out nocopy VARCHAR2
2416 , p2_a10 out nocopy VARCHAR2
2417 , p2_a11 out nocopy VARCHAR2
2418 , p2_a12 out nocopy VARCHAR2
2419 , p2_a13 out nocopy VARCHAR2
2420 , p2_a14 out nocopy VARCHAR2
2421 , p2_a15 out nocopy VARCHAR2
2422 , p2_a16 out nocopy VARCHAR2
2423 , p2_a17 out nocopy VARCHAR2
2424 , p2_a18 out nocopy VARCHAR2
2425 , p2_a19 out nocopy VARCHAR2
2426 , p2_a20 out nocopy VARCHAR2
2427 , p2_a21 out nocopy VARCHAR2
2428 , p2_a22 out nocopy VARCHAR2
2429 , p2_a23 out nocopy VARCHAR2
2430 , p2_a24 out nocopy VARCHAR2
2431 , p2_a25 out nocopy VARCHAR2
2432 , p2_a26 out nocopy VARCHAR2
2433 , p2_a27 out nocopy VARCHAR2
2434 , p2_a28 out nocopy VARCHAR2
2435 , p2_a29 out nocopy VARCHAR2
2436 , p2_a30 out nocopy VARCHAR2
2437 , p2_a31 out nocopy VARCHAR2
2438 , p2_a32 out nocopy VARCHAR2
2439 , p2_a33 out nocopy NUMBER
2440 , p2_a34 out nocopy VARCHAR2
2441 , p3_a0 out nocopy VARCHAR2
2442 , x_return_status out nocopy VARCHAR2
2443 , x_msg_count out nocopy NUMBER
2444 , x_msg_data out nocopy VARCHAR2
2445 )
2446 as
2447 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2448 ddx_telex_rec hz_contact_point_v2pub.telex_rec_type;
2449 ddindx binary_integer; indx binary_integer;
2450 begin
2451
2452 -- copy data to the local IN or IN-OUT args, if any
2453
2454
2455
2456
2457
2458
2459
2460 -- here's the delegated call to the old PL/SQL routine
2461 hz_contact_point_v2pub.get_telex_contact_point(p_init_msg_list,
2462 p_contact_point_id,
2463 ddx_contact_point_rec,
2464 ddx_telex_rec,
2465 x_return_status,
2466 x_msg_count,
2467 x_msg_data);
2468
2469 -- copy data back from the local OUT or IN-OUT args, if any
2470
2471
2472 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
2473 p2_a1 := ddx_contact_point_rec.contact_point_type;
2474 p2_a2 := ddx_contact_point_rec.status;
2475 p2_a3 := ddx_contact_point_rec.owner_table_name;
2476 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
2477 p2_a5 := ddx_contact_point_rec.primary_flag;
2478 p2_a6 := ddx_contact_point_rec.orig_system_reference;
2479 p2_a7 := ddx_contact_point_rec.orig_system;
2480 p2_a8 := ddx_contact_point_rec.content_source_type;
2481 p2_a9 := ddx_contact_point_rec.attribute_category;
2482 p2_a10 := ddx_contact_point_rec.attribute1;
2483 p2_a11 := ddx_contact_point_rec.attribute2;
2484 p2_a12 := ddx_contact_point_rec.attribute3;
2485 p2_a13 := ddx_contact_point_rec.attribute4;
2486 p2_a14 := ddx_contact_point_rec.attribute5;
2487 p2_a15 := ddx_contact_point_rec.attribute6;
2488 p2_a16 := ddx_contact_point_rec.attribute7;
2489 p2_a17 := ddx_contact_point_rec.attribute8;
2490 p2_a18 := ddx_contact_point_rec.attribute9;
2491 p2_a19 := ddx_contact_point_rec.attribute10;
2492 p2_a20 := ddx_contact_point_rec.attribute11;
2493 p2_a21 := ddx_contact_point_rec.attribute12;
2494 p2_a22 := ddx_contact_point_rec.attribute13;
2495 p2_a23 := ddx_contact_point_rec.attribute14;
2496 p2_a24 := ddx_contact_point_rec.attribute15;
2497 p2_a25 := ddx_contact_point_rec.attribute16;
2498 p2_a26 := ddx_contact_point_rec.attribute17;
2499 p2_a27 := ddx_contact_point_rec.attribute18;
2500 p2_a28 := ddx_contact_point_rec.attribute19;
2501 p2_a29 := ddx_contact_point_rec.attribute20;
2502 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
2503 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
2504 p2_a32 := ddx_contact_point_rec.created_by_module;
2505 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
2506 p2_a34 := ddx_contact_point_rec.actual_content_source;
2507
2508 p3_a0 := ddx_telex_rec.telex_number;
2509
2510
2511
2512 end;
2513
2514 procedure get_email_contact_point_21(p_init_msg_list VARCHAR2
2515 , p_contact_point_id NUMBER
2516 , p2_a0 out nocopy NUMBER
2517 , p2_a1 out nocopy VARCHAR2
2518 , p2_a2 out nocopy VARCHAR2
2519 , p2_a3 out nocopy VARCHAR2
2520 , p2_a4 out nocopy NUMBER
2521 , p2_a5 out nocopy VARCHAR2
2522 , p2_a6 out nocopy VARCHAR2
2523 , p2_a7 out nocopy VARCHAR2
2524 , p2_a8 out nocopy VARCHAR2
2525 , p2_a9 out nocopy VARCHAR2
2526 , p2_a10 out nocopy VARCHAR2
2527 , p2_a11 out nocopy VARCHAR2
2528 , p2_a12 out nocopy VARCHAR2
2529 , p2_a13 out nocopy VARCHAR2
2530 , p2_a14 out nocopy VARCHAR2
2531 , p2_a15 out nocopy VARCHAR2
2532 , p2_a16 out nocopy VARCHAR2
2533 , p2_a17 out nocopy VARCHAR2
2534 , p2_a18 out nocopy VARCHAR2
2535 , p2_a19 out nocopy VARCHAR2
2536 , p2_a20 out nocopy VARCHAR2
2537 , p2_a21 out nocopy VARCHAR2
2538 , p2_a22 out nocopy VARCHAR2
2539 , p2_a23 out nocopy VARCHAR2
2540 , p2_a24 out nocopy VARCHAR2
2541 , p2_a25 out nocopy VARCHAR2
2542 , p2_a26 out nocopy VARCHAR2
2543 , p2_a27 out nocopy VARCHAR2
2544 , p2_a28 out nocopy VARCHAR2
2545 , p2_a29 out nocopy VARCHAR2
2546 , p2_a30 out nocopy VARCHAR2
2547 , p2_a31 out nocopy VARCHAR2
2548 , p2_a32 out nocopy VARCHAR2
2549 , p2_a33 out nocopy NUMBER
2550 , p2_a34 out nocopy VARCHAR2
2551 , p3_a0 out nocopy VARCHAR2
2552 , p3_a1 out nocopy VARCHAR2
2553 , x_return_status out nocopy VARCHAR2
2554 , x_msg_count out nocopy NUMBER
2555 , x_msg_data out nocopy VARCHAR2
2556 )
2557 as
2558 ddx_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2559 ddx_email_rec hz_contact_point_v2pub.email_rec_type;
2560 ddindx binary_integer; indx binary_integer;
2561 begin
2562
2563 -- copy data to the local IN or IN-OUT args, if any
2564
2565
2566
2567
2568
2569
2570
2571 -- here's the delegated call to the old PL/SQL routine
2572 hz_contact_point_v2pub.get_email_contact_point(p_init_msg_list,
2573 p_contact_point_id,
2574 ddx_contact_point_rec,
2575 ddx_email_rec,
2576 x_return_status,
2577 x_msg_count,
2578 x_msg_data);
2579
2580 -- copy data back from the local OUT or IN-OUT args, if any
2581
2582
2583 p2_a0 := rosetta_g_miss_num_map(ddx_contact_point_rec.contact_point_id);
2584 p2_a1 := ddx_contact_point_rec.contact_point_type;
2585 p2_a2 := ddx_contact_point_rec.status;
2586 p2_a3 := ddx_contact_point_rec.owner_table_name;
2587 p2_a4 := rosetta_g_miss_num_map(ddx_contact_point_rec.owner_table_id);
2588 p2_a5 := ddx_contact_point_rec.primary_flag;
2589 p2_a6 := ddx_contact_point_rec.orig_system_reference;
2590 p2_a7 := ddx_contact_point_rec.orig_system;
2591 p2_a8 := ddx_contact_point_rec.content_source_type;
2592 p2_a9 := ddx_contact_point_rec.attribute_category;
2593 p2_a10 := ddx_contact_point_rec.attribute1;
2594 p2_a11 := ddx_contact_point_rec.attribute2;
2595 p2_a12 := ddx_contact_point_rec.attribute3;
2596 p2_a13 := ddx_contact_point_rec.attribute4;
2597 p2_a14 := ddx_contact_point_rec.attribute5;
2598 p2_a15 := ddx_contact_point_rec.attribute6;
2599 p2_a16 := ddx_contact_point_rec.attribute7;
2600 p2_a17 := ddx_contact_point_rec.attribute8;
2601 p2_a18 := ddx_contact_point_rec.attribute9;
2602 p2_a19 := ddx_contact_point_rec.attribute10;
2603 p2_a20 := ddx_contact_point_rec.attribute11;
2604 p2_a21 := ddx_contact_point_rec.attribute12;
2605 p2_a22 := ddx_contact_point_rec.attribute13;
2606 p2_a23 := ddx_contact_point_rec.attribute14;
2607 p2_a24 := ddx_contact_point_rec.attribute15;
2608 p2_a25 := ddx_contact_point_rec.attribute16;
2609 p2_a26 := ddx_contact_point_rec.attribute17;
2610 p2_a27 := ddx_contact_point_rec.attribute18;
2611 p2_a28 := ddx_contact_point_rec.attribute19;
2612 p2_a29 := ddx_contact_point_rec.attribute20;
2613 p2_a30 := ddx_contact_point_rec.contact_point_purpose;
2614 p2_a31 := ddx_contact_point_rec.primary_by_purpose;
2615 p2_a32 := ddx_contact_point_rec.created_by_module;
2616 p2_a33 := rosetta_g_miss_num_map(ddx_contact_point_rec.application_id);
2617 p2_a34 := ddx_contact_point_rec.actual_content_source;
2618
2619 p3_a0 := ddx_email_rec.email_format;
2620 p3_a1 := ddx_email_rec.email_address;
2621
2622
2623
2624 end;
2625
2626 end hz_contact_point_v2pub_jw;