[Home] [Help]
123: lv_pool_description okl_subsidy_pools_v.short_description%TYPE;
124: lv_requestor VARCHAR2(100);
125: lv_message_body VARCHAR2(4000);
126: BEGIN
127: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
128: itemkey => itemkey,
129: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
130:
131: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
127: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
128: itemkey => itemkey,
129: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
130:
131: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
132: itemkey => itemkey,
133: aname => G_WF_ITM_REQUESTOR);
134:
135: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
131: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
132: itemkey => itemkey,
133: aname => G_WF_ITM_REQUESTOR);
134:
135: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
136: itemkey => itemkey,
137: aname => G_WF_ITM_POOL_CURRENCY);
138:
139: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
135: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
136: itemkey => itemkey,
137: aname => G_WF_ITM_POOL_CURRENCY);
138:
139: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
140: itemkey => itemkey,
141: aname => G_WF_ITM_FROM_DATE);
142: lv_from_date := to_date(lv_from_date,'DD/MM/RRRR');
143:
140: itemkey => itemkey,
141: aname => G_WF_ITM_FROM_DATE);
142: lv_from_date := to_date(lv_from_date,'DD/MM/RRRR');
143:
144: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
145: itemkey => itemkey,
146: aname => G_WF_ITM_TO_DATE);
147:
148: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
144: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
145: itemkey => itemkey,
146: aname => G_WF_ITM_TO_DATE);
147:
148: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
149: itemkey => itemkey,
150: aname => G_WF_ITM_POOL_DESCR);
151: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
152: itemkey => itemkey,
147:
148: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
149: itemkey => itemkey,
150: aname => G_WF_ITM_POOL_DESCR);
151: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
152: itemkey => itemkey,
153: aname => G_WF_ITM_TOTAL_BUDGETS);
154: -- format this amount
155: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
171: lv_requestor VARCHAR2(100);
172: lv_budget_type fnd_lookups.meaning%TYPE;
173: lv_message_body VARCHAR2(4000);
174: BEGIN
175: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
176: itemkey => itemkey,
177: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
178:
179: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
175: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
176: itemkey => itemkey,
177: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
178:
179: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
180: itemkey => itemkey,
181: aname => G_WF_ITM_REQUESTOR);
182:
183: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
179: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
180: itemkey => itemkey,
181: aname => G_WF_ITM_REQUESTOR);
182:
183: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
184: itemkey => itemkey,
185: aname => G_WF_ITM_POOL_CURRENCY);
186:
187: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
183: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
184: itemkey => itemkey,
185: aname => G_WF_ITM_POOL_CURRENCY);
186:
187: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
188: itemkey => itemkey,
189: aname => G_WF_ITM_BUDGET_FROM_DATE);
190:
191: lv_from_date := to_date(lv_from_date,'DD/MM/RRRR');
189: aname => G_WF_ITM_BUDGET_FROM_DATE);
190:
191: lv_from_date := to_date(lv_from_date,'DD/MM/RRRR');
192:
193: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
194: itemkey => itemkey,
195: aname => G_WF_ITM_BUDGET_AMOUNT);
196: -- format this amount
197: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
194: itemkey => itemkey,
195: aname => G_WF_ITM_BUDGET_AMOUNT);
196: -- format this amount
197: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
198: lv_budget_type := wf_engine.GetItemAttrText(itemtype => itemtype,
199: itemkey => itemkey,
200: aname => G_WF_ITM_BUDGET_TYPE);
201: lv_budget_type := okl_accounting_util.get_lookup_meaning('OKL_SUB_POOL_LINE_TYPE',lv_budget_type);
202:
219: lv_total_budget VARCHAR2(200);
220: lv_currency_code okl_subsidy_pools_b.currency_code%TYPE;
221:
222: BEGIN
223: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
224: itemkey => itemkey,
225: aname => G_WF_ITM_POOL_CURRENCY);
226:
227: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
223: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
224: itemkey => itemkey,
225: aname => G_WF_ITM_POOL_CURRENCY);
226:
227: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
228: itemkey => itemkey,
229: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
230: IF('POOL' = pool_or_line)THEN
231: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
227: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
228: itemkey => itemkey,
229: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
230: IF('POOL' = pool_or_line)THEN
231: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
232: itemkey => itemkey,
233: aname => G_WF_ITM_TOTAL_BUDGETS);
234: ELSIF('BUDGET' = pool_or_line)THEN
235: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
231: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
232: itemkey => itemkey,
233: aname => G_WF_ITM_TOTAL_BUDGETS);
234: ELSIF('BUDGET' = pool_or_line)THEN
235: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
236: itemkey => itemkey,
237: aname => G_WF_ITM_BUDGET_AMOUNT);
238: END IF;
239: -- format this amount
248: fnd_message.set_token('BUDGET', lv_total_budget);
249: END IF;
250:
251: fnd_message.set_token('CURR', lv_currency_code);
252: wf_engine.SetItemAttrText(itemtype => itemtype,
253: itemkey => itemkey,
254: aname => attrib,
255: avalue => fnd_message.get
256: );
306: set_attrib_message(itemtype, itemkey, 'OKL_SUB_POOL_REQ_REJECT_SUB', G_WF_ITM_APP_REJECTED_SUB, 'POOL');
307: set_attrib_message(itemtype, itemkey, 'OKL_SUB_POOL_REQ_REJECT_SUB', G_WF_ITM_APP_REJECTED_HEAD, 'POOL');
308:
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: );
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,
318: aname => G_WF_ITM_MESSAGE_DESCR,
319: avalue => get_pool_msg_body(itemtype, itemkey)
320: );
369: set_attrib_message(itemtype, itemkey, 'OKL_SUB_LINE_REQ_REJECT_SUB', G_WF_ITM_APP_REJECTED_SUB, 'BUDGET');
370: set_attrib_message(itemtype, itemkey, 'OKL_SUB_LINE_REQ_REJECT_SUB', G_WF_ITM_APP_REJECTED_HEAD, 'BUDGET');
371:
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: );
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,
381: aname => G_WF_ITM_MESSAGE_DESCR,
382: avalue => get_pool_line_msg_body(itemtype, itemkey)
383: );
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,
484: aname => G_WF_ITM_RESULT);
485:
486: lv_approval_status_ame := wf_engine.GetItemAttrText(itemtype => itemtype,
482: lv_approval_status := wf_engine.GetItemAttrText(itemtype => itemtype,
483: itemkey => itemkey,
484: aname => G_WF_ITM_RESULT);
485:
486: lv_approval_status_ame := wf_engine.GetItemAttrText(itemtype => itemtype,
487: itemkey => itemkey,
488: aname => 'APPROVED_YN');
489: -- get the subsidy pool id here, this can be used for case or approval or rejected also
490: lv_subsidy_pool_id := wf_engine.GetItemAttrText(itemtype => itemtype,
486: lv_approval_status_ame := wf_engine.GetItemAttrText(itemtype => itemtype,
487: itemkey => itemkey,
488: aname => 'APPROVED_YN');
489: -- get the subsidy pool id here, this can be used for case or approval or rejected also
490: lv_subsidy_pool_id := wf_engine.GetItemAttrText(itemtype => itemtype,
491: itemkey => itemkey,
492: aname => G_WF_ITM_SUBSIDY_POOL_ID);
493: -- also get the budget line id, since this is pool approval, there will be only one budget line for
494: -- the pool in context.
495: OPEN c_get_bud_line_csr(cp_subsidy_pool_id => lv_subsidy_pool_id); FETCH c_get_bud_line_csr INTO lv_budget_line_id;
496: CLOSE c_get_bud_line_csr;
497:
498: IF(G_WF_ITM_APPROVED_YN_YES = lv_approval_status OR lv_approval_status_ame = 'Y')THEN
499: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
500: itemkey => itemkey,
501: aname => G_WF_ITM_TOTAL_BUDGETS);
502: okl_subsidy_pool_pvt.update_total_budget(p_api_version => '1.0'
503: ,p_init_msg_list => OKL_API.G_TRUE
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);
703:
704: lv_approval_status_ame := wf_engine.GetItemAttrText(itemtype => itemtype,
700: lv_approval_status := wf_engine.GetItemAttrText(itemtype => itemtype,
701: itemkey => itemkey,
702: aname => G_WF_ITM_RESULT);
703:
704: lv_approval_status_ame := wf_engine.GetItemAttrText(itemtype => itemtype,
705: itemkey => itemkey,
706: aname => 'APPROVED_YN');
707:
708:
705: itemkey => itemkey,
706: aname => 'APPROVED_YN');
707:
708:
709: lv_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
710: itemkey => itemkey,
711: aname => G_WF_ITM_BUDGET_TYPE);
712:
713: lv_line_amount := wf_engine.GetItemAttrText(itemtype => itemtype,
709: lv_budget_type_code := wf_engine.GetItemAttrText(itemtype => itemtype,
710: itemkey => itemkey,
711: aname => G_WF_ITM_BUDGET_TYPE);
712:
713: lv_line_amount := wf_engine.GetItemAttrText(itemtype => itemtype,
714: itemkey => itemkey,
715: aname => G_WF_ITM_BUDGET_AMOUNT);
716: -- get the subsidy pool id here, this can be used for case or approval or rejected also
717: lv_subsidy_pool_id := wf_engine.GetItemAttrText(itemtype => itemtype,
713: lv_line_amount := wf_engine.GetItemAttrText(itemtype => itemtype,
714: itemkey => itemkey,
715: aname => G_WF_ITM_BUDGET_AMOUNT);
716: -- get the subsidy pool id here, this can be used for case or approval or rejected also
717: lv_subsidy_pool_id := wf_engine.GetItemAttrText(itemtype => itemtype,
718: itemkey => itemkey,
719: aname => G_WF_ITM_SUBSIDY_POOL_ID);
720: OPEN c_get_total_budget_csr(cp_subsidy_pool_id => lv_subsidy_pool_id);
721: FETCH c_get_total_budget_csr INTO lv_total_budget;
719: aname => G_WF_ITM_SUBSIDY_POOL_ID);
720: OPEN c_get_total_budget_csr(cp_subsidy_pool_id => lv_subsidy_pool_id);
721: FETCH c_get_total_budget_csr INTO lv_total_budget;
722: CLOSE c_get_total_budget_csr;
723: lv_budget_line_id := wf_engine.GetItemAttrText(itemtype => itemtype,
724: itemkey => itemkey,
725: aname => G_WF_ITM_BUDGET_ID);
726:
727: IF(G_WF_ITM_APPROVED_YN_YES = lv_approval_status OR lv_approval_status_ame = 'Y')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,
915: itemkey => itemkey,
916: aname => G_WF_ITM_REQUESTOR_ID);
917:
918: lv_receiving_event := wf_engine.GetItemAttrText(itemtype => itemtype,
914: l_user_id := wf_engine.GetItemAttrText(itemtype => itemtype,
915: itemkey => itemkey,
916: aname => G_WF_ITM_REQUESTOR_ID);
917:
918: lv_receiving_event := wf_engine.GetItemAttrText(itemtype => itemtype,
919: itemkey => itemkey,
920: aname => 'LAUNCHING_EVENT');
921:
922: resultout := 'COMPLETE:N'; -- default
921:
922: resultout := 'COMPLETE:N'; -- default
923: IF l_user_id IS NOT NULL THEN
924: FOR l_fnd_users_rec IN l_fnd_users_csr(l_user_id) LOOP
925: wf_engine.SetItemAttrText (itemtype => itemtype,
926: itemkey => itemkey,
927: aname => G_WF_ITM_APPROVER,
928: avalue => l_fnd_users_rec.user_name);
929:
926: itemkey => itemkey,
927: aname => G_WF_ITM_APPROVER,
928: avalue => l_fnd_users_rec.user_name);
929:
930: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
931: itemkey => itemkey,
932: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
933:
934: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
930: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
931: itemkey => itemkey,
932: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
933:
934: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
935: itemkey => itemkey,
936: aname => G_WF_ITM_REQUESTOR);
937:
938: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
934: lv_requestor := wf_engine.GetItemAttrText(itemtype => itemtype,
935: itemkey => itemkey,
936: aname => G_WF_ITM_REQUESTOR);
937:
938: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
939: itemkey => itemkey,
940: aname => G_WF_ITM_POOL_CURRENCY);
941:
942: IF(lv_receiving_event = G_POOL_APPROVAL_EVENT)THEN
941:
942: IF(lv_receiving_event = G_POOL_APPROVAL_EVENT)THEN
943: -- prepare the message subject and message body for subsidy pool approval
944: -- OKL_SUB_POOL_REQ_APPROVAL_SUB (NAME, TOTAL_BUDGET, CURR)
945: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
946: itemkey => itemkey,
947: aname => G_WF_ITM_TOTAL_BUDGETS);
948: -- format this amount
949: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
952: fnd_message.set_token('NAME', lv_pool_name);
953: fnd_message.set_token('TOTAL_BUDGET', lv_total_budget);
954: fnd_message.set_token('CURR', lv_currency_code);
955:
956: wf_engine.SetItemAttrText (itemtype => itemtype,
957: itemkey => itemkey,
958: aname => G_WF_ITM_MESSAGE_SUBJECT,
959: avalue => fnd_message.get);
960:
958: aname => G_WF_ITM_MESSAGE_SUBJECT,
959: avalue => fnd_message.get);
960:
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
970: -- OKL_SUB_LINE_REQ_APPROVAL_SUB (BUDGET, CURR)
971: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
972: itemkey => itemkey,
973: aname => G_WF_ITM_BUDGET_AMOUNT);
974: -- format this amount
975: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
972: itemkey => itemkey,
973: aname => G_WF_ITM_BUDGET_AMOUNT);
974: -- format this amount
975: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
976: lv_budget_type := wf_engine.GetItemAttrText(itemtype => itemtype,
977: itemkey => itemkey,
978: aname => G_WF_ITM_BUDGET_TYPE);
979: lv_budget_type := okl_accounting_util.get_lookup_meaning('OKL_SUB_POOL_LINE_TYPE',lv_budget_type);
980:
982: fnd_message.set_token('NAME', lv_pool_name);
983: fnd_message.set_token('BUDGET', lv_total_budget);
984: fnd_message.set_token('CURR', lv_currency_code);
985:
986: wf_engine.SetItemAttrText (itemtype => itemtype,
987: itemkey => itemkey,
988: aname => G_WF_ITM_MESSAGE_SUBJECT,
989: avalue => fnd_message.get);
990:
988: aname => G_WF_ITM_MESSAGE_SUBJECT,
989: avalue => fnd_message.get);
990:
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: );
1049: END IF;
1050:
1051: -- RUN mode
1052: IF(funcmode = 'RUN')THEN
1053: lv_approval_status := wf_engine.GetItemAttrText(itemtype => itemtype,
1054: itemkey => itemkey,
1055: aname => G_WF_ITM_RESULT);
1056: lv_receiving_event := wf_engine.GetItemAttrText(itemtype => itemtype,
1057: itemkey => itemkey,
1052: IF(funcmode = 'RUN')THEN
1053: lv_approval_status := wf_engine.GetItemAttrText(itemtype => itemtype,
1054: itemkey => itemkey,
1055: aname => G_WF_ITM_RESULT);
1056: lv_receiving_event := wf_engine.GetItemAttrText(itemtype => itemtype,
1057: itemkey => itemkey,
1058: aname => 'LAUNCHING_EVENT');
1059:
1060: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
1056: lv_receiving_event := wf_engine.GetItemAttrText(itemtype => itemtype,
1057: itemkey => itemkey,
1058: aname => 'LAUNCHING_EVENT');
1059:
1060: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
1061: itemkey => itemkey,
1062: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
1063:
1064: lv_approver := wf_engine.GetItemAttrText(itemtype => itemtype,
1060: lv_pool_name := wf_engine.GetItemAttrText(itemtype => itemtype,
1061: itemkey => itemkey,
1062: aname => G_WF_ITM_SUBSIDY_POOL_NAME);
1063:
1064: lv_approver := wf_engine.GetItemAttrText(itemtype => itemtype,
1065: itemkey => itemkey,
1066: aname => G_WF_ITM_APPROVER);
1067:
1068: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1064: lv_approver := wf_engine.GetItemAttrText(itemtype => itemtype,
1065: itemkey => itemkey,
1066: aname => G_WF_ITM_APPROVER);
1067:
1068: lv_currency_code := wf_engine.GetItemAttrText(itemtype => itemtype,
1069: itemkey => itemkey,
1070: aname => G_WF_ITM_POOL_CURRENCY);
1071:
1072: IF(G_WF_ITM_APPROVED_YN_YES = lv_approval_status)THEN
1072: IF(G_WF_ITM_APPROVED_YN_YES = lv_approval_status)THEN
1073: IF(lv_receiving_event = G_POOL_APPROVAL_EVENT)THEN
1074: -- prepare the message subject and message body for subsidy pool approval
1075: -- OKL_SUB_POOL_REQ_APPROVED_SUB (NAME, TOTAL_BUDGET, CURR)
1076: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
1077: itemkey => itemkey,
1078: aname => G_WF_ITM_TOTAL_BUDGETS);
1079: -- format this amount
1080: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
1083: fnd_message.set_token('NAME', lv_pool_name);
1084: fnd_message.set_token('TOTAL_BUDGET', lv_total_budget);
1085: fnd_message.set_token('CURR', lv_currency_code);
1086:
1087: wf_engine.SetItemAttrText (itemtype => itemtype,
1088: itemkey => itemkey,
1089: aname => G_WF_ITM_MESSAGE_SUBJECT,
1090: avalue => fnd_message.get);
1091:
1089: aname => G_WF_ITM_MESSAGE_SUBJECT,
1090: avalue => fnd_message.get);
1091:
1092: -- OKL_SUB_POOL_REQ_APPROVED_BOD (TOTAL_BUDGET, CURR, FROM_DATE, TO_DATE, POOL_DESCR, REQUESTOR) G_WF_ITM_MESSAGE_BODY
1093: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1094: itemkey => itemkey,
1095: aname => G_WF_ITM_FROM_DATE);
1096: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1097: itemkey => itemkey,
1092: -- OKL_SUB_POOL_REQ_APPROVED_BOD (TOTAL_BUDGET, CURR, FROM_DATE, TO_DATE, POOL_DESCR, REQUESTOR) G_WF_ITM_MESSAGE_BODY
1093: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1094: itemkey => itemkey,
1095: aname => G_WF_ITM_FROM_DATE);
1096: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1097: itemkey => itemkey,
1098: aname => G_WF_ITM_TO_DATE);
1099: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
1100: itemkey => itemkey,
1095: aname => G_WF_ITM_FROM_DATE);
1096: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1097: itemkey => itemkey,
1098: aname => G_WF_ITM_TO_DATE);
1099: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
1100: itemkey => itemkey,
1101: aname => G_WF_ITM_POOL_DESCR);
1102:
1103: /*fnd_message.set_name(G_APP_NAME,'OKL_SUB_POOL_REQ_APPROVED_BOD');
1107: fnd_message.set_token('TO_DATE',lv_to_date);
1108: fnd_message.set_token('POOL_DESCR',lv_pool_description);
1109: fnd_message.set_token('APPROVER',lv_approver);*/
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:
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)
1119: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
1120: itemkey => itemkey,
1121: aname => G_WF_ITM_BUDGET_AMOUNT);
1122: -- format this amount
1123: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
1120: itemkey => itemkey,
1121: aname => G_WF_ITM_BUDGET_AMOUNT);
1122: -- format this amount
1123: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
1124: lv_budget_type := wf_engine.GetItemAttrText(itemtype => itemtype,
1125: itemkey => itemkey,
1126: aname => G_WF_ITM_BUDGET_TYPE);
1127: lv_budget_type := okl_accounting_util.get_lookup_meaning('OKL_SUB_POOL_LINE_TYPE',lv_budget_type);
1128:
1130: fnd_message.set_token('NAME', lv_pool_name);
1131: fnd_message.set_token('BUDGET', lv_total_budget);
1132: fnd_message.set_token('CURR', lv_currency_code);
1133:
1134: wf_engine.SetItemAttrText (itemtype => itemtype,
1135: itemkey => itemkey,
1136: aname => G_WF_ITM_MESSAGE_SUBJECT,
1137: avalue => fnd_message.get);
1138:
1136: aname => G_WF_ITM_MESSAGE_SUBJECT,
1137: avalue => fnd_message.get);
1138:
1139: -- OKL_SUB_LINE_REQ_APPROVED_BOD (BUDGET, FROM_DATE, NAME, REQUESTOR)
1140: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1141: itemkey => itemkey,
1142: aname => G_WF_ITM_BUDGET_FROM_DATE);
1143:
1144: lv_from_date := to_date(lv_from_date,'DD/MM/RRRR');
1150: fnd_message.set_token('TYPE', lv_budget_type);
1151: fnd_message.set_token('NAME', lv_pool_name);
1152: fnd_message.set_token('APPROVER', lv_approver);*/
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;
1160: ELSIF(G_WF_ITM_APPROVED_YN_NO = lv_approval_status)THEN
1161: IF(lv_receiving_event = G_POOL_APPROVAL_EVENT)THEN
1162: -- prepare the message subject and message body for subsidy pool approval
1163: -- OKL_SUB_POOL_REQ_REJECT_SUB (NAME, TOTAL_BUDGET, CURR)
1164: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
1165: itemkey => itemkey,
1166: aname => G_WF_ITM_TOTAL_BUDGETS);
1167: -- format this amount
1168: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
1171: fnd_message.set_token('NAME', lv_pool_name);
1172: fnd_message.set_token('TOTAL_BUDGET', lv_total_budget);
1173: fnd_message.set_token('CURR', lv_currency_code);
1174:
1175: wf_engine.SetItemAttrText (itemtype => itemtype,
1176: itemkey => itemkey,
1177: aname => G_WF_ITM_MESSAGE_SUBJECT,
1178: avalue => fnd_message.get);
1179:
1177: aname => G_WF_ITM_MESSAGE_SUBJECT,
1178: avalue => fnd_message.get);
1179:
1180: -- OKL_SUB_POOL_REQ_REJECT_BOD (TOTAL_BUDGET, CURR, FROM_DATE, TO_DATE, POOL_DESCR, REQUESTOR) G_WF_ITM_MESSAGE_BODY
1181: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1182: itemkey => itemkey,
1183: aname => G_WF_ITM_FROM_DATE);
1184: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1185: itemkey => itemkey,
1180: -- OKL_SUB_POOL_REQ_REJECT_BOD (TOTAL_BUDGET, CURR, FROM_DATE, TO_DATE, POOL_DESCR, REQUESTOR) G_WF_ITM_MESSAGE_BODY
1181: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1182: itemkey => itemkey,
1183: aname => G_WF_ITM_FROM_DATE);
1184: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1185: itemkey => itemkey,
1186: aname => G_WF_ITM_TO_DATE);
1187: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
1188: itemkey => itemkey,
1183: aname => G_WF_ITM_FROM_DATE);
1184: lv_to_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1185: itemkey => itemkey,
1186: aname => G_WF_ITM_TO_DATE);
1187: lv_pool_description := wf_engine.GetItemAttrText(itemtype => itemtype,
1188: itemkey => itemkey,
1189: aname => G_WF_ITM_POOL_DESCR);
1190:
1191: /*fnd_message.set_name(G_APP_NAME,'OKL_SUB_POOL_REQ_REJECT_BOD');
1195: fnd_message.set_token('TO_DATE',lv_to_date);
1196: fnd_message.set_token('POOL_DESCR',lv_pool_description);
1197: fnd_message.set_token('APPROVER',lv_approver);*/
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:
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)
1207: lv_total_budget := wf_engine.GetItemAttrText(itemtype => itemtype,
1208: itemkey => itemkey,
1209: aname => G_WF_ITM_BUDGET_AMOUNT);
1210: -- format this amount
1211: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
1208: itemkey => itemkey,
1209: aname => G_WF_ITM_BUDGET_AMOUNT);
1210: -- format this amount
1211: lv_total_budget := okl_accounting_util.format_amount(lv_total_budget,lv_currency_code);
1212: lv_budget_type := wf_engine.GetItemAttrText(itemtype => itemtype,
1213: itemkey => itemkey,
1214: aname => G_WF_ITM_BUDGET_TYPE);
1215: lv_budget_type := okl_accounting_util.get_lookup_meaning('OKL_SUB_POOL_LINE_TYPE',lv_budget_type);
1216:
1218: fnd_message.set_token('NAME', lv_pool_name);
1219: fnd_message.set_token('BUDGET', lv_total_budget);
1220: fnd_message.set_token('CURR', lv_currency_code);
1221:
1222: wf_engine.SetItemAttrText (itemtype => itemtype,
1223: itemkey => itemkey,
1224: aname => G_WF_ITM_MESSAGE_SUBJECT,
1225: avalue => fnd_message.get);
1226:
1224: aname => G_WF_ITM_MESSAGE_SUBJECT,
1225: avalue => fnd_message.get);
1226:
1227: -- OKL_SUB_LINE_REQ_REJECT_BOD (BUDGET, FROM_DATE, NAME, REQUESTOR)
1228: lv_from_date := wf_engine.GetItemAttrDate(itemtype => itemtype,
1229: itemkey => itemkey,
1230: aname => G_WF_ITM_BUDGET_FROM_DATE);
1231:
1232: lv_from_date := to_date(lv_from_date,'DD/MM/RRRR');
1238: fnd_message.set_token('TYPE', lv_budget_type);
1239: fnd_message.set_token('NAME', lv_pool_name);
1240: fnd_message.set_token('APPROVER', lv_approver);*/
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;