1: PACKAGE BODY FTE_TRIP_MOVES_PVT AS
2: /* $Header: FTEMTTHB.pls 115.3 2004/05/08 00:26:12 wrudge noship $ */
3:
4: --===================
5: -- CONSTANTS
3:
4: --===================
5: -- CONSTANTS
6: --===================
7: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FTE_TRIP_MOVES_PVT';
8:
9:
10: --========================================================================
11: -- PROCEDURE : VALIDATE_SEQUENCE
24:
25: CURSOR check_sequence_create (v_move_id NUMBER,
26: v_sequence NUMBER) IS
27: SELECT trip_move_id
28: FROM fte_trip_moves
29: WHERE move_id = v_move_id
30: and sequence_number = v_sequence;
31:
32: CURSOR check_sequence_update (v_move_id NUMBER,
32: CURSOR check_sequence_update (v_move_id NUMBER,
33: v_sequence NUMBER,
34: v_trip_move_id NUMBER) IS
35: SELECT trip_move_id
36: FROM fte_trip_moves
37: WHERE move_id = v_move_id
38: and sequence_number = v_sequence
39: and trip_move_id <> v_trip_move_id;
40:
111: END IF;
112: IF check_move_id%ISOPEN THEN
113: CLOSE check_move_id;
114: END IF;
115: wsh_util_core.default_handler('FTE_TRIP_MOVES_PUB.Validate_Sequence');
116: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
117: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
118:
119: END Validate_Sequence;
136:
137: CURSOR check_unique_trip_create(v_move_id NUMBER,
138: v_trip_id NUMBER) IS
139: SELECT trip_move_id
140: FROM fte_trip_moves
141: WHERE move_id = v_move_id
142: and trip_id = v_trip_id;
143:
144:
145: CURSOR check_unique_trip_update(v_move_id NUMBER,
146: v_trip_id NUMBER,
147: v_trip_move_id NUMBER) IS
148: SELECT trip_move_id
149: FROM fte_trip_moves
150: WHERE move_id = v_move_id
151: and trip_id = v_trip_id
152: and trip_move_id <> v_trip_move_id;
153:
223: end if;
224: if check_unique_trip_update%ISOPEN THEN
225: close check_unique_trip_update;
226: end if;
227: wsh_util_core.default_handler('FTE_TRIP_MOVES_PUB.validate_unique_trip');
228: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
229: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
230:
231: END validate_unique_trip;
249: x_return_status OUT NOCOPY VARCHAR2
250: ) IS
251:
252: CURSOR get_next_trip_move IS
253: SELECT fte_trip_moves_s.nextval
254: FROM sys.dual;
255:
256: l_temp_id NUMBER;
257:
288: OPEN get_next_trip_move;
289: FETCH get_next_trip_move INTO x_trip_move_id;
290: CLOSE get_next_trip_move;
291:
292: insert into FTE_TRIP_MOVES
293: (
294: TRIP_MOVE_ID ,
295: MOVE_ID ,
296: TRIP_ID ,
323: );
324:
325: EXCEPTION
326: WHEN others THEN
327: wsh_util_core.default_handler('FTE_TRIP_MOVES.CREATE_TRIP_MOVES');
328: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
329: END Create_Trip_Moves;
330:
331:
374: RETURN;
375: END IF;
376:
377:
378: UPDATE fte_trip_moves SET
379: SEQUENCE_NUMBER = decode(p_trip_moves_info.SEQUENCE_NUMBER,
380: NULL,SEQUENCE_NUMBER,
381: FND_API.G_MISS_NUM,NULL,
382: p_trip_moves_info.SEQUENCE_NUMBER),
422: FND_MESSAGE.SET_NAME('FTE','FTE_TRIP_MOVE_NOT_FOUND');
423: x_return_status := WSH_UTIL_CORE.G_RET_STS_ERROR;
424: WSH_UTIL_CORE.ADD_MESSAGE(x_return_status);
425: WHEN others THEN
426: wsh_util_core.default_handler('FTE_TRIP_MOVES_PVT.UPDATE_TRIP_MOVES');
427: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
428:
429: END Update_Trip_Moves;
430:
444: END IF;
445:
446: x_return_Status := WSH_UTIL_CORE.G_RET_STS_SUCCESS;
447:
448: DELETE FROM fte_trip_moves
449: WHERE trip_move_id = p_trip_move_id;
450:
451: IF (SQL%NOTFOUND) THEN
452: FND_MESSAGE.SET_NAME('FTE','FTE_TRIP_MOVE_NOT_FOUND');
456: END IF;
457:
458: EXCEPTION
459: WHEN others THEN
460: wsh_util_core.default_handler('FTE_TRIP_MOVES_PVT.DELETE_TRIP_MOVES');
461: x_return_status := WSH_UTIL_CORE.G_RET_STS_UNEXP_ERROR;
462:
463: END Delete_Trip_moves;
464:
463: END Delete_Trip_moves;
464:
465: --
466: --
467: END FTE_TRIP_MOVES_PVT;