[Home] [Help]
PACKAGE BODY: APPS.XLA_FSAH_DRILLDOWN_PKG
Source
1 PACKAGE BODY XLA_FSAH_DRILLDOWN_PKG AS
2 /* $Header: xlafsahdrl.pkb 120.1.12010000.2 2009/08/05 12:28:32 karamakr noship $ */
3 /*===========================================================================+
4 | Copyright (c) 2001-2002 Oracle Corporation |
5 | Redwood Shores, CA, USA |
6 | All rights reserved. |
7 +============================================================================+
8 | PACKAGE NAME |
9 | XLA_FSAH_DRILLDOWN_PKG |
10 | |
11 | DESCRIPTION |
12 | |
13 | |
14 | HISTORY |
15 | |
16 +===========================================================================*/
17
18 --====================================================================
19 --
20 --
21 --
22 --
23 --
24 -- PUBLIC procedures and functions
25 --
26 --
27 --
28 --
29 --
30 --
31 --
32 --
33 --
34 --
35 --
36 --
37 --
38 --
39 --
40 --
41 --======================================================================
42 --
43 /*======================================================================+
44 | |
45 | Public Procedure |
46 | |
47 | |
48 +======================================================================*/
49
50 procedure GenerateUrl(ae_header_id IN number
51 ,application_id IN number
52 ,p_lang_code IN varchar2
53 ,p_url OUT NOCOPY varchar2) IS
54
55 l_protocol_port VARCHAR2(1000) := ' ';
56 l_protocol_port_value VARCHAR2(1000) := ' ';
57 l_virtual_path VARCHAR2(1000) := ' ';
58 l_preview_link VARCHAR2(4000) := ' ';
59 l_function_id NUMBER;
60 l_resp_id NUMBER;
61 l_resp_appl_id NUMBER;
62 l_security_group_id NUMBER;
63
64 BEGIN
65 SELECT fnd_profile.VALUE('ICX_FORMS_LAUNCHER')
66 INTO l_protocol_port
67 FROM dual;
68
69 SELECT fnd_profile.VALUE('ICX_OA_HTML')
70 INTO l_virtual_path
71 FROM dual;
72
73 SELECT function_id
74 INTO l_function_id
75 FROM fnd_form_functions
76 WHERE function_name = 'XLA_LINESINQ_FSAH_DRILLDOWN';
77
78
79 select SUBSTR(FND_PROFILE.VALUE('ICX_FORMS_LAUNCHER'),1,INSTR(FND_PROFILE.VALUE('ICX_FORMS_LAUNCHER'),'/',1,3))
80 into l_protocol_port_value
81 from dual;
82
83 SELECT distinct
84 rs.responsibility_id,
85 rs.APPLICATION_ID,
86 ur.SECURITY_GROUP_ID
87 INTO l_resp_id,l_resp_appl_id,l_security_group_id
88 FROM fnd_responsibility rs,
89 FND_USER_RESP_GROUPS_ALL ur
90 WHERE rs.responsibility_id= ur.responsibility_id
91 and responsibility_key='SLA_FSAH_LINESINQ_DRILLDOWN';
92
93
94 l_preview_link := l_protocol_port_value || l_virtual_path||'/'||
95 'RF.jsp?function_id='||l_function_id
96 ||'&'||'resp_id='||l_resp_id||'&'||'resp_appl_id='||l_resp_appl_id||'&'||'security_group_id='||l_security_group_id||'&'||'lang_code='||p_lang_code ||'&'||'aeHeaderId='||ae_header_id||'&'||'applId='||application_id;
97
98 p_url := l_preview_link;
99
100 EXCEPTION
101 WHEN OTHERS THEN
102 xla_exceptions_pkg.raise_message
103 (p_location => 'XLA_FSAH_DRILLDOWN_PKG.GenerateUrl');
104
105
106
107 END;
108 END XLA_FSAH_DRILLDOWN_PKG; --