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.20 2005/12/09 04:37:37 sumarimu noship $ */
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 210: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',

206: l_flex_num := get_pos_flex_num(p_bus_org_id=>l_bus_group_id) ;
207:
208: l_flex_recs := get_segments(p_flex_num => l_flex_num,
209: p_flex_code => 'POS');
210: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',
211: p_flex_num => l_flex_num);
212:
213: ------------------------------------------------
214: -- Storing Position segment details in a rec.

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

312: fnd_profile.get('PER_BUSINESS_GROUP_ID',l_bus_group_id);
313:
314: l_flex_num := get_pos_flex_num(p_bus_org_id=>l_bus_group_id) ;
315:
316: l_delimiter := ghr_utility.get_flex_delimiter(p_flex_code => 'POS',
317: p_flex_num => l_flex_num);
318: ------------------------------------------------
319: -- Extracting Segment values from Position Name
320: ------------------------------------------------

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

417: from fnd_sessions
418: where session_id = (select userenv('sessionid') from dual);
419:
420: BEGIN
421: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
422: l_child_exists := FALSE;
423: hr_utility.set_location('Entering: Validate_NFC ',10);
424: -- Get Session Date
425: l_session_date := trunc(sysdate);

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

419:
420: BEGIN
421: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
422: l_child_exists := FALSE;
423: hr_utility.set_location('Entering: Validate_NFC ',10);
424: -- Get Session Date
425: l_session_date := trunc(sysdate);
426: for ses_rec in c_get_session_date loop
427: l_session_date := ses_rec.session_date;

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

425: l_session_date := trunc(sysdate);
426: for ses_rec in c_get_session_date loop
427: l_session_date := ses_rec.session_date;
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

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

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

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

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

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

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;

Line 443: hr_utility.raise_error;

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:

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

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

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

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

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

461: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
462: l_child_exists := TRUE;
463: EXIT;
464: END LOOP;
465: hr_utility.set_location(' Validate_NFC ',60);
466: IF l_child_exists = TRUE THEN
467: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
468: hr_utility.raise_error;
469: END IF;

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

463: EXIT;
464: END LOOP;
465: hr_utility.set_location(' Validate_NFC ',60);
466: IF l_child_exists = TRUE THEN
467: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
468: hr_utility.raise_error;
469: END IF;
470: END IF;
471: END LOOP;

Line 468: hr_utility.raise_error;

464: END LOOP;
465: hr_utility.set_location(' Validate_NFC ',60);
466: IF l_child_exists = TRUE THEN
467: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
468: hr_utility.raise_error;
469: END IF;
470: END IF;
471: END LOOP;
472: END IF;

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

487:
488: l_child_exists BOOLEAN;
489:
490: BEGIN
491: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
492: l_child_exists := FALSE;
493: hr_utility.set_location('Entering: Validate_Delete_NFC ',10);
494: -- Raise error if child exists
495: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP

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

489:
490: BEGIN
491: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
492: l_child_exists := FALSE;
493: hr_utility.set_location('Entering: Validate_Delete_NFC ',10);
494: -- Raise error if child exists
495: FOR l_check_child IN c_check_child(P_POSITION_ID) LOOP
496: l_child_exists := TRUE;
497: EXIT;

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

496: l_child_exists := TRUE;
497: EXIT;
498: END LOOP;
499:
500: hr_utility.set_location(' Validate_Delete_NFC ',60);
501: IF l_child_exists = TRUE THEN
502: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
503: hr_utility.raise_error;
504: END IF;

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

498: END LOOP;
499:
500: hr_utility.set_location(' Validate_Delete_NFC ',60);
501: IF l_child_exists = TRUE THEN
502: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
503: hr_utility.raise_error;
504: END IF;
505: --
506: END IF; -- is_ghr_nfc check

Line 503: hr_utility.raise_error;

499:
500: hr_utility.set_location(' Validate_Delete_NFC ',60);
501: IF l_child_exists = TRUE THEN
502: hr_utility.set_message(8301,'GHR_38949_NFC_ERROR5');
503: hr_utility.raise_error;
504: END IF;
505: --
506: END IF; -- is_ghr_nfc check
507:

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

