DBA Data[Home] [Help]

PACKAGE BODY: APPS.IBE_PARTY_V2PVT_W

Source


1 package body ibe_party_v2pvt_w as
2   /* $Header: IBEWPARB.pls 120.1 2005/06/20 09:29:00 appldev ship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
7   function rosetta_g_miss_date_in_map(d date) return date as
8   begin
9     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
10     return d;
11   end;
12 
13   procedure create_individual_user(p_username  VARCHAR2
14     , p_password  VARCHAR2
15     , p2_a0  VARCHAR2
16     , p2_a1  VARCHAR2
17     , p2_a2  VARCHAR2
18     , p2_a3  VARCHAR2
19     , p2_a4  VARCHAR2
20     , p2_a5  VARCHAR2
21     , p2_a6  VARCHAR2
22     , p2_a7  VARCHAR2
23     , p2_a8  VARCHAR2
24     , p2_a9  VARCHAR2
25     , p2_a10  VARCHAR2
26     , p2_a11  VARCHAR2
27     , p2_a12  VARCHAR2
28     , p2_a13  VARCHAR2
29     , p2_a14  VARCHAR2
30     , p2_a15  VARCHAR2
31     , p2_a16  VARCHAR2
32     , p2_a17  VARCHAR2
33     , p2_a18  VARCHAR2
34     , p2_a19  VARCHAR2
35     , p2_a20  VARCHAR2
36     , p2_a21  VARCHAR2
37     , p2_a22  DATE
38     , p2_a23  VARCHAR2
39     , p2_a24  DATE
40     , p2_a25  VARCHAR2
41     , p2_a26  VARCHAR2
42     , p2_a27  VARCHAR2
43     , p2_a28  DATE
44     , p2_a29  NUMBER
45     , p2_a30  VARCHAR2
46     , p2_a31  NUMBER
47     , p2_a32  NUMBER
48     , p2_a33  VARCHAR2
49     , p2_a34  VARCHAR2
50     , p2_a35  VARCHAR2
51     , p2_a36  VARCHAR2
52     , p2_a37  VARCHAR2
53     , p2_a38  VARCHAR2
54     , p2_a39  VARCHAR2
55     , p2_a40  VARCHAR2
56     , p2_a41  VARCHAR2
57     , p2_a42  VARCHAR2
58     , p2_a43  VARCHAR2
59     , p2_a44  VARCHAR2
60     , p2_a45  VARCHAR2
61     , p2_a46  VARCHAR2
62     , p2_a47  VARCHAR2
63     , p2_a48  VARCHAR2
64     , p2_a49  VARCHAR2
65     , p2_a50  VARCHAR2
66     , p2_a51  VARCHAR2
67     , p2_a52  VARCHAR2
68     , p2_a53  VARCHAR2
69     , p2_a54  VARCHAR2
70     , p2_a55  VARCHAR2
71     , p2_a56  VARCHAR2
72     , p2_a57  VARCHAR2
73     , p2_a58  VARCHAR2
74     , p2_a59  NUMBER
75     , p2_a60  VARCHAR2
76     , p2_a61  NUMBER
77     , p2_a62  VARCHAR2
78     , p2_a63  VARCHAR2
79     , p2_a64  VARCHAR2
80     , p2_a65  VARCHAR2
81     , p2_a66  VARCHAR2
82     , p2_a67  VARCHAR2
83     , p2_a68  VARCHAR2
84     , p2_a69  VARCHAR2
85     , p2_a70  VARCHAR2
86     , p2_a71  VARCHAR2
87     , p2_a72  VARCHAR2
88     , p2_a73  VARCHAR2
89     , p2_a74  VARCHAR2
90     , p2_a75  VARCHAR2
91     , p2_a76  VARCHAR2
92     , p2_a77  VARCHAR2
93     , p2_a78  VARCHAR2
94     , p2_a79  VARCHAR2
95     , p2_a80  VARCHAR2
96     , p2_a81  VARCHAR2
97     , p2_a82  VARCHAR2
98     , p2_a83  VARCHAR2
99     , p2_a84  VARCHAR2
100     , p2_a85  VARCHAR2
101     , p2_a86  VARCHAR2
102     , p2_a87  VARCHAR2
103     , p2_a88  VARCHAR2
104     , p2_a89  VARCHAR2
105     , p2_a90  VARCHAR2
106     , p2_a91  VARCHAR2
107     , p2_a92  VARCHAR2
108     , p3_a0  VARCHAR2
109     , p3_a1  VARCHAR2
110     , p4_a0  VARCHAR2
111     , p4_a1  DATE
112     , p4_a2  NUMBER
113     , p4_a3  VARCHAR2
114     , p4_a4  VARCHAR2
115     , p4_a5  VARCHAR2
116     , p4_a6  VARCHAR2
117     , p4_a7  VARCHAR2
118     , p4_a8  VARCHAR2
119     , p5_a0  VARCHAR2
120     , p5_a1  DATE
121     , p5_a2  NUMBER
122     , p5_a3  VARCHAR2
123     , p5_a4  VARCHAR2
124     , p5_a5  VARCHAR2
125     , p5_a6  VARCHAR2
126     , p5_a7  VARCHAR2
127     , p5_a8  VARCHAR2
128     , p6_a0  VARCHAR2
129     , p6_a1  DATE
130     , p6_a2  NUMBER
131     , p6_a3  VARCHAR2
132     , p6_a4  VARCHAR2
133     , p6_a5  VARCHAR2
134     , p6_a6  VARCHAR2
135     , p6_a7  VARCHAR2
136     , p6_a8  VARCHAR2
137     , p_contact_preference  VARCHAR2
138     , x_person_party_id out nocopy  NUMBER
139     , x_user_id out nocopy  NUMBER
140     , x_return_status out nocopy  VARCHAR2
141     , x_msg_count out nocopy  NUMBER
142     , x_msg_data out nocopy  VARCHAR2
143   )
144 
145   as
146     ddp_person_rec hz_party_v2pub.person_rec_type;
147     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
148     ddp_work_phone_rec hz_contact_point_v2pub.phone_rec_type;
149     ddp_home_phone_rec hz_contact_point_v2pub.phone_rec_type;
150     ddp_fax_rec hz_contact_point_v2pub.phone_rec_type;
151     ddindx binary_integer; indx binary_integer;
152   begin
153 
154     -- copy data to the local IN or IN-OUT args, if any
155 
156 
157     ddp_person_rec.person_pre_name_adjunct := p2_a0;
158     ddp_person_rec.person_first_name := p2_a1;
159     ddp_person_rec.person_middle_name := p2_a2;
160     ddp_person_rec.person_last_name := p2_a3;
161     ddp_person_rec.person_name_suffix := p2_a4;
162     ddp_person_rec.person_title := p2_a5;
163     ddp_person_rec.person_academic_title := p2_a6;
164     ddp_person_rec.person_previous_last_name := p2_a7;
165     ddp_person_rec.person_initials := p2_a8;
166     ddp_person_rec.known_as := p2_a9;
167     ddp_person_rec.known_as2 := p2_a10;
168     ddp_person_rec.known_as3 := p2_a11;
169     ddp_person_rec.known_as4 := p2_a12;
170     ddp_person_rec.known_as5 := p2_a13;
171     ddp_person_rec.person_name_phonetic := p2_a14;
172     ddp_person_rec.person_first_name_phonetic := p2_a15;
173     ddp_person_rec.person_last_name_phonetic := p2_a16;
174     ddp_person_rec.middle_name_phonetic := p2_a17;
175     ddp_person_rec.tax_reference := p2_a18;
176     ddp_person_rec.jgzz_fiscal_code := p2_a19;
177     ddp_person_rec.person_iden_type := p2_a20;
178     ddp_person_rec.person_identifier := p2_a21;
179     ddp_person_rec.date_of_birth := rosetta_g_miss_date_in_map(p2_a22);
180     ddp_person_rec.place_of_birth := p2_a23;
181     ddp_person_rec.date_of_death := rosetta_g_miss_date_in_map(p2_a24);
182     ddp_person_rec.gender := p2_a25;
183     ddp_person_rec.declared_ethnicity := p2_a26;
184     ddp_person_rec.marital_status := p2_a27;
185     ddp_person_rec.marital_status_effective_date := rosetta_g_miss_date_in_map(p2_a28);
186     ddp_person_rec.personal_income := p2_a29;
187     ddp_person_rec.head_of_household_flag := p2_a30;
188     ddp_person_rec.household_income := p2_a31;
189     ddp_person_rec.household_size := p2_a32;
190     ddp_person_rec.rent_own_ind := p2_a33;
191     ddp_person_rec.last_known_gps := p2_a34;
192     ddp_person_rec.content_source_type := p2_a35;
193     ddp_person_rec.internal_flag := p2_a36;
194     ddp_person_rec.attribute_category := p2_a37;
195     ddp_person_rec.attribute1 := p2_a38;
196     ddp_person_rec.attribute2 := p2_a39;
197     ddp_person_rec.attribute3 := p2_a40;
198     ddp_person_rec.attribute4 := p2_a41;
199     ddp_person_rec.attribute5 := p2_a42;
200     ddp_person_rec.attribute6 := p2_a43;
201     ddp_person_rec.attribute7 := p2_a44;
202     ddp_person_rec.attribute8 := p2_a45;
203     ddp_person_rec.attribute9 := p2_a46;
204     ddp_person_rec.attribute10 := p2_a47;
205     ddp_person_rec.attribute11 := p2_a48;
206     ddp_person_rec.attribute12 := p2_a49;
207     ddp_person_rec.attribute13 := p2_a50;
208     ddp_person_rec.attribute14 := p2_a51;
209     ddp_person_rec.attribute15 := p2_a52;
210     ddp_person_rec.attribute16 := p2_a53;
211     ddp_person_rec.attribute17 := p2_a54;
212     ddp_person_rec.attribute18 := p2_a55;
213     ddp_person_rec.attribute19 := p2_a56;
214     ddp_person_rec.attribute20 := p2_a57;
215     ddp_person_rec.created_by_module := p2_a58;
216     ddp_person_rec.application_id := p2_a59;
217     ddp_person_rec.actual_content_source := p2_a60;
218     ddp_person_rec.party_rec.party_id := p2_a61;
219     ddp_person_rec.party_rec.party_number := p2_a62;
220     ddp_person_rec.party_rec.validated_flag := p2_a63;
221     ddp_person_rec.party_rec.orig_system_reference := p2_a64;
222     ddp_person_rec.party_rec.status := p2_a65;
223     ddp_person_rec.party_rec.category_code := p2_a66;
224     ddp_person_rec.party_rec.salutation := p2_a67;
225     ddp_person_rec.party_rec.attribute_category := p2_a68;
226     ddp_person_rec.party_rec.attribute1 := p2_a69;
227     ddp_person_rec.party_rec.attribute2 := p2_a70;
228     ddp_person_rec.party_rec.attribute3 := p2_a71;
229     ddp_person_rec.party_rec.attribute4 := p2_a72;
230     ddp_person_rec.party_rec.attribute5 := p2_a73;
231     ddp_person_rec.party_rec.attribute6 := p2_a74;
232     ddp_person_rec.party_rec.attribute7 := p2_a75;
233     ddp_person_rec.party_rec.attribute8 := p2_a76;
234     ddp_person_rec.party_rec.attribute9 := p2_a77;
235     ddp_person_rec.party_rec.attribute10 := p2_a78;
236     ddp_person_rec.party_rec.attribute11 := p2_a79;
237     ddp_person_rec.party_rec.attribute12 := p2_a80;
238     ddp_person_rec.party_rec.attribute13 := p2_a81;
239     ddp_person_rec.party_rec.attribute14 := p2_a82;
240     ddp_person_rec.party_rec.attribute15 := p2_a83;
241     ddp_person_rec.party_rec.attribute16 := p2_a84;
242     ddp_person_rec.party_rec.attribute17 := p2_a85;
243     ddp_person_rec.party_rec.attribute18 := p2_a86;
244     ddp_person_rec.party_rec.attribute19 := p2_a87;
245     ddp_person_rec.party_rec.attribute20 := p2_a88;
246     ddp_person_rec.party_rec.attribute21 := p2_a89;
247     ddp_person_rec.party_rec.attribute22 := p2_a90;
248     ddp_person_rec.party_rec.attribute23 := p2_a91;
249     ddp_person_rec.party_rec.attribute24 := p2_a92;
250 
251     ddp_email_rec.email_format := p3_a0;
252     ddp_email_rec.email_address := p3_a1;
253 
254     ddp_work_phone_rec.phone_calling_calendar := p4_a0;
255     ddp_work_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p4_a1);
256     ddp_work_phone_rec.timezone_id := p4_a2;
257     ddp_work_phone_rec.phone_area_code := p4_a3;
258     ddp_work_phone_rec.phone_country_code := p4_a4;
259     ddp_work_phone_rec.phone_number := p4_a5;
260     ddp_work_phone_rec.phone_extension := p4_a6;
261     ddp_work_phone_rec.phone_line_type := p4_a7;
262     ddp_work_phone_rec.raw_phone_number := p4_a8;
263 
264     ddp_home_phone_rec.phone_calling_calendar := p5_a0;
265     ddp_home_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p5_a1);
266     ddp_home_phone_rec.timezone_id := p5_a2;
267     ddp_home_phone_rec.phone_area_code := p5_a3;
268     ddp_home_phone_rec.phone_country_code := p5_a4;
269     ddp_home_phone_rec.phone_number := p5_a5;
270     ddp_home_phone_rec.phone_extension := p5_a6;
271     ddp_home_phone_rec.phone_line_type := p5_a7;
272     ddp_home_phone_rec.raw_phone_number := p5_a8;
273 
274     ddp_fax_rec.phone_calling_calendar := p6_a0;
275     ddp_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p6_a1);
276     ddp_fax_rec.timezone_id := p6_a2;
277     ddp_fax_rec.phone_area_code := p6_a3;
278     ddp_fax_rec.phone_country_code := p6_a4;
279     ddp_fax_rec.phone_number := p6_a5;
280     ddp_fax_rec.phone_extension := p6_a6;
281     ddp_fax_rec.phone_line_type := p6_a7;
282     ddp_fax_rec.raw_phone_number := p6_a8;
283 
284 
285 
286 
287 
288 
289 
290     -- here's the delegated call to the old PL/SQL routine
291     ibe_party_v2pvt.create_individual_user(p_username,
292       p_password,
293       ddp_person_rec,
294       ddp_email_rec,
295       ddp_work_phone_rec,
296       ddp_home_phone_rec,
297       ddp_fax_rec,
298       p_contact_preference,
299       x_person_party_id,
300       x_user_id,
301       x_return_status,
302       x_msg_count,
303       x_msg_data);
304 
305     -- copy data back from the local variables to OUT or IN-OUT args, if any
306 
307 
308 
309 
310 
311 
312 
313 
314 
315 
316 
317 
318   end;
319 
320   procedure create_business_user(p_username  VARCHAR2
321     , p_password  VARCHAR2
322     , p2_a0  VARCHAR2
323     , p2_a1  VARCHAR2
324     , p2_a2  VARCHAR2
325     , p2_a3  VARCHAR2
326     , p2_a4  VARCHAR2
327     , p2_a5  VARCHAR2
328     , p2_a6  VARCHAR2
329     , p2_a7  VARCHAR2
330     , p2_a8  VARCHAR2
331     , p2_a9  VARCHAR2
332     , p2_a10  VARCHAR2
333     , p2_a11  VARCHAR2
334     , p2_a12  VARCHAR2
335     , p2_a13  VARCHAR2
336     , p2_a14  VARCHAR2
337     , p2_a15  VARCHAR2
338     , p2_a16  VARCHAR2
339     , p2_a17  VARCHAR2
340     , p2_a18  VARCHAR2
341     , p2_a19  VARCHAR2
342     , p2_a20  VARCHAR2
343     , p2_a21  VARCHAR2
344     , p2_a22  DATE
345     , p2_a23  VARCHAR2
346     , p2_a24  DATE
347     , p2_a25  VARCHAR2
348     , p2_a26  VARCHAR2
349     , p2_a27  VARCHAR2
350     , p2_a28  DATE
351     , p2_a29  NUMBER
352     , p2_a30  VARCHAR2
353     , p2_a31  NUMBER
354     , p2_a32  NUMBER
355     , p2_a33  VARCHAR2
356     , p2_a34  VARCHAR2
357     , p2_a35  VARCHAR2
358     , p2_a36  VARCHAR2
359     , p2_a37  VARCHAR2
360     , p2_a38  VARCHAR2
361     , p2_a39  VARCHAR2
362     , p2_a40  VARCHAR2
363     , p2_a41  VARCHAR2
364     , p2_a42  VARCHAR2
365     , p2_a43  VARCHAR2
366     , p2_a44  VARCHAR2
367     , p2_a45  VARCHAR2
368     , p2_a46  VARCHAR2
369     , p2_a47  VARCHAR2
370     , p2_a48  VARCHAR2
371     , p2_a49  VARCHAR2
372     , p2_a50  VARCHAR2
373     , p2_a51  VARCHAR2
374     , p2_a52  VARCHAR2
375     , p2_a53  VARCHAR2
376     , p2_a54  VARCHAR2
377     , p2_a55  VARCHAR2
378     , p2_a56  VARCHAR2
379     , p2_a57  VARCHAR2
380     , p2_a58  VARCHAR2
381     , p2_a59  NUMBER
382     , p2_a60  VARCHAR2
383     , p2_a61  NUMBER
384     , p2_a62  VARCHAR2
385     , p2_a63  VARCHAR2
386     , p2_a64  VARCHAR2
387     , p2_a65  VARCHAR2
388     , p2_a66  VARCHAR2
389     , p2_a67  VARCHAR2
390     , p2_a68  VARCHAR2
391     , p2_a69  VARCHAR2
392     , p2_a70  VARCHAR2
393     , p2_a71  VARCHAR2
394     , p2_a72  VARCHAR2
395     , p2_a73  VARCHAR2
396     , p2_a74  VARCHAR2
397     , p2_a75  VARCHAR2
398     , p2_a76  VARCHAR2
399     , p2_a77  VARCHAR2
400     , p2_a78  VARCHAR2
401     , p2_a79  VARCHAR2
402     , p2_a80  VARCHAR2
403     , p2_a81  VARCHAR2
404     , p2_a82  VARCHAR2
405     , p2_a83  VARCHAR2
406     , p2_a84  VARCHAR2
407     , p2_a85  VARCHAR2
408     , p2_a86  VARCHAR2
409     , p2_a87  VARCHAR2
410     , p2_a88  VARCHAR2
411     , p2_a89  VARCHAR2
412     , p2_a90  VARCHAR2
413     , p2_a91  VARCHAR2
414     , p2_a92  VARCHAR2
415     , p3_a0  VARCHAR2
416     , p3_a1  VARCHAR2
417     , p3_a2  VARCHAR2
418     , p3_a3  VARCHAR2
419     , p3_a4  VARCHAR2
420     , p3_a5  VARCHAR2
421     , p3_a6  VARCHAR2
422     , p3_a7  VARCHAR2
423     , p3_a8  NUMBER
424     , p3_a9  NUMBER
425     , p3_a10  VARCHAR2
426     , p3_a11  VARCHAR2
427     , p3_a12  VARCHAR2
428     , p3_a13  VARCHAR2
429     , p3_a14  VARCHAR2
430     , p3_a15  VARCHAR2
431     , p3_a16  VARCHAR2
432     , p3_a17  VARCHAR2
433     , p3_a18  VARCHAR2
434     , p3_a19  VARCHAR2
435     , p3_a20  VARCHAR2
436     , p3_a21  VARCHAR2
437     , p3_a22  VARCHAR2
438     , p3_a23  VARCHAR2
439     , p3_a24  VARCHAR2
440     , p3_a25  VARCHAR2
441     , p3_a26  NUMBER
442     , p3_a27  DATE
443     , p3_a28  VARCHAR2
444     , p3_a29  NUMBER
445     , p3_a30  VARCHAR2
446     , p3_a31  VARCHAR2
447     , p3_a32  VARCHAR2
448     , p3_a33  VARCHAR2
449     , p3_a34  VARCHAR2
450     , p3_a35  VARCHAR2
451     , p3_a36  VARCHAR2
452     , p3_a37  VARCHAR2
453     , p3_a38  VARCHAR2
454     , p3_a39  DATE
455     , p3_a40  DATE
456     , p3_a41  VARCHAR2
457     , p3_a42  VARCHAR2
458     , p3_a43  VARCHAR2
459     , p3_a44  VARCHAR2
460     , p3_a45  VARCHAR2
461     , p3_a46  VARCHAR2
462     , p3_a47  NUMBER
463     , p3_a48  NUMBER
464     , p3_a49  NUMBER
465     , p3_a50  VARCHAR2
466     , p3_a51  VARCHAR2
467     , p3_a52  VARCHAR2
468     , p3_a53  VARCHAR2
469     , p3_a54  VARCHAR2
470     , p3_a55  VARCHAR2
471     , p3_a56  VARCHAR2
472     , p3_a57  VARCHAR2
473     , p3_a58  VARCHAR2
474     , p3_a59  VARCHAR2
475     , p3_a60  VARCHAR2
476     , p3_a61  VARCHAR2
477     , p3_a62  VARCHAR2
478     , p3_a63  VARCHAR2
479     , p3_a64  VARCHAR2
480     , p3_a65  VARCHAR2
481     , p3_a66  VARCHAR2
482     , p3_a67  VARCHAR2
483     , p3_a68  NUMBER
484     , p3_a69  VARCHAR2
485     , p3_a70  VARCHAR2
486     , p3_a71  VARCHAR2
487     , p3_a72  VARCHAR2
488     , p3_a73  VARCHAR2
489     , p3_a74  VARCHAR2
490     , p3_a75  VARCHAR2
491     , p3_a76  VARCHAR2
492     , p3_a77  VARCHAR2
493     , p3_a78  NUMBER
494     , p3_a79  NUMBER
495     , p3_a80  NUMBER
496     , p3_a81  NUMBER
497     , p3_a82  NUMBER
498     , p3_a83  NUMBER
499     , p3_a84  NUMBER
500     , p3_a85  DATE
501     , p3_a86  VARCHAR2
502     , p3_a87  VARCHAR2
503     , p3_a88  VARCHAR2
504     , p3_a89  VARCHAR2
505     , p3_a90  VARCHAR2
506     , p3_a91  VARCHAR2
507     , p3_a92  VARCHAR2
508     , p3_a93  VARCHAR2
509     , p3_a94  VARCHAR2
510     , p3_a95  NUMBER
511     , p3_a96  NUMBER
512     , p3_a97  NUMBER
513     , p3_a98  DATE
514     , p3_a99  VARCHAR2
515     , p3_a100  VARCHAR2
516     , p3_a101  VARCHAR2
517     , p3_a102  VARCHAR2
518     , p3_a103  VARCHAR2
519     , p3_a104  VARCHAR2
520     , p3_a105  VARCHAR2
521     , p3_a106  VARCHAR2
522     , p3_a107  VARCHAR2
523     , p3_a108  NUMBER
524     , p3_a109  VARCHAR2
525     , p3_a110  NUMBER
526     , p3_a111  VARCHAR2
527     , p3_a112  VARCHAR2
528     , p3_a113  VARCHAR2
529     , p3_a114  VARCHAR2
530     , p3_a115  VARCHAR2
531     , p3_a116  VARCHAR2
532     , p3_a117  VARCHAR2
533     , p3_a118  VARCHAR2
534     , p3_a119  VARCHAR2
535     , p3_a120  VARCHAR2
536     , p3_a121  VARCHAR2
537     , p3_a122  VARCHAR2
538     , p3_a123  VARCHAR2
539     , p3_a124  VARCHAR2
540     , p3_a125  VARCHAR2
541     , p3_a126  VARCHAR2
542     , p3_a127  VARCHAR2
543     , p3_a128  VARCHAR2
544     , p3_a129  VARCHAR2
545     , p3_a130  VARCHAR2
546     , p3_a131  VARCHAR2
547     , p3_a132  VARCHAR2
548     , p3_a133  VARCHAR2
549     , p3_a134  VARCHAR2
550     , p3_a135  NUMBER
551     , p3_a136  VARCHAR2
552     , p3_a137  VARCHAR2
553     , p3_a138  NUMBER
554     , p3_a139  VARCHAR2
555     , p3_a140  VARCHAR2
556     , p3_a141  VARCHAR2
557     , p3_a142  VARCHAR2
558     , p3_a143  VARCHAR2
559     , p3_a144  VARCHAR2
560     , p3_a145  VARCHAR2
561     , p3_a146  VARCHAR2
562     , p3_a147  VARCHAR2
563     , p3_a148  VARCHAR2
564     , p3_a149  VARCHAR2
565     , p3_a150  VARCHAR2
566     , p3_a151  VARCHAR2
567     , p3_a152  VARCHAR2
568     , p3_a153  VARCHAR2
569     , p3_a154  VARCHAR2
570     , p3_a155  VARCHAR2
571     , p3_a156  VARCHAR2
572     , p3_a157  VARCHAR2
573     , p3_a158  VARCHAR2
574     , p3_a159  VARCHAR2
575     , p3_a160  VARCHAR2
576     , p3_a161  VARCHAR2
577     , p3_a162  VARCHAR2
578     , p3_a163  VARCHAR2
579     , p3_a164  VARCHAR2
580     , p3_a165  VARCHAR2
581     , p3_a166  VARCHAR2
582     , p3_a167  VARCHAR2
583     , p3_a168  VARCHAR2
584     , p3_a169  VARCHAR2
585     , p4_a0  NUMBER
586     , p4_a1  VARCHAR2
587     , p4_a2  VARCHAR2
588     , p4_a3  VARCHAR2
589     , p4_a4  VARCHAR2
590     , p4_a5  VARCHAR2
591     , p4_a6  VARCHAR2
592     , p4_a7  VARCHAR2
593     , p4_a8  VARCHAR2
594     , p4_a9  VARCHAR2
595     , p4_a10  VARCHAR2
596     , p4_a11  VARCHAR2
597     , p4_a12  VARCHAR2
598     , p4_a13  VARCHAR2
599     , p4_a14  VARCHAR2
600     , p4_a15  VARCHAR2
601     , p4_a16  VARCHAR2
602     , p4_a17  VARCHAR2
603     , p4_a18  VARCHAR2
604     , p4_a19  VARCHAR2
605     , p4_a20  VARCHAR2
606     , p4_a21  VARCHAR2
607     , p4_a22  VARCHAR2
608     , p4_a23  VARCHAR2
609     , p4_a24  VARCHAR2
610     , p4_a25  VARCHAR2
611     , p4_a26  DATE
612     , p4_a27  VARCHAR2
613     , p4_a28  VARCHAR2
614     , p4_a29  VARCHAR2
615     , p4_a30  VARCHAR2
616     , p4_a31  NUMBER
617     , p4_a32  VARCHAR2
618     , p4_a33  VARCHAR2
619     , p4_a34  NUMBER
620     , p4_a35  VARCHAR2
621     , p4_a36  VARCHAR2
622     , p4_a37  VARCHAR2
623     , p4_a38  VARCHAR2
624     , p4_a39  VARCHAR2
625     , p4_a40  VARCHAR2
626     , p4_a41  VARCHAR2
627     , p4_a42  VARCHAR2
628     , p4_a43  VARCHAR2
629     , p4_a44  VARCHAR2
630     , p4_a45  VARCHAR2
631     , p4_a46  VARCHAR2
632     , p4_a47  VARCHAR2
633     , p4_a48  VARCHAR2
634     , p4_a49  VARCHAR2
635     , p4_a50  VARCHAR2
636     , p4_a51  VARCHAR2
637     , p4_a52  VARCHAR2
638     , p4_a53  VARCHAR2
639     , p4_a54  VARCHAR2
640     , p4_a55  VARCHAR2
641     , p4_a56  VARCHAR2
642     , p4_a57  NUMBER
643     , p4_a58  VARCHAR2
644     , p4_a59  NUMBER
645     , p4_a60  VARCHAR2
646     , p5_a0  VARCHAR2
647     , p5_a1  DATE
648     , p5_a2  NUMBER
649     , p5_a3  VARCHAR2
650     , p5_a4  VARCHAR2
651     , p5_a5  VARCHAR2
652     , p5_a6  VARCHAR2
653     , p5_a7  VARCHAR2
654     , p5_a8  VARCHAR2
655     , p6_a0  VARCHAR2
656     , p6_a1  DATE
657     , p6_a2  NUMBER
658     , p6_a3  VARCHAR2
659     , p6_a4  VARCHAR2
660     , p6_a5  VARCHAR2
661     , p6_a6  VARCHAR2
662     , p6_a7  VARCHAR2
663     , p6_a8  VARCHAR2
664     , p7_a0  VARCHAR2
665     , p7_a1  DATE
666     , p7_a2  NUMBER
667     , p7_a3  VARCHAR2
668     , p7_a4  VARCHAR2
669     , p7_a5  VARCHAR2
670     , p7_a6  VARCHAR2
671     , p7_a7  VARCHAR2
672     , p7_a8  VARCHAR2
673     , p8_a0  VARCHAR2
674     , p8_a1  DATE
675     , p8_a2  NUMBER
676     , p8_a3  VARCHAR2
677     , p8_a4  VARCHAR2
678     , p8_a5  VARCHAR2
679     , p8_a6  VARCHAR2
680     , p8_a7  VARCHAR2
681     , p8_a8  VARCHAR2
682     , p9_a0  VARCHAR2
683     , p9_a1  DATE
684     , p9_a2  NUMBER
685     , p9_a3  VARCHAR2
686     , p9_a4  VARCHAR2
687     , p9_a5  VARCHAR2
688     , p9_a6  VARCHAR2
689     , p9_a7  VARCHAR2
690     , p9_a8  VARCHAR2
691     , p10_a0  VARCHAR2
692     , p10_a1  VARCHAR2
693     , p_rel_contact_preference  VARCHAR2
694     , x_person_party_id out nocopy  NUMBER
695     , x_rel_party_id out nocopy  NUMBER
696     , x_org_party_id out nocopy  NUMBER
697     , x_user_id out nocopy  NUMBER
698     , x_return_status out nocopy  VARCHAR2
699     , x_msg_count out nocopy  NUMBER
700     , x_msg_data out nocopy  VARCHAR2
701   )
702 
703   as
704     ddp_person_rec hz_party_v2pub.person_rec_type;
705     ddp_organization_rec hz_party_v2pub.organization_rec_type;
706     ddp_location_rec hz_location_v2pub.location_rec_type;
707     ddp_org_phone_rec hz_contact_point_v2pub.phone_rec_type;
708     ddp_org_fax_rec hz_contact_point_v2pub.phone_rec_type;
709     ddp_rel_workphone_rec hz_contact_point_v2pub.phone_rec_type;
710     ddp_rel_homephone_rec hz_contact_point_v2pub.phone_rec_type;
711     ddp_rel_fax_rec hz_contact_point_v2pub.phone_rec_type;
712     ddp_rel_email_rec hz_contact_point_v2pub.email_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 
719     ddp_person_rec.person_pre_name_adjunct := p2_a0;
720     ddp_person_rec.person_first_name := p2_a1;
721     ddp_person_rec.person_middle_name := p2_a2;
722     ddp_person_rec.person_last_name := p2_a3;
723     ddp_person_rec.person_name_suffix := p2_a4;
724     ddp_person_rec.person_title := p2_a5;
725     ddp_person_rec.person_academic_title := p2_a6;
726     ddp_person_rec.person_previous_last_name := p2_a7;
727     ddp_person_rec.person_initials := p2_a8;
728     ddp_person_rec.known_as := p2_a9;
729     ddp_person_rec.known_as2 := p2_a10;
730     ddp_person_rec.known_as3 := p2_a11;
731     ddp_person_rec.known_as4 := p2_a12;
732     ddp_person_rec.known_as5 := p2_a13;
733     ddp_person_rec.person_name_phonetic := p2_a14;
734     ddp_person_rec.person_first_name_phonetic := p2_a15;
735     ddp_person_rec.person_last_name_phonetic := p2_a16;
736     ddp_person_rec.middle_name_phonetic := p2_a17;
737     ddp_person_rec.tax_reference := p2_a18;
738     ddp_person_rec.jgzz_fiscal_code := p2_a19;
739     ddp_person_rec.person_iden_type := p2_a20;
740     ddp_person_rec.person_identifier := p2_a21;
741     ddp_person_rec.date_of_birth := rosetta_g_miss_date_in_map(p2_a22);
742     ddp_person_rec.place_of_birth := p2_a23;
743     ddp_person_rec.date_of_death := rosetta_g_miss_date_in_map(p2_a24);
744     ddp_person_rec.gender := p2_a25;
745     ddp_person_rec.declared_ethnicity := p2_a26;
746     ddp_person_rec.marital_status := p2_a27;
747     ddp_person_rec.marital_status_effective_date := rosetta_g_miss_date_in_map(p2_a28);
748     ddp_person_rec.personal_income := p2_a29;
749     ddp_person_rec.head_of_household_flag := p2_a30;
750     ddp_person_rec.household_income := p2_a31;
751     ddp_person_rec.household_size := p2_a32;
752     ddp_person_rec.rent_own_ind := p2_a33;
753     ddp_person_rec.last_known_gps := p2_a34;
754     ddp_person_rec.content_source_type := p2_a35;
755     ddp_person_rec.internal_flag := p2_a36;
756     ddp_person_rec.attribute_category := p2_a37;
757     ddp_person_rec.attribute1 := p2_a38;
758     ddp_person_rec.attribute2 := p2_a39;
759     ddp_person_rec.attribute3 := p2_a40;
760     ddp_person_rec.attribute4 := p2_a41;
761     ddp_person_rec.attribute5 := p2_a42;
762     ddp_person_rec.attribute6 := p2_a43;
763     ddp_person_rec.attribute7 := p2_a44;
764     ddp_person_rec.attribute8 := p2_a45;
765     ddp_person_rec.attribute9 := p2_a46;
766     ddp_person_rec.attribute10 := p2_a47;
767     ddp_person_rec.attribute11 := p2_a48;
768     ddp_person_rec.attribute12 := p2_a49;
769     ddp_person_rec.attribute13 := p2_a50;
770     ddp_person_rec.attribute14 := p2_a51;
771     ddp_person_rec.attribute15 := p2_a52;
772     ddp_person_rec.attribute16 := p2_a53;
773     ddp_person_rec.attribute17 := p2_a54;
774     ddp_person_rec.attribute18 := p2_a55;
775     ddp_person_rec.attribute19 := p2_a56;
776     ddp_person_rec.attribute20 := p2_a57;
777     ddp_person_rec.created_by_module := p2_a58;
778     ddp_person_rec.application_id := p2_a59;
779     ddp_person_rec.actual_content_source := p2_a60;
780     ddp_person_rec.party_rec.party_id := p2_a61;
781     ddp_person_rec.party_rec.party_number := p2_a62;
782     ddp_person_rec.party_rec.validated_flag := p2_a63;
783     ddp_person_rec.party_rec.orig_system_reference := p2_a64;
784     ddp_person_rec.party_rec.status := p2_a65;
785     ddp_person_rec.party_rec.category_code := p2_a66;
786     ddp_person_rec.party_rec.salutation := p2_a67;
787     ddp_person_rec.party_rec.attribute_category := p2_a68;
788     ddp_person_rec.party_rec.attribute1 := p2_a69;
789     ddp_person_rec.party_rec.attribute2 := p2_a70;
790     ddp_person_rec.party_rec.attribute3 := p2_a71;
791     ddp_person_rec.party_rec.attribute4 := p2_a72;
792     ddp_person_rec.party_rec.attribute5 := p2_a73;
793     ddp_person_rec.party_rec.attribute6 := p2_a74;
794     ddp_person_rec.party_rec.attribute7 := p2_a75;
795     ddp_person_rec.party_rec.attribute8 := p2_a76;
796     ddp_person_rec.party_rec.attribute9 := p2_a77;
797     ddp_person_rec.party_rec.attribute10 := p2_a78;
798     ddp_person_rec.party_rec.attribute11 := p2_a79;
799     ddp_person_rec.party_rec.attribute12 := p2_a80;
800     ddp_person_rec.party_rec.attribute13 := p2_a81;
801     ddp_person_rec.party_rec.attribute14 := p2_a82;
802     ddp_person_rec.party_rec.attribute15 := p2_a83;
803     ddp_person_rec.party_rec.attribute16 := p2_a84;
804     ddp_person_rec.party_rec.attribute17 := p2_a85;
805     ddp_person_rec.party_rec.attribute18 := p2_a86;
806     ddp_person_rec.party_rec.attribute19 := p2_a87;
807     ddp_person_rec.party_rec.attribute20 := p2_a88;
808     ddp_person_rec.party_rec.attribute21 := p2_a89;
809     ddp_person_rec.party_rec.attribute22 := p2_a90;
810     ddp_person_rec.party_rec.attribute23 := p2_a91;
811     ddp_person_rec.party_rec.attribute24 := p2_a92;
812 
813     ddp_organization_rec.organization_name := p3_a0;
814     ddp_organization_rec.duns_number_c := p3_a1;
815     ddp_organization_rec.enquiry_duns := p3_a2;
816     ddp_organization_rec.ceo_name := p3_a3;
817     ddp_organization_rec.ceo_title := p3_a4;
818     ddp_organization_rec.principal_name := p3_a5;
819     ddp_organization_rec.principal_title := p3_a6;
820     ddp_organization_rec.legal_status := p3_a7;
821     ddp_organization_rec.control_yr := p3_a8;
822     ddp_organization_rec.employees_total := p3_a9;
823     ddp_organization_rec.hq_branch_ind := p3_a10;
824     ddp_organization_rec.branch_flag := p3_a11;
825     ddp_organization_rec.oob_ind := p3_a12;
826     ddp_organization_rec.line_of_business := p3_a13;
827     ddp_organization_rec.cong_dist_code := p3_a14;
828     ddp_organization_rec.sic_code := p3_a15;
829     ddp_organization_rec.import_ind := p3_a16;
830     ddp_organization_rec.export_ind := p3_a17;
831     ddp_organization_rec.labor_surplus_ind := p3_a18;
832     ddp_organization_rec.debarment_ind := p3_a19;
833     ddp_organization_rec.minority_owned_ind := p3_a20;
834     ddp_organization_rec.minority_owned_type := p3_a21;
835     ddp_organization_rec.woman_owned_ind := p3_a22;
836     ddp_organization_rec.disadv_8a_ind := p3_a23;
837     ddp_organization_rec.small_bus_ind := p3_a24;
838     ddp_organization_rec.rent_own_ind := p3_a25;
839     ddp_organization_rec.debarments_count := p3_a26;
840     ddp_organization_rec.debarments_date := rosetta_g_miss_date_in_map(p3_a27);
841     ddp_organization_rec.failure_score := p3_a28;
842     ddp_organization_rec.failure_score_natnl_percentile := p3_a29;
843     ddp_organization_rec.failure_score_override_code := p3_a30;
844     ddp_organization_rec.failure_score_commentary := p3_a31;
845     ddp_organization_rec.global_failure_score := p3_a32;
846     ddp_organization_rec.db_rating := p3_a33;
847     ddp_organization_rec.credit_score := p3_a34;
848     ddp_organization_rec.credit_score_commentary := p3_a35;
849     ddp_organization_rec.paydex_score := p3_a36;
850     ddp_organization_rec.paydex_three_months_ago := p3_a37;
851     ddp_organization_rec.paydex_norm := p3_a38;
852     ddp_organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p3_a39);
853     ddp_organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p3_a40);
854     ddp_organization_rec.organization_name_phonetic := p3_a41;
855     ddp_organization_rec.tax_reference := p3_a42;
856     ddp_organization_rec.gsa_indicator_flag := p3_a43;
857     ddp_organization_rec.jgzz_fiscal_code := p3_a44;
858     ddp_organization_rec.analysis_fy := p3_a45;
859     ddp_organization_rec.fiscal_yearend_month := p3_a46;
860     ddp_organization_rec.curr_fy_potential_revenue := p3_a47;
861     ddp_organization_rec.next_fy_potential_revenue := p3_a48;
862     ddp_organization_rec.year_established := p3_a49;
863     ddp_organization_rec.mission_statement := p3_a50;
864     ddp_organization_rec.organization_type := p3_a51;
865     ddp_organization_rec.business_scope := p3_a52;
866     ddp_organization_rec.corporation_class := p3_a53;
867     ddp_organization_rec.known_as := p3_a54;
868     ddp_organization_rec.known_as2 := p3_a55;
869     ddp_organization_rec.known_as3 := p3_a56;
870     ddp_organization_rec.known_as4 := p3_a57;
871     ddp_organization_rec.known_as5 := p3_a58;
872     ddp_organization_rec.local_bus_iden_type := p3_a59;
873     ddp_organization_rec.local_bus_identifier := p3_a60;
874     ddp_organization_rec.pref_functional_currency := p3_a61;
875     ddp_organization_rec.registration_type := p3_a62;
876     ddp_organization_rec.total_employees_text := p3_a63;
877     ddp_organization_rec.total_employees_ind := p3_a64;
878     ddp_organization_rec.total_emp_est_ind := p3_a65;
879     ddp_organization_rec.total_emp_min_ind := p3_a66;
880     ddp_organization_rec.parent_sub_ind := p3_a67;
881     ddp_organization_rec.incorp_year := p3_a68;
882     ddp_organization_rec.sic_code_type := p3_a69;
883     ddp_organization_rec.public_private_ownership_flag := p3_a70;
884     ddp_organization_rec.internal_flag := p3_a71;
885     ddp_organization_rec.local_activity_code_type := p3_a72;
886     ddp_organization_rec.local_activity_code := p3_a73;
887     ddp_organization_rec.emp_at_primary_adr := p3_a74;
888     ddp_organization_rec.emp_at_primary_adr_text := p3_a75;
889     ddp_organization_rec.emp_at_primary_adr_est_ind := p3_a76;
890     ddp_organization_rec.emp_at_primary_adr_min_ind := p3_a77;
891     ddp_organization_rec.high_credit := p3_a78;
892     ddp_organization_rec.avg_high_credit := p3_a79;
893     ddp_organization_rec.total_payments := p3_a80;
894     ddp_organization_rec.credit_score_class := p3_a81;
895     ddp_organization_rec.credit_score_natl_percentile := p3_a82;
896     ddp_organization_rec.credit_score_incd_default := p3_a83;
897     ddp_organization_rec.credit_score_age := p3_a84;
898     ddp_organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p3_a85);
899     ddp_organization_rec.credit_score_commentary2 := p3_a86;
900     ddp_organization_rec.credit_score_commentary3 := p3_a87;
901     ddp_organization_rec.credit_score_commentary4 := p3_a88;
902     ddp_organization_rec.credit_score_commentary5 := p3_a89;
903     ddp_organization_rec.credit_score_commentary6 := p3_a90;
904     ddp_organization_rec.credit_score_commentary7 := p3_a91;
905     ddp_organization_rec.credit_score_commentary8 := p3_a92;
906     ddp_organization_rec.credit_score_commentary9 := p3_a93;
907     ddp_organization_rec.credit_score_commentary10 := p3_a94;
908     ddp_organization_rec.failure_score_class := p3_a95;
909     ddp_organization_rec.failure_score_incd_default := p3_a96;
910     ddp_organization_rec.failure_score_age := p3_a97;
911     ddp_organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p3_a98);
912     ddp_organization_rec.failure_score_commentary2 := p3_a99;
913     ddp_organization_rec.failure_score_commentary3 := p3_a100;
914     ddp_organization_rec.failure_score_commentary4 := p3_a101;
915     ddp_organization_rec.failure_score_commentary5 := p3_a102;
916     ddp_organization_rec.failure_score_commentary6 := p3_a103;
917     ddp_organization_rec.failure_score_commentary7 := p3_a104;
918     ddp_organization_rec.failure_score_commentary8 := p3_a105;
919     ddp_organization_rec.failure_score_commentary9 := p3_a106;
920     ddp_organization_rec.failure_score_commentary10 := p3_a107;
921     ddp_organization_rec.maximum_credit_recommendation := p3_a108;
922     ddp_organization_rec.maximum_credit_currency_code := p3_a109;
923     ddp_organization_rec.displayed_duns_party_id := p3_a110;
924     ddp_organization_rec.content_source_type := p3_a111;
925     ddp_organization_rec.content_source_number := p3_a112;
926     ddp_organization_rec.attribute_category := p3_a113;
927     ddp_organization_rec.attribute1 := p3_a114;
928     ddp_organization_rec.attribute2 := p3_a115;
929     ddp_organization_rec.attribute3 := p3_a116;
930     ddp_organization_rec.attribute4 := p3_a117;
931     ddp_organization_rec.attribute5 := p3_a118;
932     ddp_organization_rec.attribute6 := p3_a119;
933     ddp_organization_rec.attribute7 := p3_a120;
934     ddp_organization_rec.attribute8 := p3_a121;
935     ddp_organization_rec.attribute9 := p3_a122;
936     ddp_organization_rec.attribute10 := p3_a123;
937     ddp_organization_rec.attribute11 := p3_a124;
938     ddp_organization_rec.attribute12 := p3_a125;
939     ddp_organization_rec.attribute13 := p3_a126;
940     ddp_organization_rec.attribute14 := p3_a127;
941     ddp_organization_rec.attribute15 := p3_a128;
942     ddp_organization_rec.attribute16 := p3_a129;
943     ddp_organization_rec.attribute17 := p3_a130;
944     ddp_organization_rec.attribute18 := p3_a131;
945     ddp_organization_rec.attribute19 := p3_a132;
946     ddp_organization_rec.attribute20 := p3_a133;
947     ddp_organization_rec.created_by_module := p3_a134;
948     ddp_organization_rec.application_id := p3_a135;
949     ddp_organization_rec.do_not_confuse_with := p3_a136;
950     ddp_organization_rec.actual_content_source := p3_a137;
951     ddp_organization_rec.party_rec.party_id := p3_a138;
952     ddp_organization_rec.party_rec.party_number := p3_a139;
953     ddp_organization_rec.party_rec.validated_flag := p3_a140;
954     ddp_organization_rec.party_rec.orig_system_reference := p3_a141;
955     ddp_organization_rec.party_rec.status := p3_a142;
956     ddp_organization_rec.party_rec.category_code := p3_a143;
957     ddp_organization_rec.party_rec.salutation := p3_a144;
958     ddp_organization_rec.party_rec.attribute_category := p3_a145;
959     ddp_organization_rec.party_rec.attribute1 := p3_a146;
960     ddp_organization_rec.party_rec.attribute2 := p3_a147;
961     ddp_organization_rec.party_rec.attribute3 := p3_a148;
962     ddp_organization_rec.party_rec.attribute4 := p3_a149;
963     ddp_organization_rec.party_rec.attribute5 := p3_a150;
964     ddp_organization_rec.party_rec.attribute6 := p3_a151;
965     ddp_organization_rec.party_rec.attribute7 := p3_a152;
966     ddp_organization_rec.party_rec.attribute8 := p3_a153;
967     ddp_organization_rec.party_rec.attribute9 := p3_a154;
968     ddp_organization_rec.party_rec.attribute10 := p3_a155;
969     ddp_organization_rec.party_rec.attribute11 := p3_a156;
970     ddp_organization_rec.party_rec.attribute12 := p3_a157;
971     ddp_organization_rec.party_rec.attribute13 := p3_a158;
972     ddp_organization_rec.party_rec.attribute14 := p3_a159;
973     ddp_organization_rec.party_rec.attribute15 := p3_a160;
974     ddp_organization_rec.party_rec.attribute16 := p3_a161;
975     ddp_organization_rec.party_rec.attribute17 := p3_a162;
976     ddp_organization_rec.party_rec.attribute18 := p3_a163;
977     ddp_organization_rec.party_rec.attribute19 := p3_a164;
978     ddp_organization_rec.party_rec.attribute20 := p3_a165;
979     ddp_organization_rec.party_rec.attribute21 := p3_a166;
980     ddp_organization_rec.party_rec.attribute22 := p3_a167;
981     ddp_organization_rec.party_rec.attribute23 := p3_a168;
982     ddp_organization_rec.party_rec.attribute24 := p3_a169;
983 
984     ddp_location_rec.location_id := p4_a0;
985     ddp_location_rec.orig_system_reference := p4_a1;
986     ddp_location_rec.country := p4_a2;
987     ddp_location_rec.address1 := p4_a3;
988     ddp_location_rec.address2 := p4_a4;
989     ddp_location_rec.address3 := p4_a5;
990     ddp_location_rec.address4 := p4_a6;
991     ddp_location_rec.city := p4_a7;
992     ddp_location_rec.postal_code := p4_a8;
993     ddp_location_rec.state := p4_a9;
994     ddp_location_rec.province := p4_a10;
995     ddp_location_rec.county := p4_a11;
996     ddp_location_rec.address_key := p4_a12;
997     ddp_location_rec.address_style := p4_a13;
998     ddp_location_rec.validated_flag := p4_a14;
999     ddp_location_rec.address_lines_phonetic := p4_a15;
1000     ddp_location_rec.po_box_number := p4_a16;
1001     ddp_location_rec.house_number := p4_a17;
1002     ddp_location_rec.street_suffix := p4_a18;
1003     ddp_location_rec.street := p4_a19;
1004     ddp_location_rec.street_number := p4_a20;
1005     ddp_location_rec.floor := p4_a21;
1006     ddp_location_rec.suite := p4_a22;
1007     ddp_location_rec.postal_plus4_code := p4_a23;
1008     ddp_location_rec.position := p4_a24;
1009     ddp_location_rec.location_directions := p4_a25;
1010     ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p4_a26);
1011     ddp_location_rec.clli_code := p4_a27;
1012     ddp_location_rec.language := p4_a28;
1013     ddp_location_rec.short_description := p4_a29;
1014     ddp_location_rec.description := p4_a30;
1015     ddp_location_rec.loc_hierarchy_id := p4_a31;
1016     ddp_location_rec.sales_tax_geocode := p4_a32;
1017     ddp_location_rec.sales_tax_inside_city_limits := p4_a33;
1018     ddp_location_rec.fa_location_id := p4_a34;
1019     ddp_location_rec.content_source_type := p4_a35;
1020     ddp_location_rec.attribute_category := p4_a36;
1021     ddp_location_rec.attribute1 := p4_a37;
1022     ddp_location_rec.attribute2 := p4_a38;
1023     ddp_location_rec.attribute3 := p4_a39;
1024     ddp_location_rec.attribute4 := p4_a40;
1025     ddp_location_rec.attribute5 := p4_a41;
1026     ddp_location_rec.attribute6 := p4_a42;
1027     ddp_location_rec.attribute7 := p4_a43;
1028     ddp_location_rec.attribute8 := p4_a44;
1029     ddp_location_rec.attribute9 := p4_a45;
1030     ddp_location_rec.attribute10 := p4_a46;
1031     ddp_location_rec.attribute11 := p4_a47;
1032     ddp_location_rec.attribute12 := p4_a48;
1033     ddp_location_rec.attribute13 := p4_a49;
1034     ddp_location_rec.attribute14 := p4_a50;
1035     ddp_location_rec.attribute15 := p4_a51;
1036     ddp_location_rec.attribute16 := p4_a52;
1037     ddp_location_rec.attribute17 := p4_a53;
1038     ddp_location_rec.attribute18 := p4_a54;
1039     ddp_location_rec.attribute19 := p4_a55;
1040     ddp_location_rec.attribute20 := p4_a56;
1041     ddp_location_rec.timezone_id := p4_a57;
1042     ddp_location_rec.created_by_module := p4_a58;
1043     ddp_location_rec.application_id := p4_a59;
1044     ddp_location_rec.actual_content_source := p4_a60;
1045 
1046     ddp_org_phone_rec.phone_calling_calendar := p5_a0;
1047     ddp_org_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p5_a1);
1048     ddp_org_phone_rec.timezone_id := p5_a2;
1049     ddp_org_phone_rec.phone_area_code := p5_a3;
1050     ddp_org_phone_rec.phone_country_code := p5_a4;
1051     ddp_org_phone_rec.phone_number := p5_a5;
1052     ddp_org_phone_rec.phone_extension := p5_a6;
1053     ddp_org_phone_rec.phone_line_type := p5_a7;
1054     ddp_org_phone_rec.raw_phone_number := p5_a8;
1055 
1056     ddp_org_fax_rec.phone_calling_calendar := p6_a0;
1057     ddp_org_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p6_a1);
1058     ddp_org_fax_rec.timezone_id := p6_a2;
1059     ddp_org_fax_rec.phone_area_code := p6_a3;
1060     ddp_org_fax_rec.phone_country_code := p6_a4;
1061     ddp_org_fax_rec.phone_number := p6_a5;
1062     ddp_org_fax_rec.phone_extension := p6_a6;
1063     ddp_org_fax_rec.phone_line_type := p6_a7;
1064     ddp_org_fax_rec.raw_phone_number := p6_a8;
1065 
1066     ddp_rel_workphone_rec.phone_calling_calendar := p7_a0;
1067     ddp_rel_workphone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p7_a1);
1068     ddp_rel_workphone_rec.timezone_id := p7_a2;
1069     ddp_rel_workphone_rec.phone_area_code := p7_a3;
1070     ddp_rel_workphone_rec.phone_country_code := p7_a4;
1071     ddp_rel_workphone_rec.phone_number := p7_a5;
1072     ddp_rel_workphone_rec.phone_extension := p7_a6;
1073     ddp_rel_workphone_rec.phone_line_type := p7_a7;
1074     ddp_rel_workphone_rec.raw_phone_number := p7_a8;
1075 
1076     ddp_rel_homephone_rec.phone_calling_calendar := p8_a0;
1077     ddp_rel_homephone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p8_a1);
1078     ddp_rel_homephone_rec.timezone_id := p8_a2;
1079     ddp_rel_homephone_rec.phone_area_code := p8_a3;
1080     ddp_rel_homephone_rec.phone_country_code := p8_a4;
1081     ddp_rel_homephone_rec.phone_number := p8_a5;
1082     ddp_rel_homephone_rec.phone_extension := p8_a6;
1083     ddp_rel_homephone_rec.phone_line_type := p8_a7;
1084     ddp_rel_homephone_rec.raw_phone_number := p8_a8;
1085 
1086     ddp_rel_fax_rec.phone_calling_calendar := p9_a0;
1087     ddp_rel_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p9_a1);
1088     ddp_rel_fax_rec.timezone_id := p9_a2;
1089     ddp_rel_fax_rec.phone_area_code := p9_a3;
1090     ddp_rel_fax_rec.phone_country_code := p9_a4;
1091     ddp_rel_fax_rec.phone_number := p9_a5;
1092     ddp_rel_fax_rec.phone_extension := p9_a6;
1093     ddp_rel_fax_rec.phone_line_type := p9_a7;
1094     ddp_rel_fax_rec.raw_phone_number := p9_a8;
1095 
1096     ddp_rel_email_rec.email_format := p10_a0;
1097     ddp_rel_email_rec.email_address := p10_a1;
1098 
1099 
1100 
1101 
1102 
1103 
1104 
1105 
1106 
1107     -- here's the delegated call to the old PL/SQL routine
1108     ibe_party_v2pvt.create_business_user(p_username,
1109       p_password,
1110       ddp_person_rec,
1111       ddp_organization_rec,
1112       ddp_location_rec,
1113       ddp_org_phone_rec,
1114       ddp_org_fax_rec,
1115       ddp_rel_workphone_rec,
1116       ddp_rel_homephone_rec,
1117       ddp_rel_fax_rec,
1118       ddp_rel_email_rec,
1119       p_rel_contact_preference,
1120       x_person_party_id,
1121       x_rel_party_id,
1122       x_org_party_id,
1123       x_user_id,
1124       x_return_status,
1125       x_msg_count,
1126       x_msg_data);
1127 
1128     -- copy data back from the local variables to OUT or IN-OUT args, if any
1129 
1130 
1131 
1132 
1133 
1134 
1135 
1136 
1137 
1138 
1139 
1140 
1141 
1142 
1143 
1144 
1145 
1146 
1147   end;
1148 
1149   procedure create_org_contact(p0_a0  VARCHAR2
1150     , p0_a1  VARCHAR2
1151     , p0_a2  VARCHAR2
1152     , p0_a3  VARCHAR2
1153     , p0_a4  VARCHAR2
1154     , p0_a5  VARCHAR2
1155     , p0_a6  VARCHAR2
1156     , p0_a7  VARCHAR2
1157     , p0_a8  VARCHAR2
1158     , p0_a9  VARCHAR2
1159     , p0_a10  VARCHAR2
1160     , p0_a11  VARCHAR2
1161     , p0_a12  VARCHAR2
1162     , p0_a13  VARCHAR2
1163     , p0_a14  VARCHAR2
1164     , p0_a15  VARCHAR2
1165     , p0_a16  VARCHAR2
1166     , p0_a17  VARCHAR2
1167     , p0_a18  VARCHAR2
1168     , p0_a19  VARCHAR2
1169     , p0_a20  VARCHAR2
1170     , p0_a21  VARCHAR2
1171     , p0_a22  DATE
1172     , p0_a23  VARCHAR2
1173     , p0_a24  DATE
1174     , p0_a25  VARCHAR2
1175     , p0_a26  VARCHAR2
1176     , p0_a27  VARCHAR2
1177     , p0_a28  DATE
1178     , p0_a29  NUMBER
1179     , p0_a30  VARCHAR2
1180     , p0_a31  NUMBER
1181     , p0_a32  NUMBER
1182     , p0_a33  VARCHAR2
1183     , p0_a34  VARCHAR2
1184     , p0_a35  VARCHAR2
1185     , p0_a36  VARCHAR2
1186     , p0_a37  VARCHAR2
1187     , p0_a38  VARCHAR2
1188     , p0_a39  VARCHAR2
1189     , p0_a40  VARCHAR2
1190     , p0_a41  VARCHAR2
1191     , p0_a42  VARCHAR2
1192     , p0_a43  VARCHAR2
1193     , p0_a44  VARCHAR2
1194     , p0_a45  VARCHAR2
1195     , p0_a46  VARCHAR2
1196     , p0_a47  VARCHAR2
1197     , p0_a48  VARCHAR2
1198     , p0_a49  VARCHAR2
1199     , p0_a50  VARCHAR2
1200     , p0_a51  VARCHAR2
1201     , p0_a52  VARCHAR2
1202     , p0_a53  VARCHAR2
1203     , p0_a54  VARCHAR2
1204     , p0_a55  VARCHAR2
1205     , p0_a56  VARCHAR2
1206     , p0_a57  VARCHAR2
1207     , p0_a58  VARCHAR2
1208     , p0_a59  NUMBER
1209     , p0_a60  VARCHAR2
1210     , p0_a61  NUMBER
1211     , p0_a62  VARCHAR2
1212     , p0_a63  VARCHAR2
1213     , p0_a64  VARCHAR2
1214     , p0_a65  VARCHAR2
1215     , p0_a66  VARCHAR2
1216     , p0_a67  VARCHAR2
1217     , p0_a68  VARCHAR2
1218     , p0_a69  VARCHAR2
1219     , p0_a70  VARCHAR2
1220     , p0_a71  VARCHAR2
1221     , p0_a72  VARCHAR2
1222     , p0_a73  VARCHAR2
1223     , p0_a74  VARCHAR2
1224     , p0_a75  VARCHAR2
1225     , p0_a76  VARCHAR2
1226     , p0_a77  VARCHAR2
1227     , p0_a78  VARCHAR2
1228     , p0_a79  VARCHAR2
1229     , p0_a80  VARCHAR2
1230     , p0_a81  VARCHAR2
1231     , p0_a82  VARCHAR2
1232     , p0_a83  VARCHAR2
1233     , p0_a84  VARCHAR2
1234     , p0_a85  VARCHAR2
1235     , p0_a86  VARCHAR2
1236     , p0_a87  VARCHAR2
1237     , p0_a88  VARCHAR2
1238     , p0_a89  VARCHAR2
1239     , p0_a90  VARCHAR2
1240     , p0_a91  VARCHAR2
1241     , p0_a92  VARCHAR2
1242     , p_relationship_type  VARCHAR2
1243     , p_org_party_id  NUMBER
1244     , p3_a0  VARCHAR2
1245     , p3_a1  DATE
1246     , p3_a2  NUMBER
1247     , p3_a3  VARCHAR2
1248     , p3_a4  VARCHAR2
1249     , p3_a5  VARCHAR2
1250     , p3_a6  VARCHAR2
1251     , p3_a7  VARCHAR2
1252     , p3_a8  VARCHAR2
1253     , p4_a0  VARCHAR2
1254     , p4_a1  DATE
1255     , p4_a2  NUMBER
1256     , p4_a3  VARCHAR2
1257     , p4_a4  VARCHAR2
1258     , p4_a5  VARCHAR2
1259     , p4_a6  VARCHAR2
1260     , p4_a7  VARCHAR2
1261     , p4_a8  VARCHAR2
1262     , p5_a0  VARCHAR2
1263     , p5_a1  DATE
1264     , p5_a2  NUMBER
1265     , p5_a3  VARCHAR2
1266     , p5_a4  VARCHAR2
1267     , p5_a5  VARCHAR2
1268     , p5_a6  VARCHAR2
1269     , p5_a7  VARCHAR2
1270     , p5_a8  VARCHAR2
1271     , p6_a0  VARCHAR2
1272     , p6_a1  VARCHAR2
1273     , p_created_by_module  VARCHAR2
1274     , x_person_party_id out nocopy  NUMBER
1275     , x_rel_party_id out nocopy  NUMBER
1276     , x_return_status out nocopy  VARCHAR2
1277     , x_msg_count out nocopy  NUMBER
1278     , x_msg_data out nocopy  VARCHAR2
1279   )
1280 
1281   as
1282     ddp_person_rec hz_party_v2pub.person_rec_type;
1283     ddp_work_phone_rec hz_contact_point_v2pub.phone_rec_type;
1284     ddp_home_phone_rec hz_contact_point_v2pub.phone_rec_type;
1285     ddp_fax_rec hz_contact_point_v2pub.phone_rec_type;
1286     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
1287     ddindx binary_integer; indx binary_integer;
1288   begin
1289 
1290     -- copy data to the local IN or IN-OUT args, if any
1291     ddp_person_rec.person_pre_name_adjunct := p0_a0;
1292     ddp_person_rec.person_first_name := p0_a1;
1293     ddp_person_rec.person_middle_name := p0_a2;
1294     ddp_person_rec.person_last_name := p0_a3;
1295     ddp_person_rec.person_name_suffix := p0_a4;
1296     ddp_person_rec.person_title := p0_a5;
1297     ddp_person_rec.person_academic_title := p0_a6;
1298     ddp_person_rec.person_previous_last_name := p0_a7;
1299     ddp_person_rec.person_initials := p0_a8;
1300     ddp_person_rec.known_as := p0_a9;
1301     ddp_person_rec.known_as2 := p0_a10;
1302     ddp_person_rec.known_as3 := p0_a11;
1303     ddp_person_rec.known_as4 := p0_a12;
1304     ddp_person_rec.known_as5 := p0_a13;
1305     ddp_person_rec.person_name_phonetic := p0_a14;
1306     ddp_person_rec.person_first_name_phonetic := p0_a15;
1307     ddp_person_rec.person_last_name_phonetic := p0_a16;
1308     ddp_person_rec.middle_name_phonetic := p0_a17;
1309     ddp_person_rec.tax_reference := p0_a18;
1310     ddp_person_rec.jgzz_fiscal_code := p0_a19;
1311     ddp_person_rec.person_iden_type := p0_a20;
1312     ddp_person_rec.person_identifier := p0_a21;
1313     ddp_person_rec.date_of_birth := rosetta_g_miss_date_in_map(p0_a22);
1314     ddp_person_rec.place_of_birth := p0_a23;
1315     ddp_person_rec.date_of_death := rosetta_g_miss_date_in_map(p0_a24);
1316     ddp_person_rec.gender := p0_a25;
1317     ddp_person_rec.declared_ethnicity := p0_a26;
1318     ddp_person_rec.marital_status := p0_a27;
1319     ddp_person_rec.marital_status_effective_date := rosetta_g_miss_date_in_map(p0_a28);
1320     ddp_person_rec.personal_income := p0_a29;
1321     ddp_person_rec.head_of_household_flag := p0_a30;
1322     ddp_person_rec.household_income := p0_a31;
1323     ddp_person_rec.household_size := p0_a32;
1324     ddp_person_rec.rent_own_ind := p0_a33;
1325     ddp_person_rec.last_known_gps := p0_a34;
1326     ddp_person_rec.content_source_type := p0_a35;
1327     ddp_person_rec.internal_flag := p0_a36;
1328     ddp_person_rec.attribute_category := p0_a37;
1329     ddp_person_rec.attribute1 := p0_a38;
1330     ddp_person_rec.attribute2 := p0_a39;
1331     ddp_person_rec.attribute3 := p0_a40;
1332     ddp_person_rec.attribute4 := p0_a41;
1333     ddp_person_rec.attribute5 := p0_a42;
1334     ddp_person_rec.attribute6 := p0_a43;
1335     ddp_person_rec.attribute7 := p0_a44;
1336     ddp_person_rec.attribute8 := p0_a45;
1337     ddp_person_rec.attribute9 := p0_a46;
1338     ddp_person_rec.attribute10 := p0_a47;
1339     ddp_person_rec.attribute11 := p0_a48;
1340     ddp_person_rec.attribute12 := p0_a49;
1341     ddp_person_rec.attribute13 := p0_a50;
1342     ddp_person_rec.attribute14 := p0_a51;
1343     ddp_person_rec.attribute15 := p0_a52;
1344     ddp_person_rec.attribute16 := p0_a53;
1345     ddp_person_rec.attribute17 := p0_a54;
1346     ddp_person_rec.attribute18 := p0_a55;
1347     ddp_person_rec.attribute19 := p0_a56;
1348     ddp_person_rec.attribute20 := p0_a57;
1349     ddp_person_rec.created_by_module := p0_a58;
1350     ddp_person_rec.application_id := p0_a59;
1351     ddp_person_rec.actual_content_source := p0_a60;
1352     ddp_person_rec.party_rec.party_id := p0_a61;
1353     ddp_person_rec.party_rec.party_number := p0_a62;
1354     ddp_person_rec.party_rec.validated_flag := p0_a63;
1355     ddp_person_rec.party_rec.orig_system_reference := p0_a64;
1356     ddp_person_rec.party_rec.status := p0_a65;
1357     ddp_person_rec.party_rec.category_code := p0_a66;
1358     ddp_person_rec.party_rec.salutation := p0_a67;
1359     ddp_person_rec.party_rec.attribute_category := p0_a68;
1360     ddp_person_rec.party_rec.attribute1 := p0_a69;
1361     ddp_person_rec.party_rec.attribute2 := p0_a70;
1362     ddp_person_rec.party_rec.attribute3 := p0_a71;
1363     ddp_person_rec.party_rec.attribute4 := p0_a72;
1364     ddp_person_rec.party_rec.attribute5 := p0_a73;
1365     ddp_person_rec.party_rec.attribute6 := p0_a74;
1366     ddp_person_rec.party_rec.attribute7 := p0_a75;
1367     ddp_person_rec.party_rec.attribute8 := p0_a76;
1368     ddp_person_rec.party_rec.attribute9 := p0_a77;
1369     ddp_person_rec.party_rec.attribute10 := p0_a78;
1370     ddp_person_rec.party_rec.attribute11 := p0_a79;
1371     ddp_person_rec.party_rec.attribute12 := p0_a80;
1372     ddp_person_rec.party_rec.attribute13 := p0_a81;
1373     ddp_person_rec.party_rec.attribute14 := p0_a82;
1374     ddp_person_rec.party_rec.attribute15 := p0_a83;
1375     ddp_person_rec.party_rec.attribute16 := p0_a84;
1376     ddp_person_rec.party_rec.attribute17 := p0_a85;
1377     ddp_person_rec.party_rec.attribute18 := p0_a86;
1378     ddp_person_rec.party_rec.attribute19 := p0_a87;
1379     ddp_person_rec.party_rec.attribute20 := p0_a88;
1380     ddp_person_rec.party_rec.attribute21 := p0_a89;
1381     ddp_person_rec.party_rec.attribute22 := p0_a90;
1382     ddp_person_rec.party_rec.attribute23 := p0_a91;
1383     ddp_person_rec.party_rec.attribute24 := p0_a92;
1384 
1385 
1386 
1387     ddp_work_phone_rec.phone_calling_calendar := p3_a0;
1388     ddp_work_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p3_a1);
1389     ddp_work_phone_rec.timezone_id := p3_a2;
1390     ddp_work_phone_rec.phone_area_code := p3_a3;
1391     ddp_work_phone_rec.phone_country_code := p3_a4;
1392     ddp_work_phone_rec.phone_number := p3_a5;
1393     ddp_work_phone_rec.phone_extension := p3_a6;
1394     ddp_work_phone_rec.phone_line_type := p3_a7;
1395     ddp_work_phone_rec.raw_phone_number := p3_a8;
1396 
1397     ddp_home_phone_rec.phone_calling_calendar := p4_a0;
1398     ddp_home_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p4_a1);
1399     ddp_home_phone_rec.timezone_id := p4_a2;
1400     ddp_home_phone_rec.phone_area_code := p4_a3;
1401     ddp_home_phone_rec.phone_country_code := p4_a4;
1402     ddp_home_phone_rec.phone_number := p4_a5;
1403     ddp_home_phone_rec.phone_extension := p4_a6;
1404     ddp_home_phone_rec.phone_line_type := p4_a7;
1405     ddp_home_phone_rec.raw_phone_number := p4_a8;
1406 
1407     ddp_fax_rec.phone_calling_calendar := p5_a0;
1408     ddp_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p5_a1);
1409     ddp_fax_rec.timezone_id := p5_a2;
1410     ddp_fax_rec.phone_area_code := p5_a3;
1411     ddp_fax_rec.phone_country_code := p5_a4;
1412     ddp_fax_rec.phone_number := p5_a5;
1413     ddp_fax_rec.phone_extension := p5_a6;
1414     ddp_fax_rec.phone_line_type := p5_a7;
1415     ddp_fax_rec.raw_phone_number := p5_a8;
1416 
1417     ddp_email_rec.email_format := p6_a0;
1418     ddp_email_rec.email_address := p6_a1;
1419 
1420 
1421 
1422 
1423 
1424 
1425 
1426     -- here's the delegated call to the old PL/SQL routine
1427     ibe_party_v2pvt.create_org_contact(ddp_person_rec,
1428       p_relationship_type,
1429       p_org_party_id,
1430       ddp_work_phone_rec,
1431       ddp_home_phone_rec,
1432       ddp_fax_rec,
1433       ddp_email_rec,
1434       p_created_by_module,
1435       x_person_party_id,
1436       x_rel_party_id,
1437       x_return_status,
1438       x_msg_count,
1439       x_msg_data);
1440 
1441     -- copy data back from the local variables to OUT or IN-OUT args, if any
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454   end;
1455 
1456   procedure create_person(p0_a0  VARCHAR2
1457     , p0_a1  VARCHAR2
1458     , p0_a2  VARCHAR2
1459     , p0_a3  VARCHAR2
1460     , p0_a4  VARCHAR2
1461     , p0_a5  VARCHAR2
1462     , p0_a6  VARCHAR2
1463     , p0_a7  VARCHAR2
1464     , p0_a8  VARCHAR2
1465     , p0_a9  VARCHAR2
1466     , p0_a10  VARCHAR2
1467     , p0_a11  VARCHAR2
1468     , p0_a12  VARCHAR2
1469     , p0_a13  VARCHAR2
1470     , p0_a14  VARCHAR2
1471     , p0_a15  VARCHAR2
1472     , p0_a16  VARCHAR2
1473     , p0_a17  VARCHAR2
1474     , p0_a18  VARCHAR2
1475     , p0_a19  VARCHAR2
1476     , p0_a20  VARCHAR2
1477     , p0_a21  VARCHAR2
1478     , p0_a22  DATE
1479     , p0_a23  VARCHAR2
1480     , p0_a24  DATE
1481     , p0_a25  VARCHAR2
1482     , p0_a26  VARCHAR2
1483     , p0_a27  VARCHAR2
1484     , p0_a28  DATE
1485     , p0_a29  NUMBER
1486     , p0_a30  VARCHAR2
1487     , p0_a31  NUMBER
1488     , p0_a32  NUMBER
1489     , p0_a33  VARCHAR2
1490     , p0_a34  VARCHAR2
1491     , p0_a35  VARCHAR2
1492     , p0_a36  VARCHAR2
1493     , p0_a37  VARCHAR2
1494     , p0_a38  VARCHAR2
1495     , p0_a39  VARCHAR2
1496     , p0_a40  VARCHAR2
1497     , p0_a41  VARCHAR2
1498     , p0_a42  VARCHAR2
1499     , p0_a43  VARCHAR2
1500     , p0_a44  VARCHAR2
1501     , p0_a45  VARCHAR2
1502     , p0_a46  VARCHAR2
1503     , p0_a47  VARCHAR2
1504     , p0_a48  VARCHAR2
1505     , p0_a49  VARCHAR2
1506     , p0_a50  VARCHAR2
1507     , p0_a51  VARCHAR2
1508     , p0_a52  VARCHAR2
1509     , p0_a53  VARCHAR2
1510     , p0_a54  VARCHAR2
1511     , p0_a55  VARCHAR2
1512     , p0_a56  VARCHAR2
1513     , p0_a57  VARCHAR2
1514     , p0_a58  VARCHAR2
1515     , p0_a59  NUMBER
1516     , p0_a60  VARCHAR2
1517     , p0_a61  NUMBER
1518     , p0_a62  VARCHAR2
1519     , p0_a63  VARCHAR2
1520     , p0_a64  VARCHAR2
1521     , p0_a65  VARCHAR2
1522     , p0_a66  VARCHAR2
1523     , p0_a67  VARCHAR2
1524     , p0_a68  VARCHAR2
1525     , p0_a69  VARCHAR2
1526     , p0_a70  VARCHAR2
1527     , p0_a71  VARCHAR2
1528     , p0_a72  VARCHAR2
1529     , p0_a73  VARCHAR2
1530     , p0_a74  VARCHAR2
1531     , p0_a75  VARCHAR2
1532     , p0_a76  VARCHAR2
1533     , p0_a77  VARCHAR2
1534     , p0_a78  VARCHAR2
1535     , p0_a79  VARCHAR2
1536     , p0_a80  VARCHAR2
1537     , p0_a81  VARCHAR2
1538     , p0_a82  VARCHAR2
1539     , p0_a83  VARCHAR2
1540     , p0_a84  VARCHAR2
1541     , p0_a85  VARCHAR2
1542     , p0_a86  VARCHAR2
1543     , p0_a87  VARCHAR2
1544     , p0_a88  VARCHAR2
1545     , p0_a89  VARCHAR2
1546     , p0_a90  VARCHAR2
1547     , p0_a91  VARCHAR2
1548     , p0_a92  VARCHAR2
1549     , p1_a0  VARCHAR2
1550     , p1_a1  VARCHAR2
1551     , p2_a0  VARCHAR2
1552     , p2_a1  DATE
1553     , p2_a2  NUMBER
1554     , p2_a3  VARCHAR2
1555     , p2_a4  VARCHAR2
1556     , p2_a5  VARCHAR2
1557     , p2_a6  VARCHAR2
1558     , p2_a7  VARCHAR2
1559     , p2_a8  VARCHAR2
1560     , p3_a0  VARCHAR2
1561     , p3_a1  DATE
1562     , p3_a2  NUMBER
1563     , p3_a3  VARCHAR2
1564     , p3_a4  VARCHAR2
1565     , p3_a5  VARCHAR2
1566     , p3_a6  VARCHAR2
1567     , p3_a7  VARCHAR2
1568     , p3_a8  VARCHAR2
1569     , p4_a0  VARCHAR2
1570     , p4_a1  DATE
1571     , p4_a2  NUMBER
1572     , p4_a3  VARCHAR2
1573     , p4_a4  VARCHAR2
1574     , p4_a5  VARCHAR2
1575     , p4_a6  VARCHAR2
1576     , p4_a7  VARCHAR2
1577     , p4_a8  VARCHAR2
1578     , p_created_by_module  VARCHAR2
1579     , p_account  VARCHAR2
1580     , x_person_party_id out nocopy  NUMBER
1581     , x_account_id out nocopy  NUMBER
1582     , x_return_status out nocopy  VARCHAR2
1583     , x_msg_count out nocopy  NUMBER
1584     , x_msg_data out nocopy  VARCHAR2
1585   )
1586 
1587   as
1588     ddp_person_rec hz_party_v2pub.person_rec_type;
1589     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
1590     ddp_work_phone_rec hz_contact_point_v2pub.phone_rec_type;
1591     ddp_home_phone_rec hz_contact_point_v2pub.phone_rec_type;
1592     ddp_fax_rec hz_contact_point_v2pub.phone_rec_type;
1593     ddindx binary_integer; indx binary_integer;
1594   begin
1595 
1596     -- copy data to the local IN or IN-OUT args, if any
1597     ddp_person_rec.person_pre_name_adjunct := p0_a0;
1598     ddp_person_rec.person_first_name := p0_a1;
1599     ddp_person_rec.person_middle_name := p0_a2;
1600     ddp_person_rec.person_last_name := p0_a3;
1601     ddp_person_rec.person_name_suffix := p0_a4;
1602     ddp_person_rec.person_title := p0_a5;
1603     ddp_person_rec.person_academic_title := p0_a6;
1604     ddp_person_rec.person_previous_last_name := p0_a7;
1605     ddp_person_rec.person_initials := p0_a8;
1606     ddp_person_rec.known_as := p0_a9;
1607     ddp_person_rec.known_as2 := p0_a10;
1608     ddp_person_rec.known_as3 := p0_a11;
1609     ddp_person_rec.known_as4 := p0_a12;
1610     ddp_person_rec.known_as5 := p0_a13;
1611     ddp_person_rec.person_name_phonetic := p0_a14;
1612     ddp_person_rec.person_first_name_phonetic := p0_a15;
1613     ddp_person_rec.person_last_name_phonetic := p0_a16;
1614     ddp_person_rec.middle_name_phonetic := p0_a17;
1615     ddp_person_rec.tax_reference := p0_a18;
1616     ddp_person_rec.jgzz_fiscal_code := p0_a19;
1617     ddp_person_rec.person_iden_type := p0_a20;
1618     ddp_person_rec.person_identifier := p0_a21;
1619     ddp_person_rec.date_of_birth := rosetta_g_miss_date_in_map(p0_a22);
1620     ddp_person_rec.place_of_birth := p0_a23;
1621     ddp_person_rec.date_of_death := rosetta_g_miss_date_in_map(p0_a24);
1622     ddp_person_rec.gender := p0_a25;
1623     ddp_person_rec.declared_ethnicity := p0_a26;
1624     ddp_person_rec.marital_status := p0_a27;
1625     ddp_person_rec.marital_status_effective_date := rosetta_g_miss_date_in_map(p0_a28);
1626     ddp_person_rec.personal_income := p0_a29;
1627     ddp_person_rec.head_of_household_flag := p0_a30;
1628     ddp_person_rec.household_income := p0_a31;
1629     ddp_person_rec.household_size := p0_a32;
1630     ddp_person_rec.rent_own_ind := p0_a33;
1631     ddp_person_rec.last_known_gps := p0_a34;
1632     ddp_person_rec.content_source_type := p0_a35;
1633     ddp_person_rec.internal_flag := p0_a36;
1634     ddp_person_rec.attribute_category := p0_a37;
1635     ddp_person_rec.attribute1 := p0_a38;
1636     ddp_person_rec.attribute2 := p0_a39;
1637     ddp_person_rec.attribute3 := p0_a40;
1638     ddp_person_rec.attribute4 := p0_a41;
1639     ddp_person_rec.attribute5 := p0_a42;
1640     ddp_person_rec.attribute6 := p0_a43;
1641     ddp_person_rec.attribute7 := p0_a44;
1642     ddp_person_rec.attribute8 := p0_a45;
1643     ddp_person_rec.attribute9 := p0_a46;
1644     ddp_person_rec.attribute10 := p0_a47;
1645     ddp_person_rec.attribute11 := p0_a48;
1646     ddp_person_rec.attribute12 := p0_a49;
1647     ddp_person_rec.attribute13 := p0_a50;
1648     ddp_person_rec.attribute14 := p0_a51;
1649     ddp_person_rec.attribute15 := p0_a52;
1650     ddp_person_rec.attribute16 := p0_a53;
1651     ddp_person_rec.attribute17 := p0_a54;
1652     ddp_person_rec.attribute18 := p0_a55;
1653     ddp_person_rec.attribute19 := p0_a56;
1654     ddp_person_rec.attribute20 := p0_a57;
1655     ddp_person_rec.created_by_module := p0_a58;
1656     ddp_person_rec.application_id := p0_a59;
1657     ddp_person_rec.actual_content_source := p0_a60;
1658     ddp_person_rec.party_rec.party_id := p0_a61;
1659     ddp_person_rec.party_rec.party_number := p0_a62;
1660     ddp_person_rec.party_rec.validated_flag := p0_a63;
1661     ddp_person_rec.party_rec.orig_system_reference := p0_a64;
1662     ddp_person_rec.party_rec.status := p0_a65;
1663     ddp_person_rec.party_rec.category_code := p0_a66;
1664     ddp_person_rec.party_rec.salutation := p0_a67;
1665     ddp_person_rec.party_rec.attribute_category := p0_a68;
1666     ddp_person_rec.party_rec.attribute1 := p0_a69;
1667     ddp_person_rec.party_rec.attribute2 := p0_a70;
1668     ddp_person_rec.party_rec.attribute3 := p0_a71;
1669     ddp_person_rec.party_rec.attribute4 := p0_a72;
1670     ddp_person_rec.party_rec.attribute5 := p0_a73;
1671     ddp_person_rec.party_rec.attribute6 := p0_a74;
1672     ddp_person_rec.party_rec.attribute7 := p0_a75;
1673     ddp_person_rec.party_rec.attribute8 := p0_a76;
1674     ddp_person_rec.party_rec.attribute9 := p0_a77;
1675     ddp_person_rec.party_rec.attribute10 := p0_a78;
1676     ddp_person_rec.party_rec.attribute11 := p0_a79;
1677     ddp_person_rec.party_rec.attribute12 := p0_a80;
1678     ddp_person_rec.party_rec.attribute13 := p0_a81;
1679     ddp_person_rec.party_rec.attribute14 := p0_a82;
1680     ddp_person_rec.party_rec.attribute15 := p0_a83;
1681     ddp_person_rec.party_rec.attribute16 := p0_a84;
1682     ddp_person_rec.party_rec.attribute17 := p0_a85;
1683     ddp_person_rec.party_rec.attribute18 := p0_a86;
1684     ddp_person_rec.party_rec.attribute19 := p0_a87;
1685     ddp_person_rec.party_rec.attribute20 := p0_a88;
1686     ddp_person_rec.party_rec.attribute21 := p0_a89;
1687     ddp_person_rec.party_rec.attribute22 := p0_a90;
1688     ddp_person_rec.party_rec.attribute23 := p0_a91;
1689     ddp_person_rec.party_rec.attribute24 := p0_a92;
1690 
1691     ddp_email_rec.email_format := p1_a0;
1692     ddp_email_rec.email_address := p1_a1;
1693 
1694     ddp_work_phone_rec.phone_calling_calendar := p2_a0;
1695     ddp_work_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
1696     ddp_work_phone_rec.timezone_id := p2_a2;
1697     ddp_work_phone_rec.phone_area_code := p2_a3;
1698     ddp_work_phone_rec.phone_country_code := p2_a4;
1699     ddp_work_phone_rec.phone_number := p2_a5;
1700     ddp_work_phone_rec.phone_extension := p2_a6;
1701     ddp_work_phone_rec.phone_line_type := p2_a7;
1702     ddp_work_phone_rec.raw_phone_number := p2_a8;
1703 
1704     ddp_home_phone_rec.phone_calling_calendar := p3_a0;
1705     ddp_home_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p3_a1);
1706     ddp_home_phone_rec.timezone_id := p3_a2;
1707     ddp_home_phone_rec.phone_area_code := p3_a3;
1708     ddp_home_phone_rec.phone_country_code := p3_a4;
1709     ddp_home_phone_rec.phone_number := p3_a5;
1710     ddp_home_phone_rec.phone_extension := p3_a6;
1711     ddp_home_phone_rec.phone_line_type := p3_a7;
1712     ddp_home_phone_rec.raw_phone_number := p3_a8;
1713 
1714     ddp_fax_rec.phone_calling_calendar := p4_a0;
1715     ddp_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p4_a1);
1716     ddp_fax_rec.timezone_id := p4_a2;
1717     ddp_fax_rec.phone_area_code := p4_a3;
1718     ddp_fax_rec.phone_country_code := p4_a4;
1719     ddp_fax_rec.phone_number := p4_a5;
1720     ddp_fax_rec.phone_extension := p4_a6;
1721     ddp_fax_rec.phone_line_type := p4_a7;
1722     ddp_fax_rec.raw_phone_number := p4_a8;
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731     -- here's the delegated call to the old PL/SQL routine
1732     ibe_party_v2pvt.create_person(ddp_person_rec,
1733       ddp_email_rec,
1734       ddp_work_phone_rec,
1735       ddp_home_phone_rec,
1736       ddp_fax_rec,
1737       p_created_by_module,
1738       p_account,
1739       x_person_party_id,
1740       x_account_id,
1741       x_return_status,
1742       x_msg_count,
1743       x_msg_data);
1744 
1745     -- copy data back from the local variables to OUT or IN-OUT args, if any
1746 
1747 
1748 
1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757   end;
1758 
1759   procedure create_organization(p0_a0  VARCHAR2
1760     , p0_a1  VARCHAR2
1761     , p0_a2  VARCHAR2
1762     , p0_a3  VARCHAR2
1763     , p0_a4  VARCHAR2
1764     , p0_a5  VARCHAR2
1765     , p0_a6  VARCHAR2
1766     , p0_a7  VARCHAR2
1767     , p0_a8  NUMBER
1768     , p0_a9  NUMBER
1769     , p0_a10  VARCHAR2
1770     , p0_a11  VARCHAR2
1771     , p0_a12  VARCHAR2
1772     , p0_a13  VARCHAR2
1773     , p0_a14  VARCHAR2
1774     , p0_a15  VARCHAR2
1775     , p0_a16  VARCHAR2
1776     , p0_a17  VARCHAR2
1777     , p0_a18  VARCHAR2
1778     , p0_a19  VARCHAR2
1779     , p0_a20  VARCHAR2
1780     , p0_a21  VARCHAR2
1781     , p0_a22  VARCHAR2
1782     , p0_a23  VARCHAR2
1783     , p0_a24  VARCHAR2
1784     , p0_a25  VARCHAR2
1785     , p0_a26  NUMBER
1786     , p0_a27  DATE
1787     , p0_a28  VARCHAR2
1788     , p0_a29  NUMBER
1789     , p0_a30  VARCHAR2
1790     , p0_a31  VARCHAR2
1791     , p0_a32  VARCHAR2
1792     , p0_a33  VARCHAR2
1793     , p0_a34  VARCHAR2
1794     , p0_a35  VARCHAR2
1795     , p0_a36  VARCHAR2
1796     , p0_a37  VARCHAR2
1797     , p0_a38  VARCHAR2
1798     , p0_a39  DATE
1799     , p0_a40  DATE
1800     , p0_a41  VARCHAR2
1801     , p0_a42  VARCHAR2
1802     , p0_a43  VARCHAR2
1803     , p0_a44  VARCHAR2
1804     , p0_a45  VARCHAR2
1805     , p0_a46  VARCHAR2
1806     , p0_a47  NUMBER
1807     , p0_a48  NUMBER
1808     , p0_a49  NUMBER
1809     , p0_a50  VARCHAR2
1810     , p0_a51  VARCHAR2
1811     , p0_a52  VARCHAR2
1812     , p0_a53  VARCHAR2
1813     , p0_a54  VARCHAR2
1814     , p0_a55  VARCHAR2
1815     , p0_a56  VARCHAR2
1816     , p0_a57  VARCHAR2
1817     , p0_a58  VARCHAR2
1818     , p0_a59  VARCHAR2
1819     , p0_a60  VARCHAR2
1820     , p0_a61  VARCHAR2
1821     , p0_a62  VARCHAR2
1822     , p0_a63  VARCHAR2
1823     , p0_a64  VARCHAR2
1824     , p0_a65  VARCHAR2
1825     , p0_a66  VARCHAR2
1826     , p0_a67  VARCHAR2
1827     , p0_a68  NUMBER
1828     , p0_a69  VARCHAR2
1829     , p0_a70  VARCHAR2
1830     , p0_a71  VARCHAR2
1831     , p0_a72  VARCHAR2
1832     , p0_a73  VARCHAR2
1833     , p0_a74  VARCHAR2
1834     , p0_a75  VARCHAR2
1835     , p0_a76  VARCHAR2
1836     , p0_a77  VARCHAR2
1837     , p0_a78  NUMBER
1838     , p0_a79  NUMBER
1839     , p0_a80  NUMBER
1840     , p0_a81  NUMBER
1841     , p0_a82  NUMBER
1842     , p0_a83  NUMBER
1843     , p0_a84  NUMBER
1844     , p0_a85  DATE
1845     , p0_a86  VARCHAR2
1846     , p0_a87  VARCHAR2
1847     , p0_a88  VARCHAR2
1848     , p0_a89  VARCHAR2
1849     , p0_a90  VARCHAR2
1850     , p0_a91  VARCHAR2
1851     , p0_a92  VARCHAR2
1852     , p0_a93  VARCHAR2
1853     , p0_a94  VARCHAR2
1854     , p0_a95  NUMBER
1855     , p0_a96  NUMBER
1856     , p0_a97  NUMBER
1857     , p0_a98  DATE
1858     , p0_a99  VARCHAR2
1859     , p0_a100  VARCHAR2
1860     , p0_a101  VARCHAR2
1861     , p0_a102  VARCHAR2
1862     , p0_a103  VARCHAR2
1863     , p0_a104  VARCHAR2
1864     , p0_a105  VARCHAR2
1865     , p0_a106  VARCHAR2
1866     , p0_a107  VARCHAR2
1867     , p0_a108  NUMBER
1868     , p0_a109  VARCHAR2
1869     , p0_a110  NUMBER
1870     , p0_a111  VARCHAR2
1871     , p0_a112  VARCHAR2
1872     , p0_a113  VARCHAR2
1873     , p0_a114  VARCHAR2
1874     , p0_a115  VARCHAR2
1875     , p0_a116  VARCHAR2
1876     , p0_a117  VARCHAR2
1877     , p0_a118  VARCHAR2
1878     , p0_a119  VARCHAR2
1879     , p0_a120  VARCHAR2
1880     , p0_a121  VARCHAR2
1881     , p0_a122  VARCHAR2
1882     , p0_a123  VARCHAR2
1883     , p0_a124  VARCHAR2
1884     , p0_a125  VARCHAR2
1885     , p0_a126  VARCHAR2
1886     , p0_a127  VARCHAR2
1887     , p0_a128  VARCHAR2
1888     , p0_a129  VARCHAR2
1889     , p0_a130  VARCHAR2
1890     , p0_a131  VARCHAR2
1891     , p0_a132  VARCHAR2
1892     , p0_a133  VARCHAR2
1893     , p0_a134  VARCHAR2
1894     , p0_a135  NUMBER
1895     , p0_a136  VARCHAR2
1896     , p0_a137  VARCHAR2
1897     , p0_a138  NUMBER
1898     , p0_a139  VARCHAR2
1899     , p0_a140  VARCHAR2
1900     , p0_a141  VARCHAR2
1901     , p0_a142  VARCHAR2
1902     , p0_a143  VARCHAR2
1903     , p0_a144  VARCHAR2
1904     , p0_a145  VARCHAR2
1905     , p0_a146  VARCHAR2
1906     , p0_a147  VARCHAR2
1907     , p0_a148  VARCHAR2
1908     , p0_a149  VARCHAR2
1909     , p0_a150  VARCHAR2
1910     , p0_a151  VARCHAR2
1911     , p0_a152  VARCHAR2
1912     , p0_a153  VARCHAR2
1913     , p0_a154  VARCHAR2
1914     , p0_a155  VARCHAR2
1915     , p0_a156  VARCHAR2
1916     , p0_a157  VARCHAR2
1917     , p0_a158  VARCHAR2
1918     , p0_a159  VARCHAR2
1919     , p0_a160  VARCHAR2
1920     , p0_a161  VARCHAR2
1921     , p0_a162  VARCHAR2
1922     , p0_a163  VARCHAR2
1923     , p0_a164  VARCHAR2
1924     , p0_a165  VARCHAR2
1925     , p0_a166  VARCHAR2
1926     , p0_a167  VARCHAR2
1927     , p0_a168  VARCHAR2
1928     , p0_a169  VARCHAR2
1929     , p1_a0  VARCHAR2
1930     , p1_a1  DATE
1931     , p1_a2  NUMBER
1932     , p1_a3  VARCHAR2
1933     , p1_a4  VARCHAR2
1934     , p1_a5  VARCHAR2
1935     , p1_a6  VARCHAR2
1936     , p1_a7  VARCHAR2
1937     , p1_a8  VARCHAR2
1938     , p2_a0  VARCHAR2
1939     , p2_a1  DATE
1940     , p2_a2  NUMBER
1941     , p2_a3  VARCHAR2
1942     , p2_a4  VARCHAR2
1943     , p2_a5  VARCHAR2
1944     , p2_a6  VARCHAR2
1945     , p2_a7  VARCHAR2
1946     , p2_a8  VARCHAR2
1947     , p3_a0  NUMBER
1948     , p3_a1  VARCHAR2
1949     , p3_a2  VARCHAR2
1950     , p3_a3  VARCHAR2
1951     , p3_a4  VARCHAR2
1952     , p3_a5  VARCHAR2
1953     , p3_a6  VARCHAR2
1954     , p3_a7  VARCHAR2
1955     , p3_a8  VARCHAR2
1956     , p3_a9  VARCHAR2
1957     , p3_a10  VARCHAR2
1958     , p3_a11  VARCHAR2
1959     , p3_a12  VARCHAR2
1960     , p3_a13  VARCHAR2
1961     , p3_a14  VARCHAR2
1962     , p3_a15  VARCHAR2
1963     , p3_a16  VARCHAR2
1964     , p3_a17  VARCHAR2
1965     , p3_a18  VARCHAR2
1966     , p3_a19  VARCHAR2
1967     , p3_a20  VARCHAR2
1968     , p3_a21  VARCHAR2
1969     , p3_a22  VARCHAR2
1970     , p3_a23  VARCHAR2
1971     , p3_a24  VARCHAR2
1972     , p3_a25  VARCHAR2
1973     , p3_a26  DATE
1974     , p3_a27  VARCHAR2
1975     , p3_a28  VARCHAR2
1976     , p3_a29  VARCHAR2
1977     , p3_a30  VARCHAR2
1978     , p3_a31  NUMBER
1979     , p3_a32  VARCHAR2
1980     , p3_a33  VARCHAR2
1981     , p3_a34  NUMBER
1982     , p3_a35  VARCHAR2
1983     , p3_a36  VARCHAR2
1984     , p3_a37  VARCHAR2
1985     , p3_a38  VARCHAR2
1986     , p3_a39  VARCHAR2
1987     , p3_a40  VARCHAR2
1988     , p3_a41  VARCHAR2
1989     , p3_a42  VARCHAR2
1990     , p3_a43  VARCHAR2
1991     , p3_a44  VARCHAR2
1992     , p3_a45  VARCHAR2
1993     , p3_a46  VARCHAR2
1994     , p3_a47  VARCHAR2
1995     , p3_a48  VARCHAR2
1996     , p3_a49  VARCHAR2
1997     , p3_a50  VARCHAR2
1998     , p3_a51  VARCHAR2
1999     , p3_a52  VARCHAR2
2000     , p3_a53  VARCHAR2
2001     , p3_a54  VARCHAR2
2002     , p3_a55  VARCHAR2
2003     , p3_a56  VARCHAR2
2004     , p3_a57  NUMBER
2005     , p3_a58  VARCHAR2
2006     , p3_a59  NUMBER
2007     , p3_a60  VARCHAR2
2008     , p4_a0  NUMBER
2009     , p4_a1  NUMBER
2010     , p4_a2  NUMBER
2011     , p4_a3  VARCHAR2
2012     , p4_a4  VARCHAR2
2013     , p4_a5  VARCHAR2
2014     , p4_a6  VARCHAR2
2015     , p4_a7  VARCHAR2
2016     , p4_a8  VARCHAR2
2017     , p4_a9  VARCHAR2
2018     , p4_a10  VARCHAR2
2019     , p4_a11  VARCHAR2
2020     , p4_a12  VARCHAR2
2021     , p4_a13  VARCHAR2
2022     , p4_a14  VARCHAR2
2023     , p4_a15  VARCHAR2
2024     , p4_a16  VARCHAR2
2025     , p4_a17  VARCHAR2
2026     , p4_a18  VARCHAR2
2027     , p4_a19  VARCHAR2
2028     , p4_a20  VARCHAR2
2029     , p4_a21  VARCHAR2
2030     , p4_a22  VARCHAR2
2031     , p4_a23  VARCHAR2
2032     , p4_a24  VARCHAR2
2033     , p4_a25  VARCHAR2
2034     , p4_a26  VARCHAR2
2035     , p4_a27  VARCHAR2
2036     , p4_a28  VARCHAR2
2037     , p4_a29  VARCHAR2
2038     , p4_a30  VARCHAR2
2039     , p4_a31  VARCHAR2
2040     , p4_a32  VARCHAR2
2041     , p4_a33  NUMBER
2042     , p_primary_billto  VARCHAR2
2043     , p_primary_shipto  VARCHAR2
2044     , p_billto  VARCHAR2
2045     , p_shipto  VARCHAR2
2046     , p_default_primary  VARCHAR2
2047     , p_created_by_module  VARCHAR2
2048     , p_account  VARCHAR2
2049     , x_org_party_id out nocopy  NUMBER
2050     , x_account_id out nocopy  NUMBER
2051     , x_party_site_id out nocopy  NUMBER
2052     , x_return_status out nocopy  VARCHAR2
2053     , x_msg_count out nocopy  NUMBER
2054     , x_msg_data out nocopy  VARCHAR2
2055   )
2056 
2057   as
2058     ddp_organization_rec hz_party_v2pub.organization_rec_type;
2059     ddp_org_workphone_rec hz_contact_point_v2pub.phone_rec_type;
2060     ddp_org_fax_rec hz_contact_point_v2pub.phone_rec_type;
2061     ddp_location_rec hz_location_v2pub.location_rec_type;
2062     ddp_party_site_rec hz_party_site_v2pub.party_site_rec_type;
2063     ddindx binary_integer; indx binary_integer;
2064   begin
2065 
2066     -- copy data to the local IN or IN-OUT args, if any
2067     ddp_organization_rec.organization_name := p0_a0;
2068     ddp_organization_rec.duns_number_c := p0_a1;
2069     ddp_organization_rec.enquiry_duns := p0_a2;
2070     ddp_organization_rec.ceo_name := p0_a3;
2071     ddp_organization_rec.ceo_title := p0_a4;
2072     ddp_organization_rec.principal_name := p0_a5;
2073     ddp_organization_rec.principal_title := p0_a6;
2074     ddp_organization_rec.legal_status := p0_a7;
2075     ddp_organization_rec.control_yr := p0_a8;
2076     ddp_organization_rec.employees_total := p0_a9;
2077     ddp_organization_rec.hq_branch_ind := p0_a10;
2078     ddp_organization_rec.branch_flag := p0_a11;
2079     ddp_organization_rec.oob_ind := p0_a12;
2080     ddp_organization_rec.line_of_business := p0_a13;
2081     ddp_organization_rec.cong_dist_code := p0_a14;
2082     ddp_organization_rec.sic_code := p0_a15;
2083     ddp_organization_rec.import_ind := p0_a16;
2084     ddp_organization_rec.export_ind := p0_a17;
2085     ddp_organization_rec.labor_surplus_ind := p0_a18;
2086     ddp_organization_rec.debarment_ind := p0_a19;
2087     ddp_organization_rec.minority_owned_ind := p0_a20;
2088     ddp_organization_rec.minority_owned_type := p0_a21;
2089     ddp_organization_rec.woman_owned_ind := p0_a22;
2090     ddp_organization_rec.disadv_8a_ind := p0_a23;
2091     ddp_organization_rec.small_bus_ind := p0_a24;
2092     ddp_organization_rec.rent_own_ind := p0_a25;
2093     ddp_organization_rec.debarments_count := p0_a26;
2094     ddp_organization_rec.debarments_date := rosetta_g_miss_date_in_map(p0_a27);
2095     ddp_organization_rec.failure_score := p0_a28;
2096     ddp_organization_rec.failure_score_natnl_percentile := p0_a29;
2097     ddp_organization_rec.failure_score_override_code := p0_a30;
2098     ddp_organization_rec.failure_score_commentary := p0_a31;
2099     ddp_organization_rec.global_failure_score := p0_a32;
2100     ddp_organization_rec.db_rating := p0_a33;
2101     ddp_organization_rec.credit_score := p0_a34;
2102     ddp_organization_rec.credit_score_commentary := p0_a35;
2103     ddp_organization_rec.paydex_score := p0_a36;
2104     ddp_organization_rec.paydex_three_months_ago := p0_a37;
2105     ddp_organization_rec.paydex_norm := p0_a38;
2106     ddp_organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p0_a39);
2107     ddp_organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p0_a40);
2108     ddp_organization_rec.organization_name_phonetic := p0_a41;
2109     ddp_organization_rec.tax_reference := p0_a42;
2110     ddp_organization_rec.gsa_indicator_flag := p0_a43;
2111     ddp_organization_rec.jgzz_fiscal_code := p0_a44;
2112     ddp_organization_rec.analysis_fy := p0_a45;
2113     ddp_organization_rec.fiscal_yearend_month := p0_a46;
2114     ddp_organization_rec.curr_fy_potential_revenue := p0_a47;
2115     ddp_organization_rec.next_fy_potential_revenue := p0_a48;
2116     ddp_organization_rec.year_established := p0_a49;
2117     ddp_organization_rec.mission_statement := p0_a50;
2118     ddp_organization_rec.organization_type := p0_a51;
2119     ddp_organization_rec.business_scope := p0_a52;
2120     ddp_organization_rec.corporation_class := p0_a53;
2121     ddp_organization_rec.known_as := p0_a54;
2122     ddp_organization_rec.known_as2 := p0_a55;
2123     ddp_organization_rec.known_as3 := p0_a56;
2124     ddp_organization_rec.known_as4 := p0_a57;
2125     ddp_organization_rec.known_as5 := p0_a58;
2126     ddp_organization_rec.local_bus_iden_type := p0_a59;
2127     ddp_organization_rec.local_bus_identifier := p0_a60;
2128     ddp_organization_rec.pref_functional_currency := p0_a61;
2129     ddp_organization_rec.registration_type := p0_a62;
2130     ddp_organization_rec.total_employees_text := p0_a63;
2131     ddp_organization_rec.total_employees_ind := p0_a64;
2132     ddp_organization_rec.total_emp_est_ind := p0_a65;
2133     ddp_organization_rec.total_emp_min_ind := p0_a66;
2134     ddp_organization_rec.parent_sub_ind := p0_a67;
2135     ddp_organization_rec.incorp_year := p0_a68;
2136     ddp_organization_rec.sic_code_type := p0_a69;
2137     ddp_organization_rec.public_private_ownership_flag := p0_a70;
2138     ddp_organization_rec.internal_flag := p0_a71;
2139     ddp_organization_rec.local_activity_code_type := p0_a72;
2140     ddp_organization_rec.local_activity_code := p0_a73;
2141     ddp_organization_rec.emp_at_primary_adr := p0_a74;
2142     ddp_organization_rec.emp_at_primary_adr_text := p0_a75;
2143     ddp_organization_rec.emp_at_primary_adr_est_ind := p0_a76;
2144     ddp_organization_rec.emp_at_primary_adr_min_ind := p0_a77;
2145     ddp_organization_rec.high_credit := p0_a78;
2146     ddp_organization_rec.avg_high_credit := p0_a79;
2147     ddp_organization_rec.total_payments := p0_a80;
2148     ddp_organization_rec.credit_score_class := p0_a81;
2149     ddp_organization_rec.credit_score_natl_percentile := p0_a82;
2150     ddp_organization_rec.credit_score_incd_default := p0_a83;
2151     ddp_organization_rec.credit_score_age := p0_a84;
2152     ddp_organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p0_a85);
2153     ddp_organization_rec.credit_score_commentary2 := p0_a86;
2154     ddp_organization_rec.credit_score_commentary3 := p0_a87;
2155     ddp_organization_rec.credit_score_commentary4 := p0_a88;
2156     ddp_organization_rec.credit_score_commentary5 := p0_a89;
2157     ddp_organization_rec.credit_score_commentary6 := p0_a90;
2158     ddp_organization_rec.credit_score_commentary7 := p0_a91;
2159     ddp_organization_rec.credit_score_commentary8 := p0_a92;
2160     ddp_organization_rec.credit_score_commentary9 := p0_a93;
2161     ddp_organization_rec.credit_score_commentary10 := p0_a94;
2162     ddp_organization_rec.failure_score_class := p0_a95;
2163     ddp_organization_rec.failure_score_incd_default := p0_a96;
2164     ddp_organization_rec.failure_score_age := p0_a97;
2165     ddp_organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p0_a98);
2166     ddp_organization_rec.failure_score_commentary2 := p0_a99;
2167     ddp_organization_rec.failure_score_commentary3 := p0_a100;
2168     ddp_organization_rec.failure_score_commentary4 := p0_a101;
2169     ddp_organization_rec.failure_score_commentary5 := p0_a102;
2170     ddp_organization_rec.failure_score_commentary6 := p0_a103;
2171     ddp_organization_rec.failure_score_commentary7 := p0_a104;
2172     ddp_organization_rec.failure_score_commentary8 := p0_a105;
2173     ddp_organization_rec.failure_score_commentary9 := p0_a106;
2174     ddp_organization_rec.failure_score_commentary10 := p0_a107;
2175     ddp_organization_rec.maximum_credit_recommendation := p0_a108;
2176     ddp_organization_rec.maximum_credit_currency_code := p0_a109;
2177     ddp_organization_rec.displayed_duns_party_id := p0_a110;
2178     ddp_organization_rec.content_source_type := p0_a111;
2179     ddp_organization_rec.content_source_number := p0_a112;
2180     ddp_organization_rec.attribute_category := p0_a113;
2181     ddp_organization_rec.attribute1 := p0_a114;
2182     ddp_organization_rec.attribute2 := p0_a115;
2183     ddp_organization_rec.attribute3 := p0_a116;
2184     ddp_organization_rec.attribute4 := p0_a117;
2185     ddp_organization_rec.attribute5 := p0_a118;
2186     ddp_organization_rec.attribute6 := p0_a119;
2187     ddp_organization_rec.attribute7 := p0_a120;
2188     ddp_organization_rec.attribute8 := p0_a121;
2189     ddp_organization_rec.attribute9 := p0_a122;
2190     ddp_organization_rec.attribute10 := p0_a123;
2191     ddp_organization_rec.attribute11 := p0_a124;
2192     ddp_organization_rec.attribute12 := p0_a125;
2193     ddp_organization_rec.attribute13 := p0_a126;
2194     ddp_organization_rec.attribute14 := p0_a127;
2195     ddp_organization_rec.attribute15 := p0_a128;
2196     ddp_organization_rec.attribute16 := p0_a129;
2197     ddp_organization_rec.attribute17 := p0_a130;
2198     ddp_organization_rec.attribute18 := p0_a131;
2199     ddp_organization_rec.attribute19 := p0_a132;
2200     ddp_organization_rec.attribute20 := p0_a133;
2201     ddp_organization_rec.created_by_module := p0_a134;
2202     ddp_organization_rec.application_id := p0_a135;
2203     ddp_organization_rec.do_not_confuse_with := p0_a136;
2204     ddp_organization_rec.actual_content_source := p0_a137;
2205     ddp_organization_rec.party_rec.party_id := p0_a138;
2206     ddp_organization_rec.party_rec.party_number := p0_a139;
2207     ddp_organization_rec.party_rec.validated_flag := p0_a140;
2208     ddp_organization_rec.party_rec.orig_system_reference := p0_a141;
2209     ddp_organization_rec.party_rec.status := p0_a142;
2210     ddp_organization_rec.party_rec.category_code := p0_a143;
2211     ddp_organization_rec.party_rec.salutation := p0_a144;
2212     ddp_organization_rec.party_rec.attribute_category := p0_a145;
2213     ddp_organization_rec.party_rec.attribute1 := p0_a146;
2214     ddp_organization_rec.party_rec.attribute2 := p0_a147;
2215     ddp_organization_rec.party_rec.attribute3 := p0_a148;
2216     ddp_organization_rec.party_rec.attribute4 := p0_a149;
2217     ddp_organization_rec.party_rec.attribute5 := p0_a150;
2218     ddp_organization_rec.party_rec.attribute6 := p0_a151;
2219     ddp_organization_rec.party_rec.attribute7 := p0_a152;
2220     ddp_organization_rec.party_rec.attribute8 := p0_a153;
2221     ddp_organization_rec.party_rec.attribute9 := p0_a154;
2222     ddp_organization_rec.party_rec.attribute10 := p0_a155;
2223     ddp_organization_rec.party_rec.attribute11 := p0_a156;
2224     ddp_organization_rec.party_rec.attribute12 := p0_a157;
2225     ddp_organization_rec.party_rec.attribute13 := p0_a158;
2226     ddp_organization_rec.party_rec.attribute14 := p0_a159;
2227     ddp_organization_rec.party_rec.attribute15 := p0_a160;
2228     ddp_organization_rec.party_rec.attribute16 := p0_a161;
2229     ddp_organization_rec.party_rec.attribute17 := p0_a162;
2230     ddp_organization_rec.party_rec.attribute18 := p0_a163;
2231     ddp_organization_rec.party_rec.attribute19 := p0_a164;
2232     ddp_organization_rec.party_rec.attribute20 := p0_a165;
2233     ddp_organization_rec.party_rec.attribute21 := p0_a166;
2234     ddp_organization_rec.party_rec.attribute22 := p0_a167;
2235     ddp_organization_rec.party_rec.attribute23 := p0_a168;
2236     ddp_organization_rec.party_rec.attribute24 := p0_a169;
2237 
2238     ddp_org_workphone_rec.phone_calling_calendar := p1_a0;
2239     ddp_org_workphone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p1_a1);
2240     ddp_org_workphone_rec.timezone_id := p1_a2;
2241     ddp_org_workphone_rec.phone_area_code := p1_a3;
2242     ddp_org_workphone_rec.phone_country_code := p1_a4;
2243     ddp_org_workphone_rec.phone_number := p1_a5;
2244     ddp_org_workphone_rec.phone_extension := p1_a6;
2245     ddp_org_workphone_rec.phone_line_type := p1_a7;
2246     ddp_org_workphone_rec.raw_phone_number := p1_a8;
2247 
2248     ddp_org_fax_rec.phone_calling_calendar := p2_a0;
2249     ddp_org_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
2250     ddp_org_fax_rec.timezone_id := p2_a2;
2251     ddp_org_fax_rec.phone_area_code := p2_a3;
2252     ddp_org_fax_rec.phone_country_code := p2_a4;
2253     ddp_org_fax_rec.phone_number := p2_a5;
2254     ddp_org_fax_rec.phone_extension := p2_a6;
2255     ddp_org_fax_rec.phone_line_type := p2_a7;
2256     ddp_org_fax_rec.raw_phone_number := p2_a8;
2257 
2258     ddp_location_rec.location_id := p3_a0;
2259     ddp_location_rec.orig_system_reference := p3_a1;
2260     ddp_location_rec.country := p3_a2;
2261     ddp_location_rec.address1 := p3_a3;
2262     ddp_location_rec.address2 := p3_a4;
2263     ddp_location_rec.address3 := p3_a5;
2264     ddp_location_rec.address4 := p3_a6;
2265     ddp_location_rec.city := p3_a7;
2266     ddp_location_rec.postal_code := p3_a8;
2267     ddp_location_rec.state := p3_a9;
2268     ddp_location_rec.province := p3_a10;
2269     ddp_location_rec.county := p3_a11;
2270     ddp_location_rec.address_key := p3_a12;
2271     ddp_location_rec.address_style := p3_a13;
2272     ddp_location_rec.validated_flag := p3_a14;
2273     ddp_location_rec.address_lines_phonetic := p3_a15;
2274     ddp_location_rec.po_box_number := p3_a16;
2275     ddp_location_rec.house_number := p3_a17;
2276     ddp_location_rec.street_suffix := p3_a18;
2277     ddp_location_rec.street := p3_a19;
2278     ddp_location_rec.street_number := p3_a20;
2279     ddp_location_rec.floor := p3_a21;
2280     ddp_location_rec.suite := p3_a22;
2281     ddp_location_rec.postal_plus4_code := p3_a23;
2282     ddp_location_rec.position := p3_a24;
2283     ddp_location_rec.location_directions := p3_a25;
2284     ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p3_a26);
2285     ddp_location_rec.clli_code := p3_a27;
2286     ddp_location_rec.language := p3_a28;
2287     ddp_location_rec.short_description := p3_a29;
2288     ddp_location_rec.description := p3_a30;
2289     ddp_location_rec.loc_hierarchy_id := p3_a31;
2290     ddp_location_rec.sales_tax_geocode := p3_a32;
2291     ddp_location_rec.sales_tax_inside_city_limits := p3_a33;
2292     ddp_location_rec.fa_location_id := p3_a34;
2293     ddp_location_rec.content_source_type := p3_a35;
2294     ddp_location_rec.attribute_category := p3_a36;
2295     ddp_location_rec.attribute1 := p3_a37;
2296     ddp_location_rec.attribute2 := p3_a38;
2297     ddp_location_rec.attribute3 := p3_a39;
2298     ddp_location_rec.attribute4 := p3_a40;
2299     ddp_location_rec.attribute5 := p3_a41;
2300     ddp_location_rec.attribute6 := p3_a42;
2301     ddp_location_rec.attribute7 := p3_a43;
2302     ddp_location_rec.attribute8 := p3_a44;
2303     ddp_location_rec.attribute9 := p3_a45;
2304     ddp_location_rec.attribute10 := p3_a46;
2305     ddp_location_rec.attribute11 := p3_a47;
2306     ddp_location_rec.attribute12 := p3_a48;
2307     ddp_location_rec.attribute13 := p3_a49;
2308     ddp_location_rec.attribute14 := p3_a50;
2309     ddp_location_rec.attribute15 := p3_a51;
2310     ddp_location_rec.attribute16 := p3_a52;
2311     ddp_location_rec.attribute17 := p3_a53;
2312     ddp_location_rec.attribute18 := p3_a54;
2313     ddp_location_rec.attribute19 := p3_a55;
2314     ddp_location_rec.attribute20 := p3_a56;
2315     ddp_location_rec.timezone_id := p3_a57;
2316     ddp_location_rec.created_by_module := p3_a58;
2317     ddp_location_rec.application_id := p3_a59;
2318     ddp_location_rec.actual_content_source := p3_a60;
2319 
2320     ddp_party_site_rec.party_site_id := p4_a0;
2321     ddp_party_site_rec.party_id := p4_a1;
2322     ddp_party_site_rec.location_id := p4_a2;
2323     ddp_party_site_rec.party_site_number := p4_a3;
2324     ddp_party_site_rec.orig_system_reference := p4_a4;
2325     ddp_party_site_rec.mailstop := p4_a5;
2326     ddp_party_site_rec.identifying_address_flag := p4_a6;
2327     ddp_party_site_rec.status := p4_a7;
2328     ddp_party_site_rec.party_site_name := p4_a8;
2329     ddp_party_site_rec.attribute_category := p4_a9;
2330     ddp_party_site_rec.attribute1 := p4_a10;
2331     ddp_party_site_rec.attribute2 := p4_a11;
2332     ddp_party_site_rec.attribute3 := p4_a12;
2333     ddp_party_site_rec.attribute4 := p4_a13;
2334     ddp_party_site_rec.attribute5 := p4_a14;
2335     ddp_party_site_rec.attribute6 := p4_a15;
2336     ddp_party_site_rec.attribute7 := p4_a16;
2337     ddp_party_site_rec.attribute8 := p4_a17;
2338     ddp_party_site_rec.attribute9 := p4_a18;
2339     ddp_party_site_rec.attribute10 := p4_a19;
2340     ddp_party_site_rec.attribute11 := p4_a20;
2341     ddp_party_site_rec.attribute12 := p4_a21;
2342     ddp_party_site_rec.attribute13 := p4_a22;
2343     ddp_party_site_rec.attribute14 := p4_a23;
2344     ddp_party_site_rec.attribute15 := p4_a24;
2345     ddp_party_site_rec.attribute16 := p4_a25;
2346     ddp_party_site_rec.attribute17 := p4_a26;
2347     ddp_party_site_rec.attribute18 := p4_a27;
2348     ddp_party_site_rec.attribute19 := p4_a28;
2349     ddp_party_site_rec.attribute20 := p4_a29;
2350     ddp_party_site_rec.language := p4_a30;
2351     ddp_party_site_rec.addressee := p4_a31;
2352     ddp_party_site_rec.created_by_module := p4_a32;
2353     ddp_party_site_rec.application_id := p4_a33;
2354 
2355 
2356 
2357 
2358 
2359 
2360 
2361 
2362 
2363     -- here's the delegated call to the old PL/SQL routine
2364     ibe_party_v2pvt.create_organization(ddp_organization_rec,
2365       ddp_org_workphone_rec,
2366       ddp_org_fax_rec,
2367       ddp_location_rec,
2368       ddp_party_site_rec,
2369       p_primary_billto,
2370       p_primary_shipto,
2371       p_billto,
2372       p_shipto,
2373       p_default_primary,
2374       p_created_by_module,
2375       p_account,
2376       x_org_party_id,
2377       x_account_id,
2378       x_party_site_id,
2379       x_return_status,
2380       x_msg_count,
2381       x_msg_data);
2382 
2383     -- copy data back from the local variables to OUT or IN-OUT args, if any
2384 
2385 
2386 
2387 
2388 
2389 
2390 
2391 
2392 
2393 
2394 
2395 
2396   end;
2397 
2398   procedure create_contact_points(p_owner_table_id  NUMBER
2399     , p1_a0  VARCHAR2
2400     , p1_a1  DATE
2401     , p1_a2  NUMBER
2402     , p1_a3  VARCHAR2
2403     , p1_a4  VARCHAR2
2404     , p1_a5  VARCHAR2
2405     , p1_a6  VARCHAR2
2406     , p1_a7  VARCHAR2
2407     , p1_a8  VARCHAR2
2408     , p2_a0  VARCHAR2
2409     , p2_a1  DATE
2410     , p2_a2  NUMBER
2411     , p2_a3  VARCHAR2
2412     , p2_a4  VARCHAR2
2413     , p2_a5  VARCHAR2
2414     , p2_a6  VARCHAR2
2415     , p2_a7  VARCHAR2
2416     , p2_a8  VARCHAR2
2417     , p3_a0  VARCHAR2
2418     , p3_a1  DATE
2419     , p3_a2  NUMBER
2420     , p3_a3  VARCHAR2
2421     , p3_a4  VARCHAR2
2422     , p3_a5  VARCHAR2
2423     , p3_a6  VARCHAR2
2424     , p3_a7  VARCHAR2
2425     , p3_a8  VARCHAR2
2426     , p4_a0  VARCHAR2
2427     , p4_a1  VARCHAR2
2428     , p_contact_point_purpose  number
2429     , p_created_by_module  VARCHAR2
2430     , x_return_status out nocopy  VARCHAR2
2431     , x_msg_count out nocopy  NUMBER
2432     , x_msg_data out nocopy  VARCHAR2
2433   )
2434 
2435   as
2436     ddp_work_phone_rec hz_contact_point_v2pub.phone_rec_type;
2437     ddp_home_phone_rec hz_contact_point_v2pub.phone_rec_type;
2438     ddp_fax_rec hz_contact_point_v2pub.phone_rec_type;
2439     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
2440     ddp_contact_point_purpose boolean;
2441     ddindx binary_integer; indx binary_integer;
2442   begin
2443 
2444     -- copy data to the local IN or IN-OUT args, if any
2445 
2446     ddp_work_phone_rec.phone_calling_calendar := p1_a0;
2447     ddp_work_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p1_a1);
2448     ddp_work_phone_rec.timezone_id := p1_a2;
2449     ddp_work_phone_rec.phone_area_code := p1_a3;
2450     ddp_work_phone_rec.phone_country_code := p1_a4;
2451     ddp_work_phone_rec.phone_number := p1_a5;
2452     ddp_work_phone_rec.phone_extension := p1_a6;
2453     ddp_work_phone_rec.phone_line_type := p1_a7;
2454     ddp_work_phone_rec.raw_phone_number := p1_a8;
2455 
2456     ddp_home_phone_rec.phone_calling_calendar := p2_a0;
2457     ddp_home_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
2458     ddp_home_phone_rec.timezone_id := p2_a2;
2459     ddp_home_phone_rec.phone_area_code := p2_a3;
2460     ddp_home_phone_rec.phone_country_code := p2_a4;
2461     ddp_home_phone_rec.phone_number := p2_a5;
2462     ddp_home_phone_rec.phone_extension := p2_a6;
2463     ddp_home_phone_rec.phone_line_type := p2_a7;
2464     ddp_home_phone_rec.raw_phone_number := p2_a8;
2465 
2466     ddp_fax_rec.phone_calling_calendar := p3_a0;
2467     ddp_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p3_a1);
2468     ddp_fax_rec.timezone_id := p3_a2;
2469     ddp_fax_rec.phone_area_code := p3_a3;
2470     ddp_fax_rec.phone_country_code := p3_a4;
2471     ddp_fax_rec.phone_number := p3_a5;
2472     ddp_fax_rec.phone_extension := p3_a6;
2473     ddp_fax_rec.phone_line_type := p3_a7;
2474     ddp_fax_rec.raw_phone_number := p3_a8;
2475 
2476     ddp_email_rec.email_format := p4_a0;
2477     ddp_email_rec.email_address := p4_a1;
2478 
2479     if p_contact_point_purpose is null
2480       then ddp_contact_point_purpose := null;
2481     elsif p_contact_point_purpose = 0
2482       then ddp_contact_point_purpose := false;
2483     else ddp_contact_point_purpose := true;
2484     end if;
2485 
2486 
2487 
2488 
2489 
2490     -- here's the delegated call to the old PL/SQL routine
2491     ibe_party_v2pvt.create_contact_points(p_owner_table_id,
2492       ddp_work_phone_rec,
2493       ddp_home_phone_rec,
2494       ddp_fax_rec,
2495       ddp_email_rec,
2496       ddp_contact_point_purpose,
2497       p_created_by_module,
2498       x_return_status,
2499       x_msg_count,
2500       x_msg_data);
2501 
2502     -- copy data back from the local variables to OUT or IN-OUT args, if any
2503 
2504 
2505 
2506 
2507 
2508 
2509 
2510 
2511 
2512   end;
2513 
2514   procedure find_organization(x_org_id in out nocopy  NUMBER
2515     , x_org_num in out nocopy  VARCHAR2
2516     , x_org_name in out nocopy  VARCHAR2
2517     , ddrosetta_retval_bool OUT NOCOPY NUMBER
2518   )
2519 
2520   as
2521     ddindx binary_integer; indx binary_integer;
2522     ddrosetta_retval boolean;
2523   begin
2524 
2525     -- copy data to the local IN or IN-OUT args, if any
2526 
2527 
2528 
2529     -- here's the delegated call to the old PL/SQL routine
2530     ddrosetta_retval := ibe_party_v2pvt.find_organization(x_org_id,
2531       x_org_num,
2532       x_org_name);
2533 
2534     -- copy data back from the local variables to OUT or IN-OUT args, if any
2535     if ddrosetta_retval is null
2536       then ddrosetta_retval_bool := null;
2537     elsif ddrosetta_retval
2538       then ddrosetta_retval_bool := 1;
2539     else ddrosetta_retval_bool := 0;
2540     end if;
2541 
2542 
2543   end;
2544 
2545 
2546 procedure Save_Tca_Entities(p1_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2547     , p1_a1  VARCHAR2 := FND_API.G_MISS_CHAR
2548     , p1_a2  VARCHAR2 := FND_API.G_MISS_CHAR
2549     , p1_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2550     , p1_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2551     , p1_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2552     , p1_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2553     , p1_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2554     , p1_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2555     , p1_a9  VARCHAR2 := FND_API.G_MISS_CHAR
2556     , p1_a10  VARCHAR2 := FND_API.G_MISS_CHAR
2557     , p1_a11  VARCHAR2 := FND_API.G_MISS_CHAR
2558     , p1_a12  VARCHAR2 := FND_API.G_MISS_CHAR
2559     , p1_a13  VARCHAR2 := FND_API.G_MISS_CHAR
2560     , p1_a14  VARCHAR2 := FND_API.G_MISS_CHAR
2561     , p1_a15  VARCHAR2 := FND_API.G_MISS_CHAR
2562     , p1_a16  VARCHAR2 := FND_API.G_MISS_CHAR
2563     , p1_a17  VARCHAR2 := FND_API.G_MISS_CHAR
2564     , p1_a18  VARCHAR2 := FND_API.G_MISS_CHAR
2565     , p1_a19  VARCHAR2 := FND_API.G_MISS_CHAR
2566     , p1_a20  VARCHAR2 := FND_API.G_MISS_CHAR
2567     , p1_a21  VARCHAR2 := FND_API.G_MISS_CHAR
2568     , p1_a22  DATE := FND_API.G_MISS_DATE
2569     , p1_a23  VARCHAR2 := FND_API.G_MISS_CHAR
2570     , p1_a24  DATE := FND_API.G_MISS_DATE
2571     , p1_a25  VARCHAR2 := FND_API.G_MISS_CHAR
2572     , p1_a26  VARCHAR2 := FND_API.G_MISS_CHAR
2573     , p1_a27  VARCHAR2 := FND_API.G_MISS_CHAR
2574     , p1_a28  DATE := FND_API.G_MISS_DATE
2575     , p1_a29  NUMBER := FND_API.G_MISS_NUM
2576     , p1_a30  VARCHAR2 := FND_API.G_MISS_CHAR
2577     , p1_a31  NUMBER := FND_API.G_MISS_NUM
2578     , p1_a32  NUMBER := FND_API.G_MISS_NUM
2579     , p1_a33  VARCHAR2 := FND_API.G_MISS_CHAR
2580     , p1_a34  VARCHAR2 := FND_API.G_MISS_CHAR
2581     , p1_a35  VARCHAR2 := FND_API.G_MISS_CHAR
2582     , p1_a36  VARCHAR2 := FND_API.G_MISS_CHAR
2583     , p1_a37  VARCHAR2 := FND_API.G_MISS_CHAR
2584     , p1_a38  VARCHAR2 := FND_API.G_MISS_CHAR
2585     , p1_a39  VARCHAR2 := FND_API.G_MISS_CHAR
2586     , p1_a40  VARCHAR2 := FND_API.G_MISS_CHAR
2587     , p1_a41  VARCHAR2 := FND_API.G_MISS_CHAR
2588     , p1_a42  VARCHAR2 := FND_API.G_MISS_CHAR
2589     , p1_a43  VARCHAR2 := FND_API.G_MISS_CHAR
2590     , p1_a44  VARCHAR2 := FND_API.G_MISS_CHAR
2591     , p1_a45  VARCHAR2 := FND_API.G_MISS_CHAR
2592     , p1_a46  VARCHAR2 := FND_API.G_MISS_CHAR
2593     , p1_a47  VARCHAR2 := FND_API.G_MISS_CHAR
2594     , p1_a48  VARCHAR2 := FND_API.G_MISS_CHAR
2595     , p1_a49  VARCHAR2 := FND_API.G_MISS_CHAR
2596     , p1_a50  VARCHAR2 := FND_API.G_MISS_CHAR
2597     , p1_a51  VARCHAR2 := FND_API.G_MISS_CHAR
2598     , p1_a52  VARCHAR2 := FND_API.G_MISS_CHAR
2599     , p1_a53  VARCHAR2 := FND_API.G_MISS_CHAR
2600     , p1_a54  VARCHAR2 := FND_API.G_MISS_CHAR
2601     , p1_a55  VARCHAR2 := FND_API.G_MISS_CHAR
2602     , p1_a56  VARCHAR2 := FND_API.G_MISS_CHAR
2603     , p1_a57  VARCHAR2 := FND_API.G_MISS_CHAR
2604     , p1_a58  VARCHAR2 := FND_API.G_MISS_CHAR
2605     , p1_a59  NUMBER := FND_API.G_MISS_NUM
2606     , p1_a60  VARCHAR2 := FND_API.G_MISS_CHAR
2607     , p1_a61  NUMBER := FND_API.G_MISS_NUM
2608     , p1_a62  VARCHAR2 := FND_API.G_MISS_CHAR
2609     , p1_a63  VARCHAR2 := FND_API.G_MISS_CHAR
2610     , p1_a64  VARCHAR2 := FND_API.G_MISS_CHAR
2611     , p1_a65  VARCHAR2 := FND_API.G_MISS_CHAR
2612     , p1_a66  VARCHAR2 := FND_API.G_MISS_CHAR
2613     , p1_a67  VARCHAR2 := FND_API.G_MISS_CHAR
2614     , p1_a68  VARCHAR2 := FND_API.G_MISS_CHAR
2615     , p1_a69  VARCHAR2 := FND_API.G_MISS_CHAR
2616     , p1_a70  VARCHAR2 := FND_API.G_MISS_CHAR
2617     , p1_a71  VARCHAR2 := FND_API.G_MISS_CHAR
2618     , p1_a72  VARCHAR2 := FND_API.G_MISS_CHAR
2619     , p1_a73  VARCHAR2 := FND_API.G_MISS_CHAR
2620     , p1_a74  VARCHAR2 := FND_API.G_MISS_CHAR
2621     , p1_a75  VARCHAR2 := FND_API.G_MISS_CHAR
2622     , p1_a76  VARCHAR2 := FND_API.G_MISS_CHAR
2623     , p1_a77  VARCHAR2 := FND_API.G_MISS_CHAR
2624     , p1_a78  VARCHAR2 := FND_API.G_MISS_CHAR
2625     , p1_a79  VARCHAR2 := FND_API.G_MISS_CHAR
2626     , p1_a80  VARCHAR2 := FND_API.G_MISS_CHAR
2627     , p1_a81  VARCHAR2 := FND_API.G_MISS_CHAR
2628     , p1_a82  VARCHAR2 := FND_API.G_MISS_CHAR
2629     , p1_a83  VARCHAR2 := FND_API.G_MISS_CHAR
2630     , p1_a84  VARCHAR2 := FND_API.G_MISS_CHAR
2631     , p1_a85  VARCHAR2 := FND_API.G_MISS_CHAR
2632     , p1_a86  VARCHAR2 := FND_API.G_MISS_CHAR
2633     , p1_a87  VARCHAR2 := FND_API.G_MISS_CHAR
2634     , p1_a88  VARCHAR2 := FND_API.G_MISS_CHAR
2635     , p1_a89  VARCHAR2 := FND_API.G_MISS_CHAR
2636     , p1_a90  VARCHAR2 := FND_API.G_MISS_CHAR
2637     , p1_a91  VARCHAR2 := FND_API.G_MISS_CHAR
2638     , p1_a92  VARCHAR2 := FND_API.G_MISS_CHAR
2639     , p_person_object_version_number NUMBER := FND_API.G_MISS_NUM
2640     , p_email_contact_point_id NUMBER := FND_API.G_MISS_NUM
2641     , p2_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2642     , p2_a1  VARCHAR2 := FND_API.G_MISS_CHAR
2643     , p_email_object_version_number NUMBER := FND_API.G_MISS_NUM
2644     , p_workph_contact_point_id NUMBER := FND_API.G_MISS_NUM
2645     , p3_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2646     , p3_a1  DATE := FND_API.G_MISS_DATE
2647     , p3_a2  NUMBER := FND_API.G_MISS_NUM
2648     , p3_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2649     , p3_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2650     , p3_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2651     , p3_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2652     , p3_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2653     , p3_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2654     , p_workph_object_version_number NUMBER := FND_API.G_MISS_NUM
2655     , p_homeph_contact_point_id NUMBER := FND_API.G_MISS_NUM
2656     , p4_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2657     , p4_a1  DATE := FND_API.G_MISS_DATE
2658     , p4_a2  NUMBER := FND_API.G_MISS_NUM
2659     , p4_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2660     , p4_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2661     , p4_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2662     , p4_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2663     , p4_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2664     , p4_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2665     , p_homeph_object_version_number NUMBER := FND_API.G_MISS_NUM
2666     , p_fax_contact_point_id NUMBER := FND_API.G_MISS_NUM
2667     , p5_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2668     , p5_a1  DATE := FND_API.G_MISS_DATE
2669     , p5_a2  NUMBER := FND_API.G_MISS_NUM
2670     , p5_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2671     , p5_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2672     , p5_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2673     , p5_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2674     , p5_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2675     , p5_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2676     , p_fax_object_version_number NUMBER := FND_API.G_MISS_NUM
2677     , p_contact_preference_id     NUMBER := FND_API.G_MISS_NUM
2678     , p_contact_preference        VARCHAR2 := FND_API.G_MISS_CHAR
2679     , p_cntct_pref_object_ver_num NUMBER := FND_API.G_MISS_NUM
2680     , p_cntct_level_table_id      NUMBER := FND_API.G_MISS_NUM
2681     , p_cntct_level_table_name    VARCHAR2 := FND_API.G_MISS_CHAR
2682     , p6_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2683     , p6_a1  VARCHAR2 := FND_API.G_MISS_CHAR
2684     , p6_a2  VARCHAR2 := FND_API.G_MISS_CHAR
2685     , p6_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2686     , p6_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2687     , p6_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2688     , p6_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2689     , p6_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2690     , p6_a8  NUMBER := FND_API.G_MISS_NUM
2691     , p6_a9  NUMBER := FND_API.G_MISS_NUM
2692     , p6_a10  VARCHAR2 := FND_API.G_MISS_CHAR
2693     , p6_a11  VARCHAR2 := FND_API.G_MISS_CHAR
2694     , p6_a12  VARCHAR2 := FND_API.G_MISS_CHAR
2695     , p6_a13  VARCHAR2 := FND_API.G_MISS_CHAR
2696     , p6_a14  VARCHAR2 := FND_API.G_MISS_CHAR
2697     , p6_a15  VARCHAR2 := FND_API.G_MISS_CHAR
2698     , p6_a16  VARCHAR2 := FND_API.G_MISS_CHAR
2699     , p6_a17  VARCHAR2 := FND_API.G_MISS_CHAR
2700     , p6_a18  VARCHAR2 := FND_API.G_MISS_CHAR
2701     , p6_a19  VARCHAR2 := FND_API.G_MISS_CHAR
2702     , p6_a20  VARCHAR2 := FND_API.G_MISS_CHAR
2703     , p6_a21  VARCHAR2 := FND_API.G_MISS_CHAR
2704     , p6_a22  VARCHAR2 := FND_API.G_MISS_CHAR
2705     , p6_a23  VARCHAR2 := FND_API.G_MISS_CHAR
2706     , p6_a24  VARCHAR2 := FND_API.G_MISS_CHAR
2707     , p6_a25  VARCHAR2 := FND_API.G_MISS_CHAR
2708     , p6_a26  NUMBER := FND_API.G_MISS_NUM
2709     , p6_a27  DATE := FND_API.G_MISS_DATE
2710     , p6_a28  VARCHAR2 := FND_API.G_MISS_CHAR
2711     , p6_a29  NUMBER := FND_API.G_MISS_NUM
2712     , p6_a30  VARCHAR2 := FND_API.G_MISS_CHAR
2713     , p6_a31  VARCHAR2 := FND_API.G_MISS_CHAR
2714     , p6_a32  VARCHAR2 := FND_API.G_MISS_CHAR
2715     , p6_a33  VARCHAR2 := FND_API.G_MISS_CHAR
2716     , p6_a34  VARCHAR2 := FND_API.G_MISS_CHAR
2717     , p6_a35  VARCHAR2 := FND_API.G_MISS_CHAR
2718     , p6_a36  VARCHAR2 := FND_API.G_MISS_CHAR
2719     , p6_a37  VARCHAR2 := FND_API.G_MISS_CHAR
2720     , p6_a38  VARCHAR2 := FND_API.G_MISS_CHAR
2721     , p6_a39  DATE := FND_API.G_MISS_DATE
2722     , p6_a40  DATE := FND_API.G_MISS_DATE
2723     , p6_a41  VARCHAR2 := FND_API.G_MISS_CHAR
2724     , p6_a42  VARCHAR2 := FND_API.G_MISS_CHAR
2725     , p6_a43  VARCHAR2 := FND_API.G_MISS_CHAR
2726     , p6_a44  VARCHAR2 := FND_API.G_MISS_CHAR
2727     , p6_a45  VARCHAR2 := FND_API.G_MISS_CHAR
2728     , p6_a46  VARCHAR2 := FND_API.G_MISS_CHAR
2729     , p6_a47  NUMBER := FND_API.G_MISS_NUM
2730     , p6_a48  NUMBER := FND_API.G_MISS_NUM
2731     , p6_a49  NUMBER := FND_API.G_MISS_NUM
2732     , p6_a50  VARCHAR2 := FND_API.G_MISS_CHAR
2733     , p6_a51  VARCHAR2 := FND_API.G_MISS_CHAR
2734     , p6_a52  VARCHAR2 := FND_API.G_MISS_CHAR
2735     , p6_a53  VARCHAR2 := FND_API.G_MISS_CHAR
2736     , p6_a54  VARCHAR2 := FND_API.G_MISS_CHAR
2737     , p6_a55  VARCHAR2 := FND_API.G_MISS_CHAR
2738     , p6_a56  VARCHAR2 := FND_API.G_MISS_CHAR
2739     , p6_a57  VARCHAR2 := FND_API.G_MISS_CHAR
2740     , p6_a58  VARCHAR2 := FND_API.G_MISS_CHAR
2741     , p6_a59  VARCHAR2 := FND_API.G_MISS_CHAR
2742     , p6_a60  VARCHAR2 := FND_API.G_MISS_CHAR
2743     , p6_a61  VARCHAR2 := FND_API.G_MISS_CHAR
2744     , p6_a62  VARCHAR2 := FND_API.G_MISS_CHAR
2745     , p6_a63  VARCHAR2 := FND_API.G_MISS_CHAR
2746     , p6_a64  VARCHAR2 := FND_API.G_MISS_CHAR
2747     , p6_a65  VARCHAR2 := FND_API.G_MISS_CHAR
2748     , p6_a66  VARCHAR2 := FND_API.G_MISS_CHAR
2749     , p6_a67  VARCHAR2 := FND_API.G_MISS_CHAR
2750     , p6_a68  NUMBER := FND_API.G_MISS_NUM
2751     , p6_a69  VARCHAR2 := FND_API.G_MISS_CHAR
2752     , p6_a70  VARCHAR2 := FND_API.G_MISS_CHAR
2753     , p6_a71  VARCHAR2 := FND_API.G_MISS_CHAR
2754     , p6_a72  VARCHAR2 := FND_API.G_MISS_CHAR
2755     , p6_a73  VARCHAR2 := FND_API.G_MISS_CHAR
2756     , p6_a74  VARCHAR2 := FND_API.G_MISS_CHAR
2757     , p6_a75  VARCHAR2 := FND_API.G_MISS_CHAR
2758     , p6_a76  VARCHAR2 := FND_API.G_MISS_CHAR
2759     , p6_a77  VARCHAR2 := FND_API.G_MISS_CHAR
2760     , p6_a78  NUMBER := FND_API.G_MISS_NUM
2761     , p6_a79  NUMBER := FND_API.G_MISS_NUM
2762     , p6_a80  NUMBER := FND_API.G_MISS_NUM
2763     , p6_a81  NUMBER := FND_API.G_MISS_NUM
2764     , p6_a82  NUMBER := FND_API.G_MISS_NUM
2765     , p6_a83  NUMBER := FND_API.G_MISS_NUM
2766     , p6_a84  NUMBER := FND_API.G_MISS_NUM
2767     , p6_a85  DATE := FND_API.G_MISS_DATE
2768     , p6_a86  VARCHAR2 := FND_API.G_MISS_CHAR
2769     , p6_a87  VARCHAR2 := FND_API.G_MISS_CHAR
2770     , p6_a88  VARCHAR2 := FND_API.G_MISS_CHAR
2771     , p6_a89  VARCHAR2 := FND_API.G_MISS_CHAR
2772     , p6_a90  VARCHAR2 := FND_API.G_MISS_CHAR
2773     , p6_a91  VARCHAR2 := FND_API.G_MISS_CHAR
2774     , p6_a92  VARCHAR2 := FND_API.G_MISS_CHAR
2775     , p6_a93  VARCHAR2 := FND_API.G_MISS_CHAR
2776     , p6_a94  VARCHAR2 := FND_API.G_MISS_CHAR
2777     , p6_a95  NUMBER := FND_API.G_MISS_NUM
2778     , p6_a96  NUMBER := FND_API.G_MISS_NUM
2779     , p6_a97  NUMBER := FND_API.G_MISS_NUM
2780     , p6_a98  DATE := FND_API.G_MISS_DATE
2781     , p6_a99  VARCHAR2 := FND_API.G_MISS_CHAR
2782     , p6_a100  VARCHAR2 := FND_API.G_MISS_CHAR
2783     , p6_a101  VARCHAR2 := FND_API.G_MISS_CHAR
2784     , p6_a102  VARCHAR2 := FND_API.G_MISS_CHAR
2785     , p6_a103  VARCHAR2 := FND_API.G_MISS_CHAR
2786     , p6_a104  VARCHAR2 := FND_API.G_MISS_CHAR
2787     , p6_a105  VARCHAR2 := FND_API.G_MISS_CHAR
2788     , p6_a106  VARCHAR2 := FND_API.G_MISS_CHAR
2789     , p6_a107  VARCHAR2 := FND_API.G_MISS_CHAR
2790     , p6_a108  NUMBER := FND_API.G_MISS_NUM
2791     , p6_a109  VARCHAR2 := FND_API.G_MISS_CHAR
2792     , p6_a110  NUMBER := FND_API.G_MISS_NUM
2793     , p6_a111  VARCHAR2 := FND_API.G_MISS_CHAR
2794     , p6_a112  VARCHAR2 := FND_API.G_MISS_CHAR
2795     , p6_a113  VARCHAR2 := FND_API.G_MISS_CHAR
2796     , p6_a114  VARCHAR2 := FND_API.G_MISS_CHAR
2797     , p6_a115  VARCHAR2 := FND_API.G_MISS_CHAR
2798     , p6_a116  VARCHAR2 := FND_API.G_MISS_CHAR
2799     , p6_a117  VARCHAR2 := FND_API.G_MISS_CHAR
2800     , p6_a118  VARCHAR2 := FND_API.G_MISS_CHAR
2801     , p6_a119  VARCHAR2 := FND_API.G_MISS_CHAR
2802     , p6_a120  VARCHAR2 := FND_API.G_MISS_CHAR
2803     , p6_a121  VARCHAR2 := FND_API.G_MISS_CHAR
2804     , p6_a122  VARCHAR2 := FND_API.G_MISS_CHAR
2805     , p6_a123  VARCHAR2 := FND_API.G_MISS_CHAR
2806     , p6_a124  VARCHAR2 := FND_API.G_MISS_CHAR
2807     , p6_a125  VARCHAR2 := FND_API.G_MISS_CHAR
2808     , p6_a126  VARCHAR2 := FND_API.G_MISS_CHAR
2809     , p6_a127  VARCHAR2 := FND_API.G_MISS_CHAR
2810     , p6_a128  VARCHAR2 := FND_API.G_MISS_CHAR
2811     , p6_a129  VARCHAR2 := FND_API.G_MISS_CHAR
2812     , p6_a130  VARCHAR2 := FND_API.G_MISS_CHAR
2813     , p6_a131  VARCHAR2 := FND_API.G_MISS_CHAR
2814     , p6_a132  VARCHAR2 := FND_API.G_MISS_CHAR
2815     , p6_a133  VARCHAR2 := FND_API.G_MISS_CHAR
2816     , p6_a134  VARCHAR2 := FND_API.G_MISS_CHAR
2817     , p6_a135  NUMBER := FND_API.G_MISS_NUM
2818     , p6_a136  VARCHAR2 := FND_API.G_MISS_CHAR
2819     , p6_a137  VARCHAR2 := FND_API.G_MISS_CHAR
2820     , p6_a138  NUMBER := FND_API.G_MISS_NUM
2821     , p6_a139  VARCHAR2 := FND_API.G_MISS_CHAR
2822     , p6_a140  VARCHAR2 := FND_API.G_MISS_CHAR
2823     , p6_a141  VARCHAR2 := FND_API.G_MISS_CHAR
2824     , p6_a142  VARCHAR2 := FND_API.G_MISS_CHAR
2825     , p6_a143  VARCHAR2 := FND_API.G_MISS_CHAR
2826     , p6_a144  VARCHAR2 := FND_API.G_MISS_CHAR
2827     , p6_a145  VARCHAR2 := FND_API.G_MISS_CHAR
2828     , p6_a146  VARCHAR2 := FND_API.G_MISS_CHAR
2829     , p6_a147  VARCHAR2 := FND_API.G_MISS_CHAR
2830     , p6_a148  VARCHAR2 := FND_API.G_MISS_CHAR
2831     , p6_a149  VARCHAR2 := FND_API.G_MISS_CHAR
2832     , p6_a150  VARCHAR2 := FND_API.G_MISS_CHAR
2833     , p6_a151  VARCHAR2 := FND_API.G_MISS_CHAR
2834     , p6_a152  VARCHAR2 := FND_API.G_MISS_CHAR
2835     , p6_a153  VARCHAR2 := FND_API.G_MISS_CHAR
2836     , p6_a154  VARCHAR2 := FND_API.G_MISS_CHAR
2837     , p6_a155  VARCHAR2 := FND_API.G_MISS_CHAR
2838     , p6_a156  VARCHAR2 := FND_API.G_MISS_CHAR
2839     , p6_a157  VARCHAR2 := FND_API.G_MISS_CHAR
2840     , p6_a158  VARCHAR2 := FND_API.G_MISS_CHAR
2841     , p6_a159  VARCHAR2 := FND_API.G_MISS_CHAR
2842     , p6_a160  VARCHAR2 := FND_API.G_MISS_CHAR
2843     , p6_a161  VARCHAR2 := FND_API.G_MISS_CHAR
2844     , p6_a162  VARCHAR2 := FND_API.G_MISS_CHAR
2845     , p6_a163  VARCHAR2 := FND_API.G_MISS_CHAR
2846     , p6_a164  VARCHAR2 := FND_API.G_MISS_CHAR
2847     , p6_a165  VARCHAR2 := FND_API.G_MISS_CHAR
2848     , p6_a166  VARCHAR2 := FND_API.G_MISS_CHAR
2849     , p6_a167  VARCHAR2 := FND_API.G_MISS_CHAR
2850     , p6_a168  VARCHAR2 := FND_API.G_MISS_CHAR
2851     , p6_a169  VARCHAR2 := FND_API.G_MISS_CHAR
2852     , p_org_object_version_number   NUMBER := FND_API.G_MISS_NUM
2853     , p7_a0  NUMBER := FND_API.G_MISS_NUM
2854     , p7_a1  VARCHAR2 := FND_API.G_MISS_CHAR
2855     , p7_a2  VARCHAR2 := FND_API.G_MISS_CHAR
2856     , p7_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2857     , p7_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2858     , p7_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2859     , p7_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2860     , p7_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2861     , p7_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2862     , p7_a9  VARCHAR2 := FND_API.G_MISS_CHAR
2863     , p7_a10  VARCHAR2 := FND_API.G_MISS_CHAR
2864     , p7_a11  VARCHAR2 := FND_API.G_MISS_CHAR
2865     , p7_a12  VARCHAR2 := FND_API.G_MISS_CHAR
2866     , p7_a13  VARCHAR2 := FND_API.G_MISS_CHAR
2867     , p7_a14  VARCHAR2 := FND_API.G_MISS_CHAR
2868     , p7_a15  VARCHAR2 := FND_API.G_MISS_CHAR
2869     , p7_a16  VARCHAR2 := FND_API.G_MISS_CHAR
2870     , p7_a17  VARCHAR2 := FND_API.G_MISS_CHAR
2871     , p7_a18  VARCHAR2 := FND_API.G_MISS_CHAR
2872     , p7_a19  VARCHAR2 := FND_API.G_MISS_CHAR
2873     , p7_a20  VARCHAR2 := FND_API.G_MISS_CHAR
2874     , p7_a21  VARCHAR2 := FND_API.G_MISS_CHAR
2875     , p7_a22  VARCHAR2 := FND_API.G_MISS_CHAR
2876     , p7_a23  VARCHAR2 := FND_API.G_MISS_CHAR
2877     , p7_a24  VARCHAR2 := FND_API.G_MISS_CHAR
2878     , p7_a25  VARCHAR2 := FND_API.G_MISS_CHAR
2879     , p7_a26  DATE := FND_API.G_MISS_DATE
2880     , p7_a27  VARCHAR2 := FND_API.G_MISS_CHAR
2881     , p7_a28  VARCHAR2 := FND_API.G_MISS_CHAR
2882     , p7_a29  VARCHAR2 := FND_API.G_MISS_CHAR
2883     , p7_a30  VARCHAR2 := FND_API.G_MISS_CHAR
2884     , p7_a31  NUMBER := FND_API.G_MISS_NUM
2885     , p7_a32  VARCHAR2 := FND_API.G_MISS_CHAR
2886     , p7_a33  VARCHAR2 := FND_API.G_MISS_CHAR
2887     , p7_a34  NUMBER := FND_API.G_MISS_NUM
2888     , p7_a35  VARCHAR2 := FND_API.G_MISS_CHAR
2889     , p7_a36  VARCHAR2 := FND_API.G_MISS_CHAR
2890     , p7_a37  VARCHAR2 := FND_API.G_MISS_CHAR
2891     , p7_a38  VARCHAR2 := FND_API.G_MISS_CHAR
2892     , p7_a39  VARCHAR2 := FND_API.G_MISS_CHAR
2893     , p7_a40  VARCHAR2 := FND_API.G_MISS_CHAR
2894     , p7_a41  VARCHAR2 := FND_API.G_MISS_CHAR
2895     , p7_a42  VARCHAR2 := FND_API.G_MISS_CHAR
2896     , p7_a43  VARCHAR2 := FND_API.G_MISS_CHAR
2897     , p7_a44  VARCHAR2 := FND_API.G_MISS_CHAR
2898     , p7_a45  VARCHAR2 := FND_API.G_MISS_CHAR
2899     , p7_a46  VARCHAR2 := FND_API.G_MISS_CHAR
2900     , p7_a47  VARCHAR2 := FND_API.G_MISS_CHAR
2901     , p7_a48  VARCHAR2 := FND_API.G_MISS_CHAR
2902     , p7_a49  VARCHAR2 := FND_API.G_MISS_CHAR
2903     , p7_a50  VARCHAR2 := FND_API.G_MISS_CHAR
2904     , p7_a51  VARCHAR2 := FND_API.G_MISS_CHAR
2905     , p7_a52  VARCHAR2 := FND_API.G_MISS_CHAR
2906     , p7_a53  VARCHAR2 := FND_API.G_MISS_CHAR
2907     , p7_a54  VARCHAR2 := FND_API.G_MISS_CHAR
2908     , p7_a55  VARCHAR2 := FND_API.G_MISS_CHAR
2909     , p7_a56  VARCHAR2 := FND_API.G_MISS_CHAR
2910     , p7_a57  NUMBER := FND_API.G_MISS_NUM
2911     , p7_a58  VARCHAR2 := FND_API.G_MISS_CHAR
2912     , p7_a59  NUMBER := FND_API.G_MISS_NUM
2913     , p7_a60  VARCHAR2 := FND_API.G_MISS_CHAR
2914     , p_loc_object_version_number NUMBER := FND_API.G_MISS_NUM
2915     , p_orgph_contact_point_id NUMBER := FND_API.G_MISS_NUM
2916     , p8_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2917     , p8_a1  DATE := FND_API.G_MISS_DATE
2918     , p8_a2  NUMBER := FND_API.G_MISS_NUM
2919     , p8_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2920     , p8_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2921     , p8_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2922     , p8_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2923     , p8_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2924     , p8_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2925     , p_orgph_object_version_number NUMBER := FND_API.G_MISS_NUM
2926     , p_orgfax_contact_point_id NUMBER := FND_API.G_MISS_NUM
2927     , p9_a0  VARCHAR2 := FND_API.G_MISS_CHAR
2928     , p9_a1  DATE := FND_API.G_MISS_DATE
2929     , p9_a2  NUMBER := FND_API.G_MISS_NUM
2930     , p9_a3  VARCHAR2 := FND_API.G_MISS_CHAR
2931     , p9_a4  VARCHAR2 := FND_API.G_MISS_CHAR
2932     , p9_a5  VARCHAR2 := FND_API.G_MISS_CHAR
2933     , p9_a6  VARCHAR2 := FND_API.G_MISS_CHAR
2934     , p9_a7  VARCHAR2 := FND_API.G_MISS_CHAR
2935     , p9_a8  VARCHAR2 := FND_API.G_MISS_CHAR
2936     , p_orgfax_object_version_number NUMBER := FND_API.G_MISS_NUM
2937     , p_create_party_rel VARCHAR2 := FND_API.G_MISS_CHAR
2938     , p_created_by_module VARCHAR2 := FND_API.G_MISS_CHAR
2939     , x_person_party_id out nocopy  NUMBER
2940     , x_rel_party_id out nocopy  NUMBER
2941     , x_org_party_id out nocopy  NUMBER
2942     , x_return_status out nocopy  VARCHAR2
2943     , x_msg_count out nocopy  NUMBER
2944     , x_msg_data out nocopy  VARCHAR2
2945   )
2946   as
2947     ddp_person_rec hz_party_v2pub.person_rec_type;
2948     ddp_email_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2949     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
2950     ddp_workph_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2951     ddp_workphone_rec hz_contact_point_v2pub.phone_rec_type;
2952     ddp_homeph_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2953     ddp_homephone_rec hz_contact_point_v2pub.phone_rec_type;
2954     ddp_fax_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2955     ddp_fax_rec hz_contact_point_v2pub.phone_rec_type;
2956     ddp_cntct_pref_rec hz_contact_preference_v2pub.contact_preference_rec_type;
2957     ddp_organization_rec hz_party_v2pub.organization_rec_type;
2958     ddp_location_rec hz_location_v2pub.location_rec_type;
2959     ddp_orgph_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2960     ddp_org_phone_rec hz_contact_point_v2pub.phone_rec_type;
2961     ddp_orgfax_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
2962     ddp_org_fax_rec hz_contact_point_v2pub.phone_rec_type;
2963 
2964   begin
2965 
2966     -- copy data to the local IN or IN-OUT args, if any
2967 
2968 
2969     ddp_person_rec.person_pre_name_adjunct := p1_a0;
2970     ddp_person_rec.person_first_name := p1_a1;
2971     ddp_person_rec.person_middle_name := p1_a2;
2972     ddp_person_rec.person_last_name := p1_a3;
2973     ddp_person_rec.person_name_suffix := p1_a4;
2974     ddp_person_rec.person_title := p1_a5;
2975     ddp_person_rec.person_academic_title := p1_a6;
2976     ddp_person_rec.person_previous_last_name := p1_a7;
2977     ddp_person_rec.person_initials := p1_a8;
2978     ddp_person_rec.known_as := p1_a9;
2979     ddp_person_rec.known_as2 := p1_a10;
2980     ddp_person_rec.known_as3 := p1_a11;
2981     ddp_person_rec.known_as4 := p1_a12;
2982     ddp_person_rec.known_as5 := p1_a13;
2983     ddp_person_rec.person_name_phonetic := p1_a14;
2984     ddp_person_rec.person_first_name_phonetic := p1_a15;
2985     ddp_person_rec.person_last_name_phonetic := p1_a16;
2986     ddp_person_rec.middle_name_phonetic := p1_a17;
2987     ddp_person_rec.tax_reference := p1_a18;
2988     ddp_person_rec.jgzz_fiscal_code := p1_a19;
2989     ddp_person_rec.person_iden_type := p1_a20;
2990     ddp_person_rec.person_identifier := p1_a21;
2991     ddp_person_rec.date_of_birth := rosetta_g_miss_date_in_map(p1_a22);
2992     ddp_person_rec.place_of_birth := p1_a23;
2993     ddp_person_rec.date_of_death := rosetta_g_miss_date_in_map(p1_a24);
2994     ddp_person_rec.gender := p1_a25;
2995     ddp_person_rec.declared_ethnicity := p1_a26;
2996     ddp_person_rec.marital_status := p1_a27;
2997     ddp_person_rec.marital_status_effective_date := rosetta_g_miss_date_in_map(p1_a28);
2998     ddp_person_rec.personal_income := p1_a29;
2999     ddp_person_rec.head_of_household_flag := p1_a30;
3000     ddp_person_rec.household_income := p1_a31;
3001     ddp_person_rec.household_size := p1_a32;
3002     ddp_person_rec.rent_own_ind := p1_a33;
3003     ddp_person_rec.last_known_gps := p1_a34;
3004     ddp_person_rec.content_source_type := p1_a35;
3005     ddp_person_rec.internal_flag := p1_a36;
3006     ddp_person_rec.attribute_category := p1_a37;
3007     ddp_person_rec.attribute1 := p1_a38;
3008     ddp_person_rec.attribute2 := p1_a39;
3009     ddp_person_rec.attribute3 := p1_a40;
3010     ddp_person_rec.attribute4 := p1_a41;
3011     ddp_person_rec.attribute5 := p1_a42;
3012     ddp_person_rec.attribute6 := p1_a43;
3013     ddp_person_rec.attribute7 := p1_a44;
3014     ddp_person_rec.attribute8 := p1_a45;
3015     ddp_person_rec.attribute9 := p1_a46;
3016     ddp_person_rec.attribute10 := p1_a47;
3017     ddp_person_rec.attribute11 := p1_a48;
3018     ddp_person_rec.attribute12 := p1_a49;
3019     ddp_person_rec.attribute13 := p1_a50;
3020     ddp_person_rec.attribute14 := p1_a51;
3021     ddp_person_rec.attribute15 := p1_a52;
3022     ddp_person_rec.attribute16 := p1_a53;
3023     ddp_person_rec.attribute17 := p1_a54;
3024     ddp_person_rec.attribute18 := p1_a55;
3025     ddp_person_rec.attribute19 := p1_a56;
3026     ddp_person_rec.attribute20 := p1_a57;
3027     ddp_person_rec.created_by_module := p1_a58;
3028     ddp_person_rec.application_id := p1_a59;
3029     ddp_person_rec.actual_content_source := p1_a60;
3030     ddp_person_rec.party_rec.party_id := p1_a61;
3031     ddp_person_rec.party_rec.party_number := p1_a62;
3032     ddp_person_rec.party_rec.validated_flag := p1_a63;
3033     ddp_person_rec.party_rec.orig_system_reference := p1_a64;
3034     ddp_person_rec.party_rec.status := p1_a65;
3035     ddp_person_rec.party_rec.category_code := p1_a66;
3036     ddp_person_rec.party_rec.salutation := p1_a67;
3037     ddp_person_rec.party_rec.attribute_category := p1_a68;
3038     ddp_person_rec.party_rec.attribute1 := p1_a69;
3039     ddp_person_rec.party_rec.attribute2 := p1_a70;
3040     ddp_person_rec.party_rec.attribute3 := p1_a71;
3041     ddp_person_rec.party_rec.attribute4 := p1_a72;
3042     ddp_person_rec.party_rec.attribute5 := p1_a73;
3043     ddp_person_rec.party_rec.attribute6 := p1_a74;
3044     ddp_person_rec.party_rec.attribute7 := p1_a75;
3045     ddp_person_rec.party_rec.attribute8 := p1_a76;
3046     ddp_person_rec.party_rec.attribute9 := p1_a77;
3047     ddp_person_rec.party_rec.attribute10 := p1_a78;
3048     ddp_person_rec.party_rec.attribute11 := p1_a79;
3049     ddp_person_rec.party_rec.attribute12 := p1_a80;
3050     ddp_person_rec.party_rec.attribute13 := p1_a81;
3051     ddp_person_rec.party_rec.attribute14 := p1_a82;
3052     ddp_person_rec.party_rec.attribute15 := p1_a83;
3053     ddp_person_rec.party_rec.attribute16 := p1_a84;
3054     ddp_person_rec.party_rec.attribute17 := p1_a85;
3055     ddp_person_rec.party_rec.attribute18 := p1_a86;
3056     ddp_person_rec.party_rec.attribute19 := p1_a87;
3057     ddp_person_rec.party_rec.attribute20 := p1_a88;
3058     ddp_person_rec.party_rec.attribute21 := p1_a89;
3059     ddp_person_rec.party_rec.attribute22 := p1_a90;
3060     ddp_person_rec.party_rec.attribute23 := p1_a91;
3061     ddp_person_rec.party_rec.attribute24 := p1_a92;
3062 
3063     ddp_email_contact_point_rec.contact_point_id := p_email_contact_point_id;
3064     ddp_email_rec.email_format := p2_a0;
3065     ddp_email_rec.email_address := p2_a1;
3066 
3067     ddp_workph_contact_point_rec.contact_point_id := p_workph_contact_point_id;
3068     ddp_workphone_rec.phone_calling_calendar := p3_a0;
3069     ddp_workphone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p3_a1);
3070     ddp_workphone_rec.timezone_id := p3_a2;
3071     ddp_workphone_rec.phone_area_code := p3_a3;
3072     ddp_workphone_rec.phone_country_code := p3_a4;
3073     ddp_workphone_rec.phone_number := p3_a5;
3074     ddp_workphone_rec.phone_extension := p3_a6;
3075     ddp_workphone_rec.phone_line_type := p3_a7;
3076     ddp_workphone_rec.raw_phone_number := p3_a8;
3077 
3078     ddp_homeph_contact_point_rec.contact_point_id := p_homeph_contact_point_id;
3079     ddp_homephone_rec.phone_calling_calendar := p4_a0;
3080     ddp_homephone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p4_a1);
3081     ddp_homephone_rec.timezone_id := p4_a2;
3082     ddp_homephone_rec.phone_area_code := p4_a3;
3083     ddp_homephone_rec.phone_country_code := p4_a4;
3084     ddp_homephone_rec.phone_number := p4_a5;
3085     ddp_homephone_rec.phone_extension := p4_a6;
3086     ddp_homephone_rec.phone_line_type := p4_a7;
3087     ddp_homephone_rec.raw_phone_number := p4_a8;
3088 
3089     ddp_fax_contact_point_rec.contact_point_id := p_fax_contact_point_id;
3090     ddp_fax_rec.phone_calling_calendar := p5_a0;
3091     ddp_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p5_a1);
3092     ddp_fax_rec.timezone_id := p5_a2;
3093     ddp_fax_rec.phone_area_code := p5_a3;
3094     ddp_fax_rec.phone_country_code := p5_a4;
3095     ddp_fax_rec.phone_number := p5_a5;
3096     ddp_fax_rec.phone_extension := p5_a6;
3097     ddp_fax_rec.phone_line_type := p5_a7;
3098     ddp_fax_rec.raw_phone_number := p5_a8;
3099 
3100     ddp_cntct_pref_rec.contact_preference_id := p_contact_preference_id;
3101     ddp_cntct_pref_rec.preference_code := p_contact_preference;
3102 
3103     IF( p_cntct_level_table_id IS NOT NULL AND p_cntct_level_table_id <> FND_API.G_MISS_NUM ) THEN
3104         ddp_cntct_pref_rec.contact_level_table_id := p_cntct_level_table_id;
3105     END IF;
3106 
3107     IF( p_cntct_level_table_name IS NOT NULL AND p_cntct_level_table_name <> FND_API.G_MISS_CHAR ) THEN
3108         ddp_cntct_pref_rec.contact_level_table := p_cntct_level_table_name;
3109     END IF;
3110 
3111     ddp_organization_rec.organization_name := p6_a0;
3112     ddp_organization_rec.duns_number_c := p6_a1;
3113     ddp_organization_rec.enquiry_duns := p6_a2;
3114     ddp_organization_rec.ceo_name := p6_a3;
3115     ddp_organization_rec.ceo_title := p6_a4;
3116     ddp_organization_rec.principal_name := p6_a5;
3117     ddp_organization_rec.principal_title := p6_a6;
3118     ddp_organization_rec.legal_status := p6_a7;
3119     ddp_organization_rec.control_yr := p6_a8;
3120     ddp_organization_rec.employees_total := p6_a9;
3121     ddp_organization_rec.hq_branch_ind := p6_a10;
3122     ddp_organization_rec.branch_flag := p6_a11;
3123     ddp_organization_rec.oob_ind := p6_a12;
3124     ddp_organization_rec.line_of_business := p6_a13;
3125     ddp_organization_rec.cong_dist_code := p6_a14;
3126     ddp_organization_rec.sic_code := p6_a15;
3127     ddp_organization_rec.import_ind := p6_a16;
3128     ddp_organization_rec.export_ind := p6_a17;
3129     ddp_organization_rec.labor_surplus_ind := p6_a18;
3130     ddp_organization_rec.debarment_ind := p6_a19;
3131     ddp_organization_rec.minority_owned_ind := p6_a20;
3132     ddp_organization_rec.minority_owned_type := p6_a21;
3133     ddp_organization_rec.woman_owned_ind := p6_a22;
3134     ddp_organization_rec.disadv_8a_ind := p6_a23;
3135     ddp_organization_rec.small_bus_ind := p6_a24;
3136     ddp_organization_rec.rent_own_ind := p6_a25;
3137     ddp_organization_rec.debarments_count := p6_a26;
3138     ddp_organization_rec.debarments_date := rosetta_g_miss_date_in_map(p6_a27);
3139     ddp_organization_rec.failure_score := p6_a28;
3140     ddp_organization_rec.failure_score_natnl_percentile := p6_a29;
3141     ddp_organization_rec.failure_score_override_code := p6_a30;
3142     ddp_organization_rec.failure_score_commentary := p6_a31;
3143     ddp_organization_rec.global_failure_score := p6_a32;
3144     ddp_organization_rec.db_rating := p6_a33;
3145     ddp_organization_rec.credit_score := p6_a34;
3146     ddp_organization_rec.credit_score_commentary := p6_a35;
3147     ddp_organization_rec.paydex_score := p6_a36;
3148     ddp_organization_rec.paydex_three_months_ago := p6_a37;
3149     ddp_organization_rec.paydex_norm := p6_a38;
3150     ddp_organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p6_a39);
3151     ddp_organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p6_a40);
3152     ddp_organization_rec.organization_name_phonetic := p6_a41;
3153     ddp_organization_rec.tax_reference := p6_a42;
3154     ddp_organization_rec.gsa_indicator_flag := p6_a43;
3155     ddp_organization_rec.jgzz_fiscal_code := p6_a44;
3156     ddp_organization_rec.analysis_fy := p6_a45;
3157     ddp_organization_rec.fiscal_yearend_month := p6_a46;
3158     ddp_organization_rec.curr_fy_potential_revenue := p6_a47;
3159     ddp_organization_rec.next_fy_potential_revenue := p6_a48;
3160     ddp_organization_rec.year_established := p6_a49;
3161     ddp_organization_rec.mission_statement := p6_a50;
3162     ddp_organization_rec.organization_type := p6_a51;
3163     ddp_organization_rec.business_scope := p6_a52;
3164     ddp_organization_rec.corporation_class := p6_a53;
3165     ddp_organization_rec.known_as := p6_a54;
3166     ddp_organization_rec.known_as2 := p6_a55;
3167     ddp_organization_rec.known_as3 := p6_a56;
3168     ddp_organization_rec.known_as4 := p6_a57;
3169     ddp_organization_rec.known_as5 := p6_a58;
3170     ddp_organization_rec.local_bus_iden_type := p6_a59;
3171     ddp_organization_rec.local_bus_identifier := p6_a60;
3172     ddp_organization_rec.pref_functional_currency := p6_a61;
3173     ddp_organization_rec.registration_type := p6_a62;
3174     ddp_organization_rec.total_employees_text := p6_a63;
3175     ddp_organization_rec.total_employees_ind := p6_a64;
3176     ddp_organization_rec.total_emp_est_ind := p6_a65;
3177     ddp_organization_rec.total_emp_min_ind := p6_a66;
3178     ddp_organization_rec.parent_sub_ind := p6_a67;
3179     ddp_organization_rec.incorp_year := p6_a68;
3180     ddp_organization_rec.sic_code_type := p6_a69;
3181     ddp_organization_rec.public_private_ownership_flag := p6_a70;
3182     ddp_organization_rec.internal_flag := p6_a71;
3183     ddp_organization_rec.local_activity_code_type := p6_a72;
3184     ddp_organization_rec.local_activity_code := p6_a73;
3185     ddp_organization_rec.emp_at_primary_adr := p6_a74;
3186     ddp_organization_rec.emp_at_primary_adr_text := p6_a75;
3187     ddp_organization_rec.emp_at_primary_adr_est_ind := p6_a76;
3188     ddp_organization_rec.emp_at_primary_adr_min_ind := p6_a77;
3189     ddp_organization_rec.high_credit := p6_a78;
3190     ddp_organization_rec.avg_high_credit := p6_a79;
3191     ddp_organization_rec.total_payments := p6_a80;
3192     ddp_organization_rec.credit_score_class := p6_a81;
3193     ddp_organization_rec.credit_score_natl_percentile := p6_a82;
3194     ddp_organization_rec.credit_score_incd_default := p6_a83;
3195     ddp_organization_rec.credit_score_age := p6_a84;
3196     ddp_organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p6_a85);
3197     ddp_organization_rec.credit_score_commentary2 := p6_a86;
3198     ddp_organization_rec.credit_score_commentary3 := p6_a87;
3199     ddp_organization_rec.credit_score_commentary4 := p6_a88;
3200     ddp_organization_rec.credit_score_commentary5 := p6_a89;
3201     ddp_organization_rec.credit_score_commentary6 := p6_a90;
3202     ddp_organization_rec.credit_score_commentary7 := p6_a91;
3203     ddp_organization_rec.credit_score_commentary8 := p6_a92;
3204     ddp_organization_rec.credit_score_commentary9 := p6_a93;
3205     ddp_organization_rec.credit_score_commentary10 := p6_a94;
3206     ddp_organization_rec.failure_score_class := p6_a95;
3207     ddp_organization_rec.failure_score_incd_default := p6_a96;
3208     ddp_organization_rec.failure_score_age := p6_a97;
3209     ddp_organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p6_a98);
3210     ddp_organization_rec.failure_score_commentary2 := p6_a99;
3211     ddp_organization_rec.failure_score_commentary3 := p6_a100;
3212     ddp_organization_rec.failure_score_commentary4 := p6_a101;
3213     ddp_organization_rec.failure_score_commentary5 := p6_a102;
3214     ddp_organization_rec.failure_score_commentary6 := p6_a103;
3215     ddp_organization_rec.failure_score_commentary7 := p6_a104;
3216     ddp_organization_rec.failure_score_commentary8 := p6_a105;
3217     ddp_organization_rec.failure_score_commentary9 := p6_a106;
3218     ddp_organization_rec.failure_score_commentary10 := p6_a107;
3219     ddp_organization_rec.maximum_credit_recommendation := p6_a108;
3220     ddp_organization_rec.maximum_credit_currency_code := p6_a109;
3221     ddp_organization_rec.displayed_duns_party_id := p6_a110;
3222     ddp_organization_rec.content_source_type := p6_a111;
3223     ddp_organization_rec.content_source_number := p6_a112;
3224     ddp_organization_rec.attribute_category := p6_a113;
3225     ddp_organization_rec.attribute1 := p6_a114;
3226     ddp_organization_rec.attribute2 := p6_a115;
3227     ddp_organization_rec.attribute3 := p6_a116;
3228     ddp_organization_rec.attribute4 := p6_a117;
3229     ddp_organization_rec.attribute5 := p6_a118;
3230     ddp_organization_rec.attribute6 := p6_a119;
3231     ddp_organization_rec.attribute7 := p6_a120;
3232     ddp_organization_rec.attribute8 := p6_a121;
3233     ddp_organization_rec.attribute9 := p6_a122;
3234     ddp_organization_rec.attribute10 := p6_a123;
3235     ddp_organization_rec.attribute11 := p6_a124;
3236     ddp_organization_rec.attribute12 := p6_a125;
3237     ddp_organization_rec.attribute13 := p6_a126;
3238     ddp_organization_rec.attribute14 := p6_a127;
3239     ddp_organization_rec.attribute15 := p6_a128;
3240     ddp_organization_rec.attribute16 := p6_a129;
3241     ddp_organization_rec.attribute17 := p6_a130;
3242     ddp_organization_rec.attribute18 := p6_a131;
3243     ddp_organization_rec.attribute19 := p6_a132;
3244     ddp_organization_rec.attribute20 := p6_a133;
3245     ddp_organization_rec.created_by_module := p6_a134;
3246     ddp_organization_rec.application_id := p6_a135;
3247     ddp_organization_rec.do_not_confuse_with := p6_a136;
3248     ddp_organization_rec.actual_content_source := p6_a137;
3249     ddp_organization_rec.party_rec.party_id := p6_a138;
3250     ddp_organization_rec.party_rec.party_number := p6_a139;
3251     ddp_organization_rec.party_rec.validated_flag := p6_a140;
3252     ddp_organization_rec.party_rec.orig_system_reference := p6_a141;
3253     ddp_organization_rec.party_rec.status := p6_a142;
3254     ddp_organization_rec.party_rec.category_code := p6_a143;
3255     ddp_organization_rec.party_rec.salutation := p6_a144;
3256     ddp_organization_rec.party_rec.attribute_category := p6_a145;
3257     ddp_organization_rec.party_rec.attribute1 := p6_a146;
3258     ddp_organization_rec.party_rec.attribute2 := p6_a147;
3259     ddp_organization_rec.party_rec.attribute3 := p6_a148;
3260     ddp_organization_rec.party_rec.attribute4 := p6_a149;
3261     ddp_organization_rec.party_rec.attribute5 := p6_a150;
3262     ddp_organization_rec.party_rec.attribute6 := p6_a151;
3263     ddp_organization_rec.party_rec.attribute7 := p6_a152;
3264     ddp_organization_rec.party_rec.attribute8 := p6_a153;
3265     ddp_organization_rec.party_rec.attribute9 := p6_a154;
3266     ddp_organization_rec.party_rec.attribute10 := p6_a155;
3267     ddp_organization_rec.party_rec.attribute11 := p6_a156;
3268     ddp_organization_rec.party_rec.attribute12 := p6_a157;
3269     ddp_organization_rec.party_rec.attribute13 := p6_a158;
3270     ddp_organization_rec.party_rec.attribute14 := p6_a159;
3271     ddp_organization_rec.party_rec.attribute15 := p6_a160;
3272     ddp_organization_rec.party_rec.attribute16 := p6_a161;
3273     ddp_organization_rec.party_rec.attribute17 := p6_a162;
3274     ddp_organization_rec.party_rec.attribute18 := p6_a163;
3275     ddp_organization_rec.party_rec.attribute19 := p6_a164;
3276     ddp_organization_rec.party_rec.attribute20 := p6_a165;
3277     ddp_organization_rec.party_rec.attribute21 := p6_a166;
3278     ddp_organization_rec.party_rec.attribute22 := p6_a167;
3279     ddp_organization_rec.party_rec.attribute23 := p6_a168;
3280     ddp_organization_rec.party_rec.attribute24 := p6_a169;
3281 
3282     ddp_location_rec.location_id := p7_a0;
3283     ddp_location_rec.orig_system_reference := p7_a1;
3284     ddp_location_rec.country := p7_a2;
3285     ddp_location_rec.address1 := p7_a3;
3286     ddp_location_rec.address2 := p7_a4;
3287     ddp_location_rec.address3 := p7_a5;
3288     ddp_location_rec.address4 := p7_a6;
3289     ddp_location_rec.city := p7_a7;
3290     ddp_location_rec.postal_code := p7_a8;
3291     ddp_location_rec.state := p7_a9;
3292     ddp_location_rec.province := p7_a10;
3293     ddp_location_rec.county := p7_a11;
3294     ddp_location_rec.address_key := p7_a12;
3295     ddp_location_rec.address_style := p7_a13;
3296     ddp_location_rec.validated_flag := p7_a14;
3297     ddp_location_rec.address_lines_phonetic := p7_a15;
3298     ddp_location_rec.po_box_number := p7_a16;
3299     ddp_location_rec.house_number := p7_a17;
3300     ddp_location_rec.street_suffix := p7_a18;
3301     ddp_location_rec.street := p7_a19;
3302     ddp_location_rec.street_number := p7_a20;
3303     ddp_location_rec.floor := p7_a21;
3304     ddp_location_rec.suite := p7_a22;
3305     ddp_location_rec.postal_plus4_code := p7_a23;
3306     ddp_location_rec.position := p7_a24;
3307     ddp_location_rec.location_directions := p7_a25;
3308     ddp_location_rec.address_expiration_date := rosetta_g_miss_date_in_map(p7_a26);
3309     ddp_location_rec.clli_code := p7_a27;
3310     ddp_location_rec.language := p7_a28;
3311     ddp_location_rec.short_description := p7_a29;
3312     ddp_location_rec.description := p7_a30;
3313     ddp_location_rec.loc_hierarchy_id := p7_a31;
3314     ddp_location_rec.sales_tax_geocode := p7_a32;
3315     ddp_location_rec.sales_tax_inside_city_limits := p7_a33;
3316     ddp_location_rec.fa_location_id := p7_a34;
3317     ddp_location_rec.content_source_type := p7_a35;
3318     ddp_location_rec.attribute_category := p7_a36;
3319     ddp_location_rec.attribute1 := p7_a37;
3320     ddp_location_rec.attribute2 := p7_a38;
3321     ddp_location_rec.attribute3 := p7_a39;
3322     ddp_location_rec.attribute4 := p7_a40;
3323     ddp_location_rec.attribute5 := p7_a41;
3324     ddp_location_rec.attribute6 := p7_a42;
3325     ddp_location_rec.attribute7 := p7_a43;
3326     ddp_location_rec.attribute8 := p7_a44;
3327     ddp_location_rec.attribute9 := p7_a45;
3328     ddp_location_rec.attribute10 := p7_a46;
3329     ddp_location_rec.attribute11 := p7_a47;
3330     ddp_location_rec.attribute12 := p7_a48;
3331     ddp_location_rec.attribute13 := p7_a49;
3332     ddp_location_rec.attribute14 := p7_a50;
3333     ddp_location_rec.attribute15 := p7_a51;
3334     ddp_location_rec.attribute16 := p7_a52;
3335     ddp_location_rec.attribute17 := p7_a53;
3336     ddp_location_rec.attribute18 := p7_a54;
3337     ddp_location_rec.attribute19 := p7_a55;
3338     ddp_location_rec.attribute20 := p7_a56;
3339     ddp_location_rec.timezone_id := p7_a57;
3340     ddp_location_rec.created_by_module := p7_a58;
3341     ddp_location_rec.application_id := p7_a59;
3342     ddp_location_rec.actual_content_source := p7_a60;
3343 
3344     ddp_orgph_contact_point_rec.contact_point_id := p_orgph_contact_point_id;
3345     ddp_org_phone_rec.phone_calling_calendar := p8_a0;
3346     ddp_org_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p8_a1);
3347     ddp_org_phone_rec.timezone_id := p8_a2;
3348     ddp_org_phone_rec.phone_area_code := p8_a3;
3349     ddp_org_phone_rec.phone_country_code := p8_a4;
3350     ddp_org_phone_rec.phone_number := p8_a5;
3351     ddp_org_phone_rec.phone_extension := p8_a6;
3352     ddp_org_phone_rec.phone_line_type := p8_a7;
3353     ddp_org_phone_rec.raw_phone_number := p8_a8;
3354 
3355     ddp_orgfax_contact_point_rec.contact_point_id := p_orgfax_contact_point_id;
3356     ddp_org_fax_rec.phone_calling_calendar := p9_a0;
3357     ddp_org_fax_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p9_a1);
3358     ddp_org_fax_rec.timezone_id := p9_a2;
3359     ddp_org_fax_rec.phone_area_code := p9_a3;
3360     ddp_org_fax_rec.phone_country_code := p9_a4;
3361     ddp_org_fax_rec.phone_number := p9_a5;
3362     ddp_org_fax_rec.phone_extension := p9_a6;
3363     ddp_org_fax_rec.phone_line_type := p9_a7;
3364     ddp_org_fax_rec.raw_phone_number := p9_a8;
3365 
3366 
3367     -- here's the delegated call to the PL/SQL routine
3368     ibe_party_v2pvt.Save_Tca_Entities(ddp_person_rec,
3369       p_person_object_version_number,
3370       ddp_email_contact_point_rec,
3371       ddp_email_rec,
3372       p_email_object_version_number,
3373       ddp_workph_contact_point_rec,
3374       ddp_workphone_rec,
3375       p_workph_object_version_number,
3376       ddp_homeph_contact_point_rec,
3377       ddp_homephone_rec,
3378       p_homeph_object_version_number,
3379       ddp_fax_contact_point_rec,
3380       ddp_fax_rec,
3381       p_fax_object_version_number,
3382       ddp_cntct_pref_rec,
3383       p_cntct_pref_object_ver_num,
3384       ddp_organization_rec,
3385       p_org_object_version_number,
3386       ddp_location_rec,
3387       p_loc_object_version_number,
3388       ddp_orgph_contact_point_rec,
3389       ddp_org_phone_rec,
3390       p_orgph_object_version_number,
3391       ddp_orgfax_contact_point_rec,
3392       ddp_org_fax_rec,
3393       p_orgfax_object_version_number,
3394       p_create_party_rel,
3395       p_created_by_module,
3396       x_person_party_id,
3397       x_rel_party_id,
3398       x_org_party_id,
3399       x_return_status,
3400       x_msg_count,
3401       x_msg_data);
3402 
3403     -- copy data back from the local variables to OUT or IN-OUT args, if any
3404 
3405 end;
3406 
3407 end ibe_party_v2pvt_w;