428: end loop;
429: hr_utility.set_location(' Validate_NFC ',20);
430: -- Check for the change in the segments
431: -- for c_old_rec in c_old_pos_segments(p_position_id) loop
432: IF p_information6 IS NOT NULL and p_information6 <> hr_api.g_varchar2
433: THEN
434: hr_utility.set_location(' Validate_NFC '||p_information6,30);
435: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
436: hr_utility.set_location(' Validate_NFC '||p_information6,31);
433: THEN
434: hr_utility.set_location(' Validate_NFC '||p_information6,30);
435: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
436: hr_utility.set_location(' Validate_NFC '||p_information6,31);
437: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
438: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
439: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
440: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
441: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
434: hr_utility.set_location(' Validate_NFC '||p_information6,30);
435: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
436: hr_utility.set_location(' Validate_NFC '||p_information6,31);
437: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
438: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
439: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
440: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
441: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
442: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
435: FOR c_old_rec in c_old_pos_segments(p_information6,l_session_date) LOOP
436: hr_utility.set_location(' Validate_NFC '||p_information6,31);
437: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
438: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
439: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
440: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
441: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
442: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
443: hr_utility.raise_error;
436: hr_utility.set_location(' Validate_NFC '||p_information6,31);
437: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
438: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
439: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
440: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
441: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
442: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
443: hr_utility.raise_error;
444: END IF;
437: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
438: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
439: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
440: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
441: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
442: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
443: hr_utility.raise_error;
444: END IF;
445: END LOOP;
446: END IF;
447:
448: -- Raise error when master position segments are changed
449: -- when they're having child individual positions attached to it
450: IF p_information6 IS NULL or p_information6 = hr_api.g_varchar2 THEN
451: hr_utility.set_location(' Validate_NFC ',40);
452: -- Check if the segment values have changed.
453: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
454: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
450: IF p_information6 IS NULL or p_information6 = hr_api.g_varchar2 THEN
451: hr_utility.set_location(' Validate_NFC ',40);
452: -- Check if the segment values have changed.
453: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
454: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
455: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
456: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
457: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
458: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
451: hr_utility.set_location(' Validate_NFC ',40);
452: -- Check if the segment values have changed.
453: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
454: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
455: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
456: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
457: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
458: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
459: hr_utility.set_location(' Validate_NFC ',50);
452: -- Check if the segment values have changed.
453: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
454: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
455: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
456: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
457: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
458: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
459: hr_utility.set_location(' Validate_NFC ',50);
460: -- Raise error if child exists
453: FOR c_old_rec in c_old_pos_segments(P_POSITION_ID,l_session_date) LOOP
454: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
455: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
456: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
457: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
458: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
459: hr_utility.set_location(' Validate_NFC ',50);
460: -- Raise error if child exists
461: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
454: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
455: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
456: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) OR
457: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) OR
458: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) THEN
459: hr_utility.set_location(' Validate_NFC ',50);
460: -- Raise error if child exists
461: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
462: l_child_exists := TRUE;
573: l_session_date := ses_rec.session_date;
574: end loop;
575: IF p_information6 IS NOT NULL THEN
576: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
577: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
578: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
579: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
580: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
581: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
574: end loop;
575: IF p_information6 IS NOT NULL THEN
576: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
577: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
578: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
579: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
580: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
581: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
582: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
575: IF p_information6 IS NOT NULL THEN
576: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
577: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
578: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
579: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
580: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
581: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
582: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
583: hr_utility.raise_error;
576: for c_old_rec in c_old_pos_segments(p_information6,l_session_date) loop
577: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
578: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
579: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
580: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
581: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
582: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
583: hr_utility.raise_error;
584: END IF;
577: IF NVL(c_old_rec.segment2,hr_api.g_varchar2) <> NVL(p_segment2,hr_api.g_varchar2) OR
578: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR
579: NVL(c_old_rec.segment4,hr_api.g_varchar2) <> NVL(p_segment4,hr_api.g_varchar2) or
580: -- NVL(c_old_rec.segment6,hr_api.g_varchar2) <> NVL(p_segment6,hr_api.g_varchar2) or
581: NVL(c_old_rec.segment7,hr_api.g_varchar2) <> NVL(p_segment7,hr_api.g_varchar2) then
582: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');
583: hr_utility.raise_error;
584: END IF;
585: end loop;
778: (p_assignment_id IS NOT NULL) OR
779: (p_position_id IS NOT NULL) THEN
780: -- Derive the business_group_id from the known ID.
781: -- Therefore can derive the security_group_id and
782: -- set CLIENT_INFO by calling hr_api.set_security_group_id
783: -- So can use HR_LOOKUPS for validation.
784: -- Getting Business Group Id
785: IF p_person_id is not null then
786: FOR c_per_bus_rec IN c_per_bus_group_id(p_person_id)
807: l_security_group_id := cur_sec_grp_rec.security_group_id;
808: exit;
809: END LOOP;
810: -- Set the Security Group Id in CLIENT_INFO
811: hr_api.set_security_group_id(
812: p_security_group_id => l_security_group_id
813: );
814: ELSE
815: --Cannot derive a business group, so data must be held
814: ELSE
815: --Cannot derive a business group, so data must be held
816: -- outside of the context of a business group
817: -- Set CLIENT_INFO to zero by calling
818: -- hr_api.set_security_group_id.
819: -- So can use HR_LOOKUPS for validation.
820:
821: -- Note1: CLIENT_INFO needs to be explicitly set to
822: -- zero because the same API may have previously been
829: -- because this will only be done when the API call has NOT
830: -- come from a Form.
831: --
832: -- Set the Security Group Id in CLIENT_INFO to 0
833: hr_api.set_security_group_id(
834: p_security_group_id => 0
835: );
836: END IF;
837: END IF;
933: pa_notification_id = p_pa_notification_id) -- Excludes original action
934: order by pa_notification_id desc;
935: BEGIN
936: FOR c_prev_rec in c_get_prev_details LOOP
937: IF nvl(c_prev_rec.first_noa_code,hr_api.g_varchar2) = '002' THEN
938: p_first_auth_code := c_prev_rec.second_action_la_code1;
939: p_second_auth_code := c_prev_rec.second_action_la_code2;
940: ELSE
941: p_first_auth_code := c_prev_rec.first_action_la_code1;