[Home] [Help]
29: SELECT okl_wf_item_s.nextval
30: FROM DUAL;
31: -- for debug logging
32: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'raise_pre_proceeds_event';
33: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
34: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
35: BEGIN
36:
37: IF (is_debug_procedure_on) THEN
30: FROM DUAL;
31: -- for debug logging
32: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'raise_pre_proceeds_event';
33: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
34: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
35: BEGIN
36:
37: IF (is_debug_procedure_on) THEN
38: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
34: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
35: BEGIN
36:
37: IF (is_debug_procedure_on) THEN
38: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
39: END IF;
40:
41: SAVEPOINT raise_pre_proceeds_event;
42:
59:
60: l_parameter_list.DELETE;
61:
62: IF (is_debug_procedure_on) THEN
63: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
64: END IF;
65:
66: EXCEPTION
67: WHEN OTHERS THEN
65:
66: EXCEPTION
67: WHEN OTHERS THEN
68: IF (is_debug_exception_on) THEN
69: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
70: || sqlcode || ' , SQLERRM : ' || sqlerrm);
71: END IF;
72:
73: FND_MESSAGE.SET_NAME('OKL', 'OKL_API_OTHERS_EXCEP');
102: FROM DUAL;
103:
104: -- for debug logging
105: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'raise_repurchase_quote_event';
106: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
107: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
108:
109:
110: BEGIN
103:
104: -- for debug logging
105: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'raise_repurchase_quote_event';
106: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
107: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
108:
109:
110: BEGIN
111:
109:
110: BEGIN
111:
112: IF (is_debug_procedure_on) THEN
113: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
114: END IF;
115:
116: SAVEPOINT raise_repurchase_quote_event;
117:
133:
134: l_parameter_list.DELETE;
135:
136: IF (is_debug_procedure_on) THEN
137: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
138: END IF;
139:
140: EXCEPTION
141: WHEN OTHERS THEN
139:
140: EXCEPTION
141: WHEN OTHERS THEN
142: IF (is_debug_exception_on) THEN
143: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
144: || sqlcode || ' , SQLERRM : ' || sqlerrm);
145: END IF;
146:
147: FND_MESSAGE.SET_NAME('OKL', 'OKL_API_OTHERS_EXCEP');
216: l_q_assets NUMBER := -9999;
217:
218: -- for debug logging
219: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_qte_partial';
220: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
221: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
222: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
223:
224: BEGIN
217:
218: -- for debug logging
219: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_qte_partial';
220: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
221: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
222: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
223:
224: BEGIN
225:
218: -- for debug logging
219: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_qte_partial';
220: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
221: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
222: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
223:
224: BEGIN
225:
226: IF (is_debug_procedure_on) THEN
223:
224: BEGIN
225:
226: IF (is_debug_procedure_on) THEN
227: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
228: END IF;
229:
230: --
231: -- RUN mode
298: --
299: END IF;
300:
301: IF (is_debug_procedure_on) THEN
302: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
303: END IF;
304:
305: EXCEPTION
306: WHEN G_EXCEPTION THEN
304:
305: EXCEPTION
306: WHEN G_EXCEPTION THEN
307: IF (is_debug_exception_on) THEN
308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
309: END IF;
310:
311: IF get_k_assets_no_csr%ISOPEN THEN
312: CLOSE get_k_assets_no_csr;
320: itemtype, itemkey, actid, funcmode);
321: RAISE;
322: WHEN OTHERS THEN
323: IF (is_debug_exception_on) THEN
324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
325: || sqlcode || ' , SQLERRM : ' || sqlerrm);
326: END IF;
327:
328: IF get_k_assets_no_csr%ISOPEN THEN
401: l_formatted_qte_tot VARCHAR2(2000);
402:
403: -- for debug logging
404: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_att';
405: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
406: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
407: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
408:
409: BEGIN
402:
403: -- for debug logging
404: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_att';
405: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
406: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
407: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
408:
409: BEGIN
410:
403: -- for debug logging
404: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_att';
405: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
406: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
407: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
408:
409: BEGIN
410:
411: IF (is_debug_procedure_on) THEN
408:
409: BEGIN
410:
411: IF (is_debug_procedure_on) THEN
412: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
413: END IF;
414:
415: --
416: -- RUN mode
574: END IF;
575:
576:
577: IF (is_debug_procedure_on) THEN
578: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
579: END IF;
580:
581: EXCEPTION
582:
581: EXCEPTION
582:
583: WHEN OTHERS THEN
584: IF (is_debug_exception_on) THEN
585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
586: || sqlcode || ' , SQLERRM : ' || sqlerrm);
587: END IF;
588:
589: IF okl_pop_pre_proceeds_csr%ISOPEN THEN
613:
614: l_quote_id NUMBER;
615: -- for debug logging
616: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'reset_pre_proceeds_att';
617: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
618: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
619: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
620:
621: BEGIN
614: l_quote_id NUMBER;
615: -- for debug logging
616: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'reset_pre_proceeds_att';
617: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
618: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
619: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
620:
621: BEGIN
622:
615: -- for debug logging
616: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'reset_pre_proceeds_att';
617: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
618: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
619: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
620:
621: BEGIN
622:
623: IF (is_debug_procedure_on) THEN
620:
621: BEGIN
622:
623: IF (is_debug_procedure_on) THEN
624: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
625: END IF;
626:
627: --
628: -- RUN mode
684: END IF;
685:
686:
687: IF (is_debug_procedure_on) THEN
688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
689: END IF;
690:
691: EXCEPTION
692:
691: EXCEPTION
692:
693: WHEN OTHERS THEN
694: IF (is_debug_exception_on) THEN
695: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
696: || sqlcode || ' , SQLERRM : ' || sqlerrm);
697: END IF;
698:
699: WF_CORE.context('OKL_AM_QUOTES_WF' , 'reset_pre_proceeds_att',
722: l_approved_yn VARCHAR2(1) := 'N';
723:
724: -- for debug logging
725: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_qte_approved';
726: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
727: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
728: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
729:
730: BEGIN
723:
724: -- for debug logging
725: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_qte_approved';
726: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
727: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
728: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
729:
730: BEGIN
731:
724: -- for debug logging
725: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_qte_approved';
726: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
727: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
728: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
729:
730: BEGIN
731:
732: IF (is_debug_procedure_on) THEN
729:
730: BEGIN
731:
732: IF (is_debug_procedure_on) THEN
733: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
734: END IF;
735:
736: --
737: -- RUN mode
774: --
775: END IF;
776:
777: IF (is_debug_procedure_on) THEN
778: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
779: END IF;
780:
781: EXCEPTION
782: WHEN OTHERS THEN
780:
781: EXCEPTION
782: WHEN OTHERS THEN
783: IF (is_debug_exception_on) THEN
784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
785: || sqlcode || ' , SQLERRM : ' || sqlerrm);
786: END IF;
787:
788: WF_CORE.context('OKL_AM_QUOTES_WF' , 'chk_pre_proceeds_qte_approved',
866: l_message VARCHAR2(32000);
867:
868: -- for debug logging
869: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_noti_att';
870: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
871: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
872: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
873:
874: BEGIN
867:
868: -- for debug logging
869: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_noti_att';
870: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
871: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
872: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
873:
874: BEGIN
875:
868: -- for debug logging
869: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_noti_att';
870: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
871: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
872: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
873:
874: BEGIN
875:
876: IF (is_debug_procedure_on) THEN
873:
874: BEGIN
875:
876: IF (is_debug_procedure_on) THEN
877: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
878: END IF;
879:
880:
881: /* MESSAGE
1003: END IF;
1004:
1005:
1006: IF (is_debug_procedure_on) THEN
1007: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1008: END IF;
1009:
1010: EXCEPTION
1011:
1010: EXCEPTION
1011:
1012: WHEN OTHERS THEN
1013: IF (is_debug_exception_on) THEN
1014: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1015: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1016: END IF;
1017: IF get_assets_in_k_csr%ISOPEN THEN
1018: CLOSE get_assets_in_qte_csr;
1072: l_formatted_qte_tot VARCHAR2(2000);
1073:
1074: -- for debug logging
1075: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_app_att';
1076: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1077: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1078: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1079:
1080: BEGIN
1073:
1074: -- for debug logging
1075: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_app_att';
1076: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1077: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1078: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1079:
1080: BEGIN
1081:
1074: -- for debug logging
1075: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_app_att';
1076: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1077: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1078: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1079:
1080: BEGIN
1081:
1082: IF (is_debug_procedure_on) THEN
1079:
1080: BEGIN
1081:
1082: IF (is_debug_procedure_on) THEN
1083: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1084: END IF;
1085:
1086: --
1087: -- RUN mode
1179: END IF;
1180:
1181:
1182: IF (is_debug_procedure_on) THEN
1183: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1184: END IF;
1185:
1186: EXCEPTION
1187:
1186: EXCEPTION
1187:
1188: WHEN OTHERS THEN
1189: IF (is_debug_exception_on) THEN
1190: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1191: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1192: END IF;
1193:
1194: WF_CORE.context('OKL_AM_QUOTES_WF' , 'pop_pre_proceeds_app_att',
1247: l_message VARCHAR2(30000);
1248:
1249: -- for debug logging
1250: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_doc_att';
1251: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1252: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1253: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1254:
1255: BEGIN
1248:
1249: -- for debug logging
1250: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_doc_att';
1251: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1252: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1253: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1254:
1255: BEGIN
1256:
1249: -- for debug logging
1250: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_doc_att';
1251: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1252: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1253: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1254:
1255: BEGIN
1256:
1257: IF (is_debug_procedure_on) THEN
1254:
1255: BEGIN
1256:
1257: IF (is_debug_procedure_on) THEN
1258: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1259: END IF;
1260:
1261: --
1262: -- RUN mode
1336:
1337:
1338:
1339: IF (is_debug_procedure_on) THEN
1340: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1341: END IF;
1342:
1343: EXCEPTION
1344:
1343: EXCEPTION
1344:
1345: WHEN OTHERS THEN
1346: IF (is_debug_exception_on) THEN
1347: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1348: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1349: END IF;
1350: IF l_message_csr%ISOPEN THEN
1351: CLOSE l_message_csr;
1401: l_org_id NUMBER;
1402:
1403: -- for debug logging
1404: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pre_proceeds_trmnt_contract';
1405: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1406: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1407: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1408:
1409: BEGIN
1402:
1403: -- for debug logging
1404: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pre_proceeds_trmnt_contract';
1405: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1406: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1407: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1408:
1409: BEGIN
1410:
1403: -- for debug logging
1404: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pre_proceeds_trmnt_contract';
1405: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1406: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1407: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1408:
1409: BEGIN
1410:
1411: IF (is_debug_procedure_on) THEN
1408:
1409: BEGIN
1410:
1411: IF (is_debug_procedure_on) THEN
1412: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1413: END IF;
1414:
1415: --
1416: -- RUN mode
1500: --
1501: END IF;
1502:
1503: IF (is_debug_procedure_on) THEN
1504: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1505: END IF;
1506:
1507: EXCEPTION
1508:
1507: EXCEPTION
1508:
1509: WHEN G_EXCEPTION THEN
1510: IF (is_debug_exception_on) THEN
1511: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
1512: END IF;
1513: IF get_qte_details_csr%ISOPEN THEN
1514: CLOSE get_qte_details_csr;
1515: END IF;
1517: itemtype, itemkey, actid, funcmode);
1518: RAISE;
1519: WHEN OTHERS THEN
1520: IF (is_debug_exception_on) THEN
1521: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1522: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1523: END IF;
1524:
1525: IF get_qte_details_csr%ISOPEN THEN
1562: l_no_of_recipients NUMBER := 0;
1563:
1564: -- for debug logging
1565: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_serv_maint';
1566: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1567: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1568: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1569:
1570: BEGIN
1563:
1564: -- for debug logging
1565: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_serv_maint';
1566: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1567: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1568: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1569:
1570: BEGIN
1571:
1564: -- for debug logging
1565: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_serv_maint';
1566: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1567: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1568: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1569:
1570: BEGIN
1571:
1572: IF (is_debug_procedure_on) THEN
1569:
1570: BEGIN
1571:
1572: IF (is_debug_procedure_on) THEN
1573: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1574: END IF;
1575:
1576: --
1577: -- RUN mode
1617: END IF;
1618:
1619:
1620: IF (is_debug_procedure_on) THEN
1621: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1622: END IF;
1623:
1624: EXCEPTION
1625: WHEN G_EXCEPTION THEN
1623:
1624: EXCEPTION
1625: WHEN G_EXCEPTION THEN
1626: IF (is_debug_exception_on) THEN
1627: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
1628: END IF;
1629:
1630: IF get_service_lines_csr%ISOPEN THEN
1631: CLOSE get_service_lines_csr;
1636: RAISE;
1637:
1638: WHEN OTHERS THEN
1639: IF (is_debug_exception_on) THEN
1640: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1641: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1642: END IF;
1643:
1644: IF get_service_lines_csr%ISOPEN THEN
1671: l_no_of_service_lines NUMBER;
1672:
1673: -- for debug logging
1674: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_serv_maint';
1675: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1676: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1677: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1678:
1679: BEGIN
1672:
1673: -- for debug logging
1674: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_serv_maint';
1675: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1676: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1677: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1678:
1679: BEGIN
1680:
1673: -- for debug logging
1674: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_serv_maint';
1675: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1676: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1677: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1678:
1679: BEGIN
1680:
1681: IF (is_debug_procedure_on) THEN
1678:
1679: BEGIN
1680:
1681: IF (is_debug_procedure_on) THEN
1682: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1683: END IF;
1684:
1685: --
1686: -- RUN mode
1746: --
1747: END IF;
1748:
1749: IF (is_debug_procedure_on) THEN
1750: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1751: END IF;
1752:
1753: EXCEPTION
1754: WHEN OTHERS THEN
1752:
1753: EXCEPTION
1754: WHEN OTHERS THEN
1755: IF (is_debug_exception_on) THEN
1756: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1757: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1758: END IF;
1759:
1760: WF_CORE.context('OKL_AM_QUOTES_WF' , 'pop_pre_proceeds_serv_maint',
1855: where vendor_id = p_vendor_id;
1856: -- ansethur 26-jul-2007 R12B XMLP end changes
1857: -- for debug logging
1858: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_serv_noti';
1859: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1860: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1861: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1862:
1863: BEGIN
1856: -- ansethur 26-jul-2007 R12B XMLP end changes
1857: -- for debug logging
1858: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_serv_noti';
1859: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1860: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1861: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1862:
1863: BEGIN
1864:
1857: -- for debug logging
1858: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_serv_noti';
1859: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
1860: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
1861: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
1862:
1863: BEGIN
1864:
1865: IF (is_debug_procedure_on) THEN
1862:
1863: BEGIN
1864:
1865: IF (is_debug_procedure_on) THEN
1866: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
1867: END IF;
1868:
1869: l_contract_id := WF_ENGINE.GetItemAttrNumber(
1870: itemtype => itemtype,
1981:
1982: RETURN;
1983:
1984: IF (is_debug_procedure_on) THEN
1985: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
1986: END IF;
1987:
1988:
1989: EXCEPTION
1989: EXCEPTION
1990:
1991: WHEN OTHERS THEN
1992: IF (is_debug_exception_on) THEN
1993: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
1994: || sqlcode || ' , SQLERRM : ' || sqlerrm);
1995: END IF;
1996:
1997: IF get_serv_prov_dtl_csr%ISOPEN THEN
2041: WHERE id = c_id;
2042:
2043: -- for debug logging
2044: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_bill_of_sale';
2045: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2046: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2047: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2048:
2049: BEGIN
2042:
2043: -- for debug logging
2044: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_bill_of_sale';
2045: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2046: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2047: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2048:
2049: BEGIN
2050:
2043: -- for debug logging
2044: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_bill_of_sale';
2045: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2046: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2047: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2048:
2049: BEGIN
2050:
2051: IF (is_debug_procedure_on) THEN
2048:
2049: BEGIN
2050:
2051: IF (is_debug_procedure_on) THEN
2052: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2053: END IF;
2054:
2055: --
2056: -- RUN mode
2085: x_return_status => l_return_status,
2086: p_message_yn => FALSE); -- RMUNJULU 11-FEB-03 2797035 Changed TRUE to FALSE
2087:
2088: IF (is_debug_statement_on) THEN
2089: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2090: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2091: END IF;
2092:
2093: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2134: --
2135: END IF;
2136:
2137: IF (is_debug_procedure_on) THEN
2138: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2139: END IF;
2140:
2141: EXCEPTION
2142: WHEN G_EXCEPTION THEN
2141: EXCEPTION
2142: WHEN G_EXCEPTION THEN
2143:
2144: IF (is_debug_exception_on) THEN
2145: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
2146: END IF;
2147:
2148: IF c_qte_csr%ISOPEN THEN
2149: CLOSE c_qte_csr;
2154: RAISE;
2155:
2156: WHEN OTHERS THEN
2157: IF (is_debug_exception_on) THEN
2158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2159: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2160: END IF;
2161:
2162: IF c_qte_csr%ISOPEN THEN
2195: l_recipient_id NUMBER;
2196:
2197: -- for debug logging
2198: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_bill_of_sale';
2199: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2200: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2201: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2202:
2203: BEGIN
2196:
2197: -- for debug logging
2198: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_bill_of_sale';
2199: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2200: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2201: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2202:
2203: BEGIN
2204:
2197: -- for debug logging
2198: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_bill_of_sale';
2199: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2200: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2201: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2202:
2203: BEGIN
2204:
2205: IF (is_debug_procedure_on) THEN
2202:
2203: BEGIN
2204:
2205: IF (is_debug_procedure_on) THEN
2206: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2207: END IF;
2208:
2209: --
2210: -- RUN mode
2258: --
2259: END IF;
2260:
2261: IF (is_debug_procedure_on) THEN
2262: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2263: END IF;
2264:
2265: EXCEPTION
2266: WHEN OTHERS THEN
2264:
2265: EXCEPTION
2266: WHEN OTHERS THEN
2267: IF (is_debug_exception_on) THEN
2268: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2269: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2270: END IF;
2271: WF_CORE.context('OKL_AM_QUOTES_WF' , 'pop_pre_proceeds_bill_of_sale',
2272: itemtype, itemkey, actid, funcmode);
2344: l_from_email VARCHAR2(100);
2345:
2346: -- for debug logging
2347: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_bill_noti';
2348: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2349: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2350: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2351: --
2352: BEGIN
2345:
2346: -- for debug logging
2347: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_bill_noti';
2348: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2349: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2350: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2351: --
2352: BEGIN
2353:
2346: -- for debug logging
2347: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_bill_noti';
2348: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2349: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2350: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2351: --
2352: BEGIN
2353:
2354: IF (is_debug_procedure_on) THEN
2351: --
2352: BEGIN
2353:
2354: IF (is_debug_procedure_on) THEN
2355: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2356: END IF;
2357:
2358: --
2359: -- RUN mode
2472: ,x_xmp_rec => lx_xmp_rec
2473: );
2474:
2475: IF (is_debug_statement_on) THEN
2476: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2477: 'after call to OKL_XMLP_PARAMS_PVT.create_xmlp_params_rec :'||l_return_status);
2478: END IF;
2479:
2480: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
2516: END IF;
2517:
2518:
2519: IF (is_debug_procedure_on) THEN
2520: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2521: END IF;
2522:
2523: EXCEPTION
2524: WHEN OTHERS THEN
2523: EXCEPTION
2524: WHEN OTHERS THEN
2525:
2526: IF (is_debug_exception_on) THEN
2527: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2528: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2529: END IF;
2530:
2531: IF l_recipient_csr%ISOPEN THEN
2559: l_rule_found VARCHAR2(1) := 'N';
2560: l_contract_id NUMBER;
2561: -- for debug logging
2562: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'';
2563: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2564: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2566:
2567: BEGIN
2560: l_contract_id NUMBER;
2561: -- for debug logging
2562: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'';
2563: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2564: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2566:
2567: BEGIN
2568:
2561: -- for debug logging
2562: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'';
2563: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2564: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2565: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2566:
2567: BEGIN
2568:
2569: IF (is_debug_procedure_on) THEN
2566:
2567: BEGIN
2568:
2569: IF (is_debug_procedure_on) THEN
2570: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2571: END IF;
2572:
2573: --
2574: -- RUN mode
2591: x_return_status => l_return_status,
2592: p_message_yn => FALSE); -- RMUNJULU 11-FEB-03 2797035 Changed TRUE to FALSE
2593:
2594: IF (is_debug_statement_on) THEN
2595: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2596: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
2597: END IF;
2598:
2599: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
2640: --
2641: END IF;
2642:
2643: IF (is_debug_procedure_on) THEN
2644: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2645: END IF;
2646:
2647: EXCEPTION
2648: WHEN G_EXCEPTION THEN
2647: EXCEPTION
2648: WHEN G_EXCEPTION THEN
2649:
2650: IF (is_debug_exception_on) THEN
2651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
2652: END IF;
2653:
2654: WF_CORE.context('OKL_AM_QUOTES_WF' , 'chk_pre_proceeds_title_filing',
2655: itemtype, itemkey, actid, funcmode);
2656: RAISE;
2657: WHEN OTHERS THEN
2658:
2659: IF (is_debug_exception_on) THEN
2660: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2661: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2662: END IF;
2663:
2664: WF_CORE.context('OKL_AM_QUOTES_WF' , 'chk_pre_proceeds_title_filing',
2686: l_contract_id NUMBER;
2687: l_no_of_recipients NUMBER;
2688: -- for debug logging
2689: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_title_filing';
2690: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2691: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2692: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2693:
2694: BEGIN
2687: l_no_of_recipients NUMBER;
2688: -- for debug logging
2689: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_title_filing';
2690: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2691: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2692: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2693:
2694: BEGIN
2695:
2688: -- for debug logging
2689: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_pre_proceeds_title_filing';
2690: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2691: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2692: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2693:
2694: BEGIN
2695:
2696: IF (is_debug_procedure_on) THEN
2693:
2694: BEGIN
2695:
2696: IF (is_debug_procedure_on) THEN
2697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2698: END IF;
2699:
2700: --
2701: -- RUN mode
2749: --
2750: END IF;
2751:
2752: IF (is_debug_procedure_on) THEN
2753: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
2754: END IF;
2755:
2756: EXCEPTION
2757: WHEN OTHERS THEN
2756: EXCEPTION
2757: WHEN OTHERS THEN
2758:
2759: IF (is_debug_exception_on) THEN
2760: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
2761: || sqlcode || ' , SQLERRM : ' || sqlerrm);
2762: END IF;
2763:
2764: WF_CORE.context('OKL_AM_QUOTES_WF' , 'pop_pre_proceeds_title_filing',
2844: WHERE a.qte_id = p_qte_id;
2845: -- ansethur 26-jul-2007 R12B XMLP End changes
2846: -- for debug logging
2847: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_title_noti';
2848: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2849: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2850: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2851:
2852: BEGIN
2845: -- ansethur 26-jul-2007 R12B XMLP End changes
2846: -- for debug logging
2847: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_title_noti';
2848: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2849: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2850: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2851:
2852: BEGIN
2853:
2846: -- for debug logging
2847: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_pre_proceeds_title_noti';
2848: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
2849: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
2850: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
2851:
2852: BEGIN
2853:
2854: IF (is_debug_procedure_on) THEN
2851:
2852: BEGIN
2853:
2854: IF (is_debug_procedure_on) THEN
2855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
2856: END IF;
2857:
2858: --
2859: -- RUN mode
2891: x_return_status => l_return_status,
2892: p_message_yn => FALSE);
2893:
2894: IF (is_debug_statement_on) THEN
2895: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
2896: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
2897: END IF;
2898:
2899:
2999: ,p_xmp_rec => l_xmp_rec
3000: ,x_xmp_rec => lx_xmp_rec
3001: );
3002: IF (is_debug_statement_on) THEN
3003: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3004: 'after call to OKL_XMLP_PARAMS_PVT.create_xmlp_params_rec :'||l_return_status);
3005: END IF;
3006:
3007: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
3043: --
3044: END IF;
3045:
3046: IF (is_debug_procedure_on) THEN
3047: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3048: END IF;
3049:
3050: EXCEPTION
3051: WHEN OTHERS THEN
3050: EXCEPTION
3051: WHEN OTHERS THEN
3052:
3053: IF (is_debug_exception_on) THEN
3054: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3055: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3056: END IF;
3057:
3058: IF get_asset_for_k_csr%ISOPEN THEN
3102: l_requester_id NUMBER;
3103:
3104: -- for debug logging
3105: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_repurchase_qte_att';
3106: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3107: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3108: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3109:
3110: BEGIN
3103:
3104: -- for debug logging
3105: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_repurchase_qte_att';
3106: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3107: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3108: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3109:
3110: BEGIN
3111:
3104: -- for debug logging
3105: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_repurchase_qte_att';
3106: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3107: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3108: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3109:
3110: BEGIN
3111:
3112: IF (is_debug_procedure_on) THEN
3109:
3110: BEGIN
3111:
3112: IF (is_debug_procedure_on) THEN
3113: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3114: END IF;
3115:
3116: --get attr for transaction id
3117: l_transaction_id := WF_ENGINE.GetItemAttrText(
3154: avalue => l_requester);
3155:
3156:
3157: IF (is_debug_procedure_on) THEN
3158: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3159: END IF;
3160:
3161: EXCEPTION
3162: WHEN OTHERS THEN
3160:
3161: EXCEPTION
3162: WHEN OTHERS THEN
3163: IF (is_debug_exception_on) THEN
3164: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3165: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3166: END IF;
3167: IF okl_pop_contract_details_csr%ISOPEN THEN
3168: CLOSE okl_pop_contract_details_csr;
3250: l_line_count NUMBER := 0;
3251:
3252: -- for debug logging
3253: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_qte_asset_dispose';
3254: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3255: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3256: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3257:
3258: BEGIN
3251:
3252: -- for debug logging
3253: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_qte_asset_dispose';
3254: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3255: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3256: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3257:
3258: BEGIN
3259:
3252: -- for debug logging
3253: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'repurchase_qte_asset_dispose';
3254: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3255: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3256: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3257:
3258: BEGIN
3259:
3260: IF (is_debug_procedure_on) THEN
3257:
3258: BEGIN
3259:
3260: IF (is_debug_procedure_on) THEN
3261: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3262: END IF;
3263:
3264: --
3265: -- RUN mode
3328: p_proceeds_of_sale => l_amt_rec.amount, -- SECHAWLA 11-MAR-03 Changed the column name
3329: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity Changes
3330:
3331: IF (is_debug_statement_on) THEN
3332: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3333: 'after call to OKL_AM_ASSET_DISPOSE_PUB.dispose_asset :'||l_return_status);
3334: END IF;
3335:
3336:
3356: p_proceeds_of_sale => 0,
3357: p_legal_entity_id => l_legal_entity_id); -- RRAVIKIR Legal Entity Changes
3358:
3359: IF (is_debug_statement_on) THEN
3360: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3361: 'after call to OKL_AM_ASSET_DISPOSE_PUB.dispose_asset :'||l_return_status);
3362: END IF;
3363:
3364: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
3394: --
3395: END IF;
3396:
3397: IF (is_debug_procedure_on) THEN
3398: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3399: END IF;
3400:
3401: EXCEPTION
3402: WHEN G_EXCEPTION THEN
3401: EXCEPTION
3402: WHEN G_EXCEPTION THEN
3403:
3404: IF (is_debug_exception_on) THEN
3405: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
3406: END IF;
3407: -- SECHAWLA 11-MAR-03 : Added the cursor close statements
3408: IF l_amt_csr%ISOPEN THEN
3409: CLOSE l_amt_csr;
3428: RAISE;
3429:
3430: WHEN OTHERS THEN
3431: IF (is_debug_exception_on) THEN
3432: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3433: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3434: END IF;
3435:
3436: -- SECHAWLA 11-MAR-03 : Added the cursor close statements
3496: lx_artv_rec OKL_ASSET_RETURNS_PUB.artv_rec_type;
3497:
3498: -- for debug logging
3499: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_asset_return_status';
3500: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3501: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3502: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3503:
3504: BEGIN
3497:
3498: -- for debug logging
3499: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_asset_return_status';
3500: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3501: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3502: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3503:
3504: BEGIN
3505:
3498: -- for debug logging
3499: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_asset_return_status';
3500: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3501: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3502: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3503:
3504: BEGIN
3505:
3506: IF (is_debug_procedure_on) THEN
3503:
3504: BEGIN
3505:
3506: IF (is_debug_procedure_on) THEN
3507: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3508: END IF;
3509:
3510: --
3511: -- RUN mode
3534: p_artv_rec => lp_artv_rec,
3535: x_artv_rec => lx_artv_rec);
3536:
3537: IF (is_debug_statement_on) THEN
3538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3539: 'after call to OKL_ASSET_RETURNS_PUB.update_asset_returns :'||l_return_status);
3540: END IF;
3541:
3542:
3570: --
3571: END IF;
3572:
3573: IF (is_debug_procedure_on) THEN
3574: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3575: END IF;
3576:
3577: EXCEPTION
3578: WHEN G_EXCEPTION THEN
3577: EXCEPTION
3578: WHEN G_EXCEPTION THEN
3579:
3580: IF (is_debug_exception_on) THEN
3581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
3582: END IF;
3583:
3584: IF (is_debug_exception_on) THEN
3585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3581: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
3582: END IF;
3583:
3584: IF (is_debug_exception_on) THEN
3585: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3586: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3587: END IF;
3588:
3589: WF_CORE.context('OKL_AM_QUOTES_WF' , 'update_asset_return_status',
3590: itemtype, itemkey, actid, funcmode);
3591: RAISE;
3592: WHEN OTHERS THEN
3593: IF (is_debug_exception_on) THEN
3594: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
3595: END IF;
3596: WF_CORE.context('OKL_AM_QUOTES_WF' , 'update_asset_return_status',
3597: itemtype, itemkey, actid, funcmode);
3598: RAISE;
3699: l_org_id NUMBER;
3700: -- gboomina Bug 5265083 - End
3701: -- for debug logging
3702: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_invoice';
3703: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3704: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3705: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3706:
3707: BEGIN
3700: -- gboomina Bug 5265083 - End
3701: -- for debug logging
3702: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_invoice';
3703: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3704: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3705: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3706:
3707: BEGIN
3708:
3701: -- for debug logging
3702: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_invoice';
3703: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3704: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3705: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3706:
3707: BEGIN
3708:
3709: IF (is_debug_procedure_on) THEN
3706:
3707: BEGIN
3708:
3709: IF (is_debug_procedure_on) THEN
3710: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3711: END IF;
3712:
3713:
3714: --
3785: p_quote_id => TO_NUMBER(l_transaction_id),
3786: x_taiv_tbl => lx_taiv_tbl);
3787:
3788: IF (is_debug_statement_on) THEN
3789: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3790: 'after call to OKL_AM_INVOICES_PVT.Create_Quote_Invoice :'||l_return_status);
3791: END IF;
3792:
3793:
3825: END IF;
3826:
3827:
3828: IF (is_debug_procedure_on) THEN
3829: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
3830: END IF;
3831:
3832: EXCEPTION
3833: WHEN G_EXCEPTION THEN
3831:
3832: EXCEPTION
3833: WHEN G_EXCEPTION THEN
3834: IF (is_debug_exception_on) THEN
3835: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
3836: END IF;
3837:
3838: IF okl_get_inv_csr%ISOPEN THEN
3839: CLOSE okl_get_inv_csr;
3863: RAISE;
3864: WHEN OTHERS THEN
3865:
3866: IF (is_debug_exception_on) THEN
3867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
3868: || sqlcode || ' , SQLERRM : ' || sqlerrm);
3869: END IF;
3870:
3871: IF okl_get_inv_csr%ISOPEN THEN
3934: WHERE trx.qte_id = p_qte_id;
3935: -- End : PRASJAIN : Bug 6324373
3936: -- for debug logging
3937: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_quote_status';
3938: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3939: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3940: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3941: BEGIN
3942:
3935: -- End : PRASJAIN : Bug 6324373
3936: -- for debug logging
3937: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_quote_status';
3938: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3939: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3940: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3941: BEGIN
3942:
3943: IF (is_debug_procedure_on) THEN
3936: -- for debug logging
3937: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_quote_status';
3938: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
3939: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
3940: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3941: BEGIN
3942:
3943: IF (is_debug_procedure_on) THEN
3944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3940: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
3941: BEGIN
3942:
3943: IF (is_debug_procedure_on) THEN
3944: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
3945: END IF;
3946:
3947: --
3948: -- RUN mode
3979: p_qtev_rec => lp_qtev_rec,
3980: x_qtev_rec => lx_qtev_rec);
3981:
3982: IF (is_debug_statement_on) THEN
3983: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
3984: 'after call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
3985: END IF;
3986:
3987: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
4013: --
4014: END IF;
4015:
4016: IF (is_debug_procedure_on) THEN
4017: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4018: END IF;
4019:
4020: EXCEPTION
4021: WHEN G_EXCEPTION THEN
4020: EXCEPTION
4021: WHEN G_EXCEPTION THEN
4022:
4023: IF (is_debug_exception_on) THEN
4024: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
4025: END IF;
4026:
4027: -- Start : PRASJAIN : Bug 6324373
4028: IF c_tmt_status_code_csr%ISOPEN THEN
4035: RAISE;
4036: WHEN OTHERS THEN
4037:
4038: IF (is_debug_exception_on) THEN
4039: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4040: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4041: END IF;
4042: -- Start : PRASJAIN : Bug 6324373
4043: IF c_tmt_status_code_csr%ISOPEN THEN
4118: l_to_email VARCHAR2(100);
4119:
4120: -- for debug logging
4121: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_quote';
4122: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4123: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4124: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4125:
4126: BEGIN
4119:
4120: -- for debug logging
4121: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_quote';
4122: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4123: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4124: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4125:
4126: BEGIN
4127:
4120: -- for debug logging
4121: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_quote';
4122: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4123: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4124: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4125:
4126: BEGIN
4127:
4128: IF (is_debug_procedure_on) THEN
4125:
4126: BEGIN
4127:
4128: IF (is_debug_procedure_on) THEN
4129: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4130: END IF;
4131:
4132: --
4133: -- RUN mode
4159: x_party_object_tbl => l_party_object_tbl,
4160: x_return_status => l_return_status);
4161:
4162: IF (is_debug_statement_on) THEN
4163: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4164: 'after call to OKL_AM_PARTIES_PVT.get_party_details :'||l_return_status);
4165: END IF;
4166:
4167: -- Check that a quote id is returned for the TRANSACTION_ID given.
4249: ,p_xmp_rec => l_xmp_rec
4250: ,x_xmp_rec => lx_xmp_rec
4251: );
4252: IF (is_debug_statement_on) THEN
4253: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4254: 'after call to OKL_XMLP_PARAMS_PVT.create_xmlp_params_rec :'||l_return_status);
4255: END IF;
4256:
4257: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4298: --
4299: END IF;
4300:
4301: IF (is_debug_procedure_on) THEN
4302: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4303: END IF;
4304:
4305: EXCEPTION
4306: WHEN OTHERS THEN
4304:
4305: EXCEPTION
4306: WHEN OTHERS THEN
4307: IF (is_debug_exception_on) THEN
4308: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4309: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4310: END IF;
4311: WF_CORE.context('OKL_AM_QUOTES_WF' , 'validate_quote',
4312: itemtype, itemkey, actid, funcmode);
4409: l_updated_by NUMBER;
4410:
4411: -- for debug logging
4412: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_partial_quote_att';
4413: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4414: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4415: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4416:
4417: BEGIN
4410:
4411: -- for debug logging
4412: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_partial_quote_att';
4413: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4414: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4415: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4416:
4417: BEGIN
4418:
4411: -- for debug logging
4412: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_partial_quote_att';
4413: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4414: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4415: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4416:
4417: BEGIN
4418:
4419: IF (is_debug_procedure_on) THEN
4416:
4417: BEGIN
4418:
4419: IF (is_debug_procedure_on) THEN
4420: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4421: END IF;
4422:
4423: IF (funcmode = 'RUN') THEN
4424: l_id := wf_engine.GetItemAttrText( itemtype => itemtype,
4498: --
4499: END IF;
4500:
4501: IF (is_debug_procedure_on) THEN
4502: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4503: END IF;
4504:
4505: EXCEPTION
4506: WHEN OTHERS THEN
4504:
4505: EXCEPTION
4506: WHEN OTHERS THEN
4507: IF (is_debug_exception_on) THEN
4508: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4509: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4510: END IF;
4511: IF okl_partial_quote_csr%ISOPEN THEN
4512: CLOSE okl_partial_quote_csr;
4549:
4550: l_notify_response VARCHAR2(30);
4551: -- for debug logging
4552: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_quote_approved_yn';
4553: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4554: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4555: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4556:
4557: BEGIN
4550: l_notify_response VARCHAR2(30);
4551: -- for debug logging
4552: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_quote_approved_yn';
4553: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4554: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4555: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4556:
4557: BEGIN
4558:
4551: -- for debug logging
4552: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_quote_approved_yn';
4553: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4554: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4555: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4556:
4557: BEGIN
4558:
4559: IF (is_debug_procedure_on) THEN
4556:
4557: BEGIN
4558:
4559: IF (is_debug_procedure_on) THEN
4560: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4561: END IF;
4562:
4563: IF (funcmode = 'RUN') THEN
4564: l_id := wf_engine.GetItemAttrText( itemtype => itemtype,
4593: p_qtev_rec => p_qtev_rec,
4594: x_qtev_rec => x_qtev_rec);
4595:
4596: IF (is_debug_statement_on) THEN
4597: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4598: 'after call to okl_qte_pvt.update_row :'||x_return_status);
4599: END IF;
4600:
4601: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
4631: --
4632: END IF;
4633:
4634: IF (is_debug_procedure_on) THEN
4635: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4636: END IF;
4637:
4638: EXCEPTION
4639:
4638: EXCEPTION
4639:
4640: WHEN API_ERROR THEN
4641: IF (is_debug_exception_on) THEN
4642: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
4643: END IF;
4644: wf_core.context('OKL_AM_QUOTES_WF' , 'set_quote_approved_yn', itemtype, itemkey, actid, funcmode);
4645: RAISE;
4646:
4646:
4647: WHEN OTHERS THEN
4648:
4649: IF (is_debug_exception_on) THEN
4650: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4651: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4652: END IF;
4653:
4654: wf_core.context('OKL_AM_QUOTES_WF' , 'set_quote_approved_yn', itemtype, itemkey, actid, funcmode);
4712: l_quote_rec okl_quote_csr%rowtype;
4713: l_projected_gl NUMBER;
4714: -- for debug logging
4715: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_gl_quote_att';
4716: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4717: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4718: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4719: BEGIN
4720:
4713: l_projected_gl NUMBER;
4714: -- for debug logging
4715: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_gl_quote_att';
4716: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4717: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4718: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4719: BEGIN
4720:
4721: IF (is_debug_procedure_on) THEN
4714: -- for debug logging
4715: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_gl_quote_att';
4716: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4717: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4718: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4719: BEGIN
4720:
4721: IF (is_debug_procedure_on) THEN
4722: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4718: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4719: BEGIN
4720:
4721: IF (is_debug_procedure_on) THEN
4722: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4723: END IF;
4724:
4725: IF (funcmode = 'RUN') THEN
4726:
4780: --
4781: END IF;
4782:
4783: IF (is_debug_procedure_on) THEN
4784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
4785: END IF;
4786:
4787: EXCEPTION
4788: WHEN OTHERS THEN
4787: EXCEPTION
4788: WHEN OTHERS THEN
4789:
4790: IF (is_debug_exception_on) THEN
4791: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
4792: || sqlcode || ' , SQLERRM : ' || sqlerrm);
4793: END IF;
4794:
4795: IF okl_quote_csr%ISOPEN THEN
4891: l_to_email VARCHAR2(100);
4892: --19-jul-2007 ansethur R12B XML Publisher Starts
4893: -- for debug logging
4894: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_quote_approval';
4895: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4896: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4897: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4898: BEGIN
4899:
4892: --19-jul-2007 ansethur R12B XML Publisher Starts
4893: -- for debug logging
4894: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_quote_approval';
4895: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4896: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4897: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4898: BEGIN
4899:
4900: IF (is_debug_procedure_on) THEN
4893: -- for debug logging
4894: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_quote_approval';
4895: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
4896: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
4897: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4898: BEGIN
4899:
4900: IF (is_debug_procedure_on) THEN
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4897: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
4898: BEGIN
4899:
4900: IF (is_debug_procedure_on) THEN
4901: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
4902: END IF;
4903:
4904: --
4905: -- RUN mode
4922: x_msg_data => x_msg_data,
4923: p_qtev_rec => p_qtev_rec,
4924: x_qtev_rec => x_qtev_rec);
4925: IF (is_debug_statement_on) THEN
4926: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4927: 'after call to okl_qte_pvt.update_row :'||x_return_status);
4928: END IF;
4929:
4930: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
4946: , x_description => l_name);
4947: -- Check that a quote id is returned for the TRANSACTION_ID given.
4948:
4949: IF (is_debug_statement_on) THEN
4950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
4951: 'after call to okl_am_wf.get_notification_agent :'||l_return_status);
4952: END IF;
4953:
4954: IF l_last_updated_by IS NOT NULL AND l_user_name IS NOT NULL THEN
4996: p_qtev_rec => p_qtev_rec,
4997: x_qtev_rec => x_qtev_rec);
4998:
4999: IF (is_debug_statement_on) THEN
5000: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5001: 'after call to okl_qte_pvt.update_row :'||x_return_status);
5002: END IF;
5003:
5004: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5016: x_party_object_tbl => l_party_object_tbl,
5017: x_return_status => x_return_status);
5018:
5019: IF (is_debug_statement_on) THEN
5020: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5021: 'after call to OKL_AM_PARTIES_PVT.get_party_details :'||l_return_status);
5022: END IF;
5023:
5024: IF x_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5076: ,x_xmp_rec => lx_xmp_rec
5077: );
5078:
5079: IF (is_debug_statement_on) THEN
5080: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5081: 'after call to OKL_XMLP_PARAMS_PVT.create_xmlp_params_rec :'||l_return_status);
5082: END IF;
5083:
5084: IF l_return_status <> OKC_API.G_RET_STS_SUCCESS THEN
5128: --
5129: END IF;
5130:
5131: IF (is_debug_procedure_on) THEN
5132: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5133: END IF;
5134:
5135: EXCEPTION
5136:
5136:
5137: WHEN API_ERROR THEN
5138:
5139: IF (is_debug_exception_on) THEN
5140: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5141: END IF;
5142:
5143: wf_core.context('OKL_AM_QUOTES_WF' , 'VALIDATE_QUOTE_APPROVAL', itemtype, itemkey, actid, funcmode);
5144: RAISE;
5145:
5146: WHEN OTHERS THEN
5147:
5148: IF (is_debug_exception_on) THEN
5149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5150: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5151: END IF;
5152:
5153: IF get_quote_csr%ISOPEN THEN
5213:
5214: l_quote_rec okl_quote_csr%rowtype;
5215: -- for debug logging
5216: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_cp_quote_att';
5217: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5218: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5219: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5220:
5221: BEGIN
5214: l_quote_rec okl_quote_csr%rowtype;
5215: -- for debug logging
5216: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_cp_quote_att';
5217: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5218: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5219: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5220:
5221: BEGIN
5222:
5215: -- for debug logging
5216: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_cp_quote_att';
5217: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5218: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5219: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5220:
5221: BEGIN
5222:
5223: IF (is_debug_procedure_on) THEN
5220:
5221: BEGIN
5222:
5223: IF (is_debug_procedure_on) THEN
5224: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5225: END IF;
5226:
5227: IF (funcmode = 'RUN') THEN
5228:
5278: --
5279: END IF;
5280:
5281: IF (is_debug_procedure_on) THEN
5282: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5283: END IF;
5284:
5285: EXCEPTION
5286: WHEN OTHERS THEN
5285: EXCEPTION
5286: WHEN OTHERS THEN
5287:
5288: IF (is_debug_exception_on) THEN
5289: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5290: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5291: END IF;
5292: IF okl_quote_csr%ISOPEN THEN
5293: CLOSE okl_quote_csr;
5331:
5332: API_ERROR EXCEPTION;
5333: -- for debug logging
5334: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_partial_quote';
5335: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5336: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5337: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5338: BEGIN
5339:
5332: API_ERROR EXCEPTION;
5333: -- for debug logging
5334: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_partial_quote';
5335: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5336: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5337: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5338: BEGIN
5339:
5340: IF (is_debug_procedure_on) THEN
5333: -- for debug logging
5334: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_partial_quote';
5335: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5336: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5337: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5338: BEGIN
5339:
5340: IF (is_debug_procedure_on) THEN
5341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5337: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5338: BEGIN
5339:
5340: IF (is_debug_procedure_on) THEN
5341: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5342: END IF;
5343:
5344: IF (funcmode = 'RUN') THEN
5345:
5371: x_return_status => l_return_status,
5372: p_message_yn => FALSE);
5373:
5374: IF (is_debug_statement_on) THEN
5375: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5376: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
5377: END IF;
5378:
5379: IF l_return_status = OKL_API.G_RET_STS_SUCCESS THEN
5398:
5399: END IF;
5400:
5401: IF (is_debug_procedure_on) THEN
5402: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5403: END IF;
5404:
5405: EXCEPTION
5406:
5406:
5407: WHEN API_ERROR THEN
5408:
5409: IF (is_debug_exception_on) THEN
5410: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5411: END IF;
5412:
5413: wf_core.context('OKL_AM_QUOTES_WF' , 'CHECK_IF_PARTIAL_QUOTE', itemtype, itemkey, actid, funcmode);
5414: RAISE;
5415:
5416: WHEN OTHERS THEN
5417:
5418: IF (is_debug_exception_on) THEN
5419: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5420: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5421: END IF;
5422:
5423: IF c_qte_csr%ISOPEN THEN
5480: l_pos NUMBER;
5481: l_stop_type VARCHAR2(15);
5482: -- for debug logging
5483: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_stop_notification';
5484: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5485: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5487:
5488: BEGIN
5481: l_stop_type VARCHAR2(15);
5482: -- for debug logging
5483: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_stop_notification';
5484: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5485: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5487:
5488: BEGIN
5489:
5482: -- for debug logging
5483: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_stop_notification';
5484: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5485: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5486: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5487:
5488: BEGIN
5489:
5490: IF (is_debug_procedure_on) THEN
5487:
5488: BEGIN
5489:
5490: IF (is_debug_procedure_on) THEN
5491: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5492: END IF;
5493:
5494:
5495: --get the parameters from document id
5534: document := l_message;
5535: document_type := display_type;
5536:
5537: IF (is_debug_procedure_on) THEN
5538: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5539: END IF;
5540:
5541: RETURN;
5542:
5542:
5543: EXCEPTION
5544: WHEN OTHERS THEN
5545: IF (is_debug_exception_on) THEN
5546: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5547: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5548: END IF;
5549: IF c_quote_ctr%ISOPEN THEN
5550: CLOSE c_quote_ctr;
5615: l_user_name VARCHAR2(200);
5616: l_name VARCHAR2(200);
5617: -- for debug logging
5618: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_quote_gain_loss';
5619: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5620: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5621: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5622: BEGIN
5623:
5616: l_name VARCHAR2(200);
5617: -- for debug logging
5618: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_quote_gain_loss';
5619: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5620: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5621: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5622: BEGIN
5623:
5624: IF (is_debug_procedure_on) THEN
5617: -- for debug logging
5618: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_quote_gain_loss';
5619: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5620: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5621: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5622: BEGIN
5623:
5624: IF (is_debug_procedure_on) THEN
5625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5621: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5622: BEGIN
5623:
5624: IF (is_debug_procedure_on) THEN
5625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5626: END IF;
5627:
5628: IF (funcmode = 'RUN') THEN
5629:
5655: x_return_status => l_return_status,
5656: p_message_yn => FALSE);
5657:
5658: IF (is_debug_statement_on) THEN
5659: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5660: 'after call to OKL_AM_UTIL_PVT.get_rule_record :'||l_return_status);
5661: END IF;
5662:
5663:
5713: RETURN;
5714: END IF;
5715:
5716: IF (is_debug_procedure_on) THEN
5717: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5718: END IF;
5719:
5720: EXCEPTION
5721:
5721:
5722: WHEN API_ERROR THEN
5723:
5724: IF (is_debug_exception_on) THEN
5725: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5726: END IF;
5727:
5728: wf_core.context('OKL_AM_QUOTES_WF' , 'CHECK_IF_QUOTE_GAIN_LOSS', itemtype, itemkey, actid, funcmode);
5729: RAISE;
5730:
5731: WHEN OTHERS THEN
5732:
5733: IF (is_debug_exception_on) THEN
5734: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5735: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5736: END IF;
5737:
5738: IF c_qte_csr%ISOPEN THEN
5773:
5774: API_ERROR EXCEPTION;
5775: -- for debug logging
5776: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_ext_approval';
5777: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5778: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5779: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5780:
5781: BEGIN
5774: API_ERROR EXCEPTION;
5775: -- for debug logging
5776: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_ext_approval';
5777: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5778: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5779: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5780:
5781: BEGIN
5782:
5775: -- for debug logging
5776: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_ext_approval';
5777: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5778: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5779: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5780:
5781: BEGIN
5782:
5783: IF (is_debug_procedure_on) THEN
5780:
5781: BEGIN
5782:
5783: IF (is_debug_procedure_on) THEN
5784: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5785: END IF;
5786:
5787: IF (funcmode = 'RUN') THEN
5788:
5808: x_q_party_uv_tbl => l_q_party_uv_tbl,
5809: x_record_count => l_party_count);
5810:
5811: IF (is_debug_statement_on) THEN
5812: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5813: 'after call to okl_am_parties_pvt.get_quote_parties :'||l_return_status);
5814: END IF;
5815:
5816:
5841: RETURN ;
5842: END IF;
5843:
5844: IF (is_debug_procedure_on) THEN
5845: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
5846: END IF;
5847:
5848: EXCEPTION
5849:
5848: EXCEPTION
5849:
5850: WHEN API_ERROR THEN
5851: IF (is_debug_exception_on) THEN
5852: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5853: END IF;
5854: IF (is_debug_exception_on) THEN
5855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5856: END IF;
5851: IF (is_debug_exception_on) THEN
5852: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5853: END IF;
5854: IF (is_debug_exception_on) THEN
5855: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
5856: END IF;
5857: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
5858: itemtype, itemkey, actid, funcmode);
5859: WHEN OTHERS THEN
5857: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
5858: itemtype, itemkey, actid, funcmode);
5859: WHEN OTHERS THEN
5860: IF (is_debug_exception_on) THEN
5861: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
5862: || sqlcode || ' , SQLERRM : ' || sqlerrm);
5863: END IF;
5864:
5865: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_EXT_APPROVAL',
5905:
5906: MISSING_DETAILS_ERROR EXCEPTION;
5907: -- for debug logging
5908: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_quote_party_details';
5909: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5910: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5911: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5912:
5913: BEGIN
5906: MISSING_DETAILS_ERROR EXCEPTION;
5907: -- for debug logging
5908: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_quote_party_details';
5909: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5910: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5911: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5912:
5913: BEGIN
5914:
5907: -- for debug logging
5908: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'get_quote_party_details';
5909: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
5910: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
5911: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
5912:
5913: BEGIN
5914:
5915: IF (is_debug_procedure_on) THEN
5912:
5913: BEGIN
5914:
5915: IF (is_debug_procedure_on) THEN
5916: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
5917: END IF;
5918:
5919: IF (funcmode = 'RUN') THEN
5920: -- Get the values for dispose_asset before calling the dispose_asset api
5946: x_q_party_uv_tbl => l_q_party_uv_tbl,
5947: x_record_count => l_total_party_count);
5948:
5949: IF (is_debug_statement_on) THEN
5950: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
5951: 'after call to okl_am_parties_pvt.get_quote_parties :'||l_return_status);
5952: END IF;
5953:
5954: IF l_q_party_uv_tbl(l_party_count).co_email IS NOT NULL THEN
6138: END IF;
6139:
6140:
6141: IF (is_debug_procedure_on) THEN
6142: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6143: END IF;
6144:
6145: EXCEPTION
6146: WHEN MISSING_DETAILS_ERROR THEN
6145: EXCEPTION
6146: WHEN MISSING_DETAILS_ERROR THEN
6147:
6148: IF (is_debug_exception_on) THEN
6149: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED : MISSING_DETAILS_ERROR');
6150: END IF;
6151:
6152: WF_CORE.context('OKL_AM_QUOTES_WF' , 'GET_QUOTE_PARTY_DETAILS',
6153: itemtype, itemkey, actid, funcmode);
6190:
6191: API_ERROR EXCEPTION;
6192: -- for debug logging
6193: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_advance_notice';
6194: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6195: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6196: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6197: BEGIN
6198:
6191: API_ERROR EXCEPTION;
6192: -- for debug logging
6193: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_advance_notice';
6194: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6195: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6196: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6197: BEGIN
6198:
6199: IF (is_debug_procedure_on) THEN
6192: -- for debug logging
6193: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_advance_notice';
6194: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6195: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6196: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6197: BEGIN
6198:
6199: IF (is_debug_procedure_on) THEN
6200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6196: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6197: BEGIN
6198:
6199: IF (is_debug_procedure_on) THEN
6200: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6201: END IF;
6202:
6203: IF (funcmode = 'RUN') THEN
6204:
6219: x_q_party_uv_tbl => l_q_party_uv_tbl,
6220: x_record_count => l_party_count);
6221:
6222: IF (is_debug_statement_on) THEN
6223: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6224: 'after call to okl_am_parties_pvt.get_quote_parties :'||l_return_status);
6225: END IF;
6226:
6227: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6264: RETURN ;
6265: END IF;
6266:
6267: IF (is_debug_procedure_on) THEN
6268: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6269: END IF;
6270:
6271: EXCEPTION
6272:
6271: EXCEPTION
6272:
6273: WHEN API_ERROR THEN
6274: IF (is_debug_exception_on) THEN
6275: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
6276: END IF;
6277:
6278: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6279: itemtype, itemkey, actid, funcmode);
6280:
6281: WHEN OTHERS THEN
6282:
6283: IF (is_debug_exception_on) THEN
6284: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6285: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6286: END IF;
6287:
6288:
6323:
6324: API_ERROR EXCEPTION;
6325: -- for debug logging
6326: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_recipient';
6327: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6328: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6330:
6331: BEGIN
6324: API_ERROR EXCEPTION;
6325: -- for debug logging
6326: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_recipient';
6327: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6328: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6330:
6331: BEGIN
6332:
6325: -- for debug logging
6326: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_recipient';
6327: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6328: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6329: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6330:
6331: BEGIN
6332:
6333: IF (is_debug_procedure_on) THEN
6330:
6331: BEGIN
6332:
6333: IF (is_debug_procedure_on) THEN
6334: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6335: END IF;
6336:
6337: IF (funcmode = 'RUN') THEN
6338:
6357: x_q_party_uv_tbl => l_q_party_uv_tbl,
6358: x_record_count => l_party_count);
6359:
6360: IF (is_debug_statement_on) THEN
6361: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6362: 'after call to okl_am_parties_pvt.get_quote_parties :'||l_return_status);
6363: END IF;
6364:
6365: IF l_party_count > 0 THEN
6389: RETURN ;
6390: END IF;
6391:
6392: IF (is_debug_procedure_on) THEN
6393: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6394: END IF;
6395:
6396: EXCEPTION
6397:
6396: EXCEPTION
6397:
6398: WHEN API_ERROR THEN
6399: IF (is_debug_exception_on) THEN
6400: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
6401: END IF;
6402: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6403: itemtype, itemkey, actid, funcmode);
6404: WHEN OTHERS THEN
6402: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6403: itemtype, itemkey, actid, funcmode);
6404: WHEN OTHERS THEN
6405: IF (is_debug_exception_on) THEN
6406: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6407: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6408: END IF;
6409:
6410: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT',
6444:
6445: API_ERROR EXCEPTION;
6446: -- for debug logging
6447: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_fyi';
6448: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6449: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6450: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6451: BEGIN
6452:
6445: API_ERROR EXCEPTION;
6446: -- for debug logging
6447: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_fyi';
6448: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6449: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6450: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6451: BEGIN
6452:
6453: IF (is_debug_procedure_on) THEN
6446: -- for debug logging
6447: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_fyi';
6448: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6449: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6450: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6451: BEGIN
6452:
6453: IF (is_debug_procedure_on) THEN
6454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6450: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6451: BEGIN
6452:
6453: IF (is_debug_procedure_on) THEN
6454: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6455: END IF;
6456:
6457: IF (funcmode = 'RUN') THEN
6458:
6478: x_record_count => l_party_count);
6479:
6480:
6481: IF (is_debug_statement_on) THEN
6482: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6483: 'after call to okl_am_parties_pvt.get_quote_parties :'||l_return_status);
6484: END IF;
6485:
6486: IF l_party_count > 0 THEN
6510: RETURN ;
6511: END IF;
6512:
6513: IF (is_debug_procedure_on) THEN
6514: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6515: END IF;
6516:
6517: EXCEPTION
6518:
6517: EXCEPTION
6518:
6519: WHEN API_ERROR THEN
6520: IF (is_debug_exception_on) THEN
6521: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
6522: END IF;
6523:
6524: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6525: itemtype, itemkey, actid, funcmode);
6524: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6525: itemtype, itemkey, actid, funcmode);
6526: WHEN OTHERS THEN
6527: IF (is_debug_exception_on) THEN
6528: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6529: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6530: END IF;
6531: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_FYI',
6532: itemtype, itemkey, actid, funcmode);
6565:
6566: API_ERROR EXCEPTION;
6567: -- for debug logging
6568: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_recipient_add';
6569: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6570: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6571: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6572:
6573: BEGIN
6566: API_ERROR EXCEPTION;
6567: -- for debug logging
6568: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_recipient_add';
6569: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6570: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6571: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6572:
6573: BEGIN
6574:
6567: -- for debug logging
6568: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_for_recipient_add';
6569: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6570: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6571: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6572:
6573: BEGIN
6574:
6575: IF (is_debug_procedure_on) THEN
6572:
6573: BEGIN
6574:
6575: IF (is_debug_procedure_on) THEN
6576: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6577: END IF;
6578:
6579: IF (funcmode = 'RUN') THEN
6580:
6599: x_q_party_uv_tbl => l_q_party_uv_tbl,
6600: x_record_count => l_party_count);
6601:
6602: IF (is_debug_statement_on) THEN
6603: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6604: 'after call to okl_am_parties_pvt.get_quote_parties :'||l_return_status);
6605: END IF;
6606:
6607: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
6635: RETURN ;
6636: END IF;
6637:
6638: IF (is_debug_procedure_on) THEN
6639: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6640: END IF;
6641:
6642: EXCEPTION
6643:
6643:
6644: WHEN API_ERROR THEN
6645:
6646: IF (is_debug_exception_on) THEN
6647: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
6648: END IF;
6649:
6650: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6651: itemtype, itemkey, actid, funcmode);
6651: itemtype, itemkey, actid, funcmode);
6652: WHEN OTHERS THEN
6653:
6654: IF (is_debug_exception_on) THEN
6655: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6656: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6657: END IF;
6658:
6659: WF_CORE.context('OKL_AM_QUOTES_WF' , 'CHECK_FOR_RECIPIENT_ADD',
6727:
6728: API_ERROR EXCEPTION;
6729: -- for debug logging
6730: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_calc_options';
6731: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6732: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6734: BEGIN
6735:
6728: API_ERROR EXCEPTION;
6729: -- for debug logging
6730: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_calc_options';
6731: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6732: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6734: BEGIN
6735:
6736: IF (is_debug_procedure_on) THEN
6729: -- for debug logging
6730: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_calc_options';
6731: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
6732: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
6733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6734: BEGIN
6735:
6736: IF (is_debug_procedure_on) THEN
6737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6733: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
6734: BEGIN
6735:
6736: IF (is_debug_procedure_on) THEN
6737: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
6738: END IF;
6739:
6740: --rkuttiya 17-SEP-2003 added for Bug:2794685
6741: l_params(1).name := 'quote_id'; -- for bug 12802662 changed
6755: x_return_status => l_return_status,
6756: p_message_yn => TRUE);
6757:
6758: IF (is_debug_statement_on) THEN
6759: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
6760: 'after call to okl_am_util_pvt.get_rule_record :'||l_return_status);
6761: END IF;
6762:
6763:
6959: */
6960:
6961:
6962: IF (is_debug_procedure_on) THEN
6963: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
6964: END IF;
6965:
6966: EXCEPTION
6967: WHEN API_ERROR THEN
6966: EXCEPTION
6967: WHEN API_ERROR THEN
6968:
6969: IF (is_debug_exception_on) THEN
6970: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
6971: END IF;
6972:
6973: wf_core.context('OKL_AM_QUOTES_WF' , 'CHECK_CALC_OPTIONS', itemtype, itemkey, actid, funcmode);
6974: RAISE;
6975:
6976: WHEN OTHERS THEN
6977:
6978: IF (is_debug_exception_on) THEN
6979: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
6980: || sqlcode || ' , SQLERRM : ' || sqlerrm);
6981: END IF;
6982:
6983: wf_core.context('OKL_AM_QUOTES_WF' , 'CHECK_CALC_OPTIONS', itemtype, itemkey, actid, funcmode);
7035:
7036: l_quote_id NUMBER;
7037: -- for debug logging
7038: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_manual_quote_req';
7039: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7040: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7042: BEGIN
7043:
7036: l_quote_id NUMBER;
7037: -- for debug logging
7038: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_manual_quote_req';
7039: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7040: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7042: BEGIN
7043:
7044: IF (is_debug_procedure_on) THEN
7037: -- for debug logging
7038: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_manual_quote_req';
7039: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7040: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7042: BEGIN
7043:
7044: IF (is_debug_procedure_on) THEN
7045: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7041: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7042: BEGIN
7043:
7044: IF (is_debug_procedure_on) THEN
7045: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7046: END IF;
7047:
7048: --
7049: -- RUN mode
7124: --
7125: END IF;
7126:
7127: IF (is_debug_procedure_on) THEN
7128: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7129: END IF;
7130:
7131: EXCEPTION
7132: WHEN OTHERS THEN
7131: EXCEPTION
7132: WHEN OTHERS THEN
7133:
7134: IF (is_debug_exception_on) THEN
7135: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7136: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7137: END IF;
7138:
7139: IF get_quote_csr%ISOPEN THEN
7181:
7182: l_quote_number VARCHAR2(100);
7183: -- for debug logging
7184: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_accept_rest_qte';
7185: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7186: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7187: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7188: BEGIN
7189:
7182: l_quote_number VARCHAR2(100);
7183: -- for debug logging
7184: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_accept_rest_qte';
7185: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7186: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7187: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7188: BEGIN
7189:
7190: IF (is_debug_procedure_on) THEN
7183: -- for debug logging
7184: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'validate_accept_rest_qte';
7185: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7186: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7187: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7188: BEGIN
7189:
7190: IF (is_debug_procedure_on) THEN
7191: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7187: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7188: BEGIN
7189:
7190: IF (is_debug_procedure_on) THEN
7191: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7192: END IF;
7193:
7194: --
7195: -- RUN mode
7259: --
7260: END IF;
7261:
7262: IF (is_debug_procedure_on) THEN
7263: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7264: END IF;
7265:
7266: EXCEPTION
7267:
7267:
7268: WHEN OTHERS THEN
7269:
7270: IF (is_debug_exception_on) THEN
7271: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7272: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7273: END IF;
7274:
7275: IF get_quote_csr%ISOPEN THEN
7314:
7315: l_notify_response VARCHAR2(30);
7316: -- for debug logging
7317: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_rest_qte_approved_yn';
7318: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7319: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7320: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7321: BEGIN
7322:
7315: l_notify_response VARCHAR2(30);
7316: -- for debug logging
7317: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_rest_qte_approved_yn';
7318: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7319: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7320: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7321: BEGIN
7322:
7323: IF (is_debug_procedure_on) THEN
7316: -- for debug logging
7317: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_rest_qte_approved_yn';
7318: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7319: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7320: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7321: BEGIN
7322:
7323: IF (is_debug_procedure_on) THEN
7324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7320: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7321: BEGIN
7322:
7323: IF (is_debug_procedure_on) THEN
7324: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7325: END IF;
7326:
7327: IF (funcmode = 'RUN') THEN
7328: l_id := wf_engine.GetItemAttrText( itemtype => itemtype,
7355: p_qtev_rec => p_qtev_rec,
7356: x_qtev_rec => x_qtev_rec);
7357:
7358: IF (is_debug_statement_on) THEN
7359: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
7360: 'after call to okl_qte_pvt.update_row :'||x_return_status);
7361: END IF;
7362:
7363: IF x_return_status = OKC_API.G_RET_STS_SUCCESS THEN
7393: --
7394: END IF;
7395:
7396: IF (is_debug_procedure_on) THEN
7397: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7398: END IF;
7399:
7400: EXCEPTION
7401:
7401:
7402: WHEN API_ERROR THEN
7403:
7404: IF (is_debug_exception_on) THEN
7405: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
7406: END IF;
7407:
7408: wf_core.context('OKL_AM_QUOTES_WF' , 'set_rest_qte_approved_yn', itemtype, itemkey, actid, funcmode);
7409: RAISE;
7411: WHEN OTHERS THEN
7412:
7413:
7414: IF (is_debug_exception_on) THEN
7415: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7416: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7417: END IF;
7418:
7419: wf_core.context('OKL_AM_QUOTES_WF' , 'set_rest_qte_approved_yn', itemtype, itemkey, actid, funcmode);
7448: where WUR.ROLE_NAME = p_value;
7449:
7450: -- for debug logging
7451: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_profile_recipient';
7452: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7453: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7454: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7455: BEGIN
7456:
7449:
7450: -- for debug logging
7451: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_profile_recipient';
7452: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7453: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7454: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7455: BEGIN
7456:
7457: IF (is_debug_procedure_on) THEN
7450: -- for debug logging
7451: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_profile_recipient';
7452: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7453: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7454: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7455: BEGIN
7456:
7457: IF (is_debug_procedure_on) THEN
7458: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7454: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7455: BEGIN
7456:
7457: IF (is_debug_procedure_on) THEN
7458: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7459: END IF;
7460:
7461: IF (funcmode = 'RUN') THEN
7462: l_id := wf_engine.GetItemAttrText( itemtype => itemtype,
7503: --
7504: END IF;
7505:
7506: IF (is_debug_procedure_on) THEN
7507: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7508: END IF;
7509:
7510: EXCEPTION
7511:
7512: WHEN OTHERS THEN
7513:
7514:
7515: IF (is_debug_exception_on) THEN
7516: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7517: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7518: END IF;
7519: IF c1_csr%ISOPEN THEN
7520: CLOSE c1_csr;
7578: l_message VARCHAR2(32000);
7579: l_header_done BOOLEAN := FALSE;
7580: -- for debug logging
7581: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_oklamnmq_doc';
7582: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7583: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7584: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7585: BEGIN
7586:
7579: l_header_done BOOLEAN := FALSE;
7580: -- for debug logging
7581: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_oklamnmq_doc';
7582: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7583: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7584: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7585: BEGIN
7586:
7587: IF (is_debug_procedure_on) THEN
7580: -- for debug logging
7581: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_oklamnmq_doc';
7582: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7583: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7584: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7585: BEGIN
7586:
7587: IF (is_debug_procedure_on) THEN
7588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7584: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7585: BEGIN
7586:
7587: IF (is_debug_procedure_on) THEN
7588: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7589: END IF;
7590:
7591: l_quote_id := document_id;
7592:
7639: document := l_message;
7640: document_type := display_type;
7641:
7642: IF (is_debug_procedure_on) THEN
7643: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7644: END IF;
7645:
7646: RETURN;
7647: EXCEPTION
7647: EXCEPTION
7648: WHEN OTHERS THEN
7649:
7650: IF (is_debug_exception_on) THEN
7651: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7652: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7653: END IF;
7654:
7655: IF get_quote_csr%ISOPEN THEN
7678:
7679: l_message VARCHAR2(32000);
7680: -- for debug logging
7681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_oklamppt_doc';
7682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7683: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7685: BEGIN
7686:
7679: l_message VARCHAR2(32000);
7680: -- for debug logging
7681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_oklamppt_doc';
7682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7683: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7685: BEGIN
7686:
7687: IF (is_debug_procedure_on) THEN
7680: -- for debug logging
7681: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_oklamppt_doc';
7682: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7683: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7685: BEGIN
7686:
7687: IF (is_debug_procedure_on) THEN
7688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7684: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7685: BEGIN
7686:
7687: IF (is_debug_procedure_on) THEN
7688: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7689: END IF;
7690:
7691: l_message := wf_engine.GetItemAttrText (
7692: itemtype => 'OKLAMPPT',
7696: document := l_message;
7697: document_type := display_type;
7698:
7699: IF (is_debug_procedure_on) THEN
7700: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7701: END IF;
7702:
7703: RETURN;
7704:
7705: EXCEPTION
7706: WHEN OTHERS THEN
7707:
7708: IF (is_debug_exception_on) THEN
7709: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7710: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7711: END IF;
7712: NULL;
7713:
7735:
7736: l_message VARCHAR2(32000);
7737: -- for debug logging
7738: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_external_approver_doc';
7739: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7740: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7741: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7742: BEGIN
7743:
7736: l_message VARCHAR2(32000);
7737: -- for debug logging
7738: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_external_approver_doc';
7739: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7740: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7741: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7742: BEGIN
7743:
7744: IF (is_debug_procedure_on) THEN
7737: -- for debug logging
7738: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_external_approver_doc';
7739: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7740: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7741: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7742: BEGIN
7743:
7744: IF (is_debug_procedure_on) THEN
7745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7741: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7742: BEGIN
7743:
7744: IF (is_debug_procedure_on) THEN
7745: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7746: END IF;
7747:
7748: l_message := wf_engine.GetItemAttrText (
7749: itemtype => 'OKLAMNQT',
7753: document := l_message;
7754: document_type := display_type;
7755:
7756: IF (is_debug_procedure_on) THEN
7757: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7758: END IF;
7759:
7760: RETURN;
7761:
7762: EXCEPTION
7763: WHEN OTHERS THEN
7764:
7765: IF (is_debug_exception_on) THEN
7766: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7767: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7768: END IF;
7769:
7770: NULL;
7789: l_approved VARCHAR2(1);
7790:
7791: -- for debug logging
7792: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_partial_quote';
7793: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7794: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7795: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7796: BEGIN
7797:
7790:
7791: -- for debug logging
7792: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_partial_quote';
7793: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7794: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7795: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7796: BEGIN
7797:
7798: IF (is_debug_procedure_on) THEN
7791: -- for debug logging
7792: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_partial_quote';
7793: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7794: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7795: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7796: BEGIN
7797:
7798: IF (is_debug_procedure_on) THEN
7799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7795: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7796: BEGIN
7797:
7798: IF (is_debug_procedure_on) THEN
7799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7800: END IF;
7801:
7802: IF (funcmode = 'RUN') THEN
7803:
7834: --
7835: END IF;
7836:
7837: IF (is_debug_procedure_on) THEN
7838: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7839: END IF;
7840:
7841: EXCEPTION
7842:
7842:
7843: WHEN OTHERS THEN
7844:
7845: IF (is_debug_exception_on) THEN
7846: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7847: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7848: END IF;
7849:
7850: wf_core.context('OKL_AM_QUOTES_WF' , 'update_partial_quote', itemtype, itemkey, actid, funcmode);
7869:
7870: l_approved VARCHAR2(1);
7871: -- for debug logging
7872: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_gain_loss_quote';
7873: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7874: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7875: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7876:
7877: BEGIN
7870: l_approved VARCHAR2(1);
7871: -- for debug logging
7872: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_gain_loss_quote';
7873: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7874: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7875: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7876:
7877: BEGIN
7878:
7871: -- for debug logging
7872: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_gain_loss_quote';
7873: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7874: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7875: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7876:
7877: BEGIN
7878:
7879: IF (is_debug_procedure_on) THEN
7876:
7877: BEGIN
7878:
7879: IF (is_debug_procedure_on) THEN
7880: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7881: END IF;
7882:
7883: IF (funcmode = 'RUN') THEN
7884:
7915: --
7916: END IF;
7917:
7918: IF (is_debug_procedure_on) THEN
7919: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
7920: END IF;
7921:
7922: EXCEPTION
7923:
7923:
7924: WHEN OTHERS THEN
7925:
7926: IF (is_debug_exception_on) THEN
7927: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
7928: || sqlcode || ' , SQLERRM : ' || sqlerrm);
7929: END IF;
7930:
7931: wf_core.context('OKL_AM_QUOTES_WF' , 'update_gain_loss_quote', itemtype, itemkey, actid, funcmode);
7971: l_quote_eff_date DATE;
7972: l_quote_accpt_date DATE;
7973: -- for debug logging
7974: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_securitization';
7975: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7976: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7977: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7978:
7979: BEGIN
7972: l_quote_accpt_date DATE;
7973: -- for debug logging
7974: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_securitization';
7975: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7976: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7977: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7978:
7979: BEGIN
7980:
7973: -- for debug logging
7974: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'chk_securitization';
7975: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
7976: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
7977: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
7978:
7979: BEGIN
7980:
7981: IF (is_debug_procedure_on) THEN
7978:
7979: BEGIN
7980:
7981: IF (is_debug_procedure_on) THEN
7982: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
7983: END IF;
7984:
7985: IF (funcmode = 'RUN') THEN
7986:
8006: p_transaction_date => l_quote_accpt_date, -- rmunjulu EDAT Added
8007: p_call_origin => OKL_SECURITIZATION_PVT.G_TRX_REASON_EARLY_TERMINATION);
8008:
8009: IF (is_debug_statement_on) THEN
8010: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
8011: 'after call to OKL_AM_SECURITIZATION_PVT.process_securitized_streams :'||l_return_status);
8012: END IF;
8013:
8014: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8038: --
8039: END IF;
8040:
8041: IF (is_debug_procedure_on) THEN
8042: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8043: END IF;
8044:
8045: EXCEPTION
8046:
8046:
8047: WHEN API_ERROR THEN
8048:
8049: IF (is_debug_exception_on) THEN
8050: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
8051: END IF;
8052:
8053: -- rmunjulu EDAT
8054: IF get_quote_values_csr%ISOPEN THEN
8059: RAISE;
8060:
8061: WHEN OTHERS THEN
8062: IF (is_debug_exception_on) THEN
8063: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
8064: || sqlcode || ' , SQLERRM : ' || sqlerrm);
8065: END IF;
8066: -- rmunjulu EDAT
8067: IF get_quote_values_csr%ISOPEN THEN
8098: lx_qtev_rec OKL_TRX_QUOTES_PUB.qtev_rec_type;
8099: l_quote_status VARCHAR2(200) := 'DRAFTED';--'OKL_QUOTE_STATUS'
8100: -- for debug logging
8101: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_quote_drafted';
8102: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8103: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8104: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8105: BEGIN
8106:
8099: l_quote_status VARCHAR2(200) := 'DRAFTED';--'OKL_QUOTE_STATUS'
8100: -- for debug logging
8101: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_quote_drafted';
8102: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8103: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8104: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8105: BEGIN
8106:
8107: IF (is_debug_procedure_on) THEN
8100: -- for debug logging
8101: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'update_quote_drafted';
8102: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8103: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8104: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8105: BEGIN
8106:
8107: IF (is_debug_procedure_on) THEN
8108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8104: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8105: BEGIN
8106:
8107: IF (is_debug_procedure_on) THEN
8108: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8109: END IF;
8110:
8111: --
8112: -- RUN mode
8132: p_qtev_rec => lp_qtev_rec,
8133: x_qtev_rec => lx_qtev_rec);
8134:
8135: IF (is_debug_statement_on) THEN
8136: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
8137: 'after call to OKL_TRX_QUOTES_PUB.update_trx_quotes :'||l_return_status);
8138: END IF;
8139:
8140: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8165: --
8166: END IF;
8167:
8168: IF (is_debug_procedure_on) THEN
8169: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8170: END IF;
8171:
8172: EXCEPTION
8173: WHEN G_EXCEPTION THEN
8172: EXCEPTION
8173: WHEN G_EXCEPTION THEN
8174:
8175: IF (is_debug_exception_on) THEN
8176: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
8177: END IF;
8178:
8179: WF_CORE.context('OKL_AM_QUOTES_WF' , 'update_quote_status',
8180: itemtype, itemkey, actid, funcmode);
8180: itemtype, itemkey, actid, funcmode);
8181: RAISE;
8182: WHEN OTHERS THEN
8183: IF (is_debug_exception_on) THEN
8184: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
8185: || sqlcode || ' , SQLERRM : ' || sqlerrm);
8186: END IF;
8187:
8188: WF_CORE.context('OKL_AM_QUOTES_WF' , 'update_quote_status',
8231: p_token10_value IN VARCHAR2 DEFAULT NULL ) IS
8232:
8233: -- for debug logging
8234: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_message';
8235: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8236: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8237: BEGIN
8238:
8239: IF (is_debug_procedure_on) THEN
8232:
8233: -- for debug logging
8234: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'set_message';
8235: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8236: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8237: BEGIN
8238:
8239: IF (is_debug_procedure_on) THEN
8240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8236: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8237: BEGIN
8238:
8239: IF (is_debug_procedure_on) THEN
8240: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8241: END IF;
8242:
8243: FND_MESSAGE.set_name( P_APP_NAME, P_MSG_NAME);
8244:
8291: END IF;
8292:
8293: --FND_MSG_PUB.add;
8294: IF (is_debug_procedure_on) THEN
8295: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8296: END IF;
8297:
8298: END set_message;
8299:
8338: l_qtp_code VARCHAR2(30);
8339: l_roll_message_header VARCHAR2(350);
8340: -- for debug logging
8341: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_rollover_amount';
8342: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8343: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8344: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8345: BEGIN
8346:
8339: l_roll_message_header VARCHAR2(350);
8340: -- for debug logging
8341: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_rollover_amount';
8342: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8343: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8344: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8345: BEGIN
8346:
8347: IF (is_debug_procedure_on) THEN
8340: -- for debug logging
8341: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_rollover_amount';
8342: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8343: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8344: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8345: BEGIN
8346:
8347: IF (is_debug_procedure_on) THEN
8348: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8344: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8345: BEGIN
8346:
8347: IF (is_debug_procedure_on) THEN
8348: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8349: END IF;
8350:
8351: IF (funcmode = 'RUN') THEN
8352:
8424: RETURN;
8425: END IF;
8426:
8427: IF (is_debug_procedure_on) THEN
8428: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8429: END IF;
8430:
8431: EXCEPTION
8432:
8431: EXCEPTION
8432:
8433: WHEN OTHERS THEN
8434: IF (is_debug_exception_on) THEN
8435: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
8436: || sqlcode || ' , SQLERRM : ' || sqlerrm);
8437: END IF;
8438: IF c_qte_csr%ISOPEN THEN
8439: CLOSE c_qte_csr;
8488: l_noti_msg VARCHAR2(32000);
8489: l_currency_code VARCHAR2(200);
8490: -- for debug logging
8491: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_roll_notification';
8492: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8493: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8494:
8495: BEGIN
8496:
8489: l_currency_code VARCHAR2(200);
8490: -- for debug logging
8491: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'pop_roll_notification';
8492: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8493: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8494:
8495: BEGIN
8496:
8497: IF (is_debug_procedure_on) THEN
8494:
8495: BEGIN
8496:
8497: IF (is_debug_procedure_on) THEN
8498: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8499: END IF;
8500:
8501: --get the parameters from document id
8502: l_quote_id := TO_NUMBER(document_id);
8537: document := l_message;
8538: document_type := display_type;
8539:
8540: IF (is_debug_procedure_on) THEN
8541: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8542: END IF;
8543:
8544: RETURN;
8545: EXCEPTION
8545: EXCEPTION
8546: WHEN OTHERS THEN
8547:
8548: IF (is_debug_exception_on) THEN
8549: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
8550: || sqlcode || ' , SQLERRM : ' || sqlerrm);
8551: END IF;
8552:
8553: IF l_quote_csr%ISOPEN THEN
8577: l_repo_yn VARCHAR2(1);
8578: lx_return_sts VARCHAR2(1);
8579: -- for debug logging
8580: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_repo_quote';
8581: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8582: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8584: BEGIN
8585:
8578: lx_return_sts VARCHAR2(1);
8579: -- for debug logging
8580: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_repo_quote';
8581: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8582: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8584: BEGIN
8585:
8586: IF (is_debug_procedure_on) THEN
8579: -- for debug logging
8580: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'check_if_repo_quote';
8581: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8582: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8584: BEGIN
8585:
8586: IF (is_debug_procedure_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8583: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8584: BEGIN
8585:
8586: IF (is_debug_procedure_on) THEN
8587: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8588: END IF;
8589:
8590: IF (funcmode = 'RUN') THEN
8591: l_id := wf_engine.GetItemAttrText(itemtype => itemtype,
8608: RETURN;
8609: END IF;
8610:
8611: IF (is_debug_procedure_on) THEN
8612: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8613: END IF;
8614:
8615: EXCEPTION
8616: WHEN G_EXCEPTION THEN
8614:
8615: EXCEPTION
8616: WHEN G_EXCEPTION THEN
8617: IF (is_debug_exception_on) THEN
8618: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
8619: END IF;
8620: wf_core.context('OKL_AM_QUOTES_WF' , 'CHECK_IF_REPO_QUOTE', itemtype,
8621: itemkey, actid, funcmode);
8622: RAISE;
8621: itemkey, actid, funcmode);
8622: RAISE;
8623: WHEN OTHERS THEN
8624: IF (is_debug_exception_on) THEN
8625: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
8626: || sqlcode || ' , SQLERRM : ' || sqlerrm);
8627: END IF;
8628:
8629: wf_core.context('OKL_AM_QUOTES_WF' , 'CHECK_IF_REPO_QUOTE', itemtype,
8675: lp_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
8676: lx_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
8677: -- for debug logging
8678: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_repo_asset_return';
8679: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8680: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8681: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8682: /* Bug 6712322 start */
8683: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
8676: lx_artv_rec OKL_AM_ASSET_RETURN_PUB.artv_rec_type;
8677: -- for debug logging
8678: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_repo_asset_return';
8679: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8680: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8681: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8682: /* Bug 6712322 start */
8683: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
8684: l_asset_return_value NUMBER;
8677: -- for debug logging
8678: L_MODULE_NAME VARCHAR2(500) := G_MODULE_NAME||'create_repo_asset_return';
8679: is_debug_exception_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_EXCEPTION);
8680: is_debug_procedure_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_PROCEDURE);
8681: is_debug_statement_on boolean := OKL_DEBUG_PUB.Check_Log_On (l_module_name, G_LEVEL_STATEMENT);
8682: /* Bug 6712322 start */
8683: l_params OKL_EXECUTE_FORMULA_PUB.ctxt_val_tbl_type;
8684: l_asset_return_value NUMBER;
8685: /* Bug 6712322 end */
8693: /* Bug 6736148 end */
8694: BEGIN
8695:
8696: IF (is_debug_procedure_on) THEN
8697: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'Begin(+)');
8698: END IF;
8699:
8700: l_func_curr_code := okl_am_util_pvt.get_functional_currency;
8701:
8776: /* Bug 6736148 start */
8777: IF (l_assets.CURRENCY_CODE <> l_func_curr_code) THEN
8778:
8779: IF (is_debug_statement_on) THEN
8780: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'calling okl_accounting_util.convert_to_functional_currency');
8781: END IF;
8782:
8783: okl_accounting_util.convert_to_functional_currency(
8784: p_khr_id => l_contract_id,
8792: x_currency_conversion_date => lx_currency_conversion_date,
8793: x_converted_amount => lx_converted_amount );
8794:
8795: IF (is_debug_statement_on) THEN
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_accounting_util.convert_to_functional_currency, l_return_status: ' || l_return_status);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_contract_currency: ' || lx_contract_currency);
8798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_type: ' || lx_currency_conversion_type);
8799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_rate: ' || lx_currency_conversion_rate);
8800: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
8793: x_converted_amount => lx_converted_amount );
8794:
8795: IF (is_debug_statement_on) THEN
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_accounting_util.convert_to_functional_currency, l_return_status: ' || l_return_status);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_contract_currency: ' || lx_contract_currency);
8798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_type: ' || lx_currency_conversion_type);
8799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_rate: ' || lx_currency_conversion_rate);
8800: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
8801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
8794:
8795: IF (is_debug_statement_on) THEN
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_accounting_util.convert_to_functional_currency, l_return_status: ' || l_return_status);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_contract_currency: ' || lx_contract_currency);
8798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_type: ' || lx_currency_conversion_type);
8799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_rate: ' || lx_currency_conversion_rate);
8800: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
8801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
8802: END IF;
8795: IF (is_debug_statement_on) THEN
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_accounting_util.convert_to_functional_currency, l_return_status: ' || l_return_status);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_contract_currency: ' || lx_contract_currency);
8798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_type: ' || lx_currency_conversion_type);
8799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_rate: ' || lx_currency_conversion_rate);
8800: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
8801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
8802: END IF;
8803:
8796: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'called okl_accounting_util.convert_to_functional_currency, l_return_status: ' || l_return_status);
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_contract_currency: ' || lx_contract_currency);
8798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_type: ' || lx_currency_conversion_type);
8799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_rate: ' || lx_currency_conversion_rate);
8800: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
8801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
8802: END IF;
8803:
8804: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8797: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_contract_currency: ' || lx_contract_currency);
8798: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_type: ' || lx_currency_conversion_type);
8799: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_rate: ' || lx_currency_conversion_rate);
8800: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_currency_conversion_date: ' || lx_currency_conversion_date);
8801: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,l_module_name, 'lx_converted_amount: ' || lx_converted_amount);
8802: END IF;
8803:
8804: IF (l_return_status = OKL_API.G_RET_STS_UNEXP_ERROR) THEN
8805: RAISE OKL_API.G_EXCEPTION_UNEXPECTED_ERROR;
8824: x_artv_rec => lx_artv_rec,
8825: p_quote_id => l_id) ;
8826:
8827: IF (is_debug_statement_on) THEN
8828: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_STATEMENT,L_MODULE_NAME,
8829: 'after call to OKL_AM_ASSET_RETURN_PVT.create_asset_return :'||l_return_status);
8830: END IF;
8831:
8832: IF l_return_status <> OKL_API.G_RET_STS_SUCCESS THEN
8863: END IF;
8864:
8865:
8866: IF (is_debug_procedure_on) THEN
8867: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_PROCEDURE,L_MODULE_NAME,'End(-)');
8868: END IF;
8869:
8870: EXCEPTION
8871: WHEN G_EXCEPTION THEN
8870: EXCEPTION
8871: WHEN G_EXCEPTION THEN
8872:
8873: IF (is_debug_exception_on) THEN
8874: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'USER DEFINED');
8875: END IF;
8876:
8877: IF c_quote_assets_csr%ISOPEN THEN
8878: CLOSE c_quote_assets_csr;
8887:
8888: WHEN OTHERS THEN
8889:
8890: IF (is_debug_exception_on) THEN
8891: OKL_DEBUG_PUB.LOG_DEBUG(G_LEVEL_EXCEPTION,L_MODULE_NAME, 'EXCEPTION :'||'OTHERS, SQLCODE: '
8892: || sqlcode || ' , SQLERRM : ' || sqlerrm);
8893: END IF;
8894:
8895: IF c_quote_assets_csr%ISOPEN THEN