利用API产生PO，已测试成功

/* Formatted on 2014-10-6 16:33:22 (QP5 v5.115.810.9015) */
DECLARE
   -- Local variables here
   I              INTEGER;
   L_HEADER_REC   PO.PO_HEADERS_INTERFACE%ROWTYPE;
   L_LINE_REC     PO.PO_LINES_INTERFACE%ROWTYPE;
   L_DIST_REC     PO.PO_DISTRIBUTIONS_INTERFACE%ROWTYPE;
   L_ERROR_MESSAGE VARCHAR2(4000);
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
                             );
   --PO头
   L_HEADER_REC.ORG_ID := 85;

   SELECT PO.PO_HEADERS_INTERFACE_S.NEXTVAL
     INTO L_HEADER_REC.INTERFACE_HEADER_ID
     FROM DUAL;

   dbms_output.PUT_LINE('HEADER_ID:' || L_HEADER_REC.INTERFACE_HEADER_ID);