PACKAGE BODY: APPS.OKC_WF_SELECT_MSG_PVT

Source

1 Package body OKC_WF_SELECT_MSG_PVT AS
2 /* $Header: OKCPMSGB.pls 120.0 2005/05/25 19:33:45 appldev noship $ */
3 	l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
4 	PROCEDURE select_message(
5 				itemtype	in varchar2,
6 				itemkey  	in varchar2,
7 				actid		in number,
8 				funcmode	in varchar2,
9 				resultout out nocopy varchar2) IS
10 		l_escalate_owner	VARCHAR2(100);
11 	BEGIN
12 		-- RUN mode - normal process execution
13 		if (funcmode = 'RUN') then
14 		l_escalate_owner := wf_engine.GetItemAttrText(
15 								itemtype => itemtype,
16 	      							itemkey	 => itemkey,
17 								aname  	 => 'ESCALATE_OWNER');
18 		End if;
19 		If l_escalate_owner is NOT NULL THEN
20 			resultout := 'COMPLETE:T';
21 		Elsif l_escalate_owner IS NULL THEN
22 			resultout := 'COMPLETE:F';
23 		End if;
24 	EXCEPTION
25 		when others then
26 	  	wf_core.context('OKC_WF_SELECT_MSG_PVT',
27 				'SELECT_MESSAGE',
28 				itemtype,
29 				itemkey,
30 				to_char(actid),
31 				funcmode);
32 	  		raise;
33 	END select_message;
34 END OKC_WF_SELECT_MSG_PVT;