25:
26: BEGIN
27:
28: d_progress := 0;
29: IF (PO_LOG.d_proc) THEN
30: PO_LOG.proc_begin(d_module);
31: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
32: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
33: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
26: BEGIN
27:
28: d_progress := 0;
29: IF (PO_LOG.d_proc) THEN
30: PO_LOG.proc_begin(d_module);
31: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
32: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
33: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
34: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
27:
28: d_progress := 0;
29: IF (PO_LOG.d_proc) THEN
30: PO_LOG.proc_begin(d_module);
31: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
32: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
33: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
34: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
35: END IF;
28: d_progress := 0;
29: IF (PO_LOG.d_proc) THEN
30: PO_LOG.proc_begin(d_module);
31: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
32: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
33: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
34: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
35: END IF;
36:
29: IF (PO_LOG.d_proc) THEN
30: PO_LOG.proc_begin(d_module);
31: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
32: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
33: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
34: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
35: END IF;
36:
37: BEGIN
30: PO_LOG.proc_begin(d_module);
31: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
32: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
33: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
34: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
35: END IF;
36:
37: BEGIN
38:
162: EXCEPTION
163: WHEN PO_CORE_S.g_early_return_exc THEN
164: IF (l_ret_sts = 'U')
165: THEN
166: IF (PO_LOG.d_exc) THEN
167: PO_LOG.exc(d_module, d_progress, d_msg);
168: END IF;
169: END IF;
170:
163: WHEN PO_CORE_S.g_early_return_exc THEN
164: IF (l_ret_sts = 'U')
165: THEN
166: IF (PO_LOG.d_exc) THEN
167: PO_LOG.exc(d_module, d_progress, d_msg);
168: END IF;
169: END IF;
170:
171: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, d_msg);
173: END;
174:
175: p_action_ctl_rec.return_status := l_ret_sts;
176:
177: IF (PO_LOG.d_proc) THEN
178: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
179: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
180: PO_LOG.proc_end(d_module);
181: END IF;
174:
175: p_action_ctl_rec.return_status := l_ret_sts;
176:
177: IF (PO_LOG.d_proc) THEN
178: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
179: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
180: PO_LOG.proc_end(d_module);
181: END IF;
182:
175: p_action_ctl_rec.return_status := l_ret_sts;
176:
177: IF (PO_LOG.d_proc) THEN
178: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
179: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
180: PO_LOG.proc_end(d_module);
181: END IF;
182:
183: RETURN;
176:
177: IF (PO_LOG.d_proc) THEN
178: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
179: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
180: PO_LOG.proc_end(d_module);
181: END IF;
182:
183: RETURN;
184:
186: WHEN OTHERS THEN
187: p_action_ctl_rec.return_status := 'U';
188:
189: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
190: IF (PO_LOG.d_exc) THEN
191: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
192: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
193: PO_LOG.proc_end(d_module);
194: END IF;
187: p_action_ctl_rec.return_status := 'U';
188:
189: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
190: IF (PO_LOG.d_exc) THEN
191: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
192: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
193: PO_LOG.proc_end(d_module);
194: END IF;
195:
188:
189: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
190: IF (PO_LOG.d_exc) THEN
191: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
192: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
193: PO_LOG.proc_end(d_module);
194: END IF;
195:
196: RETURN;
189: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
190: IF (PO_LOG.d_exc) THEN
191: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
192: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
193: PO_LOG.proc_end(d_module);
194: END IF;
195:
196: RETURN;
197:
215:
216: BEGIN
217:
218: d_progress := 0;
219: IF (PO_LOG.d_proc) THEN
220: PO_LOG.proc_begin(d_module);
221: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
222: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
223: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
216: BEGIN
217:
218: d_progress := 0;
219: IF (PO_LOG.d_proc) THEN
220: PO_LOG.proc_begin(d_module);
221: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
222: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
223: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
224: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
217:
218: d_progress := 0;
219: IF (PO_LOG.d_proc) THEN
220: PO_LOG.proc_begin(d_module);
221: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
222: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
223: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
224: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
225: END IF;
218: d_progress := 0;
219: IF (PO_LOG.d_proc) THEN
220: PO_LOG.proc_begin(d_module);
221: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
222: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
223: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
224: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
225: END IF;
226:
219: IF (PO_LOG.d_proc) THEN
220: PO_LOG.proc_begin(d_module);
221: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
222: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
223: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
224: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
225: END IF;
226:
227: BEGIN
220: PO_LOG.proc_begin(d_module);
221: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_id', p_action_ctl_rec.document_id);
222: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_type', p_action_ctl_rec.document_type);
223: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.document_subtype', p_action_ctl_rec.document_subtype);
224: PO_LOG.proc_begin(d_module, 'p_action_ctl_rec.action', p_action_ctl_rec.action);
225: END IF;
226:
227: BEGIN
228:
410: EXCEPTION
411: WHEN PO_CORE_S.g_early_return_exc THEN
412: IF (l_ret_sts = 'U')
413: THEN
414: IF (PO_LOG.d_exc) THEN
415: PO_LOG.exc(d_module, d_progress, d_msg);
416: END IF;
417: END IF;
418:
411: WHEN PO_CORE_S.g_early_return_exc THEN
412: IF (l_ret_sts = 'U')
413: THEN
414: IF (PO_LOG.d_exc) THEN
415: PO_LOG.exc(d_module, d_progress, d_msg);
416: END IF;
417: END IF;
418:
419: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, d_msg);
421: END;
422:
423: p_action_ctl_rec.return_status := l_ret_sts;
424:
425: IF (PO_LOG.d_proc) THEN
426: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
427: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
428: PO_LOG.proc_end(d_module);
429: END IF;
422:
423: p_action_ctl_rec.return_status := l_ret_sts;
424:
425: IF (PO_LOG.d_proc) THEN
426: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
427: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
428: PO_LOG.proc_end(d_module);
429: END IF;
430:
423: p_action_ctl_rec.return_status := l_ret_sts;
424:
425: IF (PO_LOG.d_proc) THEN
426: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
427: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
428: PO_LOG.proc_end(d_module);
429: END IF;
430:
431: RETURN;
424:
425: IF (PO_LOG.d_proc) THEN
426: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
427: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_code', p_action_ctl_rec.return_code);
428: PO_LOG.proc_end(d_module);
429: END IF;
430:
431: RETURN;
432:
434: WHEN OTHERS THEN
435: p_action_ctl_rec.return_status := 'U';
436:
437: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
438: IF (PO_LOG.d_exc) THEN
439: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
441: PO_LOG.proc_end(d_module);
442: END IF;
435: p_action_ctl_rec.return_status := 'U';
436:
437: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
438: IF (PO_LOG.d_exc) THEN
439: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
441: PO_LOG.proc_end(d_module);
442: END IF;
443:
436:
437: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
438: IF (PO_LOG.d_exc) THEN
439: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
441: PO_LOG.proc_end(d_module);
442: END IF;
443:
444: RETURN;
437: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
438: IF (PO_LOG.d_exc) THEN
439: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
440: PO_LOG.proc_end(d_module, 'p_action_ctl_rec.return_status', p_action_ctl_rec.return_status);
441: PO_LOG.proc_end(d_module);
442: END IF;
443:
444: RETURN;
445: