存储过程9

INSERT INTO INT_ERP_LOG_EXTEND(LOGID,INTERFACENAME,KEY,VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE','ERROR_DESCRIPTION',V_ERROR_DESCRIPTION);


        FOR I IN 1 .. V_P_REQ_LINES_TBL.COUNT LOOP
          --insert into param table

          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'SOURCE_LINE_ID',V_P_REQ_LINES_TBL(I).P_SOURCE_LINE_ID);
          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'QUANTITY',V_P_REQ_LINES_TBL(I).P_QUANTITY      );
          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'ITEM_ID',V_P_REQ_LINES_TBL(I).P_ITEM_ID       );
          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'UNIT_PRICE',V_P_REQ_LINES_TBL(I).P_UNIT_PRICE    );
          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'PACKAGE_TYPE',V_P_REQ_LINES_TBL(I).P_PACKAGE_TYPE  );
          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'RICA_ADDRESS',V_P_REQ_LINES_TBL(I).P_RICA_ADDRESS  );
          INSERT INTO INT_ERP_LOG_EXTEND(LOGID, INTERFACENAME, KEY, VALUE)VALUES(C_SEQ,'INT_ERP_PO_CREATE',I||'LINE_NUMBER',V_P_REQ_LINES_TBL(I).P_LINE_NUMBER   );
        END LOOP;
        END IF;
          --init
          IS_EXCEPTION_CODE := 0;
      END;
      --end

    END LOOP;
  END IF;
  CLOSE C_PO_INFO;