[Home] [Help]
15:
16: ------------------------------------------------------------------------------
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21:
22: G_AMEND_CODE_DELETED CONSTANT VARCHAR2(30) := 'DELETED';
23: G_ATTACHED_CONTRACT_SOURCE CONSTANT VARCHAR2(30) := 'ATTACHED';
16: ------------------------------------------------------------------------------
17: -- GLOBAL CONSTANTS
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21:
22: G_AMEND_CODE_DELETED CONSTANT VARCHAR2(30) := 'DELETED';
23: G_ATTACHED_CONTRACT_SOURCE CONSTANT VARCHAR2(30) := 'ATTACHED';
24: G_STRUCT_CONTRACT_SOURCE CONSTANT VARCHAR2(30) := 'STRUCTURED';
26:
27: -- Validation string for repository.
28: G_REP_CHECK_STATUS CONSTANT VARCHAR2(30) := 'OKC_REP_CHECK_STATUS';
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
33:
34: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
27: -- Validation string for repository.
28: G_REP_CHECK_STATUS CONSTANT VARCHAR2(30) := 'OKC_REP_CHECK_STATUS';
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
33:
34: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
35: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
28: G_REP_CHECK_STATUS CONSTANT VARCHAR2(30) := 'OKC_REP_CHECK_STATUS';
29:
30: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
31: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
32: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
33:
34: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
35: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
36: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
40: -- To be used to delete Terms whenever a document is deleted.
41: */
42: PROCEDURE Delete_Doc (
43: p_api_version IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46:
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_data OUT NOCOPY VARCHAR2,
41: */
42: PROCEDURE Delete_Doc (
43: p_api_version IN NUMBER,
44: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
45: p_commit IN VARCHAR2 := FND_API.G_FALSE,
46:
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_data OUT NOCOPY VARCHAR2,
49: x_msg_count OUT NOCOPY NUMBER,
47: x_return_status OUT NOCOPY VARCHAR2,
48: x_msg_data OUT NOCOPY VARCHAR2,
49: x_msg_count OUT NOCOPY NUMBER,
50:
51: p_validate_commit IN VARCHAR2 := FND_API.G_FALSE,
52: p_validation_string IN VARCHAR2 := NULL,
53:
54: p_doc_type IN VARCHAR2,
55: p_doc_id IN NUMBER
71: END IF;
72: -- Standard Start of API savepoint
73: SAVEPOINT g_Delete_Doc;
74: -- Standard call to check for call compatibility.
75: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77: END IF;
78: -- Initialize message list if p_init_msg_list is set to TRUE.
79: IF FND_API.to_Boolean( p_init_msg_list ) THEN
72: -- Standard Start of API savepoint
73: SAVEPOINT g_Delete_Doc;
74: -- Standard call to check for call compatibility.
75: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77: END IF;
78: -- Initialize message list if p_init_msg_list is set to TRUE.
79: IF FND_API.to_Boolean( p_init_msg_list ) THEN
80: FND_MSG_PUB.initialize;
75: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
76: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77: END IF;
78: -- Initialize message list if p_init_msg_list is set to TRUE.
79: IF FND_API.to_Boolean( p_init_msg_list ) THEN
80: FND_MSG_PUB.initialize;
81: END IF;
82: -- Initialize API return status to success
83: x_return_status := G_RET_STS_SUCCESS;
96: p_doc_type => p_doc_type
97: );
98: --------------------------------------------
99: IF (l_dummy = G_FALSE OR x_return_status = G_RET_STS_UNEXP_ERROR) THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
101: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
102: RAISE FND_API.G_EXC_ERROR ;
103: END IF;
104: --------------------------------------------
98: --------------------------------------------
99: IF (l_dummy = G_FALSE OR x_return_status = G_RET_STS_UNEXP_ERROR) THEN
100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
101: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
102: RAISE FND_API.G_EXC_ERROR ;
103: END IF;
104: --------------------------------------------
105: END IF;
106:
115: p_doc_id => p_doc_id
116: );
117: --------------------------------------------
118: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
120: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
121: RAISE FND_API.G_EXC_ERROR ;
122: END IF;
123: --------------------------------------------
117: --------------------------------------------
118: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
119: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
120: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
121: RAISE FND_API.G_EXC_ERROR ;
122: END IF;
123: --------------------------------------------
124:
125: -- Call Deliverable API to delete delevirable from the document.
127: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Delete delevirable for the doc');
128: END IF;
129: OKC_DELIVERABLE_PROCESS_PVT.Delete_Deliverables(
130: p_api_version => l_api_version,
131: p_init_msg_list => FND_API.G_FALSE,
132: p_doc_type => p_doc_type,
133: p_doc_id => p_doc_id,
134: p_doc_version => -99,
135: x_msg_data => x_msg_data,
137: x_return_status => x_return_status
138: );
139: --------------------------------------------
140: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
142: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
143: RAISE FND_API.G_EXC_ERROR ;
144: END IF;
145: --------------------------------------------
139: --------------------------------------------
140: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
141: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
142: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
143: RAISE FND_API.G_EXC_ERROR ;
144: END IF;
145: --------------------------------------------
146: -- Call attachement API to delete attachements from the document.
147: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
148: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Delete attachments for the doc');
149: END IF;
150: OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments(
151: p_api_version => l_api_version,
152: p_init_msg_list => FND_API.G_FALSE,
153: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
154: p_commit => FND_API.G_FALSE,
155: p_business_document_type => p_doc_type,
156: p_business_document_id => p_doc_id,
149: END IF;
150: OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments(
151: p_api_version => l_api_version,
152: p_init_msg_list => FND_API.G_FALSE,
153: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
154: p_commit => FND_API.G_FALSE,
155: p_business_document_type => p_doc_type,
156: p_business_document_id => p_doc_id,
157: p_business_document_version=> -99,
150: OKC_CONTRACT_DOCS_GRP.Delete_Ver_Attachments(
151: p_api_version => l_api_version,
152: p_init_msg_list => FND_API.G_FALSE,
153: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
154: p_commit => FND_API.G_FALSE,
155: p_business_document_type => p_doc_type,
156: p_business_document_id => p_doc_id,
157: p_business_document_version=> -99,
158: x_msg_data => x_msg_data,
160: x_return_status => x_return_status
161: );
162: --------------------------------------------
163: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
165: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
166: RAISE FND_API.G_EXC_ERROR ;
167: END IF;
168: --------------------------------------------
162: --------------------------------------------
163: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
164: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
165: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
166: RAISE FND_API.G_EXC_ERROR ;
167: END IF;
168: --------------------------------------------
169:
170: IF FND_API.To_Boolean( p_commit ) THEN
166: RAISE FND_API.G_EXC_ERROR ;
167: END IF;
168: --------------------------------------------
169:
170: IF FND_API.To_Boolean( p_commit ) THEN
171: COMMIT WORK;
172: END IF;
173: -- Standard call to get message count and if count is 1, get message info.
174: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
176: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: Leaving Delete_Doc');
177: END IF;
178:
179: EXCEPTION
180: WHEN FND_API.G_EXC_ERROR THEN
181: ROLLBACK TO g_Delete_Doc;
182: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
183: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1400: Leaving Delete_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
184: END IF;
184: END IF;
185: x_return_status := G_RET_STS_ERROR ;
186: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
187:
188: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
189: ROLLBACK TO g_Delete_Doc;
190: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
191: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving Delete_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
192: END IF;
213: */
214:
215: PROCEDURE Purge_Doc (
216: p_api_version IN NUMBER,
217: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
219:
220: x_return_status OUT NOCOPY VARCHAR2,
221: x_msg_data OUT NOCOPY VARCHAR2,
214:
215: PROCEDURE Purge_Doc (
216: p_api_version IN NUMBER,
217: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
218: p_commit IN VARCHAR2 := FND_API.G_FALSE,
219:
220: x_return_status OUT NOCOPY VARCHAR2,
221: x_msg_data OUT NOCOPY VARCHAR2,
222: x_msg_count OUT NOCOPY NUMBER,
237: END IF;
238: -- Standard Start of API savepoint
239: SAVEPOINT g_Purge_Doc;
240: -- Standard call to check for call compatibility.
241: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list ) THEN
238: -- Standard Start of API savepoint
239: SAVEPOINT g_Purge_Doc;
240: -- Standard call to check for call compatibility.
241: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list ) THEN
246: FND_MSG_PUB.initialize;
241: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
242: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
243: END IF;
244: -- Initialize message list if p_init_msg_list is set to TRUE.
245: IF FND_API.to_Boolean( p_init_msg_list ) THEN
246: FND_MSG_PUB.initialize;
247: END IF;
248: -- Initialize API return status to success
249: x_return_status := G_RET_STS_SUCCESS;
312: END IF;
313:
314: OKC_DELIVERABLE_PROCESS_PVT.Purge_Doc_Deliverables(
315: p_api_version => l_api_version,
316: p_init_msg_list => FND_API.G_FALSE,
317: p_doc_table => p_doc_tbl,
318: x_msg_data => x_msg_data,
319: x_msg_count => x_msg_count,
320: x_return_status => x_return_status
320: x_return_status => x_return_status
321: );
322: --------------------------------------------
323: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
325: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
326: RAISE FND_API.G_EXC_ERROR ;
327: END IF;
328: --------------------------------------------
322: --------------------------------------------
323: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
325: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
326: RAISE FND_API.G_EXC_ERROR ;
327: END IF;
328: --------------------------------------------
329: -- Call attachement API to delete attachements from the document.
330: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
334: FOR i in p_doc_tbl.FIRST..p_doc_tbl.LAST LOOP
335:
336: OKC_CONTRACT_DOCS_GRP.Delete_doc_Attachments(
337: p_api_version => l_api_version,
338: p_init_msg_list => FND_API.G_FALSE,
339: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
340: p_commit => FND_API.G_FALSE,
341: p_business_document_type => p_doc_tbl(i).doc_type,
342: p_business_document_id => p_doc_tbl(i).doc_id,
335:
336: OKC_CONTRACT_DOCS_GRP.Delete_doc_Attachments(
337: p_api_version => l_api_version,
338: p_init_msg_list => FND_API.G_FALSE,
339: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
340: p_commit => FND_API.G_FALSE,
341: p_business_document_type => p_doc_tbl(i).doc_type,
342: p_business_document_id => p_doc_tbl(i).doc_id,
343: x_msg_data => x_msg_data,
336: OKC_CONTRACT_DOCS_GRP.Delete_doc_Attachments(
337: p_api_version => l_api_version,
338: p_init_msg_list => FND_API.G_FALSE,
339: p_validation_level=> FND_API.G_VALID_LEVEL_FULL,
340: p_commit => FND_API.G_FALSE,
341: p_business_document_type => p_doc_tbl(i).doc_type,
342: p_business_document_id => p_doc_tbl(i).doc_id,
343: x_msg_data => x_msg_data,
344: x_msg_count => x_msg_count,
345: x_return_status => x_return_status
346: );
347: --------------------------------------------
348: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
350: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
351: RAISE FND_API.G_EXC_ERROR ;
352: END IF;
353: END LOOP;
347: --------------------------------------------
348: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
349: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
350: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
351: RAISE FND_API.G_EXC_ERROR ;
352: END IF;
353: END LOOP;
354: END IF;
355:
352: END IF;
353: END LOOP;
354: END IF;
355:
356: IF FND_API.To_Boolean( p_commit ) THEN
357: COMMIT WORK;
358: END IF;
359:
360: -- Standard call to get message count and if count is 1, get message info.
363: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: Leaving Purge_Doc');
364: END IF;
365:
366: EXCEPTION
367: WHEN FND_API.G_EXC_ERROR THEN
368: ROLLBACK TO g_Purge_Doc;
369: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
370: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2200: Leaving Purge_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
371: END IF;
371: END IF;
372: x_return_status := G_RET_STS_ERROR ;
373: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
374:
375: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
376: ROLLBACK TO g_Purge_Doc;
377: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
378: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2300: Leaving Purge_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
379: END IF;
399: -- variables used in article has been changed in source document during amendment.
400: */
401: PROCEDURE Mark_Variable_Based_Amendment (
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405:
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_data OUT NOCOPY VARCHAR2,
400: */
401: PROCEDURE Mark_Variable_Based_Amendment (
402: p_api_version IN NUMBER,
403: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
404: p_commit IN VARCHAR2 := FND_API.G_FALSE,
405:
406: x_return_status OUT NOCOPY VARCHAR2,
407: x_msg_data OUT NOCOPY VARCHAR2,
408: x_msg_count OUT NOCOPY NUMBER,
436: END IF;
437: -- Standard Start of API savepoint
438: SAVEPOINT g_Get_System_Variables;
439: -- Standard call to check for call compatibility.
440: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list ) THEN
437: -- Standard Start of API savepoint
438: SAVEPOINT g_Get_System_Variables;
439: -- Standard call to check for call compatibility.
440: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list ) THEN
445: FND_MSG_PUB.initialize;
440: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
441: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
442: END IF;
443: -- Initialize message list if p_init_msg_list is set to TRUE.
444: IF FND_API.to_Boolean( p_init_msg_list ) THEN
445: FND_MSG_PUB.initialize;
446: END IF;
447: -- Initialize API return status to success
448: x_return_status := G_RET_STS_SUCCESS;
479: p_sys_var_tbl => l_var_codes_tbl );
480:
481: --------------------------------------------
482: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
484: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
485: RAISE FND_API.G_EXC_ERROR ;
486: END IF;
487: --------------------------------------------
481: --------------------------------------------
482: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
483: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
484: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
485: RAISE FND_API.G_EXC_ERROR ;
486: END IF;
487: --------------------------------------------
488: ELSIF l_doc_class = 'SOURCING' THEN
489:
514:
515:
516: --------------------------------------------
517: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
519: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
520: RAISE FND_API.G_EXC_ERROR ;
521: END IF;
522: --------------------------------------------
516: --------------------------------------------
517: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
518: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
519: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
520: RAISE FND_API.G_EXC_ERROR ;
521: END IF;
522: --------------------------------------------
523: ELSE
524: NULL;
544: END IF;
545:
546: OKC_TERMS_UTIL_PVT.Mark_Amendment(
547: p_api_version => l_api_version,
548: p_init_msg_list => FND_API.G_FALSE,
549: x_return_status => x_return_status,
550: x_msg_data => x_msg_data,
551: x_msg_count => x_msg_count,
552: p_doc_type => p_doc_type,
560: END IF;
561:
562: --------------------------------------------
563: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
565: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
566: RAISE FND_API.G_EXC_ERROR ;
567: END IF;
568: --------------------------------------------
562: --------------------------------------------
563: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
564: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
565: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
566: RAISE FND_API.G_EXC_ERROR ;
567: END IF;
568: --------------------------------------------
569:
570: i := l_var_codes_tbl.NEXT(i);
578: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2700: Leaving Mark_Variable_Based_Amendment');
579: END IF;
580:
581: EXCEPTION
582: WHEN FND_API.G_EXC_ERROR THEN
583: ROLLBACK TO g_Get_System_Variables;
584: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
585: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2800: Leaving Mark_Variable_Based_Amendment : OKC_API.G_EXCEPTION_ERROR Exception');
586: END IF;
586: END IF;
587: x_return_status := G_RET_STS_ERROR ;
588: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
589:
590: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
591: ROLLBACK TO g_Get_System_Variables;
592: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
593: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2900: Leaving Mark_Variable_Based_Amendment : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
594: END IF;
615: */
616:
617: FUNCTION Is_Article_Exist(
618: p_api_version IN NUMBER,
619: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
620:
621: x_return_status OUT NOCOPY VARCHAR2,
622: x_msg_data OUT NOCOPY VARCHAR2,
623: x_msg_count OUT NOCOPY NUMBER,
643: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered Is_Article_exist');
645: END IF;
646: -- Standard call to check for call compatibility.
647: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: END IF;
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_Boolean( p_init_msg_list ) THEN
644: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered Is_Article_exist');
645: END IF;
646: -- Standard call to check for call compatibility.
647: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: END IF;
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_Boolean( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
647: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
648: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
649: END IF;
650: -- Initialize message list if p_init_msg_list is set to TRUE.
651: IF FND_API.to_Boolean( p_init_msg_list ) THEN
652: FND_MSG_PUB.initialize;
653: END IF;
654: -- Initialize API return status to success
655: x_return_status := G_RET_STS_SUCCESS;
675: END IF;
676: RETURN l_return_value ;
677:
678: EXCEPTION
679: WHEN FND_API.G_EXC_ERROR THEN
680: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
681: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3400: Leaving Is_Article_exist : OKC_API.G_EXCEPTION_ERROR Exception');
682: END IF;
683: x_return_status := G_RET_STS_ERROR ;
681: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3400: Leaving Is_Article_exist : OKC_API.G_EXCEPTION_ERROR Exception');
682: END IF;
683: x_return_status := G_RET_STS_ERROR ;
684: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
685: RETURN FND_API.G_FALSE ;
686:
687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
688: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
689: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Is_Article_exist : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
683: x_return_status := G_RET_STS_ERROR ;
684: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
685: RETURN FND_API.G_FALSE ;
686:
687: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
688: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
689: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Is_Article_exist : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
690: END IF;
691: x_return_status := G_RET_STS_UNEXP_ERROR ;
689: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Is_Article_exist : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
690: END IF;
691: x_return_status := G_RET_STS_UNEXP_ERROR ;
692: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
693: RETURN FND_API.G_FALSE ;
694:
695: WHEN OTHERS THEN
696: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
697: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3600: Leaving Is_Article_exist because of EXCEPTION: '||sqlerrm);
704: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
705: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
706: END IF;
707: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
708: RETURN FND_API.G_FALSE ;
709: END Is_Article_exist ;
710:
711: FUNCTION Is_Article_Exist(
712:
719: l_msg_count NUMBER;
720: l_return_value Varchar2(30);
721: BEGIN
722: l_return_value:=Is_Article_Exist(P_api_version => 1,
723: p_init_msg_list => FND_API.G_FALSE,
724: p_doc_type => p_doc_type,
725: p_doc_id => p_doc_id,
726: x_return_status => l_return_status,
727: x_msg_data => l_msg_data,
815: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3654: l_msg_count : '||l_msg_count);
816: END IF;
817:
818: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
820: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
821: RAISE FND_API.G_EXC_ERROR ;
822: END IF;
823: --11.5.10+ code changes for COntract Repository end
817:
818: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
820: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
821: RAISE FND_API.G_EXC_ERROR ;
822: END IF;
823: --11.5.10+ code changes for COntract Repository end
824:
825: ELSE
854: l_return_value Varchar2(30);
855: BEGIN
856:
857: l_return_value:=Deviation_From_Standard(p_api_version => 1,
858: p_init_msg_list => FND_API.G_FALSE,
859: p_doc_type => p_doc_type,
860: p_doc_id => p_doc_id,
861: x_return_status => l_return_status,
862: x_msg_data => l_msg_data,
875: -- ARTICLES_AND_DELIVERABLES_CHANGED
876: */
877: FUNCTION Deviation_From_Standard(
878: p_api_version IN NUMBER,
879: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
880:
881: x_return_status OUT NOCOPY VARCHAR2,
882: x_msg_data OUT NOCOPY VARCHAR2,
883: x_msg_count OUT NOCOPY NUMBER,
912: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
913: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Entered Deviation_From_Standard');
914: END IF;
915: -- Standard call to check for call compatibility.
916: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
918: END IF;
919: -- Initialize message list if p_init_msg_list is set to TRUE.
920: IF FND_API.to_Boolean( p_init_msg_list ) THEN
913: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Entered Deviation_From_Standard');
914: END IF;
915: -- Standard call to check for call compatibility.
916: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
918: END IF;
919: -- Initialize message list if p_init_msg_list is set to TRUE.
920: IF FND_API.to_Boolean( p_init_msg_list ) THEN
921: FND_MSG_PUB.initialize;
916: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
917: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
918: END IF;
919: -- Initialize message list if p_init_msg_list is set to TRUE.
920: IF FND_API.to_Boolean( p_init_msg_list ) THEN
921: FND_MSG_PUB.initialize;
922: END IF;
923: -- Initialize API return status to success
924: x_return_status := G_RET_STS_SUCCESS;
948: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3900: Leaving Deviation_From_Standard');
949: END IF;
950: RETURN l_return_value ;
951: EXCEPTION
952: WHEN FND_API.G_EXC_ERROR THEN
953: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
954: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4000: Leaving Deviation_From_Standard : OKC_API.G_EXCEPTION_ERROR Exception');
955: END IF;
956: x_return_status := G_RET_STS_ERROR ;
956: x_return_status := G_RET_STS_ERROR ;
957: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
958: RETURN NULL ;
959:
960: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
961: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
962: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4100: Leaving Deviation_From_Standard : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
963: END IF;
964: x_return_status := G_RET_STS_UNEXP_ERROR ;
983:
984: /*
985: --To be used to find out if template used in document has expired.Possible return values Y,N.
986: -- Possible return values are
987: -- FND_API.G_TRUE = Template expired
988: -- FND_API.G_FALSE = Template not expired.
989: */
990: FUNCTION Is_Template_Expired(
991: p_api_version IN NUMBER,
984: /*
985: --To be used to find out if template used in document has expired.Possible return values Y,N.
986: -- Possible return values are
987: -- FND_API.G_TRUE = Template expired
988: -- FND_API.G_FALSE = Template not expired.
989: */
990: FUNCTION Is_Template_Expired(
991: p_api_version IN NUMBER,
992: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
988: -- FND_API.G_FALSE = Template not expired.
989: */
990: FUNCTION Is_Template_Expired(
991: p_api_version IN NUMBER,
992: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
993:
994: x_return_status OUT NOCOPY VARCHAR2,
995: x_msg_data OUT NOCOPY VARCHAR2,
996: x_msg_count OUT NOCOPY NUMBER,
1018: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Entered Is_Template_Expired');
1019: END IF;
1020:
1021: -- Standard call to check for call compatibility.
1022: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1026: -- Initialize message list if p_init_msg_list is set to TRUE.
1019: END IF;
1020:
1021: -- Standard call to check for call compatibility.
1022: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1026: -- Initialize message list if p_init_msg_list is set to TRUE.
1027: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1023: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1024: END IF;
1025:
1026: -- Initialize message list if p_init_msg_list is set to TRUE.
1027: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1028: FND_MSG_PUB.initialize;
1029: END IF;
1030:
1031: -- Initialize API return status to success
1049:
1050: RETURN l_return_value ;
1051:
1052: EXCEPTION
1053: WHEN FND_API.G_EXC_ERROR THEN
1054: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1055: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Is_Template_Expired : OKC_API.G_EXCEPTION_ERROR Exception');
1056: END IF;
1057:
1058: x_return_status := G_RET_STS_ERROR ;
1059: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1060: RETURN NULL ;
1061:
1062: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1063: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1064: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Is_Template_Expired : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1065: END IF;
1066:
1094:
1095:
1096: FUNCTION Is_Deliverable_Exist(
1097: p_api_version IN NUMBER,
1098: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1099:
1100: x_return_status OUT NOCOPY VARCHAR2,
1101: x_msg_data OUT NOCOPY VARCHAR2,
1102: x_msg_count OUT NOCOPY NUMBER,
1149: */
1150:
1151: FUNCTION Is_Article_Amended(
1152: p_api_version IN NUMBER,
1153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1154:
1155: x_return_status OUT NOCOPY VARCHAR2,
1156: x_msg_data OUT NOCOPY VARCHAR2,
1157: x_msg_count OUT NOCOPY NUMBER,
1175: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1176: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Is_Article_AMENDED');
1177: END IF;
1178: -- Standard call to check for call compatibility.
1179: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182: -- Initialize message list if p_init_msg_list is set to TRUE.
1183: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1176: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Is_Article_AMENDED');
1177: END IF;
1178: -- Standard call to check for call compatibility.
1179: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182: -- Initialize message list if p_init_msg_list is set to TRUE.
1183: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1184: FND_MSG_PUB.initialize;
1179: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1180: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1181: END IF;
1182: -- Initialize message list if p_init_msg_list is set to TRUE.
1183: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1184: FND_MSG_PUB.initialize;
1185: END IF;
1186: -- Initialize API return status to success
1187: x_return_status := G_RET_STS_SUCCESS;
1207:
1208: RETURN l_return_value ;
1209:
1210: EXCEPTION
1211: WHEN FND_API.G_EXC_ERROR THEN
1212: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1213: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6000: Leaving Is_Article_AMENDED : OKC_API.G_EXCEPTION_ERROR Exception');
1214: END IF;
1215: x_return_status := G_RET_STS_ERROR ;
1215: x_return_status := G_RET_STS_ERROR ;
1216: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1217: RETURN NULL ;
1218:
1219: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1220:
1221: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1222: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6100: Leaving Is_Article_AMENDED : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1223: END IF;
1251: */
1252:
1253: FUNCTION Is_Deliverable_Amended(
1254: p_api_version IN NUMBER,
1255: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1256:
1257: x_return_status OUT NOCOPY VARCHAR2,
1258: x_msg_data OUT NOCOPY VARCHAR2,
1259: x_msg_count OUT NOCOPY NUMBER,
1296:
1297: --This API is deprecated. Use GET_CONTRACT_DETAILS() instead.
1298: PROCEDURE Get_Terms_Template(
1299: p_api_version IN NUMBER,
1300: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1301:
1302: x_return_status OUT NOCOPY VARCHAR2,
1303: x_msg_data OUT NOCOPY VARCHAR2,
1304: x_msg_count OUT NOCOPY NUMBER,
1326: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6900: Entered Get_Terms_Template');
1327: END IF;
1328:
1329: -- Standard call to check for call compatibility.
1330: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1332: END IF;
1333:
1334: -- Initialize message list if p_init_msg_list is set to TRUE.
1327: END IF;
1328:
1329: -- Standard call to check for call compatibility.
1330: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1332: END IF;
1333:
1334: -- Initialize message list if p_init_msg_list is set to TRUE.
1335: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1331: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1332: END IF;
1333:
1334: -- Initialize message list if p_init_msg_list is set to TRUE.
1335: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1336: FND_MSG_PUB.initialize;
1337: END IF;
1338:
1339: -- Initialize API return status to success
1351: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Leaving Get_Terms_Template');
1352: END IF;
1353:
1354: EXCEPTION
1355: WHEN FND_API.G_EXC_ERROR THEN
1356:
1357: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1358: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Get_Terms_Template : OKC_API.G_EXCEPTION_ERROR Exception');
1359: END IF;
1360:
1361: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1362: x_return_status := G_RET_STS_ERROR ;
1363:
1364: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1365: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1366: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Get_Terms_Template : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1367: END IF;
1368:
1389: -- To be used to find out document type when document is of contract family.
1390: */
1391: FUNCTION Get_Contract_Document_Type(
1392: p_api_version IN NUMBER,
1393: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1394:
1395: x_return_status OUT NOCOPY VARCHAR2,
1396: x_msg_data OUT NOCOPY VARCHAR2,
1397: x_msg_count OUT NOCOPY NUMBER,
1410: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1411: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered Get_Contract_Document_Type');
1412: END IF;
1413: -- Standard call to check for call compatibility.
1414: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: END IF;
1417: -- Initialize message list if p_init_msg_list is set to TRUE.
1418: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1411: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Entered Get_Contract_Document_Type');
1412: END IF;
1413: -- Standard call to check for call compatibility.
1414: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: END IF;
1417: -- Initialize message list if p_init_msg_list is set to TRUE.
1418: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1419: FND_MSG_PUB.initialize;
1414: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1416: END IF;
1417: -- Initialize message list if p_init_msg_list is set to TRUE.
1418: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1419: FND_MSG_PUB.initialize;
1420: END IF;
1421: -- Initialize API return status to success
1422: x_return_status := G_RET_STS_SUCCESS;
1425: FETCH find_chrtype_crs INTO l_return_value;
1426: CLOSE find_chrtype_crs;
1427:
1428: IF l_return_value IS NULL THEN
1429: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1430: END IF;
1431:
1432: -- Standard call to get message count and if count is 1, get message info.
1433: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1436: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7700: Leaving Get_Contract_Document_Type');
1437: END IF;
1438: RETURN l_return_value ;
1439: EXCEPTION
1440: WHEN FND_API.G_EXC_ERROR THEN
1441: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1442: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7800: Leaving Get_Contract_Document_Type : OKC_API.G_EXCEPTION_ERROR Exception');
1443: END IF;
1444: x_return_status := G_RET_STS_ERROR ;
1444: x_return_status := G_RET_STS_ERROR ;
1445: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1446: RETURN NULL ;
1447:
1448: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1449: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1450: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Get_Contract_Document_Type : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1451: END IF;
1452: x_return_status := G_RET_STS_UNEXP_ERROR ;
1472: -- To be used to find out document type/ID when document is of contract family.
1473: */
1474: PROCEDURE Get_Contract_Document_Type_ID(
1475: p_api_version IN NUMBER,
1476: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1477:
1478: x_return_status OUT NOCOPY VARCHAR2,
1479: x_msg_data OUT NOCOPY VARCHAR2,
1480: x_msg_count OUT NOCOPY NUMBER,
1499: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: Entered Get_Contract_Document_Type_id');
1501: END IF;
1502: -- Standard call to check for call compatibility.
1503: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506: -- Initialize message list if p_init_msg_list is set to TRUE.
1507: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1500: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8100: Entered Get_Contract_Document_Type_id');
1501: END IF;
1502: -- Standard call to check for call compatibility.
1503: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506: -- Initialize message list if p_init_msg_list is set to TRUE.
1507: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1508: FND_MSG_PUB.initialize;
1503: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1504: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1505: END IF;
1506: -- Initialize message list if p_init_msg_list is set to TRUE.
1507: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1508: FND_MSG_PUB.initialize;
1509: END IF;
1510: -- Initialize API return status to success
1511: x_return_status := G_RET_STS_SUCCESS;
1515: l_notfound := find_chrtype_crs%NOTFOUND;
1516: CLOSE find_chrtype_crs;
1517:
1518: IF l_notfound THEN
1519: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1520: END IF;
1521:
1522: -- Standard call to get message count and if count is 1, get message info.
1523: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1526: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Result Document_ID : ['||x_doc_id||']');
1527: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8400: Leaving Get_Contract_Document_Type');
1528: END IF;
1529: EXCEPTION
1530: WHEN FND_API.G_EXC_ERROR THEN
1531: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1532: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8500: Leaving Get_Contract_Document_Type_id : OKC_API.G_EXCEPTION_ERROR Exception');
1533: END IF;
1534: x_return_status := G_RET_STS_ERROR ;
1533: END IF;
1534: x_return_status := G_RET_STS_ERROR ;
1535: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1536:
1537: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1538: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1539: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8600: Leaving Get_Contract_Document_Type_id : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1540: END IF;
1541: x_return_status := G_RET_STS_UNEXP_ERROR ;
1559: -- To be used to find out document type when document is of contract family.
1560: */
1561: PROCEDURE Get_Last_Update_Date (
1562: p_api_version IN NUMBER,
1563: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1564:
1565: x_return_status OUT NOCOPY VARCHAR2,
1566: x_msg_data OUT NOCOPY VARCHAR2,
1567: x_msg_count OUT NOCOPY NUMBER,
1627: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: p_doc_id : '||p_doc_id);
1628: END IF;
1629:
1630: -- Standard call to check for call compatibility.
1631: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name , G_PKG_NAME) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: -- Initialize message list if p_init_msg_list is set to TRUE.
1628: END IF;
1629:
1630: -- Standard call to check for call compatibility.
1631: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name , G_PKG_NAME) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: -- Initialize message list if p_init_msg_list is set to TRUE.
1636: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1632: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1633: END IF;
1634:
1635: -- Initialize message list if p_init_msg_list is set to TRUE.
1636: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1637: FND_MSG_PUB.initialize;
1638: END IF;
1639: -- Initialize API return status to success
1640: x_return_status := G_RET_STS_SUCCESS;
1717: END IF;
1718:
1719:
1720: EXCEPTION
1721: WHEN FND_API.G_EXC_ERROR THEN
1722: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1723: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'10100: Leaving get_last_update_date : OKC_API.G_EXCEPTION_ERROR Exception');
1724: END IF;
1725:
1729:
1730: x_return_status := G_RET_STS_ERROR ;
1731: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1732:
1733: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1734: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1735: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'10200: Leaving get_last_update_date : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1736: END IF;
1737:
1760: END get_last_update_date;
1761:
1762: FUNCTION Ok_To_Commit (
1763: p_api_version IN NUMBER,
1764: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1765:
1766: x_return_status OUT NOCOPY VARCHAR2,
1767: x_msg_data OUT NOCOPY VARCHAR2,
1768: x_msg_count OUT NOCOPY NUMBER,
1799: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'11100: p_doc_id : '||p_doc_id);
1800: END IF;
1801:
1802: -- Standard call to check for call compatibility.
1803: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1805: END IF;
1806:
1807: -- Initialize message list if p_init_msg_list is set to TRUE.
1800: END IF;
1801:
1802: -- Standard call to check for call compatibility.
1803: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1805: END IF;
1806:
1807: -- Initialize message list if p_init_msg_list is set to TRUE.
1808: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1804: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1805: END IF;
1806:
1807: -- Initialize message list if p_init_msg_list is set to TRUE.
1808: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1809: FND_MSG_PUB.initialize;
1810: END IF;
1811:
1812: IF p_doc_type = G_TMPL_DOC_TYPE THEN
1853: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'11700: x_msg_count : '||x_msg_count);
1854: END IF;
1855:
1856: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1858: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1859: RAISE FND_API.G_EXC_ERROR ;
1860: END IF;
1861:
1855:
1856: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1857: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1858: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1859: RAISE FND_API.G_EXC_ERROR ;
1860: END IF;
1861:
1862: ELSIF l_doc_class = 'SOURCING' THEN
1863:
1883: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'12200: x_msg_count : '||x_msg_count);
1884: END IF;
1885:
1886: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1888: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1889: RAISE FND_API.G_EXC_ERROR ;
1890: END IF;
1891:
1885:
1886: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1887: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1888: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1889: RAISE FND_API.G_EXC_ERROR ;
1890: END IF;
1891:
1892: ELSIF l_doc_class in ('BSA','SO') THEN
1893: -- ELSIF l_doc_class = 'OM' THEN
1914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'12700: x_msg_count : '||x_msg_count);
1915: END IF;
1916:
1917: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1919: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1920: RAISE FND_API.G_EXC_ERROR ;
1921: END IF;
1922:
1916:
1917: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1918: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1919: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1920: RAISE FND_API.G_EXC_ERROR ;
1921: END IF;
1922:
1923: ELSIF l_doc_class = 'OKS' THEN
1924:
1943: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'13200: x_msg_count : '||x_msg_count);
1944: END IF;
1945:
1946: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1948: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1949: RAISE FND_API.G_EXC_ERROR ;
1950: END IF;
1951: --
1945:
1946: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1947: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1948: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1949: RAISE FND_API.G_EXC_ERROR ;
1950: END IF;
1951: --
1952: ELSIF l_doc_class = 'QUOTE' THEN
1953:
1973: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'13700: x_msg_count : '||x_msg_count);
1974: END IF;
1975:
1976: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1978: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1979: RAISE FND_API.G_EXC_ERROR ;
1980: END IF;
1981:
1975:
1976: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1977: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1978: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1979: RAISE FND_API.G_EXC_ERROR ;
1980: END IF;
1981:
1982: --
1983:
2003: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'14200: x_msg_count : '||x_msg_count);
2004: END IF;
2005:
2006: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2008: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2009: RAISE FND_API.G_EXC_ERROR ;
2010: END IF;
2011:
2005:
2006: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2008: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2009: RAISE FND_API.G_EXC_ERROR ;
2010: END IF;
2011:
2012: ELSE
2013: l_ok_to_commit := G_TRUE;
2016: l_ok_to_commit := G_TRUE;
2017: END IF;
2018: END IF;
2019:
2020: IF l_ok_to_commit=FND_API.G_FALSE THEN
2021:
2022: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2023: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'13800: Issue with document header Record.Cannot commit');
2024: END IF;
2029:
2030: RETURN l_ok_to_commit;
2031:
2032: EXCEPTION
2033: WHEN FND_API.G_EXC_ERROR THEN
2034: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2035: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'13900: Leaving ok_to_commit: OKC_API.G_EXCEPTION_ERROR Exception');
2036: END IF;
2037: x_return_status := G_RET_STS_ERROR ;
2035: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'13900: Leaving ok_to_commit: OKC_API.G_EXCEPTION_ERROR Exception');
2036: END IF;
2037: x_return_status := G_RET_STS_ERROR ;
2038: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2039: RETURN FND_API.G_FALSE;
2040:
2041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2042: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2043: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'14000: Leaving ok_to_commit: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2037: x_return_status := G_RET_STS_ERROR ;
2038: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2039: RETURN FND_API.G_FALSE;
2040:
2041: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2042: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2043: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'14000: Leaving ok_to_commit: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2044: END IF;
2045: x_return_status := G_RET_STS_UNEXP_ERROR ;
2043: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'14000: Leaving ok_to_commit: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2044: END IF;
2045: x_return_status := G_RET_STS_UNEXP_ERROR ;
2046: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2047: RETURN FND_API.G_FALSE;
2048:
2049: WHEN OTHERS THEN
2050: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2051: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'14100: Leaving ok_to_commit because of EXCEPTION: '||sqlerrm);
2055: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2056: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );
2057: END IF;
2058: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2059: RETURN FND_API.G_FALSE;
2060:
2061: END ok_to_commit;
2062:
2063: /*
2061: END ok_to_commit;
2062:
2063: /*
2064: --To be used to find out if a document has any manually added articles.
2065: Returns FND_API.G_TRUE => If atleast 1 article is manually added.
2066: FND_API.G_FALSE => If no manually added article exists.
2067: */
2068:
2069: FUNCTION is_manual_article_exist(
2062:
2063: /*
2064: --To be used to find out if a document has any manually added articles.
2065: Returns FND_API.G_TRUE => If atleast 1 article is manually added.
2066: FND_API.G_FALSE => If no manually added article exists.
2067: */
2068:
2069: FUNCTION is_manual_article_exist(
2070: p_api_version IN NUMBER,
2067: */
2068:
2069: FUNCTION is_manual_article_exist(
2070: p_api_version IN NUMBER,
2071: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2072:
2073: x_return_status OUT NOCOPY VARCHAR2,
2074: x_msg_data OUT NOCOPY VARCHAR2,
2075: x_msg_count OUT NOCOPY NUMBER,
2079: ) RETURN VARCHAR2 IS
2080: l_api_version CONSTANT NUMBER := 1;
2081: l_api_name CONSTANT VARCHAR2(30) := 'is_manual_article_exist';
2082: l_dummy VARCHAR2(1) := '?';
2083: l_return_value VARCHAR2(1) := FND_API.G_FALSE;
2084:
2085: CURSOR find_art_crs IS
2086: SELECT '!'
2087: FROM okc_k_articles_b kart
2095: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2096: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'14200: Entered is_manual_article_exist');
2097: END IF;
2098: -- Standard call to check for call compatibility.
2099: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2101: END IF;
2102: -- Initialize message list if p_init_msg_list is set to TRUE.
2103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2096: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'14200: Entered is_manual_article_exist');
2097: END IF;
2098: -- Standard call to check for call compatibility.
2099: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2101: END IF;
2102: -- Initialize message list if p_init_msg_list is set to TRUE.
2103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2104: FND_MSG_PUB.initialize;
2099: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2100: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2101: END IF;
2102: -- Initialize message list if p_init_msg_list is set to TRUE.
2103: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2104: FND_MSG_PUB.initialize;
2105: END IF;
2106: -- Initialize API return status to success
2107: x_return_status := G_RET_STS_SUCCESS;
2110: FETCH find_art_crs INTO l_dummy;
2111: CLOSE find_art_crs;
2112:
2113: IF l_dummy='?' THEN
2114: l_return_value := FND_API.G_FALSE;
2115: ELSE
2116: l_return_value := FND_API.G_TRUE;
2117: END IF;
2118:
2112:
2113: IF l_dummy='?' THEN
2114: l_return_value := FND_API.G_FALSE;
2115: ELSE
2116: l_return_value := FND_API.G_TRUE;
2117: END IF;
2118:
2119: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2120: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'14300: Leaving is_manual_article_exist');
2124: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2125: RETURN l_return_value ;
2126:
2127: EXCEPTION
2128: WHEN FND_API.G_EXC_ERROR THEN
2129: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2130: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'14400: Leaving is_manual_article_exist : OKC_API.G_EXCEPTION_ERROR Exception');
2131: END IF;
2132: x_return_status := G_RET_STS_ERROR ;
2132: x_return_status := G_RET_STS_ERROR ;
2133: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2134: RETURN NULL ;
2135:
2136: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2137: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2138: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'14500: Leaving is_manual_article_exist : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2139: END IF;
2140: x_return_status := G_RET_STS_UNEXP_ERROR ;
2159:
2160:
2161: FUNCTION Get_Template_Name(
2162: p_api_version IN NUMBER,
2163: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2164: p_template_id IN NUMBER,
2165:
2166: x_return_status OUT NOCOPY VARCHAR2,
2167: x_msg_data OUT NOCOPY VARCHAR2,
2181: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'14700: Get_Template_Name');
2182: END IF;
2183:
2184: -- Standard call to check for call compatibility.
2185: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2188:
2189: -- Initialize message list if p_init_msg_list is set to TRUE.
2182: END IF;
2183:
2184: -- Standard call to check for call compatibility.
2185: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2188:
2189: -- Initialize message list if p_init_msg_list is set to TRUE.
2190: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2187: END IF;
2188:
2189: -- Initialize message list if p_init_msg_list is set to TRUE.
2190: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2191: FND_MSG_PUB.initialize;
2192: END IF;
2193:
2194: -- Initialize API return status to success
2217:
2218: RETURN l_return_value ;
2219:
2220: EXCEPTION
2221: WHEN FND_API.G_EXC_ERROR THEN
2222: IF c_get_template_name%ISOPEN THEN
2223: CLOSE c_get_template_name;
2224: END IF;
2225: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2228: x_return_status := G_RET_STS_ERROR ;
2229: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2230: RETURN NULL ;
2231:
2232: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2233: IF c_get_template_name%ISOPEN THEN
2234: CLOSE c_get_template_name;
2235: END IF;
2236: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2270: l_msg_count NUMBER;
2271: l_msg_data FND_NEW_MESSAGES.MESSAGE_TEXT%TYPE;
2272: BEGIN
2273: Get_Terms_Template(p_api_version =>1,
2274: p_init_msg_list => FND_API.G_FALSE,
2275: x_return_status => l_return_status,
2276: x_msg_count => l_msg_count,
2277: x_msg_data => l_msg_data,
2278: p_doc_type => p_doc_type,
2287: END Get_Terms_Template;
2288:
2289: PROCEDURE get_item_dtl_for_expert(
2290: p_api_version IN NUMBER,
2291: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2292:
2293: x_return_status OUT NOCOPY VARCHAR2,
2294: x_msg_data OUT NOCOPY VARCHAR2,
2295: x_msg_count OUT NOCOPY NUMBER,
2311: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'15400: Entered get_item_dtl_for_expert');
2312: END IF;
2313:
2314: -- Standard call to check for call compatibility.
2315: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: -- Initialize message list if p_init_msg_list is set to TRUE.
2319: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2312: END IF;
2313:
2314: -- Standard call to check for call compatibility.
2315: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: -- Initialize message list if p_init_msg_list is set to TRUE.
2319: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2320: FND_MSG_PUB.initialize;
2315: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2316: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2317: END IF;
2318: -- Initialize message list if p_init_msg_list is set to TRUE.
2319: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2320: FND_MSG_PUB.initialize;
2321: END IF;
2322: -- Initialize API return status to success
2323: x_return_status := G_RET_STS_SUCCESS;
2348: );
2349:
2350: --------------------------------------------
2351: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2353: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2354: RAISE FND_API.G_EXC_ERROR ;
2355: END IF;
2356: --------------------------------------------
2350: --------------------------------------------
2351: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2352: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2353: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2354: RAISE FND_API.G_EXC_ERROR ;
2355: END IF;
2356: --------------------------------------------
2357:
2358: ELSIF l_doc_class = 'PO' THEN
2370: x_category_tbl => x_category_tbl);
2371:
2372: --------------------------------------------
2373: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2375: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2376: RAISE FND_API.G_EXC_ERROR ;
2377: END IF;
2378: --------------------------------------------
2372: --------------------------------------------
2373: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2374: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2375: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2376: RAISE FND_API.G_EXC_ERROR ;
2377: END IF;
2378: --------------------------------------------
2379:
2380: ELSIF l_doc_class = 'SOURCING' THEN
2391: x_category_tbl => x_category_tbl);
2392:
2393: --------------------------------------------
2394: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2396: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2397: RAISE FND_API.G_EXC_ERROR ;
2398: END IF;
2399: --------------------------------------------
2393: --------------------------------------------
2394: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2396: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2397: RAISE FND_API.G_EXC_ERROR ;
2398: END IF;
2399: --------------------------------------------
2400: ELSIF l_doc_class = 'QUOTE' THEN
2401:
2411: x_category_tbl => x_category_tbl);
2412:
2413: --------------------------------------------
2414: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2416: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2417: RAISE FND_API.G_EXC_ERROR ;
2418: END IF;
2419: --------------------------------------------
2413: --------------------------------------------
2414: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2415: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2416: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2417: RAISE FND_API.G_EXC_ERROR ;
2418: END IF;
2419: --------------------------------------------
2420: ELSE
2421: NULL;
2426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'15500: Leaving get_item_dtl_for_expert');
2428: END IF;
2429: EXCEPTION
2430: WHEN FND_API.G_EXC_ERROR THEN
2431:
2432: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2433: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'15600: Leaving get_item_dtl_for_expert : OKC_API.G_EXCEPTION_ERROR Exception');
2434: END IF;
2434: END IF;
2435: x_return_status := G_RET_STS_ERROR ;
2436: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2437:
2438: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2439:
2440: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2441: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'15700: Leaving get_item_dtl_for_expert : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2442: END IF;
2494:
2495:
2496: OKC_PO_INT_GRP.get_last_signed_revision(
2497: p_api_version => 1 ,
2498: p_init_msg_list => FND_API.G_FALSE,
2499: x_msg_data => l_msg_data ,
2500: x_msg_count => l_msg_count ,
2501: x_return_status => l_return_status,
2502:
2505: x_signed_revision_num => l_signed_version);
2506:
2507: --------------------------------------------
2508: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
2509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2510: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2511: RAISE FND_API.G_EXC_ERROR ;
2512: END IF;
2513: --------------------------------------------
2507: --------------------------------------------
2508: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
2509: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2510: ELSIF (l_return_status = G_RET_STS_ERROR) THEN
2511: RAISE FND_API.G_EXC_ERROR ;
2512: END IF;
2513: --------------------------------------------
2514:
2515: ELSE
2521: END IF;
2522: RETURN l_signed_version;
2523:
2524: EXCEPTION
2525: WHEN FND_API.G_EXC_ERROR THEN
2526:
2527: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2528: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'16100: Leaving get_last_signed_revision : OKC_API.G_EXCEPTION_ERROR Exception');
2529: END IF;
2528: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'16100: Leaving get_last_signed_revision : OKC_API.G_EXCEPTION_ERROR Exception');
2529: END IF;
2530: return NULL;
2531:
2532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2533:
2534: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2535: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'16200: Leaving get_last_signed_revision : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2536: END IF;
2587: IF l_get_template_dtl%NOTFOUND THEN
2588: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2589: p_msg_name => 'OKC_WRONG_TEMPLATE'
2590: );
2591: Raise FND_API.G_EXC_ERROR;
2592: END IF;
2593: CLOSE l_get_template_dtl;
2594:
2595: -- Standard call to get message count and if count is 1, get message info.
2597: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2598: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'16500: Leaving Get_Terms_Template_dtl');
2599: END IF;
2600: EXCEPTION
2601: WHEN FND_API.G_EXC_ERROR THEN
2602:
2603: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2604: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'16600: Leaving Get_Terms_Template_dtl : OKC_API.G_EXCEPTION_ERROR Exception');
2605: END IF;
2608: END IF;
2609: x_return_status := G_RET_STS_ERROR ;
2610: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2611:
2612: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2613:
2614: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2615: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'16700: Leaving Get_Terms_Template_dtl : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2616: END IF;
2702: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2703: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'17000: Leaving Get_Terms_Template_dtl');
2704: END IF;
2705: EXCEPTION
2706: WHEN FND_API.G_EXC_ERROR THEN
2707:
2708: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2709: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'17100: Leaving Get_Terms_Template_dtl : OKC_API.G_EXCEPTION_ERROR Exception');
2710: END IF;
2713: END IF;
2714: x_return_status := G_RET_STS_ERROR ;
2715: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2716:
2717: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2718:
2719: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2720: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'17200: Leaving Get_Terms_Template_dtl : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2721: END IF;
3023: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'15400: Entered Get_Contract_Details');
3024: END IF;
3025:
3026: -- Standard call to check for call compatibility.
3027: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030: -- Initialize message list if p_init_msg_list is set to TRUE.
3031: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3024: END IF;
3025:
3026: -- Standard call to check for call compatibility.
3027: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030: -- Initialize message list if p_init_msg_list is set to TRUE.
3031: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3032: FND_MSG_PUB.initialize;
3027: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3028: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3029: END IF;
3030: -- Initialize message list if p_init_msg_list is set to TRUE.
3031: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3032: FND_MSG_PUB.initialize;
3033: END IF;
3034: -- Initialize API return status to success
3035: x_return_status := G_RET_STS_SUCCESS;
3076: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3077: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'17000: Leaving Get_Contract_Details');
3078: END IF;
3079: EXCEPTION
3080: WHEN FND_API.G_EXC_ERROR THEN
3081:
3082: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3083: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'17100: Leaving Get_Contract_Details : OKC_API.G_EXCEPTION_ERROR Exception');
3084: END IF;
3084: END IF;
3085: x_return_status := G_RET_STS_ERROR ;
3086: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3087:
3088: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3089:
3090: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3091: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'17200: Leaving Get_Contract_Details : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3092: END IF;
3229: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'15400: Entered Get_Contract_Details_All');
3230: END IF;
3231:
3232: -- Standard call to check for call compatibility.
3233: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3235: END IF;
3236: -- Initialize message list if p_init_msg_list is set to TRUE.
3237: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3230: END IF;
3231:
3232: -- Standard call to check for call compatibility.
3233: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3235: END IF;
3236: -- Initialize message list if p_init_msg_list is set to TRUE.
3237: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3238: FND_MSG_PUB.initialize;
3233: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3235: END IF;
3236: -- Initialize message list if p_init_msg_list is set to TRUE.
3237: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3238: FND_MSG_PUB.initialize;
3239: END IF;
3240: -- Initialize API return status to success
3241: x_return_status := G_RET_STS_SUCCESS;
3351: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3352: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'17000: Leaving Get_Contract_Details_All');
3353: END IF;
3354: EXCEPTION
3355: WHEN FND_API.G_EXC_ERROR THEN
3356:
3357: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3358: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'17100: Leaving Get_Contract_Details_All : OKC_API.G_EXCEPTION_ERROR Exception');
3359: END IF;
3359: END IF;
3360: x_return_status := G_RET_STS_ERROR ;
3361: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3362:
3363: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3364:
3365: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3366: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'17200: Leaving Get_Contract_Details_All : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3367: END IF;
3452: --document type and org id.
3453: --Else returns 'N'.
3454: FUNCTION Is_Terms_Template_Valid(
3455: p_api_version IN NUMBER,
3456: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3457:
3458: x_return_status OUT NOCOPY VARCHAR2,
3459: x_msg_data OUT NOCOPY VARCHAR2,
3460: x_msg_count OUT NOCOPY NUMBER,
3489: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6900: Entered Is_Terms_Template_Valid');
3490: END IF;
3491:
3492: -- Standard call to check for call compatibility.
3493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3495: END IF;
3496:
3497: -- Initialize message list if p_init_msg_list is set to TRUE.
3490: END IF;
3491:
3492: -- Standard call to check for call compatibility.
3493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3495: END IF;
3496:
3497: -- Initialize message list if p_init_msg_list is set to TRUE.
3498: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3495: END IF;
3496:
3497: -- Initialize message list if p_init_msg_list is set to TRUE.
3498: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3499: FND_MSG_PUB.initialize;
3500: END IF;
3501:
3502: x_return_status := G_RET_STS_SUCCESS;
3519: RETURN 'N';
3520: END IF;
3521:
3522: EXCEPTION
3523: WHEN FND_API.G_EXC_ERROR THEN
3524:
3525: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3526: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Is_Terms_Template_Valid : OKC_API.G_EXCEPTION_ERROR Exception');
3527: END IF;
3528:
3529: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3530: x_return_status := G_RET_STS_ERROR ;
3531:
3532: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3533: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3534: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Is_Terms_Template_Valid : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3535: END IF;
3536:
3556: --Returns values used for defaulting Contract Terms Details for authoring_party,contract_source,
3557: --template_name,template_description in OM.
3558: PROCEDURE Get_Contract_Defaults(
3559: p_api_version IN NUMBER,
3560: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3561:
3562: x_return_status OUT NOCOPY VARCHAR2,
3563: x_msg_data OUT NOCOPY VARCHAR2,
3564: x_msg_count OUT NOCOPY NUMBER,
3595: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6900: Entered Get_Contract_Defaults');
3596: END IF;
3597:
3598: -- Standard call to check for call compatibility.
3599: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3601: END IF;
3602:
3603: -- Initialize message list if p_init_msg_list is set to TRUE.
3596: END IF;
3597:
3598: -- Standard call to check for call compatibility.
3599: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3601: END IF;
3602:
3603: -- Initialize message list if p_init_msg_list is set to TRUE.
3604: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3600: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3601: END IF;
3602:
3603: -- Initialize message list if p_init_msg_list is set to TRUE.
3604: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3605: FND_MSG_PUB.initialize;
3606: END IF;
3607:
3608: x_return_status := G_RET_STS_SUCCESS;
3640: END IF;
3641:
3642:
3643: EXCEPTION
3644: WHEN FND_API.G_EXC_ERROR THEN
3645:
3646: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3647: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Get_Contract_Defaults : OKC_API.G_EXCEPTION_ERROR Exception');
3648: END IF;
3649:
3650: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3651: x_return_status := G_RET_STS_ERROR ;
3652:
3653: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3654: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3655: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Get_Contract_Defaults : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3656: END IF;
3657:
3674: END Get_Contract_Defaults;
3675:
3676: PROCEDURE Get_Default_Template(
3677: p_api_version IN NUMBER,
3678: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3679:
3680: x_return_status OUT NOCOPY VARCHAR2,
3681: x_msg_data OUT NOCOPY VARCHAR2,
3682: x_msg_count OUT NOCOPY NUMBER,
3718: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6930: p_valid_date='||p_valid_date);
3719: END IF;
3720:
3721: -- Standard call to check for call compatibility.
3722: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3724: END IF;
3725:
3726: -- Initialize message list if p_init_msg_list is set to TRUE.
3719: END IF;
3720:
3721: -- Standard call to check for call compatibility.
3722: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3724: END IF;
3725:
3726: -- Initialize message list if p_init_msg_list is set to TRUE.
3727: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3723: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3724: END IF;
3725:
3726: -- Initialize message list if p_init_msg_list is set to TRUE.
3727: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3728: FND_MSG_PUB.initialize;
3729: END IF;
3730:
3731: x_return_status := G_RET_STS_SUCCESS;
3745: END IF;
3746:
3747:
3748: EXCEPTION
3749: WHEN FND_API.G_EXC_ERROR THEN
3750:
3751: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3752: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Get_Default_Template : OKC_API.G_EXCEPTION_ERROR Exception');
3753: END IF;
3753: END IF;
3754: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3755: x_return_status := G_RET_STS_ERROR ;
3756:
3757: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3758: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3759: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Get_Default_Template : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3760: END IF;
3761:
3871:
3872:
3873: PROCEDURE Has_Uploaded_Deviations_Doc(
3874: p_api_version IN NUMBER,
3875: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3876:
3877: x_return_status OUT NOCOPY VARCHAR2,
3878: x_msg_data OUT NOCOPY VARCHAR2,
3879: x_msg_count OUT NOCOPY NUMBER,
3893: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6900: Entered Has_Uploaded_Deviations_Doc');
3894: END IF;
3895:
3896: -- Standard call to check for call compatibility.
3897: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3899: END IF;
3900:
3901: -- Initialize message list if p_init_msg_list is set to TRUE.
3894: END IF;
3895:
3896: -- Standard call to check for call compatibility.
3897: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3899: END IF;
3900:
3901: -- Initialize message list if p_init_msg_list is set to TRUE.
3902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3898: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3899: END IF;
3900:
3901: -- Initialize message list if p_init_msg_list is set to TRUE.
3902: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3903: FND_MSG_PUB.initialize;
3904: END IF;
3905:
3906: x_return_status := G_RET_STS_SUCCESS;
3925: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Leaving Has_Uploaded_Deviations_Doc');
3926: END IF;
3927:
3928: EXCEPTION
3929: WHEN FND_API.G_EXC_ERROR THEN
3930:
3931: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3932: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7200: Leaving Has_Uploaded_Deviations_Doc : OKC_API.G_EXCEPTION_ERROR Exception');
3933: END IF;
3934:
3935: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3936: x_return_status := G_RET_STS_ERROR ;
3937:
3938: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3939: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3940: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7300: Leaving Has_Uploaded_Deviations_Doc : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3941: END IF;
3942:
4006: END is_Deviations_enabled;
4007:
4008: FUNCTION Contract_Terms_Amended(
4009: p_api_version IN NUMBER,
4010: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4011:
4012: x_return_status OUT NOCOPY VARCHAR2,
4013: x_msg_data OUT NOCOPY VARCHAR2,
4014: x_msg_count OUT NOCOPY NUMBER,
4049: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4050: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Contract_Terms_Amended');
4051: END IF;
4052: -- Standard call to check for call compatibility.
4053: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4055: END IF;
4056: -- Initialize message list if p_init_msg_list is set to TRUE.
4057: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4050: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Contract_Terms_Amended');
4051: END IF;
4052: -- Standard call to check for call compatibility.
4053: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4055: END IF;
4056: -- Initialize message list if p_init_msg_list is set to TRUE.
4057: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4058: FND_MSG_PUB.initialize;
4053: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4055: END IF;
4056: -- Initialize message list if p_init_msg_list is set to TRUE.
4057: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4058: FND_MSG_PUB.initialize;
4059: END IF;
4060: -- Initialize API return status to success
4061: x_return_status := G_RET_STS_SUCCESS;
4095:
4096: RETURN l_return_value ;
4097:
4098: EXCEPTION
4099: WHEN FND_API.G_EXC_ERROR THEN
4100: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4101: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Contract_Terms_Amended : OKC_API.G_EXCEPTION_ERROR Exception');
4102: END IF;
4103: x_return_status := G_RET_STS_ERROR ;
4103: x_return_status := G_RET_STS_ERROR ;
4104: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4105: RETURN NULL ;
4106:
4107: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4108:
4109: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4110: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Contract_Terms_Amended : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
4111: END IF;
4138:
4139: ----MLS for templates
4140: PROCEDURE get_translated_template(
4141: p_api_version IN NUMBER,
4142: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
4143:
4144: p_template_id IN NUMBER,
4145: p_language IN VARCHAR2,
4146: p_document_type IN VARCHAR2,
4185: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6900: Entered get_translated_template');
4186: END IF;
4187:
4188: -- Standard call to check for call compatibility.
4189: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4191: END IF;
4192:
4193: -- Initialize message list if p_init_msg_list is set to TRUE.
4186: END IF;
4187:
4188: -- Standard call to check for call compatibility.
4189: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4191: END IF;
4192:
4193: -- Initialize message list if p_init_msg_list is set to TRUE.
4194: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4190: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4191: END IF;
4192:
4193: -- Initialize message list if p_init_msg_list is set to TRUE.
4194: IF FND_API.to_Boolean( p_init_msg_list ) THEN
4195: FND_MSG_PUB.initialize;
4196: END IF;
4197:
4198: x_return_status := G_RET_STS_SUCCESS;
4201: OPEN l_tmpl_csr;
4202: FETCH l_tmpl_csr INTO l_translated_from_tmpl_id, l_language, l_org_id, l_parent_template_id;
4203: IF l_tmpl_csr%NOTFOUND THEN
4204: CLOSE l_tmpl_csr;
4205: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4206: END IF;
4207: CLOSE l_tmpl_csr;
4208:
4209: IF l_language = p_language THEN
4251: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Leaving get_translated_template');
4252: END IF;
4253:
4254: EXCEPTION
4255: WHEN FND_API.G_EXC_ERROR THEN
4256: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4257: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7400: Leaving Contract_Terms_Amended : OKC_API.G_EXCEPTION_ERROR Exception');
4258: END IF;
4259: x_return_status := G_RET_STS_ERROR ;
4259: x_return_status := G_RET_STS_ERROR ;
4260: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
4261: RETURN ;
4262:
4263: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
4264:
4265: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
4266: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7500: Leaving Contract_Terms_Amended : OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
4267: END IF;