[Home] [Help]
PACKAGE BODY: APPS.FND_DM_REPOSITORY_PKG
Source
1 PACKAGE BODY fnd_dm_repository_pkg as
2 /* $Header: AFAKADMB.pls 115.0 2003/02/28 15:10:50 blash noship $ */
3
4
5 -- get_repos_doc_view_url
6 -- Prints the HTML form to update attachment and document information.
7 -- IN
8 -- p_document_id document_id of calling program.
9
10 FUNCTION get_repos_doc_view_url
11 (
12 p_document_id IN NUMBER
13 )RETURN VARCHAR2
14 IS
15 l_document_access_url VARCHAR2(800);
16 l_document_path VARCHAR2(500);
17 l_host_url VARCHAR2(200);
18 BEGIN
19 SELECT
20 repos.connect_syntax,
21 docs.dm_folder_path||'/'||docs.file_name
22 INTO l_host_url,l_document_path
23 FROM fnd_documents_vl docs,
24 fnd_dm_nodes repos
25 where repos.node_id=docs.dm_node
26 and docs.document_id=p_document_id;
27
28 l_document_path:=wfa_html.conv_special_url_chars(l_document_path);
29 l_document_path:=replace(l_document_path,'%2F','/');
30 IF(substr(l_document_path,0,1) <> '/') THEN
31 l_document_path:='/'||l_document_path;
32 END IF;
33 l_document_access_url:=l_host_url||l_document_path;
34 RETURN l_document_access_url;
35
36 END get_repos_doc_view_url;
37
38
39 END fnd_dm_repository_pkg;