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;