[Home] [Help]
PACKAGE BODY: APPS.OKC_REP_CONTRACT_IMP_PUB
Source
1 PACKAGE BODY OKC_REP_CONTRACT_IMP_PUB AS
2 /* $Header: OKCPREPIMPB.pls 120.0.12020000.5 2013/03/29 08:34:22 kkolukul noship $ */
3 ---------------------------------------------------------------------------
4 -- GLOBAL MESSAGE CONSTANTS
5 ---------------------------------------------------------------------------
6 G_FND_APP CONSTANT VARCHAR2(200) := OKC_API.G_FND_APP;
7 ---------------------------------------------------------------------------
8 -- GLOBAL VARIABLES
9 ---------------------------------------------------------------------------
10 G_PKG_NAME CONSTANT VARCHAR2(200) := 'OKC_REP_CONTRACT_IMP_PUB';
11 G_APP_NAME CONSTANT VARCHAR2(3) := OKC_API.G_APP_NAME;
12
13 ------------------------------------------------------------------------------
14 -- GLOBAL CONSTANTS
15 ------------------------------------------------------------------------------
16 G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
17 G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
18 G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
19
20 G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
21 G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
22 G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
23
24 G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
25 G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
26 G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
27 G_UNABLE_TO_RESERVE_REC CONSTANT VARCHAR2(200) := OKC_API.G_UNABLE_TO_RESERVE_REC;
28 G_CURRENT_ORG_ID NUMBER := -99;
29 G_ORG_ID NUMBER ;
30
31
32 /*
33 p_create_contract true :A contract will be created
34 false: only dumps data to interface tables. The CP Import Repository Contract has to be run to create the contract.
35
36 */
37
38 Procedure create_contract(p_api_version IN NUMBER,
39 p_contract_rec IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_rec_type,
40 p_contract_parties_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_parties_tbl_type,
41 p_party_contacts_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.party_contacts_tbl_type,
42 p_risks_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_risks_tbl_type,
43 p_create_contract IN VARCHAR2 := fnd_api.g_true,
44 p_commit IN VARCHAR2 := fnd_api.g_false,
45 x_msg_data OUT NOCOPY VARCHAR2,
46 x_msg_count OUT NOCOPY NUMBER,
47 x_return_status OUT NOCOPY VARCHAR2
48 )
49 IS
50 l_api_name VARCHAR2(50);
51 l_api_version CONSTANT NUMBER := 1.0;
52
53 BEGIN
54
55 l_api_name := 'create_contract';
56
57 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
58 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
59 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
60 END IF;
61
62 -- Standard call to check for call compatibility.
63 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
64 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65 END IF;
66
67 OKC_REP_CONTRACT_IMP_PVT.create_contract( p_api_version => p_api_version,
68 p_contract_rec => p_contract_rec,
69 p_contract_parties_tbl => p_contract_parties_tbl,
70 p_party_contacts_tbl => p_party_contacts_tbl,
71 p_risks_tbl => p_risks_tbl,
72 p_create_contract => p_create_contract,
73 p_commit => p_commit,
74 x_msg_data => x_msg_data,
75 x_msg_count => x_msg_count,
76 x_return_status => x_return_status);
77
78 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
79 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
80 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
81 END IF;
82
83
84
85 END create_contract;
86
87 Procedure delete_contract(p_api_version IN NUMBER,
88 p_contract_id IN NUMBER,
89 p_commit IN VARCHAR2 := fnd_api.g_false,
90 x_msg_data OUT NOCOPY VARCHAR2,
91 x_msg_count OUT NOCOPY NUMBER,
92 x_return_status OUT NOCOPY VARCHAR2
93 )
94 IS
95
96 l_api_name VARCHAR2(50);
97 l_api_version CONSTANT NUMBER := 1.0;
98
99 BEGIN
100 l_api_name := 'delete_contract';
101
102 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
103 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
104 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
105 END IF;
106
107 -- Standard call to check for call compatibility.
108 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
109 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
110 END IF;
111
112 OKC_REP_CONTRACT_IMP_PVT.delete_contract( p_api_version => p_api_version,
113 p_contract_id => p_contract_id,
114 p_commit => p_commit,
115 x_msg_data => x_msg_data,
116 x_msg_count => x_msg_count,
117 x_return_status => x_return_status);
118
119 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
120 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
121 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
122 END IF;
123
124
125 END delete_contract;
126
127 Procedure create_contract(p_api_version IN NUMBER,
128 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
129 p_contract_rec IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_rec_type,
130 p_contract_parties_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_parties_tbl_type,
131 p_party_contacts_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.party_contacts_tbl_type,
132 p_risks_tbl IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_risks_tbl_type,
133 p_commit IN VARCHAR2 := fnd_api.g_false,
134 x_msg_data OUT NOCOPY VARCHAR2,
135 x_msg_count OUT NOCOPY NUMBER,
136 x_return_status OUT NOCOPY VARCHAR2
137 ) IS
138
139 l_api_name VARCHAR2(50);
140 l_api_version CONSTANT NUMBER := 1.0;
141
142 BEGIN
143 l_api_name := 'create_contract';
144
145 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
146 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
147 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
148 END IF;
149
150 -- Standard call to check for call compatibility.
151 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
152 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
153 END IF;
154
155 OKC_REP_CONTRACT_IMP_PVT.create_contract( p_api_version => p_api_version,
156 p_document_rec => p_document_rec,
157 p_contract_rec => p_contract_rec,
158 p_contract_parties_tbl => p_contract_parties_tbl,
159 p_party_contacts_tbl => p_party_contacts_tbl,
160 p_risks_tbl => p_risks_tbl,
161 p_commit => p_commit,
162 x_msg_data => x_msg_data,
163 x_msg_count => x_msg_count,
164 x_return_status => x_return_status);
165
166
167 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
169 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
170 END IF;
171
172 END create_contract;
173
174
175
176 /*
177 Deletes the Contract for the given document type.
178 */
179
180 Procedure delete_contract(p_api_version IN NUMBER,
181 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
182 p_contract_type IN VARCHAR2 DEFAULT NULL,
183 p_contract_id IN NUMBER DEFAULT NULL,
184 p_commit IN VARCHAR2 := fnd_api.g_false,
185 x_msg_data OUT NOCOPY VARCHAR2,
186 x_msg_count OUT NOCOPY NUMBER,
187 x_return_status OUT NOCOPY VARCHAR2
188 )
189 IS
190
191 l_api_name VARCHAR2(50);
192 l_api_version CONSTANT NUMBER := 1.0;
193
194 BEGIN
195 l_api_name := 'delete_contract';
196
197 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
198 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
199 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
200 END IF;
201
202 -- Standard call to check for call compatibility.
203 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
204 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
205 END IF;
206
207 OKC_REP_CONTRACT_IMP_PVT.delete_contract( p_api_version => p_api_version,
208 p_document_rec => p_document_rec,
209 p_contract_type => p_contract_type,
210 p_contract_id => p_contract_id,
211 p_commit => p_commit,
212 x_msg_data => x_msg_data,
213 x_msg_count => x_msg_count,
214 x_return_status => x_return_status);
215
216 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
217 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
218 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
219 END IF;
220
221
222 END delete_contract;
223
224 /*
225 Creates a new version of the contract contract in draft status.
226 Updates to the contract should be done from UI.
227 */
228
229 Procedure create_new_contract_version(p_api_version IN NUMBER,
230 p_contract_id IN NUMBER,
231 p_commit IN VARCHAR2 := fnd_api.g_false,
232 x_msg_data OUT NOCOPY VARCHAR2,
233 x_msg_count OUT NOCOPY NUMBER,
234 x_return_status OUT NOCOPY VARCHAR2
235 )
236 IS
237
238 l_api_name VARCHAR2(50);
239 l_api_version CONSTANT NUMBER := 1.0;
240
241 l_run_id NUMBER;
242
243 BEGIN
244 l_api_name := 'create_new_contract_version';
245
246 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
247 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
248 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
249 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
250 'p_contract_id: '||p_contract_id);
251 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
252 'p_commit : '||p_commit);
253 END IF;
254
255 -- Standard call to check for call compatibility.
256 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
257 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
258 END IF;
259
260 SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
261
262 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
263 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
264 'l_run_id : '||l_run_id);
265 END IF;
266
267 OKC_REP_CONTRACT_IMP_PVT.create_new_contract_version( p_api_version => p_api_version,
268 p_contract_id => p_contract_id,
269 p_run_id => l_run_id,
270 p_commit => p_commit,
271 x_msg_data => x_msg_data,
272 x_msg_count => x_msg_count,
273 x_return_status => x_return_status);
274
275 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
276 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
277 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
278 END IF;
279
280
281 END create_new_contract_version;
282
283
284
285 /*
286 Creates a new version of the contract contract in draft status.
287 Updates to the contract should be done from UI.
288
289 The relation of parent document which is obtained in p_document_rec is stored in the okc_rep_contract_usages table
290 */
291
292 Procedure create_new_contract_version(p_api_version IN NUMBER,
293 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
294 p_contract_type IN VARCHAR2 DEFAULT NULL,
295 p_contract_id IN NUMBER DEFAULT NULL,
296 p_commit IN VARCHAR2 := fnd_api.g_false,
297 x_msg_data OUT NOCOPY VARCHAR2,
298 x_msg_count OUT NOCOPY NUMBER,
299 x_return_status OUT NOCOPY VARCHAR2
300 )
301 IS
302
303 l_api_name VARCHAR2(50);
304 l_api_version CONSTANT NUMBER := 1.0;
305 l_run_id NUMBER;
306
307 BEGIN
308 l_api_name := 'create_new_contract_version';
309
310 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
311 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
312 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
313 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
314 'p_contract_id: '||p_contract_id);
315 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
316 'p_contract_type: '||p_contract_type);
317 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
318 'p_commit : '||p_commit);
319 END IF;
320
321 -- Standard call to check for call compatibility.
322 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
323 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
324 END IF;
325
326 SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
327
328 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
329 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
330 'l_run_id : '||l_run_id);
331 END IF;
332
333 OKC_REP_CONTRACT_IMP_PVT.create_new_contract_version( p_api_version => p_api_version,
334 p_document_rec => p_document_rec,
335 p_contract_type => p_contract_type,
336 p_contract_id => p_contract_id,
337 p_run_id => l_run_id,
338 p_commit => p_commit,
339 x_msg_data => x_msg_data,
340 x_msg_count => x_msg_count,
341 x_return_status => x_return_status);
342
343 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
344 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
345 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
346 END IF;
347
348
349 END create_new_contract_version;
350
351
352 PROCEDURE check_contract_exists(p_api_version IN NUMBER,
353 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
354 x_contract_rec IN OUT NOCOPY OKC_IMP_RECORD_TYPES.contract_rec_type,
355 x_msg_data OUT NOCOPY VARCHAR2,
356 x_msg_count OUT NOCOPY NUMBER,
357 x_return_status OUT NOCOPY VARCHAR2
358 )
359 IS
360
361 l_api_name VARCHAR2(50);
362 l_api_version CONSTANT NUMBER := 1.0;
363 l_run_id NUMBER;
364
365 BEGIN
366 l_api_name := 'check_contract_exists';
367
368 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
369 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
370 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
371 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
372 'p_document_rec.business_document_type '||p_document_rec.business_document_type);
373 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
374 'p_document_rec.business_document_id '||p_document_rec.business_document_id);
375 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
376 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
377 END IF;
378
379 -- Standard call to check for call compatibility.
380 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
381 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382 END IF;
383
384 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
385 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
386 'l_run_id : '||l_run_id);
387 END IF;
388
389 OKC_REP_CONTRACT_IMP_PVT.check_contract_exists(p_api_version => 1.0,
390 p_document_rec => p_document_rec,
391 x_contract_rec => x_contract_rec,
392 x_msg_data => x_msg_data,
393 x_msg_count => x_msg_count,
394 x_return_status => x_return_status);
395
396 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
397 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
398 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
399 END IF;
400
401 END check_contract_exists;
402
403
404 PROCEDURE Activate_tasks_closeout(p_api_version IN NUMBER,
405 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
406 p_physical_completion_date IN DATE ,
407 p_init_msg_list IN VARCHAR2,
408 p_commit IN VARCHAR2,
409 x_msg_data OUT NOCOPY VARCHAR2,
410 x_msg_count OUT NOCOPY NUMBER,
411 x_return_status OUT NOCOPY VARCHAR2
412 )
413 IS
414
415 l_api_name VARCHAR2(50);
416 l_api_version CONSTANT NUMBER := 1.0;
417 l_run_id NUMBER;
418
419 BEGIN
420 l_api_name := 'sign_contract_closeout';
421
422 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
423 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
424 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
425 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
426 'p_document_rec.business_document_type '||p_document_rec.business_document_type);
427 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
428 'p_document_rec.business_document_id '||p_document_rec.business_document_id);
429 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
430 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
431 END IF;
432
433 -- Standard call to check for call compatibility.
434 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
435 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
436 END IF;
437
438 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
439 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
440 'l_run_id : '||l_run_id);
441 END IF;
442
443 OKC_REP_CONTRACT_IMP_PVT.Activate_tasks_closeout(p_api_version => 1.0,
444 p_document_rec => p_document_rec,
445 p_physical_completion_date => p_physical_completion_date,
446 p_init_msg_list => p_init_msg_list,
447 p_commit => p_commit,
448 x_msg_data => x_msg_data,
449 x_msg_count => x_msg_count,
450 x_return_status => x_return_status);
451
452 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
453 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
454 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
455 END IF;
456
457
458 END Activate_tasks_closeout;
459
460
461 /*
462 Cancels the Contract for the given document type.
463 */
464
465 Procedure cancel_contract(p_api_version IN NUMBER,
466 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
467 p_contract_type IN VARCHAR2 DEFAULT NULL,
468 p_contract_id IN NUMBER DEFAULT NULL,
469 p_commit IN VARCHAR2 := fnd_api.g_false,
470 x_msg_data OUT NOCOPY VARCHAR2,
471 x_msg_count OUT NOCOPY NUMBER,
472 x_return_status OUT NOCOPY VARCHAR2
473 )
474
475 IS
476
477 l_api_name VARCHAR2(50);
478 l_api_version CONSTANT NUMBER := 1.0;
479 l_run_id NUMBER;
480
481 BEGIN
482 l_api_name := 'cancel_contract';
483
484 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
485 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
486 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
487 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
488 'p_document_rec.business_document_type '||p_document_rec.business_document_type);
489 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
490 'p_document_rec.business_document_id '||p_document_rec.business_document_id);
491 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
492 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
493 END IF;
494
495 -- Standard call to check for call compatibility.
496 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
497 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
498 END IF;
499
500 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
501 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
502 'l_run_id : '||l_run_id);
503 END IF;
504
505 OKC_REP_CONTRACT_IMP_PVT.cancel_contract(p_api_version => p_api_version,
506 p_document_rec => p_document_rec ,
507 p_contract_type => p_contract_type,
508 p_contract_id => p_contract_id,
509 p_commit => p_commit,
510 x_msg_data => x_msg_data,
511 x_msg_count => x_msg_count,
512 x_return_status => x_return_status);
513
514
515 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
516 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
517 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
518 END IF;
519 END cancel_contract;
520
521 /*
522 Cancels the Contract for the given document type.
523 */
524
525 Procedure cancel_contract(p_api_version IN NUMBER,
526 p_commit IN VARCHAR2 := fnd_api.g_false,
527 p_contract_id IN NUMBER,
528 x_msg_data OUT NOCOPY VARCHAR2,
529 x_msg_count OUT NOCOPY NUMBER,
530 x_return_status OUT NOCOPY VARCHAR2)
531
532 IS
533
534 l_api_name VARCHAR2(50);
535 l_api_version CONSTANT NUMBER := 1.0;
536 l_run_id NUMBER;
537
538 BEGIN
539 l_api_name := 'cancel_contract';
540
541 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
542 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
543 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
544 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
545 'p_contract_id '||p_contract_id);
546 END IF;
547
548 -- Standard call to check for call compatibility.
549 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
550 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
551 END IF;
552
553 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
554 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
555 'l_run_id : '||l_run_id);
556 END IF;
557
558 OKC_REP_CONTRACT_IMP_PVT.cancel_contract(p_api_version => p_api_version,
559 p_contract_id => p_contract_id,
560 p_commit => p_commit,
561 x_msg_data => x_msg_data,
562 x_msg_count => x_msg_count,
563 x_return_status => x_return_status);
564
565 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
566 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
567 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
568 END IF;
569 END cancel_contract;
570
571 /*
572 Cancels the Contract for the given document type.
573 */
574
575 Procedure delete_cancel_contract(p_api_version IN NUMBER,
576 p_commit IN VARCHAR2 := fnd_api.g_false,
577 p_document_rec IN OKC_IMP_RECORD_TYPES.document_rec_type,
578 p_contract_type IN VARCHAR2 DEFAULT NULL,
579 p_contract_id IN NUMBER DEFAULT NULL,
580 x_msg_data OUT NOCOPY VARCHAR2,
581 x_msg_count OUT NOCOPY NUMBER,
582 x_return_status OUT NOCOPY VARCHAR2)
583 IS
584
585 l_api_name VARCHAR2(50);
586 l_api_version CONSTANT NUMBER := 1.0;
587 l_run_id NUMBER;
588
589 BEGIN
590 l_api_name := 'delete_cancel_contract';
591
592 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
594 'Entered OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
595 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
596 'p_document_rec.business_document_type '||p_document_rec.business_document_type);
597 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
598 'p_document_rec.business_document_id '||p_document_rec.business_document_id);
599 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
600 'p_document_rec.business_document_version '||p_document_rec.business_document_version);
601 END IF;
602
603 -- Standard call to check for call compatibility.
604 IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
605 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
606 END IF;
607
608 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
609 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
610 'l_run_id : '||l_run_id);
611 END IF;
612
613 OKC_REP_CONTRACT_IMP_PVT.delete_cancel_contract(p_api_version => p_api_version,
614 p_document_rec => p_document_rec ,
615 p_contract_type => p_contract_type,
616 p_contract_id => p_contract_id,
617 p_commit => p_commit,
618 x_msg_data => x_msg_data,
619 x_msg_count => x_msg_count,
620 x_return_status => x_return_status);
621
622 IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
623 FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
624 'Leaving OKC_REP_CONTRACT_IMP_PUB.'||l_api_name);
625 END IF;
626 END delete_cancel_contract;
627
628 END OKC_REP_CONTRACT_IMP_PUB;