273: hr_utility.set_location(' leaving Asgt Call ', 20);
274: End If;
275: Close Strtd_Le_Exits;
276: If pqh_process_batch_log.g_module_cd = 'PQH_GSP_ASSIGN_ENTL' Then
277: fnd_message.set_name('PQH','PQH_GSP_LE_STRT');
278: fnd_message.raise_error;
279: Else
280: Return;
281: End If;
274: End If;
275: Close Strtd_Le_Exits;
276: If pqh_process_batch_log.g_module_cd = 'PQH_GSP_ASSIGN_ENTL' Then
277: fnd_message.set_name('PQH','PQH_GSP_LE_STRT');
278: fnd_message.raise_error;
279: Else
280: Return;
281: End If;
282: End If;
352: (P_Master_txn_Id => P_Assignment_Id
353: ,P_Txn_Id => P_Assignment_Id
354: ,p_module_cd => 'PQH_GSP_ASSIGN_ENTL'
355: ,p_message_type_cd => 'E'
356: ,p_message_text => Nvl(fnd_Message.Get,sqlerrm)
357: ,P_Effective_Date => P_Effective_Date);
358:
359: PQH_PROCESS_BATCH_LOG.END_LOG;
360:
367: ,P_Log_Context => l_person_Name);
368:
369: Pqh_Process_Batch_log.Insert_log
370: (P_Message_Type_Cd => Hr_general.Decode_Lookup('PQH_GSP_GEN_PROMPTS','ERR')
371: ,P_Message_text => Nvl(fnd_message.get,Sqlerrm));
372:
373: End if;
374:
375: End Call_PP_From_Assignments;
412: g_debug := hr_utility.debug_enabled;
413: pqh_process_batch_log.g_module_cd := 'PQH_GSP_BENMNGLE';
414:
415: if P_Elig_per_Elctbl_Chc_Id = NULL then
416: fnd_message.set_name('PQH','PQH_GSP_DFLT_SLCT_ERR');
417: fnd_message.raise_error;
418: End If;
419:
420: Savepoint Benmngle_Call;
413: pqh_process_batch_log.g_module_cd := 'PQH_GSP_BENMNGLE';
414:
415: if P_Elig_per_Elctbl_Chc_Id = NULL then
416: fnd_message.set_name('PQH','PQH_GSP_DFLT_SLCT_ERR');
417: fnd_message.raise_error;
418: End If;
419:
420: Savepoint Benmngle_Call;
421: Open Pler;
477: (P_Master_txn_Id => l_Assignment_id
478: ,P_Txn_Id => l_Assignment_id
479: ,p_module_cd => 'PQH_GSP_DFLT_ENRL'
480: ,p_message_type_cd => 'E'
481: ,p_message_text => Nvl(fnd_Message.Get,sqlerrm)
482: ,P_Effective_Date => P_Effective_Date);
483:
484: End;
485:
572: Savepoint Batch_Enroll;
573:
574:
575: If Asgt_Rec.Grade_Id is NULL Then
576: fnd_message.set_name('PQH','PQH_GSP_GRD_NOTLNKD_ASSGT');
577: fnd_message.raise_error;
578: End If;
579:
580:
573:
574:
575: If Asgt_Rec.Grade_Id is NULL Then
576: fnd_message.set_name('PQH','PQH_GSP_GRD_NOTLNKD_ASSGT');
577: fnd_message.raise_error;
578: End If;
579:
580:
581: Select Count(*) into L_Cnt
654: ,p_message_text => NULL
655: ,P_Effective_Date => L_Effective_Date);
656: Else
657:
658: fnd_message.set_name('PQH','PQH_FUTURE_DATES_ASSGT_EXIST');
659: Pqh_Gsp_process_Log.Log_process_Dtls
660: (P_Master_txn_Id => L_Concurrent_Req_Id
661: ,P_TXN_ID => Asgt_Rec.Assignment_Id
662: ,p_module_cd => 'PQH_GSP_BATCH_ENRL'
660: (P_Master_txn_Id => L_Concurrent_Req_Id
661: ,P_TXN_ID => Asgt_Rec.Assignment_Id
662: ,p_module_cd => 'PQH_GSP_BATCH_ENRL'
663: ,p_message_type_cd => 'E'
664: ,p_message_text => fnd_message.get
665: ,P_Effective_Date => L_Effective_Date);
666: End if;
667:
668: End if;
678: (P_Master_txn_Id => L_Concurrent_Req_Id
679: ,P_Txn_ID => Asgt_Rec.Assignment_Id
680: ,p_module_cd => 'PQH_GSP_BATCH_ENRL'
681: ,p_message_type_cd => 'E'
682: ,p_message_text => Nvl(fnd_Message.get,sqlerrm)
683: ,P_Effective_Date => L_Effective_Date);
684: hr_utility.set_location('Erro:'|| l_Error_Exists,120);
685: End;
686: End Loop;
685: End;
686: End Loop;
687:
688: If L_Error_Exists = 'N' Then
689: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
690: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
691: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
692: Else
693: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
686: End Loop;
687:
688: If L_Error_Exists = 'N' Then
689: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
690: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
691: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
692: Else
693: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
694: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
687:
688: If L_Error_Exists = 'N' Then
689: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
690: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
691: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
692: Else
693: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
694: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
695: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
689: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
690: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
691: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
692: Else
693: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
694: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
695: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
696: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
697: ,message=>SQLERRM);
690: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
691: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
692: Else
693: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
694: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
695: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
696: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
697: ,message=>SQLERRM);
698: hr_utility.set_location('Some Error:'|| SQLERRM,120);
691: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
692: Else
693: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
694: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
695: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
696: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
697: ,message=>SQLERRM);
698: hr_utility.set_location('Some Error:'|| SQLERRM,120);
699: End If;
969: End if;
970:
971: If L_Grade_Id is NULL then
972: /* Grade Not defined for the assignment
973: fnd_message.set_name('PQH','PQH_GSP_GRDNOTLNKD_ASSGT');
974: fnd_message.raise_error;
975: -- sgoyal commented out so that assgt for which no grade is there don't report this warning always
976: */
977: P_Elig_Per_Elctbl_Chc_Id := NULL;
970:
971: If L_Grade_Id is NULL then
972: /* Grade Not defined for the assignment
973: fnd_message.set_name('PQH','PQH_GSP_GRDNOTLNKD_ASSGT');
974: fnd_message.raise_error;
975: -- sgoyal commented out so that assgt for which no grade is there don't report this warning always
976: */
977: P_Elig_Per_Elctbl_Chc_Id := NULL;
978: return;
1019:
1020: /*
1021: If l_Pgm_Id is NULL and P_Called_From = 'A' then
1022: Grade Ladder Not Assigned to the Assignment
1023: fnd_message.set_name('PQH','PQH_GSP_NO_GRDLDR');
1024: fnd_message.raise_error;
1025: End If;
1026: */
1027:
1020: /*
1021: If l_Pgm_Id is NULL and P_Called_From = 'A' then
1022: Grade Ladder Not Assigned to the Assignment
1023: fnd_message.set_name('PQH','PQH_GSP_NO_GRDLDR');
1024: fnd_message.raise_error;
1025: End If;
1026: */
1027:
1028:
1037: Close Ben_Grd_Dtls;
1038:
1039: If l_Pl_Id Is Null Then
1040: /* Plan is not not linked to the corresponding Grade */
1041: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
1042: fnd_message.raise_error;
1043: End If;
1044:
1045: If l_Prog_style = 'PQH_GSP_NP' Then
1038:
1039: If l_Pl_Id Is Null Then
1040: /* Plan is not not linked to the corresponding Grade */
1041: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
1042: fnd_message.raise_error;
1043: End If;
1044:
1045: If l_Prog_style = 'PQH_GSP_NP' Then
1046: P_Elig_Per_Elctbl_Chc_Id := NULL;
1045: If l_Prog_style = 'PQH_GSP_NP' Then
1046: P_Elig_Per_Elctbl_Chc_Id := NULL;
1047: Return;
1048: elsif l_Prog_style is NULL then
1049: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
1050: fnd_message.raise_error;
1051: End If;
1052:
1053: If l_Prog_style = 'PQH_GSP_GP' and l_PL_Id = Nvl(L_Curr_Pl_Id, -999) and nvl(l_prev_assgt_id,p_assignment_id) = p_assignment_id Then --4125962
1046: P_Elig_Per_Elctbl_Chc_Id := NULL;
1047: Return;
1048: elsif l_Prog_style is NULL then
1049: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
1050: fnd_message.raise_error;
1051: End If;
1052:
1053: If l_Prog_style = 'PQH_GSP_GP' and l_PL_Id = Nvl(L_Curr_Pl_Id, -999) and nvl(l_prev_assgt_id,p_assignment_id) = p_assignment_id Then --4125962
1054: if g_debug then
1059: End If;
1060:
1061: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
1062: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
1063: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
1064: fnd_message.raise_error;
1065:
1066: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then
1067:
1060:
1061: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
1062: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
1063: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
1064: fnd_message.raise_error;
1065:
1066: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then
1067:
1068: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
1066: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then
1067:
1068: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
1069: If l_Dflt_Element_typ_Id is NULL Then
1070: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
1071: fnd_message.raise_error;
1072: End If;
1073:
1074: l_Element_Link_Id := hr_entry_api.get_link
1067:
1068: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
1069: If l_Dflt_Element_typ_Id is NULL Then
1070: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
1071: fnd_message.raise_error;
1072: End If;
1073:
1074: l_Element_Link_Id := hr_entry_api.get_link
1075: (P_Assignment_id
1076: ,l_Dflt_Element_typ_Id
1077: ,P_Effective_Date);
1078:
1079: If l_Element_Link_Id is NULL Then
1080: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
1081: fnd_message.raise_error;
1082: End If;
1083: End If;
1084:
1077: ,P_Effective_Date);
1078:
1079: If l_Element_Link_Id is NULL Then
1080: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
1081: fnd_message.raise_error;
1082: End If;
1083: End If;
1084:
1085:
1088: Fetch Step_Dtls Into L_Step_Id, l_Point_id, l_New_Enrlmt_Dt;
1089: Close Step_Dtls;
1090: /* Step not defined for Assignment */
1091: If l_Step_Id is NULL Then
1092: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
1093: fnd_message.raise_error;
1094: Else
1095: Open Ben_Dtls(L_Pl_id,
1096: L_Point_Id);
1089: Close Step_Dtls;
1090: /* Step not defined for Assignment */
1091: If l_Step_Id is NULL Then
1092: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
1093: fnd_message.raise_error;
1094: Else
1095: Open Ben_Dtls(L_Pl_id,
1096: L_Point_Id);
1097: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
1097: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
1098: Close Ben_Dtls;
1099: If L_Oipl_Id is NULL then
1100: /* Oipl not linked to Step */
1101: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
1102: fnd_message.raise_error;
1103: End If;
1104: End If;
1105: L_Elctbl_Flag := 'N';
1098: Close Ben_Dtls;
1099: If L_Oipl_Id is NULL then
1100: /* Oipl not linked to Step */
1101: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
1102: fnd_message.raise_error;
1103: End If;
1104: End If;
1105: L_Elctbl_Flag := 'N';
1106:
1144: Fetch Lee_Rsn into l_LEE_RSN_ID;
1145: Close Lee_Rsn;
1146:
1147: If l_LEE_RSN_ID is NULL Then
1148: fnd_message.set_name('PQH','PQH_GSP_LIF_RSN_NOT_DFND');
1149: fnd_message.raise_error;
1150: End If;
1151:
1152: /* Create Potential Life Events */
1145: Close Lee_Rsn;
1146:
1147: If l_LEE_RSN_ID is NULL Then
1148: fnd_message.set_name('PQH','PQH_GSP_LIF_RSN_NOT_DFND');
1149: fnd_message.raise_error;
1150: End If;
1151:
1152: /* Create Potential Life Events */
1153: Ben_Ptnl_Ler_For_per_Api.CREATE_PTNL_LER_FOR_PER_PERF
1256:
1257: L_Rt_Elig_Per_Elctbl_Chc_Id := L_Oipl_Elig_Per_Elctbl_Chc_Id;
1258: End If;
1259: If L_Update_Salary_Cd is NULL Then
1260: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
1261: fnd_message.raise_error;
1262: End If;
1263: If P_Called_From <> 'BM' Then
1264: if g_debug then
1257: L_Rt_Elig_Per_Elctbl_Chc_Id := L_Oipl_Elig_Per_Elctbl_Chc_Id;
1258: End If;
1259: If L_Update_Salary_Cd is NULL Then
1260: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
1261: fnd_message.raise_error;
1262: End If;
1263: If P_Called_From <> 'BM' Then
1264: if g_debug then
1265: hr_utility.set_location('L_Update_Salary_Cd :' || L_Update_Salary_Cd, 180);
1610: l_prev_sal is not null Then
1611: --
1612: hr_utility.set_location('Sal Element used to pay previously',5);
1613: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
1614: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
1615: fnd_message.raise_error;
1616: End If;
1617: --
1618: Open Elmt_Entry(p_Assignment_Id, p_Business_Group_Id, l_prev_sal_change_dt);
1611: --
1612: hr_utility.set_location('Sal Element used to pay previously',5);
1613: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
1614: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
1615: fnd_message.raise_error;
1616: End If;
1617: --
1618: Open Elmt_Entry(p_Assignment_Id, p_Business_Group_Id, l_prev_sal_change_dt);
1619: Fetch Elmt_Entry into L_Element_Entry_ID, L_Ele_Ovn;
1941: Return;
1942:
1943: Else
1944:
1945: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
1946: fnd_message.raise_error;
1947:
1948: End If;
1949: End If;
1942:
1943: Else
1944:
1945: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
1946: fnd_message.raise_error;
1947:
1948: End If;
1949: End If;
1950: --Covert salary from program frequency to salary basis frequency
1958: -- Current grade ladder uses salary basis to update salary
1959: --
1960: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
1961: If L_Enroll_Info.Pay_Basis_Id is NULL Then
1962: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
1963: fnd_message.raise_error;
1964: End If;
1965: --
1966: -- Find when was the last proposal change.
1959: --
1960: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
1961: If L_Enroll_Info.Pay_Basis_Id is NULL Then
1962: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
1963: fnd_message.raise_error;
1964: End If;
1965: --
1966: -- Find when was the last proposal change.
1967: --
2138: --
2139: -- Get default element and input value of current ladder.
2140: --
2141: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
2142: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
2143: fnd_message.raise_error;
2144: End If;
2145: --
2146: -- Check if the assignment is eligible for the element as of current rate start date
2139: -- Get default element and input value of current ladder.
2140: --
2141: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
2142: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
2143: fnd_message.raise_error;
2144: End If;
2145: --
2146: -- Check if the assignment is eligible for the element as of current rate start date
2147: --
2150: ,L_DFLT_ELEMENT_TYPE_ID
2151: ,L_Enroll_Info.RT_Strt_Dt);
2152:
2153: if l_Element_Link_Id is NULL Then
2154: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
2155: fnd_message.raise_error;
2156: End If;
2157:
2158: --
2151: ,L_Enroll_Info.RT_Strt_Dt);
2152:
2153: if l_Element_Link_Id is NULL Then
2154: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
2155: fnd_message.raise_error;
2156: End If;
2157:
2158: --
2159: -- Check if there is a rate value.
2158: --
2159: -- Check if there is a rate value.
2160: --
2161: If L_Enroll_Info.Val is NULL Then
2162: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
2163: fnd_message.raise_error;
2164: End If;
2165: --
2166: -- Get current pay proposal
2159: -- Check if there is a rate value.
2160: --
2161: If L_Enroll_Info.Val is NULL Then
2162: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
2163: fnd_message.raise_error;
2164: End If;
2165: --
2166: -- Get current pay proposal
2167: --
2170: ,l_Payroll_name
2171: ,l_payroll_annualization_factor);
2172:
2173: If L_Payroll_name is NULL Then
2174: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
2175: fnd_message.raise_error;
2176: End If;
2177:
2178: -- check if a element entry already exists, for the default element
2171: ,l_payroll_annualization_factor);
2172:
2173: If L_Payroll_name is NULL Then
2174: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
2175: fnd_message.raise_error;
2176: End If;
2177:
2178: -- check if a element entry already exists, for the default element
2179: -- If so update the element entru, else create the element entry.
2648: Exception
2649: When Others Then
2650: Rollback to Start_Enrlmnt;
2651: l_Error_Exists := 'Y';
2652: -- l_Error_Message := Fnd_Message.Get;
2653: if g_debug then
2654: hr_utility.set_location(' Error in AUI ', 50);
2655: hr_utility.set_location(' Error : ' || l_Error_Message, 60);
2656: End If;
2659: (P_Master_txn_Id => L_Concurrent_Req_Id
2660: ,P_Txn_Id => Elctbl_Rec.ELIG_PER_ELCTBL_CHC_ID
2661: ,p_module_cd => 'PQH_GSP_APPROVAL_UI'
2662: ,p_message_type_cd => 'E'
2663: ,p_message_text => Nvl(Fnd_Message.Get,sqlerrm)
2664: ,P_Effective_Date => L_Effective_Date);
2665: End;
2666: End Loop;
2667:
2665: End;
2666: End Loop;
2667:
2668: If l_Error_Exists = 'N' Then
2669: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2670: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2671: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2672: Else
2673: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2666: End Loop;
2667:
2668: If l_Error_Exists = 'N' Then
2669: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2670: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2671: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2672: Else
2673: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2674: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2667:
2668: If l_Error_Exists = 'N' Then
2669: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2670: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2671: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2672: Else
2673: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2674: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2675: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2669: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2670: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2671: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2672: Else
2673: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2674: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2675: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2676: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
2677: ,message=>SQLERRM);
2670: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2671: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2672: Else
2673: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2674: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2675: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2676: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
2677: ,message=>SQLERRM);
2678: End If;
2671: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2672: Else
2673: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2674: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2675: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2676: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
2677: ,message=>SQLERRM);
2678: End If;
2679:
3132: Close Ben_Grd_Dtls;
3133:
3134: If l_Pl_Id Is Null Then
3135: /* Plan is not not linked to the corresponding Grade */
3136: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
3137: fnd_message.raise_error;
3138: End If;
3139:
3140: If l_Prog_style = 'PQH_GSP_NP' Then
3133:
3134: If l_Pl_Id Is Null Then
3135: /* Plan is not not linked to the corresponding Grade */
3136: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
3137: fnd_message.raise_error;
3138: End If;
3139:
3140: If l_Prog_style = 'PQH_GSP_NP' Then
3141: Return;
3139:
3140: If l_Prog_style = 'PQH_GSP_NP' Then
3141: Return;
3142: elsif l_Prog_style is NULL then
3143: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
3144: fnd_message.raise_error;
3145: End If;
3146:
3147: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3140: If l_Prog_style = 'PQH_GSP_NP' Then
3141: Return;
3142: elsif l_Prog_style is NULL then
3143: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
3144: fnd_message.raise_error;
3145: End If;
3146:
3147: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3148: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
3145: End If;
3146:
3147: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3148: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
3149: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3150: fnd_message.raise_error;
3151:
3152: /*
3153: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then */
3146:
3147: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3148: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
3149: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3150: fnd_message.raise_error;
3151:
3152: /*
3153: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then */
3154:
3153: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then */
3154:
3155: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
3156: /* If l_Dflt_Element_typ_Id is NULL Then
3157: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
3158: fnd_message.raise_error;
3159: End If;
3160:
3161: l_Element_Link_Id := hr_entry_api.get_link
3154:
3155: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
3156: /* If l_Dflt_Element_typ_Id is NULL Then
3157: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
3158: fnd_message.raise_error;
3159: End If;
3160:
3161: l_Element_Link_Id := hr_entry_api.get_link
3162: (P_Assignment_id
3163: ,l_Dflt_Element_typ_Id
3164: ,P_Effective_Date);
3165:
3166: If l_Element_Link_Id is NULL Then
3167: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3168: fnd_message.raise_error;
3169: End If;
3170: Cursor Step_Dtls(p_assignment_id in number) Is
3171: Select Plcmt.Step_id, Step.Spinal_point_id, Plcmt.Effective_Start_Date
3164: ,P_Effective_Date);
3165:
3166: If l_Element_Link_Id is NULL Then
3167: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3168: fnd_message.raise_error;
3169: End If;
3170: Cursor Step_Dtls(p_assignment_id in number) Is
3171: Select Plcmt.Step_id, Step.Spinal_point_id, Plcmt.Effective_Start_Date
3172: */
3179: Fetch Step_Dtls Into L_Step_Id, l_Point_id;
3180: Close Step_Dtls;
3181: /* Step not defined for Assignment */
3182: If l_Step_Id is NULL Then
3183: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
3184: fnd_message.raise_error;
3185: Else
3186: Open Ben_Dtls(L_Pl_id,
3187: L_Point_Id);
3180: Close Step_Dtls;
3181: /* Step not defined for Assignment */
3182: If l_Step_Id is NULL Then
3183: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
3184: fnd_message.raise_error;
3185: Else
3186: Open Ben_Dtls(L_Pl_id,
3187: L_Point_Id);
3188: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
3188: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
3189: Close Ben_Dtls;
3190: If L_Oipl_Id is NULL then
3191: /* Oipl not linked to Step */
3192: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
3193: fnd_message.raise_error;
3194: End If;
3195: End If;
3196: L_Elctbl_Flag := 'N';
3189: Close Ben_Dtls;
3190: If L_Oipl_Id is NULL then
3191: /* Oipl not linked to Step */
3192: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
3193: fnd_message.raise_error;
3194: End If;
3195: End If;
3196: L_Elctbl_Flag := 'N';
3197:
3292: End If;
3293:
3294: End If;
3295: If L_Update_Salary_Cd is NULL Then
3296: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
3297: fnd_message.raise_error;
3298: End If;
3299: if g_debug then
3300: hr_utility.set_location(' Determine Rates ', 190);
3293:
3294: End If;
3295: If L_Update_Salary_Cd is NULL Then
3296: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
3297: fnd_message.raise_error;
3298: End If;
3299: if g_debug then
3300: hr_utility.set_location(' Determine Rates ', 190);
3301: End If;
3535: Return;
3536:
3537: Else
3538:
3539: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3540: fnd_message.raise_error;
3541:
3542: End If;
3543: End If;
3536:
3537: Else
3538:
3539: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3540: fnd_message.raise_error;
3541:
3542: End If;
3543: End If;
3544:
3602:
3603:
3604: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
3605: If L_Enroll_Info.Pay_Basis_Id is NULL Then
3606: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3607: fnd_message.raise_error;
3608: End If;
3609:
3610:
3603:
3604: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
3605: If L_Enroll_Info.Pay_Basis_Id is NULL Then
3606: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3607: fnd_message.raise_error;
3608: End If;
3609:
3610:
3611: Open Proposal_Dt(L_Enroll_Info.Assignment_Id);
3652:
3653: Elsif L_Update_Salary_Cd = 'SALARY_ELEMENT' Then
3654:
3655: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
3656: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
3657: fnd_message.raise_error;
3658: End If;
3659:
3660: l_Element_Link_Id := hr_entry_api.get_link
3653: Elsif L_Update_Salary_Cd = 'SALARY_ELEMENT' Then
3654:
3655: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
3656: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
3657: fnd_message.raise_error;
3658: End If;
3659:
3660: l_Element_Link_Id := hr_entry_api.get_link
3661: (L_Enroll_Info.Assignment_Id
3662: ,L_DFLT_ELEMENT_TYPE_ID
3663: ,L_Enroll_Info.RT_Strt_Dt);
3664:
3665: if l_Element_Link_Id is NULL Then
3666: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3667: fnd_message.raise_error;
3668: End If;
3669:
3670: If L_Enroll_Info.Val is NULL Then
3663: ,L_Enroll_Info.RT_Strt_Dt);
3664:
3665: if l_Element_Link_Id is NULL Then
3666: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3667: fnd_message.raise_error;
3668: End If;
3669:
3670: If L_Enroll_Info.Val is NULL Then
3671: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3667: fnd_message.raise_error;
3668: End If;
3669:
3670: If L_Enroll_Info.Val is NULL Then
3671: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3672: fnd_message.raise_error;
3673: End If;
3674:
3675:
3668: End If;
3669:
3670: If L_Enroll_Info.Val is NULL Then
3671: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3672: fnd_message.raise_error;
3673: End If;
3674:
3675:
3676: per_pay_proposals_populate.get_payroll(L_Enroll_Info.Assignment_Id
3678: ,l_Payroll_name
3679: ,l_payroll_annualization_factor);
3680:
3681: If L_Payroll_name is NULL Then
3682: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
3683: fnd_message.raise_error;
3684: End If;
3685:
3686: Open Elmt_Entry(L_Enroll_Info.Assignment_Id, L_Enroll_Info.Business_Group_Id, L_Enroll_Info.Rt_Strt_Dt);
3679: ,l_payroll_annualization_factor);
3680:
3681: If L_Payroll_name is NULL Then
3682: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
3683: fnd_message.raise_error;
3684: End If;
3685:
3686: Open Elmt_Entry(L_Enroll_Info.Assignment_Id, L_Enroll_Info.Business_Group_Id, L_Enroll_Info.Rt_Strt_Dt);
3687: Fetch Elmt_Entry into L_Element_Entry_ID, L_Ele_Ovn;
3776: hr_utility.set_location(' p_oipl_id ' || p_oipl_id, 100);
3777: End If;
3778:
3779: if p_progression_date < p_life_event_dt then
3780: fnd_message.set_name('PQH','PQH_GSP_APPRVL_PRGS_DT_CHK_ERR');
3781: fnd_message.raise_error();
3782: end if;
3783: if p_Sal_Chg_Dt < p_progression_date then
3784: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3777: End If;
3778:
3779: if p_progression_date < p_life_event_dt then
3780: fnd_message.set_name('PQH','PQH_GSP_APPRVL_PRGS_DT_CHK_ERR');
3781: fnd_message.raise_error();
3782: end if;
3783: if p_Sal_Chg_Dt < p_progression_date then
3784: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3785: fnd_message.raise_error();
3780: fnd_message.set_name('PQH','PQH_GSP_APPRVL_PRGS_DT_CHK_ERR');
3781: fnd_message.raise_error();
3782: end if;
3783: if p_Sal_Chg_Dt < p_progression_date then
3784: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3785: fnd_message.raise_error();
3786: end if;
3787: Open Enrt_Rt;
3788: Fetch Enrt_Rt into L_Enrt_Rt_Id, l_Enrt_ovn;
3781: fnd_message.raise_error();
3782: end if;
3783: if p_Sal_Chg_Dt < p_progression_date then
3784: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3785: fnd_message.raise_error();
3786: end if;
3787: Open Enrt_Rt;
3788: Fetch Enrt_Rt into L_Enrt_Rt_Id, l_Enrt_ovn;
3789: Close Enrt_Rt;