284: ,actid IN NUMBER
285: ,funcmode IN VARCHAR2
286: ,resultout OUT NOCOPY VARCHAR2) IS
287: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'process_pool_ame';
288: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.PROCESS_POOL_AME';
289: l_debug_enabled VARCHAR2(10);
290: is_debug_procedure_on BOOLEAN;
291:
292: BEGIN
290: is_debug_procedure_on BOOLEAN;
291:
292: BEGIN
293: l_debug_enabled := okl_debug_pub.check_log_enabled;
294: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
295: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
296: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call process_pool_ame');
297: END IF;
298:
292: BEGIN
293: l_debug_enabled := okl_debug_pub.check_log_enabled;
294: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
295: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
296: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call process_pool_ame');
297: END IF;
298:
299: -- RUN mode
300: IF(funcmode = 'RUN')THEN
334: RETURN;
335: END IF;
336:
337: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
338: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call process_pool_ame');
339: END IF;
340: EXCEPTION
341: WHEN OTHERS THEN
342: wf_core.context(G_PKG_NAME , l_api_name, itemtype, itemkey, actid, funcmode);
348: ,actid IN NUMBER
349: ,funcmode IN VARCHAR2
350: ,resultout OUT NOCOPY VARCHAR2) IS
351: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'process_pool_line_ame';
352: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.PROCESS_POOL_LINE_AME';
353: l_debug_enabled VARCHAR2(10);
354: is_debug_procedure_on BOOLEAN;
355: BEGIN
356: l_debug_enabled := okl_debug_pub.check_log_enabled;
353: l_debug_enabled VARCHAR2(10);
354: is_debug_procedure_on BOOLEAN;
355: BEGIN
356: l_debug_enabled := okl_debug_pub.check_log_enabled;
357: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
358: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
359: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call process_pool_line_ame');
360: END IF;
361:
355: BEGIN
356: l_debug_enabled := okl_debug_pub.check_log_enabled;
357: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
358: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
359: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call process_pool_line_ame');
360: END IF;
361:
362: -- RUN mode
363: IF(funcmode = 'RUN')THEN
395: resultout := 'COMPLETE:';
396: RETURN;
397: END IF;
398: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
399: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call process_pool_line_ame');
400: END IF;
401:
402: EXCEPTION
403: WHEN OTHERS THEN
462: x_msg_data VARCHAR2(1000);
463: x_msg_count NUMBER;
464: lv_decision_status_code fnd_lookups.lookup_code%TYPE;
465: l_api_name CONSTANT VARCHAR2(60) DEFAULT 'update_pool_status';
466: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.UPDATE_POOL_APPROVAL_STATUS';
467: l_debug_enabled VARCHAR2(10);
468: is_debug_procedure_on BOOLEAN;
469: is_debug_statement_on BOOLEAN;
470:
469: is_debug_statement_on BOOLEAN;
470:
471: BEGIN
472: l_debug_enabled := okl_debug_pub.check_log_enabled;
473: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
474: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
475: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call update_pool_approval_status');
476: END IF;
477:
471: BEGIN
472: l_debug_enabled := okl_debug_pub.check_log_enabled;
473: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
474: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
475: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call update_pool_approval_status');
476: END IF;
477:
478: -- check for logging on STATEMENT level
479: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
475: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call update_pool_approval_status');
476: END IF;
477:
478: -- check for logging on STATEMENT level
479: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
480:
481: IF(funcmode = 'RUN')THEN
482: lv_approval_status := wf_engine.GetItemAttrText(itemtype => itemtype,
483: itemkey => itemkey,
508: ,p_total_budget_amt => lv_total_budget
509: );
510: -- write to log
511: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
512: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
513: l_module,
514: 'okl_subsidy_pool_pvt.update_total_budget with total budget amount '||lv_total_budget||
515: ' returned with status '||x_return_status ||' x_msg_data '||x_msg_data
516: );
531: ,p_decision_status_code => lv_decision_status_code
532: );
533: -- write to log
534: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
535: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
536: l_module,
537: 'okl_subsidy_pool_budget_pvt.set_decision_status_code to '||lv_decision_status_code||' lv_budget_line_id '||lv_budget_line_id ||
538: ' returned with status '||x_return_status ||' x_msg_data '||x_msg_data
539: );
553: ,p_subsidy_pool_id => lv_subsidy_pool_id
554: ,p_decision_status_code => lv_decision_status_code);
555: -- write to log
556: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
557: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
558: l_module,
559: 'okl_subsidy_pool_pvt.set_decision_status_code to '||lv_decision_status_code||' lv_subsidy_pool_id '||lv_subsidy_pool_id ||
560: ' returned with status '||x_return_status ||' x_msg_data '||x_msg_data
561: );
578: ,p_decision_status_code => lv_decision_status_code
579: );
580: -- write to log
581: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
582: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
583: l_module,
584: 'okl_subsidy_pool_budget_pvt.set_decision_status_code to '||lv_decision_status_code||' lv_budget_line_id '||lv_budget_line_id ||
585: ' returned with status '||x_return_status ||' x_msg_data '||x_msg_data
586: );
599: ,p_subsidy_pool_id => lv_subsidy_pool_id
600: ,p_decision_status_code => lv_decision_status_code);
601: -- write to log
602: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
603: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
604: l_module,
605: 'okl_subsidy_pool_pvt.set_decision_status_code to '||lv_decision_status_code||' lv_subsidy_pool_id '||lv_subsidy_pool_id ||
606: ' returned with status '||x_return_status ||' x_msg_data '||x_msg_data
607: );
628: resultout := 'COMPLETE:';
629: RETURN;
630: END IF;
631: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
632: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call update_pool_approval_status');
633: END IF;
634:
635: EXCEPTION
636: WHEN OKL_API.G_EXCEPTION_ERROR THEN
680: x_return_status VARCHAR2(10);
681: x_msg_data VARCHAR2(1000);
682: x_msg_count NUMBER;
683: l_api_name CONSTANT VARCHAR2(60) DEFAULT 'update_line_status';
684: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.UPDATE_LINE_APPROVAL_STATUS';
685: l_debug_enabled VARCHAR2(10);
686: is_debug_procedure_on BOOLEAN;
687: is_debug_statement_on BOOLEAN;
688: BEGIN
686: is_debug_procedure_on BOOLEAN;
687: is_debug_statement_on BOOLEAN;
688: BEGIN
689: l_debug_enabled := okl_debug_pub.check_log_enabled;
690: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
691: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
692: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call update_line_approval_status');
693: END IF;
694:
688: BEGIN
689: l_debug_enabled := okl_debug_pub.check_log_enabled;
690: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
691: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
692: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call update_line_approval_status');
693: END IF;
694:
695: -- RUN mode
696: IF(funcmode = 'RUN')THEN
694:
695: -- RUN mode
696: IF(funcmode = 'RUN')THEN
697: -- check for logging on STATEMENT level
698: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
699:
700: lv_approval_status := wf_engine.GetItemAttrText(itemtype => itemtype,
701: itemkey => itemkey,
702: aname => G_WF_ITM_RESULT);
738: ,p_total_budget_amt => lv_total_budget
739: );
740: -- write to log
741: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
742: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
743: l_module,
744: 'okl_subsidy_pool_pvt.update_total_budget of budget amount '||lv_total_budget||' returned with status '||x_return_status||
745: ' x_msg_data '||x_msg_data
746: );
762: ,p_decision_status_code => lv_decision_status_code
763: );
764: -- write to log
765: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
766: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
767: l_module,
768: 'okl_subsidy_pool_budget_pvt.set_decision_status_code code '||lv_decision_status_code||' returned with status '||x_return_status||
769: ' x_msg_data '||x_msg_data
770: );
788: ,p_total_budget_amt => lv_total_budget
789: );
790: -- write to log
791: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
792: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
793: l_module,
794: 'okl_subsidy_pool_pvt.update_total_budget budget '||lv_total_budget||' returned with status '||x_return_status||
795: ' x_msg_data '||x_msg_data
796: );
812: ,p_decision_status_code => lv_decision_status_code
813: );
814: -- write to log
815: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
816: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
817: l_module,
818: 'okl_subsidy_pool_budget_pvt.set_decision_status_code code '||lv_decision_status_code||' returned with status '||x_return_status||
819: ' x_msg_data '||x_msg_data
820: );
843: RETURN;
844: END IF;
845:
846: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
847: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call update_line_approval_status');
848: END IF;
849:
850: EXCEPTION
851: WHEN OKL_API.G_EXCEPTION_ERROR THEN
897: lv_pool_description okl_subsidy_pools_v.short_description%TYPE;
898: lv_requestor VARCHAR2(100);
899: lv_budget_type fnd_lookups.meaning%TYPE;
900:
901: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.GET_SUBSIDY_POOL_APPROVER';
902: l_debug_enabled VARCHAR2(10);
903: is_debug_procedure_on BOOLEAN;
904: is_debug_statement_on BOOLEAN; -- not using this as of now
905:
904: is_debug_statement_on BOOLEAN; -- not using this as of now
905:
906: BEGIN
907: l_debug_enabled := okl_debug_pub.check_log_enabled;
908: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
909: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
910: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call get_subsidy_pool_approver');
911: END IF;
912:
906: BEGIN
907: l_debug_enabled := okl_debug_pub.check_log_enabled;
908: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
909: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
910: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call get_subsidy_pool_approver');
911: END IF;
912:
913: IF(funcmode = 'RUN')THEN
914: l_user_id := wf_engine.GetItemAttrText(itemtype => itemtype,
1009: RETURN;
1010: END IF; -- funcmode
1011:
1012: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1013: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call get_subsidy_pool_approver');
1014: END IF;
1015:
1016: EXCEPTION
1017: WHEN OTHERS THEN
1035: lv_approver VARCHAR2(100);
1036: lv_budget_type fnd_lookups.meaning%TYPE;
1037: l_api_name CONSTANT VARCHAR2(30) DEFAULT 'set_msg_attributes';
1038:
1039: l_module CONSTANT fnd_log_messages.module%TYPE DEFAULT'okl.plsql.OKL_SUBSIDY_POOL_WF.SET_MSG_ATTRIBUTES';
1040: l_debug_enabled VARCHAR2(10);
1041: is_debug_procedure_on BOOLEAN;
1042:
1043: BEGIN
1042:
1043: BEGIN
1044:
1045: l_debug_enabled := okl_debug_pub.check_log_enabled;
1046: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1047: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1048: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call set_msg_attributes');
1049: END IF;
1050:
1044:
1045: l_debug_enabled := okl_debug_pub.check_log_enabled;
1046: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1047: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1048: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call set_msg_attributes');
1049: END IF;
1050:
1051: -- RUN mode
1052: IF(funcmode = 'RUN')THEN
1262: RETURN;
1263: END IF;
1264:
1265: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1266: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call set_msg_attributes');
1267: END IF;
1268:
1269: EXCEPTION
1270: WHEN OTHERS THEN
1327: l_application_id fnd_application.application_id%TYPE;
1328: l_trans_appl_id ame_calling_apps.application_id%TYPE;
1329: l_trans_type_id ame_calling_apps.transaction_type_id%TYPE;
1330:
1331: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.RAISE_POOL_EVENT_APPROVAL';
1332: l_debug_enabled VARCHAR2(10);
1333: is_debug_procedure_on BOOLEAN;
1334: is_debug_statement_on BOOLEAN;
1335:
1334: is_debug_statement_on BOOLEAN;
1335:
1336: BEGIN
1337: l_debug_enabled := okl_debug_pub.check_log_enabled;
1338: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1339: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1340: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call raise_pool_event_approval');
1341: END IF;
1342:
1336: BEGIN
1337: l_debug_enabled := okl_debug_pub.check_log_enabled;
1338: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1339: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1340: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call raise_pool_event_approval');
1341: END IF;
1342:
1343: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1344: -- Call start_activity to create savepoint, check compatibility and initialize message list
1353: RAISE OKL_API.G_EXCEPTION_ERROR;
1354: END IF;
1355:
1356: -- check for logging on STATEMENT level
1357: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1358:
1359: l_get_agent(p_user_id => fnd_global.user_id
1360: ,x_return_status => x_return_status
1361: ,x_name => l_requester
1361: ,x_name => l_requester
1362: ,x_description => l_name);
1363: -- write to log
1364: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1365: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1366: l_module,
1367: 'l_get_agent return staus '||x_return_status||' l_requester '||l_requester||' l_name '||l_name
1368: );
1369: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1405: wf_event.AddParameterToList(G_WF_ITM_TRANSACTION_TYPE_ID,l_trans_type_id,l_parameter_list);
1406: END IF;
1407: -- write to log
1408: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1409: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1410: l_module,
1411: 'l_approval_option '||l_approval_option||' raising budget line approval event '
1412: );
1413: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1414:
1415: ELSIF(l_approval_option = G_SUBSIDY_POOL_APPROVAL_WF)THEN
1416: -- write to log
1417: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1418: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1419: l_module,
1420: 'l_approval_option '||l_approval_option||' raising budget line approval event '
1421: );
1422: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1451:
1452: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
1453:
1454: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1455: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call raise_pool_event_approval');
1456: END IF;
1457:
1458: EXCEPTION
1459: WHEN OKL_API.G_EXCEPTION_ERROR THEN
1539: l_application_id fnd_application.application_id%TYPE;
1540: l_trans_appl_id ame_calling_apps.application_id%TYPE;
1541: l_trans_type_id ame_calling_apps.transaction_type_id%TYPE;
1542:
1543: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.RAISE_BUDGET_EVENT_APPROVAL';
1544: l_debug_enabled VARCHAR2(10);
1545: is_debug_procedure_on BOOLEAN;
1546: is_debug_statement_on BOOLEAN;
1547: BEGIN
1545: is_debug_procedure_on BOOLEAN;
1546: is_debug_statement_on BOOLEAN;
1547: BEGIN
1548: l_debug_enabled := okl_debug_pub.check_log_enabled;
1549: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1550: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1551: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call raise_budget_event_approval');
1552: END IF;
1553: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1547: BEGIN
1548: l_debug_enabled := okl_debug_pub.check_log_enabled;
1549: is_debug_procedure_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_PROCEDURE);
1550: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1551: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'begin debug OKLRBWFB.pls call raise_budget_event_approval');
1552: END IF;
1553: x_return_status := OKL_API.G_RET_STS_SUCCESS;
1554: -- Call start_activity to create savepoint, check compatibility and initialize message list
1555: x_return_status := OKL_API.START_ACTIVITY(l_api_name,
1563: RAISE OKL_API.G_EXCEPTION_ERROR;
1564: END IF;
1565:
1566: -- check for logging on STATEMENT level
1567: is_debug_statement_on := okl_debug_pub.check_log_on(l_module,FND_LOG.LEVEL_STATEMENT);
1568:
1569: l_get_agent(p_user_id => fnd_global.user_id
1570: ,x_return_status => x_return_status
1571: ,x_name => l_requester
1571: ,x_name => l_requester
1572: ,x_description => l_name);
1573: -- write to log
1574: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1575: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1576: l_module,
1577: 'l_get_agent return staus '||x_return_status||' l_requester '||l_requester||' l_name '||l_name
1578: );
1579: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1615: wf_event.AddParameterToList(G_WF_ITM_TRANSACTION_TYPE_ID,l_trans_type_id,l_parameter_list);
1616: END IF;
1617: -- write to log
1618: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1619: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1620: l_module,
1621: 'l_approval_option '||l_approval_option||' raising budget line approval event '
1622: );
1623: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1624:
1625: ELSIF(l_approval_option = G_SUBSIDY_POOL_APPROVAL_WF)THEN
1626: -- write to log
1627: IF(NVL(l_debug_enabled,'N')='Y' AND is_debug_statement_on) THEN
1628: okl_debug_pub.log_debug(FND_LOG.LEVEL_STATEMENT,
1629: l_module,
1630: 'l_approval_option '||l_approval_option||' raising budget line approval event '
1631: );
1632: END IF; -- end of NVL(l_debug_enabled,'N')='Y'
1664: END IF;
1665:
1666: OKL_API.END_ACTIVITY(x_msg_count => x_msg_count,x_msg_data => x_msg_data);
1667: IF(l_debug_enabled='Y' AND is_debug_procedure_on) THEN
1668: okl_debug_pub.log_debug(FND_LOG.LEVEL_PROCEDURE,l_module,'end debug OKLRBWFB.pls call raise_budget_event_approval');
1669: END IF;
1670:
1671: EXCEPTION
1672: WHEN OKL_API.G_EXCEPTION_ERROR THEN