107: l_msg_tbl msg_tbl_type;
108: -- akrangan added for debug feature start
109: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
110: is_debug_exception_on BOOLEAN
111: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
112: is_debug_procedure_on BOOLEAN
113: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
114: is_debug_statement_on BOOLEAN
115: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
109: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
110: is_debug_exception_on BOOLEAN
111: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
112: is_debug_procedure_on BOOLEAN
113: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
114: is_debug_statement_on BOOLEAN
115: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
116: -- akrangan added for debug feature end
117: BEGIN
111: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
112: is_debug_procedure_on BOOLEAN
113: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
114: is_debug_statement_on BOOLEAN
115: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
116: -- akrangan added for debug feature end
117: BEGIN
118: -- SECHAWLA 26-JAN-04 3377730: A table can not have a table or record with composite fields on lower versions
119: -- of db/Pl Sql Commented out the code that populates the message table as it was not being used to display messages.
140:
141: END LOOP;
142: */
143: IF (is_debug_procedure_on) THEN
144: okl_debug_pub.log_debug (g_level_procedure,
145: l_module_name,
146: 'Begin(+)'
147: );
148: END IF;
147: );
148: END IF;
149:
150: IF (is_debug_statement_on) THEN
151: okl_debug_pub.log_debug (g_level_statement,
152: l_module_name,
153: 'p_chr_id =' || p_chr_id
154: );
155: okl_debug_pub.log_debug (g_level_statement,
151: okl_debug_pub.log_debug (g_level_statement,
152: l_module_name,
153: 'p_chr_id =' || p_chr_id
154: );
155: okl_debug_pub.log_debug (g_level_statement,
156: l_module_name,
157: 'p_chr_number =' || p_chr_number
158: );
159: okl_debug_pub.log_debug (g_level_statement,
155: okl_debug_pub.log_debug (g_level_statement,
156: l_module_name,
157: 'p_chr_number =' || p_chr_number
158: );
159: okl_debug_pub.log_debug (g_level_statement,
160: l_module_name,
161: 'p_start_date =' || p_start_date
162: );
163: okl_debug_pub.log_debug (g_level_statement,
159: okl_debug_pub.log_debug (g_level_statement,
160: l_module_name,
161: 'p_start_date =' || p_start_date
162: );
163: okl_debug_pub.log_debug (g_level_statement,
164: l_module_name,
165: 'p_end_date =' || p_end_date
166: );
167: okl_debug_pub.log_debug (g_level_statement,
163: okl_debug_pub.log_debug (g_level_statement,
164: l_module_name,
165: 'p_end_date =' || p_end_date
166: );
167: okl_debug_pub.log_debug (g_level_statement,
168: l_module_name,
169: 'p_status =' || p_status
170: );
171: okl_debug_pub.log_debug (g_level_statement,
167: okl_debug_pub.log_debug (g_level_statement,
168: l_module_name,
169: 'p_status =' || p_status
170: );
171: okl_debug_pub.log_debug (g_level_statement,
172: l_module_name,
173: 'p_exp_recy =' || p_exp_recy
174: );
175: okl_debug_pub.log_debug (g_level_statement,
171: okl_debug_pub.log_debug (g_level_statement,
172: l_module_name,
173: 'p_exp_recy =' || p_exp_recy
174: );
175: okl_debug_pub.log_debug (g_level_statement,
176: l_module_name,
177: 'p_control_flag =' || p_control_flag
178: );
179: END IF;
290: error_exp_message_table (l_error_exp_tbl_index).status := p_status;
291: END IF;
292:
293: IF (is_debug_procedure_on) THEN
294: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
295: END IF;
296: EXCEPTION
297: WHEN OTHERS THEN
298: IF (is_debug_exception_on) THEN
295: END IF;
296: EXCEPTION
297: WHEN OTHERS THEN
298: IF (is_debug_exception_on) THEN
299: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
300: || sqlcode || ' , SQLERRM : ' || sqlerrm);
301: END IF;
302: -- Set the oracle error message
303: okl_api.set_message (p_app_name => okc_api.g_app_name,
369: -- akrangan added for debug feature start
370: l_module_name VARCHAR2 (500)
371: := g_module_name || 'create_report';
372: is_debug_exception_on BOOLEAN
373: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
374: is_debug_procedure_on BOOLEAN
375: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
376: is_debug_statement_on BOOLEAN
377: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
371: := g_module_name || 'create_report';
372: is_debug_exception_on BOOLEAN
373: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
374: is_debug_procedure_on BOOLEAN
375: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
376: is_debug_statement_on BOOLEAN
377: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
378: -- akrangan added for debug feature end
379: BEGIN
373: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
374: is_debug_procedure_on BOOLEAN
375: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
376: is_debug_statement_on BOOLEAN
377: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
378: -- akrangan added for debug feature end
379: BEGIN
380: IF (is_debug_procedure_on) THEN
381: okl_debug_pub.log_debug (g_level_procedure,
377: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
378: -- akrangan added for debug feature end
379: BEGIN
380: IF (is_debug_procedure_on) THEN
381: okl_debug_pub.log_debug (g_level_procedure,
382: l_module_name,
383: 'Begin(+)'
384: );
385: END IF;
384: );
385: END IF;
386:
387: IF (is_debug_statement_on) THEN
388: okl_debug_pub.log_debug (g_level_statement,
389: l_module_name,
390: 'p_source =' || p_source
391: );
392: okl_debug_pub.log_debug (g_level_statement,
388: okl_debug_pub.log_debug (g_level_statement,
389: l_module_name,
390: 'p_source =' || p_source
391: );
392: okl_debug_pub.log_debug (g_level_statement,
393: l_module_name,
394: 'p_message =' || p_message
395: );
396: END IF;
1077: fnd_file.put_line (fnd_file.output, '');
1078: fnd_file.put_line (fnd_file.output, RPAD (' ', 53, ' ') || l_eop);
1079:
1080: IF (is_debug_procedure_on) THEN
1081: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1082: END IF;
1083: EXCEPTION
1084: WHEN OTHERS THEN
1085: IF (is_debug_exception_on) THEN
1082: END IF;
1083: EXCEPTION
1084: WHEN OTHERS THEN
1085: IF (is_debug_exception_on) THEN
1086: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1087: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1088: END IF;
1089: -- Set the oracle error message
1090: okl_api.set_message (p_app_name => okc_api.g_app_name,
1138: -- akrangan added for debug feature start
1139: l_module_name VARCHAR2 (500)
1140: := g_module_name || 'check_contract';
1141: is_debug_exception_on BOOLEAN
1142: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1143: is_debug_procedure_on BOOLEAN
1144: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1145: is_debug_statement_on BOOLEAN
1146: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1140: := g_module_name || 'check_contract';
1141: is_debug_exception_on BOOLEAN
1142: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1143: is_debug_procedure_on BOOLEAN
1144: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1145: is_debug_statement_on BOOLEAN
1146: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1147: -- akrangan added for debug feature end
1148: BEGIN
1142: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1143: is_debug_procedure_on BOOLEAN
1144: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1145: is_debug_statement_on BOOLEAN
1146: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1147: -- akrangan added for debug feature end
1148: BEGIN
1149: IF (is_debug_procedure_on) THEN
1150: okl_debug_pub.log_debug (g_level_procedure,
1146: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1147: -- akrangan added for debug feature end
1148: BEGIN
1149: IF (is_debug_procedure_on) THEN
1150: okl_debug_pub.log_debug (g_level_procedure,
1151: l_module_name,
1152: 'Begin(+)'
1153: );
1154: END IF;
1153: );
1154: END IF;
1155:
1156: IF (is_debug_statement_on) THEN
1157: okl_debug_pub.log_debug (g_level_statement,
1158: l_module_name,
1159: 'p_chr_id =' || p_chr_id
1160: );
1161: END IF;
1176: END LOOP;
1177: END LOOP;
1178:
1179: IF (is_debug_procedure_on) THEN
1180: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1181: END IF;
1182: EXCEPTION
1183: WHEN OTHERS THEN
1184: IF (is_debug_exception_on) THEN
1181: END IF;
1182: EXCEPTION
1183: WHEN OTHERS THEN
1184: IF (is_debug_exception_on) THEN
1185: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1186: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1187: END IF;
1188: -- Set the oracle error message
1189: okl_api.set_message (p_app_name => okc_api.g_app_name,
1223: -- akrangan added for debug feature start
1224: l_module_name VARCHAR2 (500)
1225: := g_module_name || 'check_if_quotes_existing';
1226: is_debug_exception_on BOOLEAN
1227: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1228: is_debug_procedure_on BOOLEAN
1229: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1230: is_debug_statement_on BOOLEAN
1231: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1225: := g_module_name || 'check_if_quotes_existing';
1226: is_debug_exception_on BOOLEAN
1227: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1228: is_debug_procedure_on BOOLEAN
1229: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1230: is_debug_statement_on BOOLEAN
1231: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1232: -- akrangan added for debug feature end
1233: BEGIN
1227: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1228: is_debug_procedure_on BOOLEAN
1229: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1230: is_debug_statement_on BOOLEAN
1231: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1232: -- akrangan added for debug feature end
1233: BEGIN
1234: IF (is_debug_procedure_on) THEN
1235: okl_debug_pub.log_debug (g_level_procedure,
1231: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1232: -- akrangan added for debug feature end
1233: BEGIN
1234: IF (is_debug_procedure_on) THEN
1235: okl_debug_pub.log_debug (g_level_procedure,
1236: l_module_name,
1237: 'Begin(+)'
1238: );
1239: END IF;
1238: );
1239: END IF;
1240:
1241: IF (is_debug_statement_on) THEN
1242: okl_debug_pub.log_debug (g_level_statement,
1243: l_module_name,
1244: 'p_term_rec.p_contract_id ='
1245: || p_term_rec.p_contract_id
1246: );
1261: x_return_status := l_return_status;
1262: x_quotes_found := l_quotes_found;
1263:
1264: IF (is_debug_procedure_on) THEN
1265: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1266: END IF;
1267: EXCEPTION
1268: WHEN OTHERS THEN
1269: IF (is_debug_exception_on) THEN
1266: END IF;
1267: EXCEPTION
1268: WHEN OTHERS THEN
1269: IF (is_debug_exception_on) THEN
1270: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1271: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1272: END IF;
1273: IF k_quotes_csr%ISOPEN THEN
1274: CLOSE k_quotes_csr;
1346: l_trn_exists VARCHAR2 (1) := 'N';
1347: -- akrangan added for debug feature start
1348: l_module_name VARCHAR2 (500) := g_module_name || 'get_trn_rec';
1349: is_debug_exception_on BOOLEAN
1350: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1351: is_debug_procedure_on BOOLEAN
1352: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1353: is_debug_statement_on BOOLEAN
1354: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1348: l_module_name VARCHAR2 (500) := g_module_name || 'get_trn_rec';
1349: is_debug_exception_on BOOLEAN
1350: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1351: is_debug_procedure_on BOOLEAN
1352: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1353: is_debug_statement_on BOOLEAN
1354: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1355: -- akrangan added for debug feature end
1356: BEGIN
1350: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1351: is_debug_procedure_on BOOLEAN
1352: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1353: is_debug_statement_on BOOLEAN
1354: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1355: -- akrangan added for debug feature end
1356: BEGIN
1357: IF (is_debug_procedure_on) THEN
1358: okl_debug_pub.log_debug (g_level_procedure,
1354: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1355: -- akrangan added for debug feature end
1356: BEGIN
1357: IF (is_debug_procedure_on) THEN
1358: okl_debug_pub.log_debug (g_level_procedure,
1359: l_module_name,
1360: 'Begin(+)'
1361: );
1362: END IF;
1361: );
1362: END IF;
1363:
1364: IF (is_debug_statement_on) THEN
1365: okl_debug_pub.log_debug (g_level_statement,
1366: l_module_name,
1367: 'p_contract_id =' || p_contract_id
1368: );
1369: END IF;
1408: x_tcnv_rec := lp_tcnv_rec;
1409: x_trn_exists := l_trn_exists;
1410:
1411: IF (is_debug_procedure_on) THEN
1412: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1413: END IF;
1414: EXCEPTION
1415: WHEN OTHERS THEN
1416: IF (is_debug_exception_on) THEN
1413: END IF;
1414: EXCEPTION
1415: WHEN OTHERS THEN
1416: IF (is_debug_exception_on) THEN
1417: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1418: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1419: END IF;
1420: IF trn_rec_csr%ISOPEN THEN
1421: CLOSE trn_rec_csr;
1476: l_trn_exists VARCHAR2 (1) := 'N';
1477: -- akrangan added for debug feature start
1478: l_module_name VARCHAR2 (500) := g_module_name || 'get_trn_rec';
1479: is_debug_exception_on BOOLEAN
1480: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1481: is_debug_procedure_on BOOLEAN
1482: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1483: is_debug_statement_on BOOLEAN
1484: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1478: l_module_name VARCHAR2 (500) := g_module_name || 'get_trn_rec';
1479: is_debug_exception_on BOOLEAN
1480: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1481: is_debug_procedure_on BOOLEAN
1482: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1483: is_debug_statement_on BOOLEAN
1484: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1485: -- akrangan added for debug feature end
1486: BEGIN
1480: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1481: is_debug_procedure_on BOOLEAN
1482: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1483: is_debug_statement_on BOOLEAN
1484: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1485: -- akrangan added for debug feature end
1486: BEGIN
1487: x_return_status := okl_api.g_ret_sts_success;
1488:
1486: BEGIN
1487: x_return_status := okl_api.g_ret_sts_success;
1488:
1489: IF (is_debug_procedure_on) THEN
1490: okl_debug_pub.log_debug (g_level_procedure,
1491: l_module_name,
1492: 'Begin(+)'
1493: );
1494: END IF;
1493: );
1494: END IF;
1495:
1496: IF (is_debug_statement_on) THEN
1497: okl_debug_pub.log_debug (g_level_statement,
1498: l_module_name,
1499: 'p_trn_id =' || p_trn_id
1500: );
1501: END IF;
1537: x_tcnv_rec := lp_tcnv_rec;
1538: x_trn_exists := l_trn_exists;
1539:
1540: IF (is_debug_procedure_on) THEN
1541: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1542: END IF;
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: IF (is_debug_exception_on) THEN
1542: END IF;
1543: EXCEPTION
1544: WHEN OTHERS THEN
1545: IF (is_debug_exception_on) THEN
1546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1547: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1548: END IF;
1549: IF trn_rec_csr%ISOPEN THEN
1550: CLOSE trn_rec_csr;
1592: -- akrangan added for debug feature start
1593: l_module_name VARCHAR2 (500)
1594: := g_module_name || 'process_termination';
1595: is_debug_exception_on BOOLEAN
1596: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1597: is_debug_procedure_on BOOLEAN
1598: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1599: is_debug_statement_on BOOLEAN
1600: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1594: := g_module_name || 'process_termination';
1595: is_debug_exception_on BOOLEAN
1596: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1597: is_debug_procedure_on BOOLEAN
1598: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1599: is_debug_statement_on BOOLEAN
1600: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1601: -- akrangan added for debug feature end
1602: BEGIN
1596: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1597: is_debug_procedure_on BOOLEAN
1598: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1599: is_debug_statement_on BOOLEAN
1600: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1601: -- akrangan added for debug feature end
1602: BEGIN
1603: okl_api.init_msg_list (p_init_msg_list);
1604:
1602: BEGIN
1603: okl_api.init_msg_list (p_init_msg_list);
1604:
1605: IF (is_debug_procedure_on) THEN
1606: okl_debug_pub.log_debug (g_level_procedure,
1607: l_module_name,
1608: 'Begin(+)'
1609: );
1610: END IF;
1609: );
1610: END IF;
1611:
1612: IF (is_debug_statement_on) THEN
1613: okl_debug_pub.log_debug (g_level_statement,
1614: l_module_name,
1615: 'In param, p_term_rec.p_contract_id: '
1616: || p_term_rec.p_contract_id
1617: );
1614: l_module_name,
1615: 'In param, p_term_rec.p_contract_id: '
1616: || p_term_rec.p_contract_id
1617: );
1618: okl_debug_pub.log_debug
1619: (g_level_statement,
1620: l_module_name,
1621: 'In param, p_term_rec.p_contract_number: '
1622: || p_term_rec.p_contract_number
1620: l_module_name,
1621: 'In param, p_term_rec.p_contract_number: '
1622: || p_term_rec.p_contract_number
1623: );
1624: okl_debug_pub.log_debug
1625: (g_level_statement,
1626: l_module_name,
1627: 'In param, p_term_rec.p_contract_modifier: '
1628: || p_term_rec.p_contract_modifier
1626: l_module_name,
1627: 'In param, p_term_rec.p_contract_modifier: '
1628: || p_term_rec.p_contract_modifier
1629: );
1630: okl_debug_pub.log_debug (g_level_statement,
1631: l_module_name,
1632: 'In param, p_term_rec.p_orig_end_date: '
1633: || p_term_rec.p_orig_end_date
1634: );
1631: l_module_name,
1632: 'In param, p_term_rec.p_orig_end_date: '
1633: || p_term_rec.p_orig_end_date
1634: );
1635: okl_debug_pub.log_debug
1636: (g_level_statement,
1637: l_module_name,
1638: 'In param, p_term_rec.p_contract_version: '
1639: || p_term_rec.p_contract_version
1637: l_module_name,
1638: 'In param, p_term_rec.p_contract_version: '
1639: || p_term_rec.p_contract_version
1640: );
1641: okl_debug_pub.log_debug
1642: (g_level_statement,
1643: l_module_name,
1644: 'In param, p_term_rec.p_termination_date: '
1645: || p_term_rec.p_termination_date
1643: l_module_name,
1644: 'In param, p_term_rec.p_termination_date: '
1645: || p_term_rec.p_termination_date
1646: );
1647: okl_debug_pub.log_debug
1648: (g_level_statement,
1649: l_module_name,
1650: 'In param, p_term_rec.p_termination_reason: '
1651: || p_term_rec.p_termination_reason
1649: l_module_name,
1650: 'In param, p_term_rec.p_termination_reason: '
1651: || p_term_rec.p_termination_reason
1652: );
1653: okl_debug_pub.log_debug (g_level_statement,
1654: l_module_name,
1655: 'In param, p_term_rec.p_quote_id: '
1656: || p_term_rec.p_quote_id
1657: );
1654: l_module_name,
1655: 'In param, p_term_rec.p_quote_id: '
1656: || p_term_rec.p_quote_id
1657: );
1658: okl_debug_pub.log_debug (g_level_statement,
1659: l_module_name,
1660: 'In param, p_term_rec.p_quote_type: '
1661: || p_term_rec.p_quote_type
1662: );
1659: l_module_name,
1660: 'In param, p_term_rec.p_quote_type: '
1661: || p_term_rec.p_quote_type
1662: );
1663: okl_debug_pub.log_debug (g_level_statement,
1664: l_module_name,
1665: 'In param, p_term_rec.p_quote_reason: '
1666: || p_term_rec.p_quote_reason
1667: );
1664: l_module_name,
1665: 'In param, p_term_rec.p_quote_reason: '
1666: || p_term_rec.p_quote_reason
1667: );
1668: okl_debug_pub.log_debug
1669: (g_level_statement,
1670: l_module_name,
1671: 'In param, p_term_rec.p_early_termination_yn: '
1672: || p_term_rec.p_early_termination_yn
1670: l_module_name,
1671: 'In param, p_term_rec.p_early_termination_yn: '
1672: || p_term_rec.p_early_termination_yn
1673: );
1674: okl_debug_pub.log_debug (g_level_statement,
1675: l_module_name,
1676: 'In param, p_term_rec.p_control_flag: '
1677: || p_term_rec.p_control_flag
1678: );
1675: l_module_name,
1676: 'In param, p_term_rec.p_control_flag: '
1677: || p_term_rec.p_control_flag
1678: );
1679: okl_debug_pub.log_debug (g_level_statement,
1680: l_module_name,
1681: 'In param, p_term_rec.p_recycle_flag: '
1682: || p_term_rec.p_recycle_flag
1683: );
1686: -- RMUNJULU 17-NOV-02 Bug # 2484327 Added the if condition
1687: -- If the p_trn_id is passed then from recycle
1688: IF p_trn_id IS NOT NULL AND p_trn_id <> okl_api.g_miss_num THEN
1689: IF (is_debug_statement_on) THEN
1690: okl_debug_pub.log_debug
1691: (g_level_statement,
1692: l_module_name,
1693: 'Before get_trn_rec In param, p_trn_id: '
1694: || p_trn_id
1702: x_tcnv_rec => lp_tcnv_rec
1703: );
1704:
1705: IF (is_debug_statement_on) THEN
1706: okl_debug_pub.log_debug
1707: (g_level_statement,
1708: l_module_name,
1709: 'After get_trn_rec In param, l_return_status: '
1710: || l_return_status
1711: );
1712: END IF;
1713: ELSE
1714: IF (is_debug_statement_on) THEN
1715: okl_debug_pub.log_debug
1716: (g_level_statement,
1717: l_module_name,
1718: 'Before get_trn_rec In param, p_trn_id: '
1719: || p_trn_id
1727: x_tcnv_rec => lp_tcnv_rec
1728: );
1729:
1730: IF (is_debug_statement_on) THEN
1731: okl_debug_pub.log_debug
1732: (g_level_statement,
1733: l_module_name,
1734: 'After get_trn_rec l_return_status: '
1735: || l_return_status
1758: lx_tcnv_rec.ID := okl_api.g_miss_num;
1759: END IF;
1760:
1761: IF (is_debug_statement_on) THEN
1762: okl_debug_pub.log_debug (g_level_statement,
1763: l_module_name,
1764: 'After get_trn_rec l_return_status: '
1765: || l_return_status
1766: );
1766: );
1767: END IF;
1768:
1769: IF (is_debug_statement_on) THEN
1770: okl_debug_pub.log_debug
1771: (g_level_statement,
1772: l_module_name,
1773: 'before OKL_AM_LEASE_LOAN_TRMNT_PUB.lease_loan_termination '
1774: || l_return_status
1786: p_tcnv_rec => lx_tcnv_rec
1787: );
1788:
1789: IF (is_debug_statement_on) THEN
1790: okl_debug_pub.log_debug
1791: (g_level_statement,
1792: l_module_name,
1793: 'After OKL_AM_LEASE_LOAN_TRMNT_PUB.lease_loan_termination l_return_status: '
1794: || l_return_status
1834: x_term_rec := lp_term_rec;
1835: x_tcnv_rec := lx_tcnv_rec;
1836:
1837: IF (is_debug_procedure_on) THEN
1838: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
1839: END IF;
1840: EXCEPTION
1841: WHEN g_exception_halt THEN
1842: IF (is_debug_exception_on) THEN
1839: END IF;
1840: EXCEPTION
1841: WHEN g_exception_halt THEN
1842: IF (is_debug_exception_on) THEN
1843: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'G_EXCEPTION_HALT');
1844: END IF;
1845: x_return_status := l_return_status;
1846: x_term_rec := lp_term_rec;
1847: x_tcnv_rec := lx_tcnv_rec;
1846: x_term_rec := lp_term_rec;
1847: x_tcnv_rec := lx_tcnv_rec;
1848: WHEN OTHERS THEN
1849: IF (is_debug_exception_on) THEN
1850: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1851: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1852: END IF;
1853: x_return_status := l_return_status;
1854: x_term_rec := lp_term_rec;
2075: l_deal_type VARCHAR2 (300);
2076: -- akrangan added for debug feature start
2077: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
2078: is_debug_exception_on BOOLEAN
2079: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2080: is_debug_procedure_on BOOLEAN
2081: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2082: is_debug_statement_on BOOLEAN
2083: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2077: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
2078: is_debug_exception_on BOOLEAN
2079: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2080: is_debug_procedure_on BOOLEAN
2081: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2082: is_debug_statement_on BOOLEAN
2083: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2084: -- akrangan added for debug feature end
2085: BEGIN
2079: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2080: is_debug_procedure_on BOOLEAN
2081: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2082: is_debug_statement_on BOOLEAN
2083: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2084: -- akrangan added for debug feature end
2085: BEGIN
2086: IF (is_debug_procedure_on) THEN
2087: okl_debug_pub.log_debug (g_level_procedure,
2083: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2084: -- akrangan added for debug feature end
2085: BEGIN
2086: IF (is_debug_procedure_on) THEN
2087: okl_debug_pub.log_debug (g_level_procedure,
2088: l_module_name,
2089: 'Begin(+)'
2090: );
2091: END IF;
2090: );
2091: END IF;
2092:
2093: IF (is_debug_statement_on) THEN
2094: okl_debug_pub.log_debug (g_level_statement,
2095: l_module_name,
2096: 'p_contract_id =' || p_contract_id
2097: );
2098: END IF;
2151:
2152: -- rmunjulu LOANS_ENHANCEMENTS
2153: IF l_deal_type LIKE 'LOAN%' THEN
2154: IF (is_debug_statement_on) THEN
2155: okl_debug_pub.log_debug
2156: (g_level_statement,
2157: l_module_name,
2158: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2159: );
2156: (g_level_statement,
2157: l_module_name,
2158: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2159: );
2160: okl_debug_pub.log_debug (g_level_statement,
2161: l_module_name,
2162: 'In param, p_contract_id: '
2163: || lp_term_rec.p_contract_id
2164: );
2173: p_date => SYSDATE
2174: );
2175:
2176: IF (is_debug_statement_on) THEN
2177: okl_debug_pub.log_debug
2178: (g_level_statement,
2179: l_module_name,
2180: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2181: );
2178: (g_level_statement,
2179: l_module_name,
2180: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2181: );
2182: okl_debug_pub.log_debug (g_level_statement,
2183: l_module_name,
2184: 'l_prin_bal: ' || l_prin_bal
2185: );
2186: okl_debug_pub.log_debug (g_level_statement,
2182: okl_debug_pub.log_debug (g_level_statement,
2183: l_module_name,
2184: 'l_prin_bal: ' || l_prin_bal
2185: );
2186: okl_debug_pub.log_debug (g_level_statement,
2187: l_module_name,
2188: 'l_return_status: '
2189: || l_return_status
2190: );
2199: lx_term_tbl (i).p_contract_number :=
2200: lp_term_rec.p_contract_number;
2201:
2202: IF (is_debug_statement_on) THEN
2203: okl_debug_pub.log_debug (g_level_statement,
2204: l_module_name,
2205: 'Before process_termination'
2206: );
2207: okl_debug_pub.log_debug
2203: okl_debug_pub.log_debug (g_level_statement,
2204: l_module_name,
2205: 'Before process_termination'
2206: );
2207: okl_debug_pub.log_debug
2208: (g_level_statement,
2209: l_module_name,
2210: 'In param, p_term_rec.p_contract_id: '
2211: || lp_term_rec.p_contract_id
2209: l_module_name,
2210: 'In param, p_term_rec.p_contract_id: '
2211: || lp_term_rec.p_contract_id
2212: );
2213: okl_debug_pub.log_debug
2214: (g_level_statement,
2215: l_module_name,
2216: 'In param, p_term_rec.p_contract_number: '
2217: || lp_term_rec.p_contract_number
2228: x_term_rec => lx_term_rec
2229: );
2230:
2231: IF (is_debug_statement_on) THEN
2232: okl_debug_pub.log_debug (g_level_statement,
2233: l_module_name,
2234: 'After process_termination '
2235: );
2236: okl_debug_pub.log_debug (g_level_statement,
2232: okl_debug_pub.log_debug (g_level_statement,
2233: l_module_name,
2234: 'After process_termination '
2235: );
2236: okl_debug_pub.log_debug (g_level_statement,
2237: l_module_name,
2238: 'l_return_status: '
2239: || l_return_status
2240: );
2240: );
2241: END IF;
2242:
2243: IF (is_debug_statement_on) THEN
2244: okl_debug_pub.log_debug (g_level_statement,
2245: l_module_name,
2246: 'Before check_contract'
2247: );
2248: okl_debug_pub.log_debug (g_level_statement,
2244: okl_debug_pub.log_debug (g_level_statement,
2245: l_module_name,
2246: 'Before check_contract'
2247: );
2248: okl_debug_pub.log_debug (g_level_statement,
2249: l_module_name,
2250: 'In param, p_contract_id: '
2251: || lp_term_rec.p_contract_id
2252: );
2260: x_control_flag => l_control_flag
2261: );
2262:
2263: IF (is_debug_statement_on) THEN
2264: okl_debug_pub.log_debug (g_level_statement,
2265: l_module_name,
2266: 'After check_contract '
2267: );
2268: okl_debug_pub.log_debug (g_level_statement,
2264: okl_debug_pub.log_debug (g_level_statement,
2265: l_module_name,
2266: 'After check_contract '
2267: );
2268: okl_debug_pub.log_debug (g_level_statement,
2269: l_module_name,
2270: 'x_start_date: ' || l_start_date
2271: );
2272: okl_debug_pub.log_debug (g_level_statement,
2268: okl_debug_pub.log_debug (g_level_statement,
2269: l_module_name,
2270: 'x_start_date: ' || l_start_date
2271: );
2272: okl_debug_pub.log_debug (g_level_statement,
2273: l_module_name,
2274: 'x_end_date: ' || l_end_date
2275: );
2276: okl_debug_pub.log_debug (g_level_statement,
2272: okl_debug_pub.log_debug (g_level_statement,
2273: l_module_name,
2274: 'x_end_date: ' || l_end_date
2275: );
2276: okl_debug_pub.log_debug (g_level_statement,
2277: l_module_name,
2278: 'x_status: ' || l_status
2279: );
2280: okl_debug_pub.log_debug (g_level_statement,
2276: okl_debug_pub.log_debug (g_level_statement,
2277: l_module_name,
2278: 'x_status: ' || l_status
2279: );
2280: okl_debug_pub.log_debug (g_level_statement,
2281: l_module_name,
2282: 'x_control_flag: '
2283: || l_control_flag
2284: );
2281: l_module_name,
2282: 'x_control_flag: '
2283: || l_control_flag
2284: );
2285: okl_debug_pub.log_debug (g_level_statement,
2286: l_module_name,
2287: 'l_return_status: '
2288: || l_return_status
2289: );
2299: p_control_flag => l_control_flag
2300: );
2301:
2302: IF (is_debug_statement_on) THEN
2303: okl_debug_pub.log_debug (g_level_statement,
2304: l_module_name,
2305: 'After fnd_output '
2306: );
2307: okl_debug_pub.log_debug (g_level_statement,
2303: okl_debug_pub.log_debug (g_level_statement,
2304: l_module_name,
2305: 'After fnd_output '
2306: );
2307: okl_debug_pub.log_debug (g_level_statement,
2308: l_module_name,
2309: 'l_return_status: '
2310: || l_return_status
2311: );
2324: -- rmunjulu 4016497
2325: create_report;
2326: ELSE
2327: IF (is_debug_statement_on) THEN
2328: okl_debug_pub.log_debug (g_level_statement,
2329: l_module_name,
2330: 'Before check_contract'
2331: );
2332: okl_debug_pub.log_debug (g_level_statement,
2328: okl_debug_pub.log_debug (g_level_statement,
2329: l_module_name,
2330: 'Before check_contract'
2331: );
2332: okl_debug_pub.log_debug (g_level_statement,
2333: l_module_name,
2334: 'In param, p_contract_id: '
2335: || lp_term_rec.p_contract_id
2336: );
2344: x_control_flag => l_control_flag
2345: );
2346:
2347: IF (is_debug_statement_on) THEN
2348: okl_debug_pub.log_debug (g_level_statement,
2349: l_module_name,
2350: 'After check_contract '
2351: );
2352: okl_debug_pub.log_debug (g_level_statement,
2348: okl_debug_pub.log_debug (g_level_statement,
2349: l_module_name,
2350: 'After check_contract '
2351: );
2352: okl_debug_pub.log_debug (g_level_statement,
2353: l_module_name,
2354: 'x_start_date: ' || l_start_date
2355: );
2356: okl_debug_pub.log_debug (g_level_statement,
2352: okl_debug_pub.log_debug (g_level_statement,
2353: l_module_name,
2354: 'x_start_date: ' || l_start_date
2355: );
2356: okl_debug_pub.log_debug (g_level_statement,
2357: l_module_name,
2358: 'x_end_date: ' || l_end_date
2359: );
2360: okl_debug_pub.log_debug (g_level_statement,
2356: okl_debug_pub.log_debug (g_level_statement,
2357: l_module_name,
2358: 'x_end_date: ' || l_end_date
2359: );
2360: okl_debug_pub.log_debug (g_level_statement,
2361: l_module_name,
2362: 'x_status: ' || l_status
2363: );
2364: okl_debug_pub.log_debug (g_level_statement,
2360: okl_debug_pub.log_debug (g_level_statement,
2361: l_module_name,
2362: 'x_status: ' || l_status
2363: );
2364: okl_debug_pub.log_debug (g_level_statement,
2365: l_module_name,
2366: 'x_control_flag: '
2367: || l_control_flag
2368: );
2365: l_module_name,
2366: 'x_control_flag: '
2367: || l_control_flag
2368: );
2369: okl_debug_pub.log_debug (g_level_statement,
2370: l_module_name,
2371: 'l_return_status: '
2372: || l_return_status
2373: );
2373: );
2374: END IF;
2375:
2376: IF (is_debug_statement_on) THEN
2377: okl_debug_pub.log_debug (g_level_statement,
2378: l_module_name,
2379: 'Before fnd_output '
2380: );
2381: okl_debug_pub.log_debug
2377: okl_debug_pub.log_debug (g_level_statement,
2378: l_module_name,
2379: 'Before fnd_output '
2380: );
2381: okl_debug_pub.log_debug
2382: (g_level_statement,
2383: l_module_name,
2384: 'In param, p_term_rec.p_contract_id: '
2385: || lp_term_rec.p_contract_id
2383: l_module_name,
2384: 'In param, p_term_rec.p_contract_id: '
2385: || lp_term_rec.p_contract_id
2386: );
2387: okl_debug_pub.log_debug
2388: (g_level_statement,
2389: l_module_name,
2390: 'In param, p_term_rec.p_contract_number: '
2391: || lp_term_rec.p_contract_number
2402: p_control_flag => 'FAIL'
2403: );
2404:
2405: IF (is_debug_statement_on) THEN
2406: okl_debug_pub.log_debug (g_level_statement,
2407: l_module_name,
2408: 'After fnd_output '
2409: );
2410: okl_debug_pub.log_debug (g_level_statement,
2406: okl_debug_pub.log_debug (g_level_statement,
2407: l_module_name,
2408: 'After fnd_output '
2409: );
2410: okl_debug_pub.log_debug (g_level_statement,
2411: l_module_name,
2412: 'l_return_status: '
2413: || l_return_status
2414: );
2421: END IF;
2422: ELSIF NVL (l_recy_chr_yn, 'N') = 'Y' THEN
2423: -- Contract has been recycled
2424: IF (is_debug_statement_on) THEN
2425: okl_debug_pub.log_debug (g_level_statement,
2426: l_module_name,
2427: 'Before process_termination'
2428: );
2429: okl_debug_pub.log_debug
2425: okl_debug_pub.log_debug (g_level_statement,
2426: l_module_name,
2427: 'Before process_termination'
2428: );
2429: okl_debug_pub.log_debug
2430: (g_level_statement,
2431: l_module_name,
2432: 'In param, p_term_rec.p_contract_id: '
2433: || lp_term_rec.p_contract_id
2431: l_module_name,
2432: 'In param, p_term_rec.p_contract_id: '
2433: || lp_term_rec.p_contract_id
2434: );
2435: okl_debug_pub.log_debug
2436: (g_level_statement,
2437: l_module_name,
2438: 'In param, p_term_rec.p_contract_number: '
2439: || lp_term_rec.p_contract_number
2451: x_term_rec => lx_term_rec
2452: );
2453:
2454: IF (is_debug_statement_on) THEN
2455: okl_debug_pub.log_debug (g_level_statement,
2456: l_module_name,
2457: 'After process_termination '
2458: );
2459: okl_debug_pub.log_debug (g_level_statement,
2455: okl_debug_pub.log_debug (g_level_statement,
2456: l_module_name,
2457: 'After process_termination '
2458: );
2459: okl_debug_pub.log_debug (g_level_statement,
2460: l_module_name,
2461: 'l_return_status: '
2462: || l_return_status
2463: );
2463: );
2464: END IF;
2465:
2466: IF (is_debug_statement_on) THEN
2467: okl_debug_pub.log_debug (g_level_statement,
2468: l_module_name,
2469: 'Before check_contract'
2470: );
2471: okl_debug_pub.log_debug (g_level_statement,
2467: okl_debug_pub.log_debug (g_level_statement,
2468: l_module_name,
2469: 'Before check_contract'
2470: );
2471: okl_debug_pub.log_debug (g_level_statement,
2472: l_module_name,
2473: 'In param, p_contract_id: '
2474: || lp_term_rec.p_contract_id
2475: );
2483: x_control_flag => l_control_flag
2484: );
2485:
2486: IF (is_debug_statement_on) THEN
2487: okl_debug_pub.log_debug (g_level_statement,
2488: l_module_name,
2489: 'After check_contract '
2490: );
2491: okl_debug_pub.log_debug (g_level_statement,
2487: okl_debug_pub.log_debug (g_level_statement,
2488: l_module_name,
2489: 'After check_contract '
2490: );
2491: okl_debug_pub.log_debug (g_level_statement,
2492: l_module_name,
2493: 'x_start_date: ' || l_start_date
2494: );
2495: okl_debug_pub.log_debug (g_level_statement,
2491: okl_debug_pub.log_debug (g_level_statement,
2492: l_module_name,
2493: 'x_start_date: ' || l_start_date
2494: );
2495: okl_debug_pub.log_debug (g_level_statement,
2496: l_module_name,
2497: 'x_end_date: ' || l_end_date
2498: );
2499: okl_debug_pub.log_debug (g_level_statement,
2495: okl_debug_pub.log_debug (g_level_statement,
2496: l_module_name,
2497: 'x_end_date: ' || l_end_date
2498: );
2499: okl_debug_pub.log_debug (g_level_statement,
2500: l_module_name,
2501: 'x_status: ' || l_status
2502: );
2503: okl_debug_pub.log_debug (g_level_statement,
2499: okl_debug_pub.log_debug (g_level_statement,
2500: l_module_name,
2501: 'x_status: ' || l_status
2502: );
2503: okl_debug_pub.log_debug (g_level_statement,
2504: l_module_name,
2505: 'x_control_flag: '
2506: || l_control_flag
2507: );
2504: l_module_name,
2505: 'x_control_flag: '
2506: || l_control_flag
2507: );
2508: okl_debug_pub.log_debug (g_level_statement,
2509: l_module_name,
2510: 'l_return_status: '
2511: || l_return_status
2512: );
2512: );
2513: END IF;
2514:
2515: IF (is_debug_statement_on) THEN
2516: okl_debug_pub.log_debug (g_level_statement,
2517: l_module_name,
2518: 'Before fnd_output '
2519: );
2520: okl_debug_pub.log_debug
2516: okl_debug_pub.log_debug (g_level_statement,
2517: l_module_name,
2518: 'Before fnd_output '
2519: );
2520: okl_debug_pub.log_debug
2521: (g_level_statement,
2522: l_module_name,
2523: 'In param, p_term_rec.p_contract_id: '
2524: || lp_term_rec.p_contract_id
2522: l_module_name,
2523: 'In param, p_term_rec.p_contract_id: '
2524: || lp_term_rec.p_contract_id
2525: );
2526: okl_debug_pub.log_debug
2527: (g_level_statement,
2528: l_module_name,
2529: 'In param, p_term_rec.p_contract_number: '
2530: || lp_term_rec.p_contract_number
2541: p_control_flag => l_control_flag
2542: );
2543:
2544: IF (is_debug_statement_on) THEN
2545: okl_debug_pub.log_debug (g_level_statement,
2546: l_module_name,
2547: 'After fnd_output '
2548: );
2549: okl_debug_pub.log_debug (g_level_statement,
2545: okl_debug_pub.log_debug (g_level_statement,
2546: l_module_name,
2547: 'After fnd_output '
2548: );
2549: okl_debug_pub.log_debug (g_level_statement,
2550: l_module_name,
2551: 'l_return_status: '
2552: || l_return_status
2553: );
2574: -- Get the message
2575: l_message := fnd_message.get;
2576:
2577: IF (is_debug_statement_on) THEN
2578: okl_debug_pub.log_debug (g_level_statement,
2579: l_module_name,
2580: 'Before check_contract'
2581: );
2582: okl_debug_pub.log_debug (g_level_statement,
2578: okl_debug_pub.log_debug (g_level_statement,
2579: l_module_name,
2580: 'Before check_contract'
2581: );
2582: okl_debug_pub.log_debug (g_level_statement,
2583: l_module_name,
2584: 'In param, p_contract_id: '
2585: || lp_term_rec.p_contract_id
2586: );
2594: x_control_flag => l_control_flag
2595: );
2596:
2597: IF (is_debug_statement_on) THEN
2598: okl_debug_pub.log_debug (g_level_statement,
2599: l_module_name,
2600: 'After check_contract '
2601: );
2602: okl_debug_pub.log_debug (g_level_statement,
2598: okl_debug_pub.log_debug (g_level_statement,
2599: l_module_name,
2600: 'After check_contract '
2601: );
2602: okl_debug_pub.log_debug (g_level_statement,
2603: l_module_name,
2604: 'x_start_date: ' || l_start_date
2605: );
2606: okl_debug_pub.log_debug (g_level_statement,
2602: okl_debug_pub.log_debug (g_level_statement,
2603: l_module_name,
2604: 'x_start_date: ' || l_start_date
2605: );
2606: okl_debug_pub.log_debug (g_level_statement,
2607: l_module_name,
2608: 'x_end_date: ' || l_end_date
2609: );
2610: okl_debug_pub.log_debug (g_level_statement,
2606: okl_debug_pub.log_debug (g_level_statement,
2607: l_module_name,
2608: 'x_end_date: ' || l_end_date
2609: );
2610: okl_debug_pub.log_debug (g_level_statement,
2611: l_module_name,
2612: 'x_status: ' || l_status
2613: );
2614: okl_debug_pub.log_debug (g_level_statement,
2610: okl_debug_pub.log_debug (g_level_statement,
2611: l_module_name,
2612: 'x_status: ' || l_status
2613: );
2614: okl_debug_pub.log_debug (g_level_statement,
2615: l_module_name,
2616: 'x_control_flag: '
2617: || l_control_flag
2618: );
2615: l_module_name,
2616: 'x_control_flag: '
2617: || l_control_flag
2618: );
2619: okl_debug_pub.log_debug (g_level_statement,
2620: l_module_name,
2621: 'l_return_status: '
2622: || l_return_status
2623: );
2623: );
2624: END IF;
2625:
2626: IF (is_debug_statement_on) THEN
2627: okl_debug_pub.log_debug (g_level_statement,
2628: l_module_name,
2629: 'Before fnd_output '
2630: );
2631: okl_debug_pub.log_debug
2627: okl_debug_pub.log_debug (g_level_statement,
2628: l_module_name,
2629: 'Before fnd_output '
2630: );
2631: okl_debug_pub.log_debug
2632: (g_level_statement,
2633: l_module_name,
2634: 'In param, p_term_rec.p_contract_id: '
2635: || lp_term_rec.p_contract_id
2633: l_module_name,
2634: 'In param, p_term_rec.p_contract_id: '
2635: || lp_term_rec.p_contract_id
2636: );
2637: okl_debug_pub.log_debug
2638: (g_level_statement,
2639: l_module_name,
2640: 'In param, p_term_rec.p_contract_number: '
2641: || lp_term_rec.p_contract_number
2652: p_control_flag => NULL
2653: ); -- Pass NULL so that it goes to ELSE of this API
2654:
2655: IF (is_debug_statement_on) THEN
2656: okl_debug_pub.log_debug (g_level_statement,
2657: l_module_name,
2658: 'After fnd_output '
2659: );
2660: okl_debug_pub.log_debug (g_level_statement,
2656: okl_debug_pub.log_debug (g_level_statement,
2657: l_module_name,
2658: 'After fnd_output '
2659: );
2660: okl_debug_pub.log_debug (g_level_statement,
2661: l_module_name,
2662: 'l_return_status: '
2663: || l_return_status
2664: );
2717: lx_term_tbl (i).p_contract_number :=
2718: lp_term_rec.p_contract_number;
2719:
2720: IF (is_debug_statement_on) THEN
2721: okl_debug_pub.log_debug (g_level_statement,
2722: l_module_name,
2723: 'Before process_termination'
2724: );
2725: okl_debug_pub.log_debug
2721: okl_debug_pub.log_debug (g_level_statement,
2722: l_module_name,
2723: 'Before process_termination'
2724: );
2725: okl_debug_pub.log_debug
2726: (g_level_statement,
2727: l_module_name,
2728: 'In param, p_term_rec.p_contract_id: '
2729: || lp_term_rec.p_contract_id
2727: l_module_name,
2728: 'In param, p_term_rec.p_contract_id: '
2729: || lp_term_rec.p_contract_id
2730: );
2731: okl_debug_pub.log_debug
2732: (g_level_statement,
2733: l_module_name,
2734: 'In param, p_term_rec.p_contract_number: '
2735: || lp_term_rec.p_contract_number
2746: x_term_rec => lx_term_rec
2747: );
2748:
2749: IF (is_debug_statement_on) THEN
2750: okl_debug_pub.log_debug (g_level_statement,
2751: l_module_name,
2752: 'After process_termination '
2753: );
2754: okl_debug_pub.log_debug (g_level_statement,
2750: okl_debug_pub.log_debug (g_level_statement,
2751: l_module_name,
2752: 'After process_termination '
2753: );
2754: okl_debug_pub.log_debug (g_level_statement,
2755: l_module_name,
2756: 'l_return_status: '
2757: || l_return_status
2758: );
2759: END IF;
2760:
2761: -- RMUNJULU 2730738 For proper output file
2762: IF (is_debug_statement_on) THEN
2763: okl_debug_pub.log_debug (g_level_statement,
2764: l_module_name,
2765: 'Before check_contract'
2766: );
2767: okl_debug_pub.log_debug (g_level_statement,
2763: okl_debug_pub.log_debug (g_level_statement,
2764: l_module_name,
2765: 'Before check_contract'
2766: );
2767: okl_debug_pub.log_debug (g_level_statement,
2768: l_module_name,
2769: 'In param, p_contract_id: '
2770: || lp_term_rec.p_contract_id
2771: );
2778: x_control_flag => l_control_flag
2779: );
2780:
2781: IF (is_debug_statement_on) THEN
2782: okl_debug_pub.log_debug (g_level_statement,
2783: l_module_name,
2784: 'After check_contract '
2785: );
2786: okl_debug_pub.log_debug (g_level_statement,
2782: okl_debug_pub.log_debug (g_level_statement,
2783: l_module_name,
2784: 'After check_contract '
2785: );
2786: okl_debug_pub.log_debug (g_level_statement,
2787: l_module_name,
2788: 'x_start_date: ' || l_start_date
2789: );
2790: okl_debug_pub.log_debug (g_level_statement,
2786: okl_debug_pub.log_debug (g_level_statement,
2787: l_module_name,
2788: 'x_start_date: ' || l_start_date
2789: );
2790: okl_debug_pub.log_debug (g_level_statement,
2791: l_module_name,
2792: 'x_end_date: ' || l_end_date
2793: );
2794: okl_debug_pub.log_debug (g_level_statement,
2790: okl_debug_pub.log_debug (g_level_statement,
2791: l_module_name,
2792: 'x_end_date: ' || l_end_date
2793: );
2794: okl_debug_pub.log_debug (g_level_statement,
2795: l_module_name,
2796: 'x_status: ' || l_status
2797: );
2798: okl_debug_pub.log_debug (g_level_statement,
2794: okl_debug_pub.log_debug (g_level_statement,
2795: l_module_name,
2796: 'x_status: ' || l_status
2797: );
2798: okl_debug_pub.log_debug (g_level_statement,
2799: l_module_name,
2800: 'x_control_flag: '
2801: || l_control_flag
2802: );
2799: l_module_name,
2800: 'x_control_flag: '
2801: || l_control_flag
2802: );
2803: okl_debug_pub.log_debug (g_level_statement,
2804: l_module_name,
2805: 'l_return_status: '
2806: || l_return_status
2807: );
2807: );
2808: END IF;
2809:
2810: IF (is_debug_statement_on) THEN
2811: okl_debug_pub.log_debug (g_level_statement,
2812: l_module_name,
2813: 'Before fnd_output '
2814: );
2815: okl_debug_pub.log_debug
2811: okl_debug_pub.log_debug (g_level_statement,
2812: l_module_name,
2813: 'Before fnd_output '
2814: );
2815: okl_debug_pub.log_debug
2816: (g_level_statement,
2817: l_module_name,
2818: 'In param, p_term_rec.p_contract_id: '
2819: || lp_term_rec.p_contract_id
2817: l_module_name,
2818: 'In param, p_term_rec.p_contract_id: '
2819: || lp_term_rec.p_contract_id
2820: );
2821: okl_debug_pub.log_debug
2822: (g_level_statement,
2823: l_module_name,
2824: 'In param, p_term_rec.p_contract_number: '
2825: || lp_term_rec.p_contract_number
2836: p_control_flag => l_control_flag
2837: );
2838:
2839: IF (is_debug_statement_on) THEN
2840: okl_debug_pub.log_debug (g_level_statement,
2841: l_module_name,
2842: 'After fnd_output '
2843: );
2844: okl_debug_pub.log_debug (g_level_statement,
2840: okl_debug_pub.log_debug (g_level_statement,
2841: l_module_name,
2842: 'After fnd_output '
2843: );
2844: okl_debug_pub.log_debug (g_level_statement,
2845: l_module_name,
2846: 'l_return_status: '
2847: || l_return_status
2848: );
2884: lx_term_tbl (i + j).p_contract_number :=
2885: lp_term_rec.p_contract_number;
2886:
2887: IF (is_debug_statement_on) THEN
2888: okl_debug_pub.log_debug (g_level_statement,
2889: l_module_name,
2890: 'Before process_termination'
2891: );
2892: okl_debug_pub.log_debug
2888: okl_debug_pub.log_debug (g_level_statement,
2889: l_module_name,
2890: 'Before process_termination'
2891: );
2892: okl_debug_pub.log_debug
2893: (g_level_statement,
2894: l_module_name,
2895: 'In param, p_term_rec.p_contract_id: '
2896: || lp_term_rec.p_contract_id
2894: l_module_name,
2895: 'In param, p_term_rec.p_contract_id: '
2896: || lp_term_rec.p_contract_id
2897: );
2898: okl_debug_pub.log_debug
2899: (g_level_statement,
2900: l_module_name,
2901: 'In param, p_term_rec.p_contract_number: '
2902: || lp_term_rec.p_contract_number
2915: x_term_rec => lx_term_rec
2916: );
2917:
2918: IF (is_debug_statement_on) THEN
2919: okl_debug_pub.log_debug (g_level_statement,
2920: l_module_name,
2921: 'After process_termination '
2922: );
2923: okl_debug_pub.log_debug (g_level_statement,
2919: okl_debug_pub.log_debug (g_level_statement,
2920: l_module_name,
2921: 'After process_termination '
2922: );
2923: okl_debug_pub.log_debug (g_level_statement,
2924: l_module_name,
2925: 'l_return_status: ' || l_return_status
2926: );
2927: END IF;
2926: );
2927: END IF;
2928:
2929: IF (is_debug_statement_on) THEN
2930: okl_debug_pub.log_debug (g_level_statement,
2931: l_module_name,
2932: 'Before check_contract'
2933: );
2934: okl_debug_pub.log_debug (g_level_statement,
2930: okl_debug_pub.log_debug (g_level_statement,
2931: l_module_name,
2932: 'Before check_contract'
2933: );
2934: okl_debug_pub.log_debug (g_level_statement,
2935: l_module_name,
2936: 'In param, p_contract_id: '
2937: || lp_term_rec.p_contract_id
2938: );
2946: x_control_flag => l_control_flag
2947: );
2948:
2949: IF (is_debug_statement_on) THEN
2950: okl_debug_pub.log_debug (g_level_statement,
2951: l_module_name,
2952: 'After check_contract '
2953: );
2954: okl_debug_pub.log_debug (g_level_statement,
2950: okl_debug_pub.log_debug (g_level_statement,
2951: l_module_name,
2952: 'After check_contract '
2953: );
2954: okl_debug_pub.log_debug (g_level_statement,
2955: l_module_name,
2956: 'x_start_date: ' || l_start_date
2957: );
2958: okl_debug_pub.log_debug (g_level_statement,
2954: okl_debug_pub.log_debug (g_level_statement,
2955: l_module_name,
2956: 'x_start_date: ' || l_start_date
2957: );
2958: okl_debug_pub.log_debug (g_level_statement,
2959: l_module_name,
2960: 'x_end_date: ' || l_end_date
2961: );
2962: okl_debug_pub.log_debug (g_level_statement,
2958: okl_debug_pub.log_debug (g_level_statement,
2959: l_module_name,
2960: 'x_end_date: ' || l_end_date
2961: );
2962: okl_debug_pub.log_debug (g_level_statement,
2963: l_module_name,
2964: 'x_status: ' || l_status
2965: );
2966: okl_debug_pub.log_debug (g_level_statement,
2962: okl_debug_pub.log_debug (g_level_statement,
2963: l_module_name,
2964: 'x_status: ' || l_status
2965: );
2966: okl_debug_pub.log_debug (g_level_statement,
2967: l_module_name,
2968: 'x_control_flag: ' || l_control_flag
2969: );
2970: okl_debug_pub.log_debug (g_level_statement,
2966: okl_debug_pub.log_debug (g_level_statement,
2967: l_module_name,
2968: 'x_control_flag: ' || l_control_flag
2969: );
2970: okl_debug_pub.log_debug (g_level_statement,
2971: l_module_name,
2972: 'l_return_status: ' || l_return_status
2973: );
2974: END IF;
2973: );
2974: END IF;
2975:
2976: IF (is_debug_statement_on) THEN
2977: okl_debug_pub.log_debug (g_level_statement,
2978: l_module_name,
2979: 'Before fnd_output '
2980: );
2981: okl_debug_pub.log_debug
2977: okl_debug_pub.log_debug (g_level_statement,
2978: l_module_name,
2979: 'Before fnd_output '
2980: );
2981: okl_debug_pub.log_debug
2982: (g_level_statement,
2983: l_module_name,
2984: 'In param, p_term_rec.p_contract_id: '
2985: || lp_term_rec.p_contract_id
2983: l_module_name,
2984: 'In param, p_term_rec.p_contract_id: '
2985: || lp_term_rec.p_contract_id
2986: );
2987: okl_debug_pub.log_debug
2988: (g_level_statement,
2989: l_module_name,
2990: 'In param, p_term_rec.p_contract_number: '
2991: || lp_term_rec.p_contract_number
3002: p_control_flag => l_control_flag
3003: );
3004:
3005: IF (is_debug_statement_on) THEN
3006: okl_debug_pub.log_debug (g_level_statement,
3007: l_module_name,
3008: 'After fnd_output '
3009: );
3010: okl_debug_pub.log_debug (g_level_statement,
3006: okl_debug_pub.log_debug (g_level_statement,
3007: l_module_name,
3008: 'After fnd_output '
3009: );
3010: okl_debug_pub.log_debug (g_level_statement,
3011: l_module_name,
3012: 'l_return_status: ' || l_return_status
3013: );
3014: END IF;
3032: x_term_tbl := lx_term_tbl;
3033: x_return_status := l_overall_status;
3034:
3035: IF (is_debug_procedure_on) THEN
3036: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3037: END IF;
3038: EXCEPTION
3039: WHEN okl_api.g_exception_error THEN
3040: IF (is_debug_exception_on) THEN
3037: END IF;
3038: EXCEPTION
3039: WHEN okl_api.g_exception_error THEN
3040: IF (is_debug_exception_on) THEN
3041: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'G_EXCEPTION_ERROR :' );
3042: END IF;
3043: x_return_status := okl_api.g_ret_sts_error;
3044: WHEN okl_api.g_exception_unexpected_error THEN
3045: IF (is_debug_exception_on) THEN
3042: END IF;
3043: x_return_status := okl_api.g_ret_sts_error;
3044: WHEN okl_api.g_exception_unexpected_error THEN
3045: IF (is_debug_exception_on) THEN
3046: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR' );
3047: END IF;
3048: x_return_status := okl_api.g_ret_sts_unexp_error;
3049: WHEN OTHERS THEN
3050: IF (is_debug_exception_on) THEN
3047: END IF;
3048: x_return_status := okl_api.g_ret_sts_unexp_error;
3049: WHEN OTHERS THEN
3050: IF (is_debug_exception_on) THEN
3051: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3052: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3053: END IF;
3054: okl_api.set_message (p_app_name => g_app_name_1,
3055: p_msg_name => g_unexpected_error,
3090: -- akrangan added for debug feature start
3091: l_module_name VARCHAR2 (500)
3092: := g_module_name || 'concurrent_expire_lease_loan';
3093: is_debug_exception_on BOOLEAN
3094: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3095: is_debug_procedure_on BOOLEAN
3096: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3097: is_debug_statement_on BOOLEAN
3098: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3092: := g_module_name || 'concurrent_expire_lease_loan';
3093: is_debug_exception_on BOOLEAN
3094: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3095: is_debug_procedure_on BOOLEAN
3096: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3097: is_debug_statement_on BOOLEAN
3098: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3099: -- akrangan added for debug feature end
3100: BEGIN
3094: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3095: is_debug_procedure_on BOOLEAN
3096: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3097: is_debug_statement_on BOOLEAN
3098: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3099: -- akrangan added for debug feature end
3100: BEGIN
3101: IF (is_debug_procedure_on) THEN
3102: okl_debug_pub.log_debug (g_level_procedure,
3098: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3099: -- akrangan added for debug feature end
3100: BEGIN
3101: IF (is_debug_procedure_on) THEN
3102: okl_debug_pub.log_debug (g_level_procedure,
3103: l_module_name,
3104: 'Begin(+)'
3105: );
3106: END IF;
3105: );
3106: END IF;
3107:
3108: IF (is_debug_statement_on) THEN
3109: okl_debug_pub.log_debug (g_level_statement,
3110: l_module_name,
3111: 'p_contract_id =' || p_contract_id
3112: );
3113: END IF;
3173: fnd_file.put_line(fnd_file.output, '');
3174: */
3175: -- Terminate the contract
3176: IF (is_debug_statement_on) THEN
3177: okl_debug_pub.log_debug (g_level_statement,
3178: l_module_name,
3179: 'before batch_expire_lease_loan'
3180: );
3181: okl_debug_pub.log_debug (g_level_statement,
3177: okl_debug_pub.log_debug (g_level_statement,
3178: l_module_name,
3179: 'before batch_expire_lease_loan'
3180: );
3181: okl_debug_pub.log_debug (g_level_statement,
3182: l_module_name,
3183: 'p_contract_id =' || p_contract_id
3184: );
3185: END IF;
3193: x_term_tbl => l_term_tbl
3194: );
3195:
3196: IF (is_debug_statement_on) THEN
3197: okl_debug_pub.log_debug (g_level_statement,
3198: l_module_name,
3199: 'after batch_expire_lease_loan'
3200: );
3201: okl_debug_pub.log_debug (g_level_statement,
3197: okl_debug_pub.log_debug (g_level_statement,
3198: l_module_name,
3199: 'after batch_expire_lease_loan'
3200: );
3201: okl_debug_pub.log_debug (g_level_statement,
3202: l_module_name,
3203: 'l_return_status ='
3204: || l_return_status
3205: );
3219: fnd_file.put_line(fnd_file.log, '');
3220: fnd_file.put_line(fnd_file.output, '');
3221: */
3222: IF (is_debug_statement_on) THEN
3223: okl_debug_pub.log_debug (g_level_statement,
3224: l_module_name,
3225: 'before batch_expire_lease_loan'
3226: );
3227: okl_debug_pub.log_debug (g_level_statement,
3223: okl_debug_pub.log_debug (g_level_statement,
3224: l_module_name,
3225: 'before batch_expire_lease_loan'
3226: );
3227: okl_debug_pub.log_debug (g_level_statement,
3228: l_module_name,
3229: 'p_contract_id =' || p_contract_id
3230: );
3231: END IF;
3240: x_term_tbl => l_term_tbl
3241: );
3242:
3243: IF (is_debug_statement_on) THEN
3244: okl_debug_pub.log_debug (g_level_statement,
3245: l_module_name,
3246: 'after batch_expire_lease_loan'
3247: );
3248: okl_debug_pub.log_debug (g_level_statement,
3244: okl_debug_pub.log_debug (g_level_statement,
3245: l_module_name,
3246: 'after batch_expire_lease_loan'
3247: );
3248: okl_debug_pub.log_debug (g_level_statement,
3249: l_module_name,
3250: 'l_return_status ='
3251: || l_return_status
3252: );
3256: create_report;
3257: END IF;
3258:
3259: IF (is_debug_procedure_on) THEN
3260: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3261: END IF;
3262: END concurrent_expire_lease_loan;
3263:
3264: PROCEDURE write_to_log (p_message IN VARCHAR2) IS
3265: -- akrangan added for debug feature start
3266: l_module_name VARCHAR2 (500)
3267: := g_module_name || 'write_to_log';
3268: is_debug_exception_on BOOLEAN
3269: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3270: is_debug_procedure_on BOOLEAN
3271: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3272: is_debug_statement_on BOOLEAN
3273: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3267: := g_module_name || 'write_to_log';
3268: is_debug_exception_on BOOLEAN
3269: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3270: is_debug_procedure_on BOOLEAN
3271: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3272: is_debug_statement_on BOOLEAN
3273: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3274: -- akrangan added for debug feature end
3275: BEGIN
3269: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3270: is_debug_procedure_on BOOLEAN
3271: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3272: is_debug_statement_on BOOLEAN
3273: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3274: -- akrangan added for debug feature end
3275: BEGIN
3276: IF (is_debug_procedure_on) THEN
3277: okl_debug_pub.log_debug (g_level_procedure,
3273: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3274: -- akrangan added for debug feature end
3275: BEGIN
3276: IF (is_debug_procedure_on) THEN
3277: okl_debug_pub.log_debug (g_level_procedure,
3278: l_module_name,
3279: 'Begin(+)'
3280: );
3281: END IF;
3280: );
3281: END IF;
3282:
3283: IF (is_debug_statement_on) THEN
3284: okl_debug_pub.log_debug (g_level_statement,
3285: l_module_name,
3286: 'p_message =' || p_message
3287: );
3288: END IF;
3290: -- dbms_output.put_line(p_message);
3291: fnd_file.put_line (fnd_file.output, p_message);
3292:
3293: IF (is_debug_procedure_on) THEN
3294: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3295: END IF;
3296: END write_to_log;
3297:
3298: -- RMUNJULU PERF
3343: l_deal_type VARCHAR2 (300);
3344: -- akrangan added for debug feature start
3345: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
3346: is_debug_exception_on BOOLEAN
3347: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3348: is_debug_procedure_on BOOLEAN
3349: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3350: is_debug_statement_on BOOLEAN
3351: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3345: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
3346: is_debug_exception_on BOOLEAN
3347: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3348: is_debug_procedure_on BOOLEAN
3349: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3350: is_debug_statement_on BOOLEAN
3351: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3352: -- akrangan added for debug feature end
3353: BEGIN
3347: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3348: is_debug_procedure_on BOOLEAN
3349: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3350: is_debug_statement_on BOOLEAN
3351: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3352: -- akrangan added for debug feature end
3353: BEGIN
3354: FOR get_contracts_of_process_rec IN
3355: get_contracts_of_process_csr (p_assigned_processes)
3371:
3372: -- rmunjulu LOANS_ENHANCEMENTS
3373: IF l_deal_type LIKE 'LOAN%' THEN
3374: IF (is_debug_statement_on) THEN
3375: okl_debug_pub.log_debug
3376: (g_level_statement,
3377: l_module_name,
3378: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3379: );
3376: (g_level_statement,
3377: l_module_name,
3378: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3379: );
3380: okl_debug_pub.log_debug (g_level_statement,
3381: l_module_name,
3382: 'In param, p_contract_id: '
3383: || lp_term_rec.p_contract_id
3384: );
3393: p_date => SYSDATE
3394: );
3395:
3396: IF (is_debug_statement_on) THEN
3397: okl_debug_pub.log_debug
3398: (g_level_statement,
3399: l_module_name,
3400: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3401: );
3398: (g_level_statement,
3399: l_module_name,
3400: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3401: );
3402: okl_debug_pub.log_debug (g_level_statement,
3403: l_module_name,
3404: 'l_prin_bal: ' || l_prin_bal
3405: );
3406: okl_debug_pub.log_debug (g_level_statement,
3402: okl_debug_pub.log_debug (g_level_statement,
3403: l_module_name,
3404: 'l_prin_bal: ' || l_prin_bal
3405: );
3406: okl_debug_pub.log_debug (g_level_statement,
3407: l_module_name,
3408: 'l_return_status: ' || l_return_status
3409: );
3410: END IF;
3418: lx_term_tbl (i).p_contract_number :=
3419: lp_term_rec.p_contract_number;
3420:
3421: IF (is_debug_statement_on) THEN
3422: okl_debug_pub.log_debug (g_level_statement,
3423: l_module_name,
3424: 'Before process_termination'
3425: );
3426: okl_debug_pub.log_debug
3422: okl_debug_pub.log_debug (g_level_statement,
3423: l_module_name,
3424: 'Before process_termination'
3425: );
3426: okl_debug_pub.log_debug
3427: (g_level_statement,
3428: l_module_name,
3429: 'In param, p_term_rec.p_contract_id: '
3430: || lp_term_rec.p_contract_id
3428: l_module_name,
3429: 'In param, p_term_rec.p_contract_id: '
3430: || lp_term_rec.p_contract_id
3431: );
3432: okl_debug_pub.log_debug
3433: (g_level_statement,
3434: l_module_name,
3435: 'In param, p_term_rec.p_contract_number: '
3436: || lp_term_rec.p_contract_number
3434: l_module_name,
3435: 'In param, p_term_rec.p_contract_number: '
3436: || lp_term_rec.p_contract_number
3437: );
3438: okl_debug_pub.log_debug (g_level_statement,
3439: l_module_name,
3440: 'In param, p_trn_id: '
3441: || get_contracts_of_process_rec.trx_id
3442: );
3455: x_term_rec => lx_term_rec
3456: );
3457:
3458: IF (is_debug_statement_on) THEN
3459: okl_debug_pub.log_debug (g_level_statement,
3460: l_module_name,
3461: 'After process_termination '
3462: );
3463: okl_debug_pub.log_debug (g_level_statement,
3459: okl_debug_pub.log_debug (g_level_statement,
3460: l_module_name,
3461: 'After process_termination '
3462: );
3463: okl_debug_pub.log_debug (g_level_statement,
3464: l_module_name,
3465: 'l_return_status: ' || l_return_status
3466: );
3467: END IF;
3466: );
3467: END IF;
3468:
3469: IF (is_debug_statement_on) THEN
3470: okl_debug_pub.log_debug (g_level_statement,
3471: l_module_name,
3472: 'Before check_contract'
3473: );
3474: okl_debug_pub.log_debug (g_level_statement,
3470: okl_debug_pub.log_debug (g_level_statement,
3471: l_module_name,
3472: 'Before check_contract'
3473: );
3474: okl_debug_pub.log_debug (g_level_statement,
3475: l_module_name,
3476: 'In param, p_contract_id: '
3477: || lp_term_rec.p_contract_id
3478: );
3486: x_control_flag => l_control_flag
3487: );
3488:
3489: IF (is_debug_statement_on) THEN
3490: okl_debug_pub.log_debug (g_level_statement,
3491: l_module_name,
3492: 'After check_contract '
3493: );
3494: okl_debug_pub.log_debug (g_level_statement,
3490: okl_debug_pub.log_debug (g_level_statement,
3491: l_module_name,
3492: 'After check_contract '
3493: );
3494: okl_debug_pub.log_debug (g_level_statement,
3495: l_module_name,
3496: 'x_start_date: ' || l_start_date
3497: );
3498: okl_debug_pub.log_debug (g_level_statement,
3494: okl_debug_pub.log_debug (g_level_statement,
3495: l_module_name,
3496: 'x_start_date: ' || l_start_date
3497: );
3498: okl_debug_pub.log_debug (g_level_statement,
3499: l_module_name,
3500: 'x_end_date: ' || l_end_date
3501: );
3502: okl_debug_pub.log_debug (g_level_statement,
3498: okl_debug_pub.log_debug (g_level_statement,
3499: l_module_name,
3500: 'x_end_date: ' || l_end_date
3501: );
3502: okl_debug_pub.log_debug (g_level_statement,
3503: l_module_name,
3504: 'x_status: ' || l_status
3505: );
3506: okl_debug_pub.log_debug (g_level_statement,
3502: okl_debug_pub.log_debug (g_level_statement,
3503: l_module_name,
3504: 'x_status: ' || l_status
3505: );
3506: okl_debug_pub.log_debug (g_level_statement,
3507: l_module_name,
3508: 'x_control_flag: ' || l_control_flag
3509: );
3510: okl_debug_pub.log_debug (g_level_statement,
3506: okl_debug_pub.log_debug (g_level_statement,
3507: l_module_name,
3508: 'x_control_flag: ' || l_control_flag
3509: );
3510: okl_debug_pub.log_debug (g_level_statement,
3511: l_module_name,
3512: 'l_return_status: ' || l_return_status
3513: );
3514: END IF;
3516: -- rmunjulu for proper output need to tell if recy or exp
3517: IF get_contracts_of_process_rec.trx_id IS NOT NULL
3518: AND get_contracts_of_process_rec.trx_id <> okl_api.g_miss_num THEN
3519: IF (is_debug_statement_on) THEN
3520: okl_debug_pub.log_debug (g_level_statement,
3521: l_module_name,
3522: 'before fnd_output '
3523: );
3524: END IF;
3532: p_control_flag => l_control_flag
3533: );
3534:
3535: IF (is_debug_statement_on) THEN
3536: okl_debug_pub.log_debug (g_level_statement,
3537: l_module_name,
3538: 'After fnd_output '
3539: );
3540: okl_debug_pub.log_debug (g_level_statement,
3536: okl_debug_pub.log_debug (g_level_statement,
3537: l_module_name,
3538: 'After fnd_output '
3539: );
3540: okl_debug_pub.log_debug (g_level_statement,
3541: l_module_name,
3542: 'l_return_status: '
3543: || l_return_status
3544: );
3544: );
3545: END IF;
3546: ELSE
3547: IF (is_debug_statement_on) THEN
3548: okl_debug_pub.log_debug (g_level_statement,
3549: l_module_name,
3550: 'before fnd_output '
3551: );
3552: END IF;
3560: p_control_flag => l_control_flag
3561: );
3562:
3563: IF (is_debug_statement_on) THEN
3564: okl_debug_pub.log_debug (g_level_statement,
3565: l_module_name,
3566: 'After fnd_output '
3567: );
3568: okl_debug_pub.log_debug (g_level_statement,
3564: okl_debug_pub.log_debug (g_level_statement,
3565: l_module_name,
3566: 'After fnd_output '
3567: );
3568: okl_debug_pub.log_debug (g_level_statement,
3569: l_module_name,
3570: 'l_return_status: '
3571: || l_return_status
3572: );
3590:
3591: x_term_tbl := lx_term_tbl;
3592:
3593: IF (is_debug_procedure_on) THEN
3594: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3595: END IF;
3596: END batch_expire_lease_loan;
3597:
3598: -- RMUNJULU PERF
3614: -- akrangan added for debug feature start
3615: l_module_name VARCHAR2 (500)
3616: := g_module_name || 'write_to_log';
3617: is_debug_exception_on BOOLEAN
3618: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3619: is_debug_procedure_on BOOLEAN
3620: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3621: is_debug_statement_on BOOLEAN
3622: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3616: := g_module_name || 'write_to_log';
3617: is_debug_exception_on BOOLEAN
3618: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3619: is_debug_procedure_on BOOLEAN
3620: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3621: is_debug_statement_on BOOLEAN
3622: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3623: -- akrangan added for debug feature end
3624: BEGIN
3618: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3619: is_debug_procedure_on BOOLEAN
3620: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3621: is_debug_statement_on BOOLEAN
3622: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3623: -- akrangan added for debug feature end
3624: BEGIN
3625: IF (is_debug_procedure_on) THEN
3626: okl_debug_pub.log_debug (g_level_procedure,
3622: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3623: -- akrangan added for debug feature end
3624: BEGIN
3625: IF (is_debug_procedure_on) THEN
3626: okl_debug_pub.log_debug (g_level_procedure,
3627: l_module_name,
3628: 'Begin(+)'
3629: );
3630: END IF;
3629: );
3630: END IF;
3631:
3632: IF (is_debug_statement_on) THEN
3633: okl_debug_pub.log_debug (g_level_statement,
3634: l_module_name,
3635: 'before batch_expire_lease_loan '
3636: );
3637: END IF;
3646: x_term_tbl => l_term_tbl
3647: );
3648:
3649: IF (is_debug_statement_on) THEN
3650: okl_debug_pub.log_debug (g_level_statement,
3651: l_module_name,
3652: 'after batch_expire_lease_loan '
3653: );
3654: okl_debug_pub.log_debug (g_level_statement,
3650: okl_debug_pub.log_debug (g_level_statement,
3651: l_module_name,
3652: 'after batch_expire_lease_loan '
3653: );
3654: okl_debug_pub.log_debug (g_level_statement,
3655: l_module_name,
3656: 'l_return_status = ' || l_return_status
3657: );
3658: END IF;
3664: DELETE FROM okl_parallel_processes
3665: WHERE assigned_process = p_assigned_processes;
3666:
3667: IF (is_debug_procedure_on) THEN
3668: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3669: END IF;
3670: END child_process;
3671:
3672: -- RMUNJULU PERF
3899: -- akrangan added for debug feature start
3900: l_module_name VARCHAR2 (500)
3901: := g_module_name || 'write_to_log';
3902: is_debug_exception_on BOOLEAN
3903: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3904: is_debug_procedure_on BOOLEAN
3905: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3906: is_debug_statement_on BOOLEAN
3907: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3901: := g_module_name || 'write_to_log';
3902: is_debug_exception_on BOOLEAN
3903: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3904: is_debug_procedure_on BOOLEAN
3905: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3906: is_debug_statement_on BOOLEAN
3907: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3908: -- akrangan added for debug feature end
3909: BEGIN
3903: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3904: is_debug_procedure_on BOOLEAN
3905: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3906: is_debug_statement_on BOOLEAN
3907: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3908: -- akrangan added for debug feature end
3909: BEGIN
3910: IF (is_debug_procedure_on) THEN
3911: okl_debug_pub.log_debug (g_level_procedure,
3907: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3908: -- akrangan added for debug feature end
3909: BEGIN
3910: IF (is_debug_procedure_on) THEN
3911: okl_debug_pub.log_debug (g_level_procedure,
3912: l_module_name,
3913: 'Begin(+)'
3914: );
3915: END IF;
3922: ELSIF NVL (p_num_processes, 0) = 1 THEN
3923: --write_to_log('Single worker requested');
3924: -- no need to run algorithm, directly call single thread program here
3925: IF (is_debug_statement_on) THEN
3926: okl_debug_pub.log_debug (g_level_statement,
3927: l_module_name,
3928: 'before batch_expire_lease_loan '
3929: );
3930: END IF;
3939: x_term_tbl => l_term_tbl
3940: );
3941:
3942: IF (is_debug_statement_on) THEN
3943: okl_debug_pub.log_debug (g_level_statement,
3944: l_module_name,
3945: 'after batch_expire_lease_loan '
3946: );
3947: okl_debug_pub.log_debug (g_level_statement,
3943: okl_debug_pub.log_debug (g_level_statement,
3944: l_module_name,
3945: 'after batch_expire_lease_loan '
3946: );
3947: okl_debug_pub.log_debug (g_level_statement,
3948: l_module_name,
3949: 'l_return_status = ' || l_return_status
3950: );
3951: END IF;
4191: ('No workers assigned due to no data found for prcocesing');
4192: END IF; -- l_data_found
4193:
4194: IF (is_debug_procedure_on) THEN
4195: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
4196: END IF;
4197: EXCEPTION
4198: WHEN OTHERS THEN
4199: IF (is_debug_exception_on) THEN
4196: END IF;
4197: EXCEPTION
4198: WHEN OTHERS THEN
4199: IF (is_debug_exception_on) THEN
4200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4201: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4202: END IF;
4203: write_to_log ('Unhandled Exception ' || SQLERRM);
4204: END process_spawner;