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:
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.
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:
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:
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:
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.
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:
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:
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:
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.
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:
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;
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:
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.
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:
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:
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);
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,
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;
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.
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:
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,
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:
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:
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);
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,
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,
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;
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.
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:
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,
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:
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:
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);
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,
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,
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;
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:
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,
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:
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;
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);
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,
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,
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;
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:
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,
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:
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:
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);
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,
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,
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;
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:
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,
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;
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:
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);
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;
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:
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,
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;
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:
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);
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,
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,
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;
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:
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,
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;
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: