[Home] [Help]
1: PACKAGE BODY okl_subsidy_pool_wf AS
2: /* $Header: OKLRSWFB.pls 120.2 2006/09/28 06:04:57 zrehman noship $ */
3:
4: G_NO_MATCHING_RECORD CONSTANT fnd_new_messages.message_name%TYPE DEFAULT 'OKL_LLA_NO_MATCHING_RECORD';
5: G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
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
309: -- OKL_SUB_POOL_REQ_APPROVAL_BOD (TOTAL_BUDGET, CURR, FROM_DATE, TO_DATE, POOL_DESCR, REQUESTOR) G_WF_ITM_MESSAGE_BODY
310: wf_engine.SetItemAttrText(itemtype => itemtype,
311: itemkey => itemkey,
312: aname => G_WF_ITM_MESSAGE_BODY,
313: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_msg_doc/'||itemkey
314: );
315:
316: wf_engine.SetItemAttrText(itemtype => itemtype,
317: itemkey => itemkey,
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;
372: -- OKL_SUB_LINE_REQ_APPROVAL_BOD (BUDGET, FROM_DATE, NAME, REQUESTOR)
373: wf_engine.SetItemAttrText(itemtype => itemtype,
374: itemkey => itemkey,
375: aname => G_WF_ITM_MESSAGE_BODY,
376: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_line_msg_doc/'||itemkey
377: );
378:
379: wf_engine.SetItemAttrText(itemtype => itemtype,
380: itemkey => itemkey,
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:
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
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:
961: -- OKL_SUB_POOL_REQ_APPROVAL_BOD (TOTAL_BUDGET, CURR, FROM_DATE, TO_DATE, POOL_DESCR, REQUESTOR) G_WF_ITM_MESSAGE_BODY
962: wf_engine.SetItemAttrText (itemtype => itemtype,
963: itemkey => itemkey,
964: aname => G_WF_ITM_MESSAGE_BODY,
965: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_msg_doc/'||itemkey
966: );
967:
968: ELSIF(G_POOL_BUDGET_APPROVAL_EVENT = lv_receiving_event)THEN
969: -- prepare the message subject and message body for subsidy pool budget line approval
991: -- OKL_SUB_LINE_REQ_APPROVAL_BOD (BUDGET, FROM_DATE, NAME, REQUESTOR)
992: wf_engine.SetItemAttrText (itemtype => itemtype,
993: itemkey => itemkey,
994: aname => G_WF_ITM_MESSAGE_BODY,
995: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_line_msg_doc/'||itemkey
996: );
997:
998: END IF;
999: resultout := 'COMPLETE:Y';
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
1110:
1111: wf_engine.SetItemAttrText (itemtype => itemtype,
1112: itemkey => itemkey,
1113: aname => G_WF_ITM_MESSAGE_BODY,
1114: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_msg_doc/'||itemkey);
1115:
1116: ELSIF(G_POOL_BUDGET_APPROVAL_EVENT = lv_receiving_event)THEN
1117: -- prepare the message subject and message body for subsidy pool budget line approval
1118: -- OKL_SUB_LINE_REQ_APPROVED_SUB (BUDGET, CURR)
1153:
1154: wf_engine.SetItemAttrText (itemtype => itemtype,
1155: itemkey => itemkey,
1156: aname => G_WF_ITM_MESSAGE_BODY,
1157: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_line_msg_doc/'||itemkey);
1158: END IF;
1159: resultout := 'COMPLETE:';
1160: ELSIF(G_WF_ITM_APPROVED_YN_NO = lv_approval_status)THEN
1161: IF(lv_receiving_event = G_POOL_APPROVAL_EVENT)THEN
1198:
1199: wf_engine.SetItemAttrText (itemtype => itemtype,
1200: itemkey => itemkey,
1201: aname => G_WF_ITM_MESSAGE_BODY,
1202: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_msg_doc/'||itemkey);
1203:
1204: ELSIF(G_POOL_BUDGET_APPROVAL_EVENT = lv_receiving_event)THEN
1205: -- prepare the message subject and message body for subsidy pool budget line approval
1206: -- OKL_SUB_LINE_REQ_REJECT_SUB (BUDGET, CURR)
1241:
1242: wf_engine.SetItemAttrText (itemtype => itemtype,
1243: itemkey => itemkey,
1244: aname => G_WF_ITM_MESSAGE_BODY,
1245: avalue => 'plsql:okl_subsidy_pool_wf.get_pool_line_msg_doc/'||itemkey);
1246: END IF;
1247: resultout := 'COMPLETE:';
1248: ELSE
1249: NULL; -- status other than approval or rejected, no operation
1325: l_application_id fnd_application.application_id%TYPE;
1326: l_trans_appl_id ame_calling_apps.application_id%TYPE;
1327: l_trans_type_id ame_calling_apps.transaction_type_id%TYPE;
1328:
1329: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.RAISE_POOL_EVENT_APPROVAL';
1330: l_debug_enabled VARCHAR2(10);
1331: is_debug_procedure_on BOOLEAN;
1332: is_debug_statement_on BOOLEAN;
1333:
1535: l_application_id fnd_application.application_id%TYPE;
1536: l_trans_appl_id ame_calling_apps.application_id%TYPE;
1537: l_trans_type_id ame_calling_apps.transaction_type_id%TYPE;
1538:
1539: l_module CONSTANT fnd_log_messages.module%TYPE := 'okl.plsql.OKL_SUBSIDY_POOL_WF.RAISE_BUDGET_EVENT_APPROVAL';
1540: l_debug_enabled VARCHAR2(10);
1541: is_debug_procedure_on BOOLEAN;
1542: is_debug_statement_on BOOLEAN;
1543: BEGIN
1691: x_msg_data => x_msg_data,
1692: p_api_type => G_API_TYPE);
1693: END raise_budget_event_approval;
1694:
1695: END okl_subsidy_pool_wf;