[Home] [Help]
1193: * package.
1194: ****************************************************************************************/
1195:
1196: Procedure Create_Plan_RL_Format(
1197: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1198: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1199: P_Res_List_id IN NUMBER,
1200: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
1201: X_Plan_RL_Format_Tbl OUT NOCOPY Plan_RL_Format_Out_Tbl,
1194: ****************************************************************************************/
1195:
1196: Procedure Create_Plan_RL_Format(
1197: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1198: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1199: P_Res_List_id IN NUMBER,
1200: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
1201: X_Plan_RL_Format_Tbl OUT NOCOPY Plan_RL_Format_Out_Tbl,
1202: X_Return_Status OUT NOCOPY VARCHAR2,
1213: * and create new planning resources for the
1214: * given resource list.
1215: ********************************************************************************************/
1216: PROCEDURE Create_Planning_Resource(
1217: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1219: p_resource_list_id IN VARCHAR2,
1220: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
1221: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,
1214: * given resource list.
1215: ********************************************************************************************/
1216: PROCEDURE Create_Planning_Resource(
1217: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
1219: p_resource_list_id IN VARCHAR2,
1220: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
1221: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,
1222: x_return_status OUT NOCOPY VARCHAR2,
1229: * and its corresponding members and formats.
1230: * The detailed information is in spec.
1231: **********************************************************/
1232: PROCEDURE Create_Resource_List
1233: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
1234: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1235: p_api_version_number IN NUMBER,
1236: P_plan_res_list_Rec IN Plan_Res_List_IN_Rec,
1237: X_plan_res_list_Rec OUT NOCOPY Plan_Res_List_OUT_Rec,
1230: * The detailed information is in spec.
1231: **********************************************************/
1232: PROCEDURE Create_Resource_List
1233: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
1234: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1235: p_api_version_number IN NUMBER,
1236: P_plan_res_list_Rec IN Plan_Res_List_IN_Rec,
1237: X_plan_res_list_Rec OUT NOCOPY Plan_Res_List_OUT_Rec,
1238: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
1264:
1265: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
1266:
1267: --Initialize the message stack before starting any further processing.
1268: IF FND_API.to_boolean( p_init_msg_list )
1269: THEN
1270: FND_MSG_PUB.initialize;
1271: END IF;
1272:
1270: FND_MSG_PUB.initialize;
1271: END IF;
1272:
1273: --Initialize the Out Variables.
1274: x_return_status := FND_API.G_RET_STS_SUCCESS;
1275: x_msg_count := 0;
1276: l_mode:=0;
1277:
1278: --Set a Savepoint so that if error occurs at any stage we can
1281:
1282: --Check for the Compatibility of the API Version
1283: --This is a must for AMG API's
1284: --Doubt -- does this have to be done for all the api's/the main one??
1285: IF NOT FND_API.Compatible_API_Call
1286: ( l_api_version_number ,
1287: p_api_version_number ,
1288: l_api_name ,
1289: G_PKG_NAME )
1288: l_api_name ,
1289: G_PKG_NAME )
1290: THEN
1291:
1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1293: END IF;
1294: Convert_Missing_List_IN_Rec(
1295: P_Plan_res_list_Rec => P_Plan_res_list_Rec,
1296: X_Plan_res_list_Rec => L_Plan_res_list_Rec,
1359:
1360:
1361: IF l_error_code > 0 THEN
1362:
1363: RAISE FND_API.G_EXC_ERROR;
1364: END IF;
1365: IF l_error_code < 0 THEN
1366:
1367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1363: RAISE FND_API.G_EXC_ERROR;
1364: END IF;
1365: IF l_error_code < 0 THEN
1366:
1367: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1368: END IF;
1369:
1370: /************************************************
1371: * Check the Commit flag. if it is true then Commit.
1370: /************************************************
1371: * Check the Commit flag. if it is true then Commit.
1372: ************************************************/
1373: IF l_error_code = 0 THEN
1374: IF FND_API.to_boolean( p_commit )
1375: THEN
1376: COMMIT;
1377: END IF;
1378: END IF;
1402: X_Msg_Count => l_msg_count,
1403: X_Msg_Data => l_msg_data);
1404:
1405:
1406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1407: x_return_status := FND_API.G_RET_STS_ERROR;
1408: x_msg_count := x_msg_count + 1;
1409: x_msg_data := l_msg_data;
1410: PA_UTILS.Add_Message ('PA', x_msg_data);
1403: X_Msg_Data => l_msg_data);
1404:
1405:
1406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1407: x_return_status := FND_API.G_RET_STS_ERROR;
1408: x_msg_count := x_msg_count + 1;
1409: x_msg_data := l_msg_data;
1410: PA_UTILS.Add_Message ('PA', x_msg_data);
1411: Rollback;
1431: x_return_status => l_return_status,
1432: x_msg_count => l_msg_count,
1433: x_error_msg_data => l_msg_data );
1434:
1435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: x_msg_count := x_msg_count + 1;
1438: x_msg_data := l_msg_data;
1439: PA_UTILS.Add_Message ('PA', x_msg_data);
1432: x_msg_count => l_msg_count,
1433: x_error_msg_data => l_msg_data );
1434:
1435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1436: x_return_status := FND_API.G_RET_STS_ERROR;
1437: x_msg_count := x_msg_count + 1;
1438: x_msg_data := l_msg_data;
1439: PA_UTILS.Add_Message ('PA', x_msg_data);
1440: ROLLBACK ;
1442: END IF;
1443:
1444: EXCEPTION
1445: WHEN NOFORMAT_EXISTS_ERR THEN
1446: x_return_status := FND_API.G_RET_STS_ERROR ;
1447: X_Msg_Data := 'PA_AMG_CANNOT_CRT_MEMBERS';
1448: x_msg_count := x_msg_count + 1;
1449: Pa_Utils.Add_Message
1450: (P_App_Short_Name => 'PA',
1449: Pa_Utils.Add_Message
1450: (P_App_Short_Name => 'PA',
1451: P_Msg_Name => 'PA_AMG_CANNOT_CRT_MEMBERS');
1452: WHEN NAME_NULL_ERR THEN
1453: x_return_status := FND_API.G_RET_STS_ERROR ;
1454: X_Msg_Data := 'PA_AMG_LIST_NAME_NULL';
1455: x_msg_count := x_msg_count + 1;
1456: Pa_Utils.Add_Message
1457: (P_App_Short_Name => 'PA',
1457: (P_App_Short_Name => 'PA',
1458: P_Msg_Name => 'PA_AMG_LIST_NAME_NULL');
1459: ROLLBACK ;
1460: Return;
1461: WHEN FND_API.G_EXC_ERROR THEN
1462: x_return_status := FND_API.G_RET_STS_ERROR ;
1463: X_Msg_Data := l_error_stack;
1464: x_msg_count := x_msg_count + 1;
1465: ROLLBACK ;
1458: P_Msg_Name => 'PA_AMG_LIST_NAME_NULL');
1459: ROLLBACK ;
1460: Return;
1461: WHEN FND_API.G_EXC_ERROR THEN
1462: x_return_status := FND_API.G_RET_STS_ERROR ;
1463: X_Msg_Data := l_error_stack;
1464: x_msg_count := x_msg_count + 1;
1465: ROLLBACK ;
1466: Return;
1463: X_Msg_Data := l_error_stack;
1464: x_msg_count := x_msg_count + 1;
1465: ROLLBACK ;
1466: Return;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1469: x_msg_count := x_msg_count + 1;
1470: X_Msg_Data := SUBSTRB(SQLERRM,1,240); -- 4537865
1471: ROLLBACK ;
1464: x_msg_count := x_msg_count + 1;
1465: ROLLBACK ;
1466: Return;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1469: x_msg_count := x_msg_count + 1;
1470: X_Msg_Data := SUBSTRB(SQLERRM,1,240); -- 4537865
1471: ROLLBACK ;
1472: -- 4537865
1477: );
1478: Return;
1479:
1480: WHEN OTHERS THEN
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1482: x_msg_count := x_msg_count + 1; -- 4537865
1483: X_Msg_Data := SUBSTRB(SQLERRM,1,240); -- 4537865
1484: ROLLBACK;
1485: FND_MSG_PUB.Add_Exc_Msg
1496: * and its corresponding members and formats.
1497: * The detailed information is in the spec.
1498: *********************************************************/
1499: PROCEDURE Update_Resource_List(
1500: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1502: p_api_version_number IN NUMBER,
1503: P_plan_res_list_Rec IN Plan_Res_List_IN_Rec,
1504: X_plan_res_list_Rec OUT NOCOPY Plan_Res_List_OUT_Rec,
1497: * The detailed information is in the spec.
1498: *********************************************************/
1499: PROCEDURE Update_Resource_List(
1500: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1501: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1502: p_api_version_number IN NUMBER,
1503: P_plan_res_list_Rec IN Plan_Res_List_IN_Rec,
1504: X_plan_res_list_Rec OUT NOCOPY Plan_Res_List_OUT_Rec,
1505: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
1554: BEGIN
1555:
1556: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
1557: --Initialize the message stack before starting any further processing.
1558: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then
1559:
1560: Fnd_Msg_Pub.Initialize;
1561:
1562: End If;
1561:
1562: End If;
1563:
1564: --Initialize the Out Variables.
1565: x_return_status := Fnd_Api.G_Ret_Sts_Success;
1566: x_msg_count := 0;
1567:
1568:
1569: --Set a Savepoint so that if error occurs at any stage we can
1571: -- SAVEPOINT Update_Resource_List_Pub;
1572:
1573: --Check for the Compatibility of the API Version
1574: --This is a must for AMG API's
1575: If Not Fnd_Api.Compatible_API_Call
1576: ( l_api_version_number ,
1577: p_api_version_number ,
1578: l_api_name ,
1579: G_Pkg_Name ) Then
1577: p_api_version_number ,
1578: l_api_name ,
1579: G_Pkg_Name ) Then
1580:
1581: Raise Fnd_Api.G_Exc_UnExpected_Error;
1582:
1583: End If;
1584:
1585:
1620: End If;
1621:
1622: /* Added for CBS changes */
1623: IF PA_FP_GEN_AMOUNT_UTILS.get_trg_resource_class_flag(L_plan_res_list_Rec.p_resource_list_id) = 'N' THEN
1624: x_return_status := FND_API.G_RET_STS_ERROR;
1625: x_msg_count := x_msg_count + 1;
1626: x_msg_data := 'PA_CNT_USE_AMG_FR_NON_ENHCD_PRL';
1627: Pa_Utils.Add_Message
1628: (P_App_Short_Name => 'PA',
1678: x_msg_count => l_msg_count,
1679: x_return_status => l_return_status,
1680: x_msg_data => l_msg_data);
1681:
1682: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1683: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1684: x_msg_count := x_msg_count + 1;
1685: x_msg_data := l_msg_data;
1686: Pa_Utils.Add_Message ('PA', x_msg_data);
1679: x_return_status => l_return_status,
1680: x_msg_data => l_msg_data);
1681:
1682: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1683: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1684: x_msg_count := x_msg_count + 1;
1685: x_msg_data := l_msg_data;
1686: Pa_Utils.Add_Message ('PA', x_msg_data);
1687: Rollback ;
1691:
1692: /************************************************
1693: * Check the Commit flag. if it is true then Commit.
1694: ************************************************/
1695: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1696:
1697: If Fnd_Api.To_Boolean( p_commit ) Then
1698:
1699: Commit;
1693: * Check the Commit flag. if it is true then Commit.
1694: ************************************************/
1695: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1696:
1697: If Fnd_Api.To_Boolean( p_commit ) Then
1698:
1699: Commit;
1700:
1701: End If;
1750: X_Return_Status => X_Return_Status,
1751: X_Msg_Count => l_msg_count,
1752: X_Msg_Data => l_msg_data);
1753:
1754: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1755:
1756: l_return_status := Fnd_Api.G_Ret_Sts_Error;
1757: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1758: x_msg_count := x_msg_count + 1;
1752: X_Msg_Data => l_msg_data);
1753:
1754: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1755:
1756: l_return_status := Fnd_Api.G_Ret_Sts_Error;
1757: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1758: x_msg_count := x_msg_count + 1;
1759: x_msg_data := l_msg_data;
1760: Pa_Utils.Add_Message ('PA', x_msg_data);
1753:
1754: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1755:
1756: l_return_status := Fnd_Api.G_Ret_Sts_Error;
1757: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1758: x_msg_count := x_msg_count + 1;
1759: x_msg_data := l_msg_data;
1760: Pa_Utils.Add_Message ('PA', x_msg_data);
1761: RollbacK ;
1762: Return;
1763:
1764: Else
1765:
1766: l_return_status := Fnd_Api.G_Ret_Sts_Success;
1767:
1768: End If;
1769:
1770: End Loop;
1774:
1775: /************************************************
1776: * Check the Commit flag. if it is true then Commit.
1777: ************************************************/
1778: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1779:
1780: If Fnd_Api.To_Boolean( p_commit ) Then
1781:
1782: Commit;
1776: * Check the Commit flag. if it is true then Commit.
1777: ************************************************/
1778: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1779:
1780: If Fnd_Api.To_Boolean( p_commit ) Then
1781:
1782: Commit;
1783:
1784: End If;
2068: */
2069:
2070: -- dbms_output.put_line('after X_return_status IS : ' || X_return_status);
2071: -- dbms_output.put_line('after l_msg_data IS : ' || l_msg_data);
2072: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN
2073:
2074: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2075: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2076: x_msg_count := x_msg_count + 1;
2070: -- dbms_output.put_line('after X_return_status IS : ' || X_return_status);
2071: -- dbms_output.put_line('after l_msg_data IS : ' || l_msg_data);
2072: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN
2073:
2074: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2075: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2076: x_msg_count := x_msg_count + 1;
2077: x_msg_data := l_msg_data;
2078: Pa_Utils.Add_Message ('PA', x_msg_data);
2071: -- dbms_output.put_line('after l_msg_data IS : ' || l_msg_data);
2072: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN
2073:
2074: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2075: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2076: x_msg_count := x_msg_count + 1;
2077: x_msg_data := l_msg_data;
2078: Pa_Utils.Add_Message ('PA', x_msg_data);
2079: Rollback ;
2080: Return;
2081:
2082: Else
2083:
2084: l_return_status := Fnd_Api.G_Ret_Sts_Success;
2085: X_planning_resource_out_tbl(i) := L_one_pln_res_out_tbl(1);
2086:
2087: End If;
2088:
2154: x_return_status => x_return_status,
2155: x_msg_count => l_msg_count,
2156: x_error_msg_data => l_msg_data);
2157:
2158: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
2159:
2160: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2161: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2162: x_msg_count := x_msg_count + 1;
2156: x_error_msg_data => l_msg_data);
2157:
2158: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
2159:
2160: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2161: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2162: x_msg_count := x_msg_count + 1;
2163: x_msg_data := l_msg_data;
2164: Pa_Utils.Add_Message ('PA', x_msg_data);
2157:
2158: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
2159:
2160: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2161: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2162: x_msg_count := x_msg_count + 1;
2163: x_msg_data := l_msg_data;
2164: Pa_Utils.Add_Message ('PA', x_msg_data);
2165: Rollback ;
2166: Return;
2167:
2168: Else
2169:
2170: l_return_status := Fnd_Api.G_Ret_Sts_Success;
2171:
2172: End If;
2173:
2174: End If;
2177: -- Commit only if all records are successful.
2178: /************************************************
2179: * Check the Commit flag. if it is true then Commit.
2180: ************************************************/
2181: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
2182:
2183: If Fnd_Api.To_Boolean( p_commit ) Then
2184:
2185: Commit;
2179: * Check the Commit flag. if it is true then Commit.
2180: ************************************************/
2181: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
2182:
2183: If Fnd_Api.To_Boolean( p_commit ) Then
2184:
2185: Commit;
2186:
2187: End If;
2196:
2197: If l_Msg_Count = 1 Then
2198:
2199: Pa_Interface_Utils_Pub.Get_Messages(
2200: P_Encoded => Fnd_Api.G_False,
2201: P_Msg_Index => 1,
2202: P_Msg_Count => l_Msg_Count,
2203: P_Msg_Data => l_Msg_Data,
2204: P_Data => l_Data,
2211:
2212: X_Msg_Count := l_Msg_Count;
2213:
2214: End If;
2215: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
2216: Rollback;
2217: When Others Then
2218: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
2219: -- 4537865
2214: End If;
2215: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
2216: Rollback;
2217: When Others Then
2218: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
2219: -- 4537865
2220: X_Msg_Data := SUBSTRB(SQLERRM,1,240);
2221: X_Msg_Count := X_Msg_Count + 1;
2222: -- 4537865 : End
2234: * and its corresponding members and formats.
2235: * The detailed information is in the sepc.
2236: *********************************************************/
2237: PROCEDURE Delete_Resource_List(
2238: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2240: p_api_version_number IN NUMBER,
2241: P_Res_List_Id IN NUMBER ,
2242: X_Return_Status OUT NOCOPY VARCHAR2,
2235: * The detailed information is in the sepc.
2236: *********************************************************/
2237: PROCEDURE Delete_Resource_List(
2238: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2239: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2240: p_api_version_number IN NUMBER,
2241: P_Res_List_Id IN NUMBER ,
2242: X_Return_Status OUT NOCOPY VARCHAR2,
2243: X_Msg_Count OUT NOCOPY NUMBER,
2260: API_ERROR Exception;
2261: BEGIN
2262: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2263: --Initialize the message stack before starting any further processing.
2264: IF FND_API.to_boolean( p_init_msg_list )
2265: THEN
2266: FND_MSG_PUB.initialize;
2267: END IF;
2268:
2266: FND_MSG_PUB.initialize;
2267: END IF;
2268:
2269: --Initialize the Out Variables.
2270: x_return_status := FND_API.G_RET_STS_SUCCESS;
2271: x_msg_count := 0;
2272:
2273: --Set a Savepoint so that if error occurs at any stage we can
2274: -- rollback all the changes.
2276:
2277: --Check for the Compatibility of the API Version
2278: --This is a must for AMG API's
2279: --Doubt -- does this have to be done for all the api's/the main one??
2280: IF NOT FND_API.Compatible_API_Call
2281: ( l_api_version_number ,
2282: p_api_version_number ,
2283: l_api_name ,
2284: G_PKG_NAME )
2282: p_api_version_number ,
2283: l_api_name ,
2284: G_PKG_NAME )
2285: THEN
2286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2287: END IF;
2288:
2289: /* Bug 5490759 - first check whether the list is used so that that
2290: * error message can be shown first, instead of a cryptic downstream
2293:
2294: PA_GET_RESOURCE.delete_resource_list_ok(
2295: p_res_list_id, 'Y', l_err_code, l_msg_data);
2296: IF l_err_code <> 0 THEN
2297: l_return_status := FND_API.G_RET_STS_ERROR;
2298: l_msg_count := l_msg_count + 1;
2299: RAISE API_ERROR;
2300: END IF;
2301:
2316: FROM Pa_resource_list_members
2317: WHERE resource_list_id = p_res_list_id;
2318: EXCEPTION
2319: WHEN OTHERS THEN
2320: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2321: END;
2322:
2323: IF l_res_list_member_id_tbl.COUNT > 0 THEN
2324: FOR i IN l_res_list_member_id_tbl.first.. l_res_list_member_id_tbl.last
2338: p_resource_list_member_id => l_res_list_member_id_tbl(i),
2339: x_return_status => l_return_status,
2340: x_msg_count => l_msg_count,
2341: x_error_msg_data => l_msg_data);
2342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: ROLLBACK ;
2345: Return;
2346: END IF;
2339: x_return_status => l_return_status,
2340: x_msg_count => l_msg_count,
2341: x_error_msg_data => l_msg_data);
2342: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: ROLLBACK ;
2345: Return;
2346: END IF;
2347: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2344: ROLLBACK ;
2345: Return;
2346: END IF;
2347: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2348: IF FND_API.to_boolean( p_commit )
2349: THEN
2350: COMMIT;
2351: END IF;
2344: ROLLBACK ;
2345: Return;
2346: END IF;
2347: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2348: IF FND_API.to_boolean( p_commit )
2349: THEN
2350: COMMIT;
2351: END IF;
2352: END IF;
2365: FROM Pa_Plan_rl_formats
2366: WHERE resource_list_id = p_res_list_id;
2367: EXCEPTION
2368: WHEN OTHERS THEN
2369: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2370: END;
2371:
2372: IF l_res_format_id_tbl.COUNT > 0 THEN
2373: FOR i IN l_res_format_id_tbl.first..l_res_format_id_tbl.last
2384: X_Return_Status => l_return_status,
2385: X_Msg_Count => l_msg_count,
2386: X_Msg_Data => l_msg_data);
2387: --For bug 3810204
2388: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2389: ROLLBACK ;
2390: RAISE API_ERROR;
2391:
2392: END IF;--End of bug 3810204
2390: RAISE API_ERROR;
2391:
2392: END IF;--End of bug 3810204
2393:
2394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2396: ROLLBACK ;
2397: Return;
2398: END IF;
2391:
2392: END IF;--End of bug 3810204
2393:
2394: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2395: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2396: ROLLBACK ;
2397: Return;
2398: END IF;
2399:
2396: ROLLBACK ;
2397: Return;
2398: END IF;
2399:
2400: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2401: IF FND_API.to_boolean( p_commit )
2402: THEN
2403: COMMIT;
2404: END IF;
2397: Return;
2398: END IF;
2399:
2400: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2401: IF FND_API.to_boolean( p_commit )
2402: THEN
2403: COMMIT;
2404: END IF;
2405: END IF;
2428: l_exist_res_list := 'N';
2429: END;
2430:
2431: IF l_exist_res_list = 'Y' THEN
2432: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2433: ROLLBACK ;
2434: Return;
2435: END IF;
2436:
2441: X_Return_Status => l_return_status,
2442: X_Msg_Count => l_msg_count,
2443: X_Msg_Data => l_msg_data);
2444:
2445: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2446: --For bug 3810204
2447: ROLLBACK ;
2448: RAISE API_ERROR;
2449: --End of bug 3810204
2448: RAISE API_ERROR;
2449: --End of bug 3810204
2450: END IF;
2451:
2452: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: ROLLBACK ;
2455: Return;
2456: END IF;
2449: --End of bug 3810204
2450: END IF;
2451:
2452: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2454: ROLLBACK ;
2455: Return;
2456: END IF;
2457:
2454: ROLLBACK ;
2455: Return;
2456: END IF;
2457:
2458: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2459: IF FND_API.to_boolean( p_commit ) THEN
2460: COMMIT;
2461: END IF;
2462: END IF;
2455: Return;
2456: END IF;
2457:
2458: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2459: IF FND_API.to_boolean( p_commit ) THEN
2460: COMMIT;
2461: END IF;
2462: END IF;
2463: END IF;
2472: (P_App_Short_Name => 'PA',
2473: P_Msg_Name => l_msg_data);
2474:
2475: WHEN OTHERS THEN
2476: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2477: -- 4537865 : Start
2478: X_Msg_Data := SUBSTRB(SQLERRM,1,240);
2479: x_msg_count := x_msg_count + 1 ;
2480: -- 4537865 : End
2496: * procedure, which would create the res formats.
2497: * The detailed information is in the spec.
2498: **************************************************************/
2499: Procedure Create_Plan_RL_Format(
2500: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2501: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2502: P_Res_List_Id IN Number,
2503: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
2504: X_Plan_RL_Format_Tbl OUT NOCOPY Plan_RL_Format_Out_Tbl,
2497: * The detailed information is in the spec.
2498: **************************************************************/
2499: Procedure Create_Plan_RL_Format(
2500: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2501: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2502: P_Res_List_Id IN Number,
2503: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
2504: X_Plan_RL_Format_Tbl OUT NOCOPY Plan_RL_Format_Out_Tbl,
2505: X_Return_Status OUT NOCOPY Varchar2,
2513:
2514: BEGIN
2515:
2516: -- First clear the message stack.
2517: IF FND_API.to_boolean( p_init_msg_list )
2518: THEN
2519: FND_MSG_PUB.initialize;
2520: END IF;
2521:
2521:
2522:
2523:
2524: x_msg_count := 0;
2525: x_return_status := FND_API.G_RET_STS_SUCCESS;
2526:
2527: Convert_Missing_Format_IN_Rec(
2528: P_Plan_RL_Format_Tbl => P_Plan_RL_Format_Tbl,
2529: X_Plan_RL_Format_Tbl => L_Plan_RL_Format_Tbl);
2570: X_Return_Status =>x_return_status,
2571: X_Msg_Count =>X_Msg_Count,
2572: X_Msg_Data =>X_Msg_Data);
2573:
2574: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2575: THEN
2576: x_return_status := FND_API.G_RET_STS_ERROR;
2577: x_msg_count := x_msg_count + 1;
2578: x_msg_data := x_Msg_Data;
2572: X_Msg_Data =>X_Msg_Data);
2573:
2574: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2575: THEN
2576: x_return_status := FND_API.G_RET_STS_ERROR;
2577: x_msg_count := x_msg_count + 1;
2578: x_msg_data := x_Msg_Data;
2579: Rollback;
2580: Return;
2582: END LOOP;
2583: /************************************************
2584: * Check the Commit flag. if it is true then Commit.
2585: ************************************************/
2586: IF FND_API.to_boolean( p_commit )
2587: THEN
2588: COMMIT;
2589: END IF;
2590: EXCEPTION
2589: END IF;
2590: EXCEPTION
2591: WHEN INVALID_FMT_ERR THEN
2592:
2593: x_return_status := FND_API.G_RET_STS_ERROR;
2594: x_msg_count := x_msg_count + 1;
2595: x_msg_data := 'PA_AMG_INVALID_FMT_ID';
2596: Pa_Utils.Add_Message
2597: (P_App_Short_Name => 'PA',
2599:
2600:
2601:
2602: WHEN OTHERS THEN
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604: x_msg_count := x_msg_count + 1;
2605: -- 4537865
2606: x_msg_data := SUBSTRB(SQLERRM,1,240);
2607: Fnd_Msg_Pub.Add_Exc_Msg(
2619: * procedure, which would Delete the res formats.
2620: * The detailed information is in the spec.
2621: **************************************************************/
2622: Procedure Delete_Plan_RL_Format (
2623: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2624: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2625: P_Res_List_Id IN NUMBER DEFAULT PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2626: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl ,
2627: X_Return_Status OUT NOCOPY VARCHAR2,
2620: * The detailed information is in the spec.
2621: **************************************************************/
2622: Procedure Delete_Plan_RL_Format (
2623: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2624: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2625: P_Res_List_Id IN NUMBER DEFAULT PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2626: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl ,
2627: X_Return_Status OUT NOCOPY VARCHAR2,
2628: X_Msg_Count OUT NOCOPY NUMBER,
2632: L_Plan_RL_Format_Tbl Plan_RL_Format_In_Tbl;
2633:
2634: BEGIN
2635: -- First clear the message stack.
2636: IF FND_API.to_boolean( p_init_msg_list )
2637: THEN
2638: FND_MSG_PUB.initialize;
2639: END IF;
2640:
2660: END LOOP;
2661: /************************************************
2662: * Check the Commit flag. if it is true then Commit.
2663: ************************************************/
2664: IF FND_API.to_boolean( p_commit )
2665: THEN
2666: COMMIT;
2667: END IF;
2668: END Delete_Plan_RL_Format;
2675: * resource list.
2676: * The detailed information is in the spec.
2677: ****************************************************************/
2678: Procedure Create_Planning_Resource(
2679: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2680: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2681: p_resource_list_id IN VARCHAR2,
2682: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
2683: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,
2676: * The detailed information is in the spec.
2677: ****************************************************************/
2678: Procedure Create_Planning_Resource(
2679: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2680: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2681: p_resource_list_id IN VARCHAR2,
2682: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
2683: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,
2684: x_return_status OUT NOCOPY VARCHAR2,
2731: Begin
2732:
2733: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2734: -- First clear the message stack.
2735: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then
2736:
2737: Fnd_Msg_Pub.Initialize;
2738:
2739: End If;
2740:
2741: /* Added for CBS changes */
2742: IF PA_FP_GEN_AMOUNT_UTILS.get_trg_resource_class_flag(p_resource_list_id) = 'N' THEN
2743:
2744: x_return_status := FND_API.G_RET_STS_ERROR;
2745: x_msg_count := x_msg_count + 1;
2746: x_error_msg_data := 'PA_CNT_USE_CRT_AMG_FR_NON_ENHCD_PRL';
2747: Pa_Utils.Add_Message
2748: (P_App_Short_Name => 'PA',
2776: /*************************************************
2777: * Assigning Initial values for some of the elements.
2778: *************************************************/
2779: x_msg_count := 0;
2780: x_return_status := FND_API.G_RET_STS_SUCCESS;
2781:
2782: --For bug 3675288.
2783: IF L_Planning_resource_in_tbl(i).P_Res_Format_Id is NULL THEN
2784:
2837: WHERE f.res_format_id = L_Planning_resource_in_tbl(i).P_Res_Format_Id
2838: AND f.RES_TYPE_ID = t.res_type_id(+);
2839:
2840: EXCEPTION WHEN OTHERS THEN
2841: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2842: x_msg_count:=1;
2843: x_error_msg_data := 'PA_PLN_RL_FORMAT_BAD_FMT_ID';
2844: Pa_Utils.Add_Message
2845: (P_App_Short_Name => 'PA',
3126: x_msg_count => x_msg_count ,
3127: x_error_msg_data => x_error_msg_data);
3128:
3129:
3130: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
3131:
3132: RollBack to planning_resource_create;
3133: RETURN;
3134:
3138: -- Commit only if all records are successful
3139: /************************************************
3140: * Check the Commit flag. if it is true then Commit.
3141: ***********************************************/
3142: If Fnd_Api.To_Boolean( P_Commit ) Then
3143:
3144: Commit;
3145:
3146: End If;
3143:
3144: Commit;
3145:
3146: End If;
3147: x_return_status := Fnd_Api.G_Ret_Sts_Success;
3148: x_msg_count := Fnd_Msg_Pub.Count_Msg;
3149:
3150:
3151: Exception
3149:
3150:
3151: Exception
3152: When FMT_NULL_ERR Then
3153: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3154: x_msg_count:=1;
3155: x_error_msg_data := 'PA_AMG_FORMAT_ID_NULL';
3156: Pa_Utils.Add_Message
3157: (P_App_Short_Name => 'PA',
3158: P_Msg_Name => 'PA_AMG_FORMAT_ID_NULL',
3159: p_token1 => 'PLAN_RES',
3160: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3161: When RES_FORMAT_ID_ERR Then
3162: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3163: x_msg_count:=1;
3164: x_error_msg_data := 'PA_AMG_FORMAT_NOT_EXISTS';
3165: Pa_Utils.Add_Message(
3166: P_App_Short_Name => 'PA',
3167: P_Msg_Name => 'PA_AMG_FORMAT_NOT_EXISTS',
3168: p_token1 => 'PLAN_RES',
3169: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3170: When RES_CLASS_ID_AND_CODE_NULL Then
3171: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3172: x_msg_count:=1;
3173: x_error_msg_data := 'PA_AMG_RESCLS_ID_CODE_NULL';
3174: Pa_Utils.Add_Message
3175: (P_App_Short_Name => 'PA',
3176: P_Msg_Name => 'PA_AMG_RESCLS_ID_CODE_NULL',
3177: p_token1 => 'PLAN_RES',
3178: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3179: When RES_CODE_INVALID_ERR Then
3180: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3181: x_msg_count:=1;
3182: x_error_msg_data := 'PA_AMG_RESOURCE_CODE_INVALID';
3183: Pa_Utils.Add_Message
3184: (P_App_Short_Name => 'PA',
3185: P_Msg_Name => 'PA_AMG_RESOURCE_CODE_INVALID',
3186: p_token1 => 'PLAN_RES',
3187: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3188: When RES_ID_INVALID_ERR Then
3189: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3190: x_msg_count:=1;
3191: x_error_msg_data := 'PA_AMG_RESOURCE_ID_INVALID';
3192: Pa_Utils.Add_Message
3193: (P_App_Short_Name => 'PA',
3194: P_Msg_Name => 'PA_AMG_RESOURCE_ID_INVALID',
3195: p_token1 => 'PLAN_RES',
3196: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3197: When INVALID_PROJECT_ID Then
3198: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3199: x_msg_count:=1;
3200: x_error_msg_data := 'PA_AMG_PROJECT_ID_INVALID';
3201: Pa_Utils.Add_Message
3202: (P_App_Short_Name => 'PA',
3203: P_Msg_Name => 'PA_AMG_PROJECT_ID_INVALID',
3204: p_token1 => 'PLAN_RES',
3205: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3206: When NAMED_PER_NULL_ERR Then
3207: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3208: x_msg_count:=1;
3209: x_error_msg_data := 'PA_AMG_NAMED_PER_NULL';
3210: Pa_Utils.Add_Message
3211: (P_App_Short_Name => 'PA',
3212: P_Msg_Name => 'PA_AMG_NAMED_PER_NULL',
3213: p_token1 => 'PLAN_RES',
3214: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3215: When BOM_LAB_N_EQUIP_NULL_ERR Then
3216: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3217: x_msg_count:=1;
3218: x_error_msg_data := 'PA_AMG_BOM_NULL';
3219: Pa_Utils.Add_Message
3220: (P_App_Short_Name => 'PA',
3221: P_Msg_Name => 'PA_AMG_BOM_NULL',
3222: p_token1 => 'PLAN_RES',
3223: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3224: When ITEM_CAT_NULL_ERR Then
3225: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3226: x_msg_count:=1;
3227: x_error_msg_data := 'PA_AMG_ITEM_CAT_NULL';
3228: Pa_Utils.Add_Message
3229: (P_App_Short_Name => 'PA',
3230: P_Msg_Name => 'PA_AMG_ITEM_CAT_NULL',
3231: p_token1 => 'PLAN_RES',
3232: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3233: When INVEN_ITEM_NULL_ERR Then
3234: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3235: x_msg_count:=1;
3236: x_error_msg_data := 'PA_AMG_INV_ITEM_NULL';
3237: Pa_Utils.Add_Message
3238: (P_App_Short_Name => 'PA',
3239: P_Msg_Name => 'PA_AMG_INV_ITEM_NULL',
3240: p_token1 => 'PLAN_RES',
3241: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3242: When JOB_NULL_ERR Then
3243: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3244: x_msg_count:=1;
3245: x_error_msg_data := 'PA_AMG_JOB_NULL';
3246: Pa_Utils.Add_Message
3247: (P_App_Short_Name => 'PA',
3248: P_Msg_Name => 'PA_AMG_JOB_NULL',
3249: p_token1 => 'PLAN_RES',
3250: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3251: When PERSON_TYPE_NULL_ERR Then
3252: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3253: x_msg_count:=1;
3254: x_error_msg_data := 'PA_AMG_PERSON_TYPE_NULL';
3255: Pa_Utils.Add_Message
3256: (P_App_Short_Name => 'PA',
3257: P_Msg_Name => 'PA_AMG_PERSON_TYPE_NULL',
3258: p_token1 => 'PLAN_RES',
3259: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3260: When NON_LABOR_RES_NULL_ERR Then
3261: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3262: x_msg_count:=1;
3263: x_error_msg_data := 'PA_AMG_NON_LABOR_NULL';
3264: Pa_Utils.Add_Message
3265: (P_App_Short_Name => 'PA',
3266: P_Msg_Name => 'PA_AMG_NON_LABOR_NULL',
3267: p_token1 => 'PLAN_RES',
3268: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3269: When FIN_NULL_ERR Then
3270: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3271: x_msg_count:=1;
3272: x_error_msg_data := 'PA_AMG_FIN_NULL';
3273: Pa_Utils.Add_Message
3274: (P_App_Short_Name => 'PA',
3275: P_Msg_Name => 'PA_AMG_FIN_NULL',
3276: p_token1 => 'PLAN_RES',
3277: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3278: When FIN_NOT_NULL_ERR Then
3279: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3280: x_msg_count:=1;
3281: x_error_msg_data := 'PA_AMG_FIN_NOT_NULL';
3282: Pa_Utils.Add_Message
3283: (P_App_Short_Name => 'PA',
3284: P_Msg_Name => 'PA_AMG_FIN_NOT_NULL',
3285: p_token1 => 'PLAN_RES',
3286: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3287: When ORG_NULL_ERR Then
3288: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3289: x_msg_count:=1;
3290: x_error_msg_data := 'PA_AMG_ORG_NULL';
3291: Pa_Utils.Add_Message
3292: (P_App_Short_Name => 'PA',
3293: P_Msg_Name => 'PA_AMG_ORG_NULL',
3294: p_token1 => 'PLAN_RES',
3295: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3296: When ORG_NOT_NULL_ERR Then
3297: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3298: x_msg_count:=1;
3299: x_error_msg_data := 'PA_AMG_ORG_NOT_NULL';
3300: Pa_Utils.Add_Message
3301: (P_App_Short_Name => 'PA',
3302: P_Msg_Name => 'PA_AMG_ORG_NOT_NULL',
3303: p_token1 => 'PLAN_RES',
3304: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3305: When SUPP_NULL_ERR Then
3306: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3307: x_msg_count:=1;
3308: x_error_msg_data := 'PA_AMG_SUPP_NULL';
3309: Pa_Utils.Add_Message
3310: (P_App_Short_Name => 'PA',
3311: P_Msg_Name => 'PA_AMG_SUPP_NULL',
3312: p_token1 => 'PLAN_RES',
3313: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3314: When SUPP_NOT_NULL_ERR Then
3315: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3316: x_msg_count:=1;
3317: x_error_msg_data := 'PA_AMG_SUPP_NOT_NULL';
3318: Pa_Utils.Add_Message
3319: (P_App_Short_Name => 'PA',
3320: P_Msg_Name => 'PA_AMG_SUPP_NOT_NULL',
3321: p_token1 => 'PLAN_RES',
3322: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3323: When ROLE_NULL_ERR Then
3324: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3325: x_msg_count:=1;
3326: x_error_msg_data := 'PA_AMG_ROLE_NULL';
3327: Pa_Utils.Add_Message
3328: (P_App_Short_Name => 'PA',
3329: P_Msg_Name => 'PA_AMG_ROLE_NULL',
3330: p_token1 => 'PLAN_RES',
3331: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3332: When ROLE_NOT_NULL_ERR Then
3333: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3334: x_msg_count:=1;
3335: x_error_msg_data := 'PA_AMG_ROLE_NOT_NULL';
3336: Pa_Utils.Add_Message
3337: (P_App_Short_Name => 'PA',
3338: P_Msg_Name => 'PA_AMG_ROLE_NOT_NULL',
3339: p_token1 => 'PLAN_RES',
3340: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3341: When INC_NULL_ERR Then
3342: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3343: x_msg_count:=1;
3344: x_error_msg_data := 'PA_AMG_INC_NULL';
3345: Pa_Utils.Add_Message
3346: (P_App_Short_Name => 'PA',
3347: P_Msg_Name => 'PA_AMG_INC_NULL',
3348: p_token1 => 'PLAN_RES',
3349: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3350: When INC_NOT_NULL_ERR Then
3351: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3352: x_msg_count:=1;
3353: x_error_msg_data := 'PA_AMG_INC_NOT_NULL';
3354: Pa_Utils.Add_Message
3355: (P_App_Short_Name => 'PA',
3356: P_Msg_Name => 'PA_AMG_INC_NOT_NULL',
3357: p_token1 => 'PLAN_RES',
3358: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3359: When RES_NOT_NULL_ERR Then
3360: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3361: x_msg_count:=1;
3362: x_error_msg_data := 'PA_AMG_RES_NOT_NULL';
3363: Pa_Utils.Add_Message
3364: (P_App_Short_Name => 'PA',
3365: P_Msg_Name => 'PA_AMG_RES_NOT_NULL',
3366: p_token1 => 'PLAN_RES',
3367: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3368: When RESOURCE_CLASS_FMT_ERR Then
3369: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3370: x_msg_count:=1;
3371: x_error_msg_data := 'PA_AMG_RES_CLS_FMT';
3372: Pa_Utils.Add_Message
3373: (P_App_Short_Name => 'PA',
3375: p_token1 => 'PLAN_RES',
3376: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3377: When Others Then
3378: Rollback;
3379: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3380:
3381: End Create_Planning_Resource;
3382: /*****************************************************/
3383:
3388: * planning resource for a resource list.
3389: * The detailed information is in the spec.
3390: ******************************************************/
3391: PROCEDURE Update_Planning_Resource
3392: (p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3393: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3394: p_resource_list_id IN NUMBER,
3395: p_enabled_flag IN VARCHAR2,
3396: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
3389: * The detailed information is in the spec.
3390: ******************************************************/
3391: PROCEDURE Update_Planning_Resource
3392: (p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3393: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3394: p_resource_list_id IN NUMBER,
3395: p_enabled_flag IN VARCHAR2,
3396: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
3397: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,
3439: BEGIN
3440:
3441: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3442: -- First clear the message stack.
3443: If Fnd_Api.To_Boolean( p_init_msg_list ) Then
3444:
3445: Fnd_Msg_Pub.Initialize;
3446:
3447: End If;
3451: * is passed. If it is not passed, thro an error and return status of ERROR
3452: */
3453: If p_resource_list_id is Null Then
3454:
3455: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3456: X_Error_Msg_Data := 'PA_PLN_RES_LIST_ID_IS_NULL';
3457: x_msg_count := x_msg_count + 1;
3458: Pa_Utils.Add_Message ('PA', X_Error_Msg_Data);
3459: Rollback;
3462: End If;
3463:
3464: /* Added for CBS changes */
3465: IF PA_FP_GEN_AMOUNT_UTILS.get_trg_resource_class_flag(p_resource_list_id) = 'N' THEN
3466: x_return_status := FND_API.G_RET_STS_ERROR;
3467: x_msg_count := x_msg_count + 1;
3468: X_Error_Msg_Data := 'PA_CNT_USE_UPD_AMG_FR_NON_ENHCD_PRL';
3469: Pa_Utils.Add_Message
3470: (P_App_Short_Name => 'PA',
3489:
3490: savepoint planning_res_list_update;
3491:
3492: x_msg_count := 0;
3493: x_return_status := Fnd_Api.G_Ret_Sts_Success;
3494:
3495: /* Eugene
3496: * Add code here to check if resource list member id is passed. If it is not
3497: * passed, derive it from the alias, if alias is passed. If both are not
3504: If p_planning_resource_in_tbl(i).p_resource_list_member_id Is Null Then
3505:
3506: If P_planning_resource_in_tbl(i).p_resource_alias Is Null Then
3507:
3508: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3509: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ID_ALIAS_NULL',
3510: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3511: Raise EXC_NULL_INVALID_DATA;
3512:
3519:
3520: If c1%NotFound Then
3521:
3522: Close c1;
3523: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3524: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ALIAS_INVAL',
3525: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3526: RAISE EXC_NULL_INVALID_DATA;
3527:
3540: End If;
3541:
3542: If p_planning_resource_in_tbl(i).p_record_version_number is Null Then
3543:
3544: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3545: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_RECVER_NULL',
3546: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3547: RAISE EXC_NULL_INVALID_DATA;
3548:
3554:
3555: If c2%NotFound Then
3556:
3557: Close c2;
3558: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3559: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_ID_INVAL',
3560: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3561: RAISE EXC_NULL_INVALID_DATA;
3562:
3564:
3565: Close c2;
3566: If l_rec_ver_num <> p_planning_resource_in_tbl(i).p_record_version_number then
3567:
3568: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3569: Pa_Utils.Add_Message('PA', 'PA_PLN_RESLISTMEM_ALREADY_UPD',
3570: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3571: RAISE EXC_NULL_INVALID_DATA;
3572:
3620: x_return_status => x_return_status,
3621: x_msg_count => x_msg_count ,
3622: x_error_msg_data => x_error_msg_data);
3623:
3624: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
3625:
3626: RollBack to planning_res_list_update;
3627: Return;
3628:
3629: End If;
3630:
3631: Exception
3632: When EXC_NULL_INVALID_DATA Then
3633: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3634: x_msg_count := x_msg_count + 1;
3635: RollBack to planning_res_list_update;
3636: Return;
3637: When Others Then
3641: End Loop;
3642: /************************************************
3643: * Check the Commit flag. if it is true then Commit.
3644: ***********************************************/
3645: If Fnd_Api.To_Boolean( p_commit ) Then
3646:
3647: Commit;
3648:
3649: End If;
3647: Commit;
3648:
3649: End If;
3650:
3651: x_return_status := Fnd_Api.G_Ret_Sts_Success;
3652: x_msg_count := Fnd_Msg_Pub.Count_Msg;
3653:
3654: Exception
3655: When Others Then
3653:
3654: Exception
3655: When Others Then
3656: Rollback;
3657: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3658:
3659: End Update_Planning_Resource;
3660: /************************************/
3661:
3678: IS
3679: BEGIN
3680: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3681: -- First clear the message stack.
3682: IF FND_API.to_boolean( p_init_msg_list )
3683: THEN
3684: FND_MSG_PUB.initialize;
3685: END IF;
3686: /********************************************
3706: END LOOP;
3707: /************************************************
3708: * Check the Commit flag. if it is true then Commit.
3709: ***********************************************/
3710: IF FND_API.to_boolean( p_commit )
3711: THEN
3712: COMMIT;
3713: END IF;
3714: /***************/
3808: IS
3809: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
3810: l_api_name CONSTANT VARCHAR2(30) := 'Load_Resource_List';
3811: BEGIN
3812: x_return_status := FND_API.g_ret_sts_success;
3813:
3814: --Standard API Compatibility Call.
3815: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3816: p_api_version_number ,
3811: BEGIN
3812: x_return_status := FND_API.g_ret_sts_success;
3813:
3814: --Standard API Compatibility Call.
3815: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3816: p_api_version_number ,
3817: l_api_name ,
3818: G_PKG_NAME )
3819: THEN
3816: p_api_version_number ,
3817: l_api_name ,
3818: G_PKG_NAME )
3819: THEN
3820: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3821: END IF;
3822:
3823: G_Plan_Res_List_IN_Rec.p_resource_list_id := p_resource_list_id;
3824: G_Plan_Res_List_IN_Rec.p_resource_list_name := p_resource_list_name;
3831: G_Plan_Res_List_IN_Rec.p_record_version_number :=
3832: p_record_version_number;
3833:
3834: EXCEPTION
3835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3836: THEN
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3838: WHEN OTHERS THEN
3839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3833:
3834: EXCEPTION
3835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3836: THEN
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3838: WHEN OTHERS THEN
3839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3840: FND_MSG_PUB.Add_Exc_Msg
3841: ( p_pkg_name => G_PKG_NAME ,
3835: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3836: THEN
3837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3838: WHEN OTHERS THEN
3839: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3840: FND_MSG_PUB.Add_Exc_Msg
3841: ( p_pkg_name => G_PKG_NAME ,
3842: p_procedure_name => l_api_name
3843: );
3857: IS
3858: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
3859: l_api_name CONSTANT VARCHAR2(30) := 'Load_Resource_Format';
3860: BEGIN
3861: x_return_status := FND_API.g_ret_sts_success;
3862:
3863: --Standard API Compatibility Call.
3864: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3865: p_api_version_number ,
3860: BEGIN
3861: x_return_status := FND_API.g_ret_sts_success;
3862:
3863: --Standard API Compatibility Call.
3864: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3865: p_api_version_number ,
3866: l_api_name ,
3867: G_PKG_NAME )
3868: THEN
3865: p_api_version_number ,
3866: l_api_name ,
3867: G_PKG_NAME )
3868: THEN
3869: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3870: END IF;
3871:
3872: G_Plan_RL_Format_tbl_count := G_Plan_RL_Format_tbl_count + 1;
3873:
3874: G_Plan_RL_format_In_Tbl(G_Plan_RL_Format_tbl_count).P_Res_Format_Id
3875: := P_Res_Format_Id;
3876:
3877: EXCEPTION
3878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3879: THEN
3880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3881: WHEN OTHERS THEN
3882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3876:
3877: EXCEPTION
3878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3879: THEN
3880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3881: WHEN OTHERS THEN
3882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3883: FND_MSG_PUB.Add_Exc_Msg
3884: ( p_pkg_name => G_PKG_NAME ,
3878: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3879: THEN
3880: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3881: WHEN OTHERS THEN
3882: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3883: FND_MSG_PUB.Add_Exc_Msg
3884: ( p_pkg_name => G_PKG_NAME ,
3885: p_procedure_name => l_api_name
3886: );
3963: IS
3964: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
3965: l_api_name CONSTANT VARCHAR2(30) := 'Load_Planning_Resource';
3966: BEGIN
3967: x_return_status := FND_API.g_ret_sts_success;
3968:
3969: --Standard API Compatibility Call.
3970: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3971: p_api_version_number ,
3966: BEGIN
3967: x_return_status := FND_API.g_ret_sts_success;
3968:
3969: --Standard API Compatibility Call.
3970: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3971: p_api_version_number ,
3972: l_api_name ,
3973: G_PKG_NAME )
3974: THEN
3971: p_api_version_number ,
3972: l_api_name ,
3973: G_PKG_NAME )
3974: THEN
3975: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3976: END IF;
3977:
3978: G_Plan_Resource_tbl_count := G_Plan_Resource_tbl_count + 1;
3979:
4106: G_Planning_resource_in_tbl(G_Plan_Resource_tbl_count).p_enabled_flag
4107: := p_enabled_flag;
4108:
4109: EXCEPTION
4110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4111: THEN
4112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4113: WHEN OTHERS THEN
4114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4108:
4109: EXCEPTION
4110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4111: THEN
4112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4113: WHEN OTHERS THEN
4114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4115: FND_MSG_PUB.Add_Exc_Msg
4116: ( p_pkg_name => G_PKG_NAME ,
4110: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4111: THEN
4112: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4113: WHEN OTHERS THEN
4114: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4115: FND_MSG_PUB.Add_Exc_Msg
4116: ( p_pkg_name => G_PKG_NAME ,
4117: p_procedure_name => l_api_name
4118: );
4126: * load-execute-fetch model.
4127: * The detailed information is in spec.
4128: ***************************************************/
4129: PROCEDURE Exec_Create_Resource_List
4130: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4131: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4132: p_api_version_number IN NUMBER,
4133: x_return_status OUT NOCOPY VARCHAR2,
4134: x_msg_count OUT NOCOPY NUMBER,
4127: * The detailed information is in spec.
4128: ***************************************************/
4129: PROCEDURE Exec_Create_Resource_List
4130: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4131: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4132: p_api_version_number IN NUMBER,
4133: x_return_status OUT NOCOPY VARCHAR2,
4134: x_msg_count OUT NOCOPY NUMBER,
4135: x_msg_data OUT NOCOPY VARCHAR2 )
4137: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4138: l_api_name CONSTANT VARCHAR2(30) := 'Exec_Create_Resource_List';
4139: l_message_count NUMBER;
4140: BEGIN
4141: x_return_status := FND_API.g_ret_sts_success;
4142:
4143: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4144: p_api_version_number ,
4145: l_api_name ,
4139: l_message_count NUMBER;
4140: BEGIN
4141: x_return_status := FND_API.g_ret_sts_success;
4142:
4143: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4144: p_api_version_number ,
4145: l_api_name ,
4146: G_PKG_NAME )
4147: THEN
4144: p_api_version_number ,
4145: l_api_name ,
4146: G_PKG_NAME )
4147: THEN
4148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4149: END IF;
4150:
4151: Create_Resource_List
4152: (p_commit => p_commit,
4163: X_Msg_Data => x_msg_data);
4164:
4165: EXCEPTION
4166:
4167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4169: WHEN OTHERS THEN
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4171: -- 4537865
4164:
4165: EXCEPTION
4166:
4167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4169: WHEN OTHERS THEN
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4171: -- 4537865
4172: x_msg_data := SUBSTRB(SQLERRM,1,240);
4166:
4167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4168: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4169: WHEN OTHERS THEN
4170: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4171: -- 4537865
4172: x_msg_data := SUBSTRB(SQLERRM,1,240);
4173: x_msg_count := 1 ;
4174: -- 4537865
4186: * load-execute-fetch model.
4187: * The detailed information is in spec.
4188: ***************************************************/
4189: PROCEDURE Exec_Update_Resource_List
4190: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4191: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4192: p_api_version_number IN NUMBER,
4193: x_return_status OUT NOCOPY VARCHAR2,
4194: x_msg_count OUT NOCOPY NUMBER,
4187: * The detailed information is in spec.
4188: ***************************************************/
4189: PROCEDURE Exec_Update_Resource_List
4190: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4191: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4192: p_api_version_number IN NUMBER,
4193: x_return_status OUT NOCOPY VARCHAR2,
4194: x_msg_count OUT NOCOPY NUMBER,
4195: x_msg_data OUT NOCOPY VARCHAR2
4198: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4199: l_api_name CONSTANT VARCHAR2(30) := 'Exec_Update_Resource_List';
4200: l_message_count NUMBER;
4201: BEGIN
4202: x_return_status := FND_API.g_ret_sts_success;
4203:
4204: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4205: p_api_version_number ,
4206: l_api_name ,
4200: l_message_count NUMBER;
4201: BEGIN
4202: x_return_status := FND_API.g_ret_sts_success;
4203:
4204: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4205: p_api_version_number ,
4206: l_api_name ,
4207: G_PKG_NAME )
4208: THEN
4205: p_api_version_number ,
4206: l_api_name ,
4207: G_PKG_NAME )
4208: THEN
4209: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4210: END IF;
4211:
4212: Update_Resource_List
4213: (p_commit => p_commit,
4225: -- 4537865 : Included Exception Block
4226: EXCEPTION
4227:
4228: WHEN OTHERS THEN
4229: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4230: x_msg_data := SUBSTRB(SQLERRM,1,240);
4231: x_msg_count := 1 ;
4232: FND_MSG_PUB.Add_Exc_Msg
4233: ( p_pkg_name => G_PKG_NAME ,
4252: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4253: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Resource_List';
4254: l_msg_count INTEGER :=0;
4255: BEGIN
4256: x_return_status := FND_API.G_RET_STS_SUCCESS;
4257:
4258: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4259: p_api_version_number ,
4260: l_api_name ,
4254: l_msg_count INTEGER :=0;
4255: BEGIN
4256: x_return_status := FND_API.G_RET_STS_SUCCESS;
4257:
4258: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4259: p_api_version_number ,
4260: l_api_name ,
4261: G_PKG_NAME )
4262: THEN
4259: p_api_version_number ,
4260: l_api_name ,
4261: G_PKG_NAME )
4262: THEN
4263: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4264: END IF;
4265:
4266: x_resource_list_id := G_Plan_Res_List_Out_Rec.X_resource_list_id;
4267:
4265:
4266: x_resource_list_id := G_Plan_Res_List_Out_Rec.X_resource_list_id;
4267:
4268: EXCEPTION
4269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4271: -- 4537865 : RESETTING x_resource_list_id also
4272: x_resource_list_id := NULL ;
4273: WHEN OTHERS THEN
4266: x_resource_list_id := G_Plan_Res_List_Out_Rec.X_resource_list_id;
4267:
4268: EXCEPTION
4269: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4270: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4271: -- 4537865 : RESETTING x_resource_list_id also
4272: x_resource_list_id := NULL ;
4273: WHEN OTHERS THEN
4274: -- 4537865 : RESETTING x_resource_list_id also
4273: WHEN OTHERS THEN
4274: -- 4537865 : RESETTING x_resource_list_id also
4275: x_resource_list_id := NULL ;
4276:
4277: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4278: FND_MSG_PUB.Add_Exc_Msg
4279: ( p_pkg_name => G_PKG_NAME ,
4280: p_procedure_name => l_api_name
4281: );
4298: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4299: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Plan_Format';
4300: l_index NUMBER;
4301: BEGIN
4302: x_return_status := FND_API.G_RET_STS_SUCCESS;
4303: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4304: p_api_version_number ,
4305: l_api_name ,
4306: G_PKG_NAME )
4299: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Plan_Format';
4300: l_index NUMBER;
4301: BEGIN
4302: x_return_status := FND_API.G_RET_STS_SUCCESS;
4303: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4304: p_api_version_number ,
4305: l_api_name ,
4306: G_PKG_NAME )
4307: THEN
4304: p_api_version_number ,
4305: l_api_name ,
4306: G_PKG_NAME )
4307: THEN
4308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4309: END IF;
4310:
4311: IF p_format_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
4312: l_index := 1;
4321: G_Plan_RL_format_Out_Tbl(l_index).X_Plan_RL_Format_Id;
4322: END IF;
4323:
4324: EXCEPTION
4325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4327: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4328: X_Plan_RL_Format_Id := NULL ;
4329:
4322: END IF;
4323:
4324: EXCEPTION
4325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4326: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4327: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4328: X_Plan_RL_Format_Id := NULL ;
4329:
4330: WHEN OTHERS THEN
4327: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4328: X_Plan_RL_Format_Id := NULL ;
4329:
4330: WHEN OTHERS THEN
4331: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4332: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4333: X_Plan_RL_Format_Id := NULL ;
4334: FND_MSG_PUB.Add_Exc_Msg
4335: ( p_pkg_name => G_PKG_NAME ,
4354: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4355: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Resource_List_Member';
4356: l_index NUMBER;
4357: BEGIN
4358: x_return_status := FND_API.G_RET_STS_SUCCESS;
4359: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4360: p_api_version_number ,
4361: l_api_name ,
4362: G_PKG_NAME )
4355: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Resource_List_Member';
4356: l_index NUMBER;
4357: BEGIN
4358: x_return_status := FND_API.G_RET_STS_SUCCESS;
4359: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4360: p_api_version_number ,
4361: l_api_name ,
4362: G_PKG_NAME )
4363: THEN
4360: p_api_version_number ,
4361: l_api_name ,
4362: G_PKG_NAME )
4363: THEN
4364: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4365: END IF;
4366:
4367: IF p_member_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
4368: l_index := 1;
4379: -- 4537865
4380: EXCEPTION
4381: WHEN OTHERS THEN
4382: x_resource_list_member_id := NULL ;
4383: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4384: FND_MSG_PUB.Add_Exc_Msg
4385: ( p_pkg_name => G_PKG_NAME ,
4386: p_procedure_name => l_api_name
4387: );