430: THEN
431:
432: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
433: FND_MESSAGE.Set_Token('OBJECT_NAME', 'GetChangeId:'|| 'no change Id');
434: FND_MSG_PUB.Add;
435: RAISE FND_API.G_EXC_ERROR;
436:
437: END IF ;
438:
1157:
1158:
1159: -- Initialize message list if p_init_msg_list is set to TRUE.
1160: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1161: FND_MSG_PUB.initialize;
1162: END IF;
1163:
1164: -- Open Debug Session by a give param or profile option.
1165: Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1231: x_msg_count := l_msg_count;
1232: x_msg_data := l_msg_data;
1233: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1234: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_user_attr_chgs');
1235: FND_MSG_PUB.Add;
1236:
1237: RAISE FND_API.G_EXC_ERROR;
1238:
1239: END IF;
1291: x_msg_count := l_msg_count;
1292: x_msg_data := l_msg_data;
1293: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1294: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs');
1295: FND_MSG_PUB.Add;
1296:
1297: RAISE FND_API.G_EXC_ERROR;
1298:
1299: END IF;
1325: x_msg_data := l_msg_data;
1326:
1327: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1328: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes');
1329: FND_MSG_PUB.Add;
1330:
1331: RAISE FND_API.G_EXC_ERROR;
1332:
1333: END IF;
1346: COMMIT WORK;
1347: END IF;
1348:
1349: -- Standard call to get message count and if count is 1, get message info.
1350: FND_MSG_PUB.Count_And_Get
1351: ( p_count => x_msg_count ,
1352: p_data => x_msg_data
1353: );
1354:
1352: p_data => x_msg_data
1353: );
1354:
1355:
1356: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1357:
1358: Write_Debug('Dumping Message number : '|| I );
1359: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1360:
1355:
1356: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1357:
1358: Write_Debug('Dumping Message number : '|| I );
1359: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1360:
1361: END LOOP;
1362:
1363:
1381: Write_Debug('ROLLBACK Impl Item Changes to IMPL_ITEM_CHANGES. . ');
1382: ROLLBACK TO IMPL_ITEM_CHANGES;
1383: END IF;
1384:
1385: FND_MSG_PUB.Count_And_Get
1386: ( p_count => x_msg_count ,
1387: p_data => x_msg_data
1388: );
1389:
1389:
1390:
1391:
1392:
1393: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1394:
1395: Write_Debug('Dumping Message number : '|| I );
1396: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1397:
1392:
1393: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1394:
1395: Write_Debug('Dumping Message number : '|| I );
1396: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1397:
1398: END LOOP;
1399:
1400:
1412: Write_Debug('ROLLBACK Impl Item Changes to IMPL_ITEM_CHANGES. . ');
1413: ROLLBACK TO IMPL_ITEM_CHANGES;
1414: END IF;
1415:
1416: FND_MSG_PUB.Count_And_Get
1417: ( p_count => x_msg_count ,
1418: p_data => x_msg_data
1419: );
1420:
1418: p_data => x_msg_data
1419: );
1420:
1421:
1422: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1423:
1424: Write_Debug('Dumping Message number : '|| I );
1425: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1426:
1421:
1422: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1423:
1424: Write_Debug('Dumping Message number : '|| I );
1425: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1426:
1427: END LOOP;
1428:
1429: -----------------------------------------------------
1443: Write_Debug('When Others Exception ' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
1444:
1445: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1446: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_item_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
1447: FND_MSG_PUB.Add;
1448:
1449:
1450: IF FND_MSG_PUB.Check_Msg_Level
1451: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1446: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_item_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
1447: FND_MSG_PUB.Add;
1448:
1449:
1450: IF FND_MSG_PUB.Check_Msg_Level
1451: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1452: THEN
1453: FND_MSG_PUB.Add_Exc_Msg
1454: ( G_PKG_NAME ,
1447: FND_MSG_PUB.Add;
1448:
1449:
1450: IF FND_MSG_PUB.Check_Msg_Level
1451: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1452: THEN
1453: FND_MSG_PUB.Add_Exc_Msg
1454: ( G_PKG_NAME ,
1455: l_api_name
1449:
1450: IF FND_MSG_PUB.Check_Msg_Level
1451: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1452: THEN
1453: FND_MSG_PUB.Add_Exc_Msg
1454: ( G_PKG_NAME ,
1455: l_api_name
1456: );
1457: END IF;
1455: l_api_name
1456: );
1457: END IF;
1458:
1459: FND_MSG_PUB.Count_And_Get
1460: ( p_count => x_msg_count ,
1461: p_data => x_msg_data
1462: );
1463:
1461: p_data => x_msg_data
1462: );
1463:
1464:
1465: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1466:
1467: Write_Debug('Dumping Message number : '|| I );
1468: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1469:
1464:
1465: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
1466:
1467: Write_Debug('Dumping Message number : '|| I );
1468: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
1469:
1470: END LOOP;
1471:
1472:
1641:
1642:
1643: -- Initialize message list if p_init_msg_list is set to TRUE.
1644: IF FND_API.to_Boolean( l_init_msg_list ) THEN
1645: FND_MSG_PUB.initialize;
1646: END IF;
1647:
1648: -- Open Debug Session by a give param or profile option.
1649: Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
2143:
2144: -- We don't support this in R12
2145: FND_MESSAGE.Set_Name('ENG','ENG_IMPL_INVALID_ACD_TYPE');
2146: FND_MESSAGE.Set_Token('ACD_TYPE', l_current_acd_type);
2147: FND_MSG_PUB.Add;
2148: RAISE FND_API.G_EXC_ERROR;
2149:
2150: END IF;
2151:
2372: RAISE FND_API.G_EXC_ERROR;
2373:
2374: WHEN OTHERS THEN
2375:
2376: FND_MSG_PUB.Add_Exc_Msg
2377: ( p_pkg_name => 'EGO_ITEM_PUB' ,
2378: p_procedure_name => 'Process_Item',
2379: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
2380: );
2381:
2382:
2383: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2384: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_PUB.Process_Item');
2385: FND_MSG_PUB.Add;
2386:
2387: Write_Debug('When Others Exception while calling EGO_ITEM_PUB.Process_Item' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
2388: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2389:
2398: l_msg_index := l_message_list.FIRST ;
2399:
2400: WHILE l_msg_index IS NOT NULL
2401: LOOP
2402: FND_MSG_PUB.Add_Exc_Msg
2403: ( p_pkg_name => null ,
2404: p_procedure_name => null ,
2405: p_error_text => l_message_list(l_msg_index).message_text
2406: );
2408: l_msg_index := l_message_list.NEXT(l_msg_index);
2409:
2410: END LOOP;
2411:
2412: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
2413:
2414: -- FND_MSG_PUB.dump_Msg(I);
2415: Write_Debug('Dumping Message number : '|| I );
2416: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
2410: END LOOP;
2411:
2412: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
2413:
2414: -- FND_MSG_PUB.dump_Msg(I);
2415: Write_Debug('Dumping Message number : '|| I );
2416: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
2417:
2418: END LOOP;
2412: FOR I IN 1..FND_MSG_PUB.Count_Msg LOOP
2413:
2414: -- FND_MSG_PUB.dump_Msg(I);
2415: Write_Debug('Dumping Message number : '|| I );
2416: Write_Debug('DATA = '||replace(substr(FND_MSG_PUB.Get(I), 1, 200), chr(0), ' '));
2417:
2418: END LOOP;
2419:
2420:
2428: Write_Debug('Output - Return Stattus: ' || substr(l_msg_data,1,200));
2429:
2430: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2431: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_PUB.Process_Item');
2432: FND_MSG_PUB.Add;
2433:
2434: RAISE FND_API.G_EXC_ERROR ;
2435:
2436: END IF;
2476: COMMIT WORK;
2477: END IF;
2478:
2479: -- Standard call to get message count and if count is 1, get message info.
2480: FND_MSG_PUB.Count_And_Get
2481: ( p_count => x_msg_count ,
2482: p_data => x_msg_data
2483: );
2484:
2506: --END IF;
2507:
2508: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2509: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2510: FND_MSG_PUB.Add;
2511:
2512:
2513: FND_MSG_PUB.Count_And_Get
2514: ( p_count => x_msg_count ,
2509: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2510: FND_MSG_PUB.Add;
2511:
2512:
2513: FND_MSG_PUB.Count_And_Get
2514: ( p_count => x_msg_count ,
2515: p_data => x_msg_data
2516: );
2517:
2537:
2538:
2539: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2540: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2541: FND_MSG_PUB.Add;
2542:
2543: FND_MSG_PUB.Count_And_Get
2544: ( p_count => x_msg_count ,
2545: p_data => x_msg_data
2539: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2540: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2541: FND_MSG_PUB.Add;
2542:
2543: FND_MSG_PUB.Count_And_Get
2544: ( p_count => x_msg_count ,
2545: p_data => x_msg_data
2546: );
2547:
2572:
2573:
2574: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2575: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2576: FND_MSG_PUB.Add;
2577:
2578:
2579: IF FND_MSG_PUB.Check_Msg_Level
2580: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2575: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2576: FND_MSG_PUB.Add;
2577:
2578:
2579: IF FND_MSG_PUB.Check_Msg_Level
2580: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2581: THEN
2582: FND_MSG_PUB.Add_Exc_Msg
2583: ( G_PKG_NAME ,
2576: FND_MSG_PUB.Add;
2577:
2578:
2579: IF FND_MSG_PUB.Check_Msg_Level
2580: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2581: THEN
2582: FND_MSG_PUB.Add_Exc_Msg
2583: ( G_PKG_NAME ,
2584: l_api_name
2578:
2579: IF FND_MSG_PUB.Check_Msg_Level
2580: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2581: THEN
2582: FND_MSG_PUB.Add_Exc_Msg
2583: ( G_PKG_NAME ,
2584: l_api_name
2585: );
2586: END IF;
2584: l_api_name
2585: );
2586: END IF;
2587:
2588: FND_MSG_PUB.Count_And_Get
2589: ( p_count => x_msg_count ,
2590: p_data => x_msg_data
2591: );
2592:
2666: END IF;
2667:
2668: -- Initialize message list if p_init_msg_list is set to TRUE.
2669: IF FND_API.to_Boolean( l_init_msg_list ) THEN
2670: FND_MSG_PUB.initialize;
2671: END IF;
2672:
2673: -- Open Debug Session by a give param or profile option.
2674: Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
2746:
2747: Write_Debug('After calling EGO_ITEM_AML_PUB.Implement_AML_Changes for Return Status: ' || l_return_status);
2748: IF l_msg_count > 1 THEN
2749: for i in 1..l_msg_count loop
2750: Write_Debug(' msg no '||i ||': '|| fnd_msg_pub.Get(p_msg_index => i,p_encoded => 'F'));
2751: end loop;
2752: else
2753: Write_Debug('Implement_AML_Changes Error message : ' || l_msg_data);
2754: END IF;
2756:
2757: EXCEPTION
2758: WHEN OTHERS THEN
2759:
2760: FND_MSG_PUB.Add_Exc_Msg
2761: ( p_pkg_name => 'EGO_ITEM_AML_PUB' ,
2762: p_procedure_name => 'Implement_AML_Changes',
2763: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
2764: );
2765:
2766:
2767: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2768: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_AML_PUB.Implement_AML_Changes');
2769: FND_MSG_PUB.Add;
2770:
2771: Write_Debug('When Others Exception while calling EGO_ITEM_AML_PUB.Implement_AML_Changes:' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
2772: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2773: END ;
2785:
2786:
2787: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2788: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_ITEM_AML_PUB.Implement_AML_Changes');
2789: FND_MSG_PUB.Add;
2790:
2791: RAISE FND_API.G_EXC_ERROR;
2792: END IF;
2793:
2802: COMMIT WORK;
2803: END IF;
2804:
2805: -- Standard call to get message count and if count is 1, get message info.
2806: FND_MSG_PUB.Count_And_Get
2807: ( p_count => x_msg_count ,
2808: p_data => x_msg_data
2809: );
2810:
2832: END IF;
2833:
2834: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2835: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2836: FND_MSG_PUB.Add;
2837:
2838:
2839: FND_MSG_PUB.Count_And_Get
2840: ( p_count => x_msg_count ,
2835: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2836: FND_MSG_PUB.Add;
2837:
2838:
2839: FND_MSG_PUB.Count_And_Get
2840: ( p_count => x_msg_count ,
2841: p_data => x_msg_data
2842: );
2843:
2863:
2864:
2865: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2866: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2867: FND_MSG_PUB.Add;
2868:
2869: FND_MSG_PUB.Count_And_Get
2870: ( p_count => x_msg_count ,
2871: p_data => x_msg_data
2865: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2866: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2867: FND_MSG_PUB.Add;
2868:
2869: FND_MSG_PUB.Count_And_Get
2870: ( p_count => x_msg_count ,
2871: p_data => x_msg_data
2872: );
2873:
2895: Write_Debug('When Others Exception ' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
2896:
2897: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2898: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2899: FND_MSG_PUB.Add;
2900:
2901:
2902: IF FND_MSG_PUB.Check_Msg_Level
2903: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2898: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_aml_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
2899: FND_MSG_PUB.Add;
2900:
2901:
2902: IF FND_MSG_PUB.Check_Msg_Level
2903: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2904: THEN
2905: FND_MSG_PUB.Add_Exc_Msg
2906: ( G_PKG_NAME ,
2899: FND_MSG_PUB.Add;
2900:
2901:
2902: IF FND_MSG_PUB.Check_Msg_Level
2903: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2904: THEN
2905: FND_MSG_PUB.Add_Exc_Msg
2906: ( G_PKG_NAME ,
2907: l_api_name
2901:
2902: IF FND_MSG_PUB.Check_Msg_Level
2903: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
2904: THEN
2905: FND_MSG_PUB.Add_Exc_Msg
2906: ( G_PKG_NAME ,
2907: l_api_name
2908: );
2909: END IF;
2907: l_api_name
2908: );
2909: END IF;
2910:
2911: FND_MSG_PUB.Count_And_Get
2912: ( p_count => x_msg_count ,
2913: p_data => x_msg_data
2914: );
2915:
3078: END IF;
3079:
3080: -- Initialize message list if p_init_msg_list is set to TRUE.
3081: IF FND_API.to_Boolean( l_init_msg_list ) THEN
3082: FND_MSG_PUB.initialize;
3083: END IF;
3084:
3085: -- Open Debug Session by a give param or profile option.
3086: Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3611:
3612: -- We don't support this in R12
3613: FND_MESSAGE.Set_Name('ENG','ENG_IMPL_INVALID_ACD_TYPE');
3614: FND_MESSAGE.Set_Token('ACD_TYPE', l_current_acd_type);
3615: FND_MSG_PUB.Add;
3616: RAISE FND_API.G_EXC_ERROR;
3617:
3618:
3619: END IF;
4074:
4075: -- We don't support this in R12
4076: FND_MESSAGE.Set_Name('ENG','ENG_IMPL_INVALID_ACD_TYPE');
4077: FND_MESSAGE.Set_Token('ACD_TYPE', l_current_acd_type);
4078: FND_MSG_PUB.Add;
4079: RAISE FND_API.G_EXC_ERROR;
4080:
4081: END IF;
4082:
4255:
4256: EXCEPTION
4257: WHEN OTHERS THEN
4258:
4259: FND_MSG_PUB.Add_Exc_Msg
4260: ( p_pkg_name => 'EGO_GTIN_ATTRS_PVT' ,
4261: p_procedure_name => 'Process_UCCnet_Attrs_For_Item',
4262: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
4263: );
4263: );
4264:
4265: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4266: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item');
4267: FND_MSG_PUB.Add;
4268:
4269: Write_Debug('When Others Exception while calling EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
4270: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4271:
4282: Write_Debug('Output - Return Stattus: ' || l_return_status);
4283: Write_Debug('Output - Return Stattus: ' || to_char(l_msg_count));
4284: -- Write_Debug('Output - Return Stattus: ' || substr(l_msg_data,1,200));
4285: FOR cnt IN 1..l_msg_count LOOP
4286: Write_Debug('Error msg - '||cnt ||': '|| FND_MSG_PUB.Get(p_msg_index => cnt, p_encoded => 'F'));
4287: END LOOP;
4288:
4289:
4290:
4292: x_msg_count := l_msg_count;
4293: x_msg_data := l_msg_data;
4294: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4295: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_GTIN_ATTRS_PVT.Process_UCCnet_Attrs_For_Item');
4296: FND_MSG_PUB.Add;
4297:
4298: RAISE FND_API.G_EXC_ERROR ;
4299:
4300: END IF;
4353: COMMIT WORK;
4354: END IF;
4355:
4356: -- Standard call to get message count and if count is 1, get message info.
4357: FND_MSG_PUB.Count_And_Get
4358: ( p_count => x_msg_count ,
4359: p_data => x_msg_data
4360: );
4361:
4383: END IF;
4384:
4385: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4386: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
4387: FND_MSG_PUB.Add;
4388:
4389:
4390: FND_MSG_PUB.Count_And_Get
4391: ( p_count => x_msg_count ,
4386: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
4387: FND_MSG_PUB.Add;
4388:
4389:
4390: FND_MSG_PUB.Count_And_Get
4391: ( p_count => x_msg_count ,
4392: p_data => x_msg_data
4393: );
4394:
4414:
4415:
4416: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4417: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
4418: FND_MSG_PUB.Add;
4419:
4420: FND_MSG_PUB.Count_And_Get
4421: ( p_count => x_msg_count ,
4422: p_data => x_msg_data
4416: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4417: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
4418: FND_MSG_PUB.Add;
4419:
4420: FND_MSG_PUB.Count_And_Get
4421: ( p_count => x_msg_count ,
4422: p_data => x_msg_data
4423: );
4424:
4447: Write_Debug('When Others Exception ' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
4448:
4449: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4450: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
4451: FND_MSG_PUB.Add;
4452:
4453:
4454: IF FND_MSG_PUB.Check_Msg_Level
4455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4450: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_gdsn_attr_chgs for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
4451: FND_MSG_PUB.Add;
4452:
4453:
4454: IF FND_MSG_PUB.Check_Msg_Level
4455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4456: THEN
4457: FND_MSG_PUB.Add_Exc_Msg
4458: ( G_PKG_NAME ,
4451: FND_MSG_PUB.Add;
4452:
4453:
4454: IF FND_MSG_PUB.Check_Msg_Level
4455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4456: THEN
4457: FND_MSG_PUB.Add_Exc_Msg
4458: ( G_PKG_NAME ,
4459: l_api_name
4453:
4454: IF FND_MSG_PUB.Check_Msg_Level
4455: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
4456: THEN
4457: FND_MSG_PUB.Add_Exc_Msg
4458: ( G_PKG_NAME ,
4459: l_api_name
4460: );
4461: END IF;
4459: l_api_name
4460: );
4461: END IF;
4462:
4463: FND_MSG_PUB.Count_And_Get
4464: ( p_count => x_msg_count ,
4465: p_data => x_msg_data
4466: );
4467:
4561: -- Standard start of API savepoint
4562: SAVEPOINT Implement_Change_Line_PUB;
4563: --END IF;
4564:
4565: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
4566: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
4567: FND_MSG_PUB.Initialize;
4568: ERROR_HANDLER.Initialize;
4569: END IF;
4563: --END IF;
4564:
4565: -- Initialize FND_MSG_PUB and ERROR_HANDLER if necessary
4566: IF (FND_API.To_Boolean(p_init_msg_list)) THEN
4567: FND_MSG_PUB.Initialize;
4568: ERROR_HANDLER.Initialize;
4569: END IF;
4570:
4571: -- Check for call compatibility
5912: END IF;
5913:
5914: -- Initialize message list if p_init_msg_list is set to TRUE.
5915: IF FND_API.to_Boolean( l_init_msg_list ) THEN
5916: FND_MSG_PUB.initialize;
5917: END IF;
5918:
5919: -- Open Debug Session by a give param or profile option.
5920: Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6037:
6038: EXCEPTION
6039: WHEN OTHERS THEN
6040:
6041: FND_MSG_PUB.Add_Exc_Msg
6042: ( p_pkg_name => 'EGO_USER_ATTRS_DATA_PVT' ,
6043: p_procedure_name => 'Implement_Change_Line',
6044: p_error_text => Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240)
6045: );
6046:
6047:
6048: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6049: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line');
6050: FND_MSG_PUB.Add;
6051:
6052: Write_Debug('When Others Exception while calling EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line:' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
6053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6054: END ;
6066: x_msg_count := l_msg_count;
6067: x_msg_data := l_msg_data;
6068: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6069: FND_MESSAGE.Set_Token('OBJECT_NAME', 'EGO_USER_ATTRS_DATA_PVT.Implement_Change_Line');
6070: FND_MSG_PUB.Add;
6071:
6072: RAISE FND_API.G_EXC_ERROR ;
6073: END IF;
6074:
6081: COMMIT WORK;
6082: END IF;
6083:
6084: -- Standard call to get message count and if count is 1, get message info.
6085: FND_MSG_PUB.Count_And_Get
6086: ( p_count => x_msg_count ,
6087: p_data => x_msg_data
6088: );
6089:
6110: END IF;
6111:
6112: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6113: FND_MESSAGE.Set_Token('OBJECT_NAME', 'impl_rev_item_attr_changes'|| 'error code '||l_errorcode);
6114: FND_MSG_PUB.Add;
6115:
6116:
6117: FND_MSG_PUB.Count_And_Get
6118: ( p_count => x_msg_count ,
6113: FND_MESSAGE.Set_Token('OBJECT_NAME', 'impl_rev_item_attr_changes'|| 'error code '||l_errorcode);
6114: FND_MSG_PUB.Add;
6115:
6116:
6117: FND_MSG_PUB.Count_And_Get
6118: ( p_count => x_msg_count ,
6119: p_data => x_msg_data
6120: );
6121:
6141:
6142:
6143: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6144: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
6145: FND_MSG_PUB.Add;
6146:
6147:
6148: FND_MSG_PUB.Count_And_Get
6149: ( p_count => x_msg_count ,
6144: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
6145: FND_MSG_PUB.Add;
6146:
6147:
6148: FND_MSG_PUB.Count_And_Get
6149: ( p_count => x_msg_count ,
6150: p_data => x_msg_data
6151: );
6152:
6175: Write_Debug('When Others Exception ' || Substr(To_Char(SQLCODE)||'/'||SQLERRM,1,240));
6176:
6177: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6178: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
6179: FND_MSG_PUB.Add;
6180:
6181:
6182: IF FND_MSG_PUB.Check_Msg_Level
6183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6178: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_IMPL_ITEM_CHANGES_PKG.impl_rev_item_attr_changes for ChangeId: '||l_change_id || '- ChangeLineId: '||l_change_line_id);
6179: FND_MSG_PUB.Add;
6180:
6181:
6182: IF FND_MSG_PUB.Check_Msg_Level
6183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6184: THEN
6185: FND_MSG_PUB.Add_Exc_Msg
6186: ( G_PKG_NAME ,
6179: FND_MSG_PUB.Add;
6180:
6181:
6182: IF FND_MSG_PUB.Check_Msg_Level
6183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6184: THEN
6185: FND_MSG_PUB.Add_Exc_Msg
6186: ( G_PKG_NAME ,
6187: l_api_name
6181:
6182: IF FND_MSG_PUB.Check_Msg_Level
6183: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
6184: THEN
6185: FND_MSG_PUB.Add_Exc_Msg
6186: ( G_PKG_NAME ,
6187: l_api_name
6188: );
6189: END IF;
6187: l_api_name
6188: );
6189: END IF;
6190:
6191: FND_MSG_PUB.Count_And_Get
6192: ( p_count => x_msg_count ,
6193: p_data => x_msg_data
6194: );
6195: