1: PACKAGE BODY IEC_STATUS_PVT AS
2: /* $Header: IECOCSTB.pls 120.1 2006/03/28 07:57:56 minwang noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'IEC_STATUS_PVT';
5:
1: PACKAGE BODY IEC_STATUS_PVT AS
2: /* $Header: IECOCSTB.pls 120.1 2006/03/28 07:57:56 minwang noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'IEC_STATUS_PVT';
5:
6: g_error_msg VARCHAR2(2048) := NULL;
7:
8: G_LIST_STATUS_EXECUTING CONSTANT NUMBER := 310;
21: IS
22: BEGIN
23:
24: IEC_OCS_LOG_PVT.LOG_INTERNAL_PLSQL_ERROR
25: ( 'IEC_STATUS_PVT'
26: , p_method
27: , p_sub_method
28: , p_sqlerrm
29: , g_error_msg
40: IS
41: BEGIN
42:
43: IEC_OCS_LOG_PVT.LOG_LIST_STATUS_IEC_ERROR
44: ( 'IEC_STATUS_PVT'
45: , p_method
46: , p_sub_method
47: , p_list_id
48: , p_status_id
60: IS
61: BEGIN
62:
63: IEC_OCS_LOG_PVT.LOG_LIST_STATUS_AMS_ERROR
64: ( 'IEC_STATUS_PVT'
65: , p_method
66: , p_sub_method
67: , p_list_id
68: , p_status_id
87: , l_message
88: , l_encoded_message
89: );
90:
91: IEC_OCS_LOG_PVT.Get_Module('IEC_STATUS_PVT', p_method, p_sub_method, l_module);
92: IEC_OCS_LOG_PVT.Log_Message(l_module);
93:
94: END Log_CannotStopSchedule;
95:
1055: , SQLERRM );
1056: RAISE_APPLICATION_ERROR(-20999, g_error_msg);
1057: END HANDLE_STATUS_TRANSITIONS;
1058:
1059: END IEC_STATUS_PVT;