[Home] [Help]
633: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
634: END IF;
635: -- Initialize message list if p_init_msg_list is set to TRUE.
636: IF FND_API.to_Boolean( p_init_msg_list ) THEN
637: FND_MSG_PUB.initialize;
638: END IF;
639:
640: -- For Test/Debug
641: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
879: x_return_status := l_return_status;
880: x_msg_count := l_msg_count;
881: x_msg_data := l_msg_data;
882: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
883: --#FND_MSG_PUB.Add;
884: RAISE FND_API.G_EXC_ERROR;
885: END IF;
886: l_wf_item_key := NULL;
887: IF g_debug_flag THEN
937: x_msg_count := l_msg_count;
938: x_msg_data := l_msg_data;
939: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
940: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
941: --#FND_MSG_PUB.Add;
942: RAISE FND_API.G_EXC_ERROR;
943: END IF;
944: l_wf_item_key := NULL;
945: IF g_debug_flag THEN
1007: x_msg_count := l_msg_count;
1008: x_msg_data := l_msg_data;
1009: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1010: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
1011: --#FND_MSG_PUB.Add;
1012: RAISE FND_API.G_EXC_ERROR;
1013: END IF;
1014: END IF;
1015:
1052: x_msg_count := l_msg_count;
1053: x_msg_data := l_msg_data;
1054: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1055: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
1056: --#FND_MSG_PUB.Add;
1057: RAISE FND_API.G_EXC_ERROR;
1058: END IF;
1059:
1060: IF g_debug_flag THEN
1131: IF FND_API.To_Boolean ( p_commit ) THEN
1132: COMMIT WORK;
1133: END IF;
1134:
1135: FND_MSG_PUB.Count_And_Get
1136: ( p_count => x_msg_count,
1137: p_data => x_msg_data );
1138:
1139: IF g_debug_flag THEN
1147: EXCEPTION
1148: WHEN FND_API.G_EXC_ERROR THEN
1149: --ROLLBACK TO Update_Header_Appr_Status;
1150: x_return_status := FND_API.G_RET_STS_ERROR;
1151: FND_MSG_PUB.Count_And_Get
1152: ( p_count => x_msg_count
1153: ,p_data => x_msg_data );
1154: IF g_debug_flag THEN
1155: Write_Debug('Rollback and Finish with expected error.') ;
1159: END IF;
1160: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1161: --ROLLBACK TO Update_Header_Appr_Status;
1162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1163: FND_MSG_PUB.Count_And_Get
1164: ( p_count => x_msg_count
1165: ,p_data => x_msg_data );
1166: IF g_debug_flag THEN
1167: Write_Debug('Rollback and Finish with unexpected error.') ;
1171: END IF;
1172: WHEN OTHERS THEN
1173: --ROLLBACK TO Update_Header_Appr_Status;
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1175: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1176: THEN
1177: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1178: END IF;
1179: FND_MSG_PUB.Count_And_Get
1173: --ROLLBACK TO Update_Header_Appr_Status;
1174: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1175: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1176: THEN
1177: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1178: END IF;
1179: FND_MSG_PUB.Count_And_Get
1180: ( p_count => x_msg_count
1181: ,p_data => x_msg_data );
1175: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1176: THEN
1177: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1178: END IF;
1179: FND_MSG_PUB.Count_And_Get
1180: ( p_count => x_msg_count
1181: ,p_data => x_msg_data );
1182: IF g_debug_flag THEN
1183: Write_Debug('Rollback and Finish with other error.') ;
1322: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1323: END IF;
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328:
1329: -- For Test/Debug
1330: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1438: IF FND_API.To_Boolean ( p_commit ) THEN
1439: COMMIT WORK;
1440: END IF;
1441:
1442: FND_MSG_PUB.Count_And_Get
1443: ( p_count => x_msg_count,
1444: p_data => x_msg_data );
1445:
1446: IF g_debug_flag THEN
1454: EXCEPTION
1455: WHEN FND_API.G_EXC_ERROR THEN
1456: --ROLLBACK TO Start_Line_Workflow;
1457: x_return_status := FND_API.G_RET_STS_ERROR;
1458: FND_MSG_PUB.Count_And_Get
1459: ( p_count => x_msg_count
1460: ,p_data => x_msg_data );
1461: IF g_debug_flag THEN
1462: Write_Debug('Rollback and Finish with expected error.') ;
1466: END IF;
1467: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1468: --ROLLBACK TO Start_Line_Workflow;
1469: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1470: FND_MSG_PUB.Count_And_Get
1471: ( p_count => x_msg_count
1472: ,p_data => x_msg_data );
1473: IF g_debug_flag THEN
1474: Write_Debug('Rollback and Finish with unexpected error.') ;
1478: END IF;
1479: WHEN OTHERS THEN
1480: --ROLLBACK TO Start_Line_Workflow;
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1482: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1483: THEN
1484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1485: END IF;
1486: FND_MSG_PUB.Count_And_Get
1480: --ROLLBACK TO Start_Line_Workflow;
1481: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1482: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1483: THEN
1484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1485: END IF;
1486: FND_MSG_PUB.Count_And_Get
1487: ( p_count => x_msg_count
1488: ,p_data => x_msg_data );
1482: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1483: THEN
1484: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1485: END IF;
1486: FND_MSG_PUB.Count_And_Get
1487: ( p_count => x_msg_count
1488: ,p_data => x_msg_data );
1489: IF g_debug_flag THEN
1490: Write_Debug('Rollback and Finish with other error.') ;
1561: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1562: END IF;
1563: -- Initialize message list if p_init_msg_list is set to TRUE.
1564: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1565: FND_MSG_PUB.initialize;
1566: END IF;
1567:
1568: -- For Test/Debug
1569: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1649: x_msg_count := l_msg_count;
1650: x_msg_data := l_msg_data;
1651: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1652: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
1653: --#FND_MSG_PUB.Add;
1654: RAISE FND_API.G_EXC_ERROR;
1655: END IF;
1656: IF g_debug_flag THEN
1657: Write_Debug('Successful: saving action log');
1714: x_return_status := l_return_status;
1715: x_msg_count := l_msg_count;
1716: x_msg_data := l_msg_data;
1717: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1718: --#FND_MSG_PUB.Add;
1719: --#RAISE FND_API.G_EXC_ERROR;
1720: END IF;
1721: l_wf_item_key := NULL;
1722:
1791: x_return_status := l_return_status;
1792: x_msg_count := l_msg_count;
1793: x_msg_data := l_msg_data;
1794: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1795: --#FND_MSG_PUB.Add;
1796: --#RAISE FND_API.G_EXC_ERROR;
1797: ELSE
1798: IF g_debug_flag THEN
1799: Write_Debug('Successful: calling workflow routing agent');
1853: x_msg_count := l_msg_count;
1854: x_msg_data := l_msg_data;
1855: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1856: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Update_Lifecycle_States');
1857: --#FND_MSG_PUB.Add;
1858: RAISE FND_API.G_EXC_ERROR;
1859: END IF;
1860:
1861: END IF; -- if (phase workflow instance id and workflow template id)
1866: IF FND_API.To_Boolean ( p_commit ) THEN
1867: COMMIT WORK;
1868: END IF;
1869:
1870: FND_MSG_PUB.Count_And_Get
1871: ( p_count => x_msg_count,
1872: p_data => x_msg_data );
1873:
1874: IF g_debug_flag THEN
1882: EXCEPTION
1883: WHEN FND_API.G_EXC_ERROR THEN
1884: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1885: x_return_status := FND_API.G_RET_STS_ERROR;
1886: FND_MSG_PUB.Count_And_Get
1887: ( p_count => x_msg_count
1888: ,p_data => x_msg_data );
1889: IF g_debug_flag THEN
1890: Write_Debug('Rollback and Finish with expected error.') ;
1894: END IF;
1895: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1896: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1897: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1898: FND_MSG_PUB.Count_And_Get
1899: ( p_count => x_msg_count
1900: ,p_data => x_msg_data );
1901: IF g_debug_flag THEN
1902: Write_Debug('Rollback and Finish with unexpected error.') ;
1906: END IF;
1907: WHEN OTHERS THEN
1908: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1910: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1911: THEN
1912: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1913: END IF;
1914: FND_MSG_PUB.Count_And_Get
1908: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1909: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1910: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1911: THEN
1912: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1913: END IF;
1914: FND_MSG_PUB.Count_And_Get
1915: ( p_count => x_msg_count
1916: ,p_data => x_msg_data );
1910: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1911: THEN
1912: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1913: END IF;
1914: FND_MSG_PUB.Count_And_Get
1915: ( p_count => x_msg_count
1916: ,p_data => x_msg_data );
1917: IF g_debug_flag THEN
1918: Write_Debug('Rollback and Finish with other error.') ;
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087: -- Initialize message list if p_init_msg_list is set to TRUE.
2088: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2089: FND_MSG_PUB.initialize;
2090: END IF;
2091:
2092:
2093: -- For Test/Debug
2222:
2223: -- Sanity check to make sure the new phase is after the current phase
2224: IF l_new_phase_sn <= l_curr_phase_sn THEN
2225: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
2226: FND_MSG_PUB.Add;
2227: RAISE FND_API.G_EXC_ERROR;
2228: END IF;
2229:
2230:
2286: -- If open line's complete_before_status_code is behind the new phase's
2287: -- status_code, raise error
2288: IF (l_phase_sn <= l_new_phase_sn ) THEN
2289: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_LINE_COMP_BF');
2290: FND_MSG_PUB.Add;
2291: RAISE FND_API.G_EXC_ERROR;
2292: END IF;
2293:
2294: END IF;
2368: l_skip_promotion := 'Y';
2369: ELSE
2370: -- Stop and return error message
2371: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
2372: FND_MSG_PUB.Add;
2373: RAISE FND_API.G_EXC_ERROR;
2374: END IF;
2375:
2376: END IF;
2403: Write_Debug('Do not promote CO to implement phase to comply with ERP');
2404: END IF;
2405: -- Raise error message to the caller
2406: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_WO_ACT_REV_ITEM');
2407: FND_MSG_PUB.Add;
2408: RAISE FND_API.G_EXC_ERROR;
2409:
2410: END IF;
2411:
2423: Write_Debug('Do not promote CO to implement phase to comply with ERP approval status validation');
2424: END IF;
2425: -- Raise error message to the caller
2426: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_APPR_REJECTED');
2427: FND_MSG_PUB.Add;
2428: RAISE FND_API.G_EXC_ERROR;
2429:
2430: END IF;
2431: -- End of fix for 3769329
2538: x_msg_count := l_msg_count;
2539: x_msg_data := l_msg_data;
2540: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2541: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2542: --#FND_MSG_PUB.Add;
2543: RAISE FND_API.G_EXC_ERROR;
2544: END IF;
2545: -- End of Bug4967289 Fix
2546:
2562: END IF;
2563: -- Sanity check, only one record can qualify the condition
2564: IF SQL%ROWCOUNT <> 1 THEN
2565: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
2566: FND_MSG_PUB.Add;
2567: RAISE FND_API.G_EXC_ERROR;
2568: END IF;
2569: IF g_debug_flag THEN
2570: Write_Debug('After: Completing the current phase and promote to the next phase');
2729: x_msg_count := l_msg_count;
2730: x_msg_data := l_msg_data;
2731: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2732: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2733: --#FND_MSG_PUB.Add;
2734: RAISE FND_API.G_EXC_ERROR;
2735: END IF;
2736:
2737: IF g_debug_flag THEN
2786: x_msg_count := l_msg_count;
2787: x_msg_data := l_msg_data;
2788: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2789: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
2790: --#FND_MSG_PUB.Add;
2791: RAISE FND_API.G_EXC_ERROR;
2792: END IF;
2793:
2794: IF g_debug_flag THEN
2897: x_return_status := l_return_status;
2898: x_msg_count := l_msg_count;
2899: x_msg_data := l_msg_data;
2900: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
2901: --#FND_MSG_PUB.Add;
2902: RAISE FND_API.G_EXC_ERROR;
2903: END IF;
2904:
2905:
2962: IF FND_API.To_Boolean ( p_commit ) THEN
2963: COMMIT WORK;
2964: END IF;
2965:
2966: FND_MSG_PUB.Count_And_Get
2967: ( p_count => x_msg_count,
2968: p_data => x_msg_data );
2969:
2970: IF g_debug_flag THEN
2978: EXCEPTION
2979: WHEN FND_API.G_EXC_ERROR THEN
2980: --ROLLBACK TO Promote_Header;
2981: x_return_status := FND_API.G_RET_STS_ERROR;
2982: FND_MSG_PUB.Count_And_Get
2983: ( p_count => x_msg_count
2984: ,p_data => x_msg_data );
2985: IF g_debug_flag THEN
2986: Write_Debug('Rollback and Finish with expected error.') ;
2990: END IF;
2991: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2992: --ROLLBACK TO Promote_Header;
2993: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2994: FND_MSG_PUB.Count_And_Get
2995: ( p_count => x_msg_count
2996: ,p_data => x_msg_data );
2997: IF g_debug_flag THEN
2998: Write_Debug('Rollback and Finish with unexpected error.') ;
3002: END IF;
3003: WHEN OTHERS THEN
3004: --ROLLBACK TO Promote_Header;
3005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3006: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3007: THEN
3008: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3009: END IF;
3010: FND_MSG_PUB.Count_And_Get
3004: --ROLLBACK TO Promote_Header;
3005: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3006: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3007: THEN
3008: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3009: END IF;
3010: FND_MSG_PUB.Count_And_Get
3011: ( p_count => x_msg_count
3012: ,p_data => x_msg_data );
3006: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3007: THEN
3008: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3009: END IF;
3010: FND_MSG_PUB.Count_And_Get
3011: ( p_count => x_msg_count
3012: ,p_data => x_msg_data );
3013: IF g_debug_flag THEN
3014: Write_Debug('Rollback and Finish with other error.') ;
3130: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3131: END IF;
3132: -- Initialize message list if p_init_msg_list is set to TRUE.
3133: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3134: FND_MSG_PUB.initialize;
3135: END IF;
3136:
3137: -- For Test/Debug
3138: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3219:
3220: -- Sanity check to make sure the new phase is after the current phase
3221: IF ( l_new_phase_sn >= l_curr_phase_sn ) THEN
3222: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
3223: FND_MSG_PUB.Add;
3224: RAISE FND_API.G_EXC_ERROR;
3225: END IF;
3226:
3227: -- Finish the current phase before demotion
3256: -- make sure the original iteration number is not null
3257: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3258: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3259: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3260: FND_MSG_PUB.Add;
3261: RAISE FND_API.G_EXC_ERROR;
3262: END IF;
3263: l_old_iter_num := l_lcStatuses_row.iteration_number;
3264: ELSE
3269: Write_Debug('l_lcStatuses_row.iteration_number : '|| l_lcStatuses_row.iteration_number);
3270: Write_Debug('l_old_iter_num : ' || l_old_iter_num );
3271: END IF;
3272: FND_MESSAGE.Set_Name('ENG','ENG_SN_INCONSISTENT');
3273: FND_MSG_PUB.Add;
3274: RAISE FND_API.G_EXC_ERROR;
3275: END IF;
3276: END IF;
3277: */
3425: -- make sure the original iteration number is not null
3426: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3427: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3428: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3429: FND_MSG_PUB.Add;
3430: RAISE FND_API.G_EXC_ERROR;
3431: END IF;
3432: l_old_iter_num := l_lcStatuses_row.iteration_number;
3433:
3649: x_return_status := l_return_status;
3650: x_msg_count := l_msg_count;
3651: x_msg_data := l_msg_data;
3652: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
3653: --#FND_MSG_PUB.Add;
3654: RAISE FND_API.G_EXC_ERROR;
3655: END IF;
3656:
3657: -- Standard ending code ------------------------------------------------
3658: IF FND_API.To_Boolean ( p_commit ) THEN
3659: COMMIT WORK;
3660: END IF;
3661:
3662: FND_MSG_PUB.Count_And_Get
3663: ( p_count => x_msg_count,
3664: p_data => x_msg_data );
3665:
3666: IF g_debug_flag THEN
3674: EXCEPTION
3675: WHEN FND_API.G_EXC_ERROR THEN
3676: --ROLLBACK TO Demote_Header;
3677: x_return_status := FND_API.G_RET_STS_ERROR;
3678: FND_MSG_PUB.Count_And_Get
3679: ( p_count => x_msg_count
3680: ,p_data => x_msg_data );
3681: IF g_debug_flag THEN
3682: Write_Debug('Rollback and Finish with expected error.') ;
3686: END IF;
3687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3688: --ROLLBACK TO Demote_Header;
3689: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3690: FND_MSG_PUB.Count_And_Get
3691: ( p_count => x_msg_count
3692: ,p_data => x_msg_data );
3693: IF g_debug_flag THEN
3694: Write_Debug('Rollback and Finish with unexpected error.') ;
3698: END IF;
3699: WHEN OTHERS THEN
3700: --ROLLBACK TO Demote_Header;
3701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3702: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3703: THEN
3704: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3705: END IF;
3706: FND_MSG_PUB.Count_And_Get
3700: --ROLLBACK TO Demote_Header;
3701: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3702: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3703: THEN
3704: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3705: END IF;
3706: FND_MSG_PUB.Count_And_Get
3707: ( p_count => x_msg_count
3708: ,p_data => x_msg_data );
3702: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3703: THEN
3704: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3705: END IF;
3706: FND_MSG_PUB.Count_And_Get
3707: ( p_count => x_msg_count
3708: ,p_data => x_msg_data );
3709: IF g_debug_flag THEN
3710: Write_Debug('Rollback and Finish with other error.') ;
3810: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3811: END IF;
3812: -- Initialize message list if p_init_msg_list is set to TRUE.
3813: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3814: FND_MSG_PUB.initialize;
3815: END IF;
3816:
3817: -- For Test/Debug
3818: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3893:
3894: -- Sanity check to make sure the new phase is after the current phase
3895: IF l_new_phase_sn <= l_ri_phase_sn THEN
3896: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
3897: FND_MSG_PUB.Add;
3898: RAISE FND_API.G_EXC_ERROR;
3899: END IF;
3900:
3901: IF g_debug_flag THEN
3911:
3912: -- Sanity check: the new phase must be of status_type = 'IMPLEMENTED'
3913: IF (l_new_status_type <> G_ENG_IMPLEMENTED) THEN
3914: FND_MESSAGE.Set_Name('ENG','ENG_LAST_PHASE_NOT_IMP');
3915: FND_MSG_PUB.Add;
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3918:
3919: -- Set the flag
3938: IF (l_ri_status_type = G_ENG_IMPLEMENTED
3939: OR l_ri_status_type = G_ENG_CANCELLED)
3940: THEN
3941: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
3942: FND_MSG_PUB.Add;
3943: RAISE FND_API.G_EXC_ERROR;
3944: ELSE
3945: -- Case: promoting revised item to the last implement phase
3946: IF ( l_last_imp_flag = 'Y' ) THEN
3985: x_return_status := l_return_status;
3986: x_msg_count := l_msg_count;
3987: x_msg_data := l_msg_data;
3988: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_IMP_ECO');
3989: --#FND_MSG_PUB.Add;
3990: RAISE FND_API.G_EXC_ERROR;
3991:
3992: ELSIF (l_request_id = 0) THEN
3993: x_return_status := l_return_status;
3994: x_msg_count := l_msg_count;
3995: x_msg_data := l_msg_data;
3996: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
3997: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO(for revised item)');
3998: FND_MSG_PUB.Add;
3999: RAISE FND_API.G_EXC_ERROR;
4000: END IF;
4001:
4002: IF g_debug_flag THEN
4072: IF FND_API.To_Boolean ( p_commit ) THEN
4073: COMMIT WORK;
4074: END IF;
4075:
4076: FND_MSG_PUB.Count_And_Get
4077: ( p_count => x_msg_count,
4078: p_data => x_msg_data );
4079:
4080: IF g_debug_flag THEN
4088: EXCEPTION
4089: WHEN FND_API.G_EXC_ERROR THEN
4090: --ROLLBACK TO Promote_Revised_Item;
4091: x_return_status := FND_API.G_RET_STS_ERROR;
4092: FND_MSG_PUB.Count_And_Get
4093: ( p_count => x_msg_count
4094: ,p_data => x_msg_data );
4095: IF g_debug_flag THEN
4096: Write_Debug('Rollback and Finish with expected error.') ;
4100: END IF;
4101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4102: --ROLLBACK TO Promote_Revised_Item;
4103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4104: FND_MSG_PUB.Count_And_Get
4105: ( p_count => x_msg_count
4106: ,p_data => x_msg_data );
4107: IF g_debug_flag THEN
4108: Write_Debug('Rollback and Finish with unexpected error.') ;
4112: END IF;
4113: WHEN OTHERS THEN
4114: --ROLLBACK TO Promote_Revised_Item;
4115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4116: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4117: THEN
4118: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4119: END IF;
4120: FND_MSG_PUB.Count_And_Get
4114: --ROLLBACK TO Promote_Revised_Item;
4115: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4116: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4117: THEN
4118: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4119: END IF;
4120: FND_MSG_PUB.Count_And_Get
4121: ( p_count => x_msg_count
4122: ,p_data => x_msg_data );
4116: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4117: THEN
4118: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4119: END IF;
4120: FND_MSG_PUB.Count_And_Get
4121: ( p_count => x_msg_count
4122: ,p_data => x_msg_data );
4123: IF g_debug_flag THEN
4124: Write_Debug('Rollback and Finish with other error.') ;
4183: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4184: END IF;
4185: -- Initialize message list if p_init_msg_list is set to TRUE.
4186: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4187: FND_MSG_PUB.initialize;
4188: END IF;
4189:
4190:
4191: -- For Test/Debug
4249:
4250: -- Sanity check to make sure the new phase is after the current phase
4251: IF l_new_phase_sn >= l_ri_phase_sn THEN
4252: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4253: FND_MSG_PUB.Add;
4254: RAISE FND_API.G_EXC_ERROR;
4255: END IF;
4256:
4257: -- Get the status_type of the new phase
4272: IF (l_ri_status_type = G_ENG_IMPLEMENTED
4273: OR l_ri_status_type = G_ENG_CANCELLED)
4274: THEN
4275: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
4276: FND_MSG_PUB.Add;
4277: RAISE FND_API.G_EXC_ERROR;
4278: ELSE
4279: -- update parent revised item
4280: UPDATE eng_revised_items
4361: x_msg_count := l_msg_count;
4362: x_msg_data := l_msg_data;
4363: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4364: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4365: --#FND_MSG_PUB.Add;
4366: RAISE FND_API.G_EXC_ERROR;
4367: END IF;
4368:
4369: IF g_debug_flag THEN
4381: IF FND_API.To_Boolean ( p_commit ) THEN
4382: COMMIT WORK;
4383: END IF;
4384:
4385: FND_MSG_PUB.Count_And_Get
4386: ( p_count => x_msg_count,
4387: p_data => x_msg_data );
4388:
4389: IF g_debug_flag THEN
4397: EXCEPTION
4398: WHEN FND_API.G_EXC_ERROR THEN
4399: --ROLLBACK TO Demote_Revised_Item;
4400: x_return_status := FND_API.G_RET_STS_ERROR;
4401: FND_MSG_PUB.Count_And_Get
4402: ( p_count => x_msg_count
4403: ,p_data => x_msg_data );
4404: IF g_debug_flag THEN
4405: Write_Debug('Rollback and Finish with expected error.') ;
4409: END IF;
4410: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4411: --ROLLBACK TO Demote_Revised_Item;
4412: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4413: FND_MSG_PUB.Count_And_Get
4414: ( p_count => x_msg_count
4415: ,p_data => x_msg_data );
4416: IF g_debug_flag THEN
4417: Write_Debug('Rollback and Finish with unexpected error.') ;
4421: END IF;
4422: WHEN OTHERS THEN
4423: --ROLLBACK TO Demote_Revised_Item;
4424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4425: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4426: THEN
4427: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4428: END IF;
4429: FND_MSG_PUB.Count_And_Get
4423: --ROLLBACK TO Demote_Revised_Item;
4424: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4425: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4426: THEN
4427: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4428: END IF;
4429: FND_MSG_PUB.Count_And_Get
4430: ( p_count => x_msg_count
4431: ,p_data => x_msg_data );
4425: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4426: THEN
4427: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4428: END IF;
4429: FND_MSG_PUB.Count_And_Get
4430: ( p_count => x_msg_count
4431: ,p_data => x_msg_data );
4432: IF g_debug_flag THEN
4433: Write_Debug('Rollback and Finish with other error.') ;
4486: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4487: END IF;
4488: -- Initialize message list if p_init_msg_list is set to TRUE.
4489: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4490: FND_MSG_PUB.initialize;
4491: END IF;
4492:
4493:
4494: -- For Test/Debug
4541: l_wf_route_id IS NOT NULL
4542: AND l_wf_status = Eng_Workflow_Util.G_RT_IN_PROGRESS)
4543: THEN
4544: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4545: FND_MSG_PUB.Add;
4546: RAISE FND_API.G_EXC_ERROR;
4547: END IF;
4548:
4549: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4576: x_msg_count := l_msg_count;
4577: x_msg_data := l_msg_data;
4578: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4579: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
4580: --#FND_MSG_PUB.Add;
4581: RAISE FND_API.G_EXC_ERROR;
4582: END IF;
4583: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4584:
4610: x_msg_count := l_msg_count;
4611: x_msg_data := l_msg_data;
4612: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4613: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4614: --#FND_MSG_PUB.Add;
4615: RAISE FND_API.G_EXC_ERROR;
4616: END IF;
4617: ELSE
4618: IF g_debug_flag THEN
4652: x_msg_count := l_msg_count;
4653: x_msg_data := l_msg_data;
4654: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4655: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Revised_Item');
4656: --#FND_MSG_PUB.Add;
4657: RAISE FND_API.G_EXC_ERROR;
4658: END IF;
4659:
4660: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4685: x_msg_count := l_msg_count;
4686: x_msg_data := l_msg_data;
4687: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4688: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Revised_Item');
4689: --#FND_MSG_PUB.Add;
4690: RAISE FND_API.G_EXC_ERROR;
4691: END IF;
4692: ELSE
4693: IF g_debug_flag THEN
4704: IF FND_API.To_Boolean ( p_commit ) THEN
4705: COMMIT WORK;
4706: END IF;
4707:
4708: FND_MSG_PUB.Count_And_Get
4709: ( p_count => x_msg_count,
4710: p_data => x_msg_data );
4711:
4712: IF g_debug_flag THEN
4720: EXCEPTION
4721: WHEN FND_API.G_EXC_ERROR THEN
4722: --ROLLBACK TO Change_Phase;
4723: x_return_status := FND_API.G_RET_STS_ERROR;
4724: FND_MSG_PUB.Count_And_Get
4725: ( p_count => x_msg_count
4726: ,p_data => x_msg_data );
4727: IF g_debug_flag THEN
4728: Write_Debug('Rollback and Finish with expected error.') ;
4732: END IF;
4733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4734: --ROLLBACK TO Change_Phase;
4735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4736: FND_MSG_PUB.Count_And_Get
4737: ( p_count => x_msg_count
4738: ,p_data => x_msg_data );
4739: IF g_debug_flag THEN
4740: Write_Debug('Rollback and Finish with unexpected error.') ;
4744: END IF;
4745: WHEN OTHERS THEN
4746: --ROLLBACK TO Change_Phase;
4747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4748: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4749: THEN
4750: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4751: END IF;
4752: FND_MSG_PUB.Count_And_Get
4746: --ROLLBACK TO Change_Phase;
4747: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4748: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4749: THEN
4750: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4751: END IF;
4752: FND_MSG_PUB.Count_And_Get
4753: ( p_count => x_msg_count
4754: ,p_data => x_msg_data );
4748: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4749: THEN
4750: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4751: END IF;
4752: FND_MSG_PUB.Count_And_Get
4753: ( p_count => x_msg_count
4754: ,p_data => x_msg_data );
4755: IF g_debug_flag THEN
4756: Write_Debug('Rollback and Finish with other error.') ;
4902: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4903: END IF;
4904: -- Initialize message list if p_init_msg_list is set to TRUE.
4905: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4906: FND_MSG_PUB.initialize;
4907: END IF;
4908:
4909:
4910: -- For Test/Debug
5168: x_msg_count := l_msg_count;
5169: x_msg_data := l_msg_data;
5170: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5171: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5172: --#FND_MSG_PUB.Add;
5173: RAISE FND_API.G_EXC_ERROR;
5174: END IF;
5175: IF g_debug_flag THEN
5176: Write_Debug('Successful: saving action log');
5180: x_msg_count := l_msg_count;
5181: x_msg_data := l_msg_data;
5182: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
5183: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO');
5184: FND_MSG_PUB.Add;
5185: RAISE FND_API.G_EXC_ERROR;
5186: END IF;
5187: END IF;
5188:
5248: x_msg_count := l_msg_count;
5249: x_msg_data := l_msg_data;
5250: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5251: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5252: --#FND_MSG_PUB.Add;
5253: RAISE FND_API.G_EXC_ERROR;
5254: END IF;
5255: IF g_debug_flag THEN
5256: Write_Debug('Successful: saving action log');
5460: IF g_debug_flag THEN
5461: Write_Debug('Branch: Exists non completed/implemented/cancelled lines');
5462: END IF;
5463: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
5464: FND_MSG_PUB.Add;
5465: RAISE FND_API.G_EXC_ERROR;
5466: END IF;
5467: END LOOP;
5468: CLOSE c_lines;
5526: x_msg_count := l_msg_count;
5527: x_msg_data := l_msg_data;
5528: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5529: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
5530: --#FND_MSG_PUB.Add;
5531: RAISE FND_API.G_EXC_ERROR;
5532: END IF;
5533: END IF;
5534: IF g_debug_flag THEN
5605: x_msg_count := l_msg_count;
5606: x_msg_data := l_msg_data;
5607: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5608: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
5609: --#FND_MSG_PUB.Add;
5610: RAISE FND_API.G_EXC_ERROR;
5611: END IF;
5612:
5613: IF g_debug_flag THEN
5774: x_msg_count := l_msg_count;
5775: x_msg_data := l_msg_data;
5776: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5777: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
5778: --#FND_MSG_PUB.Add;
5779: RAISE FND_API.G_EXC_ERROR;
5780: END IF;
5781: IF g_debug_flag THEN
5782: Write_Debug('Successful: calling Demote_Header procedure');
5875: -- sanity check: workflow must pass p_status_code for the workflow p_route_id
5876: IF (p_status_code IS NULL) THEN
5877: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
5878: FND_MESSAGE.Set_Token('OBJECT_NAME', 'p_status_code passed by workflow');
5879: FND_MSG_PUB.Add;
5880: RAISE FND_API.G_EXC_ERROR;
5881: END IF;
5882: -- update phase workflow status
5883: UPDATE eng_lifecycle_statuses
6009: x_msg_count := l_msg_count;
6010: x_msg_data := l_msg_data;
6011: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6012: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6013: --#FND_MSG_PUB.Add;
6014: RAISE FND_API.G_EXC_ERROR;
6015: END IF;
6016: IF g_debug_flag THEN
6017: Write_Debug('Successful: saving action log');
6087: x_msg_count := l_msg_count;
6088: x_msg_data := l_msg_data;
6089: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6090: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
6091: --#FND_MSG_PUB.Add;
6092: RAISE FND_API.G_EXC_ERROR;
6093: END IF;
6094: IF g_debug_flag THEN
6095: Write_Debug('Successful: calling DEMOTE_HEADER procedure ');
6187: IF FND_API.To_Boolean ( p_commit ) THEN
6188: COMMIT WORK;
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: IF g_debug_flag THEN
6203: EXCEPTION
6204: WHEN FND_API.G_EXC_ERROR THEN
6205: --ROLLBACK TO Update_Lifecycle_States;
6206: x_return_status := FND_API.G_RET_STS_ERROR;
6207: FND_MSG_PUB.Count_And_Get
6208: ( p_count => x_msg_count
6209: ,p_data => x_msg_data );
6210: IF g_debug_flag THEN
6211: Write_Debug('Rollback and Finish with expected error.') ;
6215: END IF;
6216: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6217: --ROLLBACK TO Update_Lifecycle_States;
6218: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6219: FND_MSG_PUB.Count_And_Get
6220: ( p_count => x_msg_count
6221: ,p_data => x_msg_data );
6222: IF g_debug_flag THEN
6223: Write_Debug('Rollback and Finish with unexpected error.') ;
6227: END IF;
6228: WHEN OTHERS THEN
6229: --ROLLBACK TO Update_Lifecycle_States;
6230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6231: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6232: THEN
6233: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6234: END IF;
6235: FND_MSG_PUB.Count_And_Get
6229: --ROLLBACK TO Update_Lifecycle_States;
6230: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6231: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6232: THEN
6233: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6234: END IF;
6235: FND_MSG_PUB.Count_And_Get
6236: ( p_count => x_msg_count
6237: ,p_data => x_msg_data );
6231: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6232: THEN
6233: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6234: END IF;
6235: FND_MSG_PUB.Count_And_Get
6236: ( p_count => x_msg_count
6237: ,p_data => x_msg_data );
6238: IF g_debug_flag THEN
6239: Write_Debug('Rollback and Finish with other error.') ;
6300: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6301: END IF;
6302: -- Initialize message list if p_init_msg_list is set to TRUE.
6303: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6304: FND_MSG_PUB.initialize;
6305: END IF;
6306:
6307:
6308: -- For Test/Debug
6356: /*
6357: -- Make sure a workflow is already associated with the current phase
6358: IF (l_wf_route_id IS NULL) THEN
6359: FND_MESSAGE.Set_Name('ENG','ENG_WF_NOT_DEFINED_ON_PHASE');
6360: FND_MSG_PUB.Add;
6361: RAISE FND_API.G_EXC_ERROR;
6362: END IF;
6363: */
6364:
6414:
6415: -- One and only one record should be found with the cursor
6416: IF (l_row_counter <> 1) THEN
6417: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
6418: FND_MSG_PUB.Add;
6419: RAISE FND_API.G_EXC_ERROR;
6420: END IF;
6421:
6422: -- Standard ending code ------------------------------------------------
6423: IF FND_API.To_Boolean ( p_commit ) THEN
6424: COMMIT WORK;
6425: END IF;
6426:
6427: FND_MSG_PUB.Count_And_Get
6428: ( p_count => x_msg_count,
6429: p_data => x_msg_data );
6430:
6431: IF g_debug_flag THEN
6439: EXCEPTION
6440: WHEN FND_API.G_EXC_ERROR THEN
6441: --ROLLBACK TO Refresh_WF_Route;
6442: x_return_status := FND_API.G_RET_STS_ERROR;
6443: FND_MSG_PUB.Count_And_Get
6444: ( p_count => x_msg_count
6445: ,p_data => x_msg_data );
6446: IF g_debug_flag THEN
6447: Write_Debug('Rollback and Finish with expected error.') ;
6451: END IF;
6452: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6453: --ROLLBACK TO Refresh_WF_Route;
6454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6455: FND_MSG_PUB.Count_And_Get
6456: ( p_count => x_msg_count
6457: ,p_data => x_msg_data );
6458: IF g_debug_flag THEN
6459: Write_Debug('Rollback and Finish with unexpected error.') ;
6463: END IF;
6464: WHEN OTHERS THEN
6465: --ROLLBACK TO Refresh_WF_Route;
6466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6467: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6468: THEN
6469: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6470: END IF;
6471: FND_MSG_PUB.Count_And_Get
6465: --ROLLBACK TO Refresh_WF_Route;
6466: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6467: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6468: THEN
6469: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6470: END IF;
6471: FND_MSG_PUB.Count_And_Get
6472: ( p_count => x_msg_count
6473: ,p_data => x_msg_data );
6467: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6468: THEN
6469: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6470: END IF;
6471: FND_MSG_PUB.Count_And_Get
6472: ( p_count => x_msg_count
6473: ,p_data => x_msg_data );
6474: IF g_debug_flag THEN
6475: Write_Debug('Rollback and Finish with other error.') ;
6573: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6574: END IF;
6575: -- Initialize message list if p_init_msg_list is set to TRUE.
6576: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6577: FND_MSG_PUB.initialize;
6578: END IF;
6579:
6580: -- For Test/Debug
6581: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6676: /*
6677: -- Sanity check
6678: IF (l_sequence_number <> l_initial_phase_sn) THEN
6679: FND_MESSAGE.Set_Name('ENG','ENG_CURR_PHASE_NOT_FIRST');
6680: FND_MSG_PUB.Add;
6681: RAISE FND_API.G_EXC_ERROR;
6682: END IF;
6683: IF g_debug_flag THEN
6684: Write_Debug('After: sanity check of the current phase as the first phase');
6790: x_msg_count := l_msg_count;
6791: x_msg_data := l_msg_data;
6792: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6793: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6794: --#FND_MSG_PUB.Add;
6795: RAISE FND_API.G_EXC_ERROR;
6796: END IF;
6797: IF g_debug_flag THEN
6798: Write_Debug('Successful: saving action log');
6898: x_msg_count := l_msg_count;
6899: x_msg_data := l_msg_data;
6900: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6901: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
6902: --#FND_MSG_PUB.Add;
6903: RAISE FND_API.G_EXC_ERROR;
6904: END IF;
6905:
6906: IF g_debug_flag THEN
6954: x_msg_count := l_msg_count;
6955: x_msg_data := l_msg_data;
6956: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6957: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6958: --#FND_MSG_PUB.Add;
6959: RAISE FND_API.G_EXC_ERROR;
6960: END IF;
6961: IF g_debug_flag THEN
6962: Write_Debug('Successful: saving action log');
7006: x_return_status := l_return_status;
7007: x_msg_count := l_msg_count;
7008: x_msg_data := l_msg_data;
7009: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
7010: --#FND_MSG_PUB.Add;
7011: RAISE FND_API.G_EXC_ERROR;
7012: END IF;
7013:
7014: -- Standard ending code ------------------------------------------------
7015: IF FND_API.To_Boolean ( p_commit ) THEN
7016: COMMIT WORK;
7017: END IF;
7018:
7019: FND_MSG_PUB.Count_And_Get
7020: ( p_count => x_msg_count,
7021: p_data => x_msg_data );
7022:
7023: IF g_debug_flag THEN
7031: EXCEPTION
7032: WHEN FND_API.G_EXC_ERROR THEN
7033: --ROLLBACK TO Init_Lifecycle;
7034: x_return_status := FND_API.G_RET_STS_ERROR;
7035: FND_MSG_PUB.Count_And_Get
7036: ( p_count => x_msg_count
7037: ,p_data => x_msg_data );
7038: IF g_debug_flag THEN
7039: Write_Debug('Rollback and Finish with expected error.') ;
7043: END IF;
7044: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7045: --ROLLBACK TO Init_Lifecycle;
7046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7047: FND_MSG_PUB.Count_And_Get
7048: ( p_count => x_msg_count
7049: ,p_data => x_msg_data );
7050: IF g_debug_flag THEN
7051: Write_Debug('Rollback and Finish with unexpected error.') ;
7055: END IF;
7056: WHEN OTHERS THEN
7057: --ROLLBACK TO Init_Lifecycle;
7058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7059: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7060: THEN
7061: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7062: END IF;
7063: FND_MSG_PUB.Count_And_Get
7057: --ROLLBACK TO Init_Lifecycle;
7058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7059: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7060: THEN
7061: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7062: END IF;
7063: FND_MSG_PUB.Count_And_Get
7064: ( p_count => x_msg_count
7065: ,p_data => x_msg_data );
7059: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7060: THEN
7061: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7062: END IF;
7063: FND_MSG_PUB.Count_And_Get
7064: ( p_count => x_msg_count
7065: ,p_data => x_msg_data );
7066: IF g_debug_flag THEN
7067: Write_Debug('Rollback and Finish with other error.') ;
7116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7117: END IF;
7118: -- Initialize message list if p_init_msg_list is set to TRUE.
7119: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7120: FND_MSG_PUB.initialize;
7121: END IF;
7122:
7123:
7124: -- For Test/Debug
7165: IF FND_API.To_Boolean ( p_commit ) THEN
7166: COMMIT WORK;
7167: END IF;
7168:
7169: FND_MSG_PUB.Count_And_Get
7170: ( p_count => x_msg_count,
7171: p_data => x_msg_data );
7172:
7173: IF g_debug_flag THEN
7181: EXCEPTION
7182: WHEN FND_API.G_EXC_ERROR THEN
7183: --ROLLBACK TO Update_RevItem_Lifecycle;
7184: x_return_status := FND_API.G_RET_STS_ERROR;
7185: FND_MSG_PUB.Count_And_Get
7186: ( p_count => x_msg_count
7187: ,p_data => x_msg_data );
7188: IF g_debug_flag THEN
7189: Write_Debug('Rollback and Finish with expected error.') ;
7193: END IF;
7194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7195: --ROLLBACK TO Update_RevItem_Lifecycle;
7196: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7197: FND_MSG_PUB.Count_And_Get
7198: ( p_count => x_msg_count
7199: ,p_data => x_msg_data );
7200: IF g_debug_flag THEN
7201: Write_Debug('Rollback and Finish with unexpected error.') ;
7205: END IF;
7206: WHEN OTHERS THEN
7207: --ROLLBACK TO Update_RevItem_Lifecycle;
7208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7209: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7210: THEN
7211: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7212: END IF;
7213: FND_MSG_PUB.Count_And_Get
7207: --ROLLBACK TO Update_RevItem_Lifecycle;
7208: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7209: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7210: THEN
7211: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7212: END IF;
7213: FND_MSG_PUB.Count_And_Get
7214: ( p_count => x_msg_count
7215: ,p_data => x_msg_data );
7209: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7210: THEN
7211: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7212: END IF;
7213: FND_MSG_PUB.Count_And_Get
7214: ( p_count => x_msg_count
7215: ,p_data => x_msg_data );
7216: IF g_debug_flag THEN
7217: Write_Debug('Rollback and Finish with other error.') ;
7303: END IF;
7304:
7305: -- Initialize message list if p_init_msg_list is set to TRUE.
7306: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7307: FND_MSG_PUB.initialize;
7308: END IF;
7309:
7310:
7311: -- For Test/Debug
7365:
7366: IF l_reset_status_code IS NULL THEN
7367: -- This should not happen
7368: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7369: FND_MSG_PUB.Add ;
7370: RAISE FND_API.G_EXC_ERROR ;
7371: END IF ;
7372:
7373: IF (p_status_code IS NOT NULL AND l_reset_status_code <> p_status_code )
7374: THEN
7375:
7376: -- This should not happen
7377: FND_MESSAGE.SET_NAME('ENG', 'ENG_RESET_STATUS_NOT_CUR') ;
7378: FND_MSG_PUB.Add ;
7379: RAISE FND_API.G_EXC_ERROR ;
7380:
7381: END IF ;
7382:
7508:
7509: IF l_reset_status_code IS NULL THEN
7510: -- This should not happen
7511: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7512: FND_MSG_PUB.Add ;
7513: RAISE FND_API.G_EXC_ERROR ;
7514: END IF ;
7515:
7516: END IF ;
7560: IF FND_API.To_Boolean ( p_commit ) THEN
7561: COMMIT WORK;
7562: END IF;
7563:
7564: FND_MSG_PUB.Count_And_Get
7565: ( p_count => x_msg_count,
7566: p_data => x_msg_data );
7567:
7568: IF g_debug_flag THEN
7584: END IF;
7585:
7586: x_return_status := FND_API.G_RET_STS_ERROR;
7587:
7588: FND_MSG_PUB.Count_And_Get
7589: ( p_count => x_msg_count
7590: ,p_data => x_msg_data );
7591:
7592: IF g_debug_flag THEN
7608: END IF;
7609:
7610: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7611:
7612: FND_MSG_PUB.Count_And_Get
7613: ( p_count => x_msg_count
7614: ,p_data => x_msg_data );
7615:
7616: IF g_debug_flag THEN
7634: END IF;
7635:
7636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7637:
7638: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7639: THEN
7640: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7641: END IF;
7642:
7636: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7637:
7638: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7639: THEN
7640: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7641: END IF;
7642:
7643: FND_MSG_PUB.Count_And_Get
7644: ( p_count => x_msg_count
7639: THEN
7640: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7641: END IF;
7642:
7643: FND_MSG_PUB.Count_And_Get
7644: ( p_count => x_msg_count
7645: ,p_data => x_msg_data );
7646:
7647:
7738: END IF;
7739:
7740: -- Initialize message list if p_init_msg_list is set to TRUE.
7741: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7742: FND_MSG_PUB.initialize;
7743: END IF;
7744:
7745:
7746: -- For Test/Debug
8096: IF FND_API.To_Boolean ( p_commit ) THEN
8097: COMMIT WORK;
8098: END IF;
8099:
8100: FND_MSG_PUB.Count_And_Get
8101: ( p_count => x_msg_count,
8102: p_data => x_msg_data );
8103:
8104: IF g_debug_flag THEN
8120: END IF;
8121:
8122: x_return_status := FND_API.G_RET_STS_ERROR;
8123:
8124: FND_MSG_PUB.Count_And_Get
8125: ( p_count => x_msg_count
8126: ,p_data => x_msg_data );
8127:
8128: IF g_debug_flag THEN
8144: END IF;
8145:
8146: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8147:
8148: FND_MSG_PUB.Count_And_Get
8149: ( p_count => x_msg_count
8150: ,p_data => x_msg_data );
8151:
8152: IF g_debug_flag THEN
8170: END IF;
8171:
8172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8173:
8174: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8175: THEN
8176: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8177: END IF;
8178:
8172: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8173:
8174: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8175: THEN
8176: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8177: END IF;
8178:
8179: FND_MSG_PUB.Count_And_Get
8180: ( p_count => x_msg_count
8175: THEN
8176: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8177: END IF;
8178:
8179: FND_MSG_PUB.Count_And_Get
8180: ( p_count => x_msg_count
8181: ,p_data => x_msg_data );
8182:
8183: