[Home] [Help]
PACKAGE BODY: APPS.HZ_PERSON_INFO_V2PUB_JW
Source
1 package body hz_person_info_v2pub_jw as
2 /* $Header: ARH2PIJB.pls 120.5 2005/06/18 04:29:06 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_person_language_1(p_init_msg_list VARCHAR2
23 , x_language_use_reference_id out nocopy NUMBER
24 , x_return_status out nocopy VARCHAR2
25 , x_msg_count out nocopy NUMBER
26 , x_msg_data out nocopy VARCHAR2
27 , p1_a0 NUMBER := null
28 , p1_a1 VARCHAR2 := null
29 , p1_a2 NUMBER := null
30 , p1_a3 VARCHAR2 := 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 NUMBER := null
39 )
40 as
41 ddp_person_language_rec hz_person_info_v2pub.person_language_rec_type;
42 ddindx binary_integer; indx binary_integer;
43 begin
44
45 -- copy data to the local IN or IN-OUT args, if any
46
47 ddp_person_language_rec.language_use_reference_id := rosetta_g_miss_num_map(p1_a0);
48 ddp_person_language_rec.language_name := p1_a1;
49 ddp_person_language_rec.party_id := rosetta_g_miss_num_map(p1_a2);
50 ddp_person_language_rec.native_language := p1_a3;
51 ddp_person_language_rec.primary_language_indicator := p1_a4;
52 ddp_person_language_rec.reads_level := p1_a5;
53 ddp_person_language_rec.speaks_level := p1_a6;
54 ddp_person_language_rec.writes_level := p1_a7;
55 ddp_person_language_rec.spoken_comprehension_level := p1_a8;
56 ddp_person_language_rec.status := p1_a9;
57 ddp_person_language_rec.created_by_module := p1_a10;
58 ddp_person_language_rec.application_id := rosetta_g_miss_num_map(p1_a11);
59
60
61
62
63
64 -- here's the delegated call to the old PL/SQL routine
65 hz_person_info_v2pub.create_person_language(p_init_msg_list,
66 ddp_person_language_rec,
67 x_language_use_reference_id,
68 x_return_status,
69 x_msg_count,
70 x_msg_data);
71
72 -- copy data back from the local OUT or IN-OUT args, if any
73
74
75
76
77
78 end;
79
80 procedure update_person_language_2(p_init_msg_list VARCHAR2
81 , p_object_version_number in out nocopy NUMBER
82 , x_return_status out nocopy VARCHAR2
83 , x_msg_count out nocopy NUMBER
84 , x_msg_data out nocopy VARCHAR2
85 , p1_a0 NUMBER := null
86 , p1_a1 VARCHAR2 := null
87 , p1_a2 NUMBER := null
88 , p1_a3 VARCHAR2 := null
89 , p1_a4 VARCHAR2 := null
90 , p1_a5 VARCHAR2 := null
91 , p1_a6 VARCHAR2 := null
92 , p1_a7 VARCHAR2 := null
93 , p1_a8 VARCHAR2 := null
94 , p1_a9 VARCHAR2 := null
95 , p1_a10 VARCHAR2 := null
96 , p1_a11 NUMBER := null
97 )
98 as
99 ddp_person_language_rec hz_person_info_v2pub.person_language_rec_type;
100 ddindx binary_integer; indx binary_integer;
101 begin
102
103 -- copy data to the local IN or IN-OUT args, if any
104
105 ddp_person_language_rec.language_use_reference_id := rosetta_g_miss_num_map(p1_a0);
106 ddp_person_language_rec.language_name := p1_a1;
107 ddp_person_language_rec.party_id := rosetta_g_miss_num_map(p1_a2);
108 ddp_person_language_rec.native_language := p1_a3;
109 ddp_person_language_rec.primary_language_indicator := p1_a4;
110 ddp_person_language_rec.reads_level := p1_a5;
111 ddp_person_language_rec.speaks_level := p1_a6;
112 ddp_person_language_rec.writes_level := p1_a7;
113 ddp_person_language_rec.spoken_comprehension_level := p1_a8;
114 ddp_person_language_rec.status := p1_a9;
115 ddp_person_language_rec.created_by_module := p1_a10;
116 ddp_person_language_rec.application_id := rosetta_g_miss_num_map(p1_a11);
117
118
119
120
121
122 -- here's the delegated call to the old PL/SQL routine
123 hz_person_info_v2pub.update_person_language(p_init_msg_list,
124 ddp_person_language_rec,
125 p_object_version_number,
126 x_return_status,
127 x_msg_count,
128 x_msg_data);
129
130 -- copy data back from the local OUT or IN-OUT args, if any
131
132
133
134
135
136 end;
137
138 procedure get_person_language_rec_3(p_init_msg_list VARCHAR2
139 , p_language_use_reference_id NUMBER
140 , p2_a0 out nocopy NUMBER
141 , p2_a1 out nocopy VARCHAR2
142 , p2_a2 out nocopy NUMBER
143 , p2_a3 out nocopy VARCHAR2
144 , p2_a4 out nocopy VARCHAR2
145 , p2_a5 out nocopy VARCHAR2
146 , p2_a6 out nocopy VARCHAR2
147 , p2_a7 out nocopy VARCHAR2
148 , p2_a8 out nocopy VARCHAR2
149 , p2_a9 out nocopy VARCHAR2
150 , p2_a10 out nocopy VARCHAR2
151 , p2_a11 out nocopy NUMBER
152 , x_return_status out nocopy VARCHAR2
153 , x_msg_count out nocopy NUMBER
154 , x_msg_data out nocopy VARCHAR2
155 )
156 as
157 ddp_person_language_rec hz_person_info_v2pub.person_language_rec_type;
158 ddindx binary_integer; indx binary_integer;
159 begin
160
161 -- copy data to the local IN or IN-OUT args, if any
162
163
164
165
166
167
168 -- here's the delegated call to the old PL/SQL routine
169 hz_person_info_v2pub.get_person_language_rec(p_init_msg_list,
170 p_language_use_reference_id,
171 ddp_person_language_rec,
172 x_return_status,
173 x_msg_count,
174 x_msg_data);
175
176 -- copy data back from the local OUT or IN-OUT args, if any
177
178
179 p2_a0 := rosetta_g_miss_num_map(ddp_person_language_rec.language_use_reference_id);
180 p2_a1 := ddp_person_language_rec.language_name;
181 p2_a2 := rosetta_g_miss_num_map(ddp_person_language_rec.party_id);
182 p2_a3 := ddp_person_language_rec.native_language;
183 p2_a4 := ddp_person_language_rec.primary_language_indicator;
184 p2_a5 := ddp_person_language_rec.reads_level;
185 p2_a6 := ddp_person_language_rec.speaks_level;
186 p2_a7 := ddp_person_language_rec.writes_level;
187 p2_a8 := ddp_person_language_rec.spoken_comprehension_level;
188 p2_a9 := ddp_person_language_rec.status;
189 p2_a10 := ddp_person_language_rec.created_by_module;
190 p2_a11 := rosetta_g_miss_num_map(ddp_person_language_rec.application_id);
191
192
193
194 end;
195
196 procedure create_citizenship_4(p_init_msg_list VARCHAR2
197 , x_citizenship_id out nocopy NUMBER
198 , x_return_status out nocopy VARCHAR2
199 , x_msg_count out nocopy NUMBER
200 , x_msg_data out nocopy VARCHAR2
201 , p1_a0 NUMBER := null
202 , p1_a1 NUMBER := null
203 , p1_a2 VARCHAR := null
204 , p1_a3 VARCHAR2 := null
205 , p1_a4 DATE := null
206 , p1_a5 DATE := null
207 , p1_a6 DATE := null
208 , p1_a7 VARCHAR2 := null
209 , p1_a8 VARCHAR2 := null
210 , p1_a9 VARCHAR2 := null
211 , p1_a10 VARCHAR2 := null
212 , p1_a11 NUMBER := null
213 )
214 as
215 ddp_citizenship_rec hz_person_info_v2pub.citizenship_rec_type;
216 ddindx binary_integer; indx binary_integer;
217 begin
218
219 -- copy data to the local IN or IN-OUT args, if any
220
221 ddp_citizenship_rec.citizenship_id := rosetta_g_miss_num_map(p1_a0);
222 ddp_citizenship_rec.party_id := rosetta_g_miss_num_map(p1_a1);
223 ddp_citizenship_rec.birth_or_selected := p1_a2;
224 ddp_citizenship_rec.country_code := p1_a3;
225 ddp_citizenship_rec.date_recognized := rosetta_g_miss_date_in_map(p1_a4);
226 ddp_citizenship_rec.date_disowned := rosetta_g_miss_date_in_map(p1_a5);
227 ddp_citizenship_rec.end_date := rosetta_g_miss_date_in_map(p1_a6);
228 ddp_citizenship_rec.document_type := p1_a7;
229 ddp_citizenship_rec.document_reference := p1_a8;
230 ddp_citizenship_rec.status := p1_a9;
231 ddp_citizenship_rec.created_by_module := p1_a10;
232 ddp_citizenship_rec.application_id := rosetta_g_miss_num_map(p1_a11);
233
234
235
236
237
238 -- here's the delegated call to the old PL/SQL routine
239 hz_person_info_v2pub.create_citizenship(p_init_msg_list,
240 ddp_citizenship_rec,
241 x_citizenship_id,
242 x_return_status,
243 x_msg_count,
244 x_msg_data);
245
246 -- copy data back from the local OUT or IN-OUT args, if any
247
248
249
250
251
252 end;
253
254 procedure update_citizenship_5(p_init_msg_list VARCHAR2
255 , p_object_version_number in out nocopy NUMBER
256 , x_return_status out nocopy VARCHAR2
257 , x_msg_count out nocopy NUMBER
258 , x_msg_data out nocopy VARCHAR2
259 , p1_a0 NUMBER := null
260 , p1_a1 NUMBER := null
261 , p1_a2 VARCHAR := null
262 , p1_a3 VARCHAR2 := null
263 , p1_a4 DATE := null
264 , p1_a5 DATE := null
265 , p1_a6 DATE := null
266 , p1_a7 VARCHAR2 := null
267 , p1_a8 VARCHAR2 := null
268 , p1_a9 VARCHAR2 := null
269 , p1_a10 VARCHAR2 := null
270 , p1_a11 NUMBER := null
271 )
272 as
273 ddp_citizenship_rec hz_person_info_v2pub.citizenship_rec_type;
274 ddindx binary_integer; indx binary_integer;
275 begin
276
277 -- copy data to the local IN or IN-OUT args, if any
278
279 ddp_citizenship_rec.citizenship_id := rosetta_g_miss_num_map(p1_a0);
280 ddp_citizenship_rec.party_id := rosetta_g_miss_num_map(p1_a1);
281 ddp_citizenship_rec.birth_or_selected := p1_a2;
282 ddp_citizenship_rec.country_code := p1_a3;
283 ddp_citizenship_rec.date_recognized := rosetta_g_miss_date_in_map(p1_a4);
284 ddp_citizenship_rec.date_disowned := rosetta_g_miss_date_in_map(p1_a5);
285 ddp_citizenship_rec.end_date := rosetta_g_miss_date_in_map(p1_a6);
286 ddp_citizenship_rec.document_type := p1_a7;
287 ddp_citizenship_rec.document_reference := p1_a8;
288 ddp_citizenship_rec.status := p1_a9;
289 ddp_citizenship_rec.created_by_module := p1_a10;
290 ddp_citizenship_rec.application_id := rosetta_g_miss_num_map(p1_a11);
291
292
293
294
295
296 -- here's the delegated call to the old PL/SQL routine
297 hz_person_info_v2pub.update_citizenship(p_init_msg_list,
298 ddp_citizenship_rec,
299 p_object_version_number,
300 x_return_status,
301 x_msg_count,
302 x_msg_data);
303
304 -- copy data back from the local OUT or IN-OUT args, if any
305
306
307
308
309
310 end;
311
312 procedure get_citizenship_rec_6(p_init_msg_list VARCHAR2
313 , p_citizenship_id NUMBER
314 , p2_a0 out nocopy NUMBER
315 , p2_a1 out nocopy NUMBER
316 , p2_a2 out nocopy VARCHAR
317 , p2_a3 out nocopy VARCHAR2
318 , p2_a4 out nocopy DATE
319 , p2_a5 out nocopy DATE
320 , p2_a6 out nocopy DATE
321 , p2_a7 out nocopy VARCHAR2
322 , p2_a8 out nocopy VARCHAR2
323 , p2_a9 out nocopy VARCHAR2
324 , p2_a10 out nocopy VARCHAR2
325 , p2_a11 out nocopy NUMBER
326 , x_return_status out nocopy VARCHAR2
327 , x_msg_count out nocopy NUMBER
328 , x_msg_data out nocopy VARCHAR2
329 )
330 as
331 ddx_citizenship_rec hz_person_info_v2pub.citizenship_rec_type;
332 ddindx binary_integer; indx binary_integer;
333 begin
334
335 -- copy data to the local IN or IN-OUT args, if any
336
337
338
339
340
341
342 -- here's the delegated call to the old PL/SQL routine
343 hz_person_info_v2pub.get_citizenship_rec(p_init_msg_list,
344 p_citizenship_id,
345 ddx_citizenship_rec,
349
346 x_return_status,
347 x_msg_count,
348 x_msg_data);
350 -- copy data back from the local OUT or IN-OUT args, if any
351
352
353 p2_a0 := rosetta_g_miss_num_map(ddx_citizenship_rec.citizenship_id);
354 p2_a1 := rosetta_g_miss_num_map(ddx_citizenship_rec.party_id);
355 p2_a2 := ddx_citizenship_rec.birth_or_selected;
356 p2_a3 := ddx_citizenship_rec.country_code;
357 p2_a4 := ddx_citizenship_rec.date_recognized;
358 p2_a5 := ddx_citizenship_rec.date_disowned;
359 p2_a6 := ddx_citizenship_rec.end_date;
360 p2_a7 := ddx_citizenship_rec.document_type;
361 p2_a8 := ddx_citizenship_rec.document_reference;
362 p2_a9 := ddx_citizenship_rec.status;
363 p2_a10 := ddx_citizenship_rec.created_by_module;
364 p2_a11 := rosetta_g_miss_num_map(ddx_citizenship_rec.application_id);
365
366
367
368 end;
369
370 procedure create_education_7(p_init_msg_list VARCHAR2
371 , x_education_id out nocopy NUMBER
372 , x_return_status out nocopy VARCHAR2
373 , x_msg_count out nocopy NUMBER
374 , x_msg_data out nocopy VARCHAR2
375 , p1_a0 NUMBER := null
376 , p1_a1 NUMBER := null
377 , p1_a2 VARCHAR2 := null
378 , p1_a3 VARCHAR2 := null
379 , p1_a4 DATE := null
380 , p1_a5 DATE := null
381 , p1_a6 VARCHAR2 := null
382 , p1_a7 NUMBER := null
383 , p1_a8 VARCHAR2 := null
384 , p1_a9 VARCHAR2 := null
385 , p1_a10 VARCHAR2 := null
386 , p1_a11 NUMBER := null
387 )
388 as
389 ddp_education_rec hz_person_info_v2pub.education_rec_type;
390 ddindx binary_integer; indx binary_integer;
391 begin
392
393 -- copy data to the local IN or IN-OUT args, if any
394
395 ddp_education_rec.education_id := rosetta_g_miss_num_map(p1_a0);
396 ddp_education_rec.party_id := rosetta_g_miss_num_map(p1_a1);
397 ddp_education_rec.course_major := p1_a2;
398 ddp_education_rec.degree_received := p1_a3;
399 ddp_education_rec.start_date_attended := rosetta_g_miss_date_in_map(p1_a4);
400 ddp_education_rec.last_date_attended := rosetta_g_miss_date_in_map(p1_a5);
401 ddp_education_rec.school_attended_name := p1_a6;
402 ddp_education_rec.school_party_id := rosetta_g_miss_num_map(p1_a7);
403 ddp_education_rec.type_of_school := p1_a8;
404 ddp_education_rec.status := p1_a9;
405 ddp_education_rec.created_by_module := p1_a10;
406 ddp_education_rec.application_id := rosetta_g_miss_num_map(p1_a11);
407
408
409
410
411
412 -- here's the delegated call to the old PL/SQL routine
413 hz_person_info_v2pub.create_education(p_init_msg_list,
414 ddp_education_rec,
415 x_education_id,
416 x_return_status,
417 x_msg_count,
418 x_msg_data);
419
420 -- copy data back from the local OUT or IN-OUT args, if any
421
422
423
424
425
426 end;
427
428 procedure update_education_8(p_init_msg_list VARCHAR2
429 , p_object_version_number in out nocopy NUMBER
430 , x_return_status out nocopy VARCHAR2
431 , x_msg_count out nocopy NUMBER
432 , x_msg_data out nocopy VARCHAR2
433 , p1_a0 NUMBER := null
434 , p1_a1 NUMBER := null
435 , p1_a2 VARCHAR2 := null
436 , p1_a3 VARCHAR2 := null
437 , p1_a4 DATE := null
438 , p1_a5 DATE := null
439 , p1_a6 VARCHAR2 := null
440 , p1_a7 NUMBER := null
441 , p1_a8 VARCHAR2 := null
442 , p1_a9 VARCHAR2 := null
443 , p1_a10 VARCHAR2 := null
444 , p1_a11 NUMBER := null
445 )
446 as
447 ddp_education_rec hz_person_info_v2pub.education_rec_type;
448 ddindx binary_integer; indx binary_integer;
449 begin
450
451 -- copy data to the local IN or IN-OUT args, if any
452
453 ddp_education_rec.education_id := rosetta_g_miss_num_map(p1_a0);
454 ddp_education_rec.party_id := rosetta_g_miss_num_map(p1_a1);
455 ddp_education_rec.course_major := p1_a2;
456 ddp_education_rec.degree_received := p1_a3;
457 ddp_education_rec.start_date_attended := rosetta_g_miss_date_in_map(p1_a4);
458 ddp_education_rec.last_date_attended := rosetta_g_miss_date_in_map(p1_a5);
459 ddp_education_rec.school_attended_name := p1_a6;
460 ddp_education_rec.school_party_id := rosetta_g_miss_num_map(p1_a7);
461 ddp_education_rec.type_of_school := p1_a8;
462 ddp_education_rec.status := p1_a9;
463 ddp_education_rec.created_by_module := p1_a10;
464 ddp_education_rec.application_id := rosetta_g_miss_num_map(p1_a11);
465
466
467
468
469
470 -- here's the delegated call to the old PL/SQL routine
471 hz_person_info_v2pub.update_education(p_init_msg_list,
472 ddp_education_rec,
473 p_object_version_number,
474 x_return_status,
475 x_msg_count,
476 x_msg_data);
477
478 -- copy data back from the local OUT or IN-OUT args, if any
479
480
481
482
483
484 end;
485
486 procedure get_education_rec_9(p_init_msg_list VARCHAR2
487 , p_education_id NUMBER
488 , p2_a0 out nocopy NUMBER
489 , p2_a1 out nocopy NUMBER
493 , p2_a5 out nocopy DATE
490 , p2_a2 out nocopy VARCHAR2
491 , p2_a3 out nocopy VARCHAR2
492 , p2_a4 out nocopy DATE
494 , p2_a6 out nocopy VARCHAR2
495 , p2_a7 out nocopy NUMBER
496 , p2_a8 out nocopy VARCHAR2
497 , p2_a9 out nocopy VARCHAR2
498 , p2_a10 out nocopy VARCHAR2
499 , p2_a11 out nocopy NUMBER
500 , x_return_status out nocopy VARCHAR2
501 , x_msg_count out nocopy NUMBER
502 , x_msg_data out nocopy VARCHAR2
503 )
504 as
505 ddx_education_rec hz_person_info_v2pub.education_rec_type;
506 ddindx binary_integer; indx binary_integer;
507 begin
508
509 -- copy data to the local IN or IN-OUT args, if any
510
511
512
513
514
515
516 -- here's the delegated call to the old PL/SQL routine
517 hz_person_info_v2pub.get_education_rec(p_init_msg_list,
518 p_education_id,
519 ddx_education_rec,
520 x_return_status,
521 x_msg_count,
522 x_msg_data);
523
524 -- copy data back from the local OUT or IN-OUT args, if any
525
526
527 p2_a0 := rosetta_g_miss_num_map(ddx_education_rec.education_id);
528 p2_a1 := rosetta_g_miss_num_map(ddx_education_rec.party_id);
529 p2_a2 := ddx_education_rec.course_major;
530 p2_a3 := ddx_education_rec.degree_received;
531 p2_a4 := ddx_education_rec.start_date_attended;
532 p2_a5 := ddx_education_rec.last_date_attended;
533 p2_a6 := ddx_education_rec.school_attended_name;
534 p2_a7 := rosetta_g_miss_num_map(ddx_education_rec.school_party_id);
535 p2_a8 := ddx_education_rec.type_of_school;
536 p2_a9 := ddx_education_rec.status;
537 p2_a10 := ddx_education_rec.created_by_module;
538 p2_a11 := rosetta_g_miss_num_map(ddx_education_rec.application_id);
539
540
541
542 end;
543
544 procedure create_employment_history_10(p_init_msg_list VARCHAR2
545 , x_employment_history_id out nocopy NUMBER
546 , x_return_status out nocopy VARCHAR2
547 , x_msg_count out nocopy NUMBER
548 , x_msg_data out nocopy VARCHAR2
549 , p1_a0 NUMBER := null
550 , p1_a1 NUMBER := null
551 , p1_a2 DATE := null
552 , p1_a3 DATE := null
553 , p1_a4 VARCHAR2 := null
554 , p1_a5 VARCHAR2 := null
555 , p1_a6 VARCHAR2 := null
556 , p1_a7 VARCHAR2 := null
557 , p1_a8 NUMBER := null
558 , p1_a9 VARCHAR2 := null
559 , p1_a10 VARCHAR2 := null
560 , p1_a11 VARCHAR2 := null
561 , p1_a12 VARCHAR2 := null
562 , p1_a13 VARCHAR2 := null
563 , p1_a14 VARCHAR2 := null
564 , p1_a15 VARCHAR2 := null
565 , p1_a16 NUMBER := null
566 , p1_a17 VARCHAR2 := null
567 , p1_a18 VARCHAR2 := null
568 , p1_a19 VARCHAR2 := null
569 , p1_a20 NUMBER := null
570 , p1_a21 VARCHAR2 := null
571 , p1_a22 VARCHAR2 := null
572 , p1_a23 VARCHAR2 := null
573 , p1_a24 NUMBER := null
574 )
575 as
576 ddp_employment_history_rec hz_person_info_v2pub.employment_history_rec_type;
577 ddindx binary_integer; indx binary_integer;
578 begin
579
580 -- copy data to the local IN or IN-OUT args, if any
581
582 ddp_employment_history_rec.employment_history_id := rosetta_g_miss_num_map(p1_a0);
583 ddp_employment_history_rec.party_id := rosetta_g_miss_num_map(p1_a1);
584 ddp_employment_history_rec.begin_date := rosetta_g_miss_date_in_map(p1_a2);
585 ddp_employment_history_rec.end_date := rosetta_g_miss_date_in_map(p1_a3);
586 ddp_employment_history_rec.employment_type_code := p1_a4;
587 ddp_employment_history_rec.employed_as_title_code := p1_a5;
588 ddp_employment_history_rec.employed_as_title := p1_a6;
589 ddp_employment_history_rec.employed_by_name_company := p1_a7;
590 ddp_employment_history_rec.employed_by_party_id := rosetta_g_miss_num_map(p1_a8);
591 ddp_employment_history_rec.employed_by_division_name := p1_a9;
592 ddp_employment_history_rec.supervisor_name := p1_a10;
593 ddp_employment_history_rec.branch := p1_a11;
594 ddp_employment_history_rec.military_rank := p1_a12;
595 ddp_employment_history_rec.served := p1_a13;
596 ddp_employment_history_rec.station := p1_a14;
597 ddp_employment_history_rec.responsibility := p1_a15;
598 ddp_employment_history_rec.weekly_work_hours := rosetta_g_miss_num_map(p1_a16);
599 ddp_employment_history_rec.reason_for_leaving := p1_a17;
600 ddp_employment_history_rec.faculty_position_flag := p1_a18;
601 ddp_employment_history_rec.tenure_code := p1_a19;
602 ddp_employment_history_rec.fraction_of_tenure := rosetta_g_miss_num_map(p1_a20);
603 ddp_employment_history_rec.comments := p1_a21;
604 ddp_employment_history_rec.status := p1_a22;
605 ddp_employment_history_rec.created_by_module := p1_a23;
609
606 ddp_employment_history_rec.application_id := rosetta_g_miss_num_map(p1_a24);
607
608
610
611
612 -- here's the delegated call to the old PL/SQL routine
613 hz_person_info_v2pub.create_employment_history(p_init_msg_list,
614 ddp_employment_history_rec,
615 x_employment_history_id,
616 x_return_status,
617 x_msg_count,
618 x_msg_data);
619
620 -- copy data back from the local OUT or IN-OUT args, if any
621
622
623
624
625
626 end;
627
628 procedure update_employment_history_11(p_init_msg_list VARCHAR2
629 , p_object_version_number in out nocopy NUMBER
630 , x_return_status out nocopy VARCHAR2
631 , x_msg_count out nocopy NUMBER
632 , x_msg_data out nocopy VARCHAR2
633 , p1_a0 NUMBER := null
634 , p1_a1 NUMBER := null
635 , p1_a2 DATE := null
636 , p1_a3 DATE := null
637 , p1_a4 VARCHAR2 := null
638 , p1_a5 VARCHAR2 := null
639 , p1_a6 VARCHAR2 := null
640 , p1_a7 VARCHAR2 := null
641 , p1_a8 NUMBER := null
642 , p1_a9 VARCHAR2 := null
643 , p1_a10 VARCHAR2 := null
644 , p1_a11 VARCHAR2 := null
645 , p1_a12 VARCHAR2 := null
646 , p1_a13 VARCHAR2 := null
647 , p1_a14 VARCHAR2 := null
648 , p1_a15 VARCHAR2 := null
649 , p1_a16 NUMBER := null
650 , p1_a17 VARCHAR2 := null
651 , p1_a18 VARCHAR2 := null
652 , p1_a19 VARCHAR2 := null
653 , p1_a20 NUMBER := null
654 , p1_a21 VARCHAR2 := null
655 , p1_a22 VARCHAR2 := null
656 , p1_a23 VARCHAR2 := null
657 , p1_a24 NUMBER := null
658 )
659 as
660 ddp_employment_history_rec hz_person_info_v2pub.employment_history_rec_type;
661 ddindx binary_integer; indx binary_integer;
662 begin
663
664 -- copy data to the local IN or IN-OUT args, if any
665
666 ddp_employment_history_rec.employment_history_id := rosetta_g_miss_num_map(p1_a0);
667 ddp_employment_history_rec.party_id := rosetta_g_miss_num_map(p1_a1);
668 ddp_employment_history_rec.begin_date := rosetta_g_miss_date_in_map(p1_a2);
669 ddp_employment_history_rec.end_date := rosetta_g_miss_date_in_map(p1_a3);
670 ddp_employment_history_rec.employment_type_code := p1_a4;
671 ddp_employment_history_rec.employed_as_title_code := p1_a5;
672 ddp_employment_history_rec.employed_as_title := p1_a6;
673 ddp_employment_history_rec.employed_by_name_company := p1_a7;
674 ddp_employment_history_rec.employed_by_party_id := rosetta_g_miss_num_map(p1_a8);
675 ddp_employment_history_rec.employed_by_division_name := p1_a9;
676 ddp_employment_history_rec.supervisor_name := p1_a10;
677 ddp_employment_history_rec.branch := p1_a11;
678 ddp_employment_history_rec.military_rank := p1_a12;
679 ddp_employment_history_rec.served := p1_a13;
680 ddp_employment_history_rec.station := p1_a14;
681 ddp_employment_history_rec.responsibility := p1_a15;
682 ddp_employment_history_rec.weekly_work_hours := rosetta_g_miss_num_map(p1_a16);
683 ddp_employment_history_rec.reason_for_leaving := p1_a17;
684 ddp_employment_history_rec.faculty_position_flag := p1_a18;
685 ddp_employment_history_rec.tenure_code := p1_a19;
686 ddp_employment_history_rec.fraction_of_tenure := rosetta_g_miss_num_map(p1_a20);
687 ddp_employment_history_rec.comments := p1_a21;
688 ddp_employment_history_rec.status := p1_a22;
689 ddp_employment_history_rec.created_by_module := p1_a23;
690 ddp_employment_history_rec.application_id := rosetta_g_miss_num_map(p1_a24);
691
692
693
694
695
696 -- here's the delegated call to the old PL/SQL routine
697 hz_person_info_v2pub.update_employment_history(p_init_msg_list,
698 ddp_employment_history_rec,
699 p_object_version_number,
700 x_return_status,
701 x_msg_count,
702 x_msg_data);
703
704 -- copy data back from the local OUT or IN-OUT args, if any
705
706
707
708
709
710 end;
711
712 procedure get_employment_history_rec_12(p_init_msg_list VARCHAR2
713 , p_employment_history_id NUMBER
714 , p2_a0 out nocopy NUMBER
715 , p2_a1 out nocopy NUMBER
716 , p2_a2 out nocopy DATE
717 , p2_a3 out nocopy DATE
718 , p2_a4 out nocopy VARCHAR2
719 , p2_a5 out nocopy VARCHAR2
720 , p2_a6 out nocopy VARCHAR2
721 , p2_a7 out nocopy VARCHAR2
722 , p2_a8 out nocopy NUMBER
723 , p2_a9 out nocopy VARCHAR2
724 , p2_a10 out nocopy VARCHAR2
725 , p2_a11 out nocopy VARCHAR2
726 , p2_a12 out nocopy VARCHAR2
727 , p2_a13 out nocopy VARCHAR2
728 , p2_a14 out nocopy VARCHAR2
729 , p2_a15 out nocopy VARCHAR2
730 , p2_a16 out nocopy NUMBER
731 , p2_a17 out nocopy VARCHAR2
732 , p2_a18 out nocopy VARCHAR2
733 , p2_a19 out nocopy VARCHAR2
734 , p2_a20 out nocopy NUMBER
735 , p2_a21 out nocopy VARCHAR2
736 , p2_a22 out nocopy VARCHAR2
737 , p2_a23 out nocopy VARCHAR2
738 , p2_a24 out nocopy NUMBER
739 , x_return_status out nocopy VARCHAR2
740 , x_msg_count out nocopy NUMBER
741 , x_msg_data out nocopy VARCHAR2
742 )
746 begin
743 as
744 ddx_employment_history_rec hz_person_info_v2pub.employment_history_rec_type;
745 ddindx binary_integer; indx binary_integer;
747
748 -- copy data to the local IN or IN-OUT args, if any
749
750
751
752
753
754
755 -- here's the delegated call to the old PL/SQL routine
756 hz_person_info_v2pub.get_employment_history_rec(p_init_msg_list,
757 p_employment_history_id,
758 ddx_employment_history_rec,
759 x_return_status,
760 x_msg_count,
761 x_msg_data);
762
763 -- copy data back from the local OUT or IN-OUT args, if any
764
765
766 p2_a0 := rosetta_g_miss_num_map(ddx_employment_history_rec.employment_history_id);
767 p2_a1 := rosetta_g_miss_num_map(ddx_employment_history_rec.party_id);
768 p2_a2 := ddx_employment_history_rec.begin_date;
769 p2_a3 := ddx_employment_history_rec.end_date;
770 p2_a4 := ddx_employment_history_rec.employment_type_code;
771 p2_a5 := ddx_employment_history_rec.employed_as_title_code;
772 p2_a6 := ddx_employment_history_rec.employed_as_title;
773 p2_a7 := ddx_employment_history_rec.employed_by_name_company;
774 p2_a8 := rosetta_g_miss_num_map(ddx_employment_history_rec.employed_by_party_id);
775 p2_a9 := ddx_employment_history_rec.employed_by_division_name;
776 p2_a10 := ddx_employment_history_rec.supervisor_name;
777 p2_a11 := ddx_employment_history_rec.branch;
778 p2_a12 := ddx_employment_history_rec.military_rank;
779 p2_a13 := ddx_employment_history_rec.served;
780 p2_a14 := ddx_employment_history_rec.station;
781 p2_a15 := ddx_employment_history_rec.responsibility;
782 p2_a16 := rosetta_g_miss_num_map(ddx_employment_history_rec.weekly_work_hours);
783 p2_a17 := ddx_employment_history_rec.reason_for_leaving;
784 p2_a18 := ddx_employment_history_rec.faculty_position_flag;
785 p2_a19 := ddx_employment_history_rec.tenure_code;
786 p2_a20 := rosetta_g_miss_num_map(ddx_employment_history_rec.fraction_of_tenure);
787 p2_a21 := ddx_employment_history_rec.comments;
788 p2_a22 := ddx_employment_history_rec.status;
789 p2_a23 := ddx_employment_history_rec.created_by_module;
790 p2_a24 := rosetta_g_miss_num_map(ddx_employment_history_rec.application_id);
791
792
793
794 end;
795
796 procedure create_work_class_13(p_init_msg_list VARCHAR2
797 , x_work_class_id out nocopy NUMBER
798 , x_return_status out nocopy VARCHAR2
799 , x_msg_count out nocopy NUMBER
800 , x_msg_data out nocopy VARCHAR2
801 , p1_a0 NUMBER := null
802 , p1_a1 VARCHAR2 := null
803 , p1_a2 VARCHAR2 := null
804 , p1_a3 NUMBER := null
805 , p1_a4 VARCHAR2 := null
806 , p1_a5 VARCHAR2 := null
807 , p1_a6 NUMBER := null
808 )
809 as
810 ddp_work_class_rec hz_person_info_v2pub.work_class_rec_type;
811 ddindx binary_integer; indx binary_integer;
812 begin
813
814 -- copy data to the local IN or IN-OUT args, if any
815
816 ddp_work_class_rec.work_class_id := rosetta_g_miss_num_map(p1_a0);
817 ddp_work_class_rec.level_of_experience := p1_a1;
818 ddp_work_class_rec.work_class_name := p1_a2;
819 ddp_work_class_rec.employment_history_id := rosetta_g_miss_num_map(p1_a3);
820 ddp_work_class_rec.status := p1_a4;
821 ddp_work_class_rec.created_by_module := p1_a5;
822 ddp_work_class_rec.application_id := rosetta_g_miss_num_map(p1_a6);
823
824
825
826
827
828 -- here's the delegated call to the old PL/SQL routine
829 hz_person_info_v2pub.create_work_class(p_init_msg_list,
830 ddp_work_class_rec,
831 x_work_class_id,
832 x_return_status,
833 x_msg_count,
834 x_msg_data);
835
836 -- copy data back from the local OUT or IN-OUT args, if any
837
838
839
840
841
842 end;
843
844 procedure update_work_class_14(p_init_msg_list VARCHAR2
845 , p_object_version_number in out nocopy NUMBER
846 , x_return_status out nocopy VARCHAR2
847 , x_msg_count out nocopy NUMBER
848 , x_msg_data out nocopy VARCHAR2
849 , p1_a0 NUMBER := null
850 , p1_a1 VARCHAR2 := null
851 , p1_a2 VARCHAR2 := null
852 , p1_a3 NUMBER := null
853 , p1_a4 VARCHAR2 := null
854 , p1_a5 VARCHAR2 := null
855 , p1_a6 NUMBER := null
856 )
857 as
858 ddp_work_class_rec hz_person_info_v2pub.work_class_rec_type;
859 ddindx binary_integer; indx binary_integer;
860 begin
864 ddp_work_class_rec.work_class_id := rosetta_g_miss_num_map(p1_a0);
861
862 -- copy data to the local IN or IN-OUT args, if any
863
865 ddp_work_class_rec.level_of_experience := p1_a1;
866 ddp_work_class_rec.work_class_name := p1_a2;
867 ddp_work_class_rec.employment_history_id := rosetta_g_miss_num_map(p1_a3);
868 ddp_work_class_rec.status := p1_a4;
869 ddp_work_class_rec.created_by_module := p1_a5;
870 ddp_work_class_rec.application_id := rosetta_g_miss_num_map(p1_a6);
871
872
873
874
875
876 -- here's the delegated call to the old PL/SQL routine
877 hz_person_info_v2pub.update_work_class(p_init_msg_list,
878 ddp_work_class_rec,
879 p_object_version_number,
880 x_return_status,
881 x_msg_count,
882 x_msg_data);
883
884 -- copy data back from the local OUT or IN-OUT args, if any
885
886
887
888
889
890 end;
891
892 procedure get_work_class_rec_15(p_init_msg_list VARCHAR2
893 , p_work_class_id NUMBER
894 , p2_a0 out nocopy NUMBER
895 , p2_a1 out nocopy VARCHAR2
896 , p2_a2 out nocopy VARCHAR2
897 , p2_a3 out nocopy NUMBER
898 , p2_a4 out nocopy VARCHAR2
899 , p2_a5 out nocopy VARCHAR2
900 , p2_a6 out nocopy NUMBER
901 , x_return_status out nocopy VARCHAR2
902 , x_msg_count out nocopy NUMBER
903 , x_msg_data out nocopy VARCHAR2
904 )
905 as
906 ddx_work_class_rec hz_person_info_v2pub.work_class_rec_type;
907 ddindx binary_integer; indx binary_integer;
908 begin
909
910 -- copy data to the local IN or IN-OUT args, if any
911
912
913
914
915
916
917 -- here's the delegated call to the old PL/SQL routine
918 hz_person_info_v2pub.get_work_class_rec(p_init_msg_list,
919 p_work_class_id,
920 ddx_work_class_rec,
921 x_return_status,
922 x_msg_count,
923 x_msg_data);
924
925 -- copy data back from the local OUT or IN-OUT args, if any
926
927
928 p2_a0 := rosetta_g_miss_num_map(ddx_work_class_rec.work_class_id);
929 p2_a1 := ddx_work_class_rec.level_of_experience;
930 p2_a2 := ddx_work_class_rec.work_class_name;
931 p2_a3 := rosetta_g_miss_num_map(ddx_work_class_rec.employment_history_id);
932 p2_a4 := ddx_work_class_rec.status;
933 p2_a5 := ddx_work_class_rec.created_by_module;
934 p2_a6 := rosetta_g_miss_num_map(ddx_work_class_rec.application_id);
935
936
937
938 end;
939
940 procedure create_person_interest_16(p_init_msg_list VARCHAR2
941 , x_person_interest_id out nocopy NUMBER
942 , x_return_status out nocopy VARCHAR2
943 , x_msg_count out nocopy NUMBER
944 , x_msg_data out nocopy VARCHAR2
945 , p1_a0 NUMBER := null
946 , p1_a1 VARCHAR2 := null
947 , p1_a2 NUMBER := null
948 , p1_a3 VARCHAR2 := null
949 , p1_a4 VARCHAR2 := null
950 , p1_a5 VARCHAR2 := null
951 , p1_a6 VARCHAR2 := null
952 , p1_a7 VARCHAR2 := null
953 , p1_a8 VARCHAR2 := null
954 , p1_a9 VARCHAR2 := null
955 , p1_a10 DATE := null
956 , p1_a11 VARCHAR := null
957 , p1_a12 VARCHAR2 := null
958 , p1_a13 NUMBER := null
959 )
960 as
961 ddp_person_interest_rec hz_person_info_v2pub.person_interest_rec_type;
962 ddindx binary_integer; indx binary_integer;
963 begin
964
965 -- copy data to the local IN or IN-OUT args, if any
966
967 ddp_person_interest_rec.person_interest_id := rosetta_g_miss_num_map(p1_a0);
968 ddp_person_interest_rec.level_of_interest := p1_a1;
969 ddp_person_interest_rec.party_id := rosetta_g_miss_num_map(p1_a2);
970 ddp_person_interest_rec.level_of_participation := p1_a3;
971 ddp_person_interest_rec.interest_type_code := p1_a4;
972 ddp_person_interest_rec.comments := p1_a5;
973 ddp_person_interest_rec.sport_indicator := p1_a6;
974 ddp_person_interest_rec.sub_interest_type_code := p1_a7;
975 ddp_person_interest_rec.interest_name := p1_a8;
976 ddp_person_interest_rec.team := p1_a9;
977 ddp_person_interest_rec.since := rosetta_g_miss_date_in_map(p1_a10);
978 ddp_person_interest_rec.status := p1_a11;
979 ddp_person_interest_rec.created_by_module := p1_a12;
980 ddp_person_interest_rec.application_id := rosetta_g_miss_num_map(p1_a13);
981
982
983
984
985
986 -- here's the delegated call to the old PL/SQL routine
987 hz_person_info_v2pub.create_person_interest(p_init_msg_list,
988 ddp_person_interest_rec,
989 x_person_interest_id,
990 x_return_status,
991 x_msg_count,
992 x_msg_data);
993
994 -- copy data back from the local OUT or IN-OUT args, if any
995
996
997
998
999
1000 end;
1001
1002 procedure update_person_interest_17(p_init_msg_list VARCHAR2
1003 , p_object_version_number in out nocopy NUMBER
1004 , x_return_status out nocopy VARCHAR2
1005 , x_msg_count out nocopy NUMBER
1006 , x_msg_data out nocopy VARCHAR2
1007 , p1_a0 NUMBER := null
1008 , p1_a1 VARCHAR2 := null
1009 , p1_a2 NUMBER := null
1010 , p1_a3 VARCHAR2 := null
1011 , p1_a4 VARCHAR2 := null
1012 , p1_a5 VARCHAR2 := null
1013 , p1_a6 VARCHAR2 := null
1014 , p1_a7 VARCHAR2 := null
1015 , p1_a8 VARCHAR2 := null
1016 , p1_a9 VARCHAR2 := null
1017 , p1_a10 DATE := null
1018 , p1_a11 VARCHAR := null
1019 , p1_a12 VARCHAR2 := null
1020 , p1_a13 NUMBER := null
1021 )
1022 as
1023 ddp_person_interest_rec hz_person_info_v2pub.person_interest_rec_type;
1024 ddindx binary_integer; indx binary_integer;
1025 begin
1026
1027 -- copy data to the local IN or IN-OUT args, if any
1028
1029 ddp_person_interest_rec.person_interest_id := rosetta_g_miss_num_map(p1_a0);
1030 ddp_person_interest_rec.level_of_interest := p1_a1;
1031 ddp_person_interest_rec.party_id := rosetta_g_miss_num_map(p1_a2);
1032 ddp_person_interest_rec.level_of_participation := p1_a3;
1033 ddp_person_interest_rec.interest_type_code := p1_a4;
1034 ddp_person_interest_rec.comments := p1_a5;
1035 ddp_person_interest_rec.sport_indicator := p1_a6;
1036 ddp_person_interest_rec.sub_interest_type_code := p1_a7;
1037 ddp_person_interest_rec.interest_name := p1_a8;
1038 ddp_person_interest_rec.team := p1_a9;
1039 ddp_person_interest_rec.since := rosetta_g_miss_date_in_map(p1_a10);
1040 ddp_person_interest_rec.status := p1_a11;
1041 ddp_person_interest_rec.created_by_module := p1_a12;
1042 ddp_person_interest_rec.application_id := rosetta_g_miss_num_map(p1_a13);
1043
1044
1045
1046
1047
1048 -- here's the delegated call to the old PL/SQL routine
1049 hz_person_info_v2pub.update_person_interest(p_init_msg_list,
1050 ddp_person_interest_rec,
1051 p_object_version_number,
1052 x_return_status,
1053 x_msg_count,
1054 x_msg_data);
1055
1056 -- copy data back from the local OUT or IN-OUT args, if any
1057
1058
1059
1060
1061
1062 end;
1063
1064 procedure get_person_interest_rec_18(p_init_msg_list VARCHAR2
1065 , p_person_interest_id NUMBER
1066 , p2_a0 out nocopy NUMBER
1067 , p2_a1 out nocopy VARCHAR2
1068 , p2_a2 out nocopy NUMBER
1069 , p2_a3 out nocopy VARCHAR2
1070 , p2_a4 out nocopy VARCHAR2
1071 , p2_a5 out nocopy VARCHAR2
1072 , p2_a6 out nocopy VARCHAR2
1073 , p2_a7 out nocopy VARCHAR2
1074 , p2_a8 out nocopy VARCHAR2
1075 , p2_a9 out nocopy VARCHAR2
1076 , p2_a10 out nocopy DATE
1077 , p2_a11 out nocopy VARCHAR
1078 , p2_a12 out nocopy VARCHAR2
1079 , p2_a13 out nocopy NUMBER
1080 , x_return_status out nocopy VARCHAR2
1081 , x_msg_count out nocopy NUMBER
1082 , x_msg_data out nocopy VARCHAR2
1083 )
1084 as
1085 ddx_person_interest_rec hz_person_info_v2pub.person_interest_rec_type;
1086 ddindx binary_integer; indx binary_integer;
1087 begin
1088
1089 -- copy data to the local IN or IN-OUT args, if any
1090
1091
1092
1093
1094
1095
1096 -- here's the delegated call to the old PL/SQL routine
1097 hz_person_info_v2pub.get_person_interest_rec(p_init_msg_list,
1098 p_person_interest_id,
1099 ddx_person_interest_rec,
1100 x_return_status,
1101 x_msg_count,
1102 x_msg_data);
1103
1104 -- copy data back from the local OUT or IN-OUT args, if any
1105
1106
1107 p2_a0 := rosetta_g_miss_num_map(ddx_person_interest_rec.person_interest_id);
1108 p2_a1 := ddx_person_interest_rec.level_of_interest;
1109 p2_a2 := rosetta_g_miss_num_map(ddx_person_interest_rec.party_id);
1110 p2_a3 := ddx_person_interest_rec.level_of_participation;
1111 p2_a4 := ddx_person_interest_rec.interest_type_code;
1112 p2_a5 := ddx_person_interest_rec.comments;
1113 p2_a6 := ddx_person_interest_rec.sport_indicator;
1114 p2_a7 := ddx_person_interest_rec.sub_interest_type_code;
1115 p2_a8 := ddx_person_interest_rec.interest_name;
1116 p2_a9 := ddx_person_interest_rec.team;
1117 p2_a10 := ddx_person_interest_rec.since;
1118 p2_a11 := ddx_person_interest_rec.status;
1119 p2_a12 := ddx_person_interest_rec.created_by_module;
1120 p2_a13 := rosetta_g_miss_num_map(ddx_person_interest_rec.application_id);
1121
1122
1123
1124 end;
1125
1126 end hz_person_info_v2pub_jw;