DBA Data[Home] [Help]

PACKAGE BODY: APPS.HZ_BANK_PUB_JW

Source


1 package body hz_bank_pub_jw as
2   /* $Header: ARHBKAJB.pls 120.6 2006/02/15 00:19:01 jhuang noship $ */
3   rosetta_g_mistake_date date := to_date('01/01/+4713', 'MM/DD/SYYYY');
4   rosetta_g_miss_date date := to_date('01/01/-4712', 'MM/DD/SYYYY');
5 
6   function rosetta_g_miss_num_map(n number) return number as
7     a number := fnd_api.g_miss_num;
8     b number := 0-1962.0724;
9   begin
10     if n=a then return b; end if;
11     if n=b then return a; end if;
12     return n;
13   end;
14 
15   -- this is to workaround the JDBC bug regarding IN DATE of value GMiss
16   function rosetta_g_miss_date_in_map(d date) return date as
17   begin
18     if d = rosetta_g_mistake_date then return fnd_api.g_miss_date; end if;
19     return d;
20   end;
21 
22   procedure create_bank_1(p_init_msg_list  VARCHAR2
23     , x_party_id out nocopy  NUMBER
24     , x_party_number out nocopy  VARCHAR2
25     , x_profile_id out nocopy  NUMBER
26     , x_code_assignment_id out nocopy  NUMBER
27     , x_return_status out nocopy  VARCHAR2
28     , x_msg_count out nocopy  NUMBER
29     , x_msg_data out nocopy  VARCHAR2
30     , p1_a0  VARCHAR2 := null
31     , p1_a1  VARCHAR2 := null
32     , p1_a2  VARCHAR2 := null
33     , p1_a3  VARCHAR2 := null
34     , p1_a4  VARCHAR2 := null
35     , p1_a5  VARCHAR2 := null
36     , p1_a6  VARCHAR2 := null
37     , p1_a7  DATE := null
38     , p1_a8  VARCHAR2 := null
39     , p1_a9  VARCHAR2 := null
40     , p1_a10  VARCHAR2 := null
41     , p1_a11  VARCHAR2 := null
42     , p1_a12  VARCHAR2 := null
43     , p1_a13  VARCHAR2 := null
44     , p1_a14  VARCHAR2 := null
45     , p1_a15  VARCHAR2 := null
46     , p1_a16  NUMBER := null
47     , p1_a17  NUMBER := null
48     , p1_a18  VARCHAR2 := null
49     , p1_a19  VARCHAR2 := null
50     , p1_a20  VARCHAR2 := null
51     , p1_a21  VARCHAR2 := null
52     , p1_a22  VARCHAR2 := null
53     , p1_a23  VARCHAR2 := null
54     , p1_a24  VARCHAR2 := null
55     , p1_a25  VARCHAR2 := null
56     , p1_a26  VARCHAR2 := null
57     , p1_a27  VARCHAR2 := null
58     , p1_a28  VARCHAR2 := null
59     , p1_a29  VARCHAR2 := null
60     , p1_a30  VARCHAR2 := null
61     , p1_a31  VARCHAR2 := null
62     , p1_a32  VARCHAR2 := null
63     , p1_a33  VARCHAR2 := null
64     , p1_a34  NUMBER := null
65     , p1_a35  DATE := null
66     , p1_a36  VARCHAR2 := null
67     , p1_a37  NUMBER := null
68     , p1_a38  VARCHAR2 := null
69     , p1_a39  VARCHAR2 := null
70     , p1_a40  VARCHAR2 := null
71     , p1_a41  VARCHAR2 := null
72     , p1_a42  VARCHAR2 := null
73     , p1_a43  VARCHAR2 := null
74     , p1_a44  VARCHAR2 := null
75     , p1_a45  VARCHAR2 := null
76     , p1_a46  VARCHAR2 := null
77     , p1_a47  DATE := null
78     , p1_a48  DATE := null
79     , p1_a49  VARCHAR2 := null
80     , p1_a50  VARCHAR2 := null
81     , p1_a51  VARCHAR2 := null
82     , p1_a52  VARCHAR2 := null
83     , p1_a53  VARCHAR2 := null
84     , p1_a54  VARCHAR2 := null
85     , p1_a55  NUMBER := null
86     , p1_a56  NUMBER := null
87     , p1_a57  NUMBER := null
88     , p1_a58  VARCHAR2 := null
89     , p1_a59  VARCHAR2 := null
90     , p1_a60  VARCHAR2 := null
91     , p1_a61  VARCHAR2 := null
92     , p1_a62  VARCHAR2 := null
93     , p1_a63  VARCHAR2 := null
94     , p1_a64  VARCHAR2 := null
95     , p1_a65  VARCHAR2 := null
96     , p1_a66  VARCHAR2 := null
97     , p1_a67  VARCHAR2 := null
98     , p1_a68  VARCHAR2 := null
99     , p1_a69  VARCHAR2 := null
100     , p1_a70  VARCHAR2 := null
101     , p1_a71  VARCHAR2 := null
102     , p1_a72  VARCHAR2 := null
103     , p1_a73  VARCHAR2 := null
104     , p1_a74  VARCHAR2 := null
105     , p1_a75  VARCHAR2 := null
106     , p1_a76  NUMBER := null
107     , p1_a77  VARCHAR2 := null
108     , p1_a78  VARCHAR2 := null
109     , p1_a79  VARCHAR2 := null
110     , p1_a80  VARCHAR2 := null
111     , p1_a81  VARCHAR2 := null
112     , p1_a82  VARCHAR2 := null
113     , p1_a83  VARCHAR2 := null
114     , p1_a84  VARCHAR2 := null
115     , p1_a85  VARCHAR2 := null
116     , p1_a86  NUMBER := null
117     , p1_a87  NUMBER := null
118     , p1_a88  NUMBER := null
119     , p1_a89  NUMBER := null
120     , p1_a90  NUMBER := null
121     , p1_a91  NUMBER := null
122     , p1_a92  NUMBER := null
123     , p1_a93  DATE := null
124     , p1_a94  VARCHAR2 := null
125     , p1_a95  VARCHAR2 := null
126     , p1_a96  VARCHAR2 := null
127     , p1_a97  VARCHAR2 := null
128     , p1_a98  VARCHAR2 := null
129     , p1_a99  VARCHAR2 := null
130     , p1_a100  VARCHAR2 := null
131     , p1_a101  VARCHAR2 := null
132     , p1_a102  VARCHAR2 := null
133     , p1_a103  NUMBER := null
134     , p1_a104  NUMBER := null
135     , p1_a105  NUMBER := null
136     , p1_a106  DATE := null
137     , p1_a107  VARCHAR2 := null
138     , p1_a108  VARCHAR2 := null
139     , p1_a109  VARCHAR2 := null
140     , p1_a110  VARCHAR2 := null
141     , p1_a111  VARCHAR2 := null
142     , p1_a112  VARCHAR2 := null
143     , p1_a113  VARCHAR2 := null
144     , p1_a114  VARCHAR2 := null
145     , p1_a115  VARCHAR2 := null
146     , p1_a116  NUMBER := null
147     , p1_a117  VARCHAR2 := null
148     , p1_a118  NUMBER := null
149     , p1_a119  VARCHAR2 := null
150     , p1_a120  VARCHAR2 := null
151     , p1_a121  VARCHAR2 := null
152     , p1_a122  VARCHAR2 := null
153     , p1_a123  VARCHAR2 := null
154     , p1_a124  VARCHAR2 := null
155     , p1_a125  VARCHAR2 := null
156     , p1_a126  VARCHAR2 := null
157     , p1_a127  VARCHAR2 := null
158     , p1_a128  VARCHAR2 := null
159     , p1_a129  VARCHAR2 := null
160     , p1_a130  VARCHAR2 := null
161     , p1_a131  VARCHAR2 := null
162     , p1_a132  VARCHAR2 := null
163     , p1_a133  VARCHAR2 := null
164     , p1_a134  VARCHAR2 := null
165     , p1_a135  VARCHAR2 := null
166     , p1_a136  VARCHAR2 := null
167     , p1_a137  VARCHAR2 := null
168     , p1_a138  VARCHAR2 := null
169     , p1_a139  VARCHAR2 := null
170     , p1_a140  VARCHAR2 := null
171     , p1_a141  VARCHAR2 := null
172     , p1_a142  VARCHAR2 := null
173     , p1_a143  NUMBER := null
174     , p1_a144  VARCHAR2 := null
175     , p1_a145  VARCHAR2 := null
176     , p1_a146  VARCHAR2 := null
177     , p1_a147  NUMBER := null
178     , p1_a148  VARCHAR2 := null
179     , p1_a149  VARCHAR2 := null
180     , p1_a150  VARCHAR2 := null
181     , p1_a151  VARCHAR2 := null
182     , p1_a152  VARCHAR2 := null
183     , p1_a153  VARCHAR2 := null
184     , p1_a154  VARCHAR2 := null
185     , p1_a155  VARCHAR2 := null
186     , p1_a156  VARCHAR2 := null
187     , p1_a157  VARCHAR2 := null
188     , p1_a158  VARCHAR2 := null
189     , p1_a159  VARCHAR2 := null
190     , p1_a160  VARCHAR2 := null
191     , p1_a161  VARCHAR2 := null
192     , p1_a162  VARCHAR2 := null
193     , p1_a163  VARCHAR2 := null
194     , p1_a164  VARCHAR2 := null
195     , p1_a165  VARCHAR2 := null
196     , p1_a166  VARCHAR2 := null
197     , p1_a167  VARCHAR2 := null
198     , p1_a168  VARCHAR2 := null
199     , p1_a169  VARCHAR2 := null
200     , p1_a170  VARCHAR2 := null
201     , p1_a171  VARCHAR2 := null
202     , p1_a172  VARCHAR2 := null
203     , p1_a173  VARCHAR2 := null
204     , p1_a174  VARCHAR2 := null
205     , p1_a175  VARCHAR2 := null
206     , p1_a176  VARCHAR2 := null
207     , p1_a177  VARCHAR2 := null
208     , p1_a178  VARCHAR2 := null
209     , p1_a179  VARCHAR2 := null
210   )
211   as
212     ddp_bank_rec hz_bank_pub.bank_rec_type;
213     ddindx binary_integer; indx binary_integer;
214   begin
215 
216     -- copy data to the local IN or IN-OUT args, if any
217 
218     ddp_bank_rec.bank_or_branch_number := p1_a0;
219     ddp_bank_rec.bank_code := p1_a1;
220     ddp_bank_rec.branch_code := p1_a2;
221     ddp_bank_rec.institution_type := p1_a3;
222     ddp_bank_rec.branch_type := p1_a4;
223     ddp_bank_rec.country := p1_a5;
224     ddp_bank_rec.rfc_code := p1_a6;
225     ddp_bank_rec.inactive_date := rosetta_g_miss_date_in_map(p1_a7);
226     ddp_bank_rec.organization_rec.organization_name := p1_a8;
227     ddp_bank_rec.organization_rec.duns_number_c := p1_a9;
228     ddp_bank_rec.organization_rec.enquiry_duns := p1_a10;
229     ddp_bank_rec.organization_rec.ceo_name := p1_a11;
230     ddp_bank_rec.organization_rec.ceo_title := p1_a12;
231     ddp_bank_rec.organization_rec.principal_name := p1_a13;
232     ddp_bank_rec.organization_rec.principal_title := p1_a14;
233     ddp_bank_rec.organization_rec.legal_status := p1_a15;
234     ddp_bank_rec.organization_rec.control_yr := rosetta_g_miss_num_map(p1_a16);
235     ddp_bank_rec.organization_rec.employees_total := rosetta_g_miss_num_map(p1_a17);
236     ddp_bank_rec.organization_rec.hq_branch_ind := p1_a18;
237     ddp_bank_rec.organization_rec.branch_flag := p1_a19;
238     ddp_bank_rec.organization_rec.oob_ind := p1_a20;
239     ddp_bank_rec.organization_rec.line_of_business := p1_a21;
240     ddp_bank_rec.organization_rec.cong_dist_code := p1_a22;
241     ddp_bank_rec.organization_rec.sic_code := p1_a23;
242     ddp_bank_rec.organization_rec.import_ind := p1_a24;
243     ddp_bank_rec.organization_rec.export_ind := p1_a25;
244     ddp_bank_rec.organization_rec.labor_surplus_ind := p1_a26;
245     ddp_bank_rec.organization_rec.debarment_ind := p1_a27;
246     ddp_bank_rec.organization_rec.minority_owned_ind := p1_a28;
247     ddp_bank_rec.organization_rec.minority_owned_type := p1_a29;
248     ddp_bank_rec.organization_rec.woman_owned_ind := p1_a30;
249     ddp_bank_rec.organization_rec.disadv_8a_ind := p1_a31;
250     ddp_bank_rec.organization_rec.small_bus_ind := p1_a32;
251     ddp_bank_rec.organization_rec.rent_own_ind := p1_a33;
252     ddp_bank_rec.organization_rec.debarments_count := rosetta_g_miss_num_map(p1_a34);
253     ddp_bank_rec.organization_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a35);
254     ddp_bank_rec.organization_rec.failure_score := p1_a36;
255     ddp_bank_rec.organization_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a37);
256     ddp_bank_rec.organization_rec.failure_score_override_code := p1_a38;
257     ddp_bank_rec.organization_rec.failure_score_commentary := p1_a39;
258     ddp_bank_rec.organization_rec.global_failure_score := p1_a40;
259     ddp_bank_rec.organization_rec.db_rating := p1_a41;
260     ddp_bank_rec.organization_rec.credit_score := p1_a42;
261     ddp_bank_rec.organization_rec.credit_score_commentary := p1_a43;
262     ddp_bank_rec.organization_rec.paydex_score := p1_a44;
263     ddp_bank_rec.organization_rec.paydex_three_months_ago := p1_a45;
264     ddp_bank_rec.organization_rec.paydex_norm := p1_a46;
265     ddp_bank_rec.organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p1_a47);
266     ddp_bank_rec.organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p1_a48);
267     ddp_bank_rec.organization_rec.organization_name_phonetic := p1_a49;
268     ddp_bank_rec.organization_rec.tax_reference := p1_a50;
269     ddp_bank_rec.organization_rec.gsa_indicator_flag := p1_a51;
270     ddp_bank_rec.organization_rec.jgzz_fiscal_code := p1_a52;
271     ddp_bank_rec.organization_rec.analysis_fy := p1_a53;
272     ddp_bank_rec.organization_rec.fiscal_yearend_month := p1_a54;
273     ddp_bank_rec.organization_rec.curr_fy_potential_revenue := rosetta_g_miss_num_map(p1_a55);
274     ddp_bank_rec.organization_rec.next_fy_potential_revenue := rosetta_g_miss_num_map(p1_a56);
275     ddp_bank_rec.organization_rec.year_established := rosetta_g_miss_num_map(p1_a57);
276     ddp_bank_rec.organization_rec.mission_statement := p1_a58;
277     ddp_bank_rec.organization_rec.organization_type := p1_a59;
278     ddp_bank_rec.organization_rec.business_scope := p1_a60;
279     ddp_bank_rec.organization_rec.corporation_class := p1_a61;
280     ddp_bank_rec.organization_rec.known_as := p1_a62;
281     ddp_bank_rec.organization_rec.known_as2 := p1_a63;
282     ddp_bank_rec.organization_rec.known_as3 := p1_a64;
283     ddp_bank_rec.organization_rec.known_as4 := p1_a65;
284     ddp_bank_rec.organization_rec.known_as5 := p1_a66;
285     ddp_bank_rec.organization_rec.local_bus_iden_type := p1_a67;
286     ddp_bank_rec.organization_rec.local_bus_identifier := p1_a68;
287     ddp_bank_rec.organization_rec.pref_functional_currency := p1_a69;
288     ddp_bank_rec.organization_rec.registration_type := p1_a70;
289     ddp_bank_rec.organization_rec.total_employees_text := p1_a71;
290     ddp_bank_rec.organization_rec.total_employees_ind := p1_a72;
291     ddp_bank_rec.organization_rec.total_emp_est_ind := p1_a73;
292     ddp_bank_rec.organization_rec.total_emp_min_ind := p1_a74;
293     ddp_bank_rec.organization_rec.parent_sub_ind := p1_a75;
294     ddp_bank_rec.organization_rec.incorp_year := rosetta_g_miss_num_map(p1_a76);
295     ddp_bank_rec.organization_rec.sic_code_type := p1_a77;
296     ddp_bank_rec.organization_rec.public_private_ownership_flag := p1_a78;
297     ddp_bank_rec.organization_rec.internal_flag := p1_a79;
298     ddp_bank_rec.organization_rec.local_activity_code_type := p1_a80;
299     ddp_bank_rec.organization_rec.local_activity_code := p1_a81;
300     ddp_bank_rec.organization_rec.emp_at_primary_adr := p1_a82;
301     ddp_bank_rec.organization_rec.emp_at_primary_adr_text := p1_a83;
302     ddp_bank_rec.organization_rec.emp_at_primary_adr_est_ind := p1_a84;
303     ddp_bank_rec.organization_rec.emp_at_primary_adr_min_ind := p1_a85;
304     ddp_bank_rec.organization_rec.high_credit := rosetta_g_miss_num_map(p1_a86);
305     ddp_bank_rec.organization_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a87);
306     ddp_bank_rec.organization_rec.total_payments := rosetta_g_miss_num_map(p1_a88);
307     ddp_bank_rec.organization_rec.credit_score_class := rosetta_g_miss_num_map(p1_a89);
308     ddp_bank_rec.organization_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a90);
309     ddp_bank_rec.organization_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a91);
310     ddp_bank_rec.organization_rec.credit_score_age := rosetta_g_miss_num_map(p1_a92);
311     ddp_bank_rec.organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a93);
312     ddp_bank_rec.organization_rec.credit_score_commentary2 := p1_a94;
313     ddp_bank_rec.organization_rec.credit_score_commentary3 := p1_a95;
314     ddp_bank_rec.organization_rec.credit_score_commentary4 := p1_a96;
315     ddp_bank_rec.organization_rec.credit_score_commentary5 := p1_a97;
316     ddp_bank_rec.organization_rec.credit_score_commentary6 := p1_a98;
317     ddp_bank_rec.organization_rec.credit_score_commentary7 := p1_a99;
318     ddp_bank_rec.organization_rec.credit_score_commentary8 := p1_a100;
322     ddp_bank_rec.organization_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a104);
319     ddp_bank_rec.organization_rec.credit_score_commentary9 := p1_a101;
320     ddp_bank_rec.organization_rec.credit_score_commentary10 := p1_a102;
321     ddp_bank_rec.organization_rec.failure_score_class := rosetta_g_miss_num_map(p1_a103);
323     ddp_bank_rec.organization_rec.failure_score_age := rosetta_g_miss_num_map(p1_a105);
324     ddp_bank_rec.organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a106);
325     ddp_bank_rec.organization_rec.failure_score_commentary2 := p1_a107;
326     ddp_bank_rec.organization_rec.failure_score_commentary3 := p1_a108;
327     ddp_bank_rec.organization_rec.failure_score_commentary4 := p1_a109;
328     ddp_bank_rec.organization_rec.failure_score_commentary5 := p1_a110;
329     ddp_bank_rec.organization_rec.failure_score_commentary6 := p1_a111;
330     ddp_bank_rec.organization_rec.failure_score_commentary7 := p1_a112;
331     ddp_bank_rec.organization_rec.failure_score_commentary8 := p1_a113;
332     ddp_bank_rec.organization_rec.failure_score_commentary9 := p1_a114;
333     ddp_bank_rec.organization_rec.failure_score_commentary10 := p1_a115;
334     ddp_bank_rec.organization_rec.maximum_credit_recommendation := rosetta_g_miss_num_map(p1_a116);
335     ddp_bank_rec.organization_rec.maximum_credit_currency_code := p1_a117;
336     ddp_bank_rec.organization_rec.displayed_duns_party_id := rosetta_g_miss_num_map(p1_a118);
337     ddp_bank_rec.organization_rec.content_source_type := p1_a119;
338     ddp_bank_rec.organization_rec.content_source_number := p1_a120;
339     ddp_bank_rec.organization_rec.attribute_category := p1_a121;
340     ddp_bank_rec.organization_rec.attribute1 := p1_a122;
341     ddp_bank_rec.organization_rec.attribute2 := p1_a123;
342     ddp_bank_rec.organization_rec.attribute3 := p1_a124;
343     ddp_bank_rec.organization_rec.attribute4 := p1_a125;
344     ddp_bank_rec.organization_rec.attribute5 := p1_a126;
345     ddp_bank_rec.organization_rec.attribute6 := p1_a127;
346     ddp_bank_rec.organization_rec.attribute7 := p1_a128;
347     ddp_bank_rec.organization_rec.attribute8 := p1_a129;
348     ddp_bank_rec.organization_rec.attribute9 := p1_a130;
349     ddp_bank_rec.organization_rec.attribute10 := p1_a131;
350     ddp_bank_rec.organization_rec.attribute11 := p1_a132;
351     ddp_bank_rec.organization_rec.attribute12 := p1_a133;
352     ddp_bank_rec.organization_rec.attribute13 := p1_a134;
353     ddp_bank_rec.organization_rec.attribute14 := p1_a135;
354     ddp_bank_rec.organization_rec.attribute15 := p1_a136;
355     ddp_bank_rec.organization_rec.attribute16 := p1_a137;
356     ddp_bank_rec.organization_rec.attribute17 := p1_a138;
357     ddp_bank_rec.organization_rec.attribute18 := p1_a139;
358     ddp_bank_rec.organization_rec.attribute19 := p1_a140;
359     ddp_bank_rec.organization_rec.attribute20 := p1_a141;
360     ddp_bank_rec.organization_rec.created_by_module := p1_a142;
361     ddp_bank_rec.organization_rec.application_id := rosetta_g_miss_num_map(p1_a143);
362     ddp_bank_rec.organization_rec.do_not_confuse_with := p1_a144;
363     ddp_bank_rec.organization_rec.actual_content_source := p1_a145;
364     ddp_bank_rec.organization_rec.home_country := p1_a146;
365     ddp_bank_rec.organization_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a147);
366     ddp_bank_rec.organization_rec.party_rec.party_number := p1_a148;
367     ddp_bank_rec.organization_rec.party_rec.validated_flag := p1_a149;
368     ddp_bank_rec.organization_rec.party_rec.orig_system_reference := p1_a150;
369     ddp_bank_rec.organization_rec.party_rec.orig_system := p1_a151;
370     ddp_bank_rec.organization_rec.party_rec.status := p1_a152;
371     ddp_bank_rec.organization_rec.party_rec.category_code := p1_a153;
372     ddp_bank_rec.organization_rec.party_rec.salutation := p1_a154;
373     ddp_bank_rec.organization_rec.party_rec.attribute_category := p1_a155;
374     ddp_bank_rec.organization_rec.party_rec.attribute1 := p1_a156;
375     ddp_bank_rec.organization_rec.party_rec.attribute2 := p1_a157;
376     ddp_bank_rec.organization_rec.party_rec.attribute3 := p1_a158;
377     ddp_bank_rec.organization_rec.party_rec.attribute4 := p1_a159;
378     ddp_bank_rec.organization_rec.party_rec.attribute5 := p1_a160;
379     ddp_bank_rec.organization_rec.party_rec.attribute6 := p1_a161;
380     ddp_bank_rec.organization_rec.party_rec.attribute7 := p1_a162;
381     ddp_bank_rec.organization_rec.party_rec.attribute8 := p1_a163;
382     ddp_bank_rec.organization_rec.party_rec.attribute9 := p1_a164;
383     ddp_bank_rec.organization_rec.party_rec.attribute10 := p1_a165;
384     ddp_bank_rec.organization_rec.party_rec.attribute11 := p1_a166;
385     ddp_bank_rec.organization_rec.party_rec.attribute12 := p1_a167;
386     ddp_bank_rec.organization_rec.party_rec.attribute13 := p1_a168;
387     ddp_bank_rec.organization_rec.party_rec.attribute14 := p1_a169;
388     ddp_bank_rec.organization_rec.party_rec.attribute15 := p1_a170;
389     ddp_bank_rec.organization_rec.party_rec.attribute16 := p1_a171;
390     ddp_bank_rec.organization_rec.party_rec.attribute17 := p1_a172;
391     ddp_bank_rec.organization_rec.party_rec.attribute18 := p1_a173;
392     ddp_bank_rec.organization_rec.party_rec.attribute19 := p1_a174;
393     ddp_bank_rec.organization_rec.party_rec.attribute20 := p1_a175;
394     ddp_bank_rec.organization_rec.party_rec.attribute21 := p1_a176;
395     ddp_bank_rec.organization_rec.party_rec.attribute22 := p1_a177;
396     ddp_bank_rec.organization_rec.party_rec.attribute23 := p1_a178;
397     ddp_bank_rec.organization_rec.party_rec.attribute24 := p1_a179;
398 
399 
400 
401 
402 
403 
404 
405 
409       x_party_id,
406     -- here's the delegated call to the old PL/SQL routine
407     hz_bank_pub.create_bank(p_init_msg_list,
408       ddp_bank_rec,
410       x_party_number,
411       x_profile_id,
412       x_code_assignment_id,
413       x_return_status,
414       x_msg_count,
415       x_msg_data);
416 
417     -- copy data back from the local OUT or IN-OUT args, if any
418 
419 
420 
421 
422 
423 
424 
425 
426   end;
427 
428   procedure update_bank_2(p_init_msg_list  VARCHAR2
429     , p_pobject_version_number in out nocopy  NUMBER
430     , p_bitobject_version_number in out nocopy  NUMBER
431     , x_profile_id out nocopy  NUMBER
432     , x_return_status out nocopy  VARCHAR2
433     , x_msg_count out nocopy  NUMBER
434     , x_msg_data out nocopy  VARCHAR2
435     , p1_a0  VARCHAR2 := null
436     , p1_a1  VARCHAR2 := null
437     , p1_a2  VARCHAR2 := null
438     , p1_a3  VARCHAR2 := null
439     , p1_a4  VARCHAR2 := null
440     , p1_a5  VARCHAR2 := null
441     , p1_a6  VARCHAR2 := null
442     , p1_a7  DATE := null
443     , p1_a8  VARCHAR2 := null
444     , p1_a9  VARCHAR2 := null
445     , p1_a10  VARCHAR2 := null
446     , p1_a11  VARCHAR2 := null
447     , p1_a12  VARCHAR2 := null
448     , p1_a13  VARCHAR2 := null
449     , p1_a14  VARCHAR2 := null
450     , p1_a15  VARCHAR2 := null
451     , p1_a16  NUMBER := null
452     , p1_a17  NUMBER := null
453     , p1_a18  VARCHAR2 := null
454     , p1_a19  VARCHAR2 := null
455     , p1_a20  VARCHAR2 := null
456     , p1_a21  VARCHAR2 := null
457     , p1_a22  VARCHAR2 := null
458     , p1_a23  VARCHAR2 := null
459     , p1_a24  VARCHAR2 := null
460     , p1_a25  VARCHAR2 := null
461     , p1_a26  VARCHAR2 := null
462     , p1_a27  VARCHAR2 := null
463     , p1_a28  VARCHAR2 := null
464     , p1_a29  VARCHAR2 := null
465     , p1_a30  VARCHAR2 := null
466     , p1_a31  VARCHAR2 := null
467     , p1_a32  VARCHAR2 := null
468     , p1_a33  VARCHAR2 := null
469     , p1_a34  NUMBER := null
470     , p1_a35  DATE := null
471     , p1_a36  VARCHAR2 := null
472     , p1_a37  NUMBER := null
473     , p1_a38  VARCHAR2 := null
474     , p1_a39  VARCHAR2 := null
475     , p1_a40  VARCHAR2 := null
476     , p1_a41  VARCHAR2 := null
477     , p1_a42  VARCHAR2 := null
478     , p1_a43  VARCHAR2 := null
479     , p1_a44  VARCHAR2 := null
480     , p1_a45  VARCHAR2 := null
481     , p1_a46  VARCHAR2 := null
482     , p1_a47  DATE := null
483     , p1_a48  DATE := null
484     , p1_a49  VARCHAR2 := null
485     , p1_a50  VARCHAR2 := null
486     , p1_a51  VARCHAR2 := null
487     , p1_a52  VARCHAR2 := null
488     , p1_a53  VARCHAR2 := null
489     , p1_a54  VARCHAR2 := null
490     , p1_a55  NUMBER := null
491     , p1_a56  NUMBER := null
492     , p1_a57  NUMBER := null
493     , p1_a58  VARCHAR2 := null
494     , p1_a59  VARCHAR2 := null
495     , p1_a60  VARCHAR2 := null
496     , p1_a61  VARCHAR2 := null
497     , p1_a62  VARCHAR2 := null
498     , p1_a63  VARCHAR2 := null
499     , p1_a64  VARCHAR2 := null
500     , p1_a65  VARCHAR2 := null
501     , p1_a66  VARCHAR2 := null
502     , p1_a67  VARCHAR2 := null
503     , p1_a68  VARCHAR2 := null
504     , p1_a69  VARCHAR2 := null
505     , p1_a70  VARCHAR2 := null
506     , p1_a71  VARCHAR2 := null
507     , p1_a72  VARCHAR2 := null
508     , p1_a73  VARCHAR2 := null
509     , p1_a74  VARCHAR2 := null
510     , p1_a75  VARCHAR2 := null
511     , p1_a76  NUMBER := null
512     , p1_a77  VARCHAR2 := null
513     , p1_a78  VARCHAR2 := null
514     , p1_a79  VARCHAR2 := null
515     , p1_a80  VARCHAR2 := null
516     , p1_a81  VARCHAR2 := null
517     , p1_a82  VARCHAR2 := null
518     , p1_a83  VARCHAR2 := null
519     , p1_a84  VARCHAR2 := null
520     , p1_a85  VARCHAR2 := null
521     , p1_a86  NUMBER := null
522     , p1_a87  NUMBER := null
523     , p1_a88  NUMBER := null
524     , p1_a89  NUMBER := null
525     , p1_a90  NUMBER := null
526     , p1_a91  NUMBER := null
527     , p1_a92  NUMBER := null
528     , p1_a93  DATE := null
529     , p1_a94  VARCHAR2 := null
530     , p1_a95  VARCHAR2 := null
531     , p1_a96  VARCHAR2 := null
532     , p1_a97  VARCHAR2 := null
533     , p1_a98  VARCHAR2 := null
534     , p1_a99  VARCHAR2 := null
535     , p1_a100  VARCHAR2 := null
536     , p1_a101  VARCHAR2 := null
537     , p1_a102  VARCHAR2 := null
538     , p1_a103  NUMBER := null
539     , p1_a104  NUMBER := null
540     , p1_a105  NUMBER := null
541     , p1_a106  DATE := null
542     , p1_a107  VARCHAR2 := null
543     , p1_a108  VARCHAR2 := null
544     , p1_a109  VARCHAR2 := null
545     , p1_a110  VARCHAR2 := null
546     , p1_a111  VARCHAR2 := null
547     , p1_a112  VARCHAR2 := null
548     , p1_a113  VARCHAR2 := null
549     , p1_a114  VARCHAR2 := null
550     , p1_a115  VARCHAR2 := null
551     , p1_a116  NUMBER := null
552     , p1_a117  VARCHAR2 := null
553     , p1_a118  NUMBER := null
554     , p1_a119  VARCHAR2 := null
555     , p1_a120  VARCHAR2 := null
556     , p1_a121  VARCHAR2 := null
560     , p1_a125  VARCHAR2 := null
557     , p1_a122  VARCHAR2 := null
558     , p1_a123  VARCHAR2 := null
559     , p1_a124  VARCHAR2 := null
561     , p1_a126  VARCHAR2 := null
562     , p1_a127  VARCHAR2 := null
563     , p1_a128  VARCHAR2 := null
564     , p1_a129  VARCHAR2 := null
565     , p1_a130  VARCHAR2 := null
566     , p1_a131  VARCHAR2 := null
567     , p1_a132  VARCHAR2 := null
568     , p1_a133  VARCHAR2 := null
569     , p1_a134  VARCHAR2 := null
570     , p1_a135  VARCHAR2 := null
571     , p1_a136  VARCHAR2 := null
572     , p1_a137  VARCHAR2 := null
573     , p1_a138  VARCHAR2 := null
574     , p1_a139  VARCHAR2 := null
575     , p1_a140  VARCHAR2 := null
576     , p1_a141  VARCHAR2 := null
577     , p1_a142  VARCHAR2 := null
578     , p1_a143  NUMBER := null
579     , p1_a144  VARCHAR2 := null
580     , p1_a145  VARCHAR2 := null
581     , p1_a146  VARCHAR2 := null
582     , p1_a147  NUMBER := null
583     , p1_a148  VARCHAR2 := null
584     , p1_a149  VARCHAR2 := null
585     , p1_a150  VARCHAR2 := null
586     , p1_a151  VARCHAR2 := null
587     , p1_a152  VARCHAR2 := null
588     , p1_a153  VARCHAR2 := null
589     , p1_a154  VARCHAR2 := null
590     , p1_a155  VARCHAR2 := null
591     , p1_a156  VARCHAR2 := null
592     , p1_a157  VARCHAR2 := null
593     , p1_a158  VARCHAR2 := null
594     , p1_a159  VARCHAR2 := null
595     , p1_a160  VARCHAR2 := null
596     , p1_a161  VARCHAR2 := null
597     , p1_a162  VARCHAR2 := null
598     , p1_a163  VARCHAR2 := null
599     , p1_a164  VARCHAR2 := null
600     , p1_a165  VARCHAR2 := null
601     , p1_a166  VARCHAR2 := null
602     , p1_a167  VARCHAR2 := null
603     , p1_a168  VARCHAR2 := null
604     , p1_a169  VARCHAR2 := null
605     , p1_a170  VARCHAR2 := null
606     , p1_a171  VARCHAR2 := null
607     , p1_a172  VARCHAR2 := null
608     , p1_a173  VARCHAR2 := null
609     , p1_a174  VARCHAR2 := null
610     , p1_a175  VARCHAR2 := null
611     , p1_a176  VARCHAR2 := null
612     , p1_a177  VARCHAR2 := null
613     , p1_a178  VARCHAR2 := null
614     , p1_a179  VARCHAR2 := null
615   )
616   as
617     ddp_bank_rec hz_bank_pub.bank_rec_type;
618     ddindx binary_integer; indx binary_integer;
619   begin
620 
621     -- copy data to the local IN or IN-OUT args, if any
622 
623     ddp_bank_rec.bank_or_branch_number := p1_a0;
624     ddp_bank_rec.bank_code := p1_a1;
625     ddp_bank_rec.branch_code := p1_a2;
626     ddp_bank_rec.institution_type := p1_a3;
627     ddp_bank_rec.branch_type := p1_a4;
628     ddp_bank_rec.country := p1_a5;
629     ddp_bank_rec.rfc_code := p1_a6;
630     ddp_bank_rec.inactive_date := rosetta_g_miss_date_in_map(p1_a7);
631     ddp_bank_rec.organization_rec.organization_name := p1_a8;
632     ddp_bank_rec.organization_rec.duns_number_c := p1_a9;
633     ddp_bank_rec.organization_rec.enquiry_duns := p1_a10;
634     ddp_bank_rec.organization_rec.ceo_name := p1_a11;
635     ddp_bank_rec.organization_rec.ceo_title := p1_a12;
636     ddp_bank_rec.organization_rec.principal_name := p1_a13;
637     ddp_bank_rec.organization_rec.principal_title := p1_a14;
638     ddp_bank_rec.organization_rec.legal_status := p1_a15;
639     ddp_bank_rec.organization_rec.control_yr := rosetta_g_miss_num_map(p1_a16);
640     ddp_bank_rec.organization_rec.employees_total := rosetta_g_miss_num_map(p1_a17);
641     ddp_bank_rec.organization_rec.hq_branch_ind := p1_a18;
642     ddp_bank_rec.organization_rec.branch_flag := p1_a19;
643     ddp_bank_rec.organization_rec.oob_ind := p1_a20;
644     ddp_bank_rec.organization_rec.line_of_business := p1_a21;
645     ddp_bank_rec.organization_rec.cong_dist_code := p1_a22;
646     ddp_bank_rec.organization_rec.sic_code := p1_a23;
647     ddp_bank_rec.organization_rec.import_ind := p1_a24;
648     ddp_bank_rec.organization_rec.export_ind := p1_a25;
649     ddp_bank_rec.organization_rec.labor_surplus_ind := p1_a26;
650     ddp_bank_rec.organization_rec.debarment_ind := p1_a27;
651     ddp_bank_rec.organization_rec.minority_owned_ind := p1_a28;
652     ddp_bank_rec.organization_rec.minority_owned_type := p1_a29;
653     ddp_bank_rec.organization_rec.woman_owned_ind := p1_a30;
654     ddp_bank_rec.organization_rec.disadv_8a_ind := p1_a31;
655     ddp_bank_rec.organization_rec.small_bus_ind := p1_a32;
656     ddp_bank_rec.organization_rec.rent_own_ind := p1_a33;
657     ddp_bank_rec.organization_rec.debarments_count := rosetta_g_miss_num_map(p1_a34);
658     ddp_bank_rec.organization_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a35);
659     ddp_bank_rec.organization_rec.failure_score := p1_a36;
660     ddp_bank_rec.organization_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a37);
661     ddp_bank_rec.organization_rec.failure_score_override_code := p1_a38;
662     ddp_bank_rec.organization_rec.failure_score_commentary := p1_a39;
663     ddp_bank_rec.organization_rec.global_failure_score := p1_a40;
664     ddp_bank_rec.organization_rec.db_rating := p1_a41;
665     ddp_bank_rec.organization_rec.credit_score := p1_a42;
666     ddp_bank_rec.organization_rec.credit_score_commentary := p1_a43;
667     ddp_bank_rec.organization_rec.paydex_score := p1_a44;
668     ddp_bank_rec.organization_rec.paydex_three_months_ago := p1_a45;
669     ddp_bank_rec.organization_rec.paydex_norm := p1_a46;
670     ddp_bank_rec.organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p1_a47);
674     ddp_bank_rec.organization_rec.gsa_indicator_flag := p1_a51;
671     ddp_bank_rec.organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p1_a48);
672     ddp_bank_rec.organization_rec.organization_name_phonetic := p1_a49;
673     ddp_bank_rec.organization_rec.tax_reference := p1_a50;
675     ddp_bank_rec.organization_rec.jgzz_fiscal_code := p1_a52;
676     ddp_bank_rec.organization_rec.analysis_fy := p1_a53;
677     ddp_bank_rec.organization_rec.fiscal_yearend_month := p1_a54;
678     ddp_bank_rec.organization_rec.curr_fy_potential_revenue := rosetta_g_miss_num_map(p1_a55);
679     ddp_bank_rec.organization_rec.next_fy_potential_revenue := rosetta_g_miss_num_map(p1_a56);
680     ddp_bank_rec.organization_rec.year_established := rosetta_g_miss_num_map(p1_a57);
681     ddp_bank_rec.organization_rec.mission_statement := p1_a58;
682     ddp_bank_rec.organization_rec.organization_type := p1_a59;
683     ddp_bank_rec.organization_rec.business_scope := p1_a60;
684     ddp_bank_rec.organization_rec.corporation_class := p1_a61;
685     ddp_bank_rec.organization_rec.known_as := p1_a62;
686     ddp_bank_rec.organization_rec.known_as2 := p1_a63;
687     ddp_bank_rec.organization_rec.known_as3 := p1_a64;
688     ddp_bank_rec.organization_rec.known_as4 := p1_a65;
689     ddp_bank_rec.organization_rec.known_as5 := p1_a66;
690     ddp_bank_rec.organization_rec.local_bus_iden_type := p1_a67;
691     ddp_bank_rec.organization_rec.local_bus_identifier := p1_a68;
692     ddp_bank_rec.organization_rec.pref_functional_currency := p1_a69;
693     ddp_bank_rec.organization_rec.registration_type := p1_a70;
694     ddp_bank_rec.organization_rec.total_employees_text := p1_a71;
695     ddp_bank_rec.organization_rec.total_employees_ind := p1_a72;
696     ddp_bank_rec.organization_rec.total_emp_est_ind := p1_a73;
697     ddp_bank_rec.organization_rec.total_emp_min_ind := p1_a74;
698     ddp_bank_rec.organization_rec.parent_sub_ind := p1_a75;
699     ddp_bank_rec.organization_rec.incorp_year := rosetta_g_miss_num_map(p1_a76);
700     ddp_bank_rec.organization_rec.sic_code_type := p1_a77;
701     ddp_bank_rec.organization_rec.public_private_ownership_flag := p1_a78;
702     ddp_bank_rec.organization_rec.internal_flag := p1_a79;
703     ddp_bank_rec.organization_rec.local_activity_code_type := p1_a80;
704     ddp_bank_rec.organization_rec.local_activity_code := p1_a81;
705     ddp_bank_rec.organization_rec.emp_at_primary_adr := p1_a82;
706     ddp_bank_rec.organization_rec.emp_at_primary_adr_text := p1_a83;
707     ddp_bank_rec.organization_rec.emp_at_primary_adr_est_ind := p1_a84;
708     ddp_bank_rec.organization_rec.emp_at_primary_adr_min_ind := p1_a85;
709     ddp_bank_rec.organization_rec.high_credit := rosetta_g_miss_num_map(p1_a86);
710     ddp_bank_rec.organization_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a87);
711     ddp_bank_rec.organization_rec.total_payments := rosetta_g_miss_num_map(p1_a88);
712     ddp_bank_rec.organization_rec.credit_score_class := rosetta_g_miss_num_map(p1_a89);
713     ddp_bank_rec.organization_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a90);
714     ddp_bank_rec.organization_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a91);
715     ddp_bank_rec.organization_rec.credit_score_age := rosetta_g_miss_num_map(p1_a92);
716     ddp_bank_rec.organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a93);
717     ddp_bank_rec.organization_rec.credit_score_commentary2 := p1_a94;
718     ddp_bank_rec.organization_rec.credit_score_commentary3 := p1_a95;
719     ddp_bank_rec.organization_rec.credit_score_commentary4 := p1_a96;
720     ddp_bank_rec.organization_rec.credit_score_commentary5 := p1_a97;
721     ddp_bank_rec.organization_rec.credit_score_commentary6 := p1_a98;
722     ddp_bank_rec.organization_rec.credit_score_commentary7 := p1_a99;
723     ddp_bank_rec.organization_rec.credit_score_commentary8 := p1_a100;
724     ddp_bank_rec.organization_rec.credit_score_commentary9 := p1_a101;
725     ddp_bank_rec.organization_rec.credit_score_commentary10 := p1_a102;
726     ddp_bank_rec.organization_rec.failure_score_class := rosetta_g_miss_num_map(p1_a103);
727     ddp_bank_rec.organization_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a104);
728     ddp_bank_rec.organization_rec.failure_score_age := rosetta_g_miss_num_map(p1_a105);
729     ddp_bank_rec.organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a106);
730     ddp_bank_rec.organization_rec.failure_score_commentary2 := p1_a107;
731     ddp_bank_rec.organization_rec.failure_score_commentary3 := p1_a108;
732     ddp_bank_rec.organization_rec.failure_score_commentary4 := p1_a109;
733     ddp_bank_rec.organization_rec.failure_score_commentary5 := p1_a110;
734     ddp_bank_rec.organization_rec.failure_score_commentary6 := p1_a111;
735     ddp_bank_rec.organization_rec.failure_score_commentary7 := p1_a112;
736     ddp_bank_rec.organization_rec.failure_score_commentary8 := p1_a113;
737     ddp_bank_rec.organization_rec.failure_score_commentary9 := p1_a114;
738     ddp_bank_rec.organization_rec.failure_score_commentary10 := p1_a115;
739     ddp_bank_rec.organization_rec.maximum_credit_recommendation := rosetta_g_miss_num_map(p1_a116);
740     ddp_bank_rec.organization_rec.maximum_credit_currency_code := p1_a117;
741     ddp_bank_rec.organization_rec.displayed_duns_party_id := rosetta_g_miss_num_map(p1_a118);
742     ddp_bank_rec.organization_rec.content_source_type := p1_a119;
743     ddp_bank_rec.organization_rec.content_source_number := p1_a120;
744     ddp_bank_rec.organization_rec.attribute_category := p1_a121;
745     ddp_bank_rec.organization_rec.attribute1 := p1_a122;
746     ddp_bank_rec.organization_rec.attribute2 := p1_a123;
747     ddp_bank_rec.organization_rec.attribute3 := p1_a124;
751     ddp_bank_rec.organization_rec.attribute7 := p1_a128;
748     ddp_bank_rec.organization_rec.attribute4 := p1_a125;
749     ddp_bank_rec.organization_rec.attribute5 := p1_a126;
750     ddp_bank_rec.organization_rec.attribute6 := p1_a127;
752     ddp_bank_rec.organization_rec.attribute8 := p1_a129;
753     ddp_bank_rec.organization_rec.attribute9 := p1_a130;
754     ddp_bank_rec.organization_rec.attribute10 := p1_a131;
755     ddp_bank_rec.organization_rec.attribute11 := p1_a132;
756     ddp_bank_rec.organization_rec.attribute12 := p1_a133;
757     ddp_bank_rec.organization_rec.attribute13 := p1_a134;
758     ddp_bank_rec.organization_rec.attribute14 := p1_a135;
759     ddp_bank_rec.organization_rec.attribute15 := p1_a136;
760     ddp_bank_rec.organization_rec.attribute16 := p1_a137;
761     ddp_bank_rec.organization_rec.attribute17 := p1_a138;
762     ddp_bank_rec.organization_rec.attribute18 := p1_a139;
763     ddp_bank_rec.organization_rec.attribute19 := p1_a140;
764     ddp_bank_rec.organization_rec.attribute20 := p1_a141;
765     ddp_bank_rec.organization_rec.created_by_module := p1_a142;
766     ddp_bank_rec.organization_rec.application_id := rosetta_g_miss_num_map(p1_a143);
767     ddp_bank_rec.organization_rec.do_not_confuse_with := p1_a144;
768     ddp_bank_rec.organization_rec.actual_content_source := p1_a145;
769     ddp_bank_rec.organization_rec.home_country := p1_a146;
770     ddp_bank_rec.organization_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a147);
771     ddp_bank_rec.organization_rec.party_rec.party_number := p1_a148;
772     ddp_bank_rec.organization_rec.party_rec.validated_flag := p1_a149;
773     ddp_bank_rec.organization_rec.party_rec.orig_system_reference := p1_a150;
774     ddp_bank_rec.organization_rec.party_rec.orig_system := p1_a151;
775     ddp_bank_rec.organization_rec.party_rec.status := p1_a152;
776     ddp_bank_rec.organization_rec.party_rec.category_code := p1_a153;
777     ddp_bank_rec.organization_rec.party_rec.salutation := p1_a154;
778     ddp_bank_rec.organization_rec.party_rec.attribute_category := p1_a155;
779     ddp_bank_rec.organization_rec.party_rec.attribute1 := p1_a156;
780     ddp_bank_rec.organization_rec.party_rec.attribute2 := p1_a157;
781     ddp_bank_rec.organization_rec.party_rec.attribute3 := p1_a158;
782     ddp_bank_rec.organization_rec.party_rec.attribute4 := p1_a159;
783     ddp_bank_rec.organization_rec.party_rec.attribute5 := p1_a160;
784     ddp_bank_rec.organization_rec.party_rec.attribute6 := p1_a161;
785     ddp_bank_rec.organization_rec.party_rec.attribute7 := p1_a162;
786     ddp_bank_rec.organization_rec.party_rec.attribute8 := p1_a163;
787     ddp_bank_rec.organization_rec.party_rec.attribute9 := p1_a164;
788     ddp_bank_rec.organization_rec.party_rec.attribute10 := p1_a165;
789     ddp_bank_rec.organization_rec.party_rec.attribute11 := p1_a166;
790     ddp_bank_rec.organization_rec.party_rec.attribute12 := p1_a167;
791     ddp_bank_rec.organization_rec.party_rec.attribute13 := p1_a168;
792     ddp_bank_rec.organization_rec.party_rec.attribute14 := p1_a169;
793     ddp_bank_rec.organization_rec.party_rec.attribute15 := p1_a170;
794     ddp_bank_rec.organization_rec.party_rec.attribute16 := p1_a171;
795     ddp_bank_rec.organization_rec.party_rec.attribute17 := p1_a172;
796     ddp_bank_rec.organization_rec.party_rec.attribute18 := p1_a173;
797     ddp_bank_rec.organization_rec.party_rec.attribute19 := p1_a174;
798     ddp_bank_rec.organization_rec.party_rec.attribute20 := p1_a175;
799     ddp_bank_rec.organization_rec.party_rec.attribute21 := p1_a176;
800     ddp_bank_rec.organization_rec.party_rec.attribute22 := p1_a177;
801     ddp_bank_rec.organization_rec.party_rec.attribute23 := p1_a178;
802     ddp_bank_rec.organization_rec.party_rec.attribute24 := p1_a179;
803 
804 
805 
806 
807 
808 
809 
810     -- here's the delegated call to the old PL/SQL routine
811     hz_bank_pub.update_bank(p_init_msg_list,
812       ddp_bank_rec,
813       p_pobject_version_number,
814       p_bitobject_version_number,
815       x_profile_id,
816       x_return_status,
817       x_msg_count,
818       x_msg_data);
819 
820     -- copy data back from the local OUT or IN-OUT args, if any
821 
822 
823 
824 
825 
826 
827 
828   end;
829 
830   procedure create_bank_branch_3(p_init_msg_list  VARCHAR2
831     , p_bank_party_id  NUMBER
832     , x_party_id out nocopy  NUMBER
833     , x_party_number out nocopy  VARCHAR2
834     , x_profile_id out nocopy  NUMBER
835     , x_relationship_id out nocopy  NUMBER
836     , x_rel_party_id out nocopy  NUMBER
837     , x_rel_party_number out nocopy  NUMBER
838     , x_bitcode_assignment_id out nocopy  NUMBER
839     , x_bbtcode_assignment_id out nocopy  NUMBER
840     , x_rfccode_assignment_id out nocopy  NUMBER
841     , x_return_status out nocopy  VARCHAR2
842     , x_msg_count out nocopy  NUMBER
843     , x_msg_data out nocopy  VARCHAR2
844     , p1_a0  VARCHAR2 := null
845     , p1_a1  VARCHAR2 := null
846     , p1_a2  VARCHAR2 := null
847     , p1_a3  VARCHAR2 := null
848     , p1_a4  VARCHAR2 := null
849     , p1_a5  VARCHAR2 := null
850     , p1_a6  VARCHAR2 := null
851     , p1_a7  DATE := null
852     , p1_a8  VARCHAR2 := null
853     , p1_a9  VARCHAR2 := null
854     , p1_a10  VARCHAR2 := null
855     , p1_a11  VARCHAR2 := null
856     , p1_a12  VARCHAR2 := null
857     , p1_a13  VARCHAR2 := null
858     , p1_a14  VARCHAR2 := null
859     , p1_a15  VARCHAR2 := null
863     , p1_a19  VARCHAR2 := null
860     , p1_a16  NUMBER := null
861     , p1_a17  NUMBER := null
862     , p1_a18  VARCHAR2 := null
864     , p1_a20  VARCHAR2 := null
865     , p1_a21  VARCHAR2 := null
866     , p1_a22  VARCHAR2 := null
867     , p1_a23  VARCHAR2 := null
868     , p1_a24  VARCHAR2 := null
869     , p1_a25  VARCHAR2 := null
870     , p1_a26  VARCHAR2 := null
871     , p1_a27  VARCHAR2 := null
872     , p1_a28  VARCHAR2 := null
873     , p1_a29  VARCHAR2 := null
874     , p1_a30  VARCHAR2 := null
875     , p1_a31  VARCHAR2 := null
876     , p1_a32  VARCHAR2 := null
877     , p1_a33  VARCHAR2 := null
878     , p1_a34  NUMBER := null
879     , p1_a35  DATE := null
880     , p1_a36  VARCHAR2 := null
881     , p1_a37  NUMBER := null
882     , p1_a38  VARCHAR2 := null
883     , p1_a39  VARCHAR2 := null
884     , p1_a40  VARCHAR2 := null
885     , p1_a41  VARCHAR2 := null
886     , p1_a42  VARCHAR2 := null
887     , p1_a43  VARCHAR2 := null
888     , p1_a44  VARCHAR2 := null
889     , p1_a45  VARCHAR2 := null
890     , p1_a46  VARCHAR2 := null
891     , p1_a47  DATE := null
892     , p1_a48  DATE := null
893     , p1_a49  VARCHAR2 := null
894     , p1_a50  VARCHAR2 := null
895     , p1_a51  VARCHAR2 := null
896     , p1_a52  VARCHAR2 := null
897     , p1_a53  VARCHAR2 := null
898     , p1_a54  VARCHAR2 := null
899     , p1_a55  NUMBER := null
900     , p1_a56  NUMBER := null
901     , p1_a57  NUMBER := null
902     , p1_a58  VARCHAR2 := null
903     , p1_a59  VARCHAR2 := null
904     , p1_a60  VARCHAR2 := null
905     , p1_a61  VARCHAR2 := null
906     , p1_a62  VARCHAR2 := null
907     , p1_a63  VARCHAR2 := null
908     , p1_a64  VARCHAR2 := null
909     , p1_a65  VARCHAR2 := null
910     , p1_a66  VARCHAR2 := null
911     , p1_a67  VARCHAR2 := null
912     , p1_a68  VARCHAR2 := null
913     , p1_a69  VARCHAR2 := null
914     , p1_a70  VARCHAR2 := null
915     , p1_a71  VARCHAR2 := null
916     , p1_a72  VARCHAR2 := null
917     , p1_a73  VARCHAR2 := null
918     , p1_a74  VARCHAR2 := null
919     , p1_a75  VARCHAR2 := null
920     , p1_a76  NUMBER := null
921     , p1_a77  VARCHAR2 := null
922     , p1_a78  VARCHAR2 := null
923     , p1_a79  VARCHAR2 := null
924     , p1_a80  VARCHAR2 := null
925     , p1_a81  VARCHAR2 := null
926     , p1_a82  VARCHAR2 := null
927     , p1_a83  VARCHAR2 := null
928     , p1_a84  VARCHAR2 := null
929     , p1_a85  VARCHAR2 := null
930     , p1_a86  NUMBER := null
931     , p1_a87  NUMBER := null
932     , p1_a88  NUMBER := null
933     , p1_a89  NUMBER := null
934     , p1_a90  NUMBER := null
935     , p1_a91  NUMBER := null
936     , p1_a92  NUMBER := null
937     , p1_a93  DATE := null
938     , p1_a94  VARCHAR2 := null
939     , p1_a95  VARCHAR2 := null
940     , p1_a96  VARCHAR2 := null
941     , p1_a97  VARCHAR2 := null
942     , p1_a98  VARCHAR2 := null
943     , p1_a99  VARCHAR2 := null
944     , p1_a100  VARCHAR2 := null
945     , p1_a101  VARCHAR2 := null
946     , p1_a102  VARCHAR2 := null
947     , p1_a103  NUMBER := null
948     , p1_a104  NUMBER := null
949     , p1_a105  NUMBER := null
950     , p1_a106  DATE := null
951     , p1_a107  VARCHAR2 := null
952     , p1_a108  VARCHAR2 := null
953     , p1_a109  VARCHAR2 := null
954     , p1_a110  VARCHAR2 := null
955     , p1_a111  VARCHAR2 := null
956     , p1_a112  VARCHAR2 := null
957     , p1_a113  VARCHAR2 := null
958     , p1_a114  VARCHAR2 := null
959     , p1_a115  VARCHAR2 := null
960     , p1_a116  NUMBER := null
961     , p1_a117  VARCHAR2 := null
962     , p1_a118  NUMBER := null
963     , p1_a119  VARCHAR2 := null
964     , p1_a120  VARCHAR2 := null
965     , p1_a121  VARCHAR2 := null
966     , p1_a122  VARCHAR2 := null
967     , p1_a123  VARCHAR2 := null
968     , p1_a124  VARCHAR2 := null
969     , p1_a125  VARCHAR2 := null
970     , p1_a126  VARCHAR2 := null
971     , p1_a127  VARCHAR2 := null
972     , p1_a128  VARCHAR2 := null
973     , p1_a129  VARCHAR2 := null
974     , p1_a130  VARCHAR2 := null
975     , p1_a131  VARCHAR2 := null
976     , p1_a132  VARCHAR2 := null
977     , p1_a133  VARCHAR2 := null
978     , p1_a134  VARCHAR2 := null
979     , p1_a135  VARCHAR2 := null
980     , p1_a136  VARCHAR2 := null
981     , p1_a137  VARCHAR2 := null
982     , p1_a138  VARCHAR2 := null
983     , p1_a139  VARCHAR2 := null
984     , p1_a140  VARCHAR2 := null
985     , p1_a141  VARCHAR2 := null
986     , p1_a142  VARCHAR2 := null
987     , p1_a143  NUMBER := null
988     , p1_a144  VARCHAR2 := null
989     , p1_a145  VARCHAR2 := null
990     , p1_a146  VARCHAR2 := null
991     , p1_a147  NUMBER := null
992     , p1_a148  VARCHAR2 := null
993     , p1_a149  VARCHAR2 := null
994     , p1_a150  VARCHAR2 := null
995     , p1_a151  VARCHAR2 := null
996     , p1_a152  VARCHAR2 := null
997     , p1_a153  VARCHAR2 := null
998     , p1_a154  VARCHAR2 := null
999     , p1_a155  VARCHAR2 := null
1000     , p1_a156  VARCHAR2 := null
1001     , p1_a157  VARCHAR2 := null
1002     , p1_a158  VARCHAR2 := null
1003     , p1_a159  VARCHAR2 := null
1004     , p1_a160  VARCHAR2 := null
1005     , p1_a161  VARCHAR2 := null
1009     , p1_a165  VARCHAR2 := null
1006     , p1_a162  VARCHAR2 := null
1007     , p1_a163  VARCHAR2 := null
1008     , p1_a164  VARCHAR2 := null
1010     , p1_a166  VARCHAR2 := null
1011     , p1_a167  VARCHAR2 := null
1012     , p1_a168  VARCHAR2 := null
1013     , p1_a169  VARCHAR2 := null
1014     , p1_a170  VARCHAR2 := null
1015     , p1_a171  VARCHAR2 := null
1016     , p1_a172  VARCHAR2 := null
1017     , p1_a173  VARCHAR2 := null
1018     , p1_a174  VARCHAR2 := null
1019     , p1_a175  VARCHAR2 := null
1020     , p1_a176  VARCHAR2 := null
1021     , p1_a177  VARCHAR2 := null
1022     , p1_a178  VARCHAR2 := null
1023     , p1_a179  VARCHAR2 := null
1024   )
1025   as
1026     ddp_bank_rec hz_bank_pub.bank_rec_type;
1027     ddindx binary_integer; indx binary_integer;
1028   begin
1029 
1030     -- copy data to the local IN or IN-OUT args, if any
1031 
1032     ddp_bank_rec.bank_or_branch_number := p1_a0;
1033     ddp_bank_rec.bank_code := p1_a1;
1034     ddp_bank_rec.branch_code := p1_a2;
1035     ddp_bank_rec.institution_type := p1_a3;
1036     ddp_bank_rec.branch_type := p1_a4;
1037     ddp_bank_rec.country := p1_a5;
1038     ddp_bank_rec.rfc_code := p1_a6;
1039     ddp_bank_rec.inactive_date := rosetta_g_miss_date_in_map(p1_a7);
1040     ddp_bank_rec.organization_rec.organization_name := p1_a8;
1041     ddp_bank_rec.organization_rec.duns_number_c := p1_a9;
1042     ddp_bank_rec.organization_rec.enquiry_duns := p1_a10;
1043     ddp_bank_rec.organization_rec.ceo_name := p1_a11;
1044     ddp_bank_rec.organization_rec.ceo_title := p1_a12;
1045     ddp_bank_rec.organization_rec.principal_name := p1_a13;
1046     ddp_bank_rec.organization_rec.principal_title := p1_a14;
1047     ddp_bank_rec.organization_rec.legal_status := p1_a15;
1048     ddp_bank_rec.organization_rec.control_yr := rosetta_g_miss_num_map(p1_a16);
1049     ddp_bank_rec.organization_rec.employees_total := rosetta_g_miss_num_map(p1_a17);
1050     ddp_bank_rec.organization_rec.hq_branch_ind := p1_a18;
1051     ddp_bank_rec.organization_rec.branch_flag := p1_a19;
1052     ddp_bank_rec.organization_rec.oob_ind := p1_a20;
1053     ddp_bank_rec.organization_rec.line_of_business := p1_a21;
1054     ddp_bank_rec.organization_rec.cong_dist_code := p1_a22;
1055     ddp_bank_rec.organization_rec.sic_code := p1_a23;
1056     ddp_bank_rec.organization_rec.import_ind := p1_a24;
1057     ddp_bank_rec.organization_rec.export_ind := p1_a25;
1058     ddp_bank_rec.organization_rec.labor_surplus_ind := p1_a26;
1059     ddp_bank_rec.organization_rec.debarment_ind := p1_a27;
1060     ddp_bank_rec.organization_rec.minority_owned_ind := p1_a28;
1061     ddp_bank_rec.organization_rec.minority_owned_type := p1_a29;
1062     ddp_bank_rec.organization_rec.woman_owned_ind := p1_a30;
1063     ddp_bank_rec.organization_rec.disadv_8a_ind := p1_a31;
1064     ddp_bank_rec.organization_rec.small_bus_ind := p1_a32;
1065     ddp_bank_rec.organization_rec.rent_own_ind := p1_a33;
1066     ddp_bank_rec.organization_rec.debarments_count := rosetta_g_miss_num_map(p1_a34);
1067     ddp_bank_rec.organization_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a35);
1068     ddp_bank_rec.organization_rec.failure_score := p1_a36;
1069     ddp_bank_rec.organization_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a37);
1070     ddp_bank_rec.organization_rec.failure_score_override_code := p1_a38;
1071     ddp_bank_rec.organization_rec.failure_score_commentary := p1_a39;
1072     ddp_bank_rec.organization_rec.global_failure_score := p1_a40;
1073     ddp_bank_rec.organization_rec.db_rating := p1_a41;
1074     ddp_bank_rec.organization_rec.credit_score := p1_a42;
1075     ddp_bank_rec.organization_rec.credit_score_commentary := p1_a43;
1076     ddp_bank_rec.organization_rec.paydex_score := p1_a44;
1077     ddp_bank_rec.organization_rec.paydex_three_months_ago := p1_a45;
1078     ddp_bank_rec.organization_rec.paydex_norm := p1_a46;
1079     ddp_bank_rec.organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p1_a47);
1080     ddp_bank_rec.organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p1_a48);
1081     ddp_bank_rec.organization_rec.organization_name_phonetic := p1_a49;
1082     ddp_bank_rec.organization_rec.tax_reference := p1_a50;
1083     ddp_bank_rec.organization_rec.gsa_indicator_flag := p1_a51;
1084     ddp_bank_rec.organization_rec.jgzz_fiscal_code := p1_a52;
1085     ddp_bank_rec.organization_rec.analysis_fy := p1_a53;
1086     ddp_bank_rec.organization_rec.fiscal_yearend_month := p1_a54;
1087     ddp_bank_rec.organization_rec.curr_fy_potential_revenue := rosetta_g_miss_num_map(p1_a55);
1088     ddp_bank_rec.organization_rec.next_fy_potential_revenue := rosetta_g_miss_num_map(p1_a56);
1089     ddp_bank_rec.organization_rec.year_established := rosetta_g_miss_num_map(p1_a57);
1090     ddp_bank_rec.organization_rec.mission_statement := p1_a58;
1091     ddp_bank_rec.organization_rec.organization_type := p1_a59;
1092     ddp_bank_rec.organization_rec.business_scope := p1_a60;
1093     ddp_bank_rec.organization_rec.corporation_class := p1_a61;
1094     ddp_bank_rec.organization_rec.known_as := p1_a62;
1095     ddp_bank_rec.organization_rec.known_as2 := p1_a63;
1096     ddp_bank_rec.organization_rec.known_as3 := p1_a64;
1097     ddp_bank_rec.organization_rec.known_as4 := p1_a65;
1098     ddp_bank_rec.organization_rec.known_as5 := p1_a66;
1099     ddp_bank_rec.organization_rec.local_bus_iden_type := p1_a67;
1100     ddp_bank_rec.organization_rec.local_bus_identifier := p1_a68;
1101     ddp_bank_rec.organization_rec.pref_functional_currency := p1_a69;
1102     ddp_bank_rec.organization_rec.registration_type := p1_a70;
1106     ddp_bank_rec.organization_rec.total_emp_min_ind := p1_a74;
1103     ddp_bank_rec.organization_rec.total_employees_text := p1_a71;
1104     ddp_bank_rec.organization_rec.total_employees_ind := p1_a72;
1105     ddp_bank_rec.organization_rec.total_emp_est_ind := p1_a73;
1107     ddp_bank_rec.organization_rec.parent_sub_ind := p1_a75;
1108     ddp_bank_rec.organization_rec.incorp_year := rosetta_g_miss_num_map(p1_a76);
1109     ddp_bank_rec.organization_rec.sic_code_type := p1_a77;
1110     ddp_bank_rec.organization_rec.public_private_ownership_flag := p1_a78;
1111     ddp_bank_rec.organization_rec.internal_flag := p1_a79;
1112     ddp_bank_rec.organization_rec.local_activity_code_type := p1_a80;
1113     ddp_bank_rec.organization_rec.local_activity_code := p1_a81;
1114     ddp_bank_rec.organization_rec.emp_at_primary_adr := p1_a82;
1115     ddp_bank_rec.organization_rec.emp_at_primary_adr_text := p1_a83;
1116     ddp_bank_rec.organization_rec.emp_at_primary_adr_est_ind := p1_a84;
1117     ddp_bank_rec.organization_rec.emp_at_primary_adr_min_ind := p1_a85;
1118     ddp_bank_rec.organization_rec.high_credit := rosetta_g_miss_num_map(p1_a86);
1119     ddp_bank_rec.organization_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a87);
1120     ddp_bank_rec.organization_rec.total_payments := rosetta_g_miss_num_map(p1_a88);
1121     ddp_bank_rec.organization_rec.credit_score_class := rosetta_g_miss_num_map(p1_a89);
1122     ddp_bank_rec.organization_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a90);
1123     ddp_bank_rec.organization_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a91);
1124     ddp_bank_rec.organization_rec.credit_score_age := rosetta_g_miss_num_map(p1_a92);
1125     ddp_bank_rec.organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a93);
1126     ddp_bank_rec.organization_rec.credit_score_commentary2 := p1_a94;
1127     ddp_bank_rec.organization_rec.credit_score_commentary3 := p1_a95;
1128     ddp_bank_rec.organization_rec.credit_score_commentary4 := p1_a96;
1129     ddp_bank_rec.organization_rec.credit_score_commentary5 := p1_a97;
1130     ddp_bank_rec.organization_rec.credit_score_commentary6 := p1_a98;
1131     ddp_bank_rec.organization_rec.credit_score_commentary7 := p1_a99;
1132     ddp_bank_rec.organization_rec.credit_score_commentary8 := p1_a100;
1133     ddp_bank_rec.organization_rec.credit_score_commentary9 := p1_a101;
1134     ddp_bank_rec.organization_rec.credit_score_commentary10 := p1_a102;
1135     ddp_bank_rec.organization_rec.failure_score_class := rosetta_g_miss_num_map(p1_a103);
1136     ddp_bank_rec.organization_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a104);
1137     ddp_bank_rec.organization_rec.failure_score_age := rosetta_g_miss_num_map(p1_a105);
1138     ddp_bank_rec.organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a106);
1139     ddp_bank_rec.organization_rec.failure_score_commentary2 := p1_a107;
1140     ddp_bank_rec.organization_rec.failure_score_commentary3 := p1_a108;
1141     ddp_bank_rec.organization_rec.failure_score_commentary4 := p1_a109;
1142     ddp_bank_rec.organization_rec.failure_score_commentary5 := p1_a110;
1143     ddp_bank_rec.organization_rec.failure_score_commentary6 := p1_a111;
1144     ddp_bank_rec.organization_rec.failure_score_commentary7 := p1_a112;
1145     ddp_bank_rec.organization_rec.failure_score_commentary8 := p1_a113;
1146     ddp_bank_rec.organization_rec.failure_score_commentary9 := p1_a114;
1147     ddp_bank_rec.organization_rec.failure_score_commentary10 := p1_a115;
1148     ddp_bank_rec.organization_rec.maximum_credit_recommendation := rosetta_g_miss_num_map(p1_a116);
1149     ddp_bank_rec.organization_rec.maximum_credit_currency_code := p1_a117;
1150     ddp_bank_rec.organization_rec.displayed_duns_party_id := rosetta_g_miss_num_map(p1_a118);
1151     ddp_bank_rec.organization_rec.content_source_type := p1_a119;
1152     ddp_bank_rec.organization_rec.content_source_number := p1_a120;
1153     ddp_bank_rec.organization_rec.attribute_category := p1_a121;
1154     ddp_bank_rec.organization_rec.attribute1 := p1_a122;
1155     ddp_bank_rec.organization_rec.attribute2 := p1_a123;
1156     ddp_bank_rec.organization_rec.attribute3 := p1_a124;
1157     ddp_bank_rec.organization_rec.attribute4 := p1_a125;
1158     ddp_bank_rec.organization_rec.attribute5 := p1_a126;
1159     ddp_bank_rec.organization_rec.attribute6 := p1_a127;
1160     ddp_bank_rec.organization_rec.attribute7 := p1_a128;
1161     ddp_bank_rec.organization_rec.attribute8 := p1_a129;
1162     ddp_bank_rec.organization_rec.attribute9 := p1_a130;
1163     ddp_bank_rec.organization_rec.attribute10 := p1_a131;
1164     ddp_bank_rec.organization_rec.attribute11 := p1_a132;
1165     ddp_bank_rec.organization_rec.attribute12 := p1_a133;
1166     ddp_bank_rec.organization_rec.attribute13 := p1_a134;
1167     ddp_bank_rec.organization_rec.attribute14 := p1_a135;
1168     ddp_bank_rec.organization_rec.attribute15 := p1_a136;
1169     ddp_bank_rec.organization_rec.attribute16 := p1_a137;
1170     ddp_bank_rec.organization_rec.attribute17 := p1_a138;
1171     ddp_bank_rec.organization_rec.attribute18 := p1_a139;
1172     ddp_bank_rec.organization_rec.attribute19 := p1_a140;
1173     ddp_bank_rec.organization_rec.attribute20 := p1_a141;
1174     ddp_bank_rec.organization_rec.created_by_module := p1_a142;
1175     ddp_bank_rec.organization_rec.application_id := rosetta_g_miss_num_map(p1_a143);
1176     ddp_bank_rec.organization_rec.do_not_confuse_with := p1_a144;
1177     ddp_bank_rec.organization_rec.actual_content_source := p1_a145;
1178     ddp_bank_rec.organization_rec.home_country := p1_a146;
1179     ddp_bank_rec.organization_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a147);
1180     ddp_bank_rec.organization_rec.party_rec.party_number := p1_a148;
1184     ddp_bank_rec.organization_rec.party_rec.status := p1_a152;
1181     ddp_bank_rec.organization_rec.party_rec.validated_flag := p1_a149;
1182     ddp_bank_rec.organization_rec.party_rec.orig_system_reference := p1_a150;
1183     ddp_bank_rec.organization_rec.party_rec.orig_system := p1_a151;
1185     ddp_bank_rec.organization_rec.party_rec.category_code := p1_a153;
1186     ddp_bank_rec.organization_rec.party_rec.salutation := p1_a154;
1187     ddp_bank_rec.organization_rec.party_rec.attribute_category := p1_a155;
1188     ddp_bank_rec.organization_rec.party_rec.attribute1 := p1_a156;
1189     ddp_bank_rec.organization_rec.party_rec.attribute2 := p1_a157;
1190     ddp_bank_rec.organization_rec.party_rec.attribute3 := p1_a158;
1191     ddp_bank_rec.organization_rec.party_rec.attribute4 := p1_a159;
1192     ddp_bank_rec.organization_rec.party_rec.attribute5 := p1_a160;
1193     ddp_bank_rec.organization_rec.party_rec.attribute6 := p1_a161;
1194     ddp_bank_rec.organization_rec.party_rec.attribute7 := p1_a162;
1195     ddp_bank_rec.organization_rec.party_rec.attribute8 := p1_a163;
1196     ddp_bank_rec.organization_rec.party_rec.attribute9 := p1_a164;
1197     ddp_bank_rec.organization_rec.party_rec.attribute10 := p1_a165;
1198     ddp_bank_rec.organization_rec.party_rec.attribute11 := p1_a166;
1199     ddp_bank_rec.organization_rec.party_rec.attribute12 := p1_a167;
1200     ddp_bank_rec.organization_rec.party_rec.attribute13 := p1_a168;
1201     ddp_bank_rec.organization_rec.party_rec.attribute14 := p1_a169;
1202     ddp_bank_rec.organization_rec.party_rec.attribute15 := p1_a170;
1203     ddp_bank_rec.organization_rec.party_rec.attribute16 := p1_a171;
1204     ddp_bank_rec.organization_rec.party_rec.attribute17 := p1_a172;
1205     ddp_bank_rec.organization_rec.party_rec.attribute18 := p1_a173;
1206     ddp_bank_rec.organization_rec.party_rec.attribute19 := p1_a174;
1207     ddp_bank_rec.organization_rec.party_rec.attribute20 := p1_a175;
1208     ddp_bank_rec.organization_rec.party_rec.attribute21 := p1_a176;
1209     ddp_bank_rec.organization_rec.party_rec.attribute22 := p1_a177;
1210     ddp_bank_rec.organization_rec.party_rec.attribute23 := p1_a178;
1211     ddp_bank_rec.organization_rec.party_rec.attribute24 := p1_a179;
1212 
1213 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226     -- here's the delegated call to the old PL/SQL routine
1227     hz_bank_pub.create_bank_branch(p_init_msg_list,
1228       ddp_bank_rec,
1229       p_bank_party_id,
1230       x_party_id,
1231       x_party_number,
1232       x_profile_id,
1233       x_relationship_id,
1234       x_rel_party_id,
1235       x_rel_party_number,
1236       x_bitcode_assignment_id,
1237       x_bbtcode_assignment_id,
1238       x_rfccode_assignment_id,
1239       x_return_status,
1240       x_msg_count,
1241       x_msg_data);
1242 
1243     -- copy data back from the local OUT or IN-OUT args, if any
1244 
1245 
1246 
1247 
1248 
1249 
1250 
1251 
1252 
1253 
1254 
1255 
1256 
1257 
1258   end;
1259 
1260   procedure update_bank_branch_4(p_init_msg_list  VARCHAR2
1261     , p_bank_party_id  NUMBER
1262     , p_relationship_id in out nocopy  NUMBER
1263     , p_pobject_version_number in out nocopy  NUMBER
1264     , p_bbtobject_version_number in out nocopy  NUMBER
1265     , p_rfcobject_version_number in out nocopy  NUMBER
1266     , x_profile_id out nocopy  NUMBER
1267     , x_rel_party_id out nocopy  NUMBER
1268     , x_rel_party_number out nocopy  NUMBER
1269     , x_return_status out nocopy  VARCHAR2
1270     , x_msg_count out nocopy  NUMBER
1271     , x_msg_data out nocopy  VARCHAR2
1272     , p1_a0  VARCHAR2 := null
1273     , p1_a1  VARCHAR2 := null
1274     , p1_a2  VARCHAR2 := null
1275     , p1_a3  VARCHAR2 := null
1276     , p1_a4  VARCHAR2 := null
1277     , p1_a5  VARCHAR2 := null
1278     , p1_a6  VARCHAR2 := null
1279     , p1_a7  DATE := null
1280     , p1_a8  VARCHAR2 := null
1281     , p1_a9  VARCHAR2 := null
1282     , p1_a10  VARCHAR2 := null
1283     , p1_a11  VARCHAR2 := null
1284     , p1_a12  VARCHAR2 := null
1285     , p1_a13  VARCHAR2 := null
1286     , p1_a14  VARCHAR2 := null
1287     , p1_a15  VARCHAR2 := null
1288     , p1_a16  NUMBER := null
1289     , p1_a17  NUMBER := null
1290     , p1_a18  VARCHAR2 := null
1291     , p1_a19  VARCHAR2 := null
1292     , p1_a20  VARCHAR2 := null
1293     , p1_a21  VARCHAR2 := null
1294     , p1_a22  VARCHAR2 := null
1295     , p1_a23  VARCHAR2 := null
1296     , p1_a24  VARCHAR2 := null
1297     , p1_a25  VARCHAR2 := null
1298     , p1_a26  VARCHAR2 := null
1299     , p1_a27  VARCHAR2 := null
1300     , p1_a28  VARCHAR2 := null
1301     , p1_a29  VARCHAR2 := null
1302     , p1_a30  VARCHAR2 := null
1303     , p1_a31  VARCHAR2 := null
1304     , p1_a32  VARCHAR2 := null
1305     , p1_a33  VARCHAR2 := null
1306     , p1_a34  NUMBER := null
1307     , p1_a35  DATE := null
1308     , p1_a36  VARCHAR2 := null
1309     , p1_a37  NUMBER := null
1310     , p1_a38  VARCHAR2 := null
1311     , p1_a39  VARCHAR2 := null
1312     , p1_a40  VARCHAR2 := null
1313     , p1_a41  VARCHAR2 := null
1314     , p1_a42  VARCHAR2 := null
1315     , p1_a43  VARCHAR2 := null
1316     , p1_a44  VARCHAR2 := null
1317     , p1_a45  VARCHAR2 := null
1318     , p1_a46  VARCHAR2 := null
1319     , p1_a47  DATE := null
1323     , p1_a51  VARCHAR2 := null
1320     , p1_a48  DATE := null
1321     , p1_a49  VARCHAR2 := null
1322     , p1_a50  VARCHAR2 := null
1324     , p1_a52  VARCHAR2 := null
1325     , p1_a53  VARCHAR2 := null
1326     , p1_a54  VARCHAR2 := null
1327     , p1_a55  NUMBER := null
1328     , p1_a56  NUMBER := null
1329     , p1_a57  NUMBER := null
1330     , p1_a58  VARCHAR2 := null
1331     , p1_a59  VARCHAR2 := null
1332     , p1_a60  VARCHAR2 := null
1333     , p1_a61  VARCHAR2 := null
1334     , p1_a62  VARCHAR2 := null
1335     , p1_a63  VARCHAR2 := null
1336     , p1_a64  VARCHAR2 := null
1337     , p1_a65  VARCHAR2 := null
1338     , p1_a66  VARCHAR2 := null
1339     , p1_a67  VARCHAR2 := null
1340     , p1_a68  VARCHAR2 := null
1341     , p1_a69  VARCHAR2 := null
1342     , p1_a70  VARCHAR2 := null
1343     , p1_a71  VARCHAR2 := null
1344     , p1_a72  VARCHAR2 := null
1345     , p1_a73  VARCHAR2 := null
1346     , p1_a74  VARCHAR2 := null
1347     , p1_a75  VARCHAR2 := null
1348     , p1_a76  NUMBER := null
1349     , p1_a77  VARCHAR2 := null
1350     , p1_a78  VARCHAR2 := null
1351     , p1_a79  VARCHAR2 := null
1352     , p1_a80  VARCHAR2 := null
1353     , p1_a81  VARCHAR2 := null
1354     , p1_a82  VARCHAR2 := null
1355     , p1_a83  VARCHAR2 := null
1356     , p1_a84  VARCHAR2 := null
1357     , p1_a85  VARCHAR2 := null
1358     , p1_a86  NUMBER := null
1359     , p1_a87  NUMBER := null
1360     , p1_a88  NUMBER := null
1361     , p1_a89  NUMBER := null
1362     , p1_a90  NUMBER := null
1363     , p1_a91  NUMBER := null
1364     , p1_a92  NUMBER := null
1365     , p1_a93  DATE := null
1366     , p1_a94  VARCHAR2 := null
1367     , p1_a95  VARCHAR2 := null
1368     , p1_a96  VARCHAR2 := null
1369     , p1_a97  VARCHAR2 := null
1370     , p1_a98  VARCHAR2 := null
1371     , p1_a99  VARCHAR2 := null
1372     , p1_a100  VARCHAR2 := null
1373     , p1_a101  VARCHAR2 := null
1374     , p1_a102  VARCHAR2 := null
1375     , p1_a103  NUMBER := null
1376     , p1_a104  NUMBER := null
1377     , p1_a105  NUMBER := null
1378     , p1_a106  DATE := null
1379     , p1_a107  VARCHAR2 := null
1380     , p1_a108  VARCHAR2 := null
1381     , p1_a109  VARCHAR2 := null
1382     , p1_a110  VARCHAR2 := null
1383     , p1_a111  VARCHAR2 := null
1384     , p1_a112  VARCHAR2 := null
1385     , p1_a113  VARCHAR2 := null
1386     , p1_a114  VARCHAR2 := null
1387     , p1_a115  VARCHAR2 := null
1388     , p1_a116  NUMBER := null
1389     , p1_a117  VARCHAR2 := null
1390     , p1_a118  NUMBER := null
1391     , p1_a119  VARCHAR2 := null
1392     , p1_a120  VARCHAR2 := null
1393     , p1_a121  VARCHAR2 := null
1394     , p1_a122  VARCHAR2 := null
1395     , p1_a123  VARCHAR2 := null
1396     , p1_a124  VARCHAR2 := null
1397     , p1_a125  VARCHAR2 := null
1398     , p1_a126  VARCHAR2 := null
1399     , p1_a127  VARCHAR2 := null
1400     , p1_a128  VARCHAR2 := null
1401     , p1_a129  VARCHAR2 := null
1402     , p1_a130  VARCHAR2 := null
1403     , p1_a131  VARCHAR2 := null
1404     , p1_a132  VARCHAR2 := null
1405     , p1_a133  VARCHAR2 := null
1406     , p1_a134  VARCHAR2 := null
1407     , p1_a135  VARCHAR2 := null
1408     , p1_a136  VARCHAR2 := null
1409     , p1_a137  VARCHAR2 := null
1410     , p1_a138  VARCHAR2 := null
1411     , p1_a139  VARCHAR2 := null
1412     , p1_a140  VARCHAR2 := null
1413     , p1_a141  VARCHAR2 := null
1414     , p1_a142  VARCHAR2 := null
1415     , p1_a143  NUMBER := null
1416     , p1_a144  VARCHAR2 := null
1417     , p1_a145  VARCHAR2 := null
1418     , p1_a146  VARCHAR2 := null
1419     , p1_a147  NUMBER := null
1420     , p1_a148  VARCHAR2 := null
1421     , p1_a149  VARCHAR2 := null
1422     , p1_a150  VARCHAR2 := null
1423     , p1_a151  VARCHAR2 := null
1424     , p1_a152  VARCHAR2 := null
1425     , p1_a153  VARCHAR2 := null
1426     , p1_a154  VARCHAR2 := null
1427     , p1_a155  VARCHAR2 := null
1428     , p1_a156  VARCHAR2 := null
1429     , p1_a157  VARCHAR2 := null
1430     , p1_a158  VARCHAR2 := null
1431     , p1_a159  VARCHAR2 := null
1432     , p1_a160  VARCHAR2 := null
1433     , p1_a161  VARCHAR2 := null
1434     , p1_a162  VARCHAR2 := null
1435     , p1_a163  VARCHAR2 := null
1436     , p1_a164  VARCHAR2 := null
1437     , p1_a165  VARCHAR2 := null
1438     , p1_a166  VARCHAR2 := null
1439     , p1_a167  VARCHAR2 := null
1440     , p1_a168  VARCHAR2 := null
1441     , p1_a169  VARCHAR2 := null
1442     , p1_a170  VARCHAR2 := null
1443     , p1_a171  VARCHAR2 := null
1444     , p1_a172  VARCHAR2 := null
1445     , p1_a173  VARCHAR2 := null
1446     , p1_a174  VARCHAR2 := null
1447     , p1_a175  VARCHAR2 := null
1448     , p1_a176  VARCHAR2 := null
1449     , p1_a177  VARCHAR2 := null
1450     , p1_a178  VARCHAR2 := null
1451     , p1_a179  VARCHAR2 := null
1452   )
1453   as
1454     ddp_bank_rec hz_bank_pub.bank_rec_type;
1455     ddindx binary_integer; indx binary_integer;
1456   begin
1457 
1458     -- copy data to the local IN or IN-OUT args, if any
1459 
1460     ddp_bank_rec.bank_or_branch_number := p1_a0;
1461     ddp_bank_rec.bank_code := p1_a1;
1462     ddp_bank_rec.branch_code := p1_a2;
1463     ddp_bank_rec.institution_type := p1_a3;
1464     ddp_bank_rec.branch_type := p1_a4;
1465     ddp_bank_rec.country := p1_a5;
1466     ddp_bank_rec.rfc_code := p1_a6;
1470     ddp_bank_rec.organization_rec.enquiry_duns := p1_a10;
1467     ddp_bank_rec.inactive_date := rosetta_g_miss_date_in_map(p1_a7);
1468     ddp_bank_rec.organization_rec.organization_name := p1_a8;
1469     ddp_bank_rec.organization_rec.duns_number_c := p1_a9;
1471     ddp_bank_rec.organization_rec.ceo_name := p1_a11;
1472     ddp_bank_rec.organization_rec.ceo_title := p1_a12;
1473     ddp_bank_rec.organization_rec.principal_name := p1_a13;
1474     ddp_bank_rec.organization_rec.principal_title := p1_a14;
1475     ddp_bank_rec.organization_rec.legal_status := p1_a15;
1476     ddp_bank_rec.organization_rec.control_yr := rosetta_g_miss_num_map(p1_a16);
1477     ddp_bank_rec.organization_rec.employees_total := rosetta_g_miss_num_map(p1_a17);
1478     ddp_bank_rec.organization_rec.hq_branch_ind := p1_a18;
1479     ddp_bank_rec.organization_rec.branch_flag := p1_a19;
1480     ddp_bank_rec.organization_rec.oob_ind := p1_a20;
1481     ddp_bank_rec.organization_rec.line_of_business := p1_a21;
1482     ddp_bank_rec.organization_rec.cong_dist_code := p1_a22;
1483     ddp_bank_rec.organization_rec.sic_code := p1_a23;
1484     ddp_bank_rec.organization_rec.import_ind := p1_a24;
1485     ddp_bank_rec.organization_rec.export_ind := p1_a25;
1486     ddp_bank_rec.organization_rec.labor_surplus_ind := p1_a26;
1487     ddp_bank_rec.organization_rec.debarment_ind := p1_a27;
1488     ddp_bank_rec.organization_rec.minority_owned_ind := p1_a28;
1489     ddp_bank_rec.organization_rec.minority_owned_type := p1_a29;
1490     ddp_bank_rec.organization_rec.woman_owned_ind := p1_a30;
1491     ddp_bank_rec.organization_rec.disadv_8a_ind := p1_a31;
1492     ddp_bank_rec.organization_rec.small_bus_ind := p1_a32;
1493     ddp_bank_rec.organization_rec.rent_own_ind := p1_a33;
1494     ddp_bank_rec.organization_rec.debarments_count := rosetta_g_miss_num_map(p1_a34);
1495     ddp_bank_rec.organization_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a35);
1496     ddp_bank_rec.organization_rec.failure_score := p1_a36;
1497     ddp_bank_rec.organization_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a37);
1498     ddp_bank_rec.organization_rec.failure_score_override_code := p1_a38;
1499     ddp_bank_rec.organization_rec.failure_score_commentary := p1_a39;
1500     ddp_bank_rec.organization_rec.global_failure_score := p1_a40;
1501     ddp_bank_rec.organization_rec.db_rating := p1_a41;
1502     ddp_bank_rec.organization_rec.credit_score := p1_a42;
1503     ddp_bank_rec.organization_rec.credit_score_commentary := p1_a43;
1504     ddp_bank_rec.organization_rec.paydex_score := p1_a44;
1505     ddp_bank_rec.organization_rec.paydex_three_months_ago := p1_a45;
1506     ddp_bank_rec.organization_rec.paydex_norm := p1_a46;
1507     ddp_bank_rec.organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p1_a47);
1508     ddp_bank_rec.organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p1_a48);
1509     ddp_bank_rec.organization_rec.organization_name_phonetic := p1_a49;
1510     ddp_bank_rec.organization_rec.tax_reference := p1_a50;
1511     ddp_bank_rec.organization_rec.gsa_indicator_flag := p1_a51;
1512     ddp_bank_rec.organization_rec.jgzz_fiscal_code := p1_a52;
1513     ddp_bank_rec.organization_rec.analysis_fy := p1_a53;
1514     ddp_bank_rec.organization_rec.fiscal_yearend_month := p1_a54;
1515     ddp_bank_rec.organization_rec.curr_fy_potential_revenue := rosetta_g_miss_num_map(p1_a55);
1516     ddp_bank_rec.organization_rec.next_fy_potential_revenue := rosetta_g_miss_num_map(p1_a56);
1517     ddp_bank_rec.organization_rec.year_established := rosetta_g_miss_num_map(p1_a57);
1518     ddp_bank_rec.organization_rec.mission_statement := p1_a58;
1519     ddp_bank_rec.organization_rec.organization_type := p1_a59;
1520     ddp_bank_rec.organization_rec.business_scope := p1_a60;
1521     ddp_bank_rec.organization_rec.corporation_class := p1_a61;
1522     ddp_bank_rec.organization_rec.known_as := p1_a62;
1523     ddp_bank_rec.organization_rec.known_as2 := p1_a63;
1524     ddp_bank_rec.organization_rec.known_as3 := p1_a64;
1525     ddp_bank_rec.organization_rec.known_as4 := p1_a65;
1526     ddp_bank_rec.organization_rec.known_as5 := p1_a66;
1527     ddp_bank_rec.organization_rec.local_bus_iden_type := p1_a67;
1528     ddp_bank_rec.organization_rec.local_bus_identifier := p1_a68;
1529     ddp_bank_rec.organization_rec.pref_functional_currency := p1_a69;
1530     ddp_bank_rec.organization_rec.registration_type := p1_a70;
1531     ddp_bank_rec.organization_rec.total_employees_text := p1_a71;
1532     ddp_bank_rec.organization_rec.total_employees_ind := p1_a72;
1533     ddp_bank_rec.organization_rec.total_emp_est_ind := p1_a73;
1534     ddp_bank_rec.organization_rec.total_emp_min_ind := p1_a74;
1535     ddp_bank_rec.organization_rec.parent_sub_ind := p1_a75;
1536     ddp_bank_rec.organization_rec.incorp_year := rosetta_g_miss_num_map(p1_a76);
1537     ddp_bank_rec.organization_rec.sic_code_type := p1_a77;
1538     ddp_bank_rec.organization_rec.public_private_ownership_flag := p1_a78;
1539     ddp_bank_rec.organization_rec.internal_flag := p1_a79;
1540     ddp_bank_rec.organization_rec.local_activity_code_type := p1_a80;
1541     ddp_bank_rec.organization_rec.local_activity_code := p1_a81;
1542     ddp_bank_rec.organization_rec.emp_at_primary_adr := p1_a82;
1543     ddp_bank_rec.organization_rec.emp_at_primary_adr_text := p1_a83;
1544     ddp_bank_rec.organization_rec.emp_at_primary_adr_est_ind := p1_a84;
1545     ddp_bank_rec.organization_rec.emp_at_primary_adr_min_ind := p1_a85;
1546     ddp_bank_rec.organization_rec.high_credit := rosetta_g_miss_num_map(p1_a86);
1547     ddp_bank_rec.organization_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a87);
1548     ddp_bank_rec.organization_rec.total_payments := rosetta_g_miss_num_map(p1_a88);
1552     ddp_bank_rec.organization_rec.credit_score_age := rosetta_g_miss_num_map(p1_a92);
1549     ddp_bank_rec.organization_rec.credit_score_class := rosetta_g_miss_num_map(p1_a89);
1550     ddp_bank_rec.organization_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a90);
1551     ddp_bank_rec.organization_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a91);
1553     ddp_bank_rec.organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a93);
1554     ddp_bank_rec.organization_rec.credit_score_commentary2 := p1_a94;
1555     ddp_bank_rec.organization_rec.credit_score_commentary3 := p1_a95;
1556     ddp_bank_rec.organization_rec.credit_score_commentary4 := p1_a96;
1557     ddp_bank_rec.organization_rec.credit_score_commentary5 := p1_a97;
1558     ddp_bank_rec.organization_rec.credit_score_commentary6 := p1_a98;
1559     ddp_bank_rec.organization_rec.credit_score_commentary7 := p1_a99;
1560     ddp_bank_rec.organization_rec.credit_score_commentary8 := p1_a100;
1561     ddp_bank_rec.organization_rec.credit_score_commentary9 := p1_a101;
1562     ddp_bank_rec.organization_rec.credit_score_commentary10 := p1_a102;
1563     ddp_bank_rec.organization_rec.failure_score_class := rosetta_g_miss_num_map(p1_a103);
1564     ddp_bank_rec.organization_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a104);
1565     ddp_bank_rec.organization_rec.failure_score_age := rosetta_g_miss_num_map(p1_a105);
1566     ddp_bank_rec.organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a106);
1567     ddp_bank_rec.organization_rec.failure_score_commentary2 := p1_a107;
1568     ddp_bank_rec.organization_rec.failure_score_commentary3 := p1_a108;
1569     ddp_bank_rec.organization_rec.failure_score_commentary4 := p1_a109;
1570     ddp_bank_rec.organization_rec.failure_score_commentary5 := p1_a110;
1571     ddp_bank_rec.organization_rec.failure_score_commentary6 := p1_a111;
1572     ddp_bank_rec.organization_rec.failure_score_commentary7 := p1_a112;
1573     ddp_bank_rec.organization_rec.failure_score_commentary8 := p1_a113;
1574     ddp_bank_rec.organization_rec.failure_score_commentary9 := p1_a114;
1575     ddp_bank_rec.organization_rec.failure_score_commentary10 := p1_a115;
1576     ddp_bank_rec.organization_rec.maximum_credit_recommendation := rosetta_g_miss_num_map(p1_a116);
1577     ddp_bank_rec.organization_rec.maximum_credit_currency_code := p1_a117;
1578     ddp_bank_rec.organization_rec.displayed_duns_party_id := rosetta_g_miss_num_map(p1_a118);
1579     ddp_bank_rec.organization_rec.content_source_type := p1_a119;
1580     ddp_bank_rec.organization_rec.content_source_number := p1_a120;
1581     ddp_bank_rec.organization_rec.attribute_category := p1_a121;
1582     ddp_bank_rec.organization_rec.attribute1 := p1_a122;
1583     ddp_bank_rec.organization_rec.attribute2 := p1_a123;
1584     ddp_bank_rec.organization_rec.attribute3 := p1_a124;
1585     ddp_bank_rec.organization_rec.attribute4 := p1_a125;
1586     ddp_bank_rec.organization_rec.attribute5 := p1_a126;
1587     ddp_bank_rec.organization_rec.attribute6 := p1_a127;
1588     ddp_bank_rec.organization_rec.attribute7 := p1_a128;
1589     ddp_bank_rec.organization_rec.attribute8 := p1_a129;
1590     ddp_bank_rec.organization_rec.attribute9 := p1_a130;
1591     ddp_bank_rec.organization_rec.attribute10 := p1_a131;
1592     ddp_bank_rec.organization_rec.attribute11 := p1_a132;
1593     ddp_bank_rec.organization_rec.attribute12 := p1_a133;
1594     ddp_bank_rec.organization_rec.attribute13 := p1_a134;
1595     ddp_bank_rec.organization_rec.attribute14 := p1_a135;
1596     ddp_bank_rec.organization_rec.attribute15 := p1_a136;
1597     ddp_bank_rec.organization_rec.attribute16 := p1_a137;
1598     ddp_bank_rec.organization_rec.attribute17 := p1_a138;
1599     ddp_bank_rec.organization_rec.attribute18 := p1_a139;
1600     ddp_bank_rec.organization_rec.attribute19 := p1_a140;
1601     ddp_bank_rec.organization_rec.attribute20 := p1_a141;
1602     ddp_bank_rec.organization_rec.created_by_module := p1_a142;
1603     ddp_bank_rec.organization_rec.application_id := rosetta_g_miss_num_map(p1_a143);
1604     ddp_bank_rec.organization_rec.do_not_confuse_with := p1_a144;
1605     ddp_bank_rec.organization_rec.actual_content_source := p1_a145;
1606     ddp_bank_rec.organization_rec.home_country := p1_a146;
1607     ddp_bank_rec.organization_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a147);
1608     ddp_bank_rec.organization_rec.party_rec.party_number := p1_a148;
1609     ddp_bank_rec.organization_rec.party_rec.validated_flag := p1_a149;
1610     ddp_bank_rec.organization_rec.party_rec.orig_system_reference := p1_a150;
1611     ddp_bank_rec.organization_rec.party_rec.orig_system := p1_a151;
1612     ddp_bank_rec.organization_rec.party_rec.status := p1_a152;
1613     ddp_bank_rec.organization_rec.party_rec.category_code := p1_a153;
1614     ddp_bank_rec.organization_rec.party_rec.salutation := p1_a154;
1615     ddp_bank_rec.organization_rec.party_rec.attribute_category := p1_a155;
1616     ddp_bank_rec.organization_rec.party_rec.attribute1 := p1_a156;
1617     ddp_bank_rec.organization_rec.party_rec.attribute2 := p1_a157;
1618     ddp_bank_rec.organization_rec.party_rec.attribute3 := p1_a158;
1619     ddp_bank_rec.organization_rec.party_rec.attribute4 := p1_a159;
1620     ddp_bank_rec.organization_rec.party_rec.attribute5 := p1_a160;
1621     ddp_bank_rec.organization_rec.party_rec.attribute6 := p1_a161;
1622     ddp_bank_rec.organization_rec.party_rec.attribute7 := p1_a162;
1623     ddp_bank_rec.organization_rec.party_rec.attribute8 := p1_a163;
1624     ddp_bank_rec.organization_rec.party_rec.attribute9 := p1_a164;
1625     ddp_bank_rec.organization_rec.party_rec.attribute10 := p1_a165;
1626     ddp_bank_rec.organization_rec.party_rec.attribute11 := p1_a166;
1627     ddp_bank_rec.organization_rec.party_rec.attribute12 := p1_a167;
1631     ddp_bank_rec.organization_rec.party_rec.attribute16 := p1_a171;
1628     ddp_bank_rec.organization_rec.party_rec.attribute13 := p1_a168;
1629     ddp_bank_rec.organization_rec.party_rec.attribute14 := p1_a169;
1630     ddp_bank_rec.organization_rec.party_rec.attribute15 := p1_a170;
1632     ddp_bank_rec.organization_rec.party_rec.attribute17 := p1_a172;
1633     ddp_bank_rec.organization_rec.party_rec.attribute18 := p1_a173;
1634     ddp_bank_rec.organization_rec.party_rec.attribute19 := p1_a174;
1635     ddp_bank_rec.organization_rec.party_rec.attribute20 := p1_a175;
1636     ddp_bank_rec.organization_rec.party_rec.attribute21 := p1_a176;
1637     ddp_bank_rec.organization_rec.party_rec.attribute22 := p1_a177;
1638     ddp_bank_rec.organization_rec.party_rec.attribute23 := p1_a178;
1639     ddp_bank_rec.organization_rec.party_rec.attribute24 := p1_a179;
1640 
1641 
1642 
1643 
1644 
1645 
1646 
1647 
1648 
1649 
1650 
1651 
1652     -- here's the delegated call to the old PL/SQL routine
1653     hz_bank_pub.update_bank_branch(p_init_msg_list,
1654       ddp_bank_rec,
1655       p_bank_party_id,
1656       p_relationship_id,
1657       p_pobject_version_number,
1658       p_bbtobject_version_number,
1659       p_rfcobject_version_number,
1660       x_profile_id,
1661       x_rel_party_id,
1662       x_rel_party_number,
1663       x_return_status,
1664       x_msg_count,
1665       x_msg_data);
1666 
1667     -- copy data back from the local OUT or IN-OUT args, if any
1668 
1669 
1670 
1671 
1672 
1673 
1674 
1675 
1676 
1677 
1678 
1679 
1680   end;
1681 
1682   procedure create_banking_group_5(p_init_msg_list  VARCHAR2
1683     , x_party_id out nocopy  NUMBER
1684     , x_party_number out nocopy  VARCHAR2
1685     , x_return_status out nocopy  VARCHAR2
1686     , x_msg_count out nocopy  NUMBER
1687     , x_msg_data out nocopy  VARCHAR2
1688     , p1_a0  VARCHAR2 := null
1689     , p1_a1  VARCHAR2 := null
1690     , p1_a2  VARCHAR2 := null
1691     , p1_a3  VARCHAR2 := null
1692     , p1_a4  NUMBER := null
1693     , p1_a5  NUMBER := null
1694     , p1_a6  VARCHAR2 := null
1695     , p1_a7  VARCHAR2 := null
1696     , p1_a8  VARCHAR2 := null
1697     , p1_a9  VARCHAR2 := null
1698     , p1_a10  VARCHAR2 := null
1699     , p1_a11  VARCHAR2 := null
1700     , p1_a12  VARCHAR2 := null
1701     , p1_a13  VARCHAR2 := null
1702     , p1_a14  VARCHAR2 := null
1703     , p1_a15  VARCHAR2 := null
1704     , p1_a16  VARCHAR2 := null
1705     , p1_a17  VARCHAR2 := null
1706     , p1_a18  VARCHAR2 := null
1707     , p1_a19  VARCHAR2 := null
1708     , p1_a20  VARCHAR2 := null
1709     , p1_a21  VARCHAR2 := null
1710     , p1_a22  VARCHAR2 := null
1711     , p1_a23  VARCHAR2 := null
1712     , p1_a24  VARCHAR2 := null
1713     , p1_a25  VARCHAR2 := null
1714     , p1_a26  VARCHAR2 := null
1715     , p1_a27  VARCHAR2 := null
1716     , p1_a28  VARCHAR2 := null
1717     , p1_a29  VARCHAR2 := null
1718     , p1_a30  VARCHAR2 := null
1719     , p1_a31  VARCHAR2 := null
1720     , p1_a32  VARCHAR2 := null
1721     , p1_a33  VARCHAR2 := null
1722     , p1_a34  VARCHAR2 := null
1723     , p1_a35  VARCHAR2 := null
1724     , p1_a36  VARCHAR2 := null
1725     , p1_a37  VARCHAR2 := null
1726   )
1727   as
1728     ddp_group_rec hz_party_v2pub.group_rec_type;
1729     ddindx binary_integer; indx binary_integer;
1730   begin
1731 
1732     -- copy data to the local IN or IN-OUT args, if any
1733 
1734     ddp_group_rec.group_name := p1_a0;
1735     ddp_group_rec.group_type := p1_a1;
1736     ddp_group_rec.created_by_module := p1_a2;
1737     ddp_group_rec.mission_statement := p1_a3;
1738     ddp_group_rec.application_id := rosetta_g_miss_num_map(p1_a4);
1739     ddp_group_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a5);
1740     ddp_group_rec.party_rec.party_number := p1_a6;
1741     ddp_group_rec.party_rec.validated_flag := p1_a7;
1742     ddp_group_rec.party_rec.orig_system_reference := p1_a8;
1743     ddp_group_rec.party_rec.orig_system := p1_a9;
1744     ddp_group_rec.party_rec.status := p1_a10;
1745     ddp_group_rec.party_rec.category_code := p1_a11;
1746     ddp_group_rec.party_rec.salutation := p1_a12;
1747     ddp_group_rec.party_rec.attribute_category := p1_a13;
1748     ddp_group_rec.party_rec.attribute1 := p1_a14;
1749     ddp_group_rec.party_rec.attribute2 := p1_a15;
1750     ddp_group_rec.party_rec.attribute3 := p1_a16;
1751     ddp_group_rec.party_rec.attribute4 := p1_a17;
1752     ddp_group_rec.party_rec.attribute5 := p1_a18;
1753     ddp_group_rec.party_rec.attribute6 := p1_a19;
1754     ddp_group_rec.party_rec.attribute7 := p1_a20;
1755     ddp_group_rec.party_rec.attribute8 := p1_a21;
1756     ddp_group_rec.party_rec.attribute9 := p1_a22;
1757     ddp_group_rec.party_rec.attribute10 := p1_a23;
1758     ddp_group_rec.party_rec.attribute11 := p1_a24;
1759     ddp_group_rec.party_rec.attribute12 := p1_a25;
1760     ddp_group_rec.party_rec.attribute13 := p1_a26;
1761     ddp_group_rec.party_rec.attribute14 := p1_a27;
1762     ddp_group_rec.party_rec.attribute15 := p1_a28;
1763     ddp_group_rec.party_rec.attribute16 := p1_a29;
1764     ddp_group_rec.party_rec.attribute17 := p1_a30;
1765     ddp_group_rec.party_rec.attribute18 := p1_a31;
1766     ddp_group_rec.party_rec.attribute19 := p1_a32;
1767     ddp_group_rec.party_rec.attribute20 := p1_a33;
1771     ddp_group_rec.party_rec.attribute24 := p1_a37;
1768     ddp_group_rec.party_rec.attribute21 := p1_a34;
1769     ddp_group_rec.party_rec.attribute22 := p1_a35;
1770     ddp_group_rec.party_rec.attribute23 := p1_a36;
1772 
1773 
1774 
1775 
1776 
1777 
1778     -- here's the delegated call to the old PL/SQL routine
1779     hz_bank_pub.create_banking_group(p_init_msg_list,
1780       ddp_group_rec,
1781       x_party_id,
1782       x_party_number,
1783       x_return_status,
1784       x_msg_count,
1785       x_msg_data);
1786 
1787     -- copy data back from the local OUT or IN-OUT args, if any
1788 
1789 
1790 
1791 
1792 
1793 
1794   end;
1795 
1796   procedure update_banking_group_6(p_init_msg_list  VARCHAR2
1797     , p_pobject_version_number in out nocopy  NUMBER
1798     , x_return_status out nocopy  VARCHAR2
1799     , x_msg_count out nocopy  NUMBER
1800     , x_msg_data out nocopy  VARCHAR2
1801     , p1_a0  VARCHAR2 := null
1802     , p1_a1  VARCHAR2 := null
1803     , p1_a2  VARCHAR2 := null
1804     , p1_a3  VARCHAR2 := null
1805     , p1_a4  NUMBER := null
1806     , p1_a5  NUMBER := null
1807     , p1_a6  VARCHAR2 := null
1808     , p1_a7  VARCHAR2 := null
1809     , p1_a8  VARCHAR2 := null
1810     , p1_a9  VARCHAR2 := null
1811     , p1_a10  VARCHAR2 := null
1812     , p1_a11  VARCHAR2 := null
1813     , p1_a12  VARCHAR2 := null
1814     , p1_a13  VARCHAR2 := null
1815     , p1_a14  VARCHAR2 := null
1816     , p1_a15  VARCHAR2 := null
1817     , p1_a16  VARCHAR2 := null
1818     , p1_a17  VARCHAR2 := null
1819     , p1_a18  VARCHAR2 := null
1820     , p1_a19  VARCHAR2 := null
1821     , p1_a20  VARCHAR2 := null
1822     , p1_a21  VARCHAR2 := null
1823     , p1_a22  VARCHAR2 := null
1824     , p1_a23  VARCHAR2 := null
1825     , p1_a24  VARCHAR2 := null
1826     , p1_a25  VARCHAR2 := null
1827     , p1_a26  VARCHAR2 := null
1828     , p1_a27  VARCHAR2 := null
1829     , p1_a28  VARCHAR2 := null
1830     , p1_a29  VARCHAR2 := null
1831     , p1_a30  VARCHAR2 := null
1832     , p1_a31  VARCHAR2 := null
1833     , p1_a32  VARCHAR2 := null
1834     , p1_a33  VARCHAR2 := null
1835     , p1_a34  VARCHAR2 := null
1836     , p1_a35  VARCHAR2 := null
1837     , p1_a36  VARCHAR2 := null
1838     , p1_a37  VARCHAR2 := null
1839   )
1840   as
1841     ddp_group_rec hz_party_v2pub.group_rec_type;
1842     ddindx binary_integer; indx binary_integer;
1843   begin
1844 
1845     -- copy data to the local IN or IN-OUT args, if any
1846 
1847     ddp_group_rec.group_name := p1_a0;
1848     ddp_group_rec.group_type := p1_a1;
1849     ddp_group_rec.created_by_module := p1_a2;
1850     ddp_group_rec.mission_statement := p1_a3;
1851     ddp_group_rec.application_id := rosetta_g_miss_num_map(p1_a4);
1852     ddp_group_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a5);
1853     ddp_group_rec.party_rec.party_number := p1_a6;
1854     ddp_group_rec.party_rec.validated_flag := p1_a7;
1855     ddp_group_rec.party_rec.orig_system_reference := p1_a8;
1856     ddp_group_rec.party_rec.orig_system := p1_a9;
1857     ddp_group_rec.party_rec.status := p1_a10;
1858     ddp_group_rec.party_rec.category_code := p1_a11;
1859     ddp_group_rec.party_rec.salutation := p1_a12;
1860     ddp_group_rec.party_rec.attribute_category := p1_a13;
1861     ddp_group_rec.party_rec.attribute1 := p1_a14;
1862     ddp_group_rec.party_rec.attribute2 := p1_a15;
1863     ddp_group_rec.party_rec.attribute3 := p1_a16;
1864     ddp_group_rec.party_rec.attribute4 := p1_a17;
1865     ddp_group_rec.party_rec.attribute5 := p1_a18;
1866     ddp_group_rec.party_rec.attribute6 := p1_a19;
1867     ddp_group_rec.party_rec.attribute7 := p1_a20;
1868     ddp_group_rec.party_rec.attribute8 := p1_a21;
1869     ddp_group_rec.party_rec.attribute9 := p1_a22;
1870     ddp_group_rec.party_rec.attribute10 := p1_a23;
1871     ddp_group_rec.party_rec.attribute11 := p1_a24;
1872     ddp_group_rec.party_rec.attribute12 := p1_a25;
1873     ddp_group_rec.party_rec.attribute13 := p1_a26;
1874     ddp_group_rec.party_rec.attribute14 := p1_a27;
1875     ddp_group_rec.party_rec.attribute15 := p1_a28;
1876     ddp_group_rec.party_rec.attribute16 := p1_a29;
1877     ddp_group_rec.party_rec.attribute17 := p1_a30;
1878     ddp_group_rec.party_rec.attribute18 := p1_a31;
1879     ddp_group_rec.party_rec.attribute19 := p1_a32;
1880     ddp_group_rec.party_rec.attribute20 := p1_a33;
1881     ddp_group_rec.party_rec.attribute21 := p1_a34;
1882     ddp_group_rec.party_rec.attribute22 := p1_a35;
1883     ddp_group_rec.party_rec.attribute23 := p1_a36;
1884     ddp_group_rec.party_rec.attribute24 := p1_a37;
1885 
1886 
1887 
1888 
1889 
1890     -- here's the delegated call to the old PL/SQL routine
1891     hz_bank_pub.update_banking_group(p_init_msg_list,
1892       ddp_group_rec,
1893       p_pobject_version_number,
1894       x_return_status,
1895       x_msg_count,
1896       x_msg_data);
1897 
1898     -- copy data back from the local OUT or IN-OUT args, if any
1899 
1900 
1901 
1902 
1903 
1904   end;
1905 
1906   procedure create_bank_group_member_7(p_init_msg_list  VARCHAR2
1907     , x_relationship_id out nocopy  NUMBER
1908     , x_party_id out nocopy  NUMBER
1909     , x_party_number out nocopy  NUMBER
1910     , x_return_status out nocopy  VARCHAR2
1911     , x_msg_count out nocopy  NUMBER
1912     , x_msg_data out nocopy  VARCHAR2
1913     , p1_a0  NUMBER := null
1914     , p1_a1  NUMBER := null
1918     , p1_a5  VARCHAR2 := null
1915     , p1_a2  VARCHAR2 := null
1916     , p1_a3  VARCHAR2 := null
1917     , p1_a4  NUMBER := null
1919     , p1_a6  VARCHAR2 := null
1920     , p1_a7  VARCHAR2 := null
1921     , p1_a8  VARCHAR2 := null
1922     , p1_a9  VARCHAR2 := null
1923     , p1_a10  DATE := null
1924     , p1_a11  DATE := null
1925     , p1_a12  VARCHAR2 := null
1926     , p1_a13  VARCHAR2 := null
1927     , p1_a14  VARCHAR2 := null
1928     , p1_a15  VARCHAR2 := null
1929     , p1_a16  VARCHAR2 := null
1930     , p1_a17  VARCHAR2 := null
1931     , p1_a18  VARCHAR2 := null
1932     , p1_a19  VARCHAR2 := null
1933     , p1_a20  VARCHAR2 := null
1934     , p1_a21  VARCHAR2 := null
1935     , p1_a22  VARCHAR2 := null
1936     , p1_a23  VARCHAR2 := null
1937     , p1_a24  VARCHAR2 := null
1938     , p1_a25  VARCHAR2 := null
1939     , p1_a26  VARCHAR2 := null
1940     , p1_a27  VARCHAR2 := null
1941     , p1_a28  VARCHAR2 := null
1942     , p1_a29  VARCHAR2 := null
1943     , p1_a30  VARCHAR2 := null
1944     , p1_a31  VARCHAR2 := null
1945     , p1_a32  VARCHAR2 := null
1946     , p1_a33  VARCHAR2 := null
1947     , p1_a34  VARCHAR2 := null
1948     , p1_a35  VARCHAR2 := null
1949     , p1_a36  NUMBER := null
1950     , p1_a37  NUMBER := null
1951     , p1_a38  VARCHAR2 := null
1952     , p1_a39  VARCHAR2 := null
1953     , p1_a40  VARCHAR2 := null
1954     , p1_a41  VARCHAR2 := null
1955     , p1_a42  VARCHAR2 := null
1956     , p1_a43  VARCHAR2 := null
1957     , p1_a44  VARCHAR2 := null
1958     , p1_a45  VARCHAR2 := null
1959     , p1_a46  VARCHAR2 := null
1960     , p1_a47  VARCHAR2 := null
1961     , p1_a48  VARCHAR2 := null
1962     , p1_a49  VARCHAR2 := null
1963     , p1_a50  VARCHAR2 := null
1964     , p1_a51  VARCHAR2 := null
1965     , p1_a52  VARCHAR2 := null
1966     , p1_a53  VARCHAR2 := null
1967     , p1_a54  VARCHAR2 := null
1968     , p1_a55  VARCHAR2 := null
1969     , p1_a56  VARCHAR2 := null
1970     , p1_a57  VARCHAR2 := null
1971     , p1_a58  VARCHAR2 := null
1972     , p1_a59  VARCHAR2 := null
1973     , p1_a60  VARCHAR2 := null
1974     , p1_a61  VARCHAR2 := null
1975     , p1_a62  VARCHAR2 := null
1976     , p1_a63  VARCHAR2 := null
1977     , p1_a64  VARCHAR2 := null
1978     , p1_a65  VARCHAR2 := null
1979     , p1_a66  VARCHAR2 := null
1980     , p1_a67  VARCHAR2 := null
1981     , p1_a68  VARCHAR2 := null
1982     , p1_a69  VARCHAR2 := null
1983     , p1_a70  VARCHAR2 := null
1984     , p1_a71  VARCHAR2 := null
1985     , p1_a72  VARCHAR2 := null
1986     , p1_a73  VARCHAR2 := null
1987     , p1_a74  VARCHAR2 := null
1988     , p1_a75  VARCHAR2 := null
1989     , p1_a76  VARCHAR2 := null
1990     , p1_a77  VARCHAR2 := null
1991     , p1_a78  VARCHAR2 := null
1992     , p1_a79  VARCHAR2 := null
1993     , p1_a80  VARCHAR2 := null
1994     , p1_a81  VARCHAR2 := null
1995     , p1_a82  VARCHAR2 := null
1996     , p1_a83  VARCHAR2 := null
1997     , p1_a84  VARCHAR2 := null
1998     , p1_a85  VARCHAR2 := null
1999     , p1_a86  VARCHAR2 := null
2000     , p1_a87  VARCHAR2 := null
2001     , p1_a88  VARCHAR2 := null
2002     , p1_a89  VARCHAR2 := null
2003     , p1_a90  VARCHAR2 := null
2004     , p1_a91  VARCHAR2 := null
2005     , p1_a92  VARCHAR2 := null
2006     , p1_a93  VARCHAR2 := null
2007     , p1_a94  VARCHAR2 := null
2008     , p1_a95  VARCHAR2 := null
2009     , p1_a96  VARCHAR2 := null
2010     , p1_a97  VARCHAR2 := null
2011     , p1_a98  VARCHAR2 := null
2012     , p1_a99  VARCHAR2 := null
2013     , p1_a100  NUMBER := null
2014     , p1_a101  VARCHAR2 := null
2015   )
2016   as
2017     ddp_relationship_rec hz_relationship_v2pub.relationship_rec_type;
2018     ddindx binary_integer; indx binary_integer;
2019   begin
2020 
2021     -- copy data to the local IN or IN-OUT args, if any
2022 
2023     ddp_relationship_rec.relationship_id := rosetta_g_miss_num_map(p1_a0);
2024     ddp_relationship_rec.subject_id := rosetta_g_miss_num_map(p1_a1);
2025     ddp_relationship_rec.subject_type := p1_a2;
2026     ddp_relationship_rec.subject_table_name := p1_a3;
2027     ddp_relationship_rec.object_id := rosetta_g_miss_num_map(p1_a4);
2028     ddp_relationship_rec.object_type := p1_a5;
2029     ddp_relationship_rec.object_table_name := p1_a6;
2030     ddp_relationship_rec.relationship_code := p1_a7;
2031     ddp_relationship_rec.relationship_type := p1_a8;
2032     ddp_relationship_rec.comments := p1_a9;
2033     ddp_relationship_rec.start_date := rosetta_g_miss_date_in_map(p1_a10);
2034     ddp_relationship_rec.end_date := rosetta_g_miss_date_in_map(p1_a11);
2035     ddp_relationship_rec.status := p1_a12;
2036     ddp_relationship_rec.content_source_type := p1_a13;
2037     ddp_relationship_rec.attribute_category := p1_a14;
2038     ddp_relationship_rec.attribute1 := p1_a15;
2039     ddp_relationship_rec.attribute2 := p1_a16;
2040     ddp_relationship_rec.attribute3 := p1_a17;
2041     ddp_relationship_rec.attribute4 := p1_a18;
2042     ddp_relationship_rec.attribute5 := p1_a19;
2043     ddp_relationship_rec.attribute6 := p1_a20;
2044     ddp_relationship_rec.attribute7 := p1_a21;
2045     ddp_relationship_rec.attribute8 := p1_a22;
2046     ddp_relationship_rec.attribute9 := p1_a23;
2047     ddp_relationship_rec.attribute10 := p1_a24;
2051     ddp_relationship_rec.attribute14 := p1_a28;
2048     ddp_relationship_rec.attribute11 := p1_a25;
2049     ddp_relationship_rec.attribute12 := p1_a26;
2050     ddp_relationship_rec.attribute13 := p1_a27;
2052     ddp_relationship_rec.attribute15 := p1_a29;
2053     ddp_relationship_rec.attribute16 := p1_a30;
2054     ddp_relationship_rec.attribute17 := p1_a31;
2055     ddp_relationship_rec.attribute18 := p1_a32;
2056     ddp_relationship_rec.attribute19 := p1_a33;
2057     ddp_relationship_rec.attribute20 := p1_a34;
2058     ddp_relationship_rec.created_by_module := p1_a35;
2059     ddp_relationship_rec.application_id := rosetta_g_miss_num_map(p1_a36);
2060     ddp_relationship_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a37);
2061     ddp_relationship_rec.party_rec.party_number := p1_a38;
2062     ddp_relationship_rec.party_rec.validated_flag := p1_a39;
2063     ddp_relationship_rec.party_rec.orig_system_reference := p1_a40;
2064     ddp_relationship_rec.party_rec.orig_system := p1_a41;
2065     ddp_relationship_rec.party_rec.status := p1_a42;
2066     ddp_relationship_rec.party_rec.category_code := p1_a43;
2067     ddp_relationship_rec.party_rec.salutation := p1_a44;
2068     ddp_relationship_rec.party_rec.attribute_category := p1_a45;
2069     ddp_relationship_rec.party_rec.attribute1 := p1_a46;
2070     ddp_relationship_rec.party_rec.attribute2 := p1_a47;
2071     ddp_relationship_rec.party_rec.attribute3 := p1_a48;
2072     ddp_relationship_rec.party_rec.attribute4 := p1_a49;
2073     ddp_relationship_rec.party_rec.attribute5 := p1_a50;
2074     ddp_relationship_rec.party_rec.attribute6 := p1_a51;
2075     ddp_relationship_rec.party_rec.attribute7 := p1_a52;
2076     ddp_relationship_rec.party_rec.attribute8 := p1_a53;
2077     ddp_relationship_rec.party_rec.attribute9 := p1_a54;
2078     ddp_relationship_rec.party_rec.attribute10 := p1_a55;
2079     ddp_relationship_rec.party_rec.attribute11 := p1_a56;
2080     ddp_relationship_rec.party_rec.attribute12 := p1_a57;
2081     ddp_relationship_rec.party_rec.attribute13 := p1_a58;
2082     ddp_relationship_rec.party_rec.attribute14 := p1_a59;
2083     ddp_relationship_rec.party_rec.attribute15 := p1_a60;
2084     ddp_relationship_rec.party_rec.attribute16 := p1_a61;
2085     ddp_relationship_rec.party_rec.attribute17 := p1_a62;
2086     ddp_relationship_rec.party_rec.attribute18 := p1_a63;
2087     ddp_relationship_rec.party_rec.attribute19 := p1_a64;
2088     ddp_relationship_rec.party_rec.attribute20 := p1_a65;
2089     ddp_relationship_rec.party_rec.attribute21 := p1_a66;
2090     ddp_relationship_rec.party_rec.attribute22 := p1_a67;
2091     ddp_relationship_rec.party_rec.attribute23 := p1_a68;
2092     ddp_relationship_rec.party_rec.attribute24 := p1_a69;
2093     ddp_relationship_rec.additional_information1 := p1_a70;
2094     ddp_relationship_rec.additional_information2 := p1_a71;
2095     ddp_relationship_rec.additional_information3 := p1_a72;
2096     ddp_relationship_rec.additional_information4 := p1_a73;
2097     ddp_relationship_rec.additional_information5 := p1_a74;
2098     ddp_relationship_rec.additional_information6 := p1_a75;
2099     ddp_relationship_rec.additional_information7 := p1_a76;
2100     ddp_relationship_rec.additional_information8 := p1_a77;
2101     ddp_relationship_rec.additional_information9 := p1_a78;
2102     ddp_relationship_rec.additional_information10 := p1_a79;
2103     ddp_relationship_rec.additional_information11 := p1_a80;
2104     ddp_relationship_rec.additional_information12 := p1_a81;
2105     ddp_relationship_rec.additional_information13 := p1_a82;
2106     ddp_relationship_rec.additional_information14 := p1_a83;
2107     ddp_relationship_rec.additional_information15 := p1_a84;
2108     ddp_relationship_rec.additional_information16 := p1_a85;
2109     ddp_relationship_rec.additional_information17 := p1_a86;
2110     ddp_relationship_rec.additional_information18 := p1_a87;
2111     ddp_relationship_rec.additional_information19 := p1_a88;
2112     ddp_relationship_rec.additional_information20 := p1_a89;
2113     ddp_relationship_rec.additional_information21 := p1_a90;
2114     ddp_relationship_rec.additional_information22 := p1_a91;
2115     ddp_relationship_rec.additional_information23 := p1_a92;
2116     ddp_relationship_rec.additional_information24 := p1_a93;
2117     ddp_relationship_rec.additional_information25 := p1_a94;
2118     ddp_relationship_rec.additional_information26 := p1_a95;
2119     ddp_relationship_rec.additional_information27 := p1_a96;
2120     ddp_relationship_rec.additional_information28 := p1_a97;
2121     ddp_relationship_rec.additional_information29 := p1_a98;
2122     ddp_relationship_rec.additional_information30 := p1_a99;
2123     ddp_relationship_rec.percentage_ownership := rosetta_g_miss_num_map(p1_a100);
2124     ddp_relationship_rec.actual_content_source := p1_a101;
2125 
2126 
2127 
2128 
2129 
2130 
2131 
2132     -- here's the delegated call to the old PL/SQL routine
2133     hz_bank_pub.create_bank_group_member(p_init_msg_list,
2134       ddp_relationship_rec,
2135       x_relationship_id,
2136       x_party_id,
2137       x_party_number,
2138       x_return_status,
2139       x_msg_count,
2140       x_msg_data);
2141 
2142     -- copy data back from the local OUT or IN-OUT args, if any
2143 
2144 
2145 
2146 
2147 
2148 
2149 
2150   end;
2151 
2152   procedure update_bank_group_member_8(p_init_msg_list  VARCHAR2
2153     , p_robject_version_number in out nocopy  NUMBER
2154     , p_pobject_version_number in out nocopy  NUMBER
2155     , x_return_status out nocopy  VARCHAR2
2156     , x_msg_count out nocopy  NUMBER
2157     , x_msg_data out nocopy  VARCHAR2
2158     , p1_a0  NUMBER := null
2159     , p1_a1  NUMBER := null
2163     , p1_a5  VARCHAR2 := null
2160     , p1_a2  VARCHAR2 := null
2161     , p1_a3  VARCHAR2 := null
2162     , p1_a4  NUMBER := null
2164     , p1_a6  VARCHAR2 := null
2165     , p1_a7  VARCHAR2 := null
2166     , p1_a8  VARCHAR2 := null
2167     , p1_a9  VARCHAR2 := null
2168     , p1_a10  DATE := null
2169     , p1_a11  DATE := null
2170     , p1_a12  VARCHAR2 := null
2171     , p1_a13  VARCHAR2 := null
2172     , p1_a14  VARCHAR2 := null
2173     , p1_a15  VARCHAR2 := null
2174     , p1_a16  VARCHAR2 := null
2175     , p1_a17  VARCHAR2 := null
2176     , p1_a18  VARCHAR2 := null
2177     , p1_a19  VARCHAR2 := null
2178     , p1_a20  VARCHAR2 := null
2179     , p1_a21  VARCHAR2 := null
2180     , p1_a22  VARCHAR2 := null
2181     , p1_a23  VARCHAR2 := null
2182     , p1_a24  VARCHAR2 := null
2183     , p1_a25  VARCHAR2 := null
2184     , p1_a26  VARCHAR2 := null
2185     , p1_a27  VARCHAR2 := null
2186     , p1_a28  VARCHAR2 := null
2187     , p1_a29  VARCHAR2 := null
2188     , p1_a30  VARCHAR2 := null
2189     , p1_a31  VARCHAR2 := null
2190     , p1_a32  VARCHAR2 := null
2191     , p1_a33  VARCHAR2 := null
2192     , p1_a34  VARCHAR2 := null
2193     , p1_a35  VARCHAR2 := null
2194     , p1_a36  NUMBER := null
2195     , p1_a37  NUMBER := null
2196     , p1_a38  VARCHAR2 := null
2197     , p1_a39  VARCHAR2 := null
2198     , p1_a40  VARCHAR2 := null
2199     , p1_a41  VARCHAR2 := null
2200     , p1_a42  VARCHAR2 := null
2201     , p1_a43  VARCHAR2 := null
2202     , p1_a44  VARCHAR2 := null
2203     , p1_a45  VARCHAR2 := null
2204     , p1_a46  VARCHAR2 := null
2205     , p1_a47  VARCHAR2 := null
2206     , p1_a48  VARCHAR2 := null
2207     , p1_a49  VARCHAR2 := null
2208     , p1_a50  VARCHAR2 := null
2209     , p1_a51  VARCHAR2 := null
2210     , p1_a52  VARCHAR2 := null
2211     , p1_a53  VARCHAR2 := null
2212     , p1_a54  VARCHAR2 := null
2213     , p1_a55  VARCHAR2 := null
2214     , p1_a56  VARCHAR2 := null
2215     , p1_a57  VARCHAR2 := null
2216     , p1_a58  VARCHAR2 := null
2217     , p1_a59  VARCHAR2 := null
2218     , p1_a60  VARCHAR2 := null
2219     , p1_a61  VARCHAR2 := null
2220     , p1_a62  VARCHAR2 := null
2221     , p1_a63  VARCHAR2 := null
2222     , p1_a64  VARCHAR2 := null
2223     , p1_a65  VARCHAR2 := null
2224     , p1_a66  VARCHAR2 := null
2225     , p1_a67  VARCHAR2 := null
2226     , p1_a68  VARCHAR2 := null
2227     , p1_a69  VARCHAR2 := null
2228     , p1_a70  VARCHAR2 := null
2229     , p1_a71  VARCHAR2 := null
2230     , p1_a72  VARCHAR2 := null
2231     , p1_a73  VARCHAR2 := null
2232     , p1_a74  VARCHAR2 := null
2233     , p1_a75  VARCHAR2 := null
2234     , p1_a76  VARCHAR2 := null
2235     , p1_a77  VARCHAR2 := null
2236     , p1_a78  VARCHAR2 := null
2237     , p1_a79  VARCHAR2 := null
2238     , p1_a80  VARCHAR2 := null
2239     , p1_a81  VARCHAR2 := null
2240     , p1_a82  VARCHAR2 := null
2241     , p1_a83  VARCHAR2 := null
2242     , p1_a84  VARCHAR2 := null
2243     , p1_a85  VARCHAR2 := null
2244     , p1_a86  VARCHAR2 := null
2245     , p1_a87  VARCHAR2 := null
2246     , p1_a88  VARCHAR2 := null
2247     , p1_a89  VARCHAR2 := null
2248     , p1_a90  VARCHAR2 := null
2249     , p1_a91  VARCHAR2 := null
2250     , p1_a92  VARCHAR2 := null
2251     , p1_a93  VARCHAR2 := null
2252     , p1_a94  VARCHAR2 := null
2253     , p1_a95  VARCHAR2 := null
2254     , p1_a96  VARCHAR2 := null
2255     , p1_a97  VARCHAR2 := null
2256     , p1_a98  VARCHAR2 := null
2257     , p1_a99  VARCHAR2 := null
2258     , p1_a100  NUMBER := null
2259     , p1_a101  VARCHAR2 := null
2260   )
2261   as
2262     ddp_relationship_rec hz_relationship_v2pub.relationship_rec_type;
2263     ddindx binary_integer; indx binary_integer;
2264   begin
2265 
2266     -- copy data to the local IN or IN-OUT args, if any
2267 
2268     ddp_relationship_rec.relationship_id := rosetta_g_miss_num_map(p1_a0);
2269     ddp_relationship_rec.subject_id := rosetta_g_miss_num_map(p1_a1);
2270     ddp_relationship_rec.subject_type := p1_a2;
2271     ddp_relationship_rec.subject_table_name := p1_a3;
2272     ddp_relationship_rec.object_id := rosetta_g_miss_num_map(p1_a4);
2273     ddp_relationship_rec.object_type := p1_a5;
2274     ddp_relationship_rec.object_table_name := p1_a6;
2275     ddp_relationship_rec.relationship_code := p1_a7;
2276     ddp_relationship_rec.relationship_type := p1_a8;
2277     ddp_relationship_rec.comments := p1_a9;
2278     ddp_relationship_rec.start_date := rosetta_g_miss_date_in_map(p1_a10);
2279     ddp_relationship_rec.end_date := rosetta_g_miss_date_in_map(p1_a11);
2280     ddp_relationship_rec.status := p1_a12;
2281     ddp_relationship_rec.content_source_type := p1_a13;
2282     ddp_relationship_rec.attribute_category := p1_a14;
2283     ddp_relationship_rec.attribute1 := p1_a15;
2284     ddp_relationship_rec.attribute2 := p1_a16;
2285     ddp_relationship_rec.attribute3 := p1_a17;
2286     ddp_relationship_rec.attribute4 := p1_a18;
2287     ddp_relationship_rec.attribute5 := p1_a19;
2288     ddp_relationship_rec.attribute6 := p1_a20;
2289     ddp_relationship_rec.attribute7 := p1_a21;
2290     ddp_relationship_rec.attribute8 := p1_a22;
2291     ddp_relationship_rec.attribute9 := p1_a23;
2292     ddp_relationship_rec.attribute10 := p1_a24;
2293     ddp_relationship_rec.attribute11 := p1_a25;
2294     ddp_relationship_rec.attribute12 := p1_a26;
2295     ddp_relationship_rec.attribute13 := p1_a27;
2296     ddp_relationship_rec.attribute14 := p1_a28;
2297     ddp_relationship_rec.attribute15 := p1_a29;
2301     ddp_relationship_rec.attribute19 := p1_a33;
2298     ddp_relationship_rec.attribute16 := p1_a30;
2299     ddp_relationship_rec.attribute17 := p1_a31;
2300     ddp_relationship_rec.attribute18 := p1_a32;
2302     ddp_relationship_rec.attribute20 := p1_a34;
2303     ddp_relationship_rec.created_by_module := p1_a35;
2304     ddp_relationship_rec.application_id := rosetta_g_miss_num_map(p1_a36);
2305     ddp_relationship_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a37);
2306     ddp_relationship_rec.party_rec.party_number := p1_a38;
2307     ddp_relationship_rec.party_rec.validated_flag := p1_a39;
2308     ddp_relationship_rec.party_rec.orig_system_reference := p1_a40;
2309     ddp_relationship_rec.party_rec.orig_system := p1_a41;
2310     ddp_relationship_rec.party_rec.status := p1_a42;
2311     ddp_relationship_rec.party_rec.category_code := p1_a43;
2312     ddp_relationship_rec.party_rec.salutation := p1_a44;
2313     ddp_relationship_rec.party_rec.attribute_category := p1_a45;
2314     ddp_relationship_rec.party_rec.attribute1 := p1_a46;
2315     ddp_relationship_rec.party_rec.attribute2 := p1_a47;
2316     ddp_relationship_rec.party_rec.attribute3 := p1_a48;
2317     ddp_relationship_rec.party_rec.attribute4 := p1_a49;
2318     ddp_relationship_rec.party_rec.attribute5 := p1_a50;
2319     ddp_relationship_rec.party_rec.attribute6 := p1_a51;
2320     ddp_relationship_rec.party_rec.attribute7 := p1_a52;
2321     ddp_relationship_rec.party_rec.attribute8 := p1_a53;
2322     ddp_relationship_rec.party_rec.attribute9 := p1_a54;
2323     ddp_relationship_rec.party_rec.attribute10 := p1_a55;
2324     ddp_relationship_rec.party_rec.attribute11 := p1_a56;
2325     ddp_relationship_rec.party_rec.attribute12 := p1_a57;
2326     ddp_relationship_rec.party_rec.attribute13 := p1_a58;
2327     ddp_relationship_rec.party_rec.attribute14 := p1_a59;
2328     ddp_relationship_rec.party_rec.attribute15 := p1_a60;
2329     ddp_relationship_rec.party_rec.attribute16 := p1_a61;
2330     ddp_relationship_rec.party_rec.attribute17 := p1_a62;
2331     ddp_relationship_rec.party_rec.attribute18 := p1_a63;
2332     ddp_relationship_rec.party_rec.attribute19 := p1_a64;
2333     ddp_relationship_rec.party_rec.attribute20 := p1_a65;
2334     ddp_relationship_rec.party_rec.attribute21 := p1_a66;
2335     ddp_relationship_rec.party_rec.attribute22 := p1_a67;
2336     ddp_relationship_rec.party_rec.attribute23 := p1_a68;
2337     ddp_relationship_rec.party_rec.attribute24 := p1_a69;
2338     ddp_relationship_rec.additional_information1 := p1_a70;
2339     ddp_relationship_rec.additional_information2 := p1_a71;
2340     ddp_relationship_rec.additional_information3 := p1_a72;
2341     ddp_relationship_rec.additional_information4 := p1_a73;
2342     ddp_relationship_rec.additional_information5 := p1_a74;
2343     ddp_relationship_rec.additional_information6 := p1_a75;
2344     ddp_relationship_rec.additional_information7 := p1_a76;
2345     ddp_relationship_rec.additional_information8 := p1_a77;
2346     ddp_relationship_rec.additional_information9 := p1_a78;
2347     ddp_relationship_rec.additional_information10 := p1_a79;
2348     ddp_relationship_rec.additional_information11 := p1_a80;
2349     ddp_relationship_rec.additional_information12 := p1_a81;
2350     ddp_relationship_rec.additional_information13 := p1_a82;
2351     ddp_relationship_rec.additional_information14 := p1_a83;
2352     ddp_relationship_rec.additional_information15 := p1_a84;
2353     ddp_relationship_rec.additional_information16 := p1_a85;
2354     ddp_relationship_rec.additional_information17 := p1_a86;
2355     ddp_relationship_rec.additional_information18 := p1_a87;
2356     ddp_relationship_rec.additional_information19 := p1_a88;
2357     ddp_relationship_rec.additional_information20 := p1_a89;
2358     ddp_relationship_rec.additional_information21 := p1_a90;
2359     ddp_relationship_rec.additional_information22 := p1_a91;
2360     ddp_relationship_rec.additional_information23 := p1_a92;
2361     ddp_relationship_rec.additional_information24 := p1_a93;
2362     ddp_relationship_rec.additional_information25 := p1_a94;
2363     ddp_relationship_rec.additional_information26 := p1_a95;
2364     ddp_relationship_rec.additional_information27 := p1_a96;
2365     ddp_relationship_rec.additional_information28 := p1_a97;
2366     ddp_relationship_rec.additional_information29 := p1_a98;
2367     ddp_relationship_rec.additional_information30 := p1_a99;
2368     ddp_relationship_rec.percentage_ownership := rosetta_g_miss_num_map(p1_a100);
2369     ddp_relationship_rec.actual_content_source := p1_a101;
2370 
2371 
2372 
2373 
2374 
2375 
2376     -- here's the delegated call to the old PL/SQL routine
2377     hz_bank_pub.update_bank_group_member(p_init_msg_list,
2378       ddp_relationship_rec,
2379       p_robject_version_number,
2380       p_pobject_version_number,
2381       x_return_status,
2382       x_msg_count,
2383       x_msg_data);
2384 
2385     -- copy data back from the local OUT or IN-OUT args, if any
2386 
2387 
2388 
2389 
2390 
2391 
2392   end;
2393 
2394   procedure create_clearinghouse_assign_9(p_init_msg_list  VARCHAR2
2395     , x_relationship_id out nocopy  NUMBER
2396     , x_party_id out nocopy  NUMBER
2397     , x_party_number out nocopy  NUMBER
2398     , x_return_status out nocopy  VARCHAR2
2399     , x_msg_count out nocopy  NUMBER
2400     , x_msg_data out nocopy  VARCHAR2
2401     , p1_a0  NUMBER := null
2402     , p1_a1  NUMBER := null
2403     , p1_a2  VARCHAR2 := null
2404     , p1_a3  VARCHAR2 := null
2405     , p1_a4  NUMBER := null
2406     , p1_a5  VARCHAR2 := null
2407     , p1_a6  VARCHAR2 := null
2408     , p1_a7  VARCHAR2 := null
2412     , p1_a11  DATE := null
2409     , p1_a8  VARCHAR2 := null
2410     , p1_a9  VARCHAR2 := null
2411     , p1_a10  DATE := null
2413     , p1_a12  VARCHAR2 := null
2414     , p1_a13  VARCHAR2 := null
2415     , p1_a14  VARCHAR2 := null
2416     , p1_a15  VARCHAR2 := null
2417     , p1_a16  VARCHAR2 := null
2418     , p1_a17  VARCHAR2 := null
2419     , p1_a18  VARCHAR2 := null
2420     , p1_a19  VARCHAR2 := null
2421     , p1_a20  VARCHAR2 := null
2422     , p1_a21  VARCHAR2 := null
2423     , p1_a22  VARCHAR2 := null
2424     , p1_a23  VARCHAR2 := null
2425     , p1_a24  VARCHAR2 := null
2426     , p1_a25  VARCHAR2 := null
2427     , p1_a26  VARCHAR2 := null
2428     , p1_a27  VARCHAR2 := null
2429     , p1_a28  VARCHAR2 := null
2430     , p1_a29  VARCHAR2 := null
2431     , p1_a30  VARCHAR2 := null
2432     , p1_a31  VARCHAR2 := null
2433     , p1_a32  VARCHAR2 := null
2434     , p1_a33  VARCHAR2 := null
2435     , p1_a34  VARCHAR2 := null
2436     , p1_a35  VARCHAR2 := null
2437     , p1_a36  NUMBER := null
2438     , p1_a37  NUMBER := null
2439     , p1_a38  VARCHAR2 := null
2440     , p1_a39  VARCHAR2 := null
2441     , p1_a40  VARCHAR2 := null
2442     , p1_a41  VARCHAR2 := null
2443     , p1_a42  VARCHAR2 := null
2444     , p1_a43  VARCHAR2 := null
2445     , p1_a44  VARCHAR2 := null
2446     , p1_a45  VARCHAR2 := null
2447     , p1_a46  VARCHAR2 := null
2448     , p1_a47  VARCHAR2 := null
2449     , p1_a48  VARCHAR2 := null
2450     , p1_a49  VARCHAR2 := null
2451     , p1_a50  VARCHAR2 := null
2452     , p1_a51  VARCHAR2 := null
2453     , p1_a52  VARCHAR2 := null
2454     , p1_a53  VARCHAR2 := null
2455     , p1_a54  VARCHAR2 := null
2456     , p1_a55  VARCHAR2 := null
2457     , p1_a56  VARCHAR2 := null
2458     , p1_a57  VARCHAR2 := null
2459     , p1_a58  VARCHAR2 := null
2460     , p1_a59  VARCHAR2 := null
2461     , p1_a60  VARCHAR2 := null
2462     , p1_a61  VARCHAR2 := null
2463     , p1_a62  VARCHAR2 := null
2464     , p1_a63  VARCHAR2 := null
2465     , p1_a64  VARCHAR2 := null
2466     , p1_a65  VARCHAR2 := null
2467     , p1_a66  VARCHAR2 := null
2468     , p1_a67  VARCHAR2 := null
2469     , p1_a68  VARCHAR2 := null
2470     , p1_a69  VARCHAR2 := null
2471     , p1_a70  VARCHAR2 := null
2472     , p1_a71  VARCHAR2 := null
2473     , p1_a72  VARCHAR2 := null
2474     , p1_a73  VARCHAR2 := null
2475     , p1_a74  VARCHAR2 := null
2476     , p1_a75  VARCHAR2 := null
2477     , p1_a76  VARCHAR2 := null
2478     , p1_a77  VARCHAR2 := null
2479     , p1_a78  VARCHAR2 := null
2480     , p1_a79  VARCHAR2 := null
2481     , p1_a80  VARCHAR2 := null
2482     , p1_a81  VARCHAR2 := null
2483     , p1_a82  VARCHAR2 := null
2484     , p1_a83  VARCHAR2 := null
2485     , p1_a84  VARCHAR2 := null
2486     , p1_a85  VARCHAR2 := null
2487     , p1_a86  VARCHAR2 := null
2488     , p1_a87  VARCHAR2 := null
2489     , p1_a88  VARCHAR2 := null
2490     , p1_a89  VARCHAR2 := null
2491     , p1_a90  VARCHAR2 := null
2492     , p1_a91  VARCHAR2 := null
2493     , p1_a92  VARCHAR2 := null
2494     , p1_a93  VARCHAR2 := null
2495     , p1_a94  VARCHAR2 := null
2496     , p1_a95  VARCHAR2 := null
2497     , p1_a96  VARCHAR2 := null
2498     , p1_a97  VARCHAR2 := null
2499     , p1_a98  VARCHAR2 := null
2500     , p1_a99  VARCHAR2 := null
2501     , p1_a100  NUMBER := null
2502     , p1_a101  VARCHAR2 := null
2503   )
2504   as
2505     ddp_relationship_rec hz_relationship_v2pub.relationship_rec_type;
2506     ddindx binary_integer; indx binary_integer;
2507   begin
2508 
2509     -- copy data to the local IN or IN-OUT args, if any
2510 
2511     ddp_relationship_rec.relationship_id := rosetta_g_miss_num_map(p1_a0);
2512     ddp_relationship_rec.subject_id := rosetta_g_miss_num_map(p1_a1);
2513     ddp_relationship_rec.subject_type := p1_a2;
2514     ddp_relationship_rec.subject_table_name := p1_a3;
2515     ddp_relationship_rec.object_id := rosetta_g_miss_num_map(p1_a4);
2516     ddp_relationship_rec.object_type := p1_a5;
2517     ddp_relationship_rec.object_table_name := p1_a6;
2518     ddp_relationship_rec.relationship_code := p1_a7;
2519     ddp_relationship_rec.relationship_type := p1_a8;
2520     ddp_relationship_rec.comments := p1_a9;
2521     ddp_relationship_rec.start_date := rosetta_g_miss_date_in_map(p1_a10);
2522     ddp_relationship_rec.end_date := rosetta_g_miss_date_in_map(p1_a11);
2523     ddp_relationship_rec.status := p1_a12;
2524     ddp_relationship_rec.content_source_type := p1_a13;
2525     ddp_relationship_rec.attribute_category := p1_a14;
2526     ddp_relationship_rec.attribute1 := p1_a15;
2527     ddp_relationship_rec.attribute2 := p1_a16;
2528     ddp_relationship_rec.attribute3 := p1_a17;
2529     ddp_relationship_rec.attribute4 := p1_a18;
2530     ddp_relationship_rec.attribute5 := p1_a19;
2531     ddp_relationship_rec.attribute6 := p1_a20;
2532     ddp_relationship_rec.attribute7 := p1_a21;
2533     ddp_relationship_rec.attribute8 := p1_a22;
2534     ddp_relationship_rec.attribute9 := p1_a23;
2535     ddp_relationship_rec.attribute10 := p1_a24;
2536     ddp_relationship_rec.attribute11 := p1_a25;
2537     ddp_relationship_rec.attribute12 := p1_a26;
2538     ddp_relationship_rec.attribute13 := p1_a27;
2539     ddp_relationship_rec.attribute14 := p1_a28;
2540     ddp_relationship_rec.attribute15 := p1_a29;
2544     ddp_relationship_rec.attribute19 := p1_a33;
2541     ddp_relationship_rec.attribute16 := p1_a30;
2542     ddp_relationship_rec.attribute17 := p1_a31;
2543     ddp_relationship_rec.attribute18 := p1_a32;
2545     ddp_relationship_rec.attribute20 := p1_a34;
2546     ddp_relationship_rec.created_by_module := p1_a35;
2547     ddp_relationship_rec.application_id := rosetta_g_miss_num_map(p1_a36);
2548     ddp_relationship_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a37);
2549     ddp_relationship_rec.party_rec.party_number := p1_a38;
2550     ddp_relationship_rec.party_rec.validated_flag := p1_a39;
2551     ddp_relationship_rec.party_rec.orig_system_reference := p1_a40;
2552     ddp_relationship_rec.party_rec.orig_system := p1_a41;
2553     ddp_relationship_rec.party_rec.status := p1_a42;
2554     ddp_relationship_rec.party_rec.category_code := p1_a43;
2555     ddp_relationship_rec.party_rec.salutation := p1_a44;
2556     ddp_relationship_rec.party_rec.attribute_category := p1_a45;
2557     ddp_relationship_rec.party_rec.attribute1 := p1_a46;
2558     ddp_relationship_rec.party_rec.attribute2 := p1_a47;
2559     ddp_relationship_rec.party_rec.attribute3 := p1_a48;
2560     ddp_relationship_rec.party_rec.attribute4 := p1_a49;
2561     ddp_relationship_rec.party_rec.attribute5 := p1_a50;
2562     ddp_relationship_rec.party_rec.attribute6 := p1_a51;
2563     ddp_relationship_rec.party_rec.attribute7 := p1_a52;
2564     ddp_relationship_rec.party_rec.attribute8 := p1_a53;
2565     ddp_relationship_rec.party_rec.attribute9 := p1_a54;
2566     ddp_relationship_rec.party_rec.attribute10 := p1_a55;
2567     ddp_relationship_rec.party_rec.attribute11 := p1_a56;
2568     ddp_relationship_rec.party_rec.attribute12 := p1_a57;
2569     ddp_relationship_rec.party_rec.attribute13 := p1_a58;
2570     ddp_relationship_rec.party_rec.attribute14 := p1_a59;
2571     ddp_relationship_rec.party_rec.attribute15 := p1_a60;
2572     ddp_relationship_rec.party_rec.attribute16 := p1_a61;
2573     ddp_relationship_rec.party_rec.attribute17 := p1_a62;
2574     ddp_relationship_rec.party_rec.attribute18 := p1_a63;
2575     ddp_relationship_rec.party_rec.attribute19 := p1_a64;
2576     ddp_relationship_rec.party_rec.attribute20 := p1_a65;
2577     ddp_relationship_rec.party_rec.attribute21 := p1_a66;
2578     ddp_relationship_rec.party_rec.attribute22 := p1_a67;
2579     ddp_relationship_rec.party_rec.attribute23 := p1_a68;
2580     ddp_relationship_rec.party_rec.attribute24 := p1_a69;
2581     ddp_relationship_rec.additional_information1 := p1_a70;
2582     ddp_relationship_rec.additional_information2 := p1_a71;
2583     ddp_relationship_rec.additional_information3 := p1_a72;
2584     ddp_relationship_rec.additional_information4 := p1_a73;
2585     ddp_relationship_rec.additional_information5 := p1_a74;
2586     ddp_relationship_rec.additional_information6 := p1_a75;
2587     ddp_relationship_rec.additional_information7 := p1_a76;
2588     ddp_relationship_rec.additional_information8 := p1_a77;
2589     ddp_relationship_rec.additional_information9 := p1_a78;
2590     ddp_relationship_rec.additional_information10 := p1_a79;
2591     ddp_relationship_rec.additional_information11 := p1_a80;
2592     ddp_relationship_rec.additional_information12 := p1_a81;
2593     ddp_relationship_rec.additional_information13 := p1_a82;
2594     ddp_relationship_rec.additional_information14 := p1_a83;
2595     ddp_relationship_rec.additional_information15 := p1_a84;
2596     ddp_relationship_rec.additional_information16 := p1_a85;
2597     ddp_relationship_rec.additional_information17 := p1_a86;
2598     ddp_relationship_rec.additional_information18 := p1_a87;
2599     ddp_relationship_rec.additional_information19 := p1_a88;
2600     ddp_relationship_rec.additional_information20 := p1_a89;
2601     ddp_relationship_rec.additional_information21 := p1_a90;
2602     ddp_relationship_rec.additional_information22 := p1_a91;
2603     ddp_relationship_rec.additional_information23 := p1_a92;
2604     ddp_relationship_rec.additional_information24 := p1_a93;
2605     ddp_relationship_rec.additional_information25 := p1_a94;
2606     ddp_relationship_rec.additional_information26 := p1_a95;
2607     ddp_relationship_rec.additional_information27 := p1_a96;
2608     ddp_relationship_rec.additional_information28 := p1_a97;
2609     ddp_relationship_rec.additional_information29 := p1_a98;
2610     ddp_relationship_rec.additional_information30 := p1_a99;
2611     ddp_relationship_rec.percentage_ownership := rosetta_g_miss_num_map(p1_a100);
2612     ddp_relationship_rec.actual_content_source := p1_a101;
2613 
2614 
2615 
2616 
2617 
2618 
2619 
2620     -- here's the delegated call to the old PL/SQL routine
2621     hz_bank_pub.create_clearinghouse_assign(p_init_msg_list,
2622       ddp_relationship_rec,
2623       x_relationship_id,
2624       x_party_id,
2625       x_party_number,
2626       x_return_status,
2627       x_msg_count,
2628       x_msg_data);
2629 
2630     -- copy data back from the local OUT or IN-OUT args, if any
2631 
2632 
2633 
2634 
2635 
2636 
2637 
2638   end;
2639 
2640   procedure update_clearinghouse_assign_10(p_init_msg_list  VARCHAR2
2641     , p_robject_version_number in out nocopy  NUMBER
2642     , p_pobject_version_number in out nocopy  NUMBER
2643     , x_return_status out nocopy  VARCHAR2
2644     , x_msg_count out nocopy  NUMBER
2645     , x_msg_data out nocopy  VARCHAR2
2646     , p1_a0  NUMBER := null
2647     , p1_a1  NUMBER := null
2648     , p1_a2  VARCHAR2 := null
2649     , p1_a3  VARCHAR2 := null
2653     , p1_a7  VARCHAR2 := null
2650     , p1_a4  NUMBER := null
2651     , p1_a5  VARCHAR2 := null
2652     , p1_a6  VARCHAR2 := null
2654     , p1_a8  VARCHAR2 := null
2655     , p1_a9  VARCHAR2 := null
2656     , p1_a10  DATE := null
2657     , p1_a11  DATE := null
2658     , p1_a12  VARCHAR2 := null
2659     , p1_a13  VARCHAR2 := null
2660     , p1_a14  VARCHAR2 := null
2661     , p1_a15  VARCHAR2 := null
2662     , p1_a16  VARCHAR2 := null
2663     , p1_a17  VARCHAR2 := null
2664     , p1_a18  VARCHAR2 := null
2665     , p1_a19  VARCHAR2 := null
2666     , p1_a20  VARCHAR2 := null
2667     , p1_a21  VARCHAR2 := null
2668     , p1_a22  VARCHAR2 := null
2669     , p1_a23  VARCHAR2 := null
2670     , p1_a24  VARCHAR2 := null
2671     , p1_a25  VARCHAR2 := null
2672     , p1_a26  VARCHAR2 := null
2673     , p1_a27  VARCHAR2 := null
2674     , p1_a28  VARCHAR2 := null
2675     , p1_a29  VARCHAR2 := null
2676     , p1_a30  VARCHAR2 := null
2677     , p1_a31  VARCHAR2 := null
2678     , p1_a32  VARCHAR2 := null
2679     , p1_a33  VARCHAR2 := null
2680     , p1_a34  VARCHAR2 := null
2681     , p1_a35  VARCHAR2 := null
2682     , p1_a36  NUMBER := null
2683     , p1_a37  NUMBER := null
2684     , p1_a38  VARCHAR2 := null
2685     , p1_a39  VARCHAR2 := null
2686     , p1_a40  VARCHAR2 := null
2687     , p1_a41  VARCHAR2 := null
2688     , p1_a42  VARCHAR2 := null
2689     , p1_a43  VARCHAR2 := null
2690     , p1_a44  VARCHAR2 := null
2691     , p1_a45  VARCHAR2 := null
2692     , p1_a46  VARCHAR2 := null
2693     , p1_a47  VARCHAR2 := null
2694     , p1_a48  VARCHAR2 := null
2695     , p1_a49  VARCHAR2 := null
2696     , p1_a50  VARCHAR2 := null
2697     , p1_a51  VARCHAR2 := null
2698     , p1_a52  VARCHAR2 := null
2699     , p1_a53  VARCHAR2 := null
2700     , p1_a54  VARCHAR2 := null
2701     , p1_a55  VARCHAR2 := null
2702     , p1_a56  VARCHAR2 := null
2703     , p1_a57  VARCHAR2 := null
2704     , p1_a58  VARCHAR2 := null
2705     , p1_a59  VARCHAR2 := null
2706     , p1_a60  VARCHAR2 := null
2707     , p1_a61  VARCHAR2 := null
2708     , p1_a62  VARCHAR2 := null
2709     , p1_a63  VARCHAR2 := null
2710     , p1_a64  VARCHAR2 := null
2711     , p1_a65  VARCHAR2 := null
2712     , p1_a66  VARCHAR2 := null
2713     , p1_a67  VARCHAR2 := null
2714     , p1_a68  VARCHAR2 := null
2715     , p1_a69  VARCHAR2 := null
2716     , p1_a70  VARCHAR2 := null
2717     , p1_a71  VARCHAR2 := null
2718     , p1_a72  VARCHAR2 := null
2719     , p1_a73  VARCHAR2 := null
2720     , p1_a74  VARCHAR2 := null
2721     , p1_a75  VARCHAR2 := null
2722     , p1_a76  VARCHAR2 := null
2723     , p1_a77  VARCHAR2 := null
2724     , p1_a78  VARCHAR2 := null
2725     , p1_a79  VARCHAR2 := null
2726     , p1_a80  VARCHAR2 := null
2727     , p1_a81  VARCHAR2 := null
2728     , p1_a82  VARCHAR2 := null
2729     , p1_a83  VARCHAR2 := null
2730     , p1_a84  VARCHAR2 := null
2731     , p1_a85  VARCHAR2 := null
2732     , p1_a86  VARCHAR2 := null
2733     , p1_a87  VARCHAR2 := null
2734     , p1_a88  VARCHAR2 := null
2735     , p1_a89  VARCHAR2 := null
2736     , p1_a90  VARCHAR2 := null
2737     , p1_a91  VARCHAR2 := null
2738     , p1_a92  VARCHAR2 := null
2739     , p1_a93  VARCHAR2 := null
2740     , p1_a94  VARCHAR2 := null
2741     , p1_a95  VARCHAR2 := null
2742     , p1_a96  VARCHAR2 := null
2743     , p1_a97  VARCHAR2 := null
2744     , p1_a98  VARCHAR2 := null
2745     , p1_a99  VARCHAR2 := null
2746     , p1_a100  NUMBER := null
2747     , p1_a101  VARCHAR2 := null
2748   )
2749   as
2750     ddp_relationship_rec hz_relationship_v2pub.relationship_rec_type;
2751     ddindx binary_integer; indx binary_integer;
2752   begin
2753 
2754     -- copy data to the local IN or IN-OUT args, if any
2755 
2756     ddp_relationship_rec.relationship_id := rosetta_g_miss_num_map(p1_a0);
2757     ddp_relationship_rec.subject_id := rosetta_g_miss_num_map(p1_a1);
2758     ddp_relationship_rec.subject_type := p1_a2;
2759     ddp_relationship_rec.subject_table_name := p1_a3;
2760     ddp_relationship_rec.object_id := rosetta_g_miss_num_map(p1_a4);
2761     ddp_relationship_rec.object_type := p1_a5;
2762     ddp_relationship_rec.object_table_name := p1_a6;
2763     ddp_relationship_rec.relationship_code := p1_a7;
2764     ddp_relationship_rec.relationship_type := p1_a8;
2765     ddp_relationship_rec.comments := p1_a9;
2766     ddp_relationship_rec.start_date := rosetta_g_miss_date_in_map(p1_a10);
2767     ddp_relationship_rec.end_date := rosetta_g_miss_date_in_map(p1_a11);
2768     ddp_relationship_rec.status := p1_a12;
2769     ddp_relationship_rec.content_source_type := p1_a13;
2770     ddp_relationship_rec.attribute_category := p1_a14;
2771     ddp_relationship_rec.attribute1 := p1_a15;
2772     ddp_relationship_rec.attribute2 := p1_a16;
2773     ddp_relationship_rec.attribute3 := p1_a17;
2774     ddp_relationship_rec.attribute4 := p1_a18;
2775     ddp_relationship_rec.attribute5 := p1_a19;
2776     ddp_relationship_rec.attribute6 := p1_a20;
2777     ddp_relationship_rec.attribute7 := p1_a21;
2778     ddp_relationship_rec.attribute8 := p1_a22;
2779     ddp_relationship_rec.attribute9 := p1_a23;
2780     ddp_relationship_rec.attribute10 := p1_a24;
2781     ddp_relationship_rec.attribute11 := p1_a25;
2782     ddp_relationship_rec.attribute12 := p1_a26;
2783     ddp_relationship_rec.attribute13 := p1_a27;
2784     ddp_relationship_rec.attribute14 := p1_a28;
2785     ddp_relationship_rec.attribute15 := p1_a29;
2786     ddp_relationship_rec.attribute16 := p1_a30;
2790     ddp_relationship_rec.attribute20 := p1_a34;
2787     ddp_relationship_rec.attribute17 := p1_a31;
2788     ddp_relationship_rec.attribute18 := p1_a32;
2789     ddp_relationship_rec.attribute19 := p1_a33;
2791     ddp_relationship_rec.created_by_module := p1_a35;
2792     ddp_relationship_rec.application_id := rosetta_g_miss_num_map(p1_a36);
2793     ddp_relationship_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a37);
2794     ddp_relationship_rec.party_rec.party_number := p1_a38;
2795     ddp_relationship_rec.party_rec.validated_flag := p1_a39;
2796     ddp_relationship_rec.party_rec.orig_system_reference := p1_a40;
2797     ddp_relationship_rec.party_rec.orig_system := p1_a41;
2798     ddp_relationship_rec.party_rec.status := p1_a42;
2799     ddp_relationship_rec.party_rec.category_code := p1_a43;
2800     ddp_relationship_rec.party_rec.salutation := p1_a44;
2801     ddp_relationship_rec.party_rec.attribute_category := p1_a45;
2802     ddp_relationship_rec.party_rec.attribute1 := p1_a46;
2803     ddp_relationship_rec.party_rec.attribute2 := p1_a47;
2804     ddp_relationship_rec.party_rec.attribute3 := p1_a48;
2805     ddp_relationship_rec.party_rec.attribute4 := p1_a49;
2806     ddp_relationship_rec.party_rec.attribute5 := p1_a50;
2807     ddp_relationship_rec.party_rec.attribute6 := p1_a51;
2808     ddp_relationship_rec.party_rec.attribute7 := p1_a52;
2809     ddp_relationship_rec.party_rec.attribute8 := p1_a53;
2810     ddp_relationship_rec.party_rec.attribute9 := p1_a54;
2811     ddp_relationship_rec.party_rec.attribute10 := p1_a55;
2812     ddp_relationship_rec.party_rec.attribute11 := p1_a56;
2813     ddp_relationship_rec.party_rec.attribute12 := p1_a57;
2814     ddp_relationship_rec.party_rec.attribute13 := p1_a58;
2815     ddp_relationship_rec.party_rec.attribute14 := p1_a59;
2816     ddp_relationship_rec.party_rec.attribute15 := p1_a60;
2817     ddp_relationship_rec.party_rec.attribute16 := p1_a61;
2818     ddp_relationship_rec.party_rec.attribute17 := p1_a62;
2819     ddp_relationship_rec.party_rec.attribute18 := p1_a63;
2820     ddp_relationship_rec.party_rec.attribute19 := p1_a64;
2821     ddp_relationship_rec.party_rec.attribute20 := p1_a65;
2822     ddp_relationship_rec.party_rec.attribute21 := p1_a66;
2823     ddp_relationship_rec.party_rec.attribute22 := p1_a67;
2824     ddp_relationship_rec.party_rec.attribute23 := p1_a68;
2825     ddp_relationship_rec.party_rec.attribute24 := p1_a69;
2826     ddp_relationship_rec.additional_information1 := p1_a70;
2827     ddp_relationship_rec.additional_information2 := p1_a71;
2828     ddp_relationship_rec.additional_information3 := p1_a72;
2829     ddp_relationship_rec.additional_information4 := p1_a73;
2830     ddp_relationship_rec.additional_information5 := p1_a74;
2831     ddp_relationship_rec.additional_information6 := p1_a75;
2832     ddp_relationship_rec.additional_information7 := p1_a76;
2833     ddp_relationship_rec.additional_information8 := p1_a77;
2834     ddp_relationship_rec.additional_information9 := p1_a78;
2835     ddp_relationship_rec.additional_information10 := p1_a79;
2836     ddp_relationship_rec.additional_information11 := p1_a80;
2837     ddp_relationship_rec.additional_information12 := p1_a81;
2838     ddp_relationship_rec.additional_information13 := p1_a82;
2839     ddp_relationship_rec.additional_information14 := p1_a83;
2840     ddp_relationship_rec.additional_information15 := p1_a84;
2841     ddp_relationship_rec.additional_information16 := p1_a85;
2842     ddp_relationship_rec.additional_information17 := p1_a86;
2843     ddp_relationship_rec.additional_information18 := p1_a87;
2844     ddp_relationship_rec.additional_information19 := p1_a88;
2845     ddp_relationship_rec.additional_information20 := p1_a89;
2846     ddp_relationship_rec.additional_information21 := p1_a90;
2847     ddp_relationship_rec.additional_information22 := p1_a91;
2848     ddp_relationship_rec.additional_information23 := p1_a92;
2849     ddp_relationship_rec.additional_information24 := p1_a93;
2850     ddp_relationship_rec.additional_information25 := p1_a94;
2851     ddp_relationship_rec.additional_information26 := p1_a95;
2852     ddp_relationship_rec.additional_information27 := p1_a96;
2853     ddp_relationship_rec.additional_information28 := p1_a97;
2854     ddp_relationship_rec.additional_information29 := p1_a98;
2855     ddp_relationship_rec.additional_information30 := p1_a99;
2856     ddp_relationship_rec.percentage_ownership := rosetta_g_miss_num_map(p1_a100);
2857     ddp_relationship_rec.actual_content_source := p1_a101;
2858 
2859 
2860 
2861 
2862 
2863 
2864     -- here's the delegated call to the old PL/SQL routine
2865     hz_bank_pub.update_clearinghouse_assign(p_init_msg_list,
2866       ddp_relationship_rec,
2867       p_robject_version_number,
2868       p_pobject_version_number,
2869       x_return_status,
2870       x_msg_count,
2871       x_msg_data);
2872 
2873     -- copy data back from the local OUT or IN-OUT args, if any
2874 
2875 
2876 
2877 
2878 
2879 
2880   end;
2881 
2882   procedure create_bank_site_11(p_init_msg_list  VARCHAR2
2883     , x_party_site_id out nocopy  NUMBER
2884     , x_party_site_number out nocopy  NUMBER
2885     , x_return_status out nocopy  VARCHAR2
2886     , x_msg_count out nocopy  NUMBER
2887     , x_msg_data out nocopy  VARCHAR2
2888     , p1_a0  NUMBER := null
2889     , p1_a1  NUMBER := null
2890     , p1_a2  NUMBER := null
2891     , p1_a3  VARCHAR2 := null
2892     , p1_a4  VARCHAR2 := null
2893     , p1_a5  VARCHAR2 := null
2894     , p1_a6  VARCHAR2 := null
2895     , p1_a7  VARCHAR2 := null
2896     , p1_a8  VARCHAR2 := null
2897     , p1_a9  VARCHAR2 := null
2898     , p1_a10  VARCHAR2 := null
2902     , p1_a14  VARCHAR2 := null
2899     , p1_a11  VARCHAR2 := null
2900     , p1_a12  VARCHAR2 := null
2901     , p1_a13  VARCHAR2 := null
2903     , p1_a15  VARCHAR2 := null
2904     , p1_a16  VARCHAR2 := null
2905     , p1_a17  VARCHAR2 := null
2906     , p1_a18  VARCHAR2 := null
2907     , p1_a19  VARCHAR2 := null
2908     , p1_a20  VARCHAR2 := null
2909     , p1_a21  VARCHAR2 := null
2910     , p1_a22  VARCHAR2 := null
2911     , p1_a23  VARCHAR2 := null
2912     , p1_a24  VARCHAR2 := null
2913     , p1_a25  VARCHAR2 := null
2914     , p1_a26  VARCHAR2 := null
2915     , p1_a27  VARCHAR2 := null
2916     , p1_a28  VARCHAR2 := null
2917     , p1_a29  VARCHAR2 := null
2918     , p1_a30  VARCHAR2 := null
2919     , p1_a31  VARCHAR2 := null
2920     , p1_a32  VARCHAR2 := null
2921     , p1_a33  VARCHAR2 := null
2922     , p1_a34  NUMBER := null
2923     , p1_a35  VARCHAR2 := null
2924     , p1_a36  VARCHAR2 := null
2925   )
2926   as
2927     ddp_party_site_rec hz_party_site_v2pub.party_site_rec_type;
2928     ddindx binary_integer; indx binary_integer;
2929   begin
2930 
2931     -- copy data to the local IN or IN-OUT args, if any
2932 
2933     ddp_party_site_rec.party_site_id := rosetta_g_miss_num_map(p1_a0);
2934     ddp_party_site_rec.party_id := rosetta_g_miss_num_map(p1_a1);
2935     ddp_party_site_rec.location_id := rosetta_g_miss_num_map(p1_a2);
2936     ddp_party_site_rec.party_site_number := p1_a3;
2937     ddp_party_site_rec.orig_system_reference := p1_a4;
2938     ddp_party_site_rec.orig_system := p1_a5;
2939     ddp_party_site_rec.mailstop := p1_a6;
2940     ddp_party_site_rec.identifying_address_flag := p1_a7;
2941     ddp_party_site_rec.status := p1_a8;
2942     ddp_party_site_rec.party_site_name := p1_a9;
2943     ddp_party_site_rec.attribute_category := p1_a10;
2944     ddp_party_site_rec.attribute1 := p1_a11;
2945     ddp_party_site_rec.attribute2 := p1_a12;
2946     ddp_party_site_rec.attribute3 := p1_a13;
2947     ddp_party_site_rec.attribute4 := p1_a14;
2948     ddp_party_site_rec.attribute5 := p1_a15;
2949     ddp_party_site_rec.attribute6 := p1_a16;
2950     ddp_party_site_rec.attribute7 := p1_a17;
2951     ddp_party_site_rec.attribute8 := p1_a18;
2952     ddp_party_site_rec.attribute9 := p1_a19;
2953     ddp_party_site_rec.attribute10 := p1_a20;
2954     ddp_party_site_rec.attribute11 := p1_a21;
2955     ddp_party_site_rec.attribute12 := p1_a22;
2956     ddp_party_site_rec.attribute13 := p1_a23;
2957     ddp_party_site_rec.attribute14 := p1_a24;
2958     ddp_party_site_rec.attribute15 := p1_a25;
2959     ddp_party_site_rec.attribute16 := p1_a26;
2960     ddp_party_site_rec.attribute17 := p1_a27;
2961     ddp_party_site_rec.attribute18 := p1_a28;
2962     ddp_party_site_rec.attribute19 := p1_a29;
2963     ddp_party_site_rec.attribute20 := p1_a30;
2964     ddp_party_site_rec.language := p1_a31;
2965     ddp_party_site_rec.addressee := p1_a32;
2966     ddp_party_site_rec.created_by_module := p1_a33;
2967     ddp_party_site_rec.application_id := rosetta_g_miss_num_map(p1_a34);
2968     ddp_party_site_rec.global_location_number := p1_a35;
2969     ddp_party_site_rec.duns_number_c := p1_a36;
2970 
2971 
2972 
2973 
2974 
2975 
2976     -- here's the delegated call to the old PL/SQL routine
2977     hz_bank_pub.create_bank_site(p_init_msg_list,
2978       ddp_party_site_rec,
2979       x_party_site_id,
2980       x_party_site_number,
2981       x_return_status,
2982       x_msg_count,
2983       x_msg_data);
2984 
2985     -- copy data back from the local OUT or IN-OUT args, if any
2986 
2987 
2988 
2989 
2990 
2991 
2992   end;
2993 
2994   procedure update_bank_site_12(p_init_msg_list  VARCHAR2
2995     , p_psobject_version_number in out nocopy  NUMBER
2996     , x_return_status out nocopy  VARCHAR2
2997     , x_msg_count out nocopy  NUMBER
2998     , x_msg_data out nocopy  VARCHAR2
2999     , p1_a0  NUMBER := null
3000     , p1_a1  NUMBER := null
3001     , p1_a2  NUMBER := null
3002     , p1_a3  VARCHAR2 := null
3003     , p1_a4  VARCHAR2 := null
3004     , p1_a5  VARCHAR2 := null
3005     , p1_a6  VARCHAR2 := null
3006     , p1_a7  VARCHAR2 := null
3007     , p1_a8  VARCHAR2 := null
3008     , p1_a9  VARCHAR2 := null
3009     , p1_a10  VARCHAR2 := null
3010     , p1_a11  VARCHAR2 := null
3011     , p1_a12  VARCHAR2 := null
3012     , p1_a13  VARCHAR2 := null
3013     , p1_a14  VARCHAR2 := null
3014     , p1_a15  VARCHAR2 := null
3015     , p1_a16  VARCHAR2 := null
3016     , p1_a17  VARCHAR2 := null
3017     , p1_a18  VARCHAR2 := null
3018     , p1_a19  VARCHAR2 := null
3019     , p1_a20  VARCHAR2 := null
3020     , p1_a21  VARCHAR2 := null
3021     , p1_a22  VARCHAR2 := null
3022     , p1_a23  VARCHAR2 := null
3023     , p1_a24  VARCHAR2 := null
3024     , p1_a25  VARCHAR2 := null
3025     , p1_a26  VARCHAR2 := null
3026     , p1_a27  VARCHAR2 := null
3027     , p1_a28  VARCHAR2 := null
3028     , p1_a29  VARCHAR2 := null
3029     , p1_a30  VARCHAR2 := null
3030     , p1_a31  VARCHAR2 := null
3031     , p1_a32  VARCHAR2 := null
3032     , p1_a33  VARCHAR2 := null
3033     , p1_a34  NUMBER := null
3034     , p1_a35  VARCHAR2 := null
3035     , p1_a36  VARCHAR2 := null
3036   )
3037   as
3038     ddp_party_site_rec hz_party_site_v2pub.party_site_rec_type;
3039     ddindx binary_integer; indx binary_integer;
3040   begin
3041 
3042     -- copy data to the local IN or IN-OUT args, if any
3043 
3044     ddp_party_site_rec.party_site_id := rosetta_g_miss_num_map(p1_a0);
3048     ddp_party_site_rec.orig_system_reference := p1_a4;
3045     ddp_party_site_rec.party_id := rosetta_g_miss_num_map(p1_a1);
3046     ddp_party_site_rec.location_id := rosetta_g_miss_num_map(p1_a2);
3047     ddp_party_site_rec.party_site_number := p1_a3;
3049     ddp_party_site_rec.orig_system := p1_a5;
3050     ddp_party_site_rec.mailstop := p1_a6;
3051     ddp_party_site_rec.identifying_address_flag := p1_a7;
3052     ddp_party_site_rec.status := p1_a8;
3053     ddp_party_site_rec.party_site_name := p1_a9;
3054     ddp_party_site_rec.attribute_category := p1_a10;
3055     ddp_party_site_rec.attribute1 := p1_a11;
3056     ddp_party_site_rec.attribute2 := p1_a12;
3057     ddp_party_site_rec.attribute3 := p1_a13;
3058     ddp_party_site_rec.attribute4 := p1_a14;
3059     ddp_party_site_rec.attribute5 := p1_a15;
3060     ddp_party_site_rec.attribute6 := p1_a16;
3061     ddp_party_site_rec.attribute7 := p1_a17;
3062     ddp_party_site_rec.attribute8 := p1_a18;
3063     ddp_party_site_rec.attribute9 := p1_a19;
3064     ddp_party_site_rec.attribute10 := p1_a20;
3065     ddp_party_site_rec.attribute11 := p1_a21;
3066     ddp_party_site_rec.attribute12 := p1_a22;
3067     ddp_party_site_rec.attribute13 := p1_a23;
3068     ddp_party_site_rec.attribute14 := p1_a24;
3069     ddp_party_site_rec.attribute15 := p1_a25;
3070     ddp_party_site_rec.attribute16 := p1_a26;
3071     ddp_party_site_rec.attribute17 := p1_a27;
3072     ddp_party_site_rec.attribute18 := p1_a28;
3073     ddp_party_site_rec.attribute19 := p1_a29;
3074     ddp_party_site_rec.attribute20 := p1_a30;
3075     ddp_party_site_rec.language := p1_a31;
3076     ddp_party_site_rec.addressee := p1_a32;
3077     ddp_party_site_rec.created_by_module := p1_a33;
3078     ddp_party_site_rec.application_id := rosetta_g_miss_num_map(p1_a34);
3079     ddp_party_site_rec.global_location_number := p1_a35;
3080     ddp_party_site_rec.duns_number_c := p1_a36;
3081 
3082 
3083 
3084 
3085 
3086     -- here's the delegated call to the old PL/SQL routine
3087     hz_bank_pub.update_bank_site(p_init_msg_list,
3088       ddp_party_site_rec,
3089       p_psobject_version_number,
3090       x_return_status,
3091       x_msg_count,
3092       x_msg_data);
3093 
3094     -- copy data back from the local OUT or IN-OUT args, if any
3095 
3096 
3097 
3098 
3099 
3100   end;
3101 
3102   procedure create_edi_contact_point_13(p_init_msg_list  VARCHAR2
3103     , x_contact_point_id out nocopy  NUMBER
3104     , x_return_status out nocopy  VARCHAR2
3105     , x_msg_count out nocopy  NUMBER
3106     , x_msg_data out nocopy  VARCHAR2
3107     , p1_a0  NUMBER := null
3108     , p1_a1  VARCHAR2 := null
3109     , p1_a2  VARCHAR2 := null
3110     , p1_a3  VARCHAR2 := null
3111     , p1_a4  NUMBER := null
3112     , p1_a5  VARCHAR2 := null
3113     , p1_a6  VARCHAR2 := null
3114     , p1_a7  VARCHAR2 := null
3115     , p1_a8  VARCHAR2 := null
3116     , p1_a9  VARCHAR2 := null
3117     , p1_a10  VARCHAR2 := null
3118     , p1_a11  VARCHAR2 := null
3119     , p1_a12  VARCHAR2 := null
3120     , p1_a13  VARCHAR2 := null
3121     , p1_a14  VARCHAR2 := null
3122     , p1_a15  VARCHAR2 := null
3123     , p1_a16  VARCHAR2 := null
3124     , p1_a17  VARCHAR2 := null
3125     , p1_a18  VARCHAR2 := null
3126     , p1_a19  VARCHAR2 := null
3127     , p1_a20  VARCHAR2 := null
3128     , p1_a21  VARCHAR2 := null
3129     , p1_a22  VARCHAR2 := null
3130     , p1_a23  VARCHAR2 := null
3131     , p1_a24  VARCHAR2 := null
3132     , p1_a25  VARCHAR2 := null
3133     , p1_a26  VARCHAR2 := null
3134     , p1_a27  VARCHAR2 := null
3135     , p1_a28  VARCHAR2 := null
3136     , p1_a29  VARCHAR2 := null
3137     , p1_a30  VARCHAR2 := null
3138     , p1_a31  VARCHAR2 := null
3139     , p1_a32  VARCHAR2 := null
3140     , p1_a33  NUMBER := null
3141     , p1_a34  VARCHAR2 := null
3142     , p2_a0  VARCHAR2 := null
3143     , p2_a1  VARCHAR2 := null
3144     , p2_a2  VARCHAR2 := null
3145     , p2_a3  VARCHAR2 := null
3146     , p2_a4  VARCHAR2 := null
3147     , p2_a5  VARCHAR2 := null
3148     , p2_a6  NUMBER := null
3149     , p2_a7  VARCHAR2 := null
3150   )
3151   as
3152     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3153     ddp_edi_rec hz_contact_point_v2pub.edi_rec_type;
3154     ddindx binary_integer; indx binary_integer;
3155   begin
3156 
3157     -- copy data to the local IN or IN-OUT args, if any
3158 
3159     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3160     ddp_contact_point_rec.contact_point_type := p1_a1;
3161     ddp_contact_point_rec.status := p1_a2;
3162     ddp_contact_point_rec.owner_table_name := p1_a3;
3163     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3164     ddp_contact_point_rec.primary_flag := p1_a5;
3165     ddp_contact_point_rec.orig_system_reference := p1_a6;
3166     ddp_contact_point_rec.orig_system := p1_a7;
3167     ddp_contact_point_rec.content_source_type := p1_a8;
3168     ddp_contact_point_rec.attribute_category := p1_a9;
3169     ddp_contact_point_rec.attribute1 := p1_a10;
3170     ddp_contact_point_rec.attribute2 := p1_a11;
3171     ddp_contact_point_rec.attribute3 := p1_a12;
3172     ddp_contact_point_rec.attribute4 := p1_a13;
3173     ddp_contact_point_rec.attribute5 := p1_a14;
3174     ddp_contact_point_rec.attribute6 := p1_a15;
3175     ddp_contact_point_rec.attribute7 := p1_a16;
3176     ddp_contact_point_rec.attribute8 := p1_a17;
3177     ddp_contact_point_rec.attribute9 := p1_a18;
3181     ddp_contact_point_rec.attribute13 := p1_a22;
3178     ddp_contact_point_rec.attribute10 := p1_a19;
3179     ddp_contact_point_rec.attribute11 := p1_a20;
3180     ddp_contact_point_rec.attribute12 := p1_a21;
3182     ddp_contact_point_rec.attribute14 := p1_a23;
3183     ddp_contact_point_rec.attribute15 := p1_a24;
3184     ddp_contact_point_rec.attribute16 := p1_a25;
3185     ddp_contact_point_rec.attribute17 := p1_a26;
3186     ddp_contact_point_rec.attribute18 := p1_a27;
3187     ddp_contact_point_rec.attribute19 := p1_a28;
3188     ddp_contact_point_rec.attribute20 := p1_a29;
3189     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3190     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3191     ddp_contact_point_rec.created_by_module := p1_a32;
3192     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3193     ddp_contact_point_rec.actual_content_source := p1_a34;
3194 
3195     ddp_edi_rec.edi_transaction_handling := p2_a0;
3196     ddp_edi_rec.edi_id_number := p2_a1;
3197     ddp_edi_rec.edi_payment_method := p2_a2;
3198     ddp_edi_rec.edi_payment_format := p2_a3;
3199     ddp_edi_rec.edi_remittance_method := p2_a4;
3200     ddp_edi_rec.edi_remittance_instruction := p2_a5;
3201     ddp_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p2_a6);
3202     ddp_edi_rec.edi_ece_tp_location_code := p2_a7;
3203 
3204 
3205 
3206 
3207 
3208     -- here's the delegated call to the old PL/SQL routine
3209     hz_bank_pub.create_edi_contact_point(p_init_msg_list,
3210       ddp_contact_point_rec,
3211       ddp_edi_rec,
3212       x_contact_point_id,
3213       x_return_status,
3214       x_msg_count,
3215       x_msg_data);
3216 
3217     -- copy data back from the local OUT or IN-OUT args, if any
3218 
3219 
3220 
3221 
3222 
3223 
3224   end;
3225 
3226   procedure update_edi_contact_point_14(p_init_msg_list  VARCHAR2
3227     , p_object_version_number in out nocopy  NUMBER
3228     , x_return_status out nocopy  VARCHAR2
3229     , x_msg_count out nocopy  NUMBER
3230     , x_msg_data out nocopy  VARCHAR2
3231     , p1_a0  NUMBER := null
3232     , p1_a1  VARCHAR2 := null
3233     , p1_a2  VARCHAR2 := null
3234     , p1_a3  VARCHAR2 := null
3235     , p1_a4  NUMBER := null
3236     , p1_a5  VARCHAR2 := null
3237     , p1_a6  VARCHAR2 := null
3238     , p1_a7  VARCHAR2 := null
3239     , p1_a8  VARCHAR2 := null
3240     , p1_a9  VARCHAR2 := null
3241     , p1_a10  VARCHAR2 := null
3242     , p1_a11  VARCHAR2 := null
3243     , p1_a12  VARCHAR2 := null
3244     , p1_a13  VARCHAR2 := null
3245     , p1_a14  VARCHAR2 := null
3246     , p1_a15  VARCHAR2 := null
3247     , p1_a16  VARCHAR2 := null
3248     , p1_a17  VARCHAR2 := null
3249     , p1_a18  VARCHAR2 := null
3250     , p1_a19  VARCHAR2 := null
3251     , p1_a20  VARCHAR2 := null
3252     , p1_a21  VARCHAR2 := null
3253     , p1_a22  VARCHAR2 := null
3254     , p1_a23  VARCHAR2 := null
3255     , p1_a24  VARCHAR2 := null
3256     , p1_a25  VARCHAR2 := null
3257     , p1_a26  VARCHAR2 := null
3258     , p1_a27  VARCHAR2 := null
3259     , p1_a28  VARCHAR2 := null
3260     , p1_a29  VARCHAR2 := null
3261     , p1_a30  VARCHAR2 := null
3262     , p1_a31  VARCHAR2 := null
3263     , p1_a32  VARCHAR2 := null
3264     , p1_a33  NUMBER := null
3265     , p1_a34  VARCHAR2 := null
3266     , p2_a0  VARCHAR2 := null
3267     , p2_a1  VARCHAR2 := null
3268     , p2_a2  VARCHAR2 := null
3269     , p2_a3  VARCHAR2 := null
3270     , p2_a4  VARCHAR2 := null
3271     , p2_a5  VARCHAR2 := null
3272     , p2_a6  NUMBER := null
3273     , p2_a7  VARCHAR2 := null
3274   )
3275   as
3276     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3277     ddp_edi_rec hz_contact_point_v2pub.edi_rec_type;
3278     ddindx binary_integer; indx binary_integer;
3279   begin
3280 
3281     -- copy data to the local IN or IN-OUT args, if any
3282 
3283     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3284     ddp_contact_point_rec.contact_point_type := p1_a1;
3285     ddp_contact_point_rec.status := p1_a2;
3286     ddp_contact_point_rec.owner_table_name := p1_a3;
3287     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3288     ddp_contact_point_rec.primary_flag := p1_a5;
3289     ddp_contact_point_rec.orig_system_reference := p1_a6;
3290     ddp_contact_point_rec.orig_system := p1_a7;
3291     ddp_contact_point_rec.content_source_type := p1_a8;
3292     ddp_contact_point_rec.attribute_category := p1_a9;
3293     ddp_contact_point_rec.attribute1 := p1_a10;
3294     ddp_contact_point_rec.attribute2 := p1_a11;
3295     ddp_contact_point_rec.attribute3 := p1_a12;
3296     ddp_contact_point_rec.attribute4 := p1_a13;
3297     ddp_contact_point_rec.attribute5 := p1_a14;
3298     ddp_contact_point_rec.attribute6 := p1_a15;
3299     ddp_contact_point_rec.attribute7 := p1_a16;
3300     ddp_contact_point_rec.attribute8 := p1_a17;
3301     ddp_contact_point_rec.attribute9 := p1_a18;
3302     ddp_contact_point_rec.attribute10 := p1_a19;
3303     ddp_contact_point_rec.attribute11 := p1_a20;
3304     ddp_contact_point_rec.attribute12 := p1_a21;
3305     ddp_contact_point_rec.attribute13 := p1_a22;
3306     ddp_contact_point_rec.attribute14 := p1_a23;
3307     ddp_contact_point_rec.attribute15 := p1_a24;
3308     ddp_contact_point_rec.attribute16 := p1_a25;
3309     ddp_contact_point_rec.attribute17 := p1_a26;
3313     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3310     ddp_contact_point_rec.attribute18 := p1_a27;
3311     ddp_contact_point_rec.attribute19 := p1_a28;
3312     ddp_contact_point_rec.attribute20 := p1_a29;
3314     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3315     ddp_contact_point_rec.created_by_module := p1_a32;
3316     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3317     ddp_contact_point_rec.actual_content_source := p1_a34;
3318 
3319     ddp_edi_rec.edi_transaction_handling := p2_a0;
3320     ddp_edi_rec.edi_id_number := p2_a1;
3321     ddp_edi_rec.edi_payment_method := p2_a2;
3322     ddp_edi_rec.edi_payment_format := p2_a3;
3323     ddp_edi_rec.edi_remittance_method := p2_a4;
3324     ddp_edi_rec.edi_remittance_instruction := p2_a5;
3325     ddp_edi_rec.edi_tp_header_id := rosetta_g_miss_num_map(p2_a6);
3326     ddp_edi_rec.edi_ece_tp_location_code := p2_a7;
3327 
3328 
3329 
3330 
3331 
3332     -- here's the delegated call to the old PL/SQL routine
3333     hz_bank_pub.update_edi_contact_point(p_init_msg_list,
3334       ddp_contact_point_rec,
3335       ddp_edi_rec,
3336       p_object_version_number,
3337       x_return_status,
3338       x_msg_count,
3339       x_msg_data);
3340 
3341     -- copy data back from the local OUT or IN-OUT args, if any
3342 
3343 
3344 
3345 
3346 
3347 
3348   end;
3349 
3350   procedure create_eft_contact_point_15(p_init_msg_list  VARCHAR2
3351     , x_contact_point_id out nocopy  NUMBER
3352     , x_return_status out nocopy  VARCHAR2
3353     , x_msg_count out nocopy  NUMBER
3354     , x_msg_data out nocopy  VARCHAR2
3355     , p1_a0  NUMBER := null
3356     , p1_a1  VARCHAR2 := null
3357     , p1_a2  VARCHAR2 := null
3358     , p1_a3  VARCHAR2 := null
3359     , p1_a4  NUMBER := null
3360     , p1_a5  VARCHAR2 := null
3361     , p1_a6  VARCHAR2 := null
3362     , p1_a7  VARCHAR2 := null
3363     , p1_a8  VARCHAR2 := null
3364     , p1_a9  VARCHAR2 := null
3365     , p1_a10  VARCHAR2 := null
3366     , p1_a11  VARCHAR2 := null
3367     , p1_a12  VARCHAR2 := null
3368     , p1_a13  VARCHAR2 := null
3369     , p1_a14  VARCHAR2 := null
3370     , p1_a15  VARCHAR2 := null
3371     , p1_a16  VARCHAR2 := null
3372     , p1_a17  VARCHAR2 := null
3373     , p1_a18  VARCHAR2 := null
3374     , p1_a19  VARCHAR2 := null
3375     , p1_a20  VARCHAR2 := null
3376     , p1_a21  VARCHAR2 := null
3377     , p1_a22  VARCHAR2 := null
3378     , p1_a23  VARCHAR2 := null
3379     , p1_a24  VARCHAR2 := null
3380     , p1_a25  VARCHAR2 := null
3381     , p1_a26  VARCHAR2 := null
3382     , p1_a27  VARCHAR2 := null
3383     , p1_a28  VARCHAR2 := null
3384     , p1_a29  VARCHAR2 := null
3385     , p1_a30  VARCHAR2 := null
3386     , p1_a31  VARCHAR2 := null
3387     , p1_a32  VARCHAR2 := null
3388     , p1_a33  NUMBER := null
3389     , p1_a34  VARCHAR2 := null
3390     , p2_a0  NUMBER := null
3391     , p2_a1  NUMBER := null
3392     , p2_a2  VARCHAR2 := null
3393     , p2_a3  VARCHAR2 := null
3394   )
3395   as
3396     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3397     ddp_eft_rec hz_contact_point_v2pub.eft_rec_type;
3398     ddindx binary_integer; indx binary_integer;
3399   begin
3400 
3401     -- copy data to the local IN or IN-OUT args, if any
3402 
3403     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3404     ddp_contact_point_rec.contact_point_type := p1_a1;
3405     ddp_contact_point_rec.status := p1_a2;
3406     ddp_contact_point_rec.owner_table_name := p1_a3;
3407     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3408     ddp_contact_point_rec.primary_flag := p1_a5;
3409     ddp_contact_point_rec.orig_system_reference := p1_a6;
3410     ddp_contact_point_rec.orig_system := p1_a7;
3411     ddp_contact_point_rec.content_source_type := p1_a8;
3412     ddp_contact_point_rec.attribute_category := p1_a9;
3413     ddp_contact_point_rec.attribute1 := p1_a10;
3414     ddp_contact_point_rec.attribute2 := p1_a11;
3415     ddp_contact_point_rec.attribute3 := p1_a12;
3416     ddp_contact_point_rec.attribute4 := p1_a13;
3417     ddp_contact_point_rec.attribute5 := p1_a14;
3418     ddp_contact_point_rec.attribute6 := p1_a15;
3419     ddp_contact_point_rec.attribute7 := p1_a16;
3420     ddp_contact_point_rec.attribute8 := p1_a17;
3421     ddp_contact_point_rec.attribute9 := p1_a18;
3422     ddp_contact_point_rec.attribute10 := p1_a19;
3423     ddp_contact_point_rec.attribute11 := p1_a20;
3424     ddp_contact_point_rec.attribute12 := p1_a21;
3425     ddp_contact_point_rec.attribute13 := p1_a22;
3426     ddp_contact_point_rec.attribute14 := p1_a23;
3427     ddp_contact_point_rec.attribute15 := p1_a24;
3428     ddp_contact_point_rec.attribute16 := p1_a25;
3429     ddp_contact_point_rec.attribute17 := p1_a26;
3430     ddp_contact_point_rec.attribute18 := p1_a27;
3431     ddp_contact_point_rec.attribute19 := p1_a28;
3432     ddp_contact_point_rec.attribute20 := p1_a29;
3433     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3434     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3435     ddp_contact_point_rec.created_by_module := p1_a32;
3436     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3437     ddp_contact_point_rec.actual_content_source := p1_a34;
3438 
3439     ddp_eft_rec.eft_transmission_program_id := rosetta_g_miss_num_map(p2_a0);
3440     ddp_eft_rec.eft_printing_program_id := rosetta_g_miss_num_map(p2_a1);
3441     ddp_eft_rec.eft_user_number := p2_a2;
3445 
3442     ddp_eft_rec.eft_swift_code := p2_a3;
3443 
3444 
3446 
3447 
3448     -- here's the delegated call to the old PL/SQL routine
3449     hz_bank_pub.create_eft_contact_point(p_init_msg_list,
3450       ddp_contact_point_rec,
3451       ddp_eft_rec,
3452       x_contact_point_id,
3453       x_return_status,
3454       x_msg_count,
3455       x_msg_data);
3456 
3457     -- copy data back from the local OUT or IN-OUT args, if any
3458 
3459 
3460 
3461 
3462 
3463 
3464   end;
3465 
3466   procedure update_eft_contact_point_16(p_init_msg_list  VARCHAR2
3467     , p_object_version_number in out nocopy  NUMBER
3468     , x_return_status out nocopy  VARCHAR2
3469     , x_msg_count out nocopy  NUMBER
3470     , x_msg_data out nocopy  VARCHAR2
3471     , p1_a0  NUMBER := null
3472     , p1_a1  VARCHAR2 := null
3473     , p1_a2  VARCHAR2 := null
3474     , p1_a3  VARCHAR2 := null
3475     , p1_a4  NUMBER := null
3476     , p1_a5  VARCHAR2 := null
3477     , p1_a6  VARCHAR2 := null
3478     , p1_a7  VARCHAR2 := null
3479     , p1_a8  VARCHAR2 := null
3480     , p1_a9  VARCHAR2 := null
3481     , p1_a10  VARCHAR2 := null
3482     , p1_a11  VARCHAR2 := null
3483     , p1_a12  VARCHAR2 := null
3484     , p1_a13  VARCHAR2 := null
3485     , p1_a14  VARCHAR2 := null
3486     , p1_a15  VARCHAR2 := null
3487     , p1_a16  VARCHAR2 := null
3488     , p1_a17  VARCHAR2 := null
3489     , p1_a18  VARCHAR2 := null
3490     , p1_a19  VARCHAR2 := null
3491     , p1_a20  VARCHAR2 := null
3492     , p1_a21  VARCHAR2 := null
3493     , p1_a22  VARCHAR2 := null
3494     , p1_a23  VARCHAR2 := null
3495     , p1_a24  VARCHAR2 := null
3496     , p1_a25  VARCHAR2 := null
3497     , p1_a26  VARCHAR2 := null
3498     , p1_a27  VARCHAR2 := null
3499     , p1_a28  VARCHAR2 := null
3500     , p1_a29  VARCHAR2 := null
3501     , p1_a30  VARCHAR2 := null
3502     , p1_a31  VARCHAR2 := null
3503     , p1_a32  VARCHAR2 := null
3504     , p1_a33  NUMBER := null
3505     , p1_a34  VARCHAR2 := null
3506     , p2_a0  NUMBER := null
3507     , p2_a1  NUMBER := null
3508     , p2_a2  VARCHAR2 := null
3509     , p2_a3  VARCHAR2 := null
3510   )
3511   as
3512     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3513     ddp_eft_rec hz_contact_point_v2pub.eft_rec_type;
3514     ddindx binary_integer; indx binary_integer;
3515   begin
3516 
3517     -- copy data to the local IN or IN-OUT args, if any
3518 
3519     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3520     ddp_contact_point_rec.contact_point_type := p1_a1;
3521     ddp_contact_point_rec.status := p1_a2;
3522     ddp_contact_point_rec.owner_table_name := p1_a3;
3523     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3524     ddp_contact_point_rec.primary_flag := p1_a5;
3525     ddp_contact_point_rec.orig_system_reference := p1_a6;
3526     ddp_contact_point_rec.orig_system := p1_a7;
3527     ddp_contact_point_rec.content_source_type := p1_a8;
3528     ddp_contact_point_rec.attribute_category := p1_a9;
3529     ddp_contact_point_rec.attribute1 := p1_a10;
3530     ddp_contact_point_rec.attribute2 := p1_a11;
3531     ddp_contact_point_rec.attribute3 := p1_a12;
3532     ddp_contact_point_rec.attribute4 := p1_a13;
3533     ddp_contact_point_rec.attribute5 := p1_a14;
3534     ddp_contact_point_rec.attribute6 := p1_a15;
3535     ddp_contact_point_rec.attribute7 := p1_a16;
3536     ddp_contact_point_rec.attribute8 := p1_a17;
3537     ddp_contact_point_rec.attribute9 := p1_a18;
3538     ddp_contact_point_rec.attribute10 := p1_a19;
3539     ddp_contact_point_rec.attribute11 := p1_a20;
3540     ddp_contact_point_rec.attribute12 := p1_a21;
3541     ddp_contact_point_rec.attribute13 := p1_a22;
3542     ddp_contact_point_rec.attribute14 := p1_a23;
3543     ddp_contact_point_rec.attribute15 := p1_a24;
3544     ddp_contact_point_rec.attribute16 := p1_a25;
3545     ddp_contact_point_rec.attribute17 := p1_a26;
3546     ddp_contact_point_rec.attribute18 := p1_a27;
3547     ddp_contact_point_rec.attribute19 := p1_a28;
3548     ddp_contact_point_rec.attribute20 := p1_a29;
3549     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3550     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3551     ddp_contact_point_rec.created_by_module := p1_a32;
3552     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3553     ddp_contact_point_rec.actual_content_source := p1_a34;
3554 
3555     ddp_eft_rec.eft_transmission_program_id := rosetta_g_miss_num_map(p2_a0);
3556     ddp_eft_rec.eft_printing_program_id := rosetta_g_miss_num_map(p2_a1);
3557     ddp_eft_rec.eft_user_number := p2_a2;
3558     ddp_eft_rec.eft_swift_code := p2_a3;
3559 
3560 
3561 
3562 
3563 
3564     -- here's the delegated call to the old PL/SQL routine
3565     hz_bank_pub.update_eft_contact_point(p_init_msg_list,
3566       ddp_contact_point_rec,
3567       ddp_eft_rec,
3568       p_object_version_number,
3569       x_return_status,
3570       x_msg_count,
3571       x_msg_data);
3572 
3573     -- copy data back from the local OUT or IN-OUT args, if any
3574 
3575 
3576 
3577 
3578 
3579 
3580   end;
3581 
3582   procedure create_web_contact_point_17(p_init_msg_list  VARCHAR2
3583     , x_contact_point_id out nocopy  NUMBER
3584     , x_return_status out nocopy  VARCHAR2
3585     , x_msg_count out nocopy  NUMBER
3586     , x_msg_data out nocopy  VARCHAR2
3590     , p1_a3  VARCHAR2 := null
3587     , p1_a0  NUMBER := null
3588     , p1_a1  VARCHAR2 := null
3589     , p1_a2  VARCHAR2 := null
3591     , p1_a4  NUMBER := null
3592     , p1_a5  VARCHAR2 := null
3593     , p1_a6  VARCHAR2 := null
3594     , p1_a7  VARCHAR2 := null
3595     , p1_a8  VARCHAR2 := null
3596     , p1_a9  VARCHAR2 := null
3597     , p1_a10  VARCHAR2 := null
3598     , p1_a11  VARCHAR2 := null
3599     , p1_a12  VARCHAR2 := null
3600     , p1_a13  VARCHAR2 := null
3601     , p1_a14  VARCHAR2 := null
3602     , p1_a15  VARCHAR2 := null
3603     , p1_a16  VARCHAR2 := null
3604     , p1_a17  VARCHAR2 := null
3605     , p1_a18  VARCHAR2 := null
3606     , p1_a19  VARCHAR2 := null
3607     , p1_a20  VARCHAR2 := null
3608     , p1_a21  VARCHAR2 := null
3609     , p1_a22  VARCHAR2 := null
3610     , p1_a23  VARCHAR2 := null
3611     , p1_a24  VARCHAR2 := null
3612     , p1_a25  VARCHAR2 := null
3613     , p1_a26  VARCHAR2 := null
3614     , p1_a27  VARCHAR2 := null
3615     , p1_a28  VARCHAR2 := null
3616     , p1_a29  VARCHAR2 := null
3617     , p1_a30  VARCHAR2 := null
3618     , p1_a31  VARCHAR2 := null
3619     , p1_a32  VARCHAR2 := null
3620     , p1_a33  NUMBER := null
3621     , p1_a34  VARCHAR2 := null
3622     , p2_a0  VARCHAR2 := null
3623     , p2_a1  VARCHAR2 := null
3624   )
3625   as
3626     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3627     ddp_web_rec hz_contact_point_v2pub.web_rec_type;
3628     ddindx binary_integer; indx binary_integer;
3629   begin
3630 
3631     -- copy data to the local IN or IN-OUT args, if any
3632 
3633     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3634     ddp_contact_point_rec.contact_point_type := p1_a1;
3635     ddp_contact_point_rec.status := p1_a2;
3636     ddp_contact_point_rec.owner_table_name := p1_a3;
3637     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3638     ddp_contact_point_rec.primary_flag := p1_a5;
3639     ddp_contact_point_rec.orig_system_reference := p1_a6;
3640     ddp_contact_point_rec.orig_system := p1_a7;
3641     ddp_contact_point_rec.content_source_type := p1_a8;
3642     ddp_contact_point_rec.attribute_category := p1_a9;
3643     ddp_contact_point_rec.attribute1 := p1_a10;
3644     ddp_contact_point_rec.attribute2 := p1_a11;
3645     ddp_contact_point_rec.attribute3 := p1_a12;
3646     ddp_contact_point_rec.attribute4 := p1_a13;
3647     ddp_contact_point_rec.attribute5 := p1_a14;
3648     ddp_contact_point_rec.attribute6 := p1_a15;
3649     ddp_contact_point_rec.attribute7 := p1_a16;
3650     ddp_contact_point_rec.attribute8 := p1_a17;
3651     ddp_contact_point_rec.attribute9 := p1_a18;
3652     ddp_contact_point_rec.attribute10 := p1_a19;
3653     ddp_contact_point_rec.attribute11 := p1_a20;
3654     ddp_contact_point_rec.attribute12 := p1_a21;
3655     ddp_contact_point_rec.attribute13 := p1_a22;
3656     ddp_contact_point_rec.attribute14 := p1_a23;
3657     ddp_contact_point_rec.attribute15 := p1_a24;
3658     ddp_contact_point_rec.attribute16 := p1_a25;
3659     ddp_contact_point_rec.attribute17 := p1_a26;
3660     ddp_contact_point_rec.attribute18 := p1_a27;
3661     ddp_contact_point_rec.attribute19 := p1_a28;
3662     ddp_contact_point_rec.attribute20 := p1_a29;
3663     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3664     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3665     ddp_contact_point_rec.created_by_module := p1_a32;
3666     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3667     ddp_contact_point_rec.actual_content_source := p1_a34;
3668 
3669     ddp_web_rec.web_type := p2_a0;
3670     ddp_web_rec.url := p2_a1;
3671 
3672 
3673 
3674 
3675 
3676     -- here's the delegated call to the old PL/SQL routine
3677     hz_bank_pub.create_web_contact_point(p_init_msg_list,
3678       ddp_contact_point_rec,
3679       ddp_web_rec,
3680       x_contact_point_id,
3681       x_return_status,
3682       x_msg_count,
3683       x_msg_data);
3684 
3685     -- copy data back from the local OUT or IN-OUT args, if any
3686 
3687 
3688 
3689 
3690 
3691 
3692   end;
3693 
3694   procedure update_web_contact_point_18(p_init_msg_list  VARCHAR2
3695     , p_object_version_number in out nocopy  NUMBER
3696     , x_return_status out nocopy  VARCHAR2
3697     , x_msg_count out nocopy  NUMBER
3698     , x_msg_data out nocopy  VARCHAR2
3699     , p1_a0  NUMBER := null
3700     , p1_a1  VARCHAR2 := null
3701     , p1_a2  VARCHAR2 := null
3702     , p1_a3  VARCHAR2 := null
3703     , p1_a4  NUMBER := null
3704     , p1_a5  VARCHAR2 := null
3705     , p1_a6  VARCHAR2 := null
3706     , p1_a7  VARCHAR2 := null
3707     , p1_a8  VARCHAR2 := null
3708     , p1_a9  VARCHAR2 := null
3709     , p1_a10  VARCHAR2 := null
3710     , p1_a11  VARCHAR2 := null
3711     , p1_a12  VARCHAR2 := null
3712     , p1_a13  VARCHAR2 := null
3713     , p1_a14  VARCHAR2 := null
3714     , p1_a15  VARCHAR2 := null
3715     , p1_a16  VARCHAR2 := null
3716     , p1_a17  VARCHAR2 := null
3717     , p1_a18  VARCHAR2 := null
3718     , p1_a19  VARCHAR2 := null
3719     , p1_a20  VARCHAR2 := null
3720     , p1_a21  VARCHAR2 := null
3721     , p1_a22  VARCHAR2 := null
3722     , p1_a23  VARCHAR2 := null
3723     , p1_a24  VARCHAR2 := null
3724     , p1_a25  VARCHAR2 := null
3728     , p1_a29  VARCHAR2 := null
3725     , p1_a26  VARCHAR2 := null
3726     , p1_a27  VARCHAR2 := null
3727     , p1_a28  VARCHAR2 := null
3729     , p1_a30  VARCHAR2 := null
3730     , p1_a31  VARCHAR2 := null
3731     , p1_a32  VARCHAR2 := null
3732     , p1_a33  NUMBER := null
3733     , p1_a34  VARCHAR2 := null
3734     , p2_a0  VARCHAR2 := null
3735     , p2_a1  VARCHAR2 := null
3736   )
3737   as
3738     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3739     ddp_web_rec hz_contact_point_v2pub.web_rec_type;
3740     ddindx binary_integer; indx binary_integer;
3741   begin
3742 
3743     -- copy data to the local IN or IN-OUT args, if any
3744 
3745     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3746     ddp_contact_point_rec.contact_point_type := p1_a1;
3747     ddp_contact_point_rec.status := p1_a2;
3748     ddp_contact_point_rec.owner_table_name := p1_a3;
3749     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3750     ddp_contact_point_rec.primary_flag := p1_a5;
3751     ddp_contact_point_rec.orig_system_reference := p1_a6;
3752     ddp_contact_point_rec.orig_system := p1_a7;
3753     ddp_contact_point_rec.content_source_type := p1_a8;
3754     ddp_contact_point_rec.attribute_category := p1_a9;
3755     ddp_contact_point_rec.attribute1 := p1_a10;
3756     ddp_contact_point_rec.attribute2 := p1_a11;
3757     ddp_contact_point_rec.attribute3 := p1_a12;
3758     ddp_contact_point_rec.attribute4 := p1_a13;
3759     ddp_contact_point_rec.attribute5 := p1_a14;
3760     ddp_contact_point_rec.attribute6 := p1_a15;
3761     ddp_contact_point_rec.attribute7 := p1_a16;
3762     ddp_contact_point_rec.attribute8 := p1_a17;
3763     ddp_contact_point_rec.attribute9 := p1_a18;
3764     ddp_contact_point_rec.attribute10 := p1_a19;
3765     ddp_contact_point_rec.attribute11 := p1_a20;
3766     ddp_contact_point_rec.attribute12 := p1_a21;
3767     ddp_contact_point_rec.attribute13 := p1_a22;
3768     ddp_contact_point_rec.attribute14 := p1_a23;
3769     ddp_contact_point_rec.attribute15 := p1_a24;
3770     ddp_contact_point_rec.attribute16 := p1_a25;
3771     ddp_contact_point_rec.attribute17 := p1_a26;
3772     ddp_contact_point_rec.attribute18 := p1_a27;
3773     ddp_contact_point_rec.attribute19 := p1_a28;
3774     ddp_contact_point_rec.attribute20 := p1_a29;
3775     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3776     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3777     ddp_contact_point_rec.created_by_module := p1_a32;
3778     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3779     ddp_contact_point_rec.actual_content_source := p1_a34;
3780 
3781     ddp_web_rec.web_type := p2_a0;
3782     ddp_web_rec.url := p2_a1;
3783 
3784 
3785 
3786 
3787 
3788     -- here's the delegated call to the old PL/SQL routine
3789     hz_bank_pub.update_web_contact_point(p_init_msg_list,
3790       ddp_contact_point_rec,
3791       ddp_web_rec,
3792       p_object_version_number,
3793       x_return_status,
3794       x_msg_count,
3795       x_msg_data);
3796 
3797     -- copy data back from the local OUT or IN-OUT args, if any
3798 
3799 
3800 
3801 
3802 
3803 
3804   end;
3805 
3806   procedure create_phone_contact_point_19(p_init_msg_list  VARCHAR2
3807     , x_contact_point_id out nocopy  NUMBER
3808     , x_return_status out nocopy  VARCHAR2
3809     , x_msg_count out nocopy  NUMBER
3810     , x_msg_data out nocopy  VARCHAR2
3811     , p1_a0  NUMBER := null
3812     , p1_a1  VARCHAR2 := null
3813     , p1_a2  VARCHAR2 := null
3814     , p1_a3  VARCHAR2 := null
3815     , p1_a4  NUMBER := null
3816     , p1_a5  VARCHAR2 := null
3817     , p1_a6  VARCHAR2 := null
3818     , p1_a7  VARCHAR2 := null
3819     , p1_a8  VARCHAR2 := null
3820     , p1_a9  VARCHAR2 := null
3821     , p1_a10  VARCHAR2 := null
3822     , p1_a11  VARCHAR2 := null
3823     , p1_a12  VARCHAR2 := null
3824     , p1_a13  VARCHAR2 := null
3825     , p1_a14  VARCHAR2 := null
3826     , p1_a15  VARCHAR2 := null
3827     , p1_a16  VARCHAR2 := null
3828     , p1_a17  VARCHAR2 := null
3829     , p1_a18  VARCHAR2 := null
3830     , p1_a19  VARCHAR2 := null
3831     , p1_a20  VARCHAR2 := null
3832     , p1_a21  VARCHAR2 := null
3833     , p1_a22  VARCHAR2 := null
3834     , p1_a23  VARCHAR2 := null
3835     , p1_a24  VARCHAR2 := null
3836     , p1_a25  VARCHAR2 := null
3837     , p1_a26  VARCHAR2 := null
3838     , p1_a27  VARCHAR2 := null
3839     , p1_a28  VARCHAR2 := null
3840     , p1_a29  VARCHAR2 := null
3841     , p1_a30  VARCHAR2 := null
3842     , p1_a31  VARCHAR2 := null
3843     , p1_a32  VARCHAR2 := null
3844     , p1_a33  NUMBER := null
3845     , p1_a34  VARCHAR2 := null
3846     , p2_a0  VARCHAR2 := null
3847     , p2_a1  DATE := null
3848     , p2_a2  NUMBER := null
3849     , p2_a3  VARCHAR2 := null
3850     , p2_a4  VARCHAR2 := null
3851     , p2_a5  VARCHAR2 := null
3852     , p2_a6  VARCHAR2 := null
3853     , p2_a7  VARCHAR2 := null
3854     , p2_a8  VARCHAR2 := null
3855   )
3856   as
3857     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3858     ddp_phone_rec hz_contact_point_v2pub.phone_rec_type;
3859     ddindx binary_integer; indx binary_integer;
3860   begin
3861 
3862     -- copy data to the local IN or IN-OUT args, if any
3863 
3867     ddp_contact_point_rec.owner_table_name := p1_a3;
3864     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3865     ddp_contact_point_rec.contact_point_type := p1_a1;
3866     ddp_contact_point_rec.status := p1_a2;
3868     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3869     ddp_contact_point_rec.primary_flag := p1_a5;
3870     ddp_contact_point_rec.orig_system_reference := p1_a6;
3871     ddp_contact_point_rec.orig_system := p1_a7;
3872     ddp_contact_point_rec.content_source_type := p1_a8;
3873     ddp_contact_point_rec.attribute_category := p1_a9;
3874     ddp_contact_point_rec.attribute1 := p1_a10;
3875     ddp_contact_point_rec.attribute2 := p1_a11;
3876     ddp_contact_point_rec.attribute3 := p1_a12;
3877     ddp_contact_point_rec.attribute4 := p1_a13;
3878     ddp_contact_point_rec.attribute5 := p1_a14;
3879     ddp_contact_point_rec.attribute6 := p1_a15;
3880     ddp_contact_point_rec.attribute7 := p1_a16;
3881     ddp_contact_point_rec.attribute8 := p1_a17;
3882     ddp_contact_point_rec.attribute9 := p1_a18;
3883     ddp_contact_point_rec.attribute10 := p1_a19;
3884     ddp_contact_point_rec.attribute11 := p1_a20;
3885     ddp_contact_point_rec.attribute12 := p1_a21;
3886     ddp_contact_point_rec.attribute13 := p1_a22;
3887     ddp_contact_point_rec.attribute14 := p1_a23;
3888     ddp_contact_point_rec.attribute15 := p1_a24;
3889     ddp_contact_point_rec.attribute16 := p1_a25;
3890     ddp_contact_point_rec.attribute17 := p1_a26;
3891     ddp_contact_point_rec.attribute18 := p1_a27;
3892     ddp_contact_point_rec.attribute19 := p1_a28;
3893     ddp_contact_point_rec.attribute20 := p1_a29;
3894     ddp_contact_point_rec.contact_point_purpose := p1_a30;
3895     ddp_contact_point_rec.primary_by_purpose := p1_a31;
3896     ddp_contact_point_rec.created_by_module := p1_a32;
3897     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
3898     ddp_contact_point_rec.actual_content_source := p1_a34;
3899 
3900     ddp_phone_rec.phone_calling_calendar := p2_a0;
3901     ddp_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
3902     ddp_phone_rec.timezone_id := rosetta_g_miss_num_map(p2_a2);
3903     ddp_phone_rec.phone_area_code := p2_a3;
3904     ddp_phone_rec.phone_country_code := p2_a4;
3905     ddp_phone_rec.phone_number := p2_a5;
3906     ddp_phone_rec.phone_extension := p2_a6;
3907     ddp_phone_rec.phone_line_type := p2_a7;
3908     ddp_phone_rec.raw_phone_number := p2_a8;
3909 
3910 
3911 
3912 
3913 
3914     -- here's the delegated call to the old PL/SQL routine
3915     hz_bank_pub.create_phone_contact_point(p_init_msg_list,
3916       ddp_contact_point_rec,
3917       ddp_phone_rec,
3918       x_contact_point_id,
3919       x_return_status,
3920       x_msg_count,
3921       x_msg_data);
3922 
3923     -- copy data back from the local OUT or IN-OUT args, if any
3924 
3925 
3926 
3927 
3928 
3929 
3930   end;
3931 
3932   procedure update_phone_contact_point_20(p_init_msg_list  VARCHAR2
3933     , p_object_version_number in out nocopy  NUMBER
3934     , x_return_status out nocopy  VARCHAR2
3935     , x_msg_count out nocopy  NUMBER
3936     , x_msg_data out nocopy  VARCHAR2
3937     , p1_a0  NUMBER := null
3938     , p1_a1  VARCHAR2 := null
3939     , p1_a2  VARCHAR2 := null
3940     , p1_a3  VARCHAR2 := null
3941     , p1_a4  NUMBER := null
3942     , p1_a5  VARCHAR2 := null
3943     , p1_a6  VARCHAR2 := null
3944     , p1_a7  VARCHAR2 := null
3945     , p1_a8  VARCHAR2 := null
3946     , p1_a9  VARCHAR2 := null
3947     , p1_a10  VARCHAR2 := null
3948     , p1_a11  VARCHAR2 := null
3949     , p1_a12  VARCHAR2 := null
3950     , p1_a13  VARCHAR2 := null
3951     , p1_a14  VARCHAR2 := null
3952     , p1_a15  VARCHAR2 := null
3953     , p1_a16  VARCHAR2 := null
3954     , p1_a17  VARCHAR2 := null
3955     , p1_a18  VARCHAR2 := null
3956     , p1_a19  VARCHAR2 := null
3957     , p1_a20  VARCHAR2 := null
3958     , p1_a21  VARCHAR2 := null
3959     , p1_a22  VARCHAR2 := null
3960     , p1_a23  VARCHAR2 := null
3961     , p1_a24  VARCHAR2 := null
3962     , p1_a25  VARCHAR2 := null
3963     , p1_a26  VARCHAR2 := null
3964     , p1_a27  VARCHAR2 := null
3965     , p1_a28  VARCHAR2 := null
3966     , p1_a29  VARCHAR2 := null
3967     , p1_a30  VARCHAR2 := null
3968     , p1_a31  VARCHAR2 := null
3969     , p1_a32  VARCHAR2 := null
3970     , p1_a33  NUMBER := null
3971     , p1_a34  VARCHAR2 := null
3972     , p2_a0  VARCHAR2 := null
3973     , p2_a1  DATE := null
3974     , p2_a2  NUMBER := null
3975     , p2_a3  VARCHAR2 := null
3976     , p2_a4  VARCHAR2 := null
3977     , p2_a5  VARCHAR2 := null
3978     , p2_a6  VARCHAR2 := null
3979     , p2_a7  VARCHAR2 := null
3980     , p2_a8  VARCHAR2 := null
3981   )
3982   as
3983     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
3984     ddp_phone_rec hz_contact_point_v2pub.phone_rec_type;
3985     ddindx binary_integer; indx binary_integer;
3986   begin
3987 
3988     -- copy data to the local IN or IN-OUT args, if any
3989 
3990     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
3991     ddp_contact_point_rec.contact_point_type := p1_a1;
3992     ddp_contact_point_rec.status := p1_a2;
3993     ddp_contact_point_rec.owner_table_name := p1_a3;
3994     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
3995     ddp_contact_point_rec.primary_flag := p1_a5;
3996     ddp_contact_point_rec.orig_system_reference := p1_a6;
3997     ddp_contact_point_rec.orig_system := p1_a7;
4001     ddp_contact_point_rec.attribute2 := p1_a11;
3998     ddp_contact_point_rec.content_source_type := p1_a8;
3999     ddp_contact_point_rec.attribute_category := p1_a9;
4000     ddp_contact_point_rec.attribute1 := p1_a10;
4002     ddp_contact_point_rec.attribute3 := p1_a12;
4003     ddp_contact_point_rec.attribute4 := p1_a13;
4004     ddp_contact_point_rec.attribute5 := p1_a14;
4005     ddp_contact_point_rec.attribute6 := p1_a15;
4006     ddp_contact_point_rec.attribute7 := p1_a16;
4007     ddp_contact_point_rec.attribute8 := p1_a17;
4008     ddp_contact_point_rec.attribute9 := p1_a18;
4009     ddp_contact_point_rec.attribute10 := p1_a19;
4010     ddp_contact_point_rec.attribute11 := p1_a20;
4011     ddp_contact_point_rec.attribute12 := p1_a21;
4012     ddp_contact_point_rec.attribute13 := p1_a22;
4013     ddp_contact_point_rec.attribute14 := p1_a23;
4014     ddp_contact_point_rec.attribute15 := p1_a24;
4015     ddp_contact_point_rec.attribute16 := p1_a25;
4016     ddp_contact_point_rec.attribute17 := p1_a26;
4017     ddp_contact_point_rec.attribute18 := p1_a27;
4018     ddp_contact_point_rec.attribute19 := p1_a28;
4019     ddp_contact_point_rec.attribute20 := p1_a29;
4020     ddp_contact_point_rec.contact_point_purpose := p1_a30;
4021     ddp_contact_point_rec.primary_by_purpose := p1_a31;
4022     ddp_contact_point_rec.created_by_module := p1_a32;
4023     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
4024     ddp_contact_point_rec.actual_content_source := p1_a34;
4025 
4026     ddp_phone_rec.phone_calling_calendar := p2_a0;
4027     ddp_phone_rec.last_contact_dt_time := rosetta_g_miss_date_in_map(p2_a1);
4028     ddp_phone_rec.timezone_id := rosetta_g_miss_num_map(p2_a2);
4029     ddp_phone_rec.phone_area_code := p2_a3;
4030     ddp_phone_rec.phone_country_code := p2_a4;
4031     ddp_phone_rec.phone_number := p2_a5;
4032     ddp_phone_rec.phone_extension := p2_a6;
4033     ddp_phone_rec.phone_line_type := p2_a7;
4034     ddp_phone_rec.raw_phone_number := p2_a8;
4035 
4036 
4037 
4038 
4039 
4040     -- here's the delegated call to the old PL/SQL routine
4041     hz_bank_pub.update_phone_contact_point(p_init_msg_list,
4042       ddp_contact_point_rec,
4043       ddp_phone_rec,
4044       p_object_version_number,
4045       x_return_status,
4046       x_msg_count,
4047       x_msg_data);
4048 
4049     -- copy data back from the local OUT or IN-OUT args, if any
4050 
4051 
4052 
4053 
4054 
4055 
4056   end;
4057 
4058   procedure create_email_contact_point_21(p_init_msg_list  VARCHAR2
4059     , x_contact_point_id out nocopy  NUMBER
4060     , x_return_status out nocopy  VARCHAR2
4061     , x_msg_count out nocopy  NUMBER
4062     , x_msg_data out nocopy  VARCHAR2
4063     , p1_a0  NUMBER := null
4064     , p1_a1  VARCHAR2 := null
4065     , p1_a2  VARCHAR2 := null
4066     , p1_a3  VARCHAR2 := null
4067     , p1_a4  NUMBER := null
4068     , p1_a5  VARCHAR2 := null
4069     , p1_a6  VARCHAR2 := null
4070     , p1_a7  VARCHAR2 := null
4071     , p1_a8  VARCHAR2 := null
4072     , p1_a9  VARCHAR2 := null
4073     , p1_a10  VARCHAR2 := null
4074     , p1_a11  VARCHAR2 := null
4075     , p1_a12  VARCHAR2 := null
4076     , p1_a13  VARCHAR2 := null
4077     , p1_a14  VARCHAR2 := null
4078     , p1_a15  VARCHAR2 := null
4079     , p1_a16  VARCHAR2 := null
4080     , p1_a17  VARCHAR2 := null
4081     , p1_a18  VARCHAR2 := null
4082     , p1_a19  VARCHAR2 := null
4083     , p1_a20  VARCHAR2 := null
4084     , p1_a21  VARCHAR2 := null
4085     , p1_a22  VARCHAR2 := null
4086     , p1_a23  VARCHAR2 := null
4087     , p1_a24  VARCHAR2 := null
4088     , p1_a25  VARCHAR2 := null
4089     , p1_a26  VARCHAR2 := null
4090     , p1_a27  VARCHAR2 := null
4091     , p1_a28  VARCHAR2 := null
4092     , p1_a29  VARCHAR2 := null
4093     , p1_a30  VARCHAR2 := null
4094     , p1_a31  VARCHAR2 := null
4095     , p1_a32  VARCHAR2 := null
4096     , p1_a33  NUMBER := null
4097     , p1_a34  VARCHAR2 := null
4098     , p2_a0  VARCHAR2 := null
4099     , p2_a1  VARCHAR2 := null
4100   )
4101   as
4102     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
4103     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
4104     ddindx binary_integer; indx binary_integer;
4105   begin
4106 
4107     -- copy data to the local IN or IN-OUT args, if any
4108 
4109     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
4110     ddp_contact_point_rec.contact_point_type := p1_a1;
4111     ddp_contact_point_rec.status := p1_a2;
4112     ddp_contact_point_rec.owner_table_name := p1_a3;
4113     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
4114     ddp_contact_point_rec.primary_flag := p1_a5;
4115     ddp_contact_point_rec.orig_system_reference := p1_a6;
4116     ddp_contact_point_rec.orig_system := p1_a7;
4117     ddp_contact_point_rec.content_source_type := p1_a8;
4118     ddp_contact_point_rec.attribute_category := p1_a9;
4119     ddp_contact_point_rec.attribute1 := p1_a10;
4120     ddp_contact_point_rec.attribute2 := p1_a11;
4121     ddp_contact_point_rec.attribute3 := p1_a12;
4122     ddp_contact_point_rec.attribute4 := p1_a13;
4123     ddp_contact_point_rec.attribute5 := p1_a14;
4124     ddp_contact_point_rec.attribute6 := p1_a15;
4125     ddp_contact_point_rec.attribute7 := p1_a16;
4126     ddp_contact_point_rec.attribute8 := p1_a17;
4127     ddp_contact_point_rec.attribute9 := p1_a18;
4128     ddp_contact_point_rec.attribute10 := p1_a19;
4132     ddp_contact_point_rec.attribute14 := p1_a23;
4129     ddp_contact_point_rec.attribute11 := p1_a20;
4130     ddp_contact_point_rec.attribute12 := p1_a21;
4131     ddp_contact_point_rec.attribute13 := p1_a22;
4133     ddp_contact_point_rec.attribute15 := p1_a24;
4134     ddp_contact_point_rec.attribute16 := p1_a25;
4135     ddp_contact_point_rec.attribute17 := p1_a26;
4136     ddp_contact_point_rec.attribute18 := p1_a27;
4137     ddp_contact_point_rec.attribute19 := p1_a28;
4138     ddp_contact_point_rec.attribute20 := p1_a29;
4139     ddp_contact_point_rec.contact_point_purpose := p1_a30;
4140     ddp_contact_point_rec.primary_by_purpose := p1_a31;
4141     ddp_contact_point_rec.created_by_module := p1_a32;
4142     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
4143     ddp_contact_point_rec.actual_content_source := p1_a34;
4144 
4145     ddp_email_rec.email_format := p2_a0;
4146     ddp_email_rec.email_address := p2_a1;
4147 
4148 
4149 
4150 
4151 
4152     -- here's the delegated call to the old PL/SQL routine
4153     hz_bank_pub.create_email_contact_point(p_init_msg_list,
4154       ddp_contact_point_rec,
4155       ddp_email_rec,
4156       x_contact_point_id,
4157       x_return_status,
4158       x_msg_count,
4159       x_msg_data);
4160 
4161     -- copy data back from the local OUT or IN-OUT args, if any
4162 
4163 
4164 
4165 
4166 
4167 
4168   end;
4169 
4170   procedure update_email_contact_point_22(p_init_msg_list  VARCHAR2
4171     , p_object_version_number in out nocopy  NUMBER
4172     , x_return_status out nocopy  VARCHAR2
4173     , x_msg_count out nocopy  NUMBER
4174     , x_msg_data out nocopy  VARCHAR2
4175     , p1_a0  NUMBER := null
4176     , p1_a1  VARCHAR2 := null
4177     , p1_a2  VARCHAR2 := null
4178     , p1_a3  VARCHAR2 := null
4179     , p1_a4  NUMBER := null
4180     , p1_a5  VARCHAR2 := null
4181     , p1_a6  VARCHAR2 := null
4182     , p1_a7  VARCHAR2 := null
4183     , p1_a8  VARCHAR2 := null
4184     , p1_a9  VARCHAR2 := null
4185     , p1_a10  VARCHAR2 := null
4186     , p1_a11  VARCHAR2 := null
4187     , p1_a12  VARCHAR2 := null
4188     , p1_a13  VARCHAR2 := null
4189     , p1_a14  VARCHAR2 := null
4190     , p1_a15  VARCHAR2 := null
4191     , p1_a16  VARCHAR2 := null
4192     , p1_a17  VARCHAR2 := null
4193     , p1_a18  VARCHAR2 := null
4194     , p1_a19  VARCHAR2 := null
4195     , p1_a20  VARCHAR2 := null
4196     , p1_a21  VARCHAR2 := null
4197     , p1_a22  VARCHAR2 := null
4198     , p1_a23  VARCHAR2 := null
4199     , p1_a24  VARCHAR2 := null
4200     , p1_a25  VARCHAR2 := null
4201     , p1_a26  VARCHAR2 := null
4202     , p1_a27  VARCHAR2 := null
4203     , p1_a28  VARCHAR2 := null
4204     , p1_a29  VARCHAR2 := null
4205     , p1_a30  VARCHAR2 := null
4206     , p1_a31  VARCHAR2 := null
4207     , p1_a32  VARCHAR2 := null
4208     , p1_a33  NUMBER := null
4209     , p1_a34  VARCHAR2 := null
4210     , p2_a0  VARCHAR2 := null
4211     , p2_a1  VARCHAR2 := null
4212   )
4213   as
4214     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
4215     ddp_email_rec hz_contact_point_v2pub.email_rec_type;
4216     ddindx binary_integer; indx binary_integer;
4217   begin
4218 
4219     -- copy data to the local IN or IN-OUT args, if any
4220 
4221     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
4222     ddp_contact_point_rec.contact_point_type := p1_a1;
4223     ddp_contact_point_rec.status := p1_a2;
4224     ddp_contact_point_rec.owner_table_name := p1_a3;
4225     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
4226     ddp_contact_point_rec.primary_flag := p1_a5;
4227     ddp_contact_point_rec.orig_system_reference := p1_a6;
4228     ddp_contact_point_rec.orig_system := p1_a7;
4229     ddp_contact_point_rec.content_source_type := p1_a8;
4230     ddp_contact_point_rec.attribute_category := p1_a9;
4231     ddp_contact_point_rec.attribute1 := p1_a10;
4232     ddp_contact_point_rec.attribute2 := p1_a11;
4233     ddp_contact_point_rec.attribute3 := p1_a12;
4234     ddp_contact_point_rec.attribute4 := p1_a13;
4235     ddp_contact_point_rec.attribute5 := p1_a14;
4236     ddp_contact_point_rec.attribute6 := p1_a15;
4237     ddp_contact_point_rec.attribute7 := p1_a16;
4238     ddp_contact_point_rec.attribute8 := p1_a17;
4239     ddp_contact_point_rec.attribute9 := p1_a18;
4240     ddp_contact_point_rec.attribute10 := p1_a19;
4241     ddp_contact_point_rec.attribute11 := p1_a20;
4242     ddp_contact_point_rec.attribute12 := p1_a21;
4243     ddp_contact_point_rec.attribute13 := p1_a22;
4244     ddp_contact_point_rec.attribute14 := p1_a23;
4245     ddp_contact_point_rec.attribute15 := p1_a24;
4246     ddp_contact_point_rec.attribute16 := p1_a25;
4247     ddp_contact_point_rec.attribute17 := p1_a26;
4248     ddp_contact_point_rec.attribute18 := p1_a27;
4249     ddp_contact_point_rec.attribute19 := p1_a28;
4250     ddp_contact_point_rec.attribute20 := p1_a29;
4251     ddp_contact_point_rec.contact_point_purpose := p1_a30;
4252     ddp_contact_point_rec.primary_by_purpose := p1_a31;
4253     ddp_contact_point_rec.created_by_module := p1_a32;
4254     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
4255     ddp_contact_point_rec.actual_content_source := p1_a34;
4256 
4257     ddp_email_rec.email_format := p2_a0;
4258     ddp_email_rec.email_address := p2_a1;
4259 
4260 
4261 
4262 
4263 
4264     -- here's the delegated call to the old PL/SQL routine
4268       p_object_version_number,
4265     hz_bank_pub.update_email_contact_point(p_init_msg_list,
4266       ddp_contact_point_rec,
4267       ddp_email_rec,
4269       x_return_status,
4270       x_msg_count,
4271       x_msg_data);
4272 
4273     -- copy data back from the local OUT or IN-OUT args, if any
4274 
4275 
4276 
4277 
4278 
4279 
4280   end;
4281 
4282   procedure create_telex_contact_point_23(p_init_msg_list  VARCHAR2
4283     , x_contact_point_id out nocopy  NUMBER
4284     , x_return_status out nocopy  VARCHAR2
4285     , x_msg_count out nocopy  NUMBER
4286     , x_msg_data out nocopy  VARCHAR2
4287     , p1_a0  NUMBER := null
4288     , p1_a1  VARCHAR2 := null
4289     , p1_a2  VARCHAR2 := null
4290     , p1_a3  VARCHAR2 := null
4291     , p1_a4  NUMBER := null
4292     , p1_a5  VARCHAR2 := null
4293     , p1_a6  VARCHAR2 := null
4294     , p1_a7  VARCHAR2 := null
4295     , p1_a8  VARCHAR2 := null
4296     , p1_a9  VARCHAR2 := null
4297     , p1_a10  VARCHAR2 := null
4298     , p1_a11  VARCHAR2 := null
4299     , p1_a12  VARCHAR2 := null
4300     , p1_a13  VARCHAR2 := null
4301     , p1_a14  VARCHAR2 := null
4302     , p1_a15  VARCHAR2 := null
4303     , p1_a16  VARCHAR2 := null
4304     , p1_a17  VARCHAR2 := null
4305     , p1_a18  VARCHAR2 := null
4306     , p1_a19  VARCHAR2 := null
4307     , p1_a20  VARCHAR2 := null
4308     , p1_a21  VARCHAR2 := null
4309     , p1_a22  VARCHAR2 := null
4310     , p1_a23  VARCHAR2 := null
4311     , p1_a24  VARCHAR2 := null
4312     , p1_a25  VARCHAR2 := null
4313     , p1_a26  VARCHAR2 := null
4314     , p1_a27  VARCHAR2 := null
4315     , p1_a28  VARCHAR2 := null
4316     , p1_a29  VARCHAR2 := null
4317     , p1_a30  VARCHAR2 := null
4318     , p1_a31  VARCHAR2 := null
4319     , p1_a32  VARCHAR2 := null
4320     , p1_a33  NUMBER := null
4321     , p1_a34  VARCHAR2 := null
4322     , p2_a0  VARCHAR2 := null
4323   )
4324   as
4325     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
4326     ddp_telex_rec hz_contact_point_v2pub.telex_rec_type;
4327     ddindx binary_integer; indx binary_integer;
4328   begin
4329 
4330     -- copy data to the local IN or IN-OUT args, if any
4331 
4332     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
4333     ddp_contact_point_rec.contact_point_type := p1_a1;
4334     ddp_contact_point_rec.status := p1_a2;
4335     ddp_contact_point_rec.owner_table_name := p1_a3;
4336     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
4337     ddp_contact_point_rec.primary_flag := p1_a5;
4338     ddp_contact_point_rec.orig_system_reference := p1_a6;
4339     ddp_contact_point_rec.orig_system := p1_a7;
4340     ddp_contact_point_rec.content_source_type := p1_a8;
4341     ddp_contact_point_rec.attribute_category := p1_a9;
4342     ddp_contact_point_rec.attribute1 := p1_a10;
4343     ddp_contact_point_rec.attribute2 := p1_a11;
4344     ddp_contact_point_rec.attribute3 := p1_a12;
4345     ddp_contact_point_rec.attribute4 := p1_a13;
4346     ddp_contact_point_rec.attribute5 := p1_a14;
4347     ddp_contact_point_rec.attribute6 := p1_a15;
4348     ddp_contact_point_rec.attribute7 := p1_a16;
4349     ddp_contact_point_rec.attribute8 := p1_a17;
4350     ddp_contact_point_rec.attribute9 := p1_a18;
4351     ddp_contact_point_rec.attribute10 := p1_a19;
4352     ddp_contact_point_rec.attribute11 := p1_a20;
4353     ddp_contact_point_rec.attribute12 := p1_a21;
4354     ddp_contact_point_rec.attribute13 := p1_a22;
4355     ddp_contact_point_rec.attribute14 := p1_a23;
4356     ddp_contact_point_rec.attribute15 := p1_a24;
4357     ddp_contact_point_rec.attribute16 := p1_a25;
4358     ddp_contact_point_rec.attribute17 := p1_a26;
4359     ddp_contact_point_rec.attribute18 := p1_a27;
4360     ddp_contact_point_rec.attribute19 := p1_a28;
4361     ddp_contact_point_rec.attribute20 := p1_a29;
4362     ddp_contact_point_rec.contact_point_purpose := p1_a30;
4363     ddp_contact_point_rec.primary_by_purpose := p1_a31;
4364     ddp_contact_point_rec.created_by_module := p1_a32;
4365     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
4366     ddp_contact_point_rec.actual_content_source := p1_a34;
4367 
4368     ddp_telex_rec.telex_number := p2_a0;
4369 
4370 
4371 
4372 
4373 
4374     -- here's the delegated call to the old PL/SQL routine
4375     hz_bank_pub.create_telex_contact_point(p_init_msg_list,
4376       ddp_contact_point_rec,
4377       ddp_telex_rec,
4378       x_contact_point_id,
4379       x_return_status,
4380       x_msg_count,
4381       x_msg_data);
4382 
4383     -- copy data back from the local OUT or IN-OUT args, if any
4384 
4385 
4386 
4387 
4388 
4389 
4390   end;
4391 
4392   procedure update_telex_contact_point_24(p_init_msg_list  VARCHAR2
4393     , p_object_version_number in out nocopy  NUMBER
4394     , x_return_status out nocopy  VARCHAR2
4395     , x_msg_count out nocopy  NUMBER
4396     , x_msg_data out nocopy  VARCHAR2
4397     , p1_a0  NUMBER := null
4398     , p1_a1  VARCHAR2 := null
4399     , p1_a2  VARCHAR2 := null
4400     , p1_a3  VARCHAR2 := null
4401     , p1_a4  NUMBER := null
4402     , p1_a5  VARCHAR2 := null
4403     , p1_a6  VARCHAR2 := null
4404     , p1_a7  VARCHAR2 := null
4405     , p1_a8  VARCHAR2 := null
4406     , p1_a9  VARCHAR2 := null
4407     , p1_a10  VARCHAR2 := null
4408     , p1_a11  VARCHAR2 := null
4412     , p1_a15  VARCHAR2 := null
4409     , p1_a12  VARCHAR2 := null
4410     , p1_a13  VARCHAR2 := null
4411     , p1_a14  VARCHAR2 := null
4413     , p1_a16  VARCHAR2 := null
4414     , p1_a17  VARCHAR2 := null
4415     , p1_a18  VARCHAR2 := null
4416     , p1_a19  VARCHAR2 := null
4417     , p1_a20  VARCHAR2 := null
4418     , p1_a21  VARCHAR2 := null
4419     , p1_a22  VARCHAR2 := null
4420     , p1_a23  VARCHAR2 := null
4421     , p1_a24  VARCHAR2 := null
4422     , p1_a25  VARCHAR2 := null
4423     , p1_a26  VARCHAR2 := null
4424     , p1_a27  VARCHAR2 := null
4425     , p1_a28  VARCHAR2 := null
4426     , p1_a29  VARCHAR2 := null
4427     , p1_a30  VARCHAR2 := null
4428     , p1_a31  VARCHAR2 := null
4429     , p1_a32  VARCHAR2 := null
4430     , p1_a33  NUMBER := null
4431     , p1_a34  VARCHAR2 := null
4432     , p2_a0  VARCHAR2 := null
4433   )
4434   as
4435     ddp_contact_point_rec hz_contact_point_v2pub.contact_point_rec_type;
4436     ddp_telex_rec hz_contact_point_v2pub.telex_rec_type;
4437     ddindx binary_integer; indx binary_integer;
4438   begin
4439 
4440     -- copy data to the local IN or IN-OUT args, if any
4441 
4442     ddp_contact_point_rec.contact_point_id := rosetta_g_miss_num_map(p1_a0);
4443     ddp_contact_point_rec.contact_point_type := p1_a1;
4444     ddp_contact_point_rec.status := p1_a2;
4445     ddp_contact_point_rec.owner_table_name := p1_a3;
4446     ddp_contact_point_rec.owner_table_id := rosetta_g_miss_num_map(p1_a4);
4447     ddp_contact_point_rec.primary_flag := p1_a5;
4448     ddp_contact_point_rec.orig_system_reference := p1_a6;
4449     ddp_contact_point_rec.orig_system := p1_a7;
4450     ddp_contact_point_rec.content_source_type := p1_a8;
4451     ddp_contact_point_rec.attribute_category := p1_a9;
4452     ddp_contact_point_rec.attribute1 := p1_a10;
4453     ddp_contact_point_rec.attribute2 := p1_a11;
4454     ddp_contact_point_rec.attribute3 := p1_a12;
4455     ddp_contact_point_rec.attribute4 := p1_a13;
4456     ddp_contact_point_rec.attribute5 := p1_a14;
4457     ddp_contact_point_rec.attribute6 := p1_a15;
4458     ddp_contact_point_rec.attribute7 := p1_a16;
4459     ddp_contact_point_rec.attribute8 := p1_a17;
4460     ddp_contact_point_rec.attribute9 := p1_a18;
4461     ddp_contact_point_rec.attribute10 := p1_a19;
4462     ddp_contact_point_rec.attribute11 := p1_a20;
4463     ddp_contact_point_rec.attribute12 := p1_a21;
4464     ddp_contact_point_rec.attribute13 := p1_a22;
4465     ddp_contact_point_rec.attribute14 := p1_a23;
4466     ddp_contact_point_rec.attribute15 := p1_a24;
4467     ddp_contact_point_rec.attribute16 := p1_a25;
4468     ddp_contact_point_rec.attribute17 := p1_a26;
4469     ddp_contact_point_rec.attribute18 := p1_a27;
4470     ddp_contact_point_rec.attribute19 := p1_a28;
4471     ddp_contact_point_rec.attribute20 := p1_a29;
4472     ddp_contact_point_rec.contact_point_purpose := p1_a30;
4473     ddp_contact_point_rec.primary_by_purpose := p1_a31;
4474     ddp_contact_point_rec.created_by_module := p1_a32;
4475     ddp_contact_point_rec.application_id := rosetta_g_miss_num_map(p1_a33);
4476     ddp_contact_point_rec.actual_content_source := p1_a34;
4477 
4478     ddp_telex_rec.telex_number := p2_a0;
4479 
4480 
4481 
4482 
4483 
4484     -- here's the delegated call to the old PL/SQL routine
4485     hz_bank_pub.update_telex_contact_point(p_init_msg_list,
4486       ddp_contact_point_rec,
4487       ddp_telex_rec,
4488       p_object_version_number,
4489       x_return_status,
4490       x_msg_count,
4491       x_msg_data);
4492 
4493     -- copy data back from the local OUT or IN-OUT args, if any
4494 
4495 
4496 
4497 
4498 
4499 
4500   end;
4501 
4502   procedure validate_bank_25(p_init_msg_list  VARCHAR2
4503     , p_mode  VARCHAR2
4504     , x_return_status out nocopy  VARCHAR2
4505     , x_msg_count out nocopy  NUMBER
4506     , x_msg_data out nocopy  VARCHAR2
4507     , p1_a0  VARCHAR2 := null
4508     , p1_a1  VARCHAR2 := null
4509     , p1_a2  VARCHAR2 := null
4510     , p1_a3  VARCHAR2 := null
4511     , p1_a4  VARCHAR2 := null
4512     , p1_a5  VARCHAR2 := null
4513     , p1_a6  VARCHAR2 := null
4514     , p1_a7  DATE := null
4515     , p1_a8  VARCHAR2 := null
4516     , p1_a9  VARCHAR2 := null
4517     , p1_a10  VARCHAR2 := null
4518     , p1_a11  VARCHAR2 := null
4519     , p1_a12  VARCHAR2 := null
4520     , p1_a13  VARCHAR2 := null
4521     , p1_a14  VARCHAR2 := null
4522     , p1_a15  VARCHAR2 := null
4523     , p1_a16  NUMBER := null
4524     , p1_a17  NUMBER := null
4525     , p1_a18  VARCHAR2 := null
4526     , p1_a19  VARCHAR2 := null
4527     , p1_a20  VARCHAR2 := null
4528     , p1_a21  VARCHAR2 := null
4529     , p1_a22  VARCHAR2 := null
4530     , p1_a23  VARCHAR2 := null
4531     , p1_a24  VARCHAR2 := null
4532     , p1_a25  VARCHAR2 := null
4533     , p1_a26  VARCHAR2 := null
4534     , p1_a27  VARCHAR2 := null
4535     , p1_a28  VARCHAR2 := null
4536     , p1_a29  VARCHAR2 := null
4537     , p1_a30  VARCHAR2 := null
4538     , p1_a31  VARCHAR2 := null
4539     , p1_a32  VARCHAR2 := null
4540     , p1_a33  VARCHAR2 := null
4541     , p1_a34  NUMBER := null
4542     , p1_a35  DATE := null
4543     , p1_a36  VARCHAR2 := null
4544     , p1_a37  NUMBER := null
4545     , p1_a38  VARCHAR2 := null
4546     , p1_a39  VARCHAR2 := null
4547     , p1_a40  VARCHAR2 := null
4548     , p1_a41  VARCHAR2 := null
4549     , p1_a42  VARCHAR2 := null
4550     , p1_a43  VARCHAR2 := null
4551     , p1_a44  VARCHAR2 := null
4552     , p1_a45  VARCHAR2 := null
4553     , p1_a46  VARCHAR2 := null
4557     , p1_a50  VARCHAR2 := null
4554     , p1_a47  DATE := null
4555     , p1_a48  DATE := null
4556     , p1_a49  VARCHAR2 := null
4558     , p1_a51  VARCHAR2 := null
4559     , p1_a52  VARCHAR2 := null
4560     , p1_a53  VARCHAR2 := null
4561     , p1_a54  VARCHAR2 := null
4562     , p1_a55  NUMBER := null
4563     , p1_a56  NUMBER := null
4564     , p1_a57  NUMBER := null
4565     , p1_a58  VARCHAR2 := null
4566     , p1_a59  VARCHAR2 := null
4567     , p1_a60  VARCHAR2 := null
4568     , p1_a61  VARCHAR2 := null
4569     , p1_a62  VARCHAR2 := null
4570     , p1_a63  VARCHAR2 := null
4571     , p1_a64  VARCHAR2 := null
4572     , p1_a65  VARCHAR2 := null
4573     , p1_a66  VARCHAR2 := null
4574     , p1_a67  VARCHAR2 := null
4575     , p1_a68  VARCHAR2 := null
4576     , p1_a69  VARCHAR2 := null
4577     , p1_a70  VARCHAR2 := null
4578     , p1_a71  VARCHAR2 := null
4579     , p1_a72  VARCHAR2 := null
4580     , p1_a73  VARCHAR2 := null
4581     , p1_a74  VARCHAR2 := null
4582     , p1_a75  VARCHAR2 := null
4583     , p1_a76  NUMBER := null
4584     , p1_a77  VARCHAR2 := null
4585     , p1_a78  VARCHAR2 := null
4586     , p1_a79  VARCHAR2 := null
4587     , p1_a80  VARCHAR2 := null
4588     , p1_a81  VARCHAR2 := null
4589     , p1_a82  VARCHAR2 := null
4590     , p1_a83  VARCHAR2 := null
4591     , p1_a84  VARCHAR2 := null
4592     , p1_a85  VARCHAR2 := null
4593     , p1_a86  NUMBER := null
4594     , p1_a87  NUMBER := null
4595     , p1_a88  NUMBER := null
4596     , p1_a89  NUMBER := null
4597     , p1_a90  NUMBER := null
4598     , p1_a91  NUMBER := null
4599     , p1_a92  NUMBER := null
4600     , p1_a93  DATE := null
4601     , p1_a94  VARCHAR2 := null
4602     , p1_a95  VARCHAR2 := null
4603     , p1_a96  VARCHAR2 := null
4604     , p1_a97  VARCHAR2 := null
4605     , p1_a98  VARCHAR2 := null
4606     , p1_a99  VARCHAR2 := null
4607     , p1_a100  VARCHAR2 := null
4608     , p1_a101  VARCHAR2 := null
4609     , p1_a102  VARCHAR2 := null
4610     , p1_a103  NUMBER := null
4611     , p1_a104  NUMBER := null
4612     , p1_a105  NUMBER := null
4613     , p1_a106  DATE := null
4614     , p1_a107  VARCHAR2 := null
4615     , p1_a108  VARCHAR2 := null
4616     , p1_a109  VARCHAR2 := null
4617     , p1_a110  VARCHAR2 := null
4618     , p1_a111  VARCHAR2 := null
4619     , p1_a112  VARCHAR2 := null
4620     , p1_a113  VARCHAR2 := null
4621     , p1_a114  VARCHAR2 := null
4622     , p1_a115  VARCHAR2 := null
4623     , p1_a116  NUMBER := null
4624     , p1_a117  VARCHAR2 := null
4625     , p1_a118  NUMBER := null
4626     , p1_a119  VARCHAR2 := null
4627     , p1_a120  VARCHAR2 := null
4628     , p1_a121  VARCHAR2 := null
4629     , p1_a122  VARCHAR2 := null
4630     , p1_a123  VARCHAR2 := null
4631     , p1_a124  VARCHAR2 := null
4632     , p1_a125  VARCHAR2 := null
4633     , p1_a126  VARCHAR2 := null
4634     , p1_a127  VARCHAR2 := null
4635     , p1_a128  VARCHAR2 := null
4636     , p1_a129  VARCHAR2 := null
4637     , p1_a130  VARCHAR2 := null
4638     , p1_a131  VARCHAR2 := null
4639     , p1_a132  VARCHAR2 := null
4640     , p1_a133  VARCHAR2 := null
4641     , p1_a134  VARCHAR2 := null
4642     , p1_a135  VARCHAR2 := null
4643     , p1_a136  VARCHAR2 := null
4644     , p1_a137  VARCHAR2 := null
4645     , p1_a138  VARCHAR2 := null
4646     , p1_a139  VARCHAR2 := null
4647     , p1_a140  VARCHAR2 := null
4648     , p1_a141  VARCHAR2 := null
4649     , p1_a142  VARCHAR2 := null
4650     , p1_a143  NUMBER := null
4651     , p1_a144  VARCHAR2 := null
4652     , p1_a145  VARCHAR2 := null
4653     , p1_a146  VARCHAR2 := null
4654     , p1_a147  NUMBER := null
4655     , p1_a148  VARCHAR2 := null
4656     , p1_a149  VARCHAR2 := null
4657     , p1_a150  VARCHAR2 := null
4658     , p1_a151  VARCHAR2 := null
4659     , p1_a152  VARCHAR2 := null
4660     , p1_a153  VARCHAR2 := null
4661     , p1_a154  VARCHAR2 := null
4662     , p1_a155  VARCHAR2 := null
4663     , p1_a156  VARCHAR2 := null
4664     , p1_a157  VARCHAR2 := null
4665     , p1_a158  VARCHAR2 := null
4666     , p1_a159  VARCHAR2 := null
4667     , p1_a160  VARCHAR2 := null
4668     , p1_a161  VARCHAR2 := null
4669     , p1_a162  VARCHAR2 := null
4670     , p1_a163  VARCHAR2 := null
4671     , p1_a164  VARCHAR2 := null
4672     , p1_a165  VARCHAR2 := null
4673     , p1_a166  VARCHAR2 := null
4674     , p1_a167  VARCHAR2 := null
4675     , p1_a168  VARCHAR2 := null
4676     , p1_a169  VARCHAR2 := null
4677     , p1_a170  VARCHAR2 := null
4678     , p1_a171  VARCHAR2 := null
4679     , p1_a172  VARCHAR2 := null
4680     , p1_a173  VARCHAR2 := null
4681     , p1_a174  VARCHAR2 := null
4682     , p1_a175  VARCHAR2 := null
4683     , p1_a176  VARCHAR2 := null
4684     , p1_a177  VARCHAR2 := null
4685     , p1_a178  VARCHAR2 := null
4686     , p1_a179  VARCHAR2 := null
4687   )
4688   as
4689     ddp_bank_rec hz_bank_pub.bank_rec_type;
4690     ddindx binary_integer; indx binary_integer;
4691   begin
4692 
4693     -- copy data to the local IN or IN-OUT args, if any
4694 
4695     ddp_bank_rec.bank_or_branch_number := p1_a0;
4696     ddp_bank_rec.bank_code := p1_a1;
4697     ddp_bank_rec.branch_code := p1_a2;
4698     ddp_bank_rec.institution_type := p1_a3;
4699     ddp_bank_rec.branch_type := p1_a4;
4700     ddp_bank_rec.country := p1_a5;
4701     ddp_bank_rec.rfc_code := p1_a6;
4702     ddp_bank_rec.inactive_date := rosetta_g_miss_date_in_map(p1_a7);
4703     ddp_bank_rec.organization_rec.organization_name := p1_a8;
4704     ddp_bank_rec.organization_rec.duns_number_c := p1_a9;
4708     ddp_bank_rec.organization_rec.principal_name := p1_a13;
4705     ddp_bank_rec.organization_rec.enquiry_duns := p1_a10;
4706     ddp_bank_rec.organization_rec.ceo_name := p1_a11;
4707     ddp_bank_rec.organization_rec.ceo_title := p1_a12;
4709     ddp_bank_rec.organization_rec.principal_title := p1_a14;
4710     ddp_bank_rec.organization_rec.legal_status := p1_a15;
4711     ddp_bank_rec.organization_rec.control_yr := rosetta_g_miss_num_map(p1_a16);
4712     ddp_bank_rec.organization_rec.employees_total := rosetta_g_miss_num_map(p1_a17);
4713     ddp_bank_rec.organization_rec.hq_branch_ind := p1_a18;
4714     ddp_bank_rec.organization_rec.branch_flag := p1_a19;
4715     ddp_bank_rec.organization_rec.oob_ind := p1_a20;
4716     ddp_bank_rec.organization_rec.line_of_business := p1_a21;
4717     ddp_bank_rec.organization_rec.cong_dist_code := p1_a22;
4718     ddp_bank_rec.organization_rec.sic_code := p1_a23;
4719     ddp_bank_rec.organization_rec.import_ind := p1_a24;
4720     ddp_bank_rec.organization_rec.export_ind := p1_a25;
4721     ddp_bank_rec.organization_rec.labor_surplus_ind := p1_a26;
4722     ddp_bank_rec.organization_rec.debarment_ind := p1_a27;
4723     ddp_bank_rec.organization_rec.minority_owned_ind := p1_a28;
4724     ddp_bank_rec.organization_rec.minority_owned_type := p1_a29;
4725     ddp_bank_rec.organization_rec.woman_owned_ind := p1_a30;
4726     ddp_bank_rec.organization_rec.disadv_8a_ind := p1_a31;
4727     ddp_bank_rec.organization_rec.small_bus_ind := p1_a32;
4728     ddp_bank_rec.organization_rec.rent_own_ind := p1_a33;
4729     ddp_bank_rec.organization_rec.debarments_count := rosetta_g_miss_num_map(p1_a34);
4730     ddp_bank_rec.organization_rec.debarments_date := rosetta_g_miss_date_in_map(p1_a35);
4731     ddp_bank_rec.organization_rec.failure_score := p1_a36;
4732     ddp_bank_rec.organization_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p1_a37);
4733     ddp_bank_rec.organization_rec.failure_score_override_code := p1_a38;
4734     ddp_bank_rec.organization_rec.failure_score_commentary := p1_a39;
4735     ddp_bank_rec.organization_rec.global_failure_score := p1_a40;
4736     ddp_bank_rec.organization_rec.db_rating := p1_a41;
4737     ddp_bank_rec.organization_rec.credit_score := p1_a42;
4738     ddp_bank_rec.organization_rec.credit_score_commentary := p1_a43;
4739     ddp_bank_rec.organization_rec.paydex_score := p1_a44;
4740     ddp_bank_rec.organization_rec.paydex_three_months_ago := p1_a45;
4741     ddp_bank_rec.organization_rec.paydex_norm := p1_a46;
4742     ddp_bank_rec.organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p1_a47);
4743     ddp_bank_rec.organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p1_a48);
4744     ddp_bank_rec.organization_rec.organization_name_phonetic := p1_a49;
4745     ddp_bank_rec.organization_rec.tax_reference := p1_a50;
4746     ddp_bank_rec.organization_rec.gsa_indicator_flag := p1_a51;
4747     ddp_bank_rec.organization_rec.jgzz_fiscal_code := p1_a52;
4748     ddp_bank_rec.organization_rec.analysis_fy := p1_a53;
4749     ddp_bank_rec.organization_rec.fiscal_yearend_month := p1_a54;
4750     ddp_bank_rec.organization_rec.curr_fy_potential_revenue := rosetta_g_miss_num_map(p1_a55);
4751     ddp_bank_rec.organization_rec.next_fy_potential_revenue := rosetta_g_miss_num_map(p1_a56);
4752     ddp_bank_rec.organization_rec.year_established := rosetta_g_miss_num_map(p1_a57);
4753     ddp_bank_rec.organization_rec.mission_statement := p1_a58;
4754     ddp_bank_rec.organization_rec.organization_type := p1_a59;
4755     ddp_bank_rec.organization_rec.business_scope := p1_a60;
4756     ddp_bank_rec.organization_rec.corporation_class := p1_a61;
4757     ddp_bank_rec.organization_rec.known_as := p1_a62;
4758     ddp_bank_rec.organization_rec.known_as2 := p1_a63;
4759     ddp_bank_rec.organization_rec.known_as3 := p1_a64;
4760     ddp_bank_rec.organization_rec.known_as4 := p1_a65;
4761     ddp_bank_rec.organization_rec.known_as5 := p1_a66;
4762     ddp_bank_rec.organization_rec.local_bus_iden_type := p1_a67;
4763     ddp_bank_rec.organization_rec.local_bus_identifier := p1_a68;
4764     ddp_bank_rec.organization_rec.pref_functional_currency := p1_a69;
4765     ddp_bank_rec.organization_rec.registration_type := p1_a70;
4766     ddp_bank_rec.organization_rec.total_employees_text := p1_a71;
4767     ddp_bank_rec.organization_rec.total_employees_ind := p1_a72;
4768     ddp_bank_rec.organization_rec.total_emp_est_ind := p1_a73;
4769     ddp_bank_rec.organization_rec.total_emp_min_ind := p1_a74;
4770     ddp_bank_rec.organization_rec.parent_sub_ind := p1_a75;
4771     ddp_bank_rec.organization_rec.incorp_year := rosetta_g_miss_num_map(p1_a76);
4772     ddp_bank_rec.organization_rec.sic_code_type := p1_a77;
4773     ddp_bank_rec.organization_rec.public_private_ownership_flag := p1_a78;
4774     ddp_bank_rec.organization_rec.internal_flag := p1_a79;
4775     ddp_bank_rec.organization_rec.local_activity_code_type := p1_a80;
4776     ddp_bank_rec.organization_rec.local_activity_code := p1_a81;
4777     ddp_bank_rec.organization_rec.emp_at_primary_adr := p1_a82;
4778     ddp_bank_rec.organization_rec.emp_at_primary_adr_text := p1_a83;
4779     ddp_bank_rec.organization_rec.emp_at_primary_adr_est_ind := p1_a84;
4780     ddp_bank_rec.organization_rec.emp_at_primary_adr_min_ind := p1_a85;
4781     ddp_bank_rec.organization_rec.high_credit := rosetta_g_miss_num_map(p1_a86);
4782     ddp_bank_rec.organization_rec.avg_high_credit := rosetta_g_miss_num_map(p1_a87);
4783     ddp_bank_rec.organization_rec.total_payments := rosetta_g_miss_num_map(p1_a88);
4784     ddp_bank_rec.organization_rec.credit_score_class := rosetta_g_miss_num_map(p1_a89);
4785     ddp_bank_rec.organization_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p1_a90);
4786     ddp_bank_rec.organization_rec.credit_score_incd_default := rosetta_g_miss_num_map(p1_a91);
4787     ddp_bank_rec.organization_rec.credit_score_age := rosetta_g_miss_num_map(p1_a92);
4791     ddp_bank_rec.organization_rec.credit_score_commentary4 := p1_a96;
4788     ddp_bank_rec.organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p1_a93);
4789     ddp_bank_rec.organization_rec.credit_score_commentary2 := p1_a94;
4790     ddp_bank_rec.organization_rec.credit_score_commentary3 := p1_a95;
4792     ddp_bank_rec.organization_rec.credit_score_commentary5 := p1_a97;
4793     ddp_bank_rec.organization_rec.credit_score_commentary6 := p1_a98;
4794     ddp_bank_rec.organization_rec.credit_score_commentary7 := p1_a99;
4795     ddp_bank_rec.organization_rec.credit_score_commentary8 := p1_a100;
4796     ddp_bank_rec.organization_rec.credit_score_commentary9 := p1_a101;
4797     ddp_bank_rec.organization_rec.credit_score_commentary10 := p1_a102;
4798     ddp_bank_rec.organization_rec.failure_score_class := rosetta_g_miss_num_map(p1_a103);
4799     ddp_bank_rec.organization_rec.failure_score_incd_default := rosetta_g_miss_num_map(p1_a104);
4800     ddp_bank_rec.organization_rec.failure_score_age := rosetta_g_miss_num_map(p1_a105);
4801     ddp_bank_rec.organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p1_a106);
4802     ddp_bank_rec.organization_rec.failure_score_commentary2 := p1_a107;
4803     ddp_bank_rec.organization_rec.failure_score_commentary3 := p1_a108;
4804     ddp_bank_rec.organization_rec.failure_score_commentary4 := p1_a109;
4805     ddp_bank_rec.organization_rec.failure_score_commentary5 := p1_a110;
4806     ddp_bank_rec.organization_rec.failure_score_commentary6 := p1_a111;
4807     ddp_bank_rec.organization_rec.failure_score_commentary7 := p1_a112;
4808     ddp_bank_rec.organization_rec.failure_score_commentary8 := p1_a113;
4809     ddp_bank_rec.organization_rec.failure_score_commentary9 := p1_a114;
4810     ddp_bank_rec.organization_rec.failure_score_commentary10 := p1_a115;
4811     ddp_bank_rec.organization_rec.maximum_credit_recommendation := rosetta_g_miss_num_map(p1_a116);
4812     ddp_bank_rec.organization_rec.maximum_credit_currency_code := p1_a117;
4813     ddp_bank_rec.organization_rec.displayed_duns_party_id := rosetta_g_miss_num_map(p1_a118);
4814     ddp_bank_rec.organization_rec.content_source_type := p1_a119;
4815     ddp_bank_rec.organization_rec.content_source_number := p1_a120;
4816     ddp_bank_rec.organization_rec.attribute_category := p1_a121;
4817     ddp_bank_rec.organization_rec.attribute1 := p1_a122;
4818     ddp_bank_rec.organization_rec.attribute2 := p1_a123;
4819     ddp_bank_rec.organization_rec.attribute3 := p1_a124;
4820     ddp_bank_rec.organization_rec.attribute4 := p1_a125;
4821     ddp_bank_rec.organization_rec.attribute5 := p1_a126;
4822     ddp_bank_rec.organization_rec.attribute6 := p1_a127;
4823     ddp_bank_rec.organization_rec.attribute7 := p1_a128;
4824     ddp_bank_rec.organization_rec.attribute8 := p1_a129;
4825     ddp_bank_rec.organization_rec.attribute9 := p1_a130;
4826     ddp_bank_rec.organization_rec.attribute10 := p1_a131;
4827     ddp_bank_rec.organization_rec.attribute11 := p1_a132;
4828     ddp_bank_rec.organization_rec.attribute12 := p1_a133;
4829     ddp_bank_rec.organization_rec.attribute13 := p1_a134;
4830     ddp_bank_rec.organization_rec.attribute14 := p1_a135;
4831     ddp_bank_rec.organization_rec.attribute15 := p1_a136;
4832     ddp_bank_rec.organization_rec.attribute16 := p1_a137;
4833     ddp_bank_rec.organization_rec.attribute17 := p1_a138;
4834     ddp_bank_rec.organization_rec.attribute18 := p1_a139;
4835     ddp_bank_rec.organization_rec.attribute19 := p1_a140;
4836     ddp_bank_rec.organization_rec.attribute20 := p1_a141;
4837     ddp_bank_rec.organization_rec.created_by_module := p1_a142;
4838     ddp_bank_rec.organization_rec.application_id := rosetta_g_miss_num_map(p1_a143);
4839     ddp_bank_rec.organization_rec.do_not_confuse_with := p1_a144;
4840     ddp_bank_rec.organization_rec.actual_content_source := p1_a145;
4841     ddp_bank_rec.organization_rec.home_country := p1_a146;
4842     ddp_bank_rec.organization_rec.party_rec.party_id := rosetta_g_miss_num_map(p1_a147);
4843     ddp_bank_rec.organization_rec.party_rec.party_number := p1_a148;
4844     ddp_bank_rec.organization_rec.party_rec.validated_flag := p1_a149;
4845     ddp_bank_rec.organization_rec.party_rec.orig_system_reference := p1_a150;
4846     ddp_bank_rec.organization_rec.party_rec.orig_system := p1_a151;
4847     ddp_bank_rec.organization_rec.party_rec.status := p1_a152;
4848     ddp_bank_rec.organization_rec.party_rec.category_code := p1_a153;
4849     ddp_bank_rec.organization_rec.party_rec.salutation := p1_a154;
4850     ddp_bank_rec.organization_rec.party_rec.attribute_category := p1_a155;
4851     ddp_bank_rec.organization_rec.party_rec.attribute1 := p1_a156;
4852     ddp_bank_rec.organization_rec.party_rec.attribute2 := p1_a157;
4853     ddp_bank_rec.organization_rec.party_rec.attribute3 := p1_a158;
4854     ddp_bank_rec.organization_rec.party_rec.attribute4 := p1_a159;
4855     ddp_bank_rec.organization_rec.party_rec.attribute5 := p1_a160;
4856     ddp_bank_rec.organization_rec.party_rec.attribute6 := p1_a161;
4857     ddp_bank_rec.organization_rec.party_rec.attribute7 := p1_a162;
4858     ddp_bank_rec.organization_rec.party_rec.attribute8 := p1_a163;
4859     ddp_bank_rec.organization_rec.party_rec.attribute9 := p1_a164;
4860     ddp_bank_rec.organization_rec.party_rec.attribute10 := p1_a165;
4861     ddp_bank_rec.organization_rec.party_rec.attribute11 := p1_a166;
4862     ddp_bank_rec.organization_rec.party_rec.attribute12 := p1_a167;
4863     ddp_bank_rec.organization_rec.party_rec.attribute13 := p1_a168;
4864     ddp_bank_rec.organization_rec.party_rec.attribute14 := p1_a169;
4865     ddp_bank_rec.organization_rec.party_rec.attribute15 := p1_a170;
4866     ddp_bank_rec.organization_rec.party_rec.attribute16 := p1_a171;
4870     ddp_bank_rec.organization_rec.party_rec.attribute20 := p1_a175;
4867     ddp_bank_rec.organization_rec.party_rec.attribute17 := p1_a172;
4868     ddp_bank_rec.organization_rec.party_rec.attribute18 := p1_a173;
4869     ddp_bank_rec.organization_rec.party_rec.attribute19 := p1_a174;
4871     ddp_bank_rec.organization_rec.party_rec.attribute21 := p1_a176;
4872     ddp_bank_rec.organization_rec.party_rec.attribute22 := p1_a177;
4873     ddp_bank_rec.organization_rec.party_rec.attribute23 := p1_a178;
4874     ddp_bank_rec.organization_rec.party_rec.attribute24 := p1_a179;
4875 
4876 
4877 
4878 
4879 
4880     -- here's the delegated call to the old PL/SQL routine
4881     hz_bank_pub.validate_bank(p_init_msg_list,
4882       ddp_bank_rec,
4883       p_mode,
4884       x_return_status,
4885       x_msg_count,
4886       x_msg_data);
4887 
4888     -- copy data back from the local OUT or IN-OUT args, if any
4889 
4890 
4891 
4892 
4893 
4894   end;
4895 
4896   procedure validate_bank_branch_26(p_init_msg_list  VARCHAR2
4897     , p_bank_party_id  NUMBER
4898     , p_mode  VARCHAR2
4899     , x_return_status out nocopy  VARCHAR2
4900     , x_msg_count out nocopy  NUMBER
4901     , x_msg_data out nocopy  VARCHAR2
4902     , p2_a0  VARCHAR2 := null
4903     , p2_a1  VARCHAR2 := null
4904     , p2_a2  VARCHAR2 := null
4905     , p2_a3  VARCHAR2 := null
4906     , p2_a4  VARCHAR2 := null
4907     , p2_a5  VARCHAR2 := null
4908     , p2_a6  VARCHAR2 := null
4909     , p2_a7  DATE := null
4910     , p2_a8  VARCHAR2 := null
4911     , p2_a9  VARCHAR2 := null
4912     , p2_a10  VARCHAR2 := null
4913     , p2_a11  VARCHAR2 := null
4914     , p2_a12  VARCHAR2 := null
4915     , p2_a13  VARCHAR2 := null
4916     , p2_a14  VARCHAR2 := null
4917     , p2_a15  VARCHAR2 := null
4918     , p2_a16  NUMBER := null
4919     , p2_a17  NUMBER := null
4920     , p2_a18  VARCHAR2 := null
4921     , p2_a19  VARCHAR2 := null
4922     , p2_a20  VARCHAR2 := null
4923     , p2_a21  VARCHAR2 := null
4924     , p2_a22  VARCHAR2 := null
4925     , p2_a23  VARCHAR2 := null
4926     , p2_a24  VARCHAR2 := null
4927     , p2_a25  VARCHAR2 := null
4928     , p2_a26  VARCHAR2 := null
4929     , p2_a27  VARCHAR2 := null
4930     , p2_a28  VARCHAR2 := null
4931     , p2_a29  VARCHAR2 := null
4932     , p2_a30  VARCHAR2 := null
4933     , p2_a31  VARCHAR2 := null
4934     , p2_a32  VARCHAR2 := null
4935     , p2_a33  VARCHAR2 := null
4936     , p2_a34  NUMBER := null
4937     , p2_a35  DATE := null
4938     , p2_a36  VARCHAR2 := null
4939     , p2_a37  NUMBER := null
4940     , p2_a38  VARCHAR2 := null
4941     , p2_a39  VARCHAR2 := null
4942     , p2_a40  VARCHAR2 := null
4943     , p2_a41  VARCHAR2 := null
4944     , p2_a42  VARCHAR2 := null
4945     , p2_a43  VARCHAR2 := null
4946     , p2_a44  VARCHAR2 := null
4947     , p2_a45  VARCHAR2 := null
4948     , p2_a46  VARCHAR2 := null
4949     , p2_a47  DATE := null
4950     , p2_a48  DATE := null
4951     , p2_a49  VARCHAR2 := null
4952     , p2_a50  VARCHAR2 := null
4953     , p2_a51  VARCHAR2 := null
4954     , p2_a52  VARCHAR2 := null
4955     , p2_a53  VARCHAR2 := null
4956     , p2_a54  VARCHAR2 := null
4957     , p2_a55  NUMBER := null
4958     , p2_a56  NUMBER := null
4959     , p2_a57  NUMBER := null
4960     , p2_a58  VARCHAR2 := null
4961     , p2_a59  VARCHAR2 := null
4962     , p2_a60  VARCHAR2 := null
4963     , p2_a61  VARCHAR2 := null
4964     , p2_a62  VARCHAR2 := null
4965     , p2_a63  VARCHAR2 := null
4966     , p2_a64  VARCHAR2 := null
4967     , p2_a65  VARCHAR2 := null
4968     , p2_a66  VARCHAR2 := null
4969     , p2_a67  VARCHAR2 := null
4970     , p2_a68  VARCHAR2 := null
4971     , p2_a69  VARCHAR2 := null
4972     , p2_a70  VARCHAR2 := null
4973     , p2_a71  VARCHAR2 := null
4974     , p2_a72  VARCHAR2 := null
4975     , p2_a73  VARCHAR2 := null
4976     , p2_a74  VARCHAR2 := null
4977     , p2_a75  VARCHAR2 := null
4978     , p2_a76  NUMBER := null
4979     , p2_a77  VARCHAR2 := null
4980     , p2_a78  VARCHAR2 := null
4981     , p2_a79  VARCHAR2 := null
4982     , p2_a80  VARCHAR2 := null
4983     , p2_a81  VARCHAR2 := null
4984     , p2_a82  VARCHAR2 := null
4985     , p2_a83  VARCHAR2 := null
4986     , p2_a84  VARCHAR2 := null
4987     , p2_a85  VARCHAR2 := null
4988     , p2_a86  NUMBER := null
4989     , p2_a87  NUMBER := null
4990     , p2_a88  NUMBER := null
4991     , p2_a89  NUMBER := null
4992     , p2_a90  NUMBER := null
4993     , p2_a91  NUMBER := null
4994     , p2_a92  NUMBER := null
4995     , p2_a93  DATE := null
4996     , p2_a94  VARCHAR2 := null
4997     , p2_a95  VARCHAR2 := null
4998     , p2_a96  VARCHAR2 := null
4999     , p2_a97  VARCHAR2 := null
5000     , p2_a98  VARCHAR2 := null
5001     , p2_a99  VARCHAR2 := null
5002     , p2_a100  VARCHAR2 := null
5003     , p2_a101  VARCHAR2 := null
5004     , p2_a102  VARCHAR2 := null
5005     , p2_a103  NUMBER := null
5006     , p2_a104  NUMBER := null
5007     , p2_a105  NUMBER := null
5008     , p2_a106  DATE := null
5009     , p2_a107  VARCHAR2 := null
5010     , p2_a108  VARCHAR2 := null
5011     , p2_a109  VARCHAR2 := null
5012     , p2_a110  VARCHAR2 := null
5013     , p2_a111  VARCHAR2 := null
5014     , p2_a112  VARCHAR2 := null
5015     , p2_a113  VARCHAR2 := null
5019     , p2_a117  VARCHAR2 := null
5016     , p2_a114  VARCHAR2 := null
5017     , p2_a115  VARCHAR2 := null
5018     , p2_a116  NUMBER := null
5020     , p2_a118  NUMBER := null
5021     , p2_a119  VARCHAR2 := null
5022     , p2_a120  VARCHAR2 := null
5023     , p2_a121  VARCHAR2 := null
5024     , p2_a122  VARCHAR2 := null
5025     , p2_a123  VARCHAR2 := null
5026     , p2_a124  VARCHAR2 := null
5027     , p2_a125  VARCHAR2 := null
5028     , p2_a126  VARCHAR2 := null
5029     , p2_a127  VARCHAR2 := null
5030     , p2_a128  VARCHAR2 := null
5031     , p2_a129  VARCHAR2 := null
5032     , p2_a130  VARCHAR2 := null
5033     , p2_a131  VARCHAR2 := null
5034     , p2_a132  VARCHAR2 := null
5035     , p2_a133  VARCHAR2 := null
5036     , p2_a134  VARCHAR2 := null
5037     , p2_a135  VARCHAR2 := null
5038     , p2_a136  VARCHAR2 := null
5039     , p2_a137  VARCHAR2 := null
5040     , p2_a138  VARCHAR2 := null
5041     , p2_a139  VARCHAR2 := null
5042     , p2_a140  VARCHAR2 := null
5043     , p2_a141  VARCHAR2 := null
5044     , p2_a142  VARCHAR2 := null
5045     , p2_a143  NUMBER := null
5046     , p2_a144  VARCHAR2 := null
5047     , p2_a145  VARCHAR2 := null
5048     , p2_a146  VARCHAR2 := null
5049     , p2_a147  NUMBER := null
5050     , p2_a148  VARCHAR2 := null
5051     , p2_a149  VARCHAR2 := null
5052     , p2_a150  VARCHAR2 := null
5053     , p2_a151  VARCHAR2 := null
5054     , p2_a152  VARCHAR2 := null
5055     , p2_a153  VARCHAR2 := null
5056     , p2_a154  VARCHAR2 := null
5057     , p2_a155  VARCHAR2 := null
5058     , p2_a156  VARCHAR2 := null
5059     , p2_a157  VARCHAR2 := null
5060     , p2_a158  VARCHAR2 := null
5061     , p2_a159  VARCHAR2 := null
5062     , p2_a160  VARCHAR2 := null
5063     , p2_a161  VARCHAR2 := null
5064     , p2_a162  VARCHAR2 := null
5065     , p2_a163  VARCHAR2 := null
5066     , p2_a164  VARCHAR2 := null
5067     , p2_a165  VARCHAR2 := null
5068     , p2_a166  VARCHAR2 := null
5069     , p2_a167  VARCHAR2 := null
5070     , p2_a168  VARCHAR2 := null
5071     , p2_a169  VARCHAR2 := null
5072     , p2_a170  VARCHAR2 := null
5073     , p2_a171  VARCHAR2 := null
5074     , p2_a172  VARCHAR2 := null
5075     , p2_a173  VARCHAR2 := null
5076     , p2_a174  VARCHAR2 := null
5077     , p2_a175  VARCHAR2 := null
5078     , p2_a176  VARCHAR2 := null
5079     , p2_a177  VARCHAR2 := null
5080     , p2_a178  VARCHAR2 := null
5081     , p2_a179  VARCHAR2 := null
5082   )
5083   as
5084     ddp_bank_branch_rec hz_bank_pub.bank_rec_type;
5085     ddindx binary_integer; indx binary_integer;
5086   begin
5087 
5088     -- copy data to the local IN or IN-OUT args, if any
5089 
5090 
5091     ddp_bank_branch_rec.bank_or_branch_number := p2_a0;
5092     ddp_bank_branch_rec.bank_code := p2_a1;
5093     ddp_bank_branch_rec.branch_code := p2_a2;
5094     ddp_bank_branch_rec.institution_type := p2_a3;
5095     ddp_bank_branch_rec.branch_type := p2_a4;
5096     ddp_bank_branch_rec.country := p2_a5;
5097     ddp_bank_branch_rec.rfc_code := p2_a6;
5098     ddp_bank_branch_rec.inactive_date := rosetta_g_miss_date_in_map(p2_a7);
5099     ddp_bank_branch_rec.organization_rec.organization_name := p2_a8;
5100     ddp_bank_branch_rec.organization_rec.duns_number_c := p2_a9;
5101     ddp_bank_branch_rec.organization_rec.enquiry_duns := p2_a10;
5102     ddp_bank_branch_rec.organization_rec.ceo_name := p2_a11;
5103     ddp_bank_branch_rec.organization_rec.ceo_title := p2_a12;
5104     ddp_bank_branch_rec.organization_rec.principal_name := p2_a13;
5105     ddp_bank_branch_rec.organization_rec.principal_title := p2_a14;
5106     ddp_bank_branch_rec.organization_rec.legal_status := p2_a15;
5107     ddp_bank_branch_rec.organization_rec.control_yr := rosetta_g_miss_num_map(p2_a16);
5108     ddp_bank_branch_rec.organization_rec.employees_total := rosetta_g_miss_num_map(p2_a17);
5109     ddp_bank_branch_rec.organization_rec.hq_branch_ind := p2_a18;
5110     ddp_bank_branch_rec.organization_rec.branch_flag := p2_a19;
5111     ddp_bank_branch_rec.organization_rec.oob_ind := p2_a20;
5112     ddp_bank_branch_rec.organization_rec.line_of_business := p2_a21;
5113     ddp_bank_branch_rec.organization_rec.cong_dist_code := p2_a22;
5114     ddp_bank_branch_rec.organization_rec.sic_code := p2_a23;
5115     ddp_bank_branch_rec.organization_rec.import_ind := p2_a24;
5116     ddp_bank_branch_rec.organization_rec.export_ind := p2_a25;
5117     ddp_bank_branch_rec.organization_rec.labor_surplus_ind := p2_a26;
5118     ddp_bank_branch_rec.organization_rec.debarment_ind := p2_a27;
5119     ddp_bank_branch_rec.organization_rec.minority_owned_ind := p2_a28;
5120     ddp_bank_branch_rec.organization_rec.minority_owned_type := p2_a29;
5121     ddp_bank_branch_rec.organization_rec.woman_owned_ind := p2_a30;
5122     ddp_bank_branch_rec.organization_rec.disadv_8a_ind := p2_a31;
5123     ddp_bank_branch_rec.organization_rec.small_bus_ind := p2_a32;
5124     ddp_bank_branch_rec.organization_rec.rent_own_ind := p2_a33;
5125     ddp_bank_branch_rec.organization_rec.debarments_count := rosetta_g_miss_num_map(p2_a34);
5126     ddp_bank_branch_rec.organization_rec.debarments_date := rosetta_g_miss_date_in_map(p2_a35);
5127     ddp_bank_branch_rec.organization_rec.failure_score := p2_a36;
5131     ddp_bank_branch_rec.organization_rec.global_failure_score := p2_a40;
5128     ddp_bank_branch_rec.organization_rec.failure_score_natnl_percentile := rosetta_g_miss_num_map(p2_a37);
5129     ddp_bank_branch_rec.organization_rec.failure_score_override_code := p2_a38;
5130     ddp_bank_branch_rec.organization_rec.failure_score_commentary := p2_a39;
5132     ddp_bank_branch_rec.organization_rec.db_rating := p2_a41;
5133     ddp_bank_branch_rec.organization_rec.credit_score := p2_a42;
5134     ddp_bank_branch_rec.organization_rec.credit_score_commentary := p2_a43;
5135     ddp_bank_branch_rec.organization_rec.paydex_score := p2_a44;
5136     ddp_bank_branch_rec.organization_rec.paydex_three_months_ago := p2_a45;
5137     ddp_bank_branch_rec.organization_rec.paydex_norm := p2_a46;
5138     ddp_bank_branch_rec.organization_rec.best_time_contact_begin := rosetta_g_miss_date_in_map(p2_a47);
5139     ddp_bank_branch_rec.organization_rec.best_time_contact_end := rosetta_g_miss_date_in_map(p2_a48);
5140     ddp_bank_branch_rec.organization_rec.organization_name_phonetic := p2_a49;
5141     ddp_bank_branch_rec.organization_rec.tax_reference := p2_a50;
5142     ddp_bank_branch_rec.organization_rec.gsa_indicator_flag := p2_a51;
5143     ddp_bank_branch_rec.organization_rec.jgzz_fiscal_code := p2_a52;
5144     ddp_bank_branch_rec.organization_rec.analysis_fy := p2_a53;
5145     ddp_bank_branch_rec.organization_rec.fiscal_yearend_month := p2_a54;
5146     ddp_bank_branch_rec.organization_rec.curr_fy_potential_revenue := rosetta_g_miss_num_map(p2_a55);
5147     ddp_bank_branch_rec.organization_rec.next_fy_potential_revenue := rosetta_g_miss_num_map(p2_a56);
5148     ddp_bank_branch_rec.organization_rec.year_established := rosetta_g_miss_num_map(p2_a57);
5149     ddp_bank_branch_rec.organization_rec.mission_statement := p2_a58;
5150     ddp_bank_branch_rec.organization_rec.organization_type := p2_a59;
5151     ddp_bank_branch_rec.organization_rec.business_scope := p2_a60;
5152     ddp_bank_branch_rec.organization_rec.corporation_class := p2_a61;
5153     ddp_bank_branch_rec.organization_rec.known_as := p2_a62;
5154     ddp_bank_branch_rec.organization_rec.known_as2 := p2_a63;
5155     ddp_bank_branch_rec.organization_rec.known_as3 := p2_a64;
5156     ddp_bank_branch_rec.organization_rec.known_as4 := p2_a65;
5157     ddp_bank_branch_rec.organization_rec.known_as5 := p2_a66;
5158     ddp_bank_branch_rec.organization_rec.local_bus_iden_type := p2_a67;
5159     ddp_bank_branch_rec.organization_rec.local_bus_identifier := p2_a68;
5160     ddp_bank_branch_rec.organization_rec.pref_functional_currency := p2_a69;
5161     ddp_bank_branch_rec.organization_rec.registration_type := p2_a70;
5162     ddp_bank_branch_rec.organization_rec.total_employees_text := p2_a71;
5163     ddp_bank_branch_rec.organization_rec.total_employees_ind := p2_a72;
5164     ddp_bank_branch_rec.organization_rec.total_emp_est_ind := p2_a73;
5165     ddp_bank_branch_rec.organization_rec.total_emp_min_ind := p2_a74;
5166     ddp_bank_branch_rec.organization_rec.parent_sub_ind := p2_a75;
5167     ddp_bank_branch_rec.organization_rec.incorp_year := rosetta_g_miss_num_map(p2_a76);
5168     ddp_bank_branch_rec.organization_rec.sic_code_type := p2_a77;
5169     ddp_bank_branch_rec.organization_rec.public_private_ownership_flag := p2_a78;
5170     ddp_bank_branch_rec.organization_rec.internal_flag := p2_a79;
5171     ddp_bank_branch_rec.organization_rec.local_activity_code_type := p2_a80;
5172     ddp_bank_branch_rec.organization_rec.local_activity_code := p2_a81;
5173     ddp_bank_branch_rec.organization_rec.emp_at_primary_adr := p2_a82;
5174     ddp_bank_branch_rec.organization_rec.emp_at_primary_adr_text := p2_a83;
5175     ddp_bank_branch_rec.organization_rec.emp_at_primary_adr_est_ind := p2_a84;
5176     ddp_bank_branch_rec.organization_rec.emp_at_primary_adr_min_ind := p2_a85;
5177     ddp_bank_branch_rec.organization_rec.high_credit := rosetta_g_miss_num_map(p2_a86);
5178     ddp_bank_branch_rec.organization_rec.avg_high_credit := rosetta_g_miss_num_map(p2_a87);
5179     ddp_bank_branch_rec.organization_rec.total_payments := rosetta_g_miss_num_map(p2_a88);
5180     ddp_bank_branch_rec.organization_rec.credit_score_class := rosetta_g_miss_num_map(p2_a89);
5181     ddp_bank_branch_rec.organization_rec.credit_score_natl_percentile := rosetta_g_miss_num_map(p2_a90);
5182     ddp_bank_branch_rec.organization_rec.credit_score_incd_default := rosetta_g_miss_num_map(p2_a91);
5183     ddp_bank_branch_rec.organization_rec.credit_score_age := rosetta_g_miss_num_map(p2_a92);
5184     ddp_bank_branch_rec.organization_rec.credit_score_date := rosetta_g_miss_date_in_map(p2_a93);
5185     ddp_bank_branch_rec.organization_rec.credit_score_commentary2 := p2_a94;
5186     ddp_bank_branch_rec.organization_rec.credit_score_commentary3 := p2_a95;
5187     ddp_bank_branch_rec.organization_rec.credit_score_commentary4 := p2_a96;
5188     ddp_bank_branch_rec.organization_rec.credit_score_commentary5 := p2_a97;
5189     ddp_bank_branch_rec.organization_rec.credit_score_commentary6 := p2_a98;
5190     ddp_bank_branch_rec.organization_rec.credit_score_commentary7 := p2_a99;
5191     ddp_bank_branch_rec.organization_rec.credit_score_commentary8 := p2_a100;
5192     ddp_bank_branch_rec.organization_rec.credit_score_commentary9 := p2_a101;
5193     ddp_bank_branch_rec.organization_rec.credit_score_commentary10 := p2_a102;
5194     ddp_bank_branch_rec.organization_rec.failure_score_class := rosetta_g_miss_num_map(p2_a103);
5195     ddp_bank_branch_rec.organization_rec.failure_score_incd_default := rosetta_g_miss_num_map(p2_a104);
5196     ddp_bank_branch_rec.organization_rec.failure_score_age := rosetta_g_miss_num_map(p2_a105);
5197     ddp_bank_branch_rec.organization_rec.failure_score_date := rosetta_g_miss_date_in_map(p2_a106);
5198     ddp_bank_branch_rec.organization_rec.failure_score_commentary2 := p2_a107;
5199     ddp_bank_branch_rec.organization_rec.failure_score_commentary3 := p2_a108;
5200     ddp_bank_branch_rec.organization_rec.failure_score_commentary4 := p2_a109;
5201     ddp_bank_branch_rec.organization_rec.failure_score_commentary5 := p2_a110;
5202     ddp_bank_branch_rec.organization_rec.failure_score_commentary6 := p2_a111;
5203     ddp_bank_branch_rec.organization_rec.failure_score_commentary7 := p2_a112;
5204     ddp_bank_branch_rec.organization_rec.failure_score_commentary8 := p2_a113;
5208     ddp_bank_branch_rec.organization_rec.maximum_credit_currency_code := p2_a117;
5205     ddp_bank_branch_rec.organization_rec.failure_score_commentary9 := p2_a114;
5206     ddp_bank_branch_rec.organization_rec.failure_score_commentary10 := p2_a115;
5207     ddp_bank_branch_rec.organization_rec.maximum_credit_recommendation := rosetta_g_miss_num_map(p2_a116);
5209     ddp_bank_branch_rec.organization_rec.displayed_duns_party_id := rosetta_g_miss_num_map(p2_a118);
5210     ddp_bank_branch_rec.organization_rec.content_source_type := p2_a119;
5211     ddp_bank_branch_rec.organization_rec.content_source_number := p2_a120;
5212     ddp_bank_branch_rec.organization_rec.attribute_category := p2_a121;
5213     ddp_bank_branch_rec.organization_rec.attribute1 := p2_a122;
5214     ddp_bank_branch_rec.organization_rec.attribute2 := p2_a123;
5215     ddp_bank_branch_rec.organization_rec.attribute3 := p2_a124;
5216     ddp_bank_branch_rec.organization_rec.attribute4 := p2_a125;
5217     ddp_bank_branch_rec.organization_rec.attribute5 := p2_a126;
5218     ddp_bank_branch_rec.organization_rec.attribute6 := p2_a127;
5219     ddp_bank_branch_rec.organization_rec.attribute7 := p2_a128;
5220     ddp_bank_branch_rec.organization_rec.attribute8 := p2_a129;
5221     ddp_bank_branch_rec.organization_rec.attribute9 := p2_a130;
5222     ddp_bank_branch_rec.organization_rec.attribute10 := p2_a131;
5223     ddp_bank_branch_rec.organization_rec.attribute11 := p2_a132;
5224     ddp_bank_branch_rec.organization_rec.attribute12 := p2_a133;
5225     ddp_bank_branch_rec.organization_rec.attribute13 := p2_a134;
5226     ddp_bank_branch_rec.organization_rec.attribute14 := p2_a135;
5227     ddp_bank_branch_rec.organization_rec.attribute15 := p2_a136;
5228     ddp_bank_branch_rec.organization_rec.attribute16 := p2_a137;
5229     ddp_bank_branch_rec.organization_rec.attribute17 := p2_a138;
5230     ddp_bank_branch_rec.organization_rec.attribute18 := p2_a139;
5231     ddp_bank_branch_rec.organization_rec.attribute19 := p2_a140;
5232     ddp_bank_branch_rec.organization_rec.attribute20 := p2_a141;
5233     ddp_bank_branch_rec.organization_rec.created_by_module := p2_a142;
5234     ddp_bank_branch_rec.organization_rec.application_id := rosetta_g_miss_num_map(p2_a143);
5235     ddp_bank_branch_rec.organization_rec.do_not_confuse_with := p2_a144;
5236     ddp_bank_branch_rec.organization_rec.actual_content_source := p2_a145;
5237     ddp_bank_branch_rec.organization_rec.home_country := p2_a146;
5238     ddp_bank_branch_rec.organization_rec.party_rec.party_id := rosetta_g_miss_num_map(p2_a147);
5239     ddp_bank_branch_rec.organization_rec.party_rec.party_number := p2_a148;
5240     ddp_bank_branch_rec.organization_rec.party_rec.validated_flag := p2_a149;
5241     ddp_bank_branch_rec.organization_rec.party_rec.orig_system_reference := p2_a150;
5242     ddp_bank_branch_rec.organization_rec.party_rec.orig_system := p2_a151;
5243     ddp_bank_branch_rec.organization_rec.party_rec.status := p2_a152;
5244     ddp_bank_branch_rec.organization_rec.party_rec.category_code := p2_a153;
5245     ddp_bank_branch_rec.organization_rec.party_rec.salutation := p2_a154;
5246     ddp_bank_branch_rec.organization_rec.party_rec.attribute_category := p2_a155;
5247     ddp_bank_branch_rec.organization_rec.party_rec.attribute1 := p2_a156;
5248     ddp_bank_branch_rec.organization_rec.party_rec.attribute2 := p2_a157;
5249     ddp_bank_branch_rec.organization_rec.party_rec.attribute3 := p2_a158;
5250     ddp_bank_branch_rec.organization_rec.party_rec.attribute4 := p2_a159;
5251     ddp_bank_branch_rec.organization_rec.party_rec.attribute5 := p2_a160;
5252     ddp_bank_branch_rec.organization_rec.party_rec.attribute6 := p2_a161;
5253     ddp_bank_branch_rec.organization_rec.party_rec.attribute7 := p2_a162;
5254     ddp_bank_branch_rec.organization_rec.party_rec.attribute8 := p2_a163;
5255     ddp_bank_branch_rec.organization_rec.party_rec.attribute9 := p2_a164;
5256     ddp_bank_branch_rec.organization_rec.party_rec.attribute10 := p2_a165;
5257     ddp_bank_branch_rec.organization_rec.party_rec.attribute11 := p2_a166;
5258     ddp_bank_branch_rec.organization_rec.party_rec.attribute12 := p2_a167;
5259     ddp_bank_branch_rec.organization_rec.party_rec.attribute13 := p2_a168;
5260     ddp_bank_branch_rec.organization_rec.party_rec.attribute14 := p2_a169;
5261     ddp_bank_branch_rec.organization_rec.party_rec.attribute15 := p2_a170;
5262     ddp_bank_branch_rec.organization_rec.party_rec.attribute16 := p2_a171;
5263     ddp_bank_branch_rec.organization_rec.party_rec.attribute17 := p2_a172;
5264     ddp_bank_branch_rec.organization_rec.party_rec.attribute18 := p2_a173;
5265     ddp_bank_branch_rec.organization_rec.party_rec.attribute19 := p2_a174;
5266     ddp_bank_branch_rec.organization_rec.party_rec.attribute20 := p2_a175;
5267     ddp_bank_branch_rec.organization_rec.party_rec.attribute21 := p2_a176;
5268     ddp_bank_branch_rec.organization_rec.party_rec.attribute22 := p2_a177;
5269     ddp_bank_branch_rec.organization_rec.party_rec.attribute23 := p2_a178;
5270     ddp_bank_branch_rec.organization_rec.party_rec.attribute24 := p2_a179;
5271 
5272 
5273 
5274 
5275 
5276     -- here's the delegated call to the old PL/SQL routine
5277     hz_bank_pub.validate_bank_branch(p_init_msg_list,
5278       p_bank_party_id,
5279       ddp_bank_branch_rec,
5280       p_mode,
5281       x_return_status,
5282       x_msg_count,
5283       x_msg_data);
5284 
5285     -- copy data back from the local OUT or IN-OUT args, if any
5286 
5287 
5288 
5289 
5290 
5291 
5292   end;
5293 
5294 end hz_bank_pub_jw;