142:
143: BEGIN
144:
145: d_progress := 0;
146: IF (PO_LOG.d_proc) THEN
147: PO_LOG.proc_begin(d_module);
148: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
149: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
150: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
143: BEGIN
144:
145: d_progress := 0;
146: IF (PO_LOG.d_proc) THEN
147: PO_LOG.proc_begin(d_module);
148: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
149: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
150: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
151: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
144:
145: d_progress := 0;
146: IF (PO_LOG.d_proc) THEN
147: PO_LOG.proc_begin(d_module);
148: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
149: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
150: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
151: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
152: END IF;
145: d_progress := 0;
146: IF (PO_LOG.d_proc) THEN
147: PO_LOG.proc_begin(d_module);
148: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
149: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
150: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
151: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
152: END IF;
153:
146: IF (PO_LOG.d_proc) THEN
147: PO_LOG.proc_begin(d_module);
148: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
149: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
150: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
151: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
152: END IF;
153:
154: l_ret_val := FALSE;
147: PO_LOG.proc_begin(d_module);
148: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
149: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
150: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
151: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
152: END IF;
153:
154: l_ret_val := FALSE;
155:
167: INTO l_auth_status, l_head_closed, l_frozen_flag, l_user_hold_flag;
168: CLOSE state_rel;
169:
170: d_progress := 30;
171: IF (PO_LOG.d_stmt) THEN
172: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
173: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
174: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
175: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
168: CLOSE state_rel;
169:
170: d_progress := 30;
171: IF (PO_LOG.d_stmt) THEN
172: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
173: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
174: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
175: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
176:
169:
170: d_progress := 30;
171: IF (PO_LOG.d_stmt) THEN
172: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
173: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
174: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
175: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
176:
177: END IF;
170: d_progress := 30;
171: IF (PO_LOG.d_stmt) THEN
172: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
173: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
174: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
175: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
176:
177: END IF;
178:
171: IF (PO_LOG.d_stmt) THEN
172: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
173: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
174: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
175: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
176:
177: END IF;
178:
179: IF (p_shipment_id IS NOT NULL)
185: FETCH ship_closed INTO l_ship_closed;
186: CLOSE ship_closed;
187:
188: d_progress := 50;
189: IF (PO_LOG.d_stmt) THEN
190: PO_LOG.stmt(d_module, d_progress, 'l_ship_closed', l_ship_closed);
191: END IF;
192:
193: END IF;
186: CLOSE ship_closed;
187:
188: d_progress := 50;
189: IF (PO_LOG.d_stmt) THEN
190: PO_LOG.stmt(d_module, d_progress, 'l_ship_closed', l_ship_closed);
191: END IF;
192:
193: END IF;
194:
203: CLOSE state_po;
204:
205: d_progress := 70;
206:
207: IF (PO_LOG.d_stmt) THEN
208: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
209: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
210: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
211: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
204:
205: d_progress := 70;
206:
207: IF (PO_LOG.d_stmt) THEN
208: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
209: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
210: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
211: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
212:
205: d_progress := 70;
206:
207: IF (PO_LOG.d_stmt) THEN
208: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
209: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
210: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
211: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
212:
213: END IF;
206:
207: IF (PO_LOG.d_stmt) THEN
208: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
209: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
210: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
211: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
212:
213: END IF;
214:
207: IF (PO_LOG.d_stmt) THEN
208: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
209: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
210: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
211: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
212:
213: END IF;
214:
215: IF (p_shipment_id IS NOT NULL) THEN
220: FETCH ship_closed INTO l_ship_closed;
221: CLOSE ship_closed;
222:
223: d_progress := 90;
224: IF (PO_LOG.d_stmt) THEN
225: PO_LOG.stmt(d_module, d_progress, 'l_ship_closed', l_ship_closed);
226: END IF;
227:
228: END IF;
221: CLOSE ship_closed;
222:
223: d_progress := 90;
224: IF (PO_LOG.d_stmt) THEN
225: PO_LOG.stmt(d_module, d_progress, 'l_ship_closed', l_ship_closed);
226: END IF;
227:
228: END IF;
229:
235: FETCH line_closed INTO l_line_closed;
236: CLOSE line_closed;
237:
238: d_progress := 110;
239: IF (PO_LOG.d_stmt) THEN
240: PO_LOG.stmt(d_module, d_progress, 'l_line_closed', l_line_closed);
241: END IF;
242:
243: END IF;
236: CLOSE line_closed;
237:
238: d_progress := 110;
239: IF (PO_LOG.d_stmt) THEN
240: PO_LOG.stmt(d_module, d_progress, 'l_line_closed', l_line_closed);
241: END IF;
242:
243: END IF;
244:
250: FETCH state_req INTO l_auth_status, l_head_closed;
251: CLOSE state_req;
252:
253: d_progress := 130;
254: IF (PO_LOG.d_stmt) THEN
255: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
256: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
257: END IF;
258:
251: CLOSE state_req;
252:
253: d_progress := 130;
254: IF (PO_LOG.d_stmt) THEN
255: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
256: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
257: END IF;
258:
259: ELSE
252:
253: d_progress := 130;
254: IF (PO_LOG.d_stmt) THEN
255: PO_LOG.stmt(d_module, d_progress, 'l_auth_status', l_auth_status);
256: PO_LOG.stmt(d_module, d_progress, 'l_head_closed', l_head_closed);
257: END IF;
258:
259: ELSE
260:
260:
261: d_progress := 140;
262: l_ret_sts := 'U';
263: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, 'Bad Document Type');
264: IF (PO_LOG.d_exc) THEN
265: PO_LOG.exc(d_module, d_progress, 'Bad Document Type');
266: END IF;
267: RAISE PO_CORE_S.g_early_return_exc;
268:
261: d_progress := 140;
262: l_ret_sts := 'U';
263: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, 'Bad Document Type');
264: IF (PO_LOG.d_exc) THEN
265: PO_LOG.exc(d_module, d_progress, 'Bad Document Type');
266: END IF;
267: RAISE PO_CORE_S.g_early_return_exc;
268:
269: END IF;
281: END IF;
282: END LOOP;
283:
284: d_progress := 160;
285: IF (PO_LOG.d_stmt) THEN
286: PO_LOG.stmt(d_module, d_progress, 'l_state_found', l_state_found);
287: END IF;
288:
289: IF NOT l_state_found
282: END LOOP;
283:
284: d_progress := 160;
285: IF (PO_LOG.d_stmt) THEN
286: PO_LOG.stmt(d_module, d_progress, 'l_state_found', l_state_found);
287: END IF;
288:
289: IF NOT l_state_found
290: THEN
289: IF NOT l_state_found
290: THEN
291:
292: d_progress := 170;
293: IF (PO_LOG.d_stmt) THEN
294: PO_LOG.stmt(d_module, d_progress, 'Current Authorization Status Not Allowed.');
295:
296: END IF;
297:
290: THEN
291:
292: d_progress := 170;
293: IF (PO_LOG.d_stmt) THEN
294: PO_LOG.stmt(d_module, d_progress, 'Current Authorization Status Not Allowed.');
295:
296: END IF;
297:
298: l_ret_sts := 'S';
304: l_closed_code := NVL(l_ship_closed, l_line_closed);
305: l_closed_code := NVL(l_closed_code, l_head_closed);
306:
307: d_progress := 180;
308: IF (PO_LOG.d_stmt) THEN
309: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
310: END IF;
311:
312: l_state_found := FALSE;
305: l_closed_code := NVL(l_closed_code, l_head_closed);
306:
307: d_progress := 180;
308: IF (PO_LOG.d_stmt) THEN
309: PO_LOG.stmt(d_module, d_progress, 'l_closed_code', l_closed_code);
310: END IF;
311:
312: l_state_found := FALSE;
313:
321: END IF;
322: END LOOP;
323:
324: d_progress := 190;
325: IF (PO_LOG.d_stmt) THEN
326: PO_LOG.stmt(d_module, d_progress, 'l_state_found', l_state_found);
327: END IF;
328:
329: IF NOT l_state_found
322: END LOOP;
323:
324: d_progress := 190;
325: IF (PO_LOG.d_stmt) THEN
326: PO_LOG.stmt(d_module, d_progress, 'l_state_found', l_state_found);
327: END IF;
328:
329: IF NOT l_state_found
330: THEN
329: IF NOT l_state_found
330: THEN
331:
332: d_progress := 200;
333: IF (PO_LOG.d_stmt) THEN
334: PO_LOG.stmt(d_module, d_progress, 'Current Closed Status Not Allowed.');
335:
336: END IF;
337:
330: THEN
331:
332: d_progress := 200;
333: IF (PO_LOG.d_stmt) THEN
334: PO_LOG.stmt(d_module, d_progress, 'Current Closed Status Not Allowed.');
335:
336: END IF;
337:
338: l_ret_sts := 'S';
346:
347: THEN
348:
349: d_progress := 210;
350: IF (PO_LOG.d_stmt) THEN
351: PO_LOG.stmt(d_module, d_progress, 'Encumbrance is on. Checking reserved state');
352:
353: END IF;
354:
347: THEN
348:
349: d_progress := 210;
350: IF (PO_LOG.d_stmt) THEN
351: PO_LOG.stmt(d_module, d_progress, 'Encumbrance is on. Checking reserved state');
352:
353: END IF;
354:
355: PO_CORE_S.is_fully_reserved(
359: , x_fully_reserved_flag => l_fully_res_flag
360: );
361:
362: d_progress := 220;
363: IF (PO_LOG.d_stmt) THEN
364: PO_LOG.stmt(d_module, d_progress, 'l_fully_res_flag', l_fully_res_flag);
365:
366: END IF;
367:
360: );
361:
362: d_progress := 220;
363: IF (PO_LOG.d_stmt) THEN
364: PO_LOG.stmt(d_module, d_progress, 'l_fully_res_flag', l_fully_res_flag);
365:
366: END IF;
367:
368: IF (p_allowed_states.fully_reserved_flag <> l_fully_res_flag)
368: IF (p_allowed_states.fully_reserved_flag <> l_fully_res_flag)
369: THEN
370:
371: d_progress := 230;
372: IF (PO_LOG.d_stmt) THEN
373: PO_LOG.stmt(d_module, d_progress, 'Current Encumbrance reservation state not allowed.');
374:
375: END IF;
376:
369: THEN
370:
371: d_progress := 230;
372: IF (PO_LOG.d_stmt) THEN
373: PO_LOG.stmt(d_module, d_progress, 'Current Encumbrance reservation state not allowed.');
374:
375: END IF;
376:
377: l_ret_sts := 'S';
390: AND (p_allowed_states.frozen_flag <> l_frozen_flag))
391: THEN
392:
393: d_progress := 250;
394: IF (PO_LOG.d_stmt) THEN
395: PO_LOG.stmt(d_module, d_progress, 'Frozen flags do not match.');
396: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.frozen_flag', p_allowed_states.frozen_flag);
397:
398: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
391: THEN
392:
393: d_progress := 250;
394: IF (PO_LOG.d_stmt) THEN
395: PO_LOG.stmt(d_module, d_progress, 'Frozen flags do not match.');
396: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.frozen_flag', p_allowed_states.frozen_flag);
397:
398: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
399: END IF;
392:
393: d_progress := 250;
394: IF (PO_LOG.d_stmt) THEN
395: PO_LOG.stmt(d_module, d_progress, 'Frozen flags do not match.');
396: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.frozen_flag', p_allowed_states.frozen_flag);
397:
398: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
399: END IF;
400:
394: IF (PO_LOG.d_stmt) THEN
395: PO_LOG.stmt(d_module, d_progress, 'Frozen flags do not match.');
396: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.frozen_flag', p_allowed_states.frozen_flag);
397:
398: PO_LOG.stmt(d_module, d_progress, 'l_frozen_flag', l_frozen_flag);
399: END IF;
400:
401: l_ret_sts := 'S';
402: RAISE PO_CORE_S.g_early_return_exc;
407: AND (p_allowed_states.hold_flag <> l_user_hold_flag))
408: THEN
409:
410: d_progress := 260;
411: IF (PO_LOG.d_stmt) THEN
412: PO_LOG.stmt(d_module, d_progress, 'Hold flags do not match.');
413: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.hold_flag', p_allowed_states.hold_flag);
414:
415: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
408: THEN
409:
410: d_progress := 260;
411: IF (PO_LOG.d_stmt) THEN
412: PO_LOG.stmt(d_module, d_progress, 'Hold flags do not match.');
413: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.hold_flag', p_allowed_states.hold_flag);
414:
415: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
416: END IF;
409:
410: d_progress := 260;
411: IF (PO_LOG.d_stmt) THEN
412: PO_LOG.stmt(d_module, d_progress, 'Hold flags do not match.');
413: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.hold_flag', p_allowed_states.hold_flag);
414:
415: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
416: END IF;
417:
411: IF (PO_LOG.d_stmt) THEN
412: PO_LOG.stmt(d_module, d_progress, 'Hold flags do not match.');
413: PO_LOG.stmt(d_module, d_progress, 'p_allowed_states.hold_flag', p_allowed_states.hold_flag);
414:
415: PO_LOG.stmt(d_module, d_progress, 'l_user_hold_flag', l_user_hold_flag);
416: END IF;
417:
418: l_ret_sts := 'S';
419: RAISE PO_CORE_S.g_early_return_exc;
433:
434: x_return_status := l_ret_sts;
435:
436: d_progress := 280;
437: IF (PO_LOG.d_proc) THEN
438: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
439: PO_LOG.proc_return(d_module, l_ret_val);
440: PO_LOG.proc_end(d_module);
441: END IF;
434: x_return_status := l_ret_sts;
435:
436: d_progress := 280;
437: IF (PO_LOG.d_proc) THEN
438: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
439: PO_LOG.proc_return(d_module, l_ret_val);
440: PO_LOG.proc_end(d_module);
441: END IF;
442:
435:
436: d_progress := 280;
437: IF (PO_LOG.d_proc) THEN
438: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
439: PO_LOG.proc_return(d_module, l_ret_val);
440: PO_LOG.proc_end(d_module);
441: END IF;
442:
443: RETURN (l_ret_val);
436: d_progress := 280;
437: IF (PO_LOG.d_proc) THEN
438: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
439: PO_LOG.proc_return(d_module, l_ret_val);
440: PO_LOG.proc_end(d_module);
441: END IF;
442:
443: RETURN (l_ret_val);
444:
468:
469: x_return_status := 'U';
470:
471: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
472: IF (PO_LOG.d_exc) THEN
473: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
474: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
475: PO_LOG.proc_return(d_module, l_ret_val);
476: PO_LOG.proc_end(d_module);
469: x_return_status := 'U';
470:
471: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
472: IF (PO_LOG.d_exc) THEN
473: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
474: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
475: PO_LOG.proc_return(d_module, l_ret_val);
476: PO_LOG.proc_end(d_module);
477: END IF;
470:
471: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
472: IF (PO_LOG.d_exc) THEN
473: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
474: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
475: PO_LOG.proc_return(d_module, l_ret_val);
476: PO_LOG.proc_end(d_module);
477: END IF;
478:
471: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
472: IF (PO_LOG.d_exc) THEN
473: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
474: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
475: PO_LOG.proc_return(d_module, l_ret_val);
476: PO_LOG.proc_end(d_module);
477: END IF;
478:
479: return FALSE;
472: IF (PO_LOG.d_exc) THEN
473: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
474: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
475: PO_LOG.proc_return(d_module, l_ret_val);
476: PO_LOG.proc_end(d_module);
477: END IF;
478:
479: return FALSE;
480:
497:
498: BEGIN
499:
500: d_progress := 0;
501: IF (PO_LOG.d_proc) THEN
502: PO_LOG.proc_begin(d_module);
503: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
504: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
505: END IF;
498: BEGIN
499:
500: d_progress := 0;
501: IF (PO_LOG.d_proc) THEN
502: PO_LOG.proc_begin(d_module);
503: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
504: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
505: END IF;
506:
499:
500: d_progress := 0;
501: IF (PO_LOG.d_proc) THEN
502: PO_LOG.proc_begin(d_module);
503: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
504: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
505: END IF;
506:
507: l_ret_sts := 'S';
500: d_progress := 0;
501: IF (PO_LOG.d_proc) THEN
502: PO_LOG.proc_begin(d_module);
503: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
504: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
505: END IF;
506:
507: l_ret_sts := 'S';
508:
516: FROM po_releases_all por
517: WHERE por.po_release_id = p_document_id;
518:
519: d_progress := 30;
520: IF (PO_LOG.d_stmt) THEN
521: PO_LOG.stmt(d_module, d_progress, 'x_preparer_id', x_preparer_id);
522: END IF;
523:
524: ELSIF (p_document_type in ('PO', 'PA'))
517: WHERE por.po_release_id = p_document_id;
518:
519: d_progress := 30;
520: IF (PO_LOG.d_stmt) THEN
521: PO_LOG.stmt(d_module, d_progress, 'x_preparer_id', x_preparer_id);
522: END IF;
523:
524: ELSIF (p_document_type in ('PO', 'PA'))
525: THEN
531: FROM po_headers_all poh
532: WHERE poh.po_header_id = p_document_id;
533:
534: d_progress := 50;
535: IF (PO_LOG.d_stmt) THEN
536: PO_LOG.stmt(d_module, d_progress, 'x_preparer_id', x_preparer_id);
537: END IF;
538:
539: ELSIF (p_document_type = 'REQUISITION') THEN
532: WHERE poh.po_header_id = p_document_id;
533:
534: d_progress := 50;
535: IF (PO_LOG.d_stmt) THEN
536: PO_LOG.stmt(d_module, d_progress, 'x_preparer_id', x_preparer_id);
537: END IF;
538:
539: ELSIF (p_document_type = 'REQUISITION') THEN
540:
545: FROM po_requisition_headers_all porh
546: WHERE porh.requisition_header_id = p_document_id;
547:
548: d_progress := 70;
549: IF (PO_LOG.d_stmt) THEN
550: PO_LOG.stmt(d_module, d_progress, 'x_preparer_id', x_preparer_id);
551: END IF;
552:
553: ELSE
546: WHERE porh.requisition_header_id = p_document_id;
547:
548: d_progress := 70;
549: IF (PO_LOG.d_stmt) THEN
550: PO_LOG.stmt(d_module, d_progress, 'x_preparer_id', x_preparer_id);
551: END IF;
552:
553: ELSE
554:
555: l_ret_sts := 'U';
556:
557: d_progress := 80;
558: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, 'Bad Document Type');
559: IF (PO_LOG.d_exc) THEN
560: PO_LOG.exc(d_module, d_progress, 'Bad Document Type');
561: END IF;
562:
563: END IF;
556:
557: d_progress := 80;
558: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, 'Bad Document Type');
559: IF (PO_LOG.d_exc) THEN
560: PO_LOG.exc(d_module, d_progress, 'Bad Document Type');
561: END IF;
562:
563: END IF;
564:
564:
565: x_return_status := l_ret_sts;
566:
567: d_progress := 100;
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module, 'x_preparer_id', x_preparer_id);
571: PO_LOG.proc_end(d_module);
572: END IF;
565: x_return_status := l_ret_sts;
566:
567: d_progress := 100;
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module, 'x_preparer_id', x_preparer_id);
571: PO_LOG.proc_end(d_module);
572: END IF;
573:
566:
567: d_progress := 100;
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module, 'x_preparer_id', x_preparer_id);
571: PO_LOG.proc_end(d_module);
572: END IF;
573:
574: RETURN;
567: d_progress := 100;
568: IF (PO_LOG.d_proc) THEN
569: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
570: PO_LOG.proc_end(d_module, 'x_preparer_id', x_preparer_id);
571: PO_LOG.proc_end(d_module);
572: END IF;
573:
574: RETURN;
575:
578: WHEN OTHERS THEN
579: x_return_status := 'U';
580:
581: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
582: IF (PO_LOG.d_exc) THEN
583: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
584: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
585: PO_LOG.proc_end(d_module);
586: END IF;
579: x_return_status := 'U';
580:
581: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
582: IF (PO_LOG.d_exc) THEN
583: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
584: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
585: PO_LOG.proc_end(d_module);
586: END IF;
587:
580:
581: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
582: IF (PO_LOG.d_exc) THEN
583: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
584: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
585: PO_LOG.proc_end(d_module);
586: END IF;
587:
588: RETURN;
581: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
582: IF (PO_LOG.d_exc) THEN
583: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
584: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
585: PO_LOG.proc_end(d_module);
586: END IF;
587:
588: RETURN;
589:
610:
611: BEGIN
612:
613: d_progress := 0;
614: IF (PO_LOG.d_proc) THEN
615: PO_LOG.proc_begin(d_module);
616: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
617: END IF;
618:
611: BEGIN
612:
613: d_progress := 0;
614: IF (PO_LOG.d_proc) THEN
615: PO_LOG.proc_begin(d_module);
616: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
617: END IF;
618:
619: BEGIN
612:
613: d_progress := 0;
614: IF (PO_LOG.d_proc) THEN
615: PO_LOG.proc_begin(d_module);
616: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
617: END IF;
618:
619: BEGIN
620: d_progress := 10;
627:
628: x_employee_flag := TRUE;
629:
630: d_progress := 20;
631: IF (PO_LOG.d_stmt) THEN
632: PO_LOG.stmt(d_module, d_progress, 'x_employee_id', x_employee_id);
633: PO_LOG.stmt(d_module, d_progress, 'x_employee_name', x_employee_name);
634: PO_LOG.stmt(d_module, d_progress, 'x_location_id', x_location_id);
635: END IF;
628: x_employee_flag := TRUE;
629:
630: d_progress := 20;
631: IF (PO_LOG.d_stmt) THEN
632: PO_LOG.stmt(d_module, d_progress, 'x_employee_id', x_employee_id);
633: PO_LOG.stmt(d_module, d_progress, 'x_employee_name', x_employee_name);
634: PO_LOG.stmt(d_module, d_progress, 'x_location_id', x_location_id);
635: END IF;
636:
629:
630: d_progress := 20;
631: IF (PO_LOG.d_stmt) THEN
632: PO_LOG.stmt(d_module, d_progress, 'x_employee_id', x_employee_id);
633: PO_LOG.stmt(d_module, d_progress, 'x_employee_name', x_employee_name);
634: PO_LOG.stmt(d_module, d_progress, 'x_location_id', x_location_id);
635: END IF;
636:
637: EXCEPTION
630: d_progress := 20;
631: IF (PO_LOG.d_stmt) THEN
632: PO_LOG.stmt(d_module, d_progress, 'x_employee_id', x_employee_id);
633: PO_LOG.stmt(d_module, d_progress, 'x_employee_name', x_employee_name);
634: PO_LOG.stmt(d_module, d_progress, 'x_location_id', x_location_id);
635: END IF;
636:
637: EXCEPTION
638: WHEN no_data_found THEN
640: x_location_id := NULL;
641: END;
642:
643: d_progress := 30;
644: IF (PO_LOG.d_stmt) THEN
645: PO_LOG.stmt(d_module, d_progress, 'x_employee_flag', x_employee_flag);
646: END IF;
647:
648: IF (x_location_id IS NOT NULL)
641: END;
642:
643: d_progress := 30;
644: IF (PO_LOG.d_stmt) THEN
645: PO_LOG.stmt(d_module, d_progress, 'x_employee_flag', x_employee_flag);
646: END IF;
647:
648: IF (x_location_id IS NOT NULL)
649: THEN
661: AND hr.inventory_organization_id = ood.organization_id (+)
662: AND nvl(ood.set_of_books_id, fsp.set_of_books_id) = fsp.set_of_books_id;
663:
664: d_progress := 50;
665: IF (PO_LOG.d_stmt) THEN
666: PO_LOG.stmt(d_module, d_progress, 'x_location_code', x_location_code);
667: END IF;
668:
669: EXCEPTION
662: AND nvl(ood.set_of_books_id, fsp.set_of_books_id) = fsp.set_of_books_id;
663:
664: d_progress := 50;
665: IF (PO_LOG.d_stmt) THEN
666: PO_LOG.stmt(d_module, d_progress, 'x_location_code', x_location_code);
667: END IF;
668:
669: EXCEPTION
670: WHEN no_data_found THEN
687:
688: x_is_buyer_flag := TRUE;
689:
690: d_progress := 70;
691: IF (PO_LOG.d_stmt) THEN
692: PO_LOG.stmt(d_module, d_progress, 'x_is_buyer_flag', x_is_buyer_flag);
693: END IF;
694:
695: EXCEPTION
688: x_is_buyer_flag := TRUE;
689:
690: d_progress := 70;
691: IF (PO_LOG.d_stmt) THEN
692: PO_LOG.stmt(d_module, d_progress, 'x_is_buyer_flag', x_is_buyer_flag);
693: END IF;
694:
695: EXCEPTION
696: WHEN no_data_found THEN
695: EXCEPTION
696: WHEN no_data_found THEN
697: x_is_buyer_flag := FALSE;
698: d_progress := 75;
699: IF (PO_LOG.d_stmt) THEN
700: PO_LOG.stmt(d_module, d_progress, 'x_is_buyer_flag', x_is_buyer_flag);
701: END IF;
702: END;
703:
696: WHEN no_data_found THEN
697: x_is_buyer_flag := FALSE;
698: d_progress := 75;
699: IF (PO_LOG.d_stmt) THEN
700: PO_LOG.stmt(d_module, d_progress, 'x_is_buyer_flag', x_is_buyer_flag);
701: END IF;
702: END;
703:
704: END IF; -- if x_employee_flag
704: END IF; -- if x_employee_flag
705:
706: x_return_status := 'S';
707: d_progress := 100;
708: IF (PO_LOG.d_proc) THEN
709: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
705:
706: x_return_status := 'S';
707: d_progress := 100;
708: IF (PO_LOG.d_proc) THEN
709: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
706: x_return_status := 'S';
707: d_progress := 100;
708: IF (PO_LOG.d_proc) THEN
709: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
707: d_progress := 100;
708: IF (PO_LOG.d_proc) THEN
709: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
715: PO_LOG.proc_end(d_module, 'x_is_buyer_flag', x_is_buyer_flag);
708: IF (PO_LOG.d_proc) THEN
709: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
715: PO_LOG.proc_end(d_module, 'x_is_buyer_flag', x_is_buyer_flag);
716: PO_LOG.proc_end(d_module);
709: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
715: PO_LOG.proc_end(d_module, 'x_is_buyer_flag', x_is_buyer_flag);
716: PO_LOG.proc_end(d_module);
717: END IF;
710: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
715: PO_LOG.proc_end(d_module, 'x_is_buyer_flag', x_is_buyer_flag);
716: PO_LOG.proc_end(d_module);
717: END IF;
718:
711: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
715: PO_LOG.proc_end(d_module, 'x_is_buyer_flag', x_is_buyer_flag);
716: PO_LOG.proc_end(d_module);
717: END IF;
718:
719: RETURN;
712: PO_LOG.proc_end(d_module, 'x_employee_name', x_employee_name);
713: PO_LOG.proc_end(d_module, 'x_location_id', x_location_id);
714: PO_LOG.proc_end(d_module, 'x_location_code', x_location_code);
715: PO_LOG.proc_end(d_module, 'x_is_buyer_flag', x_is_buyer_flag);
716: PO_LOG.proc_end(d_module);
717: END IF;
718:
719: RETURN;
720:
722: WHEN OTHERS THEN
723: x_return_status := 'U';
724:
725: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
726: IF (PO_LOG.d_exc) THEN
727: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
728: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
729: PO_LOG.proc_end(d_module);
730: END IF;
723: x_return_status := 'U';
724:
725: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
726: IF (PO_LOG.d_exc) THEN
727: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
728: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
729: PO_LOG.proc_end(d_module);
730: END IF;
731:
724:
725: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
726: IF (PO_LOG.d_exc) THEN
727: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
728: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
729: PO_LOG.proc_end(d_module);
730: END IF;
731:
732: RETURN;
725: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
726: IF (PO_LOG.d_exc) THEN
727: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
728: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
729: PO_LOG.proc_end(d_module);
730: END IF;
731:
732: RETURN;
733:
747:
748: BEGIN
749:
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
754: END IF;
755:
748: BEGIN
749:
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
754: END IF;
755:
756: BEGIN
749:
750: d_progress := 0;
751: IF (PO_LOG.d_proc) THEN
752: PO_LOG.proc_begin(d_module);
753: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
754: END IF;
755:
756: BEGIN
757:
765:
766: x_employee_flag := TRUE;
767:
768: d_progress := 20;
769: IF (PO_LOG.d_stmt) THEN
770: PO_LOG.stmt(d_module, d_progress, 'x_employee_id', x_employee_id);
771: END IF;
772:
773: EXCEPTION
766: x_employee_flag := TRUE;
767:
768: d_progress := 20;
769: IF (PO_LOG.d_stmt) THEN
770: PO_LOG.stmt(d_module, d_progress, 'x_employee_id', x_employee_id);
771: END IF;
772:
773: EXCEPTION
774: WHEN no_data_found THEN
778:
779:
780: x_return_status := 'S';
781: d_progress := 100;
782: IF (PO_LOG.d_proc) THEN
783: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
784: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
785: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
786: PO_LOG.proc_end(d_module);
779:
780: x_return_status := 'S';
781: d_progress := 100;
782: IF (PO_LOG.d_proc) THEN
783: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
784: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
785: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
786: PO_LOG.proc_end(d_module);
787: END IF;
780: x_return_status := 'S';
781: d_progress := 100;
782: IF (PO_LOG.d_proc) THEN
783: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
784: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
785: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
786: PO_LOG.proc_end(d_module);
787: END IF;
788:
781: d_progress := 100;
782: IF (PO_LOG.d_proc) THEN
783: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
784: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
785: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
786: PO_LOG.proc_end(d_module);
787: END IF;
788:
789: RETURN;
782: IF (PO_LOG.d_proc) THEN
783: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
784: PO_LOG.proc_end(d_module, 'x_employee_flag', x_employee_flag);
785: PO_LOG.proc_end(d_module, 'x_employee_id', x_employee_id);
786: PO_LOG.proc_end(d_module);
787: END IF;
788:
789: RETURN;
790:
792: WHEN OTHERS THEN
793: x_return_status := 'U';
794:
795: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
796: IF (PO_LOG.d_exc) THEN
797: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
798: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
799: PO_LOG.proc_end(d_module);
800: END IF;
793: x_return_status := 'U';
794:
795: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
796: IF (PO_LOG.d_exc) THEN
797: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
798: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
799: PO_LOG.proc_end(d_module);
800: END IF;
801:
794:
795: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
796: IF (PO_LOG.d_exc) THEN
797: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
798: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
799: PO_LOG.proc_end(d_module);
800: END IF;
801:
802: RETURN;
795: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
796: IF (PO_LOG.d_exc) THEN
797: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
798: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
799: PO_LOG.proc_end(d_module);
800: END IF;
801:
802: RETURN;
803:
838:
839: BEGIN
840:
841: d_progress := 0;
842: IF (PO_LOG.d_proc) THEN
843: PO_LOG.proc_begin(d_module);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
839: BEGIN
840:
841: d_progress := 0;
842: IF (PO_LOG.d_proc) THEN
843: PO_LOG.proc_begin(d_module);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
840:
841: d_progress := 0;
842: IF (PO_LOG.d_proc) THEN
843: PO_LOG.proc_begin(d_module);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
841: d_progress := 0;
842: IF (PO_LOG.d_proc) THEN
843: PO_LOG.proc_begin(d_module);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
842: IF (PO_LOG.d_proc) THEN
843: PO_LOG.proc_begin(d_module);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
843: PO_LOG.proc_begin(d_module);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
844: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
845: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
853: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
846: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
853: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
854: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
847: PO_LOG.proc_begin(d_module, 'p_action', p_action);
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
853: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
854: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
855: END IF;
848: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
853: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
854: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
855: END IF;
856:
849: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
853: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
854: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
855: END IF;
856:
857: l_user_id := FND_GLOBAL.USER_ID;
850: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
851: PO_LOG.proc_begin(d_module, 'p_note', p_note);
852: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
853: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
854: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
855: END IF;
856:
857: l_user_id := FND_GLOBAL.USER_ID;
858: l_login_id := FND_GLOBAL.LOGIN_ID;
857: l_user_id := FND_GLOBAL.USER_ID;
858: l_login_id := FND_GLOBAL.LOGIN_ID;
859:
860: d_progress := 10;
861: IF (PO_LOG.d_stmt) THEN
862: PO_LOG.stmt(d_module, d_progress, 'l_user_id', l_user_id);
863: PO_LOG.stmt(d_module, d_progress, 'l_login_id', l_login_id);
864: END IF;
865:
858: l_login_id := FND_GLOBAL.LOGIN_ID;
859:
860: d_progress := 10;
861: IF (PO_LOG.d_stmt) THEN
862: PO_LOG.stmt(d_module, d_progress, 'l_user_id', l_user_id);
863: PO_LOG.stmt(d_module, d_progress, 'l_login_id', l_login_id);
864: END IF;
865:
866: BEGIN
859:
860: d_progress := 10;
861: IF (PO_LOG.d_stmt) THEN
862: PO_LOG.stmt(d_module, d_progress, 'l_user_id', l_user_id);
863: PO_LOG.stmt(d_module, d_progress, 'l_login_id', l_login_id);
864: END IF;
865:
866: BEGIN
867:
887: THEN
888:
889: l_emp_id := NULL;
890:
891: IF (PO_LOG.d_stmt) THEN
892: PO_LOG.stmt(d_module, d_progress, 'user is not employee');
893: END IF;
894:
895: END IF;
888:
889: l_emp_id := NULL;
890:
891: IF (PO_LOG.d_stmt) THEN
892: PO_LOG.stmt(d_module, d_progress, 'user is not employee');
893: END IF;
894:
895: END IF;
896:
942:
943: END IF;
944:
945: d_progress := 90;
946: IF (PO_LOG.d_stmt) THEN
947: PO_LOG.stmt(d_module, d_progress, 'l_old_status', l_old_status);
948: PO_LOG.stmt(d_module, d_progress, 'l_creation_date', l_creation_date);
949: PO_LOG.stmt(d_module, d_progress, 'l_revision_num', l_revision_num);
950: END IF;
943: END IF;
944:
945: d_progress := 90;
946: IF (PO_LOG.d_stmt) THEN
947: PO_LOG.stmt(d_module, d_progress, 'l_old_status', l_old_status);
948: PO_LOG.stmt(d_module, d_progress, 'l_creation_date', l_creation_date);
949: PO_LOG.stmt(d_module, d_progress, 'l_revision_num', l_revision_num);
950: END IF;
951:
944:
945: d_progress := 90;
946: IF (PO_LOG.d_stmt) THEN
947: PO_LOG.stmt(d_module, d_progress, 'l_old_status', l_old_status);
948: PO_LOG.stmt(d_module, d_progress, 'l_creation_date', l_creation_date);
949: PO_LOG.stmt(d_module, d_progress, 'l_revision_num', l_revision_num);
950: END IF;
951:
952: handle_auth_action_history(
945: d_progress := 90;
946: IF (PO_LOG.d_stmt) THEN
947: PO_LOG.stmt(d_module, d_progress, 'l_old_status', l_old_status);
948: PO_LOG.stmt(d_module, d_progress, 'l_creation_date', l_creation_date);
949: PO_LOG.stmt(d_module, d_progress, 'l_revision_num', l_revision_num);
950: END IF;
951:
952: handle_auth_action_history(
953: p_document_id => p_document_id
1006: EXCEPTION
1007: WHEN PO_CORE_S.g_early_return_exc THEN
1008: l_ret_sts := 'U';
1009: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
1010: IF (PO_LOG.d_exc) THEN
1011: PO_LOG.exc(d_module, d_progress, l_err_msg);
1012: END IF;
1013:
1014: END;
1007: WHEN PO_CORE_S.g_early_return_exc THEN
1008: l_ret_sts := 'U';
1009: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
1010: IF (PO_LOG.d_exc) THEN
1011: PO_LOG.exc(d_module, d_progress, l_err_msg);
1012: END IF;
1013:
1014: END;
1015:
1014: END;
1015:
1016: x_return_status := l_ret_sts;
1017: d_progress := 130;
1018: IF (PO_LOG.d_proc) THEN
1019: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1020: PO_LOG.proc_end(d_module);
1021: END IF;
1022:
1015:
1016: x_return_status := l_ret_sts;
1017: d_progress := 130;
1018: IF (PO_LOG.d_proc) THEN
1019: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1020: PO_LOG.proc_end(d_module);
1021: END IF;
1022:
1023: RETURN;
1016: x_return_status := l_ret_sts;
1017: d_progress := 130;
1018: IF (PO_LOG.d_proc) THEN
1019: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1020: PO_LOG.proc_end(d_module);
1021: END IF;
1022:
1023: RETURN;
1024:
1026: WHEN OTHERS THEN
1027: x_return_status := 'U';
1028:
1029: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1030: IF (PO_LOG.d_exc) THEN
1031: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1032: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1033: PO_LOG.proc_end(d_module);
1034: END IF;
1027: x_return_status := 'U';
1028:
1029: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1030: IF (PO_LOG.d_exc) THEN
1031: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1032: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1033: PO_LOG.proc_end(d_module);
1034: END IF;
1035:
1028:
1029: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1030: IF (PO_LOG.d_exc) THEN
1031: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1032: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1033: PO_LOG.proc_end(d_module);
1034: END IF;
1035:
1036: RETURN;
1029: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1030: IF (PO_LOG.d_exc) THEN
1031: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1032: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1033: PO_LOG.proc_end(d_module);
1034: END IF;
1035:
1036: RETURN;
1037:
1070:
1071: BEGIN
1072:
1073: d_progress := 0;
1074: IF (PO_LOG.d_proc) THEN
1075: PO_LOG.proc_begin(d_module);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1071: BEGIN
1072:
1073: d_progress := 0;
1074: IF (PO_LOG.d_proc) THEN
1075: PO_LOG.proc_begin(d_module);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1072:
1073: d_progress := 0;
1074: IF (PO_LOG.d_proc) THEN
1075: PO_LOG.proc_begin(d_module);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1073: d_progress := 0;
1074: IF (PO_LOG.d_proc) THEN
1075: PO_LOG.proc_begin(d_module);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1074: IF (PO_LOG.d_proc) THEN
1075: PO_LOG.proc_begin(d_module);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1075: PO_LOG.proc_begin(d_module);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1083: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1076: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1083: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1084: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1077: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1083: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1084: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1085: END IF;
1078: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1083: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1084: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1085: END IF;
1086:
1079: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1083: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1084: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1085: END IF;
1086:
1087: d_progress := 10;
1080: PO_LOG.proc_begin(d_module, 'p_reason', p_reason);
1081: PO_LOG.proc_begin(d_module, 'p_line_id', p_line_id);
1082: PO_LOG.proc_begin(d_module, 'p_shipment_id', p_shipment_id);
1083: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1084: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1085: END IF;
1086:
1087: d_progress := 10;
1088:
1109: IF (l_emp_flag IS NULL) THEN
1110: l_emp_id := NULL;
1111: END IF;
1112:
1113: IF (PO_LOG.d_stmt) THEN
1114: PO_LOG.stmt(d_module, d_progress, 'l_emp_flag', l_emp_flag);
1115: PO_LOG.stmt(d_module, d_progress, 'l_emp_id', l_emp_id);
1116: END IF;
1117:
1110: l_emp_id := NULL;
1111: END IF;
1112:
1113: IF (PO_LOG.d_stmt) THEN
1114: PO_LOG.stmt(d_module, d_progress, 'l_emp_flag', l_emp_flag);
1115: PO_LOG.stmt(d_module, d_progress, 'l_emp_id', l_emp_id);
1116: END IF;
1117:
1118: d_progress := 40;
1111: END IF;
1112:
1113: IF (PO_LOG.d_stmt) THEN
1114: PO_LOG.stmt(d_module, d_progress, 'l_emp_flag', l_emp_flag);
1115: PO_LOG.stmt(d_module, d_progress, 'l_emp_id', l_emp_id);
1116: END IF;
1117:
1118: d_progress := 40;
1119:
1150:
1151: END IF; -- if (p_action IN ('CANCEL', 'FINALLY CLOSE'))
1152:
1153: d_progress := 100;
1154: IF (PO_LOG.d_stmt) THEN
1155: PO_LOG.stmt(d_module, d_progress, 'l_ctl_repaced_null_entry', l_ctl_replaced_null_entry);
1156: END IF;
1157:
1158: IF (NOT l_ctl_replaced_null_entry)
1151: END IF; -- if (p_action IN ('CANCEL', 'FINALLY CLOSE'))
1152:
1153: d_progress := 100;
1154: IF (PO_LOG.d_stmt) THEN
1155: PO_LOG.stmt(d_module, d_progress, 'l_ctl_repaced_null_entry', l_ctl_replaced_null_entry);
1156: END IF;
1157:
1158: IF (NOT l_ctl_replaced_null_entry)
1159: THEN
1181: AND poah.action_code IS NOT NULL;
1182:
1183: d_progress := 130;
1184:
1185: IF (PO_LOG.d_stmt) THEN
1186: PO_LOG.stmt(d_module, d_progress, 'l_count_hist', l_count_hist);
1187: END IF;
1188:
1189: IF (l_count_hist > 0)
1182:
1183: d_progress := 130;
1184:
1185: IF (PO_LOG.d_stmt) THEN
1186: PO_LOG.stmt(d_module, d_progress, 'l_count_hist', l_count_hist);
1187: END IF;
1188:
1189: IF (l_count_hist > 0)
1190: THEN
1262: FROM po_headers_all poh
1263: WHERE poh.po_header_id = p_document_id;
1264:
1265: d_progress := 160;
1266: IF (PO_LOG.d_stmt) THEN
1267: PO_LOG.stmt(d_module, d_progress, 'l_revision_num', l_revision_num);
1268: END IF;
1269:
1270: INSERT INTO po_action_history(
1263: WHERE poh.po_header_id = p_document_id;
1264:
1265: d_progress := 160;
1266: IF (PO_LOG.d_stmt) THEN
1267: PO_LOG.stmt(d_module, d_progress, 'l_revision_num', l_revision_num);
1268: END IF;
1269:
1270: INSERT INTO po_action_history(
1271: object_id
1322: EXCEPTION
1323: WHEN PO_CORE_S.g_early_return_exc THEN
1324: l_ret_sts := 'U';
1325: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, d_msg);
1326: IF (PO_LOG.d_exc) THEN
1327: PO_LOG.exc(d_module, d_progress, d_msg);
1328: END IF;
1329: END;
1330:
1323: WHEN PO_CORE_S.g_early_return_exc THEN
1324: l_ret_sts := 'U';
1325: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, d_msg);
1326: IF (PO_LOG.d_exc) THEN
1327: PO_LOG.exc(d_module, d_progress, d_msg);
1328: END IF;
1329: END;
1330:
1331: x_return_status := l_ret_sts;
1329: END;
1330:
1331: x_return_status := l_ret_sts;
1332:
1333: IF (PO_LOG.d_proc) THEN
1334: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1335: PO_LOG.proc_end(d_module);
1336: END IF;
1337:
1330:
1331: x_return_status := l_ret_sts;
1332:
1333: IF (PO_LOG.d_proc) THEN
1334: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1335: PO_LOG.proc_end(d_module);
1336: END IF;
1337:
1338: RETURN;
1331: x_return_status := l_ret_sts;
1332:
1333: IF (PO_LOG.d_proc) THEN
1334: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1335: PO_LOG.proc_end(d_module);
1336: END IF;
1337:
1338: RETURN;
1339:
1341: WHEN OTHERS THEN
1342: x_return_status := 'U';
1343:
1344: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1345: IF (PO_LOG.d_exc) THEN
1346: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1347: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1348: PO_LOG.proc_end(d_module);
1349: END IF;
1342: x_return_status := 'U';
1343:
1344: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1345: IF (PO_LOG.d_exc) THEN
1346: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1347: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1348: PO_LOG.proc_end(d_module);
1349: END IF;
1350:
1343:
1344: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1345: IF (PO_LOG.d_exc) THEN
1346: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1347: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1348: PO_LOG.proc_end(d_module);
1349: END IF;
1350:
1351: RETURN;
1344: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1345: IF (PO_LOG.d_exc) THEN
1346: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1347: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1348: PO_LOG.proc_end(d_module);
1349: END IF;
1350:
1351: RETURN;
1352:
1379:
1380: BEGIN
1381:
1382: d_progress := 0;
1383: IF (PO_LOG.d_proc) THEN
1384: PO_LOG.proc_begin(d_module);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1380: BEGIN
1381:
1382: d_progress := 0;
1383: IF (PO_LOG.d_proc) THEN
1384: PO_LOG.proc_begin(d_module);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1381:
1382: d_progress := 0;
1383: IF (PO_LOG.d_proc) THEN
1384: PO_LOG.proc_begin(d_module);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1382: d_progress := 0;
1383: IF (PO_LOG.d_proc) THEN
1384: PO_LOG.proc_begin(d_module);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1383: IF (PO_LOG.d_proc) THEN
1384: PO_LOG.proc_begin(d_module);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1384: PO_LOG.proc_begin(d_module);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1385: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1386: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1387: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1395: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1388: PO_LOG.proc_begin(d_module, 'p_action', p_action);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1395: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1396: PO_LOG.proc_begin(d_module, 'p_old_status', p_old_status);
1389: PO_LOG.proc_begin(d_module, 'p_fwd_to_id', p_fwd_to_id);
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1395: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1396: PO_LOG.proc_begin(d_module, 'p_old_status', p_old_status);
1397: END IF;
1390: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1395: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1396: PO_LOG.proc_begin(d_module, 'p_old_status', p_old_status);
1397: END IF;
1398:
1391: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1395: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1396: PO_LOG.proc_begin(d_module, 'p_old_status', p_old_status);
1397: END IF;
1398:
1399: d_progress := 10;
1392: PO_LOG.proc_begin(d_module, 'p_note', p_note);
1393: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
1394: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1395: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
1396: PO_LOG.proc_begin(d_module, 'p_old_status', p_old_status);
1397: END IF;
1398:
1399: d_progress := 10;
1400:
1579: EXCEPTION
1580: WHEN PO_CORE_S.g_early_return_exc THEN
1581: l_ret_sts := 'U';
1582: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, 'Insert or update action history not successful');
1583: IF (PO_LOG.d_exc) THEN
1584: PO_LOG.exc(d_module, d_progress, 'Insert or update action history not successful');
1585: END IF;
1586:
1587: END;
1580: WHEN PO_CORE_S.g_early_return_exc THEN
1581: l_ret_sts := 'U';
1582: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, 'Insert or update action history not successful');
1583: IF (PO_LOG.d_exc) THEN
1584: PO_LOG.exc(d_module, d_progress, 'Insert or update action history not successful');
1585: END IF;
1586:
1587: END;
1588:
1587: END;
1588:
1589: x_return_status := l_ret_sts;
1590: d_progress := 100;
1591: IF (PO_LOG.d_proc) THEN
1592: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1593: PO_LOG.proc_end(d_module);
1594: END IF;
1595:
1588:
1589: x_return_status := l_ret_sts;
1590: d_progress := 100;
1591: IF (PO_LOG.d_proc) THEN
1592: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1593: PO_LOG.proc_end(d_module);
1594: END IF;
1595:
1596: RETURN;
1589: x_return_status := l_ret_sts;
1590: d_progress := 100;
1591: IF (PO_LOG.d_proc) THEN
1592: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1593: PO_LOG.proc_end(d_module);
1594: END IF;
1595:
1596: RETURN;
1597:
1599: WHEN OTHERS THEN
1600: x_return_status := 'U';
1601:
1602: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1603: IF (PO_LOG.d_exc) THEN
1604: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1605: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1606: PO_LOG.proc_end(d_module);
1607: END IF;
1600: x_return_status := 'U';
1601:
1602: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1603: IF (PO_LOG.d_exc) THEN
1604: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1605: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1606: PO_LOG.proc_end(d_module);
1607: END IF;
1608:
1601:
1602: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1603: IF (PO_LOG.d_exc) THEN
1604: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1605: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1606: PO_LOG.proc_end(d_module);
1607: END IF;
1608:
1609: RETURN;
1602: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1603: IF (PO_LOG.d_exc) THEN
1604: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1605: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1606: PO_LOG.proc_end(d_module);
1607: END IF;
1608:
1609: RETURN;
1610:
1635:
1636: BEGIN
1637:
1638: d_progress := 0;
1639: IF (PO_LOG.d_proc) THEN
1640: PO_LOG.proc_begin(d_module);
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1636: BEGIN
1637:
1638: d_progress := 0;
1639: IF (PO_LOG.d_proc) THEN
1640: PO_LOG.proc_begin(d_module);
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1644: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
1637:
1638: d_progress := 0;
1639: IF (PO_LOG.d_proc) THEN
1640: PO_LOG.proc_begin(d_module);
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1644: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
1645: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1638: d_progress := 0;
1639: IF (PO_LOG.d_proc) THEN
1640: PO_LOG.proc_begin(d_module);
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1644: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
1645: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1646: END IF;
1639: IF (PO_LOG.d_proc) THEN
1640: PO_LOG.proc_begin(d_module);
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1644: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
1645: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1646: END IF;
1647:
1640: PO_LOG.proc_begin(d_module);
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1644: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
1645: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1646: END IF;
1647:
1648: BEGIN
1641: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1642: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1643: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1644: PO_LOG.proc_begin(d_module, 'p_new_status', p_new_status);
1645: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1646: END IF;
1647:
1648: BEGIN
1649:
1875: EXCEPTION
1876: WHEN PO_CORE_S.g_early_return_exc THEN
1877: l_ret_sts := 'U';
1878: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
1879: IF (PO_LOG.d_exc) THEN
1880: PO_LOG.exc(d_module, d_progress, l_err_msg);
1881: END IF;
1882: END;
1883:
1876: WHEN PO_CORE_S.g_early_return_exc THEN
1877: l_ret_sts := 'U';
1878: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, l_err_msg);
1879: IF (PO_LOG.d_exc) THEN
1880: PO_LOG.exc(d_module, d_progress, l_err_msg);
1881: END IF;
1882: END;
1883:
1884:
1883:
1884:
1885: x_return_status := l_ret_sts;
1886: d_progress := 200;
1887: IF (PO_LOG.d_proc) THEN
1888: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1889: PO_LOG.proc_end(d_module);
1890: END IF;
1891:
1884:
1885: x_return_status := l_ret_sts;
1886: d_progress := 200;
1887: IF (PO_LOG.d_proc) THEN
1888: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1889: PO_LOG.proc_end(d_module);
1890: END IF;
1891:
1892: RETURN;
1885: x_return_status := l_ret_sts;
1886: d_progress := 200;
1887: IF (PO_LOG.d_proc) THEN
1888: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1889: PO_LOG.proc_end(d_module);
1890: END IF;
1891:
1892: RETURN;
1893:
1895: WHEN OTHERS THEN
1896: x_return_status := 'U';
1897:
1898: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1899: IF (PO_LOG.d_exc) THEN
1900: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1901: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1902: PO_LOG.proc_end(d_module);
1903: END IF;
1896: x_return_status := 'U';
1897:
1898: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1899: IF (PO_LOG.d_exc) THEN
1900: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1901: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1902: PO_LOG.proc_end(d_module);
1903: END IF;
1904:
1897:
1898: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1899: IF (PO_LOG.d_exc) THEN
1900: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1901: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1902: PO_LOG.proc_end(d_module);
1903: END IF;
1904:
1905: RETURN;
1898: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
1899: IF (PO_LOG.d_exc) THEN
1900: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
1901: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1902: PO_LOG.proc_end(d_module);
1903: END IF;
1904:
1905: RETURN;
1906:
1928:
1929: BEGIN
1930:
1931: d_progress := 0;
1932: IF (PO_LOG.d_proc) THEN
1933: PO_LOG.proc_begin(d_module);
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1929: BEGIN
1930:
1931: d_progress := 0;
1932: IF (PO_LOG.d_proc) THEN
1933: PO_LOG.proc_begin(d_module);
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1930:
1931: d_progress := 0;
1932: IF (PO_LOG.d_proc) THEN
1933: PO_LOG.proc_begin(d_module);
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1931: d_progress := 0;
1932: IF (PO_LOG.d_proc) THEN
1933: PO_LOG.proc_begin(d_module);
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1939: PO_LOG.proc_begin(d_module, 'p_doc_creation_date', p_doc_creation_date);
1932: IF (PO_LOG.d_proc) THEN
1933: PO_LOG.proc_begin(d_module);
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1939: PO_LOG.proc_begin(d_module, 'p_doc_creation_date', p_doc_creation_date);
1940: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1933: PO_LOG.proc_begin(d_module);
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1939: PO_LOG.proc_begin(d_module, 'p_doc_creation_date', p_doc_creation_date);
1940: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1941: END IF;
1934: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1939: PO_LOG.proc_begin(d_module, 'p_doc_creation_date', p_doc_creation_date);
1940: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1941: END IF;
1942:
1935: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1939: PO_LOG.proc_begin(d_module, 'p_doc_creation_date', p_doc_creation_date);
1940: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1941: END IF;
1942:
1943: d_progress := 10;
1936: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
1937: PO_LOG.proc_begin(d_module, 'p_notify_action', p_notify_action);
1938: PO_LOG.proc_begin(d_module, 'p_notify_employee', p_notify_employee);
1939: PO_LOG.proc_begin(d_module, 'p_doc_creation_date', p_doc_creation_date);
1940: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
1941: END IF;
1942:
1943: d_progress := 10;
1944:
1987: END IF; -- p_notify_action IS NOT NULL
1988:
1989: x_return_status := 'S';
1990: d_progress := 100;
1991: IF (PO_LOG.d_proc) THEN
1992: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1993: PO_LOG.proc_end(d_module);
1994: END IF;
1995:
1988:
1989: x_return_status := 'S';
1990: d_progress := 100;
1991: IF (PO_LOG.d_proc) THEN
1992: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1993: PO_LOG.proc_end(d_module);
1994: END IF;
1995:
1996: RETURN;
1989: x_return_status := 'S';
1990: d_progress := 100;
1991: IF (PO_LOG.d_proc) THEN
1992: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
1993: PO_LOG.proc_end(d_module);
1994: END IF;
1995:
1996: RETURN;
1997:
1999: WHEN OTHERS THEN
2000: x_return_status := 'U';
2001:
2002: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2003: IF (PO_LOG.d_exc) THEN
2004: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2005: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2006: PO_LOG.proc_end(d_module);
2007: END IF;
2000: x_return_status := 'U';
2001:
2002: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2003: IF (PO_LOG.d_exc) THEN
2004: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2005: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2006: PO_LOG.proc_end(d_module);
2007: END IF;
2008:
2001:
2002: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2003: IF (PO_LOG.d_exc) THEN
2004: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2005: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2006: PO_LOG.proc_end(d_module);
2007: END IF;
2008:
2009: RETURN;
2002: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2003: IF (PO_LOG.d_exc) THEN
2004: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2005: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2006: PO_LOG.proc_end(d_module);
2007: END IF;
2008:
2009: RETURN;
2010:
2035:
2036: BEGIN
2037:
2038: d_progress := 0;
2039: IF (PO_LOG.d_proc) THEN
2040: PO_LOG.proc_begin(d_module);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2036: BEGIN
2037:
2038: d_progress := 0;
2039: IF (PO_LOG.d_proc) THEN
2040: PO_LOG.proc_begin(d_module);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2037:
2038: d_progress := 0;
2039: IF (PO_LOG.d_proc) THEN
2040: PO_LOG.proc_begin(d_module);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2038: d_progress := 0;
2039: IF (PO_LOG.d_proc) THEN
2040: PO_LOG.proc_begin(d_module);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2039: IF (PO_LOG.d_proc) THEN
2040: PO_LOG.proc_begin(d_module);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2040: PO_LOG.proc_begin(d_module);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2041: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2042: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2050: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2043: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2050: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2051: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
2044: PO_LOG.proc_begin(d_module, 'p_document_subtype', p_document_subtype);
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2050: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2051: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
2052: END IF;
2045: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2050: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2051: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
2052: END IF;
2053:
2046: PO_LOG.proc_begin(d_module, 'p_employee_id', p_employee_id);
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2050: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2051: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
2052: END IF;
2053:
2054: d_progress := 10;
2047: PO_LOG.proc_begin(d_module, 'p_offline_code', p_offline_code);
2048: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2049: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2050: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2051: PO_LOG.proc_begin(d_module, 'p_login_id', p_login_id);
2052: END IF;
2053:
2054: d_progress := 10;
2055:
2069: THEN
2070: l_sequence_num := 0;
2071: END IF;
2072:
2073: IF (PO_LOG.d_stmt) THEN
2074: PO_LOG.stmt(d_module, d_progress, 'l_sequence_num', l_sequence_num);
2075: END IF;
2076: --
2077:
2070: l_sequence_num := 0;
2071: END IF;
2072:
2073: IF (PO_LOG.d_stmt) THEN
2074: PO_LOG.stmt(d_module, d_progress, 'l_sequence_num', l_sequence_num);
2075: END IF;
2076: --
2077:
2078: d_progress := 20;
2123: );
2124:
2125: x_return_status := 'S';
2126: d_progress := 100;
2127: IF (PO_LOG.d_proc) THEN
2128: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2129: PO_LOG.proc_end(d_module);
2130: END IF;
2131:
2124:
2125: x_return_status := 'S';
2126: d_progress := 100;
2127: IF (PO_LOG.d_proc) THEN
2128: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2129: PO_LOG.proc_end(d_module);
2130: END IF;
2131:
2132: RETURN;
2125: x_return_status := 'S';
2126: d_progress := 100;
2127: IF (PO_LOG.d_proc) THEN
2128: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2129: PO_LOG.proc_end(d_module);
2130: END IF;
2131:
2132: RETURN;
2133:
2135: WHEN OTHERS THEN
2136: x_return_status := 'U';
2137:
2138: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2139: IF (PO_LOG.d_exc) THEN
2140: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2141: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2142: PO_LOG.proc_end(d_module);
2143: END IF;
2136: x_return_status := 'U';
2137:
2138: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2139: IF (PO_LOG.d_exc) THEN
2140: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2141: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2142: PO_LOG.proc_end(d_module);
2143: END IF;
2144:
2137:
2138: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2139: IF (PO_LOG.d_exc) THEN
2140: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2141: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2142: PO_LOG.proc_end(d_module);
2143: END IF;
2144:
2145: RETURN;
2138: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2139: IF (PO_LOG.d_exc) THEN
2140: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2141: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2142: PO_LOG.proc_end(d_module);
2143: END IF;
2144:
2145: RETURN;
2146:
2163:
2164: BEGIN
2165:
2166: d_progress := 0;
2167: IF (PO_LOG.d_proc) THEN
2168: PO_LOG.proc_begin(d_module);
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2164: BEGIN
2165:
2166: d_progress := 0;
2167: IF (PO_LOG.d_proc) THEN
2168: PO_LOG.proc_begin(d_module);
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2165:
2166: d_progress := 0;
2167: IF (PO_LOG.d_proc) THEN
2168: PO_LOG.proc_begin(d_module);
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2166: d_progress := 0;
2167: IF (PO_LOG.d_proc) THEN
2168: PO_LOG.proc_begin(d_module);
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2174: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2167: IF (PO_LOG.d_proc) THEN
2168: PO_LOG.proc_begin(d_module);
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2174: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2175: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2168: PO_LOG.proc_begin(d_module);
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2174: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2175: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2176: END IF;
2169: PO_LOG.proc_begin(d_module, 'p_document_id', p_document_id);
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2174: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2175: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2176: END IF;
2177:
2170: PO_LOG.proc_begin(d_module, 'p_revision_num', p_revision_num);
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2174: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2175: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2176: END IF;
2177:
2178: d_progress := 10;
2171: PO_LOG.proc_begin(d_module, 'p_document_type', p_document_type);
2172: PO_LOG.proc_begin(d_module, 'p_action', p_action);
2173: PO_LOG.proc_begin(d_module, 'p_approval_path_id', p_approval_path_id);
2174: PO_LOG.proc_begin(d_module, 'p_note', p_note);
2175: PO_LOG.proc_begin(d_module, 'p_user_id', p_user_id);
2176: END IF;
2177:
2178: d_progress := 10;
2179:
2190: AND action_code IS NULL;
2191:
2192: x_return_status := 'S';
2193: d_progress := 100;
2194: IF (PO_LOG.d_proc) THEN
2195: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2196: PO_LOG.proc_end(d_module);
2197: END IF;
2198:
2191:
2192: x_return_status := 'S';
2193: d_progress := 100;
2194: IF (PO_LOG.d_proc) THEN
2195: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2196: PO_LOG.proc_end(d_module);
2197: END IF;
2198:
2199: RETURN;
2192: x_return_status := 'S';
2193: d_progress := 100;
2194: IF (PO_LOG.d_proc) THEN
2195: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2196: PO_LOG.proc_end(d_module);
2197: END IF;
2198:
2199: RETURN;
2200:
2202: WHEN OTHERS THEN
2203: x_return_status := 'U';
2204:
2205: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2206: IF (PO_LOG.d_exc) THEN
2207: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2208: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2209: PO_LOG.proc_end(d_module);
2210: END IF;
2203: x_return_status := 'U';
2204:
2205: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2206: IF (PO_LOG.d_exc) THEN
2207: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2208: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2209: PO_LOG.proc_end(d_module);
2210: END IF;
2211:
2204:
2205: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2206: IF (PO_LOG.d_exc) THEN
2207: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2208: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2209: PO_LOG.proc_end(d_module);
2210: END IF;
2211:
2212: RETURN;
2205: PO_DOCUMENT_ACTION_PVT.error_msg_append(d_module, d_progress, SQLCODE, SQLERRM);
2206: IF (PO_LOG.d_exc) THEN
2207: PO_LOG.exc(d_module, d_progress, SQLCODE || SQLERRM);
2208: PO_LOG.proc_end(d_module, 'x_return_status', x_return_status);
2209: PO_LOG.proc_end(d_module);
2210: END IF;
2211:
2212: RETURN;
2213: