[Home] [Help]
PACKAGE BODY: APPS.BIS_REPORT_FUNCTION_PVT
Source
1 package BODY BIS_Report_Function_PVT AS
2 /* $Header: BISVRPFB.pls 115.4 99/09/19 11:20:38 porting ship $ */
3
4 G_PKG_NAME CONSTANT varchar2(30) := 'BIS_Report_Function_PVT';
5
6 PROCEDURE Retrieve_Report_Functions
7 ( p_api_version IN number
8 , x_Report_Function_Tbl out Report_Function_Tbl_Type
9 , x_return_status OUT VARCHAR2
10 , x_error_tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
11 )
12 IS
13
14 i NUMBER := 0;
15 cursor web_reports is
16 select function_id, function_name, user_function_name
17 from fnd_form_functions_vl
18 where UPPER(PARAMETERS) like '%REPORT%'
19 and TYPE = 'WWW';
20
21 l_rec Report_Function_Rec_Type;
22
23 BEGIN
24
25 x_return_status := FND_API.G_RET_STS_SUCCESS;
26
27 for cr in web_reports loop
28 i := i+1;
29
30
31 l_rec.Report_Function_id := cr.function_id;
32 l_rec.Report_Function_name := cr.function_name;
33 l_rec.Report_User_Function_name := cr.user_function_name;
34
35 x_Report_Function_Tbl(i) := l_rec;
36
37 end loop;
38 if web_reports%isopen then close web_reports; end if;
39
40 EXCEPTION
41 when FND_API.G_EXC_ERROR then
42 x_return_status := FND_API.G_RET_STS_ERROR ;
43 RAISE FND_API.G_EXC_ERROR;
44 when FND_API.G_EXC_UNEXPECTED_ERROR then
45 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
46 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47 when others then
48 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
49 BIS_UTILITIES_PVT.Add_Error_Message
50 ( p_error_msg_id => SQLCODE
51 , p_error_description => SQLERRM
52 , p_error_proc_name => G_PKG_NAME||'.Retrieve_Report_Functions'
53 );
54 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
55
56 END Retrieve_Report_Functions;
57 --
58 PROCEDURE Validate_Report_Function_Id
59 ( p_api_version IN NUMBER
60 , p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL
61 , p_Report_Function_ID IN NUMBER
62 , x_return_status OUT VARCHAR2
63 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
64 )
65 IS
66
67 CURSOR val_cur is
68 select 1
69 from fnd_form_functions_vl
70 where function_id = p_Report_Function_ID
71 and TYPE = 'BISTAR';
72 l_dummy number;
73
74 BEGIN
75
76 open val_cur;
77 fetch val_cur into l_dummy;
78 if (val_cur%NOTFOUND) then
79 close val_cur;
80 -- POPULATE THE TABLE
81 RAISE FND_API.G_EXC_ERROR;
82 end if;
83 close val_cur;
84
85 EXCEPTION
86 when FND_API.G_EXC_ERROR then
87 x_return_status := FND_API.G_RET_STS_ERROR ;
88 RAISE FND_API.G_EXC_ERROR;
89 when FND_API.G_EXC_UNEXPECTED_ERROR then
90 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
91 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
92 when others then
93 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
94 BIS_UTILITIES_PVT.Add_Error_Message
95 ( p_error_msg_id => SQLCODE
96 , p_error_description => SQLERRM
97 , p_error_proc_name => G_PKG_NAME||'.Validate_Report_Function_Id'
98 );
99 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
100
101 END Validate_Report_Function_Id;
102 --
103 --
104 PROCEDURE Value_ID_Conversion
105 ( p_api_version IN NUMBER
106 , p_Report_Function_Name IN VARCHAR2
107 , p_Report_user_Function_Name IN VARCHAR2
108 , x_Report_Function_ID OUT NUMBER
109 , x_return_status OUT VARCHAR2
110 , x_error_Tbl OUT BIS_UTILITIES_PUB.Error_Tbl_Type
111 )
112 IS
113
114 BEGIN
115
116 x_return_status := FND_API.G_RET_STS_SUCCESS;
117
118 if (BIS_UTILITIES_PUB.Value_Not_Missing(p_Report_Function_Name)
119 = FND_API.G_TRUE) then
120
121 select function_id into x_Report_Function_ID
122 from fnd_form_functions_vl
123 where function_name = p_Report_Function_Name
124 and TYPE = 'BISTAR';
125
126 elsif (BIS_UTILITIES_PUB.Value_Not_Missing(p_Report_user_Function_Name)
127 = FND_API.G_TRUE) then
128
129 select function_id into x_Report_Function_ID
130 from fnd_form_functions_vl
131 where user_function_name = p_Report_user_Function_Name
132 and TYPE = 'BISTAR';
133
134 else
135 -- POLPULATE ERROR TABLE
136 RAISE FND_API.G_EXC_ERROR;
137 end if;
138
139 EXCEPTION
140 when FND_API.G_EXC_ERROR then
141 x_return_status := FND_API.G_RET_STS_ERROR ;
142 RAISE FND_API.G_EXC_ERROR;
143 when FND_API.G_EXC_UNEXPECTED_ERROR then
144 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
145 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
146 when others then
147 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
148 BIS_UTILITIES_PVT.Add_Error_Message
149 ( p_error_msg_id => SQLCODE
150 , p_error_description => SQLERRM
151 , p_error_proc_name => G_PKG_NAME||'.Value_ID_Conversion'
152 );
153 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
154
155 END Value_ID_Conversion;
156 --
157 --
158 END BIS_Report_Function_PVT;