438: end loop;
439: hr_utility.set_location(' Validate_NFC ',20);
440: -- Check for the change in the segments
441: -- for c_old_rec in c_old_pos_segments(p_position_id) loop
442: IF p_information6 IS NOT NULL and p_information6 <> hr_api.g_varchar2
443: THEN
444: hr_utility.set_location(' Validate_NFC '||p_information6,30);
445: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
446: hr_utility.set_location(' Validate_NFC '||p_information6,31);
443: THEN
444: hr_utility.set_location(' Validate_NFC '||p_information6,30);
445: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
446: hr_utility.set_location(' Validate_NFC '||p_information6,31);
447: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
448: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
449: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
450: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
451: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
444: hr_utility.set_location(' Validate_NFC '||p_information6,30);
445: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
446: hr_utility.set_location(' Validate_NFC '||p_information6,31);
447: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
448: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
449: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
450: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
451: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
452: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
445: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
446: hr_utility.set_location(' Validate_NFC '||p_information6,31);
447: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
448: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
449: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
450: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
451: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
452: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
453: hr_utility.raise_error;
446: hr_utility.set_location(' Validate_NFC '||p_information6,31);
447: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
448: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
449: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
450: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
451: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
452: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
453: hr_utility.raise_error;
454: END IF;
447: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
448: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
449: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
450: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
451: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
452: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
453: hr_utility.raise_error;
454: END IF;
455: END LOOP;
456: END IF;
457:
458: -- Raise error when master position segments are changed
459: -- when they're having child individual positions attached to it
460: IF p_information6 IS NULL or p_information6 = hr_api.g_varchar2 THEN
461: hr_utility.set_location(' Validate_NFC ',40);
462: -- Check if the segment values have changed.
463: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
464: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
460: IF p_information6 IS NULL or p_information6 = hr_api.g_varchar2 THEN
461: hr_utility.set_location(' Validate_NFC ',40);
462: -- Check if the segment values have changed.
463: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
464: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
465: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
466: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
467: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
468: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
461: hr_utility.set_location(' Validate_NFC ',40);
462: -- Check if the segment values have changed.
463: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
464: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
465: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
466: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
467: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
468: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
469: hr_utility.set_location(' Validate_NFC ',50);
462: -- Check if the segment values have changed.
463: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
464: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
465: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
466: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
467: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
468: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
469: hr_utility.set_location(' Validate_NFC ',50);
470: -- Raise error if child exists
463: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
464: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
465: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
466: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
467: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
468: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
469: hr_utility.set_location(' Validate_NFC ',50);
470: -- Raise error if child exists
471: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
464: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
465: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
466: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
467: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
468: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
469: hr_utility.set_location(' Validate_NFC ',50);
470: -- Raise error if child exists
471: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
472: l_child_exists := TRUE;
583: l_session_date := ses_rec.session_date;
584: end loop;
585: IF p_information6 IS NOT NULL THEN
586: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
587: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
588: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
589: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
590: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
591: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
584: end loop;
585: IF p_information6 IS NOT NULL THEN
586: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
587: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
588: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
589: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
590: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
591: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
592: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
585: IF p_information6 IS NOT NULL THEN
586: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
587: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
588: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
589: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
590: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
591: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
592: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
593: hr_utility.raise_error;
586: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
587: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
588: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
589: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
590: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
591: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
592: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
593: hr_utility.raise_error;
594: END IF;
587: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
588: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
589: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
590: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
591: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
592: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
593: hr_utility.raise_error;
594: END IF;
595: end loop;
795: (p_assignment_id IS NOT NULL) OR
796: (p_position_id IS NOT NULL) THEN
797: -- Derive the business_group_id from the known ID.
798: -- Therefore can derive the security_group_id and
799: -- set CLIENT_INFO by calling hr_api.set_security_group_id
800: -- So can use HR_LOOKUPS for validation.
801: -- Getting Business Group Id
802: IF p_person_id is not null then
803: FOR c_per_bus_rec IN c_per_bus_group_id(p_person_id)
824: l_security_group_id := cur_sec_grp_rec.security_group_id;
825: exit;
826: END LOOP;
827: -- Set the Security Group Id in CLIENT_INFO
828: hr_api.set_security_group_id(
829: p_security_group_id => l_security_group_id
830: );
831: ELSE
832: --Cannot derive a business group, so data must be held
831: ELSE
832: --Cannot derive a business group, so data must be held
833: -- outside of the context of a business group
834: -- Set CLIENT_INFO to zero by calling
835: -- hr_api.set_security_group_id.
836: -- So can use HR_LOOKUPS for validation.
837:
838: -- Note1: CLIENT_INFO needs to be explicitly set to
839: -- zero because the same API may have previously been
846: -- because this will only be done when the API call has NOT
847: -- come from a Form.
848: --
849: -- Set the Security Group Id in CLIENT_INFO to 0
850: hr_api.set_security_group_id(
851: p_security_group_id => 0
852: );
853: END IF;
854: END IF;
950: pa_notification_id = p_pa_notification_id) -- Excludes original action
951: order by pa_notification_id desc;
952: BEGIN
953: FOR c_prev_rec in c_get_prev_details LOOP
954: IF nvl(c_prev_rec.first_noa_code,hr_api.g_varchar2) = '002' THEN
955: p_first_auth_code := c_prev_rec.second_action_la_code1;
956: p_second_auth_code := c_prev_rec.second_action_la_code2;
957: ELSE
958: p_first_auth_code := c_prev_rec.first_action_la_code1;