138:
139: d_progress := 11.4;
140: d_log_msg := 'invalid document type';
141: l_ret_sts := 'U';
142: RAISE PO_CORE_S.g_early_return_exc;
143:
144: END IF; -- p_aciton_ctl_rec.document_type = ...
145:
146: d_progress := 12;
182: d_progress := 16;
183:
184: PO_LOCKS.lock_headers(
185: p_doc_type => p_action_ctl_rec.document_type
186: , p_doc_level => PO_CORE_S.g_doc_level_HEADER
187: , p_doc_level_id_tbl => l_doc_id_tbl
188: );
189:
190: l_locked_doc := TRUE;
202: THEN
203:
204: d_log_msg := 'failed to lock document after 1000 tries';
205: l_ret_sts := 'U';
206: RAISE PO_CORE_S.g_early_return_exc;
207:
208: END IF;
209:
210:
229: IF (l_update_allowed = FND_API.G_FALSE) THEN
230: d_log_msg := 'unable to perform control action to doc: ' ||
231: l_error_message_text;
232: l_ret_sts := 'E';
233: RAISE PO_CORE_S.g_early_return_exc;
234: END IF;
235:
236: END IF;
237:
327:
328: d_progress := 100;
329: d_log_msg := 'unsupported action type';
330: l_ret_sts := 'U';
331: RAISE PO_CORE_S.g_early_return_exc;
332:
333: END IF; -- IF (p_action_ctl_rec.action = ...)
334:
335: IF (p_action_ctl_rec.return_status = 'U')
337:
338: d_progress := 110;
339: d_log_msg := 'unexpected error in action call';
340: l_ret_sts := 'U';
341: RAISE PO_CORE_S.g_early_return_exc;
342:
343: END IF;
344:
345: IF (p_action_ctl_rec.return_status = 'E')
347:
348: d_progress := 115;
349: d_log_msg := 'functional error in action call';
350: l_ret_sts := 'E';
351: RAISE PO_CORE_S.g_early_return_exc;
352:
353: END IF;
354:
355: d_progress := 120;
390: d_log_msg := 'create_update_delrec not successful';
391: FND_MSG_PUB.Count_And_Get(p_count => l_msg_count, p_data => l_msg_data);
392: error_msg_append(d_module, d_progress, l_msg_data);
393: l_ret_sts := 'U';
394: RAISE PO_CORE_S.g_early_return_exc;
395:
396: END IF;
397:
398: END IF; -- p_action_ctl_rec.document_type = 'PO' AND ...
401: p_action_ctl_rec.error_msg := NULL;
402: l_ret_sts := 'S';
403:
404: EXCEPTION
405: WHEN PO_CORE_S.g_early_return_exc THEN
406: IF (l_ret_sts = 'U') THEN
407: IF (l_msg_data IS NOT NULL) THEN
408: error_msg_append(d_module, d_progress, l_msg_data);
409: END IF;
1522: THEN
1523: d_progress := 70;
1524: d_msg := 'verify_authority threw unexpected error';
1525: l_ret_sts := 'U';
1526: RAISE PO_CORE_S.g_early_return_exc;
1527: END IF;
1528:
1529: IF (l_ret_code IS NULL)
1530: THEN
1565: THEN
1566: d_progress := 120;
1567: d_msg := 'verify_authority threw unexpected error';
1568: l_ret_sts := 'U';
1569: RAISE PO_CORE_S.g_early_return_exc;
1570: END IF;
1571:
1572: IF (l_ret_code IS NULL)
1573: THEN
1608: THEN
1609: d_progress := 170;
1610: d_msg := 'verify_authority threw unexpected error';
1611: l_ret_sts := 'U';
1612: RAISE PO_CORE_S.g_early_return_exc;
1613: END IF;
1614:
1615: IF (l_ret_code IS NULL)
1616: THEN
1670: ELSE
1671:
1672: l_ret_sts := 'U';
1673: d_msg := 'Invalid forwarding mode from po_document_types';
1674: RAISE PO_CORE_S.g_early_return_exc;
1675:
1676: END IF; -- l_forwarding_mode = ...
1677:
1678: EXCEPTION
1675:
1676: END IF; -- l_forwarding_mode = ...
1677:
1678: EXCEPTION
1679: WHEN PO_CORE_S.g_early_return_exc THEN
1680: IF (PO_LOG.d_exc) THEN
1681: PO_LOG.exc(d_module, d_progress, d_msg);
1682: PO_LOG.stmt(d_module, d_progress, 'l_exc_msg', l_exc_msg);
1683: END IF;