283: for J in 1..l_numresults loop
284:
285: x_resultsArray.extend(1);
286:
287: x_resultsArray(J).locus := mdsys.sdo_geometry(2001,l_srid,
288: mdsys.sdo_point_type( l_result_int(J).lon
289: , l_result_int(J).lat
290: , 0),
291: mdsys.sdo_elem_info_array(1,1,1,3,0,5),
344: -- p_init_msg_list IN VARCHAR2 = NULL optional :=
345: -- x_return_status OUT VARCHAR2 :=
346: -- x_msg_count OUT NUMBER :=
347: -- x_msg_data OUT VARCHAR2 :=
348: -- p_locus MDSYS.SDO_GEOMETRY required :=
349: -- x_point OUT MDSYS.SDO_GEOMETRY
350: -- Version:
351: -- End Comments
352: PROCEDURE CSF_LocustoGeometry
345: -- x_return_status OUT VARCHAR2 :=
346: -- x_msg_count OUT NUMBER :=
347: -- x_msg_data OUT VARCHAR2 :=
348: -- p_locus MDSYS.SDO_GEOMETRY required :=
349: -- x_point OUT MDSYS.SDO_GEOMETRY
350: -- Version:
351: -- End Comments
352: PROCEDURE CSF_LocustoGeometry
353: ( p_api_version IN NUMBER
354: , p_init_msg_list IN VARCHAR2 default fnd_api.g_false
355: , x_return_status OUT NOCOPY VARCHAR2
356: , x_msg_count OUT NOCOPY NUMBER
357: , x_msg_data OUT NOCOPY VARCHAR2
358: , p_locus IN MDSYS.SDO_GEOMETRY
359: , x_point OUT NOCOPY MDSYS.SDO_GEOMETRY
360: )
361: IS
362: x_geom mdsys.sdo_geometry;
355: , x_return_status OUT NOCOPY VARCHAR2
356: , x_msg_count OUT NOCOPY NUMBER
357: , x_msg_data OUT NOCOPY VARCHAR2
358: , p_locus IN MDSYS.SDO_GEOMETRY
359: , x_point OUT NOCOPY MDSYS.SDO_GEOMETRY
360: )
361: IS
362: x_geom mdsys.sdo_geometry;
363: segmentGeometry mdsys.sdo_geometry;
358: , p_locus IN MDSYS.SDO_GEOMETRY
359: , x_point OUT NOCOPY MDSYS.SDO_GEOMETRY
360: )
361: IS
362: x_geom mdsys.sdo_geometry;
363: segmentGeometry mdsys.sdo_geometry;
364: segmentLength number;
365: coord POINT_COORD;
366: x_segid number;
359: , x_point OUT NOCOPY MDSYS.SDO_GEOMETRY
360: )
361: IS
362: x_geom mdsys.sdo_geometry;
363: segmentGeometry mdsys.sdo_geometry;
364: segmentLength number;
365: coord POINT_COORD;
366: x_segid number;
367: x_offset number;
420:
421: getSegmentLength(segmentGeometry.sdo_ordinates,segmentLength);
422: getCoordonSegment(segmentLength, segmentGeometry.sdo_ordinates,x_offset,coord);
423:
424: x_point := mdsys.sdo_geometry(2001,8307,mdsys.sdo_point_type(coord.long,coord.lat,0),null,null);
425:
426: x_return_status := FND_API.G_RET_STS_SUCCESS;
427: end if;
428:
452: -- p_init_msg_list IN VARCHAR2 : = NULL optional
453: -- x_return_status OUT VARCHAR2 :=
454: -- x_msg_count OUT NUMBER :=
455: -- x_msg_data OUT VARCHAR2 :=
456: -- p_point MDSYS.SDO_GEOMETRY := required
457: -- x_locus MDSYS.SDO_GEOMETRY
458: -- Version:
459: -- End Comments
460: PROCEDURE CSF_GeometrytoLocus
453: -- x_return_status OUT VARCHAR2 :=
454: -- x_msg_count OUT NUMBER :=
455: -- x_msg_data OUT VARCHAR2 :=
456: -- p_point MDSYS.SDO_GEOMETRY := required
457: -- x_locus MDSYS.SDO_GEOMETRY
458: -- Version:
459: -- End Comments
460: PROCEDURE CSF_GeometrytoLocus
461: ( p_api_version IN NUMBER
462: , p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
463: , x_return_status OUT NOCOPY VARCHAR2
464: , x_msg_count OUT NOCOPY NUMBER
465: , x_msg_data OUT NOCOPY VARCHAR2
466: , p_point IN MDSYS.SDO_GEOMETRY
467: , x_locus OUT NOCOPY MDSYS.SDO_GEOMETRY
468: )
469: IS
470:
463: , x_return_status OUT NOCOPY VARCHAR2
464: , x_msg_count OUT NOCOPY NUMBER
465: , x_msg_data OUT NOCOPY VARCHAR2
466: , p_point IN MDSYS.SDO_GEOMETRY
467: , x_locus OUT NOCOPY MDSYS.SDO_GEOMETRY
468: )
469: IS
470:
471: l_api_name CONSTANT VARCHAR2(30) := 'CSF_GeometrytoLocus';
501: -- p_init_msg_list IN VARCHAR2 := NULL optional
502: -- x_return_status OUT VARCHAR2 :=
503: -- x_msg_count OUT NUMBER :=
504: -- x_msg_data OUT VARCHAR2 :=
505: -- p_point MDSYS.SDO_GEOMETRY := required
506: -- x_timezone OUT NUMBER
507: -- Version:
508: -- End Comments
509:
512: , p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
513: , x_return_status OUT NOCOPY VARCHAR2
514: , x_msg_count OUT NOCOPY NUMBER
515: , x_msg_data OUT NOCOPY VARCHAR2
516: , p_locus IN MDSYS.SDO_GEOMETRY
517: , x_timezone OUT NOCOPY NUMBER
518: )
519: IS
520: