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 63: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,

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

Line 66: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

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

Line 73: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN

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

Line 238: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN

234:
235: ----------------------------------------------------------
236: -- CHECK FOR COMMIT
237: ----------------------------------------------------------
238: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
239: COMMIT WORK;
240: END IF;
241:
242: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 242: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

238: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
239: COMMIT WORK;
240: END IF;
241:
242: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
243:
244: EXCEPTION
245: WHEN PRESENT_VALUE_NOT_FOUND THEN
246: ROLLBACK TO CREATE_LEASE;

Line 247: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

243:
244: EXCEPTION
245: WHEN PRESENT_VALUE_NOT_FOUND THEN
246: ROLLBACK TO CREATE_LEASE;
247: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
248: FND_MESSAGE.SET_NAME ('OFA','FA_PRESENT_VALUE_NOT_FOUND');
249: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CREATE_LEASE');
250: FND_MSG_PUB.ADD;
251: WHEN VALUE_ERROR_EXCEPTION THEN

Line 253: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

249: FND_MESSAGE.SET_TOKEN ('CALLING_FN','CREATE_LEASE');
250: FND_MSG_PUB.ADD;
251: WHEN VALUE_ERROR_EXCEPTION THEN
252: ROLLBACK TO CREATE_LEASE;
253: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
254: WHEN OTHERS THEN
255: ROLLBACK TO CREATE_LEASE;
256: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
257: X_MSG_DATA:=SQLERRM;

Line 256: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

252: ROLLBACK TO CREATE_LEASE;
253: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
254: WHEN OTHERS THEN
255: ROLLBACK TO CREATE_LEASE;
256: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
257: X_MSG_DATA:=SQLERRM;
258: END CREATE_LEASE;
259:
260: --------------------------------------

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

261: -- UPDATE LEASE API
262: --------------------------------------
263: PROCEDURE UPDATE_LEASE (
264: P_API_VERSION IN NUMBER,
265: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
266: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
267: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
268: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
269: X_MSG_COUNT OUT NOCOPY NUMBER,

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

262: --------------------------------------
263: PROCEDURE UPDATE_LEASE (
264: P_API_VERSION IN NUMBER,
265: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
266: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
267: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
268: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
269: X_MSG_COUNT OUT NOCOPY NUMBER,
270: X_MSG_DATA OUT NOCOPY VARCHAR2,

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

263: PROCEDURE UPDATE_LEASE (
264: P_API_VERSION IN NUMBER,
265: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
266: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
267: P_VALIDATION_LEVEL IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
268: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
269: X_MSG_COUNT OUT NOCOPY NUMBER,
270: X_MSG_DATA OUT NOCOPY VARCHAR2,
271: P_CALLING_FN IN VARCHAR2,

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

296: ------------------------------------------------------
297: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
298: ------------------------------------------------------
299:
300: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
301: L_API_NAME, G_PKG_NAME)
302: THEN
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: END IF;

Line 303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;

299:
300: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
301: L_API_NAME, G_PKG_NAME)
302: THEN
303: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
304: END IF;
305:
306: ----------------------------------------------------------------
307: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.

Line 310: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN

306: ----------------------------------------------------------------
307: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
308: ----------------------------------------------------------------
309:
310: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
311: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
312: FA_DEBUG_PKG.INITIALIZE;
313: END IF;
314:

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

324:
325: ----------------------------------------------------
326: -- CHECK FOR G_MISS_CHAR
327: ----------------------------------------------------
328: IF L_LEASE_DETAILS_REC_NEW.DESCRIPTION = FND_API.G_MISS_CHAR THEN
329: FND_MESSAGE.SET_NAME ('OFA','FA_LEASE_DESCRIPTION_NULL');
330: FND_MESSAGE.SET_TOKEN ('CALLING_FN','UPDATE_LEASE');
331: FND_MSG_PUB.ADD;
332: RAISE VALUE_ERROR_EXCEPTION;

Line 382: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN

378: -------------------------------------------------
379: -- COMMIT
380: -------------------------------------------------
381:
382: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
383: COMMIT WORK;
384: END IF;
385:
386: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

Line 386: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;

382: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
383: COMMIT WORK;
384: END IF;
385:
386: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
387:
388: EXCEPTION
389: WHEN VALUE_ERROR_EXCEPTION THEN
390: ROLLBACK TO UPDATE_LEASE;

Line 391: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;

387:
388: EXCEPTION
389: WHEN VALUE_ERROR_EXCEPTION THEN
390: ROLLBACK TO UPDATE_LEASE;
391: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
392: WHEN OTHERS THEN
393: ROLLBACK TO UPDATE_LEASE;
394: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
395: X_MSG_DATA:=SQLERRM;

Line 394: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;

390: ROLLBACK TO UPDATE_LEASE;
391: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
392: WHEN OTHERS THEN
393: ROLLBACK TO UPDATE_LEASE;
394: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
395: X_MSG_DATA:=SQLERRM;
396: END UPDATE_LEASE;
397:
398: END FA_LEASE_PUB;