取消采购订单SQL

DECLARE
  -- Local variables here
  i                 INTEGER;
  l_return_status   VARCHAR2(10);
  p_retcode         VARCHAR2(2000);
  p_errbuf          VARCHAR2(2000);
  v_x_return_status VARCHAR2(250);
  v_x_exception_msg VARCHAR2(250);
BEGIN
  -- Test statements here

/*  FOR rec IN (SELECT pha.org_id,
                     pha.segment1,
                     pha.po_header_id erp_header_id
                FROM po_headers_all pha
               WHERE 1 = 1
                 AND pha.org_id = 85
                 AND pha.segment1 LIKE '20903'
                 AND pha.created_by = 1573
                 AND pha.cancel_flag <> 'Y')
  LOOP*/
 
/*    apps.fnd_global.apps_initialize(user_id      => 1150, -- V_USER_ID,  
                                    resp_id      => 50758, --P_RESP_ID, 50757  50737  50758<