eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.PA_PLAN_RES_LIST_PUB dependencies on FND_API

Line 1197: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

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,

Line 1198: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

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,

Line 1217: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

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,

Line 1218: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

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,

Line 1233: (p_commit IN VARCHAR2 := FND_API.G_FALSE,

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,

Line 1234: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

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,

Line 1268: IF FND_API.to_boolean( p_init_msg_list )

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:

Line 1274: x_return_status := FND_API.G_RET_STS_SUCCESS;

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

Line 1285: IF NOT FND_API.Compatible_API_Call

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 )

Line 1292: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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,

Line 1363: RAISE FND_API.G_EXC_ERROR;

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;

Line 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.

Line 1374: IF FND_API.to_boolean( p_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;

Line 1406: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

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);

Line 1407: x_return_status := FND_API.G_RET_STS_ERROR;

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;

Line 1435: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

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);

Line 1436: x_return_status := FND_API.G_RET_STS_ERROR;

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 ;

Line 1446: x_return_status := FND_API.G_RET_STS_ERROR ;

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',

Line 1453: x_return_status := FND_API.G_RET_STS_ERROR ;

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',

Line 1461: WHEN FND_API.G_EXC_ERROR THEN

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 ;

Line 1462: x_return_status := FND_API.G_RET_STS_ERROR ;

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;

Line 1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

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 ;

Line 1468: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

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

Line 1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

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

Line 1500: p_commit IN VARCHAR2 := FND_API.G_FALSE,

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,

Line 1501: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

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,

Line 1558: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then

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;

Line 1565: x_return_status := Fnd_Api.G_Ret_Sts_Success;

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

Line 1575: If Not Fnd_Api.Compatible_API_Call

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

Line 1581: Raise Fnd_Api.G_Exc_UnExpected_Error;

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:

Line 1667: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then

1663: x_msg_count => l_msg_count,
1664: x_return_status => l_return_status,
1665: x_msg_data => l_msg_data);
1666:
1667: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1668: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1669: x_msg_count := x_msg_count + 1;
1670: x_msg_data := l_msg_data;
1671: Pa_Utils.Add_Message ('PA', x_msg_data);

Line 1668: x_return_status := Fnd_Api.G_Ret_Sts_Error;

1664: x_return_status => l_return_status,
1665: x_msg_data => l_msg_data);
1666:
1667: If l_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1668: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1669: x_msg_count := x_msg_count + 1;
1670: x_msg_data := l_msg_data;
1671: Pa_Utils.Add_Message ('PA', x_msg_data);
1672: Rollback ;

Line 1680: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then

1676:
1677: /************************************************
1678: * Check the Commit flag. if it is true then Commit.
1679: ************************************************/
1680: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1681:
1682: If Fnd_Api.To_Boolean( p_commit ) Then
1683:
1684: Commit;

Line 1682: If Fnd_Api.To_Boolean( p_commit ) Then

1678: * Check the Commit flag. if it is true then Commit.
1679: ************************************************/
1680: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1681:
1682: If Fnd_Api.To_Boolean( p_commit ) Then
1683:
1684: Commit;
1685:
1686: End If;

Line 1739: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then

1735: X_Return_Status => X_Return_Status,
1736: X_Msg_Count => l_msg_count,
1737: X_Msg_Data => l_msg_data);
1738:
1739: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1740:
1741: l_return_status := Fnd_Api.G_Ret_Sts_Error;
1742: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1743: x_msg_count := x_msg_count + 1;

Line 1741: l_return_status := Fnd_Api.G_Ret_Sts_Error;

1737: X_Msg_Data => l_msg_data);
1738:
1739: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1740:
1741: l_return_status := Fnd_Api.G_Ret_Sts_Error;
1742: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1743: x_msg_count := x_msg_count + 1;
1744: x_msg_data := l_msg_data;
1745: Pa_Utils.Add_Message ('PA', x_msg_data);

Line 1742: x_return_status := Fnd_Api.G_Ret_Sts_Error;

1738:
1739: If X_Return_Status <> Fnd_Api.G_Ret_Sts_Success Then
1740:
1741: l_return_status := Fnd_Api.G_Ret_Sts_Error;
1742: x_return_status := Fnd_Api.G_Ret_Sts_Error;
1743: x_msg_count := x_msg_count + 1;
1744: x_msg_data := l_msg_data;
1745: Pa_Utils.Add_Message ('PA', x_msg_data);
1746: RollbacK ;

Line 1751: l_return_status := Fnd_Api.G_Ret_Sts_Success;

1747: Return;
1748:
1749: Else
1750:
1751: l_return_status := Fnd_Api.G_Ret_Sts_Success;
1752:
1753: End If;
1754:
1755: End Loop;

Line 1763: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then

1759:
1760: /************************************************
1761: * Check the Commit flag. if it is true then Commit.
1762: ************************************************/
1763: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1764:
1765: If Fnd_Api.To_Boolean( p_commit ) Then
1766:
1767: Commit;

Line 1765: If Fnd_Api.To_Boolean( p_commit ) Then

1761: * Check the Commit flag. if it is true then Commit.
1762: ************************************************/
1763: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
1764:
1765: If Fnd_Api.To_Boolean( p_commit ) Then
1766:
1767: Commit;
1768:
1769: End If;

Line 2057: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN

2053: */
2054:
2055: -- dbms_output.put_line('after X_return_status IS : ' || X_return_status);
2056: -- dbms_output.put_line('after l_msg_data IS : ' || l_msg_data);
2057: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN
2058:
2059: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2060: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2061: x_msg_count := x_msg_count + 1;

Line 2059: l_return_status := Fnd_Api.G_Ret_Sts_Error;

2055: -- dbms_output.put_line('after X_return_status IS : ' || X_return_status);
2056: -- dbms_output.put_line('after l_msg_data IS : ' || l_msg_data);
2057: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN
2058:
2059: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2060: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2061: x_msg_count := x_msg_count + 1;
2062: x_msg_data := l_msg_data;
2063: Pa_Utils.Add_Message ('PA', x_msg_data);

Line 2060: x_return_status := Fnd_Api.G_Ret_Sts_Error;

2056: -- dbms_output.put_line('after l_msg_data IS : ' || l_msg_data);
2057: If X_return_status <> Fnd_Api.G_Ret_Sts_Success THEN
2058:
2059: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2060: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2061: x_msg_count := x_msg_count + 1;
2062: x_msg_data := l_msg_data;
2063: Pa_Utils.Add_Message ('PA', x_msg_data);
2064: Rollback ;

Line 2069: l_return_status := Fnd_Api.G_Ret_Sts_Success;

2065: Return;
2066:
2067: Else
2068:
2069: l_return_status := Fnd_Api.G_Ret_Sts_Success;
2070: X_planning_resource_out_tbl(i) := L_one_pln_res_out_tbl(1);
2071:
2072: End If;
2073:

Line 2143: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then

2139: x_return_status => x_return_status,
2140: x_msg_count => l_msg_count,
2141: x_error_msg_data => l_msg_data);
2142:
2143: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
2144:
2145: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2146: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2147: x_msg_count := x_msg_count + 1;

Line 2145: l_return_status := Fnd_Api.G_Ret_Sts_Error;

