[Home] [Help]
52: k_deal_type_rec k_deal_type_csr%ROWTYPE;
53: l_module_name VARCHAR2 (500)
54: := g_module_name || 'check_lease_or_loan';
55: is_debug_exception_on BOOLEAN
56: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
57: is_debug_procedure_on BOOLEAN
58: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
59: is_debug_statement_on BOOLEAN
60: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
54: := g_module_name || 'check_lease_or_loan';
55: is_debug_exception_on BOOLEAN
56: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
57: is_debug_procedure_on BOOLEAN
58: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
59: is_debug_statement_on BOOLEAN
60: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
61: BEGIN
62: IF (is_debug_procedure_on)
56: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
57: is_debug_procedure_on BOOLEAN
58: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
59: is_debug_statement_on BOOLEAN
60: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
61: BEGIN
62: IF (is_debug_procedure_on)
63: THEN
64: okl_debug_pub.log_debug (g_level_procedure,
60: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
61: BEGIN
62: IF (is_debug_procedure_on)
63: THEN
64: okl_debug_pub.log_debug (g_level_procedure,
65: l_module_name,
66: 'Begin(+)'
67: );
68: END IF;
68: END IF;
69:
70: IF (is_debug_statement_on)
71: THEN
72: okl_debug_pub.log_debug (g_level_statement,
73: l_module_name,
74: 'In param, p_khr_id: ' || p_khr_id
75: );
76: END IF;
103: x_lease_loan_type := l_lease_loan_type;
104:
105: IF (is_debug_procedure_on)
106: THEN
107: okl_debug_pub.log_debug (g_level_procedure,
108: l_module_name,
109: 'End(-)'
110: );
111: END IF;
127: );
128:
129: IF (is_debug_exception_on)
130: THEN
131: okl_debug_pub.log_debug (g_level_exception,
132: l_module_name,
133: 'EXCEPTION :'
134: || 'OTHERS, SQLCODE: '
135: || SQLCODE
172: l_api_version NUMBER := 1;
173: l_module_name VARCHAR2 (500)
174: := g_module_name || 'update_quote_status';
175: is_debug_exception_on BOOLEAN
176: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
177: is_debug_procedure_on BOOLEAN
178: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
179: is_debug_statement_on BOOLEAN
180: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
174: := g_module_name || 'update_quote_status';
175: is_debug_exception_on BOOLEAN
176: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
177: is_debug_procedure_on BOOLEAN
178: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
179: is_debug_statement_on BOOLEAN
180: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
181: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
182:
176: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
177: is_debug_procedure_on BOOLEAN
178: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
179: is_debug_statement_on BOOLEAN
180: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
181: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
182:
183:
184: -- Fetch tmt_status_code
177: is_debug_procedure_on BOOLEAN
178: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
179: is_debug_statement_on BOOLEAN
180: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
181: --:= okl_debug_pub.check_log_on (l_module_name, g_level_exception);
182:
183:
184: -- Fetch tmt_status_code
185:
201:
202: BEGIN
203: IF (is_debug_procedure_on)
204: THEN
205: okl_debug_pub.log_debug (g_level_procedure,
206: l_module_name,
207: 'Begin(+)'
208: );
209: END IF;
215: CLOSE k_quotes_csr;
216:
217: IF (is_debug_statement_on)
218: THEN
219: okl_debug_pub.log_debug (g_level_statement,
220: l_module_name,
221: 'quote id value :p_term_rec.p_quote_id: '
222: || p_term_rec.p_quote_id
223: );
232: CLOSE c_tmt_status_code_csr;
233:
234: IF (is_debug_statement_on)
235: THEN
236: okl_debug_pub.log_debug (g_level_statement,
237: l_module_name,
238: 'quote exists and is in status accepted ');
239: okl_debug_pub.log_debug (g_level_statement,
240: l_module_name,
235: THEN
236: okl_debug_pub.log_debug (g_level_statement,
237: l_module_name,
238: 'quote exists and is in status accepted ');
239: okl_debug_pub.log_debug (g_level_statement,
240: l_module_name,
241: 'Show value of :l_tmt_status_code '
242: || l_tmt_status_code
243: );
261: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
262:
263: IF (is_debug_statement_on)
264: THEN
265: okl_debug_pub.log_debug (g_level_statement,
266: l_module_name,
267: 'failure while updating the quote status ');
268:
269: END IF;
360:
361: l_module_name VARCHAR2 (500)
362: := g_module_name || 'set_database_values';
363: is_debug_exception_on BOOLEAN
364: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
365: is_debug_procedure_on BOOLEAN
366: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
367: is_debug_statement_on BOOLEAN
368: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
362: := g_module_name || 'set_database_values';
363: is_debug_exception_on BOOLEAN
364: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
365: is_debug_procedure_on BOOLEAN
366: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
367: is_debug_statement_on BOOLEAN
368: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
369: BEGIN
370: IF (is_debug_procedure_on)
364: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
365: is_debug_procedure_on BOOLEAN
366: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
367: is_debug_statement_on BOOLEAN
368: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
369: BEGIN
370: IF (is_debug_procedure_on)
371: THEN
372: okl_debug_pub.log_debug (g_level_procedure,
368: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
369: BEGIN
370: IF (is_debug_procedure_on)
371: THEN
372: okl_debug_pub.log_debug (g_level_procedure,
373: l_module_name,
374: 'Begin(+)'
375: );
376: END IF;
376: END IF;
377:
378: IF (is_debug_statement_on)
379: THEN
380: okl_debug_pub.log_debug (g_level_statement,
381: l_module_name,
382: 'In param, px_term_rec.p_contract_id: '
383: || px_term_rec.p_contract_id
384: );
381: l_module_name,
382: 'In param, px_term_rec.p_contract_id: '
383: || px_term_rec.p_contract_id
384: );
385: okl_debug_pub.log_debug (g_level_statement,
386: l_module_name,
387: 'In param, px_term_rec.p_quote_id: '
388: || px_term_rec.p_quote_id
389: );
412: END IF;
413:
414: IF (is_debug_procedure_on)
415: THEN
416: okl_debug_pub.log_debug (g_level_procedure,
417: l_module_name,
418: 'End(-)'
419: );
420: END IF;
442: );
443:
444: IF (is_debug_exception_on)
445: THEN
446: okl_debug_pub.log_debug (g_level_exception,
447: l_module_name,
448: 'EXCEPTION :'
449: || 'OTHERS, SQLCODE: '
450: || SQLCODE
471: l_quote_type VARCHAR2 (2000);
472: l_module_name VARCHAR2 (500)
473: := g_module_name || 'set_info_messages';
474: is_debug_exception_on BOOLEAN
475: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
476: is_debug_procedure_on BOOLEAN
477: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
478: is_debug_statement_on BOOLEAN
479: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
473: := g_module_name || 'set_info_messages';
474: is_debug_exception_on BOOLEAN
475: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
476: is_debug_procedure_on BOOLEAN
477: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
478: is_debug_statement_on BOOLEAN
479: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
480: BEGIN
481: IF (is_debug_procedure_on)
475: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
476: is_debug_procedure_on BOOLEAN
477: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
478: is_debug_statement_on BOOLEAN
479: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
480: BEGIN
481: IF (is_debug_procedure_on)
482: THEN
483: okl_debug_pub.log_debug (g_level_procedure,
479: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
480: BEGIN
481: IF (is_debug_procedure_on)
482: THEN
483: okl_debug_pub.log_debug (g_level_procedure,
484: l_module_name,
485: 'Begin(+)'
486: );
487: END IF;
487: END IF;
488:
489: IF (is_debug_statement_on)
490: THEN
491: okl_debug_pub.log_debug (g_level_statement,
492: l_module_name,
493: 'In param, p_term_rec.p_control_flag: '
494: || p_term_rec.p_control_flag
495: );
492: l_module_name,
493: 'In param, p_term_rec.p_control_flag: '
494: || p_term_rec.p_control_flag
495: );
496: okl_debug_pub.log_debug (g_level_statement,
497: l_module_name,
498: 'In param, p_term_rec.p_quote_id: '
499: || p_term_rec.p_quote_id
500: );
562: END IF;
563:
564: IF (is_debug_procedure_on)
565: THEN
566: okl_debug_pub.log_debug (g_level_procedure,
567: l_module_name,
568: 'End(-)'
569: );
570: END IF;
581: );
582:
583: IF (is_debug_exception_on)
584: THEN
585: okl_debug_pub.log_debug (g_level_exception,
586: l_module_name,
587: 'EXCEPTION :'
588: || 'OTHERS, SQLCODE: '
589: || SQLCODE
656: l_return_status VARCHAR2 (1) := g_ret_sts_success;
657: l_module_name VARCHAR2 (500)
658: := g_module_name || 'initialize_transaction';
659: is_debug_exception_on BOOLEAN
660: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
661: is_debug_procedure_on BOOLEAN
662: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
663: is_debug_statement_on BOOLEAN
664: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
658: := g_module_name || 'initialize_transaction';
659: is_debug_exception_on BOOLEAN
660: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
661: is_debug_procedure_on BOOLEAN
662: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
663: is_debug_statement_on BOOLEAN
664: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
665: BEGIN
666: IF (is_debug_procedure_on)
660: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
661: is_debug_procedure_on BOOLEAN
662: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
663: is_debug_statement_on BOOLEAN
664: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
665: BEGIN
666: IF (is_debug_procedure_on)
667: THEN
668: okl_debug_pub.log_debug (g_level_procedure,
664: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
665: BEGIN
666: IF (is_debug_procedure_on)
667: THEN
668: okl_debug_pub.log_debug (g_level_procedure,
669: l_module_name,
670: 'Begin(+)'
671: );
672: END IF;
672: END IF;
673:
674: IF (is_debug_statement_on)
675: THEN
676: okl_debug_pub.log_debug (g_level_statement,
677: l_module_name,
678: 'In param, p_sys_date: ' || p_sys_date
679: );
680: okl_debug_pub.log_debug (g_level_statement,
676: okl_debug_pub.log_debug (g_level_statement,
677: l_module_name,
678: 'In param, p_sys_date: ' || p_sys_date
679: );
680: okl_debug_pub.log_debug (g_level_statement,
681: l_module_name,
682: 'In param, p_control_flag: '
683: || p_control_flag
684: );
681: l_module_name,
682: 'In param, p_control_flag: '
683: || p_control_flag
684: );
685: okl_debug_pub.log_debug (g_level_statement,
686: l_module_name,
687: 'In param, p_term_rec.p_contract_id: '
688: || p_term_rec.p_contract_id
689: );
686: l_module_name,
687: 'In param, p_term_rec.p_contract_id: '
688: || p_term_rec.p_contract_id
689: );
690: okl_debug_pub.log_debug (g_level_statement,
691: l_module_name,
692: 'In param, p_term_rec.p_quote_id: '
693: || p_term_rec.p_quote_id
694: );
691: l_module_name,
692: 'In param, p_term_rec.p_quote_id: '
693: || p_term_rec.p_quote_id
694: );
695: okl_debug_pub.log_debug
696: (g_level_statement,
697: l_module_name,
698: 'In param, p_term_rec.p_termination_reason: '
699: || p_term_rec.p_termination_reason
703: IF p_control_flag = 'CREATE'
704: THEN
705: IF (is_debug_statement_on)
706: THEN
707: okl_debug_pub.log_debug
708: (g_level_statement,
709: l_module_name,
710: 'calling OKL_AM_UTIL_PVT.get_transaction_id'
711: );
719: );
720:
721: IF (is_debug_statement_on)
722: THEN
723: okl_debug_pub.log_debug
724: (g_level_statement,
725: l_module_name,
726: 'called OKL_AM_UTIL_PVT.get_transaction_id , l_return_status: '
727: || l_return_status
780: x_return_status := l_return_status;
781:
782: IF (is_debug_procedure_on)
783: THEN
784: okl_debug_pub.log_debug (g_level_procedure,
785: l_module_name,
786: 'End(-)'
787: );
788: END IF;
793: x_return_status := g_ret_sts_unexp_error;
794:
795: IF (is_debug_exception_on)
796: THEN
797: okl_debug_pub.log_debug (g_level_exception,
798: l_module_name,
799: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
800: );
801: END IF;
813: x_return_status := g_ret_sts_unexp_error;
814:
815: IF (is_debug_exception_on)
816: THEN
817: okl_debug_pub.log_debug (g_level_exception,
818: l_module_name,
819: 'EXCEPTION :'
820: || 'OTHERS, SQLCODE: '
821: || SQLCODE
846: IS
847: l_module_name VARCHAR2 (500)
848: := g_module_name || 'set_transaction_rec';
849: is_debug_exception_on BOOLEAN
850: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
851: is_debug_procedure_on BOOLEAN
852: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
853: is_debug_statement_on BOOLEAN
854: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
848: := g_module_name || 'set_transaction_rec';
849: is_debug_exception_on BOOLEAN
850: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
851: is_debug_procedure_on BOOLEAN
852: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
853: is_debug_statement_on BOOLEAN
854: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
855: BEGIN
856: IF (is_debug_procedure_on)
850: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
851: is_debug_procedure_on BOOLEAN
852: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
853: is_debug_statement_on BOOLEAN
854: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
855: BEGIN
856: IF (is_debug_procedure_on)
857: THEN
858: okl_debug_pub.log_debug (g_level_procedure,
854: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
855: BEGIN
856: IF (is_debug_procedure_on)
857: THEN
858: okl_debug_pub.log_debug (g_level_procedure,
859: l_module_name,
860: 'Begin(+)'
861: );
862: END IF;
862: END IF;
863:
864: IF (is_debug_statement_on)
865: THEN
866: okl_debug_pub.log_debug (g_level_statement,
867: l_module_name,
868: 'In param, p_return_status: '
869: || p_return_status
870: );
867: l_module_name,
868: 'In param, p_return_status: '
869: || p_return_status
870: );
871: okl_debug_pub.log_debug (g_level_statement,
872: l_module_name,
873: 'In param, p_overall_status: '
874: || p_overall_status
875: );
872: l_module_name,
873: 'In param, p_overall_status: '
874: || p_overall_status
875: );
876: okl_debug_pub.log_debug (g_level_statement,
877: l_module_name,
878: 'In param, p_tmt_flag: ' || p_tmt_flag
879: );
880: okl_debug_pub.log_debug (g_level_statement,
876: okl_debug_pub.log_debug (g_level_statement,
877: l_module_name,
878: 'In param, p_tmt_flag: ' || p_tmt_flag
879: );
880: okl_debug_pub.log_debug (g_level_statement,
881: l_module_name,
882: 'In param, p_tsu_code: ' || p_tsu_code
883: );
884: okl_debug_pub.log_debug (g_level_statement,
880: okl_debug_pub.log_debug (g_level_statement,
881: l_module_name,
882: 'In param, p_tsu_code: ' || p_tsu_code
883: );
884: okl_debug_pub.log_debug (g_level_statement,
885: l_module_name,
886: 'In param, p_ret_val: ' || p_ret_val
887: );
888: END IF;
1044: END IF;
1045:
1046: IF (is_debug_procedure_on)
1047: THEN
1048: okl_debug_pub.log_debug (g_level_procedure,
1049: l_module_name,
1050: 'End(-)'
1051: );
1052: END IF;
1063: );
1064:
1065: IF (is_debug_exception_on)
1066: THEN
1067: okl_debug_pub.log_debug (g_level_exception,
1068: l_module_name,
1069: 'EXCEPTION :'
1070: || 'OTHERS, SQLCODE: '
1071: || SQLCODE
1102: l_msg_data VARCHAR2 (2000);
1103: l_module_name VARCHAR2 (500)
1104: := g_module_name || 'process_transaction';
1105: is_debug_exception_on BOOLEAN
1106: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1107: is_debug_procedure_on BOOLEAN
1108: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1109: is_debug_statement_on BOOLEAN
1110: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1104: := g_module_name || 'process_transaction';
1105: is_debug_exception_on BOOLEAN
1106: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1107: is_debug_procedure_on BOOLEAN
1108: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1109: is_debug_statement_on BOOLEAN
1110: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1111: BEGIN
1112: IF (is_debug_procedure_on)
1106: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1107: is_debug_procedure_on BOOLEAN
1108: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1109: is_debug_statement_on BOOLEAN
1110: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1111: BEGIN
1112: IF (is_debug_procedure_on)
1113: THEN
1114: okl_debug_pub.log_debug (g_level_procedure,
1110: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1111: BEGIN
1112: IF (is_debug_procedure_on)
1113: THEN
1114: okl_debug_pub.log_debug (g_level_procedure,
1115: l_module_name,
1116: 'Begin(+)'
1117: );
1118: END IF;
1118: END IF;
1119:
1120: IF (is_debug_statement_on)
1121: THEN
1122: okl_debug_pub.log_debug (g_level_statement,
1123: l_module_name,
1124: 'In param, p_id: ' || p_id
1125: );
1126: okl_debug_pub.log_debug (g_level_statement,
1122: okl_debug_pub.log_debug (g_level_statement,
1123: l_module_name,
1124: 'In param, p_id: ' || p_id
1125: );
1126: okl_debug_pub.log_debug (g_level_statement,
1127: l_module_name,
1128: 'In param, p_trn_mode: ' || p_trn_mode
1129: );
1130: END IF;
1138: IF p_trn_mode = 'INSERT'
1139: THEN
1140: IF (is_debug_statement_on)
1141: THEN
1142: okl_debug_pub.log_debug
1143: (g_level_statement,
1144: l_module_name,
1145: 'calling OKL_TRX_CONTRACTS_PUB.create_trx_contracts'
1146: );
1158: );
1159:
1160: IF (is_debug_statement_on)
1161: THEN
1162: okl_debug_pub.log_debug
1163: (g_level_statement,
1164: l_module_name,
1165: 'called OKL_TRX_CONTRACTS_PUB.create_trx_contracts , return status: '
1166: || l_return_status
1169: ELSIF p_trn_mode = 'UPDATE'
1170: THEN
1171: IF (is_debug_statement_on)
1172: THEN
1173: okl_debug_pub.log_debug
1174: (g_level_statement,
1175: l_module_name,
1176: 'calling OKL_TRX_CONTRACTS_PUB.update_trx_contracts'
1177: );
1189: );
1190:
1191: IF (is_debug_statement_on)
1192: THEN
1193: okl_debug_pub.log_debug
1194: (g_level_statement,
1195: l_module_name,
1196: 'called OKL_TRX_CONTRACTS_PUB.update_trx_contracts , return status: '
1197: || l_return_status
1213: x_id := lx_tcnv_rec.ID;
1214:
1215: IF (is_debug_procedure_on)
1216: THEN
1217: okl_debug_pub.log_debug (g_level_procedure,
1218: l_module_name,
1219: 'End(-)'
1220: );
1221: END IF;
1226: x_return_status := g_ret_sts_error;
1227:
1228: IF (is_debug_exception_on)
1229: THEN
1230: okl_debug_pub.log_debug (g_level_exception,
1231: l_module_name,
1232: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
1233: );
1234: END IF;
1238: x_return_status := g_ret_sts_unexp_error;
1239:
1240: IF (is_debug_exception_on)
1241: THEN
1242: okl_debug_pub.log_debug (g_level_exception,
1243: l_module_name,
1244: 'EXCEPTION :'
1245: || 'G_EXCEPTION_UNEXPECTED_ERROR'
1246: );
1259: );
1260:
1261: IF (is_debug_exception_on)
1262: THEN
1263: okl_debug_pub.log_debug (g_level_exception,
1264: l_module_name,
1265: 'EXCEPTION :'
1266: || 'OTHERS, SQLCODE: '
1267: || SQLCODE
1310: i NUMBER := 1;
1311: l_return_status VARCHAR2 (1) := g_ret_sts_success;
1312: l_module_name VARCHAR2 (500) := g_module_name || 'get_lines';
1313: is_debug_exception_on BOOLEAN
1314: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1315: is_debug_procedure_on BOOLEAN
1316: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1317: is_debug_statement_on BOOLEAN
1318: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1312: l_module_name VARCHAR2 (500) := g_module_name || 'get_lines';
1313: is_debug_exception_on BOOLEAN
1314: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1315: is_debug_procedure_on BOOLEAN
1316: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1317: is_debug_statement_on BOOLEAN
1318: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1319: BEGIN
1320: IF (is_debug_procedure_on)
1314: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1315: is_debug_procedure_on BOOLEAN
1316: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1317: is_debug_statement_on BOOLEAN
1318: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1319: BEGIN
1320: IF (is_debug_procedure_on)
1321: THEN
1322: okl_debug_pub.log_debug (g_level_procedure,
1318: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1319: BEGIN
1320: IF (is_debug_procedure_on)
1321: THEN
1322: okl_debug_pub.log_debug (g_level_procedure,
1323: l_module_name,
1324: 'Begin(+)'
1325: );
1326: END IF;
1326: END IF;
1327:
1328: IF (is_debug_statement_on)
1329: THEN
1330: okl_debug_pub.log_debug (g_level_statement,
1331: l_module_name,
1332: 'In param, p_term_rec.p_quote_id: '
1333: || p_term_rec.p_quote_id
1334: );
1358: x_klev_tbl := lx_klev_tbl;
1359:
1360: IF (is_debug_procedure_on)
1361: THEN
1362: okl_debug_pub.log_debug (g_level_procedure,
1363: l_module_name,
1364: 'End(-)'
1365: );
1366: END IF;
1385: x_return_status := g_ret_sts_unexp_error;
1386:
1387: IF (is_debug_exception_on)
1388: THEN
1389: okl_debug_pub.log_debug (g_level_exception,
1390: l_module_name,
1391: 'EXCEPTION :'
1392: || 'OTHERS, SQLCODE: '
1393: || SQLCODE
1443: l_return_status VARCHAR2 (1) := g_ret_sts_success;
1444: l_module_name VARCHAR2 (500)
1445: := g_module_name || 'validate_contract_and_lines';
1446: is_debug_exception_on BOOLEAN
1447: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1448: is_debug_procedure_on BOOLEAN
1449: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1450: is_debug_statement_on BOOLEAN
1451: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1445: := g_module_name || 'validate_contract_and_lines';
1446: is_debug_exception_on BOOLEAN
1447: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1448: is_debug_procedure_on BOOLEAN
1449: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1450: is_debug_statement_on BOOLEAN
1451: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1452: BEGIN
1453: IF (is_debug_procedure_on)
1447: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1448: is_debug_procedure_on BOOLEAN
1449: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1450: is_debug_statement_on BOOLEAN
1451: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1452: BEGIN
1453: IF (is_debug_procedure_on)
1454: THEN
1455: okl_debug_pub.log_debug (g_level_procedure,
1451: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1452: BEGIN
1453: IF (is_debug_procedure_on)
1454: THEN
1455: okl_debug_pub.log_debug (g_level_procedure,
1456: l_module_name,
1457: 'Begin(+)'
1458: );
1459: END IF;
1459: END IF;
1460:
1461: IF (is_debug_statement_on)
1462: THEN
1463: okl_debug_pub.log_debug (g_level_statement,
1464: l_module_name,
1465: 'In param, p_sys_date: ' || p_sys_date
1466: );
1467: okl_debug_pub.log_debug (g_level_statement,
1463: okl_debug_pub.log_debug (g_level_statement,
1464: l_module_name,
1465: 'In param, p_sys_date: ' || p_sys_date
1466: );
1467: okl_debug_pub.log_debug (g_level_statement,
1468: l_module_name,
1469: 'In param, p_term_rec.p_contract_id: '
1470: || p_term_rec.p_contract_id
1471: );
1468: l_module_name,
1469: 'In param, p_term_rec.p_contract_id: '
1470: || p_term_rec.p_contract_id
1471: );
1472: okl_debug_pub.log_debug
1473: (g_level_statement,
1474: l_module_name,
1475: 'In param, p_term_rec.p_contract_number: '
1476: || p_term_rec.p_contract_number
1480: THEN
1481: i := p_klev_tbl.FIRST;
1482:
1483: LOOP
1484: okl_debug_pub.log_debug (g_level_statement,
1485: l_module_name,
1486: 'In param, p_klev_tbl('
1487: || i
1488: || ').p_kle_id: '
1550: x_return_status := l_return_status;
1551:
1552: IF (is_debug_procedure_on)
1553: THEN
1554: okl_debug_pub.log_debug (g_level_procedure,
1555: l_module_name,
1556: 'End(-)'
1557: );
1558: END IF;
1582: x_return_status := g_ret_sts_unexp_error;
1583:
1584: IF (is_debug_exception_on)
1585: THEN
1586: okl_debug_pub.log_debug (g_level_exception,
1587: l_module_name,
1588: 'EXCEPTION :'
1589: || 'OTHERS, SQLCODE: '
1590: || SQLCODE
1650: ib_id NUMBER := 0;
1651: l_module_name VARCHAR2 (500)
1652: := g_module_name || 'do_split_asset_trn';
1653: is_debug_exception_on BOOLEAN
1654: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1655: is_debug_procedure_on BOOLEAN
1656: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1657: is_debug_statement_on BOOLEAN
1658: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1652: := g_module_name || 'do_split_asset_trn';
1653: is_debug_exception_on BOOLEAN
1654: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1655: is_debug_procedure_on BOOLEAN
1656: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1657: is_debug_statement_on BOOLEAN
1658: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1659: --SECHAWLA 14-JAN-03 2748110 : New Declarations
1660: ib_line_id NUMBER := 0;
1654: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
1655: is_debug_procedure_on BOOLEAN
1656: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
1657: is_debug_statement_on BOOLEAN
1658: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
1659: --SECHAWLA 14-JAN-03 2748110 : New Declarations
1660: ib_line_id NUMBER := 0;
1661: id_exists VARCHAR2 (1);
1662: -- SECHAWLA 23-DEC-02 2484327 Added variable
1675: SAVEPOINT do_split_asset_trn;
1676:
1677: IF (is_debug_procedure_on)
1678: THEN
1679: okl_debug_pub.log_debug (g_level_procedure,
1680: l_module_name,
1681: 'Begin(+)'
1682: );
1683: END IF;
1683: END IF;
1684:
1685: IF (is_debug_statement_on)
1686: THEN
1687: okl_debug_pub.log_debug (g_level_statement,
1688: l_module_name,
1689: 'In param, p_trn_already_set: '
1690: || p_trn_already_set
1691: );
1688: l_module_name,
1689: 'In param, p_trn_already_set: '
1690: || p_trn_already_set
1691: );
1692: okl_debug_pub.log_debug (g_level_statement,
1693: l_module_name,
1694: 'In param, px_overall_status: '
1695: || px_overall_status
1696: );
1693: l_module_name,
1694: 'In param, px_overall_status: '
1695: || px_overall_status
1696: );
1697: okl_debug_pub.log_debug (g_level_statement,
1698: l_module_name,
1699: 'In param, p_sys_date: ' || p_sys_date
1700: );
1701: okl_debug_pub.log_debug
1697: okl_debug_pub.log_debug (g_level_statement,
1698: l_module_name,
1699: 'In param, p_sys_date: ' || p_sys_date
1700: );
1701: okl_debug_pub.log_debug
1702: (g_level_statement,
1703: l_module_name,
1704: 'In param, px_tcnv_rec.tmt_generic_flag1_yn: '
1705: || px_tcnv_rec.tmt_generic_flag1_yn
1710: FOR i IN px_klev_tbl.FIRST .. px_klev_tbl.LAST
1711: LOOP
1712: IF (px_klev_tbl.EXISTS (i))
1713: THEN
1714: okl_debug_pub.log_debug (g_level_statement,
1715: l_module_name,
1716: 'In param, px_klev_tbl('
1717: || i
1718: || ').p_kle_id: '
1717: || i
1718: || ').p_kle_id: '
1719: || px_klev_tbl (i).p_kle_id
1720: );
1721: okl_debug_pub.log_debug (g_level_statement,
1722: l_module_name,
1723: 'In param, px_klev_tbl('
1724: || i
1725: || ').p_asset_quantity: '
1724: || i
1725: || ').p_asset_quantity: '
1726: || px_klev_tbl (i).p_asset_quantity
1727: );
1728: okl_debug_pub.log_debug (g_level_statement,
1729: l_module_name,
1730: 'In param, px_klev_tbl('
1731: || i
1732: || ').p_asset_name: '
1731: || i
1732: || ').p_asset_name: '
1733: || px_klev_tbl (i).p_asset_name
1734: );
1735: okl_debug_pub.log_debug (g_level_statement,
1736: l_module_name,
1737: 'In param, px_klev_tbl('
1738: || i
1739: || ').p_quote_quantity: '
1738: || i
1739: || ').p_quote_quantity: '
1740: || px_klev_tbl (i).p_quote_quantity
1741: );
1742: okl_debug_pub.log_debug (g_level_statement,
1743: l_module_name,
1744: 'In param, px_klev_tbl('
1745: || i
1746: || ').p_tql_id: '
1745: || i
1746: || ').p_tql_id: '
1747: || px_klev_tbl (i).p_tql_id
1748: );
1749: okl_debug_pub.log_debug (g_level_statement,
1750: l_module_name,
1751: 'In param, px_klev_tbl('
1752: || i
1753: || ').p_split_kle_name: '
1848: -- Check if the IB instances for this asset are serialized
1849: -- also get the IB instances which are serialized
1850: IF (is_debug_statement_on)
1851: THEN
1852: okl_debug_pub.log_debug
1853: (g_level_statement,
1854: l_module_name,
1855: 'calling OKL_AM_TERMNT_QUOTE_PVT.check_asset_sno'
1856: );
1864: );
1865:
1866: IF (is_debug_statement_on)
1867: THEN
1868: okl_debug_pub.log_debug
1869: (g_level_statement,
1870: l_module_name,
1871: 'called OKL_AM_TERMNT_QUOTE_PVT.check_asset_sno , return status: '
1872: || x_return_status
1966: -- Create the split asset transactions
1967: -- rmunjulu EDAT Call the new signature of split asset which takes trx date
1968: IF (is_debug_statement_on)
1969: THEN
1970: okl_debug_pub.log_debug
1971: (g_level_statement,
1972: l_module_name,
1973: 'calling OKL_SPLIT_ASSET_PUB.create_split_transaction'
1974: );
1995: );
1996:
1997: IF (is_debug_statement_on)
1998: THEN
1999: okl_debug_pub.log_debug
2000: (g_level_statement,
2001: l_module_name,
2002: 'called OKL_SPLIT_ASSET_PUB.create_split_transaction , return status: '
2003: || x_return_status
2029: lx_txd_assets_rec.ID := lx_txdv_tbl (j).ID;
2030:
2031: IF (is_debug_statement_on)
2032: THEN
2033: okl_debug_pub.log_debug
2034: (g_level_statement,
2035: l_module_name,
2036: 'calling OKL_TXD_ASSETS_PUB.update_txd_asset_def'
2037: );
2048: );
2049:
2050: IF (is_debug_statement_on)
2051: THEN
2052: okl_debug_pub.log_debug
2053: (g_level_statement,
2054: l_module_name,
2055: 'called OKL_TXD_ASSETS_PUB.update_txd_asset_def , return status: '
2056: || x_return_status
2085: px_overall_status => px_overall_status);
2086:
2087: IF (is_debug_statement_on)
2088: THEN
2089: okl_debug_pub.log_debug
2090: (g_level_statement,
2091: l_module_name,
2092: 'called set_overall_status , return status: '
2093: || x_return_status
2091: l_module_name,
2092: 'called set_overall_status , return status: '
2093: || x_return_status
2094: );
2095: okl_debug_pub.log_debug (g_level_statement,
2096: l_module_name,
2097: 'px_overall_status: '
2098: || px_overall_status
2099: );
2108: );
2109:
2110: IF (is_debug_statement_on)
2111: THEN
2112: okl_debug_pub.log_debug
2113: (g_level_statement,
2114: l_module_name,
2115: 'called set_transaction_rec , return status: '
2116: || x_return_status
2114: l_module_name,
2115: 'called set_transaction_rec , return status: '
2116: || x_return_status
2117: );
2118: okl_debug_pub.log_debug (g_level_statement,
2119: l_module_name,
2120: 'px_overall_status: '
2121: || px_overall_status
2122: );
2124: END IF;
2125:
2126: IF (is_debug_procedure_on)
2127: THEN
2128: okl_debug_pub.log_debug (g_level_procedure,
2129: l_module_name,
2130: 'End(-)'
2131: );
2132: END IF;
2158: );
2159:
2160: IF (is_debug_exception_on)
2161: THEN
2162: okl_debug_pub.log_debug (g_level_exception,
2163: l_module_name,
2164: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
2165: );
2166: END IF;
2191: );
2192:
2193: IF (is_debug_exception_on)
2194: THEN
2195: okl_debug_pub.log_debug (g_level_exception,
2196: l_module_name,
2197: 'EXCEPTION :'
2198: || 'G_EXCEPTION_UNEXPECTED_ERROR'
2199: );
2233: );
2234:
2235: IF (is_debug_exception_on)
2236: THEN
2237: okl_debug_pub.log_debug (g_level_exception,
2238: l_module_name,
2239: 'EXCEPTION :'
2240: || 'OTHERS, SQLCODE: '
2241: || SQLCODE
2325: ib_id NUMBER := 0;
2326: l_module_name VARCHAR2 (500)
2327: := g_module_name || 'do_split_asset';
2328: is_debug_exception_on BOOLEAN
2329: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2330: is_debug_procedure_on BOOLEAN
2331: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2332: is_debug_statement_on BOOLEAN
2333: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2327: := g_module_name || 'do_split_asset';
2328: is_debug_exception_on BOOLEAN
2329: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2330: is_debug_procedure_on BOOLEAN
2331: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2332: is_debug_statement_on BOOLEAN
2333: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2334: --SECHAWLA 14-JAN-03 2748110 : New Declarations
2335: ib_line_id NUMBER := 0;
2329: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
2330: is_debug_procedure_on BOOLEAN
2331: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
2332: is_debug_statement_on BOOLEAN
2333: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
2334: --SECHAWLA 14-JAN-03 2748110 : New Declarations
2335: ib_line_id NUMBER := 0;
2336: id_exists VARCHAR2 (1);
2337: -- SECHAWLA 23-DEC-02 2484327 Added variable
2431: AND lse.lty_code = 'FIXED_ASSET';
2432: BEGIN
2433: IF (is_debug_procedure_on)
2434: THEN
2435: okl_debug_pub.log_debug (g_level_procedure,
2436: l_module_name,
2437: 'Begin(+)'
2438: );
2439: END IF;
2439: END IF;
2440:
2441: IF (is_debug_statement_on)
2442: THEN
2443: okl_debug_pub.log_debug (g_level_statement,
2444: l_module_name,
2445: 'In param, p_asset_number: '
2446: || p_asset_number
2447: );
2461: END LOOP;
2462:
2463: IF (is_debug_statement_on)
2464: THEN
2465: okl_debug_pub.log_debug (g_level_statement,
2466: l_module_name,
2467: 'Returning l_asset_exists: '
2468: || l_asset_exists
2469: );
2470: END IF;
2471:
2472: IF (is_debug_procedure_on)
2473: THEN
2474: okl_debug_pub.log_debug (g_level_procedure,
2475: l_module_name,
2476: 'End(-)'
2477: );
2478: END IF;
2491: );
2492:
2493: IF (is_debug_exception_on)
2494: THEN
2495: okl_debug_pub.log_debug (g_level_exception,
2496: l_module_name,
2497: 'EXCEPTION :'
2498: || 'OTHERS, SQLCODE: '
2499: || SQLCODE
2508: SAVEPOINT do_split_asset;
2509:
2510: IF (is_debug_procedure_on)
2511: THEN
2512: okl_debug_pub.log_debug (g_level_procedure,
2513: l_module_name,
2514: 'Begin(+)'
2515: );
2516: END IF;
2516: END IF;
2517:
2518: IF (is_debug_statement_on)
2519: THEN
2520: okl_debug_pub.log_debug
2521: (g_level_statement,
2522: l_module_name,
2523: 'In param, p_term_rec.p_contract_number: '
2524: || p_term_rec.p_contract_number
2522: l_module_name,
2523: 'In param, p_term_rec.p_contract_number: '
2524: || p_term_rec.p_contract_number
2525: );
2526: okl_debug_pub.log_debug (g_level_statement,
2527: l_module_name,
2528: 'In param, p_sys_date: ' || p_sys_date
2529: );
2530: okl_debug_pub.log_debug (g_level_statement,
2526: okl_debug_pub.log_debug (g_level_statement,
2527: l_module_name,
2528: 'In param, p_sys_date: ' || p_sys_date
2529: );
2530: okl_debug_pub.log_debug (g_level_statement,
2531: l_module_name,
2532: 'In param, p_trn_already_set: '
2533: || p_trn_already_set
2534: );
2531: l_module_name,
2532: 'In param, p_trn_already_set: '
2533: || p_trn_already_set
2534: );
2535: okl_debug_pub.log_debug (g_level_statement,
2536: l_module_name,
2537: 'In param, px_overall_status: '
2538: || px_overall_status
2539: );
2536: l_module_name,
2537: 'In param, px_overall_status: '
2538: || px_overall_status
2539: );
2540: okl_debug_pub.log_debug
2541: (g_level_statement,
2542: l_module_name,
2543: 'In param, px_tcnv_rec.tmt_split_asset_yn: '
2544: || px_tcnv_rec.tmt_split_asset_yn
2549: FOR i IN px_klev_tbl.FIRST .. px_klev_tbl.LAST
2550: LOOP
2551: IF (px_klev_tbl.EXISTS (i))
2552: THEN
2553: okl_debug_pub.log_debug (g_level_statement,
2554: l_module_name,
2555: 'In param, px_klev_tbl('
2556: || i
2557: || ').p_kle_id: '
2556: || i
2557: || ').p_kle_id: '
2558: || px_klev_tbl (i).p_kle_id
2559: );
2560: okl_debug_pub.log_debug (g_level_statement,
2561: l_module_name,
2562: 'In param, px_klev_tbl('
2563: || i
2564: || ').p_asset_quantity: '
2563: || i
2564: || ').p_asset_quantity: '
2565: || px_klev_tbl (i).p_asset_quantity
2566: );
2567: okl_debug_pub.log_debug (g_level_statement,
2568: l_module_name,
2569: 'In param, px_klev_tbl('
2570: || i
2571: || ').p_asset_name: '
2570: || i
2571: || ').p_asset_name: '
2572: || px_klev_tbl (i).p_asset_name
2573: );
2574: okl_debug_pub.log_debug (g_level_statement,
2575: l_module_name,
2576: 'In param, px_klev_tbl('
2577: || i
2578: || ').p_quote_quantity: '
2577: || i
2578: || ').p_quote_quantity: '
2579: || px_klev_tbl (i).p_quote_quantity
2580: );
2581: okl_debug_pub.log_debug (g_level_statement,
2582: l_module_name,
2583: 'In param, px_klev_tbl('
2584: || i
2585: || ').p_tql_id: '
2584: || i
2585: || ').p_tql_id: '
2586: || px_klev_tbl (i).p_tql_id
2587: );
2588: okl_debug_pub.log_debug (g_level_statement,
2589: l_module_name,
2590: 'In param, px_klev_tbl('
2591: || i
2592: || ').p_split_kle_name: '
2628: IF l_split_trn_processed_yn = 'N'
2629: THEN
2630: IF (is_debug_statement_on)
2631: THEN
2632: okl_debug_pub.log_debug
2633: (g_level_statement,
2634: l_module_name,
2635: 'calling OKL_SPLIT_ASSET_PUB.split_fixed_asset'
2636: );
2651: -- sechawla 18-dec-07 - Split Asset Enhancements
2652:
2653: IF (is_debug_statement_on)
2654: THEN
2655: okl_debug_pub.log_debug
2656: (g_level_statement,
2657: l_module_name,
2658: 'called OKL_SPLIT_ASSET_PUB.split_fixed_asset , return status: '
2659: || x_return_status
2671: l_split_asset := get_split_asset_rec.asset_number;
2672:
2673: IF (is_debug_statement_on)
2674: THEN
2675: okl_debug_pub.log_debug
2676: (g_level_statement,
2677: l_module_name,
2678: 'calling OKL_AM_CREATE_QUOTE_PVT.asset_number_exists'
2679: );
2686: x_asset_exists => l_asset_exists);
2687:
2688: IF (is_debug_statement_on)
2689: THEN
2690: okl_debug_pub.log_debug
2691: (g_level_statement,
2692: l_module_name,
2693: 'called OKL_AM_CREATE_QUOTE_PVT.asset_number_exists , return status: '
2694: || l_return_status
2779: END IF;
2780:
2781: IF (is_debug_statement_on)
2782: THEN
2783: okl_debug_pub.log_debug
2784: (g_level_statement,
2785: l_module_name,
2786: 'calling OKL_TXL_QUOTE_LINES_PUB.update_txl_quote_lines'
2787: );
2799: );
2800:
2801: IF (is_debug_statement_on)
2802: THEN
2803: okl_debug_pub.log_debug
2804: (g_level_statement,
2805: l_module_name,
2806: 'called OKL_TXL_QUOTE_LINES_PUB.update_txl_quote_lines , return status: '
2807: || x_return_status
2866: END IF;
2867:
2868: IF (is_debug_procedure_on)
2869: THEN
2870: okl_debug_pub.log_debug (g_level_procedure,
2871: l_module_name,
2872: 'End(-)'
2873: );
2874: END IF;
2911: );
2912:
2913: IF (is_debug_exception_on)
2914: THEN
2915: okl_debug_pub.log_debug (g_level_exception,
2916: l_module_name,
2917: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
2918: );
2919: END IF;
2955: );
2956:
2957: IF (is_debug_exception_on)
2958: THEN
2959: okl_debug_pub.log_debug (g_level_exception,
2960: l_module_name,
2961: 'EXCEPTION :'
2962: || 'G_EXCEPTION_UNEXPECTED_ERROR'
2963: );
3008: );
3009:
3010: IF (is_debug_exception_on)
3011: THEN
3012: okl_debug_pub.log_debug (g_level_exception,
3013: l_module_name,
3014: 'EXCEPTION :'
3015: || 'OTHERS, SQLCODE: '
3016: || SQLCODE
3063: l_msg_data VARCHAR2 (2000);
3064: l_module_name VARCHAR2 (500)
3065: := g_module_name || 'split_asset';
3066: is_debug_exception_on BOOLEAN
3067: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3068: is_debug_procedure_on BOOLEAN
3069: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3070: is_debug_statement_on BOOLEAN
3071: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3065: := g_module_name || 'split_asset';
3066: is_debug_exception_on BOOLEAN
3067: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3068: is_debug_procedure_on BOOLEAN
3069: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3070: is_debug_statement_on BOOLEAN
3071: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3072: BEGIN
3073: -- Start a savepoint to rollback to if error in this block
3067: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3068: is_debug_procedure_on BOOLEAN
3069: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3070: is_debug_statement_on BOOLEAN
3071: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3072: BEGIN
3073: -- Start a savepoint to rollback to if error in this block
3074: SAVEPOINT split_asset;
3075:
3074: SAVEPOINT split_asset;
3075:
3076: IF (is_debug_procedure_on)
3077: THEN
3078: okl_debug_pub.log_debug (g_level_procedure,
3079: l_module_name,
3080: 'Begin(+)'
3081: );
3082: END IF;
3082: END IF;
3083:
3084: IF (is_debug_statement_on)
3085: THEN
3086: okl_debug_pub.log_debug (g_level_statement,
3087: l_module_name,
3088: 'In param, p_sys_date: ' || p_sys_date
3089: );
3090: okl_debug_pub.log_debug (g_level_statement,
3086: okl_debug_pub.log_debug (g_level_statement,
3087: l_module_name,
3088: 'In param, p_sys_date: ' || p_sys_date
3089: );
3090: okl_debug_pub.log_debug (g_level_statement,
3091: l_module_name,
3092: 'In param, p_trn_already_set: '
3093: || p_trn_already_set
3094: );
3091: l_module_name,
3092: 'In param, p_trn_already_set: '
3093: || p_trn_already_set
3094: );
3095: okl_debug_pub.log_debug (g_level_statement,
3096: l_module_name,
3097: 'In param, px_overall_status: '
3098: || px_overall_status
3099: );
3096: l_module_name,
3097: 'In param, px_overall_status: '
3098: || px_overall_status
3099: );
3100: okl_debug_pub.log_debug
3101: (g_level_statement,
3102: l_module_name,
3103: 'In param, px_tcnv_rec.tmt_split_asset_yn: '
3104: || px_tcnv_rec.tmt_split_asset_yn
3102: l_module_name,
3103: 'In param, px_tcnv_rec.tmt_split_asset_yn: '
3104: || px_tcnv_rec.tmt_split_asset_yn
3105: );
3106: okl_debug_pub.log_debug
3107: (g_level_statement,
3108: l_module_name,
3109: 'In param, px_tcnv_rec.tmt_generic_flag1_yn: '
3110: || px_tcnv_rec.tmt_generic_flag1_yn
3115: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
3116: LOOP
3117: IF (p_klev_tbl.EXISTS (i))
3118: THEN
3119: okl_debug_pub.log_debug (g_level_statement,
3120: l_module_name,
3121: 'In param, p_klev_tbl('
3122: || i
3123: || ').p_kle_id: '
3122: || i
3123: || ').p_kle_id: '
3124: || p_klev_tbl (i).p_kle_id
3125: );
3126: okl_debug_pub.log_debug (g_level_statement,
3127: l_module_name,
3128: 'In param, p_klev_tbl('
3129: || i
3130: || ').p_asset_quantity: '
3129: || i
3130: || ').p_asset_quantity: '
3131: || p_klev_tbl (i).p_asset_quantity
3132: );
3133: okl_debug_pub.log_debug (g_level_statement,
3134: l_module_name,
3135: 'In param, p_klev_tbl('
3136: || i
3137: || ').p_asset_name: '
3136: || i
3137: || ').p_asset_name: '
3138: || p_klev_tbl (i).p_asset_name
3139: );
3140: okl_debug_pub.log_debug (g_level_statement,
3141: l_module_name,
3142: 'In param, p_klev_tbl('
3143: || i
3144: || ').p_quote_quantity: '
3143: || i
3144: || ').p_quote_quantity: '
3145: || p_klev_tbl (i).p_quote_quantity
3146: );
3147: okl_debug_pub.log_debug (g_level_statement,
3148: l_module_name,
3149: 'In param, p_klev_tbl('
3150: || i
3151: || ').p_tql_id: '
3150: || i
3151: || ').p_tql_id: '
3152: || p_klev_tbl (i).p_tql_id
3153: );
3154: okl_debug_pub.log_debug (g_level_statement,
3155: l_module_name,
3156: 'In param, p_klev_tbl('
3157: || i
3158: || ').p_split_kle_name: '
3157: || i
3158: || ').p_split_kle_name: '
3159: || p_klev_tbl (i).p_split_kle_name
3160: );
3161: okl_debug_pub.log_debug (g_level_statement,
3162: l_module_name,
3163: 'In param, p_klev_tbl('
3164: || i
3165: || ').p_split_kle_id: '
3231: );
3232:
3233: IF (is_debug_statement_on)
3234: THEN
3235: okl_debug_pub.log_debug
3236: (g_level_statement,
3237: l_module_name,
3238: 'called do_split_asset_trn , return status: '
3239: || l_return_status
3261: );
3262:
3263: IF (is_debug_statement_on)
3264: THEN
3265: okl_debug_pub.log_debug
3266: (g_level_statement,
3267: l_module_name,
3268: 'called do_split_asset , return status: '
3269: || l_return_status
3306: x_klev_tbl := p_klev_tbl;
3307:
3308: IF (is_debug_procedure_on)
3309: THEN
3310: okl_debug_pub.log_debug (g_level_procedure,
3311: l_module_name,
3312: 'End(-)'
3313: );
3314: END IF;
3319: x_return_status := g_ret_sts_error;
3320:
3321: IF (is_debug_exception_on)
3322: THEN
3323: okl_debug_pub.log_debug (g_level_exception,
3324: l_module_name,
3325: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
3326: );
3327: END IF;
3331: x_return_status := g_ret_sts_unexp_error;
3332:
3333: IF (is_debug_exception_on)
3334: THEN
3335: okl_debug_pub.log_debug (g_level_exception,
3336: l_module_name,
3337: 'EXCEPTION :'
3338: || 'G_EXCEPTION_UNEXPECTED_ERROR'
3339: );
3352: );
3353:
3354: IF (is_debug_exception_on)
3355: THEN
3356: okl_debug_pub.log_debug (g_level_exception,
3357: l_module_name,
3358: 'EXCEPTION :'
3359: || 'OTHERS, SQLCODE: '
3360: || SQLCODE
3409: l_msg_data VARCHAR2 (2000);
3410: l_module_name VARCHAR2 (500)
3411: := g_module_name || 'close_streams';
3412: is_debug_exception_on BOOLEAN
3413: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3414: is_debug_procedure_on BOOLEAN
3415: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3416: is_debug_statement_on BOOLEAN
3417: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3411: := g_module_name || 'close_streams';
3412: is_debug_exception_on BOOLEAN
3413: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3414: is_debug_procedure_on BOOLEAN
3415: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3416: is_debug_statement_on BOOLEAN
3417: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3418: BEGIN
3419: -- Start a savepoint to rollback to if error in this block
3413: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3414: is_debug_procedure_on BOOLEAN
3415: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3416: is_debug_statement_on BOOLEAN
3417: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3418: BEGIN
3419: -- Start a savepoint to rollback to if error in this block
3420: SAVEPOINT close_streams;
3421:
3420: SAVEPOINT close_streams;
3421:
3422: IF (is_debug_procedure_on)
3423: THEN
3424: okl_debug_pub.log_debug (g_level_procedure,
3425: l_module_name,
3426: 'Begin(+)'
3427: );
3428: END IF;
3428: END IF;
3429:
3430: IF (is_debug_statement_on)
3431: THEN
3432: okl_debug_pub.log_debug (g_level_statement,
3433: l_module_name,
3434: 'In param, p_sys_date: ' || p_sys_date
3435: );
3436: okl_debug_pub.log_debug (g_level_statement,
3432: okl_debug_pub.log_debug (g_level_statement,
3433: l_module_name,
3434: 'In param, p_sys_date: ' || p_sys_date
3435: );
3436: okl_debug_pub.log_debug (g_level_statement,
3437: l_module_name,
3438: 'In param, p_trn_already_set: '
3439: || p_trn_already_set
3440: );
3437: l_module_name,
3438: 'In param, p_trn_already_set: '
3439: || p_trn_already_set
3440: );
3441: okl_debug_pub.log_debug (g_level_statement,
3442: l_module_name,
3443: 'In param, px_overall_status: '
3444: || px_overall_status
3445: );
3442: l_module_name,
3443: 'In param, px_overall_status: '
3444: || px_overall_status
3445: );
3446: okl_debug_pub.log_debug (g_level_statement,
3447: l_module_name,
3448: 'In param, p_term_rec.p_contract_id: '
3449: || p_term_rec.p_contract_id
3450: );
3447: l_module_name,
3448: 'In param, p_term_rec.p_contract_id: '
3449: || p_term_rec.p_contract_id
3450: );
3451: okl_debug_pub.log_debug
3452: (g_level_statement,
3453: l_module_name,
3454: 'In param, px_tcnv_rec.tmt_streams_updated_yn: '
3455: || px_tcnv_rec.tmt_streams_updated_yn
3460: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
3461: LOOP
3462: IF (p_klev_tbl.EXISTS (i))
3463: THEN
3464: okl_debug_pub.log_debug (g_level_statement,
3465: l_module_name,
3466: 'In param, p_klev_tbl('
3467: || i
3468: || ').p_kle_id: '
3467: || i
3468: || ').p_kle_id: '
3469: || p_klev_tbl (i).p_kle_id
3470: );
3471: okl_debug_pub.log_debug (g_level_statement,
3472: l_module_name,
3473: 'In param, p_klev_tbl('
3474: || i
3475: || ').p_asset_quantity: '
3474: || i
3475: || ').p_asset_quantity: '
3476: || p_klev_tbl (i).p_asset_quantity
3477: );
3478: okl_debug_pub.log_debug (g_level_statement,
3479: l_module_name,
3480: 'In param, p_klev_tbl('
3481: || i
3482: || ').p_asset_name: '
3481: || i
3482: || ').p_asset_name: '
3483: || p_klev_tbl (i).p_asset_name
3484: );
3485: okl_debug_pub.log_debug (g_level_statement,
3486: l_module_name,
3487: 'In param, p_klev_tbl('
3488: || i
3489: || ').p_quote_quantity: '
3488: || i
3489: || ').p_quote_quantity: '
3490: || p_klev_tbl (i).p_quote_quantity
3491: );
3492: okl_debug_pub.log_debug (g_level_statement,
3493: l_module_name,
3494: 'In param, p_klev_tbl('
3495: || i
3496: || ').p_tql_id: '
3495: || i
3496: || ').p_tql_id: '
3497: || p_klev_tbl (i).p_tql_id
3498: );
3499: okl_debug_pub.log_debug (g_level_statement,
3500: l_module_name,
3501: 'In param, p_klev_tbl('
3502: || i
3503: || ').p_split_kle_name: '
3502: || i
3503: || ').p_split_kle_name: '
3504: || p_klev_tbl (i).p_split_kle_name
3505: );
3506: okl_debug_pub.log_debug (g_level_statement,
3507: l_module_name,
3508: 'In param, p_klev_tbl('
3509: || i
3510: || ').p_split_kle_id: '
3575: END IF;
3576:
3577: IF (is_debug_statement_on)
3578: THEN
3579: okl_debug_pub.log_debug
3580: (g_level_statement,
3581: l_module_name,
3582: 'calling OKL_STREAMS_PUB.update_streams'
3583: );
3595: );
3596:
3597: IF (is_debug_statement_on)
3598: THEN
3599: okl_debug_pub.log_debug
3600: (g_level_statement,
3601: l_module_name,
3602: 'called OKL_STREAMS_PUB.update_streams , return status: '
3603: || l_return_status
3651: x_return_status := l_return_status;
3652:
3653: IF (is_debug_procedure_on)
3654: THEN
3655: okl_debug_pub.log_debug (g_level_procedure,
3656: l_module_name,
3657: 'End(-)'
3658: );
3659: END IF;
3680: );
3681:
3682: IF (is_debug_exception_on)
3683: THEN
3684: okl_debug_pub.log_debug (g_level_exception,
3685: l_module_name,
3686: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
3687: );
3688: END IF;
3708: );
3709:
3710: IF (is_debug_exception_on)
3711: THEN
3712: okl_debug_pub.log_debug (g_level_exception,
3713: l_module_name,
3714: 'EXCEPTION :'
3715: || 'G_EXCEPTION_UNEXPECTED_ERROR'
3716: );
3745: );
3746:
3747: IF (is_debug_exception_on)
3748: THEN
3749: okl_debug_pub.log_debug (g_level_exception,
3750: l_module_name,
3751: 'EXCEPTION :'
3752: || 'OTHERS, SQLCODE: '
3753: || SQLCODE
3826: l_trans_meaning VARCHAR2 (200);
3827: l_module_name VARCHAR2 (500)
3828: := g_module_name || 'accounting_entries';
3829: is_debug_exception_on BOOLEAN
3830: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3831: is_debug_procedure_on BOOLEAN
3832: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3833: is_debug_statement_on BOOLEAN
3834: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3828: := g_module_name || 'accounting_entries';
3829: is_debug_exception_on BOOLEAN
3830: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3831: is_debug_procedure_on BOOLEAN
3832: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3833: is_debug_statement_on BOOLEAN
3834: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3835: lp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
3836: lx_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
3830: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
3831: is_debug_procedure_on BOOLEAN
3832: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
3833: is_debug_statement_on BOOLEAN
3834: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
3835: lp_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
3836: lx_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
3837: li_tclv_rec okl_trx_contracts_pub.tclv_rec_type;
3838: i NUMBER;
4012:
4013:
4014: IF (is_debug_procedure_on)
4015: THEN
4016: okl_debug_pub.log_debug (g_level_procedure,
4017: l_module_name,
4018: 'Begin(+)'
4019: );
4020: END IF;
4020: END IF;
4021:
4022: IF (is_debug_statement_on)
4023: THEN
4024: okl_debug_pub.log_debug (g_level_statement,
4025: l_module_name,
4026: 'In param, p_sys_date: ' || p_sys_date
4027: );
4028: okl_debug_pub.log_debug (g_level_statement,
4024: okl_debug_pub.log_debug (g_level_statement,
4025: l_module_name,
4026: 'In param, p_sys_date: ' || p_sys_date
4027: );
4028: okl_debug_pub.log_debug (g_level_statement,
4029: l_module_name,
4030: 'In param, p_trn_already_set: '
4031: || p_trn_already_set
4032: );
4029: l_module_name,
4030: 'In param, p_trn_already_set: '
4031: || p_trn_already_set
4032: );
4033: okl_debug_pub.log_debug (g_level_statement,
4034: l_module_name,
4035: 'In param, px_overall_status: '
4036: || px_overall_status
4037: );
4034: l_module_name,
4035: 'In param, px_overall_status: '
4036: || px_overall_status
4037: );
4038: okl_debug_pub.log_debug (g_level_statement,
4039: l_module_name,
4040: 'In param, p_term_rec.p_quote_id: '
4041: || p_term_rec.p_quote_id
4042: );
4039: l_module_name,
4040: 'In param, p_term_rec.p_quote_id: '
4041: || p_term_rec.p_quote_id
4042: );
4043: okl_debug_pub.log_debug (g_level_statement,
4044: l_module_name,
4045: 'In param, p_term_rec.p_contract_id: '
4046: || p_term_rec.p_contract_id
4047: );
4044: l_module_name,
4045: 'In param, p_term_rec.p_contract_id: '
4046: || p_term_rec.p_contract_id
4047: );
4048: okl_debug_pub.log_debug
4049: (g_level_statement,
4050: l_module_name,
4051: 'In param, p_term_rec.p_contract_number: '
4052: || p_term_rec.p_contract_number
4050: l_module_name,
4051: 'In param, p_term_rec.p_contract_number: '
4052: || p_term_rec.p_contract_number
4053: );
4054: okl_debug_pub.log_debug (g_level_statement,
4055: l_module_name,
4056: 'In param, px_tcnv_rec.try_id: '
4057: || px_tcnv_rec.try_id
4058: );
4055: l_module_name,
4056: 'In param, px_tcnv_rec.try_id: '
4057: || px_tcnv_rec.try_id
4058: );
4059: okl_debug_pub.log_debug
4060: (g_level_statement,
4061: l_module_name,
4062: 'In param, px_tcnv_rec.tmt_accounting_entries_yn: '
4063: || px_tcnv_rec.tmt_accounting_entries_yn
4061: l_module_name,
4062: 'In param, px_tcnv_rec.tmt_accounting_entries_yn: '
4063: || px_tcnv_rec.tmt_accounting_entries_yn
4064: );
4065: okl_debug_pub.log_debug (g_level_statement,
4066: l_module_name,
4067: 'In param, px_tcnv_rec.id: '
4068: || px_tcnv_rec.ID
4069: );
4189: -- rmunjulu EDAT
4190:
4191: IF (is_debug_statement_on)
4192: THEN
4193: okl_debug_pub.log_debug
4194: (g_level_statement,
4195: l_module_name,
4196: 'calling okl_securitization_pvt.check_khr_ia_associated'
4197: );
4212: );
4213:
4214: IF (is_debug_statement_on)
4215: THEN
4216: okl_debug_pub.log_debug
4217: (g_level_statement,
4218: l_module_name,
4219: 'called okl_securitization_pvt.check_khr_ia_associated , return status: '
4220: || l_return_status
4234: lip_tmpl_identify_rec.investor_code := l_inv_acct_code;
4235:
4236: IF (is_debug_statement_on)
4237: THEN
4238: okl_debug_pub.log_debug
4239: (g_level_statement,
4240: l_module_name,
4241: 'calling okl_account_dist_pub.get_template_info'
4242: );
4255: ); -- Bug 2902876 Added to pass valid GL date
4256:
4257: IF (is_debug_statement_on)
4258: THEN
4259: okl_debug_pub.log_debug
4260: (g_level_statement,
4261: l_module_name,
4262: 'called okl_account_dist_pub.get_template_info , return status: '
4263: || l_return_status
4318: --akrangan Bug 6147049 code fix end
4319: -- Get the currency conversion details from ACCOUNTING_Util
4320: IF (is_debug_statement_on)
4321: THEN
4322: okl_debug_pub.log_debug
4323: (g_level_statement,
4324: l_module_name,
4325: 'calling okl_accounting_util.convert_to_functional_currency'
4326: );
4341: );
4342:
4343: IF (is_debug_statement_on)
4344: THEN
4345: okl_debug_pub.log_debug
4346: (g_level_statement,
4347: l_module_name,
4348: 'called okl_accounting_util.convert_to_functional_currency , return status: '
4349: || l_return_status
4347: l_module_name,
4348: 'called okl_accounting_util.convert_to_functional_currency , return status: '
4349: || l_return_status
4350: );
4351: okl_debug_pub.log_debug (g_level_statement,
4352: l_module_name,
4353: 'l_contract_currency_code: '
4354: || l_contract_currency_code
4355: );
4352: l_module_name,
4353: 'l_contract_currency_code: '
4354: || l_contract_currency_code
4355: );
4356: okl_debug_pub.log_debug (g_level_statement,
4357: l_module_name,
4358: 'l_currency_conversion_type: '
4359: || l_currency_conversion_type
4360: );
4357: l_module_name,
4358: 'l_currency_conversion_type: '
4359: || l_currency_conversion_type
4360: );
4361: okl_debug_pub.log_debug (g_level_statement,
4362: l_module_name,
4363: 'l_currency_conversion_rate: '
4364: || l_currency_conversion_rate
4365: );
4362: l_module_name,
4363: 'l_currency_conversion_rate: '
4364: || l_currency_conversion_rate
4365: );
4366: okl_debug_pub.log_debug (g_level_statement,
4367: l_module_name,
4368: 'l_currency_conversion_date: '
4369: || l_currency_conversion_date
4370: );
4367: l_module_name,
4368: 'l_currency_conversion_date: '
4369: || l_currency_conversion_date
4370: );
4371: okl_debug_pub.log_debug (g_level_statement,
4372: l_module_name,
4373: 'l_converted_amount: '
4374: || l_converted_amount
4375: );
4495: END LOOP;
4496:
4497: IF (is_debug_statement_on)
4498: THEN
4499: okl_debug_pub.log_debug
4500: (g_level_statement,
4501: l_module_name,
4502: 'calling okl_trx_contracts_pub.create_trx_cntrct_lines'
4503: );
4515: );
4516:
4517: IF (is_debug_statement_on)
4518: THEN
4519: okl_debug_pub.log_debug
4520: (g_level_statement,
4521: l_module_name,
4522: 'called okl_trx_contracts_pub.create_trx_cntrct_lines , return status: '
4523: || l_return_status
4564:
4565: LOOP
4566: IF (is_debug_statement_on)
4567: THEN
4568: okl_debug_pub.log_debug
4569: (g_level_statement,
4570: l_module_name,
4571: 'calling okl_acc_call_pvt.okl_populate_acc_gen'
4572: );
4581:
4582: -- udhenuko Bug 6685693 Bug end.
4583: IF (is_debug_statement_on)
4584: THEN
4585: okl_debug_pub.log_debug
4586: (g_level_statement,
4587: l_module_name,
4588: 'called okl_acc_call_pvt.okl_populate_acc_gen , return status: '
4589: || l_return_status
4651: -- call accounting engine
4652: -- This will calculate the amount and generate accounting entries
4653: IF (is_debug_statement_on)
4654: THEN
4655: okl_debug_pub.log_debug
4656: (g_level_statement,
4657: l_module_name,
4658: 'calling okl_account_dist_pvt.create_accounting_dist'
4659: );
4675: );
4676:
4677: IF (is_debug_statement_on)
4678: THEN
4679: okl_debug_pub.log_debug
4680: (g_level_statement,
4681: l_module_name,
4682: 'called okl_account_dist_pvt.create_accounting_dist , return status: '
4683: || l_return_status
4804: END IF;
4805:
4806: IF (is_debug_statement_on)
4807: THEN
4808: okl_debug_pub.log_debug
4809: (g_level_statement,
4810: l_module_name,
4811: 'calling okl_trx_contracts_pub.update_trx_contracts'
4812: );
4826: );
4827:
4828: IF (is_debug_statement_on)
4829: THEN
4830: okl_debug_pub.log_debug
4831: (g_level_statement,
4832: l_module_name,
4833: 'called okl_trx_contracts_pub.update_trx_contracts , return status: '
4834: || l_return_status
4878: -- Bug 3061772
4879: -- Call to Process dicount and Subsidy during acceptance of a termination quote
4880: IF (is_debug_statement_on)
4881: THEN
4882: okl_debug_pub.log_debug
4883: (g_level_statement,
4884: l_module_name,
4885: 'calling okl_am_lease_loan_trmnt_pvt.process_discount_subsidy'
4886: );
4898: );
4899:
4900: IF (is_debug_statement_on)
4901: THEN
4902: okl_debug_pub.log_debug
4903: (g_level_statement,
4904: l_module_name,
4905: 'called okl_am_lease_loan_trmnt_pvt.process_discount_subsidy , return status: '
4906: || l_return_status
4952: x_return_status := l_return_status;
4953:
4954: IF (is_debug_procedure_on)
4955: THEN
4956: okl_debug_pub.log_debug (g_level_procedure,
4957: l_module_name,
4958: 'End(-)'
4959: );
4960: END IF;
4988: );
4989:
4990: IF (is_debug_exception_on)
4991: THEN
4992: okl_debug_pub.log_debug (g_level_exception,
4993: l_module_name,
4994: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
4995: );
4996: END IF;
5023: );
5024:
5025: IF (is_debug_exception_on)
5026: THEN
5027: okl_debug_pub.log_debug (g_level_exception,
5028: l_module_name,
5029: 'EXCEPTION :'
5030: || 'G_EXCEPTION_UNEXPECTED_ERROR'
5031: );
5067: );
5068:
5069: IF (is_debug_exception_on)
5070: THEN
5071: okl_debug_pub.log_debug (g_level_exception,
5072: l_module_name,
5073: 'EXCEPTION :'
5074: || 'OTHERS, SQLCODE: '
5075: || SQLCODE
5137: l_msg_data VARCHAR2 (2000);
5138: l_module_name VARCHAR2 (500)
5139: := g_module_name || 'dispose_assets';
5140: is_debug_exception_on BOOLEAN
5141: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
5142: is_debug_procedure_on BOOLEAN
5143: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
5144: is_debug_statement_on BOOLEAN
5145: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
5139: := g_module_name || 'dispose_assets';
5140: is_debug_exception_on BOOLEAN
5141: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
5142: is_debug_procedure_on BOOLEAN
5143: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
5144: is_debug_statement_on BOOLEAN
5145: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
5146: --SECHAWLA Bug # 2726739 : new declarations
5147: l_func_curr_code gl_ledgers_public_v.currency_code%TYPE;
5141: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
5142: is_debug_procedure_on BOOLEAN
5143: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
5144: is_debug_statement_on BOOLEAN
5145: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
5146: --SECHAWLA Bug # 2726739 : new declarations
5147: l_func_curr_code gl_ledgers_public_v.currency_code%TYPE;
5148: l_contract_curr_code okc_k_headers_b.currency_code%TYPE;
5149: -- RMUNJULU 06-MAR-03 Performance Fix Replaced K_HDR_FULL
5163: SAVEPOINT asset_dispose;
5164:
5165: IF (is_debug_procedure_on)
5166: THEN
5167: okl_debug_pub.log_debug (g_level_procedure,
5168: l_module_name,
5169: 'Begin(+)'
5170: );
5171: END IF;
5171: END IF;
5172:
5173: IF (is_debug_statement_on)
5174: THEN
5175: okl_debug_pub.log_debug (g_level_statement,
5176: l_module_name,
5177: 'In param, p_sys_date: ' || p_sys_date
5178: );
5179: okl_debug_pub.log_debug (g_level_statement,
5175: okl_debug_pub.log_debug (g_level_statement,
5176: l_module_name,
5177: 'In param, p_sys_date: ' || p_sys_date
5178: );
5179: okl_debug_pub.log_debug (g_level_statement,
5180: l_module_name,
5181: 'In param, p_trn_already_set: '
5182: || p_trn_already_set
5183: );
5180: l_module_name,
5181: 'In param, p_trn_already_set: '
5182: || p_trn_already_set
5183: );
5184: okl_debug_pub.log_debug (g_level_statement,
5185: l_module_name,
5186: 'In param, px_overall_status: '
5187: || px_overall_status
5188: );
5185: l_module_name,
5186: 'In param, px_overall_status: '
5187: || px_overall_status
5188: );
5189: okl_debug_pub.log_debug (g_level_statement,
5190: l_module_name,
5191: 'In param, p_term_rec.p_quote_id: '
5192: || p_term_rec.p_quote_id
5193: );
5190: l_module_name,
5191: 'In param, p_term_rec.p_quote_id: '
5192: || p_term_rec.p_quote_id
5193: );
5194: okl_debug_pub.log_debug (g_level_statement,
5195: l_module_name,
5196: 'In param, p_term_rec.p_contract_id: '
5197: || p_term_rec.p_contract_id
5198: );
5195: l_module_name,
5196: 'In param, p_term_rec.p_contract_id: '
5197: || p_term_rec.p_contract_id
5198: );
5199: okl_debug_pub.log_debug
5200: (g_level_statement,
5201: l_module_name,
5202: 'In param, p_term_rec.p_contract_number: '
5203: || p_term_rec.p_contract_number
5201: l_module_name,
5202: 'In param, p_term_rec.p_contract_number: '
5203: || p_term_rec.p_contract_number
5204: );
5205: okl_debug_pub.log_debug
5206: (g_level_statement,
5207: l_module_name,
5208: 'In param, px_tcnv_rec.tmt_asset_disposition_yn: '
5209: || px_tcnv_rec.tmt_asset_disposition_yn
5214: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
5215: LOOP
5216: IF (p_klev_tbl.EXISTS (i))
5217: THEN
5218: okl_debug_pub.log_debug (g_level_statement,
5219: l_module_name,
5220: 'In param, p_klev_tbl('
5221: || i
5222: || ').p_kle_id: '
5221: || i
5222: || ').p_kle_id: '
5223: || p_klev_tbl (i).p_kle_id
5224: );
5225: okl_debug_pub.log_debug (g_level_statement,
5226: l_module_name,
5227: 'In param, p_klev_tbl('
5228: || i
5229: || ').p_asset_quantity: '
5228: || i
5229: || ').p_asset_quantity: '
5230: || p_klev_tbl (i).p_asset_quantity
5231: );
5232: okl_debug_pub.log_debug (g_level_statement,
5233: l_module_name,
5234: 'In param, p_klev_tbl('
5235: || i
5236: || ').p_asset_name: '
5235: || i
5236: || ').p_asset_name: '
5237: || p_klev_tbl (i).p_asset_name
5238: );
5239: okl_debug_pub.log_debug (g_level_statement,
5240: l_module_name,
5241: 'In param, p_klev_tbl('
5242: || i
5243: || ').p_quote_quantity: '
5242: || i
5243: || ').p_quote_quantity: '
5244: || p_klev_tbl (i).p_quote_quantity
5245: );
5246: okl_debug_pub.log_debug (g_level_statement,
5247: l_module_name,
5248: 'In param, p_klev_tbl('
5249: || i
5250: || ').p_tql_id: '
5249: || i
5250: || ').p_tql_id: '
5251: || p_klev_tbl (i).p_tql_id
5252: );
5253: okl_debug_pub.log_debug (g_level_statement,
5254: l_module_name,
5255: 'In param, p_klev_tbl('
5256: || i
5257: || ').p_split_kle_name: '
5256: || i
5257: || ').p_split_kle_name: '
5258: || p_klev_tbl (i).p_split_kle_name
5259: );
5260: okl_debug_pub.log_debug (g_level_statement,
5261: l_module_name,
5262: 'In param, p_klev_tbl('
5263: || i
5264: || ').p_split_kle_id: '
5335: THEN
5336: -- convert amount to functional currency
5337: IF (is_debug_statement_on)
5338: THEN
5339: okl_debug_pub.log_debug
5340: (g_level_statement,
5341: l_module_name,
5342: 'calling okl_accounting_util.convert_to_functional_currency'
5343: );
5357: );
5358:
5359: IF (is_debug_statement_on)
5360: THEN
5361: okl_debug_pub.log_debug
5362: (g_level_statement,
5363: l_module_name,
5364: 'called okl_accounting_util.convert_to_functional_currency , return status: '
5365: || x_return_status
5363: l_module_name,
5364: 'called okl_accounting_util.convert_to_functional_currency , return status: '
5365: || x_return_status
5366: );
5367: okl_debug_pub.log_debug (g_level_statement,
5368: l_module_name,
5369: 'lx_contract_currency_code: '
5370: || lx_contract_currency
5371: );
5368: l_module_name,
5369: 'lx_contract_currency_code: '
5370: || lx_contract_currency
5371: );
5372: okl_debug_pub.log_debug
5373: (g_level_statement,
5374: l_module_name,
5375: 'lx_currency_conversion_type: '
5376: || lx_currency_conversion_type
5374: l_module_name,
5375: 'lx_currency_conversion_type: '
5376: || lx_currency_conversion_type
5377: );
5378: okl_debug_pub.log_debug
5379: (g_level_statement,
5380: l_module_name,
5381: 'lx_currency_conversion_rate: '
5382: || lx_currency_conversion_rate
5380: l_module_name,
5381: 'lx_currency_conversion_rate: '
5382: || lx_currency_conversion_rate
5383: );
5384: okl_debug_pub.log_debug
5385: (g_level_statement,
5386: l_module_name,
5387: 'lx_currency_conversion_date: '
5388: || lx_currency_conversion_date
5386: l_module_name,
5387: 'lx_currency_conversion_date: '
5388: || lx_currency_conversion_date
5389: );
5390: okl_debug_pub.log_debug (g_level_statement,
5391: l_module_name,
5392: 'lx_converted_amount: '
5393: || lx_converted_amount
5394: );
5440:
5441: -- call asset dispose retirement
5442: IF (is_debug_statement_on)
5443: THEN
5444: okl_debug_pub.log_debug
5445: (g_level_statement,
5446: l_module_name,
5447: 'calling OKL_AM_ASSET_DISPOSE_PUB.dispose_asset'
5448: );
5465: ); -- RRAVIKIR Legal Entity Changes
5466:
5467: IF (is_debug_statement_on)
5468: THEN
5469: okl_debug_pub.log_debug
5470: (g_level_statement,
5471: l_module_name,
5472: 'called OKL_AM_ASSET_DISPOSE_PUB.dispose_asset , return status: '
5473: || l_return_status
5574: x_return_status := l_return_status;
5575:
5576: IF (is_debug_procedure_on)
5577: THEN
5578: okl_debug_pub.log_debug (g_level_procedure,
5579: l_module_name,
5580: 'End(-)'
5581: );
5582: END IF;
5619: );
5620:
5621: IF (is_debug_exception_on)
5622: THEN
5623: okl_debug_pub.log_debug (g_level_exception,
5624: l_module_name,
5625: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
5626: );
5627: END IF;
5663: );
5664:
5665: IF (is_debug_exception_on)
5666: THEN
5667: okl_debug_pub.log_debug (g_level_exception,
5668: l_module_name,
5669: 'EXCEPTION :'
5670: || 'G_EXCEPTION_UNEXPECTED_ERROR'
5671: );
5716: );
5717:
5718: IF (is_debug_exception_on)
5719: THEN
5720: okl_debug_pub.log_debug (g_level_exception,
5721: l_module_name,
5722: 'EXCEPTION :'
5723: || 'OTHERS, SQLCODE: '
5724: || SQLCODE
5776: l_msg_data VARCHAR2 (2000);
5777: l_module_name VARCHAR2 (500)
5778: := g_module_name || 'delink_assets';
5779: is_debug_exception_on BOOLEAN
5780: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
5781: is_debug_procedure_on BOOLEAN
5782: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
5783: is_debug_statement_on BOOLEAN
5784: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
5778: := g_module_name || 'delink_assets';
5779: is_debug_exception_on BOOLEAN
5780: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
5781: is_debug_procedure_on BOOLEAN
5782: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
5783: is_debug_statement_on BOOLEAN
5784: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
5785: l_evergreen_earlier VARCHAR2 (3) := 'N';
5786: l_quote_accpt_date DATE;
5780: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
5781: is_debug_procedure_on BOOLEAN
5782: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
5783: is_debug_statement_on BOOLEAN
5784: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
5785: l_evergreen_earlier VARCHAR2 (3) := 'N';
5786: l_quote_accpt_date DATE;
5787: l_quote_eff_date DATE;
5788: l_asset_fin_rec_empty_adj fa_api_types.asset_fin_rec_type;
5806: SAVEPOINT asset_delink;
5807:
5808: IF (is_debug_procedure_on)
5809: THEN
5810: okl_debug_pub.log_debug (g_level_procedure,
5811: l_module_name,
5812: 'Begin(+)'
5813: );
5814: END IF;
5814: END IF;
5815:
5816: IF (is_debug_statement_on)
5817: THEN
5818: okl_debug_pub.log_debug (g_level_statement,
5819: l_module_name,
5820: 'In param, p_sys_date: ' || p_sys_date
5821: );
5822: okl_debug_pub.log_debug (g_level_statement,
5818: okl_debug_pub.log_debug (g_level_statement,
5819: l_module_name,
5820: 'In param, p_sys_date: ' || p_sys_date
5821: );
5822: okl_debug_pub.log_debug (g_level_statement,
5823: l_module_name,
5824: 'In param, p_trn_already_set: '
5825: || p_trn_already_set
5826: );
5823: l_module_name,
5824: 'In param, p_trn_already_set: '
5825: || p_trn_already_set
5826: );
5827: okl_debug_pub.log_debug (g_level_statement,
5828: l_module_name,
5829: 'In param, px_overall_status: '
5830: || px_overall_status
5831: );
5828: l_module_name,
5829: 'In param, px_overall_status: '
5830: || px_overall_status
5831: );
5832: okl_debug_pub.log_debug (g_level_statement,
5833: l_module_name,
5834: 'In param, p_term_rec.p_quote_id: '
5835: || p_term_rec.p_quote_id
5836: );
5833: l_module_name,
5834: 'In param, p_term_rec.p_quote_id: '
5835: || p_term_rec.p_quote_id
5836: );
5837: okl_debug_pub.log_debug (g_level_statement,
5838: l_module_name,
5839: 'In param, p_term_rec.p_contract_id: '
5840: || p_term_rec.p_contract_id
5841: );
5838: l_module_name,
5839: 'In param, p_term_rec.p_contract_id: '
5840: || p_term_rec.p_contract_id
5841: );
5842: okl_debug_pub.log_debug
5843: (g_level_statement,
5844: l_module_name,
5845: 'In param, p_term_rec.p_contract_number: '
5846: || p_term_rec.p_contract_number
5844: l_module_name,
5845: 'In param, p_term_rec.p_contract_number: '
5846: || p_term_rec.p_contract_number
5847: );
5848: okl_debug_pub.log_debug
5849: (g_level_statement,
5850: l_module_name,
5851: 'In param, px_tcnv_rec.tmt_amortization_yn: '
5852: || px_tcnv_rec.tmt_amortization_yn
5850: l_module_name,
5851: 'In param, px_tcnv_rec.tmt_amortization_yn: '
5852: || px_tcnv_rec.tmt_amortization_yn
5853: );
5854: okl_debug_pub.log_debug (g_level_statement,
5855: l_module_name,
5856: 'In param, px_tcnv_rec.id: '
5857: || px_tcnv_rec.ID
5858: );
5862: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
5863: LOOP
5864: IF (p_klev_tbl.EXISTS (i))
5865: THEN
5866: okl_debug_pub.log_debug (g_level_statement,
5867: l_module_name,
5868: 'In param, p_klev_tbl('
5869: || i
5870: || ').p_kle_id: '
5869: || i
5870: || ').p_kle_id: '
5871: || p_klev_tbl (i).p_kle_id
5872: );
5873: okl_debug_pub.log_debug (g_level_statement,
5874: l_module_name,
5875: 'In param, p_klev_tbl('
5876: || i
5877: || ').p_asset_name: '
5883: END IF;
5884:
5885: IF (is_debug_statement_on)
5886: THEN
5887: okl_debug_pub.log_debug
5888: (g_level_statement,
5889: l_module_name,
5890: 'calling OKL_AM_LEASE_TRMNT_PVT.check_k_evergreen_ear'
5891: );
5899: );
5900:
5901: IF (is_debug_statement_on)
5902: THEN
5903: okl_debug_pub.log_debug
5904: (g_level_statement,
5905: l_module_name,
5906: 'called OKL_AM_LEASE_TRMNT_PVT.check_k_evergreen_ear , return status: '
5907: || l_return_status
5905: l_module_name,
5906: 'called OKL_AM_LEASE_TRMNT_PVT.check_k_evergreen_ear , return status: '
5907: || l_return_status
5908: );
5909: okl_debug_pub.log_debug (g_level_statement,
5910: l_module_name,
5911: 'l_evergreen_earlier: '
5912: || l_evergreen_earlier
5913: );
6025: END IF;
6026:
6027: IF (is_debug_procedure_on)
6028: THEN
6029: okl_debug_pub.log_debug (g_level_procedure,
6030: l_module_name,
6031: 'End(-)'
6032: );
6033: END IF;
6053: );
6054:
6055: IF (is_debug_exception_on)
6056: THEN
6057: okl_debug_pub.log_debug (g_level_exception,
6058: l_module_name,
6059: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
6060: );
6061: END IF;
6080: );
6081:
6082: IF (is_debug_exception_on)
6083: THEN
6084: okl_debug_pub.log_debug (g_level_exception,
6085: l_module_name,
6086: 'EXCEPTION :'
6087: || 'G_EXCEPTION_UNEXPECTED_ERROR'
6088: );
6116: );
6117:
6118: IF (is_debug_exception_on)
6119: THEN
6120: okl_debug_pub.log_debug (g_level_exception,
6121: l_module_name,
6122: 'EXCEPTION :'
6123: || 'OTHERS, SQLCODE: '
6124: || SQLCODE
6175: l_msg_data VARCHAR2 (2000);
6176: l_module_name VARCHAR2 (500)
6177: := g_module_name || 'amortize_assets';
6178: is_debug_exception_on BOOLEAN
6179: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
6180: is_debug_procedure_on BOOLEAN
6181: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
6182: is_debug_statement_on BOOLEAN
6183: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
6177: := g_module_name || 'amortize_assets';
6178: is_debug_exception_on BOOLEAN
6179: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
6180: is_debug_procedure_on BOOLEAN
6181: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
6182: is_debug_statement_on BOOLEAN
6183: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
6184: -- RMUNJULU 3485854
6185: l_evergreen_earlier VARCHAR2 (3) := 'N';
6179: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
6180: is_debug_procedure_on BOOLEAN
6181: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
6182: is_debug_statement_on BOOLEAN
6183: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
6184: -- RMUNJULU 3485854
6185: l_evergreen_earlier VARCHAR2 (3) := 'N';
6186: -- rmunjulu EDAT
6187: l_quote_accpt_date DATE;
6191: SAVEPOINT asset_amortize;
6192:
6193: IF (is_debug_procedure_on)
6194: THEN
6195: okl_debug_pub.log_debug (g_level_procedure,
6196: l_module_name,
6197: 'Begin(+)'
6198: );
6199: END IF;
6199: END IF;
6200:
6201: IF (is_debug_statement_on)
6202: THEN
6203: okl_debug_pub.log_debug (g_level_statement,
6204: l_module_name,
6205: 'In param, p_sys_date: ' || p_sys_date
6206: );
6207: okl_debug_pub.log_debug (g_level_statement,
6203: okl_debug_pub.log_debug (g_level_statement,
6204: l_module_name,
6205: 'In param, p_sys_date: ' || p_sys_date
6206: );
6207: okl_debug_pub.log_debug (g_level_statement,
6208: l_module_name,
6209: 'In param, p_trn_already_set: '
6210: || p_trn_already_set
6211: );
6208: l_module_name,
6209: 'In param, p_trn_already_set: '
6210: || p_trn_already_set
6211: );
6212: okl_debug_pub.log_debug (g_level_statement,
6213: l_module_name,
6214: 'In param, px_overall_status: '
6215: || px_overall_status
6216: );
6213: l_module_name,
6214: 'In param, px_overall_status: '
6215: || px_overall_status
6216: );
6217: okl_debug_pub.log_debug (g_level_statement,
6218: l_module_name,
6219: 'In param, p_term_rec.p_quote_id: '
6220: || p_term_rec.p_quote_id
6221: );
6218: l_module_name,
6219: 'In param, p_term_rec.p_quote_id: '
6220: || p_term_rec.p_quote_id
6221: );
6222: okl_debug_pub.log_debug (g_level_statement,
6223: l_module_name,
6224: 'In param, p_term_rec.p_contract_id: '
6225: || p_term_rec.p_contract_id
6226: );
6223: l_module_name,
6224: 'In param, p_term_rec.p_contract_id: '
6225: || p_term_rec.p_contract_id
6226: );
6227: okl_debug_pub.log_debug
6228: (g_level_statement,
6229: l_module_name,
6230: 'In param, p_term_rec.p_contract_number: '
6231: || p_term_rec.p_contract_number
6229: l_module_name,
6230: 'In param, p_term_rec.p_contract_number: '
6231: || p_term_rec.p_contract_number
6232: );
6233: okl_debug_pub.log_debug
6234: (g_level_statement,
6235: l_module_name,
6236: 'In param, px_tcnv_rec.tmt_amortization_yn: '
6237: || px_tcnv_rec.tmt_amortization_yn
6235: l_module_name,
6236: 'In param, px_tcnv_rec.tmt_amortization_yn: '
6237: || px_tcnv_rec.tmt_amortization_yn
6238: );
6239: okl_debug_pub.log_debug (g_level_statement,
6240: l_module_name,
6241: 'In param, px_tcnv_rec.id: '
6242: || px_tcnv_rec.ID
6243: );
6247: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
6248: LOOP
6249: IF (p_klev_tbl.EXISTS (i))
6250: THEN
6251: okl_debug_pub.log_debug (g_level_statement,
6252: l_module_name,
6253: 'In param, p_klev_tbl('
6254: || i
6255: || ').p_kle_id: '
6254: || i
6255: || ').p_kle_id: '
6256: || p_klev_tbl (i).p_kle_id
6257: );
6258: okl_debug_pub.log_debug (g_level_statement,
6259: l_module_name,
6260: 'In param, p_klev_tbl('
6261: || i
6262: || ').p_asset_name: '
6295: -- which means this contract was evergreen earlier
6296: -- so no need to run amortization again
6297: IF (is_debug_statement_on)
6298: THEN
6299: okl_debug_pub.log_debug
6300: (g_level_statement,
6301: l_module_name,
6302: 'calling OKL_AM_LEASE_TRMNT_PVT.check_k_evergreen_ear'
6303: );
6311: );
6312:
6313: IF (is_debug_statement_on)
6314: THEN
6315: okl_debug_pub.log_debug
6316: (g_level_statement,
6317: l_module_name,
6318: 'called OKL_AM_LEASE_TRMNT_PVT.check_k_evergreen_ear , return status: '
6319: || l_return_status
6317: l_module_name,
6318: 'called OKL_AM_LEASE_TRMNT_PVT.check_k_evergreen_ear , return status: '
6319: || l_return_status
6320: );
6321: okl_debug_pub.log_debug (g_level_statement,
6322: l_module_name,
6323: 'l_evergreen_earlier: '
6324: || l_evergreen_earlier
6325: );
6387:
6388: LOOP
6389: IF (is_debug_statement_on)
6390: THEN
6391: okl_debug_pub.log_debug
6392: (g_level_statement,
6393: l_module_name,
6394: 'calling OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx'
6395: );
6410: ); -- rmunjulu EDAT
6411:
6412: IF (is_debug_statement_on)
6413: THEN
6414: okl_debug_pub.log_debug
6415: (g_level_statement,
6416: l_module_name,
6417: 'called OKL_AM_AMORTIZE_PUB.create_offlease_asset_trx , return status: '
6418: || l_return_status
6489: END IF;
6490:
6491: IF (is_debug_procedure_on)
6492: THEN
6493: okl_debug_pub.log_debug (g_level_procedure,
6494: l_module_name,
6495: 'End(-)'
6496: );
6497: END IF;
6529: g_amort_complete_flag := 'N';
6530:
6531: IF (is_debug_exception_on)
6532: THEN
6533: okl_debug_pub.log_debug (g_level_exception,
6534: l_module_name,
6535: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
6536: );
6537: END IF;
6565: g_amort_complete_flag := 'N';
6566:
6567: IF (is_debug_exception_on)
6568: THEN
6569: okl_debug_pub.log_debug (g_level_exception,
6570: l_module_name,
6571: 'EXCEPTION :'
6572: || 'G_EXCEPTION_UNEXPECTED_ERROR'
6573: );
6610: g_amort_complete_flag := 'N';
6611:
6612: IF (is_debug_exception_on)
6613: THEN
6614: okl_debug_pub.log_debug (g_level_exception,
6615: l_module_name,
6616: 'EXCEPTION :'
6617: || 'OTHERS, SQLCODE: '
6618: || SQLCODE
6672: l_msg_data VARCHAR2 (2000);
6673: l_module_name VARCHAR2 (500)
6674: := g_module_name || 'return_assets';
6675: is_debug_exception_on BOOLEAN
6676: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
6677: is_debug_procedure_on BOOLEAN
6678: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
6679: is_debug_statement_on BOOLEAN
6680: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
6674: := g_module_name || 'return_assets';
6675: is_debug_exception_on BOOLEAN
6676: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
6677: is_debug_procedure_on BOOLEAN
6678: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
6679: is_debug_statement_on BOOLEAN
6680: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
6681: -- rmunjulu EDAT
6682: l_quote_accpt_date DATE;
6676: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
6677: is_debug_procedure_on BOOLEAN
6678: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
6679: is_debug_statement_on BOOLEAN
6680: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
6681: -- rmunjulu EDAT
6682: l_quote_accpt_date DATE;
6683: l_quote_eff_date DATE;
6684: BEGIN
6685: SAVEPOINT asset_return;
6686:
6687: IF (is_debug_procedure_on)
6688: THEN
6689: okl_debug_pub.log_debug (g_level_procedure,
6690: l_module_name,
6691: 'Begin(+)'
6692: );
6693: END IF;
6693: END IF;
6694:
6695: IF (is_debug_statement_on)
6696: THEN
6697: okl_debug_pub.log_debug (g_level_statement,
6698: l_module_name,
6699: 'In param, p_sys_date: ' || p_sys_date
6700: );
6701: okl_debug_pub.log_debug (g_level_statement,
6697: okl_debug_pub.log_debug (g_level_statement,
6698: l_module_name,
6699: 'In param, p_sys_date: ' || p_sys_date
6700: );
6701: okl_debug_pub.log_debug (g_level_statement,
6702: l_module_name,
6703: 'In param, p_trn_already_set: '
6704: || p_trn_already_set
6705: );
6702: l_module_name,
6703: 'In param, p_trn_already_set: '
6704: || p_trn_already_set
6705: );
6706: okl_debug_pub.log_debug (g_level_statement,
6707: l_module_name,
6708: 'In param, px_overall_status: '
6709: || px_overall_status
6710: );
6707: l_module_name,
6708: 'In param, px_overall_status: '
6709: || px_overall_status
6710: );
6711: okl_debug_pub.log_debug (g_level_statement,
6712: l_module_name,
6713: 'In param, p_term_rec.p_quote_type: '
6714: || p_term_rec.p_quote_type
6715: );
6712: l_module_name,
6713: 'In param, p_term_rec.p_quote_type: '
6714: || p_term_rec.p_quote_type
6715: );
6716: okl_debug_pub.log_debug (g_level_statement,
6717: l_module_name,
6718: 'In param, p_term_rec.p_quote_id: '
6719: || p_term_rec.p_quote_id
6720: );
6717: l_module_name,
6718: 'In param, p_term_rec.p_quote_id: '
6719: || p_term_rec.p_quote_id
6720: );
6721: okl_debug_pub.log_debug
6722: (g_level_statement,
6723: l_module_name,
6724: 'In param, px_tcnv_rec.tmt_asset_return_yn: '
6725: || px_tcnv_rec.tmt_asset_return_yn
6730: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
6731: LOOP
6732: IF (p_klev_tbl.EXISTS (i))
6733: THEN
6734: okl_debug_pub.log_debug (g_level_statement,
6735: l_module_name,
6736: 'In param, p_klev_tbl('
6737: || i
6738: || ').p_kle_id: '
6737: || i
6738: || ').p_kle_id: '
6739: || p_klev_tbl (i).p_kle_id
6740: );
6741: okl_debug_pub.log_debug (g_level_statement,
6742: l_module_name,
6743: 'In param, p_klev_tbl('
6744: || i
6745: || ').p_asset_name: '
6841: -- Passing quote_id also to create_asset_return
6842: -- call asset return
6843: IF (is_debug_statement_on)
6844: THEN
6845: okl_debug_pub.log_debug
6846: (g_level_statement,
6847: l_module_name,
6848: 'calling OKL_AM_ASSET_RETURN_PUB.create_asset_return'
6849: );
6861: );
6862:
6863: IF (is_debug_statement_on)
6864: THEN
6865: okl_debug_pub.log_debug
6866: (g_level_statement,
6867: l_module_name,
6868: 'called OKL_AM_ASSET_RETURN_PUB.create_asset_return , return status: '
6869: || l_return_status
6934: END IF;
6935:
6936: IF (is_debug_procedure_on)
6937: THEN
6938: okl_debug_pub.log_debug (g_level_procedure,
6939: l_module_name,
6940: 'End(-)'
6941: );
6942: END IF;
6970: );
6971:
6972: IF (is_debug_exception_on)
6973: THEN
6974: okl_debug_pub.log_debug (g_level_exception,
6975: l_module_name,
6976: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
6977: );
6978: END IF;
7005: );
7006:
7007: IF (is_debug_exception_on)
7008: THEN
7009: okl_debug_pub.log_debug (g_level_exception,
7010: l_module_name,
7011: 'EXCEPTION :'
7012: || 'G_EXCEPTION_UNEXPECTED_ERROR'
7013: );
7049: );
7050:
7051: IF (is_debug_exception_on)
7052: THEN
7053: okl_debug_pub.log_debug (g_level_exception,
7054: l_module_name,
7055: 'EXCEPTION :'
7056: || 'OTHERS, SQLCODE: '
7057: || SQLCODE
7169: l_api_name VARCHAR2 (30) := 'close_balances';
7170: l_module_name VARCHAR2 (500)
7171: := g_module_name || 'close_balances';
7172: is_debug_exception_on BOOLEAN
7173: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
7174: is_debug_procedure_on BOOLEAN
7175: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
7176: is_debug_statement_on BOOLEAN
7177: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
7171: := g_module_name || 'close_balances';
7172: is_debug_exception_on BOOLEAN
7173: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
7174: is_debug_procedure_on BOOLEAN
7175: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
7176: is_debug_statement_on BOOLEAN
7177: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
7178: l_pdt_id NUMBER := 0;
7179: lp_tmpl_identify_rec okl_account_dist_pub.tmpl_identify_rec_type;
7173: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
7174: is_debug_procedure_on BOOLEAN
7175: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
7176: is_debug_statement_on BOOLEAN
7177: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
7178: l_pdt_id NUMBER := 0;
7179: lp_tmpl_identify_rec okl_account_dist_pub.tmpl_identify_rec_type;
7180: lp_dist_info_rec okl_account_dist_pub.dist_info_rec_type;
7181: lp_ctxt_val_tbl okl_account_dist_pub.ctxt_val_tbl_type;
7212: SAVEPOINT close_balances;
7213:
7214: IF (is_debug_procedure_on)
7215: THEN
7216: okl_debug_pub.log_debug (g_level_procedure,
7217: l_module_name,
7218: 'Begin(+)'
7219: );
7220: END IF;
7220: END IF;
7221:
7222: IF (is_debug_statement_on)
7223: THEN
7224: okl_debug_pub.log_debug (g_level_statement,
7225: l_module_name,
7226: 'In param, p_sys_date: ' || p_sys_date
7227: );
7228: okl_debug_pub.log_debug (g_level_statement,
7224: okl_debug_pub.log_debug (g_level_statement,
7225: l_module_name,
7226: 'In param, p_sys_date: ' || p_sys_date
7227: );
7228: okl_debug_pub.log_debug (g_level_statement,
7229: l_module_name,
7230: 'In param, p_term_rec.p_contract_id: '
7231: || p_term_rec.p_contract_id
7232: );
7229: l_module_name,
7230: 'In param, p_term_rec.p_contract_id: '
7231: || p_term_rec.p_contract_id
7232: );
7233: okl_debug_pub.log_debug
7234: (g_level_statement,
7235: l_module_name,
7236: 'In param, p_term_rec.p_contract_number: '
7237: || p_term_rec.p_contract_number
7235: l_module_name,
7236: 'In param, p_term_rec.p_contract_number: '
7237: || p_term_rec.p_contract_number
7238: );
7239: okl_debug_pub.log_debug (g_level_statement,
7240: l_module_name,
7241: 'In param, p_tcnv_rec.id: ' || p_tcnv_rec.ID
7242: );
7243: END IF;
7299: lp_adjv_rec.gl_date := p_sys_date;
7300:
7301: IF (is_debug_statement_on)
7302: THEN
7303: okl_debug_pub.log_debug
7304: (g_level_statement,
7305: l_module_name,
7306: 'calling OKL_TRX_AR_ADJSTS_PUB.insert_trx_ar_adjsts'
7307: );
7319: );
7320:
7321: IF (is_debug_statement_on)
7322: THEN
7323: okl_debug_pub.log_debug
7324: (g_level_statement,
7325: l_module_name,
7326: 'called OKL_TRX_AR_ADJSTS_PUB.insert_trx_ar_adjsts , return status: '
7327: || l_return_status
7346: END IF;
7347:
7348: IF (is_debug_statement_on)
7349: THEN
7350: okl_debug_pub.log_debug
7351: (g_level_statement,
7352: l_module_name,
7353: 'calling OKL_AM_UTIL_PVT.get_transaction_id'
7354: );
7362: );
7363:
7364: IF (is_debug_statement_on)
7365: THEN
7366: okl_debug_pub.log_debug
7367: (g_level_statement,
7368: l_module_name,
7369: 'called OKL_AM_UTIL_PVT.get_transaction_id , return status: '
7370: || l_return_status
7368: l_module_name,
7369: 'called OKL_AM_UTIL_PVT.get_transaction_id , return status: '
7370: || l_return_status
7371: );
7372: okl_debug_pub.log_debug (g_level_statement,
7373: l_module_name,
7374: 'l_try_id: ' || l_try_id
7375: );
7376: END IF;
7439: okl_am_util_pvt.get_functional_currency;
7440:
7441: IF (is_debug_statement_on)
7442: THEN
7443: okl_debug_pub.log_debug
7444: (g_level_statement,
7445: l_module_name,
7446: 'calling OKL_ACCOUNTING_UTIL.convert_to_functional_currency'
7447: );
7462: );
7463:
7464: IF (is_debug_statement_on)
7465: THEN
7466: okl_debug_pub.log_debug
7467: (g_level_statement,
7468: l_module_name,
7469: 'called okl_accounting_util.convert_to_functional_currency , return status: '
7470: || l_return_status
7468: l_module_name,
7469: 'called okl_accounting_util.convert_to_functional_currency , return status: '
7470: || l_return_status
7471: );
7472: okl_debug_pub.log_debug (g_level_statement,
7473: l_module_name,
7474: 'l_contract_currency_code: '
7475: || l_contract_currency_code
7476: );
7473: l_module_name,
7474: 'l_contract_currency_code: '
7475: || l_contract_currency_code
7476: );
7477: okl_debug_pub.log_debug (g_level_statement,
7478: l_module_name,
7479: 'l_currency_conversion_type: '
7480: || l_currency_conversion_type
7481: );
7478: l_module_name,
7479: 'l_currency_conversion_type: '
7480: || l_currency_conversion_type
7481: );
7482: okl_debug_pub.log_debug (g_level_statement,
7483: l_module_name,
7484: 'l_currency_conversion_rate: '
7485: || l_currency_conversion_rate
7486: );
7483: l_module_name,
7484: 'l_currency_conversion_rate: '
7485: || l_currency_conversion_rate
7486: );
7487: okl_debug_pub.log_debug (g_level_statement,
7488: l_module_name,
7489: 'l_currency_conversion_date: '
7490: || l_currency_conversion_date
7491: );
7488: l_module_name,
7489: 'l_currency_conversion_date: '
7490: || l_currency_conversion_date
7491: );
7492: okl_debug_pub.log_debug (g_level_statement,
7493: l_module_name,
7494: 'l_converted_amount: '
7495: || l_converted_amount
7496: );
7557: -- RMUNJULU 28-APR-04 3596626 Added code to set lp_acc_gen_primary_key_tbl
7558: -- for account generator
7559: IF (is_debug_statement_on)
7560: THEN
7561: okl_debug_pub.log_debug
7562: (g_level_statement,
7563: l_module_name,
7564: 'calling OKL_ACC_CALL_PVT.okl_populate_acc_gen'
7565: );
7573: );
7574:
7575: IF (is_debug_statement_on)
7576: THEN
7577: okl_debug_pub.log_debug
7578: (g_level_statement,
7579: l_module_name,
7580: 'called OKL_ACC_CALL_PVT.okl_populate_acc_gen , return status: '
7581: || l_return_status
7592: END IF;
7593:
7594: IF (is_debug_statement_on)
7595: THEN
7596: okl_debug_pub.log_debug
7597: (g_level_statement,
7598: l_module_name,
7599: 'calling OKL_ACCOUNT_DIST_PUB.create_accounting_dist'
7600: );
7617: );
7618:
7619: IF (is_debug_statement_on)
7620: THEN
7621: okl_debug_pub.log_debug
7622: (g_level_statement,
7623: l_module_name,
7624: 'called OKL_ACCOUNT_DIST_PUB.create_accounting_dist , return status: '
7625: || l_return_status
7699: END LOOP; -- balances res
7700:
7701: IF (is_debug_statement_on)
7702: THEN
7703: okl_debug_pub.log_debug
7704: (g_level_statement,
7705: l_module_name,
7706: 'calling OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns'
7707: );
7719: );
7720:
7721: IF (is_debug_statement_on)
7722: THEN
7723: okl_debug_pub.log_debug
7724: (g_level_statement,
7725: l_module_name,
7726: 'called OKL_TXL_ADJSTS_LNS_PUB.insert_txl_adjsts_lns , return status: '
7727: || l_return_status
7817: x_return_status := l_return_status;
7818:
7819: IF (is_debug_procedure_on)
7820: THEN
7821: okl_debug_pub.log_debug (g_level_procedure,
7822: l_module_name,
7823: 'End(-)'
7824: );
7825: END IF;
7845: x_return_status := okl_api.g_ret_sts_error;
7846:
7847: IF (is_debug_exception_on)
7848: THEN
7849: okl_debug_pub.log_debug (g_level_exception,
7850: l_module_name,
7851: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
7852: );
7853: END IF;
7872: x_return_status := okl_api.g_ret_sts_unexp_error;
7873:
7874: IF (is_debug_exception_on)
7875: THEN
7876: okl_debug_pub.log_debug (g_level_exception,
7877: l_module_name,
7878: 'EXCEPTION :'
7879: || 'G_EXCEPTION_UNEXPECTED_ERROR'
7880: );
7908: );
7909:
7910: IF (is_debug_exception_on)
7911: THEN
7912: okl_debug_pub.log_debug (g_level_exception,
7913: l_module_name,
7914: 'EXCEPTION :'
7915: || 'OTHERS, SQLCODE: '
7916: || SQLCODE
8030: l_api_name CONSTANT VARCHAR2 (30) := 'mass_rebook';
8031: l_module_name VARCHAR2 (500)
8032: := g_module_name || 'mass_rebook';
8033: is_debug_exception_on BOOLEAN
8034: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8035: is_debug_procedure_on BOOLEAN
8036: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8037: is_debug_statement_on BOOLEAN
8038: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8032: := g_module_name || 'mass_rebook';
8033: is_debug_exception_on BOOLEAN
8034: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8035: is_debug_procedure_on BOOLEAN
8036: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8037: is_debug_statement_on BOOLEAN
8038: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8039: l_api_version CONSTANT NUMBER := 1;
8040: l_contract_number VARCHAR2 (120);
8034: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8035: is_debug_procedure_on BOOLEAN
8036: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8037: is_debug_statement_on BOOLEAN
8038: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8039: l_api_version CONSTANT NUMBER := 1;
8040: l_contract_number VARCHAR2 (120);
8041: l_id NUMBER;
8042: l_name VARCHAR2 (150);
8056: SAVEPOINT mass_rebook;
8057:
8058: IF (is_debug_procedure_on)
8059: THEN
8060: okl_debug_pub.log_debug (g_level_procedure,
8061: l_module_name,
8062: 'Begin(+)'
8063: );
8064: END IF;
8064: END IF;
8065:
8066: IF (is_debug_statement_on)
8067: THEN
8068: okl_debug_pub.log_debug (g_level_statement,
8069: l_module_name,
8070: 'In param, p_sys_date: ' || p_sys_date
8071: );
8072: okl_debug_pub.log_debug (g_level_statement,
8068: okl_debug_pub.log_debug (g_level_statement,
8069: l_module_name,
8070: 'In param, p_sys_date: ' || p_sys_date
8071: );
8072: okl_debug_pub.log_debug (g_level_statement,
8073: l_module_name,
8074: 'In param, p_term_rec.p_quote_id: '
8075: || p_term_rec.p_quote_id
8076: );
8073: l_module_name,
8074: 'In param, p_term_rec.p_quote_id: '
8075: || p_term_rec.p_quote_id
8076: );
8077: okl_debug_pub.log_debug (g_level_statement,
8078: l_module_name,
8079: 'In param, p_term_rec.p_contract_id: '
8080: || p_term_rec.p_contract_id
8081: );
8078: l_module_name,
8079: 'In param, p_term_rec.p_contract_id: '
8080: || p_term_rec.p_contract_id
8081: );
8082: okl_debug_pub.log_debug
8083: (g_level_statement,
8084: l_module_name,
8085: 'In param, p_term_rec.p_contract_number: '
8086: || p_term_rec.p_contract_number
8084: l_module_name,
8085: 'In param, p_term_rec.p_contract_number: '
8086: || p_term_rec.p_contract_number
8087: );
8088: okl_debug_pub.log_debug (g_level_statement,
8089: l_module_name,
8090: 'In param, p_tcnv_rec.id: ' || p_tcnv_rec.ID
8091: );
8092: END IF;
8159:
8160: --Bug# 3999921: pagarg +++ T and A +++++++ End ++++++++++
8161: IF (is_debug_statement_on)
8162: THEN
8163: okl_debug_pub.log_debug
8164: (g_level_statement,
8165: l_module_name,
8166: 'calling OKL_MASS_REBOOK_PVT.apply_mass_rebook'
8167: );
8193: ); -- RMUNJULU CONTRACT BLOCKING (2)
8194:
8195: IF (is_debug_statement_on)
8196: THEN
8197: okl_debug_pub.log_debug
8198: (g_level_statement,
8199: l_module_name,
8200: 'called OKL_MASS_REBOOK_PVT.apply_mass_rebook , return status: '
8201: || l_return_status
8235: -- RBRUNO BUG 6801022 START : UPDATE TERMINATION QUOTES FROM STATUS ACCEPTED
8236:
8237:
8238: IF (is_debug_statement_on) THEN
8239: okl_debug_pub.log_debug (g_level_statement,
8240: l_module_name,
8241: 'Invoking updating quote status');
8242: end if;
8243:
8244: --IF TERM QUOTE IN STATUS ACCEPTED EXISTS, UPDATE IT TO COMPLETE
8245: update_quote_status(p_term_rec);
8246:
8247: IF (is_debug_statement_on) THEN
8248: okl_debug_pub.log_debug (g_level_statement,
8249: l_module_name,
8250: 'post updating quote status');
8251: end if;
8252: -- RBRUNO BUG 6801022 END : UPDATE TERMINATION QUOTES FROM STATUS ACCEPTED
8258:
8259:
8260: IF (is_debug_procedure_on)
8261: THEN
8262: okl_debug_pub.log_debug (g_level_procedure,
8263: l_module_name,
8264: 'End(-)'
8265: );
8266: END IF;
8286: x_mrbk_success := g_ret_sts_error;
8287:
8288: IF (is_debug_exception_on)
8289: THEN
8290: okl_debug_pub.log_debug (g_level_exception,
8291: l_module_name,
8292: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
8293: );
8294: END IF;
8313: x_mrbk_success := g_ret_sts_error;
8314:
8315: IF (is_debug_exception_on)
8316: THEN
8317: okl_debug_pub.log_debug (g_level_exception,
8318: l_module_name,
8319: 'EXCEPTION :'
8320: || 'G_EXCEPTION_UNEXPECTED_ERROR'
8321: );
8349: );
8350:
8351: IF (is_debug_exception_on)
8352: THEN
8353: okl_debug_pub.log_debug (g_level_exception,
8354: l_module_name,
8355: 'EXCEPTION :'
8356: || 'OTHERS, SQLCODE: '
8357: || SQLCODE
8404: l_api_name VARCHAR2 (30) := 'cancel_act_insurance';
8405: l_module_name VARCHAR2 (500)
8406: := g_module_name || 'cancel_activate_insurance';
8407: is_debug_exception_on BOOLEAN
8408: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8409: is_debug_procedure_on BOOLEAN
8410: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8411: is_debug_statement_on BOOLEAN
8412: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8406: := g_module_name || 'cancel_activate_insurance';
8407: is_debug_exception_on BOOLEAN
8408: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8409: is_debug_procedure_on BOOLEAN
8410: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8411: is_debug_statement_on BOOLEAN
8412: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8413: l_api_version CONSTANT NUMBER := 1;
8414: -- RMUNJULU 14-FEB-03 2804703 Added variable
8408: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8409: is_debug_procedure_on BOOLEAN
8410: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8411: is_debug_statement_on BOOLEAN
8412: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8413: l_api_version CONSTANT NUMBER := 1;
8414: -- RMUNJULU 14-FEB-03 2804703 Added variable
8415: l_sts_code VARCHAR2 (200);
8416: BEGIN
8419: SAVEPOINT cancel_activate_insurance;
8420:
8421: IF (is_debug_procedure_on)
8422: THEN
8423: okl_debug_pub.log_debug (g_level_procedure,
8424: l_module_name,
8425: 'Begin(+)'
8426: );
8427: END IF;
8427: END IF;
8428:
8429: IF (is_debug_statement_on)
8430: THEN
8431: okl_debug_pub.log_debug (g_level_statement,
8432: l_module_name,
8433: 'In param, p_sys_date: ' || p_sys_date
8434: );
8435: okl_debug_pub.log_debug
8431: okl_debug_pub.log_debug (g_level_statement,
8432: l_module_name,
8433: 'In param, p_sys_date: ' || p_sys_date
8434: );
8435: okl_debug_pub.log_debug
8436: (g_level_statement,
8437: l_module_name,
8438: 'In param, p_term_rec.p_early_termination_yn: '
8439: || p_term_rec.p_early_termination_yn
8437: l_module_name,
8438: 'In param, p_term_rec.p_early_termination_yn: '
8439: || p_term_rec.p_early_termination_yn
8440: );
8441: okl_debug_pub.log_debug (g_level_statement,
8442: l_module_name,
8443: 'In param, p_term_rec.p_contract_id: '
8444: || p_term_rec.p_contract_id
8445: );
8470: AND l_sts_code <> 'EVERGREEN'
8471: THEN
8472: IF (is_debug_statement_on)
8473: THEN
8474: okl_debug_pub.log_debug
8475: (g_level_statement,
8476: l_module_name,
8477: 'calling OKL_INSURANCE_POLICIES_PUB.cancel_create_policies'
8478: );
8491: );
8492:
8493: IF (is_debug_statement_on)
8494: THEN
8495: okl_debug_pub.log_debug
8496: (g_level_statement,
8497: l_module_name,
8498: 'called OKL_INSURANCE_POLICIES_PUB.cancel_create_policies , return status: '
8499: || l_return_status
8521: x_return_status := l_return_status;
8522:
8523: IF (is_debug_procedure_on)
8524: THEN
8525: okl_debug_pub.log_debug (g_level_procedure,
8526: l_module_name,
8527: 'End(-)'
8528: );
8529: END IF;
8542: x_return_status := g_ret_sts_error;
8543:
8544: IF (is_debug_exception_on)
8545: THEN
8546: okl_debug_pub.log_debug (g_level_exception,
8547: l_module_name,
8548: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
8549: );
8550: END IF;
8562: x_return_status := g_ret_sts_unexp_error;
8563:
8564: IF (is_debug_exception_on)
8565: THEN
8566: okl_debug_pub.log_debug (g_level_exception,
8567: l_module_name,
8568: 'EXCEPTION :'
8569: || 'G_EXCEPTION_UNEXPECTED_ERROR'
8570: );
8591: );
8592:
8593: IF (is_debug_exception_on)
8594: THEN
8595: okl_debug_pub.log_debug (g_level_exception,
8596: l_module_name,
8597: 'EXCEPTION :'
8598: || 'OTHERS, SQLCODE: '
8599: || SQLCODE
8659: l_count NUMBER;
8660: l_module_name VARCHAR2 (500)
8661: := g_module_name || 'reverse_loss_provisions';
8662: is_debug_exception_on BOOLEAN
8663: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8664: is_debug_procedure_on BOOLEAN
8665: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8666: is_debug_statement_on BOOLEAN
8667: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8661: := g_module_name || 'reverse_loss_provisions';
8662: is_debug_exception_on BOOLEAN
8663: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8664: is_debug_procedure_on BOOLEAN
8665: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8666: is_debug_statement_on BOOLEAN
8667: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8668: -- Bug 3097068
8669: l_valid_gl_date DATE;
8663: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
8664: is_debug_procedure_on BOOLEAN
8665: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
8666: is_debug_statement_on BOOLEAN
8667: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
8668: -- Bug 3097068
8669: l_valid_gl_date DATE;
8670: BEGIN
8671: -- Start a savepoint to rollback to if error in this block
8672: SAVEPOINT reverse_loss_provisions;
8673:
8674: IF (is_debug_procedure_on)
8675: THEN
8676: okl_debug_pub.log_debug (g_level_procedure,
8677: l_module_name,
8678: 'Begin(+)'
8679: );
8680: END IF;
8680: END IF;
8681:
8682: IF (is_debug_statement_on)
8683: THEN
8684: okl_debug_pub.log_debug (g_level_statement,
8685: l_module_name,
8686: 'In param, p_sys_date: ' || p_sys_date
8687: );
8688: okl_debug_pub.log_debug (g_level_statement,
8684: okl_debug_pub.log_debug (g_level_statement,
8685: l_module_name,
8686: 'In param, p_sys_date: ' || p_sys_date
8687: );
8688: okl_debug_pub.log_debug (g_level_statement,
8689: l_module_name,
8690: 'In param, p_term_rec.p_contract_id: '
8691: || p_term_rec.p_contract_id
8692: );
8689: l_module_name,
8690: 'In param, p_term_rec.p_contract_id: '
8691: || p_term_rec.p_contract_id
8692: );
8693: okl_debug_pub.log_debug
8694: (g_level_statement,
8695: l_module_name,
8696: 'In param, p_term_rec.p_contract_number: '
8697: || p_term_rec.p_contract_number
8702: -- REVERSAL OF NON-INCOME
8703: -- *************
8704: IF (is_debug_statement_on)
8705: THEN
8706: okl_debug_pub.log_debug
8707: (g_level_statement,
8708: l_module_name,
8709: 'calling OKL_AM_UTIL_PVT.get_transaction_id'
8710: );
8717: );
8718:
8719: IF (is_debug_statement_on)
8720: THEN
8721: okl_debug_pub.log_debug
8722: (g_level_statement,
8723: l_module_name,
8724: 'called OKL_AM_UTIL_PVT.get_transaction_id , return status: '
8725: || l_return_status
8723: l_module_name,
8724: 'called OKL_AM_UTIL_PVT.get_transaction_id , return status: '
8725: || l_return_status
8726: );
8727: okl_debug_pub.log_debug (g_level_statement,
8728: l_module_name,
8729: 'l_try_id: ' || l_try_id
8730: );
8731: END IF;
8808: 'Catchup of income on termination of the contract';
8809:
8810: IF (is_debug_statement_on)
8811: THEN
8812: okl_debug_pub.log_debug
8813: (g_level_statement,
8814: l_module_name,
8815: 'calling OKL_GENERATE_ACCRUALS_PUB.catchup_accruals'
8816: );
8829: );
8830:
8831: IF (is_debug_statement_on)
8832: THEN
8833: okl_debug_pub.log_debug
8834: (g_level_statement,
8835: l_module_name,
8836: 'called OKL_GENERATE_ACCRUALS_PUB.catchup_accruals , return status: '
8837: || l_return_status
8874: l_catchup_rec.accrual_date := l_valid_gl_date_rep;
8875:
8876: IF (is_debug_statement_on)
8877: THEN
8878: okl_debug_pub.log_debug
8879: (g_level_statement,
8880: l_module_name,
8881: 'calling OKL_GENERATE_ACCRUALS_PUB.catchup_accruals for SECONDARY'
8882: );
8896: );
8897:
8898: IF (is_debug_statement_on)
8899: THEN
8900: okl_debug_pub.log_debug
8901: (g_level_statement,
8902: l_module_name,
8903: 'called OKL_GENERATE_ACCRUALS_PUB.catchup_accruals for SECONDARY, return status: '
8904: || l_return_status
8940: l_lprv_rec.reversal_date := l_valid_gl_date;
8941:
8942: IF (is_debug_statement_on)
8943: THEN
8944: okl_debug_pub.log_debug
8945: (g_level_statement,
8946: l_module_name,
8947: 'calling OKL_REV_LOSS_PROV_PUB.reverse_loss_provisions'
8948: );
8959: );
8960:
8961: IF (is_debug_statement_on)
8962: THEN
8963: okl_debug_pub.log_debug
8964: (g_level_statement,
8965: l_module_name,
8966: 'called OKL_REV_LOSS_PROV_PUB.reverse_loss_provisions , return status: '
8967: || l_return_status
9006: x_return_status := l_return_status;
9007:
9008: IF (is_debug_procedure_on)
9009: THEN
9010: okl_debug_pub.log_debug (g_level_procedure,
9011: l_module_name,
9012: 'End(-)'
9013: );
9014: END IF;
9025: x_return_status := g_ret_sts_error;
9026:
9027: IF (is_debug_exception_on)
9028: THEN
9029: okl_debug_pub.log_debug (g_level_exception,
9030: l_module_name,
9031: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
9032: );
9033: END IF;
9043: x_return_status := g_ret_sts_unexp_error;
9044:
9045: IF (is_debug_exception_on)
9046: THEN
9047: okl_debug_pub.log_debug (g_level_exception,
9048: l_module_name,
9049: 'EXCEPTION :'
9050: || 'G_EXCEPTION_UNEXPECTED_ERROR'
9051: );
9070: );
9071:
9072: IF (is_debug_exception_on)
9073: THEN
9074: okl_debug_pub.log_debug (g_level_exception,
9075: l_module_name,
9076: 'EXCEPTION :'
9077: || 'OTHERS, SQLCODE: '
9078: || SQLCODE
9125: l_api_version CONSTANT NUMBER := 1;
9126: l_module_name VARCHAR2 (500)
9127: := g_module_name || 'cancel_insurance';
9128: is_debug_exception_on BOOLEAN
9129: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9130: is_debug_procedure_on BOOLEAN
9131: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9132: is_debug_statement_on BOOLEAN
9133: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9127: := g_module_name || 'cancel_insurance';
9128: is_debug_exception_on BOOLEAN
9129: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9130: is_debug_procedure_on BOOLEAN
9131: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9132: is_debug_statement_on BOOLEAN
9133: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9134: -- RMUNJULU 14-FEB-03 2804703 Added variable
9135: l_sts_code VARCHAR2 (200);
9129: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9130: is_debug_procedure_on BOOLEAN
9131: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9132: is_debug_statement_on BOOLEAN
9133: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9134: -- RMUNJULU 14-FEB-03 2804703 Added variable
9135: l_sts_code VARCHAR2 (200);
9136: BEGIN
9137: -- Start a savepoint to rollback to if error in this block
9138: SAVEPOINT cancel_insurance;
9139:
9140: IF (is_debug_procedure_on)
9141: THEN
9142: okl_debug_pub.log_debug (g_level_procedure,
9143: l_module_name,
9144: 'Begin(+)'
9145: );
9146: END IF;
9146: END IF;
9147:
9148: IF (is_debug_statement_on)
9149: THEN
9150: okl_debug_pub.log_debug (g_level_statement,
9151: l_module_name,
9152: 'In param, p_sys_date: ' || p_sys_date
9153: );
9154: okl_debug_pub.log_debug (g_level_statement,
9150: okl_debug_pub.log_debug (g_level_statement,
9151: l_module_name,
9152: 'In param, p_sys_date: ' || p_sys_date
9153: );
9154: okl_debug_pub.log_debug (g_level_statement,
9155: l_module_name,
9156: 'In param, p_term_rec.p_contract_id: '
9157: || p_term_rec.p_contract_id
9158: );
9155: l_module_name,
9156: 'In param, p_term_rec.p_contract_id: '
9157: || p_term_rec.p_contract_id
9158: );
9159: okl_debug_pub.log_debug
9160: (g_level_statement,
9161: l_module_name,
9162: 'In param, p_term_rec.p_early_termination_yn: '
9163: || p_term_rec.p_early_termination_yn
9189: AND l_sts_code <> 'EVERGREEN'
9190: THEN
9191: IF (is_debug_statement_on)
9192: THEN
9193: okl_debug_pub.log_debug
9194: (g_level_statement,
9195: l_module_name,
9196: 'calling OKL_INSURANCE_POLICIES_PUB.cancel_policies'
9197: );
9209: );
9210:
9211: IF (is_debug_statement_on)
9212: THEN
9213: okl_debug_pub.log_debug
9214: (g_level_statement,
9215: l_module_name,
9216: 'called OKL_INSURANCE_POLICIES_PUB.cancel_policies , return status: '
9217: || l_return_status
9239: x_return_status := l_return_status;
9240:
9241: IF (is_debug_procedure_on)
9242: THEN
9243: okl_debug_pub.log_debug (g_level_procedure,
9244: l_module_name,
9245: 'End(-)'
9246: );
9247: END IF;
9258: x_return_status := g_ret_sts_error;
9259:
9260: IF (is_debug_exception_on)
9261: THEN
9262: okl_debug_pub.log_debug (g_level_exception,
9263: l_module_name,
9264: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
9265: );
9266: END IF;
9276: x_return_status := g_ret_sts_unexp_error;
9277:
9278: IF (is_debug_exception_on)
9279: THEN
9280: okl_debug_pub.log_debug (g_level_exception,
9281: l_module_name,
9282: 'EXCEPTION :'
9283: || 'G_EXCEPTION_UNEXPECTED_ERROR'
9284: );
9303: );
9304:
9305: IF (is_debug_exception_on)
9306: THEN
9307: okl_debug_pub.log_debug (g_level_exception,
9308: l_module_name,
9309: 'EXCEPTION :'
9310: || 'OTHERS, SQLCODE: '
9311: || SQLCODE
9338: ln_dummy NUMBER := 0;
9339: l_module_name VARCHAR2 (500)
9340: := g_module_name || 'validate_chr_cle_id';
9341: is_debug_exception_on BOOLEAN
9342: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9343: is_debug_procedure_on BOOLEAN
9344: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9345: is_debug_statement_on BOOLEAN
9346: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9340: := g_module_name || 'validate_chr_cle_id';
9341: is_debug_exception_on BOOLEAN
9342: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9343: is_debug_procedure_on BOOLEAN
9344: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9345: is_debug_statement_on BOOLEAN
9346: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9347:
9348: -- RMUNJULU Bug # 2484327 Added comments, changed parameters to IN
9342: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9343: is_debug_procedure_on BOOLEAN
9344: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9345: is_debug_statement_on BOOLEAN
9346: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9347:
9348: -- RMUNJULU Bug # 2484327 Added comments, changed parameters to IN
9349: -- RMUNJULU 16-DEC-02 Bug # 2484327, get lines which are of the same status as header
9350: -- Cursor to validate the contract and lines to see if they are booked or not
9375: AND stl.scs_code IN (g_lease_scs_code, g_loan_scs_code));
9376: BEGIN
9377: IF (is_debug_procedure_on)
9378: THEN
9379: okl_debug_pub.log_debug (g_level_procedure,
9380: l_module_name,
9381: 'Begin(+)'
9382: );
9383: END IF;
9383: END IF;
9384:
9385: IF (is_debug_statement_on)
9386: THEN
9387: okl_debug_pub.log_debug (g_level_statement,
9388: l_module_name,
9389: 'In param, p_dnz_chr_id: ' || p_dnz_chr_id
9390: );
9391: okl_debug_pub.log_debug (g_level_statement,
9387: okl_debug_pub.log_debug (g_level_statement,
9388: l_module_name,
9389: 'In param, p_dnz_chr_id: ' || p_dnz_chr_id
9390: );
9391: okl_debug_pub.log_debug (g_level_statement,
9392: l_module_name,
9393: 'In param, p_top_line_id: ' || p_top_line_id
9394: );
9395: END IF;
9458: END IF;
9459:
9460: IF (is_debug_procedure_on)
9461: THEN
9462: okl_debug_pub.log_debug (g_level_procedure,
9463: l_module_name,
9464: 'End(-)'
9465: );
9466: END IF;
9478: x_return_status := g_ret_sts_error;
9479:
9480: IF (is_debug_exception_on)
9481: THEN
9482: okl_debug_pub.log_debug (g_level_exception,
9483: l_module_name,
9484: 'EXCEPTION :'
9485: || 'G_EXCEPTION_STOP_VALIDATION'
9486: );
9496: x_return_status := g_ret_sts_error;
9497:
9498: IF (is_debug_exception_on)
9499: THEN
9500: okl_debug_pub.log_debug (g_level_exception,
9501: l_module_name,
9502: 'EXCEPTION :'
9503: || 'G_EXCEPTION_HALT_VALIDATION'
9504: );
9524: x_return_status := g_ret_sts_unexp_error;
9525:
9526: IF (is_debug_exception_on)
9527: THEN
9528: okl_debug_pub.log_debug (g_level_exception,
9529: l_module_name,
9530: 'EXCEPTION :'
9531: || 'OTHERS, SQLCODE: '
9532: || SQLCODE
9869: l_fee_line_id NUMBER;
9870: l_module_name VARCHAR2 (500)
9871: := g_module_name || 'update_payments';
9872: is_debug_exception_on BOOLEAN
9873: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9874: is_debug_procedure_on BOOLEAN
9875: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9876: is_debug_statement_on BOOLEAN
9877: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9871: := g_module_name || 'update_payments';
9872: is_debug_exception_on BOOLEAN
9873: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9874: is_debug_procedure_on BOOLEAN
9875: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9876: is_debug_statement_on BOOLEAN
9877: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9878: BEGIN
9879: SAVEPOINT update_payments;
9873: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
9874: is_debug_procedure_on BOOLEAN
9875: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
9876: is_debug_statement_on BOOLEAN
9877: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
9878: BEGIN
9879: SAVEPOINT update_payments;
9880:
9881: IF (is_debug_procedure_on)
9879: SAVEPOINT update_payments;
9880:
9881: IF (is_debug_procedure_on)
9882: THEN
9883: okl_debug_pub.log_debug (g_level_procedure,
9884: l_module_name,
9885: 'Begin(+)'
9886: );
9887: END IF;
9887: END IF;
9888:
9889: IF (is_debug_statement_on)
9890: THEN
9891: okl_debug_pub.log_debug (g_level_statement,
9892: l_module_name,
9893: 'In param, p_quote_id: ' || p_quote_id
9894: );
9895: END IF;
9955: END LOOP;
9956:
9957: IF (is_debug_statement_on)
9958: THEN
9959: okl_debug_pub.log_debug
9960: (g_level_statement,
9961: l_module_name,
9962: 'calling OKL_LA_PAYMENTS_PVT.delete_payment'
9963: );
9975: );
9976:
9977: IF (is_debug_statement_on)
9978: THEN
9979: okl_debug_pub.log_debug
9980: (g_level_statement,
9981: l_module_name,
9982: 'called OKL_LA_PAYMENTS_PVT.delete_payment , return status: '
9983: || l_return_status
10200: END LOOP;
10201:
10202: IF (is_debug_statement_on)
10203: THEN
10204: okl_debug_pub.log_debug
10205: (g_level_statement,
10206: l_module_name,
10207: 'calling OKL_LA_PAYMENTS_PVT.delete_payment'
10208: );
10220: );
10221:
10222: IF (is_debug_statement_on)
10223: THEN
10224: okl_debug_pub.log_debug
10225: (g_level_statement,
10226: l_module_name,
10227: 'calling OKL_LA_PAYMENTS_PVT.delete_payment '
10228: || l_return_status
10291: THEN
10292: -- create asset level payments
10293: IF (is_debug_statement_on)
10294: THEN
10295: okl_debug_pub.log_debug
10296: (g_level_statement,
10297: l_module_name,
10298: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10299: );
10316: );
10317:
10318: IF (is_debug_statement_on)
10319: THEN
10320: okl_debug_pub.log_debug
10321: (g_level_statement,
10322: l_module_name,
10323: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10324: || l_return_status
10328: 'SERVICED_ASSET_LINE'
10329: THEN
10330: IF (is_debug_statement_on)
10331: THEN
10332: okl_debug_pub.log_debug
10333: (g_level_statement,
10334: l_module_name,
10335: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10336: );
10354: );
10355:
10356: IF (is_debug_statement_on)
10357: THEN
10358: okl_debug_pub.log_debug
10359: (g_level_statement,
10360: l_module_name,
10361: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10362: || l_return_status
10366: THEN
10367: -- create service line level payments
10368: IF (is_debug_statement_on)
10369: THEN
10370: okl_debug_pub.log_debug
10371: (g_level_statement,
10372: l_module_name,
10373: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10374: );
10391: );
10392:
10393: IF (is_debug_statement_on)
10394: THEN
10395: okl_debug_pub.log_debug
10396: (g_level_statement,
10397: l_module_name,
10398: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10399: || l_return_status
10405: THEN
10406: -- create fee asset subline level payments
10407: IF (is_debug_statement_on)
10408: THEN
10409: okl_debug_pub.log_debug
10410: (g_level_statement,
10411: l_module_name,
10412: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10413: );
10430: );
10431:
10432: IF (is_debug_statement_on)
10433: THEN
10434: okl_debug_pub.log_debug
10435: (g_level_statement,
10436: l_module_name,
10437: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10438: || l_return_status
10441: ELSIF l_quoteobjects_rec.oty_code = 'FEE_LINE'
10442: THEN
10443: IF (is_debug_statement_on)
10444: THEN
10445: okl_debug_pub.log_debug
10446: (g_level_statement,
10447: l_module_name,
10448: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10449: );
10467:
10468: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++
10469: IF (is_debug_statement_on)
10470: THEN
10471: okl_debug_pub.log_debug
10472: (g_level_statement,
10473: l_module_name,
10474: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10475: || l_return_status
10667: lpym_del_tbl (1).slh_id := l_rgpslh_rec.slh_id;
10668:
10669: IF (is_debug_statement_on)
10670: THEN
10671: okl_debug_pub.log_debug
10672: (g_level_statement,
10673: l_module_name,
10674: 'calling OKL_LA_PAYMENTS_PVT.delete_payment'
10675: );
10687: );
10688:
10689: IF (is_debug_statement_on)
10690: THEN
10691: okl_debug_pub.log_debug
10692: (g_level_statement,
10693: l_module_name,
10694: 'calling OKL_LA_PAYMENTS_PVT.delete_payment , return status: '
10695: || l_return_status
10714: lpym_del_tbl (1).slh_id := l_rgpslh_rec.slh_id;
10715:
10716: IF (is_debug_statement_on)
10717: THEN
10718: okl_debug_pub.log_debug
10719: (g_level_statement,
10720: l_module_name,
10721: 'calling OKL_LA_PAYMENTS_PVT.delete_payment'
10722: );
10734: );
10735:
10736: IF (is_debug_statement_on)
10737: THEN
10738: okl_debug_pub.log_debug
10739: (g_level_statement,
10740: l_module_name,
10741: 'calling OKL_LA_PAYMENTS_PVT.delete_payment , return status: '
10742: || l_return_status
10778: THEN
10779: -- create asset level payments
10780: IF (is_debug_statement_on)
10781: THEN
10782: okl_debug_pub.log_debug
10783: (g_level_statement,
10784: l_module_name,
10785: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10786: );
10803: );
10804:
10805: IF (is_debug_statement_on)
10806: THEN
10807: okl_debug_pub.log_debug
10808: (g_level_statement,
10809: l_module_name,
10810: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10811: || l_return_status
10815: 'SERVICED_ASSET_LINE'
10816: THEN
10817: IF (is_debug_statement_on)
10818: THEN
10819: okl_debug_pub.log_debug
10820: (g_level_statement,
10821: l_module_name,
10822: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10823: );
10841: );
10842:
10843: IF (is_debug_statement_on)
10844: THEN
10845: okl_debug_pub.log_debug
10846: (g_level_statement,
10847: l_module_name,
10848: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10849: || l_return_status
10853: ELSIF l_quoteobjects_rec.oty_code = 'FEE_ASSET_LINE'
10854: THEN
10855: IF (is_debug_statement_on)
10856: THEN
10857: okl_debug_pub.log_debug
10858: (g_level_statement,
10859: l_module_name,
10860: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10861: );
10880:
10881: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++
10882: IF (is_debug_statement_on)
10883: THEN
10884: okl_debug_pub.log_debug
10885: (g_level_statement,
10886: l_module_name,
10887: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10888: || l_return_status
10907: x_return_status := l_return_status;
10908:
10909: IF (is_debug_procedure_on)
10910: THEN
10911: okl_debug_pub.log_debug (g_level_procedure,
10912: l_module_name,
10913: 'End(-)'
10914: );
10915: END IF;
10972: x_return_status := g_ret_sts_error;
10973:
10974: IF (is_debug_exception_on)
10975: THEN
10976: okl_debug_pub.log_debug (g_level_exception,
10977: l_module_name,
10978: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
10979: );
10980: END IF;
11036: x_return_status := g_ret_sts_unexp_error;
11037:
11038: IF (is_debug_exception_on)
11039: THEN
11040: okl_debug_pub.log_debug (g_level_exception,
11041: l_module_name,
11042: 'EXCEPTION :'
11043: || 'G_EXCEPTION_UNEXPECTED_ERROR'
11044: );
11109: );
11110:
11111: IF (is_debug_exception_on)
11112: THEN
11113: okl_debug_pub.log_debug (g_level_exception,
11114: l_module_name,
11115: 'EXCEPTION :'
11116: || 'OTHERS, SQLCODE: '
11117: || SQLCODE
11333: ln_dummy NUMBER := 0;
11334: l_module_name VARCHAR2 (500)
11335: := g_module_name || 'update_lines';
11336: is_debug_exception_on BOOLEAN
11337: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
11338: is_debug_procedure_on BOOLEAN
11339: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
11340: is_debug_statement_on BOOLEAN
11341: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
11335: := g_module_name || 'update_lines';
11336: is_debug_exception_on BOOLEAN
11337: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
11338: is_debug_procedure_on BOOLEAN
11339: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
11340: is_debug_statement_on BOOLEAN
11341: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
11342: lv_terminate_tls VARCHAR2 (3) := NULL;
11343: ln_sls_payment_amount NUMBER := 0;
11337: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
11338: is_debug_procedure_on BOOLEAN
11339: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
11340: is_debug_statement_on BOOLEAN
11341: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
11342: lv_terminate_tls VARCHAR2 (3) := NULL;
11343: ln_sls_payment_amount NUMBER := 0;
11344: ln_new_amount NUMBER := 0;
11345: ln_old_amount NUMBER := 0;
11456: SAVEPOINT update_lines;
11457:
11458: IF (is_debug_procedure_on)
11459: THEN
11460: okl_debug_pub.log_debug (g_level_procedure,
11461: l_module_name,
11462: 'Begin(+)'
11463: );
11464: END IF;
11464: END IF;
11465:
11466: IF (is_debug_statement_on)
11467: THEN
11468: okl_debug_pub.log_debug (g_level_statement,
11469: l_module_name,
11470: 'In param, p_sys_date: ' || p_sys_date
11471: );
11472: okl_debug_pub.log_debug (g_level_statement,
11468: okl_debug_pub.log_debug (g_level_statement,
11469: l_module_name,
11470: 'In param, p_sys_date: ' || p_sys_date
11471: );
11472: okl_debug_pub.log_debug (g_level_statement,
11473: l_module_name,
11474: 'In param, p_status: ' || p_status
11475: );
11476: okl_debug_pub.log_debug (g_level_statement,
11472: okl_debug_pub.log_debug (g_level_statement,
11473: l_module_name,
11474: 'In param, p_status: ' || p_status
11475: );
11476: okl_debug_pub.log_debug (g_level_statement,
11477: l_module_name,
11478: 'In param, p_trn_reason_code: '
11479: || p_trn_reason_code
11480: );
11477: l_module_name,
11478: 'In param, p_trn_reason_code: '
11479: || p_trn_reason_code
11480: );
11481: okl_debug_pub.log_debug (g_level_statement,
11482: l_module_name,
11483: 'In param, p_term_rec.p_quote_id: '
11484: || p_term_rec.p_quote_id
11485: );
11482: l_module_name,
11483: 'In param, p_term_rec.p_quote_id: '
11484: || p_term_rec.p_quote_id
11485: );
11486: okl_debug_pub.log_debug (g_level_statement,
11487: l_module_name,
11488: 'In param, p_term_rec.p_contract_id: '
11489: || p_term_rec.p_contract_id
11490: );
11494: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
11495: LOOP
11496: IF (p_klev_tbl.EXISTS (i))
11497: THEN
11498: okl_debug_pub.log_debug (g_level_statement,
11499: l_module_name,
11500: 'In param, p_klev_tbl('
11501: || i
11502: || ').p_kle_id: '
11501: || i
11502: || ').p_kle_id: '
11503: || p_klev_tbl (i).p_kle_id
11504: );
11505: okl_debug_pub.log_debug (g_level_statement,
11506: l_module_name,
11507: 'In param, p_klev_tbl('
11508: || i
11509: || ').p_asset_name: '
11553: );
11554:
11555: IF (is_debug_statement_on)
11556: THEN
11557: okl_debug_pub.log_debug
11558: (g_level_statement,
11559: l_module_name,
11560: 'called validate_chr_cle_id , return status: '
11561: || x_return_status
11583: l_clev_rec.trn_code := p_trn_reason_code;
11584:
11585: IF (is_debug_statement_on)
11586: THEN
11587: okl_debug_pub.log_debug
11588: (g_level_statement,
11589: l_module_name,
11590: 'calling OKL_CONTRACT_PUB.update_contract_line'
11591: );
11604: );
11605:
11606: IF (is_debug_statement_on)
11607: THEN
11608: okl_debug_pub.log_debug
11609: (g_level_statement,
11610: l_module_name,
11611: 'calling OKL_CONTRACT_PUB.update_contract_line , return status: '
11612: || x_return_status
11664: r_clev_rec.trn_code := p_trn_reason_code;
11665:
11666: IF (is_debug_statement_on)
11667: THEN
11668: okl_debug_pub.log_debug
11669: (g_level_statement,
11670: l_module_name,
11671: 'calling OKL_CONTRACT_PUB.update_contract_line'
11672: );
11685: );
11686:
11687: IF (is_debug_statement_on)
11688: THEN
11689: okl_debug_pub.log_debug
11690: (g_level_statement,
11691: l_module_name,
11692: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
11693: || x_return_status
11744: m_clev_rec.trn_code := p_trn_reason_code;
11745:
11746: IF (is_debug_statement_on)
11747: THEN
11748: okl_debug_pub.log_debug
11749: (g_level_statement,
11750: l_module_name,
11751: 'calling OKL_CONTRACT_PUB.update_contract_line'
11752: );
11765: );
11766:
11767: IF (is_debug_statement_on)
11768: THEN
11769: okl_debug_pub.log_debug
11770: (g_level_statement,
11771: l_module_name,
11772: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
11773: || x_return_status
11879: lap_klev_rec.termination_value := l_termination_value;
11880:
11881: IF (is_debug_statement_on)
11882: THEN
11883: okl_debug_pub.log_debug
11884: (g_level_statement,
11885: l_module_name,
11886: 'calling OKL_CONTRACT_PUB.update_contract_line'
11887: );
11900: );
11901:
11902: IF (is_debug_statement_on)
11903: THEN
11904: okl_debug_pub.log_debug
11905: (g_level_statement,
11906: l_module_name,
11907: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
11908: || l_return_status
11935: IF NVL (l_balances_rec_exists, 'N') = 'Y'
11936: THEN
11937: IF (is_debug_statement_on)
11938: THEN
11939: okl_debug_pub.log_debug (g_level_statement,
11940: l_module_name,
11941: 'calling OKL_CBL_PVT.update_row'
11942: );
11943: END IF;
11952: );
11953:
11954: IF (is_debug_statement_on)
11955: THEN
11956: okl_debug_pub.log_debug
11957: (g_level_statement,
11958: l_module_name,
11959: 'called OKL_CBL_PVT.update_row , return status: '
11960: || x_return_status
11972: ELSE
11973: -- balances rec does not exist so insert
11974: IF (is_debug_statement_on)
11975: THEN
11976: okl_debug_pub.log_debug (g_level_statement,
11977: l_module_name,
11978: 'calling OKL_CBL_PVT.insert_row'
11979: );
11980: END IF;
11989: );
11990:
11991: IF (is_debug_statement_on)
11992: THEN
11993: okl_debug_pub.log_debug
11994: (g_level_statement,
11995: l_module_name,
11996: 'called OKL_CBL_PVT.insert_row , return status: '
11997: || x_return_status
12055: );
12056:
12057: IF (is_debug_statement_on)
12058: THEN
12059: okl_debug_pub.log_debug
12060: (g_level_statement,
12061: l_module_name,
12062: 'called update_payments , return status: '
12063: || l_return_status
12197: x_klev_tbl := lx_klev_tbl;
12198:
12199: IF (is_debug_procedure_on)
12200: THEN
12201: okl_debug_pub.log_debug (g_level_procedure,
12202: l_module_name,
12203: 'End(-)'
12204: );
12205: END IF;
12267: x_return_status := g_ret_sts_error;
12268:
12269: IF (is_debug_exception_on)
12270: THEN
12271: okl_debug_pub.log_debug (g_level_exception,
12272: l_module_name,
12273: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
12274: );
12275: END IF;
12336: x_return_status := g_ret_sts_unexp_error;
12337:
12338: IF (is_debug_exception_on)
12339: THEN
12340: okl_debug_pub.log_debug (g_level_exception,
12341: l_module_name,
12342: 'EXCEPTION :'
12343: || 'G_EXCEPTION_UNEXPECTED_ERROR'
12344: );
12414: );
12415:
12416: IF (is_debug_exception_on)
12417: THEN
12418: okl_debug_pub.log_debug (g_level_exception,
12419: l_module_name,
12420: 'EXCEPTION :'
12421: || 'OTHERS, SQLCODE: '
12422: || SQLCODE
12511: l_count NUMBER;
12512: l_module_name VARCHAR2 (500)
12513: := g_module_name || 'update_contract';
12514: is_debug_exception_on BOOLEAN
12515: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12516: is_debug_procedure_on BOOLEAN
12517: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12518: is_debug_statement_on BOOLEAN
12519: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12513: := g_module_name || 'update_contract';
12514: is_debug_exception_on BOOLEAN
12515: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12516: is_debug_procedure_on BOOLEAN
12517: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12518: is_debug_statement_on BOOLEAN
12519: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12520: -- RMUNJULU 18-FEB-03 2805703 Added variables
12521: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
12515: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12516: is_debug_procedure_on BOOLEAN
12517: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12518: is_debug_statement_on BOOLEAN
12519: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12520: -- RMUNJULU 18-FEB-03 2805703 Added variables
12521: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
12522: l_klev_rec okl_contract_pub.klev_rec_type;
12523: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
12532: SAVEPOINT update_contract;
12533:
12534: IF (is_debug_procedure_on)
12535: THEN
12536: okl_debug_pub.log_debug (g_level_procedure,
12537: l_module_name,
12538: 'Begin(+)'
12539: );
12540: END IF;
12540: END IF;
12541:
12542: IF (is_debug_statement_on)
12543: THEN
12544: okl_debug_pub.log_debug (g_level_statement,
12545: l_module_name,
12546: 'In param, p_sys_date: ' || p_sys_date
12547: );
12548: okl_debug_pub.log_debug (g_level_statement,
12544: okl_debug_pub.log_debug (g_level_statement,
12545: l_module_name,
12546: 'In param, p_sys_date: ' || p_sys_date
12547: );
12548: okl_debug_pub.log_debug (g_level_statement,
12549: l_module_name,
12550: 'In param, p_status: ' || p_status
12551: );
12552: okl_debug_pub.log_debug (g_level_statement,
12548: okl_debug_pub.log_debug (g_level_statement,
12549: l_module_name,
12550: 'In param, p_status: ' || p_status
12551: );
12552: okl_debug_pub.log_debug (g_level_statement,
12553: l_module_name,
12554: 'In param, p_trn_reason_code: '
12555: || p_trn_reason_code
12556: );
12553: l_module_name,
12554: 'In param, p_trn_reason_code: '
12555: || p_trn_reason_code
12556: );
12557: okl_debug_pub.log_debug (g_level_statement,
12558: l_module_name,
12559: 'In param, p_term_rec.p_contract_id: '
12560: || p_term_rec.p_contract_id
12561: );
12558: l_module_name,
12559: 'In param, p_term_rec.p_contract_id: '
12560: || p_term_rec.p_contract_id
12561: );
12562: okl_debug_pub.log_debug
12563: (g_level_statement,
12564: l_module_name,
12565: 'In param, p_term_rec.p_contract_number: '
12566: || p_term_rec.p_contract_number
12564: l_module_name,
12565: 'In param, p_term_rec.p_contract_number: '
12566: || p_term_rec.p_contract_number
12567: );
12568: okl_debug_pub.log_debug
12569: (g_level_statement,
12570: l_module_name,
12571: 'In param, p_term_rec.p_termination_date: '
12572: || p_term_rec.p_termination_date
12601: l_clev_rec.trn_code := p_trn_reason_code;
12602:
12603: IF (is_debug_statement_on)
12604: THEN
12605: okl_debug_pub.log_debug
12606: (g_level_statement,
12607: l_module_name,
12608: 'calling OKL_CONTRACT_PUB.update_contract_line'
12609: );
12622: );
12623:
12624: IF (is_debug_statement_on)
12625: THEN
12626: okl_debug_pub.log_debug
12627: (g_level_statement,
12628: l_module_name,
12629: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
12630: || x_return_status
12694:
12695: -- Call the okl api to update contract with termination info
12696: IF (is_debug_statement_on)
12697: THEN
12698: okl_debug_pub.log_debug
12699: (g_level_statement,
12700: l_module_name,
12701: 'calling OKC_CONTRACT_PUB.update_contract_header'
12702: );
12714: );
12715:
12716: IF (is_debug_statement_on)
12717: THEN
12718: okl_debug_pub.log_debug
12719: (g_level_statement,
12720: l_module_name,
12721: 'called OKC_CONTRACT_PUB.update_contract_header , return status: '
12722: || l_return_status
12757: px_msg_tbl := l_msg_tbl;
12758:
12759: IF (is_debug_procedure_on)
12760: THEN
12761: okl_debug_pub.log_debug (g_level_procedure,
12762: l_module_name,
12763: 'End(-)'
12764: );
12765: END IF;
12788: x_return_status := g_ret_sts_error;
12789:
12790: IF (is_debug_exception_on)
12791: THEN
12792: okl_debug_pub.log_debug (g_level_exception,
12793: l_module_name,
12794: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
12795: );
12796: END IF;
12818: x_return_status := g_ret_sts_unexp_error;
12819:
12820: IF (is_debug_exception_on)
12821: THEN
12822: okl_debug_pub.log_debug (g_level_exception,
12823: l_module_name,
12824: 'EXCEPTION :'
12825: || 'G_EXCEPTION_UNEXPECTED_ERROR'
12826: );
12857: );
12858:
12859: IF (is_debug_exception_on)
12860: THEN
12861: okl_debug_pub.log_debug (g_level_exception,
12862: l_module_name,
12863: 'EXCEPTION :'
12864: || 'OTHERS, SQLCODE: '
12865: || SQLCODE
12952: l_return_status VARCHAR2 (1) := g_ret_sts_success;
12953: l_module_name VARCHAR2 (500)
12954: := g_module_name || 'terminate_lines';
12955: is_debug_exception_on BOOLEAN
12956: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12957: is_debug_procedure_on BOOLEAN
12958: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12959: is_debug_statement_on BOOLEAN
12960: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12954: := g_module_name || 'terminate_lines';
12955: is_debug_exception_on BOOLEAN
12956: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12957: is_debug_procedure_on BOOLEAN
12958: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12959: is_debug_statement_on BOOLEAN
12960: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12961: -- RMUNJULU Bug # 2484327 Added these variables
12962: l_msg_tbl g_msg_tbl;
12956: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12957: is_debug_procedure_on BOOLEAN
12958: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12959: is_debug_statement_on BOOLEAN
12960: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12961: -- RMUNJULU Bug # 2484327 Added these variables
12962: l_msg_tbl g_msg_tbl;
12963: k NUMBER;
12964: l_id NUMBER := -9999;
12987: SAVEPOINT terminate_lines;
12988:
12989: IF (is_debug_procedure_on)
12990: THEN
12991: okl_debug_pub.log_debug (g_level_procedure,
12992: l_module_name,
12993: 'Begin(+)'
12994: );
12995: END IF;
12995: END IF;
12996:
12997: IF (is_debug_statement_on)
12998: THEN
12999: okl_debug_pub.log_debug (g_level_statement,
13000: l_module_name,
13001: 'In param, p_sys_date: ' || p_sys_date
13002: );
13003: okl_debug_pub.log_debug (g_level_statement,
12999: okl_debug_pub.log_debug (g_level_statement,
13000: l_module_name,
13001: 'In param, p_sys_date: ' || p_sys_date
13002: );
13003: okl_debug_pub.log_debug (g_level_statement,
13004: l_module_name,
13005: 'In param, p_status: ' || p_status
13006: );
13007: okl_debug_pub.log_debug (g_level_statement,
13003: okl_debug_pub.log_debug (g_level_statement,
13004: l_module_name,
13005: 'In param, p_status: ' || p_status
13006: );
13007: okl_debug_pub.log_debug (g_level_statement,
13008: l_module_name,
13009: 'In param, p_trn_already_set: '
13010: || p_trn_already_set
13011: );
13008: l_module_name,
13009: 'In param, p_trn_already_set: '
13010: || p_trn_already_set
13011: );
13012: okl_debug_pub.log_debug (g_level_statement,
13013: l_module_name,
13014: 'In param, px_overall_status: '
13015: || px_overall_status
13016: );
13013: l_module_name,
13014: 'In param, px_overall_status: '
13015: || px_overall_status
13016: );
13017: okl_debug_pub.log_debug (g_level_statement,
13018: l_module_name,
13019: 'In param, p_term_rec.p_contract_id: '
13020: || p_term_rec.p_contract_id
13021: );
13018: l_module_name,
13019: 'In param, p_term_rec.p_contract_id: '
13020: || p_term_rec.p_contract_id
13021: );
13022: okl_debug_pub.log_debug
13023: (g_level_statement,
13024: l_module_name,
13025: 'In param, px_tcnv_rec.tmt_generic_flag2_yn: '
13026: || px_tcnv_rec.tmt_generic_flag2_yn
13024: l_module_name,
13025: 'In param, px_tcnv_rec.tmt_generic_flag2_yn: '
13026: || px_tcnv_rec.tmt_generic_flag2_yn
13027: );
13028: okl_debug_pub.log_debug (g_level_statement,
13029: l_module_name,
13030: 'In param, px_tcnv_rec.trn_code: '
13031: || px_tcnv_rec.trn_code
13032: );
13029: l_module_name,
13030: 'In param, px_tcnv_rec.trn_code: '
13031: || px_tcnv_rec.trn_code
13032: );
13033: okl_debug_pub.log_debug (g_level_statement,
13034: l_module_name,
13035: 'In param, px_tcnv_rec.id: '
13036: || px_tcnv_rec.ID
13037: );
13041: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
13042: LOOP
13043: IF (p_klev_tbl.EXISTS (i))
13044: THEN
13045: okl_debug_pub.log_debug (g_level_statement,
13046: l_module_name,
13047: 'In param, p_klev_tbl('
13048: || i
13049: || ').p_kle_id: '
13048: || i
13049: || ').p_kle_id: '
13050: || p_klev_tbl (i).p_kle_id
13051: );
13052: okl_debug_pub.log_debug (g_level_statement,
13053: l_module_name,
13054: 'In param, p_klev_tbl('
13055: || i
13056: || ').p_asset_quantity: '
13055: || i
13056: || ').p_asset_quantity: '
13057: || p_klev_tbl (i).p_asset_quantity
13058: );
13059: okl_debug_pub.log_debug (g_level_statement,
13060: l_module_name,
13061: 'In param, p_klev_tbl('
13062: || i
13063: || ').p_asset_name: '
13062: || i
13063: || ').p_asset_name: '
13064: || p_klev_tbl (i).p_asset_name
13065: );
13066: okl_debug_pub.log_debug (g_level_statement,
13067: l_module_name,
13068: 'In param, p_klev_tbl('
13069: || i
13070: || ').p_quote_quantity: '
13069: || i
13070: || ').p_quote_quantity: '
13071: || p_klev_tbl (i).p_quote_quantity
13072: );
13073: okl_debug_pub.log_debug (g_level_statement,
13074: l_module_name,
13075: 'In param, p_klev_tbl('
13076: || i
13077: || ').p_tql_id: '
13076: || i
13077: || ').p_tql_id: '
13078: || p_klev_tbl (i).p_tql_id
13079: );
13080: okl_debug_pub.log_debug (g_level_statement,
13081: l_module_name,
13082: 'In param, p_klev_tbl('
13083: || i
13084: || ').p_split_kle_name: '
13083: || i
13084: || ').p_split_kle_name: '
13085: || p_klev_tbl (i).p_split_kle_name
13086: );
13087: okl_debug_pub.log_debug (g_level_statement,
13088: l_module_name,
13089: 'In param, p_klev_tbl('
13090: || i
13091: || ').p_split_kle_id: '
13127: );
13128:
13129: IF (is_debug_statement_on)
13130: THEN
13131: okl_debug_pub.log_debug
13132: (g_level_statement,
13133: l_module_name,
13134: 'called update_lines , return status: '
13135: || l_return_status
13228: );
13229:
13230: IF (is_debug_statement_on)
13231: THEN
13232: okl_debug_pub.log_debug
13233: (g_level_statement,
13234: l_module_name,
13235: 'called process_transaction , return status: '
13236: || l_return_status
13261: ); -- RMUNJULU CONTRACT BLOCKING ADDED
13262:
13263: IF (is_debug_statement_on)
13264: THEN
13265: okl_debug_pub.log_debug
13266: (g_level_statement,
13267: l_module_name,
13268: 'called mass_rebook , return status: '
13269: || l_return_status
13286: );
13287:
13288: IF (is_debug_statement_on)
13289: THEN
13290: okl_debug_pub.log_debug
13291: (g_level_statement,
13292: l_module_name,
13293: 'called close_balances , return status: '
13294: || l_return_status
13325: );
13326:
13327: IF (is_debug_statement_on)
13328: THEN
13329: okl_debug_pub.log_debug
13330: (g_level_statement,
13331: l_module_name,
13332: 'called reverse_loss_provisions , return status: '
13333: || l_return_status
13367: );
13368:
13369: IF (is_debug_statement_on)
13370: THEN
13371: okl_debug_pub.log_debug
13372: (g_level_statement,
13373: l_module_name,
13374: 'called update_contract , return status: '
13375: || l_return_status
13406: );
13407:
13408: IF (is_debug_statement_on)
13409: THEN
13410: okl_debug_pub.log_debug
13411: (g_level_statement,
13412: l_module_name,
13413: 'called cancel_insurance , return status: '
13414: || l_return_status
13499: );
13500:
13501: IF (is_debug_statement_on)
13502: THEN
13503: okl_debug_pub.log_debug
13504: (g_level_statement,
13505: l_module_name,
13506: 'called process_transaction , return status: '
13507: || l_return_status
13548: );
13549:
13550: IF (is_debug_statement_on)
13551: THEN
13552: okl_debug_pub.log_debug
13553: (g_level_statement,
13554: l_module_name,
13555: 'called process_transaction , return status: '
13556: || l_return_status
13584: );
13585:
13586: IF (is_debug_statement_on)
13587: THEN
13588: okl_debug_pub.log_debug
13589: (g_level_statement,
13590: l_module_name,
13591: 'called process_transaction , return status: '
13592: || l_return_status
13625: );
13626:
13627: IF (is_debug_statement_on)
13628: THEN
13629: okl_debug_pub.log_debug
13630: (g_level_statement,
13631: l_module_name,
13632: 'called process_transaction , return status: '
13633: || l_return_status
13651: -- will be 'S' always SHOULD BE OK SINCE THIS IS NOT CONSIDERED GOING FURTHER
13652:
13653: IF (is_debug_procedure_on)
13654: THEN
13655: okl_debug_pub.log_debug (g_level_procedure,
13656: l_module_name,
13657: 'End(-)'
13658: );
13659: END IF;
13679: );
13680:
13681: IF (is_debug_exception_on)
13682: THEN
13683: okl_debug_pub.log_debug (g_level_exception,
13684: l_module_name,
13685: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
13686: );
13687: END IF;
13706: );
13707:
13708: IF (is_debug_exception_on)
13709: THEN
13710: okl_debug_pub.log_debug (g_level_exception,
13711: l_module_name,
13712: 'EXCEPTION :'
13713: || 'G_EXCEPTION_UNEXPECTED_ERROR'
13714: );
13742: );
13743:
13744: IF (is_debug_exception_on)
13745: THEN
13746: okl_debug_pub.log_debug (g_level_exception,
13747: l_module_name,
13748: 'EXCEPTION :'
13749: || 'OTHERS, SQLCODE: '
13750: || SQLCODE
13813: l_api_name VARCHAR2 (30) := 'asset_level_termination';
13814: l_module_name VARCHAR2 (500)
13815: := g_module_name || 'asset_level_termination';
13816: is_debug_exception_on BOOLEAN
13817: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
13818: is_debug_procedure_on BOOLEAN
13819: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
13820: is_debug_statement_on BOOLEAN
13821: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
13815: := g_module_name || 'asset_level_termination';
13816: is_debug_exception_on BOOLEAN
13817: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
13818: is_debug_procedure_on BOOLEAN
13819: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
13820: is_debug_statement_on BOOLEAN
13821: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
13822: l_sys_date DATE;
13823: l_trn_already_set VARCHAR2 (1) := g_no;
13817: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
13818: is_debug_procedure_on BOOLEAN
13819: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
13820: is_debug_statement_on BOOLEAN
13821: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
13822: l_sys_date DATE;
13823: l_trn_already_set VARCHAR2 (1) := g_no;
13824: lx_contract_status VARCHAR2 (200);
13825: l_validate VARCHAR2 (1) := g_ret_sts_error;
13829: l_lease_or_loan VARCHAR2 (30);
13830: BEGIN
13831: IF (is_debug_procedure_on)
13832: THEN
13833: okl_debug_pub.log_debug (g_level_procedure,
13834: l_module_name,
13835: 'Begin(+)'
13836: );
13837: END IF;
13837: END IF;
13838:
13839: IF (is_debug_statement_on)
13840: THEN
13841: okl_debug_pub.log_debug (g_level_statement,
13842: l_module_name,
13843: 'In param, p_term_rec.p_quote_id: '
13844: || p_term_rec.p_quote_id
13845: );
13842: l_module_name,
13843: 'In param, p_term_rec.p_quote_id: '
13844: || p_term_rec.p_quote_id
13845: );
13846: okl_debug_pub.log_debug (g_level_statement,
13847: l_module_name,
13848: 'In param, p_term_rec.p_contract_id: '
13849: || p_term_rec.p_contract_id
13850: );
13847: l_module_name,
13848: 'In param, p_term_rec.p_contract_id: '
13849: || p_term_rec.p_contract_id
13850: );
13851: okl_debug_pub.log_debug
13852: (g_level_statement,
13853: l_module_name,
13854: 'In param, p_term_rec.p_contract_number: '
13855: || p_term_rec.p_contract_number
13853: l_module_name,
13854: 'In param, p_term_rec.p_contract_number: '
13855: || p_term_rec.p_contract_number
13856: );
13857: okl_debug_pub.log_debug (g_level_statement,
13858: l_module_name,
13859: 'In param, p_term_rec.p_quote_type: '
13860: || p_term_rec.p_quote_type
13861: );
13858: l_module_name,
13859: 'In param, p_term_rec.p_quote_type: '
13860: || p_term_rec.p_quote_type
13861: );
13862: okl_debug_pub.log_debug
13863: (g_level_statement,
13864: l_module_name,
13865: 'In param, p_term_rec.p_early_termination_yn: '
13866: || p_term_rec.p_early_termination_yn
13864: l_module_name,
13865: 'In param, p_term_rec.p_early_termination_yn: '
13866: || p_term_rec.p_early_termination_yn
13867: );
13868: okl_debug_pub.log_debug
13869: (g_level_statement,
13870: l_module_name,
13871: 'In param, p_term_rec.p_termination_date: '
13872: || p_term_rec.p_termination_date
13870: l_module_name,
13871: 'In param, p_term_rec.p_termination_date: '
13872: || p_term_rec.p_termination_date
13873: );
13874: okl_debug_pub.log_debug
13875: (g_level_statement,
13876: l_module_name,
13877: 'In param, p_tcnv_rec.tmt_generic_flag2_yn: '
13878: || p_tcnv_rec.tmt_generic_flag2_yn
13876: l_module_name,
13877: 'In param, p_tcnv_rec.tmt_generic_flag2_yn: '
13878: || p_tcnv_rec.tmt_generic_flag2_yn
13879: );
13880: okl_debug_pub.log_debug (g_level_statement,
13881: l_module_name,
13882: 'In param, p_tcnv_rec.id: ' || p_tcnv_rec.ID
13883: );
13884: okl_debug_pub.log_debug
13880: okl_debug_pub.log_debug (g_level_statement,
13881: l_module_name,
13882: 'In param, p_tcnv_rec.id: ' || p_tcnv_rec.ID
13883: );
13884: okl_debug_pub.log_debug
13885: (g_level_statement,
13886: l_module_name,
13887: 'In param, p_tcnv_rec.tmt_contract_updated_yn: '
13888: || p_tcnv_rec.tmt_contract_updated_yn
13886: l_module_name,
13887: 'In param, p_tcnv_rec.tmt_contract_updated_yn: '
13888: || p_tcnv_rec.tmt_contract_updated_yn
13889: );
13890: okl_debug_pub.log_debug (g_level_statement,
13891: l_module_name,
13892: 'In param, p_tcnv_rec.tmt_status_code: '
13893: || p_tcnv_rec.tmt_status_code
13894: );
13957: );
13958:
13959: IF (is_debug_statement_on)
13960: THEN
13961: okl_debug_pub.log_debug
13962: (g_level_statement,
13963: l_module_name,
13964: 'called initialize_transaction , return status: '
13965: || l_return_status
13985: );
13986:
13987: IF (is_debug_statement_on)
13988: THEN
13989: okl_debug_pub.log_debug
13990: (g_level_statement,
13991: l_module_name,
13992: 'called process_transaction , return status: '
13993: || l_return_status
14017: );
14018:
14019: IF (is_debug_statement_on)
14020: THEN
14021: okl_debug_pub.log_debug
14022: (g_level_statement,
14023: l_module_name,
14024: 'called initialize_transaction , return status: '
14025: || l_return_status
14041: -- rmunjulu EDAT Get the quote effectivity date and quote acceptance date
14042: -- and store as global variables, will be used later on in other procedures
14043: IF (is_debug_statement_on)
14044: THEN
14045: okl_debug_pub.log_debug
14046: (g_level_statement,
14047: l_module_name,
14048: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates'
14049: );
14054: x_return_status => l_return_status);
14055:
14056: IF (is_debug_statement_on)
14057: THEN
14058: okl_debug_pub.log_debug
14059: (g_level_statement,
14060: l_module_name,
14061: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates , return status: '
14062: || l_return_status
14081: );
14082:
14083: IF (is_debug_statement_on)
14084: THEN
14085: okl_debug_pub.log_debug (g_level_statement,
14086: l_module_name,
14087: 'called get_lines , return status: '
14088: || l_return_status
14089: );
14106: );
14107:
14108: IF (is_debug_statement_on)
14109: THEN
14110: okl_debug_pub.log_debug
14111: (g_level_statement,
14112: l_module_name,
14113: 'called validate_contract_and_lines , return status: '
14114: || l_return_status
14126: THEN
14127: -- Since batch process is not checked initially in LLT check here
14128: IF (is_debug_statement_on)
14129: THEN
14130: okl_debug_pub.log_debug
14131: (g_level_statement,
14132: l_module_name,
14133: 'calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract'
14134: );
14146: );
14147:
14148: IF (is_debug_statement_on)
14149: THEN
14150: okl_debug_pub.log_debug
14151: (g_level_statement,
14152: l_module_name,
14153: 'called OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract , return status: '
14154: || l_return_status
14200: );
14201:
14202: IF (is_debug_statement_on)
14203: THEN
14204: okl_debug_pub.log_debug
14205: (g_level_statement,
14206: l_module_name,
14207: 'called process_transaction , return status: '
14208: || l_return_status
14220:
14221: -- Save messages from stack into transaction message table
14222: IF (is_debug_statement_on)
14223: THEN
14224: okl_debug_pub.log_debug
14225: (g_level_statement,
14226: l_module_name,
14227: 'calling OKL_AM_UTIL_PVT.process_messages'
14228: );
14235: );
14236:
14237: IF (is_debug_statement_on)
14238: THEN
14239: okl_debug_pub.log_debug
14240: (g_level_statement,
14241: l_module_name,
14242: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14243: || l_return_status
14246:
14247: -- RMUNJULU 3018641 Added code to get and set TMG_RUN
14248: IF (is_debug_statement_on)
14249: THEN
14250: okl_debug_pub.log_debug
14251: (g_level_statement,
14252: l_module_name,
14253: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14254: );
14259: x_return_status => l_return_status);
14260:
14261: IF (is_debug_statement_on)
14262: THEN
14263: okl_debug_pub.log_debug
14264: (g_level_statement,
14265: l_module_name,
14266: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14267: || l_return_status
14297: );
14298:
14299: IF (is_debug_statement_on)
14300: THEN
14301: okl_debug_pub.log_debug
14302: (g_level_statement,
14303: l_module_name,
14304: 'called process_transaction , return status: '
14305: || l_return_status
14317:
14318: -- Save messages from stack into transaction message table
14319: IF (is_debug_statement_on)
14320: THEN
14321: okl_debug_pub.log_debug
14322: (g_level_statement,
14323: l_module_name,
14324: 'calling OKL_AM_UTIL_PVT.process_messages'
14325: );
14332: );
14333:
14334: IF (is_debug_statement_on)
14335: THEN
14336: okl_debug_pub.log_debug
14337: (g_level_statement,
14338: l_module_name,
14339: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14340: || l_return_status
14343:
14344: -- RMUNJULU 3018641 Added code to get and set TMG_RUN
14345: IF (is_debug_statement_on)
14346: THEN
14347: okl_debug_pub.log_debug
14348: (g_level_statement,
14349: l_module_name,
14350: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14351: );
14356: x_return_status => l_return_status);
14357:
14358: IF (is_debug_statement_on)
14359: THEN
14360: okl_debug_pub.log_debug
14361: (g_level_statement,
14362: l_module_name,
14363: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14364: || l_return_status
14393:
14394: -- Store messages in TRX_MSGS
14395: IF (is_debug_statement_on)
14396: THEN
14397: okl_debug_pub.log_debug (g_level_statement,
14398: l_module_name,
14399: 'calling OKL_AM_UTIL_PVT.process_messages'
14400: );
14401: END IF;
14407: );
14408:
14409: IF (is_debug_statement_on)
14410: THEN
14411: okl_debug_pub.log_debug
14412: (g_level_statement,
14413: l_module_name,
14414: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14415: || l_return_status
14435: );
14436:
14437: IF (is_debug_statement_on)
14438: THEN
14439: okl_debug_pub.log_debug
14440: (g_level_statement,
14441: l_module_name,
14442: 'called process_transaction , return status: '
14443: || l_return_status
14467: );
14468:
14469: IF (is_debug_statement_on)
14470: THEN
14471: okl_debug_pub.log_debug (g_level_statement,
14472: l_module_name,
14473: 'called split_asset , return status: '
14474: || l_return_status
14475: );
14488: );
14489:
14490: IF (is_debug_statement_on)
14491: THEN
14492: okl_debug_pub.log_debug
14493: (g_level_statement,
14494: l_module_name,
14495: 'called process_transaction , return status: '
14496: || l_return_status
14514:
14515: -- Save messages from stack into transaction message table
14516: IF (is_debug_statement_on)
14517: THEN
14518: okl_debug_pub.log_debug
14519: (g_level_statement,
14520: l_module_name,
14521: 'calling OKL_AM_UTIL_PVT.process_messages'
14522: );
14529: );
14530:
14531: IF (is_debug_statement_on)
14532: THEN
14533: okl_debug_pub.log_debug
14534: (g_level_statement,
14535: l_module_name,
14536: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14537: || l_return_status
14540:
14541: -- RMUNJULU 3018641 Added to get and set latest run - 02-OCT-03
14542: IF (is_debug_statement_on)
14543: THEN
14544: okl_debug_pub.log_debug
14545: (g_level_statement,
14546: l_module_name,
14547: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14548: );
14553: x_return_status => l_return_status);
14554:
14555: IF (is_debug_statement_on)
14556: THEN
14557: okl_debug_pub.log_debug
14558: (g_level_statement,
14559: l_module_name,
14560: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14561: || l_return_status
14577: );
14578:
14579: IF (is_debug_statement_on)
14580: THEN
14581: okl_debug_pub.log_debug
14582: (g_level_statement,
14583: l_module_name,
14584: 'called accounting_entries , return status: '
14585: || l_return_status
14592: x_lease_loan_type => l_lease_or_loan);
14593:
14594: IF (is_debug_statement_on)
14595: THEN
14596: okl_debug_pub.log_debug
14597: (g_level_statement,
14598: l_module_name,
14599: 'called check_lease_or_loan , l_lease_or_loan: '
14600: || l_lease_or_loan
14617: );
14618:
14619: IF (is_debug_statement_on)
14620: THEN
14621: okl_debug_pub.log_debug
14622: (g_level_statement,
14623: l_module_name,
14624: 'called dispose_assets , return status: '
14625: || l_return_status
14650: );
14651:
14652: IF (is_debug_statement_on)
14653: THEN
14654: okl_debug_pub.log_debug
14655: (g_level_statement,
14656: l_module_name,
14657: 'called dispose_assets , return status: '
14658: || l_return_status
14678: );
14679:
14680: IF (is_debug_statement_on)
14681: THEN
14682: okl_debug_pub.log_debug
14683: (g_level_statement,
14684: l_module_name,
14685: 'called amortize_assets , return status: '
14686: || l_return_status
14712: );
14713:
14714: IF (is_debug_statement_on)
14715: THEN
14716: okl_debug_pub.log_debug
14717: (g_level_statement,
14718: l_module_name,
14719: 'called return_assets , return status: '
14720: || l_return_status
14757: -- RMUNJULU 07-JAN-03 2736865 Added code to store messages and set stack to true
14758: -- Store messages in TRX_MSGS
14759: IF (is_debug_statement_on)
14760: THEN
14761: okl_debug_pub.log_debug
14762: (g_level_statement,
14763: l_module_name,
14764: 'calling OKL_AM_UTIL_PVT.process_messages'
14765: );
14772: );
14773:
14774: IF (is_debug_statement_on)
14775: THEN
14776: okl_debug_pub.log_debug
14777: (g_level_statement,
14778: l_module_name,
14779: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14780: || l_return_status
14801: );
14802:
14803: IF (is_debug_statement_on)
14804: THEN
14805: okl_debug_pub.log_debug
14806: (g_level_statement,
14807: l_module_name,
14808: 'called terminate_lines , return status: '
14809: || l_return_status
14825: );
14826:
14827: IF (is_debug_statement_on)
14828: THEN
14829: okl_debug_pub.log_debug
14830: (g_level_statement,
14831: l_module_name,
14832: 'called process_transaction , return status: '
14833: || l_return_status
14857: );
14858:
14859: IF (is_debug_statement_on)
14860: THEN
14861: okl_debug_pub.log_debug
14862: (g_level_statement,
14863: l_module_name,
14864: 'called process_transaction , return status: '
14865: || l_return_status
14886:
14887: -- Save messages from stack into transaction message table
14888: IF (is_debug_statement_on)
14889: THEN
14890: okl_debug_pub.log_debug (g_level_statement,
14891: l_module_name,
14892: 'calling OKL_AM_UTIL_PVT.process_messages'
14893: );
14894: END IF;
14900: );
14901:
14902: IF (is_debug_statement_on)
14903: THEN
14904: okl_debug_pub.log_debug
14905: (g_level_statement,
14906: l_module_name,
14907: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14908: || l_return_status
14911:
14912: -- RMUNJULU 3018641 Added code to get and set TMG_RUN
14913: IF (is_debug_statement_on)
14914: THEN
14915: okl_debug_pub.log_debug
14916: (g_level_statement,
14917: l_module_name,
14918: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14919: );
14924: x_return_status => l_return_status);
14925:
14926: IF (is_debug_statement_on)
14927: THEN
14928: okl_debug_pub.log_debug
14929: (g_level_statement,
14930: l_module_name,
14931: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14932: || l_return_status
14939: okl_api.end_activity (x_msg_count, x_msg_data);
14940:
14941: IF (is_debug_procedure_on)
14942: THEN
14943: okl_debug_pub.log_debug (g_level_procedure,
14944: l_module_name,
14945: 'End(-)'
14946: );
14947: END IF;
14951: x_return_status := g_ret_sts_success;
14952:
14953: IF (is_debug_exception_on)
14954: THEN
14955: okl_debug_pub.log_debug (g_level_exception,
14956: l_module_name,
14957: 'EXCEPTION :'
14958: || 'G_EXCEPTION_HALT_VALIDATION'
14959: );
14970: );
14971:
14972: IF (is_debug_exception_on)
14973: THEN
14974: okl_debug_pub.log_debug (g_level_exception,
14975: l_module_name,
14976: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
14977: );
14978: END IF;
14988: );
14989:
14990: IF (is_debug_exception_on)
14991: THEN
14992: okl_debug_pub.log_debug (g_level_exception,
14993: l_module_name,
14994: 'EXCEPTION :'
14995: || 'G_EXCEPTION_UNEXPECTED_ERROR'
14996: );
15007: );
15008:
15009: IF (is_debug_exception_on)
15010: THEN
15011: okl_debug_pub.log_debug (g_level_exception,
15012: l_module_name,
15013: 'EXCEPTION :'
15014: || 'OTHERS, SQLCODE: '
15015: || SQLCODE