41: IS
42: BEGIN
43: if (p_msg_level >= G_MSG_LEVEL) then
44:
45: FND_LOG.STRING(p_msg_level, G_PKG_NAME, p_msg);
46: if FND_GLOBAL.Conc_Request_Id is not null then
47: fnd_file.put_line(FND_FILE.LOG, p_msg);
48: end if;
49:
50: end if;
51:
52: EXCEPTION
53: WHEN OTHERS THEN
54: LogMessage(FND_LOG.LEVEL_UNEXPECTED, 'ERROR: ' || sqlerrm);
55: END;
56:
57:
58: /*========================================================================
144:
145: X_CONDITION_MET := 'Y';
146: l_pass_ratio := 10;
147:
148: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
149:
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
151: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
152:
146: l_pass_ratio := 10;
147:
148: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
149:
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
151: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
152:
153: if P_COND_ASSIGNMENT_ID is null then
154: X_CONDITION_MET := 'N';
147:
148: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
149:
150: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
151: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
152:
153: if P_COND_ASSIGNMENT_ID is null then
154: X_CONDITION_MET := 'N';
155: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
168: l_CONDITION_TYPE,
169: l_MANDATORY_FLAG;
170: close cond_info_cur;
171:
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
169: l_MANDATORY_FLAG;
170: close cond_info_cur;
171:
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
170: close cond_info_cur;
171:
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
171:
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
179: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
172: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
179: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
173: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
179: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
181:
174: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
179: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
181:
182: /* querying loan requested amount */
175: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
179: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
181:
182: /* querying loan requested amount */
183: open loan_info_cur(l_LOAN_ID);
176: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
177: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
178: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
179: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
180: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
181:
182: /* querying loan requested amount */
183: open loan_info_cur(l_LOAN_ID);
184: fetch loan_info_cur into l_REQUESTED_AMOUNT;
183: open loan_info_cur(l_LOAN_ID);
184: fetch loan_info_cur into l_REQUESTED_AMOUNT;
185: close loan_info_cur;
186:
187: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_REQUESTED_AMOUNT = ' || l_REQUESTED_AMOUNT);
188:
189: /* querying increase loan amount */
190: if l_CONDITION_TYPE = 'LOAN_AMOUNT_ADJUSTMENT' then
191: l_column := 'ADJUSTMENT_AMOUNT';
195: l_where_clause := 'LOAN_LINE_ID';
196: end if;
197:
198: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause || ' = ' || l_OWNER_OBJECT_ID;
199: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
200:
201: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
202: Execute Immediate l_query_str into l_increase_amount;
203: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
197:
198: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause || ' = ' || l_OWNER_OBJECT_ID;
199: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
200:
201: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
202: Execute Immediate l_query_str into l_increase_amount;
203: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
204: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_increase_amount = ' || l_increase_amount);
205:
199: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
200:
201: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
202: Execute Immediate l_query_str into l_increase_amount;
203: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
204: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_increase_amount = ' || l_increase_amount);
205:
206: l_ratio := 100*l_increase_amount/l_REQUESTED_AMOUNT;
207: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
200:
201: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
202: Execute Immediate l_query_str into l_increase_amount;
203: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
204: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_increase_amount = ' || l_increase_amount);
205:
206: l_ratio := 100*l_increase_amount/l_REQUESTED_AMOUNT;
207: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
208: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
203: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
204: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_increase_amount = ' || l_increase_amount);
205:
206: l_ratio := 100*l_increase_amount/l_REQUESTED_AMOUNT;
207: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
208: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
209:
210: if l_ratio > l_pass_ratio then
211: X_CONDITION_MET := 'N';
204: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_increase_amount = ' || l_increase_amount);
205:
206: l_ratio := 100*l_increase_amount/l_REQUESTED_AMOUNT;
207: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
208: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
209:
210: if l_ratio > l_pass_ratio then
211: X_CONDITION_MET := 'N';
212: X_ERROR := 'Increase of loan amount must not be greater than ' || l_pass_ratio || '% of original loan amount.';
211: X_CONDITION_MET := 'N';
212: X_ERROR := 'Increase of loan amount must not be greater than ' || l_pass_ratio || '% of original loan amount.';
213: end if;
214:
215: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
216:
217: EXCEPTION
218: WHEN OTHERS THEN
219: X_ERROR := sqlerrm;
216:
217: EXCEPTION
218: WHEN OTHERS THEN
219: X_ERROR := sqlerrm;
220: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
221:
222: END;
223:
224:
275: BEGIN
276:
277: X_CONDITION_MET := 'Y';
278:
279: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
280:
281: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
282: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
283:
277: X_CONDITION_MET := 'Y';
278:
279: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
280:
281: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
282: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
283:
284: if P_COND_ASSIGNMENT_ID is null then
285: X_CONDITION_MET := 'N';
278:
279: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
280:
281: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
282: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
283:
284: if P_COND_ASSIGNMENT_ID is null then
285: X_CONDITION_MET := 'N';
286: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
285: X_CONDITION_MET := 'N';
286: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
287: end if;
288:
289: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
290:
291: EXCEPTION
292: WHEN OTHERS THEN
293: X_ERROR := sqlerrm;
290:
291: EXCEPTION
292: WHEN OTHERS THEN
293: X_ERROR := sqlerrm;
294: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
295:
296: END;
297:
298:
350:
351: X_CONDITION_MET := 'N';
352: X_ERROR := 'VALIDATE_LOAN_APPR_COND2 has failed';
353:
354: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
355:
356: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
357: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
358:
352: X_ERROR := 'VALIDATE_LOAN_APPR_COND2 has failed';
353:
354: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
355:
356: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
357: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
358:
359: if P_COND_ASSIGNMENT_ID is null then
360: X_CONDITION_MET := 'N';
353:
354: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
355:
356: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
357: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
358:
359: if P_COND_ASSIGNMENT_ID is null then
360: X_CONDITION_MET := 'N';
361: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
360: X_CONDITION_MET := 'N';
361: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
362: end if;
363:
364: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
365:
366: EXCEPTION
367: WHEN OTHERS THEN
368: X_ERROR := sqlerrm;
365:
366: EXCEPTION
367: WHEN OTHERS THEN
368: X_ERROR := sqlerrm;
369: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
370:
371: END;
372:
373:
461:
462: X_CONDITION_MET := 'Y';
463: l_pass_ratio := 20;
464:
465: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
466:
467: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
468: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
469:
463: l_pass_ratio := 20;
464:
465: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
466:
467: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
468: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
469:
470: if P_COND_ASSIGNMENT_ID is null then
471: X_CONDITION_MET := 'N';
464:
465: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
466:
467: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
468: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
469:
470: if P_COND_ASSIGNMENT_ID is null then
471: X_CONDITION_MET := 'N';
472: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
485: l_CONDITION_TYPE,
486: l_MANDATORY_FLAG;
487: close cond_info_cur;
488:
489: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
486: l_MANDATORY_FLAG;
487: close cond_info_cur;
488:
489: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
487: close cond_info_cur;
488:
489: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
488:
489: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
496: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
489: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
496: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
490: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
496: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
498:
491: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
496: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
498:
499: /* querying loan requested amount */
492: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
496: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
498:
499: /* querying loan requested amount */
500: open loan_info_cur(l_LOAN_ID);
493: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
494: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
495: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
496: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
497: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
498:
499: /* querying loan requested amount */
500: open loan_info_cur(l_LOAN_ID);
501: fetch loan_info_cur into l_REQUESTED_AMOUNT;
500: open loan_info_cur(l_LOAN_ID);
501: fetch loan_info_cur into l_REQUESTED_AMOUNT;
502: close loan_info_cur;
503:
504: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_REQUESTED_AMOUNT = ' || l_REQUESTED_AMOUNT);
505:
506: /* querying increase loan amount */
507: if l_CONDITION_TYPE = 'DISBURSEMENT' then
508: l_column := 'HEADER_AMOUNT';
509: l_where_clause := 'DISB_HEADER_ID';
510: end if;
511:
512: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause || ' = ' || l_OWNER_OBJECT_ID;
513: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
514:
515: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
516: Execute Immediate l_query_str into l_disb_amount;
517: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
511:
512: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause || ' = ' || l_OWNER_OBJECT_ID;
513: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
514:
515: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
516: Execute Immediate l_query_str into l_disb_amount;
517: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
518: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
519:
513: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
514:
515: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
516: Execute Immediate l_query_str into l_disb_amount;
517: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
518: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
519:
520: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
521: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
514:
515: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
516: Execute Immediate l_query_str into l_disb_amount;
517: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
518: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
519:
520: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
521: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
522: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
517: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
518: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
519:
520: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
521: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
522: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
523:
524: if l_ratio < l_pass_ratio then
525: X_CONDITION_MET := 'N';
518: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
519:
520: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
521: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
522: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
523:
524: if l_ratio < l_pass_ratio then
525: X_CONDITION_MET := 'N';
526: X_ERROR := 'Disbursement amount must be at least ' || l_pass_ratio || '% of loan amount.';
525: X_CONDITION_MET := 'N';
526: X_ERROR := 'Disbursement amount must be at least ' || l_pass_ratio || '% of loan amount.';
527: end if;
528:
529: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
530:
531: EXCEPTION
532: WHEN OTHERS THEN
533: X_ERROR := sqlerrm;
530:
531: EXCEPTION
532: WHEN OTHERS THEN
533: X_ERROR := sqlerrm;
534: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
535:
536: END;
537:
538:
626:
627: X_CONDITION_MET := 'Y';
628: l_pass_ratio := 50;
629:
630: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
631:
632: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
633: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
634:
628: l_pass_ratio := 50;
629:
630: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
631:
632: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
633: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
634:
635: if P_COND_ASSIGNMENT_ID is null then
636: X_CONDITION_MET := 'N';
629:
630: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
631:
632: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
633: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
634:
635: if P_COND_ASSIGNMENT_ID is null then
636: X_CONDITION_MET := 'N';
637: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
650: l_CONDITION_TYPE,
651: l_MANDATORY_FLAG;
652: close cond_info_cur;
653:
654: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
655: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
651: l_MANDATORY_FLAG;
652: close cond_info_cur;
653:
654: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
655: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
652: close cond_info_cur;
653:
654: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
655: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
653:
654: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
655: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
661: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
654: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
655: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
661: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
655: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
661: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
663:
656: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
661: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
663:
664: /* querying loan requested amount */
657: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
661: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
663:
664: /* querying loan requested amount */
665: open loan_info_cur(l_LOAN_ID);
658: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
659: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
660: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
661: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
662: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
663:
664: /* querying loan requested amount */
665: open loan_info_cur(l_LOAN_ID);
666: fetch loan_info_cur into l_REQUESTED_AMOUNT;
665: open loan_info_cur(l_LOAN_ID);
666: fetch loan_info_cur into l_REQUESTED_AMOUNT;
667: close loan_info_cur;
668:
669: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_REQUESTED_AMOUNT = ' || l_REQUESTED_AMOUNT);
670:
671: /* querying increase loan amount */
672: if l_CONDITION_TYPE = 'DISBURSEMENT' then
673: l_column := 'HEADER_AMOUNT';
674: l_where_clause := 'DISB_HEADER_ID';
675: end if;
676:
677: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause || ' = ' || l_OWNER_OBJECT_ID;
678: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
679:
680: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
681: Execute Immediate l_query_str into l_disb_amount;
682: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
676:
677: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause || ' = ' || l_OWNER_OBJECT_ID;
678: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
679:
680: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
681: Execute Immediate l_query_str into l_disb_amount;
682: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
683: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
684:
678: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
679:
680: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
681: Execute Immediate l_query_str into l_disb_amount;
682: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
683: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
684:
685: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
686: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
679:
680: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
681: Execute Immediate l_query_str into l_disb_amount;
682: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
683: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
684:
685: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
686: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
687: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
682: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
683: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
684:
685: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
686: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
687: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
688:
689: if l_ratio <> l_pass_ratio then
690: X_CONDITION_MET := 'N';
683: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_disb_amount = ' || l_disb_amount);
684:
685: l_ratio := 100*l_disb_amount/l_REQUESTED_AMOUNT;
686: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
687: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_pass_ratio = ' || l_pass_ratio);
688:
689: if l_ratio <> l_pass_ratio then
690: X_CONDITION_MET := 'N';
691: X_ERROR := 'Disbursement amount must be equal to ' || l_pass_ratio || '% of loan amount.';
690: X_CONDITION_MET := 'N';
691: X_ERROR := 'Disbursement amount must be equal to ' || l_pass_ratio || '% of loan amount.';
692: end if;
693:
694: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
695:
696: EXCEPTION
697: WHEN OTHERS THEN
698: X_ERROR := sqlerrm;
695:
696: EXCEPTION
697: WHEN OTHERS THEN
698: X_ERROR := sqlerrm;
699: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
700:
701: END;
702:
703:
790:
791: X_CONDITION_MET := 'Y';
792: l_pass_ratio := 1;
793:
794: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
795:
796: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
797: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
798:
792: l_pass_ratio := 1;
793:
794: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
795:
796: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
797: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
798:
799: if P_COND_ASSIGNMENT_ID is null then
800: X_CONDITION_MET := 'N';
793:
794: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
795:
796: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
797: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
798:
799: if P_COND_ASSIGNMENT_ID is null then
800: X_CONDITION_MET := 'N';
801: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
814: l_CONDITION_TYPE,
815: l_MANDATORY_FLAG;
816: close cond_info_cur;
817:
818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
815: l_MANDATORY_FLAG;
816: close cond_info_cur;
817:
818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
816: close cond_info_cur;
817:
818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
817:
818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
818: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
819: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
827:
820: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
827:
828: /* querying loan requested amount */
821: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
827:
828: /* querying loan requested amount */
829: open due_date_cur(l_OWNER_OBJECT_ID);
822: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
823: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
824: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
825: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
826: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
827:
828: /* querying loan requested amount */
829: open due_date_cur(l_OWNER_OBJECT_ID);
830: fetch due_date_cur into l_due_date;
829: open due_date_cur(l_OWNER_OBJECT_ID);
830: fetch due_date_cur into l_due_date;
831: close due_date_cur;
832:
833: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_due_date = ' || l_due_date);
834:
835: /* querying increase loan amount */
836: if l_CONDITION_TYPE = 'DISBURSEMENT' then
837: l_column := 'count(1)';
839: ', ''MONTH'') and (status is null or status <> ''CANCELLED'')';
840: end if;
841:
842: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause;
843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
844:
845: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
846: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
841:
842: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause;
843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
844:
845: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
846: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
849:
843: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
844:
845: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
846: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
849:
850: if l_ratio > l_pass_ratio then
851: X_CONDITION_MET := 'N';
844:
845: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
846: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
847: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
848: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
849:
850: if l_ratio > l_pass_ratio then
851: X_CONDITION_MET := 'N';
852: X_ERROR := 'Number of disbursement in any given month cannot be greater than ' || l_pass_ratio;
851: X_CONDITION_MET := 'N';
852: X_ERROR := 'Number of disbursement in any given month cannot be greater than ' || l_pass_ratio;
853: end if;
854:
855: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859: X_ERROR := sqlerrm;
856:
857: EXCEPTION
858: WHEN OTHERS THEN
859: X_ERROR := sqlerrm;
860: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
861:
862: END;
863:
864:
951:
952: X_CONDITION_MET := 'Y';
953: l_pass_ratio := 4;
954:
955: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
956:
957: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
958: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
959:
953: l_pass_ratio := 4;
954:
955: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
956:
957: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
958: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
959:
960: if P_COND_ASSIGNMENT_ID is null then
961: X_CONDITION_MET := 'N';
954:
955: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' +');
956:
957: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'Input:');
958: LogMessage(FND_LOG.LEVEL_PROCEDURE, 'P_COND_ASSIGNMENT_ID = ' || P_COND_ASSIGNMENT_ID);
959:
960: if P_COND_ASSIGNMENT_ID is null then
961: X_CONDITION_MET := 'N';
962: X_ERROR := 'P_COND_ASSIGNMENT_ID must be set';
975: l_CONDITION_TYPE,
976: l_MANDATORY_FLAG;
977: close cond_info_cur;
978:
979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
976: l_MANDATORY_FLAG;
977: close cond_info_cur;
978:
979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
977: close cond_info_cur;
978:
979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
978:
979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
986: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
979: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Condition info:');
980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
986: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
987: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
980: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_LOAN_ID = ' || l_LOAN_ID);
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
986: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
987: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
988:
981: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_ID = ' || l_CONDITION_ID);
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
986: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
987: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
988:
989: /* querying loan requested amount */
982: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_NAME = ' || l_CONDITION_NAME);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
986: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
987: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
988:
989: /* querying loan requested amount */
990: open due_date_cur(l_OWNER_OBJECT_ID);
983: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_DESCRIPTION = ' || l_CONDITION_DESCRIPTION);
984: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_CONDITION_TYPE = ' || l_CONDITION_TYPE);
985: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_MANDATORY_FLAG = ' || l_MANDATORY_FLAG);
986: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_OBJECT_ID = ' || l_OWNER_OBJECT_ID);
987: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_OWNER_TABLE = ' || l_OWNER_TABLE);
988:
989: /* querying loan requested amount */
990: open due_date_cur(l_OWNER_OBJECT_ID);
991: fetch due_date_cur into l_due_date;
990: open due_date_cur(l_OWNER_OBJECT_ID);
991: fetch due_date_cur into l_due_date;
992: close due_date_cur;
993:
994: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_due_date = ' || l_due_date);
995:
996: /* querying increase loan amount */
997: if l_CONDITION_TYPE = 'DISBURSEMENT' then
998: l_column := 'count(1)';
1000: ', ''YEAR'') and (status is null or status <> ''CANCELLED'')';
1001: end if;
1002:
1003: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause;
1004: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
1005:
1006: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
1007: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
1008: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
1002:
1003: l_query_str := ' Select ' || l_column || ' From ' || l_OWNER_TABLE || ' where ' || l_where_clause;
1004: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
1005:
1006: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
1007: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
1008: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
1009: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
1010:
1004: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_query_str: ' || l_query_str);
1005:
1006: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
1007: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
1008: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
1009: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
1010:
1011: if l_ratio > l_pass_ratio then
1012: X_CONDITION_MET := 'N';
1005:
1006: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Executing query...');
1007: Execute Immediate l_query_str into l_ratio USING l_LOAN_ID, l_due_date;
1008: LogMessage(FND_LOG.LEVEL_STATEMENT, 'Done');
1009: LogMessage(FND_LOG.LEVEL_STATEMENT, 'l_ratio = ' || l_ratio);
1010:
1011: if l_ratio > l_pass_ratio then
1012: X_CONDITION_MET := 'N';
1013: X_ERROR := 'Number of disbursements in calendar year cannot be greater than ' || l_pass_ratio;
1012: X_CONDITION_MET := 'N';
1013: X_ERROR := 'Number of disbursements in calendar year cannot be greater than ' || l_pass_ratio;
1014: end if;
1015:
1016: LogMessage(FND_LOG.LEVEL_PROCEDURE, G_PKG_NAME || '.' || l_api_name || ' -');
1017:
1018: EXCEPTION
1019: WHEN OTHERS THEN
1020: X_ERROR := sqlerrm;
1017:
1018: EXCEPTION
1019: WHEN OTHERS THEN
1020: X_ERROR := sqlerrm;
1021: LogMessage(FND_LOG.LEVEL_UNEXPECTED, G_PKG_NAME || '.' || l_api_name || ' - In exception. Error - ' || X_ERROR);
1022:
1023: END;
1024:
1025:
1025:
1026:
1027: BEGIN
1028: G_LOG_ENABLED := 'N';
1029: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
1030:
1031: /* getting msg logging info */
1032: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
1033: if (G_LOG_ENABLED = 'N') then
1030:
1031: /* getting msg logging info */
1032: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
1033: if (G_LOG_ENABLED = 'N') then
1034: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
1035: else
1036: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1037: end if;
1038:
1032: G_LOG_ENABLED := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'), 'N');
1033: if (G_LOG_ENABLED = 'N') then
1034: G_MSG_LEVEL := FND_LOG.LEVEL_UNEXPECTED;
1035: else
1036: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1037: end if;
1038:
1039: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
1040: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
1035: else
1036: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1037: end if;
1038:
1039: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
1040: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
1041:
1042: END;
1036: G_MSG_LEVEL := NVL(to_number(FND_PROFILE.VALUE('AFLOG_LEVEL')), FND_LOG.LEVEL_UNEXPECTED);
1037: end if;
1038:
1039: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_LOG_ENABLED: ' || G_LOG_ENABLED);
1040: LogMessage(FND_LOG.LEVEL_STATEMENT, 'G_MSG_LEVEL: ' || G_MSG_LEVEL);
1041:
1042: END;