2141: x_error_msg_data => l_msg_data);
2142:
2143: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
2144:
2145: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2146: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2147: x_msg_count := x_msg_count + 1;
2148: x_msg_data := l_msg_data;
2149: Pa_Utils.Add_Message ('PA', x_msg_data);

Line 2146: x_return_status := Fnd_Api.G_Ret_Sts_Error;

2142:
2143: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
2144:
2145: l_return_status := Fnd_Api.G_Ret_Sts_Error;
2146: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2147: x_msg_count := x_msg_count + 1;
2148: x_msg_data := l_msg_data;
2149: Pa_Utils.Add_Message ('PA', x_msg_data);
2150: Rollback ;

Line 2155: l_return_status := Fnd_Api.G_Ret_Sts_Success;

2151: Return;
2152:
2153: Else
2154:
2155: l_return_status := Fnd_Api.G_Ret_Sts_Success;
2156:
2157: End If;
2158:
2159: End If;

Line 2166: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then

2162: -- Commit only if all records are successful.
2163: /************************************************
2164: * Check the Commit flag. if it is true then Commit.
2165: ************************************************/
2166: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
2167:
2168: If Fnd_Api.To_Boolean( p_commit ) Then
2169:
2170: Commit;

Line 2168: If Fnd_Api.To_Boolean( p_commit ) Then

2164: * Check the Commit flag. if it is true then Commit.
2165: ************************************************/
2166: If l_return_status = Fnd_Api.G_Ret_Sts_Success Then
2167:
2168: If Fnd_Api.To_Boolean( p_commit ) Then
2169:
2170: Commit;
2171:
2172: End If;

Line 2185: P_Encoded => Fnd_Api.G_False,

