[Home] [Help]
PACKAGE BODY: APPS.HZ_CUST_ACCOUNT_ROLE_V2PUB_JW
Source
1 package body hz_cust_account_role_v2pub_jw as
2 /* $Header: ARH2CRJB.pls 120.3 2005/06/18 04:27:50 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_cust_account_role_1(p_init_msg_list VARCHAR2
23 , x_cust_account_role_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := null
28 , p1_a1 NUMBER := null
29 , p1_a2 NUMBER := null
30 , p1_a3 NUMBER := null
31 , p1_a4 VARCHAR2 := null
32 , p1_a5 VARCHAR2 := null
33 , p1_a6 VARCHAR2 := null
34 , p1_a7 VARCHAR2 := null
35 , p1_a8 VARCHAR2 := null
36 , p1_a9 VARCHAR2 := null
37 , p1_a10 VARCHAR2 := null
38 , p1_a11 VARCHAR2 := null
39 , p1_a12 VARCHAR2 := null
40 , p1_a13 VARCHAR2 := null
41 , p1_a14 VARCHAR2 := null
42 , p1_a15 VARCHAR2 := null
43 , p1_a16 VARCHAR2 := null
44 , p1_a17 VARCHAR2 := null
45 , p1_a18 VARCHAR2 := null
46 , p1_a19 VARCHAR2 := null
47 , p1_a20 VARCHAR2 := null
48 , p1_a21 VARCHAR2 := null
49 , p1_a22 VARCHAR2 := null
50 , p1_a23 VARCHAR2 := null
51 , p1_a24 VARCHAR2 := null
52 , p1_a25 VARCHAR2 := null
53 , p1_a26 VARCHAR2 := null
54 , p1_a27 VARCHAR2 := null
55 , p1_a28 VARCHAR2 := null
56 , p1_a29 VARCHAR2 := null
57 , p1_a30 VARCHAR2 := null
58 , p1_a31 VARCHAR2 := null
59 , p1_a32 VARCHAR2 := null
60 , p1_a33 VARCHAR2 := null
61 , p1_a34 VARCHAR2 := null
62 , p1_a35 VARCHAR2 := null
63 , p1_a36 VARCHAR2 := null
64 , p1_a37 NUMBER := null
65 )
66 as
67 ddp_cust_account_role_rec hz_cust_account_role_v2pub.cust_account_role_rec_type;
68 ddindx binary_integer; indx binary_integer;
69 begin
70
71 -- copy data to the local IN or IN-OUT args, if any
72
73 ddp_cust_account_role_rec.cust_account_role_id := rosetta_g_miss_num_map(p1_a0);
74 ddp_cust_account_role_rec.party_id := rosetta_g_miss_num_map(p1_a1);
75 ddp_cust_account_role_rec.cust_account_id := rosetta_g_miss_num_map(p1_a2);
76 ddp_cust_account_role_rec.cust_acct_site_id := rosetta_g_miss_num_map(p1_a3);
77 ddp_cust_account_role_rec.primary_flag := p1_a4;
78 ddp_cust_account_role_rec.role_type := p1_a5;
79 ddp_cust_account_role_rec.source_code := p1_a6;
80 ddp_cust_account_role_rec.attribute_category := p1_a7;
81 ddp_cust_account_role_rec.attribute1 := p1_a8;
82 ddp_cust_account_role_rec.attribute2 := p1_a9;
83 ddp_cust_account_role_rec.attribute3 := p1_a10;
84 ddp_cust_account_role_rec.attribute4 := p1_a11;
85 ddp_cust_account_role_rec.attribute5 := p1_a12;
86 ddp_cust_account_role_rec.attribute6 := p1_a13;
87 ddp_cust_account_role_rec.attribute7 := p1_a14;
88 ddp_cust_account_role_rec.attribute8 := p1_a15;
89 ddp_cust_account_role_rec.attribute9 := p1_a16;
90 ddp_cust_account_role_rec.attribute10 := p1_a17;
91 ddp_cust_account_role_rec.attribute11 := p1_a18;
92 ddp_cust_account_role_rec.attribute12 := p1_a19;
93 ddp_cust_account_role_rec.attribute13 := p1_a20;
94 ddp_cust_account_role_rec.attribute14 := p1_a21;
95 ddp_cust_account_role_rec.attribute15 := p1_a22;
96 ddp_cust_account_role_rec.attribute16 := p1_a23;
97 ddp_cust_account_role_rec.attribute17 := p1_a24;
98 ddp_cust_account_role_rec.attribute18 := p1_a25;
99 ddp_cust_account_role_rec.attribute19 := p1_a26;
100 ddp_cust_account_role_rec.attribute20 := p1_a27;
101 ddp_cust_account_role_rec.attribute21 := p1_a28;
102 ddp_cust_account_role_rec.attribute22 := p1_a29;
103 ddp_cust_account_role_rec.attribute23 := p1_a30;
104 ddp_cust_account_role_rec.attribute24 := p1_a31;
105 ddp_cust_account_role_rec.orig_system_reference := p1_a32;
106 ddp_cust_account_role_rec.orig_system := p1_a33;
107 ddp_cust_account_role_rec.attribute25 := p1_a34;
108 ddp_cust_account_role_rec.status := p1_a35;
109 ddp_cust_account_role_rec.created_by_module := p1_a36;
110 ddp_cust_account_role_rec.application_id := rosetta_g_miss_num_map(p1_a37);
111
112
113
114
115
116 -- here's the delegated call to the old PL/SQL routine
117 hz_cust_account_role_v2pub.create_cust_account_role(p_init_msg_list,
118 ddp_cust_account_role_rec,
119 x_cust_account_role_id,
120 x_return_status,
121 x_msg_count,
122 x_msg_data);
123
124 -- copy data back from the local OUT or IN-OUT args, if any
125
126
127
128
129
130 end;
131
132 procedure update_cust_account_role_2(p_init_msg_list VARCHAR2
133 , p_object_version_number in out nocopy NUMBER
134 , x_return_status out nocopy VARCHAR2
135 , x_msg_count out nocopy NUMBER
136 , x_msg_data out nocopy VARCHAR2
137 , p1_a0 NUMBER := null
138 , p1_a1 NUMBER := null
139 , p1_a2 NUMBER := null
140 , p1_a3 NUMBER := null
141 , p1_a4 VARCHAR2 := null
142 , p1_a5 VARCHAR2 := null
143 , p1_a6 VARCHAR2 := null
144 , p1_a7 VARCHAR2 := null
145 , p1_a8 VARCHAR2 := null
146 , p1_a9 VARCHAR2 := null
147 , p1_a10 VARCHAR2 := null
148 , p1_a11 VARCHAR2 := null
149 , p1_a12 VARCHAR2 := null
150 , p1_a13 VARCHAR2 := null
151 , p1_a14 VARCHAR2 := null
152 , p1_a15 VARCHAR2 := null
153 , p1_a16 VARCHAR2 := null
154 , p1_a17 VARCHAR2 := null
155 , p1_a18 VARCHAR2 := null
156 , p1_a19 VARCHAR2 := null
157 , p1_a20 VARCHAR2 := null
158 , p1_a21 VARCHAR2 := null
159 , p1_a22 VARCHAR2 := null
160 , p1_a23 VARCHAR2 := null
161 , p1_a24 VARCHAR2 := null
162 , p1_a25 VARCHAR2 := null
163 , p1_a26 VARCHAR2 := null
164 , p1_a27 VARCHAR2 := null
165 , p1_a28 VARCHAR2 := null
166 , p1_a29 VARCHAR2 := null
167 , p1_a30 VARCHAR2 := null
168 , p1_a31 VARCHAR2 := null
169 , p1_a32 VARCHAR2 := null
170 , p1_a33 VARCHAR2 := null
171 , p1_a34 VARCHAR2 := null
172 , p1_a35 VARCHAR2 := null
173 , p1_a36 VARCHAR2 := null
174 , p1_a37 NUMBER := null
175 )
176 as
177 ddp_cust_account_role_rec hz_cust_account_role_v2pub.cust_account_role_rec_type;
178 ddindx binary_integer; indx binary_integer;
179 begin
180
181 -- copy data to the local IN or IN-OUT args, if any
182
183 ddp_cust_account_role_rec.cust_account_role_id := rosetta_g_miss_num_map(p1_a0);
184 ddp_cust_account_role_rec.party_id := rosetta_g_miss_num_map(p1_a1);
185 ddp_cust_account_role_rec.cust_account_id := rosetta_g_miss_num_map(p1_a2);
186 ddp_cust_account_role_rec.cust_acct_site_id := rosetta_g_miss_num_map(p1_a3);
187 ddp_cust_account_role_rec.primary_flag := p1_a4;
188 ddp_cust_account_role_rec.role_type := p1_a5;
189 ddp_cust_account_role_rec.source_code := p1_a6;
190 ddp_cust_account_role_rec.attribute_category := p1_a7;
191 ddp_cust_account_role_rec.attribute1 := p1_a8;
192 ddp_cust_account_role_rec.attribute2 := p1_a9;
193 ddp_cust_account_role_rec.attribute3 := p1_a10;
194 ddp_cust_account_role_rec.attribute4 := p1_a11;
195 ddp_cust_account_role_rec.attribute5 := p1_a12;
196 ddp_cust_account_role_rec.attribute6 := p1_a13;
197 ddp_cust_account_role_rec.attribute7 := p1_a14;
198 ddp_cust_account_role_rec.attribute8 := p1_a15;
199 ddp_cust_account_role_rec.attribute9 := p1_a16;
200 ddp_cust_account_role_rec.attribute10 := p1_a17;
201 ddp_cust_account_role_rec.attribute11 := p1_a18;
202 ddp_cust_account_role_rec.attribute12 := p1_a19;
203 ddp_cust_account_role_rec.attribute13 := p1_a20;
204 ddp_cust_account_role_rec.attribute14 := p1_a21;
205 ddp_cust_account_role_rec.attribute15 := p1_a22;
206 ddp_cust_account_role_rec.attribute16 := p1_a23;
207 ddp_cust_account_role_rec.attribute17 := p1_a24;
208 ddp_cust_account_role_rec.attribute18 := p1_a25;
209 ddp_cust_account_role_rec.attribute19 := p1_a26;
210 ddp_cust_account_role_rec.attribute20 := p1_a27;
211 ddp_cust_account_role_rec.attribute21 := p1_a28;
212 ddp_cust_account_role_rec.attribute22 := p1_a29;
213 ddp_cust_account_role_rec.attribute23 := p1_a30;
214 ddp_cust_account_role_rec.attribute24 := p1_a31;
215 ddp_cust_account_role_rec.orig_system_reference := p1_a32;
216 ddp_cust_account_role_rec.orig_system := p1_a33;
217 ddp_cust_account_role_rec.attribute25 := p1_a34;
218 ddp_cust_account_role_rec.status := p1_a35;
219 ddp_cust_account_role_rec.created_by_module := p1_a36;
220 ddp_cust_account_role_rec.application_id := rosetta_g_miss_num_map(p1_a37);
221
222
223
224
225
226 -- here's the delegated call to the old PL/SQL routine
227 hz_cust_account_role_v2pub.update_cust_account_role(p_init_msg_list,
228 ddp_cust_account_role_rec,
229 p_object_version_number,
230 x_return_status,
231 x_msg_count,
232 x_msg_data);
233
234 -- copy data back from the local OUT or IN-OUT args, if any
235
236
237
238
239
240 end;
241
242 procedure get_cust_account_role_rec_3(p_init_msg_list VARCHAR2
243 , p_cust_account_role_id NUMBER
244 , p2_a0 out nocopy NUMBER
245 , p2_a1 out nocopy NUMBER
246 , p2_a2 out nocopy NUMBER
247 , p2_a3 out nocopy NUMBER
248 , p2_a4 out nocopy VARCHAR2
249 , p2_a5 out nocopy VARCHAR2
250 , p2_a6 out nocopy VARCHAR2
251 , p2_a7 out nocopy VARCHAR2
252 , p2_a8 out nocopy VARCHAR2
253 , p2_a9 out nocopy VARCHAR2
254 , p2_a10 out nocopy VARCHAR2
255 , p2_a11 out nocopy VARCHAR2
256 , p2_a12 out nocopy VARCHAR2
257 , p2_a13 out nocopy VARCHAR2
258 , p2_a14 out nocopy VARCHAR2
259 , p2_a15 out nocopy VARCHAR2
260 , p2_a16 out nocopy VARCHAR2
261 , p2_a17 out nocopy VARCHAR2
262 , p2_a18 out nocopy VARCHAR2
263 , p2_a19 out nocopy VARCHAR2
264 , p2_a20 out nocopy VARCHAR2
265 , p2_a21 out nocopy VARCHAR2
266 , p2_a22 out nocopy VARCHAR2
267 , p2_a23 out nocopy VARCHAR2
268 , p2_a24 out nocopy VARCHAR2
269 , p2_a25 out nocopy VARCHAR2
270 , p2_a26 out nocopy VARCHAR2
271 , p2_a27 out nocopy VARCHAR2
272 , p2_a28 out nocopy VARCHAR2
273 , p2_a29 out nocopy VARCHAR2
274 , p2_a30 out nocopy VARCHAR2
275 , p2_a31 out nocopy VARCHAR2
276 , p2_a32 out nocopy VARCHAR2
277 , p2_a33 out nocopy VARCHAR2
278 , p2_a34 out nocopy VARCHAR2
279 , p2_a35 out nocopy VARCHAR2
280 , p2_a36 out nocopy VARCHAR2
281 , p2_a37 out nocopy NUMBER
282 , x_return_status out nocopy VARCHAR2
283 , x_msg_count out nocopy NUMBER
284 , x_msg_data out nocopy VARCHAR2
285 )
286 as
287 ddx_cust_account_role_rec hz_cust_account_role_v2pub.cust_account_role_rec_type;
288 ddindx binary_integer; indx binary_integer;
289 begin
290
291 -- copy data to the local IN or IN-OUT args, if any
292
293
294
295
296
297
298 -- here's the delegated call to the old PL/SQL routine
299 hz_cust_account_role_v2pub.get_cust_account_role_rec(p_init_msg_list,
300 p_cust_account_role_id,
301 ddx_cust_account_role_rec,
302 x_return_status,
303 x_msg_count,
304 x_msg_data);
305
306 -- copy data back from the local OUT or IN-OUT args, if any
307
308
309 p2_a0 := rosetta_g_miss_num_map(ddx_cust_account_role_rec.cust_account_role_id);
310 p2_a1 := rosetta_g_miss_num_map(ddx_cust_account_role_rec.party_id);
311 p2_a2 := rosetta_g_miss_num_map(ddx_cust_account_role_rec.cust_account_id);
312 p2_a3 := rosetta_g_miss_num_map(ddx_cust_account_role_rec.cust_acct_site_id);
313 p2_a4 := ddx_cust_account_role_rec.primary_flag;
314 p2_a5 := ddx_cust_account_role_rec.role_type;
315 p2_a6 := ddx_cust_account_role_rec.source_code;
316 p2_a7 := ddx_cust_account_role_rec.attribute_category;
317 p2_a8 := ddx_cust_account_role_rec.attribute1;
318 p2_a9 := ddx_cust_account_role_rec.attribute2;
319 p2_a10 := ddx_cust_account_role_rec.attribute3;
320 p2_a11 := ddx_cust_account_role_rec.attribute4;
321 p2_a12 := ddx_cust_account_role_rec.attribute5;
322 p2_a13 := ddx_cust_account_role_rec.attribute6;
323 p2_a14 := ddx_cust_account_role_rec.attribute7;
324 p2_a15 := ddx_cust_account_role_rec.attribute8;
325 p2_a16 := ddx_cust_account_role_rec.attribute9;
326 p2_a17 := ddx_cust_account_role_rec.attribute10;
327 p2_a18 := ddx_cust_account_role_rec.attribute11;
328 p2_a19 := ddx_cust_account_role_rec.attribute12;
329 p2_a20 := ddx_cust_account_role_rec.attribute13;
330 p2_a21 := ddx_cust_account_role_rec.attribute14;
331 p2_a22 := ddx_cust_account_role_rec.attribute15;
332 p2_a23 := ddx_cust_account_role_rec.attribute16;
333 p2_a24 := ddx_cust_account_role_rec.attribute17;
334 p2_a25 := ddx_cust_account_role_rec.attribute18;
335 p2_a26 := ddx_cust_account_role_rec.attribute19;
336 p2_a27 := ddx_cust_account_role_rec.attribute20;
337 p2_a28 := ddx_cust_account_role_rec.attribute21;
338 p2_a29 := ddx_cust_account_role_rec.attribute22;
339 p2_a30 := ddx_cust_account_role_rec.attribute23;
340 p2_a31 := ddx_cust_account_role_rec.attribute24;
341 p2_a32 := ddx_cust_account_role_rec.orig_system_reference;
342 p2_a33 := ddx_cust_account_role_rec.orig_system;
343 p2_a34 := ddx_cust_account_role_rec.attribute25;
344 p2_a35 := ddx_cust_account_role_rec.status;
345 p2_a36 := ddx_cust_account_role_rec.created_by_module;
346 p2_a37 := rosetta_g_miss_num_map(ddx_cust_account_role_rec.application_id);
347
348
349
350 end;
351
352 procedure create_role_responsibility_4(p_init_msg_list VARCHAR2
353 , x_responsibility_id out nocopy NUMBER
354 , x_return_status out nocopy VARCHAR2
355 , x_msg_count out nocopy NUMBER
356 , x_msg_data out nocopy VARCHAR2
357 , p1_a0 NUMBER := null
358 , p1_a1 NUMBER := null
359 , p1_a2 VARCHAR2 := null
360 , p1_a3 VARCHAR2 := null
361 , p1_a4 VARCHAR2 := null
362 , p1_a5 VARCHAR2 := null
363 , p1_a6 VARCHAR2 := null
364 , p1_a7 VARCHAR2 := null
365 , p1_a8 VARCHAR2 := null
366 , p1_a9 VARCHAR2 := null
367 , p1_a10 VARCHAR2 := null
368 , p1_a11 VARCHAR2 := null
369 , p1_a12 VARCHAR2 := null
370 , p1_a13 VARCHAR2 := null
371 , p1_a14 VARCHAR2 := null
372 , p1_a15 VARCHAR2 := null
373 , p1_a16 VARCHAR2 := null
374 , p1_a17 VARCHAR2 := null
375 , p1_a18 VARCHAR2 := null
376 , p1_a19 VARCHAR2 := null
377 , p1_a20 VARCHAR2 := null
378 , p1_a21 VARCHAR2 := null
379 , p1_a22 NUMBER := null
380 )
381 as
382 ddp_role_responsibility_rec hz_cust_account_role_v2pub.role_responsibility_rec_type;
383 ddindx binary_integer; indx binary_integer;
384 begin
385
386 -- copy data to the local IN or IN-OUT args, if any
387
388 ddp_role_responsibility_rec.responsibility_id := rosetta_g_miss_num_map(p1_a0);
389 ddp_role_responsibility_rec.cust_account_role_id := rosetta_g_miss_num_map(p1_a1);
390 ddp_role_responsibility_rec.responsibility_type := p1_a2;
391 ddp_role_responsibility_rec.primary_flag := p1_a3;
392 ddp_role_responsibility_rec.attribute_category := p1_a4;
393 ddp_role_responsibility_rec.attribute1 := p1_a5;
394 ddp_role_responsibility_rec.attribute2 := p1_a6;
395 ddp_role_responsibility_rec.attribute3 := p1_a7;
396 ddp_role_responsibility_rec.attribute4 := p1_a8;
397 ddp_role_responsibility_rec.attribute5 := p1_a9;
398 ddp_role_responsibility_rec.attribute6 := p1_a10;
399 ddp_role_responsibility_rec.attribute7 := p1_a11;
400 ddp_role_responsibility_rec.attribute8 := p1_a12;
401 ddp_role_responsibility_rec.attribute9 := p1_a13;
402 ddp_role_responsibility_rec.attribute10 := p1_a14;
403 ddp_role_responsibility_rec.attribute11 := p1_a15;
404 ddp_role_responsibility_rec.attribute12 := p1_a16;
405 ddp_role_responsibility_rec.attribute13 := p1_a17;
406 ddp_role_responsibility_rec.attribute14 := p1_a18;
407 ddp_role_responsibility_rec.attribute15 := p1_a19;
408 ddp_role_responsibility_rec.orig_system_reference := p1_a20;
409 ddp_role_responsibility_rec.created_by_module := p1_a21;
410 ddp_role_responsibility_rec.application_id := rosetta_g_miss_num_map(p1_a22);
411
412
413
414
415
416 -- here's the delegated call to the old PL/SQL routine
417 hz_cust_account_role_v2pub.create_role_responsibility(p_init_msg_list,
418 ddp_role_responsibility_rec,
419 x_responsibility_id,
420 x_return_status,
421 x_msg_count,
422 x_msg_data);
423
424 -- copy data back from the local OUT or IN-OUT args, if any
425
426
427
428
429
430 end;
431
432 procedure update_role_responsibility_5(p_init_msg_list VARCHAR2
433 , p_object_version_number in out nocopy NUMBER
434 , x_return_status out nocopy VARCHAR2
435 , x_msg_count out nocopy NUMBER
436 , x_msg_data out nocopy VARCHAR2
437 , p1_a0 NUMBER := null
438 , p1_a1 NUMBER := null
439 , p1_a2 VARCHAR2 := null
440 , p1_a3 VARCHAR2 := null
441 , p1_a4 VARCHAR2 := null
442 , p1_a5 VARCHAR2 := null
443 , p1_a6 VARCHAR2 := null
444 , p1_a7 VARCHAR2 := null
445 , p1_a8 VARCHAR2 := null
446 , p1_a9 VARCHAR2 := null
447 , p1_a10 VARCHAR2 := null
448 , p1_a11 VARCHAR2 := null
449 , p1_a12 VARCHAR2 := null
450 , p1_a13 VARCHAR2 := null
451 , p1_a14 VARCHAR2 := null
452 , p1_a15 VARCHAR2 := null
453 , p1_a16 VARCHAR2 := null
454 , p1_a17 VARCHAR2 := null
455 , p1_a18 VARCHAR2 := null
456 , p1_a19 VARCHAR2 := null
457 , p1_a20 VARCHAR2 := null
458 , p1_a21 VARCHAR2 := null
459 , p1_a22 NUMBER := null
460 )
461 as
462 ddp_role_responsibility_rec hz_cust_account_role_v2pub.role_responsibility_rec_type;
463 ddindx binary_integer; indx binary_integer;
464 begin
465
466 -- copy data to the local IN or IN-OUT args, if any
467
468 ddp_role_responsibility_rec.responsibility_id := rosetta_g_miss_num_map(p1_a0);
469 ddp_role_responsibility_rec.cust_account_role_id := rosetta_g_miss_num_map(p1_a1);
470 ddp_role_responsibility_rec.responsibility_type := p1_a2;
471 ddp_role_responsibility_rec.primary_flag := p1_a3;
472 ddp_role_responsibility_rec.attribute_category := p1_a4;
473 ddp_role_responsibility_rec.attribute1 := p1_a5;
474 ddp_role_responsibility_rec.attribute2 := p1_a6;
475 ddp_role_responsibility_rec.attribute3 := p1_a7;
476 ddp_role_responsibility_rec.attribute4 := p1_a8;
477 ddp_role_responsibility_rec.attribute5 := p1_a9;
478 ddp_role_responsibility_rec.attribute6 := p1_a10;
479 ddp_role_responsibility_rec.attribute7 := p1_a11;
480 ddp_role_responsibility_rec.attribute8 := p1_a12;
481 ddp_role_responsibility_rec.attribute9 := p1_a13;
482 ddp_role_responsibility_rec.attribute10 := p1_a14;
483 ddp_role_responsibility_rec.attribute11 := p1_a15;
484 ddp_role_responsibility_rec.attribute12 := p1_a16;
485 ddp_role_responsibility_rec.attribute13 := p1_a17;
486 ddp_role_responsibility_rec.attribute14 := p1_a18;
487 ddp_role_responsibility_rec.attribute15 := p1_a19;
488 ddp_role_responsibility_rec.orig_system_reference := p1_a20;
489 ddp_role_responsibility_rec.created_by_module := p1_a21;
490 ddp_role_responsibility_rec.application_id := rosetta_g_miss_num_map(p1_a22);
491
492
493
494
495
496 -- here's the delegated call to the old PL/SQL routine
497 hz_cust_account_role_v2pub.update_role_responsibility(p_init_msg_list,
498 ddp_role_responsibility_rec,
499 p_object_version_number,
500 x_return_status,
501 x_msg_count,
502 x_msg_data);
503
504 -- copy data back from the local OUT or IN-OUT args, if any
505
506
507
508
509
510 end;
511
512 procedure get_role_responsibility_rec_6(p_init_msg_list VARCHAR2
513 , p_responsibility_id NUMBER
514 , p2_a0 out nocopy NUMBER
515 , p2_a1 out nocopy NUMBER
516 , p2_a2 out nocopy VARCHAR2
517 , p2_a3 out nocopy VARCHAR2
518 , p2_a4 out nocopy VARCHAR2
519 , p2_a5 out nocopy VARCHAR2
520 , p2_a6 out nocopy VARCHAR2
521 , p2_a7 out nocopy VARCHAR2
522 , p2_a8 out nocopy VARCHAR2
523 , p2_a9 out nocopy VARCHAR2
524 , p2_a10 out nocopy VARCHAR2
525 , p2_a11 out nocopy VARCHAR2
526 , p2_a12 out nocopy VARCHAR2
527 , p2_a13 out nocopy VARCHAR2
528 , p2_a14 out nocopy VARCHAR2
529 , p2_a15 out nocopy VARCHAR2
530 , p2_a16 out nocopy VARCHAR2
531 , p2_a17 out nocopy VARCHAR2
532 , p2_a18 out nocopy VARCHAR2
533 , p2_a19 out nocopy VARCHAR2
534 , p2_a20 out nocopy VARCHAR2
535 , p2_a21 out nocopy VARCHAR2
536 , p2_a22 out nocopy NUMBER
537 , x_return_status out nocopy VARCHAR2
538 , x_msg_count out nocopy NUMBER
539 , x_msg_data out nocopy VARCHAR2
540 )
541 as
542 ddx_role_responsibility_rec hz_cust_account_role_v2pub.role_responsibility_rec_type;
543 ddindx binary_integer; indx binary_integer;
544 begin
545
546 -- copy data to the local IN or IN-OUT args, if any
547
548
549
550
551
552
553 -- here's the delegated call to the old PL/SQL routine
554 hz_cust_account_role_v2pub.get_role_responsibility_rec(p_init_msg_list,
555 p_responsibility_id,
556 ddx_role_responsibility_rec,
557 x_return_status,
558 x_msg_count,
559 x_msg_data);
560
561 -- copy data back from the local OUT or IN-OUT args, if any
562
563
564 p2_a0 := rosetta_g_miss_num_map(ddx_role_responsibility_rec.responsibility_id);
565 p2_a1 := rosetta_g_miss_num_map(ddx_role_responsibility_rec.cust_account_role_id);
566 p2_a2 := ddx_role_responsibility_rec.responsibility_type;
567 p2_a3 := ddx_role_responsibility_rec.primary_flag;
568 p2_a4 := ddx_role_responsibility_rec.attribute_category;
569 p2_a5 := ddx_role_responsibility_rec.attribute1;
570 p2_a6 := ddx_role_responsibility_rec.attribute2;
571 p2_a7 := ddx_role_responsibility_rec.attribute3;
572 p2_a8 := ddx_role_responsibility_rec.attribute4;
573 p2_a9 := ddx_role_responsibility_rec.attribute5;
574 p2_a10 := ddx_role_responsibility_rec.attribute6;
575 p2_a11 := ddx_role_responsibility_rec.attribute7;
576 p2_a12 := ddx_role_responsibility_rec.attribute8;
577 p2_a13 := ddx_role_responsibility_rec.attribute9;
578 p2_a14 := ddx_role_responsibility_rec.attribute10;
579 p2_a15 := ddx_role_responsibility_rec.attribute11;
580 p2_a16 := ddx_role_responsibility_rec.attribute12;
581 p2_a17 := ddx_role_responsibility_rec.attribute13;
582 p2_a18 := ddx_role_responsibility_rec.attribute14;
583 p2_a19 := ddx_role_responsibility_rec.attribute15;
584 p2_a20 := ddx_role_responsibility_rec.orig_system_reference;
585 p2_a21 := ddx_role_responsibility_rec.created_by_module;
586 p2_a22 := rosetta_g_miss_num_map(ddx_role_responsibility_rec.application_id);
587
588
589
590 end;
591
592 end hz_cust_account_role_v2pub_jw;