314: hr_utility.set_location(' leaving Asgt Call ', 20);
315: End If;
316: Close Strtd_Le_Exits;
317: If pqh_process_batch_log.g_module_cd = 'PQH_GSP_ASSIGN_ENTL' Then
318: fnd_message.set_name('PQH','PQH_GSP_LE_STRT');
319: fnd_message.raise_error;
320: Else
321: Return;
322: End If;
315: End If;
316: Close Strtd_Le_Exits;
317: If pqh_process_batch_log.g_module_cd = 'PQH_GSP_ASSIGN_ENTL' Then
318: fnd_message.set_name('PQH','PQH_GSP_LE_STRT');
319: fnd_message.raise_error;
320: Else
321: Return;
322: End If;
323: End If;
393: (P_Master_txn_Id => P_Assignment_Id
394: ,P_Txn_Id => P_Assignment_Id
395: ,p_module_cd => 'PQH_GSP_ASSIGN_ENTL'
396: ,p_message_type_cd => 'E'
397: ,p_message_text => Nvl(fnd_Message.Get,sqlerrm)
398: ,P_Effective_Date => P_Effective_Date);
399:
400: PQH_PROCESS_BATCH_LOG.END_LOG;
401:
408: ,P_Log_Context => l_person_Name);
409:
410: Pqh_Process_Batch_log.Insert_log
411: (P_Message_Type_Cd => Hr_general.Decode_Lookup('PQH_GSP_GEN_PROMPTS','ERR')
412: ,P_Message_text => Nvl(fnd_message.get,Sqlerrm));
413:
414: End if;
415:
416: End Call_PP_From_Assignments;
453: g_debug := hr_utility.debug_enabled;
454: pqh_process_batch_log.g_module_cd := 'PQH_GSP_BENMNGLE';
455:
456: if P_Elig_per_Elctbl_Chc_Id = NULL then
457: fnd_message.set_name('PQH','PQH_GSP_DFLT_SLCT_ERR');
458: fnd_message.raise_error;
459: End If;
460:
461: Savepoint Benmngle_Call;
454: pqh_process_batch_log.g_module_cd := 'PQH_GSP_BENMNGLE';
455:
456: if P_Elig_per_Elctbl_Chc_Id = NULL then
457: fnd_message.set_name('PQH','PQH_GSP_DFLT_SLCT_ERR');
458: fnd_message.raise_error;
459: End If;
460:
461: Savepoint Benmngle_Call;
462: Open Pler;
518: (P_Master_txn_Id => l_Assignment_id
519: ,P_Txn_Id => l_Assignment_id
520: ,p_module_cd => 'PQH_GSP_DFLT_ENRL'
521: ,p_message_type_cd => 'E'
522: ,p_message_text => Nvl(fnd_Message.Get,sqlerrm)
523: ,P_Effective_Date => P_Effective_Date);
524:
525: End;
526:
613: Savepoint Batch_Enroll;
614:
615:
616: If Asgt_Rec.Grade_Id is NULL Then
617: fnd_message.set_name('PQH','PQH_GSP_GRD_NOTLNKD_ASSGT');
618: fnd_message.raise_error;
619: End If;
620:
621:
614:
615:
616: If Asgt_Rec.Grade_Id is NULL Then
617: fnd_message.set_name('PQH','PQH_GSP_GRD_NOTLNKD_ASSGT');
618: fnd_message.raise_error;
619: End If;
620:
621:
622: Select Count(*) into L_Cnt
695: ,p_message_text => NULL
696: ,P_Effective_Date => L_Effective_Date);
697: Else
698:
699: fnd_message.set_name('PQH','PQH_FUTURE_DATES_ASSGT_EXIST');
700: Pqh_Gsp_process_Log.Log_process_Dtls
701: (P_Master_txn_Id => L_Concurrent_Req_Id
702: ,P_TXN_ID => Asgt_Rec.Assignment_Id
703: ,p_module_cd => 'PQH_GSP_BATCH_ENRL'
701: (P_Master_txn_Id => L_Concurrent_Req_Id
702: ,P_TXN_ID => Asgt_Rec.Assignment_Id
703: ,p_module_cd => 'PQH_GSP_BATCH_ENRL'
704: ,p_message_type_cd => 'E'
705: ,p_message_text => fnd_message.get
706: ,P_Effective_Date => L_Effective_Date);
707: End if;
708:
709: End if;
719: (P_Master_txn_Id => L_Concurrent_Req_Id
720: ,P_Txn_ID => Asgt_Rec.Assignment_Id
721: ,p_module_cd => 'PQH_GSP_BATCH_ENRL'
722: ,p_message_type_cd => 'E'
723: ,p_message_text => Nvl(fnd_Message.get,sqlerrm)
724: ,P_Effective_Date => L_Effective_Date);
725: hr_utility.set_location('Erro:'|| l_Error_Exists,120);
726: End;
727: End Loop;
726: End;
727: End Loop;
728:
729: If L_Error_Exists = 'N' Then
730: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
731: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
732: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
733: Else
734: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
727: End Loop;
728:
729: If L_Error_Exists = 'N' Then
730: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
731: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
732: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
733: Else
734: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
735: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
728:
729: If L_Error_Exists = 'N' Then
730: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
731: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
732: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
733: Else
734: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
735: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
736: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
730: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
731: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
732: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
733: Else
734: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
735: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
736: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
737: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
738: ,message=>SQLERRM);
731: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
732: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
733: Else
734: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
735: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
736: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
737: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
738: ,message=>SQLERRM);
739: hr_utility.set_location('Some Error:'|| SQLERRM,120);
732: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
733: Else
734: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
735: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_BATCH_ENRL'));
736: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
737: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
738: ,message=>SQLERRM);
739: hr_utility.set_location('Some Error:'|| SQLERRM,120);
740: End If;
1070: End if;
1071:
1072: If L_Grade_Id is NULL then
1073: /* Grade Not defined for the assignment
1074: fnd_message.set_name('PQH','PQH_GSP_GRDNOTLNKD_ASSGT');
1075: fnd_message.raise_error;
1076: -- sgoyal commented out so that assgt for which no grade is there don't report this warning always
1077: */
1078: P_Elig_Per_Elctbl_Chc_Id := NULL;
1071:
1072: If L_Grade_Id is NULL then
1073: /* Grade Not defined for the assignment
1074: fnd_message.set_name('PQH','PQH_GSP_GRDNOTLNKD_ASSGT');
1075: fnd_message.raise_error;
1076: -- sgoyal commented out so that assgt for which no grade is there don't report this warning always
1077: */
1078: P_Elig_Per_Elctbl_Chc_Id := NULL;
1079: return;
1126:
1127: /*
1128: If l_Pgm_Id is NULL and P_Called_From = 'A' then
1129: Grade Ladder Not Assigned to the Assignment
1130: fnd_message.set_name('PQH','PQH_GSP_NO_GRDLDR');
1131: fnd_message.raise_error;
1132: End If;
1133: */
1134:
1127: /*
1128: If l_Pgm_Id is NULL and P_Called_From = 'A' then
1129: Grade Ladder Not Assigned to the Assignment
1130: fnd_message.set_name('PQH','PQH_GSP_NO_GRDLDR');
1131: fnd_message.raise_error;
1132: End If;
1133: */
1134:
1135:
1144: Close Ben_Grd_Dtls;
1145:
1146: If l_Pl_Id Is Null Then
1147: /* Plan is not not linked to the corresponding Grade */
1148: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
1149: fnd_message.raise_error;
1150: End If;
1151:
1152: If l_Prog_style = 'PQH_GSP_NP' Then
1145:
1146: If l_Pl_Id Is Null Then
1147: /* Plan is not not linked to the corresponding Grade */
1148: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
1149: fnd_message.raise_error;
1150: End If;
1151:
1152: If l_Prog_style = 'PQH_GSP_NP' Then
1153: P_Elig_Per_Elctbl_Chc_Id := NULL;
1152: If l_Prog_style = 'PQH_GSP_NP' Then
1153: P_Elig_Per_Elctbl_Chc_Id := NULL;
1154: Return;
1155: elsif l_Prog_style is NULL then
1156: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
1157: fnd_message.raise_error;
1158: End If;
1159:
1160: 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
1153: P_Elig_Per_Elctbl_Chc_Id := NULL;
1154: Return;
1155: elsif l_Prog_style is NULL then
1156: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
1157: fnd_message.raise_error;
1158: End If;
1159:
1160: 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
1161: if g_debug then
1166: End If;
1167:
1168: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
1169: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
1170: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
1171: fnd_message.raise_error;
1172:
1173: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then
1174:
1167:
1168: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
1169: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
1170: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
1171: fnd_message.raise_error;
1172:
1173: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then
1174:
1175: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
1173: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then
1174:
1175: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
1176: If l_Dflt_Element_typ_Id is NULL Then
1177: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
1178: fnd_message.raise_error;
1179: End If;
1180:
1181: l_Element_Link_Id := hr_entry_api.get_link
1174:
1175: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
1176: If l_Dflt_Element_typ_Id is NULL Then
1177: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
1178: fnd_message.raise_error;
1179: End If;
1180:
1181: l_Element_Link_Id := hr_entry_api.get_link
1182: (P_Assignment_id
1183: ,l_Dflt_Element_typ_Id
1184: ,P_Effective_Date);
1185:
1186: If l_Element_Link_Id is NULL Then
1187: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
1188: fnd_message.raise_error;
1189: End If;
1190: End If;
1191:
1184: ,P_Effective_Date);
1185:
1186: If l_Element_Link_Id is NULL Then
1187: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
1188: fnd_message.raise_error;
1189: End If;
1190: End If;
1191:
1192:
1195: Fetch Step_Dtls Into L_Step_Id, l_Point_id, l_New_Enrlmt_Dt;
1196: Close Step_Dtls;
1197: /* Step not defined for Assignment */
1198: If l_Step_Id is NULL Then
1199: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
1200: fnd_message.raise_error;
1201: Else
1202: Open Ben_Dtls(L_Pl_id,
1203: L_Point_Id);
1196: Close Step_Dtls;
1197: /* Step not defined for Assignment */
1198: If l_Step_Id is NULL Then
1199: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
1200: fnd_message.raise_error;
1201: Else
1202: Open Ben_Dtls(L_Pl_id,
1203: L_Point_Id);
1204: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
1204: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
1205: Close Ben_Dtls;
1206: If L_Oipl_Id is NULL then
1207: /* Oipl not linked to Step */
1208: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
1209: fnd_message.raise_error;
1210: End If;
1211: End If;
1212: L_Elctbl_Flag := 'N';
1205: Close Ben_Dtls;
1206: If L_Oipl_Id is NULL then
1207: /* Oipl not linked to Step */
1208: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
1209: fnd_message.raise_error;
1210: End If;
1211: End If;
1212: L_Elctbl_Flag := 'N';
1213:
1304: Fetch Lee_Rsn into l_LEE_RSN_ID;
1305: Close Lee_Rsn;
1306:
1307: If l_LEE_RSN_ID is NULL Then
1308: fnd_message.set_name('PQH','PQH_GSP_LIF_RSN_NOT_DFND');
1309: fnd_message.raise_error;
1310: End If;
1311:
1312: /* Create Potential Life Events */
1305: Close Lee_Rsn;
1306:
1307: If l_LEE_RSN_ID is NULL Then
1308: fnd_message.set_name('PQH','PQH_GSP_LIF_RSN_NOT_DFND');
1309: fnd_message.raise_error;
1310: End If;
1311:
1312: /* Create Potential Life Events */
1313: Ben_Ptnl_Ler_For_per_Api.CREATE_PTNL_LER_FOR_PER_PERF
1416:
1417: L_Rt_Elig_Per_Elctbl_Chc_Id := L_Oipl_Elig_Per_Elctbl_Chc_Id;
1418: End If;
1419: If L_Update_Salary_Cd is NULL Then
1420: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
1421: fnd_message.raise_error;
1422: End If;
1423: If P_Called_From <> 'BM' Then
1424: if g_debug then
1417: L_Rt_Elig_Per_Elctbl_Chc_Id := L_Oipl_Elig_Per_Elctbl_Chc_Id;
1418: End If;
1419: If L_Update_Salary_Cd is NULL Then
1420: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
1421: fnd_message.raise_error;
1422: End If;
1423: If P_Called_From <> 'BM' Then
1424: if g_debug then
1425: hr_utility.set_location('L_Update_Salary_Cd :' || L_Update_Salary_Cd, 180);
1770: l_prev_sal is not null Then
1771: --
1772: hr_utility.set_location('Sal Element used to pay previously',5);
1773: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
1774: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
1775: fnd_message.raise_error;
1776: End If;
1777: --
1778: Open Elmt_Entry(p_Assignment_Id, p_Business_Group_Id, l_prev_sal_change_dt);
1771: --
1772: hr_utility.set_location('Sal Element used to pay previously',5);
1773: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
1774: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
1775: fnd_message.raise_error;
1776: End If;
1777: --
1778: Open Elmt_Entry(p_Assignment_Id, p_Business_Group_Id, l_prev_sal_change_dt);
1779: Fetch Elmt_Entry into L_Element_Entry_ID, L_Ele_Ovn;
2101: Return;
2102:
2103: Else
2104:
2105: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
2106: fnd_message.raise_error;
2107:
2108: End If;
2109: End If;
2102:
2103: Else
2104:
2105: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
2106: fnd_message.raise_error;
2107:
2108: End If;
2109: End If;
2110: --Covert salary from program frequency to salary basis frequency
2118: -- Current grade ladder uses salary basis to update salary
2119: --
2120: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
2121: If L_Enroll_Info.Pay_Basis_Id is NULL Then
2122: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
2123: fnd_message.raise_error;
2124: End If;
2125: --
2126: -- Find when was the last proposal change.
2119: --
2120: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
2121: If L_Enroll_Info.Pay_Basis_Id is NULL Then
2122: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
2123: fnd_message.raise_error;
2124: End If;
2125: --
2126: -- Find when was the last proposal change.
2127: --
2298: --
2299: -- Get default element and input value of current ladder.
2300: --
2301: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
2302: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
2303: fnd_message.raise_error;
2304: End If;
2305: --
2306: -- Check if the assignment is eligible for the element as of current rate start date
2299: -- Get default element and input value of current ladder.
2300: --
2301: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
2302: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
2303: fnd_message.raise_error;
2304: End If;
2305: --
2306: -- Check if the assignment is eligible for the element as of current rate start date
2307: --
2310: ,L_DFLT_ELEMENT_TYPE_ID
2311: ,L_Enroll_Info.RT_Strt_Dt);
2312:
2313: if l_Element_Link_Id is NULL Then
2314: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
2315: fnd_message.raise_error;
2316: End If;
2317:
2318: --
2311: ,L_Enroll_Info.RT_Strt_Dt);
2312:
2313: if l_Element_Link_Id is NULL Then
2314: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
2315: fnd_message.raise_error;
2316: End If;
2317:
2318: --
2319: -- Check if there is a rate value.
2318: --
2319: -- Check if there is a rate value.
2320: --
2321: If L_Enroll_Info.Val is NULL Then
2322: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
2323: fnd_message.raise_error;
2324: End If;
2325: --
2326: -- Get current pay proposal
2319: -- Check if there is a rate value.
2320: --
2321: If L_Enroll_Info.Val is NULL Then
2322: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
2323: fnd_message.raise_error;
2324: End If;
2325: --
2326: -- Get current pay proposal
2327: --
2330: ,l_Payroll_name
2331: ,l_payroll_annualization_factor);
2332:
2333: If L_Payroll_name is NULL Then
2334: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
2335: fnd_message.raise_error;
2336: End If;
2337:
2338: -- check if a element entry already exists, for the default element
2331: ,l_payroll_annualization_factor);
2332:
2333: If L_Payroll_name is NULL Then
2334: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
2335: fnd_message.raise_error;
2336: End If;
2337:
2338: -- check if a element entry already exists, for the default element
2339: -- If so update the element entru, else create the element entry.
2808: Exception
2809: When Others Then
2810: Rollback to Start_Enrlmnt;
2811: l_Error_Exists := 'Y';
2812: -- l_Error_Message := Fnd_Message.Get;
2813: if g_debug then
2814: hr_utility.set_location(' Error in AUI ', 50);
2815: hr_utility.set_location(' Error : ' || l_Error_Message, 60);
2816: End If;
2819: (P_Master_txn_Id => L_Concurrent_Req_Id
2820: ,P_Txn_Id => Elctbl_Rec.ELIG_PER_ELCTBL_CHC_ID
2821: ,p_module_cd => 'PQH_GSP_APPROVAL_UI'
2822: ,p_message_type_cd => 'E'
2823: ,p_message_text => Nvl(Fnd_Message.Get,sqlerrm)
2824: ,P_Effective_Date => L_Effective_Date);
2825: End;
2826: End Loop;
2827:
2825: End;
2826: End Loop;
2827:
2828: If l_Error_Exists = 'N' Then
2829: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2830: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2831: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2832: Else
2833: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2826: End Loop;
2827:
2828: If l_Error_Exists = 'N' Then
2829: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2830: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2831: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2832: Else
2833: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2834: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2827:
2828: If l_Error_Exists = 'N' Then
2829: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2830: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2831: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2832: Else
2833: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2834: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2835: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2829: fnd_message.set_name('PQH','PQH_GSP_LOG_SUC');
2830: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2831: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2832: Else
2833: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2834: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2835: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2836: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
2837: ,message=>SQLERRM);
2830: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2831: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2832: Else
2833: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2834: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2835: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2836: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
2837: ,message=>SQLERRM);
2838: End If;
2831: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2832: Else
2833: fnd_message.set_name('PQH','PQH_GSP_LOG_ERR');
2834: fnd_Message.Set_Token('MODULE',Hr_general.Decode_lookup('PQH_PROCESS_LOG_TREE','PQH_GSP_APPROVAL_UI'));
2835: fnd_file.put_line(fnd_file.log,Fnd_Message.get);
2836: l_conc_status := fnd_concurrent.set_completion_status(status => 'ERROR'
2837: ,message=>SQLERRM);
2838: End If;
2839:
3292: Close Ben_Grd_Dtls;
3293:
3294: If l_Pl_Id Is Null Then
3295: /* Plan is not not linked to the corresponding Grade */
3296: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
3297: fnd_message.raise_error;
3298: End If;
3299:
3300: If l_Prog_style = 'PQH_GSP_NP' Then
3293:
3294: If l_Pl_Id Is Null Then
3295: /* Plan is not not linked to the corresponding Grade */
3296: fnd_message.set_name('PQH','PQH_GSP_PLN_NOTLNKD_TO_GRD');
3297: fnd_message.raise_error;
3298: End If;
3299:
3300: If l_Prog_style = 'PQH_GSP_NP' Then
3301: Return;
3299:
3300: If l_Prog_style = 'PQH_GSP_NP' Then
3301: Return;
3302: elsif l_Prog_style is NULL then
3303: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
3304: fnd_message.raise_error;
3305: End If;
3306:
3307: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3300: If l_Prog_style = 'PQH_GSP_NP' Then
3301: Return;
3302: elsif l_Prog_style is NULL then
3303: fnd_message.set_name('PQH','PQH_GSP_PRGSTYLE_NOT_SET');
3304: fnd_message.raise_error;
3305: End If;
3306:
3307: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3308: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
3305: End If;
3306:
3307: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3308: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
3309: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3310: fnd_message.raise_error;
3311:
3312: /*
3313: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then */
3306:
3307: If L_Update_Salary_Cd = 'SALARY_BASIS' and L_pay_basis_id is NULL Then
3308: /* Grade Ladder is defined for Salary basis and Pay Basis is not attached to the assignment */
3309: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3310: fnd_message.raise_error;
3311:
3312: /*
3313: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then */
3314:
3313: ElsIf L_Update_Salary_Cd = 'SALARY_ELEMENT' then */
3314:
3315: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
3316: /* If l_Dflt_Element_typ_Id is NULL Then
3317: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
3318: fnd_message.raise_error;
3319: End If;
3320:
3321: l_Element_Link_Id := hr_entry_api.get_link
3314:
3315: /* Grade Ladder uses Salary Element, but Default Salary Element type is not defined */
3316: /* If l_Dflt_Element_typ_Id is NULL Then
3317: fnd_message.set_name('PQH','PQH_GSP_DFLT_ELMNT_NOTDFND');
3318: fnd_message.raise_error;
3319: End If;
3320:
3321: l_Element_Link_Id := hr_entry_api.get_link
3322: (P_Assignment_id
3323: ,l_Dflt_Element_typ_Id
3324: ,P_Effective_Date);
3325:
3326: If l_Element_Link_Id is NULL Then
3327: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3328: fnd_message.raise_error;
3329: End If;
3330: Cursor Step_Dtls(p_assignment_id in number) Is
3331: Select Plcmt.Step_id, Step.Spinal_point_id, Plcmt.Effective_Start_Date
3324: ,P_Effective_Date);
3325:
3326: If l_Element_Link_Id is NULL Then
3327: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3328: fnd_message.raise_error;
3329: End If;
3330: Cursor Step_Dtls(p_assignment_id in number) Is
3331: Select Plcmt.Step_id, Step.Spinal_point_id, Plcmt.Effective_Start_Date
3332: */
3339: Fetch Step_Dtls Into L_Step_Id, l_Point_id;
3340: Close Step_Dtls;
3341: /* Step not defined for Assignment */
3342: If l_Step_Id is NULL Then
3343: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
3344: fnd_message.raise_error;
3345: Else
3346: Open Ben_Dtls(L_Pl_id,
3347: L_Point_Id);
3340: Close Step_Dtls;
3341: /* Step not defined for Assignment */
3342: If l_Step_Id is NULL Then
3343: fnd_message.set_name('PQH','PQH_GSP_NO_STEP');
3344: fnd_message.raise_error;
3345: Else
3346: Open Ben_Dtls(L_Pl_id,
3347: L_Point_Id);
3348: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
3348: Fetch Ben_Dtls Into L_Oipl_Id, l_Opt_id;
3349: Close Ben_Dtls;
3350: If L_Oipl_Id is NULL then
3351: /* Oipl not linked to Step */
3352: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
3353: fnd_message.raise_error;
3354: End If;
3355: End If;
3356: L_Elctbl_Flag := 'N';
3349: Close Ben_Dtls;
3350: If L_Oipl_Id is NULL then
3351: /* Oipl not linked to Step */
3352: fnd_message.set_name('PQH','PQH_GSP_OIPL_NOTLNKD_TO_STEP');
3353: fnd_message.raise_error;
3354: End If;
3355: End If;
3356: L_Elctbl_Flag := 'N';
3357:
3452: End If;
3453:
3454: End If;
3455: If L_Update_Salary_Cd is NULL Then
3456: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
3457: fnd_message.raise_error;
3458: End If;
3459: if g_debug then
3460: hr_utility.set_location(' Determine Rates ', 190);
3453:
3454: End If;
3455: If L_Update_Salary_Cd is NULL Then
3456: fnd_message.set_name('PQH','PQH_GSP_POSTSTYL_NOT_SET');
3457: fnd_message.raise_error;
3458: End If;
3459: if g_debug then
3460: hr_utility.set_location(' Determine Rates ', 190);
3461: End If;
3695: Return;
3696:
3697: Else
3698:
3699: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3700: fnd_message.raise_error;
3701:
3702: End If;
3703: End If;
3696:
3697: Else
3698:
3699: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3700: fnd_message.raise_error;
3701:
3702: End If;
3703: End If;
3704:
3762:
3763:
3764: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
3765: If L_Enroll_Info.Pay_Basis_Id is NULL Then
3766: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3767: fnd_message.raise_error;
3768: End If;
3769:
3770:
3763:
3764: If L_Update_Salary_Cd = 'SALARY_BASIS' Then
3765: If L_Enroll_Info.Pay_Basis_Id is NULL Then
3766: fnd_message.set_name('PQH','PQH_GSP_SALBSIS_NOT_LNKD');
3767: fnd_message.raise_error;
3768: End If;
3769:
3770:
3771: Open Proposal_Dt(L_Enroll_Info.Assignment_Id);
3812:
3813: Elsif L_Update_Salary_Cd = 'SALARY_ELEMENT' Then
3814:
3815: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
3816: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
3817: fnd_message.raise_error;
3818: End If;
3819:
3820: l_Element_Link_Id := hr_entry_api.get_link
3813: Elsif L_Update_Salary_Cd = 'SALARY_ELEMENT' Then
3814:
3815: If L_DFLT_INPUT_VALUE_ID is NULL or L_DFLT_ELEMENT_TYPE_ID is NULL Then
3816: fnd_message.set_name('PQH','PQH_GSP_DFLY_ELMNT_NOT_LNKD');
3817: fnd_message.raise_error;
3818: End If;
3819:
3820: l_Element_Link_Id := hr_entry_api.get_link
3821: (L_Enroll_Info.Assignment_Id
3822: ,L_DFLT_ELEMENT_TYPE_ID
3823: ,L_Enroll_Info.RT_Strt_Dt);
3824:
3825: if l_Element_Link_Id is NULL Then
3826: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3827: fnd_message.raise_error;
3828: End If;
3829:
3830: If L_Enroll_Info.Val is NULL Then
3823: ,L_Enroll_Info.RT_Strt_Dt);
3824:
3825: if l_Element_Link_Id is NULL Then
3826: fnd_message.set_name('PQH','PQH_GSP_ELMNT_NOT_LNKD');
3827: fnd_message.raise_error;
3828: End If;
3829:
3830: If L_Enroll_Info.Val is NULL Then
3831: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3827: fnd_message.raise_error;
3828: End If;
3829:
3830: If L_Enroll_Info.Val is NULL Then
3831: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3832: fnd_message.raise_error;
3833: End If;
3834:
3835:
3828: End If;
3829:
3830: If L_Enroll_Info.Val is NULL Then
3831: fnd_message.set_name('PQH','PQH_GSP_RAT_NOT_DFND');
3832: fnd_message.raise_error;
3833: End If;
3834:
3835:
3836: per_pay_proposals_populate.get_payroll(L_Enroll_Info.Assignment_Id
3838: ,l_Payroll_name
3839: ,l_payroll_annualization_factor);
3840:
3841: If L_Payroll_name is NULL Then
3842: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
3843: fnd_message.raise_error;
3844: End If;
3845:
3846: Open Elmt_Entry(L_Enroll_Info.Assignment_Id, L_Enroll_Info.Business_Group_Id, L_Enroll_Info.Rt_Strt_Dt);
3839: ,l_payroll_annualization_factor);
3840:
3841: If L_Payroll_name is NULL Then
3842: fnd_message.set_name('PQH','PQH_GSP_PAYROLL_NOT_DFND');
3843: fnd_message.raise_error;
3844: End If;
3845:
3846: Open Elmt_Entry(L_Enroll_Info.Assignment_Id, L_Enroll_Info.Business_Group_Id, L_Enroll_Info.Rt_Strt_Dt);
3847: Fetch Elmt_Entry into L_Element_Entry_ID, L_Ele_Ovn;
3936: hr_utility.set_location(' p_oipl_id ' || p_oipl_id, 100);
3937: End If;
3938:
3939: if p_progression_date < p_life_event_dt then
3940: fnd_message.set_name('PQH','PQH_GSP_APPRVL_PRGS_DT_CHK_ERR');
3941: fnd_message.raise_error();
3942: end if;
3943: if p_Sal_Chg_Dt < p_progression_date then
3944: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3937: End If;
3938:
3939: if p_progression_date < p_life_event_dt then
3940: fnd_message.set_name('PQH','PQH_GSP_APPRVL_PRGS_DT_CHK_ERR');
3941: fnd_message.raise_error();
3942: end if;
3943: if p_Sal_Chg_Dt < p_progression_date then
3944: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3945: fnd_message.raise_error();
3940: fnd_message.set_name('PQH','PQH_GSP_APPRVL_PRGS_DT_CHK_ERR');
3941: fnd_message.raise_error();
3942: end if;
3943: if p_Sal_Chg_Dt < p_progression_date then
3944: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3945: fnd_message.raise_error();
3946: end if;
3947: Open Enrt_Rt;
3948: Fetch Enrt_Rt into L_Enrt_Rt_Id, l_Enrt_ovn;
3941: fnd_message.raise_error();
3942: end if;
3943: if p_Sal_Chg_Dt < p_progression_date then
3944: fnd_message.set_name('PQH','PQH_GSP_APPRVL_SALCHG_DT_ERR');
3945: fnd_message.raise_error();
3946: end if;
3947: Open Enrt_Rt;
3948: Fetch Enrt_Rt into L_Enrt_Rt_Id, l_Enrt_ovn;
3949: Close Enrt_Rt;