246: END IF;
247:
248: if ( funcmode = 'RUN' ) then
249:
250: p_requestor_id:=to_number(WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCREQUESTORID'));
251:
252: open user_info(p_requestor_id);
253: fetch user_info into requestor_info_rec;
254: l_requestor_name := requestor_info_rec.user_name;
255: close user_info;
256:
257:
258:
259: WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCREQUESTOR', l_requestor_name);
260:
261: p_resp_key := WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCAPPROVERRESPONSIBILITYKEY');
262:
263: open approver_cur(p_resp_key);
257:
258:
259: WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCREQUESTOR', l_requestor_name);
260:
261: p_resp_key := WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCAPPROVERRESPONSIBILITYKEY');
262:
263: open approver_cur(p_resp_key);
264: fetch approver_cur into l_approver_id;
265: close approver_cur;
264: fetch approver_cur into l_approver_id;
265: close approver_cur;
266: l_approver_name := l_respString||l_approver_id;
267:
268: WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCAPPROVER', l_approver_name);
269:
270:
271: wf_engine.SetItemAttrText (itemtype => itemtype,
272: itemkey => itemkey,
267:
268: WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCAPPROVER', l_approver_name);
269:
270:
271: wf_engine.SetItemAttrText (itemtype => itemtype,
272: itemkey => itemkey,
273: aname => l_doc_attr,
274: avalue => 'PLSQLCLOB:OKL_SSC_WF.getCountersDocument/'||
275: itemtype ||':'||itemkey||':NID');
299: end if;
300: if ( funcmode = 'TIMEOUT' ) then
301: resultout := 'COMPLETE';
302: else
303: resultout := wf_engine.eng_timedout;
304: return;
305: end if;
306:
307:
402:
403: l_itemtype := substr(document_id, first_index+1, second_index-first_index-1);
404: l_itemkey := substr(document_id, second_index+1, third_index-second_index-1);
405:
406: l_counter_id := to_number(WF_ENGINE.GetItemAttrText(l_itemtype,l_itemkey,'SSCTASID'));
407: -- l_tal_type := WF_ENGINE.GetItemAttrText(l_itemtype,l_itemkey,'SSCTALTYPE');
408:
409:
410: IF (display_type = 'text/html') THEN
403: l_itemtype := substr(document_id, first_index+1, second_index-first_index-1);
404: l_itemkey := substr(document_id, second_index+1, third_index-second_index-1);
405:
406: l_counter_id := to_number(WF_ENGINE.GetItemAttrText(l_itemtype,l_itemkey,'SSCTASID'));
407: -- l_tal_type := WF_ENGINE.GetItemAttrText(l_itemtype,l_itemkey,'SSCTALTYPE');
408:
409:
410: IF (display_type = 'text/html') THEN
411:
611: 'OKL_VSS_WF.update_counter_fnc.',
612: 'Begin(+)');
613: END IF;
614: -- assign variable to attribute
615: WF_ENGINE.SetItemAttrText(itemtype,itemkey,'WF_ADMINISTRATOR',l_admin);
616:
617:
618: if ( funcmode = 'RUN' ) then
619:
617:
618: if ( funcmode = 'RUN' ) then
619:
620:
621: l_trx_id := to_number(WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCTASID'));
622:
623: update_counter(p_api_version => 1.0,
624: p_init_msg_list => OKC_API.G_FALSE,
625: p_trx_id => l_trx_id,
657: end if;
658: if ( funcmode = 'TIMEOUT' ) then
659: resultout := 'COMPLETE';
660: else
661: resultout := wf_engine.eng_timedout;
662: return;
663: end if;
664: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
665: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE,
737:
738: IF ( funcmode = 'RUN' ) THEN
739:
740: --Read attributes from WorkFlow
741: -- l_khr_id:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCQUOTEID');
742: l_khr_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
743: itemkey => itemkey,
744: aname => 'SSCKHRID');
745: l_kle_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
738: IF ( funcmode = 'RUN' ) THEN
739:
740: --Read attributes from WorkFlow
741: -- l_khr_id:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCQUOTEID');
742: l_khr_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
743: itemkey => itemkey,
744: aname => 'SSCKHRID');
745: l_kle_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
746: itemkey => itemkey,
741: -- l_khr_id:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCQUOTEID');
742: l_khr_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
743: itemkey => itemkey,
744: aname => 'SSCKHRID');
745: l_kle_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
746: itemkey => itemkey,
747: aname => 'SSCKLEID');
748: l_qte_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
749: itemkey => itemkey,
744: aname => 'SSCKHRID');
745: l_kle_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
746: itemkey => itemkey,
747: aname => 'SSCKLEID');
748: l_qte_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
749: itemkey => itemkey,
750: aname => 'SSCQTEID');
751: l_requestor_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
752: itemkey => itemkey,
747: aname => 'SSCKLEID');
748: l_qte_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
749: itemkey => itemkey,
750: aname => 'SSCQTEID');
751: l_requestor_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
752: itemkey => itemkey,
753: aname => 'REQUESTOR_ID');
754: -- l_requestor_id:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCREQUESTORID');
755: -- l_resp_key:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCRESPONSIBILITYKEY');
750: aname => 'SSCQTEID');
751: l_requestor_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
752: itemkey => itemkey,
753: aname => 'REQUESTOR_ID');
754: -- l_requestor_id:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCREQUESTORID');
755: -- l_resp_key:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCRESPONSIBILITYKEY');
756: --l_resp_key:='OKLCSMGR';
757:
758:
751: l_requestor_id:=WF_ENGINE.GetItemAttrText( itemtype => itemtype,
752: itemkey => itemkey,
753: aname => 'REQUESTOR_ID');
754: -- l_requestor_id:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCREQUESTORID');
755: -- l_resp_key:=WF_ENGINE.GetItemAttrText(itemtype,itemkey,'SSCRESPONSIBILITYKEY');
756: --l_resp_key:='OKLCSMGR';
757:
758:
759: --Read from table
778: FROM fnd_responsibility
779: WHERE responsibility_key = l_resp_key
780: AND application_id = 540; */
781:
782: WF_ENGINE.SetItemAttrText ( itemtype=> itemtype,
783: itemkey => itemkey,
784: aname => 'SSCASSET',
785: avalue => l_asset_number);
786:
783: itemkey => itemkey,
784: aname => 'SSCASSET',
785: avalue => l_asset_number);
786:
787: WF_ENGINE.SetItemAttrText ( itemtype=> itemtype,
788: itemkey => itemkey,
789: aname => 'SSCCONTRACT',
790: avalue => l_contract_number);
791:
788: itemkey => itemkey,
789: aname => 'SSCCONTRACT',
790: avalue => l_contract_number);
791:
792: WF_ENGINE.SetItemAttrText ( itemtype=> itemtype,
793: itemkey => itemkey,
794: aname => 'LEASE_AGENT_ID',
795: avalue => 'LEASE');
796:
794: aname => 'LEASE_AGENT_ID',
795: avalue => 'LEASE');
796:
797:
798: WF_ENGINE.SetItemAttrText ( itemtype=> itemtype,
799: itemkey => itemkey,
800: aname => 'SSCQTENUM',
801: avalue => l_quote_number);
802:
799: itemkey => itemkey,
800: aname => 'SSCQTENUM',
801: avalue => l_quote_number);
802:
803: WF_ENGINE.SetItemAttrText ( itemtype=> itemtype,
804: itemkey => itemkey,
805: aname => 'REQUESTOR_NAME',
806: avalue => l_user_name);
807:
804: itemkey => itemkey,
805: aname => 'REQUESTOR_NAME',
806: avalue => l_user_name);
807:
808: -- WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCPERFORMER', l_respString||l_resp_id);
809: -- WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCPERFORMER', 'LEASE');
810:
811:
812: resultout := 'COMPLETE';
805: aname => 'REQUESTOR_NAME',
806: avalue => l_user_name);
807:
808: -- WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCPERFORMER', l_respString||l_resp_id);
809: -- WF_ENGINE.SetItemAttrText(itemtype,itemkey,'SSCPERFORMER', 'LEASE');
810:
811:
812: resultout := 'COMPLETE';
813:
837:
838: IF ( funcmode = 'TIMEOUT' ) THEN
839: resultout := 'COMPLETE';
840: ELSE
841: resultout := wf_engine.eng_timedout;
842: RETURN;
843: END IF;
844:
845: IF( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
889: 'Begin(+)');
890: END IF;
891:
892: IF (funcmode = 'RUN') THEN
893: l_id := wf_engine.GetItemAttrText( itemtype => itemtype,
894: itemkey => itemkey,
895: aname => 'SSCQTEID');
896:
897: /*
894: itemkey => itemkey,
895: aname => 'SSCQTEID');
896:
897: /*
898: l_approved := wf_engine.GetItemAttrText( itemtype => itemtype,
899: itemkey => itemkey,
900: aname => 'APPROVED_YN'); */
901:
902: -- Set the quote status to REJECTED if the approval is declined
1012: 'Begin(+)');
1013: END IF;
1014:
1015: IF (funcmode = 'RUN') THEN
1016: l_id := wf_engine.GetItemAttrText( itemtype => itemtype,
1017: itemkey => itemkey,
1018: aname => 'SSCQTEID');
1019:
1020: /*
1017: itemkey => itemkey,
1018: aname => 'SSCQTEID');
1019:
1020: /*
1021: l_approved := wf_engine.GetItemAttrText( itemtype => itemtype,
1022: itemkey => itemkey,
1023: aname => 'APPROVED_YN'); */
1024:
1025: -- Set the quote status to REJECTED if the approval is declined