[Home] [Help]
563: * Description : This Subprog checks if the resource is a contingent
564: * worker or not, If it is a contingent worker Then
565: * then it returns 'Y' Else returns 'N'. To Check
566: * for Contingent worker we are directly looking it up
567: * from the per_people_x view as it filters those where
568: * sysdate between effective start and end date.
569: * Also checks to see if the current_npw_flag = 'Y'
570: ************************************************************************/
571: Function Is_Contingent_Worker(p_person_id IN VARCHAR2) Return VARCHAR2
573: l_cwk_flag VARCHAR2(30) := null;
574: BEGIN
575: SELECT 'Y'
576: INTO l_cwk_flag
577: --FROM per_people_x
578: FROM per_all_people_f
579: WHERE person_id = p_person_id
580: AND current_npw_flag = 'Y'
581: AND trunc(sysdate) between trunc(effective_start_date) AND
673: /****************************************************
674: * Bug - 3523947
675: * Desc - Modified the cursor c_ids. Removed the check
676: * where sysdate between eff start and end date.
677: * And selecting from per_people_x to keep it
678: * consistent with the other selects.
679: ***************************************************/
680: Cursor c_ids IS
681: SELECT person_id
679: ***************************************************/
680: Cursor c_ids IS
681: SELECT person_id
682: --FROM per_all_people_f
683: FROM per_people_x
684: WHERE full_name = p_person_name;
685: --AND trunc(sysdate) between trunc(effective_start_date) AND
686: --trunc(effective_end_date);
687: BEGIN
691: IF (p_check_id_flag = 'Y') THEN
692: BEGIN
693: SELECT person_id
694: INTO l_person_id
695: FROM per_people_x
696: WHERE person_id = p_person_id;
697: x_person_id := l_person_id;
698: EXCEPTION
699: WHEN OTHERS THEN
749: IF (p_person_name IS NOT NULL) THEN
750: BEGIN
751: SELECT person_id
752: INTO l_person_id
753: FROM per_people_x
754: WHERE full_name = p_person_name;
755: x_person_id := l_person_id;
756: EXCEPTION
757: WHEN OTHERS THEN
2916: UNEXPEC_ERROR Exception;
2917: /*************************************************
2918: * Bug - 3485392
2919: * Description - Using the Known_as field from the
2920: * Per_people_x table to derive the
2921: * resource_name. If the known_as field is
2922: * Null then select the full_name.
2923: *************************************************/
2924: Cursor c_People (P_Person_Id IN Number) is
2926: --nvl(known_as,Full_Name)
2927: --Bug 3485392
2928: Full_Name
2929: From
2930: Per_People_X
2931: Where
2932: Person_Id = P_Person_Id
2933: And ( (Pa_Cross_Business_Grp.IsCrossBGProfile = 'N' AND
2934: Fnd_Profile.Value('PER_BUSINESS_GROUP_ID') = Business_Group_Id)
4224: Cursor c_People (P_Person_Id IN Number) is
4225: Select
4226: Full_Name
4227: From
4228: Per_People_X
4229: Where
4230: Person_Id = P_Person_Id
4231: And ( (Pa_Cross_Business_Grp.IsCrossBGProfile = 'N' AND
4232: Fnd_Profile.Value('PER_BUSINESS_GROUP_ID') = Business_Group_Id)
4690: IF Res_Format_Rec.Res_Type_Code = 'NAMED_PERSON' THEN
4691: BEGIN
4692: Select nvl(known_as,Full_Name)
4693: INTO l_Res_Type_Displayed
4694: From Per_People_X
4695: Where Person_Id = Res_List_Member_Rec.Person_Id;
4696: END;
4697: END IF;
4698: X_Resource_Alias := substr(l_Res_Type_Displayed,1,Res_Format_Rec.Resource_Type_Disp_Chars);
4866: IF Res_List_Member_Rec.Person_Id IS NOT NULL THEN
4867: BEGIN
4868: SELECT nvl(known_as,Full_Name)
4869: INTO l_Res_Incur_By_alias
4870: FROM Per_People_X
4871: WHERE Person_Id = Res_List_Member_Rec.Person_Id;
4872: END;
4873: END IF;
4874: End If;