107: -- History: 19-04-2000 L Mbekeani Added lat long to locus
108: -- End Comments
109: PROCEDURE CSF_LF_ResolveAddress
110: ( p_api_version IN NUMBER
111: , p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
112: , x_return_status OUT NOCOPY VARCHAR2
113: , x_msg_count OUT NOCOPY NUMBER
114: , x_msg_data OUT NOCOPY VARCHAR2
115: , p_country IN VARCHAR2
165: if ( p_init_msg_list = 'TRUE' ) then
166: x_msg_count := 0; /* FND_MSG_PUB.initialize; */
167: end if;
168:
169: x_return_status := FND_API.G_RET_STS_SUCCESS;
170:
171: --
172: -- Validate parameters
173: --
250:
251: /*
252: if ( l_retCode = MISSING_COUNTRY_NAME ) then
253:
254: x_return_status := FND_API.G_RET_STS_ERROR;
255: x_msg_count := 1;
256: x_msg_data := l_result_int(1).msg_data;
257:
258: raise CSF_LF_COUNTRY_NOT_SET_ERROR;
258: raise CSF_LF_COUNTRY_NOT_SET_ERROR;
259:
260: elsif ( l_retCode = MISSING_STATE_NAME ) then
261:
262: x_return_status := FND_API.G_RET_STS_ERROR;
263: x_msg_count := 1;
264: x_msg_data := l_result_int(1).msg_data;
265:
266: raise CSF_LF_STATE_NOT_SET_ERROR;
266: raise CSF_LF_STATE_NOT_SET_ERROR;
267:
268: elsif ( l_retCode = MISSING_CITY_NAME ) then
269:
270: x_return_status := FND_API.G_RET_STS_ERROR;
271: x_msg_count := 1;
272: x_msg_data := l_result_int(1).msg_data;
273:
274: raise CSF_LF_CITY_NOT_SET_ERROR;
274: raise CSF_LF_CITY_NOT_SET_ERROR;
275:
276: elsif ( l_retCode = MISSING_ROAD_NAME ) then
277:
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: x_msg_count := 1;
280: x_msg_data := l_result_int(1).msg_data;
281:
282: raise CSF_LF_ROAD_NOT_SET_ERROR;
282: raise CSF_LF_ROAD_NOT_SET_ERROR;
283: */
284: -- added for LF enhancement of forced accuracy
285: if ( l_retCode = REQUIRED_ACCURACY_EXCEPTION ) then
286: x_return_status := FND_API.G_RET_STS_ERROR;
287: x_msg_count := 1;
288: x_msg_data := l_result_int(1).msg_data;
289: RAISE CSF_LF_REQ_ACCURACY_NOT_GOT;
290:
289: RAISE CSF_LF_REQ_ACCURACY_NOT_GOT;
290:
291: elsif ( l_retCode > 0 ) then
292:
293: x_return_status := FND_API.G_RET_STS_ERROR;
294: x_msg_count := 1;
295: x_msg_data := l_result_int(1).msg_data;
296:
297: else
383: x_resultsArray(J).alternate := l_result_int(J).alternate;
384:
385: end loop;
386:
387: x_return_status := FND_API.G_RET_STS_SUCCESS;
388: x_msg_count := l_numResults;
389: x_msg_data := 'Success';
390:
391: IF l_debug THEN
396:
397: EXCEPTION
398:
399: when CSF_LF_VERSION_ERROR then
400: x_return_status := FND_API.G_RET_STS_ERROR;
401: x_msg_count := 1;
402: x_msg_data := 'Incompatibale version';
403:
404: when CSF_LF_REQ_ACCURACY_NOT_GOT then
401: x_msg_count := 1;
402: x_msg_data := 'Incompatibale version';
403:
404: when CSF_LF_REQ_ACCURACY_NOT_GOT then
405: x_return_status := FND_API.G_RET_STS_ERROR;
406: x_msg_count := 1;
407: x_msg_data := l_result_int(1).msg_data;
408:
409: when OTHERS then
406: x_msg_count := 1;
407: x_msg_data := l_result_int(1).msg_data;
408:
409: when OTHERS then
410: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
411: x_msg_count := 1;
412: x_msg_data := SQLERRM;
413:
414: END CSF_LF_ResolveAddress;
430: -- Version:
431: -- End Comments
432: PROCEDURE CSF_LocustoGeometry
433: ( p_api_version IN NUMBER
434: , p_init_msg_list IN VARCHAR2 default fnd_api.g_false
435: , x_return_status OUT NOCOPY VARCHAR2
436: , x_msg_count OUT NOCOPY NUMBER
437: , x_msg_data OUT NOCOPY VARCHAR2
438: , p_locus IN MDSYS.SDO_GEOMETRY
464: if ( p_init_msg_list = 'TRUE' ) then
465: null; /* FND_MSG_PUB.initialize; */
466: end if;
467:
468: x_return_status := FND_API.G_RET_STS_SUCCESS;
469:
470: CSF_LOCUS_PUB.read_locus (
471: p_api_version => l_api_version
472: , x_return_status => x_return_status
502: getCoordonSegment(segmentLength, segmentGeometry.sdo_ordinates,x_offset,coord);
503:
504: x_point := mdsys.sdo_geometry(2001,8307,mdsys.sdo_point_type(coord.long,coord.lat,0),null,null);
505:
506: x_return_status := FND_API.G_RET_STS_SUCCESS;
507: end if;
508:
509: -- Get the segId
510: -- Fetch The segment geometry
513:
514: EXCEPTION
515:
516: when CSF_LF_VERSION_ERROR then
517: x_return_status := FND_API.G_RET_STS_ERROR;
518:
519: when NO_DATA_FOUND then
520: x_return_status := FND_API.G_RET_STS_ERROR;
521:
516: when CSF_LF_VERSION_ERROR then
517: x_return_status := FND_API.G_RET_STS_ERROR;
518:
519: when NO_DATA_FOUND then
520: x_return_status := FND_API.G_RET_STS_ERROR;
521:
522: END CSF_LocustoGeometry;
523:
524: -- Start of Comments
538: -- Version:
539: -- End Comments
540: PROCEDURE CSF_GeometrytoLocus
541: ( p_api_version IN NUMBER
542: , p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
543: , x_return_status OUT NOCOPY VARCHAR2
544: , x_msg_count OUT NOCOPY NUMBER
545: , x_msg_data OUT NOCOPY VARCHAR2
546: , p_point IN MDSYS.SDO_GEOMETRY
560: if ( p_init_msg_list = 'TRUE' ) then
561: null; /* FND_MSG_PUB.initialize; */
562: end if;
563:
564: x_return_status := FND_API.G_RET_STS_SUCCESS;
565:
566: EXCEPTION
567:
568: when CSF_LF_VERSION_ERROR then
565:
566: EXCEPTION
567:
568: when CSF_LF_VERSION_ERROR then
569: x_return_status := FND_API.G_RET_STS_ERROR;
570:
571: END CSF_GeometrytoLocus;
572:
573: -- Start of Comments
588: -- End Comments
589:
590: PROCEDURE CSF_LocustoTimeZone
591: ( p_api_version IN NUMBER
592: , p_init_msg_list IN VARCHAR2 default FND_API.G_FALSE
593: , x_return_status OUT NOCOPY VARCHAR2
594: , x_msg_count OUT NOCOPY NUMBER
595: , x_msg_data OUT NOCOPY VARCHAR2
596: , p_locus IN MDSYS.SDO_GEOMETRY
614: if ( p_init_msg_list = 'TRUE' ) THEN
615: x_msg_count := 0; /* FND_MSG_PUB.initialize; */
616: end if;
617:
618: x_return_status := FND_API.G_RET_STS_SUCCESS;
619:
620: CSF_LOCUS_PUB.VERIFY_LOCUS (
621: p_api_version => l_api_version
622: , x_return_status => x_return_status
642: OPEN C_TIMEZONE FOR sql_stmt_str;
643: FETCH C_TIMEZONE INTO x_timezone;
644: CLOSE C_TIMEZONE;
645:
646: x_return_status := FND_API.G_RET_STS_SUCCESS;
647: else
648: x_return_status := FND_API.G_RET_STS_ERROR;
649: end if;
650:
644: CLOSE C_TIMEZONE;
645:
646: x_return_status := FND_API.G_RET_STS_SUCCESS;
647: else
648: x_return_status := FND_API.G_RET_STS_ERROR;
649: end if;
650:
651: EXCEPTION
652:
650:
651: EXCEPTION
652:
653: when NO_DATA_FOUND then
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: x_msg_data := 'INVALID ROADSEGMENT_ID';
656:
657: when OTHERS then
658: x_return_status := FND_API.G_RET_STS_ERROR;
654: x_return_status := FND_API.G_RET_STS_ERROR;
655: x_msg_data := 'INVALID ROADSEGMENT_ID';
656:
657: when OTHERS then
658: x_return_status := FND_API.G_RET_STS_ERROR;
659: x_msg_data := 'UNKNOWN ERROR';
660: END;
661:
662: -- ----------------------------------------------------------------------------