5:
6: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.' ;
7:
8: -- Read the profile option that enables/disables the debug log
9: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
10: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
11:
12:
13:
6: g_log_head CONSTANT VARCHAR2(50) := 'po.plsql.'|| G_PKG_NAME || '.' ;
7:
8: -- Read the profile option that enables/disables the debug log
9: g_debug_stmt CONSTANT BOOLEAN := PO_DEBUG.is_debug_stmt_on;
10: g_debug_unexp CONSTANT BOOLEAN := PO_DEBUG.is_debug_unexp_on;
11:
12:
13:
14:
76:
77: BEGIN
78:
79: IF g_debug_stmt THEN
80: PO_DEBUG.debug_begin(l_log_head);
81: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
82: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
83: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code',p_action_code);
84: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
77: BEGIN
78:
79: IF g_debug_stmt THEN
80: PO_DEBUG.debug_begin(l_log_head);
81: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
82: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
83: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code',p_action_code);
84: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
85: END IF;
78:
79: IF g_debug_stmt THEN
80: PO_DEBUG.debug_begin(l_log_head);
81: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
82: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
83: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code',p_action_code);
84: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
85: END IF;
86:
79: IF g_debug_stmt THEN
80: PO_DEBUG.debug_begin(l_log_head);
81: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
82: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
83: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code',p_action_code);
84: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
85: END IF;
86:
87: l_progress := '010';
80: PO_DEBUG.debug_begin(l_log_head);
81: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
82: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
83: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code',p_action_code);
84: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
85: END IF;
86:
87: l_progress := '010';
88:
133:
134: l_progress := '300';
135:
136: IF g_debug_stmt THEN
137: PO_DEBUG.debug_var(l_log_head,l_progress,'SQL%ROWCOUNT',SQL%ROWCOUNT);
138: PO_DEBUG.debug_end(l_log_head);
139: END IF;
140:
141: EXCEPTION
134: l_progress := '300';
135:
136: IF g_debug_stmt THEN
137: PO_DEBUG.debug_var(l_log_head,l_progress,'SQL%ROWCOUNT',SQL%ROWCOUNT);
138: PO_DEBUG.debug_end(l_log_head);
139: END IF;
140:
141: EXCEPTION
142: WHEN OTHERS THEN
217:
218: BEGIN
219:
220: IF g_debug_stmt THEN
221: PO_DEBUG.debug_begin(l_log_head);
222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
218: BEGIN
219:
220: IF g_debug_stmt THEN
221: PO_DEBUG.debug_begin(l_log_head);
222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
226: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code_tbl',p_action_code_tbl);
219:
220: IF g_debug_stmt THEN
221: PO_DEBUG.debug_begin(l_log_head);
222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
226: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code_tbl',p_action_code_tbl);
227: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
220: IF g_debug_stmt THEN
221: PO_DEBUG.debug_begin(l_log_head);
222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
226: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code_tbl',p_action_code_tbl);
227: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
228: END IF;
221: PO_DEBUG.debug_begin(l_log_head);
222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
226: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code_tbl',p_action_code_tbl);
227: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
228: END IF;
229:
222: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_id_tbl',p_doc_id_tbl);
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
226: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code_tbl',p_action_code_tbl);
227: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
228: END IF;
229:
230: l_progress := '010';
223: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_type_tbl',p_doc_type_tbl);
224: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_subtype_tbl',p_doc_subtype_tbl);
225: PO_DEBUG.debug_var(l_log_head,l_progress,'p_doc_revision_num_tbl',p_doc_revision_num_tbl);
226: PO_DEBUG.debug_var(l_log_head,l_progress,'p_action_code_tbl',p_action_code_tbl);
227: PO_DEBUG.debug_var(l_log_head,l_progress,'p_employee_id',p_employee_id);
228: END IF;
229:
230: l_progress := '010';
231:
306:
307: l_progress := '300';
308:
309: IF g_debug_stmt THEN
310: PO_DEBUG.debug_var(l_log_head,l_progress,'SQL%ROWCOUNT',SQL%ROWCOUNT);
311: PO_DEBUG.debug_end(l_log_head);
312: END IF;
313:
314: EXCEPTION
307: l_progress := '300';
308:
309: IF g_debug_stmt THEN
310: PO_DEBUG.debug_var(l_log_head,l_progress,'SQL%ROWCOUNT',SQL%ROWCOUNT);
311: PO_DEBUG.debug_end(l_log_head);
312: END IF;
313:
314: EXCEPTION
315: WHEN OTHERS THEN
359:
360: BEGIN
361:
362: IF g_debug_stmt THEN
363: PO_DEBUG.debug_begin(l_log_head);
364: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
365: END IF;
366:
367: l_progress := '010';
360: BEGIN
361:
362: IF g_debug_stmt THEN
363: PO_DEBUG.debug_begin(l_log_head);
364: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
365: END IF;
366:
367: l_progress := '010';
368:
398: WHEN NO_DATA_FOUND THEN
399: l_progress := '140';
400:
401: IF g_debug_unexp THEN
402: PO_DEBUG.debug_unexp(l_log_head,l_progress,'Employee id not found.');
403: END IF;
404:
405: -- If we can't find an employee_id,
406: -- then we'll keep the old employee_id,
414: END IF;
415: -- If an employee id was provided, we don't change it.
416:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
421: PO_DEBUG.debug_end(l_log_head);
422: END IF;
415: -- If an employee id was provided, we don't change it.
416:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
421: PO_DEBUG.debug_end(l_log_head);
422: END IF;
423:
416:
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
421: PO_DEBUG.debug_end(l_log_head);
422: END IF;
423:
424: EXCEPTION
417: IF g_debug_stmt THEN
418: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
419: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
420: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
421: PO_DEBUG.debug_end(l_log_head);
422: END IF;
423:
424: EXCEPTION
425: WHEN OTHERS THEN
425: WHEN OTHERS THEN
426: PO_MESSAGE_S.sql_error(g_pkg_name,l_proc_name,l_progress,SQLCODE,SQLERRM);
427:
428: IF g_debug_stmt THEN
429: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
430: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
431: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
432: END IF;
433:
426: PO_MESSAGE_S.sql_error(g_pkg_name,l_proc_name,l_progress,SQLCODE,SQLERRM);
427:
428: IF g_debug_stmt THEN
429: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
430: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
431: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
432: END IF;
433:
434: RAISE;
427:
428: IF g_debug_stmt THEN
429: PO_DEBUG.debug_var(l_log_head,l_progress,'x_employee_id',x_employee_id);
430: PO_DEBUG.debug_var(l_log_head,l_progress,'x_user_id',x_user_id);
431: PO_DEBUG.debug_var(l_log_head,l_progress,'x_login_id',x_login_id);
432: END IF;
433:
434: RAISE;
435: