EBS开发_采购订单审批API_20171213

--以下脚本于20171213在TONY环境实现

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); */
begin
  fnd_global.apps_initialize(user_id      => 1110,
                             resp_id      => 50597,
                             resp_appl_id => 20003);
  mo_global.init('M');
end;                               
  
  -- Call the procedure  
  po_document_action_pvt.do_approve(p_document_id      => 5,  
                                    p_document_type    => 'PO',  
                                    p_document_subtype => 'STANDARD',  
                                    p_note             => 'hope success',