利用API更新PO

/* Formatted on 2014-10-6 17:54:45 (QP5 v5.115.810.9015) */
DECLARE
   -- Local variables here
   I              INTEGER;
   L_RESULT       NUMBER;
   X_API_ERRORS   PO_API_ERRORS_REC_TYPE;
   L_ERROR_MESSAGE VARCHAR2(31767);
BEGIN
   -- Test statements here
   MO_GLOBAL.INIT('PO');
   MO_GLOBAL.SET_POLICY_CONTEXT('S', 85);
   FND_GLOBAL.APPS_INITIALIZE(USER_ID     => 11236
                             ,RESP_ID     => 50623
                             ,RESP_APPL_ID => 201
                             );
   L_RESULT :=
      PO_CHANGE_API1_S.UPDATE_PO(X_PO_NUMBER => '123214060066'
                                ,X_RELEASE_NUMBER => NULL
                                ,X_REVISION_NUMBER => 0
                                ,X_LINE_NUMBER => 1
                                ,X_SHIPMENT_NUMBER => 1
                                ,NEW_QUANTITY => 10
                                ,NEW_PRICE   => 62.5
                                ,NEW_PROMISED_DATE => sysdate
                                ,NEW_NEED_BY_DATE => sysdate
                                ,LAUNCH_APPROVALS_FLAG => 'Y'
                                ,UPDATE_SOURCE => 'Test Only'
                                ,VERSION     => '1.0'
                                ,X_OVERRIDE_DATE => NULL
                                ,X_API_ERRORS => X_API_ERRORS
                                ,P_BUYER_NAME => NULL
                                ,P_SECONDARY_QUANTITY => NULL
                                ,P_PREFERRED_GRADE => NULL
                                ,P_ORG_ID    => NULL
                                );

   IF L_RESULT IS NULL
   OR L_RESULT <> 1 THEN
      FOR I IN 1 .. X_API_ERRORS.MESSAGE_NAME.COUNT LOOP
         L_ERROR_MESSAGE :=
            L_ERROR_MESSAGE || ' ' || X_API_ERRORS.MESSAGE_TEXT(I);
      END LOOP;

      dbms_output.PUT_LINE('error message:' || L_ERROR_MESSAGE);
   ELSE
      dbms_output.PUT_LINE('update po sucess!');
   END IF;
END;