采购订单关闭之PL/SQL实现方法

应客户需求，需要写个脚本，批量关闭Bonus Item类型的采购订单，在metalink上搜索到一些方法，但是都测试不通。原来需要将代码生成一个并发程序。下面是测试成功的代码。
1.首先创建一个存储过程，然后在存储过程中调用PO_ACTIONS.CLOSE_PO
2.注册一个存储过程类型的并发程序
3.在application中测试结果。

create   or   replace   procedure  xx_po_close

(
 
 err_buff out  varchar2 ,
 
 retcode out  number ,
 
 p_reason_desc  varchar2 ,
 
 p_po_from  varchar2 ,
 
 p_po_to  varchar2 )

  as

    l_return_code  varchar2 ( 2000 );

    l_result boolean;

     cursor  po_close_cur
    
     is
    
         select  poh.segment1,
               
               poll.po_header_id,
               
               poll.po_line_id,
               
               poll.line_location_id
        
           from  po_line_locations_all poll,
               
               po_headers_all poh,
               
               po_lines_all pol
        
          where  poll.po_header_id  =  poh.po_header_id
              
            and  poll.po_line_id  =  pol.po_line_id
              
            and  pol.po_header_id  =  poh.po_header_id
              
            and   upper (poh.authorization_status)  =   ' APPROVED '
              
            and   upper (poll.closed_code)  =   ' CLOSED FOR RECEIVING '
              
            and  (pol.unit_price  =   0   or
               poh.quantity_billed  -  poh.quantity  >=   0 )
              
            and  poh.segment1  between  p_po_from  and  p_po_to;

begin

     for  po_close_rec  in  po_close_cur
    
    loop
    
        l_result : =  po_actions.close_po(
                                        
                                        p_docid  =>  po_close_rec.po_header_id,
                                        
                                        p_doctyp  =>   ' PO ' ,
                                        
                                        p_docsubtyp  =>   ' STANDARD ' ,
                                        
                                        p_lineid  =>  po_close_rec.po_line_id,
                                        
                                        p_shipid  =>  po_close_rec.line_location_id,
                                        
                                        p_action  =>   ' CLOSE ' ,
                                        
                                        p_reason  =>  p_reason_desc,
                                        
                                        p_calling_mode  =>   ' PO ' ,
                                        
                                        p_conc_flag  =>   ' N ' ,
                                        
                                        p_return_code  =>  l_return_code,
                                        
                                        p_auto_close  =>   ' N ' ,
                                        
                                        p_action_date  =>  sysdate,
                                        
                                        p_origin_doc_id  =>   null );
    
         if  l_result  then
        
            fnd_file.put_line(fnd_file.output,
                              po_close_rec.segment1  '  is Closed.  ' );
        
         else
        
            fnd_file.put_line(fnd_file.output,
                              po_close_rec.segment1  '  is not Closed.  ' );
        
         end   if ;
    
     end  loop;

end ;