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_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
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_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
18: ------------------------------------------------------------------------------
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21:
22: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25:
26: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
19: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21:
22: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25:
26: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
27: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
20: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
21:
22: G_RET_STS_SUCCESS CONSTANT varchar2(1) := FND_API.G_RET_STS_SUCCESS;
23: G_RET_STS_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_ERROR;
24: G_RET_STS_UNEXP_ERROR CONSTANT varchar2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
25:
26: G_UNEXPECTED_ERROR CONSTANT varchar2(200) := 'OKC_UNEXPECTED_ERROR';
27: G_SQLERRM_TOKEN CONSTANT varchar2(200) := 'ERROR_MESSAGE';
28: G_SQLCODE_TOKEN CONSTANT varchar2(200) := 'ERROR_CODE';
93:
94: -- Standard Start of API savepoint
95: SAVEPOINT g_validate_row_GRP;
96: -- Standard call to check for call compatibility.
97: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101: IF FND_API.to_Boolean( p_init_msg_list ) THEN
94: -- Standard Start of API savepoint
95: SAVEPOINT g_validate_row_GRP;
96: -- Standard call to check for call compatibility.
97: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101: IF FND_API.to_Boolean( p_init_msg_list ) THEN
102: FND_MSG_PUB.initialize;
97: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
98: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
99: END IF;
100: -- Initialize message list if p_init_msg_list is set to TRUE.
101: IF FND_API.to_Boolean( p_init_msg_list ) THEN
102: FND_MSG_PUB.initialize;
103: END IF;
104: -- Initialize API return status to success
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
101: IF FND_API.to_Boolean( p_init_msg_list ) THEN
102: FND_MSG_PUB.initialize;
103: END IF;
104: -- Initialize API return status to success
105: x_return_status := FND_API.G_RET_STS_SUCCESS;
106:
107: --------------------------------------------
108: -- Calling Simple API for Validation
109: --------------------------------------------
144: p_object_version_number => p_object_version_number
145: );
146: --------------------------------------------
147: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
149: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
150: RAISE FND_API.G_EXC_ERROR ;
151: END IF;
152: --------------------------------------------
146: --------------------------------------------
147: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
148: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
149: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
150: RAISE FND_API.G_EXC_ERROR ;
151: END IF;
152: --------------------------------------------
153:
154: -- Standard call to get message count and if count is 1, get message info.
163: G_PKG_NAME, '200: Leaving validate_row' );
164: END IF;
165:
166: EXCEPTION
167: WHEN FND_API.G_EXC_ERROR THEN
168: /*IF (l_debug = 'Y') THEN
169: okc_debug.log('300: Leaving Validate_Row: OKC_API.G_EXCEPTION_ERROR Exception', 2);
170: END IF;*/
171:
176: ROLLBACK TO g_validate_row_GRP;
177: x_return_status := G_RET_STS_ERROR ;
178: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
179:
180: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
181: /*IF (l_debug = 'Y') THEN
182: okc_debug.log('400: Leaving Validate_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
183: END IF;*/
184:
281:
282: -- Standard Start of API savepoint
283: SAVEPOINT g_create_section_GRP;
284: -- Standard call to check for call compatibility.
285: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
282: -- Standard Start of API savepoint
283: SAVEPOINT g_create_section_GRP;
284: -- Standard call to check for call compatibility.
285: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
285: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
286: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
287: END IF;
288: -- Initialize message list if p_init_msg_list is set to TRUE.
289: IF FND_API.to_Boolean( p_init_msg_list ) THEN
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: -- Initialize API return status to success
290: FND_MSG_PUB.initialize;
291: END IF;
292:
293: -- Initialize API return status to success
294: x_return_status := FND_API.G_RET_STS_SUCCESS;
295:
296: IF p_mode='AMEND' THEN
297: l_amendment_description := p_amendment_description;
298: l_amendment_operation_code := G_AMEND_CODE_ADDED;
345: x_id => x_id
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: --------------------------------------------
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: --------------------------------------------
354:
355: -- Standard check of p_commit
352: END IF;
353: --------------------------------------------
354:
355: -- Standard check of p_commit
356: IF FND_API.To_Boolean( p_commit ) THEN
357: COMMIT WORK;
358: END IF;
359: -- Standard call to get message count and if count is 1, get message info.
360: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
368: G_PKG_NAME, '700: Leaving create_section' );
369: END IF;
370:
371: EXCEPTION
372: WHEN FND_API.G_EXC_ERROR THEN
373: /*IF (l_debug = 'Y') THEN
374: okc_debug.log('800: Leaving create_section: OKC_API.G_EXCEPTION_ERROR Exception', 2);
375: END IF;*/
376:
381: ROLLBACK TO g_create_section_GRP;
382: x_return_status := G_RET_STS_ERROR ;
383: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
384:
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: /*IF (l_debug = 'Y') THEN
387: okc_debug.log('900: Leaving create_section: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
388: END IF;*/
389:
506: -- Standard Start of API savepoint
507: SAVEPOINT g_update_section_GRP;
508:
509: -- Standard call to check for call compatibility.
510: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513:
514: -- Initialize message list if p_init_msg_list is set to TRUE.
507: SAVEPOINT g_update_section_GRP;
508:
509: -- Standard call to check for call compatibility.
510: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513:
514: -- Initialize message list if p_init_msg_list is set to TRUE.
515: IF FND_API.to_Boolean( p_init_msg_list ) THEN
511: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
512: END IF;
513:
514: -- Initialize message list if p_init_msg_list is set to TRUE.
515: IF FND_API.to_Boolean( p_init_msg_list ) THEN
516: FND_MSG_PUB.initialize;
517: END IF;
518:
519: IF p_document_id IS NULL OR p_document_type IS NULL OR p_orig_system_reference_id1 IS NULL THEN
525: l_document_type := p_document_type;
526: l_orig_system_reference_id1 := p_orig_system_reference_id1;
527: END IF;
528:
529: IF FND_API.To_Boolean( p_validate_commit ) THEN
530: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
531: p_api_version => l_api_version,
532: p_init_msg_list => FND_API.G_FALSE,
533: p_doc_type => l_document_type,
526: l_orig_system_reference_id1 := p_orig_system_reference_id1;
527: END IF;
528:
529: IF FND_API.To_Boolean( p_validate_commit ) THEN
530: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
531: p_api_version => l_api_version,
532: p_init_msg_list => FND_API.G_FALSE,
533: p_doc_type => l_document_type,
534: p_doc_id => l_document_id,
528:
529: IF FND_API.To_Boolean( p_validate_commit ) THEN
530: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
531: p_api_version => l_api_version,
532: p_init_msg_list => FND_API.G_FALSE,
533: p_doc_type => l_document_type,
534: p_doc_id => l_document_id,
535: p_validation_string => p_validation_string,
536: x_return_status => x_return_status,
544: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
545: FND_LOG.STRING(G_PROC_LEVEL,
546: G_PKG_NAME, '700: Issue with document header Record.Cannot commit' );
547: END IF;
548: RAISE FND_API.G_EXC_ERROR ;
549: END IF;
550: END IF;
551:
552:
550: END IF;
551:
552:
553: -- Initialize API return status to success
554: x_return_status := FND_API.G_RET_STS_SUCCESS;
555:
556: IF p_mode='AMEND' THEN
557: l_amendment_description := p_amendment_description;
558:
584: THEN
585:
586: okc_k_entity_locks_grp.lock_entity
587: ( p_api_version => 1,
588: p_init_msg_list => FND_API.G_FALSE ,
589: p_commit => FND_API.G_FALSE,
590: p_entity_name => okc_k_entity_locks_grp.G_SECTION_ENTITY,
591: p_entity_pk1 => To_Char(l_orig_system_reference_id1),
592: P_LOCK_BY_ENTITY_ID => p_id,
585:
586: okc_k_entity_locks_grp.lock_entity
587: ( p_api_version => 1,
588: p_init_msg_list => FND_API.G_FALSE ,
589: p_commit => FND_API.G_FALSE,
590: p_entity_name => okc_k_entity_locks_grp.G_SECTION_ENTITY,
591: p_entity_pk1 => To_Char(l_orig_system_reference_id1),
592: P_LOCK_BY_ENTITY_ID => p_id,
593: p_LOCK_BY_DOCUMENT_TYPE => l_document_type,
597: X_MSG_DATA => X_MSG_DATA
598: );
599: --------------------------------------------
600: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
602: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
603: RAISE FND_API.G_EXC_ERROR ;
604: END IF;
605: --------------------------------------------
599: --------------------------------------------
600: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
602: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
603: RAISE FND_API.G_EXC_ERROR ;
604: END IF;
605: --------------------------------------------
606: END IF;
607:
647: p_object_version_number => p_object_version_number
648: );
649: --------------------------------------------
650: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
652: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR ;
654: END IF;
655: --------------------------------------------
649: --------------------------------------------
650: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
651: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
652: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
653: RAISE FND_API.G_EXC_ERROR ;
654: END IF;
655: --------------------------------------------
656:
657: -- Standard check of p_commit
654: END IF;
655: --------------------------------------------
656:
657: -- Standard check of p_commit
658: IF FND_API.To_Boolean( p_commit ) THEN
659: COMMIT WORK;
660: END IF;
661: -- Standard call to get message count and if count is 1, get message info.
662: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
670: G_PKG_NAME, '1800: Leaving update_section' );
671: END IF;
672:
673: EXCEPTION
674: WHEN FND_API.G_EXC_ERROR THEN
675: /*IF (l_debug = 'Y') THEN
676: okc_debug.log('1900: Leaving update_section: OKC_API.G_EXCEPTION_ERROR Exception', 2);
677: END IF;*/
678:
688: ROLLBACK TO g_update_section_GRP;
689: x_return_status := G_RET_STS_ERROR ;
690: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
691:
692: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
693: /*IF (l_debug = 'Y') THEN
694: okc_debug.log('2000: Leaving update_section: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
695: END IF;*/
696:
878:
879: -- Standard Start of API savepoint
880: SAVEPOINT g_add_section_GRP;
881: -- Standard call to check for call compatibility.
882: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
885: -- Initialize message list if p_init_msg_list is set to TRUE.
886: IF FND_API.to_Boolean( p_init_msg_list ) THEN
879: -- Standard Start of API savepoint
880: SAVEPOINT g_add_section_GRP;
881: -- Standard call to check for call compatibility.
882: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
885: -- Initialize message list if p_init_msg_list is set to TRUE.
886: IF FND_API.to_Boolean( p_init_msg_list ) THEN
887: FND_MSG_PUB.initialize;
882: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
883: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
884: END IF;
885: -- Initialize message list if p_init_msg_list is set to TRUE.
886: IF FND_API.to_Boolean( p_init_msg_list ) THEN
887: FND_MSG_PUB.initialize;
888: END IF;
889:
890: IF FND_API.To_Boolean( p_validate_commit ) AND
886: IF FND_API.to_Boolean( p_init_msg_list ) THEN
887: FND_MSG_PUB.initialize;
888: END IF;
889:
890: IF FND_API.To_Boolean( p_validate_commit ) AND
891: NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
892: p_api_version => l_api_version,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_doc_type => p_document_type,
887: FND_MSG_PUB.initialize;
888: END IF;
889:
890: IF FND_API.To_Boolean( p_validate_commit ) AND
891: NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
892: p_api_version => l_api_version,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_doc_type => p_document_type,
895: p_doc_id => p_document_id,
889:
890: IF FND_API.To_Boolean( p_validate_commit ) AND
891: NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
892: p_api_version => l_api_version,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_doc_type => p_document_type,
895: p_doc_id => p_document_id,
896: p_validation_string => p_validation_string,
897: x_return_status => x_return_status,
905: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
906: FND_LOG.STRING(G_PROC_LEVEL,
907: G_PKG_NAME, '700: Issue with document header Record.Cannot commit' );
908: END IF;
909: RAISE FND_API.G_EXC_ERROR ;
910: END IF;
911:
912:
913: -- Initialize API return status to success
910: END IF;
911:
912:
913: -- Initialize API return status to success
914: x_return_status := FND_API.G_RET_STS_SUCCESS;
915:
916: IF p_ref_point NOT IN ('A','B','S') THEN
917: /*IF (l_debug = 'Y') THEN
918: okc_debug.log('800: Error: Ref point should be either A,B or S', 2);
923: G_PKG_NAME, '800: Error: Ref point should be either A,B or S' );
924: END IF;
925:
926: Okc_Api.Set_Message( G_FND_APP, 'OKC_WRONG_REF_POINT');
927: RAISE FND_API.G_EXC_ERROR ;
928:
929: END IF;
930:
931:
1000: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1001: FND_LOG.STRING(G_PROC_LEVEL,
1002: G_PKG_NAME, '900: Error: Reference not found' );
1003: END IF;
1004: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1005: END IF;
1006: END IF;
1007:
1008:
1011: -- Calling API for Creating A Section
1012: --------------------------------------------
1013: OKC_TERMS_SECTIONS_GRP.create_section(
1014: p_api_version => 1,
1015: p_init_msg_list => FND_API.G_FALSE,
1016: p_commit => FND_API.G_FALSE,
1017: p_mode => p_mode,
1018: p_validation_level => p_validation_level,
1019: p_id => p_id,
1012: --------------------------------------------
1013: OKC_TERMS_SECTIONS_GRP.create_section(
1014: p_api_version => 1,
1015: p_init_msg_list => FND_API.G_FALSE,
1016: p_commit => FND_API.G_FALSE,
1017: p_mode => p_mode,
1018: p_validation_level => p_validation_level,
1019: p_id => p_id,
1020: p_section_sequence => l_sequence,
1049: );
1050:
1051: --------------------------------------------
1052: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1054: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1055: RAISE FND_API.G_EXC_ERROR ;
1056: END IF;
1057: --------------------------------------------
1051: --------------------------------------------
1052: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1053: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1054: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1055: RAISE FND_API.G_EXC_ERROR ;
1056: END IF;
1057: --------------------------------------------
1058: IF scn_tbl.COUNT > 0 THEN
1059: FOR k IN scn_tbl.FIRST..scn_tbl.LAST LOOP
1112:
1113:
1114: --------------------------------------------
1115: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1117: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR ;
1119: END IF;
1120: --------------------------------------------
1114: --------------------------------------------
1115: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1116: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1117: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1118: RAISE FND_API.G_EXC_ERROR ;
1119: END IF;
1120: --------------------------------------------
1121: END IF;
1122: END LOOP;
1122: END LOOP;
1123: END IF;
1124:
1125: -- Standard check of p_commit
1126: IF FND_API.To_Boolean( p_commit ) THEN
1127: COMMIT WORK;
1128: END IF;
1129: -- Standard call to get message count and if count is 1, get message info.
1130: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1138: G_PKG_NAME, '1100: Leaving add_section' );
1139: END IF;
1140:
1141: EXCEPTION
1142: WHEN FND_API.G_EXC_ERROR THEN
1143: /*IF (l_debug = 'Y') THEN
1144: okc_debug.log('1200: Leaving add_section: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1145: END IF;*/
1146:
1168: ROLLBACK TO g_add_section_GRP;
1169: x_return_status := G_RET_STS_ERROR ;
1170: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1171:
1172: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1173: /*IF (l_debug = 'Y') THEN
1174: okc_debug.log('1300: Leaving add_section: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1175: END IF;*/
1176:
1269:
1270: -- Standard Start of API savepoint
1271: SAVEPOINT g_lock_row_GRP;
1272: -- Standard call to check for call compatibility.
1273: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276: -- Initialize message list if p_init_msg_list is set to TRUE.
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1270: -- Standard Start of API savepoint
1271: SAVEPOINT g_lock_row_GRP;
1272: -- Standard call to check for call compatibility.
1273: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276: -- Initialize message list if p_init_msg_list is set to TRUE.
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1278: FND_MSG_PUB.initialize;
1273: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1274: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1275: END IF;
1276: -- Initialize message list if p_init_msg_list is set to TRUE.
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1278: FND_MSG_PUB.initialize;
1279: END IF;
1280: -- Initialize API return status to success
1281: x_return_status := FND_API.G_RET_STS_SUCCESS;
1277: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1278: FND_MSG_PUB.initialize;
1279: END IF;
1280: -- Initialize API return status to success
1281: x_return_status := FND_API.G_RET_STS_SUCCESS;
1282:
1283: --------------------------------------------
1284: -- Calling Simple API for Locking A Row
1285: --------------------------------------------
1289: p_object_version_number => p_object_version_number
1290: );
1291: --------------------------------------------
1292: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1294: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1295: RAISE FND_API.G_EXC_ERROR ;
1296: END IF;
1297: --------------------------------------------
1291: --------------------------------------------
1292: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1293: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1294: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1295: RAISE FND_API.G_EXC_ERROR ;
1296: END IF;
1297: --------------------------------------------
1298:
1299: -- Standard call to get message count and if count is 1, get message info.
1308: G_PKG_NAME, '1200: Leaving lock_row' );
1309: END IF;
1310:
1311: EXCEPTION
1312: WHEN FND_API.G_EXC_ERROR THEN
1313: /*IF (l_debug = 'Y') THEN
1314: okc_debug.log('1300: Leaving lock_Row: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1315: END IF;*/
1316:
1321: ROLLBACK TO g_lock_row_GRP;
1322: x_return_status := G_RET_STS_ERROR ;
1323: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1324:
1325: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1326: /*IF (l_debug = 'Y') THEN
1327: okc_debug.log('1400: Leaving lock_Row: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1328: END IF;*/
1329:
1426:
1427: -- Standard Start of API savepoint
1428: SAVEPOINT g_delete_section_GRP;
1429: -- Standard call to check for call compatibility.
1430: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433: -- Initialize message list if p_init_msg_list is set to TRUE.
1434: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1427: -- Standard Start of API savepoint
1428: SAVEPOINT g_delete_section_GRP;
1429: -- Standard call to check for call compatibility.
1430: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433: -- Initialize message list if p_init_msg_list is set to TRUE.
1434: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1435: FND_MSG_PUB.initialize;
1430: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1431: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1432: END IF;
1433: -- Initialize message list if p_init_msg_list is set to TRUE.
1434: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1435: FND_MSG_PUB.initialize;
1436: END IF;
1437:
1438: OPEN l_document_id_csr;
1439: FETCH l_document_id_csr into l_document_id,l_document_type,l_orig_system_reference_id1;
1440: CLOSE l_document_id_csr;
1441:
1442:
1443: IF FND_API.To_Boolean( p_validate_commit ) THEN
1444:
1445:
1446:
1447: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
1443: IF FND_API.To_Boolean( p_validate_commit ) THEN
1444:
1445:
1446:
1447: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
1448: p_api_version => l_api_version,
1449: p_init_msg_list => FND_API.G_FALSE,
1450: p_doc_type => l_document_type,
1451: p_doc_id => l_document_id,
1445:
1446:
1447: IF NOT FND_API.To_Boolean(OKC_TERMS_UTIL_GRP.ok_to_commit (
1448: p_api_version => l_api_version,
1449: p_init_msg_list => FND_API.G_FALSE,
1450: p_doc_type => l_document_type,
1451: p_doc_id => l_document_id,
1452: p_validation_string => p_validation_string,
1453: x_return_status => x_return_status,
1461: IF ( G_PROC_LEVEL >= G_DBG_LEVEL ) THEN
1462: FND_LOG.STRING(G_PROC_LEVEL,
1463: G_PKG_NAME, '2210: Issue with document header Record.Cannot commit' );
1464: END IF;
1465: RAISE FND_API.G_EXC_ERROR ;
1466: END IF;
1467: END IF;
1468:
1469: --Bug 3669528 Refresh settings to prevent function security caching problems
1473: l_super_user_yn := 'N';
1474: END IF;
1475:
1476: -- Initialize API return status to success
1477: x_return_status := FND_API.G_RET_STS_SUCCESS;
1478:
1479: -- Following code will be deleteing all Subsection and its article.
1480:
1481: FOR cr IN l_subsection_csr(p_id) LOOP
1492: END IF;
1493:
1494: OKC_TERMS_SECTIONS_GRP.delete_section(
1495: p_api_version => p_api_version,
1496: p_init_msg_list => FND_API.G_FALSE,
1497: p_commit => FND_API.G_FALSE,
1498: x_return_status => x_return_status,
1499: x_msg_count => x_msg_count,
1500: x_msg_data => x_msg_data,
1493:
1494: OKC_TERMS_SECTIONS_GRP.delete_section(
1495: p_api_version => p_api_version,
1496: p_init_msg_list => FND_API.G_FALSE,
1497: p_commit => FND_API.G_FALSE,
1498: x_return_status => x_return_status,
1499: x_msg_count => x_msg_count,
1500: x_msg_data => x_msg_data,
1501: p_mode => p_mode,
1504: p_object_version_number => l_ovn
1505: );
1506: --------------------------------------------
1507: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1509: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1510: RAISE FND_API.G_EXC_ERROR ;
1511: END IF;
1512: --------------------------------------------
1506: --------------------------------------------
1507: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1509: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1510: RAISE FND_API.G_EXC_ERROR ;
1511: END IF;
1512: --------------------------------------------
1513:
1514: /*IF (l_debug = 'Y') THEN
1538:
1539:
1540: OKC_K_ARTICLES_GRP.delete_article(
1541: p_api_version => l_api_version,
1542: p_init_msg_list => FND_API.G_FALSE,
1543: p_validate_commit => FND_API.G_FALSE,
1544: p_validation_string => Null,
1545: p_commit => FND_API.G_FALSE,
1546: x_return_status => x_return_status,
1539:
1540: OKC_K_ARTICLES_GRP.delete_article(
1541: p_api_version => l_api_version,
1542: p_init_msg_list => FND_API.G_FALSE,
1543: p_validate_commit => FND_API.G_FALSE,
1544: p_validation_string => Null,
1545: p_commit => FND_API.G_FALSE,
1546: x_return_status => x_return_status,
1547: x_msg_count => x_msg_count,
1541: p_api_version => l_api_version,
1542: p_init_msg_list => FND_API.G_FALSE,
1543: p_validate_commit => FND_API.G_FALSE,
1544: p_validation_string => Null,
1545: p_commit => FND_API.G_FALSE,
1546: x_return_status => x_return_status,
1547: x_msg_count => x_msg_count,
1548: x_msg_data => x_msg_data,
1549: p_mode => p_mode,
1554: p_lock_terms_yn => p_lock_terms_yn );
1555:
1556:
1557: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1559: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1560: RAISE FND_API.G_EXC_ERROR ;
1561: END IF;
1562: END LOOP;
1556:
1557: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1559: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1560: RAISE FND_API.G_EXC_ERROR ;
1561: END IF;
1562: END LOOP;
1563:
1564: /*IF (l_debug = 'Y') THEN
1594: THEN
1595:
1596: okc_k_entity_locks_grp.lock_entity
1597: ( p_api_version => 1,
1598: p_init_msg_list => FND_API.G_FALSE ,
1599: p_commit => FND_API.G_FALSE,
1600: p_entity_name => okc_k_entity_locks_grp.G_SECTION_ENTITY,
1601: p_entity_pk1 => To_Char(l_orig_system_reference_id1),
1602: P_LOCK_BY_ENTITY_ID => p_id,
1595:
1596: okc_k_entity_locks_grp.lock_entity
1597: ( p_api_version => 1,
1598: p_init_msg_list => FND_API.G_FALSE ,
1599: p_commit => FND_API.G_FALSE,
1600: p_entity_name => okc_k_entity_locks_grp.G_SECTION_ENTITY,
1601: p_entity_pk1 => To_Char(l_orig_system_reference_id1),
1602: P_LOCK_BY_ENTITY_ID => p_id,
1603: p_LOCK_BY_DOCUMENT_TYPE => l_document_type,
1607: X_MSG_DATA => X_MSG_DATA
1608: );
1609: --------------------------------------------
1610: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1612: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1613: RAISE FND_API.G_EXC_ERROR ;
1614: END IF;
1615: --------------------------------------------
1609: --------------------------------------------
1610: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1611: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1612: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1613: RAISE FND_API.G_EXC_ERROR ;
1614: END IF;
1615: --------------------------------------------
1616: END IF;
1617:
1631: );
1632:
1633: --------------------------------------------
1634: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1636: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1637: RAISE FND_API.G_EXC_ERROR ;
1638: END IF;
1639: --------------------------------------------
1633: --------------------------------------------
1634: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1635: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1636: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1637: RAISE FND_API.G_EXC_ERROR ;
1638: END IF;
1639: --------------------------------------------
1640: ELSE
1641: l_delete_rec := TRUE;
1651: p_object_version_number => p_object_version_number
1652: );
1653: --------------------------------------------
1654: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1656: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1657: RAISE FND_API.G_EXC_ERROR ;
1658: END IF;
1659: --------------------------------------------
1653: --------------------------------------------
1654: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1655: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1656: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1657: RAISE FND_API.G_EXC_ERROR ;
1658: END IF;
1659: --------------------------------------------
1660: END IF;
1661:
1659: --------------------------------------------
1660: END IF;
1661:
1662: -- Standard check of p_commit
1663: IF FND_API.To_Boolean( p_commit ) THEN
1664: COMMIT WORK;
1665: END IF;
1666: -- Standard call to get message count and if count is 1, get message info.
1667: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1675: G_PKG_NAME, '2300: Leaving delete_section' );
1676: END IF;
1677:
1678: EXCEPTION
1679: WHEN FND_API.G_EXC_ERROR THEN
1680: /*IF (l_debug = 'Y') THEN
1681: okc_debug.log('2400: Leaving delete_section: OKC_API.G_EXCEPTION_ERROR Exception', 2);
1682: END IF;*/
1683:
1701: ROLLBACK TO g_delete_section_GRP;
1702: x_return_status := G_RET_STS_ERROR ;
1703: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1704:
1705: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1706: /*IF (l_debug = 'Y') THEN
1707: okc_debug.log('2500: Leaving delete_section: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception', 2);
1708: END IF;*/
1709: