PACKAGE BODY: APPS.OKC_QUEUE_PVT

Source

1 package body OKC_QUEUE_PVT as
2 -- $Header: OKCRQUEB.pls 120.0 2005/05/25 18:15:30 appldev noship $
3 
4 	l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5   l_schema   varchar2(30);
6   l_status   varchar2(1);
7   l_industry varchar2(1);
8 
9 -- this function is used to to resove rule based subscription
10 FUNCTION get_acn_type (p_corrid  IN  VARCHAR2)
11 RETURN VARCHAR2
12 IS
13 CURSOR acn_cur
14 IS
15 SELECT acn_type
16 FROM okc_actions_b
17 WHERE correlation = p_corrid;
18 acn_rec  acn_cur%ROWTYPE;
19 v_acn_type  okc_actions_b.acn_type%TYPE;
20 
21 BEGIN
22     OPEN acn_cur;
23     FETCH acn_cur INTO acn_rec;
24        IF acn_cur%NOTFOUND THEN
25          RETURN('Not Available');
26        ELSE
27 	  v_acn_type := acn_rec.acn_type;
28           RETURN(v_acn_type);
29        END IF;
30 EXCEPTION
31   WHEN others THEN
32      RETURN('Not Available');
33 END get_acn_type;
34 
35 begin
36   if (FND_INSTALLATION.get_app_info ('OKC',
37 		     l_status,
38 		     l_industry,
39 		     l_schema)) then
40     OKC_QUEUE_PVT.event_queue_name   := l_schema||'.'||'OKC_AQ_EV_QUEUE';
41     OKC_QUEUE_PVT.outcome_queue_name := l_schema||'.'||'OKC_AQ_OC_QUEUE';
42   else
43     raise_application_error(-20000,
44 			    'Failed to get information for product '||
45 			    'OKC');
46   end if;
47 
48 end;