PO订单审批通过API

DECLARE
  l_return_status VARCHAR2(1);
  l_exception_msg VARCHAR2(4000);
BEGIN
  mo_global.set_policy_context(p_access_mode => 'S',
                               p_org_id      => 81);

  -- Call the procedure
  po_document_action_pvt.do_approve(p_document_id      => 126001,
                                    p_document_type    => 'PO',
                                    p_document_subtype => 'STANDARD',
                                    p_note             => 'hope success',
                                    p_approval_path_id => 1,
                                    x_return_status    => l_return_status,
                                    x_exception_msg    => l_exception_msg);
  IF l_return_status = 'S' THEN
    dbms_output.put_line('Successful!');
    --dbms_output.put_line('l_exception_msg = ' || l_exception_msg);

  ELSE

    dbms_output.put_line('Error Status = ' || l_return_status);
    dbms_output.put_line('l_exception_msg:' || l_exception_msg);
  END IF;
END;