[Home] [Help]
PACKAGE BODY: APPS.CSL_MTL_SEC_INV_ACC_PKG
Source
1 PACKAGE BODY CSL_MTL_SEC_INV_ACC_PKG AS
2 /* $Header: cslmiacb.pls 115.7 2002/08/21 08:27:15 rrademak ship $ */
3
4 /*** Globals ***/
5 g_acc_table_name CONSTANT VARCHAR2(30) := 'JTM_MTL_SEC_INV_ACC';
6 g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
7 JTM_HOOK_UTIL_PKG.t_publication_item_list('MTL_SEC_INVENTORIES');
8 g_table_name CONSTANT VARCHAR2(30) := 'MTL_SEC_INVENTORIES';
9 g_pk1_name CONSTANT VARCHAR2(30) := 'SECONDARY_INVENTORY_NAME';
10 g_pk2_name CONSTANT VARCHAR2(30) := 'ORGANIZATION_ID';
11 g_debug_level NUMBER; -- debug level
12
13 PROCEDURE Insert_MTL_Sec_Inventory(
14 p_resource_id NUMBER
15 , p_subinventory_code VARCHAR2
16 , p_organization_id NUMBER
17 )
18 IS
19 BEGIN
20 /*** get debug level ***/
21 g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
22
23 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
24 jtm_message_log_pkg.Log_Msg
25 ( v_object_id => p_organization_id
26 , v_object_name => g_table_name
27 , v_message => 'Entering Insert_MTL_Sec_Inventory'
28 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
29 END IF;
30
31 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
32 jtm_message_log_pkg.Log_Msg
33 ( v_object_id => p_organization_id
34 , v_object_name => g_table_name
35 , v_message => 'Inserting ACC record :' || p_organization_id || ' for resource id '
36 || p_resource_id
37 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
38 END IF;
39
40 /*** Call common package to insert record into ACC table ***/
41 JTM_HOOK_UTIL_PKG.Insert_Acc
42 ( p_publication_item_names => g_publication_item_name
43 ,p_acc_table_name => g_acc_table_name
44 ,p_resource_id => p_resource_id
45 ,p_pk1_name => g_pk1_name
46 ,p_pk1_char_value => p_subinventory_code
47 ,p_pk2_name => g_pk2_name
48 ,p_pk2_num_value => p_organization_id
49 );
50
51 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
52 jtm_message_log_pkg.Log_Msg
53 ( v_object_id => p_organization_id
54 , v_object_name => g_table_name
55 , v_message => 'Leaving Insert_MTL_Sec_Inventory'
56 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
57 END IF;
58
59 END Insert_MTL_Sec_Inventory;
60
61
62 PROCEDURE Update_MTL_Sec_Inventory(
63 p_resource_id NUMBER
64 , p_subinventory_code VARCHAR2
65 , p_organization_id NUMBER
66 )
67 IS
68 l_acc_id NUMBER;
69 BEGIN
70
71 /*** get debug level ***/
72 g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
73
74 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
75 jtm_message_log_pkg.Log_Msg
76 ( v_object_id => p_organization_id
77 , v_object_name => g_table_name
78 , v_message => 'Entering Update_MTL_Sec_Inventory'
79 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
80 END IF;
81
82 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
83 jtm_message_log_pkg.Log_Msg
84 ( v_object_id => p_organization_id
85 , v_object_name => g_table_name
86 , v_message => 'Update ACC record :' ||
87 p_organization_id || ' for resource id ' || p_resource_id
88 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
89 END IF;
90
91 /*** Call common package to insert record into ACC table ***/
92 l_acc_id := JTM_HOOK_UTIL_PKG.Get_Acc_Id
93 ( P_ACC_TABLE_NAME => g_acc_table_name
94 ,p_pk1_name => g_pk1_name
95 ,p_pk1_char_value => p_subinventory_code
96 ,p_pk2_name => g_pk2_name
97 ,p_pk2_num_value => p_organization_id
98 ,P_RESOURCE_ID => p_resource_id);
99
100
101 IF l_acc_id = -1 THEN
102 /*** Record is not yet in ACC tables. Insert has to be done ***/
103 JTM_HOOK_UTIL_PKG.Insert_Acc
104 ( p_publication_item_names => g_publication_item_name
105 ,p_acc_table_name => g_acc_table_name
106 ,p_pk1_name => g_pk1_name
107 ,p_pk1_char_value => p_subinventory_code
108 ,p_pk2_name => g_pk2_name
109 ,p_pk2_num_value => p_organization_id
110 ,p_resource_id => p_resource_id
111 );
112 ELSE
113 /*** Record is already in ACC. Only an update is required for re-sending ***/
114 JTM_HOOK_UTIL_PKG.Update_Acc
115 ( p_publication_item_names => g_publication_item_name
116 ,p_acc_table_name => g_acc_table_name
117 ,p_resource_id => p_resource_id
118 ,p_access_id => l_acc_id
119 );
120 END IF;
121
122 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
123 jtm_message_log_pkg.Log_Msg
124 ( v_object_id => p_organization_id
125 , v_object_name => g_table_name
126 , v_message => 'Leaving Update_MTL_Sec_Inventory'
127 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
128 END IF;
129 END Update_MTL_Sec_Inventory;
130
131
132 PROCEDURE Delete_MTL_Sec_Inventory(
133 p_resource_id NUMBER
134 , p_subinventory_code VARCHAR2
135 , p_organization_id NUMBER
136 )
137 IS
138 BEGIN
139 /*** get debug level ***/
140 g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
141
142 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
143 jtm_message_log_pkg.Log_Msg
144 ( v_object_id => p_organization_id
145 , v_object_name => g_table_name
146 , v_message => 'Entering Delete_MTL_Sec_Inventory'
147 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
148 END IF;
149
150 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
151 jtm_message_log_pkg.Log_Msg
152 ( v_object_id => p_organization_id
153 , v_object_name => g_table_name
154 , v_message => 'Inserting ACC record :' || p_organization_id || ' for resource id '
155 || p_resource_id
156 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
157 END IF;
158
159 /*** Call common package to insert record into ACC table ***/
160 JTM_HOOK_UTIL_PKG.Delete_Acc
161 ( p_publication_item_names => g_publication_item_name
162 ,p_acc_table_name => g_acc_table_name
163 ,p_resource_id => p_resource_id
164 ,p_pk1_name => g_pk1_name
165 ,p_pk1_char_value => p_subinventory_code
166 ,p_pk2_name => g_pk2_name
167 ,p_pk2_num_value => p_organization_id
168 );
169
170 IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
171 jtm_message_log_pkg.Log_Msg
172 ( v_object_id => p_organization_id
173 , v_object_name => g_table_name
174 , v_message => 'Leaving Delete_MTL_Sec_Inventory'
175 , v_level_id => JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL);
176 END IF;
177 END Delete_MTL_Sec_Inventory;
178
179 END CSL_MTL_SEC_INV_ACC_PKG;