11: -- CREATE PAYMENTS PUBLIC API
12: PROCEDURE CREATE_PAYMENTS (
13: -- STANDARD PARAMTERS --
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_VALIDATION_LEVEL IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
18: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
19: X_MSG_COUNT OUT NOCOPY NUMBER,
12: PROCEDURE CREATE_PAYMENTS (
13: -- STANDARD PARAMTERS --
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_VALIDATION_LEVEL IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
18: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
19: X_MSG_COUNT OUT NOCOPY NUMBER,
20: X_MSG_DATA OUT NOCOPY VARCHAR2,
13: -- STANDARD PARAMTERS --
14: P_API_VERSION IN NUMBER,
15: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
16: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
17: P_VALIDATION_LEVEL IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
18: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
19: X_MSG_COUNT OUT NOCOPY NUMBER,
20: X_MSG_DATA OUT NOCOPY VARCHAR2,
21: P_CALLING_FN IN VARCHAR2,
46:
47: ----------------------------------------------------
48: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
49: ----------------------------------------------------
50: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
51: THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
48: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
49: ----------------------------------------------------
50: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION,P_API_VERSION,L_API_NAME,G_PKG_NAME)
51: THEN
52: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
53: END IF;
54:
55: -------------------------------------------------------------
56: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
54:
55: -------------------------------------------------------------
56: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
57: -------------------------------------------------------------
58: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
59: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
60: FA_DEBUG_PKG.INITIALIZE;
61: END IF;
62:
155: ----------------------------------------------------
156: -- CHECK FOR COMMIT
157: ----------------------------------------------------
158:
159: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
160: COMMIT WORK;
161: END IF;
162:
163: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
159: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
160: COMMIT WORK;
161: END IF;
162:
163: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
164:
165: EXCEPTION
166: WHEN VALUE_ERROR_EXCEPTION THEN
167: ROLLBACK TO CREATE_PAYMENTS;
164:
165: EXCEPTION
166: WHEN VALUE_ERROR_EXCEPTION THEN
167: ROLLBACK TO CREATE_PAYMENTS;
168: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
169: WHEN OTHERS THEN
170: ROLLBACK TO CREATE_PAYMENTS;
171: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
172: X_MSG_DATA:=SQLERRM;
167: ROLLBACK TO CREATE_PAYMENTS;
168: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
169: WHEN OTHERS THEN
170: ROLLBACK TO CREATE_PAYMENTS;
171: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
172: X_MSG_DATA:=SQLERRM;
173: END CREATE_PAYMENTS;
174:
175: -- CREATE AMORTIZATION API
175: -- CREATE AMORTIZATION API
176: PROCEDURE CREATE_AMORTIZATION (
177: -- STANDARD PARAMTERS --
178: P_API_VERSION IN NUMBER,
179: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
180: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
181: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
182: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
183: X_MSG_COUNT OUT NOCOPY NUMBER,
176: PROCEDURE CREATE_AMORTIZATION (
177: -- STANDARD PARAMTERS --
178: P_API_VERSION IN NUMBER,
179: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
180: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
181: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
182: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
183: X_MSG_COUNT OUT NOCOPY NUMBER,
184: X_MSG_DATA OUT NOCOPY VARCHAR2,
177: -- STANDARD PARAMTERS --
178: P_API_VERSION IN NUMBER,
179: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
180: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
181: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
182: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
183: X_MSG_COUNT OUT NOCOPY NUMBER,
184: X_MSG_DATA OUT NOCOPY VARCHAR2,
185: P_CALLING_FN IN VARCHAR2,
206: ----------------------------------------------------
207: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
208: ----------------------------------------------------
209:
210: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,L_API_NAME, G_PKG_NAME)
211: THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
208: ----------------------------------------------------
209:
210: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,L_API_NAME, G_PKG_NAME)
211: THEN
212: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
213: END IF;
214:
215: -------------------------------------------------------------
216: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
215: -------------------------------------------------------------
216: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
217: -------------------------------------------------------------
218:
219: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
220: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
221: FA_DEBUG_PKG.INITIALIZE;
222: END IF;
223:
246:
247: ----------------------------------------------------
248: -- CHECK FOR COMMIT
249: ----------------------------------------------------
250: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
251: COMMIT WORK;
252: END IF;
253:
254: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
250: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
251: COMMIT WORK;
252: END IF;
253:
254: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
255:
256: EXCEPTION
257: WHEN VALUE_ERROR_EXCEPTION THEN
258: ROLLBACK TO CREATE_AMORTIZATION;
255:
256: EXCEPTION
257: WHEN VALUE_ERROR_EXCEPTION THEN
258: ROLLBACK TO CREATE_AMORTIZATION;
259: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
260: WHEN OTHERS THEN
261: ROLLBACK TO CREATE_AMORTIZATION;
262: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
263: X_MSG_DATA:=SQLERRM;
258: ROLLBACK TO CREATE_AMORTIZATION;
259: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
260: WHEN OTHERS THEN
261: ROLLBACK TO CREATE_AMORTIZATION;
262: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
263: X_MSG_DATA:=SQLERRM;
264: END CREATE_AMORTIZATION;
265:
266: -- CREATE LEASE SCHEDULE API
266: -- CREATE LEASE SCHEDULE API
267: PROCEDURE CREATE_LEASE_SCHEDULE (
268: -- STANDARD PARAMTERS --
269: P_API_VERSION IN NUMBER,
270: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
271: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
272: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
273: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
274: X_MSG_COUNT OUT NOCOPY NUMBER,
267: PROCEDURE CREATE_LEASE_SCHEDULE (
268: -- STANDARD PARAMTERS --
269: P_API_VERSION IN NUMBER,
270: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
271: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
272: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
273: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
274: X_MSG_COUNT OUT NOCOPY NUMBER,
275: X_MSG_DATA OUT NOCOPY VARCHAR2,
268: -- STANDARD PARAMTERS --
269: P_API_VERSION IN NUMBER,
270: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
271: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
272: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
273: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
274: X_MSG_COUNT OUT NOCOPY NUMBER,
275: X_MSG_DATA OUT NOCOPY VARCHAR2,
276: P_CALLING_FN IN VARCHAR2,
301:
302: ----------------------------------------------------
303: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
304: ----------------------------------------------------
305: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
306: L_API_NAME, G_PKG_NAME)
307: THEN
308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
309: END IF;
304: ----------------------------------------------------
305: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
306: L_API_NAME, G_PKG_NAME)
307: THEN
308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
309: END IF;
310: -------------------------------------------------------------
311: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
312: -------------------------------------------------------------
310: -------------------------------------------------------------
311: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
312: -------------------------------------------------------------
313:
314: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
315: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
316: FA_DEBUG_PKG.INITIALIZE;
317: END IF;
318:
321: ----------------------------------------------------
322:
323: FA_LEASE_SCHEDULE_PUB.CREATE_PAYMENTS
324: (P_API_VERSION => 1.0,
325: P_INIT_MSG_LIST => FND_API.G_FALSE,
326: P_COMMIT => FND_API.G_FALSE,
327: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
328: X_RETURN_STATUS => L_RETURN_STATUS,
329: X_MSG_COUNT => L_MESG_COUNT,
322:
323: FA_LEASE_SCHEDULE_PUB.CREATE_PAYMENTS
324: (P_API_VERSION => 1.0,
325: P_INIT_MSG_LIST => FND_API.G_FALSE,
326: P_COMMIT => FND_API.G_FALSE,
327: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
328: X_RETURN_STATUS => L_RETURN_STATUS,
329: X_MSG_COUNT => L_MESG_COUNT,
330: X_MSG_DATA => L_MESG,
323: FA_LEASE_SCHEDULE_PUB.CREATE_PAYMENTS
324: (P_API_VERSION => 1.0,
325: P_INIT_MSG_LIST => FND_API.G_FALSE,
326: P_COMMIT => FND_API.G_FALSE,
327: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
328: X_RETURN_STATUS => L_RETURN_STATUS,
329: X_MSG_COUNT => L_MESG_COUNT,
330: X_MSG_DATA => L_MESG,
331: P_CALLING_FN =>'CREATE_LEASE_SCHEDULE',
332: P_TRANS_REC =>P_TRANS_REC,
333: PX_LEASE_SCHEDULES_REC =>PX_LEASE_SCHEDULES_REC,
334: P_LEASE_PAYMENTS_TBL =>P_LEASE_PAYMENTS_TBL);
335:
336: IF (L_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS) THEN
337: X_RETURN_STATUS:=L_RETURN_STATUS;
338: X_MSG_COUNT:=L_MESG_COUNT;
339: X_MSG_DATA:=L_MESG;
340: ELSE
342: -- IF CREATE PAYMENTS, SUCCESS, AMORTIZE
343: ----------------------------------------------------
344: FA_LEASE_SCHEDULE_PUB.CREATE_AMORTIZATION
345: (P_API_VERSION => 1.0,
346: P_INIT_MSG_LIST => FND_API.G_FALSE,
347: P_COMMIT => FND_API.G_FALSE,
348: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
349: X_RETURN_STATUS => L_RETURN_STATUS,
350: X_MSG_COUNT => L_MESG_COUNT,
343: ----------------------------------------------------
344: FA_LEASE_SCHEDULE_PUB.CREATE_AMORTIZATION
345: (P_API_VERSION => 1.0,
346: P_INIT_MSG_LIST => FND_API.G_FALSE,
347: P_COMMIT => FND_API.G_FALSE,
348: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
349: X_RETURN_STATUS => L_RETURN_STATUS,
350: X_MSG_COUNT => L_MESG_COUNT,
351: X_MSG_DATA => L_MESG,
344: FA_LEASE_SCHEDULE_PUB.CREATE_AMORTIZATION
345: (P_API_VERSION => 1.0,
346: P_INIT_MSG_LIST => FND_API.G_FALSE,
347: P_COMMIT => FND_API.G_FALSE,
348: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
349: X_RETURN_STATUS => L_RETURN_STATUS,
350: X_MSG_COUNT => L_MESG_COUNT,
351: X_MSG_DATA => L_MESG,
352: P_CALLING_FN =>'CREATE_LEASE_SCHEDULE',
351: X_MSG_DATA => L_MESG,
352: P_CALLING_FN =>'CREATE_LEASE_SCHEDULE',
353: P_TRANS_REC =>P_TRANS_REC,
354: P_PAYMENT_SCHEDULE_ID =>PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_ID);
355: IF (L_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS) THEN
356: X_RETURN_STATUS:=L_RETURN_STATUS;
357: X_MSG_COUNT:=L_MESG_COUNT;
358: X_MSG_DATA:=L_MESG;
359: ELSE
356: X_RETURN_STATUS:=L_RETURN_STATUS;
357: X_MSG_COUNT:=L_MESG_COUNT;
358: X_MSG_DATA:=L_MESG;
359: ELSE
360: L_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
361: END IF;
362: END IF;
363:
364: ----------------------------------------------------
364: ----------------------------------------------------
365: -- CHECK FOR COMMIT
366: ----------------------------------------------------
367:
368: IF FND_API.TO_BOOLEAN( P_COMMIT) THEN
369: COMMIT WORK;
370: END IF;
371:
372: EXCEPTION
371:
372: EXCEPTION
373: WHEN VALUE_ERROR_EXCEPTION THEN
374: ROLLBACK TO CREATE_LEASE_SCHEDULE;
375: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
376: WHEN OTHERS THEN
377: ROLLBACK TO CREATE_LEASE_SCHEDULE;
378: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
379: X_MSG_DATA:=SQLERRM;
374: ROLLBACK TO CREATE_LEASE_SCHEDULE;
375: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
376: WHEN OTHERS THEN
377: ROLLBACK TO CREATE_LEASE_SCHEDULE;
378: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
379: X_MSG_DATA:=SQLERRM;
380: END CREATE_LEASE_SCHEDULE;
381:
382: END FA_LEASE_SCHEDULE_PUB;