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;