16:
17: ------------------------------------------------------------------------------
18: -- GLOBAL CONSTANTS
19: ------------------------------------------------------------------------------
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
17: ------------------------------------------------------------------------------
18: -- GLOBAL CONSTANTS
19: ------------------------------------------------------------------------------
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
18: -- GLOBAL CONSTANTS
19: ------------------------------------------------------------------------------
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
26: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
19: ------------------------------------------------------------------------------
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
26: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
20: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
21: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
22: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
26: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
28: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
22: G_MISS_NUM CONSTANT NUMBER := FND_API.G_MISS_NUM;
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
26: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
28: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
29:
30: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
23: G_MISS_CHAR CONSTANT VARCHAR2(1) := FND_API.G_MISS_CHAR;
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
26: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
28: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
29:
30: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
31: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
24: G_MISS_DATE CONSTANT DATE := FND_API.G_MISS_DATE;
25:
26: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
27: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
28: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
29:
30: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
31: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
32: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
36: ---------------------------------------
37: PROCEDURE validate_row(
38: p_api_version IN NUMBER,
39: p_init_msg_list IN VARCHAR2 ,
40: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
41:
42: x_return_status OUT NOCOPY VARCHAR2,
43: x_msg_count OUT NOCOPY NUMBER,
44: x_msg_data OUT NOCOPY VARCHAR2,
83:
84: -- Standard Start of API savepoint
85: SAVEPOINT g_validate_row_GRP;
86: -- Standard call to check for call compatibility.
87: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91: IF FND_API.to_Boolean( p_init_msg_list ) THEN
84: -- Standard Start of API savepoint
85: SAVEPOINT g_validate_row_GRP;
86: -- Standard call to check for call compatibility.
87: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91: IF FND_API.to_Boolean( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
87: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
88: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
89: END IF;
90: -- Initialize message list if p_init_msg_list is set to TRUE.
91: IF FND_API.to_Boolean( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
93: END IF;
94: -- Initialize API return status to success
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
91: IF FND_API.to_Boolean( p_init_msg_list ) THEN
92: FND_MSG_PUB.initialize;
93: END IF;
94: -- Initialize API return status to success
95: x_return_status := FND_API.G_RET_STS_SUCCESS;
96:
97: --added for 10+ word integration and deviations report
98: --Set default value for p_authoring_party_code
99: l_authoring_party_code := p_authoring_party_code;
136: p_locked_by_user_id => p_locked_by_user_id
137: );
138: --------------------------------------------
139: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
141: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
142: RAISE FND_API.G_EXC_ERROR ;
143: END IF;
144: --------------------------------------------
138: --------------------------------------------
139: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
141: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
142: RAISE FND_API.G_EXC_ERROR ;
143: END IF;
144: --------------------------------------------
145:
146: -- Standard call to get message count and if count is 1, get message info.
150: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving validate_row');
151: END IF;
152:
153: EXCEPTION
154: WHEN FND_API.G_EXC_ERROR THEN
155: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
156: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving Validate_Row: OKC_API.G_EXCEPTION_ERROR Exception');
157: END IF;
158: ROLLBACK TO g_validate_row_GRP;
158: ROLLBACK TO g_validate_row_GRP;
159: x_return_status := G_RET_STS_ERROR ;
160: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
161:
162: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
163: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
164: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'400: Leaving Validate_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
165: END IF;
166: ROLLBACK TO g_validate_row_GRP;
186: -------------------------------------
187: PROCEDURE create_template_usages(
188: p_api_version IN NUMBER,
189: p_init_msg_list IN VARCHAR2 ,
190: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
192:
193: x_return_status OUT NOCOPY VARCHAR2,
194: x_msg_count OUT NOCOPY NUMBER,
187: PROCEDURE create_template_usages(
188: p_api_version IN NUMBER,
189: p_init_msg_list IN VARCHAR2 ,
190: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
191: p_commit IN VARCHAR2 := FND_API.G_FALSE,
192:
193: x_return_status OUT NOCOPY VARCHAR2,
194: x_msg_count OUT NOCOPY NUMBER,
195: x_msg_data OUT NOCOPY VARCHAR2,
241:
242: -- Standard Start of API savepoint
243: SAVEPOINT g_insert_row_GRP;
244: -- Standard call to check for call compatibility.
245: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248: -- Initialize message list if p_init_msg_list is set to TRUE.
249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
242: -- Standard Start of API savepoint
243: SAVEPOINT g_insert_row_GRP;
244: -- Standard call to check for call compatibility.
245: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248: -- Initialize message list if p_init_msg_list is set to TRUE.
249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
250: FND_MSG_PUB.initialize;
245: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248: -- Initialize message list if p_init_msg_list is set to TRUE.
249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
250: FND_MSG_PUB.initialize;
251: END IF;
252: -- Initialize API return status to success
253: x_return_status := FND_API.G_RET_STS_SUCCESS;
249: IF FND_API.to_Boolean( p_init_msg_list ) THEN
250: FND_MSG_PUB.initialize;
251: END IF;
252: -- Initialize API return status to success
253: x_return_status := FND_API.G_RET_STS_SUCCESS;
254: --added for 10+ word integration and deviations report
255: --Set default value for p_authoring_party_code
256:
257: -- Fix for bug# 4116433. l_authoring_party_code is to be initialized with the value from p_authoring_party_code
297: p_locked_by_user_id => p_locked_by_user_id
298: );
299: --------------------------------------------
300: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
302: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
303: RAISE FND_API.G_EXC_ERROR ;
304: END IF;
305: --------------------------------------------
299: --------------------------------------------
300: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
301: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
302: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
303: RAISE FND_API.G_EXC_ERROR ;
304: END IF;
305: --------------------------------------------
306:
307: -- Standard check of p_commit
304: END IF;
305: --------------------------------------------
306:
307: -- Standard check of p_commit
308: IF FND_API.To_Boolean( p_commit ) THEN
309: COMMIT WORK;
310: END IF;
311: -- Standard call to get message count and if count is 1, get message info.
312: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
315: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Leaving create_template_usages');
316: END IF;
317:
318: EXCEPTION
319: WHEN FND_API.G_EXC_ERROR THEN
320: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
321: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'800: Leaving create_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
322: END IF;
323: ROLLBACK TO g_insert_row_GRP;
323: ROLLBACK TO g_insert_row_GRP;
324: x_return_status := G_RET_STS_ERROR ;
325: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
326:
327: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
328: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
329: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving insert_row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
330: END IF;
331: ROLLBACK TO g_insert_row_GRP;
370:
371: -- Standard Start of API savepoint
372: SAVEPOINT g_lock_row_GRP;
373: -- Standard call to check for call compatibility.
374: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376: END IF;
377: -- Initialize message list if p_init_msg_list is set to TRUE.
378: IF FND_API.to_Boolean( p_init_msg_list ) THEN
371: -- Standard Start of API savepoint
372: SAVEPOINT g_lock_row_GRP;
373: -- Standard call to check for call compatibility.
374: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376: END IF;
377: -- Initialize message list if p_init_msg_list is set to TRUE.
378: IF FND_API.to_Boolean( p_init_msg_list ) THEN
379: FND_MSG_PUB.initialize;
374: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
375: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
376: END IF;
377: -- Initialize message list if p_init_msg_list is set to TRUE.
378: IF FND_API.to_Boolean( p_init_msg_list ) THEN
379: FND_MSG_PUB.initialize;
380: END IF;
381: -- Initialize API return status to success
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
378: IF FND_API.to_Boolean( p_init_msg_list ) THEN
379: FND_MSG_PUB.initialize;
380: END IF;
381: -- Initialize API return status to success
382: x_return_status := FND_API.G_RET_STS_SUCCESS;
383:
384: --------------------------------------------
385: -- Calling Simple API for Locking A Row
386: --------------------------------------------
391: p_object_version_number => p_object_version_number
392: );
393: --------------------------------------------
394: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
396: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
397: RAISE FND_API.G_EXC_ERROR ;
398: END IF;
399: --------------------------------------------
393: --------------------------------------------
394: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
396: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
397: RAISE FND_API.G_EXC_ERROR ;
398: END IF;
399: --------------------------------------------
400:
401: -- Standard call to get message count and if count is 1, get message info.
405: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Leaving lock_row');
406: END IF;
407:
408: EXCEPTION
409: WHEN FND_API.G_EXC_ERROR THEN
410: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
411: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1300: Leaving lock_Row: OKC_API.G_EXCEPTION_ERROR Exception');
412: END IF;
413: ROLLBACK TO g_lock_row_GRP;
413: ROLLBACK TO g_lock_row_GRP;
414: x_return_status := G_RET_STS_ERROR ;
415: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
416:
417: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
418: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
419: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1400: Leaving lock_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
420: END IF;
421: ROLLBACK TO g_lock_row_GRP;
440: ---------------------------------------------------------------------------
441: PROCEDURE update_template_usages(
442: p_api_version IN NUMBER,
443: p_init_msg_list IN VARCHAR2 ,
444: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
445: p_commit IN VARCHAR2 := FND_API.G_FALSE,
446:
447: x_return_status OUT NOCOPY VARCHAR2,
448: x_msg_count OUT NOCOPY NUMBER,
441: PROCEDURE update_template_usages(
442: p_api_version IN NUMBER,
443: p_init_msg_list IN VARCHAR2 ,
444: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
445: p_commit IN VARCHAR2 := FND_API.G_FALSE,
446:
447: x_return_status OUT NOCOPY VARCHAR2,
448: x_msg_count OUT NOCOPY NUMBER,
449: x_msg_data OUT NOCOPY VARCHAR2,
489:
490: -- Standard Start of API savepoint
491: SAVEPOINT g_update_row_GRP;
492: -- Standard call to check for call compatibility.
493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496: -- Initialize message list if p_init_msg_list is set to TRUE.
497: IF FND_API.to_Boolean( p_init_msg_list ) THEN
490: -- Standard Start of API savepoint
491: SAVEPOINT g_update_row_GRP;
492: -- Standard call to check for call compatibility.
493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496: -- Initialize message list if p_init_msg_list is set to TRUE.
497: IF FND_API.to_Boolean( p_init_msg_list ) THEN
498: FND_MSG_PUB.initialize;
493: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
494: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
495: END IF;
496: -- Initialize message list if p_init_msg_list is set to TRUE.
497: IF FND_API.to_Boolean( p_init_msg_list ) THEN
498: FND_MSG_PUB.initialize;
499: END IF;
500: -- Initialize API return status to success
501: x_return_status := FND_API.G_RET_STS_SUCCESS;
497: IF FND_API.to_Boolean( p_init_msg_list ) THEN
498: FND_MSG_PUB.initialize;
499: END IF;
500: -- Initialize API return status to success
501: x_return_status := FND_API.G_RET_STS_SUCCESS;
502:
503: --------------------------------------------
504: -- Calling Simple API for Updating A Row
505: --------------------------------------------
531: p_locked_by_user_id => p_locked_by_user_id
532: );
533: --------------------------------------------
534: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
536: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
537: RAISE FND_API.G_EXC_ERROR ;
538: END IF;
539: --------------------------------------------
533: --------------------------------------------
534: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
535: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
536: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
537: RAISE FND_API.G_EXC_ERROR ;
538: END IF;
539: --------------------------------------------
540:
541: -- Standard check of p_commit
538: END IF;
539: --------------------------------------------
540:
541: -- Standard check of p_commit
542: IF FND_API.To_Boolean( p_commit ) THEN
543: COMMIT WORK;
544: END IF;
545: -- Standard call to get message count and if count is 1, get message info.
546: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
549: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: Leaving update_template_usages');
550: END IF;
551:
552: EXCEPTION
553: WHEN FND_API.G_EXC_ERROR THEN
554: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
555: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1900: Leaving update_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
556: END IF;
557: ROLLBACK TO g_update_row_GRP;
557: ROLLBACK TO g_update_row_GRP;
558: x_return_status := G_RET_STS_ERROR ;
559: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
560:
561: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
562: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2000: Leaving update_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
564: END IF;
565: ROLLBACK TO g_update_row_GRP;
585: ---------------------------------------------------------------------------
586: PROCEDURE delete_template_usages(
587: p_api_version IN NUMBER,
588: p_init_msg_list IN VARCHAR2 ,
589: p_commit IN VARCHAR2 := FND_API.G_FALSE,
590:
591: x_return_status OUT NOCOPY VARCHAR2,
592: x_msg_count OUT NOCOPY NUMBER,
593: x_msg_data OUT NOCOPY VARCHAR2,
606:
607: -- Standard Start of API savepoint
608: SAVEPOINT g_delete_row_GRP;
609: -- Standard call to check for call compatibility.
610: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
612: END IF;
613: -- Initialize message list if p_init_msg_list is set to TRUE.
614: IF FND_API.to_Boolean( p_init_msg_list ) THEN
607: -- Standard Start of API savepoint
608: SAVEPOINT g_delete_row_GRP;
609: -- Standard call to check for call compatibility.
610: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
612: END IF;
613: -- Initialize message list if p_init_msg_list is set to TRUE.
614: IF FND_API.to_Boolean( p_init_msg_list ) THEN
615: FND_MSG_PUB.initialize;
610: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
612: END IF;
613: -- Initialize message list if p_init_msg_list is set to TRUE.
614: IF FND_API.to_Boolean( p_init_msg_list ) THEN
615: FND_MSG_PUB.initialize;
616: END IF;
617: -- Initialize API return status to success
618: x_return_status := FND_API.G_RET_STS_SUCCESS;
614: IF FND_API.to_Boolean( p_init_msg_list ) THEN
615: FND_MSG_PUB.initialize;
616: END IF;
617: -- Initialize API return status to success
618: x_return_status := FND_API.G_RET_STS_SUCCESS;
619:
620: --------------------------------------------
621: -- Calling Simple API for Deleting A Row
622: --------------------------------------------
627: p_object_version_number => p_object_version_number
628: );
629: --------------------------------------------
630: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
632: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
633: RAISE FND_API.G_EXC_ERROR ;
634: END IF;
635: --------------------------------------------
629: --------------------------------------------
630: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
631: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
632: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
633: RAISE FND_API.G_EXC_ERROR ;
634: END IF;
635: --------------------------------------------
636:
637: -- Standard check of p_commit
634: END IF;
635: --------------------------------------------
636:
637: -- Standard check of p_commit
638: IF FND_API.To_Boolean( p_commit ) THEN
639: COMMIT WORK;
640: END IF;
641: -- Standard call to get message count and if count is 1, get message info.
642: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
645: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving delete_template_usages');
646: END IF;
647:
648: EXCEPTION
649: WHEN FND_API.G_EXC_ERROR THEN
650: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
651: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving delete_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
652: END IF;
653: ROLLBACK TO g_delete_row_GRP;
653: ROLLBACK TO g_delete_row_GRP;
654: x_return_status := G_RET_STS_ERROR ;
655: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
656:
657: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
658: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
659: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving delete_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
660: END IF;
661: ROLLBACK TO g_delete_row_GRP;
678:
679: PROCEDURE Set_Contract_Source(
680: p_api_version IN NUMBER,
681: p_init_msg_list IN VARCHAR2 ,
682: p_commit IN VARCHAR2 := FND_API.G_FALSE,
683:
684: x_return_status OUT NOCOPY VARCHAR2,
685: x_msg_count OUT NOCOPY NUMBER,
686: x_msg_data OUT NOCOPY VARCHAR2,
723: -- Standard Start of API savepoint
724: SAVEPOINT g_set_contract_source_GRP;
725:
726: -- Standard call to check for call compatibility.
727: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730:
731: -- Initialize message list if p_init_msg_list is set to TRUE.
724: SAVEPOINT g_set_contract_source_GRP;
725:
726: -- Standard call to check for call compatibility.
727: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730:
731: -- Initialize message list if p_init_msg_list is set to TRUE.
732: IF FND_API.to_Boolean( p_init_msg_list ) THEN
728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
729: END IF;
730:
731: -- Initialize message list if p_init_msg_list is set to TRUE.
732: IF FND_API.to_Boolean( p_init_msg_list ) THEN
733: FND_MSG_PUB.initialize;
734: END IF;
735:
736: -- Check if anything changed. If no change, then nothing to update, return.
749: END IF;
750: END IF;
751:
752: -- Bug 4003064. Added call to check if ok_to_commit()
753: IF NOT FND_API.To_Boolean( OKC_TERMS_UTIL_GRP.ok_to_commit (
754: p_api_version => l_api_version,
755: p_init_msg_list => FND_API.G_FALSE,
756: p_doc_type => p_document_type,
757: p_doc_id => p_document_id,
751:
752: -- Bug 4003064. Added call to check if ok_to_commit()
753: IF NOT FND_API.To_Boolean( OKC_TERMS_UTIL_GRP.ok_to_commit (
754: p_api_version => l_api_version,
755: p_init_msg_list => FND_API.G_FALSE,
756: p_doc_type => p_document_type,
757: p_doc_id => p_document_id,
758: p_validation_string => p_validation_string,
759: p_tmpl_change => 'Y',
763: ) THEN
764: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
765: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Issue with document header Record.Cannot commit');
766: END IF;
767: RAISE FND_API.G_EXC_ERROR;
768: END IF;
769:
770: -- Initialize API return status to success
771: x_return_status := FND_API.G_RET_STS_SUCCESS;
767: RAISE FND_API.G_EXC_ERROR;
768: END IF;
769:
770: -- Initialize API return status to success
771: x_return_status := FND_API.G_RET_STS_SUCCESS;
772:
773: OPEN l_template_usages_csr;
774: FETCH l_template_usages_csr into l_value;
775: CLOSE l_template_usages_csr;
815: END IF;
816:
817: --------------------------------------------
818: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
820: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
821: RAISE FND_API.G_EXC_ERROR ;
822: END IF;
823: --------------------------------------------
817: --------------------------------------------
818: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
819: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
820: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
821: RAISE FND_API.G_EXC_ERROR ;
822: END IF;
823: --------------------------------------------
824:
825: -- Standard check of p_commit
822: END IF;
823: --------------------------------------------
824:
825: -- Standard check of p_commit
826: IF FND_API.To_Boolean( p_commit ) THEN
827: COMMIT WORK;
828: END IF;
829: -- Standard call to get message count and if count is 1, get message info.
830: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
833: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source');
834: END IF;
835:
836: EXCEPTION
837: WHEN FND_API.G_EXC_ERROR THEN
838: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
839: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_ERROR Exception');
840: END IF;
841: ROLLBACK TO g_set_contract_source_GRP;
841: ROLLBACK TO g_set_contract_source_GRP;
842: x_return_status := G_RET_STS_ERROR ;
843: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
844:
845: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
846: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
848: END IF;
849: ROLLBACK TO g_set_contract_source_GRP;
866:
867: PROCEDURE Set_Contract_Source_details(
868: p_api_version IN NUMBER,
869: p_init_msg_list IN VARCHAR2 ,
870: p_commit IN VARCHAR2 := FND_API.G_FALSE,
871:
872: x_return_status OUT NOCOPY VARCHAR2,
873: x_msg_count OUT NOCOPY NUMBER,
874: x_msg_data OUT NOCOPY VARCHAR2,
917: -- Standard Start of API savepoint
918: SAVEPOINT g_set_contract_src_dtls_GRP;
919:
920: -- Standard call to check for call compatibility.
921: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
924:
925: -- Initialize message list if p_init_msg_list is set to TRUE.
918: SAVEPOINT g_set_contract_src_dtls_GRP;
919:
920: -- Standard call to check for call compatibility.
921: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
924:
925: -- Initialize message list if p_init_msg_list is set to TRUE.
926: IF FND_API.to_Boolean( p_init_msg_list ) THEN
922: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
923: END IF;
924:
925: -- Initialize message list if p_init_msg_list is set to TRUE.
926: IF FND_API.to_Boolean( p_init_msg_list ) THEN
927: FND_MSG_PUB.initialize;
928: END IF;
929:
930: -- Check if anything changed. If no change, then nothing to update, return.
934:
935:
936:
937: -- Bug 4003064. Added call to check if ok_to_commit()
938: IF NOT FND_API.To_Boolean( OKC_TERMS_UTIL_GRP.ok_to_commit (
939: p_api_version => l_api_version,
940: p_init_msg_list => FND_API.G_FALSE,
941: p_doc_type => p_document_type,
942: p_doc_id => p_document_id,
936:
937: -- Bug 4003064. Added call to check if ok_to_commit()
938: IF NOT FND_API.To_Boolean( OKC_TERMS_UTIL_GRP.ok_to_commit (
939: p_api_version => l_api_version,
940: p_init_msg_list => FND_API.G_FALSE,
941: p_doc_type => p_document_type,
942: p_doc_id => p_document_id,
943: p_validation_string => p_validation_string,
944: p_tmpl_change => 'Y',
948: ) THEN
949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'700: Issue with document header Record.Cannot commit');
951: END IF;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: -- Initialize API return status to success
956: x_return_status := FND_API.G_RET_STS_SUCCESS;
952: RAISE FND_API.G_EXC_ERROR;
953: END IF;
954:
955: -- Initialize API return status to success
956: x_return_status := FND_API.G_RET_STS_SUCCESS;
957:
958: OPEN l_template_usages_csr;
959: FETCH l_template_usages_csr into l_value;
960: CLOSE l_template_usages_csr;
1020: END IF;
1021:
1022: --------------------------------------------
1023: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1025: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1026: RAISE FND_API.G_EXC_ERROR ;
1027: END IF;
1028: --------------------------------------------
1022: --------------------------------------------
1023: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1024: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1025: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1026: RAISE FND_API.G_EXC_ERROR ;
1027: END IF;
1028: --------------------------------------------
1029:
1030: -- Standard check of p_commit
1027: END IF;
1028: --------------------------------------------
1029:
1030: -- Standard check of p_commit
1031: IF FND_API.To_Boolean( p_commit ) THEN
1032: COMMIT WORK;
1033: END IF;
1034: -- Standard call to get message count and if count is 1, get message info.
1035: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1038: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: Leaving Set_Contract_Source_details');
1039: END IF;
1040:
1041: EXCEPTION
1042: WHEN FND_API.G_EXC_ERROR THEN
1043: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1044: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2400: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_ERROR Exception');
1045: END IF;
1046: ROLLBACK TO g_set_contract_src_dtls_GRP;
1046: ROLLBACK TO g_set_contract_src_dtls_GRP;
1047: x_return_status := G_RET_STS_ERROR ;
1048: FND_MSG_PUB.Count_And_Get( p_count => x_msg_count, p_data => x_msg_data );
1049:
1050: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1051: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1052: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Set_Contract_Source_details: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1053: END IF;
1054: ROLLBACK TO g_set_contract_src_dtls_GRP;