eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.LNS_CUSTOM_PAYMNT_SCHEDS_PKG

Source


1 PACKAGE BODY LNS_CUSTOM_PAYMNT_SCHEDS_PKG AS
2 /* $Header: LNS_CUST_TBLH_B.pls 120.2 2011/01/05 21:59:27 scherkas ship $ */
3 
4 /* Insert_Row procedure */
5 PROCEDURE Insert_Row(
6 	X_CUSTOM_SCHEDULE_ID		IN OUT NOCOPY NUMBER
7 	,P_LOAN_ID		IN NUMBER
8 	,P_PAYMENT_NUMBER		IN NUMBER	DEFAULT NULL
9 	,P_DUE_DATE		IN DATE	DEFAULT NULL
10 	,P_PRINCIPAL_AMOUNT		IN NUMBER	DEFAULT NULL
11 	,P_INTEREST_AMOUNT		IN NUMBER	DEFAULT NULL
12 	,P_PRINCIPAL_PAID_TODATE		IN NUMBER	DEFAULT NULL
13 	,P_INTEREST_PAID_TODATE		IN NUMBER	DEFAULT NULL
14 	,P_OTHER_AMOUNT		IN NUMBER	DEFAULT NULL
15 	,P_INSTALLMENT_BEGIN_BALANCE		IN NUMBER	DEFAULT NULL
16 	,P_INSTALLMENT_END_BALANCE		IN NUMBER	DEFAULT NULL
17 	,P_CURRENT_TERM_PAYMENT		IN NUMBER	DEFAULT NULL
18 	,P_CREATED_BY		IN NUMBER	DEFAULT NULL
19 	,P_CREATION_DATE		IN DATE	DEFAULT NULL
20 	,P_LAST_UPDATED_BY		IN NUMBER	DEFAULT NULL
21 	,P_LAST_UPDATE_DATE		IN DATE	DEFAULT NULL
22 	,P_LAST_UPDATE_LOGIN		IN NUMBER	DEFAULT NULL
23 	,P_ATTRIBUTE_CATEGORY		IN VARCHAR2	DEFAULT NULL
24 	,P_ATTRIBUTE1		IN VARCHAR2	DEFAULT NULL
25 	,P_ATTRIBUTE2		IN VARCHAR2	DEFAULT NULL
26 	,P_ATTRIBUTE3		IN VARCHAR2	DEFAULT NULL
27 	,P_ATTRIBUTE4		IN VARCHAR2	DEFAULT NULL
28 	,P_ATTRIBUTE5		IN VARCHAR2	DEFAULT NULL
29 	,P_ATTRIBUTE6		IN VARCHAR2	DEFAULT NULL
30 	,P_ATTRIBUTE7		IN VARCHAR2	DEFAULT NULL
31 	,P_ATTRIBUTE8		IN VARCHAR2	DEFAULT NULL
32 	,P_ATTRIBUTE9		IN VARCHAR2	DEFAULT NULL
33 	,P_ATTRIBUTE10		IN VARCHAR2	DEFAULT NULL
34 	,P_ATTRIBUTE11		IN VARCHAR2	DEFAULT NULL
35 	,P_ATTRIBUTE12		IN VARCHAR2	DEFAULT NULL
36 	,P_ATTRIBUTE13		IN VARCHAR2	DEFAULT NULL
37 	,P_ATTRIBUTE14		IN VARCHAR2	DEFAULT NULL
38 	,P_ATTRIBUTE15		IN VARCHAR2	DEFAULT NULL
39 	,P_ATTRIBUTE16		IN VARCHAR2	DEFAULT NULL
40 	,P_ATTRIBUTE17		IN VARCHAR2	DEFAULT NULL
41 	,P_ATTRIBUTE18		IN VARCHAR2	DEFAULT NULL
42 	,P_ATTRIBUTE19		IN VARCHAR2	DEFAULT NULL
43 	,P_ATTRIBUTE20		IN VARCHAR2	DEFAULT NULL
44 	,P_OBJECT_VERSION_NUMBER		IN NUMBER	DEFAULT NULL
45 	,P_FEE_AMOUNT		IN NUMBER	DEFAULT NULL
46 	,P_LOCK_PRIN		IN VARCHAR2 DEFAULT NULL
47 	,P_LOCK_INT  		IN VARCHAR2 DEFAULT NULL
48 	,P_PRINCIPAL_PERCENT		IN NUMBER	DEFAULT NULL
49 ) IS
50 BEGIN
51 	INSERT INTO LNS_CUSTOM_PAYMNT_SCHEDS
52 	(
53 		CUSTOM_SCHEDULE_ID
54 		,LOAN_ID
55 		,PAYMENT_NUMBER
56 		,DUE_DATE
57 		,PRINCIPAL_AMOUNT
58 		,INTEREST_AMOUNT
59 		,PRINCIPAL_PAID_TODATE
60 		,INTEREST_PAID_TODATE
61 		,OTHER_AMOUNT
62 		,INSTALLMENT_BEGIN_BALANCE
63 		,INSTALLMENT_END_BALANCE
64 		,CURRENT_TERM_PAYMENT
65 		,CREATED_BY
66 		,CREATION_DATE
67 		,LAST_UPDATED_BY
68 		,LAST_UPDATE_DATE
69 		,LAST_UPDATE_LOGIN
70 		,ATTRIBUTE_CATEGORY
71 		,ATTRIBUTE1
72 		,ATTRIBUTE2
73 		,ATTRIBUTE3
74 		,ATTRIBUTE4
75 		,ATTRIBUTE5
76 		,ATTRIBUTE6
77 		,ATTRIBUTE7
78 		,ATTRIBUTE8
79 		,ATTRIBUTE9
80 		,ATTRIBUTE10
81 		,ATTRIBUTE11
82 		,ATTRIBUTE12
83 		,ATTRIBUTE13
84 		,ATTRIBUTE14
85 		,ATTRIBUTE15
86 		,ATTRIBUTE16
87 		,ATTRIBUTE17
88 		,ATTRIBUTE18
89 		,ATTRIBUTE19
90 		,ATTRIBUTE20
91 		,OBJECT_VERSION_NUMBER
92 		,FEE_AMOUNT
93 		,LOCK_PRIN
94 		,LOCK_INT
95         ,PRINCIPAL_PERCENT
96 	) VALUES (
97 		DECODE(X_CUSTOM_SCHEDULE_ID, FND_API.G_MISS_NUM, LNS_CUSTOM_PAYMNT_SCHEDS_S.NEXTVAL, NULL, LNS_CUSTOM_PAYMNT_SCHEDS_S.NEXTVAL, X_CUSTOM_SCHEDULE_ID)
98 		,DECODE(P_LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
99 		,DECODE(P_PAYMENT_NUMBER, FND_API.G_MISS_NUM, NULL, P_PAYMENT_NUMBER)
100 		,DECODE(P_DUE_DATE, FND_API.G_MISS_DATE, NULL, P_DUE_DATE)
101 		,DECODE(P_PRINCIPAL_AMOUNT, FND_API.G_MISS_NUM, NULL, P_PRINCIPAL_AMOUNT)
102 		,DECODE(P_INTEREST_AMOUNT, FND_API.G_MISS_NUM, NULL, P_INTEREST_AMOUNT)
103 		,DECODE(P_PRINCIPAL_PAID_TODATE, FND_API.G_MISS_NUM, NULL, P_PRINCIPAL_PAID_TODATE)
104 		,DECODE(P_INTEREST_PAID_TODATE, FND_API.G_MISS_NUM, NULL, P_INTEREST_PAID_TODATE)
105 		,DECODE(P_OTHER_AMOUNT, FND_API.G_MISS_NUM, NULL, P_OTHER_AMOUNT)
106 		,DECODE(P_INSTALLMENT_BEGIN_BALANCE, FND_API.G_MISS_NUM, NULL, P_INSTALLMENT_BEGIN_BALANCE)
107 		,DECODE(P_INSTALLMENT_END_BALANCE, FND_API.G_MISS_NUM, NULL, P_INSTALLMENT_END_BALANCE)
108 		,DECODE(P_CURRENT_TERM_PAYMENT, FND_API.G_MISS_NUM, NULL, P_CURRENT_TERM_PAYMENT)
109 		,LNS_UTILITY_PUB.CREATED_BY
110 		,LNS_UTILITY_PUB.CREATION_DATE
111 		,LNS_UTILITY_PUB.LAST_UPDATED_BY
112 		,LNS_UTILITY_PUB.LAST_UPDATE_DATE
113 		,LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
114 		,DECODE(P_ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE_CATEGORY)
115 		,DECODE(P_ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE1)
116 		,DECODE(P_ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE2)
117 		,DECODE(P_ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE3)
118 		,DECODE(P_ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE4)
119 		,DECODE(P_ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE5)
120 		,DECODE(P_ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE6)
121 		,DECODE(P_ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE7)
122 		,DECODE(P_ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE8)
123 		,DECODE(P_ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE9)
124 		,DECODE(P_ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE10)
125 		,DECODE(P_ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE11)
126 		,DECODE(P_ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE12)
127 		,DECODE(P_ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE13)
128 		,DECODE(P_ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE14)
129 		,DECODE(P_ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE15)
130 		,DECODE(P_ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE16)
131 		,DECODE(P_ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE17)
132 		,DECODE(P_ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE18)
133 		,DECODE(P_ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE19)
134 		,DECODE(P_ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE20)
135 		,DECODE(P_OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, P_OBJECT_VERSION_NUMBER)
136 		,DECODE(P_FEE_AMOUNT, FND_API.G_MISS_NUM, NULL, P_FEE_AMOUNT)
137 		,DECODE(P_LOCK_PRIN, FND_API.G_MISS_CHAR, NULL, P_LOCK_PRIN)
138 		,DECODE(P_LOCK_INT, FND_API.G_MISS_CHAR, NULL, P_LOCK_INT)
139 		,DECODE(P_PRINCIPAL_PERCENT, FND_API.G_MISS_NUM, NULL, P_PRINCIPAL_PERCENT)
140 	) RETURNING
141 		 CUSTOM_SCHEDULE_ID
142 	 INTO
143 		 X_CUSTOM_SCHEDULE_ID;
144 END Insert_Row;
145 
146 /* Update_Row procedure */
147 PROCEDURE Update_Row(
148 	P_CUSTOM_SCHEDULE_ID		IN NUMBER
149 	,P_LOAN_ID		IN NUMBER	DEFAULT NULL
150 	,P_PAYMENT_NUMBER		IN NUMBER	DEFAULT NULL
151 	,P_DUE_DATE		IN DATE	DEFAULT NULL
152 	,P_PRINCIPAL_AMOUNT		IN NUMBER	DEFAULT NULL
153 	,P_INTEREST_AMOUNT		IN NUMBER	DEFAULT NULL
154 	,P_PRINCIPAL_PAID_TODATE		IN NUMBER	DEFAULT NULL
155 	,P_INTEREST_PAID_TODATE		IN NUMBER	DEFAULT NULL
156 	,P_OTHER_AMOUNT		IN NUMBER	DEFAULT NULL
157 	,P_INSTALLMENT_BEGIN_BALANCE		IN NUMBER	DEFAULT NULL
158 	,P_INSTALLMENT_END_BALANCE		IN NUMBER	DEFAULT NULL
159 	,P_CURRENT_TERM_PAYMENT		IN NUMBER	DEFAULT NULL
160 	,P_LAST_UPDATED_BY		IN NUMBER	DEFAULT NULL
161 	,P_LAST_UPDATE_DATE		IN DATE	DEFAULT NULL
162 	,P_LAST_UPDATE_LOGIN		IN NUMBER	DEFAULT NULL
163 	,P_ATTRIBUTE_CATEGORY		IN VARCHAR2	DEFAULT NULL
164 	,P_ATTRIBUTE1		IN VARCHAR2	DEFAULT NULL
165 	,P_ATTRIBUTE2		IN VARCHAR2	DEFAULT NULL
166 	,P_ATTRIBUTE3		IN VARCHAR2	DEFAULT NULL
167 	,P_ATTRIBUTE4		IN VARCHAR2	DEFAULT NULL
168 	,P_ATTRIBUTE5		IN VARCHAR2	DEFAULT NULL
169 	,P_ATTRIBUTE6		IN VARCHAR2	DEFAULT NULL
170 	,P_ATTRIBUTE7		IN VARCHAR2	DEFAULT NULL
171 	,P_ATTRIBUTE8		IN VARCHAR2	DEFAULT NULL
172 	,P_ATTRIBUTE9		IN VARCHAR2	DEFAULT NULL
173 	,P_ATTRIBUTE10		IN VARCHAR2	DEFAULT NULL
174 	,P_ATTRIBUTE11		IN VARCHAR2	DEFAULT NULL
175 	,P_ATTRIBUTE12		IN VARCHAR2	DEFAULT NULL
176 	,P_ATTRIBUTE13		IN VARCHAR2	DEFAULT NULL
177 	,P_ATTRIBUTE14		IN VARCHAR2	DEFAULT NULL
178 	,P_ATTRIBUTE15		IN VARCHAR2	DEFAULT NULL
179 	,P_ATTRIBUTE16		IN VARCHAR2	DEFAULT NULL
180 	,P_ATTRIBUTE17		IN VARCHAR2	DEFAULT NULL
181 	,P_ATTRIBUTE18		IN VARCHAR2	DEFAULT NULL
182 	,P_ATTRIBUTE19		IN VARCHAR2	DEFAULT NULL
183 	,P_ATTRIBUTE20		IN VARCHAR2	DEFAULT NULL
184 	,P_OBJECT_VERSION_NUMBER		IN NUMBER	DEFAULT NULL
185 	,P_FEE_AMOUNT		IN NUMBER	DEFAULT NULL
186 	,P_LOCK_PRIN		IN VARCHAR2 DEFAULT NULL
187 	,P_LOCK_INT  		IN VARCHAR2 DEFAULT NULL
188 	,P_PRINCIPAL_PERCENT		IN NUMBER	DEFAULT NULL
189 ) IS
190 BEGIN
191 	UPDATE LNS_CUSTOM_PAYMNT_SCHEDS SET
192 		LOAN_ID = DECODE(P_LOAN_ID, NULL, LOAN_ID, FND_API.G_MISS_NUM, NULL, P_LOAN_ID)
193 		,PAYMENT_NUMBER = DECODE(P_PAYMENT_NUMBER, NULL, PAYMENT_NUMBER, FND_API.G_MISS_NUM, NULL, P_PAYMENT_NUMBER)
194 		,DUE_DATE = DECODE(P_DUE_DATE, NULL, DUE_DATE, FND_API.G_MISS_DATE, NULL, P_DUE_DATE)
195 		,PRINCIPAL_AMOUNT = DECODE(P_PRINCIPAL_AMOUNT, NULL, PRINCIPAL_AMOUNT, FND_API.G_MISS_NUM, NULL, P_PRINCIPAL_AMOUNT)
196 		,INTEREST_AMOUNT = DECODE(P_INTEREST_AMOUNT, NULL, INTEREST_AMOUNT, FND_API.G_MISS_NUM, NULL, P_INTEREST_AMOUNT)
197 		,PRINCIPAL_PAID_TODATE = DECODE(P_PRINCIPAL_PAID_TODATE, NULL, PRINCIPAL_PAID_TODATE, FND_API.G_MISS_NUM, NULL, P_PRINCIPAL_PAID_TODATE)
198 		,INTEREST_PAID_TODATE = DECODE(P_INTEREST_PAID_TODATE, NULL, INTEREST_PAID_TODATE, FND_API.G_MISS_NUM, NULL, P_INTEREST_PAID_TODATE)
199 		,OTHER_AMOUNT = DECODE(P_OTHER_AMOUNT, NULL, OTHER_AMOUNT, FND_API.G_MISS_NUM, NULL, P_OTHER_AMOUNT)
200 		,INSTALLMENT_BEGIN_BALANCE = DECODE(P_INSTALLMENT_BEGIN_BALANCE, NULL, INSTALLMENT_BEGIN_BALANCE, FND_API.G_MISS_NUM, NULL, P_INSTALLMENT_BEGIN_BALANCE)
201 		,INSTALLMENT_END_BALANCE = DECODE(P_INSTALLMENT_END_BALANCE, NULL, INSTALLMENT_END_BALANCE, FND_API.G_MISS_NUM, NULL, P_INSTALLMENT_END_BALANCE)
202 		,CURRENT_TERM_PAYMENT = DECODE(P_CURRENT_TERM_PAYMENT, NULL, CURRENT_TERM_PAYMENT, FND_API.G_MISS_NUM, NULL, P_CURRENT_TERM_PAYMENT)
203 		,LAST_UPDATED_BY = LNS_UTILITY_PUB.LAST_UPDATED_BY
204 		,LAST_UPDATE_DATE = LNS_UTILITY_PUB.LAST_UPDATE_DATE
205 		,LAST_UPDATE_LOGIN = LNS_UTILITY_PUB.LAST_UPDATE_LOGIN
206 		,ATTRIBUTE_CATEGORY = DECODE(P_ATTRIBUTE_CATEGORY, NULL, ATTRIBUTE_CATEGORY, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE_CATEGORY)
207 		,ATTRIBUTE1 = DECODE(P_ATTRIBUTE1, NULL, ATTRIBUTE1, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE1)
208 		,ATTRIBUTE2 = DECODE(P_ATTRIBUTE2, NULL, ATTRIBUTE2, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE2)
209 		,ATTRIBUTE3 = DECODE(P_ATTRIBUTE3, NULL, ATTRIBUTE3, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE3)
210 		,ATTRIBUTE4 = DECODE(P_ATTRIBUTE4, NULL, ATTRIBUTE4, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE4)
211 		,ATTRIBUTE5 = DECODE(P_ATTRIBUTE5, NULL, ATTRIBUTE5, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE5)
212 		,ATTRIBUTE6 = DECODE(P_ATTRIBUTE6, NULL, ATTRIBUTE6, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE6)
213 		,ATTRIBUTE7 = DECODE(P_ATTRIBUTE7, NULL, ATTRIBUTE7, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE7)
214 		,ATTRIBUTE8 = DECODE(P_ATTRIBUTE8, NULL, ATTRIBUTE8, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE8)
215 		,ATTRIBUTE9 = DECODE(P_ATTRIBUTE9, NULL, ATTRIBUTE9, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE9)
216 		,ATTRIBUTE10 = DECODE(P_ATTRIBUTE10, NULL, ATTRIBUTE10, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE10)
217 		,ATTRIBUTE11 = DECODE(P_ATTRIBUTE11, NULL, ATTRIBUTE11, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE11)
218 		,ATTRIBUTE12 = DECODE(P_ATTRIBUTE12, NULL, ATTRIBUTE12, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE12)
219 		,ATTRIBUTE13 = DECODE(P_ATTRIBUTE13, NULL, ATTRIBUTE13, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE13)
220 		,ATTRIBUTE14 = DECODE(P_ATTRIBUTE14, NULL, ATTRIBUTE14, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE14)
221 		,ATTRIBUTE15 = DECODE(P_ATTRIBUTE15, NULL, ATTRIBUTE15, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE15)
222 		,ATTRIBUTE16 = DECODE(P_ATTRIBUTE16, NULL, ATTRIBUTE16, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE16)
223 		,ATTRIBUTE17 = DECODE(P_ATTRIBUTE17, NULL, ATTRIBUTE17, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE17)
224 		,ATTRIBUTE18 = DECODE(P_ATTRIBUTE18, NULL, ATTRIBUTE18, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE18)
225 		,ATTRIBUTE19 = DECODE(P_ATTRIBUTE19, NULL, ATTRIBUTE19, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE19)
226 		,ATTRIBUTE20 = DECODE(P_ATTRIBUTE20, NULL, ATTRIBUTE20, FND_API.G_MISS_CHAR, NULL, P_ATTRIBUTE20)
227 		,OBJECT_VERSION_NUMBER = DECODE(P_OBJECT_VERSION_NUMBER, NULL, OBJECT_VERSION_NUMBER, FND_API.G_MISS_NUM, NULL, P_OBJECT_VERSION_NUMBER)
228 		,FEE_AMOUNT = DECODE(P_FEE_AMOUNT, NULL, FEE_AMOUNT, FND_API.G_MISS_NUM, NULL, P_FEE_AMOUNT)
229 		,LOCK_PRIN = DECODE(P_LOCK_PRIN, NULL, LOCK_PRIN, FND_API.G_MISS_CHAR, NULL, P_LOCK_PRIN)
230 		,LOCK_INT = DECODE(P_LOCK_INT, NULL, LOCK_INT, FND_API.G_MISS_CHAR, NULL, P_LOCK_INT)
231 		,PRINCIPAL_PERCENT = DECODE(P_PRINCIPAL_PERCENT, NULL, PRINCIPAL_PERCENT, FND_API.G_MISS_NUM, NULL, P_PRINCIPAL_PERCENT)
232 	 WHERE CUSTOM_SCHEDULE_ID = P_CUSTOM_SCHEDULE_ID;
233 
234 	if (sql%notfound) then
235 		raise no_data_found;
236 	end if;
237 END Update_Row;
238 
239 /* Delete_Row procedure */
240 PROCEDURE Delete_Row(P_CUSTOM_SCHEDULE_ID IN NUMBER) IS
241 BEGIN
242 	DELETE FROM LNS_CUSTOM_PAYMNT_SCHEDS
243 		WHERE CUSTOM_SCHEDULE_ID = P_CUSTOM_SCHEDULE_ID;
244 
245 	if (sql%notfound) then
246 		raise no_data_found;
247 	end if;
248 END Delete_Row;
249 
250 /* Lock_Row procedure */
251 PROCEDURE Lock_Row(
252 	P_CUSTOM_SCHEDULE_ID		IN NUMBER
253 	,P_LOAN_ID		IN NUMBER	DEFAULT NULL
254 	,P_PAYMENT_NUMBER		IN NUMBER	DEFAULT NULL
255 	,P_DUE_DATE		IN DATE	DEFAULT NULL
256 	,P_PRINCIPAL_AMOUNT		IN NUMBER	DEFAULT NULL
257 	,P_INTEREST_AMOUNT		IN NUMBER	DEFAULT NULL
258 	,P_PRINCIPAL_PAID_TODATE		IN NUMBER	DEFAULT NULL
259 	,P_INTEREST_PAID_TODATE		IN NUMBER	DEFAULT NULL
260 	,P_OTHER_AMOUNT		IN NUMBER	DEFAULT NULL
261 	,P_INSTALLMENT_BEGIN_BALANCE		IN NUMBER	DEFAULT NULL
262 	,P_INSTALLMENT_END_BALANCE		IN NUMBER	DEFAULT NULL
263 	,P_CURRENT_TERM_PAYMENT		IN NUMBER	DEFAULT NULL
264 	,P_CREATED_BY		IN NUMBER	DEFAULT NULL
265 	,P_CREATION_DATE		IN DATE	DEFAULT NULL
266 	,P_LAST_UPDATED_BY		IN NUMBER	DEFAULT NULL
267 	,P_LAST_UPDATE_DATE		IN DATE	DEFAULT NULL
268 	,P_LAST_UPDATE_LOGIN		IN NUMBER	DEFAULT NULL
269 	,P_ATTRIBUTE_CATEGORY		IN VARCHAR2	DEFAULT NULL
270 	,P_ATTRIBUTE1		IN VARCHAR2	DEFAULT NULL
271 	,P_ATTRIBUTE2		IN VARCHAR2	DEFAULT NULL
272 	,P_ATTRIBUTE3		IN VARCHAR2	DEFAULT NULL
273 	,P_ATTRIBUTE4		IN VARCHAR2	DEFAULT NULL
274 	,P_ATTRIBUTE5		IN VARCHAR2	DEFAULT NULL
275 	,P_ATTRIBUTE6		IN VARCHAR2	DEFAULT NULL
276 	,P_ATTRIBUTE7		IN VARCHAR2	DEFAULT NULL
277 	,P_ATTRIBUTE8		IN VARCHAR2	DEFAULT NULL
278 	,P_ATTRIBUTE9		IN VARCHAR2	DEFAULT NULL
279 	,P_ATTRIBUTE10		IN VARCHAR2	DEFAULT NULL
280 	,P_ATTRIBUTE11		IN VARCHAR2	DEFAULT NULL
281 	,P_ATTRIBUTE12		IN VARCHAR2	DEFAULT NULL
282 	,P_ATTRIBUTE13		IN VARCHAR2	DEFAULT NULL
283 	,P_ATTRIBUTE14		IN VARCHAR2	DEFAULT NULL
284 	,P_ATTRIBUTE15		IN VARCHAR2	DEFAULT NULL
285 	,P_ATTRIBUTE16		IN VARCHAR2	DEFAULT NULL
286 	,P_ATTRIBUTE17		IN VARCHAR2	DEFAULT NULL
287 	,P_ATTRIBUTE18		IN VARCHAR2	DEFAULT NULL
288 	,P_ATTRIBUTE19		IN VARCHAR2	DEFAULT NULL
289 	,P_ATTRIBUTE20		IN VARCHAR2	DEFAULT NULL
290 	,P_OBJECT_VERSION_NUMBER		IN NUMBER	DEFAULT NULL
291 	,P_FEE_AMOUNT		IN NUMBER	DEFAULT NULL
292 	,P_LOCK_PRIN		IN VARCHAR2 DEFAULT NULL
293 	,P_LOCK_INT  		IN VARCHAR2 DEFAULT NULL
294 	,P_PRINCIPAL_PERCENT		IN NUMBER	DEFAULT NULL
295 ) IS
296 	CURSOR C IS SELECT * FROM LNS_CUSTOM_PAYMNT_SCHEDS
297 		WHERE CUSTOM_SCHEDULE_ID = P_CUSTOM_SCHEDULE_ID
298 		FOR UPDATE of CUSTOM_SCHEDULE_ID NOWAIT;
299 	Recinfo C%ROWTYPE;
300 BEGIN
301 	OPEN C;
302 	FETCH C INTO Recinfo;
303 	IF (C%NOTFOUND) THEN
304 		CLOSE C;
305 		FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_DELETED');
306 		APP_EXCEPTION.Raise_Exception;
307 	END IF;
308 	CLOSE C;
309 
310 	IF (
311 		(Recinfo.CUSTOM_SCHEDULE_ID = P_CUSTOM_SCHEDULE_ID)
312 		AND ( (Recinfo.LOAN_ID = P_LOAN_ID)
313 			OR ( (Recinfo.LOAN_ID IS NULL)
314 				AND (P_LOAN_ID IS NULL)))
315 		AND ( (Recinfo.PAYMENT_NUMBER = P_PAYMENT_NUMBER)
316 			OR ( (Recinfo.PAYMENT_NUMBER IS NULL)
317 				AND (P_PAYMENT_NUMBER IS NULL)))
318 		AND ( (Recinfo.DUE_DATE = P_DUE_DATE)
319 			OR ( (Recinfo.DUE_DATE IS NULL)
320 				AND (P_DUE_DATE IS NULL)))
321 		AND ( (Recinfo.PRINCIPAL_AMOUNT = P_PRINCIPAL_AMOUNT)
322 			OR ( (Recinfo.PRINCIPAL_AMOUNT IS NULL)
323 				AND (P_PRINCIPAL_AMOUNT IS NULL)))
324 		AND ( (Recinfo.INTEREST_AMOUNT = P_INTEREST_AMOUNT)
325 			OR ( (Recinfo.INTEREST_AMOUNT IS NULL)
326 				AND (P_INTEREST_AMOUNT IS NULL)))
327 		AND ( (Recinfo.PRINCIPAL_PAID_TODATE = P_PRINCIPAL_PAID_TODATE)
328 			OR ( (Recinfo.PRINCIPAL_PAID_TODATE IS NULL)
329 				AND (P_PRINCIPAL_PAID_TODATE IS NULL)))
330 		AND ( (Recinfo.INTEREST_PAID_TODATE = P_INTEREST_PAID_TODATE)
331 			OR ( (Recinfo.INTEREST_PAID_TODATE IS NULL)
332 				AND (P_INTEREST_PAID_TODATE IS NULL)))
333 		AND ( (Recinfo.OTHER_AMOUNT = P_OTHER_AMOUNT)
334 			OR ( (Recinfo.OTHER_AMOUNT IS NULL)
335 				AND (P_OTHER_AMOUNT IS NULL)))
336 		AND ( (Recinfo.INSTALLMENT_BEGIN_BALANCE = P_INSTALLMENT_BEGIN_BALANCE)
337 			OR ( (Recinfo.INSTALLMENT_BEGIN_BALANCE IS NULL)
338 				AND (P_INSTALLMENT_BEGIN_BALANCE IS NULL)))
339 		AND ( (Recinfo.INSTALLMENT_END_BALANCE = P_INSTALLMENT_END_BALANCE)
340 			OR ( (Recinfo.INSTALLMENT_END_BALANCE IS NULL)
341 				AND (P_INSTALLMENT_END_BALANCE IS NULL)))
342 		AND ( (Recinfo.CURRENT_TERM_PAYMENT = P_CURRENT_TERM_PAYMENT)
343 			OR ( (Recinfo.CURRENT_TERM_PAYMENT IS NULL)
344 				AND (P_CURRENT_TERM_PAYMENT IS NULL)))
345 		AND ( (Recinfo.CREATED_BY = P_CREATED_BY)
346 			OR ( (Recinfo.CREATED_BY IS NULL)
347 				AND (P_CREATED_BY IS NULL)))
348 		AND ( (Recinfo.CREATION_DATE = P_CREATION_DATE)
349 			OR ( (Recinfo.CREATION_DATE IS NULL)
350 				AND (P_CREATION_DATE IS NULL)))
351 		AND ( (Recinfo.LAST_UPDATED_BY = P_LAST_UPDATED_BY)
352 			OR ( (Recinfo.LAST_UPDATED_BY IS NULL)
353 				AND (P_LAST_UPDATED_BY IS NULL)))
354 		AND ( (Recinfo.LAST_UPDATE_DATE = P_LAST_UPDATE_DATE)
355 			OR ( (Recinfo.LAST_UPDATE_DATE IS NULL)
356 				AND (P_LAST_UPDATE_DATE IS NULL)))
357 		AND ( (Recinfo.LAST_UPDATE_LOGIN = P_LAST_UPDATE_LOGIN)
358 			OR ( (Recinfo.LAST_UPDATE_LOGIN IS NULL)
359 				AND (P_LAST_UPDATE_LOGIN IS NULL)))
360 		AND ( (Recinfo.ATTRIBUTE_CATEGORY = P_ATTRIBUTE_CATEGORY)
361 			OR ( (Recinfo.ATTRIBUTE_CATEGORY IS NULL)
362 				AND (P_ATTRIBUTE_CATEGORY IS NULL)))
363 		AND ( (Recinfo.ATTRIBUTE1 = P_ATTRIBUTE1)
364 			OR ( (Recinfo.ATTRIBUTE1 IS NULL)
365 				AND (P_ATTRIBUTE1 IS NULL)))
366 		AND ( (Recinfo.ATTRIBUTE2 = P_ATTRIBUTE2)
367 			OR ( (Recinfo.ATTRIBUTE2 IS NULL)
368 				AND (P_ATTRIBUTE2 IS NULL)))
369 		AND ( (Recinfo.ATTRIBUTE3 = P_ATTRIBUTE3)
370 			OR ( (Recinfo.ATTRIBUTE3 IS NULL)
371 				AND (P_ATTRIBUTE3 IS NULL)))
372 		AND ( (Recinfo.ATTRIBUTE4 = P_ATTRIBUTE4)
373 			OR ( (Recinfo.ATTRIBUTE4 IS NULL)
374 				AND (P_ATTRIBUTE4 IS NULL)))
375 		AND ( (Recinfo.ATTRIBUTE5 = P_ATTRIBUTE5)
376 			OR ( (Recinfo.ATTRIBUTE5 IS NULL)
377 				AND (P_ATTRIBUTE5 IS NULL)))
378 		AND ( (Recinfo.ATTRIBUTE6 = P_ATTRIBUTE6)
379 			OR ( (Recinfo.ATTRIBUTE6 IS NULL)
380 				AND (P_ATTRIBUTE6 IS NULL)))
381 		AND ( (Recinfo.ATTRIBUTE7 = P_ATTRIBUTE7)
382 			OR ( (Recinfo.ATTRIBUTE7 IS NULL)
383 				AND (P_ATTRIBUTE7 IS NULL)))
384 		AND ( (Recinfo.ATTRIBUTE8 = P_ATTRIBUTE8)
385 			OR ( (Recinfo.ATTRIBUTE8 IS NULL)
386 				AND (P_ATTRIBUTE8 IS NULL)))
387 		AND ( (Recinfo.ATTRIBUTE9 = P_ATTRIBUTE9)
388 			OR ( (Recinfo.ATTRIBUTE9 IS NULL)
389 				AND (P_ATTRIBUTE9 IS NULL)))
390 		AND ( (Recinfo.ATTRIBUTE10 = P_ATTRIBUTE10)
391 			OR ( (Recinfo.ATTRIBUTE10 IS NULL)
392 				AND (P_ATTRIBUTE10 IS NULL)))
393 		AND ( (Recinfo.ATTRIBUTE11 = P_ATTRIBUTE11)
394 			OR ( (Recinfo.ATTRIBUTE11 IS NULL)
395 				AND (P_ATTRIBUTE11 IS NULL)))
396 		AND ( (Recinfo.ATTRIBUTE12 = P_ATTRIBUTE12)
397 			OR ( (Recinfo.ATTRIBUTE12 IS NULL)
398 				AND (P_ATTRIBUTE12 IS NULL)))
399 		AND ( (Recinfo.ATTRIBUTE13 = P_ATTRIBUTE13)
400 			OR ( (Recinfo.ATTRIBUTE13 IS NULL)
401 				AND (P_ATTRIBUTE13 IS NULL)))
402 		AND ( (Recinfo.ATTRIBUTE14 = P_ATTRIBUTE14)
403 			OR ( (Recinfo.ATTRIBUTE14 IS NULL)
404 				AND (P_ATTRIBUTE14 IS NULL)))
405 		AND ( (Recinfo.ATTRIBUTE15 = P_ATTRIBUTE15)
406 			OR ( (Recinfo.ATTRIBUTE15 IS NULL)
407 				AND (P_ATTRIBUTE15 IS NULL)))
408 		AND ( (Recinfo.ATTRIBUTE16 = P_ATTRIBUTE16)
409 			OR ( (Recinfo.ATTRIBUTE16 IS NULL)
410 				AND (P_ATTRIBUTE16 IS NULL)))
411 		AND ( (Recinfo.ATTRIBUTE17 = P_ATTRIBUTE17)
412 			OR ( (Recinfo.ATTRIBUTE17 IS NULL)
413 				AND (P_ATTRIBUTE17 IS NULL)))
414 		AND ( (Recinfo.ATTRIBUTE18 = P_ATTRIBUTE18)
415 			OR ( (Recinfo.ATTRIBUTE18 IS NULL)
416 				AND (P_ATTRIBUTE18 IS NULL)))
417 		AND ( (Recinfo.ATTRIBUTE19 = P_ATTRIBUTE19)
418 			OR ( (Recinfo.ATTRIBUTE19 IS NULL)
419 				AND (P_ATTRIBUTE19 IS NULL)))
420 		AND ( (Recinfo.ATTRIBUTE20 = P_ATTRIBUTE20)
421 			OR ( (Recinfo.ATTRIBUTE20 IS NULL)
422 				AND (P_ATTRIBUTE20 IS NULL)))
423 		AND ( (Recinfo.OBJECT_VERSION_NUMBER = P_OBJECT_VERSION_NUMBER)
424 			OR ( (Recinfo.OBJECT_VERSION_NUMBER IS NULL)
425 				AND (P_OBJECT_VERSION_NUMBER IS NULL)))
426 		AND ( (Recinfo.FEE_AMOUNT = P_FEE_AMOUNT)
427 			OR ( (Recinfo.FEE_AMOUNT IS NULL)
428 				AND (P_FEE_AMOUNT IS NULL)))
429 		AND ( (Recinfo.LOCK_PRIN = P_LOCK_PRIN)
430 			OR ( (Recinfo.LOCK_PRIN IS NULL)
431 				AND (P_LOCK_PRIN IS NULL)))
432 		AND ( (Recinfo.LOCK_INT = P_LOCK_INT)
433 			OR ( (Recinfo.LOCK_INT IS NULL)
434 				AND (P_LOCK_INT IS NULL)))
435 		AND ( (Recinfo.PRINCIPAL_PERCENT = P_PRINCIPAL_PERCENT)
436 			OR ( (Recinfo.PRINCIPAL_PERCENT IS NULL)
437 				AND (P_PRINCIPAL_PERCENT IS NULL)))
438 	   ) THEN
439 		return;
440 	ELSE
441 		FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
442 		APP_EXCEPTION.Raise_Exception;
443 	END IF;
444 END Lock_Row;
445 END;
446