PACKAGE BODY: APPS.CSM_HZ_LOCATIONS_EVENT_PKG

Source

1 PACKAGE BODY CSM_HZ_LOCATIONS_EVENT_PKG AS
2 /* $Header: csmehzlb.pls 120.1 2005/12/08 16:02 trajasek noship $ */
3 
4 /*** Globals ***/
5 g_debug_level 					 NUMBER;
6 g_acc_table_name        CONSTANT VARCHAR2(30) := 'CSM_HZ_LOCATIONS_ACC';
7 g_seq_name          	CONSTANT VARCHAR2(30) := 'CSM_HZ_LOCATIONS_ACC_S';
8 g_table_name            CONSTANT VARCHAR2(30) := 'HZ_LOCATIONS';
9 g_pk1_name              CONSTANT VARCHAR2(30) := 'LOCATION_ID';
10 g_publication_item_name CONSTANT CSM_ACC_PKG.t_publication_item_list :=
11  CSM_ACC_PKG.t_publication_item_list('CSM_HZ_LOCATIONS');
12 
13 
14 
15 PROCEDURE INSERT_LOCATION( p_location_id IN NUMBER, p_user_id IN NUMBER)
16 IS
17 --variable declarations
18 l_sqlerrno 		VARCHAR2(20);
19 l_sqlerrmsg 	varchar2(2000);
20 
21 BEGIN
22   g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
23 
24   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
25     jtm_message_log_pkg.Log_Msg
26     ( p_location_id
27     , g_table_name
28     , 'Entering Insert_Location'
29     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
30   END IF;
31 
32   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
33     jtm_message_log_pkg.Log_Msg
34     ( p_location_id
35     , g_table_name
36     , 'Inserting ACC record for user_id = '||p_user_id || 'for location id' ||p_location_id
37     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
38   END IF;
39 
40   CSM_ACC_PKG.Insert_Acc
41      ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name,
42       P_ACC_TABLE_NAME         => g_acc_table_name,
43       P_SEQ_NAME               => g_seq_name,
44       P_USER_ID                => p_user_id,
45       P_PK1_NAME               => g_pk1_name,
46       P_PK1_NUM_VALUE          => p_location_id);
47 
48   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
49     jtm_message_log_pkg.Log_Msg
50     ( p_location_id
51     , g_table_name
52     , 'Leaving Insert_Location'
53     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
54   END IF;
55 
56  EXCEPTION
57   WHEN others THEN
58      l_sqlerrno	 := to_char(SQLCODE);
59      l_sqlerrmsg := substr(SQLERRM, 1,2000);
60      RAISE;
61      CSM_UTIL_PKG.LOG('Exception in CSM_HZ_LOCATIONS_EVENT_PKG.INSERT_LOCATION: ' || l_sqlerrno || ':' || l_sqlerrmsg,
62                          'CSM_HZ_LOCATIONS_EVENT_PKG.INSERT_LOCATION',FND_LOG.LEVEL_EXCEPTION);
63 
64 END INSERT_LOCATION;
65 
66 
67 PROCEDURE DELETE_LOCATION( p_location_id IN NUMBER, p_user_id IN NUMBER)
68 IS
69 --variable declarations
70 l_sqlerrno 		VARCHAR2(20);
71 l_sqlerrmsg 	varchar2(2000);
72 
73 BEGIN
74  g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
75  IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
76     jtm_message_log_pkg.Log_Msg
77     ( p_location_id
78     , g_table_name
79     , 'Deleting ACC record for user_id = '||p_user_id || 'for location id' ||p_location_id
80     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
81   END IF;
82 
83  CSM_ACC_PKG.Delete_Acc
84     ( P_PUBLICATION_ITEM_NAMES => g_publication_item_name
85      ,P_ACC_TABLE_NAME         => g_acc_table_name
86      ,P_PK1_NAME               => g_pk1_name
87      ,P_PK1_NUM_VALUE          => p_location_id
88      ,P_USER_ID                => p_user_id
89     );
90 
91 
92   IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
93     jtm_message_log_pkg.Log_Msg
94     ( p_location_id
95     , g_table_name
96     , 'Leaving Delete_Location'
97     , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
98   END IF;
99 
100  EXCEPTION
101   WHEN others THEN
102      l_sqlerrno	 := to_char(SQLCODE);
103      l_sqlerrmsg := substr(SQLERRM, 1,2000);
104      RAISE;
105      CSM_UTIL_PKG.LOG('Exception in CSM_HZ_LOCATIONS_EVENT_PKG.DELETE_LOCATION: ' || l_sqlerrno || ':' || l_sqlerrmsg,
106                          'CSM_HZ_LOCATIONS_EVENT_PKG.DELETE_LOCATION',FND_LOG.LEVEL_EXCEPTION);
107 
108 END DELETE_LOCATION;
109 
110 END CSM_HZ_LOCATIONS_EVENT_PKG;
111