[Home] [Help]
109: j := NVL(FND_MSG_PUB.Count_Msg,0);
110: if (j=0) then return; end if;
111: if (j>9) then j:=9; end if;
112: FOR I IN 1..J LOOP
113: wf_engine.SetItemAttrText (itemtype => itemtype,
114: itemkey => itemkey,
115: aname => 'MESSAGE'||i,
116: avalue => FND_MSG_PUB.Get(i,p_encoded =>FND_API.G_FALSE ));
117: END LOOP;
159: if (funcmode = 'RUN') then
160: --
161: -- Initiator/Initial
162: --
163: l_request_id := TO_NUMBER( wf_engine.GetItemAttrText (
164: itemtype => itemtype,
165: itemkey => itemkey,
166: aname => 'CREDIT_REQUEST_ID'));
167:
167:
168: open c_submitted_by(l_request_id);
169: fetch c_submitted_by INTO l_user_id;
170: close c_submitted_by;
171: wf_engine.SetItemAttrText (
172: itemtype => itemtype,
173: itemkey => itemkey,
174: aname => 'USER_ID',
175: avalue => L_USER_ID);
176:
177: open C_REQUESTOR_DISPLAY_NAME(l_user_id);
178: fetch C_REQUESTOR_DISPLAY_NAME into L_REQUESTOR, L_REQUESTOR_DNAME;
179: close C_REQUESTOR_DISPLAY_NAME;
180: wf_engine.SetItemAttrText (
181: itemtype=> itemtype,
182: itemkey => itemkey,
183: aname => 'REQUESTOR',
184: avalue => L_REQUESTOR);
181: itemtype=> itemtype,
182: itemkey => itemkey,
183: aname => 'REQUESTOR',
184: avalue => L_REQUESTOR);
185: wf_engine.SetItemAttrText (
186: itemtype=> itemtype,
187: itemkey => itemkey,
188: aname => 'REQUESTOR_DNAME',
189: avalue => L_REQUESTOR_DNAME);
252: if (funcmode = 'RUN') then
253: open C_APPROVER_DISPLAY_NAME;
254: fetch C_APPROVER_DISPLAY_NAME into L_APPROVER,L_APPROVER_DNAME;
255: close C_APPROVER_DISPLAY_NAME;
256: wf_engine.SetItemAttrText (
257: itemtype=> itemtype,
258: itemkey => itemkey,
259: aname => 'APPROVER',
260: avalue => L_APPROVER);
257: itemtype=> itemtype,
258: itemkey => itemkey,
259: aname => 'APPROVER',
260: avalue => L_APPROVER);
261: wf_engine.SetItemAttrText (
262: itemtype=> itemtype,
263: itemkey => itemkey,
264: aname => 'APPROVER_DNAME',
265: avalue => L_APPROVER_DNAME);
353: if (funcmode = 'RUN') then
354: --
355: -- Initiator/Initial
356: --
357: l_request_id := TO_NUMBER( wf_engine.GetItemAttrText (
358: itemtype => itemtype,
359: itemkey => itemkey,
360: aname => 'CREDIT_REQUEST_ID'));
361:
401: END IF;
402:
403: END LOOP; -- r_recomendation
404:
405: wf_engine.SetItemAttrText (
406: itemtype => itemtype,
407: itemkey => itemkey,
408: aname => 'QUOTE_NUM',
409: avalue => l_quote_number);
406: itemtype => itemtype,
407: itemkey => itemkey,
408: aname => 'QUOTE_NUM',
409: avalue => l_quote_number);
410: wf_engine.SetItemAttrText (
411: itemtype => itemtype,
412: itemkey => itemkey,
413: aname => 'CREDIT_REQ_NUM',
414: avalue => l_credit_req_number);
411: itemtype => itemtype,
412: itemkey => itemkey,
413: aname => 'CREDIT_REQ_NUM',
414: avalue => l_credit_req_number);
415: wf_engine.SetItemAttrText (
416: itemtype=> itemtype,
417: itemkey => itemkey,
418: aname => 'CREDIT_AMOUNT',
419: avalue => l_credit_amount);
416: itemtype=> itemtype,
417: itemkey => itemkey,
418: aname => 'CREDIT_AMOUNT',
419: avalue => l_credit_amount);
420: wf_engine.SetItemAttrText (
421: itemtype => itemtype,
422: itemkey => itemkey,
423: aname => 'CREDIT_REQ_DATE',
424: avalue => l_requested_date);
421: itemtype => itemtype,
422: itemkey => itemkey,
423: aname => 'CREDIT_REQ_DATE',
424: avalue => l_requested_date);
425: wf_engine.SetItemAttrText (
426: itemtype=> itemtype,
427: itemkey => itemkey,
428: aname => 'CUST_ACCT_NUM',
429: avalue => l_account_number);
426: itemtype=> itemtype,
427: itemkey => itemkey,
428: aname => 'CUST_ACCT_NUM',
429: avalue => l_account_number);
430: wf_engine.SetItemAttrText (
431: itemtype=> itemtype,
432: itemkey => itemkey,
433: aname => 'PARTY_NAME',
434: avalue => l_party_name);
431: itemtype=> itemtype,
432: itemkey => itemkey,
433: aname => 'PARTY_NAME',
434: avalue => l_party_name);
435: wf_engine.SetItemAttrText (
436: itemtype => itemtype,
437: itemkey => itemkey,
438: aname => 'CREDIT_RECOMENDATION',
439: avalue => l_recomendation);
436: itemtype => itemtype,
437: itemkey => itemkey,
438: aname => 'CREDIT_RECOMENDATION',
439: avalue => l_recomendation);
440: wf_engine.SetItemAttrText (
441: itemtype=> itemtype,
442: itemkey => itemkey,
443: aname => 'RECOMEND_VALUE1',
444: avalue => l_recomend_value1);
441: itemtype=> itemtype,
442: itemkey => itemkey,
443: aname => 'RECOMEND_VALUE1',
444: avalue => l_recomend_value1);
445: wf_engine.SetItemAttrText (
446: itemtype=> itemtype,
447: itemkey => itemkey,
448: aname => 'RECOMEND_VALUE2',
449: avalue => l_recomend_value2);
446: itemtype=> itemtype,
447: itemkey => itemkey,
448: aname => 'RECOMEND_VALUE2',
449: avalue => l_recomend_value2);
450: wf_engine.SetItemAttrText (
451: itemtype => itemtype,
452: itemkey => itemkey,
453: aname => 'ID',
454: avalue => l_okl_request_id);
451: itemtype => itemtype,
452: itemkey => itemkey,
453: aname => 'ID',
454: avalue => l_okl_request_id);
455: wf_engine.SetItemAttrText (
456: itemtype => itemtype,
457: itemkey => itemkey,
458: aname => 'QUOTE_ID',
459: avalue => l_quote_id);
456: itemtype => itemtype,
457: itemkey => itemkey,
458: aname => 'QUOTE_ID',
459: avalue => l_quote_id);
460: wf_engine.SetItemAttrText (
461: itemtype => itemtype,
462: itemkey => itemkey,
463: aname => 'REQUEST_STATUS',
464: avalue => l_request_status);
461: itemtype => itemtype,
462: itemkey => itemkey,
463: aname => 'REQUEST_STATUS',
464: avalue => l_request_status);
465: wf_engine.SetItemAttrText (
466: itemtype => itemtype,
467: itemkey => itemkey,
468: aname => 'CURRENCY',
469: avalue => l_currency);
670: -- RUN mode - normal process execution
671: --
672: if (funcmode = 'RUN') then
673:
674: l_request_id := TO_NUMBER( wf_engine.GetItemAttrText (
675: itemtype => itemtype,
676: itemkey => itemkey,
677: aname => 'CREDIT_REQUEST_ID'));
678:
675: itemtype => itemtype,
676: itemkey => itemkey,
677: aname => 'CREDIT_REQUEST_ID'));
678:
679: IF (wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE') is NULL) then
680: resultout := 'ERROR: Must enter an End Date for Term Line of Credit ';
681: --resultout := 'COMPLETE:F';
682: ELSE
683: l_effective_to := wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE');
679: IF (wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE') is NULL) then
680: resultout := 'ERROR: Must enter an End Date for Term Line of Credit ';
681: --resultout := 'COMPLETE:F';
682: ELSE
683: l_effective_to := wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE');
684: -- assign a val just in case. should not go here
685: IF l_effective_to IS NULL THEN
686: l_effective_to := sysdate + 30;
687: END IF;
879: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
880: END IF;
881:
882: -- 7. Change Status of the credit request
883: l_okl_credit_req := wf_engine.GetItemAttrNumber (
884: itemtype => itemtype,
885: itemkey => itemkey,
886: aname => 'ID');
887:
895: l_crqv_rec_type.CREDIT_KHR_ID := x_chr_id ;
896: l_crqv_rec_type.approved_by := l_approved_by;
897: l_crqv_rec_type.approved_date := SYSDATE;
898:
899: wf_engine.SetItemAttrText (
900: itemtype => itemtype,
901: itemkey => itemkey,
902: aname => 'REQUEST_STATUS',
903: avalue => l_crqv_rec_type.STATUS);
1181: -- RUN mode - normal process execution
1182: --
1183: IF (funcmode = 'RUN')
1184: THEN
1185: l_credit_req_id := wf_engine.GetItemAttrNumber (
1186: itemtype => itemtype
1187: ,itemkey => itemkey
1188: ,aname => 'CREDIT_REQUEST_ID');
1189:
1559: if (funcmode = 'RUN') then
1560:
1561:
1562: -- 1. Get values (quote_id , requestor_id) from workflow
1563: l_quote_id := TO_NUMBER( wf_engine.GetItemAttrText (
1564: itemtype => itemtype,
1565: itemkey => itemkey,
1566: aname => 'QUOTE_ID'));
1567:
1564: itemtype => itemtype,
1565: itemkey => itemkey,
1566: aname => 'QUOTE_ID'));
1567:
1568: l_requestor_id := TO_NUMBER( wf_engine.GetItemAttrText (
1569: itemtype => itemtype,
1570: itemkey => itemkey,
1571: aname => 'REQUESTED_ID'));
1572:
1620: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1621: END IF;
1622:
1623: -- 5. set approver role, REQUEST STATUS , CREDIT_AMOUNT , rEQUEST NUMBER
1624: wf_engine.SetItemAttrText (
1625: itemtype => itemtype,
1626: itemkey => itemkey,
1627: aname => 'APPROVER_ID',
1628: avalue => 'ADMIN');
1626: itemkey => itemkey,
1627: aname => 'APPROVER_ID',
1628: avalue => 'ADMIN');
1629:
1630: wf_engine.SetItemAttrText (
1631: itemtype => itemtype,
1632: itemkey => itemkey,
1633: aname => 'CREDIT_REQ_NUM',
1634: avalue => ls_request_num);
1632: itemkey => itemkey,
1633: aname => 'CREDIT_REQ_NUM',
1634: avalue => ls_request_num);
1635:
1636: wf_engine.SetItemAttrText (
1637: itemtype => itemtype,
1638: itemkey => itemkey,
1639: aname => 'REQUEST_STATUS',
1640: avalue => 'ENTERED');
1638: itemkey => itemkey,
1639: aname => 'REQUEST_STATUS',
1640: avalue => 'ENTERED');
1641:
1642: wf_engine.SetItemAttrNumber (
1643: itemtype => itemtype,
1644: itemkey => itemkey,
1645: aname => 'CREDIT_AMOUNT',
1646: avalue => l_capital_amount);
1644: itemkey => itemkey,
1645: aname => 'CREDIT_AMOUNT',
1646: avalue => l_capital_amount);
1647:
1648: wf_engine.SetItemAttrNumber (
1649: itemtype => itemtype,
1650: itemkey => itemkey,
1651: aname => 'ID',
1652: avalue => x_crqv_rec_type.ID);
1699: --
1700: -- RUN mode - normal process execution
1701: --
1702: if (funcmode = 'RUN') then
1703: if (wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE') is NULL) then
1704: resultout := 'COMPLETE:F';
1705: else
1706: -- check that the date is greater than the request date
1707: if (wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE') < sysdate) then
1703: if (wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE') is NULL) then
1704: resultout := 'COMPLETE:F';
1705: else
1706: -- check that the date is greater than the request date
1707: if (wf_engine.GetItemAttrText(itemtype,itemkey,'TLOC_END_DATE') < sysdate) then
1708: resultout := 'COMPLETE:F';
1709: else
1710: resultout := 'COMPLETE:T';
1711: end if;