DBA Data[Home] [Help]

APPS.CSL_MTL_SERIAL_NUMBERS_ACC_PKG dependencies on JTM_HOOK_UTIL_PKG

Line 7: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=

3:
4: /*** Globals ***/
5: g_debug_level NUMBER; -- debug level
6:
7: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
8: JTM_HOOK_UTIL_PKG.t_publication_item_list('MTL_SERIAL_NUMBERS');
9: g_table_name CONSTANT VARCHAR2(30) := 'MTL_SERIAL_NUMBERS';
10:
11:

Line 8: JTM_HOOK_UTIL_PKG.t_publication_item_list('MTL_SERIAL_NUMBERS');

4: /*** Globals ***/
5: g_debug_level NUMBER; -- debug level
6:
7: g_publication_item_name CONSTANT JTM_HOOK_UTIL_PKG.t_publication_item_list :=
8: JTM_HOOK_UTIL_PKG.t_publication_item_list('MTL_SERIAL_NUMBERS');
9: g_table_name CONSTANT VARCHAR2(30) := 'MTL_SERIAL_NUMBERS';
10:
11:
12:

Line 28: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;

24: l_dummy BOOLEAN;
25:
26: BEGIN
27: /*** get debug level ***/
28: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
29: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
30: jtm_message_log_pkg.Log_Msg
31: ( p_resource_id
32: , g_table_name

Line 29: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

25:
26: BEGIN
27: /*** get debug level ***/
28: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
29: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
30: jtm_message_log_pkg.Log_Msg
31: ( p_resource_id
32: , g_table_name
33: , 'Entering INSERT_SERIAL_NUMBERS'

Line 34: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

30: jtm_message_log_pkg.Log_Msg
31: ( p_resource_id
32: , g_table_name
33: , 'Entering INSERT_SERIAL_NUMBERS'
34: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
35: );
36: END IF;
37:
38: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN

Line 38: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN

34: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
35: );
36: END IF;
37:
38: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
39: jtm_message_log_pkg.Log_Msg
40: ( p_resource_id
41: , g_table_name
42: , 'Inserting records for resource: '||p_resource_id

Line 43: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);

39: jtm_message_log_pkg.Log_Msg
40: ( p_resource_id
41: , g_table_name
42: , 'Inserting records for resource: '||p_resource_id
43: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
44: END IF;
45:
46: /*Block insert every item from given subinventory/org not yet in acc table*/
47: SELECT JTM_ACC_TABLE_S.NEXTVAL, INVENTORY_ITEM_ID, SERIAL_NUMBER, p_resource_id

Line 72: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN

68: , COUNTER, RESOURCE_ID, INVENTORY_ITEM_ID, SERIAL_NUMBER ) VALUES (
69: sequences(i), sysdate, 1, sysdate, 1, 1, p_resource_id, items(i), serials(i));
70:
71: /*** 1 or more acc rows retrieved -> push to resource ***/
72: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
73: jtm_message_log_pkg.Log_Msg
74: ( p_resource_id
75: , g_table_name
76: , 'Pushing ' || sequences.COUNT || ' inserted record(s) to resource: '||p_resource_id

Line 77: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM

73: jtm_message_log_pkg.Log_Msg
74: ( p_resource_id
75: , g_table_name
76: , 'Pushing ' || sequences.COUNT || ' inserted record(s) to resource: '||p_resource_id
77: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
78: );
79: END IF;
80: l_dummy := asg_download.markdirty(
81: P_PUB_ITEM => g_publication_item_name(1)

Line 89: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

85: , P_TIMESTAMP => SYSDATE
86: );
87:
88: END IF;
89: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
90: jtm_message_log_pkg.Log_Msg
91: ( p_resource_id
92: , g_table_name
93: , 'Leaving INSERT_SERIAL_NUMBERS'

Line 94: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

90: jtm_message_log_pkg.Log_Msg
91: ( p_resource_id
92: , g_table_name
93: , 'Leaving INSERT_SERIAL_NUMBERS'
94: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
95: );
96: END IF;
97: EXCEPTION
98: WHEN OTHERS THEN

Line 104: , JTM_HOOK_UTIL_PKG.g_debug_level_error);

100: ( p_resource_id
101: , g_table_name
102: , 'INSERT_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
103: 'Error: '||sqlerrm
104: , JTM_HOOK_UTIL_PKG.g_debug_level_error);
105: RAISE;
106: END INSERT_SERIAL_NUMBERS;
107:
108: /**/

Line 160: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;

156: );
157:
158: BEGIN
159: /*** get debug level ***/
160: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
161: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
162: jtm_message_log_pkg.Log_Msg
163: ( 0
164: , g_table_name

Line 161: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

157:
158: BEGIN
159: /*** get debug level ***/
160: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
161: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
162: jtm_message_log_pkg.Log_Msg
163: ( 0
164: , g_table_name
165: , 'Entering DELETE_SERIAL_NUMBERS'

Line 166: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

162: jtm_message_log_pkg.Log_Msg
163: ( 0
164: , g_table_name
165: , 'Entering DELETE_SERIAL_NUMBERS'
166: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
167: );
168: END IF;
169:
170: /*Delete not used records*/

Line 176: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN

172: FETCH c_remove BULK COLLECT INTO l_tab_access_id, l_tab_resource_id;
173: /*Call oracle lite*/
174: IF l_tab_access_id.COUNT > 0 THEN
175: /*** 1 or more acc rows retrieved -> push to resource ***/
176: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
177: jtm_message_log_pkg.Log_Msg
178: ( 0
179: , g_table_name
180: , 'Deleting ' || l_tab_access_id.COUNT || ' invalid record(s)'

Line 181: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM

177: jtm_message_log_pkg.Log_Msg
178: ( 0
179: , g_table_name
180: , 'Deleting ' || l_tab_access_id.COUNT || ' invalid record(s)'
181: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
182: );
183: END IF;
184: /*** push to oLite using asg_download ***/
185: l_dummy := asg_download.markdirty(

Line 200: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

196: WHERE ACCESS_ID = l_tab_access_id(i);
197: END IF;
198: CLOSE c_remove;
199:
200: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
201: jtm_message_log_pkg.Log_Msg
202: ( 0
203: , g_table_name
204: , 'Leaving DELETE_SERIAL_NUMBERS'

Line 205: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

201: jtm_message_log_pkg.Log_Msg
202: ( 0
203: , g_table_name
204: , 'Leaving DELETE_SERIAL_NUMBERS'
205: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
206: );
207: END IF;
208:
209: EXCEPTION

Line 216: , JTM_HOOK_UTIL_PKG.g_debug_level_error);

212: ( 0
213: , g_table_name
214: , 'DELETE_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
215: 'Error: '||sqlerrm
216: , JTM_HOOK_UTIL_PKG.g_debug_level_error);
217: RAISE;
218: END DELETE_SERIAL_NUMBERS;
219:
220: PROCEDURE UPDATE_SERIAL_NUMBERS( p_date IN DATE )

Line 244: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;

240: l_dummy BOOLEAN;
241:
242: BEGIN
243: /*** get debug level ***/
244: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
245: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
246: jtm_message_log_pkg.Log_Msg
247: ( 0
248: , g_table_name

Line 245: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

241:
242: BEGIN
243: /*** get debug level ***/
244: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
245: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
246: jtm_message_log_pkg.Log_Msg
247: ( 0
248: , g_table_name
249: , 'Entering UPDATE_SERIAL_NUMBERS'

Line 250: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

246: jtm_message_log_pkg.Log_Msg
247: ( 0
248: , g_table_name
249: , 'Entering UPDATE_SERIAL_NUMBERS'
250: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
251: );
252: END IF;
253:
254: /*Fetch all changed system items that are in the acc table*/

Line 260: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN

256: FETCH c_changed BULK COLLECT INTO l_tab_access_id, l_tab_resource_id;
257: /*Call oracle lite*/
258: IF l_tab_access_id.COUNT > 0 THEN
259: /*** 1 or more acc rows retrieved -> push to resource ***/
260: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
261: jtm_message_log_pkg.Log_Msg
262: ( 0
263: , g_table_name
264: , 'Updating ' || l_tab_access_id.COUNT || ' changed record(s)'

Line 265: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM

261: jtm_message_log_pkg.Log_Msg
262: ( 0
263: , g_table_name
264: , 'Updating ' || l_tab_access_id.COUNT || ' changed record(s)'
265: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
266: );
267: END IF;
268: l_dummy := asg_download.markdirty(
269: P_PUB_ITEM => g_publication_item_name(1)

Line 279: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

275:
276: END IF;
277: CLOSE c_changed;
278:
279: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
280: jtm_message_log_pkg.Log_Msg
281: ( 0
282: , g_table_name
283: , 'Leaving UPDATE_SERIAL_NUMBERS'

Line 284: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

280: jtm_message_log_pkg.Log_Msg
281: ( 0
282: , g_table_name
283: , 'Leaving UPDATE_SERIAL_NUMBERS'
284: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
285: );
286: END IF;
287:
288: EXCEPTION

Line 295: , JTM_HOOK_UTIL_PKG.g_debug_level_error);

291: ( 0
292: , g_table_name
293: , 'UPDATE_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
294: 'Error: '||sqlerrm
295: , JTM_HOOK_UTIL_PKG.g_debug_level_error);
296: RAISE;
297: END UPDATE_SERIAL_NUMBERS;
298:
299: /**/

Line 341: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;

337: AND procedure_name = 'CON_REQUEST_SERIAL_NUMBERS';
338:
339: BEGIN
340: /*** get debug level ***/
341: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
342: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
343: jtm_message_log_pkg.Log_Msg
344: ( 0
345: , g_table_name

Line 342: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

338:
339: BEGIN
340: /*** get debug level ***/
341: g_debug_level := JTM_HOOK_UTIL_PKG.Get_Debug_Level;
342: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
343: jtm_message_log_pkg.Log_Msg
344: ( 0
345: , g_table_name
346: , 'Entering CON_REQUEST_SERIAL_NUMBERS'

Line 347: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

343: jtm_message_log_pkg.Log_Msg
344: ( 0
345: , g_table_name
346: , 'Entering CON_REQUEST_SERIAL_NUMBERS'
347: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
348: );
349: END IF;
350:
351: /*** First retrieve last run date of the conccurent program ***/

Line 356: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN

352: OPEN c_LastRundate;
353: FETCH c_LastRundate INTO l_date;
354: IF c_LastRundate%FOUND THEN
355: /*Record is seeded so program should run*/
356: IF g_debug_level >= JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM THEN
357: jtm_message_log_pkg.Log_Msg
358: ( 0
359: , g_table_name
360: , 'Updating LAST_RUN_DATE from '||l_date||' to '||sysdate

Line 361: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM

357: jtm_message_log_pkg.Log_Msg
358: ( 0
359: , g_table_name
360: , 'Updating LAST_RUN_DATE from '||l_date||' to '||sysdate
361: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
362: );
363: END IF;
364:
365: /*Update the last run date*/

Line 386: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN

382: END LOOP;
383: END IF;--c_LastRundate%FOUND
384: CLOSE c_LastRundate;
385:
386: IF g_debug_level = JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL THEN
387: jtm_message_log_pkg.Log_Msg
388: ( 0
389: , g_table_name
390: , 'Leaving CON_REQUEST_SERIAL_NUMBERS'

Line 391: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL

387: jtm_message_log_pkg.Log_Msg
388: ( 0
389: , g_table_name
390: , 'Leaving CON_REQUEST_SERIAL_NUMBERS'
391: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
392: );
393: END IF;
394: COMMIT;
395: EXCEPTION

Line 402: , JTM_HOOK_UTIL_PKG.g_debug_level_error);

398: ( 0
399: , g_table_name
400: , 'CON_REQUEST_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
401: 'Error: '||sqlerrm
402: , JTM_HOOK_UTIL_PKG.g_debug_level_error);
403: ROLLBACK;
404: RETURN;
405: END CON_REQUEST_SERIAL_NUMBERS;
406: