[Home] [Help]
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;
2076: l_prin_stream_flag NUMBER; --Added by bkatraga for bug 11924386
2077: -- akrangan added for debug feature start
2078: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
2079: is_debug_exception_on BOOLEAN
2080: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2081: is_debug_procedure_on BOOLEAN
2082: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2083: is_debug_statement_on BOOLEAN
2084: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2078: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
2079: is_debug_exception_on BOOLEAN
2080: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2081: is_debug_procedure_on BOOLEAN
2082: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2083: is_debug_statement_on BOOLEAN
2084: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2085: -- akrangan added for debug feature end
2086: BEGIN
2080: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2081: is_debug_procedure_on BOOLEAN
2082: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2083: is_debug_statement_on BOOLEAN
2084: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2085: -- akrangan added for debug feature end
2086: BEGIN
2087: IF (is_debug_procedure_on) THEN
2088: okl_debug_pub.log_debug (g_level_procedure,
2084: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2085: -- akrangan added for debug feature end
2086: BEGIN
2087: IF (is_debug_procedure_on) THEN
2088: okl_debug_pub.log_debug (g_level_procedure,
2089: l_module_name,
2090: 'Begin(+)'
2091: );
2092: END IF;
2091: );
2092: END IF;
2093:
2094: IF (is_debug_statement_on) THEN
2095: okl_debug_pub.log_debug (g_level_statement,
2096: l_module_name,
2097: 'p_contract_id =' || p_contract_id
2098: );
2099: END IF;
2157: x_return_status => l_return_status,
2158: x_prin_stream_flag => l_prin_stream_flag);
2159:
2160: IF (is_debug_statement_on) THEN
2161: okl_debug_pub.log_debug
2162: (g_level_statement,
2163: l_module_name,
2164: 'After OKL_VARIABLE_INT_UTIL_PVT.check_principal_stream '
2165: );
2162: (g_level_statement,
2163: l_module_name,
2164: 'After OKL_VARIABLE_INT_UTIL_PVT.check_principal_stream '
2165: );
2166: okl_debug_pub.log_debug (g_level_statement,
2167: l_module_name,
2168: 'l_prin_stream_flag: ' || l_prin_stream_flag
2169: );
2170: okl_debug_pub.log_debug (g_level_statement,
2166: okl_debug_pub.log_debug (g_level_statement,
2167: l_module_name,
2168: 'l_prin_stream_flag: ' || l_prin_stream_flag
2169: );
2170: okl_debug_pub.log_debug (g_level_statement,
2171: l_module_name,
2172: 'l_return_status: '
2173: || l_return_status
2174: );
2179: --Modified IF condition by bkatraga for bug 11924386
2180: -- rmunjulu LOANS_ENHANCEMENTS
2181: IF (l_deal_type = 'LOAN-REVOLVING' OR (l_deal_type = 'LOAN' AND l_prin_stream_flag = 0)) THEN
2182: IF (is_debug_statement_on) THEN
2183: okl_debug_pub.log_debug
2184: (g_level_statement,
2185: l_module_name,
2186: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2187: );
2184: (g_level_statement,
2185: l_module_name,
2186: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2187: );
2188: okl_debug_pub.log_debug (g_level_statement,
2189: l_module_name,
2190: 'In param, p_contract_id: '
2191: || lp_term_rec.p_contract_id
2192: );
2201: p_date => SYSDATE
2202: );
2203:
2204: IF (is_debug_statement_on) THEN
2205: okl_debug_pub.log_debug
2206: (g_level_statement,
2207: l_module_name,
2208: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2209: );
2206: (g_level_statement,
2207: l_module_name,
2208: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
2209: );
2210: okl_debug_pub.log_debug (g_level_statement,
2211: l_module_name,
2212: 'l_prin_bal: ' || l_prin_bal
2213: );
2214: okl_debug_pub.log_debug (g_level_statement,
2210: okl_debug_pub.log_debug (g_level_statement,
2211: l_module_name,
2212: 'l_prin_bal: ' || l_prin_bal
2213: );
2214: okl_debug_pub.log_debug (g_level_statement,
2215: l_module_name,
2216: 'l_return_status: '
2217: || l_return_status
2218: );
2227: lx_term_tbl (i).p_contract_number :=
2228: lp_term_rec.p_contract_number;
2229:
2230: IF (is_debug_statement_on) THEN
2231: okl_debug_pub.log_debug (g_level_statement,
2232: l_module_name,
2233: 'Before process_termination'
2234: );
2235: okl_debug_pub.log_debug
2231: okl_debug_pub.log_debug (g_level_statement,
2232: l_module_name,
2233: 'Before process_termination'
2234: );
2235: okl_debug_pub.log_debug
2236: (g_level_statement,
2237: l_module_name,
2238: 'In param, p_term_rec.p_contract_id: '
2239: || lp_term_rec.p_contract_id
2237: l_module_name,
2238: 'In param, p_term_rec.p_contract_id: '
2239: || lp_term_rec.p_contract_id
2240: );
2241: okl_debug_pub.log_debug
2242: (g_level_statement,
2243: l_module_name,
2244: 'In param, p_term_rec.p_contract_number: '
2245: || lp_term_rec.p_contract_number
2256: x_term_rec => lx_term_rec
2257: );
2258:
2259: IF (is_debug_statement_on) THEN
2260: okl_debug_pub.log_debug (g_level_statement,
2261: l_module_name,
2262: 'After process_termination '
2263: );
2264: okl_debug_pub.log_debug (g_level_statement,
2260: okl_debug_pub.log_debug (g_level_statement,
2261: l_module_name,
2262: 'After process_termination '
2263: );
2264: okl_debug_pub.log_debug (g_level_statement,
2265: l_module_name,
2266: 'l_return_status: '
2267: || l_return_status
2268: );
2268: );
2269: END IF;
2270:
2271: IF (is_debug_statement_on) THEN
2272: okl_debug_pub.log_debug (g_level_statement,
2273: l_module_name,
2274: 'Before check_contract'
2275: );
2276: okl_debug_pub.log_debug (g_level_statement,
2272: okl_debug_pub.log_debug (g_level_statement,
2273: l_module_name,
2274: 'Before check_contract'
2275: );
2276: okl_debug_pub.log_debug (g_level_statement,
2277: l_module_name,
2278: 'In param, p_contract_id: '
2279: || lp_term_rec.p_contract_id
2280: );
2288: x_control_flag => l_control_flag
2289: );
2290:
2291: IF (is_debug_statement_on) THEN
2292: okl_debug_pub.log_debug (g_level_statement,
2293: l_module_name,
2294: 'After check_contract '
2295: );
2296: okl_debug_pub.log_debug (g_level_statement,
2292: okl_debug_pub.log_debug (g_level_statement,
2293: l_module_name,
2294: 'After check_contract '
2295: );
2296: okl_debug_pub.log_debug (g_level_statement,
2297: l_module_name,
2298: 'x_start_date: ' || l_start_date
2299: );
2300: okl_debug_pub.log_debug (g_level_statement,
2296: okl_debug_pub.log_debug (g_level_statement,
2297: l_module_name,
2298: 'x_start_date: ' || l_start_date
2299: );
2300: okl_debug_pub.log_debug (g_level_statement,
2301: l_module_name,
2302: 'x_end_date: ' || l_end_date
2303: );
2304: okl_debug_pub.log_debug (g_level_statement,
2300: okl_debug_pub.log_debug (g_level_statement,
2301: l_module_name,
2302: 'x_end_date: ' || l_end_date
2303: );
2304: okl_debug_pub.log_debug (g_level_statement,
2305: l_module_name,
2306: 'x_status: ' || l_status
2307: );
2308: okl_debug_pub.log_debug (g_level_statement,
2304: okl_debug_pub.log_debug (g_level_statement,
2305: l_module_name,
2306: 'x_status: ' || l_status
2307: );
2308: okl_debug_pub.log_debug (g_level_statement,
2309: l_module_name,
2310: 'x_control_flag: '
2311: || l_control_flag
2312: );
2309: l_module_name,
2310: 'x_control_flag: '
2311: || l_control_flag
2312: );
2313: okl_debug_pub.log_debug (g_level_statement,
2314: l_module_name,
2315: 'l_return_status: '
2316: || l_return_status
2317: );
2327: p_control_flag => l_control_flag
2328: );
2329:
2330: IF (is_debug_statement_on) THEN
2331: okl_debug_pub.log_debug (g_level_statement,
2332: l_module_name,
2333: 'After fnd_output '
2334: );
2335: okl_debug_pub.log_debug (g_level_statement,
2331: okl_debug_pub.log_debug (g_level_statement,
2332: l_module_name,
2333: 'After fnd_output '
2334: );
2335: okl_debug_pub.log_debug (g_level_statement,
2336: l_module_name,
2337: 'l_return_status: '
2338: || l_return_status
2339: );
2352: -- rmunjulu 4016497
2353: create_report;
2354: ELSE
2355: IF (is_debug_statement_on) THEN
2356: okl_debug_pub.log_debug (g_level_statement,
2357: l_module_name,
2358: 'Before check_contract'
2359: );
2360: okl_debug_pub.log_debug (g_level_statement,
2356: okl_debug_pub.log_debug (g_level_statement,
2357: l_module_name,
2358: 'Before check_contract'
2359: );
2360: okl_debug_pub.log_debug (g_level_statement,
2361: l_module_name,
2362: 'In param, p_contract_id: '
2363: || lp_term_rec.p_contract_id
2364: );
2372: x_control_flag => l_control_flag
2373: );
2374:
2375: IF (is_debug_statement_on) THEN
2376: okl_debug_pub.log_debug (g_level_statement,
2377: l_module_name,
2378: 'After check_contract '
2379: );
2380: okl_debug_pub.log_debug (g_level_statement,
2376: okl_debug_pub.log_debug (g_level_statement,
2377: l_module_name,
2378: 'After check_contract '
2379: );
2380: okl_debug_pub.log_debug (g_level_statement,
2381: l_module_name,
2382: 'x_start_date: ' || l_start_date
2383: );
2384: okl_debug_pub.log_debug (g_level_statement,
2380: okl_debug_pub.log_debug (g_level_statement,
2381: l_module_name,
2382: 'x_start_date: ' || l_start_date
2383: );
2384: okl_debug_pub.log_debug (g_level_statement,
2385: l_module_name,
2386: 'x_end_date: ' || l_end_date
2387: );
2388: okl_debug_pub.log_debug (g_level_statement,
2384: okl_debug_pub.log_debug (g_level_statement,
2385: l_module_name,
2386: 'x_end_date: ' || l_end_date
2387: );
2388: okl_debug_pub.log_debug (g_level_statement,
2389: l_module_name,
2390: 'x_status: ' || l_status
2391: );
2392: okl_debug_pub.log_debug (g_level_statement,
2388: okl_debug_pub.log_debug (g_level_statement,
2389: l_module_name,
2390: 'x_status: ' || l_status
2391: );
2392: okl_debug_pub.log_debug (g_level_statement,
2393: l_module_name,
2394: 'x_control_flag: '
2395: || l_control_flag
2396: );
2393: l_module_name,
2394: 'x_control_flag: '
2395: || l_control_flag
2396: );
2397: okl_debug_pub.log_debug (g_level_statement,
2398: l_module_name,
2399: 'l_return_status: '
2400: || l_return_status
2401: );
2401: );
2402: END IF;
2403:
2404: IF (is_debug_statement_on) THEN
2405: okl_debug_pub.log_debug (g_level_statement,
2406: l_module_name,
2407: 'Before fnd_output '
2408: );
2409: okl_debug_pub.log_debug
2405: okl_debug_pub.log_debug (g_level_statement,
2406: l_module_name,
2407: 'Before fnd_output '
2408: );
2409: okl_debug_pub.log_debug
2410: (g_level_statement,
2411: l_module_name,
2412: 'In param, p_term_rec.p_contract_id: '
2413: || lp_term_rec.p_contract_id
2411: l_module_name,
2412: 'In param, p_term_rec.p_contract_id: '
2413: || lp_term_rec.p_contract_id
2414: );
2415: okl_debug_pub.log_debug
2416: (g_level_statement,
2417: l_module_name,
2418: 'In param, p_term_rec.p_contract_number: '
2419: || lp_term_rec.p_contract_number
2430: p_control_flag => 'FAIL'
2431: );
2432:
2433: IF (is_debug_statement_on) THEN
2434: okl_debug_pub.log_debug (g_level_statement,
2435: l_module_name,
2436: 'After fnd_output '
2437: );
2438: okl_debug_pub.log_debug (g_level_statement,
2434: okl_debug_pub.log_debug (g_level_statement,
2435: l_module_name,
2436: 'After fnd_output '
2437: );
2438: okl_debug_pub.log_debug (g_level_statement,
2439: l_module_name,
2440: 'l_return_status: '
2441: || l_return_status
2442: );
2449: END IF;
2450: ELSIF NVL (l_recy_chr_yn, 'N') = 'Y' THEN
2451: -- Contract has been recycled
2452: IF (is_debug_statement_on) THEN
2453: okl_debug_pub.log_debug (g_level_statement,
2454: l_module_name,
2455: 'Before process_termination'
2456: );
2457: okl_debug_pub.log_debug
2453: okl_debug_pub.log_debug (g_level_statement,
2454: l_module_name,
2455: 'Before process_termination'
2456: );
2457: okl_debug_pub.log_debug
2458: (g_level_statement,
2459: l_module_name,
2460: 'In param, p_term_rec.p_contract_id: '
2461: || lp_term_rec.p_contract_id
2459: l_module_name,
2460: 'In param, p_term_rec.p_contract_id: '
2461: || lp_term_rec.p_contract_id
2462: );
2463: okl_debug_pub.log_debug
2464: (g_level_statement,
2465: l_module_name,
2466: 'In param, p_term_rec.p_contract_number: '
2467: || lp_term_rec.p_contract_number
2479: x_term_rec => lx_term_rec
2480: );
2481:
2482: IF (is_debug_statement_on) THEN
2483: okl_debug_pub.log_debug (g_level_statement,
2484: l_module_name,
2485: 'After process_termination '
2486: );
2487: okl_debug_pub.log_debug (g_level_statement,
2483: okl_debug_pub.log_debug (g_level_statement,
2484: l_module_name,
2485: 'After process_termination '
2486: );
2487: okl_debug_pub.log_debug (g_level_statement,
2488: l_module_name,
2489: 'l_return_status: '
2490: || l_return_status
2491: );
2491: );
2492: END IF;
2493:
2494: IF (is_debug_statement_on) THEN
2495: okl_debug_pub.log_debug (g_level_statement,
2496: l_module_name,
2497: 'Before check_contract'
2498: );
2499: okl_debug_pub.log_debug (g_level_statement,
2495: okl_debug_pub.log_debug (g_level_statement,
2496: l_module_name,
2497: 'Before check_contract'
2498: );
2499: okl_debug_pub.log_debug (g_level_statement,
2500: l_module_name,
2501: 'In param, p_contract_id: '
2502: || lp_term_rec.p_contract_id
2503: );
2511: x_control_flag => l_control_flag
2512: );
2513:
2514: IF (is_debug_statement_on) THEN
2515: okl_debug_pub.log_debug (g_level_statement,
2516: l_module_name,
2517: 'After check_contract '
2518: );
2519: okl_debug_pub.log_debug (g_level_statement,
2515: okl_debug_pub.log_debug (g_level_statement,
2516: l_module_name,
2517: 'After check_contract '
2518: );
2519: okl_debug_pub.log_debug (g_level_statement,
2520: l_module_name,
2521: 'x_start_date: ' || l_start_date
2522: );
2523: okl_debug_pub.log_debug (g_level_statement,
2519: okl_debug_pub.log_debug (g_level_statement,
2520: l_module_name,
2521: 'x_start_date: ' || l_start_date
2522: );
2523: okl_debug_pub.log_debug (g_level_statement,
2524: l_module_name,
2525: 'x_end_date: ' || l_end_date
2526: );
2527: okl_debug_pub.log_debug (g_level_statement,
2523: okl_debug_pub.log_debug (g_level_statement,
2524: l_module_name,
2525: 'x_end_date: ' || l_end_date
2526: );
2527: okl_debug_pub.log_debug (g_level_statement,
2528: l_module_name,
2529: 'x_status: ' || l_status
2530: );
2531: okl_debug_pub.log_debug (g_level_statement,
2527: okl_debug_pub.log_debug (g_level_statement,
2528: l_module_name,
2529: 'x_status: ' || l_status
2530: );
2531: okl_debug_pub.log_debug (g_level_statement,
2532: l_module_name,
2533: 'x_control_flag: '
2534: || l_control_flag
2535: );
2532: l_module_name,
2533: 'x_control_flag: '
2534: || l_control_flag
2535: );
2536: okl_debug_pub.log_debug (g_level_statement,
2537: l_module_name,
2538: 'l_return_status: '
2539: || l_return_status
2540: );
2540: );
2541: END IF;
2542:
2543: IF (is_debug_statement_on) THEN
2544: okl_debug_pub.log_debug (g_level_statement,
2545: l_module_name,
2546: 'Before fnd_output '
2547: );
2548: okl_debug_pub.log_debug
2544: okl_debug_pub.log_debug (g_level_statement,
2545: l_module_name,
2546: 'Before fnd_output '
2547: );
2548: okl_debug_pub.log_debug
2549: (g_level_statement,
2550: l_module_name,
2551: 'In param, p_term_rec.p_contract_id: '
2552: || lp_term_rec.p_contract_id
2550: l_module_name,
2551: 'In param, p_term_rec.p_contract_id: '
2552: || lp_term_rec.p_contract_id
2553: );
2554: okl_debug_pub.log_debug
2555: (g_level_statement,
2556: l_module_name,
2557: 'In param, p_term_rec.p_contract_number: '
2558: || lp_term_rec.p_contract_number
2569: p_control_flag => l_control_flag
2570: );
2571:
2572: IF (is_debug_statement_on) THEN
2573: okl_debug_pub.log_debug (g_level_statement,
2574: l_module_name,
2575: 'After fnd_output '
2576: );
2577: okl_debug_pub.log_debug (g_level_statement,
2573: okl_debug_pub.log_debug (g_level_statement,
2574: l_module_name,
2575: 'After fnd_output '
2576: );
2577: okl_debug_pub.log_debug (g_level_statement,
2578: l_module_name,
2579: 'l_return_status: '
2580: || l_return_status
2581: );
2602: -- Get the message
2603: l_message := fnd_message.get;
2604:
2605: IF (is_debug_statement_on) THEN
2606: okl_debug_pub.log_debug (g_level_statement,
2607: l_module_name,
2608: 'Before check_contract'
2609: );
2610: okl_debug_pub.log_debug (g_level_statement,
2606: okl_debug_pub.log_debug (g_level_statement,
2607: l_module_name,
2608: 'Before check_contract'
2609: );
2610: okl_debug_pub.log_debug (g_level_statement,
2611: l_module_name,
2612: 'In param, p_contract_id: '
2613: || lp_term_rec.p_contract_id
2614: );
2622: x_control_flag => l_control_flag
2623: );
2624:
2625: IF (is_debug_statement_on) THEN
2626: okl_debug_pub.log_debug (g_level_statement,
2627: l_module_name,
2628: 'After check_contract '
2629: );
2630: okl_debug_pub.log_debug (g_level_statement,
2626: okl_debug_pub.log_debug (g_level_statement,
2627: l_module_name,
2628: 'After check_contract '
2629: );
2630: okl_debug_pub.log_debug (g_level_statement,
2631: l_module_name,
2632: 'x_start_date: ' || l_start_date
2633: );
2634: okl_debug_pub.log_debug (g_level_statement,
2630: okl_debug_pub.log_debug (g_level_statement,
2631: l_module_name,
2632: 'x_start_date: ' || l_start_date
2633: );
2634: okl_debug_pub.log_debug (g_level_statement,
2635: l_module_name,
2636: 'x_end_date: ' || l_end_date
2637: );
2638: okl_debug_pub.log_debug (g_level_statement,
2634: okl_debug_pub.log_debug (g_level_statement,
2635: l_module_name,
2636: 'x_end_date: ' || l_end_date
2637: );
2638: okl_debug_pub.log_debug (g_level_statement,
2639: l_module_name,
2640: 'x_status: ' || l_status
2641: );
2642: okl_debug_pub.log_debug (g_level_statement,
2638: okl_debug_pub.log_debug (g_level_statement,
2639: l_module_name,
2640: 'x_status: ' || l_status
2641: );
2642: okl_debug_pub.log_debug (g_level_statement,
2643: l_module_name,
2644: 'x_control_flag: '
2645: || l_control_flag
2646: );
2643: l_module_name,
2644: 'x_control_flag: '
2645: || l_control_flag
2646: );
2647: okl_debug_pub.log_debug (g_level_statement,
2648: l_module_name,
2649: 'l_return_status: '
2650: || l_return_status
2651: );
2651: );
2652: END IF;
2653:
2654: IF (is_debug_statement_on) THEN
2655: okl_debug_pub.log_debug (g_level_statement,
2656: l_module_name,
2657: 'Before fnd_output '
2658: );
2659: okl_debug_pub.log_debug
2655: okl_debug_pub.log_debug (g_level_statement,
2656: l_module_name,
2657: 'Before fnd_output '
2658: );
2659: okl_debug_pub.log_debug
2660: (g_level_statement,
2661: l_module_name,
2662: 'In param, p_term_rec.p_contract_id: '
2663: || lp_term_rec.p_contract_id
2661: l_module_name,
2662: 'In param, p_term_rec.p_contract_id: '
2663: || lp_term_rec.p_contract_id
2664: );
2665: okl_debug_pub.log_debug
2666: (g_level_statement,
2667: l_module_name,
2668: 'In param, p_term_rec.p_contract_number: '
2669: || lp_term_rec.p_contract_number
2680: p_control_flag => NULL
2681: ); -- Pass NULL so that it goes to ELSE of this API
2682:
2683: IF (is_debug_statement_on) THEN
2684: okl_debug_pub.log_debug (g_level_statement,
2685: l_module_name,
2686: 'After fnd_output '
2687: );
2688: okl_debug_pub.log_debug (g_level_statement,
2684: okl_debug_pub.log_debug (g_level_statement,
2685: l_module_name,
2686: 'After fnd_output '
2687: );
2688: okl_debug_pub.log_debug (g_level_statement,
2689: l_module_name,
2690: 'l_return_status: '
2691: || l_return_status
2692: );
2732: x_return_status => l_return_status,
2733: x_prin_stream_flag => l_prin_stream_flag);
2734:
2735: IF (is_debug_statement_on) THEN
2736: okl_debug_pub.log_debug
2737: (g_level_statement,
2738: l_module_name,
2739: 'After OKL_VARIABLE_INT_UTIL_PVT.check_principal_stream '
2740: );
2737: (g_level_statement,
2738: l_module_name,
2739: 'After OKL_VARIABLE_INT_UTIL_PVT.check_principal_stream '
2740: );
2741: okl_debug_pub.log_debug (g_level_statement,
2742: l_module_name,
2743: 'l_prin_stream_flag: ' || l_prin_stream_flag
2744: );
2745: okl_debug_pub.log_debug (g_level_statement,
2741: okl_debug_pub.log_debug (g_level_statement,
2742: l_module_name,
2743: 'l_prin_stream_flag: ' || l_prin_stream_flag
2744: );
2745: okl_debug_pub.log_debug (g_level_statement,
2746: l_module_name,
2747: 'l_return_status: '
2748: || l_return_status
2749: );
2772: lx_term_tbl (i).p_contract_number :=
2773: lp_term_rec.p_contract_number;
2774:
2775: IF (is_debug_statement_on) THEN
2776: okl_debug_pub.log_debug (g_level_statement,
2777: l_module_name,
2778: 'Before process_termination'
2779: );
2780: okl_debug_pub.log_debug
2776: okl_debug_pub.log_debug (g_level_statement,
2777: l_module_name,
2778: 'Before process_termination'
2779: );
2780: okl_debug_pub.log_debug
2781: (g_level_statement,
2782: l_module_name,
2783: 'In param, p_term_rec.p_contract_id: '
2784: || lp_term_rec.p_contract_id
2782: l_module_name,
2783: 'In param, p_term_rec.p_contract_id: '
2784: || lp_term_rec.p_contract_id
2785: );
2786: okl_debug_pub.log_debug
2787: (g_level_statement,
2788: l_module_name,
2789: 'In param, p_term_rec.p_contract_number: '
2790: || lp_term_rec.p_contract_number
2801: x_term_rec => lx_term_rec
2802: );
2803:
2804: IF (is_debug_statement_on) THEN
2805: okl_debug_pub.log_debug (g_level_statement,
2806: l_module_name,
2807: 'After process_termination '
2808: );
2809: okl_debug_pub.log_debug (g_level_statement,
2805: okl_debug_pub.log_debug (g_level_statement,
2806: l_module_name,
2807: 'After process_termination '
2808: );
2809: okl_debug_pub.log_debug (g_level_statement,
2810: l_module_name,
2811: 'l_return_status: '
2812: || l_return_status
2813: );
2814: END IF;
2815:
2816: -- RMUNJULU 2730738 For proper output file
2817: IF (is_debug_statement_on) THEN
2818: okl_debug_pub.log_debug (g_level_statement,
2819: l_module_name,
2820: 'Before check_contract'
2821: );
2822: okl_debug_pub.log_debug (g_level_statement,
2818: okl_debug_pub.log_debug (g_level_statement,
2819: l_module_name,
2820: 'Before check_contract'
2821: );
2822: okl_debug_pub.log_debug (g_level_statement,
2823: l_module_name,
2824: 'In param, p_contract_id: '
2825: || lp_term_rec.p_contract_id
2826: );
2833: x_control_flag => l_control_flag
2834: );
2835:
2836: IF (is_debug_statement_on) THEN
2837: okl_debug_pub.log_debug (g_level_statement,
2838: l_module_name,
2839: 'After check_contract '
2840: );
2841: okl_debug_pub.log_debug (g_level_statement,
2837: okl_debug_pub.log_debug (g_level_statement,
2838: l_module_name,
2839: 'After check_contract '
2840: );
2841: okl_debug_pub.log_debug (g_level_statement,
2842: l_module_name,
2843: 'x_start_date: ' || l_start_date
2844: );
2845: okl_debug_pub.log_debug (g_level_statement,
2841: okl_debug_pub.log_debug (g_level_statement,
2842: l_module_name,
2843: 'x_start_date: ' || l_start_date
2844: );
2845: okl_debug_pub.log_debug (g_level_statement,
2846: l_module_name,
2847: 'x_end_date: ' || l_end_date
2848: );
2849: okl_debug_pub.log_debug (g_level_statement,
2845: okl_debug_pub.log_debug (g_level_statement,
2846: l_module_name,
2847: 'x_end_date: ' || l_end_date
2848: );
2849: okl_debug_pub.log_debug (g_level_statement,
2850: l_module_name,
2851: 'x_status: ' || l_status
2852: );
2853: okl_debug_pub.log_debug (g_level_statement,
2849: okl_debug_pub.log_debug (g_level_statement,
2850: l_module_name,
2851: 'x_status: ' || l_status
2852: );
2853: okl_debug_pub.log_debug (g_level_statement,
2854: l_module_name,
2855: 'x_control_flag: '
2856: || l_control_flag
2857: );
2854: l_module_name,
2855: 'x_control_flag: '
2856: || l_control_flag
2857: );
2858: okl_debug_pub.log_debug (g_level_statement,
2859: l_module_name,
2860: 'l_return_status: '
2861: || l_return_status
2862: );
2862: );
2863: END IF;
2864:
2865: IF (is_debug_statement_on) THEN
2866: okl_debug_pub.log_debug (g_level_statement,
2867: l_module_name,
2868: 'Before fnd_output '
2869: );
2870: okl_debug_pub.log_debug
2866: okl_debug_pub.log_debug (g_level_statement,
2867: l_module_name,
2868: 'Before fnd_output '
2869: );
2870: okl_debug_pub.log_debug
2871: (g_level_statement,
2872: l_module_name,
2873: 'In param, p_term_rec.p_contract_id: '
2874: || lp_term_rec.p_contract_id
2872: l_module_name,
2873: 'In param, p_term_rec.p_contract_id: '
2874: || lp_term_rec.p_contract_id
2875: );
2876: okl_debug_pub.log_debug
2877: (g_level_statement,
2878: l_module_name,
2879: 'In param, p_term_rec.p_contract_number: '
2880: || lp_term_rec.p_contract_number
2891: p_control_flag => l_control_flag
2892: );
2893:
2894: IF (is_debug_statement_on) THEN
2895: okl_debug_pub.log_debug (g_level_statement,
2896: l_module_name,
2897: 'After fnd_output '
2898: );
2899: okl_debug_pub.log_debug (g_level_statement,
2895: okl_debug_pub.log_debug (g_level_statement,
2896: l_module_name,
2897: 'After fnd_output '
2898: );
2899: okl_debug_pub.log_debug (g_level_statement,
2900: l_module_name,
2901: 'l_return_status: '
2902: || l_return_status
2903: );
2939: lx_term_tbl (i + j).p_contract_number :=
2940: lp_term_rec.p_contract_number;
2941:
2942: IF (is_debug_statement_on) THEN
2943: okl_debug_pub.log_debug (g_level_statement,
2944: l_module_name,
2945: 'Before process_termination'
2946: );
2947: okl_debug_pub.log_debug
2943: okl_debug_pub.log_debug (g_level_statement,
2944: l_module_name,
2945: 'Before process_termination'
2946: );
2947: okl_debug_pub.log_debug
2948: (g_level_statement,
2949: l_module_name,
2950: 'In param, p_term_rec.p_contract_id: '
2951: || lp_term_rec.p_contract_id
2949: l_module_name,
2950: 'In param, p_term_rec.p_contract_id: '
2951: || lp_term_rec.p_contract_id
2952: );
2953: okl_debug_pub.log_debug
2954: (g_level_statement,
2955: l_module_name,
2956: 'In param, p_term_rec.p_contract_number: '
2957: || lp_term_rec.p_contract_number
2970: x_term_rec => lx_term_rec
2971: );
2972:
2973: IF (is_debug_statement_on) THEN
2974: okl_debug_pub.log_debug (g_level_statement,
2975: l_module_name,
2976: 'After process_termination '
2977: );
2978: okl_debug_pub.log_debug (g_level_statement,
2974: okl_debug_pub.log_debug (g_level_statement,
2975: l_module_name,
2976: 'After process_termination '
2977: );
2978: okl_debug_pub.log_debug (g_level_statement,
2979: l_module_name,
2980: 'l_return_status: ' || l_return_status
2981: );
2982: END IF;
2981: );
2982: END IF;
2983:
2984: IF (is_debug_statement_on) THEN
2985: okl_debug_pub.log_debug (g_level_statement,
2986: l_module_name,
2987: 'Before check_contract'
2988: );
2989: okl_debug_pub.log_debug (g_level_statement,
2985: okl_debug_pub.log_debug (g_level_statement,
2986: l_module_name,
2987: 'Before check_contract'
2988: );
2989: okl_debug_pub.log_debug (g_level_statement,
2990: l_module_name,
2991: 'In param, p_contract_id: '
2992: || lp_term_rec.p_contract_id
2993: );
3001: x_control_flag => l_control_flag
3002: );
3003:
3004: IF (is_debug_statement_on) THEN
3005: okl_debug_pub.log_debug (g_level_statement,
3006: l_module_name,
3007: 'After check_contract '
3008: );
3009: okl_debug_pub.log_debug (g_level_statement,
3005: okl_debug_pub.log_debug (g_level_statement,
3006: l_module_name,
3007: 'After check_contract '
3008: );
3009: okl_debug_pub.log_debug (g_level_statement,
3010: l_module_name,
3011: 'x_start_date: ' || l_start_date
3012: );
3013: okl_debug_pub.log_debug (g_level_statement,
3009: okl_debug_pub.log_debug (g_level_statement,
3010: l_module_name,
3011: 'x_start_date: ' || l_start_date
3012: );
3013: okl_debug_pub.log_debug (g_level_statement,
3014: l_module_name,
3015: 'x_end_date: ' || l_end_date
3016: );
3017: okl_debug_pub.log_debug (g_level_statement,
3013: okl_debug_pub.log_debug (g_level_statement,
3014: l_module_name,
3015: 'x_end_date: ' || l_end_date
3016: );
3017: okl_debug_pub.log_debug (g_level_statement,
3018: l_module_name,
3019: 'x_status: ' || l_status
3020: );
3021: okl_debug_pub.log_debug (g_level_statement,
3017: okl_debug_pub.log_debug (g_level_statement,
3018: l_module_name,
3019: 'x_status: ' || l_status
3020: );
3021: okl_debug_pub.log_debug (g_level_statement,
3022: l_module_name,
3023: 'x_control_flag: ' || l_control_flag
3024: );
3025: okl_debug_pub.log_debug (g_level_statement,
3021: okl_debug_pub.log_debug (g_level_statement,
3022: l_module_name,
3023: 'x_control_flag: ' || l_control_flag
3024: );
3025: okl_debug_pub.log_debug (g_level_statement,
3026: l_module_name,
3027: 'l_return_status: ' || l_return_status
3028: );
3029: END IF;
3028: );
3029: END IF;
3030:
3031: IF (is_debug_statement_on) THEN
3032: okl_debug_pub.log_debug (g_level_statement,
3033: l_module_name,
3034: 'Before fnd_output '
3035: );
3036: okl_debug_pub.log_debug
3032: okl_debug_pub.log_debug (g_level_statement,
3033: l_module_name,
3034: 'Before fnd_output '
3035: );
3036: okl_debug_pub.log_debug
3037: (g_level_statement,
3038: l_module_name,
3039: 'In param, p_term_rec.p_contract_id: '
3040: || lp_term_rec.p_contract_id
3038: l_module_name,
3039: 'In param, p_term_rec.p_contract_id: '
3040: || lp_term_rec.p_contract_id
3041: );
3042: okl_debug_pub.log_debug
3043: (g_level_statement,
3044: l_module_name,
3045: 'In param, p_term_rec.p_contract_number: '
3046: || lp_term_rec.p_contract_number
3057: p_control_flag => l_control_flag
3058: );
3059:
3060: IF (is_debug_statement_on) THEN
3061: okl_debug_pub.log_debug (g_level_statement,
3062: l_module_name,
3063: 'After fnd_output '
3064: );
3065: okl_debug_pub.log_debug (g_level_statement,
3061: okl_debug_pub.log_debug (g_level_statement,
3062: l_module_name,
3063: 'After fnd_output '
3064: );
3065: okl_debug_pub.log_debug (g_level_statement,
3066: l_module_name,
3067: 'l_return_status: ' || l_return_status
3068: );
3069: END IF;
3087: x_term_tbl := lx_term_tbl;
3088: x_return_status := l_overall_status;
3089:
3090: IF (is_debug_procedure_on) THEN
3091: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3092: END IF;
3093: EXCEPTION
3094: WHEN okl_api.g_exception_error THEN
3095: IF (is_debug_exception_on) THEN
3092: END IF;
3093: EXCEPTION
3094: WHEN okl_api.g_exception_error THEN
3095: IF (is_debug_exception_on) THEN
3096: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'G_EXCEPTION_ERROR :' );
3097: END IF;
3098: x_return_status := okl_api.g_ret_sts_error;
3099: WHEN okl_api.g_exception_unexpected_error THEN
3100: IF (is_debug_exception_on) THEN
3097: END IF;
3098: x_return_status := okl_api.g_ret_sts_error;
3099: WHEN okl_api.g_exception_unexpected_error THEN
3100: IF (is_debug_exception_on) THEN
3101: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'G_EXCEPTION_UNEXPECTED_ERROR' );
3102: END IF;
3103: x_return_status := okl_api.g_ret_sts_unexp_error;
3104: WHEN OTHERS THEN
3105: IF (is_debug_exception_on) THEN
3102: END IF;
3103: x_return_status := okl_api.g_ret_sts_unexp_error;
3104: WHEN OTHERS THEN
3105: IF (is_debug_exception_on) THEN
3106: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3107: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3108: END IF;
3109: okl_api.set_message (p_app_name => g_app_name_1,
3110: p_msg_name => g_unexpected_error,
3145: -- akrangan added for debug feature start
3146: l_module_name VARCHAR2 (500)
3147: := g_module_name || 'concurrent_expire_lease_loan';
3148: is_debug_exception_on BOOLEAN
3149: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3150: is_debug_procedure_on BOOLEAN
3151: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3152: is_debug_statement_on BOOLEAN
3153: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3147: := g_module_name || 'concurrent_expire_lease_loan';
3148: is_debug_exception_on BOOLEAN
3149: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3150: is_debug_procedure_on BOOLEAN
3151: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3152: is_debug_statement_on BOOLEAN
3153: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3154: -- akrangan added for debug feature end
3155: BEGIN
3149: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3150: is_debug_procedure_on BOOLEAN
3151: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3152: is_debug_statement_on BOOLEAN
3153: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3154: -- akrangan added for debug feature end
3155: BEGIN
3156: IF (is_debug_procedure_on) THEN
3157: okl_debug_pub.log_debug (g_level_procedure,
3153: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3154: -- akrangan added for debug feature end
3155: BEGIN
3156: IF (is_debug_procedure_on) THEN
3157: okl_debug_pub.log_debug (g_level_procedure,
3158: l_module_name,
3159: 'Begin(+)'
3160: );
3161: END IF;
3160: );
3161: END IF;
3162:
3163: IF (is_debug_statement_on) THEN
3164: okl_debug_pub.log_debug (g_level_statement,
3165: l_module_name,
3166: 'p_contract_id =' || p_contract_id
3167: );
3168: END IF;
3228: fnd_file.put_line(fnd_file.output, '');
3229: */
3230: -- Terminate the contract
3231: IF (is_debug_statement_on) THEN
3232: okl_debug_pub.log_debug (g_level_statement,
3233: l_module_name,
3234: 'before batch_expire_lease_loan'
3235: );
3236: okl_debug_pub.log_debug (g_level_statement,
3232: okl_debug_pub.log_debug (g_level_statement,
3233: l_module_name,
3234: 'before batch_expire_lease_loan'
3235: );
3236: okl_debug_pub.log_debug (g_level_statement,
3237: l_module_name,
3238: 'p_contract_id =' || p_contract_id
3239: );
3240: END IF;
3248: x_term_tbl => l_term_tbl
3249: );
3250:
3251: IF (is_debug_statement_on) THEN
3252: okl_debug_pub.log_debug (g_level_statement,
3253: l_module_name,
3254: 'after batch_expire_lease_loan'
3255: );
3256: okl_debug_pub.log_debug (g_level_statement,
3252: okl_debug_pub.log_debug (g_level_statement,
3253: l_module_name,
3254: 'after batch_expire_lease_loan'
3255: );
3256: okl_debug_pub.log_debug (g_level_statement,
3257: l_module_name,
3258: 'l_return_status ='
3259: || l_return_status
3260: );
3274: fnd_file.put_line(fnd_file.log, '');
3275: fnd_file.put_line(fnd_file.output, '');
3276: */
3277: IF (is_debug_statement_on) THEN
3278: okl_debug_pub.log_debug (g_level_statement,
3279: l_module_name,
3280: 'before batch_expire_lease_loan'
3281: );
3282: okl_debug_pub.log_debug (g_level_statement,
3278: okl_debug_pub.log_debug (g_level_statement,
3279: l_module_name,
3280: 'before batch_expire_lease_loan'
3281: );
3282: okl_debug_pub.log_debug (g_level_statement,
3283: l_module_name,
3284: 'p_contract_id =' || p_contract_id
3285: );
3286: END IF;
3295: x_term_tbl => l_term_tbl
3296: );
3297:
3298: IF (is_debug_statement_on) THEN
3299: okl_debug_pub.log_debug (g_level_statement,
3300: l_module_name,
3301: 'after batch_expire_lease_loan'
3302: );
3303: okl_debug_pub.log_debug (g_level_statement,
3299: okl_debug_pub.log_debug (g_level_statement,
3300: l_module_name,
3301: 'after batch_expire_lease_loan'
3302: );
3303: okl_debug_pub.log_debug (g_level_statement,
3304: l_module_name,
3305: 'l_return_status ='
3306: || l_return_status
3307: );
3311: create_report;
3312: END IF;
3313:
3314: IF (is_debug_procedure_on) THEN
3315: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3316: END IF;
3317: END concurrent_expire_lease_loan;
3318:
3319: PROCEDURE write_to_log (p_message IN VARCHAR2) IS
3320: -- akrangan added for debug feature start
3321: l_module_name VARCHAR2 (500)
3322: := g_module_name || 'write_to_log';
3323: is_debug_exception_on BOOLEAN
3324: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3325: is_debug_procedure_on BOOLEAN
3326: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3327: is_debug_statement_on BOOLEAN
3328: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3322: := g_module_name || 'write_to_log';
3323: is_debug_exception_on BOOLEAN
3324: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3325: is_debug_procedure_on BOOLEAN
3326: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3327: is_debug_statement_on BOOLEAN
3328: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3329: -- akrangan added for debug feature end
3330: BEGIN
3324: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3325: is_debug_procedure_on BOOLEAN
3326: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3327: is_debug_statement_on BOOLEAN
3328: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3329: -- akrangan added for debug feature end
3330: BEGIN
3331: IF (is_debug_procedure_on) THEN
3332: okl_debug_pub.log_debug (g_level_procedure,
3328: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3329: -- akrangan added for debug feature end
3330: BEGIN
3331: IF (is_debug_procedure_on) THEN
3332: okl_debug_pub.log_debug (g_level_procedure,
3333: l_module_name,
3334: 'Begin(+)'
3335: );
3336: END IF;
3335: );
3336: END IF;
3337:
3338: IF (is_debug_statement_on) THEN
3339: okl_debug_pub.log_debug (g_level_statement,
3340: l_module_name,
3341: 'p_message =' || p_message
3342: );
3343: END IF;
3345: -- dbms_output.put_line(p_message);
3346: fnd_file.put_line (fnd_file.output, p_message);
3347:
3348: IF (is_debug_procedure_on) THEN
3349: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3350: END IF;
3351: END write_to_log;
3352:
3353: -- RMUNJULU PERF
3399: l_prin_stream_flag NUMBER; --Added by bkatraga for bug 11924386
3400: -- akrangan added for debug feature start
3401: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
3402: is_debug_exception_on BOOLEAN
3403: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3404: is_debug_procedure_on BOOLEAN
3405: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3406: is_debug_statement_on BOOLEAN
3407: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3401: l_module_name VARCHAR2 (500) := g_module_name || 'fnd_output';
3402: is_debug_exception_on BOOLEAN
3403: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3404: is_debug_procedure_on BOOLEAN
3405: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3406: is_debug_statement_on BOOLEAN
3407: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3408: -- akrangan added for debug feature end
3409: BEGIN
3403: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3404: is_debug_procedure_on BOOLEAN
3405: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3406: is_debug_statement_on BOOLEAN
3407: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3408: -- akrangan added for debug feature end
3409: BEGIN
3410: FOR get_contracts_of_process_rec IN
3411: get_contracts_of_process_csr (p_assigned_processes)
3432: x_return_status => l_return_status,
3433: x_prin_stream_flag => l_prin_stream_flag);
3434:
3435: IF (is_debug_statement_on) THEN
3436: okl_debug_pub.log_debug
3437: (g_level_statement,
3438: l_module_name,
3439: 'After OKL_VARIABLE_INT_UTIL_PVT.check_principal_stream '
3440: );
3437: (g_level_statement,
3438: l_module_name,
3439: 'After OKL_VARIABLE_INT_UTIL_PVT.check_principal_stream '
3440: );
3441: okl_debug_pub.log_debug (g_level_statement,
3442: l_module_name,
3443: 'l_prin_stream_flag: ' || l_prin_stream_flag
3444: );
3445: okl_debug_pub.log_debug (g_level_statement,
3441: okl_debug_pub.log_debug (g_level_statement,
3442: l_module_name,
3443: 'l_prin_stream_flag: ' || l_prin_stream_flag
3444: );
3445: okl_debug_pub.log_debug (g_level_statement,
3446: l_module_name,
3447: 'l_return_status: '
3448: || l_return_status
3449: );
3454: --Modified IF condition by bkatraga for bug 11924386
3455: -- rmunjulu LOANS_ENHANCEMENTS
3456: IF (l_deal_type = 'LOAN-REVOLVING' OR (l_deal_type = 'LOAN' AND l_prin_stream_flag = 0)) THEN
3457: IF (is_debug_statement_on) THEN
3458: okl_debug_pub.log_debug
3459: (g_level_statement,
3460: l_module_name,
3461: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3462: );
3459: (g_level_statement,
3460: l_module_name,
3461: 'Before OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3462: );
3463: okl_debug_pub.log_debug (g_level_statement,
3464: l_module_name,
3465: 'In param, p_contract_id: '
3466: || lp_term_rec.p_contract_id
3467: );
3476: p_date => SYSDATE
3477: );
3478:
3479: IF (is_debug_statement_on) THEN
3480: okl_debug_pub.log_debug
3481: (g_level_statement,
3482: l_module_name,
3483: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3484: );
3481: (g_level_statement,
3482: l_module_name,
3483: 'After OKL_VARIABLE_INT_UTIL_PVT.get_principal_bal '
3484: );
3485: okl_debug_pub.log_debug (g_level_statement,
3486: l_module_name,
3487: 'l_prin_bal: ' || l_prin_bal
3488: );
3489: okl_debug_pub.log_debug (g_level_statement,
3485: okl_debug_pub.log_debug (g_level_statement,
3486: l_module_name,
3487: 'l_prin_bal: ' || l_prin_bal
3488: );
3489: okl_debug_pub.log_debug (g_level_statement,
3490: l_module_name,
3491: 'l_return_status: ' || l_return_status
3492: );
3493: END IF;
3501: lx_term_tbl (i).p_contract_number :=
3502: lp_term_rec.p_contract_number;
3503:
3504: IF (is_debug_statement_on) THEN
3505: okl_debug_pub.log_debug (g_level_statement,
3506: l_module_name,
3507: 'Before process_termination'
3508: );
3509: okl_debug_pub.log_debug
3505: okl_debug_pub.log_debug (g_level_statement,
3506: l_module_name,
3507: 'Before process_termination'
3508: );
3509: okl_debug_pub.log_debug
3510: (g_level_statement,
3511: l_module_name,
3512: 'In param, p_term_rec.p_contract_id: '
3513: || lp_term_rec.p_contract_id
3511: l_module_name,
3512: 'In param, p_term_rec.p_contract_id: '
3513: || lp_term_rec.p_contract_id
3514: );
3515: okl_debug_pub.log_debug
3516: (g_level_statement,
3517: l_module_name,
3518: 'In param, p_term_rec.p_contract_number: '
3519: || lp_term_rec.p_contract_number
3517: l_module_name,
3518: 'In param, p_term_rec.p_contract_number: '
3519: || lp_term_rec.p_contract_number
3520: );
3521: okl_debug_pub.log_debug (g_level_statement,
3522: l_module_name,
3523: 'In param, p_trn_id: '
3524: || get_contracts_of_process_rec.trx_id
3525: );
3538: x_term_rec => lx_term_rec
3539: );
3540:
3541: IF (is_debug_statement_on) THEN
3542: okl_debug_pub.log_debug (g_level_statement,
3543: l_module_name,
3544: 'After process_termination '
3545: );
3546: okl_debug_pub.log_debug (g_level_statement,
3542: okl_debug_pub.log_debug (g_level_statement,
3543: l_module_name,
3544: 'After process_termination '
3545: );
3546: okl_debug_pub.log_debug (g_level_statement,
3547: l_module_name,
3548: 'l_return_status: ' || l_return_status
3549: );
3550: END IF;
3549: );
3550: END IF;
3551:
3552: IF (is_debug_statement_on) THEN
3553: okl_debug_pub.log_debug (g_level_statement,
3554: l_module_name,
3555: 'Before check_contract'
3556: );
3557: okl_debug_pub.log_debug (g_level_statement,
3553: okl_debug_pub.log_debug (g_level_statement,
3554: l_module_name,
3555: 'Before check_contract'
3556: );
3557: okl_debug_pub.log_debug (g_level_statement,
3558: l_module_name,
3559: 'In param, p_contract_id: '
3560: || lp_term_rec.p_contract_id
3561: );
3569: x_control_flag => l_control_flag
3570: );
3571:
3572: IF (is_debug_statement_on) THEN
3573: okl_debug_pub.log_debug (g_level_statement,
3574: l_module_name,
3575: 'After check_contract '
3576: );
3577: okl_debug_pub.log_debug (g_level_statement,
3573: okl_debug_pub.log_debug (g_level_statement,
3574: l_module_name,
3575: 'After check_contract '
3576: );
3577: okl_debug_pub.log_debug (g_level_statement,
3578: l_module_name,
3579: 'x_start_date: ' || l_start_date
3580: );
3581: okl_debug_pub.log_debug (g_level_statement,
3577: okl_debug_pub.log_debug (g_level_statement,
3578: l_module_name,
3579: 'x_start_date: ' || l_start_date
3580: );
3581: okl_debug_pub.log_debug (g_level_statement,
3582: l_module_name,
3583: 'x_end_date: ' || l_end_date
3584: );
3585: okl_debug_pub.log_debug (g_level_statement,
3581: okl_debug_pub.log_debug (g_level_statement,
3582: l_module_name,
3583: 'x_end_date: ' || l_end_date
3584: );
3585: okl_debug_pub.log_debug (g_level_statement,
3586: l_module_name,
3587: 'x_status: ' || l_status
3588: );
3589: okl_debug_pub.log_debug (g_level_statement,
3585: okl_debug_pub.log_debug (g_level_statement,
3586: l_module_name,
3587: 'x_status: ' || l_status
3588: );
3589: okl_debug_pub.log_debug (g_level_statement,
3590: l_module_name,
3591: 'x_control_flag: ' || l_control_flag
3592: );
3593: okl_debug_pub.log_debug (g_level_statement,
3589: okl_debug_pub.log_debug (g_level_statement,
3590: l_module_name,
3591: 'x_control_flag: ' || l_control_flag
3592: );
3593: okl_debug_pub.log_debug (g_level_statement,
3594: l_module_name,
3595: 'l_return_status: ' || l_return_status
3596: );
3597: END IF;
3599: -- rmunjulu for proper output need to tell if recy or exp
3600: IF get_contracts_of_process_rec.trx_id IS NOT NULL
3601: AND get_contracts_of_process_rec.trx_id <> okl_api.g_miss_num THEN
3602: IF (is_debug_statement_on) THEN
3603: okl_debug_pub.log_debug (g_level_statement,
3604: l_module_name,
3605: 'before fnd_output '
3606: );
3607: END IF;
3615: p_control_flag => l_control_flag
3616: );
3617:
3618: IF (is_debug_statement_on) THEN
3619: okl_debug_pub.log_debug (g_level_statement,
3620: l_module_name,
3621: 'After fnd_output '
3622: );
3623: okl_debug_pub.log_debug (g_level_statement,
3619: okl_debug_pub.log_debug (g_level_statement,
3620: l_module_name,
3621: 'After fnd_output '
3622: );
3623: okl_debug_pub.log_debug (g_level_statement,
3624: l_module_name,
3625: 'l_return_status: '
3626: || l_return_status
3627: );
3627: );
3628: END IF;
3629: ELSE
3630: IF (is_debug_statement_on) THEN
3631: okl_debug_pub.log_debug (g_level_statement,
3632: l_module_name,
3633: 'before fnd_output '
3634: );
3635: END IF;
3643: p_control_flag => l_control_flag
3644: );
3645:
3646: IF (is_debug_statement_on) THEN
3647: okl_debug_pub.log_debug (g_level_statement,
3648: l_module_name,
3649: 'After fnd_output '
3650: );
3651: okl_debug_pub.log_debug (g_level_statement,
3647: okl_debug_pub.log_debug (g_level_statement,
3648: l_module_name,
3649: 'After fnd_output '
3650: );
3651: okl_debug_pub.log_debug (g_level_statement,
3652: l_module_name,
3653: 'l_return_status: '
3654: || l_return_status
3655: );
3673:
3674: x_term_tbl := lx_term_tbl;
3675:
3676: IF (is_debug_procedure_on) THEN
3677: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3678: END IF;
3679: END batch_expire_lease_loan;
3680:
3681: -- RMUNJULU PERF
3697: -- akrangan added for debug feature start
3698: l_module_name VARCHAR2 (500)
3699: := g_module_name || 'write_to_log';
3700: is_debug_exception_on BOOLEAN
3701: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3702: is_debug_procedure_on BOOLEAN
3703: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3704: is_debug_statement_on BOOLEAN
3705: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3699: := g_module_name || 'write_to_log';
3700: is_debug_exception_on BOOLEAN
3701: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3702: is_debug_procedure_on BOOLEAN
3703: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3704: is_debug_statement_on BOOLEAN
3705: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3706: -- akrangan added for debug feature end
3707: BEGIN
3701: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3702: is_debug_procedure_on BOOLEAN
3703: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3704: is_debug_statement_on BOOLEAN
3705: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3706: -- akrangan added for debug feature end
3707: BEGIN
3708: IF (is_debug_procedure_on) THEN
3709: okl_debug_pub.log_debug (g_level_procedure,
3705: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3706: -- akrangan added for debug feature end
3707: BEGIN
3708: IF (is_debug_procedure_on) THEN
3709: okl_debug_pub.log_debug (g_level_procedure,
3710: l_module_name,
3711: 'Begin(+)'
3712: );
3713: END IF;
3712: );
3713: END IF;
3714:
3715: IF (is_debug_statement_on) THEN
3716: okl_debug_pub.log_debug (g_level_statement,
3717: l_module_name,
3718: 'before batch_expire_lease_loan '
3719: );
3720: END IF;
3729: x_term_tbl => l_term_tbl
3730: );
3731:
3732: IF (is_debug_statement_on) THEN
3733: okl_debug_pub.log_debug (g_level_statement,
3734: l_module_name,
3735: 'after batch_expire_lease_loan '
3736: );
3737: okl_debug_pub.log_debug (g_level_statement,
3733: okl_debug_pub.log_debug (g_level_statement,
3734: l_module_name,
3735: 'after batch_expire_lease_loan '
3736: );
3737: okl_debug_pub.log_debug (g_level_statement,
3738: l_module_name,
3739: 'l_return_status = ' || l_return_status
3740: );
3741: END IF;
3747: DELETE FROM okl_parallel_processes
3748: WHERE assigned_process = p_assigned_processes;
3749:
3750: IF (is_debug_procedure_on) THEN
3751: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
3752: END IF;
3753: END child_process;
3754:
3755: -- RMUNJULU PERF
3982: -- akrangan added for debug feature start
3983: l_module_name VARCHAR2 (500)
3984: := g_module_name || 'write_to_log';
3985: is_debug_exception_on BOOLEAN
3986: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3987: is_debug_procedure_on BOOLEAN
3988: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3989: is_debug_statement_on BOOLEAN
3990: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3984: := g_module_name || 'write_to_log';
3985: is_debug_exception_on BOOLEAN
3986: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3987: is_debug_procedure_on BOOLEAN
3988: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3989: is_debug_statement_on BOOLEAN
3990: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3991: -- akrangan added for debug feature end
3992: BEGIN
3986: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3987: is_debug_procedure_on BOOLEAN
3988: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3989: is_debug_statement_on BOOLEAN
3990: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3991: -- akrangan added for debug feature end
3992: BEGIN
3993: IF (is_debug_procedure_on) THEN
3994: okl_debug_pub.log_debug (g_level_procedure,
3990: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3991: -- akrangan added for debug feature end
3992: BEGIN
3993: IF (is_debug_procedure_on) THEN
3994: okl_debug_pub.log_debug (g_level_procedure,
3995: l_module_name,
3996: 'Begin(+)'
3997: );
3998: END IF;
4005: ELSIF NVL (p_num_processes, 0) = 1 THEN
4006: --write_to_log('Single worker requested');
4007: -- no need to run algorithm, directly call single thread program here
4008: IF (is_debug_statement_on) THEN
4009: okl_debug_pub.log_debug (g_level_statement,
4010: l_module_name,
4011: 'before batch_expire_lease_loan '
4012: );
4013: END IF;
4022: x_term_tbl => l_term_tbl
4023: );
4024:
4025: IF (is_debug_statement_on) THEN
4026: okl_debug_pub.log_debug (g_level_statement,
4027: l_module_name,
4028: 'after batch_expire_lease_loan '
4029: );
4030: okl_debug_pub.log_debug (g_level_statement,
4026: okl_debug_pub.log_debug (g_level_statement,
4027: l_module_name,
4028: 'after batch_expire_lease_loan '
4029: );
4030: okl_debug_pub.log_debug (g_level_statement,
4031: l_module_name,
4032: 'l_return_status = ' || l_return_status
4033: );
4034: END IF;
4274: ('No workers assigned due to no data found for prcocesing');
4275: END IF; -- l_data_found
4276:
4277: IF (is_debug_procedure_on) THEN
4278: okl_debug_pub.log_debug (g_level_procedure, l_module_name, 'End(-)');
4279: END IF;
4280: EXCEPTION
4281: WHEN OTHERS THEN
4282: IF (is_debug_exception_on) THEN
4279: END IF;
4280: EXCEPTION
4281: WHEN OTHERS THEN
4282: IF (is_debug_exception_on) THEN
4283: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4284: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4285: END IF;
4286: write_to_log ('Unhandled Exception ' || SQLERRM);
4287: END process_spawner;