[Home] [Help]
14: ------------------------------------------------------------------------------
15: -- GLOBAL CONSTANTS
16: ------------------------------------------------------------------------------
17: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
18: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
19: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
20:
21: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
15: -- GLOBAL CONSTANTS
16: ------------------------------------------------------------------------------
17: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
18: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
19: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
20:
21: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
23: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
17: G_MODULE CONSTANT VARCHAR2(250) := 'okc.plsql.'||g_pkg_name||'.';
18: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
19: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
20:
21: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
23: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24:
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
18: G_FALSE CONSTANT VARCHAR2(1) := FND_API.G_FALSE;
19: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
20:
21: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
23: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24:
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
26: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
19: G_TRUE CONSTANT VARCHAR2(1) := FND_API.G_TRUE;
20:
21: G_RET_STS_SUCCESS CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
22: G_RET_STS_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_ERROR;
23: G_RET_STS_UNEXP_ERROR CONSTANT VARCHAR2(1) := FND_API.G_RET_STS_UNEXP_ERROR;
24:
25: G_UNEXPECTED_ERROR CONSTANT VARCHAR2(200) := 'OKC_UNEXPECTED_ERROR';
26: G_SQLERRM_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_MESSAGE';
27: G_SQLCODE_TOKEN CONSTANT VARCHAR2(200) := 'ERROR_CODE';
89: IF l_numbering_scheme IS NOT NULL THEN
90:
91: OKC_NUMBER_SCHEME_GRP.apply_numbering_scheme(
92: p_api_version => 1,
93: p_init_msg_list => FND_API.G_FALSE,
94: x_return_status => x_return_status,
95: x_msg_count => x_msg_count,
96: x_msg_data => x_msg_data,
97: p_validate_commit => FND_API.G_FALSE,
93: p_init_msg_list => FND_API.G_FALSE,
94: x_return_status => x_return_status,
95: x_msg_count => x_msg_count,
96: x_msg_data => x_msg_data,
97: p_validate_commit => FND_API.G_FALSE,
98: p_validation_string => 'OKC_TEST_UI',
99: p_commit => FND_API.G_FALSE,
100: p_doc_type => p_document_type,
101: p_doc_id => p_document_id,
95: x_msg_count => x_msg_count,
96: x_msg_data => x_msg_data,
97: p_validate_commit => FND_API.G_FALSE,
98: p_validation_string => 'OKC_TEST_UI',
99: p_commit => FND_API.G_FALSE,
100: p_doc_type => p_document_type,
101: p_doc_id => p_document_id,
102: p_num_scheme_id => l_numbering_scheme
103: );
435:
436:
437: Procedure Create_Contract_Terms
438: ( p_api_version IN Number,
439: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
440: p_commit IN Varchar2 default FND_API.G_FALSE,
441: x_return_status OUT NOCOPY Varchar2,
442: x_msg_data OUT NOCOPY Varchar2,
443: x_msg_count OUT NOCOPY Number,
436:
437: Procedure Create_Contract_Terms
438: ( p_api_version IN Number,
439: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
440: p_commit IN Varchar2 default FND_API.G_FALSE,
441: x_return_status OUT NOCOPY Varchar2,
442: x_msg_data OUT NOCOPY Varchar2,
443: x_msg_count OUT NOCOPY Number,
444: p_document_type IN Varchar2,
596: -- Standard Start of API savepoint
597: SAVEPOINT G_CREATE_CONTRACT_TERMS_GRP;
598:
599: -- Standard call to check for call compatibility.
600: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: END IF;
603:
604: -- Initialize message list if p_init_msg_list is set to TRUE.
597: SAVEPOINT G_CREATE_CONTRACT_TERMS_GRP;
598:
599: -- Standard call to check for call compatibility.
600: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: END IF;
603:
604: -- Initialize message list if p_init_msg_list is set to TRUE.
605: IF FND_API.to_Boolean( p_init_msg_list ) THEN
601: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
602: END IF;
603:
604: -- Initialize message list if p_init_msg_list is set to TRUE.
605: IF FND_API.to_Boolean( p_init_msg_list ) THEN
606: FND_MSG_PUB.initialize;
607: END IF;
608:
609: -- Initialize API return status to success
606: FND_MSG_PUB.initialize;
607: END IF;
608:
609: -- Initialize API return status to success
610: x_return_status := FND_API.G_RET_STS_SUCCESS;
611:
612:
613: OPEN cur_org_csr;
614: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
626: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
627: END IF;
628:
629: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
631: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
632: RAISE FND_API.G_EXC_ERROR ;
633: END IF;
634:
628:
629: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
630: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
631: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
632: RAISE FND_API.G_EXC_ERROR ;
633: END IF;
634:
635: -- Check that Contract source is Structured or Attached
636: IF p_contract_source not in ('STRUCTURED','ATTACHED') THEN
639: p_msg_name => 'OKC_TERMS_INVALID_SOURCE',
640: p_token1 => 'P_CONTRACT_SOURCE',
641: p_token1_value => p_contract_source);
642: x_return_status := G_RET_STS_ERROR;
643: RAISE FND_API.G_EXC_ERROR ;
644: END IF;
645:
646: l_attachment_file_name := RTRIM(LTRIM(p_attachment_file_name));
647: l_attachment_file_loc := RTRIM(LTRIM(p_attachment_file_loc));
656: -- no template is provided
657: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
658: p_msg_name => 'OKC_TERMS_NO_TMPL_PROVIDED');
659: x_return_status := G_RET_STS_ERROR;
660: RAISE FND_API.G_EXC_ERROR ;
661: END IF;
662:
663: ELSIF p_contract_source='ATTACHED' THEN
664: IF l_attachment_file_loc is NULL OR l_attachment_file_name is NULL THEN
665: -- either attachment file location is not provided or file name is not provided
666: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
667: p_msg_name => 'OKC_TERMS_NO_ATTACH_PROVIDED');
668: x_return_status := G_RET_STS_ERROR;
669: RAISE FND_API.G_EXC_ERROR ;
670: END IF;
671:
672: END IF;
673:
681: p_msg_name => 'OKC_TERMS_INVALID_TMPL_ID',
682: p_token1 => 'P_TMPL_ID',
683: p_token1_value => p_contract_tmpl_id);
684: x_return_status := G_RET_STS_ERROR;
685: RAISE FND_API.G_EXC_ERROR ;
686: END IF;
687: CLOSE l_tmpl_id_validate_csr;
688:
689: ELSE
695: p_msg_name => 'OKC_TERMS_INVALID_TMPL_NAME',
696: p_token1 => 'P_TMPL_NAME',
697: p_token1_value => p_contract_tmpl_name);
698: x_return_status := G_RET_STS_ERROR;
699: RAISE FND_API.G_EXC_ERROR ;
700: END IF;
701: CLOSE l_tmpl_name_validate_csr;
702:
703: END IF;
713: p_token2_value => l_tmpl_type_rec.intent,
714: p_token3 => 'P_DOC_INTENT',
715: p_token3_value => 'BUY');
716: x_return_status := G_RET_STS_ERROR;
717: RAISE FND_API.G_EXC_ERROR ;
718: END IF;
719:
720: IF p_document_type IN ('B', 'O') AND
721: l_tmpl_type_rec.intent = 'B' THEN
728: p_token2_value => l_tmpl_type_rec.intent,
729: p_token3 => 'P_DOC_INTENT',
730: p_token3_value => 'SELL');
731: x_return_status := G_RET_STS_ERROR;
732: RAISE FND_API.G_EXC_ERROR ;
733: END IF; */
734:
735: OPEN c_get_intent_csr;
736: FETCH c_get_intent_csr INTO l_doc_intent;
747: p_token3 => 'P_DOC_INTENT',
748: p_token3_value => l_doc_intent);
749:
750: x_return_status := G_RET_STS_ERROR;
751: RAISE FND_API.G_EXC_ERROR ;
752: END IF;
753:
754:
755:
760: p_msg_name => 'OKC_TERMS_INV_TMPL_STS',
761: p_token1 => 'P_TEMPLATE_NAME',
762: p_token1_value => l_tmpl_type_rec.template_name);
763: x_return_status := G_RET_STS_ERROR;
764: RAISE FND_API.G_EXC_ERROR ;
765: END IF;
766:
767: IF SYSDATE NOT BETWEEN l_tmpl_type_rec.start_date AND nvl(l_tmpl_type_rec.end_date,SYSDATE) THEN
768: --Template is not Active
770: p_msg_name => 'OKC_TERMS_INACTIVE_TMPL',
771: p_token1 => 'P_TEMPLATE_NAME',
772: p_token1_value => l_tmpl_type_rec.template_name);
773: x_return_status := G_RET_STS_ERROR;
774: RAISE FND_API.G_EXC_ERROR ;
775: END IF;
776:
777: OPEN l_alwd_usgs_csr(l_tmpl_type_rec.template_id);
778: FETCH l_alwd_usgs_csr INTO l_dummy ;
784: p_token1_value => l_tmpl_type_rec.template_id,
785: p_token2 => 'P_DOCUMENT_TYPE',
786: p_token2_value => p_document_type);
787: x_return_status := G_RET_STS_ERROR;
788: RAISE FND_API.G_EXC_ERROR ;
789: END IF;
790: CLOSE l_alwd_usgs_csr;
791:
792: END IF; -- IF p_contract_source ='STRUCTURED' THEN
797: --Document already has Template
798: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
799: p_msg_name => 'OKC_TERMS_EXIST');
800: x_return_status := G_RET_STS_ERROR;
801: RAISE FND_API.G_EXC_ERROR ;
802: END IF;
803: CLOSE l_tmpl_doc_exist_csr;
804:
805: IF (p_contract_source = 'STRUCTURED') THEN
806:
807: -- Instantiate Template
808: OKC_TERMS_COPY_PVT.copy_tc(
809: p_api_version => l_api_version,
810: p_init_msg_list => FND_API.G_FALSE,
811: p_commit => FND_API.G_FALSE,
812: p_source_doc_type => OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE,
813: p_source_doc_id => l_tmpl_type_rec.template_id,
814: p_target_doc_type => lc_document_type, --p_document_type,
807: -- Instantiate Template
808: OKC_TERMS_COPY_PVT.copy_tc(
809: p_api_version => l_api_version,
810: p_init_msg_list => FND_API.G_FALSE,
811: p_commit => FND_API.G_FALSE,
812: p_source_doc_type => OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE,
813: p_source_doc_id => l_tmpl_type_rec.template_id,
814: p_target_doc_type => lc_document_type, --p_document_type,
815: p_target_doc_id => lc_document_id, --p_document_id,
832: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_TERMS_COPY_PVT.copy_tc, return status'||x_return_status);
833: END IF;
834:
835: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
837: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR ;
839: END IF;
840: -----------------------------------------------------
834:
835: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
836: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
837: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
838: RAISE FND_API.G_EXC_ERROR ;
839: END IF;
840: -----------------------------------------------------
841:
842: IF G_COPY_DELIVERABLES = 'Y' THEN
844:
845: -- External Party Related fields should be passed otherwsie it may pose some issues
846: OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables (
847: p_api_version => 1,
848: p_init_msg_list => FND_API.G_FALSE,
849: p_source_doc_type => OKC_TERMS_UTIL_GRP.G_TMPL_DOC_TYPE,
850: p_source_doc_id => l_tmpl_type_rec.template_id,
851: p_target_doc_type => p_document_type,
852: p_target_doc_id => p_document_id,
867: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_DELIVERABLE_PROCESS_PVT.copy_deliverables, return status'||x_return_status);
868: END IF;
869:
870: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
872: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
873: RAISE FND_API.G_EXC_ERROR ;
874: END IF;
875: END IF;
869:
870: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
871: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
872: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
873: RAISE FND_API.G_EXC_ERROR ;
874: END IF;
875: END IF;
876:
877: apply_numbering_scheme(
886: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: apply_numbering_scheme, return status'||x_return_status);
887: END IF;
888:
889: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
891: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR ;
893: END IF;
894:
888:
889: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
891: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
892: RAISE FND_API.G_EXC_ERROR ;
893: END IF;
894:
895:
896: ELSE --(it is ATTACHED) -- IF (p_contract_source = 'STRUCTURED') THEN
895:
896: ELSE --(it is ATTACHED) -- IF (p_contract_source = 'STRUCTURED') THEN
897: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
898: p_api_version => l_api_version,
899: p_init_msg_list => FND_API.G_FALSE ,
900: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
901: p_commit => FND_API.G_FALSE,
902:
903: x_return_status => x_return_status,
896: ELSE --(it is ATTACHED) -- IF (p_contract_source = 'STRUCTURED') THEN
897: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
898: p_api_version => l_api_version,
899: p_init_msg_list => FND_API.G_FALSE ,
900: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
901: p_commit => FND_API.G_FALSE,
902:
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
897: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
898: p_api_version => l_api_version,
899: p_init_msg_list => FND_API.G_FALSE ,
900: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
901: p_commit => FND_API.G_FALSE,
902:
903: x_return_status => x_return_status,
904: x_msg_count => x_msg_count,
905: x_msg_data => x_msg_data,
930: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_TEMPLATE_USAGESE_GRP.create_template_usages, return status'||x_return_status);
931: END IF;
932:
933: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
935: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
936: RAISE FND_API.G_EXC_ERROR ;
937: END IF;
938:
932:
933: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
934: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
935: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
936: RAISE FND_API.G_EXC_ERROR ;
937: END IF;
938:
939:
940: END IF; -- IF (p_contract_source = 'STRUCTURED') THEN
954: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished get_blob_from_file, return status'||x_return_status);
955: END IF;
956:
957: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
959: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
960: RAISE FND_API.G_EXC_ERROR ;
961: END IF;
962:
956:
957: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
958: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
959: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
960: RAISE FND_API.G_EXC_ERROR ;
961: END IF;
962:
963:
964: OPEN l_fnd_lobs_nextval_csr;
997: fnd_gfm.set_file_format(l_content_type));
998: EXCEPTION
999: WHEN OTHERS THEN
1000: X_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
1001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1002: END;
1003:
1004: OPEN l_fnd_att_doc_nextval_csr;
1005: FETCH l_fnd_att_doc_nextval_csr INTO l_new_attachment_id ;
1086:
1087:
1088: okc_contract_docs_grp.Insert_Contract_Doc(
1089: p_api_version => l_api_version,
1090: p_init_msg_list => FND_API.G_FALSE ,
1091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1092: p_commit => FND_API.G_FALSE,
1093:
1094: x_return_status => x_return_status,
1087:
1088: okc_contract_docs_grp.Insert_Contract_Doc(
1089: p_api_version => l_api_version,
1090: p_init_msg_list => FND_API.G_FALSE ,
1091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1092: p_commit => FND_API.G_FALSE,
1093:
1094: x_return_status => x_return_status,
1095: x_msg_count => x_msg_count,
1088: okc_contract_docs_grp.Insert_Contract_Doc(
1089: p_api_version => l_api_version,
1090: p_init_msg_list => FND_API.G_FALSE ,
1091: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1092: p_commit => FND_API.G_FALSE,
1093:
1094: x_return_status => x_return_status,
1095: x_msg_count => x_msg_count,
1096: x_msg_data => x_msg_data,
1128: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_CONTRACT_DOCS_GRP.insert_contract_doc, return status'||x_return_status);
1129: END IF;
1130:
1131: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1133: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1134: RAISE FND_API.G_EXC_ERROR ;
1135: END IF;
1136:
1130:
1131: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1132: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1133: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1134: RAISE FND_API.G_EXC_ERROR ;
1135: END IF;
1136:
1137: END IF;
1138:
1149: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished PO_CONTERMS_UPGRAD_GRP.apply_template_usages, return status'||x_return_status);
1150: END IF;
1151:
1152: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1154: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1155: RAISE FND_API.G_EXC_ERROR ;
1156: END IF;
1157:
1151:
1152: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1153: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1154: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1155: RAISE FND_API.G_EXC_ERROR ;
1156: END IF;
1157:
1158: END IF;*/
1159: IF FND_API.To_Boolean( p_commit ) THEN
1155: RAISE FND_API.G_EXC_ERROR ;
1156: END IF;
1157:
1158: END IF;*/
1159: IF FND_API.To_Boolean( p_commit ) THEN
1160: COMMIT WORK;
1161: END IF;
1162:
1163: -- Standard call to get message count and if count is 1, get message info.
1168: END IF;
1169:
1170: EXCEPTION
1171:
1172: WHEN FND_API.G_EXC_ERROR THEN
1173:
1174: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1175: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving create_contract_terms: OKC_API.G_EXCEPTION_ERROR Exception');
1176: END IF;
1190: ROLLBACK TO g_create_contract_terms_grp;
1191: x_return_status := G_RET_STS_ERROR ;
1192: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1193:
1194: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1195: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1196: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving create_contract_terms: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1197: END IF;
1198:
1215: END Create_Contract_Terms;
1216:
1217: Procedure Add_Contract_Doc
1218: ( p_api_version IN Number,
1219: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
1220: p_commit IN Varchar2 default FND_API.G_FALSE,
1221: x_return_status OUT NOCOPY Varchar2,
1222: x_msg_data OUT NOCOPY Varchar2,
1223: x_msg_count OUT NOCOPY Number,
1216:
1217: Procedure Add_Contract_Doc
1218: ( p_api_version IN Number,
1219: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
1220: p_commit IN Varchar2 default FND_API.G_FALSE,
1221: x_return_status OUT NOCOPY Varchar2,
1222: x_msg_data OUT NOCOPY Varchar2,
1223: x_msg_count OUT NOCOPY Number,
1224: p_document_type IN Varchar2,
1316: -- Standard Start of API savepoint
1317: SAVEPOINT G_ADD_CONTRACT_DOC_GRP;
1318:
1319: -- Standard call to check for call compatibility.
1320: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323:
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1317: SAVEPOINT G_ADD_CONTRACT_DOC_GRP;
1318:
1319: -- Standard call to check for call compatibility.
1320: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323:
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1321: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1322: END IF;
1323:
1324: -- Initialize message list if p_init_msg_list is set to TRUE.
1325: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328:
1329: -- Initialize API return status to success
1326: FND_MSG_PUB.initialize;
1327: END IF;
1328:
1329: -- Initialize API return status to success
1330: x_return_status := FND_API.G_RET_STS_SUCCESS;
1331:
1332: validate_document(
1333: p_document_type => p_document_type,
1334: p_document_id => p_document_id,
1341: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
1342: END IF;
1343:
1344: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1346: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1347: RAISE FND_API.G_EXC_ERROR ;
1348: END IF;
1349:
1343:
1344: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1345: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1346: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1347: RAISE FND_API.G_EXC_ERROR ;
1348: END IF;
1349:
1350:
1351: IF G_DOC_TYPE_REC.enable_attachments_yn = 'N' THEN
1354: p_msg_name => 'OKC_TERMS_NO_ATTACH',
1355: p_token1 => 'P_DOC_NAME',
1356: p_token1_value => G_DOC_TYPE_REC.name);
1357: x_return_status := G_RET_STS_ERROR;
1358: RAISE FND_API.G_EXC_ERROR ;
1359: END IF;
1360:
1361: OPEN l_tmpl_doc_exist_csr;
1362: FETCH l_tmpl_doc_exist_csr INTO l_dummy ;
1366: p_msg_name => 'OKC_TERMS_NOT_EXIST',
1367: p_token1 => 'P_DOC_NAME',
1368: p_token1_value => G_DOC_TYPE_REC.name);
1369: x_return_status := G_RET_STS_ERROR;
1370: RAISE FND_API.G_EXC_ERROR ;
1371: END IF;
1372: CLOSE l_tmpl_doc_exist_csr;
1373:
1374: IF p_contract_category NOT IN ('C','S') THEN
1375: -- Contract Category is not correct
1376: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1377: p_msg_name => 'OKC_INVALID_CON_CAT');
1378: x_return_status := G_RET_STS_ERROR;
1379: RAISE FND_API.G_EXC_ERROR ;
1380: ELSE
1381: IF p_contract_category = 'S' THEN
1382: l_contract_category := 'OKC_REPO_SUPPORTING_DOC';
1383: ELSE
1389: -- Contract Doc Type is not correct
1390: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1391: p_msg_name => 'OKC_INVALID_CON_DOC_TYPE');
1392: x_return_status := G_RET_STS_ERROR;
1393: RAISE FND_API.G_EXC_ERROR ;
1394: ELSE
1395: IF p_contract_doc_type = 'U' THEN
1396: l_datatype_id := 5;
1397: ELSE
1403: -- URL is not provided
1404: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1405: p_msg_name => 'OKC_INVALID_URL');
1406: x_return_status := G_RET_STS_ERROR;
1407: RAISE FND_API.G_EXC_ERROR ;
1408: END IF;
1409:
1410: IF l_datatype_id = 6 AND
1411: (p_attachment_file_name IS NULL OR p_attachment_file_loc IS NULL) THEN
1412: -- file info is not provided
1413: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1414: p_msg_name => 'OKC_INVALID_FILE_INFO');
1415: x_return_status := G_RET_STS_ERROR;
1416: RAISE FND_API.G_EXC_ERROR ;
1417: END IF;
1418:
1419: IF l_datatype_id = 6 THEN
1420: l_attachment_file_name := RTRIM(LTRIM(p_attachment_file_name));
1433: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished get_blob_from_file, return status'||x_return_status);
1434: END IF;
1435:
1436: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1438: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1439: RAISE FND_API.G_EXC_ERROR ;
1440: END IF;
1441:
1435:
1436: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1437: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1438: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1439: RAISE FND_API.G_EXC_ERROR ;
1440: END IF;
1441:
1442: OPEN l_fnd_lobs_nextval_csr;
1443: FETCH l_fnd_lobs_nextval_csr INTO l_fid ;
1475: fnd_gfm.set_file_format(l_content_type));
1476: EXCEPTION
1477: WHEN OTHERS THEN
1478: X_RETURN_STATUS := G_RET_STS_UNEXP_ERROR;
1479: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1480: END;
1481: END IF ; --IF l_datatype_id = 6 THEN
1482:
1483: IF l_datatype_id = 5 THEN
1576:
1577:
1578: okc_contract_docs_grp.Insert_Contract_Doc(
1579: p_api_version => l_api_version,
1580: p_init_msg_list => FND_API.G_FALSE ,
1581: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1582: p_commit => FND_API.G_FALSE,
1583:
1584: x_return_status => x_return_status,
1577:
1578: okc_contract_docs_grp.Insert_Contract_Doc(
1579: p_api_version => l_api_version,
1580: p_init_msg_list => FND_API.G_FALSE ,
1581: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1582: p_commit => FND_API.G_FALSE,
1583:
1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1578: okc_contract_docs_grp.Insert_Contract_Doc(
1579: p_api_version => l_api_version,
1580: p_init_msg_list => FND_API.G_FALSE ,
1581: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
1582: p_commit => FND_API.G_FALSE,
1583:
1584: x_return_status => x_return_status,
1585: x_msg_count => x_msg_count,
1586: x_msg_data => x_msg_data,
1618: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_CONTRACT_DOCS_GRP.insert_contract_doc, return status'||x_return_status);
1619: END IF;
1620:
1621: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1623: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1624: RAISE FND_API.G_EXC_ERROR ;
1625: END IF;
1626:
1620:
1621: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1623: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1624: RAISE FND_API.G_EXC_ERROR ;
1625: END IF;
1626:
1627: IF FND_API.To_Boolean( p_commit ) THEN
1628: COMMIT WORK;
1623: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1624: RAISE FND_API.G_EXC_ERROR ;
1625: END IF;
1626:
1627: IF FND_API.To_Boolean( p_commit ) THEN
1628: COMMIT WORK;
1629: END IF;
1630:
1631: -- Standard call to get message count and if count is 1, get message info.
1637:
1638:
1639: EXCEPTION
1640:
1641: WHEN FND_API.G_EXC_ERROR THEN
1642:
1643: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1644: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving add_contract_doc: OKC_API.G_EXCEPTION_ERROR Exception');
1645: END IF;
1650: ROLLBACK TO g_add_contract_doc_grp;
1651: x_return_status := G_RET_STS_ERROR ;
1652: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
1653:
1654: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1655: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1656: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving add_contract_doc: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
1657: END IF;
1658:
1675: END Add_Contract_Doc;
1676:
1677: Procedure Add_Standard_Clause
1678: ( p_api_version IN Number,
1679: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
1680: p_commit IN Varchar2 default FND_API.G_FALSE,
1681: x_return_status OUT NOCOPY Varchar2,
1682: x_msg_data OUT NOCOPY Varchar2,
1683: x_msg_count OUT NOCOPY Number,
1676:
1677: Procedure Add_Standard_Clause
1678: ( p_api_version IN Number,
1679: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
1680: p_commit IN Varchar2 default FND_API.G_FALSE,
1681: x_return_status OUT NOCOPY Varchar2,
1682: x_msg_data OUT NOCOPY Varchar2,
1683: x_msg_count OUT NOCOPY Number,
1684: p_document_type IN Varchar2,
1687: p_section_name IN Varchar2 default null,
1688: p_clause_version_id IN Number default null,
1689: p_clause_title IN Varchar2 default null,
1690: p_clause_version_num IN Number default null,
1691: p_renumber_terms IN Varchar2 default FND_API.G_FALSE,
1692: x_contract_clause_id OUT NOCOPY Number,
1693: p_display_sequence IN NUMBER DEFAULT NULL,
1694: p_mode IN VARCHAR2 := 'NORMAL' -- Other value 'AMEND'
1695: )
1817: -- Standard Start of API savepoint
1818: SAVEPOINT g_add_standard_clause_GRP;
1819:
1820: -- Standard call to check for call compatibility.
1821: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: -- Initialize message list if p_init_msg_list is set to TRUE.
1818: SAVEPOINT g_add_standard_clause_GRP;
1819:
1820: -- Standard call to check for call compatibility.
1821: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: -- Initialize message list if p_init_msg_list is set to TRUE.
1826: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1823: END IF;
1824:
1825: -- Initialize message list if p_init_msg_list is set to TRUE.
1826: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1827: FND_MSG_PUB.initialize;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1827: FND_MSG_PUB.initialize;
1828: END IF;
1829:
1830: -- Initialize API return status to success
1831: x_return_status := FND_API.G_RET_STS_SUCCESS;
1832:
1833:
1834: OPEN cur_org_csr;
1835: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
1847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
1848: END IF;
1849:
1850: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1852: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1853: RAISE FND_API.G_EXC_ERROR ;
1854: END IF;
1855:
1849:
1850: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1851: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
1852: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1853: RAISE FND_API.G_EXC_ERROR ;
1854: END IF;
1855:
1856: IF p_section_id is NULL and p_section_name is NULL THEN
1857: -- no section is provided
1857: -- no section is provided
1858: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1859: p_msg_name => 'OKC_TERMS_NO_SCN');
1860: x_return_status := G_RET_STS_ERROR;
1861: RAISE FND_API.G_EXC_ERROR ;
1862: END IF;
1863:
1864: IF p_section_id is NOT NULL THEN
1865: OPEN l_sec_id_validate_csr;
1870: p_msg_name => 'OKC_TERMS_NO_SCN_ID',
1871: p_token1 => 'P_SCN_ID',
1872: p_token1_value => p_section_id);
1873: x_return_status := G_RET_STS_ERROR;
1874: RAISE FND_API.G_EXC_ERROR ;
1875: END IF;
1876: CLOSE l_sec_id_validate_csr;
1877: ELSE
1878: OPEN l_sec_name_validate_csr;
1883: p_msg_name => 'OKC_TERMS_NO_SCN_NAME',
1884: p_token1 => 'P_SCN_NAME',
1885: p_token1_value => p_section_name);
1886: x_return_status := G_RET_STS_ERROR;
1887: RAISE FND_API.G_EXC_ERROR ;
1888: END IF;
1889: CLOSE l_sec_name_validate_csr;
1890: END IF;
1891:
1914: -- no clause is provided
1915: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1916: p_msg_name => 'OKC_TERMS_INV_CLS');
1917: x_return_status := G_RET_STS_ERROR;
1918: RAISE FND_API.G_EXC_ERROR ;
1919: END IF;
1920:
1921: IF p_clause_version_id is not NULL THEN
1922: OPEN l_cls_id_validate_csr;
1927: p_msg_name => 'OKC_TERMS_INV_CLS_ID',
1928: p_token1 => 'P_CLS_VER_ID',
1929: p_token1_value => p_clause_version_id);
1930: x_return_status := G_RET_STS_ERROR;
1931: RAISE FND_API.G_EXC_ERROR ;
1932: END IF;
1933: CLOSE l_cls_id_validate_csr;
1934:
1935: ELSE
1941: p_msg_name => 'OKC_TERMS_INV_CLS_NAME',
1942: p_token1 => 'P_CLS_TITLE',
1943: p_token1_value => p_clause_title);
1944: x_return_status := G_RET_STS_ERROR;
1945: RAISE FND_API.G_EXC_ERROR ;
1946: END IF;
1947: CLOSE l_cls_name_validate_csr;
1948:
1949: END IF;
1954: p_msg_name => 'OKC_TERMS_INV_CLS_STS',
1955: p_token1 => 'P_CLAUSE_TITLE',
1956: p_token1_value => l_cls_type_rec.article_title);
1957: x_return_status := G_RET_STS_ERROR;
1958: RAISE FND_API.G_EXC_ERROR ;
1959: END IF;
1960:
1961: /*IF p_document_type IN ('PA_BLANKET', 'PA_CONTRACT','PO_STANDARD', 'AUCTION', 'RFI', 'RFQ') AND
1962: l_cls_type_rec.article_intent = 'S' THEN
1969: p_token2_value => l_cls_type_rec.article_intent,
1970: p_token3 => 'P_DOC_INTENT',
1971: p_token3_value => 'BUY');
1972: x_return_status := G_RET_STS_ERROR;
1973: RAISE FND_API.G_EXC_ERROR ;
1974: END IF;
1975:
1976: IF p_document_type IN ('B', 'O', 'QUOTE', 'OKS') AND
1977: l_cls_type_rec.article_intent = 'B' THEN
1984: p_token2_value => l_cls_type_rec.article_intent,
1985: p_token3 => 'P_DOC_INTENT',
1986: p_token3_value => 'SELL');
1987: x_return_status := G_RET_STS_ERROR;
1988: RAISE FND_API.G_EXC_ERROR ;
1989: END IF; */
1990:
1991: OPEN c_get_intent_csr;
1992: FETCH c_get_intent_csr INTO l_doc_intent;
2002: p_token2_value => l_cls_type_rec.article_intent,
2003: p_token3 => 'P_DOC_INTENT',
2004: p_token3_value => l_doc_intent);
2005: x_return_status := G_RET_STS_ERROR;
2006: RAISE FND_API.G_EXC_ERROR ;
2007: END IF;
2008:
2009:
2010: -- if template has provision_yn = 'y' then any clause can be added
2018: p_token1_value => l_cls_type_rec.article_title,
2019: p_token2 => 'P_DOCUMENT_TYPE',
2020: p_token2_value => p_document_type);
2021: x_return_status := G_RET_STS_ERROR;
2022: RAISE FND_API.G_EXC_ERROR ;
2023: END IF;
2024:
2025:
2026: OKC_K_ARTICLES_GRP.create_article(
2024:
2025:
2026: OKC_K_ARTICLES_GRP.create_article(
2027: p_api_version => 1,
2028: p_init_msg_list => FND_API.G_FALSE,
2029: p_validation_level => NULL,
2030: p_mode => 'NORMAL',
2031: x_return_status => x_return_status,
2032: x_msg_count => x_msg_count,
2050: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_K_ARTICLES_GRP.create_article, return status'||x_return_status);
2051: END IF;
2052:
2053: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2055: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2056: RAISE FND_API.G_EXC_ERROR ;
2057: ELSE -- in case of success retrun the OUT param
2058: x_contract_clause_id := l_id;
2052:
2053: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2055: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2056: RAISE FND_API.G_EXC_ERROR ;
2057: ELSE -- in case of success retrun the OUT param
2058: x_contract_clause_id := l_id;
2059: END IF;
2060: -----------------------------------------------------
2072: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: apply_numbering_scheme, return status'||x_return_status);
2073: END IF;
2074:
2075: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2077: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2078: RAISE FND_API.G_EXC_ERROR ;
2079: END IF;
2080: END IF;
2074:
2075: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2076: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2077: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2078: RAISE FND_API.G_EXC_ERROR ;
2079: END IF;
2080: END IF;
2081:
2082:
2079: END IF;
2080: END IF;
2081:
2082:
2083: IF FND_API.To_Boolean( p_commit ) THEN
2084: COMMIT WORK;
2085: END IF;
2086:
2087: -- Standard call to get message count and if count is 1, get message info.
2092: END IF;
2093:
2094: EXCEPTION
2095:
2096: WHEN FND_API.G_EXC_ERROR THEN
2097:
2098: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2099: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving add_standard_clause: OKC_API.G_EXCEPTION_ERROR Exception');
2100: END IF;
2115: ROLLBACK TO g_add_standard_clause_grp;
2116: x_return_status := G_RET_STS_ERROR ;
2117: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2118:
2119: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2120: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2121: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving add_standard_clause: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2122: END IF;
2123:
2141: END Add_Standard_Clause;
2142:
2143: Procedure Add_Non_Standard_Clause
2144: ( p_api_version IN Number,
2145: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
2146: p_commit IN Varchar2 default FND_API.G_FALSE,
2147: x_return_status OUT NOCOPY Varchar2,
2148: x_msg_data OUT NOCOPY Varchar2,
2149: x_msg_count OUT NOCOPY Number,
2142:
2143: Procedure Add_Non_Standard_Clause
2144: ( p_api_version IN Number,
2145: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
2146: p_commit IN Varchar2 default FND_API.G_FALSE,
2147: x_return_status OUT NOCOPY Varchar2,
2148: x_msg_data OUT NOCOPY Varchar2,
2149: x_msg_count OUT NOCOPY Number,
2150: p_document_type IN Varchar2,
2155: p_clause_text IN CLOB DEFAULT NULL,
2156: p_clause_type IN Varchar2 default 'OTHER',
2157: p_clause_disp_name IN Varchar2 default null,
2158: p_clause_description IN Varchar2 default null,
2159: p_renumber_terms IN Varchar2 default FND_API.G_FALSE,
2160: p_edited_in_word IN VARCHAR2 DEFAULT 'N',
2161: p_clause_text_in_word IN BLOB DEFAULT NULL,
2162: x_contract_clause_id OUT NOCOPY Number,
2163: x_clause_version_id OUT NOCOPY Number
2208: -- Standard Start of API savepoint
2209: SAVEPOINT g_add_non_standrad_clause_grp;
2210:
2211: -- Standard call to check for call compatibility.
2212: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214: END IF;
2215:
2216: -- Initialize message list if p_init_msg_list is set to TRUE.
2209: SAVEPOINT g_add_non_standrad_clause_grp;
2210:
2211: -- Standard call to check for call compatibility.
2212: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214: END IF;
2215:
2216: -- Initialize message list if p_init_msg_list is set to TRUE.
2217: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2213: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2214: END IF;
2215:
2216: -- Initialize message list if p_init_msg_list is set to TRUE.
2217: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2218: FND_MSG_PUB.initialize;
2219: END IF;
2220:
2221: -- Initialize API return status to success
2218: FND_MSG_PUB.initialize;
2219: END IF;
2220:
2221: -- Initialize API return status to success
2222: x_return_status := FND_API.G_RET_STS_SUCCESS;
2223:
2224: validate_document(
2225: p_document_type => p_document_type,
2226: p_document_id => p_document_id,
2233: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
2234: END IF;
2235:
2236: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2238: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2239: RAISE FND_API.G_EXC_ERROR ;
2240: END IF;
2241:
2235:
2236: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2237: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2238: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2239: RAISE FND_API.G_EXC_ERROR ;
2240: END IF;
2241:
2242: IF p_section_id is NULL and p_section_name is NULL THEN
2243: -- no section is provided
2243: -- no section is provided
2244: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2245: p_msg_name => 'OKC_TERMS_NO_SCN');
2246: x_return_status := G_RET_STS_ERROR;
2247: RAISE FND_API.G_EXC_ERROR ;
2248: END IF;
2249:
2250: IF p_section_id is NOT NULL THEN
2251: OPEN l_sec_id_validate_csr;
2256: p_msg_name => 'OKC_TERMS_NO_SCN_ID',
2257: p_token1 => 'P_SCN_ID',
2258: p_token1_value => p_section_id);
2259: x_return_status := G_RET_STS_ERROR;
2260: RAISE FND_API.G_EXC_ERROR ;
2261: END IF;
2262: CLOSE l_sec_id_validate_csr;
2263: ELSE
2264: OPEN l_sec_name_validate_csr;
2269: p_msg_name => 'OKC_TERMS_NO_SCN_NAME',
2270: p_token1 => 'P_SCN_NAME',
2271: p_token1_value => p_section_name);
2272: x_return_status := G_RET_STS_ERROR;
2273: RAISE FND_API.G_EXC_ERROR ;
2274: END IF;
2275: CLOSE l_sec_name_validate_csr;
2276: END IF;
2277:
2281: -- no clause text is provided
2282: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2283: p_msg_name => 'OKC_TERMS_NO_CLS_TEXT');
2284: x_return_status := G_RET_STS_ERROR;
2285: RAISE FND_API.G_EXC_ERROR ;
2286: END IF;
2287:
2288: /*If edited in word is 'Y' then clause text is word is mandatory*/
2289: IF p_edited_in_word = 'Y' AND p_clause_text_in_word IS NULL THEN
2290: -- no wml clause text is provided
2291: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2292: p_msg_name => 'OKC_TERMS_INV_CLS_text');
2293: x_return_status := G_RET_STS_ERROR;
2294: RAISE FND_API.G_EXC_ERROR ;
2295: END IF;
2296:
2297:
2298: OKC_K_NON_STD_ART_GRP.create_non_std_article(
2296:
2297:
2298: OKC_K_NON_STD_ART_GRP.create_non_std_article(
2299: p_api_version => 1,
2300: p_init_msg_list => FND_API.G_FALSE,
2301: p_validate_commit => FND_API.G_FALSE,
2302: p_validation_string => 'OKC_TEST_UI',
2303: p_commit => FND_API.G_FALSE,
2304: p_mode =>'NORMAL', -- Other value 'AMEND'
2297:
2298: OKC_K_NON_STD_ART_GRP.create_non_std_article(
2299: p_api_version => 1,
2300: p_init_msg_list => FND_API.G_FALSE,
2301: p_validate_commit => FND_API.G_FALSE,
2302: p_validation_string => 'OKC_TEST_UI',
2303: p_commit => FND_API.G_FALSE,
2304: p_mode =>'NORMAL', -- Other value 'AMEND'
2305: x_return_status => x_return_status,
2299: p_api_version => 1,
2300: p_init_msg_list => FND_API.G_FALSE,
2301: p_validate_commit => FND_API.G_FALSE,
2302: p_validation_string => 'OKC_TEST_UI',
2303: p_commit => FND_API.G_FALSE,
2304: p_mode =>'NORMAL', -- Other value 'AMEND'
2305: x_return_status => x_return_status,
2306: x_msg_count => x_msg_count,
2307: x_msg_data => x_msg_data,
2328: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_K_NON_STD_ART_GRP.create_non_std_article, return status'||x_return_status);
2329: END IF;
2330:
2331: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2333: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2334: RAISE FND_API.G_EXC_ERROR ;
2335: ELSE -- in case of success retrun OUT params
2336: x_contract_clause_id := l_cat_id;
2330:
2331: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2332: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2333: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2334: RAISE FND_API.G_EXC_ERROR ;
2335: ELSE -- in case of success retrun OUT params
2336: x_contract_clause_id := l_cat_id;
2337: x_clause_version_id := l_article_version_id;
2338: END IF;
2351: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: apply_numbering_scheme, return status'||x_return_status);
2352: END IF;
2353:
2354: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2356: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2357: RAISE FND_API.G_EXC_ERROR ;
2358: END IF;
2359: END IF;
2353:
2354: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2355: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2356: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2357: RAISE FND_API.G_EXC_ERROR ;
2358: END IF;
2359: END IF;
2360:
2361:
2358: END IF;
2359: END IF;
2360:
2361:
2362: IF FND_API.To_Boolean( p_commit ) THEN
2363: COMMIT WORK;
2364: END IF;
2365:
2366: -- Standard call to get message count and if count is 1, get message info.
2371: END IF;
2372:
2373: EXCEPTION
2374:
2375: WHEN FND_API.G_EXC_ERROR THEN
2376:
2377: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2378: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving add_non_standard_clause: OKC_API.G_EXCEPTION_ERROR Exception');
2379: END IF;
2387: ROLLBACK TO g_add_non_standrad_clause_grp;
2388: x_return_status := G_RET_STS_ERROR ;
2389: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2390:
2391: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2392: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2393: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving add_non_standard_clause: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2394: END IF;
2395:
2412: END Add_Non_Standard_Clause;
2413:
2414: Procedure Add_Section
2415: ( p_api_version IN Number,
2416: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
2417: p_commit IN Varchar2 default FND_API.G_FALSE,
2418: x_return_status OUT NOCOPY Varchar2,
2419: x_msg_data OUT NOCOPY Varchar2,
2420: x_msg_count OUT NOCOPY Number,
2413:
2414: Procedure Add_Section
2415: ( p_api_version IN Number,
2416: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
2417: p_commit IN Varchar2 default FND_API.G_FALSE,
2418: x_return_status OUT NOCOPY Varchar2,
2419: x_msg_data OUT NOCOPY Varchar2,
2420: x_msg_count OUT NOCOPY Number,
2421: p_document_type IN Varchar2,
2422: p_document_id IN Number,
2423: p_section_source IN Varchar2,
2424: p_section_name IN Varchar2,
2425: p_section_description IN Varchar2 default null,
2426: p_renumber_terms IN Varchar2 default FND_API.G_FALSE,
2427: p_orig_system_reference_code IN VARCHAR2 default NULL,
2428: p_orig_system_reference_id1 IN NUMBER default NULL,
2429: p_orig_system_reference_id2 IN NUMBER default NULL,
2430: x_section_id OUT NOCOPY Number
2483: -- Standard Start of API savepoint
2484: SAVEPOINT g_add_section_GRP;
2485:
2486: -- Standard call to check for call compatibility.
2487: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2489: END IF;
2490:
2491: -- Initialize message list if p_init_msg_list is set to TRUE.
2484: SAVEPOINT g_add_section_GRP;
2485:
2486: -- Standard call to check for call compatibility.
2487: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2489: END IF;
2490:
2491: -- Initialize message list if p_init_msg_list is set to TRUE.
2492: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2488: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2489: END IF;
2490:
2491: -- Initialize message list if p_init_msg_list is set to TRUE.
2492: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2493: FND_MSG_PUB.initialize;
2494: END IF;
2495:
2496: -- Initialize API return status to success
2493: FND_MSG_PUB.initialize;
2494: END IF;
2495:
2496: -- Initialize API return status to success
2497: x_return_status := FND_API.G_RET_STS_SUCCESS;
2498:
2499: validate_document(
2500: p_document_type => p_document_type,
2501: p_document_id => p_document_id,
2508: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
2509: END IF;
2510:
2511: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2513: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2514: RAISE FND_API.G_EXC_ERROR ;
2515: END IF;
2516:
2510:
2511: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2512: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2513: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2514: RAISE FND_API.G_EXC_ERROR ;
2515: END IF;
2516:
2517: OPEN l_tmpl_doc_exist_csr;
2518: FETCH l_tmpl_doc_exist_csr INTO l_dummy ;
2520: --Document already has Template
2521: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2522: p_msg_name => 'OKC_TERMS_DOES_NOT_EXIST');
2523: x_return_status := G_RET_STS_ERROR;
2524: RAISE FND_API.G_EXC_ERROR ;
2525: END IF;
2526: CLOSE l_tmpl_doc_exist_csr;
2527:
2528:
2532: p_msg_name => 'OKC_TERMS_INV_SEC_SRC',
2533: p_token1 => 'P_SECTION_SOURCE',
2534: p_token1_value => p_section_source);
2535: x_return_status := G_RET_STS_ERROR;
2536: RAISE FND_API.G_EXC_ERROR ;
2537: END IF;
2538:
2539: IF p_section_source = 'LIBRARY' THEN
2540: OPEN l_sec_validate_csr;
2545: p_msg_name => 'OKC_TERMS_INV_LIB_SCN',
2546: p_token1 => 'P_SECTION_NAME',
2547: p_token1_value => p_section_name);
2548: x_return_status := G_RET_STS_ERROR;
2549: RAISE FND_API.G_EXC_ERROR ;
2550: END IF;
2551: CLOSE l_sec_validate_csr;
2552: END IF;
2553:
2568:
2569:
2570: OKC_TERMS_SECTIONS_GRP.create_section(
2571: p_api_version => l_api_version,
2572: p_init_msg_list => FND_API.G_FALSE,
2573: p_commit => FND_API.G_FALSE,
2574: x_return_status => x_return_status,
2575: x_msg_count => x_msg_count,
2576: x_msg_data => x_msg_data,
2569:
2570: OKC_TERMS_SECTIONS_GRP.create_section(
2571: p_api_version => l_api_version,
2572: p_init_msg_list => FND_API.G_FALSE,
2573: p_commit => FND_API.G_FALSE,
2574: x_return_status => x_return_status,
2575: x_msg_count => x_msg_count,
2576: x_msg_data => x_msg_data,
2577: p_id => NULL,
2594: END IF;
2595:
2596: --------------------------------------------
2597: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2599: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2600: RAISE FND_API.G_EXC_ERROR ;
2601: END IF;
2602: --------------------------------------------
2596: --------------------------------------------
2597: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2598: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2599: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2600: RAISE FND_API.G_EXC_ERROR ;
2601: END IF;
2602: --------------------------------------------
2603:
2604: IF p_renumber_terms = 'Y' THEN
2614: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: apply_numbering_scheme, return status'||x_return_status);
2615: END IF;
2616:
2617: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2619: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2620: RAISE FND_API.G_EXC_ERROR ;
2621: END IF;
2622: END IF;
2616:
2617: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2618: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
2619: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2620: RAISE FND_API.G_EXC_ERROR ;
2621: END IF;
2622: END IF;
2623:
2624: IF FND_API.To_Boolean( p_commit ) THEN
2620: RAISE FND_API.G_EXC_ERROR ;
2621: END IF;
2622: END IF;
2623:
2624: IF FND_API.To_Boolean( p_commit ) THEN
2625: COMMIT WORK;
2626: END IF;
2627:
2628: -- Standard call to get message count and if count is 1, get message info.
2633: END IF;
2634:
2635: EXCEPTION
2636:
2637: WHEN FND_API.G_EXC_ERROR THEN
2638:
2639: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2640: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving add_section: OKC_API.G_EXCEPTION_ERROR Exception');
2641: END IF;
2646: ROLLBACK TO g_add_section_grp;
2647: x_return_status := G_RET_STS_ERROR ;
2648: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
2649:
2650: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2651: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2652: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving add_section: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
2653: END IF;
2654:
2861: p_variable_name IN VARCHAR2,
2862: p_variable_value IN VARCHAR2,
2863: p_override_global_yn IN VARCHAR2,
2864: p_global_variable_value IN VARCHAR2 := NULL,
2865: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
2866: p_commit IN Varchar2 default FND_API.G_FALSE,
2867: x_return_status OUT NOCOPY Varchar2,
2868: x_msg_data OUT NOCOPY Varchar2,
2869: x_msg_count OUT NOCOPY Number
2862: p_variable_value IN VARCHAR2,
2863: p_override_global_yn IN VARCHAR2,
2864: p_global_variable_value IN VARCHAR2 := NULL,
2865: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
2866: p_commit IN Varchar2 default FND_API.G_FALSE,
2867: x_return_status OUT NOCOPY Varchar2,
2868: x_msg_data OUT NOCOPY Varchar2,
2869: x_msg_count OUT NOCOPY Number
2870: )
2927: -- Standard Start of API savepoint
2928: SAVEPOINT g_update_variable_values_GRP;
2929:
2930: -- Standard call to check for call compatibility.
2931: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2933: END IF;
2934:
2935: -- Initialize message list if p_init_msg_list is set to TRUE.
2928: SAVEPOINT g_update_variable_values_GRP;
2929:
2930: -- Standard call to check for call compatibility.
2931: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
2932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2933: END IF;
2934:
2935: -- Initialize message list if p_init_msg_list is set to TRUE.
2936: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2932: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2933: END IF;
2934:
2935: -- Initialize message list if p_init_msg_list is set to TRUE.
2936: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2937: FND_MSG_PUB.initialize;
2938: END IF;
2939:
2940: -- Initialize API return status to success
2937: FND_MSG_PUB.initialize;
2938: END IF;
2939:
2940: -- Initialize API return status to success
2941: x_return_status := FND_API.G_RET_STS_SUCCESS;
2942:
2943:
2944: OPEN cur_org_csr;
2945: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
2968: p_msg_name => 'OKC_TERMS_INV_LIB_VAR',
2969: p_token1 => 'P_VARIABLE_NAME',
2970: p_token1_value => p_variable_name);
2971: x_return_status := G_RET_STS_ERROR;
2972: RAISE FND_API.G_EXC_ERROR ;
2973: END IF;
2974: CLOSE c_get_variable_code;
2975:
2976: --validate if variable value exists in the system and fetch the id
3014: p_token1_value => p_variable_name,
3015: p_token2 => 'P_VAR_VALUE_SET_ID',
3016: p_token2_value => l_attr_value_set_id);
3017: x_return_status := G_RET_STS_ERROR;
3018: RAISE FND_API.G_EXC_ERROR ;
3019:
3020: END IF;
3021:
3022: /*There can exist only 1 row for a given id and variable code combination.
3051: p_token1_value => p_variable_name,
3052: p_token2 => 'P_K_ART_ID',
3053: p_token2_value => l_k_art_id);
3054: x_return_status := G_RET_STS_ERROR;
3055: RAISE FND_API.G_EXC_ERROR ;
3056:
3057: END IF;
3058:
3059: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3060: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.update_variable_values, return status'||x_return_status);
3061: END IF;
3062:
3063: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3065: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3066: RAISE FND_API.G_EXC_ERROR ;
3067: END IF;
3068:
3062:
3063: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3065: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3066: RAISE FND_API.G_EXC_ERROR ;
3067: END IF;
3068:
3069:
3070: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3072: END IF;
3073:
3074: EXCEPTION
3075:
3076: WHEN FND_API.G_EXC_ERROR THEN
3077:
3078: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3079: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving update_variable_values: OKC_API.G_EXCEPTION_ERROR Exception');
3080: END IF;
3085: ROLLBACK TO g_update_variable_values_GRP;
3086: x_return_status := G_RET_STS_ERROR ;
3087: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3088:
3089: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3090: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3091: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving update_variable_values: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3092: END IF;
3093:
3124: p_locked_by_user_name IN VARCHAR2 DEFAULT NULL,
3125: p_legal_contact_name IN VARCHAR2 DEFAULT NULL,
3126: p_contract_admin_name IN VARCHAR2 DEFAULT NULL,
3127: p_primary_template IN VARCHAR2 DEFAULT 'Y',
3128: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
3129: p_commit IN Varchar2 default FND_API.G_FALSE,
3130: x_return_status OUT NOCOPY Varchar2,
3131: x_msg_data OUT NOCOPY Varchar2,
3132: x_msg_count OUT NOCOPY NUMBER)
3125: p_legal_contact_name IN VARCHAR2 DEFAULT NULL,
3126: p_contract_admin_name IN VARCHAR2 DEFAULT NULL,
3127: p_primary_template IN VARCHAR2 DEFAULT 'Y',
3128: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
3129: p_commit IN Varchar2 default FND_API.G_FALSE,
3130: x_return_status OUT NOCOPY Varchar2,
3131: x_msg_data OUT NOCOPY Varchar2,
3132: x_msg_count OUT NOCOPY NUMBER)
3133: IS
3244: -- Standard Start of API savepoint
3245: SAVEPOINT G_CREATE_CONTRACT_TERMS_GRP;
3246:
3247: -- Standard call to check for call compatibility.
3248: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3250: END IF;
3251:
3252: -- Initialize message list if p_init_msg_list is set to TRUE.
3245: SAVEPOINT G_CREATE_CONTRACT_TERMS_GRP;
3246:
3247: -- Standard call to check for call compatibility.
3248: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
3249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3250: END IF;
3251:
3252: -- Initialize message list if p_init_msg_list is set to TRUE.
3253: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3249: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3250: END IF;
3251:
3252: -- Initialize message list if p_init_msg_list is set to TRUE.
3253: IF FND_API.to_Boolean( p_init_msg_list ) THEN
3254: FND_MSG_PUB.initialize;
3255: END IF;
3256:
3257: -- Initialize API return status to success
3254: FND_MSG_PUB.initialize;
3255: END IF;
3256:
3257: -- Initialize API return status to success
3258: x_return_status := FND_API.G_RET_STS_SUCCESS;
3259:
3260:
3261: OPEN cur_org_csr;
3262: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
3274: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
3275: END IF;
3276:
3277: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3279: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3280: RAISE FND_API.G_EXC_ERROR ;
3281: END IF;
3282:
3276:
3277: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3278: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
3279: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3280: RAISE FND_API.G_EXC_ERROR ;
3281: END IF;
3282:
3283: -- Check that Contract source is Structured or Attached
3284: IF p_contract_source not in ('STRUCTURED','ATTACHED') THEN
3287: p_msg_name => 'OKC_TERMS_INVALID_SOURCE',
3288: p_token1 => 'P_CONTRACT_SOURCE',
3289: p_token1_value => p_contract_source);
3290: x_return_status := G_RET_STS_ERROR;
3291: RAISE FND_API.G_EXC_ERROR ;
3292: END IF;
3293:
3294: IF p_contract_source ='STRUCTURED' THEN
3295: IF p_contract_tmpl_name is NULL AND p_contract_tmpl_id is NULL THEN
3296: -- no template is provided
3297: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3298: p_msg_name => 'OKC_TERMS_NO_TMPL_PROVIDED');
3299: x_return_status := G_RET_STS_ERROR;
3300: RAISE FND_API.G_EXC_ERROR ;
3301: END IF;
3302:
3303: END IF;
3304:
3312: p_msg_name => 'OKC_TERMS_INVALID_TMPL_ID',
3313: p_token1 => 'P_TMPL_ID',
3314: p_token1_value => p_contract_tmpl_id);
3315: x_return_status := G_RET_STS_ERROR;
3316: RAISE FND_API.G_EXC_ERROR ;
3317: END IF;
3318: CLOSE l_tmpl_id_validate_csr;
3319:
3320: ELSE
3326: p_msg_name => 'OKC_TERMS_INVALID_TMPL_NAME',
3327: p_token1 => 'P_TMPL_NAME',
3328: p_token1_value => p_contract_tmpl_name);
3329: x_return_status := G_RET_STS_ERROR;
3330: RAISE FND_API.G_EXC_ERROR ;
3331: END IF;
3332: CLOSE l_tmpl_name_validate_csr;
3333:
3334: END IF;
3349: p_token3 => 'P_DOC_INTENT',
3350: p_token3_value => l_doc_intent);
3351:
3352: x_return_status := G_RET_STS_ERROR;
3353: RAISE FND_API.G_EXC_ERROR ;
3354: END IF;
3355:
3356: IF l_tmpl_type_rec.status_code <> 'APPROVED' THEN
3357: --Invalid Template Status
3359: p_msg_name => 'OKC_TERMS_INV_TMPL_STS',
3360: p_token1 => 'P_TEMPLATE_NAME',
3361: p_token1_value => l_tmpl_type_rec.template_name);
3362: x_return_status := G_RET_STS_ERROR;
3363: RAISE FND_API.G_EXC_ERROR ;
3364: END IF;
3365:
3366: IF SYSDATE NOT BETWEEN l_tmpl_type_rec.start_date AND nvl(l_tmpl_type_rec.end_date,SYSDATE) THEN
3367: --Template is not Active
3369: p_msg_name => 'OKC_TERMS_INACTIVE_TMPL',
3370: p_token1 => 'P_TEMPLATE_NAME',
3371: p_token1_value => l_tmpl_type_rec.template_name);
3372: x_return_status := G_RET_STS_ERROR;
3373: RAISE FND_API.G_EXC_ERROR ;
3374: END IF;
3375:
3376: OPEN l_alwd_usgs_csr(l_tmpl_type_rec.template_id);
3377: FETCH l_alwd_usgs_csr INTO l_dummy ;
3383: p_token1_value => l_tmpl_type_rec.template_id,
3384: p_token2 => 'P_DOCUMENT_TYPE',
3385: p_token2_value => p_document_type);
3386: x_return_status := G_RET_STS_ERROR;
3387: RAISE FND_API.G_EXC_ERROR ;
3388: END IF;
3389: CLOSE l_alwd_usgs_csr;
3390:
3391: END IF; -- IF p_contract_source ='STRUCTURED' THEN
3396: --Document already has a primary Template
3397: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3398: p_msg_name => 'OKC_TERMS_EXIST');
3399: x_return_status := G_RET_STS_ERROR;
3400: RAISE FND_API.G_EXC_ERROR ;
3401: END IF;
3402: CLOSE l_tmpl_doc_exist_csr;
3403:
3404: OPEN l_mlp_tmpl_doc_exist_csr;
3407: --Document already has this Template applied
3408: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3409: p_msg_name => 'OKC_TERMS_EXIST');
3410: x_return_status := G_RET_STS_ERROR;
3411: RAISE FND_API.G_EXC_ERROR ;
3412: END IF;
3413: CLOSE l_mlp_tmpl_doc_exist_csr;
3414:
3415:
3438:
3439: OKC_TEMPLATE_USAGES_GRP.create_template_usages(
3440: p_api_version => 1,
3441: p_init_msg_list => p_init_msg_list,
3442: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
3443: p_commit => p_commit,
3444: x_return_status => x_return_status,
3445: x_msg_data => x_msg_data,
3446: x_msg_count => x_msg_count,
3486: END IF;
3487:
3488: EXCEPTION
3489:
3490: WHEN FND_API.G_EXC_ERROR THEN
3491:
3492: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3493: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving create_template_usages: OKC_API.G_EXCEPTION_ERROR Exception');
3494: END IF;
3508: ROLLBACK TO g_create_contract_terms_grp;
3509: x_return_status := G_RET_STS_ERROR ;
3510: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
3511:
3512: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3513: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3514: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving create_template_usages: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
3515: END IF;
3516:
4101: p_msg_name => 'OKC_I_INVALID_VALUE',
4102: p_token1 => 'FIELD',
4103: p_token1_value => 'BUSINESS_DOCUMENT_TYPE'
4104: );
4105: RAISE fnd_api.g_exc_error;
4106: END IF;
4107: CLOSE cur_val_bus_doc;
4108:
4109: -- Validate Deliverable Type
4118: p_msg_name => 'OKC_I_INVALID_VALUE',
4119: p_token1 => 'FIELD',
4120: p_token1_value => 'DELIVERABLE_TYPE'
4121: );
4122: RAISE fnd_api.g_exc_error;
4123: END IF;
4124: CLOSE cur_val_del_type;
4125:
4126: -- Validate the responsible_party type
4132: p_msg_name => 'OKC_I_INVALID_VALUE',
4133: p_token1 => 'FIELD',
4134: p_token1_value => 'RESPONSIBLE_PARTY'
4135: );
4136: RAISE fnd_api.g_exc_error;
4137: END IF;
4138: CLOSE cur_val_resp_party;
4139:
4140:
4156: p_msg_name => 'OKC_I_INVALID_VALUE',
4157: p_token1 => 'FIELD',
4158: p_token1_value => 'RESPONSIBLE_PARTY'
4159: );
4160: RAISE fnd_api.g_exc_error;
4161: END IF; */
4162:
4163: -- Validate Internal Party ID
4164: IF p_deliverable_rec.internal_party_id IS NULL THEN
4166: p_msg_name => 'OKC_I_NOT_NULL',
4167: p_token1 => 'FIELD',
4168: p_token1_value => 'INTERNAL_PARTY_ID'
4169: );
4170: RAISE fnd_api.g_exc_error;
4171: END IF;
4172:
4173: -- Validate Internal Party ID
4174: OPEN cur_val_internal_party(p_deliverable_rec.internal_party_id);
4179: p_msg_name => 'OKC_I_INVALID_VALUE',
4180: p_token1 => 'FIELD',
4181: p_token1_value => 'INTERNAL_PARTY_ID'
4182: );
4183: RAISE fnd_api.g_exc_error;
4184: END IF;
4185: CLOSE cur_val_internal_party;
4186:
4187:
4190: p_msg_name => 'OKC_I_NOT_NULL',
4191: p_token1 => 'FIELD',
4192: p_token1_value => 'INTERNAL_PARTY_CONTACT_ID'
4193: );
4194: RAISE fnd_api.g_exc_error;
4195: END IF;
4196:
4197:
4198: IF p_deliverable_rec.internal_party_contact_id IS NOT NULL
4203: p_msg_name => 'OKC_I_INVALID_VALUE',
4204: p_token1 => 'FIELD',
4205: p_token1_value => 'INTERNAL_PARTY_CONTACT_ID'
4206: );
4207: RAISE fnd_api.g_exc_error;
4208: END IF;
4209:
4210:
4211:
4220: p_msg_name => 'OKC_I_INVALID_VALUE',
4221: p_token1 => 'FIELD',
4222: p_token1_value => 'EXTERNAL_PARTY_CONTACT_ID'
4223: );
4224: RAISE fnd_api.g_exc_error;
4225: END IF;
4226: CLOSE cur_val_ext_party_contact_id;
4227: END IF;
4228:
4234: p_msg_name => 'OKC_I_INVALID_VALUE',
4235: p_token1 => 'FIELD',
4236: p_token1_value => 'REQUESTER_ID'
4237: );
4238: RAISE fnd_api.g_exc_error;
4239: END IF;
4240:
4241: IF p_deliverable_rec.deliverable_name IS NULL
4242: THEN
4244: p_msg_name => 'OKC_I_NOT_NULL',
4245: p_token1 => 'FIELD',
4246: p_token1_value => 'DELIVERABLE_NAME'
4247: );
4248: RAISE fnd_api.g_exc_error;
4249: END IF;
4250:
4251: -- This is required for 11i to R12 Data migration.
4252: -- Refer bug 4228090
4268: p_msg_name => 'OKC_I_INVALID_VALUE',
4269: p_token1 => 'FIELD',
4270: p_token1_value => 'EXTERNAL_PARTY_ID'
4271: );
4272: RAISE fnd_api.g_exc_error;
4273:
4274: END IF;
4275:
4276: IF p_deliverable_rec.NOTIFY_ESCALATION_YN = 'Y'
4286: p_msg_name => 'OKC_I_NOT_NULL',
4287: p_token1 => 'FIELD',
4288: p_token1_value => l_column_name
4289: );
4290: RAISE fnd_api.g_exc_error;
4291:
4292: EXCEPTION
4293: WHEN No_Data_Found THEN
4294: NULL;
4307: p_msg_name => 'OKC_I_NOT_NULL',
4308: p_token1 => 'FIELD',
4309: p_token1_value => l_column_name
4310: );
4311: RAISE fnd_api.g_exc_error;
4312:
4313: EXCEPTION
4314: WHEN No_Data_Found THEN
4315: NULL;
4325: p_msg_name => 'OKC_I_INVALID_VALUE',
4326: p_token1 => 'FIELD',
4327: p_token1_value => 'ESCALATION_ASSIGNEE'
4328: );
4329: RAISE fnd_api.g_exc_error;
4330: END IF;
4331: END IF;
4332:
4333:
4414: p_msg_name => 'OKC_I_NOT_NULL',
4415: p_token1 => 'FIELD',
4416: p_token1_value => 'FIXED_START_DATE'
4417: );
4418: RAISE fnd_api.g_exc_error;
4419: END IF;
4420:
4421:
4422:
4486: );
4487:
4488:
4489:
4490: RAISE fnd_api.g_exc_error;
4491:
4492:
4493: EXCEPTION
4494: WHEN No_Data_Found THEN
4508: p_msg_name => 'OKC_I_NOT_NULL',
4509: p_token1 => 'FIELD',
4510: p_token1_value => 'RELATIVE_ST_DATE_EVENT_ID'
4511: );
4512: RAISE fnd_api.g_exc_error;
4513: END IF;
4514:
4515: IF p_deliverable_rec.relative_st_date_duration IS NULL
4516: THEN
4519: p_msg_name => 'OKC_I_NOT_NULL',
4520: p_token1 => 'FIELD',
4521: p_token1_value => 'RELATIVE_ST_DATE_DURATION'
4522: );
4523: RAISE fnd_api.g_exc_error;
4524: END IF;
4525:
4526: IF p_deliverable_rec.relative_st_date_uom IS NULL
4527: THEN
4529: p_msg_name => 'OKC_I_NOT_NULL',
4530: p_token1 => 'FIELD',
4531: p_token1_value => 'RELATIVE_ST_DATE_UOM'
4532: );
4533: RAISE fnd_api.g_exc_error;
4534: END IF;
4535:
4536:
4537:
4546: p_msg_name => 'OKC_I_INVALID_VALUE',
4547: p_token1 => 'FIELD',
4548: p_token1_value => 'RELATIVE_ST_DATE_EVENT_ID'
4549: );
4550: RAISE fnd_api.g_exc_error;
4551: END IF;
4552:
4553:
4554: BEGIN
4602: p_token1 => 'FIELD',
4603: p_token1_value => l_column_name
4604: );
4605:
4606: RAISE fnd_api.g_exc_error;
4607: EXCEPTION
4608: WHEN No_Data_Found THEN
4609: NULL;
4610: END;
4645: p_msg_name => 'OKC_DEL_INCONSISTENT_DUE_DATES'
4646: );
4647:
4648:
4649: RAISE fnd_api.g_exc_error;
4650: EXCEPTION
4651: WHEN No_Data_Found THEN NULL;
4652: END;
4653:
4667: p_msg_name => 'OKC_I_NOT_NULL',
4668: p_token1 => 'FIELD',
4669: p_token1_value => 'FIXED_START_DATE'
4670: );
4671: RAISE fnd_api.g_exc_error;
4672: END IF;
4673:
4674: IF p_deliverable_rec.fixed_end_date IS NULL
4675: AND p_deliverable_rec.relative_end_date_event_id IS NULL
4683: p_msg_name => 'OKC_I_NOT_NULL',
4684: p_token1 => 'FIELD',
4685: p_token1_value => 'FIXED_END_DATE'
4686: );
4687: RAISE fnd_api.g_exc_error;
4688: END IF;
4689:
4690: -- When Fixed Start date is entered, then Relative St event information must not be entered.
4691: IF p_deliverable_rec.fixed_start_date IS NOT NULL THEN
4713: p_token1 => 'FIELD',
4714: p_token1_value => l_column_name
4715: );
4716:
4717: RAISE fnd_api.g_exc_error;
4718: exception
4719: when no_data_found then
4720: null;
4721: end;
4745: p_token1 => 'FIELD',
4746: p_token1_value => l_column_name
4747: );
4748:
4749: RAISE fnd_api.g_exc_error;
4750: exception
4751: when no_data_found then
4752: null;
4753: end;
4780: p_token1 => 'FIELD',
4781: p_token1_value => l_column_name
4782: );
4783:
4784: RAISE fnd_api.g_exc_error;
4785: exception
4786: when no_data_found then
4787: null;
4788: end;
4812: p_token1 => 'FIELD',
4813: p_token1_value => l_column_name
4814: );
4815:
4816: RAISE fnd_api.g_exc_error;
4817: exception
4818: when no_data_found then
4819: null;
4820: end;
4840: p_token1 => 'DEL_TOKEN',
4841: p_token1_value => l_resolved_token
4842: );
4843:
4844: RAISE fnd_api.g_exc_error;
4845: END IF;
4846:
4847:
4848: IF p_deliverable_rec.relative_st_date_event_id IS NOT NULL
4858: p_msg_name => 'OKC_I_INVALID_VALUE',
4859: p_token1 => 'FIELD',
4860: p_token1_value => 'RELATIVE_ST_DATE_EVENT_ID'
4861: );
4862: RAISE fnd_api.g_exc_error;
4863: END IF;
4864: END IF;
4865:
4866: IF p_deliverable_rec.relative_end_date_event_id IS NOT NULL
4876: p_msg_name => 'OKC_I_INVALID_VALUE',
4877: p_token1 => 'FIELD',
4878: p_token1_value => 'RELATIVE_END_DATE_EVENT_ID'
4879: );
4880: RAISE fnd_api.g_exc_error;
4881: END IF;
4882: END IF;
4883:
4884: IF p_deliverable_rec.relative_st_date_event_id IS NOT NULL AND
4899: p_token1 => 'DEL_TOKEN',
4900: p_token1_value => l_resolved_token
4901: );
4902:
4903: RAISE fnd_api.g_exc_error;
4904: END IF;
4905:
4906: IF (p_deliverable_rec.fixed_start_date IS NOT NULL AND
4907: p_deliverable_rec.fixed_end_date IS NOT NULL AND
4921: (p_app_name => g_app_name,
4922: p_msg_name => l_resolved_msg_name
4923: );
4924:
4925: RAISE fnd_api.g_exc_error;
4926: END IF;
4927:
4928: IF ( p_deliverable_rec.repeating_duration < 0
4929: OR (InStr(To_Char(p_deliverable_rec.repeating_duration),'.')<>0)
4938: p_token1_value => l_resolved_token
4939: );
4940:
4941:
4942: RAISE fnd_api.g_exc_error;
4943: END IF;
4944: IF p_deliverable_rec.repeating_frequency_uom = 'WK'
4945: THEN
4946:
4956: okc_api.set_message
4957: (p_app_name => g_app_name,
4958: p_msg_name => 'OKC_DEL_INVALID_DAY_OF_WEEK'
4959: );
4960: RAISE fnd_api.g_exc_error;
4961: END IF;
4962: END IF;
4963:
4964: IF p_deliverable_rec.recurring_yn = 'Y'
4974: okc_api.set_message
4975: (p_app_name => g_app_name,
4976: p_msg_name => 'OKC_DEL_INVALID_DAY_OF_MONTH'
4977: );
4978: RAISE fnd_api.g_exc_error;
4979: END IF;
4980: END IF;
4981:
4982:
5093: p_token1 => 'DEL_TOKEN',
5094: p_token1_value => l_resolved_token
5095: );
5096:
5097: RAISE fnd_api.g_exc_error;
5098: END IF;
5099:
5100: -- Scenario 2 is always valid no need to check
5101:
5117: p_token1_value => l_resolved_token
5118: );
5119:
5120:
5121: RAISE fnd_api.g_exc_error;
5122: END IF;
5123:
5124: IF ( 'A' = l_startba
5125: AND 'A' = l_endba
5141: p_token1_value => l_resolved_token
5142: );
5143:
5144:
5145: RAISE fnd_api.g_exc_error;
5146: END IF;
5147: END IF;
5148: END IF;
5149: END IF;
5164: PROCEDURE create_deliverables(p_api_version IN NUMBER,
5165: p_document_type IN VARCHAR2,
5166: p_document_id IN NUMBER,
5167: p_deliverable_rec IN deliverable_rec_type,
5168: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
5169: p_commit IN Varchar2 default FND_API.G_FALSE,
5170: x_return_status OUT NOCOPY Varchar2,
5171: x_msg_data OUT NOCOPY Varchar2,
5172: x_msg_count OUT NOCOPY Number
5165: p_document_type IN VARCHAR2,
5166: p_document_id IN NUMBER,
5167: p_deliverable_rec IN deliverable_rec_type,
5168: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
5169: p_commit IN Varchar2 default FND_API.G_FALSE,
5170: x_return_status OUT NOCOPY Varchar2,
5171: x_msg_data OUT NOCOPY Varchar2,
5172: x_msg_count OUT NOCOPY Number
5173: )
5690: -- Standard Start of API savepoint
5691: SAVEPOINT g_create_deliverables_GRP;
5692:
5693: -- Standard call to check for call compatibility.
5694: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5696: END IF;
5697:
5698: -- Initialize message list if p_init_msg_list is set to TRUE.
5691: SAVEPOINT g_create_deliverables_GRP;
5692:
5693: -- Standard call to check for call compatibility.
5694: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5696: END IF;
5697:
5698: -- Initialize message list if p_init_msg_list is set to TRUE.
5699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5695: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5696: END IF;
5697:
5698: -- Initialize message list if p_init_msg_list is set to TRUE.
5699: IF FND_API.to_Boolean( p_init_msg_list ) THEN
5700: FND_MSG_PUB.initialize;
5701: END IF;
5702:
5703: -- Initialize API return status to success
5700: FND_MSG_PUB.initialize;
5701: END IF;
5702:
5703: -- Initialize API return status to success
5704: x_return_status := FND_API.G_RET_STS_SUCCESS;
5705:
5706:
5707:
5708: validate_document(
5727: p_token1_value => delRecTab.deliverable_type,
5728: p_token2 => 'P_DOCUMENT_TYPE',
5729: p_token2_value => p_document_type);
5730: x_return_status := G_RET_STS_ERROR;
5731: RAISE FND_API.G_EXC_ERROR;
5732:
5733: END IF;
5734: CLOSE C_delTypeExists;
5735:
6011: );
6012:
6013: delRecTab.status := g_ret_sts_success;
6014:
6015: IF fnd_api.to_boolean (p_commit)
6016: THEN
6017: COMMIT;
6018: END IF;
6019:
6023: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.create_deliverables, return status'||x_return_status);
6024: END IF;
6025:
6026: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6028: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6029: RAISE FND_API.G_EXC_ERROR ;
6030: END IF;
6031:
6025:
6026: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6027: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6028: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6029: RAISE FND_API.G_EXC_ERROR ;
6030: END IF;
6031:
6032:
6033: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6035: END IF;
6036:
6037: EXCEPTION
6038:
6039: WHEN FND_API.G_EXC_ERROR THEN
6040:
6041: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6042: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving create_deliverables: OKC_API.G_EXCEPTION_ERROR Exception');
6043: END IF;
6048: ROLLBACK TO g_create_deliverables_GRP;
6049: x_return_status := G_RET_STS_ERROR ;
6050: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6051:
6052: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6053: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6054: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving create_deliverables: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
6055: END IF;
6056:
6081: END create_deliverables;
6082:
6083:
6084: PROCEDURE remove_std_clause_from_doc(p_api_version IN Number,
6085: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
6086: p_commit IN Varchar2 default FND_API.G_FALSE,
6087: p_mode IN VARCHAR2 default'NORMAL',
6088: p_document_type IN Varchar2,
6089: p_document_id IN Number,
6082:
6083:
6084: PROCEDURE remove_std_clause_from_doc(p_api_version IN Number,
6085: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
6086: p_commit IN Varchar2 default FND_API.G_FALSE,
6087: p_mode IN VARCHAR2 default'NORMAL',
6088: p_document_type IN Varchar2,
6089: p_document_id IN Number,
6090: p_clause_version_id IN Number default null,
6089: p_document_id IN Number,
6090: p_clause_version_id IN Number default null,
6091: p_clause_title IN Varchar2 default null,
6092: p_clause_version_num IN Number default null,
6093: p_renumber_terms IN Varchar2 default FND_API.G_FALSE,
6094: x_return_status OUT NOCOPY Varchar2,
6095: x_msg_data OUT NOCOPY Varchar2,
6096: x_msg_count OUT NOCOPY Number)
6097: IS
6187: -- Standard Start of API savepoint
6188: SAVEPOINT g_remove_std_clause_grp;
6189:
6190: -- Standard call to check for call compatibility.
6191: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6193: END IF;
6194:
6195: -- Initialize message list if p_init_msg_list is set to TRUE.
6188: SAVEPOINT g_remove_std_clause_grp;
6189:
6190: -- Standard call to check for call compatibility.
6191: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6193: END IF;
6194:
6195: -- Initialize message list if p_init_msg_list is set to TRUE.
6196: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6192: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6193: END IF;
6194:
6195: -- Initialize message list if p_init_msg_list is set to TRUE.
6196: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6197: FND_MSG_PUB.initialize;
6198: END IF;
6199:
6200: -- Initialize API return status to success
6197: FND_MSG_PUB.initialize;
6198: END IF;
6199:
6200: -- Initialize API return status to success
6201: x_return_status := FND_API.G_RET_STS_SUCCESS;
6202:
6203:
6204: OPEN cur_org_csr;
6205: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
6217: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
6218: END IF;
6219:
6220: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6222: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6223: RAISE FND_API.G_EXC_ERROR ;
6224: END IF;
6225:
6219:
6220: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6221: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6222: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6223: RAISE FND_API.G_EXC_ERROR ;
6224: END IF;
6225:
6226: -- Check that Clause info is provided
6227: IF p_clause_version_id is NULL and p_clause_title is NULL THEN
6228: -- no clause is provided
6229: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6230: p_msg_name => 'OKC_TERMS_INV_CLS');
6231: x_return_status := G_RET_STS_ERROR;
6232: RAISE FND_API.G_EXC_ERROR ;
6233: END IF;
6234:
6235: IF p_clause_version_id is not NULL THEN
6236: OPEN l_cls_id_validate_csr;
6241: p_msg_name => 'OKC_TERMS_INV_CLS_ID',
6242: p_token1 => 'P_CLS_VER_ID',
6243: p_token1_value => p_clause_version_id);
6244: x_return_status := G_RET_STS_ERROR;
6245: RAISE FND_API.G_EXC_ERROR ;
6246: END IF;
6247: CLOSE l_cls_id_validate_csr;
6248:
6249: ELSE
6255: p_msg_name => 'OKC_TERMS_INV_CLS_NAME',
6256: p_token1 => 'P_CLS_TITLE',
6257: p_token1_value => p_clause_title);
6258: x_return_status := G_RET_STS_ERROR;
6259: RAISE FND_API.G_EXC_ERROR ;
6260: END IF;
6261: CLOSE l_cls_name_validate_csr;
6262:
6263: END IF;
6268: FOR c_get_doc_art_id_csr_rec IN c_get_doc_art_id_csr(l_cls_type_rec.article_id) LOOP
6269:
6270: remove_clause_id_from_doc(
6271: p_api_version => 1.0,
6272: p_init_msg_list => FND_API.G_FALSE,
6273: p_commit => FND_API.G_FALSE,
6274: p_mode => p_mode,
6275: p_document_type => p_document_type,
6276: p_document_id => p_document_id,
6269:
6270: remove_clause_id_from_doc(
6271: p_api_version => 1.0,
6272: p_init_msg_list => FND_API.G_FALSE,
6273: p_commit => FND_API.G_FALSE,
6274: p_mode => p_mode,
6275: p_document_type => p_document_type,
6276: p_document_id => p_document_id,
6277: p_clause_id => c_get_doc_art_id_csr_rec.id,
6284: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_K_ARTICLES_GRP.create_article, return status'||x_return_status);
6285: END IF;
6286:
6287: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6289: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6290: RAISE FND_API.G_EXC_ERROR ;
6291: END IF;
6292: -----------------------------------------------------
6286:
6287: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6288: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6289: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6290: RAISE FND_API.G_EXC_ERROR ;
6291: END IF;
6292: -----------------------------------------------------
6293:
6294: IF p_renumber_terms = 'Y' THEN
6304: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: apply_numbering_scheme, return status'||x_return_status);
6305: END IF;
6306:
6307: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6309: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6310: RAISE FND_API.G_EXC_ERROR ;
6311: END IF;
6312: END IF;
6306:
6307: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6308: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6309: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6310: RAISE FND_API.G_EXC_ERROR ;
6311: END IF;
6312: END IF;
6313:
6314:
6311: END IF;
6312: END IF;
6313:
6314:
6315: IF FND_API.To_Boolean( p_commit ) THEN
6316: COMMIT WORK;
6317: END IF;
6318:
6319: -- Standard call to get message count and if count is 1, get message info.
6324: END IF;
6325:
6326: EXCEPTION
6327:
6328: WHEN FND_API.G_EXC_ERROR THEN
6329:
6330: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6331: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving add_standard_clause: OKC_API.G_EXCEPTION_ERROR Exception');
6332: END IF;
6344: ROLLBACK TO g_remove_std_clause_grp;
6345: x_return_status := G_RET_STS_ERROR ;
6346: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6347:
6348: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6349: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6350: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving add_standard_clause: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
6351: END IF;
6352:
6368:
6369: END remove_std_clause_from_doc;
6370:
6371: PROCEDURE remove_clause_id_from_doc(p_api_version IN Number,
6372: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
6373: p_commit IN Varchar2 default FND_API.G_FALSE,
6374: p_mode IN VARCHAR2 default'NORMAL',
6375: p_document_type IN Varchar2,
6376: p_document_id IN Number,
6369: END remove_std_clause_from_doc;
6370:
6371: PROCEDURE remove_clause_id_from_doc(p_api_version IN Number,
6372: p_init_msg_list IN Varchar2 default FND_API.G_FALSE,
6373: p_commit IN Varchar2 default FND_API.G_FALSE,
6374: p_mode IN VARCHAR2 default'NORMAL',
6375: p_document_type IN Varchar2,
6376: p_document_id IN Number,
6377: p_clause_id IN Number default null,
6374: p_mode IN VARCHAR2 default'NORMAL',
6375: p_document_type IN Varchar2,
6376: p_document_id IN Number,
6377: p_clause_id IN Number default null,
6378: p_renumber_terms IN Varchar2 default FND_API.G_FALSE,
6379: x_return_status OUT NOCOPY Varchar2,
6380: x_msg_data OUT NOCOPY Varchar2,
6381: x_msg_count OUT NOCOPY NUMBER
6382: ,p_locking_enabled_yn IN VARCHAR2 DEFAULT 'N'
6411: -- Standard Start of API savepoint
6412: SAVEPOINT g_remove_clause_from_doc_GRP;
6413:
6414: -- Standard call to check for call compatibility.
6415: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6417: END IF;
6418:
6419: -- Initialize message list if p_init_msg_list is set to TRUE.
6412: SAVEPOINT g_remove_clause_from_doc_GRP;
6413:
6414: -- Standard call to check for call compatibility.
6415: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
6416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6417: END IF;
6418:
6419: -- Initialize message list if p_init_msg_list is set to TRUE.
6420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6416: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
6417: END IF;
6418:
6419: -- Initialize message list if p_init_msg_list is set to TRUE.
6420: IF FND_API.to_Boolean( p_init_msg_list ) THEN
6421: FND_MSG_PUB.initialize;
6422: END IF;
6423:
6424: -- Initialize API return status to success
6421: FND_MSG_PUB.initialize;
6422: END IF;
6423:
6424: -- Initialize API return status to success
6425: x_return_status := FND_API.G_RET_STS_SUCCESS;
6426:
6427:
6428: OPEN cur_org_csr;
6429: FETCH cur_org_csr INTO G_CURRENT_ORG_ID;
6441: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'300: Finished OKC_TERMS_MIGRATE_GRP.validate_document, return status'||x_return_status);
6442: END IF;
6443:
6444: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6446: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6447: RAISE FND_API.G_EXC_ERROR ;
6448: END IF;
6449:
6443:
6444: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6445: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6446: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6447: RAISE FND_API.G_EXC_ERROR ;
6448: END IF;
6449:
6450: -- Check that Clause info is provided
6451: IF p_clause_id is NULL THEN
6452: -- no clause is provided
6453: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
6454: p_msg_name => 'OKC_TERMS_INV_CLS');
6455: x_return_status := G_RET_STS_ERROR;
6456: RAISE FND_API.G_EXC_ERROR ;
6457: END IF;
6458:
6459: IF p_clause_id is not NULL THEN
6460: OPEN c_get_doc_art_id_csr;
6465: p_msg_name => 'OKC_TERMS_INV_CLS_ID',
6466: p_token1 => 'P_CLS_ID',
6467: p_token1_value => p_clause_id);
6468: x_return_status := G_RET_STS_ERROR;
6469: RAISE FND_API.G_EXC_ERROR ;
6470: END IF;
6471: CLOSE c_get_doc_art_id_csr;
6472:
6473: END IF;
6473: END IF;
6474:
6475: OKC_K_ARTICLES_GRP.delete_article(
6476: p_api_version => 1.0,
6477: p_init_msg_list => FND_API.G_FALSE,
6478: p_validate_commit => FND_API.G_FALSE,
6479: p_validation_string => Null,
6480: p_commit => FND_API.G_FALSE,
6481: p_mode => p_mode,
6474:
6475: OKC_K_ARTICLES_GRP.delete_article(
6476: p_api_version => 1.0,
6477: p_init_msg_list => FND_API.G_FALSE,
6478: p_validate_commit => FND_API.G_FALSE,
6479: p_validation_string => Null,
6480: p_commit => FND_API.G_FALSE,
6481: p_mode => p_mode,
6482: p_id => p_clause_id,
6476: p_api_version => 1.0,
6477: p_init_msg_list => FND_API.G_FALSE,
6478: p_validate_commit => FND_API.G_FALSE,
6479: p_validation_string => Null,
6480: p_commit => FND_API.G_FALSE,
6481: p_mode => p_mode,
6482: p_id => p_clause_id,
6483: p_object_version_number => l_object_version_number,
6484: p_mandatory_clause_delete => 'Y',
6493: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: Finished OKC_K_ARTICLES_GRP.create_article, return status'||x_return_status);
6494: END IF;
6495:
6496: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6498: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6499: RAISE FND_API.G_EXC_ERROR ;
6500: END IF;
6501: -----------------------------------------------------
6495:
6496: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6497: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6498: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6499: RAISE FND_API.G_EXC_ERROR ;
6500: END IF;
6501: -----------------------------------------------------
6502:
6503: IF p_renumber_terms = 'Y' THEN
6513: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,g_module||l_api_name,'600: apply_numbering_scheme, return status'||x_return_status);
6514: END IF;
6515:
6516: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6518: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6519: RAISE FND_API.G_EXC_ERROR ;
6520: END IF;
6521: END IF;
6515:
6516: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
6517: RAISE FND_API.G_EXC_UNEXPECTED_ERROR ;
6518: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
6519: RAISE FND_API.G_EXC_ERROR ;
6520: END IF;
6521: END IF;
6522:
6523:
6520: END IF;
6521: END IF;
6522:
6523:
6524: IF FND_API.To_Boolean( p_commit ) THEN
6525: COMMIT WORK;
6526: END IF;
6527:
6528: -- Standard call to get message count and if count is 1, get message info.
6533: END IF;
6534:
6535: EXCEPTION
6536:
6537: WHEN FND_API.G_EXC_ERROR THEN
6538:
6539: IF ( FND_LOG.LEVEL_ERROR >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6540: FND_LOG.STRING( FND_LOG.LEVEL_ERROR ,g_module||l_api_name,'800: Leaving add_standard_clause: OKC_API.G_EXCEPTION_ERROR Exception');
6541: END IF;
6547: ROLLBACK TO g_remove_clause_from_doc_GRP;
6548: x_return_status := G_RET_STS_ERROR ;
6549: FND_MSG_PUB.Count_And_Get(p_encoded=>'F', p_count => x_msg_count, p_data => x_msg_data );
6550:
6551: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6552: IF ( FND_LOG.LEVEL_UNEXPECTED >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
6553: FND_LOG.STRING( FND_LOG.LEVEL_UNEXPECTED ,g_module||l_api_name,'900: Leaving add_standard_clause: OKC_API.G_EXCEPTION_UNEXPECTED_ERROR Exception');
6554: END IF;
6555: