[PO] Close PO => Header / Line / Shipment

 DECLARE

  xReturnStatus VARCHAR2(1);

  xResult       BOOLEAN;

BEGIN

  fnd_global.apps_initialize(user_id => 00, resp_id => 00,resp_appl_id => 00);

  xResult := po_actions.close_po(p_docid => 00,

                                  p_doctyp => 'PO',

                                  p_docsubtyp => 'STANDARD',

                                  p_lineid => null, -- if want to close line

                                  p_shipid => null, -- if want to close shipment

                                  p_action => 'CLOSE',

                                  p_reason => 'Test',

                                  p_calling_mode => 'PO', 

                                  p_conc_flag => 'N',

                                  p_return_code => xReturnStatus,

                                  p_auto_close => 'N',

                                  p_action_date => SYSDATE,

                                  p_origin_doc_id => null);

END;