Oracle ERP R12. - Update PO Price by API

Sample Code :



CREATE PROCEDURE XXX_UPDATE_PO_PRICE(I_PO_NO  VARCHAR2,
                                     I_PO_LINE NUMBER,
                                     I_SHIPMENT NUMBER,
                                     I_NEW_PRICE NUMBER,
                                     I_REVISION NUMBER DEFAULT NULL,
                                     I_RELEASE NUMBER DEFAULT NULL)
IS                                  
  T_RESUTL NUMBER;
  T_API_ERRORS PO_API_ERRORS_REC_TYPE;
BEGIN
  --INITIALIZE
  FND_GLOBAL.APPS_INITIALIZE(USER_ID      => I_USERID,
                             RESP_ID      => 50649, --Modify it.
                             RESP_APPL_ID => 201); --Modify it.
  --
  T_RESULT := PO_CHANGE_API1_S.UPDATE_PO(X_PO_NUMBER           => I_PO_NO,
                                         X_RELEASE_NUMBER      => I_RELEASE,
                                         X_REVISION_NUMBER     => I_REVISION,
                                         X_LINE_NUMBER         => I_PO_LINE,
                                         X_SHIPMENT_NUMBER     => I_SHIPMENT,
                                         NEW_QUANTITY          => NULL,
                                         NEW_PRICE             => I_NEW_PRICE,
                                         NEW_PROMISED_DATE     => NULL,
                                         LAUNCH_APPROVALS_FLAG => 'Y',
                                         UPDATE_SOURCE         => 'UPDATE BY API', --Modify it.
                                         VERSION               => '1.0',
                                         X_API_ERRORS          => T_API_ERRORS,
                                         p_secondary_quantity  => NULL,
                                         p_preferred_grade     => NULL);
  --
  COMMIT;
END;