396: THEN
397:
398: d_progress := 100;
399:
400: PO_DOCUMENT_FUNDS_PVT.do_reject(
401: x_return_status => l_ret_sts
402: , p_doc_type => p_action_ctl_rec.document_type
403: , p_doc_subtype => p_action_ctl_rec.document_subtype
404: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
400: PO_DOCUMENT_FUNDS_PVT.do_reject(
401: x_return_status => l_ret_sts
402: , p_doc_type => p_action_ctl_rec.document_type
403: , p_doc_subtype => p_action_ctl_rec.document_subtype
404: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
405: , p_doc_level_id => p_action_ctl_rec.document_id
406: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
407: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
408: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
402: , p_doc_type => p_action_ctl_rec.document_type
403: , p_doc_subtype => p_action_ctl_rec.document_subtype
404: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
405: , p_doc_level_id => p_action_ctl_rec.document_id
406: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
407: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
408: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
409: , p_override_date => SYSDATE
410: , x_po_return_code => l_enc_ret_code
403: , p_doc_subtype => p_action_ctl_rec.document_subtype
404: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
405: , p_doc_level_id => p_action_ctl_rec.document_id
406: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
407: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
408: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
409: , p_override_date => SYSDATE
410: , x_po_return_code => l_enc_ret_code
411: , x_online_report_id => l_enc_report_id
404: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
405: , p_doc_level_id => p_action_ctl_rec.document_id
406: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
407: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
408: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
409: , p_override_date => SYSDATE
410: , x_po_return_code => l_enc_ret_code
411: , x_online_report_id => l_enc_report_id
412: );
430: END IF;
431:
432: p_action_ctl_rec.online_report_id := l_enc_report_id;
433:
434: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
435: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
436: THEN
437:
438: d_progress := 125;
431:
432: p_action_ctl_rec.online_report_id := l_enc_report_id;
433:
434: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
435: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
436: THEN
437:
438: d_progress := 125;
439: -- Just continue with reject action.
437:
438: d_progress := 125;
439: -- Just continue with reject action.
440:
441: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_PARTIAL)
442: THEN
443:
444: d_progress := 130;
445: p_action_ctl_rec.return_status := 'S';
446: p_action_ctl_rec.return_code := 'P';
447: l_err_msg := 'funds do_reject partial';
448: RAISE PO_CORE_S.g_early_return_exc;
449:
450: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FAILURE)
451: THEN
452:
453: d_progress := 140;
454: p_action_ctl_rec.return_status := 'S';
455: p_action_ctl_rec.return_code := 'F';
456: l_err_msg := 'funds do_reject failure';
457: RAISE PO_CORE_S.g_early_return_exc;
458:
459: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FATAL)
460: THEN
461:
462: d_progress := 150;
463: p_action_ctl_rec.return_status := 'S';
842: THEN
843:
844: d_progress := 70;
845:
846: PO_DOCUMENT_FUNDS_PVT.do_return(
847: x_return_status => l_ret_sts
848: , p_doc_type => p_action_ctl_rec.document_type
849: , p_doc_subtype => p_action_ctl_rec.document_subtype
850: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
846: PO_DOCUMENT_FUNDS_PVT.do_return(
847: x_return_status => l_ret_sts
848: , p_doc_type => p_action_ctl_rec.document_type
849: , p_doc_subtype => p_action_ctl_rec.document_subtype
850: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
851: , p_doc_level_id => p_action_ctl_rec.document_id
852: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
853: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
854: , p_override_date => SYSDATE
848: , p_doc_type => p_action_ctl_rec.document_type
849: , p_doc_subtype => p_action_ctl_rec.document_subtype
850: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
851: , p_doc_level_id => p_action_ctl_rec.document_id
852: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
853: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
854: , p_override_date => SYSDATE
855: , x_po_return_code => l_enc_ret_code
856: , x_online_report_id => l_enc_report_id
849: , p_doc_subtype => p_action_ctl_rec.document_subtype
850: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
851: , p_doc_level_id => p_action_ctl_rec.document_id
852: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
853: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
854: , p_override_date => SYSDATE
855: , x_po_return_code => l_enc_ret_code
856: , x_online_report_id => l_enc_report_id
857: );
875: END IF;
876:
877: p_action_ctl_rec.online_report_id := l_enc_report_id;
878:
879: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
880: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
881: THEN
882:
883: d_progress := 100;
876:
877: p_action_ctl_rec.online_report_id := l_enc_report_id;
878:
879: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
880: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
881: THEN
882:
883: d_progress := 100;
884: -- Just continue with return action.
882:
883: d_progress := 100;
884: -- Just continue with return action.
885:
886: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_PARTIAL)
887: THEN
888:
889: d_progress := 110;
890: l_ret_sts := 'S';
891: p_action_ctl_rec.return_code := 'P';
892: l_err_msg := 'funds do_return partial';
893: RAISE PO_CORE_S.g_early_return_exc;
894:
895: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FAILURE)
896: THEN
897:
898: d_progress := 120;
899: l_ret_sts := 'S';
900: p_action_ctl_rec.return_code := 'F';
901: l_err_msg := 'funds do_return failure';
902: RAISE PO_CORE_S.g_early_return_exc;
903:
904: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FATAL)
905: THEN
906:
907: d_progress := 130;
908: l_ret_sts := 'S';