12: -- CREATE PAYMENTS PUBLIC API
13: PROCEDURE CREATE_PAYMENTS (
14: -- STANDARD PARAMTERS --
15: P_API_VERSION IN NUMBER,
16: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
17: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
18: P_VALIDATION_LEVEL IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
19: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
20: X_MSG_COUNT OUT NOCOPY NUMBER,
13: PROCEDURE CREATE_PAYMENTS (
14: -- STANDARD PARAMTERS --
15: P_API_VERSION IN NUMBER,
16: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
17: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
18: P_VALIDATION_LEVEL IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
19: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
20: X_MSG_COUNT OUT NOCOPY NUMBER,
21: X_MSG_DATA OUT NOCOPY VARCHAR2,
14: -- STANDARD PARAMTERS --
15: P_API_VERSION IN NUMBER,
16: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
17: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
18: P_VALIDATION_LEVEL IN NUMBER :=FND_API.G_VALID_LEVEL_FULL,
19: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
20: X_MSG_COUNT OUT NOCOPY NUMBER,
21: X_MSG_DATA OUT NOCOPY VARCHAR2,
22: 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:
153: ----------------------------------------------------
154: -- CHECK FOR COMMIT
155: ----------------------------------------------------
156:
157: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
158: COMMIT WORK;
159: END IF;
160:
161: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
157: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
158: COMMIT WORK;
159: END IF;
160:
161: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
162:
163: EXCEPTION
164: WHEN VALUE_ERROR_EXCEPTION THEN
165: ROLLBACK TO CREATE_PAYMENTS;
162:
163: EXCEPTION
164: WHEN VALUE_ERROR_EXCEPTION THEN
165: ROLLBACK TO CREATE_PAYMENTS;
166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
167: WHEN OTHERS THEN
168: ROLLBACK TO CREATE_PAYMENTS;
169: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
170: X_MSG_DATA:=SQLERRM;
165: ROLLBACK TO CREATE_PAYMENTS;
166: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
167: WHEN OTHERS THEN
168: ROLLBACK TO CREATE_PAYMENTS;
169: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
170: X_MSG_DATA:=SQLERRM;
171: END CREATE_PAYMENTS;
172:
173: -- CREATE AMORTIZATION API
173: -- CREATE AMORTIZATION API
174: PROCEDURE CREATE_AMORTIZATION (
175: -- STANDARD PARAMTERS --
176: P_API_VERSION IN NUMBER,
177: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
178: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
179: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
180: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
181: X_MSG_COUNT OUT NOCOPY NUMBER,
174: PROCEDURE CREATE_AMORTIZATION (
175: -- STANDARD PARAMTERS --
176: P_API_VERSION IN NUMBER,
177: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
178: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
179: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
180: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
181: X_MSG_COUNT OUT NOCOPY NUMBER,
182: X_MSG_DATA OUT NOCOPY VARCHAR2,
175: -- STANDARD PARAMTERS --
176: P_API_VERSION IN NUMBER,
177: P_INIT_MSG_LIST IN VARCHAR2 := FND_API.G_FALSE,
178: P_COMMIT IN VARCHAR2 := FND_API.G_FALSE,
179: P_VALIDATION_LEVEL IN NUMBER:=FND_API.G_VALID_LEVEL_FULL,
180: X_RETURN_STATUS OUT NOCOPY VARCHAR2,
181: X_MSG_COUNT OUT NOCOPY NUMBER,
182: X_MSG_DATA OUT NOCOPY VARCHAR2,
183: P_CALLING_FN IN VARCHAR2,
204: ----------------------------------------------------
205: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
206: ----------------------------------------------------
207:
208: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,L_API_NAME, G_PKG_NAME)
209: THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
206: ----------------------------------------------------
207:
208: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,L_API_NAME, G_PKG_NAME)
209: THEN
210: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
211: END IF;
212:
213: -------------------------------------------------------------
214: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
213: -------------------------------------------------------------
214: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
215: -------------------------------------------------------------
216:
217: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
218: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
219: FA_DEBUG_PKG.INITIALIZE;
220: END IF;
221:
241:
242: ----------------------------------------------------
243: -- CHECK FOR COMMIT
244: ----------------------------------------------------
245: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
246: COMMIT WORK;
247: END IF;
248:
249: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
245: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
246: COMMIT WORK;
247: END IF;
248:
249: X_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
250:
251: EXCEPTION
252: WHEN VALUE_ERROR_EXCEPTION THEN
253: ROLLBACK TO CREATE_AMORTIZATION;
250:
251: EXCEPTION
252: WHEN VALUE_ERROR_EXCEPTION THEN
253: ROLLBACK TO CREATE_AMORTIZATION;
254: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
255: WHEN OTHERS THEN
256: ROLLBACK TO CREATE_AMORTIZATION;
257: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
258: X_MSG_DATA:=SQLERRM;
253: ROLLBACK TO CREATE_AMORTIZATION;
254: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
255: WHEN OTHERS THEN
256: ROLLBACK TO CREATE_AMORTIZATION;
257: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
258: X_MSG_DATA:=SQLERRM;
259: END CREATE_AMORTIZATION;
260:
261: -- CREATE LEASE SCHEDULE API
261: -- CREATE LEASE SCHEDULE API
262: PROCEDURE CREATE_LEASE_SCHEDULE (
263: -- STANDARD PARAMTERS --
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,
262: PROCEDURE CREATE_LEASE_SCHEDULE (
263: -- STANDARD PARAMTERS --
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,
263: -- STANDARD PARAMTERS --
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,
295:
296: ----------------------------------------------------
297: -- STANDARD CALL TO CHECK FOR CALL COMPATIBILITY.
298: ----------------------------------------------------
299: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
300: L_API_NAME, G_PKG_NAME)
301: THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
298: ----------------------------------------------------
299: IF NOT FND_API.COMPATIBLE_API_CALL(L_API_VERSION, P_API_VERSION,
300: L_API_NAME, G_PKG_NAME)
301: THEN
302: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
303: END IF;
304: -------------------------------------------------------------
305: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
306: -------------------------------------------------------------
304: -------------------------------------------------------------
305: -- INITIALIZE MESSAGE LIST IF P_INIT_MSG_LIST IS SET TO TRUE.
306: -------------------------------------------------------------
307:
308: IF FND_API.TO_BOOLEAN(P_INIT_MSG_LIST) THEN
309: FA_SRVR_MSG.INIT_SERVER_MESSAGE;
310: FA_DEBUG_PKG.INITIALIZE;
311: END IF;
312:
315: ----------------------------------------------------
316:
317: FA_LEASE_SCHEDULE_PUB.CREATE_PAYMENTS
318: (P_API_VERSION => 1.0,
319: P_INIT_MSG_LIST => FND_API.G_FALSE,
320: P_COMMIT => FND_API.G_FALSE,
321: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
322: X_RETURN_STATUS => L_RETURN_STATUS,
323: X_MSG_COUNT => L_MESG_COUNT,
316:
317: FA_LEASE_SCHEDULE_PUB.CREATE_PAYMENTS
318: (P_API_VERSION => 1.0,
319: P_INIT_MSG_LIST => FND_API.G_FALSE,
320: P_COMMIT => FND_API.G_FALSE,
321: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
322: X_RETURN_STATUS => L_RETURN_STATUS,
323: X_MSG_COUNT => L_MESG_COUNT,
324: X_MSG_DATA => L_MESG,
317: FA_LEASE_SCHEDULE_PUB.CREATE_PAYMENTS
318: (P_API_VERSION => 1.0,
319: P_INIT_MSG_LIST => FND_API.G_FALSE,
320: P_COMMIT => FND_API.G_FALSE,
321: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
322: X_RETURN_STATUS => L_RETURN_STATUS,
323: X_MSG_COUNT => L_MESG_COUNT,
324: X_MSG_DATA => L_MESG,
325: P_CALLING_FN =>'CREATE_LEASE_SCHEDULE',
327: PX_LEASE_SCHEDULES_REC =>PX_LEASE_SCHEDULES_REC,
328: P_LEASE_PAYMENTS_TBL =>P_LEASE_PAYMENTS_TBL
329: );
330:
331: IF (L_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS) THEN
332: X_RETURN_STATUS:=L_RETURN_STATUS;
333: X_MSG_COUNT:=L_MESG_COUNT;
334: X_MSG_DATA:=L_MESG;
335: ELSE
337: -- IF CREATE PAYMENTS, SUCCESS, AMORTIZE
338: ----------------------------------------------------
339: FA_LEASE_SCHEDULE_PUB.CREATE_AMORTIZATION
340: (P_API_VERSION => 1.0,
341: P_INIT_MSG_LIST => FND_API.G_FALSE,
342: P_COMMIT => FND_API.G_FALSE,
343: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
344: X_RETURN_STATUS => L_RETURN_STATUS,
345: X_MSG_COUNT => L_MESG_COUNT,
338: ----------------------------------------------------
339: FA_LEASE_SCHEDULE_PUB.CREATE_AMORTIZATION
340: (P_API_VERSION => 1.0,
341: P_INIT_MSG_LIST => FND_API.G_FALSE,
342: P_COMMIT => FND_API.G_FALSE,
343: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
344: X_RETURN_STATUS => L_RETURN_STATUS,
345: X_MSG_COUNT => L_MESG_COUNT,
346: X_MSG_DATA => L_MESG,
339: FA_LEASE_SCHEDULE_PUB.CREATE_AMORTIZATION
340: (P_API_VERSION => 1.0,
341: P_INIT_MSG_LIST => FND_API.G_FALSE,
342: P_COMMIT => FND_API.G_FALSE,
343: P_VALIDATION_LEVEL => FND_API.G_VALID_LEVEL_FULL,
344: X_RETURN_STATUS => L_RETURN_STATUS,
345: X_MSG_COUNT => L_MESG_COUNT,
346: X_MSG_DATA => L_MESG,
347: P_CALLING_FN =>'CREATE_LEASE_SCHEDULE',
347: P_CALLING_FN =>'CREATE_LEASE_SCHEDULE',
348: P_TRANS_REC =>P_TRANS_REC,
349: P_PAYMENT_SCHEDULE_ID =>PX_LEASE_SCHEDULES_REC.PAYMENT_SCHEDULE_ID
350: );
351: IF (L_RETURN_STATUS <> FND_API.G_RET_STS_SUCCESS) THEN
352: X_RETURN_STATUS:=L_RETURN_STATUS;
353: X_MSG_COUNT:=L_MESG_COUNT;
354: X_MSG_DATA:=L_MESG;
355: ELSE
352: X_RETURN_STATUS:=L_RETURN_STATUS;
353: X_MSG_COUNT:=L_MESG_COUNT;
354: X_MSG_DATA:=L_MESG;
355: ELSE
356: L_RETURN_STATUS := FND_API.G_RET_STS_SUCCESS;
357: END IF;
358: END IF;
359:
360: ----------------------------------------------------
360: ----------------------------------------------------
361: -- CHECK FOR COMMIT
362: ----------------------------------------------------
363:
364: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
365: COMMIT WORK;
366: END IF;
367:
368: EXCEPTION
367:
368: EXCEPTION
369: WHEN VALUE_ERROR_EXCEPTION THEN
370: ROLLBACK TO CREATE_LEASE_SCHEDULE;
371: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
372: WHEN OTHERS THEN
373: ROLLBACK TO CREATE_LEASE_SCHEDULE;
374: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
375: X_MSG_DATA:=SQLERRM;
370: ROLLBACK TO CREATE_LEASE_SCHEDULE;
371: X_RETURN_STATUS := FND_API.G_RET_STS_ERROR;
372: WHEN OTHERS THEN
373: ROLLBACK TO CREATE_LEASE_SCHEDULE;
374: X_RETURN_STATUS := FND_API.G_RET_STS_UNEXP_ERROR;
375: X_MSG_DATA:=SQLERRM;
376: END CREATE_LEASE_SCHEDULE;
377:
378: END FA_LEASE_SCHEDULE_PUB;