eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.GHR_UTILITY dependencies on HR_UTILITY

Line 1: PACKAGE BODY ghr_utility AS

1: PACKAGE BODY ghr_utility AS
2: /* $Header: ghutils.pkb 120.21 2011/04/21 10:58:52 vmididho ship $ */
3: --
4: -- Figure out whether GHR is installed or not.
5: -- if GHR_US_ORG_INFORMATION is defined for current business group

Line 8: g_package VARCHAR2(30) := 'ghr_utility.';

4: -- Figure out whether GHR is installed or not.
5: -- if GHR_US_ORG_INFORMATION is defined for current business group
6: -- it is assumed that GHR is installed.
7: --
8: g_package VARCHAR2(30) := 'ghr_utility.';
9: v_current_bg NUMBER;
10: CURSOR c_fed_bg (p_current_bg NUMBER) IS
11: SELECT hoi.org_information_context
12: , hoi.org_information1

Line 220: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',

216: l_flex_num := get_pos_flex_num(p_bus_org_id=>l_bus_group_id) ;
217:
218: l_flex_recs := get_segments(p_flex_num => l_flex_num,
219: p_flex_code => 'POS');
220: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',
221: p_flex_num => l_flex_num);
222:
223: ------------------------------------------------
224: -- Storing Position segment details in a rec.

Line 326: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',

322: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_bus_group_id);
323:
324: l_flex_num := get_pos_flex_num(p_bus_org_id=>l_bus_group_id) ;
325:
326: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',
327: p_flex_num => l_flex_num);
328: ------------------------------------------------
329: -- Extracting Segment values from Position Name
330: ------------------------------------------------

Line 431: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN

427: from fnd_sessions
428: where session_id = (select userenv('sessionid') from dual);
429:
430: BEGIN
431: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
432: l_child_exists := FALSE;
433: hr_utility.set_location('Entering: Validate_NFC ',10);
434: -- Get Session Date
435: l_session_date := trunc(sysdate);

Line 433: hr_utility.set_location('Entering: Validate_NFC ',10);

429:
430: BEGIN
431: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
432: l_child_exists := FALSE;
433: hr_utility.set_location('Entering: Validate_NFC ',10);
434: -- Get Session Date
435: l_session_date := trunc(sysdate);
436: for ses_rec in c_get_session_date loop
437: l_session_date := ses_rec.session_date;

Line 439: hr_utility.set_location(' Validate_NFC ',20);

435: l_session_date := trunc(sysdate);
436: for ses_rec in c_get_session_date loop
437: l_session_date := ses_rec.session_date;
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

Line 444: hr_utility.set_location(' Validate_NFC '||p_information6,30);

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);
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

Line 446: hr_utility.set_location(' Validate_NFC '||p_information6,31);

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);
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

Line 452: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');

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;

Line 453: hr_utility.raise_error;

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:

Line 461: hr_utility.set_location(' Validate_NFC ',40);

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
465: NVL(c_old_rec.segment3,hr_api.g_varchar2) <> NVL(p_segment3,hr_api.g_varchar2) OR

Line 469: hr_utility.set_location(' Validate_NFC ',50);

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;
473: EXIT;

Line 475: hr_utility.set_location(' Validate_NFC ',60);

471: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
472: l_child_exists := TRUE;
473: EXIT;
474: END LOOP;
475: hr_utility.set_location(' Validate_NFC ',60);
476: IF l_child_exists = TRUE THEN
477: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
478: hr_utility.raise_error;
479: END IF;

Line 477: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');

473: EXIT;
474: END LOOP;
475: hr_utility.set_location(' Validate_NFC ',60);
476: IF l_child_exists = TRUE THEN
477: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
478: hr_utility.raise_error;
479: END IF;
480: END IF;
481: END LOOP;

Line 478: hr_utility.raise_error;

474: END LOOP;
475: hr_utility.set_location(' Validate_NFC ',60);
476: IF l_child_exists = TRUE THEN
477: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
478: hr_utility.raise_error;
479: END IF;
480: END IF;
481: END LOOP;
482: END IF;

Line 501: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN

497:
498: l_child_exists BOOLEAN;
499:
500: BEGIN
501: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
502: l_child_exists := FALSE;
503: hr_utility.set_location('Entering: Validate_Delete_NFC ',10);
504: -- Raise error if child exists
505: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP

Line 503: hr_utility.set_location('Entering: Validate_Delete_NFC ',10);

499:
500: BEGIN
501: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
502: l_child_exists := FALSE;
503: hr_utility.set_location('Entering: Validate_Delete_NFC ',10);
504: -- Raise error if child exists
505: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
506: l_child_exists := TRUE;
507: EXIT;

Line 510: hr_utility.set_location(' Validate_Delete_NFC ',60);

506: l_child_exists := TRUE;
507: EXIT;
508: END LOOP;
509:
510: hr_utility.set_location(' Validate_Delete_NFC ',60);
511: IF l_child_exists = TRUE THEN
512: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
513: hr_utility.raise_error;
514: END IF;

Line 512: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');

508: END LOOP;
509:
510: hr_utility.set_location(' Validate_Delete_NFC ',60);
511: IF l_child_exists = TRUE THEN
512: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
513: hr_utility.raise_error;
514: END IF;
515: --
516: END IF; -- is_ghr_nfc check

Line 513: hr_utility.raise_error;

