[Home] [Help]
1: PACKAGE BODY IEC_SUBSET_PVT AS
2: /* $Header: IECOCSBB.pls 115.27 2004/09/03 16:47:23 alromero noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'IEC_SUBSET_PVT';
5:
1: PACKAGE BODY IEC_SUBSET_PVT AS
2: /* $Header: IECOCSBB.pls 115.27 2004/09/03 16:47:23 alromero noship $ */
3:
4: g_pkg_name CONSTANT VARCHAR2(30) := 'IEC_SUBSET_PVT';
5:
6: TYPE TerritoryList IS TABLE OF VARCHAR2(2) INDEX BY BINARY_INTEGER;
7: TYPE UniqueIdList IS TABLE OF NUMBER INDEX BY BINARY_INTEGER;
8:
44: l_error_msg VARCHAR2(2048);
45: BEGIN
46:
47: IEC_OCS_LOG_PVT.LOG_INTERNAL_PLSQL_ERROR
48: ( 'IEC_SUBSET_PVT'
49: , p_method_name
50: , p_sub_method
51: , p_sql_errm
52: , g_error_msg
61: IS
62: l_module VARCHAR2(4000);
63: BEGIN
64:
65: IEC_OCS_LOG_PVT.Get_Module('IEC_SUBSET_PVT', p_method_name, p_sub_method, l_module);
66: g_error_msg := l_module || ':' || g_error_msg;
67: IEC_OCS_LOG_PVT.Log_Message(l_module);
68:
69: END Log;
78: l_encoded_message VARCHAR2(4000);
79: BEGIN
80:
81: IEC_OCS_LOG_PVT.Init_SubsetViewInvalidMsg(p_subset_name, p_list_name, g_error_msg, l_encoded_message);
82: IEC_OCS_LOG_PVT.Get_Module('IEC_SUBSET_PVT', p_method_name, p_sub_method, l_module);
83: g_error_msg := l_module || ':' || g_error_msg;
84: IEC_OCS_LOG_PVT.Log_Message(l_module);
85:
86: END Log_SubsetViewInvalid;
2889: LIST_ID := 10606;
2890: SUBSET_INTO_TBL := SYSTEM.NUMBER_TBL_TYPE(10041);
2891: SUBSET_FROM_TBL := SYSTEM.NUMBER_TBL_TYPE(10028);
2892: TRACELOG(TO_CHAR(SYSDATE, 'MM-DD-YYYY:HH24:MI:SS'));
2893: IEC_SUBSET_PVT.SUBSET_TRANSITION ( 1001
2894: , 10115
2895: , 0 -- CAMPAIGN_ID
2896: , 0 -- SCHEDULE_ID
2897: , LIST_ID
2903: TRACELOG(RETURN_NUM);
2904: TRACELOG(TO_CHAR(SYSDATE, 'MM-DD-YYYY:HH24:MI:SS'));
2905: END TEST_TRANSITION;
2906:
2907: END IEC_SUBSET_PVT;