[Home] [Help]
PACKAGE BODY: APPS.OKL_VP_JTF_PARTY_NAME_PUB
Source
1 PACKAGE BODY OKL_VP_JTF_PARTY_NAME_PUB AS
2 /* $Header: OKLPCTSB.pls 120.1 2005/09/08 12:49:29 sjalasut noship $ */
3 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
4 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKL_JTF_CONTACT_EXTRACT_PUB';
5 ----------------------------------------------------------------------------
6 --Start of Comments
7 --Procedure : Get Party
8 --Description : Returns Name, Description for a given role or all the roles
9 -- attached to a contract
10 --End of Comments
11 -----------------------------------------------------------------------------
12 PROCEDURE Get_Party (p_api_version IN NUMBER,
13 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
14 x_return_status OUT NOCOPY VARCHAR2,
15 x_msg_count OUT NOCOPY NUMBER,
16 x_msg_data OUT NOCOPY VARCHAR2,
17 p_chr_id IN VARCHAR2,
18 p_cle_id IN VARCHAR2,
19 p_role_code IN OKC_K_PARTY_ROLES_V.rle_code%TYPE,
20 p_intent IN VARCHAR2 DEFAULT 'S',
21 x_party_tab OUT NOCOPY party_tab_type) IS
22 l_api_name CONSTANT VARCHAR2(30) := 'get_party';
23 l_api_version CONSTANT NUMBER := 1;
24 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
25 BEGIN
26 l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
27 G_PKG_NAME,
28 p_init_msg_list,
29 l_api_version,
30 p_api_version,
31 '_PUB',
32 x_return_status);
33 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
34 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
35 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
36 RAISE OKC_API.G_EXCEPTION_ERROR;
37 END IF;
38 --
39 -- Call Before Logic Hook
40 --
41 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
42 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
43 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
44 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
45 RAISE OKC_API.G_EXCEPTION_ERROR;
46 END IF;
47 Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
48 p_init_msg_list,
49 x_return_status,
50 x_msg_count,
51 x_msg_data,
52 p_chr_id,
53 p_cle_id,
54 p_role_code,
55 p_intent,
56 x_party_tab => x_party_tab);
57 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
58 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
59 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
60 RAISE OKC_API.G_EXCEPTION_ERROR;
61 END IF;
62 --
63 -- Call After Logic Hook
64 --
65 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
66 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
67 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
68 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
69 RAISE OKC_API.G_EXCEPTION_ERROR;
70 END IF;
71 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
72 EXCEPTION
73 WHEN OKC_API.G_EXCEPTION_ERROR THEN
74 x_return_status := OKC_API.HANDLE_EXCEPTIONS
75 (SUBSTR(l_api_name,1,26),
76 G_PKG_NAME,
77 'OKC_API.G_RET_STS_ERROR',
78 x_msg_count,
79 x_msg_data,
80 '_PUB');
81 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
82 x_return_status := OKC_API.HANDLE_EXCEPTIONS
83 (SUBSTR(l_api_name,1,26),
84 G_PKG_NAME,
85 'OKC_API.G_RET_STS_UNEXP_ERROR',
86 x_msg_count,
87 x_msg_data,
88 '_PUB');
89 WHEN OTHERS THEN
90 x_return_status := OKC_API.HANDLE_EXCEPTIONS
91 (SUBSTR(l_api_name,1,26),
92 G_PKG_NAME,
93 'OTHERS',
94 x_msg_count,
95 x_msg_data,
96 '_PUB');
97 END Get_Party;
98 ----------------------------------------------------------------------------
99 --Start of Comments
100 --Procedure : Get_Party
101 --Description : Fetches Name, Description of a Party role for a given
102 -- object1_id1 and object2_id2
103 --End of comments
104 -----------------------------------------------------------------------------
105 PROCEDURE Get_Party (p_api_version IN NUMBER,
106 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
107 x_return_status OUT NOCOPY VARCHAR2,
108 x_msg_count OUT NOCOPY NUMBER,
109 x_msg_data OUT NOCOPY VARCHAR2,
110 p_role_code IN VARCHAR2,
111 p_intent IN VARCHAR2,
112 p_id1 IN VARCHAR2,
113 p_id2 IN VARCHAR2,
114 x_id1 OUT NOCOPY VARCHAR2,
115 x_id2 OUT NOCOPY VARCHAR2,
116 x_name OUT NOCOPY VARCHAR2,
117 x_description OUT NOCOPY VARCHAR2) IS
118 l_api_name CONSTANT VARCHAR2(30) := 'get_party';
119 l_api_version CONSTANT NUMBER := 1;
120 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
121 BEGIN
122 l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
123 G_PKG_NAME,
124 p_init_msg_list,
125 l_api_version,
126 p_api_version,
127 '_PUB',
128 x_return_status);
129 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
130 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
131 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
132 RAISE OKC_API.G_EXCEPTION_ERROR;
133 END IF;
134 --
135 -- Call Before Logic Hook
136 --
137 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
138 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
139 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
140 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
141 RAISE OKC_API.G_EXCEPTION_ERROR;
142 END IF;
143 Okl_Vp_Jtf_Party_Name_Pvt.Get_Party (p_api_version,
144 p_init_msg_list,
145 x_return_status,
146 x_msg_count,
147 x_msg_data,
148 p_role_code,
149 p_intent,
150 p_id1,
151 p_id2,
152 x_id1,
153 x_id2,
154 x_name,
155 x_description);
156 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
157 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
158 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
159 RAISE OKC_API.G_EXCEPTION_ERROR;
160 END IF;
161 --
162 -- Call After Logic Hook
163 --
164 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
165 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
166 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
167 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
168 RAISE OKC_API.G_EXCEPTION_ERROR;
169 END IF;
170 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
171 EXCEPTION
172 WHEN OKC_API.G_EXCEPTION_ERROR THEN
173 x_return_status := OKC_API.HANDLE_EXCEPTIONS
174 (SUBSTR(l_api_name,1,26),
175 G_PKG_NAME,
176 'OKC_API.G_RET_STS_ERROR',
177 x_msg_count,
178 x_msg_data,
179 '_PUB');
180 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
181 x_return_status := OKC_API.HANDLE_EXCEPTIONS
182 (SUBSTR(l_api_name,1,26),
183 G_PKG_NAME,
184 'OKC_API.G_RET_STS_UNEXP_ERROR',
185 x_msg_count,
186 x_msg_data,
187 '_PUB');
188 WHEN OTHERS THEN
189 x_return_status := OKC_API.HANDLE_EXCEPTIONS
190 (SUBSTR(l_api_name,1,26),
191 G_PKG_NAME,
192 'OTHERS',
193 x_msg_count,
194 x_msg_data,
195 '_PUB');
196 END Get_Party;
197 ---------------------------------------------------------------------------------
198 -- Start of comments
199 -- Procedure Name : get_contact
200 -- Description :
201 -- Business Rules :
202 -- Parameters :
203 -- Version : 1.0
204 -- End of comments
205 ----------------------------------------------------------------------------------
206 PROCEDURE get_contact(p_api_version IN NUMBER,
207 p_init_msg_list IN VARCHAR2 DEFAULT OKC_API.G_FALSE,
208 x_return_status OUT NOCOPY VARCHAR2,
209 x_msg_count OUT NOCOPY NUMBER,
210 x_msg_data OUT NOCOPY VARCHAR2,
211 p_rle_code IN VARCHAR2,
212 p_cro_code IN VARCHAR2,
213 p_intent IN VARCHAR2,
214 p_id1 IN VARCHAR2,
215 p_id2 IN VARCHAR2,
216 x_id1 OUT NOCOPY VARCHAR2,
217 x_id2 OUT NOCOPY VARCHAR2,
218 x_name OUT NOCOPY VARCHAR2,
219 x_description OUT NOCOPY VARCHAR2) IS
220 l_api_name CONSTANT VARCHAR2(30) := 'get_contact';
221 l_api_version CONSTANT NUMBER := 1;
222 l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
223 BEGIN
224 l_return_status := OKC_API.START_ACTIVITY(SUBSTR(l_api_name,1,26),
225 G_PKG_NAME,
226 p_init_msg_list,
227 l_api_version,
228 p_api_version,
229 '_PUB',
230 x_return_status);
231 IF (l_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
232 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
233 ELSIF (l_return_status = OKC_API.G_RET_STS_ERROR) THEN
234 RAISE OKC_API.G_EXCEPTION_ERROR;
235 END IF;
236 --
237 -- Call Before Logic Hook
238 --
239 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'B');
240 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
241 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
242 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
243 RAISE OKC_API.G_EXCEPTION_ERROR;
244 END IF;
245 Okl_Vp_Jtf_Party_Name_Pvt.get_contact(p_api_version,
246 p_init_msg_list,
247 x_return_status,
248 x_msg_count,
249 x_msg_data,
250 p_rle_code,
251 p_cro_code,
252 p_intent,
253 p_id1,
254 p_id2,
255 x_id1,
256 x_id2,
257 x_name,
258 x_description);
259 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
260 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
261 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
262 RAISE OKC_API.G_EXCEPTION_ERROR;
263 END IF;
264 --
265 -- Call After Logic Hook
266 --
267 okc_util.call_user_hook(x_return_status, g_pkg_name, l_api_name, 'A');
268 IF (x_return_status = OKC_API.G_RET_STS_UNEXP_ERROR) THEN
269 RAISE OKC_API.G_EXCEPTION_UNEXPECTED_ERROR;
270 ELSIF (x_return_status = OKC_API.G_RET_STS_ERROR) THEN
271 RAISE OKC_API.G_EXCEPTION_ERROR;
272 END IF;
273 OKC_API.END_ACTIVITY(x_msg_count, x_msg_data);
274 EXCEPTION
275 WHEN OKC_API.G_EXCEPTION_ERROR THEN
276 x_return_status := OKC_API.HANDLE_EXCEPTIONS
277 (SUBSTR(l_api_name,1,26),
278 G_PKG_NAME,
279 'OKC_API.G_RET_STS_ERROR',
280 x_msg_count,
281 x_msg_data,
282 '_PUB');
283 WHEN OKC_API.G_EXCEPTION_UNEXPECTED_ERROR THEN
284 x_return_status := OKC_API.HANDLE_EXCEPTIONS
285 (SUBSTR(l_api_name,1,26),
286 G_PKG_NAME,
287 'OKC_API.G_RET_STS_UNEXP_ERROR',
288 x_msg_count,
289 x_msg_data,
290 '_PUB');
291 WHEN OTHERS THEN
292 x_return_status := OKC_API.HANDLE_EXCEPTIONS
293 (SUBSTR(l_api_name,1,26),
294 G_PKG_NAME,
295 'OTHERS',
296 x_msg_count,
297 x_msg_data,
298 '_PUB');
299 END get_contact;
300
301 FUNCTION get_party_name (p_role_code IN VARCHAR2
302 ,p_intent IN VARCHAR2
303 ,p_id1 IN VARCHAR2
304 ,p_id2 IN VARCHAR2) RETURN VARCHAR2
305 AS
306
307 l_party_name VARCHAR2(500);
308
309 BEGIN
310
311 l_party_name := OKL_VP_JTF_PARTY_NAME_PVT.Get_Party_name(p_role_code => p_role_code,
312 p_intent => p_intent,
313 p_id1 => p_id1,
314 p_id2 => p_id2);
315
316 RETURN l_party_name;
317 END get_party_name;
318
319
320
321 FUNCTION get_party_contact_name (p_rle_code IN VARCHAR2
322 ,p_cro_code IN VARCHAR2
323 ,p_intent IN VARCHAR2
324 ,p_id1 IN VARCHAR2
325 ,p_id2 IN VARCHAR2) RETURN VARCHAR2
326 AS
327
328 l_party_name VARCHAR2(500);
329
330 BEGIN
331
332 l_party_name := OKL_VP_JTF_PARTY_NAME_PVT.Get_Party_Contact_name(p_rle_code => p_rle_code,
333 p_cro_code => p_cro_code,
334 p_intent => p_intent,
335 p_id1 => p_id1,
336 p_id2 => p_id2);
337
338 RETURN l_party_name;
339
340 END get_party_contact_name;
341
342
343
344 PROCEDURE get_party_lov_sql (p_role_code IN VARCHAR2
345 ,p_intent IN VARCHAR2
346 ,x_jtot_object_code OUT NOCOPY VARCHAR2
347 ,x_lov_sql OUT NOCOPY VARCHAR2)
348 AS
349
350 BEGIN
351
352 Okl_Vp_Jtf_Party_Name_Pvt.get_party_lov_sql(p_role_code,
353 p_intent,
354 x_jtot_object_code,
355 x_lov_sql);
356
357 END get_party_lov_sql;
358
359
360 PROCEDURE get_party_contact_lov_sql (p_rle_code IN VARCHAR2
361 ,p_cro_code IN VARCHAR2
362 ,p_intent IN VARCHAR2
363 ,x_jtot_object_code OUT NOCOPY VARCHAR2
364 ,x_lov_sql OUT NOCOPY VARCHAR2)
365 AS
366
367 BEGIN
368
369 Okl_Vp_Jtf_Party_Name_Pvt.get_party_contact_lov_sql(p_rle_code => p_rle_code,
370 p_cro_code => p_cro_code,
371 p_intent => p_intent,
372 x_jtot_object_code => x_jtot_object_code,
373 x_lov_sql => x_lov_sql);
374
375 END get_party_contact_lov_sql;
376
377 END; -- Package Body OKL_VP_JTF_PARTY_NAME_PUB