[Home] [Help]
PACKAGE BODY: APPS.CS_KNOWLEDGE_PUB
Source
1 PACKAGE BODY CS_Knowledge_PUB AS
2 /* $Header: cspkbb.pls 115.13 2003/12/04 00:57:55 mkettle ship $ */
3
4 empty varchar2(10) :='';
5
6 PROCEDURE Construct_Text_Query(
7 p_api_version in number,
8 p_init_msg_list in varchar2 := FND_API.G_FALSE,
9 p_commit in varchar2 := FND_API.G_FALSE,
10 p_validation_level in number := FND_API.G_VALID_LEVEL_FULL,
11 x_return_status OUT NOCOPY varchar2,
12 x_msg_count OUT NOCOPY number,
13 x_msg_data OUT NOCOPY varchar2,
14 p_qry_string in varchar2,
15 p_search_option in number,
16 x_qry_string OUT NOCOPY varchar2
17 ) is
18 l_api_name CONSTANT varchar2(30) := 'Construct_Text_Query';
19 l_api_version CONSTANT number := 1.0;
20 begin
21 savepoint Const_Text_Qry_PUB;
22 if not FND_API.Compatible_API_Call(
23 l_api_version,
24 p_api_version,
25 l_api_name,
26 G_PKG_NAME) then
27 raise FND_API.G_EXC_UNEXPECTED_ERROR;
28 end if;
29
30 if FND_API.to_Boolean(p_init_msg_list) then
31 FND_MSG_PUB.initialize;
32 end if;
33 -- -- -- -- begin build_text_query -- -- -- -- --
34 CS_KNOWLEDGE_GRP.Construct_Text_Query
35 ( p_api_version =>1.0,
36 p_init_msg_list =>FND_API.G_FALSE,
37 p_commit =>FND_API.G_FALSE,
38 x_return_status =>x_return_status,
39 x_msg_count =>x_msg_count,
40 x_msg_data =>x_msg_data,
41 p_qry_string =>p_qry_string,
42 p_search_option =>p_search_option,
43 x_qry_string =>x_qry_string);
44
45 --------- end ----------------------
46
47 EXCEPTION
48 WHEN FND_API.G_EXC_ERROR THEN
49 ROLLBACK TO Const_Text_Qry_PUB;
50 x_return_status := FND_API.G_RET_STS_ERROR ;
51 FND_MSG_PUB.Count_And_Get(
52 p_count => x_msg_count,
53 p_data => x_msg_data );
54 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
55 ROLLBACK TO Const_Text_Qry_PUB;
56 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
57 FND_MSG_PUB.Count_And_Get(
58 p_count => x_msg_count,
59 p_data => x_msg_data);
60 WHEN OTHERS THEN
61 ROLLBACK TO Const_Text_Qry_PUB;
62 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
63 IF FND_MSG_PUB.Check_Msg_Level
64 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
65 FND_MSG_PUB.Add_Exc_Msg(
66 G_PKG_NAME,
67 l_api_name);
68 END IF;
69 FND_MSG_PUB.Count_And_Get(
70 p_count => x_msg_count,
71 p_data => x_msg_data);
72 end Construct_Text_Query;
73
74 PROCEDURE Create_Set_And_Elements(
75 p_api_version in number,
76 p_init_msg_list in varchar2 := FND_API.G_FALSE,
77 p_commit in varchar2 := FND_API.G_FALSE,
78 p_validation_level in number := FND_API.G_VALID_LEVEL_FULL,
79 x_return_status OUT NOCOPY varchar2,
80 x_msg_count OUT NOCOPY number,
81 x_msg_data OUT NOCOPY varchar2,
82 p_set_def_rec in CS_Knowledge_PUB.set_def_rec_type,
83 p_ele_def_tbl in CS_Knowledge_PUB.ele_def_tbl_type,
84 x_set_id OUT NOCOPY number,
85 x_element_id_tbl OUT NOCOPY CS_Knowledge_PUB.number15_tbl_type
86 )
87 IS
88 l_api_name CONSTANT varchar2(30) := 'Create_Set_And_Elements';
89 l_api_version CONSTANT number := 1.0;
90
91 l_return_status VARCHAR2(1);
92 l_set_def_rec CS_Knowledge_PUB.set_def_rec_type;
93 l_ele_def_tbl CS_Knowledge_PUB.ele_def_tbl_type;
94
95
96 begin
97
98 savepoint Create_Set_And_Elements_PUB;
99
100 l_set_def_rec := p_set_def_rec;
101 l_ele_def_tbl := p_ele_def_tbl;
102
103 if not FND_API.Compatible_API_Call(
104 l_api_version,
105 p_api_version,
106 l_api_name,
107 G_PKG_NAME) then
108 raise FND_API.G_EXC_UNEXPECTED_ERROR;
109 end if;
110
111
112
113 -- Adding User Hooks at this point
114
115 IF JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, l_api_name, 'B', 'C' ) THEN
116 CS_KNOWLEDGE_CUHK.Create_Set_And_Elements_Pre
117 (
118 p_api_version => 1.0,
119 p_init_msg_list => FND_API.G_FALSE,
120 p_commit => FND_API.G_FALSE,
121 x_return_status => l_return_status,
122 x_msg_count => x_msg_count,
123 x_msg_data => x_msg_data,
124 p_set_def_rec => l_set_def_rec,
125 p_ele_def_tbl => l_ele_def_tbl,
126 x_set_id => x_set_id,
127 x_element_id_tbl => x_element_id_tbl);
128
129 IF (l_return_status = FND_API.G_RET_STS_ERROR) then
130 RAISE FND_API.G_EXC_ERROR;
131 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
132 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
133
134 END IF;
135 END IF;
136
137 IF JTF_USR_HKS.Ok_to_execute( G_PKG_NAME, l_api_name, 'B', 'V' ) THEN
138 CS_KNOWLEDGE_VUHK.Create_Set_And_Elements_Pre
139 (
140 p_api_version => 1.0,
141 p_init_msg_list => FND_API.G_FALSE,
142 p_commit => FND_API.G_FALSE,
143 x_return_status => l_return_status,
144 x_msg_count => x_msg_count,
145 x_msg_data => x_msg_data,
146 p_set_def_rec => l_set_def_rec,
147 p_ele_def_tbl => l_ele_def_tbl,
148 x_set_id => x_set_id,
149 x_element_id_tbl => x_element_id_tbl);
150
151 IF (l_return_status = FND_API.G_RET_STS_ERROR) then
152 RAISE FND_API.G_EXC_ERROR;
153 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
154 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
155
156 END IF;
157 END IF;
158
159
160 -- -- -- -- begin my code -- -- -- -- --
161 CS_Knowledge_GRP.Create_Set_And_Elements(
162 p_api_version => p_api_version,
163 p_init_msg_list => p_init_msg_list,
164 p_commit => p_commit,
165 p_validation_level => p_validation_level,
166 x_return_status => x_return_status,
167 x_msg_count => x_msg_count,
168 x_msg_data => x_msg_data,
169 p_set_def_rec => p_set_def_rec,
170 p_ele_def_tbl => p_ele_def_tbl,
171 x_set_id => x_set_id,
172 x_element_id_tbl => x_element_id_tbl);
173
174 IF (x_return_status = FND_API.G_RET_STS_ERROR) then
175 RAISE FND_API.G_EXC_ERROR;
176 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
177 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
178 END IF;
179
180
181
182 --------- end my code ----------------------
183
184 -- begin user hooks --
185
186 IF JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, l_api_name, 'A', 'C' ) THEN
187 CS_KNOWLEDGE_CUHK.Create_Set_And_Elements_Post
188 (
189 p_api_version => 1.0,
190 p_init_msg_list => FND_API.G_FALSE,
191 p_commit => FND_API.G_FALSE,
192 x_return_status => l_return_status,
193 x_msg_count => x_msg_count,
194 x_msg_data => x_msg_data,
195 p_set_def_rec => l_set_def_rec,
196 p_ele_def_tbl => l_ele_def_tbl,
197 x_set_id => x_set_id,
198 x_element_id_tbl => x_element_id_tbl);
199
200 IF (l_return_status = FND_API.G_RET_STS_ERROR) then
201 RAISE FND_API.G_EXC_ERROR;
202 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
203 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
204 END IF;
205 END IF;
206
207 IF JTF_USR_HKS.Ok_to_execute(G_PKG_NAME, l_api_name, 'A', 'V' ) THEN
208 CS_KNOWLEDGE_VUHK.Create_Set_And_Elements_Post
209 (
210 p_api_version => 1.0,
211 p_init_msg_list => FND_API.G_FALSE,
212 p_commit => FND_API.G_FALSE,
213 x_return_status => l_return_status,
214 x_msg_count => x_msg_count,
215 x_msg_data => x_msg_data,
216 p_set_def_rec => l_set_def_rec,
217 p_ele_def_tbl => l_ele_def_tbl,
218 x_set_id => x_set_id,
219 x_element_id_tbl => x_element_id_tbl);
220
221 IF (l_return_status = FND_API.G_RET_STS_ERROR) then
222 RAISE FND_API.G_EXC_ERROR;
223 ELSIF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
224 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
225
226 END IF;
227
228
229
230
231 END IF;
232
233 x_return_status := FND_API.G_RET_STS_SUCCESS;
234
235 EXCEPTION
236 WHEN FND_API.G_EXC_ERROR THEN
237 ROLLBACK TO Create_Set_And_Elements_PUB;
238 x_return_status := FND_API.G_RET_STS_ERROR ;
239 FND_MSG_PUB.Count_And_Get(
240 p_encoded => FND_API.G_FALSE,
241 p_count => x_msg_count,
242 p_data => x_msg_data );
243 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
244 ROLLBACK TO Create_Set_And_Elements_PUB;
245 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
246 FND_MSG_PUB.Count_And_Get(
247 p_count => x_msg_count,
248 p_data => x_msg_data);
249 WHEN OTHERS THEN
250 ROLLBACK TO Create_Set_And_Elements_PUB;
251 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
252 IF FND_MSG_PUB.Check_Msg_Level
253 (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
254 FND_MSG_PUB.Add_Exc_Msg(
255 G_PKG_NAME,
256 l_api_name);
257 END IF;
258 FND_MSG_PUB.Count_And_Get(
259 p_count => x_msg_count,
260 p_data => x_msg_data);
261
262 end Create_Set_And_Elements;
263
264
265
266
267 end CS_Knowledge_PUB;