[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
10292: THEN
10293: -- create asset level payments
10294: IF (is_debug_statement_on)
10295: THEN
10296: okl_debug_pub.log_debug
10297: (g_level_statement,
10298: l_module_name,
10299: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10300: );
10317: );
10318:
10319: IF (is_debug_statement_on)
10320: THEN
10321: okl_debug_pub.log_debug
10322: (g_level_statement,
10323: l_module_name,
10324: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10325: || l_return_status
10329: 'SERVICED_ASSET_LINE'
10330: THEN
10331: IF (is_debug_statement_on)
10332: THEN
10333: okl_debug_pub.log_debug
10334: (g_level_statement,
10335: l_module_name,
10336: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10337: );
10355: );
10356:
10357: IF (is_debug_statement_on)
10358: THEN
10359: okl_debug_pub.log_debug
10360: (g_level_statement,
10361: l_module_name,
10362: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10363: || l_return_status
10367: THEN
10368: -- create service line level payments
10369: IF (is_debug_statement_on)
10370: THEN
10371: okl_debug_pub.log_debug
10372: (g_level_statement,
10373: l_module_name,
10374: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10375: );
10392: );
10393:
10394: IF (is_debug_statement_on)
10395: THEN
10396: okl_debug_pub.log_debug
10397: (g_level_statement,
10398: l_module_name,
10399: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10400: || l_return_status
10406: THEN
10407: -- create fee asset subline level payments
10408: IF (is_debug_statement_on)
10409: THEN
10410: okl_debug_pub.log_debug
10411: (g_level_statement,
10412: l_module_name,
10413: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10414: );
10431: );
10432:
10433: IF (is_debug_statement_on)
10434: THEN
10435: okl_debug_pub.log_debug
10436: (g_level_statement,
10437: l_module_name,
10438: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10439: || l_return_status
10442: ELSIF l_quoteobjects_rec.oty_code = 'FEE_LINE'
10443: THEN
10444: IF (is_debug_statement_on)
10445: THEN
10446: okl_debug_pub.log_debug
10447: (g_level_statement,
10448: l_module_name,
10449: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10450: );
10468:
10469: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++
10470: IF (is_debug_statement_on)
10471: THEN
10472: okl_debug_pub.log_debug
10473: (g_level_statement,
10474: l_module_name,
10475: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10476: || l_return_status
10668: lpym_del_tbl (1).slh_id := l_rgpslh_rec.slh_id;
10669:
10670: IF (is_debug_statement_on)
10671: THEN
10672: okl_debug_pub.log_debug
10673: (g_level_statement,
10674: l_module_name,
10675: 'calling OKL_LA_PAYMENTS_PVT.delete_payment'
10676: );
10688: );
10689:
10690: IF (is_debug_statement_on)
10691: THEN
10692: okl_debug_pub.log_debug
10693: (g_level_statement,
10694: l_module_name,
10695: 'calling OKL_LA_PAYMENTS_PVT.delete_payment , return status: '
10696: || l_return_status
10715: lpym_del_tbl (1).slh_id := l_rgpslh_rec.slh_id;
10716:
10717: IF (is_debug_statement_on)
10718: THEN
10719: okl_debug_pub.log_debug
10720: (g_level_statement,
10721: l_module_name,
10722: 'calling OKL_LA_PAYMENTS_PVT.delete_payment'
10723: );
10735: );
10736:
10737: IF (is_debug_statement_on)
10738: THEN
10739: okl_debug_pub.log_debug
10740: (g_level_statement,
10741: l_module_name,
10742: 'calling OKL_LA_PAYMENTS_PVT.delete_payment , return status: '
10743: || l_return_status
10779: THEN
10780: -- create asset level payments
10781: IF (is_debug_statement_on)
10782: THEN
10783: okl_debug_pub.log_debug
10784: (g_level_statement,
10785: l_module_name,
10786: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10787: );
10804: );
10805:
10806: IF (is_debug_statement_on)
10807: THEN
10808: okl_debug_pub.log_debug
10809: (g_level_statement,
10810: l_module_name,
10811: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10812: || l_return_status
10816: 'SERVICED_ASSET_LINE'
10817: THEN
10818: IF (is_debug_statement_on)
10819: THEN
10820: okl_debug_pub.log_debug
10821: (g_level_statement,
10822: l_module_name,
10823: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10824: );
10842: );
10843:
10844: IF (is_debug_statement_on)
10845: THEN
10846: okl_debug_pub.log_debug
10847: (g_level_statement,
10848: l_module_name,
10849: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10850: || l_return_status
10854: ELSIF l_quoteobjects_rec.oty_code = 'FEE_ASSET_LINE'
10855: THEN
10856: IF (is_debug_statement_on)
10857: THEN
10858: okl_debug_pub.log_debug
10859: (g_level_statement,
10860: l_module_name,
10861: 'calling OKL_LA_PAYMENTS_PVT.process_payment'
10862: );
10881:
10882: --Bug #3921591: pagarg +++ Rollover +++++++ End ++++++++++
10883: IF (is_debug_statement_on)
10884: THEN
10885: okl_debug_pub.log_debug
10886: (g_level_statement,
10887: l_module_name,
10888: 'called OKL_LA_PAYMENTS_PVT.process_payment , return status: '
10889: || l_return_status
10908: x_return_status := l_return_status;
10909:
10910: IF (is_debug_procedure_on)
10911: THEN
10912: okl_debug_pub.log_debug (g_level_procedure,
10913: l_module_name,
10914: 'End(-)'
10915: );
10916: END IF;
10973: x_return_status := g_ret_sts_error;
10974:
10975: IF (is_debug_exception_on)
10976: THEN
10977: okl_debug_pub.log_debug (g_level_exception,
10978: l_module_name,
10979: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
10980: );
10981: END IF;
11037: x_return_status := g_ret_sts_unexp_error;
11038:
11039: IF (is_debug_exception_on)
11040: THEN
11041: okl_debug_pub.log_debug (g_level_exception,
11042: l_module_name,
11043: 'EXCEPTION :'
11044: || 'G_EXCEPTION_UNEXPECTED_ERROR'
11045: );
11110: );
11111:
11112: IF (is_debug_exception_on)
11113: THEN
11114: okl_debug_pub.log_debug (g_level_exception,
11115: l_module_name,
11116: 'EXCEPTION :'
11117: || 'OTHERS, SQLCODE: '
11118: || SQLCODE
11334: ln_dummy NUMBER := 0;
11335: l_module_name VARCHAR2 (500)
11336: := g_module_name || 'update_lines';
11337: is_debug_exception_on BOOLEAN
11338: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
11339: is_debug_procedure_on BOOLEAN
11340: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
11341: is_debug_statement_on BOOLEAN
11342: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
11336: := g_module_name || 'update_lines';
11337: is_debug_exception_on BOOLEAN
11338: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
11339: is_debug_procedure_on BOOLEAN
11340: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
11341: is_debug_statement_on BOOLEAN
11342: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
11343: lv_terminate_tls VARCHAR2 (3) := NULL;
11344: ln_sls_payment_amount NUMBER := 0;
11338: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
11339: is_debug_procedure_on BOOLEAN
11340: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
11341: is_debug_statement_on BOOLEAN
11342: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
11343: lv_terminate_tls VARCHAR2 (3) := NULL;
11344: ln_sls_payment_amount NUMBER := 0;
11345: ln_new_amount NUMBER := 0;
11346: ln_old_amount NUMBER := 0;
11457: SAVEPOINT update_lines;
11458:
11459: IF (is_debug_procedure_on)
11460: THEN
11461: okl_debug_pub.log_debug (g_level_procedure,
11462: l_module_name,
11463: 'Begin(+)'
11464: );
11465: END IF;
11465: END IF;
11466:
11467: IF (is_debug_statement_on)
11468: THEN
11469: okl_debug_pub.log_debug (g_level_statement,
11470: l_module_name,
11471: 'In param, p_sys_date: ' || p_sys_date
11472: );
11473: okl_debug_pub.log_debug (g_level_statement,
11469: okl_debug_pub.log_debug (g_level_statement,
11470: l_module_name,
11471: 'In param, p_sys_date: ' || p_sys_date
11472: );
11473: okl_debug_pub.log_debug (g_level_statement,
11474: l_module_name,
11475: 'In param, p_status: ' || p_status
11476: );
11477: okl_debug_pub.log_debug (g_level_statement,
11473: okl_debug_pub.log_debug (g_level_statement,
11474: l_module_name,
11475: 'In param, p_status: ' || p_status
11476: );
11477: okl_debug_pub.log_debug (g_level_statement,
11478: l_module_name,
11479: 'In param, p_trn_reason_code: '
11480: || p_trn_reason_code
11481: );
11478: l_module_name,
11479: 'In param, p_trn_reason_code: '
11480: || p_trn_reason_code
11481: );
11482: okl_debug_pub.log_debug (g_level_statement,
11483: l_module_name,
11484: 'In param, p_term_rec.p_quote_id: '
11485: || p_term_rec.p_quote_id
11486: );
11483: l_module_name,
11484: 'In param, p_term_rec.p_quote_id: '
11485: || p_term_rec.p_quote_id
11486: );
11487: okl_debug_pub.log_debug (g_level_statement,
11488: l_module_name,
11489: 'In param, p_term_rec.p_contract_id: '
11490: || p_term_rec.p_contract_id
11491: );
11495: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
11496: LOOP
11497: IF (p_klev_tbl.EXISTS (i))
11498: THEN
11499: okl_debug_pub.log_debug (g_level_statement,
11500: l_module_name,
11501: 'In param, p_klev_tbl('
11502: || i
11503: || ').p_kle_id: '
11502: || i
11503: || ').p_kle_id: '
11504: || p_klev_tbl (i).p_kle_id
11505: );
11506: okl_debug_pub.log_debug (g_level_statement,
11507: l_module_name,
11508: 'In param, p_klev_tbl('
11509: || i
11510: || ').p_asset_name: '
11554: );
11555:
11556: IF (is_debug_statement_on)
11557: THEN
11558: okl_debug_pub.log_debug
11559: (g_level_statement,
11560: l_module_name,
11561: 'called validate_chr_cle_id , return status: '
11562: || x_return_status
11584: l_clev_rec.trn_code := p_trn_reason_code;
11585:
11586: IF (is_debug_statement_on)
11587: THEN
11588: okl_debug_pub.log_debug
11589: (g_level_statement,
11590: l_module_name,
11591: 'calling OKL_CONTRACT_PUB.update_contract_line'
11592: );
11605: );
11606:
11607: IF (is_debug_statement_on)
11608: THEN
11609: okl_debug_pub.log_debug
11610: (g_level_statement,
11611: l_module_name,
11612: 'calling OKL_CONTRACT_PUB.update_contract_line , return status: '
11613: || x_return_status
11665: r_clev_rec.trn_code := p_trn_reason_code;
11666:
11667: IF (is_debug_statement_on)
11668: THEN
11669: okl_debug_pub.log_debug
11670: (g_level_statement,
11671: l_module_name,
11672: 'calling OKL_CONTRACT_PUB.update_contract_line'
11673: );
11686: );
11687:
11688: IF (is_debug_statement_on)
11689: THEN
11690: okl_debug_pub.log_debug
11691: (g_level_statement,
11692: l_module_name,
11693: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
11694: || x_return_status
11745: m_clev_rec.trn_code := p_trn_reason_code;
11746:
11747: IF (is_debug_statement_on)
11748: THEN
11749: okl_debug_pub.log_debug
11750: (g_level_statement,
11751: l_module_name,
11752: 'calling OKL_CONTRACT_PUB.update_contract_line'
11753: );
11766: );
11767:
11768: IF (is_debug_statement_on)
11769: THEN
11770: okl_debug_pub.log_debug
11771: (g_level_statement,
11772: l_module_name,
11773: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
11774: || x_return_status
11880: lap_klev_rec.termination_value := l_termination_value;
11881:
11882: IF (is_debug_statement_on)
11883: THEN
11884: okl_debug_pub.log_debug
11885: (g_level_statement,
11886: l_module_name,
11887: 'calling OKL_CONTRACT_PUB.update_contract_line'
11888: );
11901: );
11902:
11903: IF (is_debug_statement_on)
11904: THEN
11905: okl_debug_pub.log_debug
11906: (g_level_statement,
11907: l_module_name,
11908: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
11909: || l_return_status
11936: IF NVL (l_balances_rec_exists, 'N') = 'Y'
11937: THEN
11938: IF (is_debug_statement_on)
11939: THEN
11940: okl_debug_pub.log_debug (g_level_statement,
11941: l_module_name,
11942: 'calling OKL_CBL_PVT.update_row'
11943: );
11944: END IF;
11953: );
11954:
11955: IF (is_debug_statement_on)
11956: THEN
11957: okl_debug_pub.log_debug
11958: (g_level_statement,
11959: l_module_name,
11960: 'called OKL_CBL_PVT.update_row , return status: '
11961: || x_return_status
11973: ELSE
11974: -- balances rec does not exist so insert
11975: IF (is_debug_statement_on)
11976: THEN
11977: okl_debug_pub.log_debug (g_level_statement,
11978: l_module_name,
11979: 'calling OKL_CBL_PVT.insert_row'
11980: );
11981: END IF;
11990: );
11991:
11992: IF (is_debug_statement_on)
11993: THEN
11994: okl_debug_pub.log_debug
11995: (g_level_statement,
11996: l_module_name,
11997: 'called OKL_CBL_PVT.insert_row , return status: '
11998: || x_return_status
12056: );
12057:
12058: IF (is_debug_statement_on)
12059: THEN
12060: okl_debug_pub.log_debug
12061: (g_level_statement,
12062: l_module_name,
12063: 'called update_payments , return status: '
12064: || l_return_status
12198: x_klev_tbl := lx_klev_tbl;
12199:
12200: IF (is_debug_procedure_on)
12201: THEN
12202: okl_debug_pub.log_debug (g_level_procedure,
12203: l_module_name,
12204: 'End(-)'
12205: );
12206: END IF;
12268: x_return_status := g_ret_sts_error;
12269:
12270: IF (is_debug_exception_on)
12271: THEN
12272: okl_debug_pub.log_debug (g_level_exception,
12273: l_module_name,
12274: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
12275: );
12276: END IF;
12337: x_return_status := g_ret_sts_unexp_error;
12338:
12339: IF (is_debug_exception_on)
12340: THEN
12341: okl_debug_pub.log_debug (g_level_exception,
12342: l_module_name,
12343: 'EXCEPTION :'
12344: || 'G_EXCEPTION_UNEXPECTED_ERROR'
12345: );
12415: );
12416:
12417: IF (is_debug_exception_on)
12418: THEN
12419: okl_debug_pub.log_debug (g_level_exception,
12420: l_module_name,
12421: 'EXCEPTION :'
12422: || 'OTHERS, SQLCODE: '
12423: || SQLCODE
12512: l_count NUMBER;
12513: l_module_name VARCHAR2 (500)
12514: := g_module_name || 'update_contract';
12515: is_debug_exception_on BOOLEAN
12516: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12517: is_debug_procedure_on BOOLEAN
12518: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12519: is_debug_statement_on BOOLEAN
12520: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12514: := g_module_name || 'update_contract';
12515: is_debug_exception_on BOOLEAN
12516: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12517: is_debug_procedure_on BOOLEAN
12518: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12519: is_debug_statement_on BOOLEAN
12520: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12521: -- RMUNJULU 18-FEB-03 2805703 Added variables
12522: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
12516: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12517: is_debug_procedure_on BOOLEAN
12518: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12519: is_debug_statement_on BOOLEAN
12520: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12521: -- RMUNJULU 18-FEB-03 2805703 Added variables
12522: l_clev_rec okl_okc_migration_pvt.clev_rec_type;
12523: l_klev_rec okl_contract_pub.klev_rec_type;
12524: lx_clev_rec okl_okc_migration_pvt.clev_rec_type;
12533: SAVEPOINT update_contract;
12534:
12535: IF (is_debug_procedure_on)
12536: THEN
12537: okl_debug_pub.log_debug (g_level_procedure,
12538: l_module_name,
12539: 'Begin(+)'
12540: );
12541: END IF;
12541: END IF;
12542:
12543: IF (is_debug_statement_on)
12544: THEN
12545: okl_debug_pub.log_debug (g_level_statement,
12546: l_module_name,
12547: 'In param, p_sys_date: ' || p_sys_date
12548: );
12549: okl_debug_pub.log_debug (g_level_statement,
12545: okl_debug_pub.log_debug (g_level_statement,
12546: l_module_name,
12547: 'In param, p_sys_date: ' || p_sys_date
12548: );
12549: okl_debug_pub.log_debug (g_level_statement,
12550: l_module_name,
12551: 'In param, p_status: ' || p_status
12552: );
12553: okl_debug_pub.log_debug (g_level_statement,
12549: okl_debug_pub.log_debug (g_level_statement,
12550: l_module_name,
12551: 'In param, p_status: ' || p_status
12552: );
12553: okl_debug_pub.log_debug (g_level_statement,
12554: l_module_name,
12555: 'In param, p_trn_reason_code: '
12556: || p_trn_reason_code
12557: );
12554: l_module_name,
12555: 'In param, p_trn_reason_code: '
12556: || p_trn_reason_code
12557: );
12558: okl_debug_pub.log_debug (g_level_statement,
12559: l_module_name,
12560: 'In param, p_term_rec.p_contract_id: '
12561: || p_term_rec.p_contract_id
12562: );
12559: l_module_name,
12560: 'In param, p_term_rec.p_contract_id: '
12561: || p_term_rec.p_contract_id
12562: );
12563: okl_debug_pub.log_debug
12564: (g_level_statement,
12565: l_module_name,
12566: 'In param, p_term_rec.p_contract_number: '
12567: || p_term_rec.p_contract_number
12565: l_module_name,
12566: 'In param, p_term_rec.p_contract_number: '
12567: || p_term_rec.p_contract_number
12568: );
12569: okl_debug_pub.log_debug
12570: (g_level_statement,
12571: l_module_name,
12572: 'In param, p_term_rec.p_termination_date: '
12573: || p_term_rec.p_termination_date
12602: l_clev_rec.trn_code := p_trn_reason_code;
12603:
12604: IF (is_debug_statement_on)
12605: THEN
12606: okl_debug_pub.log_debug
12607: (g_level_statement,
12608: l_module_name,
12609: 'calling OKL_CONTRACT_PUB.update_contract_line'
12610: );
12623: );
12624:
12625: IF (is_debug_statement_on)
12626: THEN
12627: okl_debug_pub.log_debug
12628: (g_level_statement,
12629: l_module_name,
12630: 'called OKL_CONTRACT_PUB.update_contract_line , return status: '
12631: || x_return_status
12695:
12696: -- Call the okl api to update contract with termination info
12697: IF (is_debug_statement_on)
12698: THEN
12699: okl_debug_pub.log_debug
12700: (g_level_statement,
12701: l_module_name,
12702: 'calling OKC_CONTRACT_PUB.update_contract_header'
12703: );
12715: );
12716:
12717: IF (is_debug_statement_on)
12718: THEN
12719: okl_debug_pub.log_debug
12720: (g_level_statement,
12721: l_module_name,
12722: 'called OKC_CONTRACT_PUB.update_contract_header , return status: '
12723: || l_return_status
12758: px_msg_tbl := l_msg_tbl;
12759:
12760: IF (is_debug_procedure_on)
12761: THEN
12762: okl_debug_pub.log_debug (g_level_procedure,
12763: l_module_name,
12764: 'End(-)'
12765: );
12766: END IF;
12789: x_return_status := g_ret_sts_error;
12790:
12791: IF (is_debug_exception_on)
12792: THEN
12793: okl_debug_pub.log_debug (g_level_exception,
12794: l_module_name,
12795: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
12796: );
12797: END IF;
12819: x_return_status := g_ret_sts_unexp_error;
12820:
12821: IF (is_debug_exception_on)
12822: THEN
12823: okl_debug_pub.log_debug (g_level_exception,
12824: l_module_name,
12825: 'EXCEPTION :'
12826: || 'G_EXCEPTION_UNEXPECTED_ERROR'
12827: );
12858: );
12859:
12860: IF (is_debug_exception_on)
12861: THEN
12862: okl_debug_pub.log_debug (g_level_exception,
12863: l_module_name,
12864: 'EXCEPTION :'
12865: || 'OTHERS, SQLCODE: '
12866: || SQLCODE
12953: l_return_status VARCHAR2 (1) := g_ret_sts_success;
12954: l_module_name VARCHAR2 (500)
12955: := g_module_name || 'terminate_lines';
12956: is_debug_exception_on BOOLEAN
12957: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12958: is_debug_procedure_on BOOLEAN
12959: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12960: is_debug_statement_on BOOLEAN
12961: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12955: := g_module_name || 'terminate_lines';
12956: is_debug_exception_on BOOLEAN
12957: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12958: is_debug_procedure_on BOOLEAN
12959: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12960: is_debug_statement_on BOOLEAN
12961: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12962: -- RMUNJULU Bug # 2484327 Added these variables
12963: l_msg_tbl g_msg_tbl;
12957: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
12958: is_debug_procedure_on BOOLEAN
12959: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
12960: is_debug_statement_on BOOLEAN
12961: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
12962: -- RMUNJULU Bug # 2484327 Added these variables
12963: l_msg_tbl g_msg_tbl;
12964: k NUMBER;
12965: l_id NUMBER := -9999;
12988: SAVEPOINT terminate_lines;
12989:
12990: IF (is_debug_procedure_on)
12991: THEN
12992: okl_debug_pub.log_debug (g_level_procedure,
12993: l_module_name,
12994: 'Begin(+)'
12995: );
12996: END IF;
12996: END IF;
12997:
12998: IF (is_debug_statement_on)
12999: THEN
13000: okl_debug_pub.log_debug (g_level_statement,
13001: l_module_name,
13002: 'In param, p_sys_date: ' || p_sys_date
13003: );
13004: okl_debug_pub.log_debug (g_level_statement,
13000: okl_debug_pub.log_debug (g_level_statement,
13001: l_module_name,
13002: 'In param, p_sys_date: ' || p_sys_date
13003: );
13004: okl_debug_pub.log_debug (g_level_statement,
13005: l_module_name,
13006: 'In param, p_status: ' || p_status
13007: );
13008: okl_debug_pub.log_debug (g_level_statement,
13004: okl_debug_pub.log_debug (g_level_statement,
13005: l_module_name,
13006: 'In param, p_status: ' || p_status
13007: );
13008: okl_debug_pub.log_debug (g_level_statement,
13009: l_module_name,
13010: 'In param, p_trn_already_set: '
13011: || p_trn_already_set
13012: );
13009: l_module_name,
13010: 'In param, p_trn_already_set: '
13011: || p_trn_already_set
13012: );
13013: okl_debug_pub.log_debug (g_level_statement,
13014: l_module_name,
13015: 'In param, px_overall_status: '
13016: || px_overall_status
13017: );
13014: l_module_name,
13015: 'In param, px_overall_status: '
13016: || px_overall_status
13017: );
13018: okl_debug_pub.log_debug (g_level_statement,
13019: l_module_name,
13020: 'In param, p_term_rec.p_contract_id: '
13021: || p_term_rec.p_contract_id
13022: );
13019: l_module_name,
13020: 'In param, p_term_rec.p_contract_id: '
13021: || p_term_rec.p_contract_id
13022: );
13023: okl_debug_pub.log_debug
13024: (g_level_statement,
13025: l_module_name,
13026: 'In param, px_tcnv_rec.tmt_generic_flag2_yn: '
13027: || px_tcnv_rec.tmt_generic_flag2_yn
13025: l_module_name,
13026: 'In param, px_tcnv_rec.tmt_generic_flag2_yn: '
13027: || px_tcnv_rec.tmt_generic_flag2_yn
13028: );
13029: okl_debug_pub.log_debug (g_level_statement,
13030: l_module_name,
13031: 'In param, px_tcnv_rec.trn_code: '
13032: || px_tcnv_rec.trn_code
13033: );
13030: l_module_name,
13031: 'In param, px_tcnv_rec.trn_code: '
13032: || px_tcnv_rec.trn_code
13033: );
13034: okl_debug_pub.log_debug (g_level_statement,
13035: l_module_name,
13036: 'In param, px_tcnv_rec.id: '
13037: || px_tcnv_rec.ID
13038: );
13042: FOR i IN p_klev_tbl.FIRST .. p_klev_tbl.LAST
13043: LOOP
13044: IF (p_klev_tbl.EXISTS (i))
13045: THEN
13046: okl_debug_pub.log_debug (g_level_statement,
13047: l_module_name,
13048: 'In param, p_klev_tbl('
13049: || i
13050: || ').p_kle_id: '
13049: || i
13050: || ').p_kle_id: '
13051: || p_klev_tbl (i).p_kle_id
13052: );
13053: okl_debug_pub.log_debug (g_level_statement,
13054: l_module_name,
13055: 'In param, p_klev_tbl('
13056: || i
13057: || ').p_asset_quantity: '
13056: || i
13057: || ').p_asset_quantity: '
13058: || p_klev_tbl (i).p_asset_quantity
13059: );
13060: okl_debug_pub.log_debug (g_level_statement,
13061: l_module_name,
13062: 'In param, p_klev_tbl('
13063: || i
13064: || ').p_asset_name: '
13063: || i
13064: || ').p_asset_name: '
13065: || p_klev_tbl (i).p_asset_name
13066: );
13067: okl_debug_pub.log_debug (g_level_statement,
13068: l_module_name,
13069: 'In param, p_klev_tbl('
13070: || i
13071: || ').p_quote_quantity: '
13070: || i
13071: || ').p_quote_quantity: '
13072: || p_klev_tbl (i).p_quote_quantity
13073: );
13074: okl_debug_pub.log_debug (g_level_statement,
13075: l_module_name,
13076: 'In param, p_klev_tbl('
13077: || i
13078: || ').p_tql_id: '
13077: || i
13078: || ').p_tql_id: '
13079: || p_klev_tbl (i).p_tql_id
13080: );
13081: okl_debug_pub.log_debug (g_level_statement,
13082: l_module_name,
13083: 'In param, p_klev_tbl('
13084: || i
13085: || ').p_split_kle_name: '
13084: || i
13085: || ').p_split_kle_name: '
13086: || p_klev_tbl (i).p_split_kle_name
13087: );
13088: okl_debug_pub.log_debug (g_level_statement,
13089: l_module_name,
13090: 'In param, p_klev_tbl('
13091: || i
13092: || ').p_split_kle_id: '
13128: );
13129:
13130: IF (is_debug_statement_on)
13131: THEN
13132: okl_debug_pub.log_debug
13133: (g_level_statement,
13134: l_module_name,
13135: 'called update_lines , return status: '
13136: || l_return_status
13229: );
13230:
13231: IF (is_debug_statement_on)
13232: THEN
13233: okl_debug_pub.log_debug
13234: (g_level_statement,
13235: l_module_name,
13236: 'called process_transaction , return status: '
13237: || l_return_status
13262: ); -- RMUNJULU CONTRACT BLOCKING ADDED
13263:
13264: IF (is_debug_statement_on)
13265: THEN
13266: okl_debug_pub.log_debug
13267: (g_level_statement,
13268: l_module_name,
13269: 'called mass_rebook , return status: '
13270: || l_return_status
13287: );
13288:
13289: IF (is_debug_statement_on)
13290: THEN
13291: okl_debug_pub.log_debug
13292: (g_level_statement,
13293: l_module_name,
13294: 'called close_balances , return status: '
13295: || l_return_status
13326: );
13327:
13328: IF (is_debug_statement_on)
13329: THEN
13330: okl_debug_pub.log_debug
13331: (g_level_statement,
13332: l_module_name,
13333: 'called reverse_loss_provisions , return status: '
13334: || l_return_status
13368: );
13369:
13370: IF (is_debug_statement_on)
13371: THEN
13372: okl_debug_pub.log_debug
13373: (g_level_statement,
13374: l_module_name,
13375: 'called update_contract , return status: '
13376: || l_return_status
13407: );
13408:
13409: IF (is_debug_statement_on)
13410: THEN
13411: okl_debug_pub.log_debug
13412: (g_level_statement,
13413: l_module_name,
13414: 'called cancel_insurance , return status: '
13415: || l_return_status
13500: );
13501:
13502: IF (is_debug_statement_on)
13503: THEN
13504: okl_debug_pub.log_debug
13505: (g_level_statement,
13506: l_module_name,
13507: 'called process_transaction , return status: '
13508: || l_return_status
13549: );
13550:
13551: IF (is_debug_statement_on)
13552: THEN
13553: okl_debug_pub.log_debug
13554: (g_level_statement,
13555: l_module_name,
13556: 'called process_transaction , return status: '
13557: || l_return_status
13585: );
13586:
13587: IF (is_debug_statement_on)
13588: THEN
13589: okl_debug_pub.log_debug
13590: (g_level_statement,
13591: l_module_name,
13592: 'called process_transaction , return status: '
13593: || l_return_status
13626: );
13627:
13628: IF (is_debug_statement_on)
13629: THEN
13630: okl_debug_pub.log_debug
13631: (g_level_statement,
13632: l_module_name,
13633: 'called process_transaction , return status: '
13634: || l_return_status
13652: -- will be 'S' always SHOULD BE OK SINCE THIS IS NOT CONSIDERED GOING FURTHER
13653:
13654: IF (is_debug_procedure_on)
13655: THEN
13656: okl_debug_pub.log_debug (g_level_procedure,
13657: l_module_name,
13658: 'End(-)'
13659: );
13660: END IF;
13680: );
13681:
13682: IF (is_debug_exception_on)
13683: THEN
13684: okl_debug_pub.log_debug (g_level_exception,
13685: l_module_name,
13686: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
13687: );
13688: END IF;
13707: );
13708:
13709: IF (is_debug_exception_on)
13710: THEN
13711: okl_debug_pub.log_debug (g_level_exception,
13712: l_module_name,
13713: 'EXCEPTION :'
13714: || 'G_EXCEPTION_UNEXPECTED_ERROR'
13715: );
13743: );
13744:
13745: IF (is_debug_exception_on)
13746: THEN
13747: okl_debug_pub.log_debug (g_level_exception,
13748: l_module_name,
13749: 'EXCEPTION :'
13750: || 'OTHERS, SQLCODE: '
13751: || SQLCODE
13814: l_api_name VARCHAR2 (30) := 'asset_level_termination';
13815: l_module_name VARCHAR2 (500)
13816: := g_module_name || 'asset_level_termination';
13817: is_debug_exception_on BOOLEAN
13818: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
13819: is_debug_procedure_on BOOLEAN
13820: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
13821: is_debug_statement_on BOOLEAN
13822: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
13816: := g_module_name || 'asset_level_termination';
13817: is_debug_exception_on BOOLEAN
13818: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
13819: is_debug_procedure_on BOOLEAN
13820: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
13821: is_debug_statement_on BOOLEAN
13822: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
13823: l_sys_date DATE;
13824: l_trn_already_set VARCHAR2 (1) := g_no;
13818: := okl_debug_pub.check_log_on (l_module_name, g_level_exception);
13819: is_debug_procedure_on BOOLEAN
13820: := okl_debug_pub.check_log_on (l_module_name, g_level_procedure);
13821: is_debug_statement_on BOOLEAN
13822: := okl_debug_pub.check_log_on (l_module_name, g_level_statement);
13823: l_sys_date DATE;
13824: l_trn_already_set VARCHAR2 (1) := g_no;
13825: lx_contract_status VARCHAR2 (200);
13826: l_validate VARCHAR2 (1) := g_ret_sts_error;
13830: l_lease_or_loan VARCHAR2 (30);
13831: BEGIN
13832: IF (is_debug_procedure_on)
13833: THEN
13834: okl_debug_pub.log_debug (g_level_procedure,
13835: l_module_name,
13836: 'Begin(+)'
13837: );
13838: END IF;
13838: END IF;
13839:
13840: IF (is_debug_statement_on)
13841: THEN
13842: okl_debug_pub.log_debug (g_level_statement,
13843: l_module_name,
13844: 'In param, p_term_rec.p_quote_id: '
13845: || p_term_rec.p_quote_id
13846: );
13843: l_module_name,
13844: 'In param, p_term_rec.p_quote_id: '
13845: || p_term_rec.p_quote_id
13846: );
13847: okl_debug_pub.log_debug (g_level_statement,
13848: l_module_name,
13849: 'In param, p_term_rec.p_contract_id: '
13850: || p_term_rec.p_contract_id
13851: );
13848: l_module_name,
13849: 'In param, p_term_rec.p_contract_id: '
13850: || p_term_rec.p_contract_id
13851: );
13852: okl_debug_pub.log_debug
13853: (g_level_statement,
13854: l_module_name,
13855: 'In param, p_term_rec.p_contract_number: '
13856: || p_term_rec.p_contract_number
13854: l_module_name,
13855: 'In param, p_term_rec.p_contract_number: '
13856: || p_term_rec.p_contract_number
13857: );
13858: okl_debug_pub.log_debug (g_level_statement,
13859: l_module_name,
13860: 'In param, p_term_rec.p_quote_type: '
13861: || p_term_rec.p_quote_type
13862: );
13859: l_module_name,
13860: 'In param, p_term_rec.p_quote_type: '
13861: || p_term_rec.p_quote_type
13862: );
13863: okl_debug_pub.log_debug
13864: (g_level_statement,
13865: l_module_name,
13866: 'In param, p_term_rec.p_early_termination_yn: '
13867: || p_term_rec.p_early_termination_yn
13865: l_module_name,
13866: 'In param, p_term_rec.p_early_termination_yn: '
13867: || p_term_rec.p_early_termination_yn
13868: );
13869: okl_debug_pub.log_debug
13870: (g_level_statement,
13871: l_module_name,
13872: 'In param, p_term_rec.p_termination_date: '
13873: || p_term_rec.p_termination_date
13871: l_module_name,
13872: 'In param, p_term_rec.p_termination_date: '
13873: || p_term_rec.p_termination_date
13874: );
13875: okl_debug_pub.log_debug
13876: (g_level_statement,
13877: l_module_name,
13878: 'In param, p_tcnv_rec.tmt_generic_flag2_yn: '
13879: || p_tcnv_rec.tmt_generic_flag2_yn
13877: l_module_name,
13878: 'In param, p_tcnv_rec.tmt_generic_flag2_yn: '
13879: || p_tcnv_rec.tmt_generic_flag2_yn
13880: );
13881: okl_debug_pub.log_debug (g_level_statement,
13882: l_module_name,
13883: 'In param, p_tcnv_rec.id: ' || p_tcnv_rec.ID
13884: );
13885: okl_debug_pub.log_debug
13881: okl_debug_pub.log_debug (g_level_statement,
13882: l_module_name,
13883: 'In param, p_tcnv_rec.id: ' || p_tcnv_rec.ID
13884: );
13885: okl_debug_pub.log_debug
13886: (g_level_statement,
13887: l_module_name,
13888: 'In param, p_tcnv_rec.tmt_contract_updated_yn: '
13889: || p_tcnv_rec.tmt_contract_updated_yn
13887: l_module_name,
13888: 'In param, p_tcnv_rec.tmt_contract_updated_yn: '
13889: || p_tcnv_rec.tmt_contract_updated_yn
13890: );
13891: okl_debug_pub.log_debug (g_level_statement,
13892: l_module_name,
13893: 'In param, p_tcnv_rec.tmt_status_code: '
13894: || p_tcnv_rec.tmt_status_code
13895: );
13958: );
13959:
13960: IF (is_debug_statement_on)
13961: THEN
13962: okl_debug_pub.log_debug
13963: (g_level_statement,
13964: l_module_name,
13965: 'called initialize_transaction , return status: '
13966: || l_return_status
13986: );
13987:
13988: IF (is_debug_statement_on)
13989: THEN
13990: okl_debug_pub.log_debug
13991: (g_level_statement,
13992: l_module_name,
13993: 'called process_transaction , return status: '
13994: || l_return_status
14018: );
14019:
14020: IF (is_debug_statement_on)
14021: THEN
14022: okl_debug_pub.log_debug
14023: (g_level_statement,
14024: l_module_name,
14025: 'called initialize_transaction , return status: '
14026: || l_return_status
14042: -- rmunjulu EDAT Get the quote effectivity date and quote acceptance date
14043: -- and store as global variables, will be used later on in other procedures
14044: IF (is_debug_statement_on)
14045: THEN
14046: okl_debug_pub.log_debug
14047: (g_level_statement,
14048: l_module_name,
14049: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates'
14050: );
14055: x_return_status => l_return_status);
14056:
14057: IF (is_debug_statement_on)
14058: THEN
14059: okl_debug_pub.log_debug
14060: (g_level_statement,
14061: l_module_name,
14062: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_quote_dates , return status: '
14063: || l_return_status
14082: );
14083:
14084: IF (is_debug_statement_on)
14085: THEN
14086: okl_debug_pub.log_debug (g_level_statement,
14087: l_module_name,
14088: 'called get_lines , return status: '
14089: || l_return_status
14090: );
14107: );
14108:
14109: IF (is_debug_statement_on)
14110: THEN
14111: okl_debug_pub.log_debug
14112: (g_level_statement,
14113: l_module_name,
14114: 'called validate_contract_and_lines , return status: '
14115: || l_return_status
14127: THEN
14128: -- Since batch process is not checked initially in LLT check here
14129: IF (is_debug_statement_on)
14130: THEN
14131: okl_debug_pub.log_debug
14132: (g_level_statement,
14133: l_module_name,
14134: 'calling OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract'
14135: );
14147: );
14148:
14149: IF (is_debug_statement_on)
14150: THEN
14151: okl_debug_pub.log_debug
14152: (g_level_statement,
14153: l_module_name,
14154: 'called OKL_AM_LEASE_LOAN_TRMNT_PUB.validate_contract , return status: '
14155: || l_return_status
14201: );
14202:
14203: IF (is_debug_statement_on)
14204: THEN
14205: okl_debug_pub.log_debug
14206: (g_level_statement,
14207: l_module_name,
14208: 'called process_transaction , return status: '
14209: || l_return_status
14221:
14222: -- Save messages from stack into transaction message table
14223: IF (is_debug_statement_on)
14224: THEN
14225: okl_debug_pub.log_debug
14226: (g_level_statement,
14227: l_module_name,
14228: 'calling OKL_AM_UTIL_PVT.process_messages'
14229: );
14236: );
14237:
14238: IF (is_debug_statement_on)
14239: THEN
14240: okl_debug_pub.log_debug
14241: (g_level_statement,
14242: l_module_name,
14243: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14244: || l_return_status
14247:
14248: -- RMUNJULU 3018641 Added code to get and set TMG_RUN
14249: IF (is_debug_statement_on)
14250: THEN
14251: okl_debug_pub.log_debug
14252: (g_level_statement,
14253: l_module_name,
14254: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14255: );
14260: x_return_status => l_return_status);
14261:
14262: IF (is_debug_statement_on)
14263: THEN
14264: okl_debug_pub.log_debug
14265: (g_level_statement,
14266: l_module_name,
14267: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14268: || l_return_status
14298: );
14299:
14300: IF (is_debug_statement_on)
14301: THEN
14302: okl_debug_pub.log_debug
14303: (g_level_statement,
14304: l_module_name,
14305: 'called process_transaction , return status: '
14306: || l_return_status
14318:
14319: -- Save messages from stack into transaction message table
14320: IF (is_debug_statement_on)
14321: THEN
14322: okl_debug_pub.log_debug
14323: (g_level_statement,
14324: l_module_name,
14325: 'calling OKL_AM_UTIL_PVT.process_messages'
14326: );
14333: );
14334:
14335: IF (is_debug_statement_on)
14336: THEN
14337: okl_debug_pub.log_debug
14338: (g_level_statement,
14339: l_module_name,
14340: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14341: || l_return_status
14344:
14345: -- RMUNJULU 3018641 Added code to get and set TMG_RUN
14346: IF (is_debug_statement_on)
14347: THEN
14348: okl_debug_pub.log_debug
14349: (g_level_statement,
14350: l_module_name,
14351: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14352: );
14357: x_return_status => l_return_status);
14358:
14359: IF (is_debug_statement_on)
14360: THEN
14361: okl_debug_pub.log_debug
14362: (g_level_statement,
14363: l_module_name,
14364: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14365: || l_return_status
14394:
14395: -- Store messages in TRX_MSGS
14396: IF (is_debug_statement_on)
14397: THEN
14398: okl_debug_pub.log_debug (g_level_statement,
14399: l_module_name,
14400: 'calling OKL_AM_UTIL_PVT.process_messages'
14401: );
14402: END IF;
14408: );
14409:
14410: IF (is_debug_statement_on)
14411: THEN
14412: okl_debug_pub.log_debug
14413: (g_level_statement,
14414: l_module_name,
14415: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14416: || l_return_status
14436: );
14437:
14438: IF (is_debug_statement_on)
14439: THEN
14440: okl_debug_pub.log_debug
14441: (g_level_statement,
14442: l_module_name,
14443: 'called process_transaction , return status: '
14444: || l_return_status
14468: );
14469:
14470: IF (is_debug_statement_on)
14471: THEN
14472: okl_debug_pub.log_debug (g_level_statement,
14473: l_module_name,
14474: 'called split_asset , return status: '
14475: || l_return_status
14476: );
14489: );
14490:
14491: IF (is_debug_statement_on)
14492: THEN
14493: okl_debug_pub.log_debug
14494: (g_level_statement,
14495: l_module_name,
14496: 'called process_transaction , return status: '
14497: || l_return_status
14515:
14516: -- Save messages from stack into transaction message table
14517: IF (is_debug_statement_on)
14518: THEN
14519: okl_debug_pub.log_debug
14520: (g_level_statement,
14521: l_module_name,
14522: 'calling OKL_AM_UTIL_PVT.process_messages'
14523: );
14530: );
14531:
14532: IF (is_debug_statement_on)
14533: THEN
14534: okl_debug_pub.log_debug
14535: (g_level_statement,
14536: l_module_name,
14537: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14538: || l_return_status
14541:
14542: -- RMUNJULU 3018641 Added to get and set latest run - 02-OCT-03
14543: IF (is_debug_statement_on)
14544: THEN
14545: okl_debug_pub.log_debug
14546: (g_level_statement,
14547: l_module_name,
14548: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14549: );
14554: x_return_status => l_return_status);
14555:
14556: IF (is_debug_statement_on)
14557: THEN
14558: okl_debug_pub.log_debug
14559: (g_level_statement,
14560: l_module_name,
14561: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14562: || l_return_status
14578: );
14579:
14580: IF (is_debug_statement_on)
14581: THEN
14582: okl_debug_pub.log_debug
14583: (g_level_statement,
14584: l_module_name,
14585: 'called accounting_entries , return status: '
14586: || l_return_status
14593: x_lease_loan_type => l_lease_or_loan);
14594:
14595: IF (is_debug_statement_on)
14596: THEN
14597: okl_debug_pub.log_debug
14598: (g_level_statement,
14599: l_module_name,
14600: 'called check_lease_or_loan , l_lease_or_loan: '
14601: || l_lease_or_loan
14618: );
14619:
14620: IF (is_debug_statement_on)
14621: THEN
14622: okl_debug_pub.log_debug
14623: (g_level_statement,
14624: l_module_name,
14625: 'called dispose_assets , return status: '
14626: || l_return_status
14651: );
14652:
14653: IF (is_debug_statement_on)
14654: THEN
14655: okl_debug_pub.log_debug
14656: (g_level_statement,
14657: l_module_name,
14658: 'called dispose_assets , return status: '
14659: || l_return_status
14679: );
14680:
14681: IF (is_debug_statement_on)
14682: THEN
14683: okl_debug_pub.log_debug
14684: (g_level_statement,
14685: l_module_name,
14686: 'called amortize_assets , return status: '
14687: || l_return_status
14713: );
14714:
14715: IF (is_debug_statement_on)
14716: THEN
14717: okl_debug_pub.log_debug
14718: (g_level_statement,
14719: l_module_name,
14720: 'called return_assets , return status: '
14721: || l_return_status
14758: -- RMUNJULU 07-JAN-03 2736865 Added code to store messages and set stack to true
14759: -- Store messages in TRX_MSGS
14760: IF (is_debug_statement_on)
14761: THEN
14762: okl_debug_pub.log_debug
14763: (g_level_statement,
14764: l_module_name,
14765: 'calling OKL_AM_UTIL_PVT.process_messages'
14766: );
14773: );
14774:
14775: IF (is_debug_statement_on)
14776: THEN
14777: okl_debug_pub.log_debug
14778: (g_level_statement,
14779: l_module_name,
14780: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14781: || l_return_status
14802: );
14803:
14804: IF (is_debug_statement_on)
14805: THEN
14806: okl_debug_pub.log_debug
14807: (g_level_statement,
14808: l_module_name,
14809: 'called terminate_lines , return status: '
14810: || l_return_status
14826: );
14827:
14828: IF (is_debug_statement_on)
14829: THEN
14830: okl_debug_pub.log_debug
14831: (g_level_statement,
14832: l_module_name,
14833: 'called process_transaction , return status: '
14834: || l_return_status
14858: );
14859:
14860: IF (is_debug_statement_on)
14861: THEN
14862: okl_debug_pub.log_debug
14863: (g_level_statement,
14864: l_module_name,
14865: 'called process_transaction , return status: '
14866: || l_return_status
14887:
14888: -- Save messages from stack into transaction message table
14889: IF (is_debug_statement_on)
14890: THEN
14891: okl_debug_pub.log_debug (g_level_statement,
14892: l_module_name,
14893: 'calling OKL_AM_UTIL_PVT.process_messages'
14894: );
14895: END IF;
14901: );
14902:
14903: IF (is_debug_statement_on)
14904: THEN
14905: okl_debug_pub.log_debug
14906: (g_level_statement,
14907: l_module_name,
14908: 'called OKL_AM_UTIL_PVT.process_messages , return status: '
14909: || l_return_status
14912:
14913: -- RMUNJULU 3018641 Added code to get and set TMG_RUN
14914: IF (is_debug_statement_on)
14915: THEN
14916: okl_debug_pub.log_debug
14917: (g_level_statement,
14918: l_module_name,
14919: 'calling OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run'
14920: );
14925: x_return_status => l_return_status);
14926:
14927: IF (is_debug_statement_on)
14928: THEN
14929: okl_debug_pub.log_debug
14930: (g_level_statement,
14931: l_module_name,
14932: 'called OKL_AM_LEASE_LOAN_TRMNT_PVT.get_set_tmg_run , return status: '
14933: || l_return_status
14940: okl_api.end_activity (x_msg_count, x_msg_data);
14941:
14942: IF (is_debug_procedure_on)
14943: THEN
14944: okl_debug_pub.log_debug (g_level_procedure,
14945: l_module_name,
14946: 'End(-)'
14947: );
14948: END IF;
14952: x_return_status := g_ret_sts_success;
14953:
14954: IF (is_debug_exception_on)
14955: THEN
14956: okl_debug_pub.log_debug (g_level_exception,
14957: l_module_name,
14958: 'EXCEPTION :'
14959: || 'G_EXCEPTION_HALT_VALIDATION'
14960: );
14971: );
14972:
14973: IF (is_debug_exception_on)
14974: THEN
14975: okl_debug_pub.log_debug (g_level_exception,
14976: l_module_name,
14977: 'EXCEPTION :' || 'G_EXCEPTION_ERROR'
14978: );
14979: END IF;
14989: );
14990:
14991: IF (is_debug_exception_on)
14992: THEN
14993: okl_debug_pub.log_debug (g_level_exception,
14994: l_module_name,
14995: 'EXCEPTION :'
14996: || 'G_EXCEPTION_UNEXPECTED_ERROR'
14997: );
15008: );
15009:
15010: IF (is_debug_exception_on)
15011: THEN
15012: okl_debug_pub.log_debug (g_level_exception,
15013: l_module_name,
15014: 'EXCEPTION :'
15015: || 'OTHERS, SQLCODE: '
15016: || SQLCODE