[Home] [Help]
3: --
4: -- Package Variables
5: --
6: g_package CONSTANT varchar2(33) := ' hr_assignment_api.';
7: g_debug boolean := hr_utility.debug_enabled;
8: --
9: ----------------------------------------------------------------------------
10: -- |----------------------< update_pgp_concat_segs >------------------------|
11: ----------------------------------------------------------------------------
67: l_proc varchar2(72) := g_package||'update_pgp_concat_segs_auto';
68: --
69: begin
70: if g_debug then
71: hr_utility.set_location('Entering:'|| l_proc, 10);
72: end if;
73: --
74: -- The outer procedure has already establish that an update is
75: -- required. This sub-procedure uses an autonomous transaction
91: if csr_pgp_lock%found then
92: close csr_pgp_lock;
93:
94: if g_debug then
95: hr_utility.set_location(l_proc, 20);
96: end if;
97: --
98: -- Lock obtained by this transaction, updating the concatenated
99: -- segment string should be performed.
117: rollback; -- Added for bug 3578845.
118: end if;
119: --
120: if g_debug then
121: hr_utility.set_location('Leaving:'|| l_proc, 30);
122: end if;
123:
124: Exception
125: When HR_Api.Object_Locked then
129: -- row and is performing the update. Hence the error can
130: -- be suppressed without raising it to the end user.
131: --
132: rollback; -- Added for bug 3578845.
133: hr_utility.set_location('Leaving:'|| l_proc, 40);
134: end update_pgp_concat_segs_auto;
135: begin
136: --
137: if g_debug then
134: end update_pgp_concat_segs_auto;
135: begin
136: --
137: if g_debug then
138: hr_utility.set_location('Entering:'|| l_proc, 10);
139: end if;
140: --
141: -- First find out if it is necessary to update the concatenated
142: -- segment string column. This select is being done to avoid the
156: close csr_chk_pgp;
157: end if;
158: --
159: if g_debug then
160: hr_utility.set_location('Leaving:'|| l_proc, 20);
161: end if;
162: --
163: end update_pgp_concat_segs;
164: --
261: begin
262: -- l_proc := 'REVERSE_TERM_APLN';
263: p_return_status:='S';
264: hr_multi_message.enable_message_list;
265: hr_utility.set_location('Entering:'|| l_proc, 10);
266: -- check whether the Person is an Applicant or an Ex-applicant
267: open c1;
268: fetch c1 into l_date_end ,l_date_recieved, l_application_id;
269: --close c1;
274:
275:
276: --fnd_message.set_name ( 'PER', 'HR_6385_APP_TERM_FUT_CHANGES' );
277: --fnd_message.raise_error ;
278: -- hr_utility.set_message(801,'HR_6385_APP_TERM_FUT_CHANGES' );
279: -- hr_utility.raise_error ;
280: --fnd_message.set_token('ATTRIBUTE_NAME','ERROR');
281: -- hr_multi_message.add (p_associated_column1 => 'ATTR_NAME'
282: -- , p_message_type => hr_multi_message.g_error_msg);
275:
276: --fnd_message.set_name ( 'PER', 'HR_6385_APP_TERM_FUT_CHANGES' );
277: --fnd_message.raise_error ;
278: -- hr_utility.set_message(801,'HR_6385_APP_TERM_FUT_CHANGES' );
279: -- hr_utility.raise_error ;
280: --fnd_message.set_token('ATTRIBUTE_NAME','ERROR');
281: -- hr_multi_message.add (p_associated_column1 => 'ATTR_NAME'
282: -- , p_message_type => hr_multi_message.g_error_msg);
283:
282: -- , p_message_type => hr_multi_message.g_error_msg);
283:
284:
285:
286: hr_utility.set_location('REVERSE_TERM_APLN - p_effective_date:'|| p_effective_date, 10);
287: hr_utility.set_location('REVERSE_TERM_APLN - p_business_group_id:'|| p_business_group_id, 10);
288: hr_utility.set_location('REVERSE_TERM_APLN - p_assignment_id:'|| p_assignment_id, 10);
289: hr_utility.set_location('REVERSE_TERM_APLN - p_person_id:'|| p_person_id, 10);
290: hr_utility.set_location('REVERSE_TERM_APLN - l_date_end:'|| l_date_end, 10);
283:
284:
285:
286: hr_utility.set_location('REVERSE_TERM_APLN - p_effective_date:'|| p_effective_date, 10);
287: hr_utility.set_location('REVERSE_TERM_APLN - p_business_group_id:'|| p_business_group_id, 10);
288: hr_utility.set_location('REVERSE_TERM_APLN - p_assignment_id:'|| p_assignment_id, 10);
289: hr_utility.set_location('REVERSE_TERM_APLN - p_person_id:'|| p_person_id, 10);
290: hr_utility.set_location('REVERSE_TERM_APLN - l_date_end:'|| l_date_end, 10);
291:
284:
285:
286: hr_utility.set_location('REVERSE_TERM_APLN - p_effective_date:'|| p_effective_date, 10);
287: hr_utility.set_location('REVERSE_TERM_APLN - p_business_group_id:'|| p_business_group_id, 10);
288: hr_utility.set_location('REVERSE_TERM_APLN - p_assignment_id:'|| p_assignment_id, 10);
289: hr_utility.set_location('REVERSE_TERM_APLN - p_person_id:'|| p_person_id, 10);
290: hr_utility.set_location('REVERSE_TERM_APLN - l_date_end:'|| l_date_end, 10);
291:
292:
285:
286: hr_utility.set_location('REVERSE_TERM_APLN - p_effective_date:'|| p_effective_date, 10);
287: hr_utility.set_location('REVERSE_TERM_APLN - p_business_group_id:'|| p_business_group_id, 10);
288: hr_utility.set_location('REVERSE_TERM_APLN - p_assignment_id:'|| p_assignment_id, 10);
289: hr_utility.set_location('REVERSE_TERM_APLN - p_person_id:'|| p_person_id, 10);
290: hr_utility.set_location('REVERSE_TERM_APLN - l_date_end:'|| l_date_end, 10);
291:
292:
293: select effective_start_date, effective_end_date,object_version_number into l_asg_start_date,l_asg_end_date,l_ovn
286: hr_utility.set_location('REVERSE_TERM_APLN - p_effective_date:'|| p_effective_date, 10);
287: hr_utility.set_location('REVERSE_TERM_APLN - p_business_group_id:'|| p_business_group_id, 10);
288: hr_utility.set_location('REVERSE_TERM_APLN - p_assignment_id:'|| p_assignment_id, 10);
289: hr_utility.set_location('REVERSE_TERM_APLN - p_person_id:'|| p_person_id, 10);
290: hr_utility.set_location('REVERSE_TERM_APLN - l_date_end:'|| l_date_end, 10);
291:
292:
293: select effective_start_date, effective_end_date,object_version_number into l_asg_start_date,l_asg_end_date,l_ovn
294: from per_all_assignments_f
296: and effective_end_date = (select max(effective_end_date)
297: from per_all_assignments_f
298: where assignment_id = p_assignment_id );
299:
300: hr_utility.set_location('REVERSE_TERM_APLN - l_asg_end_date:'|| l_asg_end_date, 20);
301:
302: select assignment_status_type_id into l_assignment_status_id
303: from per_all_assignments_f
304: where assignment_id = p_assignment_id
303: from per_all_assignments_f
304: where assignment_id = p_assignment_id
305: and effective_end_date = l_asg_end_date ;
306:
307: hr_utility.set_location('REVERSE_TERM_APLN - l_assignment_status_id:'|| l_assignment_status_id, 30);
308:
309: if l_date_end is null then
310: -- then the person is currently an Applicant with any flavour of persontype
311: hr_utility.set_location('REVERSE_TERM_APLN - Entering:'|| l_proc, 40);
307: hr_utility.set_location('REVERSE_TERM_APLN - l_assignment_status_id:'|| l_assignment_status_id, 30);
308:
309: if l_date_end is null then
310: -- then the person is currently an Applicant with any flavour of persontype
311: hr_utility.set_location('REVERSE_TERM_APLN - Entering:'|| l_proc, 40);
312: open c2;
313: fetch c2 into l_dummy;
314: if c2%found then
315: close c2 ;
319: close c2;
320: -- make the data in the other tables ( namely tax records , secondary assignments statuses , letter requests )
321: --to be in sync with the assignments data
322:
323: hr_utility.set_location('Entering:'|| l_proc, 50);
324: hr_assignment.tidy_up_ref_int ( p_assignment_id,
325: 'FUTURE',
326: null,
327: l_asg_end_date,
330: l_cost_warning ) ;
331: -- clean up the letter requests.
332: per_app_asg_pkg.cleanup_letters
333: (p_assignment_id => p_assignment_id);
334: hr_utility.set_location('Entering:'|| l_proc, 60);
335:
336: -- calling the IRC packages to maintain the IRC Assignment Statuses
337:
338:
356: p_validation_start_date =>l_validation_start_date,
357: p_validation_end_date => l_validation_end_date);
358:
359:
360: hr_utility.set_location('Entering:'|| l_proc, 70);
361:
362: update per_all_assignments_f
363: set effective_end_date = l_eot
364: where assignment_id = p_assignment_id
365: and person_id=p_person_id
366: and business_group_id= p_business_group_id
367: and effective_end_date = l_asg_end_date;
368:
369: hr_utility.set_location(' Leaving : '||l_proc ,80);
370:
371:
372: else -- CASE 2
373:
370:
371:
372: else -- CASE 2
373:
374: hr_utility.set_location('Entering:'|| l_proc, 90);
375:
376: -- Person is currently an Ex-Applicant with any falvour of Person Type
377: -- Check if the person is currently hired as Emp with that Assignment if so raise an error
378:
379: PER_APPLICATIONS_PKG .cancel_chk_current_emp(p_person_id => p_person_id ,
380: p_business_group_id => p_business_group_id ,
381: p_date_end => l_date_end );
382:
383: hr_utility.set_location('Entering:'|| l_proc, 100);
384:
385: --Check for Future Person type changes
386:
387: open c3(l_date_end) ;
388: fetch c3 into l_dummy ;
389: if c3%found then
390: close c3 ;
391: fnd_message.set_name ( 'PER', 'HR_6385_APP_TERM_FUT_CHANGES' );
392: hr_utility.set_message(801,'HR_6385_APP_TERM_FUT_CHANGES' );
393: hr_multi_message.add (p_associated_column1 => 'ATTR_NAME'
394: , p_message_type => hr_multi_message.g_error_msg);
395:
396: hr_utility.raise_error ;
392: hr_utility.set_message(801,'HR_6385_APP_TERM_FUT_CHANGES' );
393: hr_multi_message.add (p_associated_column1 => 'ATTR_NAME'
394: , p_message_type => hr_multi_message.g_error_msg);
395:
396: hr_utility.raise_error ;
397: end if;
398: close c3 ;
399:
400: hr_utility.set_location('Entering:'|| l_proc, 110);
396: hr_utility.raise_error ;
397: end if;
398: close c3 ;
399:
400: hr_utility.set_location('Entering:'|| l_proc, 110);
401:
402: -- Maintain the Person data by deleting the Ex-Appl Record and the same with PTU Data.
403:
404: DELETE FROM per_all_people_f papf
406: AND papf.business_group_id + 0 = p_Business_group_id
407: AND papf.effective_start_date = l_date_end + 1;
408: --
409:
410: hr_utility.set_location('REVERSE_TERM_APLN - l_date_end:'|| l_date_end, 120);
411:
412: UPDATE per_all_people_f papf
413: SET papf.effective_end_date = l_eot
414: WHERE papf.person_id = p_person_id
414: WHERE papf.person_id = p_person_id
415: AND papf.BUSINESS_GROUP_ID + 0 = p_Business_group_id
416: AND papf.effective_end_date = l_date_end;
417:
418: hr_utility.set_location('Entering:'|| l_proc, 130);
419:
420: hr_utility.set_location('REVERSE_TERM_APLN - l_date_recieved:'|| l_date_recieved, 140);
421: hr_utility.set_location('REVERSE_TERM_APLN - l_application_id:'|| l_application_id, 140);
422:
416: AND papf.effective_end_date = l_date_end;
417:
418: hr_utility.set_location('Entering:'|| l_proc, 130);
419:
420: hr_utility.set_location('REVERSE_TERM_APLN - l_date_recieved:'|| l_date_recieved, 140);
421: hr_utility.set_location('REVERSE_TERM_APLN - l_application_id:'|| l_application_id, 140);
422:
423: open csr_ptu_row (l_date_recieved );
424: fetch csr_ptu_row into l_ptu_date_end;
417:
418: hr_utility.set_location('Entering:'|| l_proc, 130);
419:
420: hr_utility.set_location('REVERSE_TERM_APLN - l_date_recieved:'|| l_date_recieved, 140);
421: hr_utility.set_location('REVERSE_TERM_APLN - l_application_id:'|| l_application_id, 140);
422:
423: open csr_ptu_row (l_date_recieved );
424: fetch csr_ptu_row into l_ptu_date_end;
425: close csr_ptu_row;
423: open csr_ptu_row (l_date_recieved );
424: fetch csr_ptu_row into l_ptu_date_end;
425: close csr_ptu_row;
426:
427: hr_utility.set_location('REVERSE_TERM_APLN - l_ptu_date_end:'|| l_ptu_date_end, 150);
428:
429: hr_per_type_usage_internal.cancel_person_type_usage
430: (
431: p_effective_date => l_ptu_date_end
432: ,p_person_id => p_person_id
433: ,p_system_person_type => 'EX_APL'
434: );
435:
436: hr_utility.set_location('Entering:'|| l_proc, 160);
437:
438: -- Make a call to the IRC packages to maintain the IRC Assignment Statuses hr_utility.set_location('PER_APPLICATIONS_PKG.maintain_irc_ass_status', 30);
439:
440: irc_asg_status_api.create_irc_asg_status
434: );
435:
436: hr_utility.set_location('Entering:'|| l_proc, 160);
437:
438: -- Make a call to the IRC packages to maintain the IRC Assignment Statuses hr_utility.set_location('PER_APPLICATIONS_PKG.maintain_irc_ass_status', 30);
439:
440: irc_asg_status_api.create_irc_asg_status
441: (p_validate => FALSE,
442: p_assignment_id => p_assignment_id,
445: p_assignment_status_id => l_asg_status_id,
446: p_object_version_number => l_object_version_number,
447: p_status_change_reason => p_status_change_reason);
448:
449: hr_utility.set_location('Entering:'|| l_proc, 170);
450:
451: -- make the data in the other tables ( namely tax records , secondary assignments statuses , letter requests )
452: --to be in sync with the assignments data
453:
458: null,
459: null,
460: l_cost_warning ) ;
461: -- clean up the letter requests.
462: hr_utility.set_location('Entering:'|| l_proc, 180);
463:
464: per_app_asg_pkg.cleanup_letters
465: (p_assignment_id => p_assignment_id);
466:
486: and person_id=p_person_id
487: and business_group_id= p_business_group_id
488: and effective_end_date = l_asg_end_date;
489:
490: hr_utility.set_location('Entering:'|| l_proc, 190);
491: end if;
492: close c1;
493: p_return_status := hr_multi_message.get_return_status_disable;
494: EXCEPTION
495:
496: when hr_multi_message.error_message_exist then
497:
498: p_return_status:='E';
499: hr_utility.set_location(' Leaving:' || l_proc, 30);
500: when others then
501: if c1%isopen then
502: close c1;
503: end if;
501: if c1%isopen then
502: close c1;
503: end if;
504: p_return_status:='E';
505: hr_utility.set_location('Entering:'|| l_proc, 200);
506: --raise;
507: end;
508: --
509: --
569: l_proc varchar2(72) := g_package||'update_scl_concat_segs_auto';
570: --
571: begin
572: if g_debug then
573: hr_utility.set_location('Entering:'|| l_proc, 10);
574: end if;
575: --
576: -- The outer procedure has already establish that an update is
577: -- required. This sub-procedure uses an autonomous transaction
593: if csr_scl_lock%found then
594: close csr_scl_lock;
595:
596: if g_debug then
597: hr_utility.set_location(l_proc, 20);
598: end if;
599: --
600: -- Lock obtained by this transaction, updating the concatenated
601: -- segment string should be performed.
619: rollback; -- Added for bug 3578845.
620: end if;
621: --
622: if g_debug then
623: hr_utility.set_location('Leaving:'|| l_proc, 30);
624: end if;
625:
626: Exception
627: When HR_Api.Object_Locked then
631: -- row and is performing the update. Hence the error can
632: -- be suppressed without raising it to the end user.
633: --
634: rollback; -- Added for bug 3578845.
635: hr_utility.set_location('Leaving:'|| l_proc, 40);
636: end update_scl_concat_segs_auto;
637: begin
638: --
639: if g_debug then
636: end update_scl_concat_segs_auto;
637: begin
638: --
639: if g_debug then
640: hr_utility.set_location('Entering:'|| l_proc, 10);
641: end if;
642: --
643: -- First find out if it is necessary to update the concatenated
644: -- segment string column. This select is being done to avoid the
658: close csr_chk_scl;
659: end if;
660: --
661: if g_debug then
662: hr_utility.set_location('Leaving:'|| l_proc, 20);
663: end if;
664: --
665: end update_scl_concat_segs;
666: -----------------------------------------------------------------------
829:
830: BEGIN
831:
832: if g_debug then
833: hr_utility.set_location('Entering:'|| l_proc, 5);
834: end if;
835:
836: l_old_conc_segments:=p_concat_segments;
837:
884: close c_scl_segments;
885: else
886: l_scl_null_ind := 0;
887: if g_debug then
888: hr_utility.set_location(l_proc, 16);
889: end if;
890: end if;
891:
892:
898: fetch csr_get_soft_coding_keyflex into l_soft_coding_keyflex_id;
899:
900:
901: if g_debug then
902: hr_utility.set_location('SCL ID' ||l_soft_coding_keyflex_id, 10);
903: end if;
904: --
905: if csr_get_soft_coding_keyflex%NOTFOUND then
906: close csr_get_soft_coding_keyflex;
903: end if;
904: --
905: if csr_get_soft_coding_keyflex%NOTFOUND then
906: close csr_get_soft_coding_keyflex;
907: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
908: hr_utility.raise_error;
909: --
910: -- Start of Fix for bug 2643451
911: --
904: --
905: if csr_get_soft_coding_keyflex%NOTFOUND then
906: close csr_get_soft_coding_keyflex;
907: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
908: hr_utility.raise_error;
909: --
910: -- Start of Fix for bug 2643451
911: --
912: else
970: open csr_scl_idsel;
971: fetch csr_scl_idsel into l_flex_num;
972:
973: if g_debug then
974: hr_utility.set_location('SCL_ID_SEL'||l_flex_num, 10);
975: end if;
976: --
977: if csr_scl_idsel%NOTFOUND then
978: close csr_scl_idsel;
1009: or l_scl_segment30 is not null
1010: or p_concat_segments is not null
1011: then
1012: --
1013: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1014: hr_utility.set_message_token('PROCEDURE', l_proc);
1015: hr_utility.set_message_token('STEP','6');
1016: hr_utility.raise_error;
1017: end if;
1010: or p_concat_segments is not null
1011: then
1012: --
1013: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1014: hr_utility.set_message_token('PROCEDURE', l_proc);
1015: hr_utility.set_message_token('STEP','6');
1016: hr_utility.raise_error;
1017: end if;
1018: else -- csr_scl_idsel is found
1011: then
1012: --
1013: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1014: hr_utility.set_message_token('PROCEDURE', l_proc);
1015: hr_utility.set_message_token('STEP','6');
1016: hr_utility.raise_error;
1017: end if;
1018: else -- csr_scl_idsel is found
1019: close csr_scl_idsel;
1012: --
1013: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
1014: hr_utility.set_message_token('PROCEDURE', l_proc);
1015: hr_utility.set_message_token('STEP','6');
1016: hr_utility.raise_error;
1017: end if;
1018: else -- csr_scl_idsel is found
1019: close csr_scl_idsel;
1020: --
1064: --
1065: -- update the combinations column
1066: --
1067: if g_debug then
1068: hr_utility.set_location(l_proc, 17);
1069: end if;
1070: update_scl_concat_segs
1071: (p_soft_coding_keyflex_id => l_soft_coding_keyflex_id
1072: ,p_concatenated_segments => l_concatenated_segments
1190: BEGIN
1191: --
1192: if g_debug then
1193: l_proc := g_package||'last_apl_asg';
1194: hr_utility.set_location('Entering:'||l_proc,10);
1195: end if;
1196: --
1197: -- If another applicant assignment exists on this date
1198: -- then this is NOT the last applicant assignment
1205: l_last_apl_asg := csr_last_apl_asg%NOTFOUND;
1206: CLOSE csr_last_apl_asg;
1207: --
1208: if g_debug then
1209: hr_utility.set_location(' Leaving:'||l_proc,10);
1210: end if;
1211: --
1212: RETURN(l_last_apl_asg);
1213: --
1254: --
1255: begin
1256: if g_debug then
1257: l_proc := g_package||'activate_emp_asg';
1258: hr_utility.set_location('Entering:'|| l_proc, 5);
1259: end if;
1260: --
1261: --
1262: l_object_version_number := p_object_version_number;
1270: --
1271: savepoint activate_emp_asg;
1272: --
1273: if g_debug then
1274: hr_utility.set_location(l_proc, 10);
1275: end if;
1276: --
1277: -- Validation in addition to Table Handlers
1278: --
1314: ,p_effective_end_date => l_effective_end_date
1315: );
1316: --
1317: if g_debug then
1318: hr_utility.set_location(l_proc, 20);
1319: end if;
1320: --
1321: -- Start of API User Hook for the after hook of activate_emp_asg.
1322: --
1354: p_effective_start_date := l_effective_start_date;
1355: p_effective_end_date := l_effective_end_date;
1356: --
1357: if g_debug then
1358: hr_utility.set_location(' Leaving:'||l_proc, 100);
1359: end if;
1360: exception
1361: when hr_api.validate_enabled then
1362: --
1422: --
1423: begin
1424: if g_debug then
1425: l_proc := g_package||'activate_cwk_asg';
1426: hr_utility.set_location('Entering:'|| l_proc, 5);
1427: end if;
1428: --
1429: --
1430: l_object_version_number := p_object_version_number;
1438: --
1439: savepoint activate_cwk_asg;
1440: --
1441: if g_debug then
1442: hr_utility.set_location(l_proc, 10);
1443: end if;
1444: --
1445: -- Validation in addition to Table Handlers
1446: --
1482: ,p_effective_end_date => l_effective_end_date
1483: );
1484: --
1485: if g_debug then
1486: hr_utility.set_location(l_proc, 20);
1487: end if;
1488: --
1489: -- Start of API User Hook for the after hook of activate_cwk_asg.
1490: --
1522: p_effective_start_date := l_effective_start_date;
1523: p_effective_end_date := l_effective_end_date;
1524: --
1525: if g_debug then
1526: hr_utility.set_location(' Leaving:'||l_proc, 100);
1527: end if;
1528: exception
1529: when hr_api.validate_enabled then
1530: --
1634: and tpe.end_date;
1635: --
1636: begin
1637: if g_debug then
1638: hr_utility.set_location('Entering:'|| l_proc, 1);
1639: end if;
1640: --
1641: l_assignment_status_type_id := p_assignment_status_type_id;
1642: l_object_version_number := p_object_version_number;
1646: --
1647: savepoint actual_termination_cwk_asg;
1648: --
1649: if g_debug then
1650: hr_utility.set_location(l_proc, 10);
1651: end if;
1652: --
1653: -- Validation in addition to Table Handlers
1654: --
1666: ,p_argument_value => l_actual_termination_date
1667: );
1668: --
1669: if g_debug then
1670: hr_utility.set_location(l_proc, 20);
1671: end if;
1672: --
1673: open csr_get_asg_details;
1674: fetch csr_get_asg_details
1681: if csr_get_asg_details%NOTFOUND
1682: then
1683: --
1684: if g_debug then
1685: hr_utility.set_location(l_proc, 30);
1686: end if;
1687: --
1688: close csr_get_asg_details;
1689: --
1686: end if;
1687: --
1688: close csr_get_asg_details;
1689: --
1690: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1691: hr_utility.raise_error;
1692: end if;
1693: --
1694: close csr_get_asg_details;
1687: --
1688: close csr_get_asg_details;
1689: --
1690: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
1691: hr_utility.raise_error;
1692: end if;
1693: --
1694: close csr_get_asg_details;
1695: --
1713: --
1714: -- End of API User Hook for the before hook of actual_termination_cwk_asg.
1715: --
1716: if g_debug then
1717: hr_utility.set_location(l_proc, 40);
1718: end if;
1719: --
1720: -- The assignment must not be a primary assignment.
1721: --
1722: if l_primary_flag <> 'N'
1723: then
1724: --
1725: if g_debug then
1726: hr_utility.set_location(l_proc, 50);
1727: end if;
1728: --
1729: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
1730: hr_utility.raise_error;
1725: if g_debug then
1726: hr_utility.set_location(l_proc, 50);
1727: end if;
1728: --
1729: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
1730: hr_utility.raise_error;
1731: end if;
1732: --
1733: if g_debug then
1726: hr_utility.set_location(l_proc, 50);
1727: end if;
1728: --
1729: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
1730: hr_utility.raise_error;
1731: end if;
1732: --
1733: if g_debug then
1734: hr_utility.set_location(l_proc, 60);
1730: hr_utility.raise_error;
1731: end if;
1732: --
1733: if g_debug then
1734: hr_utility.set_location(l_proc, 60);
1735: end if;
1736: --
1737: -- The assignment must be a contingent worker assignment.
1738: --
1739: if l_assignment_type <> 'C'
1740: then
1741: --
1742: if g_debug then
1743: hr_utility.set_location(l_proc, 70);
1744: end if;
1745: --
1746: hr_utility.set_message('PER','HR_289616_ASG_NOT_CWK');
1747: hr_utility.raise_error;
1742: if g_debug then
1743: hr_utility.set_location(l_proc, 70);
1744: end if;
1745: --
1746: hr_utility.set_message('PER','HR_289616_ASG_NOT_CWK');
1747: hr_utility.raise_error;
1748: end if;
1749: --
1750: if g_debug then
1743: hr_utility.set_location(l_proc, 70);
1744: end if;
1745: --
1746: hr_utility.set_message('PER','HR_289616_ASG_NOT_CWK');
1747: hr_utility.raise_error;
1748: end if;
1749: --
1750: if g_debug then
1751: hr_utility.set_location(l_proc, 80);
1747: hr_utility.raise_error;
1748: end if;
1749: --
1750: if g_debug then
1751: hr_utility.set_location(l_proc, 80);
1752: end if;
1753: --
1754: -- The assignment status type must not already be TERM_CWK_ASSIGN on
1755: -- or after the actual termination date.
1761: if csr_invalid_term_assign%FOUND
1762: then
1763: --
1764: if g_debug then
1765: hr_utility.set_location(l_proc, 90);
1766: end if;
1767: --
1768: close csr_invalid_term_assign;
1769: --
1766: end if;
1767: --
1768: close csr_invalid_term_assign;
1769: --
1770: hr_utility.set_message('PER','HR_289617_ASG_ALREADY_TERM');
1771: hr_utility.raise_error;
1772: end if;
1773: --
1774: close csr_invalid_term_assign;
1767: --
1768: close csr_invalid_term_assign;
1769: --
1770: hr_utility.set_message('PER','HR_289617_ASG_ALREADY_TERM');
1771: hr_utility.raise_error;
1772: end if;
1773: --
1774: close csr_invalid_term_assign;
1775: --
1773: --
1774: close csr_invalid_term_assign;
1775: --
1776: if g_debug then
1777: hr_utility.set_location(l_proc, 100);
1778: end if;
1779: --
1780: -- Process Logic
1781: --
1789: ,p_expected_system_status => 'TERM_CWK_ASG'
1790: );
1791: --
1792: if g_debug then
1793: hr_utility.set_location(l_proc, 110);
1794: end if;
1795: --
1796: -- Derive the last standard process date.
1797: --
1801: -- if l_legislation_code = 'US'
1802: -- then
1803: --
1804: if g_debug then
1805: hr_utility.set_location(l_proc, 120);
1806: end if;
1807: --
1808: -- l_last_standard_process_date := l_actual_termination_date;
1809: -- else
1808: -- l_last_standard_process_date := l_actual_termination_date;
1809: -- else
1810: --
1811: if g_debug then
1812: hr_utility.set_location(l_proc, 130);
1813: end if;
1814: --
1815: if l_payroll_id is not null
1816: then
1815: if l_payroll_id is not null
1816: then
1817: --
1818: if g_debug then
1819: hr_utility.set_location(l_proc, 140);
1820: end if;
1821: --
1822: -- Assignment is assigned to a payroll, so set the last standard process
1823: -- to date to the payroll's period end date as of the actual termination
1829: --
1830: if csr_get_period_end_date%NOTFOUND then
1831: --
1832: if g_debug then
1833: hr_utility.set_location(l_proc, 150);
1834: end if;
1835: --
1836: -- No payroll period found for the actual termination date.
1837: --
1836: -- No payroll period found for the actual termination date.
1837: --
1838: close csr_get_period_end_date;
1839: --
1840: hr_utility.set_message(801,'HR_51003_ASG_INV_NO_TERM_PRD');
1841: hr_utility.raise_error;
1842: end if;
1843: --
1844: close csr_get_period_end_date;
1837: --
1838: close csr_get_period_end_date;
1839: --
1840: hr_utility.set_message(801,'HR_51003_ASG_INV_NO_TERM_PRD');
1841: hr_utility.raise_error;
1842: end if;
1843: --
1844: close csr_get_period_end_date;
1845: --
1843: --
1844: close csr_get_period_end_date;
1845: --
1846: if g_debug then
1847: hr_utility.set_location(l_proc, 160);
1848: end if;
1849: else
1850: --
1851: if g_debug then
1848: end if;
1849: else
1850: --
1851: if g_debug then
1852: hr_utility.set_location(l_proc, 170);
1853: end if;
1854: --
1855: -- Assignment is not assigned to a payroll, so set the last standard
1856: -- process date to the actual termination date.
1859: end if;
1860: -- end if;
1861: --
1862: if g_debug then
1863: hr_utility.set_location(l_proc, 180);
1864: end if;
1865: --
1866: -- Call the business support process to update assignment and maintain the
1867: -- element entries. We call this procedure for contingent workers
1880: ,p_pay_proposal_warning => l_pay_proposal_warning
1881: );
1882: --
1883: if g_debug then
1884: hr_utility.set_location(l_proc, 190);
1885: end if;
1886: --
1887: -- When in validation only mode raise the Validate_Enabled exception
1888: --
1928: p_pay_proposal_warning := l_pay_proposal_warning;
1929: p_object_version_number := l_object_version_number;
1930: --
1931: if g_debug then
1932: hr_utility.set_location(' Leaving:'||l_proc, 200);
1933: end if;
1934: exception
1935: when hr_api.validate_enabled then
1936: --
2036:
2037: --
2038: begin
2039: if g_debug then
2040: hr_utility.set_location('Entering:'|| l_proc, 1);
2041: end if;
2042: --
2043: l_object_version_number := p_object_version_number;
2044: l_final_process_date := trunc(p_final_process_date);
2047: --
2048: savepoint final_process_cwk_asg;
2049: --
2050: if g_debug then
2051: hr_utility.set_location(l_proc, 10);
2052: end if;
2053: --
2054: -- Validation in addition to Table Handlers
2055: --
2067: ,p_argument_value => l_final_process_date
2068: );
2069: --
2070: if g_debug then
2071: hr_utility.set_location(l_proc, 20);
2072: end if;
2073: --
2074: open csr_get_derived_details;
2075: fetch csr_get_derived_details
2079: if csr_get_derived_details%NOTFOUND
2080: then
2081: --
2082: if g_debug then
2083: hr_utility.set_location(l_proc, 30);
2084: end if;
2085: --
2086: close csr_get_derived_details;
2087: --
2084: end if;
2085: --
2086: close csr_get_derived_details;
2087: --
2088: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
2089: hr_utility.raise_error;
2090: end if;
2091: --
2092: close csr_get_derived_details;
2085: --
2086: close csr_get_derived_details;
2087: --
2088: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
2089: hr_utility.raise_error;
2090: end if;
2091: --
2092: close csr_get_derived_details;
2093: --
2108: end;
2109: --
2110: --
2111: if g_debug then
2112: hr_utility.set_location(l_proc, 40);
2113: end if;
2114: --
2115: -- The assignment must not be a primary assignment.
2116: --
2117: if l_primary_flag <> 'N'
2118: then
2119: --
2120: if g_debug then
2121: hr_utility.set_location(l_proc, 50);
2122: end if;
2123: --
2124: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
2125: hr_utility.raise_error;
2120: if g_debug then
2121: hr_utility.set_location(l_proc, 50);
2122: end if;
2123: --
2124: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
2125: hr_utility.raise_error;
2126: end if;
2127: --
2128: if g_debug then
2121: hr_utility.set_location(l_proc, 50);
2122: end if;
2123: --
2124: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
2125: hr_utility.raise_error;
2126: end if;
2127: --
2128: if g_debug then
2129: hr_utility.set_location(l_proc, 60);
2125: hr_utility.raise_error;
2126: end if;
2127: --
2128: if g_debug then
2129: hr_utility.set_location(l_proc, 60);
2130: end if;
2131: --
2132: -- The assignment must be an contingent worker assignment.
2133: --
2134: if l_assignment_type <> 'C'
2135: then
2136: --
2137: if g_debug then
2138: hr_utility.set_location(l_proc, 70);
2139: end if;
2140: --
2141: hr_utility.set_message('PER','HR_289616_ASG_NOT_CWK');
2142: hr_utility.raise_error;
2137: if g_debug then
2138: hr_utility.set_location(l_proc, 70);
2139: end if;
2140: --
2141: hr_utility.set_message('PER','HR_289616_ASG_NOT_CWK');
2142: hr_utility.raise_error;
2143: end if;
2144:
2145: -- Ensure that the assignment has not been terminated previously
2138: hr_utility.set_location(l_proc, 70);
2139: end if;
2140: --
2141: hr_utility.set_message('PER','HR_289616_ASG_NOT_CWK');
2142: hr_utility.raise_error;
2143: end if;
2144:
2145: -- Ensure that the assignment has not been terminated previously
2146:
2154: if l_max_asg_end_date <> hr_api.g_eot
2155: then
2156: --
2157: if g_debug then
2158: hr_utility.set_location(l_proc, 90);
2159: end if;
2160: --
2161: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
2162: hr_utility.raise_error;
2157: if g_debug then
2158: hr_utility.set_location(l_proc, 90);
2159: end if;
2160: --
2161: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
2162: hr_utility.raise_error;
2163: end if;
2164: --
2165: if g_debug then
2158: hr_utility.set_location(l_proc, 90);
2159: end if;
2160: --
2161: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
2162: hr_utility.raise_error;
2163: end if;
2164: --
2165: if g_debug then
2166: hr_utility.set_location(l_proc, 80);
2162: hr_utility.raise_error;
2163: end if;
2164: --
2165: if g_debug then
2166: hr_utility.set_location(l_proc, 80);
2167: end if;
2168: --
2169: -- Ensure that the the final process date is on or after the actual
2170: -- termination date by checking that the assignment status is
2179: if l_actual_termination_date is null
2180: then
2181: --
2182: if g_debug then
2183: hr_utility.set_location(l_proc, 90);
2184: end if;
2185: --
2186: hr_utility.set_message(801,'HR_51007_ASG_INV_NOT_ACT_TERM');
2187: hr_utility.raise_error;
2182: if g_debug then
2183: hr_utility.set_location(l_proc, 90);
2184: end if;
2185: --
2186: hr_utility.set_message(801,'HR_51007_ASG_INV_NOT_ACT_TERM');
2187: hr_utility.raise_error;
2188: end if;
2189:
2190: if l_final_process_date < l_actual_termination_date then
2183: hr_utility.set_location(l_proc, 90);
2184: end if;
2185: --
2186: hr_utility.set_message(801,'HR_51007_ASG_INV_NOT_ACT_TERM');
2187: hr_utility.raise_error;
2188: end if;
2189:
2190: if l_final_process_date < l_actual_termination_date then
2191:
2189:
2190: if l_final_process_date < l_actual_termination_date then
2191:
2192: if g_debug then
2193: hr_utility.set_location(l_proc, 95);
2194: end if;
2195:
2196: -- This error message has been set temporarily
2197:
2194: end if;
2195:
2196: -- This error message has been set temporarily
2197:
2198: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
2199: hr_utility.raise_error;
2200: end if;
2201: --
2202: --
2195:
2196: -- This error message has been set temporarily
2197:
2198: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
2199: hr_utility.raise_error;
2200: end if;
2201: --
2202: --
2203: if g_debug then
2200: end if;
2201: --
2202: --
2203: if g_debug then
2204: hr_utility.set_location(l_proc, 100);
2205: end if;
2206: --
2207: -- Process Logic
2208: --
2222: ,p_entries_changed_warning => l_entries_changed_warning
2223: );
2224: --
2225: if g_debug then
2226: hr_utility.set_location(l_proc, 110);
2227: end if;
2228: --
2229: -- Start of API User Hook for the after hook of final_process_cwk_asg.
2230: --
2265: p_object_version_number := l_object_version_number;
2266: p_org_now_no_manager_warning := l_org_now_no_manager_warning;
2267: --
2268: if g_debug then
2269: hr_utility.set_location(' Leaving:'||l_proc, 300);
2270: end if;
2271: exception
2272: when hr_api.validate_enabled then
2273: --
2337: --
2338: begin
2339: if g_debug then
2340: l_proc := g_package||'suspend_cwk_asg';
2341: hr_utility.set_location('Entering:'|| l_proc, 5);
2342: end if;
2343: --
2344: --
2345: l_object_version_number := p_object_version_number;
2348: --
2349: savepoint suspend_cwk_asg;
2350: --
2351: if g_debug then
2352: hr_utility.set_location(l_proc, 10);
2353: end if;
2354: --
2355: -- Initialise local variable - added 25-Aug-97. RMF.
2356: --
2396: ,p_effective_end_date => l_effective_end_date
2397: );
2398: --
2399: if g_debug then
2400: hr_utility.set_location(l_proc, 20);
2401: end if;
2402: --
2403: -- Start of API User Hook for the after hook of suspend_cwk_asg.
2404: --
2436: p_effective_start_date := l_effective_start_date;
2437: p_effective_end_date := l_effective_end_date;
2438: --
2439: if g_debug then
2440: hr_utility.set_location(' Leaving:'||l_proc, 100);
2441: end if;
2442: exception
2443: when hr_api.validate_enabled then
2444: --
2544: and tpe.end_date;
2545: --
2546: begin
2547: if g_debug then
2548: hr_utility.set_location('Entering:'|| l_proc, 1);
2549: end if;
2550: --
2551: l_assignment_status_type_id := p_assignment_status_type_id;
2552: l_object_version_number := p_object_version_number;
2556: --
2557: savepoint actual_termination_emp_asg;
2558: --
2559: if g_debug then
2560: hr_utility.set_location(l_proc, 10);
2561: end if;
2562: --
2563: -- Validation in addition to Table Handlers
2564: --
2576: ,p_argument_value => l_actual_termination_date
2577: );
2578: --
2579: if g_debug then
2580: hr_utility.set_location(l_proc, 20);
2581: end if;
2582: --
2583: open csr_get_asg_details;
2584: fetch csr_get_asg_details
2591: if csr_get_asg_details%NOTFOUND
2592: then
2593: --
2594: if g_debug then
2595: hr_utility.set_location(l_proc, 30);
2596: end if;
2597: --
2598: close csr_get_asg_details;
2599: --
2596: end if;
2597: --
2598: close csr_get_asg_details;
2599: --
2600: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
2601: hr_utility.raise_error;
2602: end if;
2603: --
2604: close csr_get_asg_details;
2597: --
2598: close csr_get_asg_details;
2599: --
2600: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
2601: hr_utility.raise_error;
2602: end if;
2603: --
2604: close csr_get_asg_details;
2605: --
2623: --
2624: -- End of API User Hook for the before hook of actual_termination_emp_asg.
2625: --
2626: if g_debug then
2627: hr_utility.set_location(l_proc, 40);
2628: end if;
2629: --
2630: -- The assignment must not be a primary assignment.
2631: --
2632: if l_primary_flag <> 'N'
2633: then
2634: --
2635: if g_debug then
2636: hr_utility.set_location(l_proc, 50);
2637: end if;
2638: --
2639: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
2640: hr_utility.raise_error;
2635: if g_debug then
2636: hr_utility.set_location(l_proc, 50);
2637: end if;
2638: --
2639: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
2640: hr_utility.raise_error;
2641: end if;
2642: --
2643: if g_debug then
2636: hr_utility.set_location(l_proc, 50);
2637: end if;
2638: --
2639: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
2640: hr_utility.raise_error;
2641: end if;
2642: --
2643: if g_debug then
2644: hr_utility.set_location(l_proc, 60);
2640: hr_utility.raise_error;
2641: end if;
2642: --
2643: if g_debug then
2644: hr_utility.set_location(l_proc, 60);
2645: end if;
2646: --
2647: -- The assignment must be an employee assignment.
2648: --
2649: if l_assignment_type <> 'E'
2650: then
2651: --
2652: if g_debug then
2653: hr_utility.set_location(l_proc, 70);
2654: end if;
2655: --
2656: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
2657: hr_utility.raise_error;
2652: if g_debug then
2653: hr_utility.set_location(l_proc, 70);
2654: end if;
2655: --
2656: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
2657: hr_utility.raise_error;
2658: end if;
2659: --
2660: if g_debug then
2653: hr_utility.set_location(l_proc, 70);
2654: end if;
2655: --
2656: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
2657: hr_utility.raise_error;
2658: end if;
2659: --
2660: if g_debug then
2661: hr_utility.set_location(l_proc, 80);
2657: hr_utility.raise_error;
2658: end if;
2659: --
2660: if g_debug then
2661: hr_utility.set_location(l_proc, 80);
2662: end if;
2663: --
2664: -- The assignment status type must not already be TERM_ASSIGN on or after
2665: -- the actual termination date.
2671: if csr_invalid_term_assign%FOUND
2672: then
2673: --
2674: if g_debug then
2675: hr_utility.set_location(l_proc, 90);
2676: end if;
2677: --
2678: close csr_invalid_term_assign;
2679: --
2676: end if;
2677: --
2678: close csr_invalid_term_assign;
2679: --
2680: hr_utility.set_message(800,'PER_52108_ASG_INV_TERM_ASSIGN');
2681: hr_utility.raise_error;
2682: end if;
2683: --
2684: close csr_invalid_term_assign;
2677: --
2678: close csr_invalid_term_assign;
2679: --
2680: hr_utility.set_message(800,'PER_52108_ASG_INV_TERM_ASSIGN');
2681: hr_utility.raise_error;
2682: end if;
2683: --
2684: close csr_invalid_term_assign;
2685: --
2683: --
2684: close csr_invalid_term_assign;
2685: --
2686: if g_debug then
2687: hr_utility.set_location(l_proc, 100);
2688: end if;
2689: --
2690: -- Process Logic
2691: --
2699: ,p_expected_system_status => 'TERM_ASSIGN'
2700: );
2701: --
2702: if g_debug then
2703: hr_utility.set_location(l_proc, 110);
2704: end if;
2705: --
2706: -- Derive the last standard process date.
2707: --
2711: -- if l_legislation_code = 'US'
2712: -- then
2713: --
2714: if g_debug then
2715: hr_utility.set_location(l_proc, 120);
2716: end if;
2717: --
2718: -- l_last_standard_process_date := l_actual_termination_date;
2719: -- else
2718: -- l_last_standard_process_date := l_actual_termination_date;
2719: -- else
2720: --
2721: if g_debug then
2722: hr_utility.set_location(l_proc, 130);
2723: end if;
2724: --
2725: if l_payroll_id is not null
2726: then
2725: if l_payroll_id is not null
2726: then
2727: --
2728: if g_debug then
2729: hr_utility.set_location(l_proc, 140);
2730: end if;
2731: --
2732: -- Assignment is assigned to a payroll, so set the last standard process
2733: -- to date to the payroll's period end date as of the actual termination
2739: --
2740: if csr_get_period_end_date%NOTFOUND then
2741: --
2742: if g_debug then
2743: hr_utility.set_location(l_proc, 150);
2744: end if;
2745: --
2746: -- No payroll period found for the actual termination date.
2747: --
2746: -- No payroll period found for the actual termination date.
2747: --
2748: close csr_get_period_end_date;
2749: --
2750: hr_utility.set_message(801,'HR_51003_ASG_INV_NO_TERM_PRD');
2751: hr_utility.raise_error;
2752: end if;
2753: --
2754: close csr_get_period_end_date;
2747: --
2748: close csr_get_period_end_date;
2749: --
2750: hr_utility.set_message(801,'HR_51003_ASG_INV_NO_TERM_PRD');
2751: hr_utility.raise_error;
2752: end if;
2753: --
2754: close csr_get_period_end_date;
2755: --
2753: --
2754: close csr_get_period_end_date;
2755: --
2756: if g_debug then
2757: hr_utility.set_location(l_proc, 160);
2758: end if;
2759: else
2760: --
2761: if g_debug then
2758: end if;
2759: else
2760: --
2761: if g_debug then
2762: hr_utility.set_location(l_proc, 170);
2763: end if;
2764: --
2765: -- Assignment is not assigned to a payroll, so set the last standard
2766: -- process date to the actual termination date.
2769: end if;
2770: -- end if;
2771: --
2772: if g_debug then
2773: hr_utility.set_location(l_proc, 180);
2774: end if;
2775: --
2776: -- Call the business support process to update assignment and maintain the
2777: -- element entries.
2789: ,p_pay_proposal_warning => l_pay_proposal_warning
2790: );
2791: --
2792: if g_debug then
2793: hr_utility.set_location(l_proc, 190);
2794: end if;
2795: --
2796: -- When in validation only mode raise the Validate_Enabled exception
2797: --
2837: p_pay_proposal_warning := l_pay_proposal_warning;
2838: p_object_version_number := l_object_version_number;
2839: --
2840: if g_debug then
2841: hr_utility.set_location(' Leaving:'||l_proc, 200);
2842: end if;
2843: exception
2844: when hr_api.validate_enabled then
2845: --
3084: begin
3085: --
3086: if g_debug then
3087: l_proc := g_package||'create_secondary_emp_asg';
3088: hr_utility.set_location('Entering:'|| l_proc, 5);
3089: end if;
3090: --
3091: l_assignment_number := p_assignment_number;
3092: --
3278: p_group_name := l_group_name;
3279: p_other_manager_warning := l_other_manager_warning;
3280: --
3281: if g_debug then
3282: hr_utility.set_location(' Leaving:'||l_proc, 50);
3283: end if;
3284: end create_secondary_emp_asg;
3285: --
3286: -- ----------------------------------------------------------------------------
3514: begin
3515: --
3516: if g_debug then
3517: l_proc := g_package||'create_secondary_emp_asg';
3518: hr_utility.set_location('Entering:'|| l_proc, 5);
3519: end if;
3520: --
3521: l_assignment_number := p_assignment_number;
3522: --
3715: p_group_name := l_group_name;
3716: p_other_manager_warning := l_other_manager_warning;
3717: --
3718: if g_debug then
3719: hr_utility.set_location(' Leaving:'||l_proc, 50);
3720: end if;
3721: end create_secondary_emp_asg;
3722: --
3723: -- ----------------------------------------------------------------------------
3958: --
3959: begin
3960: --
3961: if g_debug then
3962: hr_utility.set_location('Entering:'|| l_proc, 5);
3963: end if;
3964: --
3965: l_assignment_number := p_assignment_number;
3966: --
4163: p_hourly_salaried_warning := l_hourly_salaried_warning;
4164: --
4165: --
4166: if g_debug then
4167: hr_utility.set_location(' Leaving:'||l_proc, 50);
4168: end if;
4169: end create_secondary_emp_asg;
4170: --
4171: -- ----------------------------------------------------------------------------
4662: --
4663: begin
4664: --
4665: if g_debug then
4666: hr_utility.set_location('Entering:'|| l_proc, 5);
4667: end if;
4668: --
4669: -- Issue a savepoint.
4670: --
4691: -- per_cagr_grades_def
4692: --
4693: --
4694: if g_debug then
4695: hr_utility.set_location(l_proc, 20);
4696: end if;
4697: --
4698: if l_people_group_id is not null
4699: then
5000: --
5001: end;
5002: --
5003: if g_debug then
5004: hr_utility.set_location(l_proc, 10);
5005: end if;
5006: --
5007: -- Validation in addition to Table Handlers
5008: --
5033: --
5034: close csr_get_derived_details;
5035: --
5036: if g_debug then
5037: hr_utility.set_location(l_proc, 15);
5038: end if;
5039: --
5040: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
5041: hr_utility.raise_error;
5036: if g_debug then
5037: hr_utility.set_location(l_proc, 15);
5038: end if;
5039: --
5040: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
5041: hr_utility.raise_error;
5042: end if;
5043: --
5044: close csr_get_derived_details;
5037: hr_utility.set_location(l_proc, 15);
5038: end if;
5039: --
5040: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
5041: hr_utility.raise_error;
5042: end if;
5043: --
5044: close csr_get_derived_details;
5045: --
5043: --
5044: close csr_get_derived_details;
5045: --
5046: if g_debug then
5047: hr_utility.set_location(l_proc, 20);
5048: end if;
5049: --
5050: -- Process Logic
5051: --
5059: --
5060: close csr_get_period_of_service;
5061: --
5062: if g_debug then
5063: hr_utility.set_location(l_proc, 25);
5064: end if;
5065: --
5066: hr_utility.set_message(801,'HR_7436_ASG_NO_PRIM_ASS');
5067: hr_utility.raise_error;
5062: if g_debug then
5063: hr_utility.set_location(l_proc, 25);
5064: end if;
5065: --
5066: hr_utility.set_message(801,'HR_7436_ASG_NO_PRIM_ASS');
5067: hr_utility.raise_error;
5068: end if;
5069: --
5070: close csr_get_period_of_service;
5063: hr_utility.set_location(l_proc, 25);
5064: end if;
5065: --
5066: hr_utility.set_message(801,'HR_7436_ASG_NO_PRIM_ASS');
5067: hr_utility.raise_error;
5068: end if;
5069: --
5070: close csr_get_period_of_service;
5071: if g_debug then
5068: end if;
5069: --
5070: close csr_get_period_of_service;
5071: if g_debug then
5072: hr_utility.set_location(l_proc, 26);
5073: end if;
5074: --
5075: -- insert the profile options and effective date for the flexfield
5076: -- validation to work
5088: open csr_grp_idsel;
5089: fetch csr_grp_idsel into l_grp_flex_num;
5090: if csr_grp_idsel%NOTFOUND then
5091: close csr_grp_idsel;
5092: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5093: hr_utility.set_message_token('PROCEDURE', l_proc);
5094: hr_utility.set_message_token('STEP','5');
5095: hr_utility.raise_error;
5096: else
5089: fetch csr_grp_idsel into l_grp_flex_num;
5090: if csr_grp_idsel%NOTFOUND then
5091: close csr_grp_idsel;
5092: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5093: hr_utility.set_message_token('PROCEDURE', l_proc);
5094: hr_utility.set_message_token('STEP','5');
5095: hr_utility.raise_error;
5096: else
5097: close csr_grp_idsel;
5090: if csr_grp_idsel%NOTFOUND then
5091: close csr_grp_idsel;
5092: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5093: hr_utility.set_message_token('PROCEDURE', l_proc);
5094: hr_utility.set_message_token('STEP','5');
5095: hr_utility.raise_error;
5096: else
5097: close csr_grp_idsel;
5098: end if;
5091: close csr_grp_idsel;
5092: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5093: hr_utility.set_message_token('PROCEDURE', l_proc);
5094: hr_utility.set_message_token('STEP','5');
5095: hr_utility.raise_error;
5096: else
5097: close csr_grp_idsel;
5098: end if;
5099: if g_debug then
5096: else
5097: close csr_grp_idsel;
5098: end if;
5099: if g_debug then
5100: hr_utility.set_location(l_proc, 27);
5101: end if;
5102: --
5103: --
5104: -- Bug 2359997 - if key flex parameters have a value then derive segment
5148: if csr_scl_idsel%NOTFOUND
5149: then
5150: close csr_scl_idsel;
5151: if g_debug then
5152: hr_utility.set_location(l_proc, 28);
5153: end if;
5154: --
5155: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5156: hr_utility.set_message_token('PROCEDURE', l_proc);
5151: if g_debug then
5152: hr_utility.set_location(l_proc, 28);
5153: end if;
5154: --
5155: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5156: hr_utility.set_message_token('PROCEDURE', l_proc);
5157: hr_utility.set_message_token('STEP','10');
5158: hr_utility.raise_error;
5159: else
5152: hr_utility.set_location(l_proc, 28);
5153: end if;
5154: --
5155: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5156: hr_utility.set_message_token('PROCEDURE', l_proc);
5157: hr_utility.set_message_token('STEP','10');
5158: hr_utility.raise_error;
5159: else
5160: close csr_scl_idsel;
5153: end if;
5154: --
5155: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5156: hr_utility.set_message_token('PROCEDURE', l_proc);
5157: hr_utility.set_message_token('STEP','10');
5158: hr_utility.raise_error;
5159: else
5160: close csr_scl_idsel;
5161: --
5154: --
5155: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
5156: hr_utility.set_message_token('PROCEDURE', l_proc);
5157: hr_utility.set_message_token('STEP','10');
5158: hr_utility.raise_error;
5159: else
5160: close csr_scl_idsel;
5161: --
5162: --
5160: close csr_scl_idsel;
5161: --
5162: --
5163: if g_debug then
5164: hr_utility.set_location(l_proc, 30);
5165: end if;
5166: --
5167: -- Insert or select the soft_coding_keyflex_id
5168: --
5263: ,p_concat_segments_out => l_group_name
5264: );
5265: --
5266: if g_debug then
5267: hr_utility.set_location(l_proc, 35);
5268: end if;
5269: --
5270: end if; -- bug 2359997 end if people group id null
5271: --
5311: --
5312: end if; -- l_cag_null_ind = 0 bug 2359997
5313: --
5314: if g_debug then
5315: hr_utility.set_location(l_proc, 35);
5316: end if;
5317: --
5318: --
5319: -- Insert secondary assignment
5420: hr_security_internal.add_to_person_list(l_effective_date,l_assignment_id);
5421: end if;
5422: --
5423: if g_debug then
5424: hr_utility.set_location(l_proc, 40);
5425: end if;
5426: --
5427: begin
5428: --
5670: hr_kflex_utility.unset_session_date
5671: (p_session_id => l_session_id);
5672: --
5673: if g_debug then
5674: hr_utility.set_location(' Leaving:'||l_proc, 50);
5675: end if;
5676: exception
5677: when hr_api.validate_enabled then
5678: --
5984:
5985: BEGIN
5986: --
5987: if g_debug then
5988: hr_utility.set_location('Entering:'|| l_proc, 5);
5989: end if;
5990: --
5991: -- Issue a savepoint.
5992: --
6156: --
6157: END;
6158: --
6159: if g_debug then
6160: hr_utility.set_location(l_proc, 10);
6161: end if;
6162: --
6163: -- Validation in addition to Table Handlers
6164: --
6189: --
6190: close csr_get_derived_details;
6191: --
6192: if g_debug then
6193: hr_utility.set_location(l_proc, 15);
6194: end if;
6195: --
6196: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
6197: hr_utility.raise_error;
6192: if g_debug then
6193: hr_utility.set_location(l_proc, 15);
6194: end if;
6195: --
6196: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
6197: hr_utility.raise_error;
6198: --
6199: end if;
6200: --
6193: hr_utility.set_location(l_proc, 15);
6194: end if;
6195: --
6196: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
6197: hr_utility.raise_error;
6198: --
6199: end if;
6200: --
6201: close csr_get_derived_details;
6200: --
6201: close csr_get_derived_details;
6202: --
6203: if g_debug then
6204: hr_utility.set_location(l_proc, 20);
6205: end if;
6206: --
6207: -- Process Logic
6208: --
6215: --
6216: CLOSE csr_get_period_of_placement;
6217: --
6218: if g_debug then
6219: hr_utility.set_location(l_proc, 25);
6220: end if;
6221: --
6222: hr_utility.set_message(801,'HR_7436_ASG_NO_PRIM_ASS');
6223: hr_utility.raise_error;
6218: if g_debug then
6219: hr_utility.set_location(l_proc, 25);
6220: end if;
6221: --
6222: hr_utility.set_message(801,'HR_7436_ASG_NO_PRIM_ASS');
6223: hr_utility.raise_error;
6224: --
6225: END IF;
6226: --
6219: hr_utility.set_location(l_proc, 25);
6220: end if;
6221: --
6222: hr_utility.set_message(801,'HR_7436_ASG_NO_PRIM_ASS');
6223: hr_utility.raise_error;
6224: --
6225: END IF;
6226: --
6227: CLOSE csr_get_period_of_placement;
6226: --
6227: CLOSE csr_get_period_of_placement;
6228: --
6229: if g_debug then
6230: hr_utility.set_location(l_proc, 26);
6231: end if;
6232: --
6233: -- insert the profile options and effective date for the flexfield
6234: -- validation to work
6249: if csr_grp_idsel%NOTFOUND then
6250: --
6251: close csr_grp_idsel;
6252: --
6253: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6254: hr_utility.set_message_token('PROCEDURE', l_proc);
6255: hr_utility.set_message_token('STEP','5');
6256: hr_utility.raise_error;
6257: --
6250: --
6251: close csr_grp_idsel;
6252: --
6253: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6254: hr_utility.set_message_token('PROCEDURE', l_proc);
6255: hr_utility.set_message_token('STEP','5');
6256: hr_utility.raise_error;
6257: --
6258: else
6251: close csr_grp_idsel;
6252: --
6253: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6254: hr_utility.set_message_token('PROCEDURE', l_proc);
6255: hr_utility.set_message_token('STEP','5');
6256: hr_utility.raise_error;
6257: --
6258: else
6259: --
6252: --
6253: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6254: hr_utility.set_message_token('PROCEDURE', l_proc);
6255: hr_utility.set_message_token('STEP','5');
6256: hr_utility.raise_error;
6257: --
6258: else
6259: --
6260: close csr_grp_idsel;
6261: --
6262: end if;
6263: --
6264: if g_debug then
6265: hr_utility.set_location(l_proc, 27);
6266: end if;
6267: --
6268: if p_scl_segment1 is not null
6269: or p_scl_segment2 is not null
6304: --
6305: close csr_scl_idsel;
6306: --
6307: if g_debug then
6308: hr_utility.set_location(l_proc, 28);
6309: end if;
6310: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6311: hr_utility.set_message_token('PROCEDURE', l_proc);
6312: hr_utility.set_message_token('STEP','10');
6306: --
6307: if g_debug then
6308: hr_utility.set_location(l_proc, 28);
6309: end if;
6310: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6311: hr_utility.set_message_token('PROCEDURE', l_proc);
6312: hr_utility.set_message_token('STEP','10');
6313: hr_utility.raise_error;
6314: --
6307: if g_debug then
6308: hr_utility.set_location(l_proc, 28);
6309: end if;
6310: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6311: hr_utility.set_message_token('PROCEDURE', l_proc);
6312: hr_utility.set_message_token('STEP','10');
6313: hr_utility.raise_error;
6314: --
6315: else
6308: hr_utility.set_location(l_proc, 28);
6309: end if;
6310: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6311: hr_utility.set_message_token('PROCEDURE', l_proc);
6312: hr_utility.set_message_token('STEP','10');
6313: hr_utility.raise_error;
6314: --
6315: else
6316: --
6309: end if;
6310: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
6311: hr_utility.set_message_token('PROCEDURE', l_proc);
6312: hr_utility.set_message_token('STEP','10');
6313: hr_utility.raise_error;
6314: --
6315: else
6316: --
6317: close csr_scl_idsel;
6316: --
6317: close csr_scl_idsel;
6318: --
6319: if g_debug then
6320: hr_utility.set_location(l_proc, 30);
6321: end if;
6322: --
6323: -- Insert or select the soft_coding_keyflex_id
6324: --
6412: ,p_concat_segments_out => l_group_name
6413: );
6414: --
6415: if g_debug then
6416: hr_utility.set_location(l_proc, 35);
6417: end if;
6418:
6419: --
6420: -- Default the PO Header if the line is passed in and the
6465:
6466: END IF;
6467:
6468: if g_debug then
6469: hr_utility.set_location(l_proc, 37);
6470: end if;
6471:
6472: --
6473: -- update the combinations column
6600: --
6601: end if;
6602: --
6603: if g_debug then
6604: hr_utility.set_location(l_proc, 40);
6605: end if;
6606: --
6607: BEGIN
6608: --
6795: hr_kflex_utility.unset_session_date
6796: (p_session_id => l_session_id);
6797: --
6798: if g_debug then
6799: hr_utility.set_location(' Leaving:'||l_proc, 999);
6800: end if;
6801: --
6802: EXCEPTION
6803: --
6875:
6876: BEGIN
6877:
6878: IF g_debug THEN
6879: hr_utility.set_location('Entering: ' || l_proc, 10);
6880: END IF;
6881:
6882: --
6883: -- If the header is not null, fetch the Supplier info.
6884: --
6885: IF p_po_header_id IS NOT NULL THEN
6886:
6887: IF g_debug THEN
6888: hr_utility.set_location(l_proc, 20);
6889: END IF;
6890:
6891: OPEN csr_get_supplier_info;
6892: FETCH csr_get_supplier_info INTO p_vendor_id
6895:
6896: END IF;
6897:
6898: IF g_debug THEN
6899: hr_utility.set_location('Leaving: ' || l_proc, 999);
6900: END IF;
6901:
6902: END get_supplier_info_for_po;
6903: --
6922:
6923: BEGIN
6924:
6925: IF g_debug THEN
6926: hr_utility.set_location('Entering: ' || l_proc, 10);
6927: END IF;
6928:
6929: --
6930: -- If the Supplier Site is not null, fetch the Supplier.
6931: --
6932: IF p_vendor_site_id IS NOT NULL THEN
6933:
6934: IF g_debug THEN
6935: hr_utility.set_location(l_proc, 20);
6936: END IF;
6937:
6938: OPEN csr_get_supplier;
6939: FETCH csr_get_supplier INTO l_vendor_id;
6941:
6942: END IF;
6943:
6944: IF g_debug THEN
6945: hr_utility.set_location('Leaving: ' || l_proc, 999);
6946: END IF;
6947:
6948: RETURN l_vendor_id;
6949:
6970:
6971: BEGIN
6972:
6973: IF g_debug THEN
6974: hr_utility.set_location('Entering: ' || l_proc, 10);
6975: END IF;
6976:
6977: --
6978: -- If the PO Line is not null, fetch the PO (header).
6979: --
6980: IF p_po_line_id IS NOT NULL THEN
6981:
6982: IF g_debug THEN
6983: hr_utility.set_location(l_proc, 20);
6984: END IF;
6985:
6986: OPEN csr_get_po;
6987: FETCH csr_get_po INTO l_po_header_id;
6989:
6990: END IF;
6991:
6992: IF g_debug THEN
6993: hr_utility.set_location('Leaving: ' || l_proc, 999);
6994: END IF;
6995:
6996: RETURN l_po_header_id;
6997:
7018:
7019: BEGIN
7020:
7021: IF g_debug THEN
7022: hr_utility.set_location('Entering: ' || l_proc, 10);
7023: END IF;
7024:
7025: --
7026: -- If the PO Line is not null, fetch the Job.
7027: --
7028: IF p_po_line_id IS NOT NULL THEN
7029:
7030: IF g_debug THEN
7031: hr_utility.set_location(l_proc, 20);
7032: END IF;
7033:
7034: OPEN csr_get_job;
7035: FETCH csr_get_job INTO l_job_id;
7037:
7038: END IF;
7039:
7040: IF g_debug THEN
7041: hr_utility.set_location('Leaving: ' || l_proc, 999);
7042: END IF;
7043:
7044: RETURN l_job_id;
7045:
7192: --
7193: begin
7194: if g_debug then
7195: l_proc := g_package||'create_gb_secondary_emp_asg';
7196: hr_utility.set_location('Entering:'|| l_proc, 10);
7197: end if;
7198: --
7199: -- Initialise local variable
7200: --
7208: fetch csr_legislation
7209: into l_legislation_code;
7210: if csr_legislation%notfound then
7211: close csr_legislation;
7212: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7213: hr_utility.set_message_token('LEG_CODE', 'GB');
7214: hr_utility.raise_error;
7215: end if;
7216: close csr_legislation;
7209: into l_legislation_code;
7210: if csr_legislation%notfound then
7211: close csr_legislation;
7212: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7213: hr_utility.set_message_token('LEG_CODE', 'GB');
7214: hr_utility.raise_error;
7215: end if;
7216: close csr_legislation;
7217: --
7210: if csr_legislation%notfound then
7211: close csr_legislation;
7212: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7213: hr_utility.set_message_token('LEG_CODE', 'GB');
7214: hr_utility.raise_error;
7215: end if;
7216: close csr_legislation;
7217: --
7218: if g_debug then
7215: end if;
7216: close csr_legislation;
7217: --
7218: if g_debug then
7219: hr_utility.set_location(l_proc, 20);
7220: end if;
7221: --
7222: -- Call create_secondary_emp_asg
7223: --
7342: ,p_supervisor_assignment_id => p_supervisor_assignment_id
7343: );
7344: --
7345: if g_debug then
7346: hr_utility.set_location(' Leaving:'||l_proc, 30);
7347: end if;
7348: --
7349: end create_gb_secondary_emp_asg;
7350:
7501: --
7502: begin
7503: if g_debug then
7504: l_proc := g_package||'create_gb_secondary_emp_asg';
7505: hr_utility.set_location('Entering:'|| l_proc, 10);
7506: end if;
7507: --
7508: -- Initialise local variable
7509: --
7517: fetch csr_legislation
7518: into l_legislation_code;
7519: if csr_legislation%notfound then
7520: close csr_legislation;
7521: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7522: hr_utility.set_message_token('LEG_CODE', 'GB');
7523: hr_utility.raise_error;
7524: end if;
7525: close csr_legislation;
7518: into l_legislation_code;
7519: if csr_legislation%notfound then
7520: close csr_legislation;
7521: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7522: hr_utility.set_message_token('LEG_CODE', 'GB');
7523: hr_utility.raise_error;
7524: end if;
7525: close csr_legislation;
7526: --
7519: if csr_legislation%notfound then
7520: close csr_legislation;
7521: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7522: hr_utility.set_message_token('LEG_CODE', 'GB');
7523: hr_utility.raise_error;
7524: end if;
7525: close csr_legislation;
7526: --
7527: if g_debug then
7524: end if;
7525: close csr_legislation;
7526: --
7527: if g_debug then
7528: hr_utility.set_location(l_proc, 20);
7529: end if;
7530: --
7531: -- Call create_secondary_emp_asg
7532: --
7654: ,p_supervisor_assignment_id => p_supervisor_assignment_id
7655: );
7656: --
7657: if g_debug then
7658: hr_utility.set_location(' Leaving:'||l_proc, 30);
7659: end if;
7660: --
7661: end create_gb_secondary_emp_asg;
7662:
7823: --
7824: begin
7825: if g_debug then
7826: l_proc := g_package||'create_secondary_us_emp_asg';
7827: hr_utility.set_location('Entering:'|| l_proc, 10);
7828: end if;
7829: --
7830: -- Initialise local variable
7831: --
7839: fetch csr_legislation
7840: into l_legislation_code;
7841: if csr_legislation%notfound then
7842: close csr_legislation;
7843: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7844: hr_utility.set_message_token('LEG_CODE', 'US');
7845: hr_utility.raise_error;
7846: end if;
7847: close csr_legislation;
7840: into l_legislation_code;
7841: if csr_legislation%notfound then
7842: close csr_legislation;
7843: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7844: hr_utility.set_message_token('LEG_CODE', 'US');
7845: hr_utility.raise_error;
7846: end if;
7847: close csr_legislation;
7848: --
7841: if csr_legislation%notfound then
7842: close csr_legislation;
7843: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
7844: hr_utility.set_message_token('LEG_CODE', 'US');
7845: hr_utility.raise_error;
7846: end if;
7847: close csr_legislation;
7848: --
7849: --
7983: ,p_supervisor_assignment_id => p_supervisor_assignment_id
7984: );
7985: --
7986: if g_debug then
7987: hr_utility.set_location(' Leaving:'||l_proc, 30);
7988: end if;
7989: --
7990: end create_us_secondary_emp_asg;
7991:
8156: --
8157: begin
8158: if g_debug then
8159: l_proc := g_package||'create_secondary_us_emp_asg';
8160: hr_utility.set_location('Entering:'|| l_proc, 10);
8161: end if;
8162: --
8163: -- Initialise local variable
8164: --
8172: fetch csr_legislation
8173: into l_legislation_code;
8174: if csr_legislation%notfound then
8175: close csr_legislation;
8176: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
8177: hr_utility.set_message_token('LEG_CODE', 'US');
8178: hr_utility.raise_error;
8179: end if;
8180: close csr_legislation;
8173: into l_legislation_code;
8174: if csr_legislation%notfound then
8175: close csr_legislation;
8176: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
8177: hr_utility.set_message_token('LEG_CODE', 'US');
8178: hr_utility.raise_error;
8179: end if;
8180: close csr_legislation;
8181: --
8174: if csr_legislation%notfound then
8175: close csr_legislation;
8176: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
8177: hr_utility.set_message_token('LEG_CODE', 'US');
8178: hr_utility.raise_error;
8179: end if;
8180: close csr_legislation;
8181: --
8182: --
8319: ,p_supervisor_assignment_id => p_supervisor_assignment_id
8320: );
8321: --
8322: if g_debug then
8323: hr_utility.set_location(' Leaving:'||l_proc, 30);
8324: end if;
8325: --
8326: end create_us_secondary_emp_asg;
8327:
8394:
8395: --
8396: begin
8397: if g_debug then
8398: hr_utility.set_location('Entering:'|| l_proc, 1);
8399: end if;
8400: --
8401: l_object_version_number := p_object_version_number;
8402: l_final_process_date := trunc(p_final_process_date);
8405: --
8406: savepoint final_process_emp_asg;
8407: --
8408: if g_debug then
8409: hr_utility.set_location(l_proc, 10);
8410: end if;
8411: --
8412: -- Validation in addition to Table Handlers
8413: --
8425: ,p_argument_value => l_final_process_date
8426: );
8427: --
8428: if g_debug then
8429: hr_utility.set_location(l_proc, 20);
8430: end if;
8431: --
8432: open csr_get_derived_details;
8433: fetch csr_get_derived_details
8437: if csr_get_derived_details%NOTFOUND
8438: then
8439: --
8440: if g_debug then
8441: hr_utility.set_location(l_proc, 30);
8442: end if;
8443: --
8444: close csr_get_derived_details;
8445: --
8442: end if;
8443: --
8444: close csr_get_derived_details;
8445: --
8446: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
8447: hr_utility.raise_error;
8448: end if;
8449: --
8450: close csr_get_derived_details;
8443: --
8444: close csr_get_derived_details;
8445: --
8446: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
8447: hr_utility.raise_error;
8448: end if;
8449: --
8450: close csr_get_derived_details;
8451: --
8466: end;
8467: --
8468: --
8469: if g_debug then
8470: hr_utility.set_location(l_proc, 40);
8471: end if;
8472: --
8473: -- The assignment must not be a primary assignment.
8474: --
8475: if l_primary_flag <> 'N'
8476: then
8477: --
8478: if g_debug then
8479: hr_utility.set_location(l_proc, 50);
8480: end if;
8481: --
8482: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
8483: hr_utility.raise_error;
8478: if g_debug then
8479: hr_utility.set_location(l_proc, 50);
8480: end if;
8481: --
8482: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
8483: hr_utility.raise_error;
8484: end if;
8485: --
8486: if g_debug then
8479: hr_utility.set_location(l_proc, 50);
8480: end if;
8481: --
8482: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
8483: hr_utility.raise_error;
8484: end if;
8485: --
8486: if g_debug then
8487: hr_utility.set_location(l_proc, 60);
8483: hr_utility.raise_error;
8484: end if;
8485: --
8486: if g_debug then
8487: hr_utility.set_location(l_proc, 60);
8488: end if;
8489: --
8490: -- The assignment must be an employee assignment.
8491: --
8492: if l_assignment_type <> 'E'
8493: then
8494: --
8495: if g_debug then
8496: hr_utility.set_location(l_proc, 70);
8497: end if;
8498: --
8499: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
8500: hr_utility.raise_error;
8495: if g_debug then
8496: hr_utility.set_location(l_proc, 70);
8497: end if;
8498: --
8499: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
8500: hr_utility.raise_error;
8501: end if;
8502:
8503: -- Ensure that the assignment has not been terminated previously
8496: hr_utility.set_location(l_proc, 70);
8497: end if;
8498: --
8499: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
8500: hr_utility.raise_error;
8501: end if;
8502:
8503: -- Ensure that the assignment has not been terminated previously
8504:
8512: if l_max_asg_end_date <> hr_api.g_eot
8513: then
8514: --
8515: if g_debug then
8516: hr_utility.set_location(l_proc, 90);
8517: end if;
8518: --
8519: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
8520: hr_utility.raise_error;
8515: if g_debug then
8516: hr_utility.set_location(l_proc, 90);
8517: end if;
8518: --
8519: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
8520: hr_utility.raise_error;
8521: end if;
8522: --
8523: if g_debug then
8516: hr_utility.set_location(l_proc, 90);
8517: end if;
8518: --
8519: hr_utility.set_message(801,'HR_7962_PDS_INV_FP_CHANGE');
8520: hr_utility.raise_error;
8521: end if;
8522: --
8523: if g_debug then
8524: hr_utility.set_location(l_proc, 80);
8520: hr_utility.raise_error;
8521: end if;
8522: --
8523: if g_debug then
8524: hr_utility.set_location(l_proc, 80);
8525: end if;
8526: --
8527: -- Ensure that the the final process date is on or after the actual
8528: -- termination date by checking that the assignment status is TERM_ASSIGN for
8537: if l_actual_termination_date is null
8538: then
8539: --
8540: if g_debug then
8541: hr_utility.set_location(l_proc, 90);
8542: end if;
8543: --
8544: hr_utility.set_message(801,'HR_51007_ASG_INV_NOT_ACT_TERM');
8545: hr_utility.raise_error;
8540: if g_debug then
8541: hr_utility.set_location(l_proc, 90);
8542: end if;
8543: --
8544: hr_utility.set_message(801,'HR_51007_ASG_INV_NOT_ACT_TERM');
8545: hr_utility.raise_error;
8546: end if;
8547:
8548: if l_final_process_date < l_actual_termination_date then
8541: hr_utility.set_location(l_proc, 90);
8542: end if;
8543: --
8544: hr_utility.set_message(801,'HR_51007_ASG_INV_NOT_ACT_TERM');
8545: hr_utility.raise_error;
8546: end if;
8547:
8548: if l_final_process_date < l_actual_termination_date then
8549:
8547:
8548: if l_final_process_date < l_actual_termination_date then
8549:
8550: if g_debug then
8551: hr_utility.set_location(l_proc, 95);
8552: end if;
8553:
8554: -- This error message has been set temporarily
8555:
8552: end if;
8553:
8554: -- This error message has been set temporarily
8555:
8556: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
8557: hr_utility.raise_error;
8558: end if;
8559: --
8560: --
8553:
8554: -- This error message has been set temporarily
8555:
8556: hr_utility.set_message(801,'HR_7963_PDS_INV_FP_BEFORE_ATT');
8557: hr_utility.raise_error;
8558: end if;
8559: --
8560: --
8561: if g_debug then
8558: end if;
8559: --
8560: --
8561: if g_debug then
8562: hr_utility.set_location(l_proc, 100);
8563: end if;
8564: --
8565: -- Process Logic
8566: --
8579: ,p_entries_changed_warning => l_entries_changed_warning
8580: );
8581: --
8582: if g_debug then
8583: hr_utility.set_location(l_proc, 110);
8584: end if;
8585: --
8586: -- Start of API User Hook for the after hook of final_process_emp_asg.
8587: --
8622: p_object_version_number := l_object_version_number;
8623: p_org_now_no_manager_warning := l_org_now_no_manager_warning;
8624: --
8625: if g_debug then
8626: hr_utility.set_location(' Leaving:'||l_proc, 300);
8627: end if;
8628: exception
8629: when hr_api.validate_enabled then
8630: --
8699: --
8700: begin
8701: if g_debug then
8702: l_proc := g_package||'suspend_emp_asg';
8703: hr_utility.set_location('Entering:'|| l_proc, 5);
8704: end if;
8705: --
8706: --
8707: l_object_version_number := p_object_version_number;
8710: --
8711: savepoint suspend_emp_asg;
8712: --
8713: if g_debug then
8714: hr_utility.set_location(l_proc, 10);
8715: end if;
8716: --
8717: -- Initialise local variable - added 25-Aug-97. RMF.
8718: --
8758: ,p_effective_end_date => l_effective_end_date
8759: );
8760: --
8761: if g_debug then
8762: hr_utility.set_location(l_proc, 20);
8763: end if;
8764: --
8765: -- Start of API User Hook for the after hook of suspend_emp_asg.
8766: --
8798: p_effective_start_date := l_effective_start_date;
8799: p_effective_end_date := l_effective_end_date;
8800: --
8801: if g_debug then
8802: hr_utility.set_location(' Leaving:'||l_proc, 100);
8803: end if;
8804: exception
8805: when hr_api.validate_enabled then
8806: --
8974: l_object_version_number := p_object_version_number;
8975: --
8976: if g_debug then
8977: l_proc := g_package||'update_emp_asg';
8978: hr_utility.set_location('Entering:'|| l_proc, 5);
8979: end if;
8980: ---- Call the new code
8981: hr_assignment_api.update_emp_asg
8982: (p_validate => p_validate
9118: p_other_manager_warning := l_other_manager_warning;
9119:
9120: --
9121: if g_debug then
9122: hr_utility.set_location(' Leaving:'||l_proc, 30);
9123: end if;
9124: end update_emp_asg;
9125: -- ----------------------------------------------------------------------------
9126: -- |--------------------------< update_emp_asg >--NEW--------------------------|
9299: l_object_version_number := p_object_version_number;
9300: --
9301: if g_debug then
9302: l_proc := g_package||'update_emp_asg';
9303: hr_utility.set_location('Entering:'|| l_proc, 5);
9304: end if;
9305: ---- Call the new code
9306: -- Added notice_period through to job_post_source_name in this call as they
9307: -- were missing
9453: p_no_managers_warning := l_no_managers_warning;
9454: p_other_manager_warning := l_other_manager_warning;
9455: --
9456: if g_debug then
9457: hr_utility.set_location(' Leaving:'||l_proc, 30);
9458: end if;
9459: end update_emp_asg;
9460: -- ----------------------------------------------------------------------------
9461: -- |-------------------------< update_emp_asg >--NEW2-------------------------|
9650: --
9651: l_object_version_number := p_object_version_number;
9652:
9653: if g_debug then
9654: hr_utility.set_location(' Entering:'||l_proc, 10);
9655: end if;
9656: --
9657: -- Call the new code
9658: -- Added p_gsp_post_process_warning
9809: p_hourly_salaried_warning := l_hourly_salaried_warning;
9810: --
9811: --
9812: if g_debug then
9813: hr_utility.set_location(' Leaving:'||l_proc, 30);
9814: end if;
9815: end update_emp_asg;
9816: -- ----------------------------------------------------------------------------
9817: -- |-------------------------< update_emp_asg >--NEW3-------------------------|
10190: --
10191: begin
10192: --
10193: if g_debug then
10194: hr_utility.set_location('Entering:'|| l_proc, 5);
10195: end if;
10196: if g_debug then
10197: hr_utility.set_location('XXX'||l_proc||'/'||p_concat_segments,6);
10198: end if;
10193: if g_debug then
10194: hr_utility.set_location('Entering:'|| l_proc, 5);
10195: end if;
10196: if g_debug then
10197: hr_utility.set_location('XXX'||l_proc||'/'||p_concat_segments,6);
10198: end if;
10199: --
10200: -- Truncate date and date_probation_end values,
10201: -- effectively removing time element.
10431: --
10432: end;
10433: --
10434: if g_debug then
10435: hr_utility.set_location(l_proc, 10);
10436: end if;
10437: --
10438: -- Validation in addition to Table Handlers
10439: --
10458: , l_location_id;
10459: --
10460: if csr_get_assignment_type%NOTFOUND then
10461: close csr_get_assignment_type;
10462: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
10463: hr_utility.raise_error;
10464: end if;
10465: --
10466: close csr_get_assignment_type;
10459: --
10460: if csr_get_assignment_type%NOTFOUND then
10461: close csr_get_assignment_type;
10462: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
10463: hr_utility.raise_error;
10464: end if;
10465: --
10466: close csr_get_assignment_type;
10467: --
10465: --
10466: close csr_get_assignment_type;
10467: --
10468: if g_debug then
10469: hr_utility.set_location(l_proc, 20);
10470: end if;
10471: --
10472: if l_assignment_type <> 'E' then
10473: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
10469: hr_utility.set_location(l_proc, 20);
10470: end if;
10471: --
10472: if l_assignment_type <> 'E' then
10473: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
10474: hr_utility.raise_error;
10475: end if;
10476: --
10477: if g_debug then
10470: end if;
10471: --
10472: if l_assignment_type <> 'E' then
10473: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
10474: hr_utility.raise_error;
10475: end if;
10476: --
10477: if g_debug then
10478: hr_utility.set_location(l_proc, 21);
10474: hr_utility.raise_error;
10475: end if;
10476: --
10477: if g_debug then
10478: hr_utility.set_location(l_proc, 21);
10479: end if;
10480: --
10481: --added validation for bug 1867720
10482: --
10497: close csr_new_asg_status;
10498: end if;
10499: --
10500: if g_debug then
10501: hr_utility.set_location(l_proc, 21);
10502: end if;
10503: --
10504: -- insert the profile options and effective date for the flexfield
10505: -- validation to work
10529: into l_soft_coding_keyflex_id;
10530: --
10531: if csr_get_soft_coding_keyflex%NOTFOUND then
10532: close csr_get_soft_coding_keyflex;
10533: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
10534: hr_utility.raise_error;
10535: end if;
10536: --
10537: close csr_get_soft_coding_keyflex;
10530: --
10531: if csr_get_soft_coding_keyflex%NOTFOUND then
10532: close csr_get_soft_coding_keyflex;
10533: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
10534: hr_utility.raise_error;
10535: end if;
10536: --
10537: close csr_get_soft_coding_keyflex;
10538: --
10613: or l_scl_segment30 is not null
10614: or p_concat_segments is not null
10615: then
10616: --
10617: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
10618: hr_utility.set_message_token('PROCEDURE', l_proc);
10619: hr_utility.set_message_token('STEP','5');
10620: hr_utility.raise_error;
10621: end if;
10614: or p_concat_segments is not null
10615: then
10616: --
10617: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
10618: hr_utility.set_message_token('PROCEDURE', l_proc);
10619: hr_utility.set_message_token('STEP','5');
10620: hr_utility.raise_error;
10621: end if;
10622: else -- csr_scl_idsel is found
10615: then
10616: --
10617: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
10618: hr_utility.set_message_token('PROCEDURE', l_proc);
10619: hr_utility.set_message_token('STEP','5');
10620: hr_utility.raise_error;
10621: end if;
10622: else -- csr_scl_idsel is found
10623: close csr_scl_idsel;
10616: --
10617: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
10618: hr_utility.set_message_token('PROCEDURE', l_proc);
10619: hr_utility.set_message_token('STEP','5');
10620: hr_utility.raise_error;
10621: end if;
10622: else -- csr_scl_idsel is found
10623: close csr_scl_idsel;
10624: --
10727: --End of fix for Bug 2622747
10728: --
10729:
10730: if g_debug then
10731: hr_utility.set_location(l_proc, 23);
10732: end if;
10733: --
10734: --
10735: -- Update or select the cagr_grade_def_id
10797: ,p_concatenated_segments => l_cagr_concatenated_segments
10798: );
10799: --
10800: if g_debug then
10801: hr_utility.set_location(l_proc, 24);
10802: end if;
10803: --
10804: end if; -- l_cagr_grade_def_id is null
10805: --
10803: --
10804: end if; -- l_cagr_grade_def_id is null
10805: --
10806: if g_debug then
10807: hr_utility.set_location(l_proc, 25);
10808: end if;
10809:
10810: -- fix for bug 6595592 starts here.
10811: if (p_projected_assignment_end = hr_api.g_date) then -- fix for 6862763
10906: ,p_supervisor_assignment_id => p_supervisor_assignment_id
10907: );
10908: --
10909: if g_debug then
10910: hr_utility.set_location(l_proc, 25);
10911: end if;
10912: --
10913: begin
10914: --
11097: hr_kflex_utility.unset_session_date
11098: (p_session_id => l_session_id);
11099: --
11100: if g_debug then
11101: hr_utility.set_location(' Leaving:'||l_proc, 30);
11102: end if;
11103: exception
11104: when hr_api.validate_enabled then
11105: --
11379: --
11380: BEGIN
11381: --
11382: if g_debug then
11383: hr_utility.set_location('Entering:'|| l_proc, 5);
11384: end if;
11385: --
11386: -- Truncate date and date_probation_end values, effectively removing time element.
11387: --
11510: --
11511: END;
11512: --
11513: if g_debug then
11514: hr_utility.set_location(l_proc, 10);
11515: end if;
11516: --
11517: -- Validation in addition to Table Handlers
11518: --
11539: IF csr_get_assignment_type%NOTFOUND THEN
11540: --
11541: CLOSE csr_get_assignment_type;
11542: --
11543: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
11544: hr_utility.raise_error;
11545: --
11546: END IF;
11547: --
11540: --
11541: CLOSE csr_get_assignment_type;
11542: --
11543: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
11544: hr_utility.raise_error;
11545: --
11546: END IF;
11547: --
11548: CLOSE csr_get_assignment_type;
11547: --
11548: CLOSE csr_get_assignment_type;
11549: --
11550: if g_debug then
11551: hr_utility.set_location(l_proc, 20);
11552: end if;
11553: --
11554: IF l_assignment_type <> 'C' THEN
11555: --
11552: end if;
11553: --
11554: IF l_assignment_type <> 'C' THEN
11555: --
11556: hr_utility.set_message(801,'HR_289575_ASG_ASG_NOT_EMP');
11557: hr_utility.raise_error;
11558: --
11559: END IF;
11560: --
11553: --
11554: IF l_assignment_type <> 'C' THEN
11555: --
11556: hr_utility.set_message(801,'HR_289575_ASG_ASG_NOT_EMP');
11557: hr_utility.raise_error;
11558: --
11559: END IF;
11560: --
11561: if g_debug then
11558: --
11559: END IF;
11560: --
11561: if g_debug then
11562: hr_utility.set_location(l_proc, 21);
11563: end if;
11564: --
11565: --added validation for bug 1867720
11566: --
11674: or p_scl_segment29 is not null
11675: or p_scl_segment30 is not null
11676: or p_concat_segments is not null then
11677: --
11678: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
11679: hr_utility.set_message_token('PROCEDURE', l_proc);
11680: hr_utility.set_message_token('STEP','5');
11681: hr_utility.raise_error;
11682: --
11675: or p_scl_segment30 is not null
11676: or p_concat_segments is not null then
11677: --
11678: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
11679: hr_utility.set_message_token('PROCEDURE', l_proc);
11680: hr_utility.set_message_token('STEP','5');
11681: hr_utility.raise_error;
11682: --
11683: END IF;
11676: or p_concat_segments is not null then
11677: --
11678: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
11679: hr_utility.set_message_token('PROCEDURE', l_proc);
11680: hr_utility.set_message_token('STEP','5');
11681: hr_utility.raise_error;
11682: --
11683: END IF;
11684: --
11677: --
11678: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
11679: hr_utility.set_message_token('PROCEDURE', l_proc);
11680: hr_utility.set_message_token('STEP','5');
11681: hr_utility.raise_error;
11682: --
11683: END IF;
11684: --
11685: ELSE
11739: --
11740: END IF;
11741:
11742: if g_debug then
11743: hr_utility.set_location(l_proc, 22);
11744: end if;
11745:
11746: --
11747: -- Default the PO Header if the line is passed in and the
11787: --end code for bug 6961562
11788:
11789:
11790: if g_debug then
11791: hr_utility.set_location(l_proc, 23);
11792: end if;
11793:
11794: /*
11795: --
11793:
11794: /*
11795: --
11796: if g_debug then
11797: hr_utility.set_location(l_proc, 24);
11798: end if;
11799: --
11800: -- Update or select the cagr_grade_def_id
11801: --
11853: ,p_concatenated_segments => l_cagr_concatenated_segments);
11854: --
11855: */
11856: if g_debug then
11857: hr_utility.set_location(l_proc, 25);
11858: end if;
11859: --
11860: -- Update assignment.
11861: --
11955: ,p_supervisor_assignment_id => p_supervisor_assignment_id
11956: );
11957: --
11958: if g_debug then
11959: hr_utility.set_location(l_proc, 26);
11960: end if;
11961: --
11962: BEGIN
11963: --
12105: hr_kflex_utility.unset_session_date
12106: (p_session_id => l_session_id);
12107: --
12108: if g_debug then
12109: hr_utility.set_location(' Leaving:'||l_proc, 999);
12110: end if;
12111: --
12112: EXCEPTION
12113: --
12322: -- End of 3553286
12323: BEGIN
12324: --
12325: if g_debug then
12326: hr_utility.set_location('Entering:'|| l_proc, 1);
12327: end if;
12328: --
12329: IF p_called_from_mass_update THEN
12330: --
12328: --
12329: IF p_called_from_mass_update THEN
12330: --
12331: if g_debug then
12332: hr_utility.set_location(l_proc,40);
12333: end if;
12334: --
12335: l_dt_update_mode := 'CORRECTION';
12336: l_new_dt_update_mode := p_datetrack_update_mode;
12337: --
12338: ELSE
12339: --
12340: if g_debug then
12341: hr_utility.set_location(l_proc,50);
12342: end if;
12343: --
12344: l_dt_update_mode := p_datetrack_update_mode;
12345: l_new_dt_update_mode := p_datetrack_update_mode;
12370: IF csr_get_assignment_type%NOTFOUND THEN
12371: --
12372: CLOSE csr_get_assignment_type;
12373: --
12374: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
12375: hr_utility.raise_error;
12376: --
12377: END IF;
12378: --
12371: --
12372: CLOSE csr_get_assignment_type;
12373: --
12374: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
12375: hr_utility.raise_error;
12376: --
12377: END IF;
12378: --
12379: CLOSE csr_get_assignment_type;
12378: --
12379: CLOSE csr_get_assignment_type;
12380: --
12381: if g_debug then
12382: hr_utility.set_location(l_proc, 20);
12383: end if;
12384: --
12385: IF l_assignment_type <> 'C' THEN
12386: --
12383: end if;
12384: --
12385: IF l_assignment_type <> 'C' THEN
12386: --
12387: hr_utility.set_message(801,'HR_289575_ASG_ASG_NOT_EMP');
12388: hr_utility.raise_error;
12389: --
12390: END IF;
12391: --
12384: --
12385: IF l_assignment_type <> 'C' THEN
12386: --
12387: hr_utility.set_message(801,'HR_289575_ASG_ASG_NOT_EMP');
12388: hr_utility.raise_error;
12389: --
12390: END IF;
12391: --
12392: BEGIN
12449: --
12450: END;
12451: --
12452: if g_debug then
12453: hr_utility.set_location(l_proc, 10);
12454: end if;
12455: --
12456: l_object_version_number := p_object_version_number;
12457: --
12464: ,p_effective_date => l_effective_date
12465: ,p_object_version_number => l_object_version_number);
12466: --
12467: if g_debug then
12468: hr_utility.set_location(l_proc, 20);
12469: end if;
12470: --
12471: IF NOT l_api_updating THEN
12472: --
12470: --
12471: IF NOT l_api_updating THEN
12472: --
12473: if g_debug then
12474: hr_utility.set_location(l_proc, 30);
12475: end if;
12476: --
12477: -- As this is an updating API, the assignment should already exist.
12478: --
12475: end if;
12476: --
12477: -- As this is an updating API, the assignment should already exist.
12478: --
12479: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
12480: hr_utility.raise_error;
12481: --
12482: ELSE
12483: --
12476: --
12477: -- As this is an updating API, the assignment should already exist.
12478: --
12479: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
12480: hr_utility.raise_error;
12481: --
12482: ELSE
12483: --
12484: if g_debug then
12481: --
12482: ELSE
12483: --
12484: if g_debug then
12485: hr_utility.set_location(l_proc, 40);
12486: end if;
12487: --
12488: l_people_group_id := per_asg_shd.g_old_rec.people_group_id;
12489: --
12489: --
12490: END IF;
12491: --
12492: if g_debug then
12493: hr_utility.set_location(l_proc, 50);
12494: end if;
12495: --
12496: -- Check that the assignment is an employee assignment.
12497: --
12497: --
12498: IF per_asg_shd.g_old_rec.assignment_type <> 'C' THEN
12499: --
12500: if g_debug then
12501: hr_utility.set_location(l_proc, 60);
12502: end if;
12503: --
12504: hr_utility.set_message(801, 'HR_289575_ASG_ASG_NOT_EMP');
12505: hr_utility.raise_error;
12500: if g_debug then
12501: hr_utility.set_location(l_proc, 60);
12502: end if;
12503: --
12504: hr_utility.set_message(801, 'HR_289575_ASG_ASG_NOT_EMP');
12505: hr_utility.raise_error;
12506: --
12507: END IF;
12508: --
12501: hr_utility.set_location(l_proc, 60);
12502: end if;
12503: --
12504: hr_utility.set_message(801, 'HR_289575_ASG_ASG_NOT_EMP');
12505: hr_utility.raise_error;
12506: --
12507: END IF;
12508: --
12509: if g_debug then
12506: --
12507: END IF;
12508: --
12509: if g_debug then
12510: hr_utility.set_location(l_proc, 70);
12511: end if;
12512: --
12513: -- Process Logic
12514: --
12566: IF csr_grp_idsel%NOTFOUND THEN
12567: --
12568: CLOSE csr_grp_idsel;
12569: --
12570: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12571: hr_utility.set_message_token('PROCEDURE', l_proc);
12572: hr_utility.set_message_token('STEP','5');
12573: hr_utility.raise_error;
12574: --
12567: --
12568: CLOSE csr_grp_idsel;
12569: --
12570: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12571: hr_utility.set_message_token('PROCEDURE', l_proc);
12572: hr_utility.set_message_token('STEP','5');
12573: hr_utility.raise_error;
12574: --
12575: END IF;
12568: CLOSE csr_grp_idsel;
12569: --
12570: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12571: hr_utility.set_message_token('PROCEDURE', l_proc);
12572: hr_utility.set_message_token('STEP','5');
12573: hr_utility.raise_error;
12574: --
12575: END IF;
12576: --
12569: --
12570: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12571: hr_utility.set_message_token('PROCEDURE', l_proc);
12572: hr_utility.set_message_token('STEP','5');
12573: hr_utility.raise_error;
12574: --
12575: END IF;
12576: --
12577: CLOSE csr_grp_idsel;
12576: --
12577: CLOSE csr_grp_idsel;
12578: --
12579: if g_debug then
12580: hr_utility.set_location(l_proc, 120);
12581: end if;
12582: --
12583: -- Maintain the people group key flexfields.
12584: --
12657: --
12658: END IF;
12659: --
12660: if g_debug then
12661: hr_utility.set_location(l_proc, 130);
12662: end if;
12663: --
12664: -- update the combinations column
12665: --
12702: ,p_validate => FALSE
12703: ,p_hourly_salaried_warning => l_hourly_salaried_warning);
12704: --
12705: if g_debug then
12706: hr_utility.set_location(l_proc, 140);
12707: end if;
12708: --
12709: -- add to the security lists if neccesary
12710: --
12728: --
12729: END IF;
12730: --
12731: if g_debug then
12732: hr_utility.set_location(l_proc, 145);
12733: end if;
12734: --
12735: -- Bug 560185 fix starts
12736: --
12775: if p_payroll_id = hr_api.g_number
12776: then
12777: --
12778: if g_debug then
12779: hr_utility.set_location(l_proc, 150);
12780: end if;
12781: --
12782: l_new_payroll_id := per_asg_shd.g_old_rec.payroll_id;
12783: else
12782: l_new_payroll_id := per_asg_shd.g_old_rec.payroll_id;
12783: else
12784: --
12785: if g_debug then
12786: hr_utility.set_location(l_proc, 160);
12787: end if;
12788: --
12789: l_new_payroll_id := p_payroll_id;
12790: end if;
12789: l_new_payroll_id := p_payroll_id;
12790: end if;
12791: --
12792: if g_debug then
12793: hr_utility.set_location(l_proc, 170);
12794: end if;
12795: --
12796: hrentmnt.maintain_entries_asg
12797: (p_assignment_id => p_assignment_id
12810: --
12811: -- Bug 630826 fix ends
12812: --
12813: if g_debug then
12814: hr_utility.set_location(l_proc, 180);
12815: end if;
12816: --
12817: if l_entries_changed_warning <> 'S' then
12818: l_entries_changed_warning := nvl(l_entries_changed, 'N');
12828: per_asg_shd.g_old_rec.grade_id <> p_grade_id AND
12829: p_grade_id <> hr_api.g_number) THEN
12830: --
12831: if g_debug then
12832: hr_utility.set_location(l_proc, 190);
12833: end if;
12834: --
12835: -- Maintain spinal point placements.
12836: --
12844: --
12845: ELSE
12846: --
12847: if g_debug then
12848: hr_utility.set_location(l_proc, 200);
12849: end if;
12850: --
12851: -- No SPPs to maintain.
12852: --
12857: */
12858: -- End of bug 3545065
12859: --
12860: if g_debug then
12861: hr_utility.set_location(l_proc, 210);
12862: end if;
12863: --
12864: -- IF GB legislation and payroll has changed, then delete latest balance
12865: -- values,
12871: --
12872: CLOSE csr_get_legislation_code;
12873: --
12874: if g_debug then
12875: hr_utility.set_location(l_proc, 220);
12876: end if;
12877: --
12878: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12879: hr_utility.set_message_token('PROCEDURE', l_proc);
12874: if g_debug then
12875: hr_utility.set_location(l_proc, 220);
12876: end if;
12877: --
12878: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12879: hr_utility.set_message_token('PROCEDURE', l_proc);
12880: hr_utility.set_message_token('STEP', '215');
12881: hr_utility.raise_error;
12882: --
12875: hr_utility.set_location(l_proc, 220);
12876: end if;
12877: --
12878: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12879: hr_utility.set_message_token('PROCEDURE', l_proc);
12880: hr_utility.set_message_token('STEP', '215');
12881: hr_utility.raise_error;
12882: --
12883: END IF;
12876: end if;
12877: --
12878: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12879: hr_utility.set_message_token('PROCEDURE', l_proc);
12880: hr_utility.set_message_token('STEP', '215');
12881: hr_utility.raise_error;
12882: --
12883: END IF;
12884: --
12877: --
12878: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
12879: hr_utility.set_message_token('PROCEDURE', l_proc);
12880: hr_utility.set_message_token('STEP', '215');
12881: hr_utility.raise_error;
12882: --
12883: END IF;
12884: --
12885: CLOSE csr_get_legislation_code;
12884: --
12885: CLOSE csr_get_legislation_code;
12886: --
12887: if g_debug then
12888: hr_utility.set_location(l_proc, 230);
12889: end if;
12890: --
12891: IF l_legislation_code = 'GB' AND l_payroll_id_updated THEN
12892: --
12890: --
12891: IF l_legislation_code = 'GB' AND l_payroll_id_updated THEN
12892: --
12893: if g_debug then
12894: hr_utility.set_location(l_proc, 240);
12895: end if;
12896: --
12897: -- Delete latest balance values.
12898: --
12908: --
12909: ELSE
12910: --
12911: if g_debug then
12912: hr_utility.set_location(l_proc, 250);
12913: end if;
12914: --
12915: l_tax_district_changed_warning := FALSE;
12916: --
12916: --
12917: END IF;
12918: --
12919: if g_debug then
12920: hr_utility.set_location(l_proc, 260);
12921: end if;
12922: --
12923: BEGIN
12924: --
13016: hr_kflex_utility.unset_session_date
13017: (p_session_id => l_session_id);
13018: --
13019: if g_debug then
13020: hr_utility.set_location(' Leaving:'||l_proc, 999);
13021: end if;
13022: --
13023: EXCEPTION
13024: --
13146: --
13147: begin
13148: if g_debug then
13149: l_proc := g_package||'update_gb_emp_asg';
13150: hr_utility.set_location('Entering:'|| l_proc, 10);
13151: end if;
13152: --
13153: -- Call the overloaded procedure
13154: --
13224: ,p_other_manager_warning => p_other_manager_warning
13225: ,p_supervisor_assignment_id => p_supervisor_assignment_id
13226: );
13227: if g_debug then
13228: hr_utility.set_location(' Leaving:'||l_proc, 20);
13229: end if;
13230: end update_gb_emp_asg;
13231: --
13232: -- ----------------------------------------------------------------------------
13341: --
13342: begin
13343: if g_debug then
13344: l_proc := g_package||'update_gb_emp_asg';
13345: hr_utility.set_location('Entering:'|| l_proc, 10);
13346: end if;
13347: --
13348: -- Truncate date variables
13349: --
13356: open check_legislation(p_assignment_id, l_effective_date);
13357: fetch check_legislation into l_legislation_code;
13358: if check_legislation%notfound then
13359: close check_legislation;
13360: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
13361: hr_utility.raise_error;
13362: end if;
13363: close check_legislation;
13364: if g_debug then
13357: fetch check_legislation into l_legislation_code;
13358: if check_legislation%notfound then
13359: close check_legislation;
13360: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
13361: hr_utility.raise_error;
13362: end if;
13363: close check_legislation;
13364: if g_debug then
13365: hr_utility.set_location(l_proc, 20);
13361: hr_utility.raise_error;
13362: end if;
13363: close check_legislation;
13364: if g_debug then
13365: hr_utility.set_location(l_proc, 20);
13366: end if;
13367: --
13368: -- Check that the legislation of the specified business group is 'GB'.
13369: --
13367: --
13368: -- Check that the legislation of the specified business group is 'GB'.
13369: --
13370: if l_legislation_code <> 'GB' then
13371: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
13372: hr_utility.set_message_token('LEG_CODE','GB');
13373: hr_utility.raise_error;
13374: end if;
13375: if g_debug then
13368: -- Check that the legislation of the specified business group is 'GB'.
13369: --
13370: if l_legislation_code <> 'GB' then
13371: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
13372: hr_utility.set_message_token('LEG_CODE','GB');
13373: hr_utility.raise_error;
13374: end if;
13375: if g_debug then
13376: hr_utility.set_location(l_proc, 30);
13369: --
13370: if l_legislation_code <> 'GB' then
13371: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
13372: hr_utility.set_message_token('LEG_CODE','GB');
13373: hr_utility.raise_error;
13374: end if;
13375: if g_debug then
13376: hr_utility.set_location(l_proc, 30);
13377: end if;
13372: hr_utility.set_message_token('LEG_CODE','GB');
13373: hr_utility.raise_error;
13374: end if;
13375: if g_debug then
13376: hr_utility.set_location(l_proc, 30);
13377: end if;
13378: --
13379: -- Call update_emp_asg business process
13380: --
13459: ,p_other_manager_warning => p_other_manager_warning
13460: ,p_supervisor_assignment_id => p_supervisor_assignment_id
13461: );
13462: if g_debug then
13463: hr_utility.set_location(' Leaving:'||l_proc, 40);
13464: end if;
13465: end update_gb_emp_asg;
13466:
13467: --
13578: --
13579: begin
13580: if g_debug then
13581: l_proc := g_package||'update_gb_emp_asg';
13582: hr_utility.set_location('Entering:'|| l_proc, 10);
13583: end if;
13584: --
13585: -- Truncate date variables
13586: --
13593: open check_legislation(p_assignment_id, l_effective_date);
13594: fetch check_legislation into l_legislation_code;
13595: if check_legislation%notfound then
13596: close check_legislation;
13597: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
13598: hr_utility.raise_error;
13599: end if;
13600: close check_legislation;
13601: if g_debug then
13594: fetch check_legislation into l_legislation_code;
13595: if check_legislation%notfound then
13596: close check_legislation;
13597: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
13598: hr_utility.raise_error;
13599: end if;
13600: close check_legislation;
13601: if g_debug then
13602: hr_utility.set_location(l_proc, 20);
13598: hr_utility.raise_error;
13599: end if;
13600: close check_legislation;
13601: if g_debug then
13602: hr_utility.set_location(l_proc, 20);
13603: end if;
13604: --
13605: -- Check that the legislation of the specified business group is 'GB'.
13606: --
13604: --
13605: -- Check that the legislation of the specified business group is 'GB'.
13606: --
13607: if l_legislation_code <> 'GB' then
13608: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
13609: hr_utility.set_message_token('LEG_CODE','GB');
13610: hr_utility.raise_error;
13611: end if;
13612: if g_debug then
13605: -- Check that the legislation of the specified business group is 'GB'.
13606: --
13607: if l_legislation_code <> 'GB' then
13608: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
13609: hr_utility.set_message_token('LEG_CODE','GB');
13610: hr_utility.raise_error;
13611: end if;
13612: if g_debug then
13613: hr_utility.set_location(l_proc, 30);
13606: --
13607: if l_legislation_code <> 'GB' then
13608: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
13609: hr_utility.set_message_token('LEG_CODE','GB');
13610: hr_utility.raise_error;
13611: end if;
13612: if g_debug then
13613: hr_utility.set_location(l_proc, 30);
13614: end if;
13609: hr_utility.set_message_token('LEG_CODE','GB');
13610: hr_utility.raise_error;
13611: end if;
13612: if g_debug then
13613: hr_utility.set_location(l_proc, 30);
13614: end if;
13615: --
13616: -- Call update_emp_asg business process
13617: --
13697: ,p_hourly_salaried_warning => p_hourly_salaried_warning
13698: ,p_supervisor_assignment_id => p_supervisor_assignment_id
13699: );
13700: if g_debug then
13701: hr_utility.set_location(' Leaving:'||l_proc, 40);
13702: end if;
13703: end update_gb_emp_asg;
13704:
13705: -- End of OVERLOADED procedure update_gb_emp_asg
13803: --
13804: begin
13805: if g_debug then
13806: l_proc := g_package||'update_us_emp_asg';
13807: hr_utility.set_location('Entering:'|| l_proc, 10);
13808: end if;
13809: --
13810: -- Call the overloaded procedure update_us_emp_asg
13811: --
13894: ,p_other_manager_warning => p_other_manager_warning
13895: ,p_supervisor_assignment_id => p_supervisor_assignment_id
13896: );
13897: if g_debug then
13898: hr_utility.set_location(' Leaving:'||l_proc, 40);
13899: end if;
13900: end update_us_emp_asg;
13901: --
13902: -- ----------------------------------------------------------------------------
14026: --
14027: begin
14028: if g_debug then
14029: l_proc := g_package||'update_us_emp_asg';
14030: hr_utility.set_location('Entering:'|| l_proc, 10);
14031: end if;
14032: --
14033: -- Truncate date variables
14034: --
14041: open check_legislation(p_assignment_id, l_effective_date);
14042: fetch check_legislation into l_legislation_code;
14043: if check_legislation%notfound then
14044: close check_legislation;
14045: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
14046: hr_utility.raise_error;
14047: end if;
14048: close check_legislation;
14049: if g_debug then
14042: fetch check_legislation into l_legislation_code;
14043: if check_legislation%notfound then
14044: close check_legislation;
14045: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
14046: hr_utility.raise_error;
14047: end if;
14048: close check_legislation;
14049: if g_debug then
14050: hr_utility.set_location(l_proc, 20);
14046: hr_utility.raise_error;
14047: end if;
14048: close check_legislation;
14049: if g_debug then
14050: hr_utility.set_location(l_proc, 20);
14051: end if;
14052: --
14053: -- Check that the legislation of the specified business group is 'US'.
14054: --
14052: --
14053: -- Check that the legislation of the specified business group is 'US'.
14054: --
14055: if l_legislation_code <> 'US' then
14056: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14057: hr_utility.set_message_token('LEG_CODE','US');
14058: hr_utility.raise_error;
14059: end if;
14060: if g_debug then
14053: -- Check that the legislation of the specified business group is 'US'.
14054: --
14055: if l_legislation_code <> 'US' then
14056: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14057: hr_utility.set_message_token('LEG_CODE','US');
14058: hr_utility.raise_error;
14059: end if;
14060: if g_debug then
14061: hr_utility.set_location(l_proc, 30);
14054: --
14055: if l_legislation_code <> 'US' then
14056: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14057: hr_utility.set_message_token('LEG_CODE','US');
14058: hr_utility.raise_error;
14059: end if;
14060: if g_debug then
14061: hr_utility.set_location(l_proc, 30);
14062: end if;
14057: hr_utility.set_message_token('LEG_CODE','US');
14058: hr_utility.raise_error;
14059: end if;
14060: if g_debug then
14061: hr_utility.set_location(l_proc, 30);
14062: end if;
14063: --
14064: -- Call update_emp_asg business process
14065: --
14156: ,p_other_manager_warning => p_other_manager_warning
14157: ,p_supervisor_assignment_id => p_supervisor_assignment_id
14158: );
14159: if g_debug then
14160: hr_utility.set_location(' Leaving:'||l_proc, 40);
14161: end if;
14162: end update_us_emp_asg;
14163: -- End of update_us_emp_asg OVERLOADED procedure
14164:
14292: --
14293: begin
14294: if g_debug then
14295: l_proc := g_package||'update_us_emp_asg';
14296: hr_utility.set_location('Entering:'|| l_proc, 10);
14297: end if;
14298: --
14299: -- Truncate date variables
14300: --
14307: open check_legislation(p_assignment_id, l_effective_date);
14308: fetch check_legislation into l_legislation_code;
14309: if check_legislation%notfound then
14310: close check_legislation;
14311: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
14312: hr_utility.raise_error;
14313: end if;
14314: close check_legislation;
14315: if g_debug then
14308: fetch check_legislation into l_legislation_code;
14309: if check_legislation%notfound then
14310: close check_legislation;
14311: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
14312: hr_utility.raise_error;
14313: end if;
14314: close check_legislation;
14315: if g_debug then
14316: hr_utility.set_location(l_proc, 20);
14312: hr_utility.raise_error;
14313: end if;
14314: close check_legislation;
14315: if g_debug then
14316: hr_utility.set_location(l_proc, 20);
14317: end if;
14318: --
14319: -- Check that the legislation of the specified business group is 'US'.
14320: --
14318: --
14319: -- Check that the legislation of the specified business group is 'US'.
14320: --
14321: if l_legislation_code <> 'US' then
14322: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14323: hr_utility.set_message_token('LEG_CODE','US');
14324: hr_utility.raise_error;
14325: end if;
14326: if g_debug then
14319: -- Check that the legislation of the specified business group is 'US'.
14320: --
14321: if l_legislation_code <> 'US' then
14322: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14323: hr_utility.set_message_token('LEG_CODE','US');
14324: hr_utility.raise_error;
14325: end if;
14326: if g_debug then
14327: hr_utility.set_location(l_proc, 30);
14320: --
14321: if l_legislation_code <> 'US' then
14322: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14323: hr_utility.set_message_token('LEG_CODE','US');
14324: hr_utility.raise_error;
14325: end if;
14326: if g_debug then
14327: hr_utility.set_location(l_proc, 30);
14328: end if;
14323: hr_utility.set_message_token('LEG_CODE','US');
14324: hr_utility.raise_error;
14325: end if;
14326: if g_debug then
14327: hr_utility.set_location(l_proc, 30);
14328: end if;
14329: --
14330: -- Call update_emp_asg business process
14331: --
14424: ,p_gsp_post_process_warning => l_gsp_post_process_warning -- bug 2999562
14425: ,p_supervisor_assignment_id => p_supervisor_assignment_id
14426: );
14427: if g_debug then
14428: hr_utility.set_location(' Leaving:'||l_proc, 40);
14429: end if;
14430: end update_us_emp_asg;
14431: -- End of update_us_emp_asg OVERLOADED procedure
14432:
14560: --
14561: begin
14562: if g_debug then
14563: l_proc := g_package||'update_us_emp_asg';
14564: hr_utility.set_location('Entering:'|| l_proc, 10);
14565: end if;
14566: --
14567: -- Truncate date variables
14568: --
14575: open check_legislation(p_assignment_id, l_effective_date);
14576: fetch check_legislation into l_legislation_code;
14577: if check_legislation%notfound then
14578: close check_legislation;
14579: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
14580: hr_utility.raise_error;
14581: end if;
14582: close check_legislation;
14583: if g_debug then
14576: fetch check_legislation into l_legislation_code;
14577: if check_legislation%notfound then
14578: close check_legislation;
14579: hr_utility.set_message(801,'HR_7220_INVALID_PRIMARY_KEY');
14580: hr_utility.raise_error;
14581: end if;
14582: close check_legislation;
14583: if g_debug then
14584: hr_utility.set_location(l_proc, 20);
14580: hr_utility.raise_error;
14581: end if;
14582: close check_legislation;
14583: if g_debug then
14584: hr_utility.set_location(l_proc, 20);
14585: end if;
14586: --
14587: -- Check that the legislation of the specified business group is 'US'.
14588: --
14586: --
14587: -- Check that the legislation of the specified business group is 'US'.
14588: --
14589: if l_legislation_code <> 'US' then
14590: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14591: hr_utility.set_message_token('LEG_CODE','US');
14592: hr_utility.raise_error;
14593: end if;
14594: if g_debug then
14587: -- Check that the legislation of the specified business group is 'US'.
14588: --
14589: if l_legislation_code <> 'US' then
14590: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14591: hr_utility.set_message_token('LEG_CODE','US');
14592: hr_utility.raise_error;
14593: end if;
14594: if g_debug then
14595: hr_utility.set_location(l_proc, 30);
14588: --
14589: if l_legislation_code <> 'US' then
14590: hr_utility.set_message(801, 'HR_7961_PER_BUS_GRP_INVALID');
14591: hr_utility.set_message_token('LEG_CODE','US');
14592: hr_utility.raise_error;
14593: end if;
14594: if g_debug then
14595: hr_utility.set_location(l_proc, 30);
14596: end if;
14591: hr_utility.set_message_token('LEG_CODE','US');
14592: hr_utility.raise_error;
14593: end if;
14594: if g_debug then
14595: hr_utility.set_location(l_proc, 30);
14596: end if;
14597: --
14598: -- Call update_emp_asg business process
14599: --
14692: ,p_gsp_post_process_warning => p_gsp_post_process_warning
14693: ,p_supervisor_assignment_id => p_supervisor_assignment_id
14694: );
14695: if g_debug then
14696: hr_utility.set_location(' Leaving:'||l_proc, 40);
14697: end if;
14698: end update_us_emp_asg;
14699: -- End of update_us_emp_asg OVERLOADED procedure
14700:
14805:
14806: l_object_version_number := p_object_version_number;
14807: --
14808: if g_debug then
14809: hr_utility.set_location('Entering:'|| l_proc, 5);
14810: end if;
14811:
14812: -- Start of fix 3553286
14813: -- Start of bug fix 2656155
14916: p_spp_delete_warning := l_spp_delete_warning;
14917: p_tax_district_changed_warning := l_tax_district_changed_warning;
14918:
14919: if g_debug then
14920: hr_utility.set_location('Leaving:'|| l_proc, 20);
14921: end if;
14922:
14923: End update_emp_asg_criteria;
14924:
15041:
15042: l_object_version_number := p_object_version_number;
15043: --
15044: if g_debug then
15045: hr_utility.set_location('Entering:'|| l_proc, 5);
15046: end if;
15047:
15048: --
15049: -- Calling New Overloaded Procedure
15131: p_tax_district_changed_warning := l_tax_district_changed_warning;
15132: --
15133: --
15134: if g_debug then
15135: hr_utility.set_location(' Leaving:'||l_proc, 997);
15136: end if;
15137: --
15138: end update_emp_asg_criteria;
15139: -- ----------------------------------------------------------------------------
15448: -- End of 4103321
15449: --
15450: begin
15451: if g_debug then
15452: hr_utility.set_location('Entering:'|| l_proc, 30);
15453: end if;
15454:
15455: --
15456: -- Truncate the p_effective_date value to remove time element.
15469: --
15470: IF p_called_from_mass_update THEN
15471: --
15472: if g_debug then
15473: hr_utility.set_location(l_proc,40);
15474: end if;
15475: --
15476: l_dt_update_mode := 'CORRECTION';
15477: l_new_dt_update_mode := p_datetrack_update_mode;
15478: --
15479: ELSE
15480: --
15481: if g_debug then
15482: hr_utility.set_location(l_proc,50);
15483: end if;
15484: --
15485: l_dt_update_mode := p_datetrack_update_mode;
15486: l_new_dt_update_mode := p_datetrack_update_mode;
15490: -- Bug 2359997 - if p_people_group_id enters with
15491: -- a value then get segment values from pay_people_groups.
15492: --
15493: if g_debug then
15494: hr_utility.set_location(l_proc, 60);
15495: end if;
15496: --
15497: if l_people_group_id is null
15498: then
15611: --
15612: end;
15613: --
15614: if g_debug then
15615: hr_utility.set_location(l_proc, 70);
15616: end if;
15617: --
15618: l_object_version_number := p_object_version_number;
15619: --
15626: ,p_effective_date => l_effective_date
15627: ,p_object_version_number => l_object_version_number);
15628: --
15629: if g_debug then
15630: hr_utility.set_location(l_proc, 80);
15631: end if;
15632: --
15633: if not l_api_updating
15634: then
15633: if not l_api_updating
15634: then
15635: --
15636: if g_debug then
15637: hr_utility.set_location(l_proc, 90);
15638: end if;
15639: --
15640: -- As this is an updating API, the assignment should already exist.
15641: --
15638: end if;
15639: --
15640: -- As this is an updating API, the assignment should already exist.
15641: --
15642: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
15643: hr_utility.raise_error;
15644: -- else
15645: --
15646: if g_debug then
15639: --
15640: -- As this is an updating API, the assignment should already exist.
15641: --
15642: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
15643: hr_utility.raise_error;
15644: -- else
15645: --
15646: if g_debug then
15647: hr_utility.set_location(l_proc, 100);
15643: hr_utility.raise_error;
15644: -- else
15645: --
15646: if g_debug then
15647: hr_utility.set_location(l_proc, 100);
15648: end if;
15649: --
15650: -- l_people_group_id := per_asg_shd.g_old_rec.people_group_id; bug 2359997
15651: end if;
15650: -- l_people_group_id := per_asg_shd.g_old_rec.people_group_id; bug 2359997
15651: end if;
15652: --
15653: if g_debug then
15654: hr_utility.set_location(l_proc, 110);
15655: end if;
15656: --
15657: -- Check that the assignment is an employee assignment.
15658: --
15659: if per_asg_shd.g_old_rec.assignment_type <> 'E'
15660: then
15661: --
15662: if g_debug then
15663: hr_utility.set_location(l_proc, 120);
15664: end if;
15665: --
15666: hr_utility.set_message(801, 'HR_7948_ASG_ASG_NOT_EMP');
15667: hr_utility.raise_error;
15662: if g_debug then
15663: hr_utility.set_location(l_proc, 120);
15664: end if;
15665: --
15666: hr_utility.set_message(801, 'HR_7948_ASG_ASG_NOT_EMP');
15667: hr_utility.raise_error;
15668: end if;
15669: --
15670: if g_debug then
15663: hr_utility.set_location(l_proc, 120);
15664: end if;
15665: --
15666: hr_utility.set_message(801, 'HR_7948_ASG_ASG_NOT_EMP');
15667: hr_utility.raise_error;
15668: end if;
15669: --
15670: if g_debug then
15671: hr_utility.set_location(l_proc, 130);
15667: hr_utility.raise_error;
15668: end if;
15669: --
15670: if g_debug then
15671: hr_utility.set_location(l_proc, 130);
15672: end if;
15673: --
15674: -- Removed as part of fix for bug
15675: --
15720: p_grade_id <> hr_api.g_number AND -- 3485599
15721: p_special_ceiling_step_id IS NOT NULL) then
15722: --
15723: if g_debug then
15724: hr_utility.set_location(l_proc, 140);
15725: end if;
15726: --
15727: open csr_chk_grade_and_ceiling;
15728: fetch csr_chk_grade_and_ceiling into l_step_id;
15732: --
15733: if csr_chk_grade_and_ceiling%NOTFOUND then
15734: --
15735: if g_debug then
15736: hr_utility.set_location(l_proc, 150);
15737: end if;
15738: --
15739: close csr_chk_grade_and_ceiling;
15740: --
15745: --
15746: else
15747: --
15748: if g_debug then
15749: hr_utility.set_location(l_proc, 160);
15750: end if;
15751: --
15752: close csr_chk_grade_and_ceiling;
15753: --
15760: --
15761: elsif p_grade_id is null then
15762: --
15763: if g_debug then
15764: hr_utility.set_location(l_proc, 170);
15765: end if;
15766: --
15767: l_special_ceiling_step_id := null;
15768: --
15768: --
15769: else
15770: --
15771: if g_debug then
15772: hr_utility.set_location(l_proc, 180);
15773: end if;
15774: --
15775: if p_special_ceiling_step_id = hr_api.g_number then
15776: --
15774: --
15775: if p_special_ceiling_step_id = hr_api.g_number then
15776: --
15777: if g_debug then
15778: hr_utility.set_location(l_proc, 190);
15779: end if;
15780: --
15781: l_special_ceiling_step_id := per_asg_shd.g_old_rec.special_ceiling_step_id;
15782: --
15782: --
15783: else
15784: --
15785: if g_debug then
15786: hr_utility.set_location(l_proc, 200);
15787: end if;
15788: --
15789: l_special_ceiling_step_id := p_special_ceiling_step_id;
15790: --
15791: end if;
15792: --
15793: end if;
15794: if g_debug then
15795: hr_utility.set_location(l_proc, 210);
15796: end if;
15797: --
15798: -- Populate l_business_group_id from g_old_rec for cursor csr_grp_idsel
15799: --
15825: l_location_id:=p_location_id;
15826: end if;
15827: --
15828: if g_debug then
15829: hr_utility.set_location(l_proc, 220);
15830: end if;
15831: --
15832: hr_kflex_utility.set_profiles
15833: (p_business_group_id => l_business_group_id
15835: ,p_organization_id => l_organization_id
15836: ,p_location_id => l_location_id);
15837: --
15838: if g_debug then
15839: hr_utility.set_location(l_proc, 230);
15840: end if;
15841: --
15842: hr_kflex_utility.set_session_date
15843: (p_effective_date => l_effective_date
15843: (p_effective_date => l_effective_date
15844: ,p_session_id => l_session_id);
15845: --
15846: if g_debug then
15847: hr_utility.set_location(l_proc, 240);
15848: end if;
15849: --
15850: open csr_grp_idsel;
15851: fetch csr_grp_idsel
15851: fetch csr_grp_idsel
15852: into l_flex_num;
15853: if csr_grp_idsel%NOTFOUND then
15854: close csr_grp_idsel;
15855: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
15856: hr_utility.set_message_token('PROCEDURE', l_proc);
15857: hr_utility.set_message_token('STEP','5');
15858: hr_utility.raise_error;
15859: end if;
15852: into l_flex_num;
15853: if csr_grp_idsel%NOTFOUND then
15854: close csr_grp_idsel;
15855: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
15856: hr_utility.set_message_token('PROCEDURE', l_proc);
15857: hr_utility.set_message_token('STEP','5');
15858: hr_utility.raise_error;
15859: end if;
15860: close csr_grp_idsel;
15853: if csr_grp_idsel%NOTFOUND then
15854: close csr_grp_idsel;
15855: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
15856: hr_utility.set_message_token('PROCEDURE', l_proc);
15857: hr_utility.set_message_token('STEP','5');
15858: hr_utility.raise_error;
15859: end if;
15860: close csr_grp_idsel;
15861: --
15854: close csr_grp_idsel;
15855: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
15856: hr_utility.set_message_token('PROCEDURE', l_proc);
15857: hr_utility.set_message_token('STEP','5');
15858: hr_utility.raise_error;
15859: end if;
15860: close csr_grp_idsel;
15861: --
15862: if g_debug then
15859: end if;
15860: close csr_grp_idsel;
15861: --
15862: if g_debug then
15863: hr_utility.set_location(l_proc, 250);
15864: end if;
15865: --
15866: -- Maintain the people group key flexfields.
15867: --
15955: --
15956: --end if;--fix for bug 4633742.
15957: --
15958: if g_debug then
15959: hr_utility.set_location(l_proc, 260);
15960: end if;
15961: --
15962: -- update the combinations column
15963: --
15969: end if;
15970: end if;--fix for bug 4633742.
15971: --
15972: if g_debug then
15973: hr_utility.set_location(l_proc, 270);
15974: end if;
15975: --
15976: --
15977: -- Start of fix for Bug 2622747
16053: ,p_supervisor_assignment_id => p_supervisor_assignment_id
16054: );
16055: --
16056: if g_debug then
16057: hr_utility.set_location(l_proc, 280);
16058: end if;
16059: --
16060: -- add to the security lists if neccesary
16061: --
16074: hr_security_internal.add_to_person_list(l_effective_date,p_assignment_id);
16075: end if;
16076: --
16077: if g_debug then
16078: hr_utility.set_location(l_proc, 290);
16079: end if;
16080: --
16081: -- Bug 560185 fix starts
16082: --
16152: if p_payroll_id = hr_api.g_number
16153: then
16154: --
16155: if g_debug then
16156: hr_utility.set_location(l_proc, 300);
16157: end if;
16158: --
16159: l_new_payroll_id := per_asg_shd.g_old_rec.payroll_id;
16160: else
16159: l_new_payroll_id := per_asg_shd.g_old_rec.payroll_id;
16160: else
16161: --
16162: if g_debug then
16163: hr_utility.set_location(l_proc, 310);
16164: end if;
16165: --
16166: l_new_payroll_id := p_payroll_id;
16167: end if;
16166: l_new_payroll_id := p_payroll_id;
16167: end if;
16168: --
16169: if g_debug then
16170: hr_utility.set_location(l_proc, 320);
16171: end if;
16172: --
16173: hr_utility.set_location('p_old_pg_id :'||to_char(per_asg_shd.g_old_rec.payroll_id),325);
16174: hr_utility.set_location('p_new_pg_id :'||to_char(l_people_group_id),325);
16169: if g_debug then
16170: hr_utility.set_location(l_proc, 320);
16171: end if;
16172: --
16173: hr_utility.set_location('p_old_pg_id :'||to_char(per_asg_shd.g_old_rec.payroll_id),325);
16174: hr_utility.set_location('p_new_pg_id :'||to_char(l_people_group_id),325);
16175: --
16176: hrentmnt.maintain_entries_asg
16177: (p_assignment_id => p_assignment_id
16170: hr_utility.set_location(l_proc, 320);
16171: end if;
16172: --
16173: hr_utility.set_location('p_old_pg_id :'||to_char(per_asg_shd.g_old_rec.payroll_id),325);
16174: hr_utility.set_location('p_new_pg_id :'||to_char(l_people_group_id),325);
16175: --
16176: hrentmnt.maintain_entries_asg
16177: (p_assignment_id => p_assignment_id
16178: ,p_old_payroll_id => per_asg_shd.g_old_rec.payroll_id
16192: --
16193: -- Bug 630826 fix ends
16194: --
16195: if g_debug then
16196: hr_utility.set_location(l_proc, 330);
16197: end if;
16198: --
16199: if l_entries_changed_warning <> 'S' then
16200: l_entries_changed_warning := nvl(l_entries_changed, 'N');
16208: AND p_grade_id <> hr_api.g_number)
16209: then
16210: --
16211: if g_debug then
16212: hr_utility.set_location(l_proc, 340);
16213: end if;
16214: --
16215: -- Maintain spinal point placements.
16216: --
16224: );
16225: else
16226: --
16227: if g_debug then
16228: hr_utility.set_location(l_proc, 350);
16229: end if;
16230: --
16231: -- No SPPs to maintain.
16232: --
16233: l_spp_delete_warning := FALSE;
16234: end if;
16235: --
16236: if g_debug then
16237: hr_utility.set_location(l_proc, 360);
16238: end if;
16239: --
16240: -- IF GB legislation and payroll has changed, then delete latest balance
16241: -- values,
16248: --
16249: close csr_get_legislation_code;
16250: --
16251: if g_debug then
16252: hr_utility.set_location(l_proc, 370);
16253: end if;
16254: --
16255: -- This should never happen!
16256: --
16253: end if;
16254: --
16255: -- This should never happen!
16256: --
16257: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
16258: hr_utility.set_message_token('PROCEDURE', l_proc);
16259: hr_utility.set_message_token('STEP', '215');
16260: hr_utility.raise_error;
16261: end if;
16254: --
16255: -- This should never happen!
16256: --
16257: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
16258: hr_utility.set_message_token('PROCEDURE', l_proc);
16259: hr_utility.set_message_token('STEP', '215');
16260: hr_utility.raise_error;
16261: end if;
16262: --
16255: -- This should never happen!
16256: --
16257: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
16258: hr_utility.set_message_token('PROCEDURE', l_proc);
16259: hr_utility.set_message_token('STEP', '215');
16260: hr_utility.raise_error;
16261: end if;
16262: --
16263: close csr_get_legislation_code;
16256: --
16257: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
16258: hr_utility.set_message_token('PROCEDURE', l_proc);
16259: hr_utility.set_message_token('STEP', '215');
16260: hr_utility.raise_error;
16261: end if;
16262: --
16263: close csr_get_legislation_code;
16264: --
16262: --
16263: close csr_get_legislation_code;
16264: --
16265: if g_debug then
16266: hr_utility.set_location(l_proc, 380);
16267: end if;
16268: --
16269: if l_legislation_code = 'GB'
16270: and l_payroll_id_updated
16270: and l_payroll_id_updated
16271: then
16272: --
16273: if g_debug then
16274: hr_utility.set_location(l_proc, 390);
16275: end if;
16276: --
16277: -- Delete latest balance values.
16278: --
16287: l_tax_district_changed_warning := FALSE;
16288: else
16289: --
16290: if g_debug then
16291: hr_utility.set_location(l_proc, 400);
16292: end if;
16293: --
16294: l_tax_district_changed_warning := FALSE;
16295: end if;
16294: l_tax_district_changed_warning := FALSE;
16295: end if;
16296: --
16297: if g_debug then
16298: hr_utility.set_location(l_proc, 410);
16299: end if;
16300: --
16301: --
16302: begin
16418: hr_kflex_utility.unset_session_date
16419: (p_session_id => l_session_id);
16420: --
16421: if g_debug then
16422: hr_utility.set_location(' Leaving:'||l_proc, 997);
16423: end if;
16424: --
16425: exception
16426: when hr_api.validate_enabled then
16425: exception
16426: when hr_api.validate_enabled then
16427: --
16428: if g_debug then
16429: hr_utility.set_location(' Leaving:'||l_proc, 998);
16430: end if;
16431: --
16432: -- As the Validate_Enabled exception has been raised
16433: -- we must rollback to the savepoint
16461: --
16462: when others then
16463: --
16464: if g_debug then
16465: hr_utility.set_location(' Leaving:'||l_proc, 999);
16466: end if;
16467: --
16468: -- A validation or unexpected error has occurred
16469: --
17006: --
17007: begin
17008: --
17009: if g_debug then
17010: hr_utility.set_location('Entering:'|| l_proc, 10);
17011: end if;
17012: --
17013: --Truncate the parameter p_effective_date to a local variable
17014: --
17028: --
17029: savepoint update_apl_asg;
17030: --
17031: if g_debug then
17032: hr_utility.set_location(l_proc, 20);
17033: end if;
17034: --
17035: l_object_version_number := p_object_version_number;
17036: --
17065: ,p_effective_date => l_effective_date
17066: ,p_object_version_number => l_object_version_number);
17067: --
17068: if g_debug then
17069: hr_utility.set_location(l_proc, 30);
17070: end if;
17071: --
17072: if not l_api_updating
17073: then
17072: if not l_api_updating
17073: then
17074: --
17075: if g_debug then
17076: hr_utility.set_location(l_proc, 40);
17077: end if;
17078: --
17079: -- As this is an updating API, the assignment should already exist.
17080: --
17077: end if;
17078: --
17079: -- As this is an updating API, the assignment should already exist.
17080: --
17081: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
17082: hr_utility.raise_error;
17083: end if;
17084: --
17085: -- Populate l_business_group_id from g_old_rec for cursor csr_grp_idsel
17078: --
17079: -- As this is an updating API, the assignment should already exist.
17080: --
17081: hr_utility.set_message(801, 'HR_7220_INVALID_PRIMARY_KEY');
17082: hr_utility.raise_error;
17083: end if;
17084: --
17085: -- Populate l_business_group_id from g_old_rec for cursor csr_grp_idsel
17086: -- Populate l_people_group_id from g_old_rec for upd_or_sel_key_flex
17092: --
17093: l_business_group_id := per_asg_shd.g_old_rec.business_group_id;
17094: --
17095: if g_debug then
17096: hr_utility.set_location(l_proc, 45);
17097: end if;
17098: --
17099: if l_people_group_id is null
17100: then
17209: l_cag_null_ind := 0;
17210: end if;
17211: --
17212: if g_debug then
17213: hr_utility.set_location(l_proc, 60);
17214: end if;
17215: --
17216: -- Check that the assignment is an applicant assignment.
17217: --
17218: if per_asg_shd.g_old_rec.assignment_type <> 'A'
17219: then
17220: --
17221: if g_debug then
17222: hr_utility.set_location(l_proc, 70);
17223: end if;
17224: --
17225: hr_utility.set_message(801, 'HR_51036_ASG_ASG_NOT_APL');
17226: hr_utility.raise_error;
17221: if g_debug then
17222: hr_utility.set_location(l_proc, 70);
17223: end if;
17224: --
17225: hr_utility.set_message(801, 'HR_51036_ASG_ASG_NOT_APL');
17226: hr_utility.raise_error;
17227: end if;
17228: --
17229: -- Start of API User Hook for the before hook of update_apl_asg.
17222: hr_utility.set_location(l_proc, 70);
17223: end if;
17224: --
17225: hr_utility.set_message(801, 'HR_51036_ASG_ASG_NOT_APL');
17226: hr_utility.raise_error;
17227: end if;
17228: --
17229: -- Start of API User Hook for the before hook of update_apl_asg.
17230: --
17412: end;
17413: --
17414: --
17415: if g_debug then
17416: hr_utility.set_location(l_proc, 80);
17417: end if;
17418: --
17419: --added validation for bug 1867720
17420: --
17467: fetch csr_grp_idsel
17468: into l_flex_num;
17469: if csr_grp_idsel%NOTFOUND then
17470: close csr_grp_idsel;
17471: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17472: hr_utility.set_message_token('PROCEDURE', l_proc);
17473: hr_utility.set_message_token('STEP','10');
17474: hr_utility.raise_error;
17475: end if;
17468: into l_flex_num;
17469: if csr_grp_idsel%NOTFOUND then
17470: close csr_grp_idsel;
17471: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17472: hr_utility.set_message_token('PROCEDURE', l_proc);
17473: hr_utility.set_message_token('STEP','10');
17474: hr_utility.raise_error;
17475: end if;
17476: close csr_grp_idsel;
17469: if csr_grp_idsel%NOTFOUND then
17470: close csr_grp_idsel;
17471: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17472: hr_utility.set_message_token('PROCEDURE', l_proc);
17473: hr_utility.set_message_token('STEP','10');
17474: hr_utility.raise_error;
17475: end if;
17476: close csr_grp_idsel;
17477: --
17470: close csr_grp_idsel;
17471: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17472: hr_utility.set_message_token('PROCEDURE', l_proc);
17473: hr_utility.set_message_token('STEP','10');
17474: hr_utility.raise_error;
17475: end if;
17476: close csr_grp_idsel;
17477: --
17478: if l_pgp_null_ind = 0
17606: -- Bug 944911
17607: -- Added this additional check
17608: or p_scl_concat_segments is not null
17609: then
17610: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17611: hr_utility.set_message_token('PROCEDURE', l_proc);
17612: hr_utility.set_message_token('STEP','5');
17613: hr_utility.raise_error;
17614: end if; -- p_scl_segment1 is not null
17607: -- Added this additional check
17608: or p_scl_concat_segments is not null
17609: then
17610: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17611: hr_utility.set_message_token('PROCEDURE', l_proc);
17612: hr_utility.set_message_token('STEP','5');
17613: hr_utility.raise_error;
17614: end if; -- p_scl_segment1 is not null
17615: else -- csr_scl_idsel is found
17608: or p_scl_concat_segments is not null
17609: then
17610: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17611: hr_utility.set_message_token('PROCEDURE', l_proc);
17612: hr_utility.set_message_token('STEP','5');
17613: hr_utility.raise_error;
17614: end if; -- p_scl_segment1 is not null
17615: else -- csr_scl_idsel is found
17616: close csr_scl_idsel;
17609: then
17610: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
17611: hr_utility.set_message_token('PROCEDURE', l_proc);
17612: hr_utility.set_message_token('STEP','5');
17613: hr_utility.raise_error;
17614: end if; -- p_scl_segment1 is not null
17615: else -- csr_scl_idsel is found
17616: close csr_scl_idsel;
17617: --
17731: ,p_concatenated_segments => l_cagr_concatenated_segments
17732: );
17733: --
17734: if g_debug then
17735: hr_utility.set_location(l_proc, 90);
17736: end if;
17737: --
17738: end if; -- l_cagr_grade_def_id is null
17739: --
17737: --
17738: end if; -- l_cagr_grade_def_id is null
17739: --
17740: if g_debug then
17741: hr_utility.set_location(l_proc, 95);
17742: end if;
17743: --
17744: -- Update assignment.
17745: --
18173: hr_kflex_utility.unset_session_date
18174: (p_session_id => l_session_id);
18175: --
18176: if g_debug then
18177: hr_utility.set_location(' Leaving:'||l_proc, 6);
18178: end if;
18179: exception
18180: when hr_api.validate_enabled then
18181: --
18390: --
18391: begin
18392: if g_debug then
18393: l_proc := g_package||'update_apl_asg';
18394: hr_utility.set_location('Entering:'|| l_proc, 1);
18395: end if;
18396: --
18397: l_object_version_number := p_object_version_number ;
18398: -- bug 944911
18515: p_effective_end_date := l_effective_end_date;
18516: p_people_group_id := l_people_group_id;
18517: --
18518: if g_debug then
18519: hr_utility.set_location(' Leaving:'||l_proc, 6);
18520: end if;
18521: end update_apl_asg;
18522: --
18523: -- OLD
19376: --
19377: begin
19378: --
19379: if g_debug then
19380: hr_utility.set_location('Entering:'|| l_proc, 5);
19381: end if;
19382: --
19383: -- Truncate date value p_effective_date to remove time element.
19384: --
19398: --
19399: savepoint create_secondary_apl_asg;
19400: --
19401: if g_debug then
19402: hr_utility.set_location(l_proc, 10);
19403: end if;
19404: --
19405: -- Validation in addition to Table Handlers
19406: --
19430: --
19431: close csr_get_derived_details;
19432: --
19433: if g_debug then
19434: hr_utility.set_location(l_proc, 15);
19435: end if;
19436: --
19437: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
19438: hr_utility.raise_error;
19433: if g_debug then
19434: hr_utility.set_location(l_proc, 15);
19435: end if;
19436: --
19437: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
19438: hr_utility.raise_error;
19439: end if;
19440: --
19441: close csr_get_derived_details;
19434: hr_utility.set_location(l_proc, 15);
19435: end if;
19436: --
19437: hr_utility.set_message(801,'HR_7432_ASG_INVALID_PERSON');
19438: hr_utility.raise_error;
19439: end if;
19440: --
19441: close csr_get_derived_details;
19442: --
19446: -- per_cagr_grades_def
19447: --
19448: --
19449: if g_debug then
19450: hr_utility.set_location(l_proc, 20);
19451: end if;
19452: --
19453: if l_people_group_id is not null
19454: then
19753: end;
19754: --
19755: --
19756: if g_debug then
19757: hr_utility.set_location(l_proc, 20);
19758: end if;
19759: --
19760: -- Process Logic
19761: --
19775: --
19776: close csr_get_application;
19777: --
19778: if g_debug then
19779: hr_utility.set_location(l_proc, 25);
19780: end if;
19781: --
19782: hr_utility.set_message(801,'HR_51231_ASG_MISSING_ASG');
19783: hr_utility.raise_error;
19778: if g_debug then
19779: hr_utility.set_location(l_proc, 25);
19780: end if;
19781: --
19782: hr_utility.set_message(801,'HR_51231_ASG_MISSING_ASG');
19783: hr_utility.raise_error;
19784: end if;
19785: --
19786: close csr_get_application;
19779: hr_utility.set_location(l_proc, 25);
19780: end if;
19781: --
19782: hr_utility.set_message(801,'HR_51231_ASG_MISSING_ASG');
19783: hr_utility.raise_error;
19784: end if;
19785: --
19786: close csr_get_application;
19787: -- <<
19785: --
19786: close csr_get_application;
19787: -- <<
19788: if g_debug then
19789: hr_utility.set_location(l_proc, 30);
19790: end if;
19791: --
19792: --
19793: -- insert the profile options and effective date for the flexfield
19810: fetch csr_grp_idsel
19811: into l_flex_num;
19812: if csr_grp_idsel%NOTFOUND then
19813: close csr_grp_idsel;
19814: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19815: hr_utility.set_message_token('PROCEDURE', l_proc);
19816: hr_utility.set_message_token('STEP','10');
19817: hr_utility.raise_error;
19818: end if;
19811: into l_flex_num;
19812: if csr_grp_idsel%NOTFOUND then
19813: close csr_grp_idsel;
19814: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19815: hr_utility.set_message_token('PROCEDURE', l_proc);
19816: hr_utility.set_message_token('STEP','10');
19817: hr_utility.raise_error;
19818: end if;
19819: close csr_grp_idsel;
19812: if csr_grp_idsel%NOTFOUND then
19813: close csr_grp_idsel;
19814: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19815: hr_utility.set_message_token('PROCEDURE', l_proc);
19816: hr_utility.set_message_token('STEP','10');
19817: hr_utility.raise_error;
19818: end if;
19819: close csr_grp_idsel;
19820: --
19813: close csr_grp_idsel;
19814: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19815: hr_utility.set_message_token('PROCEDURE', l_proc);
19816: hr_utility.set_message_token('STEP','10');
19817: hr_utility.raise_error;
19818: end if;
19819: close csr_grp_idsel;
19820: --
19821: --
19825: fetch csr_grp_idsel
19826: into l_flex_num;
19827: if csr_grp_idsel%NOTFOUND then
19828: close csr_grp_idsel;
19829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19830: hr_utility.set_message_token('PROCEDURE', l_proc);
19831: hr_utility.set_message_token('STEP','10');
19832: hr_utility.raise_error;
19833: end if;
19826: into l_flex_num;
19827: if csr_grp_idsel%NOTFOUND then
19828: close csr_grp_idsel;
19829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19830: hr_utility.set_message_token('PROCEDURE', l_proc);
19831: hr_utility.set_message_token('STEP','10');
19832: hr_utility.raise_error;
19833: end if;
19834: close csr_grp_idsel;
19827: if csr_grp_idsel%NOTFOUND then
19828: close csr_grp_idsel;
19829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19830: hr_utility.set_message_token('PROCEDURE', l_proc);
19831: hr_utility.set_message_token('STEP','10');
19832: hr_utility.raise_error;
19833: end if;
19834: close csr_grp_idsel;
19835: --
19828: close csr_grp_idsel;
19829: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19830: hr_utility.set_message_token('PROCEDURE', l_proc);
19831: hr_utility.set_message_token('STEP','10');
19832: hr_utility.raise_error;
19833: end if;
19834: close csr_grp_idsel;
19835: --
19836: -- Bug 2230915 - if key flex parameters have a value then derive segment
19888: --
19889: -- select or insert the Collective Agreement grade
19890: --
19891: if g_debug then
19892: hr_utility.set_location(l_proc, 36);
19893: end if;
19894: --
19895: if l_cagr_grade_def_id is null
19896: then
19966: if csr_scl_idsel%NOTFOUND
19967: then
19968: close csr_scl_idsel;
19969: if g_debug then
19970: hr_utility.set_location(l_proc, 28);
19971: end if;
19972: --
19973: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19974: hr_utility.set_message_token('PROCEDURE', l_proc);
19969: if g_debug then
19970: hr_utility.set_location(l_proc, 28);
19971: end if;
19972: --
19973: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19974: hr_utility.set_message_token('PROCEDURE', l_proc);
19975: hr_utility.set_message_token('STEP','10');
19976: hr_utility.raise_error;
19977: else
19970: hr_utility.set_location(l_proc, 28);
19971: end if;
19972: --
19973: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19974: hr_utility.set_message_token('PROCEDURE', l_proc);
19975: hr_utility.set_message_token('STEP','10');
19976: hr_utility.raise_error;
19977: else
19978: close csr_scl_idsel;
19971: end if;
19972: --
19973: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19974: hr_utility.set_message_token('PROCEDURE', l_proc);
19975: hr_utility.set_message_token('STEP','10');
19976: hr_utility.raise_error;
19977: else
19978: close csr_scl_idsel;
19979: --
19972: --
19973: hr_utility.set_message(801, 'HR_6153_ALL_PROCEDURE_FAIL');
19974: hr_utility.set_message_token('PROCEDURE', l_proc);
19975: hr_utility.set_message_token('STEP','10');
19976: hr_utility.raise_error;
19977: else
19978: close csr_scl_idsel;
19979: --
19980: --
19978: close csr_scl_idsel;
19979: --
19980: --
19981: if g_debug then
19982: hr_utility.set_location(l_proc, 30);
19983: end if;
19984: --
19985: -- Insert or select the soft_coding_keyflex_id
19986: --
20036: --
20037: end if;
20038: --
20039: if g_debug then
20040: hr_utility.set_location(l_proc, 35);
20041: end if;
20042: --
20043: -- 3652025: if application is end dated then call internal procedure
20044: --
20046: --
20047: -- Application is end dated
20048: --
20049: if g_debug then
20050: hr_utility.set_location(l_proc, 40);
20051: end if;
20052:
20053: hr_applicant_internal.create_applicant_anytime
20054: (p_effective_date => l_effective_date
20068: ,p_appl_override_warning => l_appl_override_warning
20069: );
20070:
20071: if g_debug then
20072: hr_utility.set_location(l_proc, 45);
20073: end if;
20074: --
20075: -- 3972045: If p_assignment_status_type_id is null, derive default status for
20076: -- person's business group.
20266: ,p_soft_coding_keyflex_id => l_soft_coding_keyflex_id
20267: );
20268:
20269: if g_debug then
20270: hr_utility.set_location(l_proc, 50);
20271: end if;
20272: else -- application is not end dated
20273: --
20274: -- Insert secondary assignment
20370: ,p_supervisor_assignment_id => p_supervisor_assignment_id
20371: );
20372: --
20373: if g_debug then
20374: hr_utility.set_location(l_proc, 40);
20375: end if;
20376:
20377: end if; -- application is end dated?
20378: --
20613: hr_kflex_utility.unset_session_date
20614: (p_session_id => l_session_id);
20615: --
20616: if g_debug then
20617: hr_utility.set_location(' Leaving:'||l_proc, 50);
20618: end if;
20619: exception
20620: when hr_api.validate_enabled then
20621: --
20826: begin
20827: --
20828: if g_debug then
20829: l_proc := g_package||'create_secondary_apl_asg';
20830: hr_utility.set_location('Entering:'|| l_proc, 5);
20831: end if;
20832: -- Call the new code
20833: -- Bug 944911
20834: -- No change to call point as all outs are present while the ins have defaults
20948: p_comment_id := l_comment_id;
20949: p_group_name := l_group_name;
20950: --
20951: if g_debug then
20952: hr_utility.set_location(' Leaving:'||l_proc, 50);
20953: end if;
20954: end create_secondary_apl_asg;
20955: --
20956: -- ----------------------------------------------------------------------------
20986: --
20987: begin
20988: if g_debug then
20989: l_proc := g_package||'offer_apl_asg';
20990: hr_utility.set_location('Entering:'|| l_proc, 5);
20991: end if;
20992: --
20993: -- Initialise local variable - added 25-Aug-97. RMF.
20994: --
21003: l_object_version_number_orig := p_object_version_number;
21004: l_object_version_number := p_object_version_number;
21005: --
21006: if g_debug then
21007: hr_utility.set_location(l_proc, 10);
21008: end if;
21009: --
21010: -- Process Logic
21011: --
21041: ,p_effective_end_date => l_effective_end_date
21042: );
21043: --
21044: if g_debug then
21045: hr_utility.set_location(l_proc, 20);
21046: end if;
21047: --
21048: -- Start of API User Hook for the after hook of offer_apl_asg.
21049: --
21081: p_effective_start_date := l_effective_start_date;
21082: p_effective_end_date := l_effective_end_date;
21083: --
21084: if g_debug then
21085: hr_utility.set_location(' Leaving:'||l_proc, 50);
21086: end if;
21087: exception
21088: when hr_api.validate_enabled then
21089: --
21151: --
21152: begin
21153: if g_debug then
21154: l_proc := g_package||'accept_apl_asg';
21155: hr_utility.set_location('Entering:'|| l_proc, 5);
21156: end if;
21157: --
21158: --
21159: l_effective_date := trunc(p_effective_date);
21165: l_object_version_number_orig := p_object_version_number;
21166: l_object_version_number := p_object_version_number;
21167: --
21168: if g_debug then
21169: hr_utility.set_location(l_proc, 10);
21170: end if;
21171: --
21172: -- Process Logic
21173: --
21204: ,p_effective_end_date => l_effective_end_date
21205: );
21206: --
21207: if g_debug then
21208: hr_utility.set_location(l_proc, 20);
21209: end if;
21210: --
21211: -- Start of API User Hook for the after hook of accept_apl_asg.
21212: --
21245: p_effective_start_date := l_effective_start_date;
21246: p_effective_end_date := l_effective_end_date;
21247: --
21248: if g_debug then
21249: hr_utility.set_location(' Leaving:'||l_proc, 50);
21250: end if;
21251: exception
21252: when hr_api.validate_enabled then
21253: -- As the Validate_Enabled exception has been raised
21308: BEGIN
21309: --
21310: if g_debug then
21311: l_proc := g_package||'activate_apl_asg';
21312: hr_utility.set_location('Entering:'||l_proc,10);
21313: end if;
21314: --
21315: -- Truncate all date parameters passed in
21316: --
21320: --
21321: SAVEPOINT activate_apl_asg;
21322: --
21323: if g_debug then
21324: hr_utility.set_location(l_proc,20);
21325: end if;
21326: --
21327: -- Call Before Process User Hook
21328: --
21344: );
21345: END;
21346: --
21347: if g_debug then
21348: hr_utility.set_location(l_proc,30);
21349: end if;
21350: --
21351: -- Call business support process to update status type
21352: --
21362: ,p_effective_end_date => l_effective_end_date
21363: );
21364: --
21365: if g_debug then
21366: hr_utility.set_location(l_proc,40);
21367: end if;
21368: --
21369: -- Call After Process User Hook
21370: --
21388: );
21389: END;
21390: --
21391: if g_debug then
21392: hr_utility.set_location(l_proc,50);
21393: end if;
21394: --
21395: -- When in validation only mode raise validate_enabled exception
21396: --
21404: p_effective_start_date := l_effective_start_date;
21405: p_effective_end_date := l_effective_end_date;
21406: --
21407: if g_debug then
21408: hr_utility.set_location(' Leaving:'||l_proc,100);
21409: end if;
21410: --
21411: EXCEPTION
21412: WHEN hr_api.validate_enabled
21607: ,p_org_now_no_manager_warning => l_org_now_no_manager_warning
21608: );
21609: --
21610: if g_debug then
21611: hr_utility.set_location(l_proc,70);
21612: end if;
21613: --
21614: per_asg_bus1.chk_assignment_status_type
21615: (p_assignment_status_type_id => l_assignment_status_type_id
21680: --
21681: BEGIN
21682: --
21683: if g_debug then
21684: hr_utility.set_location('Entering:'||l_proc,10);
21685: end if;
21686: --
21687: -- Ensure mandatory arguments have been passed
21688: --
21708: --
21709: SAVEPOINT terminate_apl_asg;
21710: --
21711: if g_debug then
21712: hr_utility.set_location(l_proc,20);
21713: end if;
21714: --
21715: -- Call Before Process User Hook
21716: --
21729: );
21730: END;
21731: --
21732: if g_debug then
21733: hr_utility.set_location(l_proc,30);
21734: end if;
21735: --
21736: -- Retrieve derived assignment details
21737: --
21742: FETCH csr_assignments INTO l_assignment;
21743: IF csr_assignments%NOTFOUND
21744: THEN
21745: CLOSE csr_assignments;
21746: hr_utility.set_message(801,'HR_52360_ASG_DOES_NOT_EXIST');
21747: hr_utility.raise_error;
21748: END IF;
21749: CLOSE csr_assignments;
21750: --
21743: IF csr_assignments%NOTFOUND
21744: THEN
21745: CLOSE csr_assignments;
21746: hr_utility.set_message(801,'HR_52360_ASG_DOES_NOT_EXIST');
21747: hr_utility.raise_error;
21748: END IF;
21749: CLOSE csr_assignments;
21750: --
21751: if g_debug then
21748: END IF;
21749: CLOSE csr_assignments;
21750: --
21751: if g_debug then
21752: hr_utility.set_location(l_proc,40);
21753: end if;
21754: --
21755: -- Ensure this is an applicant assignment
21756: --
21755: -- Ensure this is an applicant assignment
21756: --
21757: IF l_assignment.assignment_type <> 'A'
21758: THEN
21759: hr_utility.set_message(801,'HR_51036_ASG_ASG_NOT_APL');
21760: hr_utility.raise_error;
21761: END IF;
21762: --
21763: if g_debug then
21756: --
21757: IF l_assignment.assignment_type <> 'A'
21758: THEN
21759: hr_utility.set_message(801,'HR_51036_ASG_ASG_NOT_APL');
21760: hr_utility.raise_error;
21761: END IF;
21762: --
21763: if g_debug then
21764: hr_utility.set_location(l_proc,50);
21760: hr_utility.raise_error;
21761: END IF;
21762: --
21763: if g_debug then
21764: hr_utility.set_location(l_proc,50);
21765: end if;
21766: --
21767: -- 3652025 >> Ensure this is not the last applicant assignment
21768: --
21771: -- ,p_effective_date => l_effective_date + 1
21772: -- )
21773: --THEN
21774: --
21775: -- hr_utility.set_message(800,'HR_7987_PER_INV_TYPE_CHANGE');
21776: -- hr_utility.raise_error;
21777: --
21778: --END IF; <<
21779: --
21772: -- )
21773: --THEN
21774: --
21775: -- hr_utility.set_message(800,'HR_7987_PER_INV_TYPE_CHANGE');
21776: -- hr_utility.raise_error;
21777: --
21778: --END IF; <<
21779: --
21780: open csr_get_current_apl_asg(p_assignment_id, l_effective_date+1);
21780: open csr_get_current_apl_asg(p_assignment_id, l_effective_date+1);
21781: fetch csr_get_current_apl_asg into l_cur_asg;
21782: if csr_get_current_apl_asg%NOTFOUND then -- no current
21783: if g_debug then
21784: hr_utility.set_location(l_proc,60);
21785: end if;
21786: --
21787: close csr_get_current_apl_asg;
21788: open csr_get_future_apl_asg(p_assignment_id, l_effective_date);
21788: open csr_get_future_apl_asg(p_assignment_id, l_effective_date);
21789: fetch csr_get_future_apl_asg into l_fut_asg;
21790: if csr_get_future_apl_asg%NOTFOUND then -- no current, no future
21791: close csr_get_future_apl_asg;
21792: hr_utility.set_message(800,'HR_7987_PER_INV_TYPE_CHANGE');
21793: hr_utility.raise_error;
21794: else -- no current, yes future
21795: if g_debug then
21796: hr_utility.set_location(l_proc,62);
21789: fetch csr_get_future_apl_asg into l_fut_asg;
21790: if csr_get_future_apl_asg%NOTFOUND then -- no current, no future
21791: close csr_get_future_apl_asg;
21792: hr_utility.set_message(800,'HR_7987_PER_INV_TYPE_CHANGE');
21793: hr_utility.raise_error;
21794: else -- no current, yes future
21795: if g_debug then
21796: hr_utility.set_location(l_proc,62);
21797: end if;
21792: hr_utility.set_message(800,'HR_7987_PER_INV_TYPE_CHANGE');
21793: hr_utility.raise_error;
21794: else -- no current, yes future
21795: if g_debug then
21796: hr_utility.set_location(l_proc,62);
21797: end if;
21798: hr_utility.trace(' ex_apl date = '||to_char(l_effective_date+1));
21799: hr_utility.trace(' apl date = '||to_char(l_fut_asg.effective_start_date));
21800: -- End assignment
21794: else -- no current, yes future
21795: if g_debug then
21796: hr_utility.set_location(l_proc,62);
21797: end if;
21798: hr_utility.trace(' ex_apl date = '||to_char(l_effective_date+1));
21799: hr_utility.trace(' apl date = '||to_char(l_fut_asg.effective_start_date));
21800: -- End assignment
21801: end_assignment;
21802: -- update the person and PTU records
21795: if g_debug then
21796: hr_utility.set_location(l_proc,62);
21797: end if;
21798: hr_utility.trace(' ex_apl date = '||to_char(l_effective_date+1));
21799: hr_utility.trace(' apl date = '||to_char(l_fut_asg.effective_start_date));
21800: -- End assignment
21801: end_assignment;
21802: -- update the person and PTU records
21803: hr_applicant_internal.upd_person_ex_apl_and_apl(
21809: ,p_per_effective_end_date => l_per_effective_end_date);
21810: --
21811: -- terminate current application
21812: --
21813: hr_utility.trace(' terminate current application on '||to_char(l_effective_date));
21814: --
21815: UPDATE per_applications
21816: SET date_end = l_effective_date
21817: where application_id = l_fut_asg.application_id;
21857: ,p_appl_attribute18 => l_appl_details.appl_attribute18
21858: ,p_appl_attribute19 => l_appl_details.appl_attribute19
21859: ,p_appl_attribute20 => l_appl_details.appl_attribute20
21860: );
21861: hr_utility.trace(' new application ID = '||to_char(l_new_application_id));
21862:
21863: -- update future assignments with new application ID
21864: hr_utility.trace(' update all future assignments');
21865: -- update first assignment found
21860: );
21861: hr_utility.trace(' new application ID = '||to_char(l_new_application_id));
21862:
21863: -- update future assignments with new application ID
21864: hr_utility.trace(' update all future assignments');
21865: -- update first assignment found
21866: l_asg_ovn := l_fut_asg.object_version_number;
21867: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
21868: --
21865: -- update first assignment found
21866: l_asg_ovn := l_fut_asg.object_version_number;
21867: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
21868: --
21869: hr_utility.trace(' => asg id = '||l_fut_asg.assignment_id);
21870: hr_utility.trace(' => SD = '||to_char(l_fut_asg.effective_start_date));
21871: hr_utility.trace(' => ED = '||to_char(l_fut_asg.effective_end_date));
21872: per_asg_upd.upd
21873: (p_assignment_id => l_fut_asg.assignment_id
21866: l_asg_ovn := l_fut_asg.object_version_number;
21867: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
21868: --
21869: hr_utility.trace(' => asg id = '||l_fut_asg.assignment_id);
21870: hr_utility.trace(' => SD = '||to_char(l_fut_asg.effective_start_date));
21871: hr_utility.trace(' => ED = '||to_char(l_fut_asg.effective_end_date));
21872: per_asg_upd.upd
21873: (p_assignment_id => l_fut_asg.assignment_id
21874: ,p_effective_start_date => l_fut_asg.effective_start_date
21867: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
21868: --
21869: hr_utility.trace(' => asg id = '||l_fut_asg.assignment_id);
21870: hr_utility.trace(' => SD = '||to_char(l_fut_asg.effective_start_date));
21871: hr_utility.trace(' => ED = '||to_char(l_fut_asg.effective_end_date));
21872: per_asg_upd.upd
21873: (p_assignment_id => l_fut_asg.assignment_id
21874: ,p_effective_start_date => l_fut_asg.effective_start_date
21875: ,p_effective_end_date => l_fut_asg.effective_end_date
21887: ,p_datetrack_mode => hr_api.g_correction
21888: ,p_validate => FALSE
21889: ,p_hourly_salaried_warning => l_hourly_salaried_warning);
21890: -- update all other future assignments
21891: hr_utility.trace(' update all other assignments');
21892: LOOP
21893: fetch csr_get_future_apl_asg into l_fut_asg;
21894: exit when csr_get_future_apl_asg%NOTFOUND;
21895: l_asg_ovn := l_fut_asg.object_version_number;
21915: END LOOP;
21916: --
21917: close csr_get_future_apl_asg;
21918: if g_debug then
21919: hr_utility.set_location(l_proc,68);
21920: end if;
21921:
21922:
21923: end if;
21927: --
21928: -- current assignment is end dated
21929: --
21930: if g_debug then
21931: hr_utility.set_location(l_proc,100);
21932: end if;
21933: select max(effective_end_date) into l_mx_end_dated
21934: from per_assignments_f
21935: where person_id = l_assignment.person_id
21951: if l_mx_end_dated + 1 = l_min_no_end_dated then -- if C
21952: --
21953: -- end assignment as normal
21954: if g_debug then
21955: hr_utility.set_location(l_proc,110);
21956: end if;
21957: end_assignment;
21958: --
21959: else -- else C
21966: -- 2. Transform person onto EX-APL after "max end date" and before "min sd"
21967: -- 3. Create new application and update all future applicant assignments
21968: -- on "min sd"
21969: if g_debug then
21970: hr_utility.set_location(l_proc,120);
21971: end if;
21972: -- End assignment
21973: end_assignment;
21974: -- update the person and PTU records
21981: ,p_per_effective_end_date => l_per_effective_end_date);
21982: --
21983: -- terminate current application
21984: --
21985: hr_utility.trace(' terminate current application on '||to_char(l_mx_end_dated));
21986: --
21987: UPDATE per_applications
21988: SET date_end = l_mx_end_dated
21989: where application_id = l_assignment.application_id;
22029: ,p_appl_attribute18 => l_appl_details.appl_attribute18
22030: ,p_appl_attribute19 => l_appl_details.appl_attribute19
22031: ,p_appl_attribute20 => l_appl_details.appl_attribute20
22032: );
22033: hr_utility.trace(' new application ID = '||to_char(l_new_application_id));
22034:
22035: -- update future assignments with new application ID
22036: hr_utility.trace(' update all future assignments');
22037: -- update first assignment found
22032: );
22033: hr_utility.trace(' new application ID = '||to_char(l_new_application_id));
22034:
22035: -- update future assignments with new application ID
22036: hr_utility.trace(' update all future assignments');
22037: -- update first assignment found
22038: open csr_get_future_apl_asg(p_assignment_id, l_mx_end_dated+1);
22039: fetch csr_get_future_apl_asg into l_fut_asg;
22040: l_asg_ovn := l_fut_asg.object_version_number;
22039: fetch csr_get_future_apl_asg into l_fut_asg;
22040: l_asg_ovn := l_fut_asg.object_version_number;
22041: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
22042: --
22043: hr_utility.trace(' => asg id = '||l_fut_asg.assignment_id);
22044: hr_utility.trace(' => SD = '||to_char(l_fut_asg.effective_start_date));
22045: hr_utility.trace(' => ED = '||to_char(l_fut_asg.effective_end_date));
22046: per_asg_upd.upd
22047: (p_assignment_id => l_fut_asg.assignment_id
22040: l_asg_ovn := l_fut_asg.object_version_number;
22041: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
22042: --
22043: hr_utility.trace(' => asg id = '||l_fut_asg.assignment_id);
22044: hr_utility.trace(' => SD = '||to_char(l_fut_asg.effective_start_date));
22045: hr_utility.trace(' => ED = '||to_char(l_fut_asg.effective_end_date));
22046: per_asg_upd.upd
22047: (p_assignment_id => l_fut_asg.assignment_id
22048: ,p_effective_start_date => l_fut_asg.effective_start_date
22041: l_asg_eff_date := trunc(l_fut_asg.effective_start_date);
22042: --
22043: hr_utility.trace(' => asg id = '||l_fut_asg.assignment_id);
22044: hr_utility.trace(' => SD = '||to_char(l_fut_asg.effective_start_date));
22045: hr_utility.trace(' => ED = '||to_char(l_fut_asg.effective_end_date));
22046: per_asg_upd.upd
22047: (p_assignment_id => l_fut_asg.assignment_id
22048: ,p_effective_start_date => l_fut_asg.effective_start_date
22049: ,p_effective_end_date => l_fut_asg.effective_end_date
22061: ,p_datetrack_mode => hr_api.g_correction
22062: ,p_validate => FALSE
22063: ,p_hourly_salaried_warning => l_hourly_salaried_warning);
22064: -- update all other future assignments
22065: hr_utility.trace(' update all other assignments');
22066: LOOP
22067: fetch csr_get_future_apl_asg into l_fut_asg;
22068: exit when csr_get_future_apl_asg%NOTFOUND;
22069: l_asg_ovn := l_fut_asg.object_version_number;
22089: END LOOP;
22090: --
22091: close csr_get_future_apl_asg;
22092: if g_debug then
22093: hr_utility.set_location(l_proc,150);
22094: end if;
22095: --
22096: end if; -- end if D
22097: end if; -- end if C
22100: -- assignment being terminated is the only one available
22101: -- 1. End assignment as normal
22102: -- 2. Transform person onto EX-APL on "max end date" + 1
22103: if g_debug then
22104: hr_utility.set_location(l_proc,160);
22105: end if;
22106: null; -- not implemented.
22107: end if; -- end if B
22108: --
22108: --
22109: else -- else A
22110: --
22111: if g_debug then
22112: hr_utility.set_location(l_proc,170);
22113: end if;
22114:
22115: end if; -- end if A
22116: else
22114:
22115: end if; -- end if A
22116: else
22117: if g_debug then
22118: hr_utility.set_location(l_proc,180);
22119: end if;
22120: -- terminate assignment as normal
22121: end_assignment;
22122: end if;
22123:
22124: end if; -- end "yes current"
22125: --
22126: if g_debug then
22127: hr_utility.set_location(l_proc,200);
22128: end if;
22129: --
22130: -- Call After Process User Hook
22131: --
22146: );
22147: END;
22148: --
22149: if g_debug then
22150: hr_utility.set_location(l_proc,300);
22151: end if;
22152: --
22153: -- When in validation only mode raise validate enabled exception
22154: --
22162: p_effective_start_date := l_effective_start_date;
22163: p_effective_end_date := l_effective_end_date;
22164: --
22165: if g_debug then
22166: hr_utility.set_location(' Leaving:'||l_proc,1000);
22167: end if;
22168: --
22169: EXCEPTION
22170: WHEN hr_api.validate_enabled
22274: --
22275: BEGIN
22276: --
22277: if g_debug then
22278: hr_utility.set_location('Entering:'||l_proc,10);
22279: end if;
22280: --
22281: -- Ensure mandatory parameters have been passed
22282: --
22306: --
22307: SAVEPOINT set_new_primary_asg;
22308: --
22309: if g_debug then
22310: hr_utility.set_location(l_proc,20);
22311: end if;
22312: --
22313: -- Call Before Process User Hook
22314: --
22328: );
22329: END;
22330: --
22331: if g_debug then
22332: hr_utility.set_location(l_proc,30);
22333: end if;
22334: --
22335: -- Retrieve old primary assignment details
22336: --
22341: FETCH csr_old_assignment INTO l_old_assignment;
22342: IF csr_old_assignment%NOTFOUND
22343: THEN
22344: CLOSE csr_old_assignment;
22345: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22346: hr_utility.raise_error;
22347: END IF;
22348: CLOSE csr_old_assignment;
22349: --
22342: IF csr_old_assignment%NOTFOUND
22343: THEN
22344: CLOSE csr_old_assignment;
22345: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22346: hr_utility.raise_error;
22347: END IF;
22348: CLOSE csr_old_assignment;
22349: --
22350: if g_debug then
22347: END IF;
22348: CLOSE csr_old_assignment;
22349: --
22350: if g_debug then
22351: hr_utility.set_location(l_proc,40);
22352: end if;
22353: --
22354: -- Retrieve new primary assignment details
22355: --
22360: FETCH csr_new_assignment INTO l_new_assignment;
22361: IF csr_new_assignment%NOTFOUND
22362: THEN
22363: CLOSE csr_new_assignment;
22364: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22365: hr_utility.raise_error;
22366: END IF;
22367: CLOSE csr_new_assignment;
22368: --
22361: IF csr_new_assignment%NOTFOUND
22362: THEN
22363: CLOSE csr_new_assignment;
22364: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22365: hr_utility.raise_error;
22366: END IF;
22367: CLOSE csr_new_assignment;
22368: --
22369: if g_debug then
22366: END IF;
22367: CLOSE csr_new_assignment;
22368: --
22369: if g_debug then
22370: hr_utility.set_location(l_proc,50);
22371: end if;
22372: --
22373: -- Validate assignment selected to be new primary
22374: --
22373: -- Validate assignment selected to be new primary
22374: --
22375: IF l_new_assignment.person_id <> p_person_id
22376: THEN
22377: hr_utility.set_message(801,'HR_51253_PYP_ASS__NOT_VALID');
22378: hr_utility.raise_error;
22379: END IF;
22380: IF l_new_assignment.assignment_type <> 'E'
22381: THEN
22374: --
22375: IF l_new_assignment.person_id <> p_person_id
22376: THEN
22377: hr_utility.set_message(801,'HR_51253_PYP_ASS__NOT_VALID');
22378: hr_utility.raise_error;
22379: END IF;
22380: IF l_new_assignment.assignment_type <> 'E'
22381: THEN
22382: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
22378: hr_utility.raise_error;
22379: END IF;
22380: IF l_new_assignment.assignment_type <> 'E'
22381: THEN
22382: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
22383: hr_utility.raise_error;
22384: END IF;
22385: IF l_new_assignment.primary_flag = 'Y'
22386: THEN
22379: END IF;
22380: IF l_new_assignment.assignment_type <> 'E'
22381: THEN
22382: hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
22383: hr_utility.raise_error;
22384: END IF;
22385: IF l_new_assignment.primary_flag = 'Y'
22386: THEN
22387: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
22383: hr_utility.raise_error;
22384: END IF;
22385: IF l_new_assignment.primary_flag = 'Y'
22386: THEN
22387: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
22388: hr_utility.raise_error;
22389: END IF;
22390: IF l_new_assignment.max_effective_end_date <> NVL(l_new_assignment.actual_termination_date,hr_api.g_eot)
22391: THEN
22384: END IF;
22385: IF l_new_assignment.primary_flag = 'Y'
22386: THEN
22387: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
22388: hr_utility.raise_error;
22389: END IF;
22390: IF l_new_assignment.max_effective_end_date <> NVL(l_new_assignment.actual_termination_date,hr_api.g_eot)
22391: THEN
22392: hr_utility.set_message(800,'HR_6438_EMP_ASS_NOT_CONTIN');
22388: hr_utility.raise_error;
22389: END IF;
22390: IF l_new_assignment.max_effective_end_date <> NVL(l_new_assignment.actual_termination_date,hr_api.g_eot)
22391: THEN
22392: hr_utility.set_message(800,'HR_6438_EMP_ASS_NOT_CONTIN');
22393: hr_utility.raise_error;
22394: END IF;
22395: --
22396: if g_debug then
22389: END IF;
22390: IF l_new_assignment.max_effective_end_date <> NVL(l_new_assignment.actual_termination_date,hr_api.g_eot)
22391: THEN
22392: hr_utility.set_message(800,'HR_6438_EMP_ASS_NOT_CONTIN');
22393: hr_utility.raise_error;
22394: END IF;
22395: --
22396: if g_debug then
22397: hr_utility.set_location(l_proc,60);
22393: hr_utility.raise_error;
22394: END IF;
22395: --
22396: if g_debug then
22397: hr_utility.set_location(l_proc,60);
22398: end if;
22399: --
22400: -- End the previous primary assignment
22401: --
22413: -- ,p_last_update_login => TO_NUMBER(NULL)
22414: -- );
22415: --
22416: if g_debug then
22417: hr_utility.set_location(l_proc,70);
22418: end if;
22419: --
22420: -- Start the new primary assignment
22421: --
22430: ,p_last_update_login => TO_NUMBER(NULL)
22431: );
22432: --
22433: if g_debug then
22434: hr_utility.set_location(l_proc,75);
22435: end if;
22436: --
22437: -- #2468916: End previous assignment
22438: --
22445: );
22446: -- end #2468916
22447: --
22448: if g_debug then
22449: hr_utility.set_location(l_proc,80);
22450: end if;
22451: --
22452: -- Retrieve new primary assignment details
22453: --
22458: FETCH csr_new_assignment INTO l_new_assignment;
22459: IF csr_new_assignment%NOTFOUND
22460: THEN
22461: CLOSE csr_new_assignment;
22462: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22463: hr_utility.raise_error;
22464: END IF;
22465: CLOSE csr_new_assignment;
22466: --
22459: IF csr_new_assignment%NOTFOUND
22460: THEN
22461: CLOSE csr_new_assignment;
22462: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22463: hr_utility.raise_error;
22464: END IF;
22465: CLOSE csr_new_assignment;
22466: --
22467: if g_debug then
22464: END IF;
22465: CLOSE csr_new_assignment;
22466: --
22467: if g_debug then
22468: hr_utility.set_location(l_proc,90);
22469: end if;
22470: --
22471: -- Call After Process User Hook
22472: --
22488: );
22489: END;
22490: --
22491: if g_debug then
22492: hr_utility.set_location(l_proc,100);
22493: end if;
22494: --
22495: -- When in validation only mode raise validate enabled exception
22496: --
22505: p_effective_start_date := l_new_assignment.effective_start_date;
22506: p_effective_end_date := l_new_assignment.effective_end_date;
22507: --
22508: if g_debug then
22509: hr_utility.set_location(' Leaving:'||l_proc,1000);
22510: end if;
22511: --
22512: EXCEPTION
22513: WHEN hr_api.validate_enabled
22615: --
22616: BEGIN
22617: --
22618: if g_debug then
22619: hr_utility.set_location('Entering:'||l_proc,10);
22620: end if;
22621: --
22622: -- Ensure mandatory parameters have been passed
22623: --
22647: --
22648: SAVEPOINT set_new_primary_cwk_asg;
22649: --
22650: if g_debug then
22651: hr_utility.set_location(l_proc,20);
22652: end if;
22653: --
22654: -- Call Before Process User Hook
22655: --
22671: --
22672: END;
22673: --
22674: if g_debug then
22675: hr_utility.set_location(l_proc,30);
22676: end if;
22677: --
22678: -- Retrieve old primary assignment details
22679: --
22686: IF csr_old_assignment%NOTFOUND THEN
22687: --
22688: CLOSE csr_old_assignment;
22689: --
22690: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22691: hr_utility.raise_error;
22692: --
22693: END IF;
22694: --
22687: --
22688: CLOSE csr_old_assignment;
22689: --
22690: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22691: hr_utility.raise_error;
22692: --
22693: END IF;
22694: --
22695: CLOSE csr_old_assignment;
22694: --
22695: CLOSE csr_old_assignment;
22696: --
22697: if g_debug then
22698: hr_utility.set_location(l_proc,40);
22699: end if;
22700: --
22701: -- Retrieve new primary assignment details
22702: --
22709: IF csr_new_assignment%NOTFOUND THEN
22710: --
22711: CLOSE csr_new_assignment;
22712: --
22713: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22714: hr_utility.raise_error;
22715: --
22716: END IF;
22717: --
22710: --
22711: CLOSE csr_new_assignment;
22712: --
22713: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22714: hr_utility.raise_error;
22715: --
22716: END IF;
22717: --
22718: CLOSE csr_new_assignment;
22717: --
22718: CLOSE csr_new_assignment;
22719: --
22720: if g_debug then
22721: hr_utility.set_location(l_proc,50);
22722: end if;
22723: --
22724: -- Validate assignment selected to be new primary
22725: --
22724: -- Validate assignment selected to be new primary
22725: --
22726: IF l_new_assignment.person_id <> p_person_id THEN
22727: --
22728: hr_utility.set_message(801,'HR_51253_PYP_ASS__NOT_VALID');
22729: hr_utility.raise_error;
22730: --
22731: END IF;
22732: --
22725: --
22726: IF l_new_assignment.person_id <> p_person_id THEN
22727: --
22728: hr_utility.set_message(801,'HR_51253_PYP_ASS__NOT_VALID');
22729: hr_utility.raise_error;
22730: --
22731: END IF;
22732: --
22733: IF l_new_assignment.assignment_type <> 'C' THEN
22731: END IF;
22732: --
22733: IF l_new_assignment.assignment_type <> 'C' THEN
22734: --
22735: --hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
22736: hr_utility.set_message(801,'XXX');
22737: hr_utility.raise_error;
22738: --
22739: END IF;
22732: --
22733: IF l_new_assignment.assignment_type <> 'C' THEN
22734: --
22735: --hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
22736: hr_utility.set_message(801,'XXX');
22737: hr_utility.raise_error;
22738: --
22739: END IF;
22740: --
22733: IF l_new_assignment.assignment_type <> 'C' THEN
22734: --
22735: --hr_utility.set_message(801,'HR_7948_ASG_ASG_NOT_EMP');
22736: hr_utility.set_message(801,'XXX');
22737: hr_utility.raise_error;
22738: --
22739: END IF;
22740: --
22741: IF l_new_assignment.primary_flag = 'Y' THEN
22739: END IF;
22740: --
22741: IF l_new_assignment.primary_flag = 'Y' THEN
22742: --
22743: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
22744: hr_utility.raise_error;
22745: --
22746: END IF;
22747: --
22740: --
22741: IF l_new_assignment.primary_flag = 'Y' THEN
22742: --
22743: hr_utility.set_message(801,'HR_7999_ASG_INV_PRIM_ASG');
22744: hr_utility.raise_error;
22745: --
22746: END IF;
22747: --
22748: IF l_new_assignment.max_effective_end_date <>
22747: --
22748: IF l_new_assignment.max_effective_end_date <>
22749: NVL(l_new_assignment.actual_termination_date,hr_api.g_eot) THEN
22750: --
22751: hr_utility.set_message(800,'HR_6438_EMP_ASS_NOT_CONTIN');
22752: hr_utility.raise_error;
22753: --
22754: END IF;
22755: --
22748: IF l_new_assignment.max_effective_end_date <>
22749: NVL(l_new_assignment.actual_termination_date,hr_api.g_eot) THEN
22750: --
22751: hr_utility.set_message(800,'HR_6438_EMP_ASS_NOT_CONTIN');
22752: hr_utility.raise_error;
22753: --
22754: END IF;
22755: --
22756: if g_debug then
22753: --
22754: END IF;
22755: --
22756: if g_debug then
22757: hr_utility.set_location(l_proc,60);
22758: end if;
22759: --
22760: -- End the previous primary assignment
22761: --
22771: ,p_last_update_login => TO_NUMBER(NULL)
22772: );
22773: --
22774: if g_debug then
22775: hr_utility.set_location(l_proc,70);
22776: end if;
22777: --
22778: -- Start the new primary assignment
22779: --
22789: ,p_last_update_login => TO_NUMBER(NULL)
22790: );
22791: --
22792: if g_debug then
22793: hr_utility.set_location(l_proc,80);
22794: end if;
22795: --
22796: -- Retrieve new primary assignment details
22797: --
22804: IF csr_new_assignment%NOTFOUND THEN
22805: --
22806: CLOSE csr_new_assignment;
22807: --
22808: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22809: hr_utility.raise_error;
22810: --
22811: END IF;
22812: --
22805: --
22806: CLOSE csr_new_assignment;
22807: --
22808: hr_utility.set_message(800,'HR_51253_PYP_ASS__NOT_VALID');
22809: hr_utility.raise_error;
22810: --
22811: END IF;
22812: --
22813: CLOSE csr_new_assignment;
22812: --
22813: CLOSE csr_new_assignment;
22814: --
22815: if g_debug then
22816: hr_utility.set_location(l_proc,90);
22817: end if;
22818: --
22819: -- Call After Process User Hook
22820: --
22838: --
22839: END;
22840: --
22841: if g_debug then
22842: hr_utility.set_location(l_proc,100);
22843: end if;
22844: --
22845: -- When in validation only mode raise validate enabled exception
22846: --
22856: p_effective_start_date := l_new_assignment.effective_start_date;
22857: p_effective_end_date := l_new_assignment.effective_end_date;
22858: --
22859: if g_debug then
22860: hr_utility.set_location(' Leaving:'||l_proc,999);
22861: end if;
22862: --
22863: EXCEPTION
22864: --
22925: BEGIN
22926: --
22927: if g_debug then
22928: l_proc := g_package||'interview1_apl_asg';
22929: hr_utility.set_location('Entering:'||l_proc,10);
22930: end if;
22931: --
22932: -- Truncate all date parameters passed in
22933: --
22937: --
22938: SAVEPOINT interview1_apl_asg;
22939: --
22940: if g_debug then
22941: hr_utility.set_location(l_proc,20);
22942: end if;
22943: --
22944: -- Call Before Process User Hook
22945: --
22961: );
22962: END;
22963: --
22964: if g_debug then
22965: hr_utility.set_location(l_proc,30);
22966: end if;
22967: --
22968: -- Call business support process to update status type
22969: --
22979: ,p_effective_end_date => l_effective_end_date
22980: );
22981: --
22982: if g_debug then
22983: hr_utility.set_location(l_proc,40);
22984: end if;
22985: --
22986: -- Call After Process User Hook
22987: --
23005: );
23006: END;
23007: --
23008: if g_debug then
23009: hr_utility.set_location(l_proc,50);
23010: end if;
23011: --
23012: -- When in validation only mode raise validate_enabled exception
23013: --
23021: p_effective_start_date := l_effective_start_date;
23022: p_effective_end_date := l_effective_end_date;
23023: --
23024: if g_debug then
23025: hr_utility.set_location(' Leaving:'||l_proc,100);
23026: end if;
23027: --
23028: EXCEPTION
23029: WHEN hr_api.validate_enabled
23089: BEGIN
23090: --
23091: if g_debug then
23092: l_proc := g_package||'interview2_apl_asg';
23093: hr_utility.set_location('Entering:'||l_proc,10);
23094: end if;
23095: --
23096: -- Truncate all date parameters passed in
23097: --
23101: --
23102: SAVEPOINT interview2_apl_asg;
23103: --
23104: if g_debug then
23105: hr_utility.set_location(l_proc,20);
23106: end if;
23107: --
23108: -- Call Before Process User Hook
23109: --
23125: );
23126: END;
23127: --
23128: if g_debug then
23129: hr_utility.set_location(l_proc,30);
23130: end if;
23131: --
23132: -- Call business support process to update status type
23133: --
23143: ,p_effective_end_date => l_effective_end_date
23144: );
23145: --
23146: if g_debug then
23147: hr_utility.set_location(l_proc,40);
23148: end if;
23149: --
23150: -- Call After Process User Hook
23151: --
23169: );
23170: END;
23171: --
23172: if g_debug then
23173: hr_utility.set_location(l_proc,50);
23174: end if;
23175: --
23176: -- When in validation only mode raise validate_enabled exception
23177: --
23185: p_effective_start_date := l_effective_start_date;
23186: p_effective_end_date := l_effective_end_date;
23187: --
23188: if g_debug then
23189: hr_utility.set_location(' Leaving:'||l_proc,100);
23190: end if;
23191: --
23192: EXCEPTION
23193: WHEN hr_api.validate_enabled
23257: --
23258: BEGIN
23259: --
23260: if g_debug then
23261: hr_utility.set_location('Entering:'|| l_proc, 5);
23262: hr_utility.set_location('p_effective_date:'|| to_char(p_effective_date,'DD/MM/YYYY'), 5);
23263: hr_utility.set_location('p_assignment_id :'|| p_assignment_id, 5);
23264: end if;
23265: --
23258: BEGIN
23259: --
23260: if g_debug then
23261: hr_utility.set_location('Entering:'|| l_proc, 5);
23262: hr_utility.set_location('p_effective_date:'|| to_char(p_effective_date,'DD/MM/YYYY'), 5);
23263: hr_utility.set_location('p_assignment_id :'|| p_assignment_id, 5);
23264: end if;
23265: --
23266: l_effective_date := trunc(p_effective_date);
23259: --
23260: if g_debug then
23261: hr_utility.set_location('Entering:'|| l_proc, 5);
23262: hr_utility.set_location('p_effective_date:'|| to_char(p_effective_date,'DD/MM/YYYY'), 5);
23263: hr_utility.set_location('p_assignment_id :'|| p_assignment_id, 5);
23264: end if;
23265: --
23266: l_effective_date := trunc(p_effective_date);
23267: l_validate := p_validate ;
23270: --
23271: savepoint hr_delete_assignment;
23272: --
23273: if g_debug then
23274: hr_utility.set_location(l_proc, 6);
23275: end if;
23276: --
23277: open get_asgt_type;
23278: fetch get_asgt_type into asg_type;
23282: --
23283: close get_asgt_type;
23284: if asg_type = 'B' then
23285: if g_debug then
23286: hr_utility.set_location('Selected assignment is of type Benifit', 10);
23287: end if;
23288: --
23289: fnd_message.set_name('PER', 'HR_449746_DEL_BEN_ASG');
23290: fnd_message.raise_error;
23366: raise hr_api.validate_enabled;
23367: end if;
23368: --
23369: if g_debug then
23370: hr_utility.set_location(' Leaving:'||l_proc, 100);
23371: end if;
23372: --
23373: exception
23374: when hr_api.validate_enabled then