2181:
2182: If l_Msg_Count = 1 Then
2183:
2184: Pa_Interface_Utils_Pub.Get_Messages(
2185: P_Encoded => Fnd_Api.G_False,
2186: P_Msg_Index => 1,
2187: P_Msg_Count => l_Msg_Count,
2188: P_Msg_Data => l_Msg_Data,
2189: P_Data => l_Data,

Line 2200: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;

2196:
2197: X_Msg_Count := l_Msg_Count;
2198:
2199: End If;
2200: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
2201: Rollback;
2202: When Others Then
2203: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
2204: -- 4537865

Line 2203: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;

2199: End If;
2200: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
2201: Rollback;
2202: When Others Then
2203: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
2204: -- 4537865
2205: X_Msg_Data := SUBSTRB(SQLERRM,1,240);
2206: X_Msg_Count := X_Msg_Count + 1;
2207: -- 4537865 : End

Line 2223: p_commit IN VARCHAR2 := FND_API.G_FALSE,

2219: * and its corresponding members and formats.
2220: * The detailed information is in the sepc.
2221: *********************************************************/
2222: PROCEDURE Delete_Resource_List(
2223: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2225: p_api_version_number IN NUMBER,
2226: P_Res_List_Id IN NUMBER ,
2227: X_Return_Status OUT NOCOPY VARCHAR2,

Line 2224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

2220: * The detailed information is in the sepc.
2221: *********************************************************/
2222: PROCEDURE Delete_Resource_List(
2223: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2224: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2225: p_api_version_number IN NUMBER,
2226: P_Res_List_Id IN NUMBER ,
2227: X_Return_Status OUT NOCOPY VARCHAR2,
2228: X_Msg_Count OUT NOCOPY NUMBER,

Line 2249: IF FND_API.to_boolean( p_init_msg_list )

2245: API_ERROR Exception;
2246: BEGIN
2247: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2248: --Initialize the message stack before starting any further processing.
2249: IF FND_API.to_boolean( p_init_msg_list )
2250: THEN
2251: FND_MSG_PUB.initialize;
2252: END IF;
2253:

Line 2255: x_return_status := FND_API.G_RET_STS_SUCCESS;

2251: FND_MSG_PUB.initialize;
2252: END IF;
2253:
2254: --Initialize the Out Variables.
2255: x_return_status := FND_API.G_RET_STS_SUCCESS;
2256: x_msg_count := 0;
2257:
2258: --Set a Savepoint so that if error occurs at any stage we can
2259: -- rollback all the changes.

Line 2265: IF NOT FND_API.Compatible_API_Call

2261:
2262: --Check for the Compatibility of the API Version
2263: --This is a must for AMG API's
2264: --Doubt -- does this have to be done for all the api's/the main one??
2265: IF NOT FND_API.Compatible_API_Call
2266: ( l_api_version_number ,
2267: p_api_version_number ,
2268: l_api_name ,
2269: G_PKG_NAME )

Line 2271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2267: p_api_version_number ,
2268: l_api_name ,
2269: G_PKG_NAME )
2270: THEN
2271: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2272: END IF;
2273:
2274: /* Bug 5490759 - first check whether the list is used so that that
2275: * error message can be shown first, instead of a cryptic downstream

Line 2282: l_return_status := FND_API.G_RET_STS_ERROR;

2278:
2279: PA_GET_RESOURCE.delete_resource_list_ok(
2280: p_res_list_id, 'Y', l_err_code, l_msg_data);
2281: IF l_err_code <> 0 THEN
2282: l_return_status := FND_API.G_RET_STS_ERROR;
2283: l_msg_count := l_msg_count + 1;
2284: RAISE API_ERROR;
2285: END IF;
2286:

Line 2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2301: FROM Pa_resource_list_members
2302: WHERE resource_list_id = p_res_list_id;
2303: EXCEPTION
2304: WHEN OTHERS THEN
2305: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2306: END;
2307:
2308: IF l_res_list_member_id_tbl.COUNT > 0 THEN
2309: FOR i IN l_res_list_member_id_tbl.first.. l_res_list_member_id_tbl.last

Line 2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2323: p_resource_list_member_id => l_res_list_member_id_tbl(i),
2324: x_return_status => l_return_status,
2325: x_msg_count => l_msg_count,
2326: x_error_msg_data => l_msg_data);
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2329: ROLLBACK ;
2330: Return;
2331: END IF;

Line 2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2324: x_return_status => l_return_status,
2325: x_msg_count => l_msg_count,
2326: x_error_msg_data => l_msg_data);
2327: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2329: ROLLBACK ;
2330: Return;
2331: END IF;
2332: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

Line 2332: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

2328: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2329: ROLLBACK ;
2330: Return;
2331: END IF;
2332: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2333: IF FND_API.to_boolean( p_commit )
2334: THEN
2335: COMMIT;
2336: END IF;

Line 2333: IF FND_API.to_boolean( p_commit )

2329: ROLLBACK ;
2330: Return;
2331: END IF;
2332: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2333: IF FND_API.to_boolean( p_commit )
2334: THEN
2335: COMMIT;
2336: END IF;
2337: END IF;

Line 2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

2350: FROM Pa_Plan_rl_formats
2351: WHERE resource_list_id = p_res_list_id;
2352: EXCEPTION
2353: WHEN OTHERS THEN
2354: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2355: END;
2356:
2357: IF l_res_format_id_tbl.COUNT > 0 THEN
2358: FOR i IN l_res_format_id_tbl.first..l_res_format_id_tbl.last

Line 2373: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

2369: X_Return_Status => l_return_status,
2370: X_Msg_Count => l_msg_count,
2371: X_Msg_Data => l_msg_data);
2372: --For bug 3810204
2373: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2374: ROLLBACK ;
2375: RAISE API_ERROR;
2376:
2377: END IF;--End of bug 3810204

Line 2379: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2375: RAISE API_ERROR;
2376:
2377: END IF;--End of bug 3810204
2378:
2379: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2381: ROLLBACK ;
2382: Return;
2383: END IF;

Line 2380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2376:
2377: END IF;--End of bug 3810204
2378:
2379: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2381: ROLLBACK ;
2382: Return;
2383: END IF;
2384:

Line 2385: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

2381: ROLLBACK ;
2382: Return;
2383: END IF;
2384:
2385: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2386: IF FND_API.to_boolean( p_commit )
2387: THEN
2388: COMMIT;
2389: END IF;

Line 2386: IF FND_API.to_boolean( p_commit )

2382: Return;
2383: END IF;
2384:
2385: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2386: IF FND_API.to_boolean( p_commit )
2387: THEN
2388: COMMIT;
2389: END IF;
2390: END IF;

Line 2417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2413: l_exist_res_list := 'N';
2414: END;
2415:
2416: IF l_exist_res_list = 'Y' THEN
2417: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2418: ROLLBACK ;
2419: Return;
2420: END IF;
2421:

Line 2430: IF l_return_status = FND_API.G_RET_STS_ERROR THEN

2426: X_Return_Status => l_return_status,
2427: X_Msg_Count => l_msg_count,
2428: X_Msg_Data => l_msg_data);
2429:
2430: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2431: --For bug 3810204
2432: ROLLBACK ;
2433: RAISE API_ERROR;
2434: --End of bug 3810204

Line 2437: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN

2433: RAISE API_ERROR;
2434: --End of bug 3810204
2435: END IF;
2436:
2437: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2439: ROLLBACK ;
2440: Return;
2441: END IF;

Line 2438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2434: --End of bug 3810204
2435: END IF;
2436:
2437: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2438: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2439: ROLLBACK ;
2440: Return;
2441: END IF;
2442:

Line 2443: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN

2439: ROLLBACK ;
2440: Return;
2441: END IF;
2442:
2443: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2444: IF FND_API.to_boolean( p_commit ) THEN
2445: COMMIT;
2446: END IF;
2447: END IF;

Line 2444: IF FND_API.to_boolean( p_commit ) THEN

2440: Return;
2441: END IF;
2442:
2443: IF l_return_status = FND_API.G_RET_STS_SUCCESS THEN
2444: IF FND_API.to_boolean( p_commit ) THEN
2445: COMMIT;
2446: END IF;
2447: END IF;
2448: END IF;

Line 2461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2457: (P_App_Short_Name => 'PA',
2458: P_Msg_Name => l_msg_data);
2459:
2460: WHEN OTHERS THEN
2461: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2462: -- 4537865 : Start
2463: X_Msg_Data := SUBSTRB(SQLERRM,1,240);
2464: x_msg_count := x_msg_count + 1 ;
2465: -- 4537865 : End

Line 2485: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

2481: * procedure, which would create the res formats.
2482: * The detailed information is in the spec.
2483: **************************************************************/
2484: Procedure Create_Plan_RL_Format(
2485: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2486: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2487: P_Res_List_Id IN Number,
2488: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
2489: X_Plan_RL_Format_Tbl OUT NOCOPY Plan_RL_Format_Out_Tbl,

Line 2486: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

2482: * The detailed information is in the spec.
2483: **************************************************************/
2484: Procedure Create_Plan_RL_Format(
2485: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2486: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2487: P_Res_List_Id IN Number,
2488: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl,
2489: X_Plan_RL_Format_Tbl OUT NOCOPY Plan_RL_Format_Out_Tbl,
2490: X_Return_Status OUT NOCOPY Varchar2,

Line 2502: IF FND_API.to_boolean( p_init_msg_list )

2498:
2499: BEGIN
2500:
2501: -- First clear the message stack.
2502: IF FND_API.to_boolean( p_init_msg_list )
2503: THEN
2504: FND_MSG_PUB.initialize;
2505: END IF;
2506:

Line 2508: x_return_status := FND_API.G_RET_STS_SUCCESS;

2504: FND_MSG_PUB.initialize;
2505: END IF;
2506:
2507: x_msg_count := 0;
2508: x_return_status := FND_API.G_RET_STS_SUCCESS;
2509:
2510: Convert_Missing_Format_IN_Rec(
2511: P_Plan_RL_Format_Tbl => P_Plan_RL_Format_Tbl,
2512: X_Plan_RL_Format_Tbl => L_Plan_RL_Format_Tbl);

Line 2557: IF x_return_status <> FND_API.G_RET_STS_SUCCESS

2553: X_Return_Status =>x_return_status,
2554: X_Msg_Count =>X_Msg_Count,
2555: X_Msg_Data =>X_Msg_Data);
2556:
2557: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2558: THEN
2559: x_return_status := FND_API.G_RET_STS_ERROR;
2560: x_msg_count := x_msg_count + 1;
2561: x_msg_data := x_Msg_Data;

Line 2559: x_return_status := FND_API.G_RET_STS_ERROR;

2555: X_Msg_Data =>X_Msg_Data);
2556:
2557: IF x_return_status <> FND_API.G_RET_STS_SUCCESS
2558: THEN
2559: x_return_status := FND_API.G_RET_STS_ERROR;
2560: x_msg_count := x_msg_count + 1;
2561: x_msg_data := x_Msg_Data;
2562: Rollback;
2563: Return;

Line 2569: IF FND_API.to_boolean( p_commit )

2565: END LOOP;
2566: /************************************************
2567: * Check the Commit flag. if it is true then Commit.
2568: ************************************************/
2569: IF FND_API.to_boolean( p_commit )
2570: THEN
2571: COMMIT;
2572: END IF;
2573: EXCEPTION

Line 2576: x_return_status := FND_API.G_RET_STS_ERROR;

2572: END IF;
2573: EXCEPTION
2574: WHEN INVALID_FMT_ERR THEN
2575:
2576: x_return_status := FND_API.G_RET_STS_ERROR;
2577: x_msg_count := x_msg_count + 1;
2578: x_msg_data := 'PA_AMG_INVALID_FMT_ID';
2579: Pa_Utils.Add_Message
2580: (P_App_Short_Name => 'PA',

Line 2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;

2579: Pa_Utils.Add_Message
2580: (P_App_Short_Name => 'PA',
2581: P_Msg_Name => 'PA_AMG_INVALID_FMT_ID');
2582: WHEN OTHERS THEN
2583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2584: x_msg_count := x_msg_count + 1;
2585: -- 4537865
2586: x_msg_data := SUBSTRB(SQLERRM,1,240);
2587: Fnd_Msg_Pub.Add_Exc_Msg(

Line 2603: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

2599: * procedure, which would Delete the res formats.
2600: * The detailed information is in the spec.
2601: **************************************************************/
2602: Procedure Delete_Plan_RL_Format (
2603: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2604: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2605: P_Res_List_Id IN NUMBER DEFAULT PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2606: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl ,
2607: X_Return_Status OUT NOCOPY VARCHAR2,

Line 2604: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

2600: * The detailed information is in the spec.
2601: **************************************************************/
2602: Procedure Delete_Plan_RL_Format (
2603: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2604: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2605: P_Res_List_Id IN NUMBER DEFAULT PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,
2606: P_Plan_RL_Format_Tbl IN Plan_RL_Format_In_Tbl ,
2607: X_Return_Status OUT NOCOPY VARCHAR2,
2608: X_Msg_Count OUT NOCOPY NUMBER,

Line 2616: IF FND_API.to_boolean( p_init_msg_list )

2612: L_Plan_RL_Format_Tbl Plan_RL_Format_In_Tbl;
2613:
2614: BEGIN
2615: -- First clear the message stack.
2616: IF FND_API.to_boolean( p_init_msg_list )
2617: THEN
2618: FND_MSG_PUB.initialize;
2619: END IF;
2620:

Line 2644: IF FND_API.to_boolean( p_commit )

2640: END LOOP;
2641: /************************************************
2642: * Check the Commit flag. if it is true then Commit.
2643: ************************************************/
2644: IF FND_API.to_boolean( p_commit )
2645: THEN
2646: COMMIT;
2647: END IF;
2648: END Delete_Plan_RL_Format;

Line 2659: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

2655: * resource list.
2656: * The detailed information is in the spec.
2657: ****************************************************************/
2658: Procedure Create_Planning_Resource(
2659: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2660: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2661: p_resource_list_id IN VARCHAR2,
2662: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
2663: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,

Line 2660: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

2656: * The detailed information is in the spec.
2657: ****************************************************************/
2658: Procedure Create_Planning_Resource(
2659: p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2660: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
2661: p_resource_list_id IN VARCHAR2,
2662: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
2663: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,
2664: x_return_status OUT NOCOPY VARCHAR2,

Line 2715: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then

2711: Begin
2712:
2713: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
2714: -- First clear the message stack.
2715: If Fnd_Api.To_Boolean( P_Init_Msg_List ) Then
2716:
2717: Fnd_Msg_Pub.Initialize;
2718:
2719: End If;

Line 2748: x_return_status := FND_API.G_RET_STS_SUCCESS;

2744: /*************************************************
2745: * Assigning Initial values for some of the elements.
2746: *************************************************/
2747: x_msg_count := 0;
2748: x_return_status := FND_API.G_RET_STS_SUCCESS;
2749:
2750: --For bug 3675288.
2751: IF L_Planning_resource_in_tbl(i).P_Res_Format_Id is NULL THEN
2752:

Line 2809: x_return_status := Fnd_Api.G_Ret_Sts_Error;

2805: WHERE f.res_format_id = L_Planning_resource_in_tbl(i).P_Res_Format_Id
2806: AND f.RES_TYPE_ID = t.res_type_id(+);
2807:
2808: EXCEPTION WHEN OTHERS THEN
2809: x_return_status := Fnd_Api.G_Ret_Sts_Error;
2810: x_msg_count:=1;
2811: x_error_msg_data := 'PA_PLN_RL_FORMAT_BAD_FMT_ID';
2812: Pa_Utils.Add_Message
2813: (P_App_Short_Name => 'PA',

Line 3098: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then

3094: x_msg_count => x_msg_count ,
3095: x_error_msg_data => x_error_msg_data);
3096:
3097:
3098: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
3099:
3100: RollBack to planning_resource_create;
3101: RETURN;
3102:

Line 3110: If Fnd_Api.To_Boolean( P_Commit ) Then

3106: -- Commit only if all records are successful
3107: /************************************************
3108: * Check the Commit flag. if it is true then Commit.
3109: ***********************************************/
3110: If Fnd_Api.To_Boolean( P_Commit ) Then
3111:
3112: Commit;
3113:
3114: End If;

Line 3115: x_return_status := Fnd_Api.G_Ret_Sts_Success;

3111:
3112: Commit;
3113:
3114: End If;
3115: x_return_status := Fnd_Api.G_Ret_Sts_Success;
3116: x_msg_count := Fnd_Msg_Pub.Count_Msg;
3117:
3118:
3119: Exception

Line 3121: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3117:
3118:
3119: Exception
3120: When FMT_NULL_ERR Then
3121: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3122: x_msg_count:=1;
3123: x_error_msg_data := 'PA_AMG_FORMAT_ID_NULL';
3124: Pa_Utils.Add_Message
3125: (P_App_Short_Name => 'PA',

Line 3130: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3126: P_Msg_Name => 'PA_AMG_FORMAT_ID_NULL',
3127: p_token1 => 'PLAN_RES',
3128: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3129: When RES_FORMAT_ID_ERR Then
3130: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3131: x_msg_count:=1;
3132: x_error_msg_data := 'PA_AMG_FORMAT_NOT_EXISTS';
3133: Pa_Utils.Add_Message(
3134: P_App_Short_Name => 'PA',

Line 3139: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3135: P_Msg_Name => 'PA_AMG_FORMAT_NOT_EXISTS',
3136: p_token1 => 'PLAN_RES',
3137: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3138: When RES_CLASS_ID_AND_CODE_NULL Then
3139: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3140: x_msg_count:=1;
3141: x_error_msg_data := 'PA_AMG_RESCLS_ID_CODE_NULL';
3142: Pa_Utils.Add_Message
3143: (P_App_Short_Name => 'PA',

Line 3148: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3144: P_Msg_Name => 'PA_AMG_RESCLS_ID_CODE_NULL',
3145: p_token1 => 'PLAN_RES',
3146: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3147: When RES_CODE_INVALID_ERR Then
3148: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3149: x_msg_count:=1;
3150: x_error_msg_data := 'PA_AMG_RESOURCE_CODE_INVALID';
3151: Pa_Utils.Add_Message
3152: (P_App_Short_Name => 'PA',

Line 3157: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3153: P_Msg_Name => 'PA_AMG_RESOURCE_CODE_INVALID',
3154: p_token1 => 'PLAN_RES',
3155: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3156: When RES_ID_INVALID_ERR Then
3157: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3158: x_msg_count:=1;
3159: x_error_msg_data := 'PA_AMG_RESOURCE_ID_INVALID';
3160: Pa_Utils.Add_Message
3161: (P_App_Short_Name => 'PA',

Line 3166: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3162: P_Msg_Name => 'PA_AMG_RESOURCE_ID_INVALID',
3163: p_token1 => 'PLAN_RES',
3164: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3165: When INVALID_PROJECT_ID Then
3166: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3167: x_msg_count:=1;
3168: x_error_msg_data := 'PA_AMG_PROJECT_ID_INVALID';
3169: Pa_Utils.Add_Message
3170: (P_App_Short_Name => 'PA',

Line 3175: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3171: P_Msg_Name => 'PA_AMG_PROJECT_ID_INVALID',
3172: p_token1 => 'PLAN_RES',
3173: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3174: When NAMED_PER_NULL_ERR Then
3175: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3176: x_msg_count:=1;
3177: x_error_msg_data := 'PA_AMG_NAMED_PER_NULL';
3178: Pa_Utils.Add_Message
3179: (P_App_Short_Name => 'PA',

Line 3184: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3180: P_Msg_Name => 'PA_AMG_NAMED_PER_NULL',
3181: p_token1 => 'PLAN_RES',
3182: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3183: When BOM_LAB_N_EQUIP_NULL_ERR Then
3184: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3185: x_msg_count:=1;
3186: x_error_msg_data := 'PA_AMG_BOM_NULL';
3187: Pa_Utils.Add_Message
3188: (P_App_Short_Name => 'PA',

Line 3193: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3189: P_Msg_Name => 'PA_AMG_BOM_NULL',
3190: p_token1 => 'PLAN_RES',
3191: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3192: When ITEM_CAT_NULL_ERR Then
3193: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3194: x_msg_count:=1;
3195: x_error_msg_data := 'PA_AMG_ITEM_CAT_NULL';
3196: Pa_Utils.Add_Message
3197: (P_App_Short_Name => 'PA',

Line 3202: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3198: P_Msg_Name => 'PA_AMG_ITEM_CAT_NULL',
3199: p_token1 => 'PLAN_RES',
3200: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3201: When INVEN_ITEM_NULL_ERR Then
3202: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3203: x_msg_count:=1;
3204: x_error_msg_data := 'PA_AMG_INV_ITEM_NULL';
3205: Pa_Utils.Add_Message
3206: (P_App_Short_Name => 'PA',

Line 3211: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3207: P_Msg_Name => 'PA_AMG_INV_ITEM_NULL',
3208: p_token1 => 'PLAN_RES',
3209: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3210: When JOB_NULL_ERR Then
3211: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3212: x_msg_count:=1;
3213: x_error_msg_data := 'PA_AMG_JOB_NULL';
3214: Pa_Utils.Add_Message
3215: (P_App_Short_Name => 'PA',

Line 3220: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3216: P_Msg_Name => 'PA_AMG_JOB_NULL',
3217: p_token1 => 'PLAN_RES',
3218: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3219: When PERSON_TYPE_NULL_ERR Then
3220: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3221: x_msg_count:=1;
3222: x_error_msg_data := 'PA_AMG_PERSON_TYPE_NULL';
3223: Pa_Utils.Add_Message
3224: (P_App_Short_Name => 'PA',

Line 3229: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3225: P_Msg_Name => 'PA_AMG_PERSON_TYPE_NULL',
3226: p_token1 => 'PLAN_RES',
3227: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3228: When NON_LABOR_RES_NULL_ERR Then
3229: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3230: x_msg_count:=1;
3231: x_error_msg_data := 'PA_AMG_NON_LABOR_NULL';
3232: Pa_Utils.Add_Message
3233: (P_App_Short_Name => 'PA',

Line 3238: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3234: P_Msg_Name => 'PA_AMG_NON_LABOR_NULL',
3235: p_token1 => 'PLAN_RES',
3236: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3237: When FIN_NULL_ERR Then
3238: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3239: x_msg_count:=1;
3240: x_error_msg_data := 'PA_AMG_FIN_NULL';
3241: Pa_Utils.Add_Message
3242: (P_App_Short_Name => 'PA',

Line 3247: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3243: P_Msg_Name => 'PA_AMG_FIN_NULL',
3244: p_token1 => 'PLAN_RES',
3245: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3246: When FIN_NOT_NULL_ERR Then
3247: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3248: x_msg_count:=1;
3249: x_error_msg_data := 'PA_AMG_FIN_NOT_NULL';
3250: Pa_Utils.Add_Message
3251: (P_App_Short_Name => 'PA',

Line 3256: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3252: P_Msg_Name => 'PA_AMG_FIN_NOT_NULL',
3253: p_token1 => 'PLAN_RES',
3254: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3255: When ORG_NULL_ERR Then
3256: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3257: x_msg_count:=1;
3258: x_error_msg_data := 'PA_AMG_ORG_NULL';
3259: Pa_Utils.Add_Message
3260: (P_App_Short_Name => 'PA',

Line 3265: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3261: P_Msg_Name => 'PA_AMG_ORG_NULL',
3262: p_token1 => 'PLAN_RES',
3263: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3264: When ORG_NOT_NULL_ERR Then
3265: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3266: x_msg_count:=1;
3267: x_error_msg_data := 'PA_AMG_ORG_NOT_NULL';
3268: Pa_Utils.Add_Message
3269: (P_App_Short_Name => 'PA',

Line 3274: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3270: P_Msg_Name => 'PA_AMG_ORG_NOT_NULL',
3271: p_token1 => 'PLAN_RES',
3272: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3273: When SUPP_NULL_ERR Then
3274: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3275: x_msg_count:=1;
3276: x_error_msg_data := 'PA_AMG_SUPP_NULL';
3277: Pa_Utils.Add_Message
3278: (P_App_Short_Name => 'PA',

Line 3283: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3279: P_Msg_Name => 'PA_AMG_SUPP_NULL',
3280: p_token1 => 'PLAN_RES',
3281: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3282: When SUPP_NOT_NULL_ERR Then
3283: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3284: x_msg_count:=1;
3285: x_error_msg_data := 'PA_AMG_SUPP_NOT_NULL';
3286: Pa_Utils.Add_Message
3287: (P_App_Short_Name => 'PA',

Line 3292: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3288: P_Msg_Name => 'PA_AMG_SUPP_NOT_NULL',
3289: p_token1 => 'PLAN_RES',
3290: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3291: When ROLE_NULL_ERR Then
3292: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3293: x_msg_count:=1;
3294: x_error_msg_data := 'PA_AMG_ROLE_NULL';
3295: Pa_Utils.Add_Message
3296: (P_App_Short_Name => 'PA',

Line 3301: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3297: P_Msg_Name => 'PA_AMG_ROLE_NULL',
3298: p_token1 => 'PLAN_RES',
3299: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3300: When ROLE_NOT_NULL_ERR Then
3301: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3302: x_msg_count:=1;
3303: x_error_msg_data := 'PA_AMG_ROLE_NOT_NULL';
3304: Pa_Utils.Add_Message
3305: (P_App_Short_Name => 'PA',

Line 3310: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3306: P_Msg_Name => 'PA_AMG_ROLE_NOT_NULL',
3307: p_token1 => 'PLAN_RES',
3308: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3309: When INC_NULL_ERR Then
3310: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3311: x_msg_count:=1;
3312: x_error_msg_data := 'PA_AMG_INC_NULL';
3313: Pa_Utils.Add_Message
3314: (P_App_Short_Name => 'PA',

Line 3319: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3315: P_Msg_Name => 'PA_AMG_INC_NULL',
3316: p_token1 => 'PLAN_RES',
3317: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3318: When INC_NOT_NULL_ERR Then
3319: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3320: x_msg_count:=1;
3321: x_error_msg_data := 'PA_AMG_INC_NOT_NULL';
3322: Pa_Utils.Add_Message
3323: (P_App_Short_Name => 'PA',

Line 3328: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3324: P_Msg_Name => 'PA_AMG_INC_NOT_NULL',
3325: p_token1 => 'PLAN_RES',
3326: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3327: When RES_NOT_NULL_ERR Then
3328: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3329: x_msg_count:=1;
3330: x_error_msg_data := 'PA_AMG_RES_NOT_NULL';
3331: Pa_Utils.Add_Message
3332: (P_App_Short_Name => 'PA',

Line 3337: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3333: P_Msg_Name => 'PA_AMG_RES_NOT_NULL',
3334: p_token1 => 'PLAN_RES',
3335: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3336: When RESOURCE_CLASS_FMT_ERR Then
3337: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3338: x_msg_count:=1;
3339: x_error_msg_data := 'PA_AMG_RES_CLS_FMT';
3340: Pa_Utils.Add_Message
3341: (P_App_Short_Name => 'PA',

Line 3347: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;

3343: p_token1 => 'PLAN_RES',
3344: p_value1 => Pa_Planning_Resource_Pvt.g_token);
3345: When Others Then
3346: Rollback;
3347: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3348:
3349: End Create_Planning_Resource;
3350: /*****************************************************/
3351:

Line 3360: (p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,

3356: * planning resource for a resource list.
3357: * The detailed information is in the spec.
3358: ******************************************************/
3359: PROCEDURE Update_Planning_Resource
3360: (p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3361: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3362: p_resource_list_id IN NUMBER,
3363: p_enabled_flag IN VARCHAR2,
3364: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,

Line 3361: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,

3357: * The detailed information is in the spec.
3358: ******************************************************/
3359: PROCEDURE Update_Planning_Resource
3360: (p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3361: p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE,
3362: p_resource_list_id IN NUMBER,
3363: p_enabled_flag IN VARCHAR2,
3364: P_planning_resource_in_tbl IN Planning_Resource_In_Tbl,
3365: X_planning_resource_out_tbl OUT NOCOPY Planning_Resource_Out_Tbl,

Line 3411: If Fnd_Api.To_Boolean( p_init_msg_list ) Then

3407: BEGIN
3408:
3409: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3410: -- First clear the message stack.
3411: If Fnd_Api.To_Boolean( p_init_msg_list ) Then
3412:
3413: Fnd_Msg_Pub.Initialize;
3414:
3415: End If;

Line 3423: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;

3419: * is passed. If it is not passed, thro an error and return status of ERROR
3420: */
3421: If p_resource_list_id is Null Then
3422:
3423: X_Return_Status := Fnd_Api.G_Ret_Sts_Error;
3424: X_Error_Msg_Data := 'PA_PLN_RES_LIST_ID_IS_NULL';
3425: x_msg_count := x_msg_count + 1;
3426: Pa_Utils.Add_Message ('PA', X_Error_Msg_Data);
3427: Rollback;

Line 3446: x_return_status := Fnd_Api.G_Ret_Sts_Success;

3442:
3443: savepoint planning_res_list_update;
3444:
3445: x_msg_count := 0;
3446: x_return_status := Fnd_Api.G_Ret_Sts_Success;
3447:
3448: /* Eugene
3449: * Add code here to check if resource list member id is passed. If it is not
3450: * passed, derive it from the alias, if alias is passed. If both are not

Line 3461: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3457: If p_planning_resource_in_tbl(i).p_resource_list_member_id Is Null Then
3458:
3459: If P_planning_resource_in_tbl(i).p_resource_alias Is Null Then
3460:
3461: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3462: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ID_ALIAS_NULL',
3463: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3464: Raise EXC_NULL_INVALID_DATA;
3465:

Line 3476: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3472:
3473: If c1%NotFound Then
3474:
3475: Close c1;
3476: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3477: Pa_Utils.Add_Message ('PA', 'PA_PLN_RES_LIST_ALIAS_INVAL',
3478: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3479: RAISE EXC_NULL_INVALID_DATA;
3480:

Line 3497: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3493: End If;
3494:
3495: If p_planning_resource_in_tbl(i).p_record_version_number is Null Then
3496:
3497: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3498: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_RECVER_NULL',
3499: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3500: RAISE EXC_NULL_INVALID_DATA;
3501:

Line 3511: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3507:
3508: If c2%NotFound Then
3509:
3510: Close c2;
3511: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3512: Pa_Utils.Add_Message ('PA', 'PA_PLN_RESLISTMEM_ID_INVAL',
3513: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3514: RAISE EXC_NULL_INVALID_DATA;
3515:

Line 3521: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3517:
3518: Close c2;
3519: If l_rec_ver_num <> p_planning_resource_in_tbl(i).p_record_version_number then
3520:
3521: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3522: Pa_Utils.Add_Message('PA', 'PA_PLN_RESLISTMEM_ALREADY_UPD',
3523: 'PLAN_RES', Pa_Planning_Resource_Pvt.g_token);
3524: RAISE EXC_NULL_INVALID_DATA;
3525:

Line 3577: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then

3573: x_return_status => x_return_status,
3574: x_msg_count => x_msg_count ,
3575: x_error_msg_data => x_error_msg_data);
3576:
3577: If x_return_status <> Fnd_Api.G_Ret_Sts_Success Then
3578:
3579: RollBack to planning_res_list_update;
3580: Return;
3581:

Line 3586: x_return_status := Fnd_Api.G_Ret_Sts_Error;

3582: End If;
3583:
3584: Exception
3585: When EXC_NULL_INVALID_DATA Then
3586: x_return_status := Fnd_Api.G_Ret_Sts_Error;
3587: x_msg_count := x_msg_count + 1;
3588: RollBack to planning_res_list_update;
3589: Return;
3590: When Others Then

Line 3598: If Fnd_Api.To_Boolean( p_commit ) Then

3594: End Loop;
3595: /************************************************
3596: * Check the Commit flag. if it is true then Commit.
3597: ***********************************************/
3598: If Fnd_Api.To_Boolean( p_commit ) Then
3599:
3600: Commit;
3601:
3602: End If;

Line 3604: x_return_status := Fnd_Api.G_Ret_Sts_Success;

3600: Commit;
3601:
3602: End If;
3603:
3604: x_return_status := Fnd_Api.G_Ret_Sts_Success;
3605: x_msg_count := Fnd_Msg_Pub.Count_Msg;
3606:
3607: Exception
3608: When Others Then

Line 3610: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;

3606:
3607: Exception
3608: When Others Then
3609: Rollback;
3610: x_return_status := Fnd_Api.G_Ret_Sts_UnExp_Error;
3611:
3612: End Update_Planning_Resource;
3613: /************************************/
3614:

Line 3635: IF FND_API.to_boolean( p_init_msg_list )

3631: IS
3632: BEGIN
3633: Pa_Planning_Resource_Pvt.g_amg_flow := 'Y';
3634: -- First clear the message stack.
3635: IF FND_API.to_boolean( p_init_msg_list )
3636: THEN
3637: FND_MSG_PUB.initialize;
3638: END IF;
3639: /********************************************

Line 3663: IF FND_API.to_boolean( p_commit )

3659: END LOOP;
3660: /************************************************
3661: * Check the Commit flag. if it is true then Commit.
3662: ***********************************************/
3663: IF FND_API.to_boolean( p_commit )
3664: THEN
3665: COMMIT;
3666: END IF;
3667: /***************/

Line 3765: x_return_status := FND_API.g_ret_sts_success;

3761: IS
3762: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
3763: l_api_name CONSTANT VARCHAR2(30) := 'Load_Resource_List';
3764: BEGIN
3765: x_return_status := FND_API.g_ret_sts_success;
3766:
3767: --Standard API Compatibility Call.
3768: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3769: p_api_version_number ,

Line 3768: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

3764: BEGIN
3765: x_return_status := FND_API.g_ret_sts_success;
3766:
3767: --Standard API Compatibility Call.
3768: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3769: p_api_version_number ,
3770: l_api_name ,
3771: G_PKG_NAME )
3772: THEN

Line 3773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3769: p_api_version_number ,
3770: l_api_name ,
3771: G_PKG_NAME )
3772: THEN
3773: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3774: END IF;
3775:
3776: G_Plan_Res_List_IN_Rec.p_resource_list_id := p_resource_list_id;
3777: G_Plan_Res_List_IN_Rec.p_resource_list_name := p_resource_list_name;

Line 3788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR

3784: G_Plan_Res_List_IN_Rec.p_record_version_number :=
3785: p_record_version_number;
3786:
3787: EXCEPTION
3788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3789: THEN
3790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3791: WHEN OTHERS THEN
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 3790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3786:
3787: EXCEPTION
3788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3789: THEN
3790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3791: WHEN OTHERS THEN
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3793: FND_MSG_PUB.Add_Exc_Msg
3794: ( p_pkg_name => G_PKG_NAME ,

Line 3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3788: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3789: THEN
3790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3791: WHEN OTHERS THEN
3792: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3793: FND_MSG_PUB.Add_Exc_Msg
3794: ( p_pkg_name => G_PKG_NAME ,
3795: p_procedure_name => l_api_name
3796: );

Line 3814: x_return_status := FND_API.g_ret_sts_success;

3810: IS
3811: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
3812: l_api_name CONSTANT VARCHAR2(30) := 'Load_Resource_Format';
3813: BEGIN
3814: x_return_status := FND_API.g_ret_sts_success;
3815:
3816: --Standard API Compatibility Call.
3817: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3818: p_api_version_number ,

Line 3817: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

3813: BEGIN
3814: x_return_status := FND_API.g_ret_sts_success;
3815:
3816: --Standard API Compatibility Call.
3817: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3818: p_api_version_number ,
3819: l_api_name ,
3820: G_PKG_NAME )
3821: THEN

Line 3822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3818: p_api_version_number ,
3819: l_api_name ,
3820: G_PKG_NAME )
3821: THEN
3822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3823: END IF;
3824:
3825: G_Plan_RL_Format_tbl_count := G_Plan_RL_Format_tbl_count + 1;
3826:

Line 3831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR

3827: G_Plan_RL_format_In_Tbl(G_Plan_RL_Format_tbl_count).P_Res_Format_Id
3828: := P_Res_Format_Id;
3829:
3830: EXCEPTION
3831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3832: THEN
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3834: WHEN OTHERS THEN
3835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3829:
3830: EXCEPTION
3831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3832: THEN
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3834: WHEN OTHERS THEN
3835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3836: FND_MSG_PUB.Add_Exc_Msg
3837: ( p_pkg_name => G_PKG_NAME ,

Line 3835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

3831: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
3832: THEN
3833: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3834: WHEN OTHERS THEN
3835: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3836: FND_MSG_PUB.Add_Exc_Msg
3837: ( p_pkg_name => G_PKG_NAME ,
3838: p_procedure_name => l_api_name
3839: );

Line 3920: x_return_status := FND_API.g_ret_sts_success;

3916: IS
3917: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
3918: l_api_name CONSTANT VARCHAR2(30) := 'Load_Planning_Resource';
3919: BEGIN
3920: x_return_status := FND_API.g_ret_sts_success;
3921:
3922: --Standard API Compatibility Call.
3923: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3924: p_api_version_number ,

Line 3923: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

3919: BEGIN
3920: x_return_status := FND_API.g_ret_sts_success;
3921:
3922: --Standard API Compatibility Call.
3923: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
3924: p_api_version_number ,
3925: l_api_name ,
3926: G_PKG_NAME )
3927: THEN

Line 3928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

3924: p_api_version_number ,
3925: l_api_name ,
3926: G_PKG_NAME )
3927: THEN
3928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3929: END IF;
3930:
3931: G_Plan_Resource_tbl_count := G_Plan_Resource_tbl_count + 1;
3932:

Line 4063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR

4059: G_Planning_resource_in_tbl(G_Plan_Resource_tbl_count).p_enabled_flag
4060: := p_enabled_flag;
4061:
4062: EXCEPTION
4063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4064: THEN
4065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4066: WHEN OTHERS THEN
4067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

Line 4065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4061:
4062: EXCEPTION
4063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4064: THEN
4065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4066: WHEN OTHERS THEN
4067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4068: FND_MSG_PUB.Add_Exc_Msg
4069: ( p_pkg_name => G_PKG_NAME ,

Line 4067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4063: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
4064: THEN
4065: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4066: WHEN OTHERS THEN
4067: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4068: FND_MSG_PUB.Add_Exc_Msg
4069: ( p_pkg_name => G_PKG_NAME ,
4070: p_procedure_name => l_api_name
4071: );

Line 4083: (p_commit IN VARCHAR2 := FND_API.G_FALSE,

4079: * load-execute-fetch model.
4080: * The detailed information is in spec.
4081: ***************************************************/
4082: PROCEDURE Exec_Create_Resource_List
4083: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4084: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4085: p_api_version_number IN NUMBER,
4086: x_return_status OUT NOCOPY VARCHAR2,
4087: x_msg_count OUT NOCOPY NUMBER,

Line 4084: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

4080: * The detailed information is in spec.
4081: ***************************************************/
4082: PROCEDURE Exec_Create_Resource_List
4083: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4084: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4085: p_api_version_number IN NUMBER,
4086: x_return_status OUT NOCOPY VARCHAR2,
4087: x_msg_count OUT NOCOPY NUMBER,
4088: x_msg_data OUT NOCOPY VARCHAR2 )

Line 4094: x_return_status := FND_API.g_ret_sts_success;

4090: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4091: l_api_name CONSTANT VARCHAR2(30) := 'Exec_Create_Resource_List';
4092: l_message_count NUMBER;
4093: BEGIN
4094: x_return_status := FND_API.g_ret_sts_success;
4095:
4096: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4097: p_api_version_number ,
4098: l_api_name ,

Line 4096: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

4092: l_message_count NUMBER;
4093: BEGIN
4094: x_return_status := FND_API.g_ret_sts_success;
4095:
4096: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4097: p_api_version_number ,
4098: l_api_name ,
4099: G_PKG_NAME )
4100: THEN

Line 4101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4097: p_api_version_number ,
4098: l_api_name ,
4099: G_PKG_NAME )
4100: THEN
4101: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4102: END IF;
4103:
4104: Create_Resource_List
4105: (p_commit => p_commit,

Line 4120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4116: X_Msg_Data => x_msg_data);
4117:
4118: EXCEPTION
4119:
4120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4122: WHEN OTHERS THEN
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4124: -- 4537865

Line 4121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4117:
4118: EXCEPTION
4119:
4120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4122: WHEN OTHERS THEN
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4124: -- 4537865
4125: x_msg_data := SUBSTRB(SQLERRM,1,240);

Line 4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4119:
4120: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4121: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4122: WHEN OTHERS THEN
4123: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4124: -- 4537865
4125: x_msg_data := SUBSTRB(SQLERRM,1,240);
4126: x_msg_count := 1 ;
4127: -- 4537865

Line 4143: (p_commit IN VARCHAR2 := FND_API.G_FALSE,

4139: * load-execute-fetch model.
4140: * The detailed information is in spec.
4141: ***************************************************/
4142: PROCEDURE Exec_Update_Resource_List
4143: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4144: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4145: p_api_version_number IN NUMBER,
4146: x_return_status OUT NOCOPY VARCHAR2,
4147: x_msg_count OUT NOCOPY NUMBER,

Line 4144: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,

4140: * The detailed information is in spec.
4141: ***************************************************/
4142: PROCEDURE Exec_Update_Resource_List
4143: (p_commit IN VARCHAR2 := FND_API.G_FALSE,
4144: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4145: p_api_version_number IN NUMBER,
4146: x_return_status OUT NOCOPY VARCHAR2,
4147: x_msg_count OUT NOCOPY NUMBER,
4148: x_msg_data OUT NOCOPY VARCHAR2

Line 4155: x_return_status := FND_API.g_ret_sts_success;

4151: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4152: l_api_name CONSTANT VARCHAR2(30) := 'Exec_Update_Resource_List';
4153: l_message_count NUMBER;
4154: BEGIN
4155: x_return_status := FND_API.g_ret_sts_success;
4156:
4157: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4158: p_api_version_number ,
4159: l_api_name ,

Line 4157: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

4153: l_message_count NUMBER;
4154: BEGIN
4155: x_return_status := FND_API.g_ret_sts_success;
4156:
4157: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4158: p_api_version_number ,
4159: l_api_name ,
4160: G_PKG_NAME )
4161: THEN

Line 4162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4158: p_api_version_number ,
4159: l_api_name ,
4160: G_PKG_NAME )
4161: THEN
4162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4163: END IF;
4164:
4165: Update_Resource_List
4166: (p_commit => p_commit,

Line 4182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4178: -- 4537865 : Included Exception Block
4179: EXCEPTION
4180:
4181: WHEN OTHERS THEN
4182: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4183: x_msg_data := SUBSTRB(SQLERRM,1,240);
4184: x_msg_count := 1 ;
4185: FND_MSG_PUB.Add_Exc_Msg
4186: ( p_pkg_name => G_PKG_NAME ,

Line 4209: x_return_status := FND_API.G_RET_STS_SUCCESS;

4205: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4206: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Resource_List';
4207: l_msg_count INTEGER :=0;
4208: BEGIN
4209: x_return_status := FND_API.G_RET_STS_SUCCESS;
4210:
4211: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4212: p_api_version_number ,
4213: l_api_name ,

Line 4211: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

4207: l_msg_count INTEGER :=0;
4208: BEGIN
4209: x_return_status := FND_API.G_RET_STS_SUCCESS;
4210:
4211: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4212: p_api_version_number ,
4213: l_api_name ,
4214: G_PKG_NAME )
4215: THEN

Line 4216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4212: p_api_version_number ,
4213: l_api_name ,
4214: G_PKG_NAME )
4215: THEN
4216: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4217: END IF;
4218:
4219: x_resource_list_id := G_Plan_Res_List_Out_Rec.X_resource_list_id;
4220:

Line 4222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4218:
4219: x_resource_list_id := G_Plan_Res_List_Out_Rec.X_resource_list_id;
4220:
4221: EXCEPTION
4222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4224: -- 4537865 : RESETTING x_resource_list_id also
4225: x_resource_list_id := NULL ;
4226: WHEN OTHERS THEN

Line 4223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4219: x_resource_list_id := G_Plan_Res_List_Out_Rec.X_resource_list_id;
4220:
4221: EXCEPTION
4222: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4223: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4224: -- 4537865 : RESETTING x_resource_list_id also
4225: x_resource_list_id := NULL ;
4226: WHEN OTHERS THEN
4227: -- 4537865 : RESETTING x_resource_list_id also

Line 4230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4226: WHEN OTHERS THEN
4227: -- 4537865 : RESETTING x_resource_list_id also
4228: x_resource_list_id := NULL ;
4229:
4230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4231: FND_MSG_PUB.Add_Exc_Msg
4232: ( p_pkg_name => G_PKG_NAME ,
4233: p_procedure_name => l_api_name
4234: );

Line 4255: x_return_status := FND_API.G_RET_STS_SUCCESS;

4251: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4252: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Plan_Format';
4253: l_index NUMBER;
4254: BEGIN
4255: x_return_status := FND_API.G_RET_STS_SUCCESS;
4256: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4257: p_api_version_number ,
4258: l_api_name ,
4259: G_PKG_NAME )

Line 4256: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

4252: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Plan_Format';
4253: l_index NUMBER;
4254: BEGIN
4255: x_return_status := FND_API.G_RET_STS_SUCCESS;
4256: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4257: p_api_version_number ,
4258: l_api_name ,
4259: G_PKG_NAME )
4260: THEN

Line 4261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4257: p_api_version_number ,
4258: l_api_name ,
4259: G_PKG_NAME )
4260: THEN
4261: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4262: END IF;
4263:
4264: IF p_format_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
4265: l_index := 1;

Line 4278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN

4274: G_Plan_RL_format_Out_Tbl(l_index).X_Plan_RL_Format_Id;
4275: END IF;
4276:
4277: EXCEPTION
4278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4280: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4281: X_Plan_RL_Format_Id := NULL ;
4282:

Line 4279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4275: END IF;
4276:
4277: EXCEPTION
4278: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4279: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4280: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4281: X_Plan_RL_Format_Id := NULL ;
4282:
4283: WHEN OTHERS THEN

Line 4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4280: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4281: X_Plan_RL_Format_Id := NULL ;
4282:
4283: WHEN OTHERS THEN
4284: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4285: -- 4537865 : RESETTING X_Plan_RL_Format_Id also
4286: X_Plan_RL_Format_Id := NULL ;
4287: FND_MSG_PUB.Add_Exc_Msg
4288: ( p_pkg_name => G_PKG_NAME ,

Line 4311: x_return_status := FND_API.G_RET_STS_SUCCESS;

4307: l_api_version_number CONSTANT NUMBER := G_API_VERSION_NUMBER;
4308: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Resource_List_Member';
4309: l_index NUMBER;
4310: BEGIN
4311: x_return_status := FND_API.G_RET_STS_SUCCESS;
4312: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4313: p_api_version_number ,
4314: l_api_name ,
4315: G_PKG_NAME )

Line 4312: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,

4308: l_api_name CONSTANT VARCHAR2(30):= 'Fetch_Resource_List_Member';
4309: l_index NUMBER;
4310: BEGIN
4311: x_return_status := FND_API.G_RET_STS_SUCCESS;
4312: IF NOT FND_API.Compatible_API_Call ( l_api_version_number ,
4313: p_api_version_number ,
4314: l_api_name ,
4315: G_PKG_NAME )
4316: THEN

Line 4317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

4313: p_api_version_number ,
4314: l_api_name ,
4315: G_PKG_NAME )
4316: THEN
4317: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4318: END IF;
4319:
4320: IF p_member_index = PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM THEN
4321: l_index := 1;

Line 4336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;

4332: -- 4537865
4333: EXCEPTION
4334: WHEN OTHERS THEN
4335: x_resource_list_member_id := NULL ;
4336: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4337: FND_MSG_PUB.Add_Exc_Msg
4338: ( p_pkg_name => G_PKG_NAME ,
4339: p_procedure_name => l_api_name
4340: );