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'
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
43: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM);
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
77: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
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'
94: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
95: );
96: END IF;
97: EXCEPTION
98: WHEN OTHERS THEN
99: jtm_message_log_pkg.Log_Msg
100: ( p_resource_id
101: , g_table_name
102: , 'INSERT_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
103: 'Error: '||sqlerrm
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'
166: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
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)'
181: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
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'
205: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
207: END IF;
208:
209: EXCEPTION
210: WHEN OTHERS THEN
211: jtm_message_log_pkg.Log_Msg
212: ( 0
213: , g_table_name
214: , 'DELETE_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
215: 'Error: '||sqlerrm
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'
250: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
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)'
265: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
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'
284: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
286: END IF;
287:
288: EXCEPTION
289: WHEN OTHERS THEN
290: jtm_message_log_pkg.Log_Msg
291: ( 0
292: , g_table_name
293: , 'UPDATE_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
294: 'Error: '||sqlerrm
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'
347: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
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
361: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_MEDIUM
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'
391: , JTM_HOOK_UTIL_PKG.G_DEBUG_LEVEL_FULL
393: END IF;
394: COMMIT;
395: EXCEPTION
396: WHEN OTHERS THEN
397: jtm_message_log_pkg.Log_Msg
398: ( 0
399: , g_table_name
400: , 'CON_REQUEST_SERIAL_NUMBERS'||fnd_global.local_chr(10)||
401: 'Error: '||sqlerrm