DBA Data[Home] [Help]

APPS.FA_LEASE_PUB dependencies on FND_API

Line 17: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,

13: -- CREATE LEASE PUBLIC API
14: ----------------------------------------
15: PROCEDURE CREATE_LEASE (
16: P_API_VERSION IN NUMBER,
17: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
18: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
19: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
21: X_MSG_COUNT OUT NOCOPY NUMBER,

Line 18: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,

14: ----------------------------------------
15: PROCEDURE CREATE_LEASE (
16: P_API_VERSION IN NUMBER,
17: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
18: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
19: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
21: X_MSG_COUNT OUT NOCOPY NUMBER,
22: X_MSG_DATA OUT NOCOPY VARCHAR2,

Line 19: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

15: PROCEDURE CREATE_LEASE (
16: P_API_VERSION IN NUMBER,
17: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
18: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
19: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
20: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
21: X_MSG_COUNT OUT NOCOPY NUMBER,
22: X_MSG_DATA OUT NOCOPY VARCHAR2,
23: P_CALLING_FN IN VARCHAR2,

Line 62: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,

58: ---------------------------------------------------
59: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
60: ---------------------------------------------------
61:
62: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
63: L_API_NAME, G_PKG_NAME)
64: THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;

Line 65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

61:
62: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
63: L_API_NAME, G_PKG_NAME)
64: THEN
65: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
66: END IF;
67:
68: --------------------------------------------------------------
69: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.

Line 72: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN

68: --------------------------------------------------------------
69: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
70: --------------------------------------------------------------
71:
72: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
73: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
74: FA_DEBUG_PKG.INITIALIZE;
75: END IF;
76:

Line 233: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN

229:
230: ----------------------------------------------------------
231: -- CHECK FOR COMMIT
232: ----------------------------------------------------------
233: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
234: COMMIT WORK;
235: END IF;
236:
237: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 237: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

233: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
234: COMMIT WORK;
235: END IF;
236:
237: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
238:
239: EXCEPTION
240: WHEN PRESENT_VALUE_NOT_FOUND THEN
241: ROLLBACK TO CREATE_LEASE;

Line 242: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

238:
239: EXCEPTION
240: WHEN PRESENT_VALUE_NOT_FOUND THEN
241: ROLLBACK TO CREATE_LEASE;
242: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
243: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
244: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CREATE_LEASE');
245: FND_MSG_PUB.ADD;
246: WHEN VALUE_ERROR_EXCEPTION THEN

Line 248: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

244: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CREATE_LEASE');
245: FND_MSG_PUB.ADD;
246: WHEN VALUE_ERROR_EXCEPTION THEN
247: ROLLBACK TO CREATE_LEASE;
248: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
249: WHEN OTHERS THEN
250: ROLLBACK TO CREATE_LEASE;
251: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
252: X_MSG_DATA:=SQLERRM;

Line 251: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

247: ROLLBACK TO CREATE_LEASE;
248: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
249: WHEN OTHERS THEN
250: ROLLBACK TO CREATE_LEASE;
251: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
252: X_MSG_DATA:=SQLERRM;
253: END CREATE_LEASE;
254:
255: --------------------------------------

Line 260: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,

256: -- UPDATE LEASE API
257: --------------------------------------
258: PROCEDURE UPDATE_LEASE (
259: P_API_VERSION IN NUMBER,
260: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
261: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
262: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
263: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
264: X_MSG_COUNT OUT NOCOPY NUMBER,

Line 261: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,

257: --------------------------------------
258: PROCEDURE UPDATE_LEASE (
259: P_API_VERSION IN NUMBER,
260: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
261: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
262: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
263: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
264: X_MSG_COUNT OUT NOCOPY NUMBER,
265: X_MSG_DATA OUT NOCOPY VARCHAR2,

Line 262: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,

258: PROCEDURE UPDATE_LEASE (
259: P_API_VERSION IN NUMBER,
260: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
261: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
262: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
263: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
264: X_MSG_COUNT OUT NOCOPY NUMBER,
265: X_MSG_DATA OUT NOCOPY VARCHAR2,
266: P_CALLING_FN IN VARCHAR2,

Line 294: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,

290: ------------------------------------------------------
291: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
292: ------------------------------------------------------
293:
294: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
295: L_API_NAME, G_PKG_NAME)
296: THEN
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298: END IF;

Line 297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

293:
294: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
295: L_API_NAME, G_PKG_NAME)
296: THEN
297: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
298: END IF;
299:
300: ----------------------------------------------------------------
301: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.

Line 304: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN

300: ----------------------------------------------------------------
301: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
302: ----------------------------------------------------------------
303:
304: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
305: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
306: FA_DEBUG_PKG.INITIALIZE;
307: END IF;
308:

Line 321: IF L_LEASE_DETAILS_REC_NEW.DESCRIPTION = FND_API.G_MISS_CHAR THEN

317:
318: ----------------------------------------------------
319: -- CHECK FOR G_MISS_CHAR
320: ----------------------------------------------------
321: IF L_LEASE_DETAILS_REC_NEW.DESCRIPTION = FND_API.G_MISS_CHAR THEN
322: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
323: FND_MESSAGE.SET_TOKEN ('CALLING_FN','UPDATE_LEASE');
324: FND_MSG_PUB.ADD;
325: RAISE VALUE_ERROR_EXCEPTION;

Line 373: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN

369: -------------------------------------------------
370: -- COMMIT
371: -------------------------------------------------
372:
373: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
374: COMMIT WORK;
375: END IF;
376:
377: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 377: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

373: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
374: COMMIT WORK;
375: END IF;
376:
377: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
378:
379: EXCEPTION
380: WHEN VALUE_ERROR_EXCEPTION THEN
381: ROLLBACK TO UPDATE_LEASE;

Line 382: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

378:
379: EXCEPTION
380: WHEN VALUE_ERROR_EXCEPTION THEN
381: ROLLBACK TO UPDATE_LEASE;
382: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
383: WHEN OTHERS THEN
384: ROLLBACK TO UPDATE_LEASE;
385: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
386: X_MSG_DATA:=SQLERRM;

Line 385: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

381: ROLLBACK TO UPDATE_LEASE;
382: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
383: WHEN OTHERS THEN
384: ROLLBACK TO UPDATE_LEASE;
385: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
386: X_MSG_DATA:=SQLERRM;
387: END UPDATE_LEASE;
388:
389: END FA_LEASE_PUB;