[Home] [Help]
784:
785: l_geometry_tbl := get_geometry_tbl(p_segment_id_tbl);
786:
787: -- Open the CLOB
788: dbms_lob.OPEN(l_route, dbms_lob.lob_readwrite);
789:
790: -- Read from Geometry Table and write to the CLOB
791: i := l_geometry_tbl.FIRST;
792: WHILE i IS NOT NULL LOOP
789:
790: -- Read from Geometry Table and write to the CLOB
791: i := l_geometry_tbl.FIRST;
792: WHILE i IS NOT NULL LOOP
793: dbms_lob.writeappend(l_route, LENGTH(l_geometry_tbl(i)) + 1, l_geometry_tbl(i) || ',');
794: i := l_geometry_tbl.NEXT(i);
795: END LOOP;
796:
797: i := 1;
794: i := l_geometry_tbl.NEXT(i);
795: END LOOP;
796:
797: i := 1;
798: IF dbms_lob.getlength(l_route) > 0 THEN
799: dbms_lob.erase(l_route, i, dbms_lob.getlength(l_route));
800: END IF;
801:
802: -- Close the CLOB
795: END LOOP;
796:
797: i := 1;
798: IF dbms_lob.getlength(l_route) > 0 THEN
799: dbms_lob.erase(l_route, i, dbms_lob.getlength(l_route));
800: END IF;
801:
802: -- Close the CLOB
803: dbms_lob.CLOSE(l_route);
799: dbms_lob.erase(l_route, i, dbms_lob.getlength(l_route));
800: END IF;
801:
802: -- Close the CLOB
803: dbms_lob.CLOSE(l_route);
804:
805: IF fnd_api.to_boolean(p_commit) THEN
806: COMMIT;
807: END IF;