22:
23: ---------------------------------------------------------------
24: -- API Return Status . --
25: ---------------------------------------------------------------
26: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_WARNING CONSTANT VARCHAR2(1) := 'W';
28: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
29: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
30:
24: -- API Return Status . --
25: ---------------------------------------------------------------
26: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_WARNING CONSTANT VARCHAR2(1) := 'W';
28: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
29: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
30:
31: ---------------------------------------------------------------
32: -- Used for Error Reporting. --
25: ---------------------------------------------------------------
26: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_WARNING CONSTANT VARCHAR2(1) := 'W';
28: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
29: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
30:
31: ---------------------------------------------------------------
32: -- Used for Error Reporting. --
33: ---------------------------------------------------------------
293: BEGIN
294: ----------------------------------------------------------------
295: -- Open the Debug Log Session, only if Profile is set to TRUE --
296: ----------------------------------------------------------------
297: IF (G_DEBUG = 1 OR FND_API.to_Boolean(p_debug)) THEN
298:
299:
300: G_OUTPUT_DIR := p_output_dir ;
301: G_ERROR_FILE_NAME := p_file_name ;
430:
431: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
432: FND_MESSAGE.Set_Token('OBJECT_NAME', 'GetChangeId:'|| 'no change Id');
433: FND_MSG_PUB.Add;
434: RAISE FND_API.G_EXC_ERROR;
435:
436: END IF ;
437:
438: RETURN l_change_id ;
1081:
1082:
1083: PROCEDURE impl_item_changes
1084: ( p_api_version IN NUMBER
1085: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
1086: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
1087: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
1088: , x_return_status OUT NOCOPY VARCHAR2
1089: , x_msg_count OUT NOCOPY NUMBER
1082:
1083: PROCEDURE impl_item_changes
1084: ( p_api_version IN NUMBER
1085: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
1086: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
1087: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
1088: , x_return_status OUT NOCOPY VARCHAR2
1089: , x_msg_count OUT NOCOPY NUMBER
1090: , x_msg_data OUT NOCOPY VARCHAR2
1083: PROCEDURE impl_item_changes
1084: ( p_api_version IN NUMBER
1085: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
1086: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
1087: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
1088: , x_return_status OUT NOCOPY VARCHAR2
1089: , x_msg_count OUT NOCOPY NUMBER
1090: , x_msg_data OUT NOCOPY VARCHAR2
1091: , p_api_caller IN VARCHAR2 := NULL
1088: , x_return_status OUT NOCOPY VARCHAR2
1089: , x_msg_count OUT NOCOPY NUMBER
1090: , x_msg_data OUT NOCOPY VARCHAR2
1091: , p_api_caller IN VARCHAR2 := NULL
1092: , p_debug IN VARCHAR2 := NULL -- FND_API.G_FALSE
1093: , p_output_dir IN VARCHAR2 := NULL
1094: , p_debug_filename IN VARCHAR2 := NULL
1095: , p_change_id IN NUMBER := NULL
1096: , p_change_line_id IN NUMBER
1128:
1129:
1130: BEGIN
1131: -- Standard call to check for call compatibility.
1132: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1133: p_api_version ,
1134: l_api_name ,
1135: G_PKG_NAME )
1136: THEN
1133: p_api_version ,
1134: l_api_name ,
1135: G_PKG_NAME )
1136: THEN
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: END IF;
1139:
1140: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1141: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1136: THEN
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: END IF;
1139:
1140: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1141: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1142: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1143:
1144:
1137: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1138: END IF;
1139:
1140: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1141: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1142: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1143:
1144:
1145: IF FND_API.To_Boolean( l_commit ) THEN
1138: END IF;
1139:
1140: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1141: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1142: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1143:
1144:
1145: IF FND_API.To_Boolean( l_commit ) THEN
1146: SAVEPOINT IMPL_ITEM_CHANGES;
1141: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1142: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1143:
1144:
1145: IF FND_API.To_Boolean( l_commit ) THEN
1146: SAVEPOINT IMPL_ITEM_CHANGES;
1147: END IF;
1148:
1149:
1147: END IF;
1148:
1149:
1150: -- Initialize message list if p_init_msg_list is set to TRUE.
1151: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1152: FND_MSG_PUB.initialize;
1153: END IF;
1154:
1155: -- Open Debug Session by a give param or profile option.
1202:
1203: impl_rev_item_user_attr_chgs
1204: (
1205: p_api_version => 1.0
1206: ,p_commit => FND_API.G_FALSE
1207: ,x_return_status => l_return_status
1208: ,x_msg_count => l_msg_count
1209: ,x_msg_data => l_msg_data
1210: ,p_change_id => l_change_id
1214:
1215: Write_Debug('After Calling impl_rev_item_user_attr_chgs, Return Status: ' || l_return_status);
1216:
1217:
1218: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1219: THEN
1220:
1221: x_return_status := l_return_status;
1222: x_msg_count := l_msg_count;
1224: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1225: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_user_attr_chgs');
1226: FND_MSG_PUB.Add;
1227:
1228: RAISE FND_API.G_EXC_ERROR;
1229:
1230: END IF;
1231:
1232:
1236:
1237: impl_rev_item_attr_changes
1238: (
1239: p_api_version => 1.0
1240: ,p_commit => FND_API.G_FALSE
1241: ,x_return_status => l_return_status
1242: ,x_msg_count => l_msg_count
1243: ,x_msg_data => l_msg_data
1244: ,p_change_id => l_change_id
1249: Write_Debug('After Calling impl_rev_item_attr_changes, Return Status: ' || l_return_status);
1250:
1251:
1252:
1253: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1254: THEN
1255:
1256: x_return_status := l_return_status;
1257: x_msg_count := l_msg_count;
1255:
1256: x_return_status := l_return_status;
1257: x_msg_count := l_msg_count;
1258: x_msg_data := l_msg_data;
1259: RAISE FND_API.G_EXC_ERROR;
1260:
1261: END IF;
1262:
1263: impl_rev_item_gdsn_attr_chgs
1262:
1263: impl_rev_item_gdsn_attr_chgs
1264: (
1265: p_api_version => 1.0
1266: ,p_commit => FND_API.G_FALSE
1267: ,x_return_status => l_return_status
1268: ,x_msg_count => l_msg_count
1269: ,x_msg_data => l_msg_data
1270: ,p_change_id => l_change_id
1274:
1275: Write_Debug('After Calling impl_rev_item_gdsn_attr_chgs, Return Status: ' || l_return_status);
1276:
1277:
1278: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1279: THEN
1280:
1281: x_return_status := l_return_status;
1282: x_msg_count := l_msg_count;
1284: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1285: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs');
1286: FND_MSG_PUB.Add;
1287:
1288: RAISE FND_API.G_EXC_ERROR;
1289:
1290: END IF;
1291:
1292:
1295:
1296: impl_rev_item_aml_changes
1297: (
1298: p_api_version => 1.0
1299: ,p_commit => FND_API.G_FALSE
1300: ,x_return_status => l_return_status
1301: ,x_msg_count => l_msg_count
1302: ,x_msg_data => l_msg_data
1303: ,p_change_id => l_change_id
1307:
1308: Write_Debug('After calling impl_rev_item_aml_changes, Return Status: ' || l_return_status);
1309:
1310:
1311: IF l_return_status <> FND_API.G_RET_STS_SUCCESS
1312: THEN
1313:
1314: x_return_status := l_return_status;
1315: x_msg_count := l_msg_count;
1318: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1319: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes');
1320: FND_MSG_PUB.Add;
1321:
1322: RAISE FND_API.G_EXC_ERROR;
1323:
1324: END IF;
1325:
1326:
1329: -- End of API body.
1330:
1331:
1332: -- Standard check of p_commit.
1333: IF FND_API.To_Boolean( l_commit ) THEN
1334:
1335: Write_Debug('Commit impl_item_changes. . . ' );
1336:
1337: COMMIT WORK;
1361: Close_Debug_Session;
1362:
1363:
1364: EXCEPTION
1365: WHEN FND_API.G_EXC_ERROR THEN
1366: Write_Debug('When G_EXC_ERROR Exception in impl_item_changes');
1367:
1368: x_return_status := G_RET_STS_ERROR ;
1369:
1367:
1368: x_return_status := G_RET_STS_ERROR ;
1369:
1370:
1371: IF FND_API.To_Boolean( l_commit ) THEN
1372: Write_Debug('ROLLBACK Impl Item Changes to IMPL_ITEM_CHANGES. . ');
1373: ROLLBACK TO IMPL_ITEM_CHANGES;
1374: END IF;
1375:
1393: -- Close Error Handler Debug Session.
1394: -----------------------------------------------------
1395: Close_Debug_Session;
1396:
1397: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1398:
1399: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_item_changes');
1400: x_return_status := G_RET_STS_UNEXP_ERROR ;
1401:
1398:
1399: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_item_changes');
1400: x_return_status := G_RET_STS_UNEXP_ERROR ;
1401:
1402: IF FND_API.To_Boolean( l_commit ) THEN
1403: Write_Debug('ROLLBACK Impl Item Changes to IMPL_ITEM_CHANGES. . ');
1404: ROLLBACK TO IMPL_ITEM_CHANGES;
1405: END IF;
1406:
1425: WHEN OTHERS THEN
1426: Write_Debug('When OTHERS Exception in impl_item_changes');
1427: x_return_status := G_RET_STS_UNEXP_ERROR ;
1428:
1429: IF FND_API.To_Boolean( l_commit ) THEN
1430: Write_Debug('ROLLBACK Impl Item Changes to IMPL_ITEM_CHANGES. . ');
1431: ROLLBACK TO IMPL_ITEM_CHANGES;
1432: END IF;
1433:
1509:
1510:
1511: PROCEDURE impl_rev_item_attr_changes
1512: ( p_api_version IN NUMBER
1513: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
1514: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
1515: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
1516: , x_return_status OUT NOCOPY VARCHAR2
1517: , x_msg_count OUT NOCOPY NUMBER
1510:
1511: PROCEDURE impl_rev_item_attr_changes
1512: ( p_api_version IN NUMBER
1513: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
1514: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
1515: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
1516: , x_return_status OUT NOCOPY VARCHAR2
1517: , x_msg_count OUT NOCOPY NUMBER
1518: , x_msg_data OUT NOCOPY VARCHAR2
1511: PROCEDURE impl_rev_item_attr_changes
1512: ( p_api_version IN NUMBER
1513: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
1514: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
1515: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
1516: , x_return_status OUT NOCOPY VARCHAR2
1517: , x_msg_count OUT NOCOPY NUMBER
1518: , x_msg_data OUT NOCOPY VARCHAR2
1519: , p_api_caller IN VARCHAR2 := NULL
1516: , x_return_status OUT NOCOPY VARCHAR2
1517: , x_msg_count OUT NOCOPY NUMBER
1518: , x_msg_data OUT NOCOPY VARCHAR2
1519: , p_api_caller IN VARCHAR2 := NULL
1520: , p_debug IN VARCHAR2 := NULL -- FND_API.G_FALSE
1521: , p_output_dir IN VARCHAR2 := NULL
1522: , p_debug_filename IN VARCHAR2 := NULL
1523: , p_change_id IN NUMBER := NULL
1524: , p_change_line_id IN NUMBER
1612:
1613: BEGIN
1614:
1615: -- Standard call to check for call compatibility.
1616: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
1617: p_api_version ,
1618: l_api_name ,
1619: G_PKG_NAME )
1620: THEN
1617: p_api_version ,
1618: l_api_name ,
1619: G_PKG_NAME )
1620: THEN
1621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1622: END IF;
1623:
1624: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1625: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1620: THEN
1621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1622: END IF;
1623:
1624: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1625: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1626: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1627:
1628: IF FND_API.To_Boolean( l_commit ) THEN
1621: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1622: END IF;
1623:
1624: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1625: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1626: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1627:
1628: IF FND_API.To_Boolean( l_commit ) THEN
1629: -- Standard Start of API savepoint
1622: END IF;
1623:
1624: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1625: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1626: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1627:
1628: IF FND_API.To_Boolean( l_commit ) THEN
1629: -- Standard Start of API savepoint
1630: SAVEPOINT IMPL_REV_ITEM_ATTR_CHGS;
1624: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
1625: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
1626: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
1627:
1628: IF FND_API.To_Boolean( l_commit ) THEN
1629: -- Standard Start of API savepoint
1630: SAVEPOINT IMPL_REV_ITEM_ATTR_CHGS;
1631: END IF;
1632:
1631: END IF;
1632:
1633:
1634: -- Initialize message list if p_init_msg_list is set to TRUE.
1635: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1636: FND_MSG_PUB.initialize;
1637: END IF;
1638:
1639: -- Open Debug Session by a give param or profile option.
2135: -- We don't support this in R12
2136: FND_MESSAGE.Set_Name('ENG','ENG_IMPL_INVALID_ACD_TYPE');
2137: FND_MESSAGE.Set_Token('ACD_TYPE', l_current_acd_type);
2138: FND_MSG_PUB.Add;
2139: RAISE FND_API.G_EXC_ERROR;
2140:
2141: END IF;
2142:
2143:
2151: ' BEGIN ' ||
2152: ' EGO_ITEM_PUB.Process_Item ' ||
2153: ' ( ' ||
2154: ' p_api_version => 1' ||
2155: ' ,p_init_msg_list => FND_API.G_FALSE ' ||
2156: ' ,p_commit => FND_API.G_FALSE ' ||
2157: ' ,p_transaction_type => :l_mode_for_current_row ' ||
2158: -- ' ,p_Language_Code => :l_current_row_language ' ||
2159: ' ,p_inventory_item_id => :l_inventory_item_id ' ||
2152: ' EGO_ITEM_PUB.Process_Item ' ||
2153: ' ( ' ||
2154: ' p_api_version => 1' ||
2155: ' ,p_init_msg_list => FND_API.G_FALSE ' ||
2156: ' ,p_commit => FND_API.G_FALSE ' ||
2157: ' ,p_transaction_type => :l_mode_for_current_row ' ||
2158: -- ' ,p_Language_Code => :l_current_row_language ' ||
2159: ' ,p_inventory_item_id => :l_inventory_item_id ' ||
2160: ' ,p_item_number => :l_item_number ' ||
2277: Write_Debug('l_out_inventory_item_id: ' || to_char(l_out_inventory_item_id));
2278: Write_Debug('l_out_organization_id: ' || to_char(l_out_organization_id));
2279: Write_Debug('---------------------------------- ' );
2280:
2281: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: ELSE
2284: -- Bug 6157001 Moved here - if l_return_status = 'S' Add history record only if process_item returns S
2285: -- History record was getting saved somehow even when the process_item is returning E and rollback is being executed.
2278: Write_Debug('l_out_organization_id: ' || to_char(l_out_organization_id));
2279: Write_Debug('---------------------------------- ' );
2280:
2281: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
2282: RAISE FND_API.G_EXC_ERROR;
2283: ELSE
2284: -- Bug 6157001 Moved here - if l_return_status = 'S' Add history record only if process_item returns S
2285: -- History record was getting saved somehow even when the process_item is returning E and rollback is being executed.
2286: -----------------------------------------------------------
2382: END IF;
2383:
2384: EXCEPTION
2385:
2386: WHEN FND_API.G_EXC_ERROR THEN
2387: x_return_status := l_return_status ;
2388: RAISE FND_API.G_EXC_ERROR;
2389:
2390: WHEN OTHERS THEN
2384: EXCEPTION
2385:
2386: WHEN FND_API.G_EXC_ERROR THEN
2387: x_return_status := l_return_status ;
2388: RAISE FND_API.G_EXC_ERROR;
2389:
2390: WHEN OTHERS THEN
2391:
2392: FND_MSG_PUB.Add_Exc_Msg
2400: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_PUB.Process_Item');
2401: FND_MSG_PUB.Add;
2402:
2403: Write_Debug('When Others Exception while calling EGO_ITEM_PUB.Process_Item' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
2404: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2405:
2406: END ;
2407:
2408:
2405:
2406: END ;
2407:
2408:
2409: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2410: THEN
2411:
2412: -- Get message list from Error_Hanlder
2413: Error_Handler.Get_Message_List(x_Message_List => l_message_list ) ;
2446: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2447: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_PUB.Process_Item');
2448: FND_MSG_PUB.Add;
2449:
2450: RAISE FND_API.G_EXC_ERROR ;
2451:
2452: END IF;
2453:
2454: END IF; -- l_mode_for_current_row <> 'SKIP'
2484: -- End of API body.
2485:
2486:
2487: -- Standard check of p_commit.
2488: IF FND_API.To_Boolean( l_commit ) THEN
2489:
2490: Write_Debug('Commit Item Attribute Change Implementation ');
2491:
2492: COMMIT WORK;
2503: -- Close Error Handler Debug Session.
2504: -----------------------------------------------------
2505: -- Close debug session only explicitly open the debug session for
2506: -- this API.
2507: IF FND_API.to_Boolean(p_debug)
2508: THEN
2509: Close_Debug_Session;
2510: END IF ;
2511:
2510: END IF ;
2511:
2512:
2513: EXCEPTION
2514: WHEN FND_API.G_EXC_ERROR THEN
2515: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_attr_changes');
2516:
2517: x_return_status := G_RET_STS_ERROR ;
2518:
2515: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_attr_changes');
2516:
2517: x_return_status := G_RET_STS_ERROR ;
2518:
2519: IF FND_API.To_Boolean( l_commit ) THEN
2520: Write_Debug('Rollback to IMPL_REV_ITEM_ATTR_CHGS Item Attribute Change Implementation ');
2521: ROLLBACK TO IMPL_REV_ITEM_ATTR_CHGS;
2522: END IF;
2523:
2535: -- Close Error Handler Debug Session.
2536: -----------------------------------------------------
2537: -- Close debug session only explicitly open the debug session for
2538: -- this API.
2539: IF FND_API.to_Boolean(p_debug)
2540: THEN
2541: Close_Debug_Session;
2542: END IF ;
2543:
2540: THEN
2541: Close_Debug_Session;
2542: END IF ;
2543:
2544: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2545: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_attr_changes');
2546:
2547: x_return_status := G_RET_STS_UNEXP_ERROR ;
2548:
2545: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_attr_changes');
2546:
2547: x_return_status := G_RET_STS_UNEXP_ERROR ;
2548:
2549: IF FND_API.To_Boolean( l_commit ) THEN
2550: Write_Debug('Rollback to IMPL_REV_ITEM_ATTR_CHGS Item Attribute Change Implementation ');
2551: ROLLBACK TO IMPL_REV_ITEM_ATTR_CHGS;
2552: END IF;
2553:
2565: -- Close Error Handler Debug Session.
2566: -----------------------------------------------------
2567: -- Close debug session only explicitly open the debug session for
2568: -- this API.
2569: IF FND_API.to_Boolean(p_debug)
2570: THEN
2571: Close_Debug_Session;
2572: END IF ;
2573:
2577: x_return_status := G_RET_STS_UNEXP_ERROR ;
2578:
2579: Write_Debug('Rollback to IMPL_REV_ITEM_ATTR_CHGS Item Attribute Change Implementation ');
2580:
2581: IF FND_API.To_Boolean( l_commit ) THEN
2582: Write_Debug('Rollback to IMPL_REV_ITEM_ATTR_CHGS Item Attribute Change Implementation ');
2583: ROLLBACK TO IMPL_REV_ITEM_ATTR_CHGS;
2584: END IF;
2585:
2610: -- Close Error Handler Debug Session.
2611: -----------------------------------------------------
2612: -- Close debug session only explicitly open the debug session for
2613: -- this API.
2614: IF FND_API.to_Boolean(p_debug)
2615: THEN
2616: Close_Debug_Session;
2617: END IF ;
2618:
2623:
2624:
2625: PROCEDURE impl_rev_item_aml_changes
2626: ( p_api_version IN NUMBER
2627: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
2628: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
2629: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
2630: , x_return_status OUT NOCOPY VARCHAR2
2631: , x_msg_count OUT NOCOPY NUMBER
2624:
2625: PROCEDURE impl_rev_item_aml_changes
2626: ( p_api_version IN NUMBER
2627: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
2628: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
2629: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
2630: , x_return_status OUT NOCOPY VARCHAR2
2631: , x_msg_count OUT NOCOPY NUMBER
2632: , x_msg_data OUT NOCOPY VARCHAR2
2625: PROCEDURE impl_rev_item_aml_changes
2626: ( p_api_version IN NUMBER
2627: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
2628: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
2629: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
2630: , x_return_status OUT NOCOPY VARCHAR2
2631: , x_msg_count OUT NOCOPY NUMBER
2632: , x_msg_data OUT NOCOPY VARCHAR2
2633: , p_api_caller IN VARCHAR2 := NULL
2630: , x_return_status OUT NOCOPY VARCHAR2
2631: , x_msg_count OUT NOCOPY NUMBER
2632: , x_msg_data OUT NOCOPY VARCHAR2
2633: , p_api_caller IN VARCHAR2 := NULL
2634: , p_debug IN VARCHAR2 := NULL -- FND_API.G_FALSE
2635: , p_output_dir IN VARCHAR2 := NULL
2636: , p_debug_filename IN VARCHAR2 := NULL
2637: , p_change_id IN NUMBER := NULL
2638: , p_change_line_id IN NUMBER
2663: BEGIN
2664:
2665:
2666: -- Standard call to check for call compatibility.
2667: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
2668: p_api_version ,
2669: l_api_name ,
2670: G_PKG_NAME )
2671: THEN
2668: p_api_version ,
2669: l_api_name ,
2670: G_PKG_NAME )
2671: THEN
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
2676: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
2671: THEN
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
2676: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
2677: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
2678:
2679: IF FND_API.To_Boolean( l_commit ) THEN
2672: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2673: END IF;
2674:
2675: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
2676: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
2677: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
2678:
2679: IF FND_API.To_Boolean( l_commit ) THEN
2680: -- Standard Start of API savepoint
2673: END IF;
2674:
2675: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
2676: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
2677: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
2678:
2679: IF FND_API.To_Boolean( l_commit ) THEN
2680: -- Standard Start of API savepoint
2681: SAVEPOINT IMPL_REV_ITEM_AML_CHANGES;
2675: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
2676: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
2677: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
2678:
2679: IF FND_API.To_Boolean( l_commit ) THEN
2680: -- Standard Start of API savepoint
2681: SAVEPOINT IMPL_REV_ITEM_AML_CHANGES;
2682: END IF;
2683:
2681: SAVEPOINT IMPL_REV_ITEM_AML_CHANGES;
2682: END IF;
2683:
2684: -- Initialize message list if p_init_msg_list is set to TRUE.
2685: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2686: FND_MSG_PUB.initialize;
2687: END IF;
2688:
2689: -- Open Debug Session by a give param or profile option.
2752:
2753: EXECUTE IMMEDIATE plsql_block USING
2754: '1',
2755: '',
2756: FND_API.G_FALSE,
2757: p_change_id,
2758: p_change_line_id,
2759: OUT l_return_status,
2760: OUT l_msg_count,
2784: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_AML_PUB.Implement_AML_Changes');
2785: FND_MSG_PUB.Add;
2786:
2787: Write_Debug('When Others Exception while calling EGO_ITEM_AML_PUB.Implement_AML_Changes:' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
2788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2789: END ;
2790:
2791: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2792: THEN
2787: Write_Debug('When Others Exception while calling EGO_ITEM_AML_PUB.Implement_AML_Changes:' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
2788: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2789: END ;
2790:
2791: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
2792: THEN
2793: x_return_status := l_return_status;
2794: x_msg_count := l_msg_count;
2795: x_msg_data := l_msg_data;
2803: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2804: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_AML_PUB.Implement_AML_Changes');
2805: FND_MSG_PUB.Add;
2806:
2807: RAISE FND_API.G_EXC_ERROR;
2808: END IF;
2809:
2810:
2811: -- End of API body.
2811: -- End of API body.
2812:
2813:
2814: -- Standard check of p_commit.
2815: IF FND_API.To_Boolean( p_commit ) THEN
2816: Write_Debug('COMMIT Item AML Changes implementation');
2817:
2818: COMMIT WORK;
2819: END IF;
2829: -- Close Error Handler Debug Session.
2830: -----------------------------------------------------
2831: -- Close debug session only explicitly open the debug session for
2832: -- this API.
2833: IF FND_API.to_Boolean(p_debug)
2834: THEN
2835: Close_Debug_Session;
2836: END IF ;
2837:
2836: END IF ;
2837:
2838:
2839: EXCEPTION
2840: WHEN FND_API.G_EXC_ERROR THEN
2841: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_aml_changes');
2842:
2843: x_return_status := G_RET_STS_ERROR ;
2844:
2841: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_aml_changes');
2842:
2843: x_return_status := G_RET_STS_ERROR ;
2844:
2845: IF FND_API.To_Boolean( l_commit ) THEN
2846: Write_Debug('ROLLBACK Item AML Changes implementation to IMPL_REV_ITEM_AML_CHANGES');
2847: ROLLBACK TO IMPL_REV_ITEM_AML_CHANGES;
2848: END IF;
2849:
2861: -- Close Error Handler Debug Session.
2862: -----------------------------------------------------
2863: -- Close debug session only explicitly open the debug session for
2864: -- this API.
2865: IF FND_API.to_Boolean(p_debug)
2866: THEN
2867: Close_Debug_Session;
2868: END IF ;
2869:
2866: THEN
2867: Close_Debug_Session;
2868: END IF ;
2869:
2870: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2871: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_aml_changes');
2872:
2873: x_return_status := G_RET_STS_UNEXP_ERROR ;
2874:
2871: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_aml_changes');
2872:
2873: x_return_status := G_RET_STS_UNEXP_ERROR ;
2874:
2875: IF FND_API.To_Boolean( l_commit ) THEN
2876: Write_Debug('ROLLBACK Item AML Changes implementation to IMPL_REV_ITEM_AML_CHANGES');
2877: ROLLBACK TO IMPL_REV_ITEM_AML_CHANGES;
2878: END IF;
2879:
2891: -- Close Error Handler Debug Session.
2892: -----------------------------------------------------
2893: -- Close debug session only explicitly open the debug session for
2894: -- this API.
2895: IF FND_API.to_Boolean(p_debug)
2896: THEN
2897: Close_Debug_Session;
2898: END IF ;
2899:
2901: Write_Debug('When OTHERS Exception in impl_rev_item_aml_changes');
2902:
2903: x_return_status := G_RET_STS_UNEXP_ERROR ;
2904:
2905: IF FND_API.To_Boolean( l_commit ) THEN
2906: Write_Debug('ROLLBACK Item AML Changes implementation to IMPL_REV_ITEM_AML_CHANGES');
2907: ROLLBACK TO IMPL_REV_ITEM_AML_CHANGES;
2908: END IF;
2909:
2933: -- Close Error Handler Debug Session.
2934: -----------------------------------------------------
2935: -- Close debug session only explicitly open the debug session for
2936: -- this API.
2937: IF FND_API.to_Boolean(p_debug)
2938: THEN
2939: Close_Debug_Session;
2940: END IF ;
2941:
2945:
2946:
2947: PROCEDURE impl_rev_item_gdsn_attr_chgs
2948: ( p_api_version IN NUMBER
2949: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
2950: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
2951: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
2952: , x_return_status OUT NOCOPY VARCHAR2
2953: , x_msg_count OUT NOCOPY NUMBER
2946:
2947: PROCEDURE impl_rev_item_gdsn_attr_chgs
2948: ( p_api_version IN NUMBER
2949: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
2950: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
2951: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
2952: , x_return_status OUT NOCOPY VARCHAR2
2953: , x_msg_count OUT NOCOPY NUMBER
2954: , x_msg_data OUT NOCOPY VARCHAR2
2947: PROCEDURE impl_rev_item_gdsn_attr_chgs
2948: ( p_api_version IN NUMBER
2949: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
2950: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
2951: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
2952: , x_return_status OUT NOCOPY VARCHAR2
2953: , x_msg_count OUT NOCOPY NUMBER
2954: , x_msg_data OUT NOCOPY VARCHAR2
2955: , p_api_caller IN VARCHAR2 := NULL
2952: , x_return_status OUT NOCOPY VARCHAR2
2953: , x_msg_count OUT NOCOPY NUMBER
2954: , x_msg_data OUT NOCOPY VARCHAR2
2955: , p_api_caller IN VARCHAR2 := NULL
2956: , p_debug IN VARCHAR2 := NULL -- FND_API.G_FALSE
2957: , p_output_dir IN VARCHAR2 := NULL
2958: , p_debug_filename IN VARCHAR2 := NULL
2959: , p_change_id IN NUMBER := NULL
2960: , p_change_line_id IN NUMBER
3074:
3075: BEGIN
3076:
3077: -- Standard call to check for call compatibility.
3078: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
3079: p_api_version ,
3080: l_api_name ,
3081: G_PKG_NAME )
3082: THEN
3079: p_api_version ,
3080: l_api_name ,
3081: G_PKG_NAME )
3082: THEN
3083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3084: END IF;
3085:
3086: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
3087: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
3082: THEN
3083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3084: END IF;
3085:
3086: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
3087: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
3088: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
3089:
3090:
3083: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3084: END IF;
3085:
3086: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
3087: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
3088: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
3089:
3090:
3091: IF FND_API.To_Boolean( l_commit ) THEN
3084: END IF;
3085:
3086: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
3087: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
3088: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
3089:
3090:
3091: IF FND_API.To_Boolean( l_commit ) THEN
3092: -- Standard Start of API savepoint
3087: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
3088: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
3089:
3090:
3091: IF FND_API.To_Boolean( l_commit ) THEN
3092: -- Standard Start of API savepoint
3093: SAVEPOINT IMPL_REV_ITEM_GDSN_ATTR_CHGS;
3094: END IF;
3095:
3093: SAVEPOINT IMPL_REV_ITEM_GDSN_ATTR_CHGS;
3094: END IF;
3095:
3096: -- Initialize message list if p_init_msg_list is set to TRUE.
3097: IF FND_API.to_Boolean( l_init_msg_list ) THEN
3098: FND_MSG_PUB.initialize;
3099: END IF;
3100:
3101: -- Open Debug Session by a give param or profile option.
3628: -- We don't support this in R12
3629: FND_MESSAGE.Set_Name('ENG','ENG_IMPL_INVALID_ACD_TYPE');
3630: FND_MESSAGE.Set_Token('ACD_TYPE', l_current_acd_type);
3631: FND_MSG_PUB.Add;
3632: RAISE FND_API.G_EXC_ERROR;
3633:
3634:
3635: END IF;
3636:
4091: -- We don't support this in R12
4092: FND_MESSAGE.Set_Name('ENG','ENG_IMPL_INVALID_ACD_TYPE');
4093: FND_MESSAGE.Set_Token('ACD_TYPE', l_current_acd_type);
4094: FND_MSG_PUB.Add;
4095: RAISE FND_API.G_EXC_ERROR;
4096:
4097: END IF;
4098:
4099:
4252: Write_Debug('Calling EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item . . . ' );
4253:
4254: EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item(
4255: p_api_version => p_api_version
4256: ,p_check_policy => FND_API.G_FALSE
4257: ,p_inventory_item_id => l_inventory_item_id
4258: ,p_organization_id => l_organization_id
4259: ,p_single_row_attrs_rec => l_single_row_attrs_rec
4260: ,p_multi_row_attrs_table => l_multi_row_attrs_tbl
4260: ,p_multi_row_attrs_table => l_multi_row_attrs_tbl
4261: ,p_entity_id => null
4262: ,p_entity_index => null
4263: ,p_entity_code => G_BO_IDENTIFIER
4264: ,p_init_error_handler => FND_API.G_FALSE
4265: ,p_commit => FND_API.G_FALSE
4266: ,x_return_status => l_return_status
4267: ,x_errorcode => l_errorcode
4268: ,x_msg_count => l_msg_count
4261: ,p_entity_id => null
4262: ,p_entity_index => null
4263: ,p_entity_code => G_BO_IDENTIFIER
4264: ,p_init_error_handler => FND_API.G_FALSE
4265: ,p_commit => FND_API.G_FALSE
4266: ,x_return_status => l_return_status
4267: ,x_errorcode => l_errorcode
4268: ,x_msg_count => l_msg_count
4269: ,x_msg_data => l_msg_data);
4282: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item');
4283: FND_MSG_PUB.Add;
4284:
4285: Write_Debug('When Others Exception while calling EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
4286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4287:
4288:
4289: END ;
4290:
4290:
4291:
4292: Write_Debug('After Calling EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item. Return Status: ' || l_return_status );
4293:
4294: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
4295: THEN
4296:
4297: Write_Debug('EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item failed . .. ' );
4298: Write_Debug('Output - Return Stattus: ' || l_return_status);
4310: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4311: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item');
4312: FND_MSG_PUB.Add;
4313:
4314: RAISE FND_API.G_EXC_ERROR ;
4315:
4316: END IF;
4317:
4318:
4363: -- End of API body.
4364:
4365:
4366: -- Standard check of p_commit.
4367: IF FND_API.To_Boolean( l_commit ) THEN
4368: Write_Debug('COMMIT Item GDSN Attribute Change Implementation');
4369: COMMIT WORK;
4370: END IF;
4371:
4380: -- Close Error Handler Debug Session.
4381: -----------------------------------------------------
4382: -- Close debug session only explicitly open the debug session for
4383: -- this API.
4384: IF FND_API.to_Boolean(p_debug)
4385: THEN
4386: Close_Debug_Session;
4387: END IF ;
4388:
4387: END IF ;
4388:
4389:
4390: EXCEPTION
4391: WHEN FND_API.G_EXC_ERROR THEN
4392: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_gdsn_attr_chgs');
4393:
4394: x_return_status := G_RET_STS_ERROR ;
4395:
4392: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_gdsn_attr_chgs');
4393:
4394: x_return_status := G_RET_STS_ERROR ;
4395:
4396: IF FND_API.To_Boolean( l_commit ) THEN
4397: Write_Debug('ROLLBACK Item GDSN Attribute Change Implementation TO IMPL_REV_ITEM_GDSN_ATTR_CHGS');
4398: ROLLBACK TO IMPL_REV_ITEM_GDSN_ATTR_CHGS;
4399: END IF;
4400:
4412: -- Close Error Handler Debug Session.
4413: -----------------------------------------------------
4414: -- Close debug session only explicitly open the debug session for
4415: -- this API.
4416: IF FND_API.to_Boolean(p_debug)
4417: THEN
4418: Close_Debug_Session;
4419: END IF ;
4420:
4417: THEN
4418: Close_Debug_Session;
4419: END IF ;
4420:
4421: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4422: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_gdsn_attr_chgs');
4423:
4424: x_return_status := G_RET_STS_UNEXP_ERROR ;
4425:
4422: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_gdsn_attr_chgs');
4423:
4424: x_return_status := G_RET_STS_UNEXP_ERROR ;
4425:
4426: IF FND_API.To_Boolean( l_commit ) THEN
4427: Write_Debug('ROLLBACK Item GDSN Attribute Change Implementation TO IMPL_REV_ITEM_GDSN_ATTR_CHGS');
4428: ROLLBACK TO IMPL_REV_ITEM_GDSN_ATTR_CHGS;
4429: END IF;
4430:
4442: -- Close Error Handler Debug Session.
4443: -----------------------------------------------------
4444: -- Close debug session only explicitly open the debug session for
4445: -- this API.
4446: IF FND_API.to_Boolean(p_debug)
4447: THEN
4448: Close_Debug_Session;
4449: END IF ;
4450:
4453: Write_Debug('When Others Exception in impl_rev_item_gdsn_attr_chgs');
4454:
4455: x_return_status := G_RET_STS_UNEXP_ERROR ;
4456:
4457: IF FND_API.To_Boolean( l_commit ) THEN
4458: Write_Debug('ROLLBACK Item GDSN Attribute Change Implementation TO IMPL_REV_ITEM_GDSN_ATTR_CHGS');
4459: ROLLBACK TO IMPL_REV_ITEM_GDSN_ATTR_CHGS;
4460: END IF;
4461:
4485: -- Close Error Handler Debug Session.
4486: -----------------------------------------------------
4487: -- Close debug session only explicitly open the debug session for
4488: -- this API.
4489: IF FND_API.to_Boolean(p_debug)
4490: THEN
4491: Close_Debug_Session;
4492: END IF ;
4493:
4505: ,p_change_line_id IN NUMBER
4506: ,p_old_data_level_nv_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
4507: ,p_new_data_level_nv_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
4508: ,p_related_class_code_function IN VARCHAR2
4509: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
4510: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
4511: ,x_return_status OUT NOCOPY VARCHAR2
4512: ,x_errorcode OUT NOCOPY NUMBER
4513: ,x_msg_count OUT NOCOPY NUMBER
4506: ,p_old_data_level_nv_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
4507: ,p_new_data_level_nv_pairs IN EGO_COL_NAME_VALUE_PAIR_ARRAY DEFAULT NULL
4508: ,p_related_class_code_function IN VARCHAR2
4509: ,p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE
4510: ,p_commit IN VARCHAR2 DEFAULT FND_API.G_FALSE
4511: ,x_return_status OUT NOCOPY VARCHAR2
4512: ,x_errorcode OUT NOCOPY NUMBER
4513: ,x_msg_count OUT NOCOPY NUMBER
4514: ,x_msg_data OUT NOCOPY VARCHAR2
4572: L_DATA_LEVEL_META_DATA EGO_DATA_LEVEL_METADATA_OBJ;
4573:
4574: BEGIN
4575:
4576: IF FND_API.To_Boolean( p_commit ) THEN
4577: -- Standard start of API savepoint
4578: SAVEPOINT Implement_Change_Line_PUB;
4579: END IF;
4580:
4578: SAVEPOINT Implement_Change_Line_PUB;
4579: END IF;
4580:
4581: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
4582: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
4583: FND_MSG_PUB.Initialize;
4584: ERROR_HANDLER.Initialize;
4585: END IF;
4586:
4584: ERROR_HANDLER.Initialize;
4585: END IF;
4586:
4587: -- Check for call compatibility
4588: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
4589: l_api_name, G_PKG_NAME)
4590: THEN
4591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4592: END IF;
4587: -- Check for call compatibility
4588: IF NOT FND_API.Compatible_API_Call (l_api_version, p_api_version,
4589: l_api_name, G_PKG_NAME)
4590: THEN
4591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4592: END IF;
4593:
4594: -----------------------------------
4595:
5638: END IF;
5639:
5640: Write_Debug('After Calling ENG_CHANGE_ATTR_UTIL.SETUP_IMPL_ATTR_DATA_ROW: Return Status: ' || x_return_status );
5641:
5642: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS)
5643: THEN
5644:
5645: Write_Debug('Raising error after ENG_CHANGE_ATTR_UTIL ' );
5646:
5643: THEN
5644:
5645: Write_Debug('Raising error after ENG_CHANGE_ATTR_UTIL ' );
5646:
5647: RAISE FND_API.G_EXC_ERROR;
5648: END IF;
5649:
5650:
5651: Write_Debug('Calling EGO_USER_ATTRS_DATA_PVT.Process_Row ' );
5682: ,p_extension_id => l_ext_id_for_current_row
5683: ,p_attr_name_value_pairs => l_impl_attr_name_value_pairs
5684: ,p_language_to_process => l_current_row_language
5685: ,p_mode => l_mode_for_current_row
5686: ,p_add_errors_to_fnd_stack => FND_API.G_TRUE
5687: ,x_return_status => x_return_status
5688: ,x_errorcode => x_errorcode
5689: ,x_msg_count => x_msg_count
5690: ,x_msg_data => x_msg_data
5692:
5693: Write_Debug('After Calling EGO_USER_ATTRS_DATA_PVT.Process_Row: Return Status: ' || x_return_status );
5694: L_PREV_EXT_ID := l_ext_id_for_current_row;
5695:
5696: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5697: RAISE FND_API.G_EXC_ERROR;
5698: END IF;
5699: END IF;
5700: END LOOP;
5693: Write_Debug('After Calling EGO_USER_ATTRS_DATA_PVT.Process_Row: Return Status: ' || x_return_status );
5694: L_PREV_EXT_ID := l_ext_id_for_current_row;
5695:
5696: IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
5697: RAISE FND_API.G_EXC_ERROR;
5698: END IF;
5699: END IF;
5700: END LOOP;
5701: DBMS_SQL.Close_Cursor(l_cursor_id);
5716:
5717: -----------------------------------
5718:
5719: -- Standard check of p_commit
5720: IF FND_API.To_Boolean(p_commit) THEN
5721: Write_Debug('COMMIT Implement_Change_Line');
5722: COMMIT WORK;
5723: END IF;
5724:
5721: Write_Debug('COMMIT Implement_Change_Line');
5722: COMMIT WORK;
5723: END IF;
5724:
5725: x_return_status := FND_API.G_RET_STS_SUCCESS;
5726:
5727: EXCEPTION
5728: WHEN FND_API.G_EXC_ERROR THEN
5729:
5724:
5725: x_return_status := FND_API.G_RET_STS_SUCCESS;
5726:
5727: EXCEPTION
5728: WHEN FND_API.G_EXC_ERROR THEN
5729:
5730: Write_Debug('When G_EXC_ERROR Exception in Implement_Change_Line');
5731:
5732: x_return_status := FND_API.G_RET_STS_ERROR;
5728: WHEN FND_API.G_EXC_ERROR THEN
5729:
5730: Write_Debug('When G_EXC_ERROR Exception in Implement_Change_Line');
5731:
5732: x_return_status := FND_API.G_RET_STS_ERROR;
5733:
5734: IF FND_API.To_Boolean( p_commit ) THEN
5735: Write_Debug('ROLLBACK TO Implement_Change_Line');
5736: ROLLBACK TO Implement_Change_Line_PUB;
5730: Write_Debug('When G_EXC_ERROR Exception in Implement_Change_Line');
5731:
5732: x_return_status := FND_API.G_RET_STS_ERROR;
5733:
5734: IF FND_API.To_Boolean( p_commit ) THEN
5735: Write_Debug('ROLLBACK TO Implement_Change_Line');
5736: ROLLBACK TO Implement_Change_Line_PUB;
5737: END IF;
5738:
5742: IF (x_msg_data IS NULL AND x_msg_count = 0) THEN
5743: ERROR_HANDLER.Add_Error_Message(
5744: p_message_name => 'EGO_EF_IMPLEMENT_ERR'
5745: ,p_application_id => 'EGO'
5746: ,p_message_type => FND_API.G_RET_STS_ERROR
5747: ,p_addto_fnd_stack => 'Y'
5748: );
5749: END IF;
5750:
5765:
5766: WHEN OTHERS THEN
5767: Write_Debug('When G_RET_STS_UNEXP_ERROR Exception in Implement_Change_Line');
5768:
5769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5770:
5771: IF FND_API.To_Boolean( p_commit ) THEN
5772: Write_Debug('ROLLBACK TO Implement_Change_Line');
5773: ROLLBACK TO Implement_Change_Line_PUB;
5767: Write_Debug('When G_RET_STS_UNEXP_ERROR Exception in Implement_Change_Line');
5768:
5769: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5770:
5771: IF FND_API.To_Boolean( p_commit ) THEN
5772: Write_Debug('ROLLBACK TO Implement_Change_Line');
5773: ROLLBACK TO Implement_Change_Line_PUB;
5774: END IF;
5775:
5789: ERROR_HANDLER.Add_Error_Message(
5790: p_message_name => 'EGO_PLSQL_ERR'
5791: ,p_application_id => 'EGO'
5792: ,p_token_tbl => l_token_table
5793: ,p_message_type => FND_API.G_RET_STS_ERROR
5794: ,p_addto_fnd_stack => 'Y'
5795: );
5796:
5797: ERROR_HANDLER.Get_Message(x_message_text => x_msg_data
5806:
5807:
5808: PROCEDURE impl_rev_item_user_attr_chgs
5809: ( p_api_version IN NUMBER
5810: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
5811: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
5812: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
5813: , x_return_status OUT NOCOPY VARCHAR2
5814: , x_msg_count OUT NOCOPY NUMBER
5807:
5808: PROCEDURE impl_rev_item_user_attr_chgs
5809: ( p_api_version IN NUMBER
5810: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
5811: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
5812: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
5813: , x_return_status OUT NOCOPY VARCHAR2
5814: , x_msg_count OUT NOCOPY NUMBER
5815: , x_msg_data OUT NOCOPY VARCHAR2
5808: PROCEDURE impl_rev_item_user_attr_chgs
5809: ( p_api_version IN NUMBER
5810: , p_init_msg_list IN VARCHAR2 := NULL -- FND_API.G_FALSE
5811: , p_commit IN VARCHAR2 := NULL -- FND_API.G_FALSE
5812: , p_validation_level IN NUMBER := NULL -- FND_API.G_VALID_LEVEL_FULL
5813: , x_return_status OUT NOCOPY VARCHAR2
5814: , x_msg_count OUT NOCOPY NUMBER
5815: , x_msg_data OUT NOCOPY VARCHAR2
5816: , p_api_caller IN VARCHAR2 := NULL
5813: , x_return_status OUT NOCOPY VARCHAR2
5814: , x_msg_count OUT NOCOPY NUMBER
5815: , x_msg_data OUT NOCOPY VARCHAR2
5816: , p_api_caller IN VARCHAR2 := NULL
5817: , p_debug IN VARCHAR2 := NULL -- FND_API.G_FALSE
5818: , p_output_dir IN VARCHAR2 := NULL
5819: , p_debug_filename IN VARCHAR2 := NULL
5820: , p_change_id IN NUMBER := NULL
5821: , p_change_line_id IN NUMBER
5853: BEGIN
5854:
5855:
5856: -- Standard call to check for call compatibility.
5857: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
5858: p_api_version ,
5859: l_api_name ,
5860: G_PKG_NAME )
5861: THEN
5858: p_api_version ,
5859: l_api_name ,
5860: G_PKG_NAME )
5861: THEN
5862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5863: END IF;
5864:
5865: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
5866: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
5861: THEN
5862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5863: END IF;
5864:
5865: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
5866: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
5867: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
5868:
5869:
5862: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5863: END IF;
5864:
5865: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
5866: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
5867: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
5868:
5869:
5870: -- Standard check of p_commit.
5863: END IF;
5864:
5865: l_init_msg_list := NVL(p_init_msg_list,FND_API.G_FALSE) ;
5866: l_validation_level := NVL(p_validation_level,FND_API.G_VALID_LEVEL_FULL) ;
5867: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
5868:
5869:
5870: -- Standard check of p_commit.
5871: IF FND_API.To_Boolean( l_commit ) THEN
5867: l_commit := NVL(p_commit,FND_API.G_FALSE) ;
5868:
5869:
5870: -- Standard check of p_commit.
5871: IF FND_API.To_Boolean( l_commit ) THEN
5872: -- Standard Start of API savepoint
5873: SAVEPOINT IMPL_REV_ITEM_USER_ATTR_CHGS;
5874: END IF;
5875:
5873: SAVEPOINT IMPL_REV_ITEM_USER_ATTR_CHGS;
5874: END IF;
5875:
5876: -- Initialize message list if p_init_msg_list is set to TRUE.
5877: IF FND_API.to_Boolean( l_init_msg_list ) THEN
5878: FND_MSG_PUB.initialize;
5879: END IF;
5880:
5881: -- Open Debug Session by a give param or profile option.
5988: ,p_change_line_id => l_change_line_id
5989: ,p_old_data_level_nv_pairs => l_old_data_level_nv_pairs
5990: ,p_new_data_level_nv_pairs => l_new_data_level_nv_pairs
5991: ,p_related_class_code_function => 'EGO_ITEM_USER_ATTRS_CP_PUB.Get_Related_Class_Codes'
5992: ,p_init_msg_list => FND_API.G_FALSE
5993: ,p_commit => FND_API.G_FALSE
5994: ,x_return_status => l_return_status
5995: ,x_errorcode => l_errorcode
5996: ,x_msg_count => l_msg_count
5989: ,p_old_data_level_nv_pairs => l_old_data_level_nv_pairs
5990: ,p_new_data_level_nv_pairs => l_new_data_level_nv_pairs
5991: ,p_related_class_code_function => 'EGO_ITEM_USER_ATTRS_CP_PUB.Get_Related_Class_Codes'
5992: ,p_init_msg_list => FND_API.G_FALSE
5993: ,p_commit => FND_API.G_FALSE
5994: ,x_return_status => l_return_status
5995: ,x_errorcode => l_errorcode
5996: ,x_msg_count => l_msg_count
5997: ,x_msg_data => l_msg_data
6011: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line');
6012: FND_MSG_PUB.Add;
6013:
6014: Write_Debug('When Others Exception while calling EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line:' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
6015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6016: END ;
6017:
6018: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
6019: THEN
6014: Write_Debug('When Others Exception while calling EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line:' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
6015: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6016: END ;
6017:
6018: IF (l_return_status <> FND_API.G_RET_STS_SUCCESS)
6019: THEN
6020:
6021: Write_Debug('Implement_Change_Line failed . .. ' );
6022: Write_Debug('Output - Return Stattus: ' || l_return_status);
6030: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6031: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line');
6032: FND_MSG_PUB.Add;
6033:
6034: RAISE FND_API.G_EXC_ERROR ;
6035: END IF;
6036:
6037:
6038: -- End of API body.
6038: -- End of API body.
6039:
6040:
6041: -- Standard check of p_commit.
6042: IF FND_API.To_Boolean( l_commit ) THEN
6043: COMMIT WORK;
6044: END IF;
6045:
6046: -- Standard call to get message count and if count is 1, get message info.
6054: -- Close Error Handler Debug Session.
6055: -----------------------------------------------------
6056: -- Close debug session only explicitly open the debug session for
6057: -- this API.
6058: IF FND_API.to_Boolean(p_debug)
6059: THEN
6060: Close_Debug_Session;
6061: END IF ;
6062:
6061: END IF ;
6062:
6063:
6064: EXCEPTION
6065: WHEN FND_API.G_EXC_ERROR THEN
6066: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_user_attr_chgs');
6067: x_return_status := G_RET_STS_ERROR ;
6068:
6069: IF FND_API.To_Boolean( l_commit ) THEN
6065: WHEN FND_API.G_EXC_ERROR THEN
6066: Write_Debug('When G_EXC_ERROR Exception in impl_rev_item_user_attr_chgs');
6067: x_return_status := G_RET_STS_ERROR ;
6068:
6069: IF FND_API.To_Boolean( l_commit ) THEN
6070: Write_Debug('ROLLBACK Item User Attribute Change Implementation TO IMPL_REV_ITEM_USER_ATTR_CHGS');
6071: ROLLBACK TO IMPL_REV_ITEM_USER_ATTR_CHGS;
6072: END IF;
6073:
6085: -- Close Error Handler Debug Session.
6086: -----------------------------------------------------
6087: -- Close debug session only explicitly open the debug session for
6088: -- this API.
6089: IF FND_API.to_Boolean(p_debug)
6090: THEN
6091: Close_Debug_Session;
6092: END IF ;
6093:
6090: THEN
6091: Close_Debug_Session;
6092: END IF ;
6093:
6094: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6095:
6096: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_user_attr_chgs');
6097: x_return_status := G_RET_STS_UNEXP_ERROR ;
6098:
6095:
6096: Write_Debug('When G_EXC_UNEXPECTED_ERROR Exception in impl_rev_item_user_attr_chgs');
6097: x_return_status := G_RET_STS_UNEXP_ERROR ;
6098:
6099: IF FND_API.To_Boolean( l_commit ) THEN
6100: Write_Debug('ROLLBACK Item User Attribute Change Implementation TO IMPL_REV_ITEM_USER_ATTR_CHGS');
6101: ROLLBACK TO IMPL_REV_ITEM_USER_ATTR_CHGS;
6102: END IF;
6103:
6116: -- Close Error Handler Debug Session.
6117: -----------------------------------------------------
6118: -- Close debug session only explicitly open the debug session for
6119: -- this API.
6120: IF FND_API.to_Boolean(p_debug)
6121: THEN
6122: Close_Debug_Session;
6123: END IF ;
6124:
6126:
6127: Write_Debug('When Others Exception in impl_rev_item_user_attr_chgs');
6128: x_return_status := G_RET_STS_UNEXP_ERROR ;
6129:
6130: IF FND_API.To_Boolean( l_commit ) THEN
6131: Write_Debug('ROLLBACK Item User Attribute Change Implementation TO IMPL_REV_ITEM_USER_ATTR_CHGS');
6132: ROLLBACK TO IMPL_REV_ITEM_USER_ATTR_CHGS;
6133: END IF;
6134:
6159: -- Close Error Handler Debug Session.
6160: -----------------------------------------------------
6161: -- Close debug session only explicitly open the debug session for
6162: -- this API.
6163: IF FND_API.to_Boolean(p_debug)
6164: THEN
6165: Close_Debug_Session;
6166: END IF ;
6167: