46: BEGIN
47:
48: g_procedure_name := 'Upd_Ins_Budget_Acct_Line';
49:
50: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
51:
52: BEGIN
53: IF P_DEBUG_MODE = 'Y' THEN
54: log_message('Year_End_Rollover: ' || 'Before Update in Upd_Ins_Budget_Acct_Line');
336: X_Return_Status => l_Return_Status,
337: X_Error_Message_Code => l_Msg_Data
338: );
339:
340: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
341: IF P_DEBUG_MODE = 'Y' THEN
342: PA_Fck_Util.debug_msg('Year_End_Rollover: ' || 'Error occured while running sweeper process PA_Sweeper.Update_Act_Enc_Balance');
343: PA_Fck_Util.debug_msg('Year_End_Rollover: ' || 'Action: Contact Oracle support team');
344: PA_Fck_Util.debug_msg('Year_End_Rollover: ' || 'X_Error_Message_Code:'||l_Msg_Data);
385: X_Msg_Count => l_Msg_Count,
386: X_Msg_Data => l_Msg_Data
387: );
388:
389: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN -- Need to test carefully
390: X_Msg_Count := l_Msg_Count;
391: X_Msg_Data := l_Msg_Data;
392: X_Return_Status := l_Return_Status;
393:
551: X_Msg_Count => l_Msg_Count,
552: X_Msg_Data => l_Msg_Data
553: );
554:
555: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
556: IF P_DEBUG_MODE = 'Y' THEN
557: g_procedure_name := 'Year_End_Rollover';
558: log_message(g_procedure_name||':Create_Working_Budget Failed:'||l_Msg_Data);
559: END IF;
801: X_Msg_Count => l_Msg_Count,
802: X_Msg_Data => l_Msg_Data
803: );
804:
805: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
806: log_message('Year_End_Rollover: Old period: Upd_Ins_Budget_Line failed:'||l_Msg_Data);
807: g_procedure_name := 'Year_End_Rollover';
808: RAISE l_IU_Bdgt_Line_ERR;
809: END IF;
835: X_Msg_Count => l_Msg_Count,
836: X_Msg_Data => l_Msg_Data
837: );
838:
839: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
840: THEN
841: log_message('Year_End_Rollover: Old period: Upd_Ins_Budget_Acct_Line failed:'||l_Msg_Data);
842: g_procedure_name := 'Year_End_Rollover';
843: RAISE l_IU_Bdgt_Acct_ERR;
882: X_Msg_Count => l_Msg_Count,
883: X_Msg_Data => l_Msg_Data
884: );
885:
886: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS THEN
887: log_message('Year_End_Rollover: New period: Upd_Ins_Budget_Line failed:'||l_Msg_Data);
888: g_procedure_name := 'Year_End_Rollover';
889: RAISE l_IU_Bdgt_Line_ERR;
890: END IF;
922: X_Msg_Count => l_Msg_Count,
923: X_Msg_Data => l_Msg_Data
924: );
925:
926: IF l_Return_Status <> FND_API.G_RET_STS_SUCCESS
927: THEN
928: log_message('Year_End_Rollover: New period: Upd_Ins_Budget_Acct_Line failed:'||l_Msg_Data);
929: g_procedure_name := 'Year_End_Rollover';
930: RAISE l_IU_Bdgt_Acct_ERR;
990: X_Return_Status => l_return_status,
991: X_Msg_Count => l_msg_count,
992: X_Msg_Data => l_msg_data) ;
993:
994: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
995: l_Proceed_Flag := FALSE;
996: Year_End_Rollover_Log (
997: P_Budget_Version_ID => l_Work_Budget_Version_Id,
998: P_Message_Name => 'PA_BC_GEN_FAI_ACCT',
1090: X_Return_Status => l_return_status,
1091: X_Msg_Count => l_msg_count,
1092: X_Msg_Data => l_msg_data) ;
1093:
1094: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS ) THEN
1095: ROLLBACK;
1096: l_Message_Name := 'PA_BC_GEN_FAI_ACCT';
1097: RAISE l_SUBMIT_BASELINE_ERR;
1098: END IF;
1334:
1335: WHEN l_Lock_Bdgt_Err THEN
1336: X_Msg_Count := 1;
1337: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1338: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1339: Year_End_Rollover_Log (
1340: P_Budget_Version_ID => l_Work_Budget_Version_Id,
1341: P_Message_Name => 'PA_BC_LOCK_BDGT_ERR',
1342: P_Request_ID => P_Request_ID,
1344:
1345: WHEN l_SUBMIT_BASELINE_ERR THEN
1346: X_Msg_Count := 1;
1347: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1348: X_Return_Status := FND_API.G_RET_STS_ERROR;
1349: Year_End_Rollover_Log (
1350: P_Budget_Version_ID => l_Work_Budget_Version_Id,
1351: P_Message_Name => l_Message_Name,
1352: P_Request_ID => P_Request_ID,
1415: P_Request_ID => P_Request_ID);
1416: /* Bug 5726535 - End */
1417: X_Msg_Count := 1;
1418: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1419: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1420: log_message('Year_End_Rollover: ' ||'In When Others. End->X_Msg_Data :'||X_Msg_Data);
1421: ROLLBACK;
1422: RETURN;
1423:
1530: END IF;
1531:
1532: X_Msg_Count := 9998;
1533: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1534: X_Return_Status := FND_API.G_RET_STS_ERROR;
1535:
1536: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_Year_End_Rollover_PKG',
1537: P_Procedure_Name => 'Get_Period_Details');
1538: RETURN;
1566: END IF;
1567:
1568: X_Msg_Count := 9999;
1569: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1570: X_Return_Status := FND_API.G_RET_STS_ERROR;
1571:
1572: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_Year_End_Rollover_PKG',
1573: P_Procedure_Name => 'Get_Period_Details');
1574: RETURN;
1588: log_message('Year_End_Rollover: ' || 'ERRORS encountered in API : Get_Period_Details' );
1589: END IF;
1590: X_Msg_Count := 1;
1591: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
1592: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
1593:
1594: FND_MSG_PUB.add_Exc_msg( P_Pkg_Name => 'PA_Year_End_Rollover_PKG',
1595: P_Procedure_Name => 'Get_Period_Details');
1596: END Get_Period_Details;
1638: l_Txn_Curr_Code PA_BUDGET_LINES.TXN_CURRENCY_CODE%type;
1639: --l_Budget_Line_Id PA_BUDGET_LINES.BUDGET_LINE_ID%type;
1640:
1641: BEGIN
1642: X_Return_Status := FND_API.G_RET_STS_SUCCESS;
1643:
1644: -----------------------------------------------------------------------------------+
1645: -- Update the Budget line for a required res. assignment and period
1646: -----------------------------------------------------------------------------------+
2113: EXCEPTION
2114: WHEN l_Lock_Bdgt_Err THEN
2115: X_Msg_Count := 1;
2116: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
2117: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2118: Year_End_Rollover_Log (
2119: P_Budget_Version_ID => l_Work_Budget_Version_Id,
2120: P_Message_Name => 'PA_BC_LOCK_BDGT_ERR',
2121: P_Request_ID => P_Request_ID,
2123:
2124: WHEN l_Get_Work_Bdgt_Err THEN
2125: X_Msg_Count := 1;
2126: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
2127: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2128: Year_End_Rollover_Log (
2129: P_Budget_Version_ID => l_Work_Budget_Version_Id,
2130: P_Message_Name => 'PA_BC_WORK_BDGT_ERR',
2131: P_Request_ID => P_Request_ID,
2132: P_Lock_Name => l_Lock_Name );
2133: WHEN l_Copy_Bdgt_Err THEN
2134: X_Msg_Count := 1;
2135: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
2136: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2137: Year_End_Rollover_Log (
2138: P_Budget_Version_ID => l_Work_Budget_Version_Id,
2139: P_Message_Name => 'PA_BC_COPY_BDGT_ERR',
2140: P_Request_ID => P_Request_ID,
2141: P_Lock_Name => l_Lock_Name );
2142: WHEN l_IU_Bdgt_Acct_Err THEN
2143: X_Msg_Count := 1;
2144: X_Msg_Data := SUBSTR(SQLERRM, 1, 240);
2145: X_Return_Status := FND_API.G_RET_STS_UNEXP_ERROR;
2146: Year_End_Rollover_Log (
2147: P_Budget_Version_ID => l_Work_Budget_Version_Id,
2148: P_Message_Name => upper('PA_BC_IU_Bdgt_Acct_Err'),
2149: P_Request_ID => P_Request_ID,