1 PACKAGE BODY EDR_FILE_UTIL_PUB AS
2 /* $Header: EDRFUTLB.pls 120.0.12000000.1 2007/01/18 05:53:05 appldev ship $ */
3
4 PROCEDURE GET_FILE_NAME(p_file_id IN NUMBER,
5 x_file_name OUT NOCOPY VARCHAR2)
6 AS
7 BEGIN
8 select file_name into x_file_name
9 from edr_files_b
10 where file_id = p_file_id;
11 EXCEPTION WHEN NO_DATA_FOUND then
12 x_file_name := null;
13 END GET_FILE_NAME;
14
15 PROCEDURE GET_VERSION_LABEL(p_file_id IN NUMBER,
16 x_version_label OUT NOCOPY VARCHAR2)
17 AS
18 BEGIN
19 select version_label into x_version_label
20 from edr_files_b
21 where file_id = p_file_id;
22 EXCEPTION WHEN NO_DATA_FOUND then
23 x_version_label := null;
24 END GET_VERSION_LABEL;
25
26 PROCEDURE GET_CATEGORY_NAME(p_file_id IN NUMBER,
27 x_category_name OUT NOCOPY VARCHAR2)
28 AS
29 BEGIN
30 select attribute_category into x_category_name
31 from edr_files_b
32 where file_id = p_file_id;
33 EXCEPTION WHEN NO_DATA_FOUND then
34 x_category_name := null;
35 END GET_CATEGORY_NAME;
36
37 PROCEDURE GET_AUTHOR_NAME(p_file_id IN NUMBER,
38 x_author_name OUT NOCOPY VARCHAR2)
39 AS
40 BEGIN
41 SELECT A.USER_NAME into x_author_name
42 FROM FND_USER A, EDR_FILES_B B
43 WHERE A.USER_ID = B.CREATED_BY
44 AND B.FILE_ID = p_file_id;
45 EXCEPTION WHEN NO_DATA_FOUND then
46 x_author_name := null;
47 END GET_AUTHOR_NAME;
48
49 PROCEDURE GET_ATTRIBUTE(p_file_id IN NUMBER,
50 p_attribute_col IN VARCHAR2,
51 x_attribute_value OUT NOCOPY VARCHAR2)
52 AS
53 l_str varchar2(150);
54 BEGIN
55 l_str := 'select ' || p_attribute_col || ' from edr_files_b where file_id = ' || p_file_id;
56 execute immediate l_str into x_attribute_value;
57 EXCEPTION WHEN NO_DATA_FOUND then
58 x_attribute_value := null;
59 END GET_ATTRIBUTE;
60
61 PROCEDURE GET_FILE_DATA(p_file_id NUMBER,
62 x_file_data OUT NOCOPY BLOB)
63 AS
64 BEGIN
65 select a.file_data into x_file_data
66 from fnd_lobs a,
67 fnd_documents_vl b,
68 edr_files_vl c
69 where a.file_id = b.media_id
70 and b.document_id = c.fnd_document_id
71 and c.file_id = p_file_id;
72
73 EXCEPTION WHEN NO_DATA_FOUND then
74 x_file_data := null;
75 END GET_FILE_DATA;
76
77
78 END EDR_FILE_UTIL_PUB;