509:
510: hr_utility.set_location(' Validate_Delete_NFC ',60);
511: IF l_child_exists = TRUE THEN
512: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
513: hr_utility.raise_error;
514: END IF;
515: --
516: END IF; -- is_ghr_nfc check
517:

Line 576: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN

572: from fnd_sessions
573: where session_id = (select userenv('sessionid') from dual);
574:
575: BEGIN
576: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
577: hr_utility.set_location('Entering: HR_POSITION_BK1.CREATE_POSITION_B', 10);
578: -- Check for the change in the segments
579: -- for c_old_rec in c_old_pos_segments(p_position_id) loop
580: -- Get Session Date

Line 577: hr_utility.set_location('Entering: HR_POSITION_BK1.CREATE_POSITION_B', 10);

573: where session_id = (select userenv('sessionid') from dual);
574:
575: BEGIN
576: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
577: hr_utility.set_location('Entering: HR_POSITION_BK1.CREATE_POSITION_B', 10);
578: -- Check for the change in the segments
579: -- for c_old_rec in c_old_pos_segments(p_position_id) loop
580: -- Get Session Date
581: l_session_date := trunc(sysdate);

Line 592: hr_utility.set_message(8301,'GHR_38948_NFC_ERROR4');

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;
596: END IF;

Line 593: hr_utility.raise_error;

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;
596: END IF;
597: --

Line 653: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN

649: BEGIN
650: -- Update/Create Position group1 Extra Info
651: --
652: -- EIT GHR_US_POS_GRP1
653: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
654: l_information_type := 'GHR_US_POS_GRP1';
655: for pos_ei in c_pos_ei(p_position_id,l_information_type)
656: LOOP
657: l_extra_info_id := pos_ei.position_extra_info_id;

Line 698: END IF; -- IF ghr_utility.is_ghr_nfc = 'TRUE' THEN

694: END IF;
695: END LOOP;
696:
697:
698: END IF; -- IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
699:
700: END update_nfc_eit;
701:
702:

Line 708: -- hr_utility.set_location('Inside is_ghr' ,1);

704: FUNCTION is_ghr RETURN VARCHAR2
705: IS
706: BEGIN
707: -- DK 2002-11-08 PLSQLSTD
708: -- hr_utility.set_location('Inside is_ghr' ,1);
709: RETURN v_is_ghr;
710: END;
711:
712:

Line 716: -- hr_utility.set_location('Inside is_ghr_ben' ,1);

712:
713: FUNCTION is_ghr_ben RETURN VARCHAR2
714: IS
715: BEGIN
716: -- hr_utility.set_location('Inside is_ghr_ben' ,1);
717: RETURN v_is_ghr_ben;
718: END;
719:
720:

Line 724: -- hr_utility.set_location('Inside is_ghr_ben_fehb' ,1);

720:
721: FUNCTION is_ghr_ben_fehb RETURN VARCHAR2
722: IS
723: BEGIN
724: -- hr_utility.set_location('Inside is_ghr_ben_fehb' ,1);
725: RETURN v_is_ghr_ben_fehb;
726: END;
727:
728: FUNCTION is_ghr_ben_tsp RETURN VARCHAR2

Line 731: -- hr_utility.set_location('Inside is_ghr_ben_tsp' ,1);

727:
728: FUNCTION is_ghr_ben_tsp RETURN VARCHAR2
729: IS
730: BEGIN
731: -- hr_utility.set_location('Inside is_ghr_ben_tsp' ,1);
732: RETURN v_is_ghr_ben_tsp;
733: END;
734:
735: FUNCTION is_ghr_nfc RETURN VARCHAR2

Line 738: -- hr_utility.set_location('Inside is_ghr_ben' ,1);

734:
735: FUNCTION is_ghr_nfc RETURN VARCHAR2
736: IS
737: BEGIN
738: -- hr_utility.set_location('Inside is_ghr_ben' ,1);
739: RETURN v_is_ghr_nfc;
740: END;
741:
742: FUNCTION is_ghr_ben_fegli RETURN VARCHAR2

Line 745: -- hr_utility.set_location('Inside is_ghr_ben' ,1);

741:
742: FUNCTION is_ghr_ben_fegli RETURN VARCHAR2
743: IS
744: BEGIN
745: -- hr_utility.set_location('Inside is_ghr_ben' ,1);
746: RETURN v_is_ghr_ben_fegli;
747: END;
748:
749: PROCEDURE set_client_info

Line 999: --hr_utility.set_location('Inside Main Begin' ,1);

995: v_is_ghr := 'TRUE';
996: v_current_bg := fnd_profile.value('PER_BUSINESS_GROUP_ID');
997:
998: -- DK 2002-11-08 PLSQLSTD
999: --hr_utility.set_location('Inside Main Begin' ,1);
1000:
1001: OPEN c_fed_bg(v_current_bg);
1002: FETCH c_fed_bg INTO r_fed_bg;
1003: IF c_fed_bg%NOTFOUND THEN

Line 1056: --hr_utility.set_location('Leaving Main Begin' ,1);

1052: --FEGLI
1053:
1054:
1055: -- DK 2002-11-08 PLSQLSTD
1056: --hr_utility.set_location('Leaving Main Begin' ,1);
1057:
1058: end ghr_utility;

Line 1058: end ghr_utility;

1054:
1055: -- DK 2002-11-08 PLSQLSTD
1056: --hr_utility.set_location('Leaving Main Begin' ,1);
1057:
1058: end ghr_utility;