[Home] [Help]
PACKAGE BODY: APPS.OKC_CONTRACT_PARTY_PVT
Source
1 package body OKC_CONTRACT_PARTY_PVT as
2 /* $Header: OKCCCPLB.pls 120.0 2005/05/25 19:21:18 appldev noship $ */
3
4 l_debug VARCHAR2(1) := NVL(FND_PROFILE.VALUE('AFLOG_ENABLED'),'N');
5
6 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
7 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_CONTRACT_PARTY_PVT';
8 G_CHILD_RECORD_FOUND CONSTANT varchar2(200) := 'OKC_CHILD_RECORD_FOUND';
9 G_PARENT_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_PARENT_TABLE_TOKEN;
10 G_CHILD_TABLE_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_CHILD_TABLE_TOKEN;
11 G_REQUIRED_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_REQUIRED_VALUE;
12 G_INVALID_VALUE CONSTANT VARCHAR2(200) := OKC_API.G_INVALID_VALUE;
13 G_COL_NAME_TOKEN CONSTANT VARCHAR2(200) := OKC_API.G_COL_NAME_TOKEN;
14
15 -- Start of comments
16 --
17 -- Procedure Name : create_contact
18 -- Description :
19 -- Business Rules :
20 -- Parameters :
21 -- Version : 1.0
22 -- End of comments
23 procedure create_contact(p_api_version IN NUMBER,
24 p_init_msg_list IN VARCHAR2 ,
25 x_return_status OUT NOCOPY VARCHAR2,
26 x_msg_count OUT NOCOPY NUMBER,
27 x_msg_data OUT NOCOPY VARCHAR2,
28 p_ctcv_rec IN ctcv_rec_type,
29 x_ctcv_rec OUT NOCOPY ctcv_rec_type) is
30 --V
31 l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
32 x_out_rec OKC_CVM_PVT.cvmv_rec_type;
33 --V
34 begin
35 okc_ctc_pvt.insert_row(p_api_version => p_api_version,
36 p_init_msg_list => p_init_msg_list,
37 x_return_status => x_return_status,
38 x_msg_count => x_msg_count,
39 x_msg_data => x_msg_data,
40 p_ctcv_rec => p_ctcv_rec,
41 x_ctcv_rec => x_ctcv_rec);
42 --V
43 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
44 return;
45 end if;
46 l_cvmv_rec.chr_id := p_ctcv_rec.DNZ_CHR_ID;
47 OKC_CVM_PVT.update_contract_version(
48 p_api_version => p_api_version,
49 p_init_msg_list => OKC_API.G_FALSE,
50 x_return_status => x_return_status,
51 x_msg_count => x_msg_count,
52 x_msg_data => x_msg_data,
53 p_cvmv_rec => l_cvmv_rec,
54 x_cvmv_rec => x_out_rec);
55 --V
56 end create_contact;
57
58 -- Start of comments
59 --
60 -- Procedure Name : update_contact
61 -- Description :
62 -- Business Rules :
63 -- Parameters :
64 -- Version : 1.0
65 -- End of comments
66 procedure update_contact(p_api_version IN NUMBER,
67 p_init_msg_list IN VARCHAR2 ,
68 x_return_status OUT NOCOPY VARCHAR2,
69 x_msg_count OUT NOCOPY NUMBER,
70 x_msg_data OUT NOCOPY VARCHAR2,
71 p_ctcv_rec IN ctcv_rec_type,
72 x_ctcv_rec OUT NOCOPY ctcv_rec_type) is
73 --V
74 l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
75 x_out_rec OKC_CVM_PVT.cvmv_rec_type;
76 cursor dnz_csr is
77 select dnz_chr_id
78 from OKC_CONTACTS_V
79 where id = p_ctcv_rec.id;
80 --V
81 begin
82 okc_ctc_pvt.update_row(p_api_version => p_api_version,
83 p_init_msg_list => p_init_msg_list,
84 x_return_status => x_return_status,
85 x_msg_count => x_msg_count,
86 x_msg_data => x_msg_data,
87 p_ctcv_rec => p_ctcv_rec,
88 x_ctcv_rec => x_ctcv_rec);
89 --V
90 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
91 return;
92 end if;
93 open dnz_csr;
94 fetch dnz_csr into l_cvmv_rec.chr_id;
95 close dnz_csr;
96 OKC_CVM_PVT.update_contract_version(
97 p_api_version => p_api_version,
98 p_init_msg_list => OKC_API.G_FALSE,
99 x_return_status => x_return_status,
100 x_msg_count => x_msg_count,
101 x_msg_data => x_msg_data,
102 p_cvmv_rec => l_cvmv_rec,
103 x_cvmv_rec => x_out_rec);
104 --V
105 end update_contact;
106
107 -- Start of comments
108 --
109 -- Procedure Name : delete_contact
110 -- Description :
111 -- Business Rules :
112 -- Parameters :
113 -- Version : 1.0
114 -- End of comments
115 procedure delete_contact(p_api_version IN NUMBER,
116 p_init_msg_list IN VARCHAR2 ,
117 x_return_status OUT NOCOPY VARCHAR2,
118 x_msg_count OUT NOCOPY NUMBER,
119 x_msg_data OUT NOCOPY VARCHAR2,
120 p_ctcv_rec IN ctcv_rec_type) is
121 --V
122 l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
123 x_out_rec OKC_CVM_PVT.cvmv_rec_type;
124 cursor dnz_csr is
125 select dnz_chr_id
126 from OKC_contacts_V
127 where id = p_ctcv_rec.id;
128 --V
129 begin
130 --V
131 open dnz_csr;
132 fetch dnz_csr into l_cvmv_rec.chr_id;
133 close dnz_csr;
134 if (l_cvmv_rec.chr_id is NULL) then
135 x_return_status := OKC_API.G_RET_STS_SUCCESS;
136 return;
137 end if;
138 --V
139 okc_ctc_pvt.delete_row(p_api_version => p_api_version,
140 p_init_msg_list => p_init_msg_list,
141 x_return_status => x_return_status,
142 x_msg_count => x_msg_count,
143 x_msg_data => x_msg_data,
144 p_ctcv_rec => p_ctcv_rec);
145 --V
146 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
147 return;
148 end if;
149 OKC_CVM_PVT.update_contract_version(
150 p_api_version => p_api_version,
151 p_init_msg_list => OKC_API.G_FALSE,
152 x_return_status => x_return_status,
153 x_msg_count => x_msg_count,
154 x_msg_data => x_msg_data,
155 p_cvmv_rec => l_cvmv_rec,
156 x_cvmv_rec => x_out_rec);
157 --V
158 end delete_contact;
159
160 -- Start of comments
161 --
162 -- Procedure Name : lock_contact
163 -- Description :
164 -- Business Rules :
165 -- Parameters :
166 -- Version : 1.0
167 -- End of comments
168 procedure lock_contact(p_api_version IN NUMBER,
169 p_init_msg_list IN VARCHAR2 ,
170 x_return_status OUT NOCOPY VARCHAR2,
171 x_msg_count OUT NOCOPY NUMBER,
172 x_msg_data OUT NOCOPY VARCHAR2,
173 p_ctcv_rec IN ctcv_rec_type) is
174 begin
175 okc_ctc_pvt.lock_row(p_api_version => p_api_version,
176 p_init_msg_list => p_init_msg_list,
177 x_return_status => x_return_status,
178 x_msg_count => x_msg_count,
179 x_msg_data => x_msg_data,
180 p_ctcv_rec => p_ctcv_rec);
181 end lock_contact;
182
183 -- Start of comments
184 --
185 -- Procedure Name : validate_contact
186 -- Description :
187 -- Business Rules :
188 -- Parameters :
189 -- Version : 1.0
190 -- End of comments
191 procedure validate_contact(p_api_version IN NUMBER,
192 p_init_msg_list IN VARCHAR2 ,
193 x_return_status OUT NOCOPY VARCHAR2,
194 x_msg_count OUT NOCOPY NUMBER,
195 x_msg_data OUT NOCOPY VARCHAR2,
196 p_ctcv_rec IN ctcv_rec_type) is
197 begin
198 okc_ctc_pvt.validate_row(p_api_version => p_api_version,
199 p_init_msg_list => p_init_msg_list,
200 x_return_status => x_return_status,
201 x_msg_count => x_msg_count,
202 x_msg_data => x_msg_data,
203 p_ctcv_rec => p_ctcv_rec);
204 end validate_contact;
205
206 -- Start of comments
207 --
208 -- Procedure Name : create_k_party_role
209 -- Description :
210 -- Business Rules :
211 -- Parameters :
212 -- Version : 1.0
213 -- End of comments
214 procedure create_k_party_role(p_api_version IN NUMBER,
215 p_init_msg_list IN VARCHAR2 ,
216 x_return_status OUT NOCOPY VARCHAR2,
217 x_msg_count OUT NOCOPY NUMBER,
218 x_msg_data OUT NOCOPY VARCHAR2,
219 p_cplv_rec IN cplv_rec_type,
220 x_cplv_rec OUT NOCOPY cplv_rec_type) is
221 --V
222 l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
223 x_out_rec OKC_CVM_PVT.cvmv_rec_type;
224 --V
225 begin
226 okc_cpl_pvt.insert_row(p_api_version => p_api_version,
227 p_init_msg_list => p_init_msg_list,
228 x_return_status => x_return_status,
229 x_msg_count => x_msg_count,
230 x_msg_data => x_msg_data,
231 p_cplv_rec => p_cplv_rec,
232 x_cplv_rec => x_cplv_rec);
233 --V
234 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
235 return;
236 end if;
237 l_cvmv_rec.chr_id := p_cplv_rec.DNZ_CHR_ID;
238 OKC_CVM_PVT.update_contract_version(
239 p_api_version => p_api_version,
240 p_init_msg_list => OKC_API.G_FALSE,
241 x_return_status => x_return_status,
242 x_msg_count => x_msg_count,
243 x_msg_data => x_msg_data,
244 p_cvmv_rec => l_cvmv_rec,
245 x_cvmv_rec => x_out_rec);
246 --V
247 end create_k_party_role;
248
249 -- Start of comments
250 --
251 -- Procedure Name : lock_k_party_role
252 -- Description :
253 -- Business Rules :
254 -- Parameters :
255 -- Version : 1.0
256 -- End of comments
257 procedure lock_k_party_role(p_api_version IN NUMBER,
258 p_init_msg_list IN VARCHAR2 ,
259 x_return_status OUT NOCOPY VARCHAR2,
260 x_msg_count OUT NOCOPY NUMBER,
261 x_msg_data OUT NOCOPY VARCHAR2,
262 p_cplv_rec IN cplv_rec_type) is
263 begin
264 okc_cpl_pvt.lock_row(p_api_version => p_api_version,
265 p_init_msg_list => p_init_msg_list,
266 x_return_status => x_return_status,
267 x_msg_count => x_msg_count,
268 x_msg_data => x_msg_data,
269 p_cplv_rec => p_cplv_rec);
270 end lock_k_party_role;
271
272 -- Start of comments
273 --
274 -- Procedure Name : update_k_party_role
275 -- Description :
276 -- Business Rules :
277 -- Parameters :
278 -- Version : 1.0
279 -- End of comments
280 procedure update_k_party_role(p_api_version IN NUMBER,
281 p_init_msg_list IN VARCHAR2 ,
282 x_return_status OUT NOCOPY VARCHAR2,
283 x_msg_count OUT NOCOPY NUMBER,
284 x_msg_data OUT NOCOPY VARCHAR2,
285 p_cplv_rec IN cplv_rec_type,
286 x_cplv_rec OUT NOCOPY cplv_rec_type) is
287 --V
288 l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
289 x_out_rec OKC_CVM_PVT.cvmv_rec_type;
290 cursor dnz_csr is
291 select dnz_chr_id
292 from OKC_K_PARTY_ROLES_B
293 where id = p_cplv_rec.id;
294 --V
295 begin
296 okc_cpl_pvt.update_row(p_api_version => p_api_version,
297 p_init_msg_list => p_init_msg_list,
298 x_return_status => x_return_status,
299 x_msg_count => x_msg_count,
300 x_msg_data => x_msg_data,
301 p_cplv_rec => p_cplv_rec,
302 x_cplv_rec => x_cplv_rec);
303 --V
304 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
305 return;
306 end if;
307 open dnz_csr;
308 fetch dnz_csr into l_cvmv_rec.chr_id;
309 close dnz_csr;
310 OKC_CVM_PVT.update_contract_version(
311 p_api_version => p_api_version,
312 p_init_msg_list => OKC_API.G_FALSE,
313 x_return_status => x_return_status,
314 x_msg_count => x_msg_count,
315 x_msg_data => x_msg_data,
316 p_cvmv_rec => l_cvmv_rec,
317 x_cvmv_rec => x_out_rec);
318 --V
319 end update_k_party_role;
320
321 -- Start of comments
322 --
323 -- Procedure Name : delete_k_party_role
324 -- Description :
325 -- Business Rules :
326 -- Parameters :
327 -- Version : 1.0
328 -- End of comments
329 procedure delete_k_party_role(p_api_version IN NUMBER,
330 p_init_msg_list IN VARCHAR2 ,
331 x_return_status OUT NOCOPY VARCHAR2,
332 x_msg_count OUT NOCOPY NUMBER,
333 x_msg_data OUT NOCOPY VARCHAR2,
334 p_cplv_rec IN cplv_rec_type) is
335 l_dummy_var varchar2(1) := '?';
336 cursor l_cpl_csr is
337 select 'x'
338 from OKC_CONTACTS_V
339 where CPL_id = p_cplv_rec.id;
340 --V
341 l_cvmv_rec OKC_CVM_PVT.cvmv_rec_type;
342 x_out_rec OKC_CVM_PVT.cvmv_rec_type;
343 cursor dnz_csr is
344 select dnz_chr_id
345 from OKC_K_PARTY_ROLES_B
346 where id = p_cplv_rec.id;
347 --V
348 begin
349 open l_cpl_csr;
350 fetch l_cpl_csr into l_dummy_var;
351 close l_cpl_csr;
352 if (l_dummy_var = 'x') then
353 OKC_API.SET_MESSAGE(p_app_name => G_APP_NAME,
354 p_msg_name => 'OKC_NO_DELETE_IF_CTC_EXIST');
355 x_return_status := OKC_API.G_RET_STS_ERROR;
356 RAISE OKC_API.G_EXCEPTION_ERROR;
357 END IF;
358 --V
359 open dnz_csr;
360 fetch dnz_csr into l_cvmv_rec.chr_id;
361 close dnz_csr;
362 if (l_cvmv_rec.chr_id is NULL) then
363 x_return_status := OKC_API.G_RET_STS_SUCCESS;
364 return;
365 end if;
366 --V
367 okc_cpl_pvt.delete_row(p_api_version => p_api_version,
368 p_init_msg_list => p_init_msg_list,
369 x_return_status => x_return_status,
370 x_msg_count => x_msg_count,
371 x_msg_data => x_msg_data,
372 p_cplv_rec => p_cplv_rec);
373 --V
374 if (x_return_status <> OKC_API.G_RET_STS_SUCCESS) then
375 return;
376 end if;
377 OKC_CVM_PVT.update_contract_version(
378 p_api_version => p_api_version,
379 p_init_msg_list => OKC_API.G_FALSE,
380 x_return_status => x_return_status,
381 x_msg_count => x_msg_count,
382 x_msg_data => x_msg_data,
383 p_cvmv_rec => l_cvmv_rec,
384 x_cvmv_rec => x_out_rec);
385 --V
386 exception
387 WHEN OTHERS THEN NULL;
388 end delete_k_party_role;
389
390 -- Start of comments
391 --
392 -- Procedure Name : validate_k_party_role
393 -- Description :
394 -- Business Rules :
395 -- Parameters :
396 -- Version : 1.0
397 -- End of comments
398 procedure validate_k_party_role(p_api_version IN NUMBER,
399 p_init_msg_list IN VARCHAR2 ,
400 x_return_status OUT NOCOPY VARCHAR2,
401 x_msg_count OUT NOCOPY NUMBER,
402 x_msg_data OUT NOCOPY VARCHAR2,
403 p_cplv_rec IN cplv_rec_type) is
404 begin
405 okc_cpl_pvt.validate_row(p_api_version => p_api_version,
406 p_init_msg_list => p_init_msg_list,
407 x_return_status => x_return_status,
408 x_msg_count => x_msg_count,
409 x_msg_data => x_msg_data,
410 p_cplv_rec => p_cplv_rec);
411 end validate_k_party_role;
412
413 -- Start of comments
414 --
415 -- Procedure Name : add_language
416 -- Description :
417 -- Business Rules :
418 -- Parameters :
419 -- Version : 1.0
420 -- End of comments
421 procedure add_language is
422 begin
423 okc_cpl_pvt.add_language;
424 end add_language;
425
426 end OKC_CONTRACT_PARTY_PVT;