562: from fnd_sessions
563: where session_id = (select userenv('sessionid') from dual);
564:
565: BEGIN
566: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
567: hr_utility.set_location('Entering: HR_POSITION_BK1.CREATE_POSITION_B', 10);
568: -- Check for the change in the segments
569: -- for c_old_rec in c_old_pos_segments(p_position_id) loop
570: -- Get Session Date

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

563: where session_id = (select userenv('sessionid') from dual);
564:
565: BEGIN
566: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
567: hr_utility.set_location('Entering: HR_POSITION_BK1.CREATE_POSITION_B', 10);
568: -- Check for the change in the segments
569: -- for c_old_rec in c_old_pos_segments(p_position_id) loop
570: -- Get Session Date
571: l_session_date := trunc(sysdate);

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

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

Line 583: hr_utility.raise_error;

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

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

639: BEGIN
640: -- Update/Create Position group1 Extra Info
641: --
642: -- EIT GHR_US_POS_GRP1
643: IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
644: l_information_type := 'GHR_US_POS_GRP1';
645: for pos_ei in c_pos_ei(p_position_id,l_information_type)
646: LOOP
647: l_extra_info_id := pos_ei.position_extra_info_id;

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

684: END IF;
685: END LOOP;
686:
687:
688: END IF; -- IF ghr_utility.is_ghr_nfc = 'TRUE' THEN
689:
690: END update_nfc_eit;
691:
692:

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

694: FUNCTION is_ghr RETURN VARCHAR2
695: IS
696: BEGIN
697: -- DK 2002-11-08 PLSQLSTD
698: -- hr_utility.set_location('Inside is_ghr' ,1);
699: RETURN v_is_ghr;
700: END;
701:
702:

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

702:
703: FUNCTION is_ghr_ben RETURN VARCHAR2
704: IS
705: BEGIN
706: -- hr_utility.set_location('Inside is_ghr_ben' ,1);
707: RETURN v_is_ghr_ben;
708: END;
709:
710:

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

710:
711: FUNCTION is_ghr_ben_fehb RETURN VARCHAR2
712: IS
713: BEGIN
714: -- hr_utility.set_location('Inside is_ghr_ben_fehb' ,1);
715: RETURN v_is_ghr_ben_fehb;
716: END;
717:
718: FUNCTION is_ghr_ben_tsp RETURN VARCHAR2

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

717:
718: FUNCTION is_ghr_ben_tsp RETURN VARCHAR2
719: IS
720: BEGIN
721: -- hr_utility.set_location('Inside is_ghr_ben_tsp' ,1);
722: RETURN v_is_ghr_ben_tsp;
723: END;
724:
725: FUNCTION is_ghr_nfc RETURN VARCHAR2

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

724:
725: FUNCTION is_ghr_nfc RETURN VARCHAR2
726: IS
727: BEGIN
728: -- hr_utility.set_location('Inside is_ghr_ben' ,1);
729: RETURN v_is_ghr_nfc;
730: END;
731:
732: PROCEDURE set_client_info

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

978: v_is_ghr := 'TRUE';
979: v_current_bg := fnd_profile.value('PER_BUSINESS_GROUP_ID');
980:
981: -- DK 2002-11-08 PLSQLSTD
982: --hr_utility.set_location('Inside Main Begin' ,1);
983:
984: OPEN c_fed_bg(v_current_bg);
985: FETCH c_fed_bg INTO r_fed_bg;
986: IF c_fed_bg%NOTFOUND THEN

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

1024: END IF;
1025: CLOSE c_fed_nfc;
1026:
1027: -- DK 2002-11-08 PLSQLSTD
1028: --hr_utility.set_location('Leaving Main Begin' ,1);
1029:
1030: end ghr_utility;

Line 1030: end ghr_utility;

1026:
1027: -- DK 2002-11-08 PLSQLSTD
1028: --hr_utility.set_location('Leaving Main Begin' ,1);
1029:
1030: end ghr_utility;