426: THEN
427:
428: d_progress := 100;
429:
430: PO_DOCUMENT_FUNDS_PVT.do_reject(
431: x_return_status => l_ret_sts
432: , p_doc_type => p_action_ctl_rec.document_type
433: , p_doc_subtype => p_action_ctl_rec.document_subtype
434: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
430: PO_DOCUMENT_FUNDS_PVT.do_reject(
431: x_return_status => l_ret_sts
432: , p_doc_type => p_action_ctl_rec.document_type
433: , p_doc_subtype => p_action_ctl_rec.document_subtype
434: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
435: , p_doc_level_id => p_action_ctl_rec.document_id
436: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
437: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
438: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
432: , p_doc_type => p_action_ctl_rec.document_type
433: , p_doc_subtype => p_action_ctl_rec.document_subtype
434: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
435: , p_doc_level_id => p_action_ctl_rec.document_id
436: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
437: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
438: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
439: , p_override_date => SYSDATE
440: , x_po_return_code => l_enc_ret_code
433: , p_doc_subtype => p_action_ctl_rec.document_subtype
434: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
435: , p_doc_level_id => p_action_ctl_rec.document_id
436: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
437: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
438: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
439: , p_override_date => SYSDATE
440: , x_po_return_code => l_enc_ret_code
441: , x_online_report_id => l_enc_report_id
434: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
435: , p_doc_level_id => p_action_ctl_rec.document_id
436: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
437: , p_override_funds => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
438: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
439: , p_override_date => SYSDATE
440: , x_po_return_code => l_enc_ret_code
441: , x_online_report_id => l_enc_report_id
442: );
460: END IF;
461:
462: p_action_ctl_rec.online_report_id := l_enc_report_id;
463:
464: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
465: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
466: THEN
467:
468: d_progress := 125;
461:
462: p_action_ctl_rec.online_report_id := l_enc_report_id;
463:
464: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
465: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
466: THEN
467:
468: d_progress := 125;
469: -- Just continue with reject action.
467:
468: d_progress := 125;
469: -- Just continue with reject action.
470:
471: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_PARTIAL)
472: THEN
473:
474: d_progress := 130;
475: p_action_ctl_rec.return_status := 'S';
476: p_action_ctl_rec.return_code := 'P';
477: l_err_msg := 'funds do_reject partial';
478: RAISE PO_CORE_S.g_early_return_exc;
479:
480: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FAILURE)
481: THEN
482:
483: d_progress := 140;
484: p_action_ctl_rec.return_status := 'S';
485: p_action_ctl_rec.return_code := 'F';
486: l_err_msg := 'funds do_reject failure';
487: RAISE PO_CORE_S.g_early_return_exc;
488:
489: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FATAL)
490: THEN
491:
492: d_progress := 150;
493: p_action_ctl_rec.return_status := 'S';
878: THEN
879:
880: d_progress := 70;
881:
882: PO_DOCUMENT_FUNDS_PVT.do_return(
883: x_return_status => l_ret_sts
884: , p_doc_type => p_action_ctl_rec.document_type
885: , p_doc_subtype => p_action_ctl_rec.document_subtype
886: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
882: PO_DOCUMENT_FUNDS_PVT.do_return(
883: x_return_status => l_ret_sts
884: , p_doc_type => p_action_ctl_rec.document_type
885: , p_doc_subtype => p_action_ctl_rec.document_subtype
886: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
887: , p_doc_level_id => p_action_ctl_rec.document_id
888: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
889: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
890: , p_override_date => SYSDATE
884: , p_doc_type => p_action_ctl_rec.document_type
885: , p_doc_subtype => p_action_ctl_rec.document_subtype
886: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
887: , p_doc_level_id => p_action_ctl_rec.document_id
888: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
889: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
890: , p_override_date => SYSDATE
891: , x_po_return_code => l_enc_ret_code
892: , x_online_report_id => l_enc_report_id
885: , p_doc_subtype => p_action_ctl_rec.document_subtype
886: , p_doc_level => PO_DOCUMENT_FUNDS_PVT.g_doc_level_HEADER
887: , p_doc_level_id => p_action_ctl_rec.document_id
888: , p_use_enc_gt_flag => PO_DOCUMENT_FUNDS_PVT.g_parameter_NO
889: , p_use_gl_date => PO_DOCUMENT_FUNDS_PVT.g_parameter_USE_PROFILE
890: , p_override_date => SYSDATE
891: , x_po_return_code => l_enc_ret_code
892: , x_online_report_id => l_enc_report_id
893: );
911: END IF;
912:
913: p_action_ctl_rec.online_report_id := l_enc_report_id;
914:
915: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
916: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
917: THEN
918:
919: d_progress := 100;
912:
913: p_action_ctl_rec.online_report_id := l_enc_report_id;
914:
915: IF ((l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_SUCCESS)
916: OR (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_WARNING))
917: THEN
918:
919: d_progress := 100;
920: -- Just continue with return action.
918:
919: d_progress := 100;
920: -- Just continue with return action.
921:
922: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_PARTIAL)
923: THEN
924:
925: d_progress := 110;
926: l_ret_sts := 'S';
927: p_action_ctl_rec.return_code := 'P';
928: l_err_msg := 'funds do_return partial';
929: RAISE PO_CORE_S.g_early_return_exc;
930:
931: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FAILURE)
932: THEN
933:
934: d_progress := 120;
935: l_ret_sts := 'S';
936: p_action_ctl_rec.return_code := 'F';
937: l_err_msg := 'funds do_return failure';
938: RAISE PO_CORE_S.g_early_return_exc;
939:
940: ELSIF (l_enc_ret_code = PO_DOCUMENT_FUNDS_PVT.g_return_FATAL)
941: THEN
942:
943: d_progress := 130;
944: l_ret_sts := 'S';