DECLARE
    cursor_name INTEGER;
    rows_processed INTEGER;
BEGIN
    cursor_name := dbms_sql.open_cursor;
    DBMS_SQL.PARSE(cursor_name, 'INSERT INTO MONITOR.MORED (ID_MORED, ID_EMPLOYEE_FK, MODEL_MORED, STATUS)
                                 SELECT MONITOR.SEQ_MORED.NEXTVAL, :x, a.str, 1
                                   FROM (SELECT TRIM(REGEXP_SUBSTR(s, ''[^''||chr(10)||'']+'', 1, level)) str
	                                     FROM (SELECT :y s FROM dual) t
                                         CONNECT BY INSTR(s, chr(10), 1, level - 1) > 0) a
                                  WHERE TRIM(a.str) IS NOT NULL;',
                   DBMS_SQL.NATIVE);
    DBMS_SQL.BIND_VARIABLE(cursor_name, ':x', :F102_ID_EMPLOYEE);
    DBMS_SQL.BIND_VARIABLE(cursor_name, ':y', :P1_MODEL);
    rows_processed := DBMS_SQL.EXECUTE(cursor_name);
    DBMS_SQL.CLOSE_CURSOR(cursor_name);
EXCEPTION
WHEN OTHERS THEN
    DBMS_SQL.CLOSE_CURSOR(cursor_name);
END;

DECLARE
  l_count     number;
  mored_value varchar2(200);
BEGIN
  l_count := length(:P1_MODEL||chr(10)) - length(replace(:P1_MODEL||chr(10),chr(10),''));

  FOR i IN 1 .. l_count LOOP 
    mored_value := TRIM(REGEXP_SUBSTR(:P1_MODEL||chr(10), '[^'||chr(10)||']+', 1, i));
    INSERT INTO MONITOR.MORED (ID_MORED, ID_EMPLOYEE_FK, MODEL_MORED, STATUS)
    SELECT MONITOR.SEQ_MORED.NEXTVAL, :F102_ID_EMPLOYEE, mored_value, 1 
      FROM dual
     WHERE mored_value IS NOT NULL;
  END LOOP;

  :P1_MODEL := NULL;
  COMMIT;
END;