[Home] [Help]
635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
636: END IF;
637: -- Initialize message list if p_init_msg_list is set to TRUE.
638: IF FND_API.to_Boolean( p_init_msg_list ) THEN
639: FND_MSG_PUB.initialize;
640: END IF;
641:
642: -- For Test/Debug
643: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
881: x_return_status := l_return_status;
882: x_msg_count := l_msg_count;
883: x_msg_data := l_msg_data;
884: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
885: --#FND_MSG_PUB.Add;
886: RAISE FND_API.G_EXC_ERROR;
887: END IF;
888: l_wf_item_key := NULL;
889: IF g_debug_flag THEN
939: x_msg_count := l_msg_count;
940: x_msg_data := l_msg_data;
941: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
942: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
943: --#FND_MSG_PUB.Add;
944: RAISE FND_API.G_EXC_ERROR;
945: END IF;
946: l_wf_item_key := NULL;
947: IF g_debug_flag THEN
1009: x_msg_count := l_msg_count;
1010: x_msg_data := l_msg_data;
1011: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1012: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
1013: --#FND_MSG_PUB.Add;
1014: RAISE FND_API.G_EXC_ERROR;
1015: END IF;
1016: END IF;
1017:
1054: x_msg_count := l_msg_count;
1055: x_msg_data := l_msg_data;
1056: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1057: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_NIR_UTIL_PKG.set_nir_item_approval_status');
1058: --#FND_MSG_PUB.Add;
1059: RAISE FND_API.G_EXC_ERROR;
1060: END IF;
1061:
1062: IF g_debug_flag THEN
1133: IF FND_API.To_Boolean ( p_commit ) THEN
1134: COMMIT WORK;
1135: END IF;
1136:
1137: FND_MSG_PUB.Count_And_Get
1138: ( p_count => x_msg_count,
1139: p_data => x_msg_data );
1140:
1141: IF g_debug_flag THEN
1163: END IF;
1164: WHEN FND_API.G_EXC_ERROR THEN
1165: --ROLLBACK TO Update_Header_Appr_Status;
1166: x_return_status := FND_API.G_RET_STS_ERROR;
1167: FND_MSG_PUB.Count_And_Get
1168: ( p_count => x_msg_count
1169: ,p_data => x_msg_data );
1170: IF g_debug_flag THEN
1171: Write_Debug('Rollback and Finish with expected error.') ;
1175: END IF;
1176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1177: --ROLLBACK TO Update_Header_Appr_Status;
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 unexpected error.') ;
1187: END IF;
1188: WHEN OTHERS THEN
1189: --ROLLBACK TO Update_Header_Appr_Status;
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1191: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1192: THEN
1193: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1194: END IF;
1195: FND_MSG_PUB.Count_And_Get
1189: --ROLLBACK TO Update_Header_Appr_Status;
1190: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1191: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1192: THEN
1193: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1194: END IF;
1195: FND_MSG_PUB.Count_And_Get
1196: ( p_count => x_msg_count
1197: ,p_data => x_msg_data );
1191: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1192: THEN
1193: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1194: END IF;
1195: FND_MSG_PUB.Count_And_Get
1196: ( p_count => x_msg_count
1197: ,p_data => x_msg_data );
1198: IF g_debug_flag THEN
1199: Write_Debug('Rollback and Finish with other error.') ;
1338: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1339: END IF;
1340: -- Initialize message list if p_init_msg_list is set to TRUE.
1341: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1342: FND_MSG_PUB.initialize;
1343: END IF;
1344:
1345: -- For Test/Debug
1346: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1454: IF FND_API.To_Boolean ( p_commit ) THEN
1455: COMMIT WORK;
1456: END IF;
1457:
1458: FND_MSG_PUB.Count_And_Get
1459: ( p_count => x_msg_count,
1460: p_data => x_msg_data );
1461:
1462: IF g_debug_flag THEN
1470: EXCEPTION
1471: WHEN FND_API.G_EXC_ERROR THEN
1472: --ROLLBACK TO Start_Line_Workflow;
1473: x_return_status := FND_API.G_RET_STS_ERROR;
1474: FND_MSG_PUB.Count_And_Get
1475: ( p_count => x_msg_count
1476: ,p_data => x_msg_data );
1477: IF g_debug_flag THEN
1478: Write_Debug('Rollback and Finish with expected error.') ;
1482: END IF;
1483: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1484: --ROLLBACK TO Start_Line_Workflow;
1485: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
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 unexpected error.') ;
1494: END IF;
1495: WHEN OTHERS THEN
1496: --ROLLBACK TO Start_Line_Workflow;
1497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1498: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1499: THEN
1500: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1501: END IF;
1502: FND_MSG_PUB.Count_And_Get
1496: --ROLLBACK TO Start_Line_Workflow;
1497: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1498: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1499: THEN
1500: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1501: END IF;
1502: FND_MSG_PUB.Count_And_Get
1503: ( p_count => x_msg_count
1504: ,p_data => x_msg_data );
1498: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1499: THEN
1500: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1501: END IF;
1502: FND_MSG_PUB.Count_And_Get
1503: ( p_count => x_msg_count
1504: ,p_data => x_msg_data );
1505: IF g_debug_flag THEN
1506: Write_Debug('Rollback and Finish with other error.') ;
1577: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1578: END IF;
1579: -- Initialize message list if p_init_msg_list is set to TRUE.
1580: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1581: FND_MSG_PUB.initialize;
1582: END IF;
1583:
1584: -- For Test/Debug
1585: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
1670: x_msg_count := l_msg_count;
1671: x_msg_data := l_msg_data;
1672: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1673: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
1674: --#FND_MSG_PUB.Add;
1675: RAISE FND_API.G_EXC_ERROR;
1676: END IF;
1677: IF g_debug_flag THEN
1678: Write_Debug('Successful: saving action log');
1737: x_return_status := l_return_status;
1738: x_msg_count := l_msg_count;
1739: x_msg_data := l_msg_data;
1740: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1741: --#FND_MSG_PUB.Add;
1742: --#RAISE FND_API.G_EXC_ERROR;
1743: END IF;
1744: l_wf_item_key := NULL;
1745:
1814: x_return_status := l_return_status;
1815: x_msg_count := l_msg_count;
1816: x_msg_data := l_msg_data;
1817: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
1818: --#FND_MSG_PUB.Add;
1819: --#RAISE FND_API.G_EXC_ERROR;
1820: ELSE
1821: IF g_debug_flag THEN
1822: Write_Debug('Successful: calling workflow routing agent');
1876: x_msg_count := l_msg_count;
1877: x_msg_data := l_msg_data;
1878: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
1879: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Update_Lifecycle_States');
1880: --#FND_MSG_PUB.Add;
1881: RAISE FND_API.G_EXC_ERROR;
1882: END IF;
1883:
1884: END IF; -- if (phase workflow instance id and workflow template id)
1889: IF FND_API.To_Boolean ( p_commit ) THEN
1890: COMMIT WORK;
1891: END IF;
1892:
1893: FND_MSG_PUB.Count_And_Get
1894: ( p_count => x_msg_count,
1895: p_data => x_msg_data );
1896:
1897: IF g_debug_flag THEN
1905: EXCEPTION
1906: WHEN FND_API.G_EXC_ERROR THEN
1907: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1908: x_return_status := FND_API.G_RET_STS_ERROR;
1909: FND_MSG_PUB.Count_And_Get
1910: ( p_count => x_msg_count
1911: ,p_data => x_msg_data );
1912: IF g_debug_flag THEN
1913: Write_Debug('Rollback and Finish with expected error.') ;
1917: END IF;
1918: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1919: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1920: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1921: FND_MSG_PUB.Count_And_Get
1922: ( p_count => x_msg_count
1923: ,p_data => x_msg_data );
1924: IF g_debug_flag THEN
1925: Write_Debug('Rollback and Finish with unexpected error.') ;
1929: END IF;
1930: WHEN OTHERS THEN
1931: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1933: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1934: THEN
1935: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1936: END IF;
1937: FND_MSG_PUB.Count_And_Get
1931: --ROLLBACK TO Start_WF_OnlyIf_Necessary;
1932: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1933: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1934: THEN
1935: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1936: END IF;
1937: FND_MSG_PUB.Count_And_Get
1938: ( p_count => x_msg_count
1939: ,p_data => x_msg_data );
1933: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1934: THEN
1935: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
1936: END IF;
1937: FND_MSG_PUB.Count_And_Get
1938: ( p_count => x_msg_count
1939: ,p_data => x_msg_data );
1940: IF g_debug_flag THEN
1941: Write_Debug('Rollback and Finish with other error.') ;
2125: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2126: END IF;
2127: -- Initialize message list if p_init_msg_list is set to TRUE.
2128: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2129: FND_MSG_PUB.initialize;
2130: END IF;
2131:
2132:
2133: -- For Test/Debug
2174: where route_id = lifecyc.change_wf_route_id;
2175:
2176: if ((l_temp_flag = 'N' or l_temp_flag = 'H') and l_obj_id1 = 0) then
2177: FND_MESSAGE.Set_Name('ENG','ENG_ROUTE_APPLY_NO_TEMP');
2178: FND_MSG_PUB.Add;
2179: RAISE FND_API.G_EXC_ERROR;
2180: end if;
2181: end loop;
2182: -- bug 6695079 end
2283: -- bug 9577905, if the new phase is not be completed
2284: IF (l_new_phase_sn <= l_curr_phase_sn
2285: and l_new_wf_status = Eng_Workflow_Util.G_RT_COMPLETED)THEN
2286: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
2287: FND_MSG_PUB.Add;
2288: RAISE FND_API.G_EXC_ERROR;
2289: END IF;
2290:
2291:
2347: -- If open line's complete_before_status_code is behind the new phase's
2348: -- status_code, raise error
2349: IF (l_phase_sn <= l_new_phase_sn ) THEN
2350: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_LINE_COMP_BF');
2351: FND_MSG_PUB.Add;
2352: RAISE FND_API.G_EXC_ERROR;
2353: END IF;
2354:
2355: END IF;
2441: l_skip_promotion := 'Y';
2442: ELSE
2443: -- Stop and return error message
2444: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
2445: FND_MSG_PUB.Add;
2446: RAISE FND_API.G_EXC_ERROR;
2447: END IF;
2448:
2449: END IF;
2476: Write_Debug('Do not promote CO to implement phase to comply with ERP');
2477: END IF;
2478: -- Raise error message to the caller
2479: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_WO_ACT_REV_ITEM');
2480: FND_MSG_PUB.Add;
2481: RAISE FND_API.G_EXC_ERROR;
2482:
2483: END IF;
2484:
2496: Write_Debug('Do not promote CO to implement phase to comply with ERP approval status validation');
2497: END IF;
2498: -- Raise error message to the caller
2499: FND_MESSAGE.Set_Name('ENG','ENG_IMP_STOP_APPR_REJECTED');
2500: FND_MSG_PUB.Add;
2501: RAISE FND_API.G_EXC_ERROR;
2502:
2503: END IF;
2504: -- End of fix for 3769329
2611: x_msg_count := l_msg_count;
2612: x_msg_data := l_msg_data;
2613: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2614: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2615: --#FND_MSG_PUB.Add;
2616: RAISE FND_API.G_EXC_ERROR;
2617: END IF;
2618: -- End of Bug4967289 Fix
2619:
2635: END IF;
2636: -- Sanity check, only one record can qualify the condition
2637: IF SQL%ROWCOUNT <> 1 THEN
2638: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
2639: FND_MSG_PUB.Add;
2640: RAISE FND_API.G_EXC_ERROR;
2641: END IF;
2642: IF g_debug_flag THEN
2643: Write_Debug('After: Completing the current phase and promote to the next phase');
2814: x_msg_count := l_msg_count;
2815: x_msg_data := l_msg_data;
2816: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2817: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
2818: --#FND_MSG_PUB.Add;
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821:
2822: IF g_debug_flag THEN
2871: x_msg_count := l_msg_count;
2872: x_msg_data := l_msg_data;
2873: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
2874: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
2875: --#FND_MSG_PUB.Add;
2876: RAISE FND_API.G_EXC_ERROR;
2877: END IF;
2878:
2879: IF g_debug_flag THEN
2986: x_return_status := l_return_status;
2987: x_msg_count := l_msg_count;
2988: x_msg_data := l_msg_data;
2989: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
2990: --#FND_MSG_PUB.Add;
2991: RAISE FND_API.G_EXC_ERROR;
2992: END IF;
2993: END IF; -- IF l_new_phase_sn ... or l_new_wf_statusor ...
2994: -- Bug 13810488 End
3053: IF FND_API.To_Boolean ( p_commit ) THEN
3054: COMMIT WORK;
3055: END IF;
3056:
3057: FND_MSG_PUB.Count_And_Get
3058: ( p_count => x_msg_count,
3059: p_data => x_msg_data );
3060:
3061: IF g_debug_flag THEN
3069: EXCEPTION
3070: WHEN FND_API.G_EXC_ERROR THEN
3071: --ROLLBACK TO Promote_Header;
3072: x_return_status := FND_API.G_RET_STS_ERROR;
3073: FND_MSG_PUB.Count_And_Get
3074: ( p_count => x_msg_count
3075: ,p_data => x_msg_data );
3076: IF g_debug_flag THEN
3077: Write_Debug('Rollback and Finish with expected error.') ;
3081: END IF;
3082: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3083: --ROLLBACK TO Promote_Header;
3084: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3085: FND_MSG_PUB.Count_And_Get
3086: ( p_count => x_msg_count
3087: ,p_data => x_msg_data );
3088: IF g_debug_flag THEN
3089: Write_Debug('Rollback and Finish with unexpected error.') ;
3093: END IF;
3094: WHEN OTHERS THEN
3095: --ROLLBACK TO Promote_Header;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3097: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3098: THEN
3099: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3100: END IF;
3101: FND_MSG_PUB.Count_And_Get
3095: --ROLLBACK TO Promote_Header;
3096: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3097: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3098: THEN
3099: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3100: END IF;
3101: FND_MSG_PUB.Count_And_Get
3102: ( p_count => x_msg_count
3103: ,p_data => x_msg_data );
3097: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3098: THEN
3099: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3100: END IF;
3101: FND_MSG_PUB.Count_And_Get
3102: ( p_count => x_msg_count
3103: ,p_data => x_msg_data );
3104: IF g_debug_flag THEN
3105: Write_Debug('Rollback and Finish with other error.') ;
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3235: END IF;
3236: -- Initialize message list if p_init_msg_list is set to TRUE.
3237: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3238: FND_MSG_PUB.initialize;
3239: END IF;
3240:
3241: -- For Test/Debug
3242: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
3279: where route_id = lifecyc.change_wf_route_id;
3280:
3281: if ((l_temp_flag = 'N' or l_temp_flag = 'H') and l_obj_id1 = 0) then
3282: FND_MESSAGE.Set_Name('ENG','ENG_ROUTE_APPLY_NO_TEMP');
3283: FND_MSG_PUB.Add;
3284: RAISE FND_API.G_EXC_ERROR;
3285: end if;
3286: end loop;
3287: -- Bug 6695079 end
3337:
3338: -- Sanity check to make sure the new phase is after the current phase
3339: IF ( l_new_phase_sn >= l_curr_phase_sn ) THEN
3340: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
3341: FND_MSG_PUB.Add;
3342: RAISE FND_API.G_EXC_ERROR;
3343: END IF;
3344:
3345: -- Finish the current phase before demotion
3374: -- make sure the original iteration number is not null
3375: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3376: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3377: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3378: FND_MSG_PUB.Add;
3379: RAISE FND_API.G_EXC_ERROR;
3380: END IF;
3381: l_old_iter_num := l_lcStatuses_row.iteration_number;
3382: ELSE
3387: Write_Debug('l_lcStatuses_row.iteration_number : '|| l_lcStatuses_row.iteration_number);
3388: Write_Debug('l_old_iter_num : ' || l_old_iter_num );
3389: END IF;
3390: FND_MESSAGE.Set_Name('ENG','ENG_SN_INCONSISTENT');
3391: FND_MSG_PUB.Add;
3392: RAISE FND_API.G_EXC_ERROR;
3393: END IF;
3394: END IF;
3395: */
3543: -- make sure the original iteration number is not null
3544: IF (l_lcStatuses_row.iteration_number IS NULL) THEN
3545: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
3546: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ITERATION_NUMBER');
3547: FND_MSG_PUB.Add;
3548: RAISE FND_API.G_EXC_ERROR;
3549: END IF;
3550: l_old_iter_num := l_lcStatuses_row.iteration_number;
3551:
3767: x_return_status := l_return_status;
3768: x_msg_count := l_msg_count;
3769: x_msg_data := l_msg_data;
3770: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
3771: --#FND_MSG_PUB.Add;
3772: RAISE FND_API.G_EXC_ERROR;
3773: END IF;
3774:
3775: -- Standard ending code ------------------------------------------------
3776: IF FND_API.To_Boolean ( p_commit ) THEN
3777: COMMIT WORK;
3778: END IF;
3779:
3780: FND_MSG_PUB.Count_And_Get
3781: ( p_count => x_msg_count,
3782: p_data => x_msg_data );
3783:
3784: IF g_debug_flag THEN
3792: EXCEPTION
3793: WHEN FND_API.G_EXC_ERROR THEN
3794: --ROLLBACK TO Demote_Header;
3795: x_return_status := FND_API.G_RET_STS_ERROR;
3796: FND_MSG_PUB.Count_And_Get
3797: ( p_count => x_msg_count
3798: ,p_data => x_msg_data );
3799: IF g_debug_flag THEN
3800: Write_Debug('Rollback and Finish with expected error.') ;
3804: END IF;
3805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3806: --ROLLBACK TO Demote_Header;
3807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3808: FND_MSG_PUB.Count_And_Get
3809: ( p_count => x_msg_count
3810: ,p_data => x_msg_data );
3811: IF g_debug_flag THEN
3812: Write_Debug('Rollback and Finish with unexpected error.') ;
3816: END IF;
3817: WHEN OTHERS THEN
3818: --ROLLBACK TO Demote_Header;
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3821: THEN
3822: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3823: END IF;
3824: FND_MSG_PUB.Count_And_Get
3818: --ROLLBACK TO Demote_Header;
3819: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
3820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3821: THEN
3822: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3823: END IF;
3824: FND_MSG_PUB.Count_And_Get
3825: ( p_count => x_msg_count
3826: ,p_data => x_msg_data );
3820: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
3821: THEN
3822: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
3823: END IF;
3824: FND_MSG_PUB.Count_And_Get
3825: ( p_count => x_msg_count
3826: ,p_data => x_msg_data );
3827: IF g_debug_flag THEN
3828: Write_Debug('Rollback and Finish with other error.') ;
3928: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3929: END IF;
3930: -- Initialize message list if p_init_msg_list is set to TRUE.
3931: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3932: FND_MSG_PUB.initialize;
3933: END IF;
3934:
3935: -- For Test/Debug
3936: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
4011:
4012: -- Sanity check to make sure the new phase is after the current phase
4013: IF l_new_phase_sn <= l_ri_phase_sn THEN
4014: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4015: FND_MSG_PUB.Add;
4016: RAISE FND_API.G_EXC_ERROR;
4017: END IF;
4018:
4019: IF g_debug_flag THEN
4029:
4030: -- Sanity check: the new phase must be of status_type = 'IMPLEMENTED'
4031: IF (l_new_status_type <> G_ENG_IMPLEMENTED) THEN
4032: FND_MESSAGE.Set_Name('ENG','ENG_LAST_PHASE_NOT_IMP');
4033: FND_MSG_PUB.Add;
4034: RAISE FND_API.G_EXC_ERROR;
4035: END IF;
4036:
4037: -- Set the flag
4056: IF (l_ri_status_type = G_ENG_IMPLEMENTED
4057: OR l_ri_status_type = G_ENG_CANCELLED)
4058: THEN
4059: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
4060: FND_MSG_PUB.Add;
4061: RAISE FND_API.G_EXC_ERROR;
4062: ELSE
4063: -- Case: promoting revised item to the last implement phase
4064: IF ( l_last_imp_flag = 'Y' ) THEN
4103: x_return_status := l_return_status;
4104: x_msg_count := l_msg_count;
4105: x_msg_data := l_msg_data;
4106: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_IMP_ECO');
4107: --#FND_MSG_PUB.Add;
4108: RAISE FND_API.G_EXC_ERROR;
4109:
4110: ELSIF (l_request_id = 0) THEN
4111: x_return_status := l_return_status;
4112: x_msg_count := l_msg_count;
4113: x_msg_data := l_msg_data;
4114: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
4115: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO(for revised item)');
4116: FND_MSG_PUB.Add;
4117: RAISE FND_API.G_EXC_ERROR;
4118: END IF;
4119:
4120: IF g_debug_flag THEN
4190: IF FND_API.To_Boolean ( p_commit ) THEN
4191: COMMIT WORK;
4192: END IF;
4193:
4194: FND_MSG_PUB.Count_And_Get
4195: ( p_count => x_msg_count,
4196: p_data => x_msg_data );
4197:
4198: IF g_debug_flag THEN
4206: EXCEPTION
4207: WHEN FND_API.G_EXC_ERROR THEN
4208: --ROLLBACK TO Promote_Revised_Item;
4209: x_return_status := FND_API.G_RET_STS_ERROR;
4210: FND_MSG_PUB.Count_And_Get
4211: ( p_count => x_msg_count
4212: ,p_data => x_msg_data );
4213: IF g_debug_flag THEN
4214: Write_Debug('Rollback and Finish with expected error.') ;
4218: END IF;
4219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4220: --ROLLBACK TO Promote_Revised_Item;
4221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4222: FND_MSG_PUB.Count_And_Get
4223: ( p_count => x_msg_count
4224: ,p_data => x_msg_data );
4225: IF g_debug_flag THEN
4226: Write_Debug('Rollback and Finish with unexpected error.') ;
4230: END IF;
4231: WHEN OTHERS THEN
4232: --ROLLBACK TO Promote_Revised_Item;
4233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4234: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4235: THEN
4236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4237: END IF;
4238: FND_MSG_PUB.Count_And_Get
4232: --ROLLBACK TO Promote_Revised_Item;
4233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4234: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4235: THEN
4236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4237: END IF;
4238: FND_MSG_PUB.Count_And_Get
4239: ( p_count => x_msg_count
4240: ,p_data => x_msg_data );
4234: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4235: THEN
4236: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4237: END IF;
4238: FND_MSG_PUB.Count_And_Get
4239: ( p_count => x_msg_count
4240: ,p_data => x_msg_data );
4241: IF g_debug_flag THEN
4242: Write_Debug('Rollback and Finish with other error.') ;
4301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4302: END IF;
4303: -- Initialize message list if p_init_msg_list is set to TRUE.
4304: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4305: FND_MSG_PUB.initialize;
4306: END IF;
4307:
4308:
4309: -- For Test/Debug
4367:
4368: -- Sanity check to make sure the new phase is after the current phase
4369: IF l_new_phase_sn >= l_ri_phase_sn THEN
4370: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4371: FND_MSG_PUB.Add;
4372: RAISE FND_API.G_EXC_ERROR;
4373: END IF;
4374:
4375: -- Get the status_type of the new phase
4390: IF (l_ri_status_type = G_ENG_IMPLEMENTED
4391: OR l_ri_status_type = G_ENG_CANCELLED)
4392: THEN
4393: FND_MESSAGE.Set_Name('ENG','ENG_REVITEM_IMP_OR_CNCL');
4394: FND_MSG_PUB.Add;
4395: RAISE FND_API.G_EXC_ERROR;
4396: ELSE
4397: -- update parent revised item
4398: UPDATE eng_revised_items
4479: x_msg_count := l_msg_count;
4480: x_msg_data := l_msg_data;
4481: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4482: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4483: --#FND_MSG_PUB.Add;
4484: RAISE FND_API.G_EXC_ERROR;
4485: END IF;
4486:
4487: IF g_debug_flag THEN
4499: IF FND_API.To_Boolean ( p_commit ) THEN
4500: COMMIT WORK;
4501: END IF;
4502:
4503: FND_MSG_PUB.Count_And_Get
4504: ( p_count => x_msg_count,
4505: p_data => x_msg_data );
4506:
4507: IF g_debug_flag THEN
4515: EXCEPTION
4516: WHEN FND_API.G_EXC_ERROR THEN
4517: --ROLLBACK TO Demote_Revised_Item;
4518: x_return_status := FND_API.G_RET_STS_ERROR;
4519: FND_MSG_PUB.Count_And_Get
4520: ( p_count => x_msg_count
4521: ,p_data => x_msg_data );
4522: IF g_debug_flag THEN
4523: Write_Debug('Rollback and Finish with expected error.') ;
4527: END IF;
4528: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4529: --ROLLBACK TO Demote_Revised_Item;
4530: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4531: FND_MSG_PUB.Count_And_Get
4532: ( p_count => x_msg_count
4533: ,p_data => x_msg_data );
4534: IF g_debug_flag THEN
4535: Write_Debug('Rollback and Finish with unexpected error.') ;
4539: END IF;
4540: WHEN OTHERS THEN
4541: --ROLLBACK TO Demote_Revised_Item;
4542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4543: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4544: THEN
4545: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4546: END IF;
4547: FND_MSG_PUB.Count_And_Get
4541: --ROLLBACK TO Demote_Revised_Item;
4542: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4543: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4544: THEN
4545: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4546: END IF;
4547: FND_MSG_PUB.Count_And_Get
4548: ( p_count => x_msg_count
4549: ,p_data => x_msg_data );
4543: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4544: THEN
4545: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4546: END IF;
4547: FND_MSG_PUB.Count_And_Get
4548: ( p_count => x_msg_count
4549: ,p_data => x_msg_data );
4550: IF g_debug_flag THEN
4551: Write_Debug('Rollback and Finish with other error.') ;
4604: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4605: END IF;
4606: -- Initialize message list if p_init_msg_list is set to TRUE.
4607: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4608: FND_MSG_PUB.initialize;
4609: END IF;
4610:
4611:
4612: -- For Test/Debug
4659: l_wf_route_id IS NOT NULL
4660: AND l_wf_status = Eng_Workflow_Util.G_RT_IN_PROGRESS)
4661: THEN
4662: FND_MESSAGE.Set_Name('ENG','ENG_OBJ_STATE_CHANGED');
4663: FND_MSG_PUB.Add;
4664: RAISE FND_API.G_EXC_ERROR;
4665: END IF;
4666:
4667: IF ( p_action_type = G_ENG_PROMOTE ) THEN
4694: x_msg_count := l_msg_count;
4695: x_msg_data := l_msg_data;
4696: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4697: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
4698: --#FND_MSG_PUB.Add;
4699: RAISE FND_API.G_EXC_ERROR;
4700: END IF;
4701: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4702:
4728: x_msg_count := l_msg_count;
4729: x_msg_data := l_msg_data;
4730: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4731: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
4732: --#FND_MSG_PUB.Add;
4733: RAISE FND_API.G_EXC_ERROR;
4734: END IF;
4735: ELSE
4736: IF g_debug_flag THEN
4770: x_msg_count := l_msg_count;
4771: x_msg_data := l_msg_data;
4772: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4773: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Revised_Item');
4774: --#FND_MSG_PUB.Add;
4775: RAISE FND_API.G_EXC_ERROR;
4776: END IF;
4777:
4778: ELSIF ( p_action_type = G_ENG_DEMOTE ) THEN
4803: x_msg_count := l_msg_count;
4804: x_msg_data := l_msg_data;
4805: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
4806: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Revised_Item');
4807: --#FND_MSG_PUB.Add;
4808: RAISE FND_API.G_EXC_ERROR;
4809: END IF;
4810: ELSE
4811: IF g_debug_flag THEN
4822: IF FND_API.To_Boolean ( p_commit ) THEN
4823: COMMIT WORK;
4824: END IF;
4825:
4826: FND_MSG_PUB.Count_And_Get
4827: ( p_count => x_msg_count,
4828: p_data => x_msg_data );
4829:
4830: IF g_debug_flag THEN
4838: EXCEPTION
4839: WHEN FND_API.G_EXC_ERROR THEN
4840: --ROLLBACK TO Change_Phase;
4841: x_return_status := FND_API.G_RET_STS_ERROR;
4842: FND_MSG_PUB.Count_And_Get
4843: ( p_count => x_msg_count
4844: ,p_data => x_msg_data );
4845: IF g_debug_flag THEN
4846: Write_Debug('Rollback and Finish with expected error.') ;
4850: END IF;
4851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4852: --ROLLBACK TO Change_Phase;
4853: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4854: FND_MSG_PUB.Count_And_Get
4855: ( p_count => x_msg_count
4856: ,p_data => x_msg_data );
4857: IF g_debug_flag THEN
4858: Write_Debug('Rollback and Finish with unexpected error.') ;
4862: END IF;
4863: WHEN OTHERS THEN
4864: --ROLLBACK TO Change_Phase;
4865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4866: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4867: THEN
4868: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4869: END IF;
4870: FND_MSG_PUB.Count_And_Get
4864: --ROLLBACK TO Change_Phase;
4865: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
4866: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4867: THEN
4868: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4869: END IF;
4870: FND_MSG_PUB.Count_And_Get
4871: ( p_count => x_msg_count
4872: ,p_data => x_msg_data );
4866: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
4867: THEN
4868: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
4869: END IF;
4870: FND_MSG_PUB.Count_And_Get
4871: ( p_count => x_msg_count
4872: ,p_data => x_msg_data );
4873: IF g_debug_flag THEN
4874: Write_Debug('Rollback and Finish with other error.') ;
5020: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5021: END IF;
5022: -- Initialize message list if p_init_msg_list is set to TRUE.
5023: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5024: FND_MSG_PUB.initialize;
5025: END IF;
5026:
5027:
5028: -- For Test/Debug
5309: x_msg_count := l_msg_count;
5310: x_msg_data := l_msg_data;
5311: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5312: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5313: --#FND_MSG_PUB.Add;
5314: RAISE FND_API.G_EXC_ERROR;
5315: END IF;
5316: IF g_debug_flag THEN
5317: Write_Debug('Successful: saving action log');
5321: x_msg_count := l_msg_count;
5322: x_msg_data := l_msg_data;
5323: FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CONCURRENT_PRGM');
5324: FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Implement_ECO');
5325: FND_MSG_PUB.Add;
5326: RAISE FND_API.G_EXC_ERROR;
5327: END IF;
5328: END IF;
5329:
5389: x_msg_count := l_msg_count;
5390: x_msg_data := l_msg_data;
5391: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5392: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
5393: --#FND_MSG_PUB.Add;
5394: RAISE FND_API.G_EXC_ERROR;
5395: END IF;
5396: IF g_debug_flag THEN
5397: Write_Debug('Successful: saving action log');
5622: IF g_debug_flag THEN
5623: Write_Debug('Branch: Exists non completed/implemented/cancelled lines');
5624: END IF;
5625: FND_MESSAGE.Set_Name('ENG','ENG_EXIST_ACTIVE_LINES');
5626: FND_MSG_PUB.Add;
5627: RAISE FND_API.G_EXC_ERROR;
5628: END IF;
5629: END LOOP;
5630: CLOSE c_lines;
5688: x_msg_count := l_msg_count;
5689: x_msg_data := l_msg_data;
5690: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5691: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ATTACHMENT_IMPLEMENTATION.Update_Attachment_Status');
5692: --#FND_MSG_PUB.Add;
5693: RAISE FND_API.G_EXC_ERROR;
5694: END IF;
5695: END IF;
5696: IF g_debug_flag THEN
5767: x_msg_count := l_msg_count;
5768: x_msg_data := l_msg_data;
5769: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5770: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
5771: --#FND_MSG_PUB.Add;
5772: RAISE FND_API.G_EXC_ERROR;
5773: END IF;
5774:
5775: IF g_debug_flag THEN
5936: x_msg_count := l_msg_count;
5937: x_msg_data := l_msg_data;
5938: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
5939: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
5940: --#FND_MSG_PUB.Add;
5941: RAISE FND_API.G_EXC_ERROR;
5942: END IF;
5943: IF g_debug_flag THEN
5944: Write_Debug('Successful: calling Demote_Header procedure');
6037: -- sanity check: workflow must pass p_status_code for the workflow p_route_id
6038: IF (p_status_code IS NULL) THEN
6039: FND_MESSAGE.Set_Name('ENG','ENG_OBJECT_CANT_BE_NULL');
6040: FND_MESSAGE.Set_Token('OBJECT_NAME', 'p_status_code passed by workflow');
6041: FND_MSG_PUB.Add;
6042: RAISE FND_API.G_EXC_ERROR;
6043: END IF;
6044: -- update phase workflow status
6045: UPDATE eng_lifecycle_statuses
6171: x_msg_count := l_msg_count;
6172: x_msg_data := l_msg_data;
6173: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6174: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
6175: --#FND_MSG_PUB.Add;
6176: RAISE FND_API.G_EXC_ERROR;
6177: END IF;
6178: IF g_debug_flag THEN
6179: Write_Debug('Successful: saving action log');
6251: x_msg_count := l_msg_count;
6252: x_msg_data := l_msg_data;
6253: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6254: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Demote_Header');
6255: --#FND_MSG_PUB.Add;
6256: RAISE FND_API.G_EXC_ERROR;
6257: END IF;
6258: IF g_debug_flag THEN
6259: Write_Debug('Successful: calling DEMOTE_HEADER procedure ');
6351: IF FND_API.To_Boolean ( p_commit ) THEN
6352: COMMIT WORK;
6353: END IF;
6354:
6355: FND_MSG_PUB.Count_And_Get
6356: ( p_count => x_msg_count,
6357: p_data => x_msg_data );
6358:
6359: IF g_debug_flag THEN
6367: EXCEPTION
6368: WHEN FND_API.G_EXC_ERROR THEN
6369: --ROLLBACK TO Update_Lifecycle_States;
6370: x_return_status := FND_API.G_RET_STS_ERROR;
6371: FND_MSG_PUB.Count_And_Get
6372: ( p_count => x_msg_count
6373: ,p_data => x_msg_data );
6374: IF g_debug_flag THEN
6375: Write_Debug('Rollback and Finish with expected error.') ;
6379: END IF;
6380: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6381: --ROLLBACK TO Update_Lifecycle_States;
6382: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6383: FND_MSG_PUB.Count_And_Get
6384: ( p_count => x_msg_count
6385: ,p_data => x_msg_data );
6386: IF g_debug_flag THEN
6387: Write_Debug('Rollback and Finish with unexpected error.') ;
6391: END IF;
6392: WHEN OTHERS THEN
6393: --ROLLBACK TO Update_Lifecycle_States;
6394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6396: THEN
6397: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6398: END IF;
6399: FND_MSG_PUB.Count_And_Get
6393: --ROLLBACK TO Update_Lifecycle_States;
6394: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6396: THEN
6397: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6398: END IF;
6399: FND_MSG_PUB.Count_And_Get
6400: ( p_count => x_msg_count
6401: ,p_data => x_msg_data );
6395: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6396: THEN
6397: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6398: END IF;
6399: FND_MSG_PUB.Count_And_Get
6400: ( p_count => x_msg_count
6401: ,p_data => x_msg_data );
6402: IF g_debug_flag THEN
6403: Write_Debug('Rollback and Finish with other error.') ;
6464: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6465: END IF;
6466: -- Initialize message list if p_init_msg_list is set to TRUE.
6467: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6468: FND_MSG_PUB.initialize;
6469: END IF;
6470:
6471:
6472: -- For Test/Debug
6520: /*
6521: -- Make sure a workflow is already associated with the current phase
6522: IF (l_wf_route_id IS NULL) THEN
6523: FND_MESSAGE.Set_Name('ENG','ENG_WF_NOT_DEFINED_ON_PHASE');
6524: FND_MSG_PUB.Add;
6525: RAISE FND_API.G_EXC_ERROR;
6526: END IF;
6527: */
6528:
6578:
6579: -- One and only one record should be found with the cursor
6580: IF (l_row_counter <> 1) THEN
6581: FND_MESSAGE.Set_Name('ENG','ENG_NOT_EXACTLY_ONE_RECORD');
6582: FND_MSG_PUB.Add;
6583: RAISE FND_API.G_EXC_ERROR;
6584: END IF;
6585:
6586: -- Standard ending code ------------------------------------------------
6587: IF FND_API.To_Boolean ( p_commit ) THEN
6588: COMMIT WORK;
6589: END IF;
6590:
6591: FND_MSG_PUB.Count_And_Get
6592: ( p_count => x_msg_count,
6593: p_data => x_msg_data );
6594:
6595: IF g_debug_flag THEN
6603: EXCEPTION
6604: WHEN FND_API.G_EXC_ERROR THEN
6605: --ROLLBACK TO Refresh_WF_Route;
6606: x_return_status := FND_API.G_RET_STS_ERROR;
6607: FND_MSG_PUB.Count_And_Get
6608: ( p_count => x_msg_count
6609: ,p_data => x_msg_data );
6610: IF g_debug_flag THEN
6611: Write_Debug('Rollback and Finish with expected error.') ;
6615: END IF;
6616: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6617: --ROLLBACK TO Refresh_WF_Route;
6618: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6619: FND_MSG_PUB.Count_And_Get
6620: ( p_count => x_msg_count
6621: ,p_data => x_msg_data );
6622: IF g_debug_flag THEN
6623: Write_Debug('Rollback and Finish with unexpected error.') ;
6627: END IF;
6628: WHEN OTHERS THEN
6629: --ROLLBACK TO Refresh_WF_Route;
6630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6631: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6632: THEN
6633: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6634: END IF;
6635: FND_MSG_PUB.Count_And_Get
6629: --ROLLBACK TO Refresh_WF_Route;
6630: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
6631: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6632: THEN
6633: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6634: END IF;
6635: FND_MSG_PUB.Count_And_Get
6636: ( p_count => x_msg_count
6637: ,p_data => x_msg_data );
6631: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
6632: THEN
6633: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
6634: END IF;
6635: FND_MSG_PUB.Count_And_Get
6636: ( p_count => x_msg_count
6637: ,p_data => x_msg_data );
6638: IF g_debug_flag THEN
6639: Write_Debug('Rollback and Finish with other error.') ;
6744: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6745: END IF;
6746: -- Initialize message list if p_init_msg_list is set to TRUE.
6747: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6748: FND_MSG_PUB.initialize;
6749: END IF;
6750:
6751: -- For Test/Debug
6752: Check_And_Open_Debug_Session(p_debug, p_output_dir, p_debug_filename) ;
6876: x_msg_count := l_msg_count;
6877: x_msg_data := l_msg_data;
6878: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
6879: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'Promote_Header');
6880: --#FND_MSG_PUB.Add;
6881: RAISE FND_API.G_EXC_ERROR;
6882: END IF;
6883:
6884: IF g_debug_flag THEN
6941: /*
6942: -- Sanity check
6943: IF (l_sequence_number <> l_initial_phase_sn) THEN
6944: FND_MESSAGE.Set_Name('ENG','ENG_CURR_PHASE_NOT_FIRST');
6945: FND_MSG_PUB.Add;
6946: RAISE FND_API.G_EXC_ERROR;
6947: END IF;
6948: IF g_debug_flag THEN
6949: Write_Debug('After: sanity check of the current phase as the first phase');
7055: x_msg_count := l_msg_count;
7056: x_msg_data := l_msg_data;
7057: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7058: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
7059: --#FND_MSG_PUB.Add;
7060: RAISE FND_API.G_EXC_ERROR;
7061: END IF;
7062: IF g_debug_flag THEN
7063: Write_Debug('Successful: saving action log');
7175: x_msg_count := l_msg_count;
7176: x_msg_data := l_msg_data;
7177: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7178: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_ECO_UTIL.Propagate_ECO');
7179: --#FND_MSG_PUB.Add;
7180: RAISE FND_API.G_EXC_ERROR;
7181: END IF;
7182:
7183: IF g_debug_flag THEN
7231: x_msg_count := l_msg_count;
7232: x_msg_data := l_msg_data;
7233: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_PS_API');
7234: --#FND_MESSAGE.Set_Token('OBJECT_NAME', 'ENG_CHANGE_ACTIONS_UTIL.Create_Change_Action');
7235: --#FND_MSG_PUB.Add;
7236: RAISE FND_API.G_EXC_ERROR;
7237: END IF;
7238: IF g_debug_flag THEN
7239: Write_Debug('Successful: saving action log');
7283: x_return_status := l_return_status;
7284: x_msg_count := l_msg_count;
7285: x_msg_data := l_msg_data;
7286: --#FND_MESSAGE.Set_Name('ENG','ENG_ERROR_CALLING_WF_API');
7287: --#FND_MSG_PUB.Add;
7288: RAISE FND_API.G_EXC_ERROR;
7289: END IF;
7290:
7291: -- Standard ending code ------------------------------------------------
7292: IF FND_API.To_Boolean ( p_commit ) THEN
7293: COMMIT WORK;
7294: END IF;
7295:
7296: FND_MSG_PUB.Count_And_Get
7297: ( p_count => x_msg_count,
7298: p_data => x_msg_data );
7299:
7300: IF g_debug_flag THEN
7322: END IF;
7323: WHEN FND_API.G_EXC_ERROR THEN
7324: --ROLLBACK TO Init_Lifecycle;
7325: x_return_status := FND_API.G_RET_STS_ERROR;
7326: FND_MSG_PUB.Count_And_Get
7327: ( p_count => x_msg_count
7328: ,p_data => x_msg_data );
7329: IF g_debug_flag THEN
7330: Write_Debug('Rollback and Finish with expected error.') ;
7334: END IF;
7335: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7336: --ROLLBACK TO Init_Lifecycle;
7337: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7338: FND_MSG_PUB.Count_And_Get
7339: ( p_count => x_msg_count
7340: ,p_data => x_msg_data );
7341: IF g_debug_flag THEN
7342: Write_Debug('Rollback and Finish with unexpected error.') ;
7346: END IF;
7347: WHEN OTHERS THEN
7348: --ROLLBACK TO Init_Lifecycle;
7349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7351: THEN
7352: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7353: END IF;
7354: FND_MSG_PUB.Count_And_Get
7348: --ROLLBACK TO Init_Lifecycle;
7349: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7351: THEN
7352: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7353: END IF;
7354: FND_MSG_PUB.Count_And_Get
7355: ( p_count => x_msg_count
7356: ,p_data => x_msg_data );
7350: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7351: THEN
7352: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7353: END IF;
7354: FND_MSG_PUB.Count_And_Get
7355: ( p_count => x_msg_count
7356: ,p_data => x_msg_data );
7357: IF g_debug_flag THEN
7358: Write_Debug('Rollback and Finish with other error.') ;
7407: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
7408: END IF;
7409: -- Initialize message list if p_init_msg_list is set to TRUE.
7410: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7411: FND_MSG_PUB.initialize;
7412: END IF;
7413:
7414:
7415: -- For Test/Debug
7456: IF FND_API.To_Boolean ( p_commit ) THEN
7457: COMMIT WORK;
7458: END IF;
7459:
7460: FND_MSG_PUB.Count_And_Get
7461: ( p_count => x_msg_count,
7462: p_data => x_msg_data );
7463:
7464: IF g_debug_flag THEN
7472: EXCEPTION
7473: WHEN FND_API.G_EXC_ERROR THEN
7474: --ROLLBACK TO Update_RevItem_Lifecycle;
7475: x_return_status := FND_API.G_RET_STS_ERROR;
7476: FND_MSG_PUB.Count_And_Get
7477: ( p_count => x_msg_count
7478: ,p_data => x_msg_data );
7479: IF g_debug_flag THEN
7480: Write_Debug('Rollback and Finish with expected error.') ;
7484: END IF;
7485: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
7486: --ROLLBACK TO Update_RevItem_Lifecycle;
7487: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7488: FND_MSG_PUB.Count_And_Get
7489: ( p_count => x_msg_count
7490: ,p_data => x_msg_data );
7491: IF g_debug_flag THEN
7492: Write_Debug('Rollback and Finish with unexpected error.') ;
7496: END IF;
7497: WHEN OTHERS THEN
7498: --ROLLBACK TO Update_RevItem_Lifecycle;
7499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7500: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7501: THEN
7502: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7503: END IF;
7504: FND_MSG_PUB.Count_And_Get
7498: --ROLLBACK TO Update_RevItem_Lifecycle;
7499: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7500: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7501: THEN
7502: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7503: END IF;
7504: FND_MSG_PUB.Count_And_Get
7505: ( p_count => x_msg_count
7506: ,p_data => x_msg_data );
7500: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7501: THEN
7502: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7503: END IF;
7504: FND_MSG_PUB.Count_And_Get
7505: ( p_count => x_msg_count
7506: ,p_data => x_msg_data );
7507: IF g_debug_flag THEN
7508: Write_Debug('Rollback and Finish with other error.') ;
7594: END IF;
7595:
7596: -- Initialize message list if p_init_msg_list is set to TRUE.
7597: IF FND_API.to_Boolean( p_init_msg_list ) THEN
7598: FND_MSG_PUB.initialize;
7599: END IF;
7600:
7601:
7602: -- For Test/Debug
7656:
7657: IF l_reset_status_code IS NULL THEN
7658: -- This should not happen
7659: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7660: FND_MSG_PUB.Add ;
7661: RAISE FND_API.G_EXC_ERROR ;
7662: END IF ;
7663:
7664: IF (p_status_code IS NOT NULL AND l_reset_status_code <> p_status_code )
7665: THEN
7666:
7667: -- This should not happen
7668: FND_MESSAGE.SET_NAME('ENG', 'ENG_RESET_STATUS_NOT_CUR') ;
7669: FND_MSG_PUB.Add ;
7670: RAISE FND_API.G_EXC_ERROR ;
7671:
7672: END IF ;
7673:
7799:
7800: IF l_reset_status_code IS NULL THEN
7801: -- This should not happen
7802: FND_MESSAGE.SET_NAME('ENG', 'ENG_STATUS_CODE_NULL') ;
7803: FND_MSG_PUB.Add ;
7804: RAISE FND_API.G_EXC_ERROR ;
7805: END IF ;
7806:
7807: END IF ;
7851: IF FND_API.To_Boolean ( p_commit ) THEN
7852: COMMIT WORK;
7853: END IF;
7854:
7855: FND_MSG_PUB.Count_And_Get
7856: ( p_count => x_msg_count,
7857: p_data => x_msg_data );
7858:
7859: IF g_debug_flag THEN
7875: END IF;
7876:
7877: x_return_status := FND_API.G_RET_STS_ERROR;
7878:
7879: FND_MSG_PUB.Count_And_Get
7880: ( p_count => x_msg_count
7881: ,p_data => x_msg_data );
7882:
7883: IF g_debug_flag THEN
7899: END IF;
7900:
7901: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
7902:
7903: FND_MSG_PUB.Count_And_Get
7904: ( p_count => x_msg_count
7905: ,p_data => x_msg_data );
7906:
7907: IF g_debug_flag THEN
7925: END IF;
7926:
7927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7928:
7929: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7930: THEN
7931: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7932: END IF;
7933:
7927: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
7928:
7929: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
7930: THEN
7931: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7932: END IF;
7933:
7934: FND_MSG_PUB.Count_And_Get
7935: ( p_count => x_msg_count
7930: THEN
7931: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
7932: END IF;
7933:
7934: FND_MSG_PUB.Count_And_Get
7935: ( p_count => x_msg_count
7936: ,p_data => x_msg_data );
7937:
7938:
8029: END IF;
8030:
8031: -- Initialize message list if p_init_msg_list is set to TRUE.
8032: IF FND_API.to_Boolean( p_init_msg_list ) THEN
8033: FND_MSG_PUB.initialize;
8034: END IF;
8035:
8036:
8037: -- For Test/Debug
8387: IF FND_API.To_Boolean ( p_commit ) THEN
8388: COMMIT WORK;
8389: END IF;
8390:
8391: FND_MSG_PUB.Count_And_Get
8392: ( p_count => x_msg_count,
8393: p_data => x_msg_data );
8394:
8395: IF g_debug_flag THEN
8411: END IF;
8412:
8413: x_return_status := FND_API.G_RET_STS_ERROR;
8414:
8415: FND_MSG_PUB.Count_And_Get
8416: ( p_count => x_msg_count
8417: ,p_data => x_msg_data );
8418:
8419: IF g_debug_flag THEN
8435: END IF;
8436:
8437: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
8438:
8439: FND_MSG_PUB.Count_And_Get
8440: ( p_count => x_msg_count
8441: ,p_data => x_msg_data );
8442:
8443: IF g_debug_flag THEN
8461: END IF;
8462:
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8464:
8465: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8466: THEN
8467: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8468: END IF;
8469:
8463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
8464:
8465: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
8466: THEN
8467: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8468: END IF;
8469:
8470: FND_MSG_PUB.Count_And_Get
8471: ( p_count => x_msg_count
8466: THEN
8467: FND_MSG_PUB.Add_Exc_Msg ( G_PKG_NAME, l_api_name );
8468: END IF;
8469:
8470: FND_MSG_PUB.Count_And_Get
8471: ( p_count => x_msg_count
8472: ,p_data => x_msg_data );
8473:
8474: