Oracle ERP R12. - Close PO by API

Sample code for close PO by API.


CREATE PROCEDURE XXX_CLOSE_PO_LINE(I_PO_HEADER_ID   IN NUMBER,
                                   I_PO_LINE_ID     IN NUMBER,
                                   I_ACTION         IN VARCHAR2,
                                   I_REASON         IN VARCHAR2,
                                   I_USER_ID        IN NUMBER,
                                   O_RESULT         OUT BOOLEAN,
                                   O_RETURN_CODE    OUT VARCHAR2)
IS
BEGIN
  FND_GLOBAL.APPS_INITIALIZE (USER_ID => I_USER_ID,
  RESP_ID => 20707, --Modify it.
  RESP_APPL_ID => 201); --Modify it.
  --
  O_RESULT := PO_ACTIONS.CLOSE_PO(P_DOCID         => I_PO_HEADER_ID,
                                  P_DOCTYP        => 'PO',
                                  P_DOCSUBTYP     => 'STANDARD',
                                  P_LINEID        => I_PO_LINE_ID,
                                  P_SHIPID        => NULL,
                                  P_ACTION        => 'CLOSE',
                                  P_REASON        => I_REASON,
                                  P_CALLING_MODE  => 'PO',
                                  P_CONC_FLAG     => 'N',
                                  P_RETURN_CODE   => O_RETURN_CODE,
                                  P_AUTO_CLOSE    => 'N',
                                  P_ACTION_DATE   => SYSDATE,
                                  P_ORIGIN_DOC_ID => NULL);
EXCEPTION
  WHEN OTHERS THEN
    RAISE;
END XXX_CLOSE_PO_LINE;