57: l_api_name CONSTANT VARCHAR2(30) := 'Get_Seq_Id';
58: CURSOR l_seq_csr IS
59: SELECT OKC_TERMS_TEMPLATES_ALL_S.NEXTVAL FROM DUAL;
60: BEGIN
61: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
62: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered get_seq_id');
63: END IF;
64:
65: IF( p_template_id IS NULL ) THEN
58: CURSOR l_seq_csr IS
59: SELECT OKC_TERMS_TEMPLATES_ALL_S.NEXTVAL FROM DUAL;
60: BEGIN
61: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
62: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered get_seq_id');
63: END IF;
64:
65: IF( p_template_id IS NULL ) THEN
66: OPEN l_seq_csr;
70: END IF;
71: CLOSE l_seq_csr;
72: END IF;
73:
74: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving get_seq_id');
76: END IF;
77: RETURN G_RET_STS_SUCCESS;
78: EXCEPTION
71: CLOSE l_seq_csr;
72: END IF;
73:
74: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
75: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Leaving get_seq_id');
76: END IF;
77: RETURN G_RET_STS_SUCCESS;
78: EXCEPTION
79: WHEN OTHERS THEN
77: RETURN G_RET_STS_SUCCESS;
78: EXCEPTION
79: WHEN OTHERS THEN
80:
81: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
82: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving get_seq_id because of EXCEPTION: '||sqlerrm);
83: END IF;
84:
85: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
78: EXCEPTION
79: WHEN OTHERS THEN
80:
81: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
82: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'300: Leaving get_seq_id because of EXCEPTION: '||sqlerrm);
83: END IF;
84:
85: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
86: p_msg_name => G_UNEXPECTED_ERROR,
204: FROM OKC_TERMS_TEMPLATES_ALL t
205: WHERE t.TEMPLATE_ID = cp_template_id;
206: BEGIN
207:
208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
209: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Entered get_rec');
210: END IF;
211:
212: -- Get current database values
205: WHERE t.TEMPLATE_ID = cp_template_id;
206: BEGIN
207:
208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
209: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Entered get_rec');
210: END IF;
211:
212: -- Get current database values
213: OPEN OKC_TERMS_TEMPLATES_ALL_pk_csr (p_template_id);
263: RAISE NO_DATA_FOUND;
264: END IF;
265: CLOSE OKC_TERMS_TEMPLATES_ALL_pk_csr;
266:
267: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
268: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Leaving get_rec ');
269: END IF;
270:
271: RETURN G_RET_STS_SUCCESS ;
264: END IF;
265: CLOSE OKC_TERMS_TEMPLATES_ALL_pk_csr;
266:
267: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
268: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'500: Leaving get_rec ');
269: END IF;
270:
271: RETURN G_RET_STS_SUCCESS ;
272:
272:
273: EXCEPTION
274: WHEN OTHERS THEN
275:
276: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving get_rec because of EXCEPTION: '||sqlerrm);
278: END IF;
279:
280: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
273: EXCEPTION
274: WHEN OTHERS THEN
275:
276: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
277: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving get_rec because of EXCEPTION: '||sqlerrm);
278: END IF;
279:
280: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
281: p_msg_name => G_UNEXPECTED_ERROR,
391: l_last_updated_by OKC_TERMS_TEMPLATES_ALL.LAST_UPDATED_BY%TYPE;
392: l_last_update_login OKC_TERMS_TEMPLATES_ALL.LAST_UPDATE_LOGIN%TYPE;
393: l_last_update_date OKC_TERMS_TEMPLATES_ALL.LAST_UPDATE_DATE%TYPE;
394: BEGIN
395: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered Set_Attributes ');
397: END IF;
398:
399: IF( p_template_id IS NOT NULL ) THEN
392: l_last_update_login OKC_TERMS_TEMPLATES_ALL.LAST_UPDATE_LOGIN%TYPE;
393: l_last_update_date OKC_TERMS_TEMPLATES_ALL.LAST_UPDATE_DATE%TYPE;
394: BEGIN
395: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
396: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'700: Entered Set_Attributes ');
397: END IF;
398:
399: IF( p_template_id IS NOT NULL ) THEN
400: -- Get current database values
700: END IF;
701:
702: END IF;
703:
704: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Leaving Set_Attributes ');
706: END IF;
707:
708: RETURN G_RET_STS_SUCCESS ;
701:
702: END IF;
703:
704: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
705: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'800: Leaving Set_Attributes ');
706: END IF;
707:
708: RETURN G_RET_STS_SUCCESS ;
709: EXCEPTION
707:
708: RETURN G_RET_STS_SUCCESS ;
709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
712: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception');
713: END IF;
714: RETURN G_RET_STS_ERROR;
715:
708: RETURN G_RET_STS_SUCCESS ;
709: EXCEPTION
710: WHEN FND_API.G_EXC_ERROR THEN
711: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
712: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception');
713: END IF;
714: RETURN G_RET_STS_ERROR;
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713: END IF;
714: RETURN G_RET_STS_ERROR;
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
719: END IF;
720: RETURN G_RET_STS_UNEXP_ERROR;
721:
714: RETURN G_RET_STS_ERROR;
715:
716: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
717: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
718: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
719: END IF;
720: RETURN G_RET_STS_UNEXP_ERROR;
721:
722: WHEN OTHERS THEN
719: END IF;
720: RETURN G_RET_STS_UNEXP_ERROR;
721:
722: WHEN OTHERS THEN
723: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
724: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm);
725: END IF;
726: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
727: p_msg_name => G_UNEXPECTED_ERROR,
720: RETURN G_RET_STS_UNEXP_ERROR;
721:
722: WHEN OTHERS THEN
723: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
724: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm);
725: END IF;
726: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
727: p_msg_name => G_UNEXPECTED_ERROR,
728: p_token1 => G_SQLCODE_TOKEN,
837:
838:
839: BEGIN
840:
841: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Entered Validate_Attributes');
843: END IF;
844:
845: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
838:
839: BEGIN
840:
841: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Entered Validate_Attributes');
843: END IF;
844:
845: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
846: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
842: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Entered Validate_Attributes');
843: END IF;
844:
845: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
846: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: required values validation');
848: END IF;
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
843: END IF;
844:
845: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
846: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: required values validation');
848: END IF;
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: - attribute TEMPLATE_NAME ');
846: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: required values validation');
848: END IF;
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: - attribute TEMPLATE_NAME ');
852: END IF;
853: IF ( p_template_name IS NULL) THEN
854: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
847: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: required values validation');
848: END IF;
849:
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: - attribute TEMPLATE_NAME ');
852: END IF;
853: IF ( p_template_name IS NULL) THEN
854: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute TEMPLATE_NAME is invalid');
850: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: - attribute TEMPLATE_NAME ');
852: END IF;
853: IF ( p_template_name IS NULL) THEN
854: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute TEMPLATE_NAME is invalid');
856: END IF;
857: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TEMPLATE_NAME');
858: l_return_status := G_RET_STS_ERROR;
851: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: - attribute TEMPLATE_NAME ');
852: END IF;
853: IF ( p_template_name IS NULL) THEN
854: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
855: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute TEMPLATE_NAME is invalid');
856: END IF;
857: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'TEMPLATE_NAME');
858: l_return_status := G_RET_STS_ERROR;
859: END IF;
861:
862: END IF;
863:
864: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
865: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
866: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: static values and range validation');
867: END IF;
868:
869: END IF;
862: END IF;
863:
864: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
865: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
866: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: static values and range validation');
867: END IF;
868:
869: END IF;
870:
868:
869: END IF;
870:
871: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: lookup codes validation');
874: END IF;
875:
876: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
869: END IF;
870:
871: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: lookup codes validation');
874: END IF;
875:
876: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
877: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: - attribute STATUS_CODE ');
872: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: lookup codes validation');
874: END IF;
875:
876: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
877: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: - attribute STATUS_CODE ');
878: END IF;
879: IF p_status_code IS NOT NULL THEN
880: l_return_status := Okc_Util.Check_Lookup_Code('OKC_TERMS_TMPL_STATUS',p_status_code);
873: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: lookup codes validation');
874: END IF;
875:
876: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
877: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2000: - attribute STATUS_CODE ');
878: END IF;
879: IF p_status_code IS NOT NULL THEN
880: l_return_status := Okc_Util.Check_Lookup_Code('OKC_TERMS_TMPL_STATUS',p_status_code);
881: IF (l_return_status <> G_RET_STS_SUCCESS) THEN
886:
887: END IF;
888:
889: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
890: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
892: END IF;
893:
894: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
887: END IF;
888:
889: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
890: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
892: END IF;
893:
894: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
895: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_ID ');
890: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
892: END IF;
893:
894: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
895: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_ID ');
896: END IF;
897: /*
898: IF p_template_id IS NOT NULL THEN
891: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
892: END IF;
893:
894: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
895: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_ID ');
896: END IF;
897: /*
898: IF p_template_id IS NOT NULL THEN
899: l_dummy_var := '?';
900: OPEN l_template_id_csr;
901: FETCH l_template_id_csr INTO l_dummy_var;
902: CLOSE l_template_id_csr;
903: IF (l_dummy_var = '?') THEN
904: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute TEMPLATE_ID is invalid');
906: END IF;
907: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_ID');
908: l_return_status := G_RET_STS_ERROR;
901: FETCH l_template_id_csr INTO l_dummy_var;
902: CLOSE l_template_id_csr;
903: IF (l_dummy_var = '?') THEN
904: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
905: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute TEMPLATE_ID is invalid');
906: END IF;
907: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_ID');
908: l_return_status := G_RET_STS_ERROR;
909: END IF;
909: END IF;
910: END IF;
911: */
912:
913: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute PARENT_TEMPLATE_ID ');
915: END IF;
916: IF p_parent_template_id IS NOT NULL THEN
917: l_dummy_var := '?';
910: END IF;
911: */
912:
913: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
914: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute PARENT_TEMPLATE_ID ');
915: END IF;
916: IF p_parent_template_id IS NOT NULL THEN
917: l_dummy_var := '?';
918: OPEN l_parent_template_id_csr;
918: OPEN l_parent_template_id_csr;
919: FETCH l_parent_template_id_csr INTO l_dummy_var;
920: CLOSE l_parent_template_id_csr;
921: IF (l_dummy_var = '?') THEN
922: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
923: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute PARENT_TEMPLATE_ID is invalid');
924: END IF;
925: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PARENT_TEMPLATE_ID');
926: l_return_status := G_RET_STS_ERROR;
919: FETCH l_parent_template_id_csr INTO l_dummy_var;
920: CLOSE l_parent_template_id_csr;
921: IF (l_dummy_var = '?') THEN
922: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
923: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute PARENT_TEMPLATE_ID is invalid');
924: END IF;
925: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PARENT_TEMPLATE_ID');
926: l_return_status := G_RET_STS_ERROR;
927: END IF;
926: l_return_status := G_RET_STS_ERROR;
927: END IF;
928: END IF;
929:
930: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute PRINT_TEMPLATE_ID ');
932: END IF;
933:
934: IF p_print_template_id IS NOT NULL THEN
927: END IF;
928: END IF;
929:
930: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute PRINT_TEMPLATE_ID ');
932: END IF;
933:
934: IF p_print_template_id IS NOT NULL THEN
935: l_dummy_var := '?';
957: END IF;
958: CLOSE l_xdo_view_csr;
959:
960: IF (l_dummy_var = '?') THEN
961: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
962: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute PRINT_TEMPLATE_ID is invalid');
963: END IF;
964: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRINT_TEMPLATE_ID');
965: l_return_status := G_RET_STS_ERROR;
958: CLOSE l_xdo_view_csr;
959:
960: IF (l_dummy_var = '?') THEN
961: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
962: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute PRINT_TEMPLATE_ID is invalid');
963: END IF;
964: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'PRINT_TEMPLATE_ID');
965: l_return_status := G_RET_STS_ERROR;
966: END IF;
994: END IF;
995:
996:
997: IF l_layout_start_date > l_eff_date OR nvl(l_layout_end_date,l_eff_date) < l_eff_date THEN
998: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
999: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - LAYOUT_TEMPLATE is invalid or end_dated');
1000: END IF;
1001: Okc_Api.Set_Message(G_APP_NAME,'OKC_LAYOUT_TMPL_INVALID');
1002: l_return_status := G_RET_STS_ERROR;
995:
996:
997: IF l_layout_start_date > l_eff_date OR nvl(l_layout_end_date,l_eff_date) < l_eff_date THEN
998: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
999: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - LAYOUT_TEMPLATE is invalid or end_dated');
1000: END IF;
1001: Okc_Api.Set_Message(G_APP_NAME,'OKC_LAYOUT_TMPL_INVALID');
1002: l_return_status := G_RET_STS_ERROR;
1003: END IF;
1003: END IF;
1004: END IF;
1005:
1006: /****************Removed as COntracts Expert will validate and update template
1007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_MODEL_ID ');
1009: END IF;
1010: IF p_template_model_id IS NOT NULL THEN
1011: l_dummy_var := '?';
1004: END IF;
1005:
1006: /****************Removed as COntracts Expert will validate and update template
1007: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1008: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_MODEL_ID ');
1009: END IF;
1010: IF p_template_model_id IS NOT NULL THEN
1011: l_dummy_var := '?';
1012: OPEN l_template_model_id_csr;
1012: OPEN l_template_model_id_csr;
1013: FETCH l_template_model_id_csr INTO l_dummy_var;
1014: CLOSE l_template_model_id_csr;
1015: IF (l_dummy_var = '?') THEN
1016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute TEMPLATE_MODEL_ID is invalid');
1018: END IF;
1019: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_MODEL_ID');
1020: l_return_status := G_RET_STS_ERROR;
1013: FETCH l_template_model_id_csr INTO l_dummy_var;
1014: CLOSE l_template_model_id_csr;
1015: IF (l_dummy_var = '?') THEN
1016: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1017: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute TEMPLATE_MODEL_ID is invalid');
1018: END IF;
1019: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_MODEL_ID');
1020: l_return_status := G_RET_STS_ERROR;
1021: END IF;
1022: END IF;
1023: *****************/
1024:
1025:
1026: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1027: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute ORG_ID ');
1028: END IF;
1029: IF p_org_id IS NOT NULL THEN
1030: l_dummy_var := '?';
1023: *****************/
1024:
1025:
1026: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1027: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute ORG_ID ');
1028: END IF;
1029: IF p_org_id IS NOT NULL THEN
1030: l_dummy_var := '?';
1031: OPEN l_org_id_csr;
1031: OPEN l_org_id_csr;
1032: FETCH l_org_id_csr INTO l_dummy_var;
1033: CLOSE l_org_id_csr;
1034: IF (l_dummy_var = '?') THEN
1035: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute ORG_ID is invalid');
1037: END IF;
1038: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ORG_ID');
1039: l_return_status := G_RET_STS_ERROR;
1032: FETCH l_org_id_csr INTO l_dummy_var;
1033: CLOSE l_org_id_csr;
1034: IF (l_dummy_var = '?') THEN
1035: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1036: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute ORG_ID is invalid');
1037: END IF;
1038: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'ORG_ID');
1039: l_return_status := G_RET_STS_ERROR;
1040: END IF;
1043:
1044: END IF;
1045:
1046:
1047: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1048: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving Validate_Attributes ');
1049: END IF;
1050:
1051: RETURN l_return_status;
1044: END IF;
1045:
1046:
1047: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1048: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving Validate_Attributes ');
1049: END IF;
1050:
1051: RETURN l_return_status;
1052:
1051: RETURN l_return_status;
1052:
1053: EXCEPTION
1054: WHEN OTHERS THEN
1055: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm);
1057: END IF;
1058: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1059: p_msg_name => G_UNEXPECTED_ERROR,
1052:
1053: EXCEPTION
1054: WHEN OTHERS THEN
1055: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1056: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'2500: Leaving Validate_Attributes because of EXCEPTION: '||sqlerrm);
1057: END IF;
1058: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1059: p_msg_name => G_UNEXPECTED_ERROR,
1060: p_token1 => G_SQLCODE_TOKEN,
1206:
1207:
1208: BEGIN
1209:
1210: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1211: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Entered Validate_Record');
1212: END IF;
1213:
1214: --- Validate all non-missing attributes (Item Level Validation)
1207:
1208: BEGIN
1209:
1210: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1211: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Entered Validate_Record');
1212: END IF;
1213:
1214: --- Validate all non-missing attributes (Item Level Validation)
1215: l_return_status := Validate_Attributes(
1257: p_translated_from_tmpl_id => p_translated_from_tmpl_id ,
1258: p_language => p_language
1259: );
1260: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1261: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1262: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm);
1263: END IF;
1264: RETURN G_RET_STS_UNEXP_ERROR;
1265: END IF;
1258: p_language => p_language
1259: );
1260: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
1261: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1262: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm);
1263: END IF;
1264: RETURN G_RET_STS_UNEXP_ERROR;
1265: END IF;
1266:
1265: END IF;
1266:
1267: --- Record Level Validation
1268: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
1269: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Entered Record Level Validations');
1271: END IF;
1272:
1273: IF nvl(TRUNC(p_end_date),TRUNC(p_start_date)) < TRUNC(p_start_date) THEN
1266:
1267: --- Record Level Validation
1268: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
1269: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Entered Record Level Validations');
1271: END IF;
1272:
1273: IF nvl(TRUNC(p_end_date),TRUNC(p_start_date)) < TRUNC(p_start_date) THEN
1274: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1270: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Entered Record Level Validations');
1271: END IF;
1272:
1273: IF nvl(TRUNC(p_end_date),TRUNC(p_start_date)) < TRUNC(p_start_date) THEN
1274: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2810: Start Date > End Date');
1276: END IF;
1277: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_SDATE_GREATER');
1278: l_return_status := G_RET_STS_ERROR;
1271: END IF;
1272:
1273: IF nvl(TRUNC(p_end_date),TRUNC(p_start_date)) < TRUNC(p_start_date) THEN
1274: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1275: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2810: Start Date > End Date');
1276: END IF;
1277: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_SDATE_GREATER');
1278: l_return_status := G_RET_STS_ERROR;
1279: END IF;
1278: l_return_status := G_RET_STS_ERROR;
1279: END IF;
1280:
1281: IF (nvl(p_working_copy_flag,'N') = 'Y' AND p_parent_template_id IS NULL) THEN
1282: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2820: Working Copy Flag is Y and Parent_Template_Id is Null');
1284: END IF;
1285: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PARENT_TEMPALTE_ID');
1286: l_return_status := G_RET_STS_ERROR;
1279: END IF;
1280:
1281: IF (nvl(p_working_copy_flag,'N') = 'Y' AND p_parent_template_id IS NULL) THEN
1282: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1283: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2820: Working Copy Flag is Y and Parent_Template_Id is Null');
1284: END IF;
1285: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PARENT_TEMPALTE_ID');
1286: l_return_status := G_RET_STS_ERROR;
1287: END IF;
1285: Okc_Api.Set_Message(G_APP_NAME, G_REQUIRED_VALUE, G_COL_NAME_TOKEN, 'PARENT_TEMPALTE_ID');
1286: l_return_status := G_RET_STS_ERROR;
1287: END IF;
1288:
1289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2830: - Validate Template Name Uniqueness ');
1291: END IF;
1292: l_dummy_var := '?';
1293: OPEN l_tmpl_name_csr;
1286: l_return_status := G_RET_STS_ERROR;
1287: END IF;
1288:
1289: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1290: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2830: - Validate Template Name Uniqueness ');
1291: END IF;
1292: l_dummy_var := '?';
1293: OPEN l_tmpl_name_csr;
1294: FETCH l_tmpl_name_csr INTO l_dummy_var;
1293: OPEN l_tmpl_name_csr;
1294: FETCH l_tmpl_name_csr INTO l_dummy_var;
1295: CLOSE l_tmpl_name_csr;
1296: IF (l_dummy_var = '!') THEN
1297: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2840: - Template Name Not Unique in the Org');
1299: END IF;
1300: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_DUP_NAME');
1301: l_return_status := G_RET_STS_ERROR;
1294: FETCH l_tmpl_name_csr INTO l_dummy_var;
1295: CLOSE l_tmpl_name_csr;
1296: IF (l_dummy_var = '!') THEN
1297: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1298: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2840: - Template Name Not Unique in the Org');
1299: END IF;
1300: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_DUP_NAME');
1301: l_return_status := G_RET_STS_ERROR;
1302: END IF;
1301: l_return_status := G_RET_STS_ERROR;
1302: END IF;
1303: ----MLS for templates
1304:
1305: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2850: - Validate LANGUAGE ');
1307: END IF;
1308: IF (p_translated_from_tmpl_id IS NOT NULL) AND (p_language IS NULL) THEN
1309: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1302: END IF;
1303: ----MLS for templates
1304:
1305: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2850: - Validate LANGUAGE ');
1307: END IF;
1308: IF (p_translated_from_tmpl_id IS NOT NULL) AND (p_language IS NULL) THEN
1309: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1310: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2860: - Error:Template Language is null when tft is specified');
1305: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2850: - Validate LANGUAGE ');
1307: END IF;
1308: IF (p_translated_from_tmpl_id IS NOT NULL) AND (p_language IS NULL) THEN
1309: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1310: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2860: - Error:Template Language is null when tft is specified');
1311: END IF;
1312: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_LANG_REQUIRED');
1313: l_return_status := G_RET_STS_ERROR;
1306: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2850: - Validate LANGUAGE ');
1307: END IF;
1308: IF (p_translated_from_tmpl_id IS NOT NULL) AND (p_language IS NULL) THEN
1309: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1310: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2860: - Error:Template Language is null when tft is specified');
1311: END IF;
1312: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_LANG_REQUIRED');
1313: l_return_status := G_RET_STS_ERROR;
1314: END IF;
1313: l_return_status := G_RET_STS_ERROR;
1314: END IF;
1315:
1316:
1317: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1318: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2865: - Validate primary template ');
1319: END IF;
1320: IF p_translated_from_tmpl_id IS NOT NULL AND p_language IS NOT NULL THEN
1321: l_dummy_var := '?';
1314: END IF;
1315:
1316:
1317: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1318: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2865: - Validate primary template ');
1319: END IF;
1320: IF p_translated_from_tmpl_id IS NOT NULL AND p_language IS NOT NULL THEN
1321: l_dummy_var := '?';
1322: OPEN l_primary_tmpl_csr;
1322: OPEN l_primary_tmpl_csr;
1323: FETCH l_primary_tmpl_csr INTO l_dummy_var;
1324: CLOSE l_primary_tmpl_csr;
1325: IF (l_dummy_var = '!') THEN
1326: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1327: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2868: - Error:User adding tft for a template which alreay has children pointing to it');
1328: END IF;
1329: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_ALREADY_TRANSLATED');
1330: l_return_status := G_RET_STS_ERROR;
1323: FETCH l_primary_tmpl_csr INTO l_dummy_var;
1324: CLOSE l_primary_tmpl_csr;
1325: IF (l_dummy_var = '!') THEN
1326: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1327: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2868: - Error:User adding tft for a template which alreay has children pointing to it');
1328: END IF;
1329: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_ALREADY_TRANSLATED');
1330: l_return_status := G_RET_STS_ERROR;
1331: END IF;
1331: END IF;
1332: END IF;
1333:
1334:
1335: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1336: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2870: - Validate language on primary template ');
1337: END IF;
1338: IF p_language IS NULL AND p_translated_from_tmpl_id IS NULL THEN
1339: l_dummy_var := '?';
1332: END IF;
1333:
1334:
1335: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1336: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2870: - Validate language on primary template ');
1337: END IF;
1338: IF p_language IS NULL AND p_translated_from_tmpl_id IS NULL THEN
1339: l_dummy_var := '?';
1340: OPEN l_primary_tmpl_csr;
1340: OPEN l_primary_tmpl_csr;
1341: FETCH l_primary_tmpl_csr INTO l_dummy_var;
1342: CLOSE l_primary_tmpl_csr;
1343: IF (l_dummy_var = '!') THEN
1344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2880: - Error:Template Language removed in a priamry template');
1346: END IF;
1347: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_ALREADY_REFERENCED', 'TMPL1', p_template_name);
1348: l_return_status := G_RET_STS_ERROR;
1341: FETCH l_primary_tmpl_csr INTO l_dummy_var;
1342: CLOSE l_primary_tmpl_csr;
1343: IF (l_dummy_var = '!') THEN
1344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2880: - Error:Template Language removed in a priamry template');
1346: END IF;
1347: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_ALREADY_REFERENCED', 'TMPL1', p_template_name);
1348: l_return_status := G_RET_STS_ERROR;
1349: END IF;
1349: END IF;
1350: END IF;
1351:
1352:
1353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2890: - Validate language in Template group ');
1355: END IF;
1356: l_dummy_var := '?';
1357: l_template_name := null;
1350: END IF;
1351:
1352:
1353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2890: - Validate language in Template group ');
1355: END IF;
1356: l_dummy_var := '?';
1357: l_template_name := null;
1358: IF p_language IS NOT NULL AND l_return_status <> G_RET_STS_ERROR THEN
1373: END IF;
1374:
1375:
1376: IF (l_dummy_var = '!') THEN
1377: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1378: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: - Error:Template with specified language already exists in the group');
1379: END IF;
1380:
1381: /* Fix for te bug# 4646417. Removed TMPL2 parameter from the set_message call */
1374:
1375:
1376: IF (l_dummy_var = '!') THEN
1377: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1378: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: - Error:Template with specified language already exists in the group');
1379: END IF;
1380:
1381: /* Fix for te bug# 4646417. Removed TMPL2 parameter from the set_message call */
1382: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_LANG_EXISTS','TMPL1' , p_template_name);
1393: -- ?? manual coding for Record Level Validations if required ??
1394: /*+++++++++++++End of hand code +++++++++++++++++++*/
1395: END IF;
1396:
1397: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2995: Leaving Validate_Record : '||sqlerrm);
1399: END IF;
1400: RETURN l_return_status ;
1401:
1394: /*+++++++++++++End of hand code +++++++++++++++++++*/
1395: END IF;
1396:
1397: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1398: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2995: Leaving Validate_Record : '||sqlerrm);
1399: END IF;
1400: RETURN l_return_status ;
1401:
1402: EXCEPTION
1401:
1402: EXCEPTION
1403: WHEN OTHERS THEN
1404:
1405: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1406: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm);
1407: END IF;
1408:
1409: IF l_tmpl_name_csr%ISOPEN THEN
1402: EXCEPTION
1403: WHEN OTHERS THEN
1404:
1405: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1406: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm);
1407: END IF;
1408:
1409: IF l_tmpl_name_csr%ISOPEN THEN
1410: CLOSE l_tmpl_name_csr;
1525: l_translated_from_tmpl_id OKC_TERMS_TEMPLATES_ALL.TRANSLATED_FROM_TMPL_ID%TYPE;
1526: l_language OKC_TERMS_TEMPLATES_ALL.LANGUAGE%TYPE;
1527: BEGIN
1528:
1529: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered validate_row');
1531: END IF;
1532:
1533: -- Setting attributes
1526: l_language OKC_TERMS_TEMPLATES_ALL.LANGUAGE%TYPE;
1527: BEGIN
1528:
1529: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1530: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered validate_row');
1531: END IF;
1532:
1533: -- Setting attributes
1534: x_return_status := Set_Attributes(
1670: p_translated_from_tmpl_id => l_translated_from_tmpl_id ,
1671: p_language => l_language
1672: );
1673:
1674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1675: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Leaving validate_row');
1676: END IF;
1677:
1678: EXCEPTION
1671: p_language => l_language
1672: );
1673:
1674: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1675: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Leaving validate_row');
1676: END IF;
1677:
1678: EXCEPTION
1679: WHEN FND_API.G_EXC_ERROR THEN
1676: END IF;
1677:
1678: EXCEPTION
1679: WHEN FND_API.G_EXC_ERROR THEN
1680: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception');
1682: END IF;
1683: x_return_status := G_RET_STS_ERROR;
1684:
1677:
1678: EXCEPTION
1679: WHEN FND_API.G_EXC_ERROR THEN
1680: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1681: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception');
1682: END IF;
1683: x_return_status := G_RET_STS_ERROR;
1684:
1685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1682: END IF;
1683: x_return_status := G_RET_STS_ERROR;
1684:
1685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1686: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1687: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1688: END IF;
1689: x_return_status := G_RET_STS_UNEXP_ERROR;
1690:
1683: x_return_status := G_RET_STS_ERROR;
1684:
1685: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1686: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1687: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1688: END IF;
1689: x_return_status := G_RET_STS_UNEXP_ERROR;
1690:
1691: WHEN OTHERS THEN
1688: END IF;
1689: x_return_status := G_RET_STS_UNEXP_ERROR;
1690:
1691: WHEN OTHERS THEN
1692: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1693: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm);
1694: END IF;
1695: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1696: p_msg_name => G_UNEXPECTED_ERROR,
1689: x_return_status := G_RET_STS_UNEXP_ERROR;
1690:
1691: WHEN OTHERS THEN
1692: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1693: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm);
1694: END IF;
1695: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1696: p_msg_name => G_UNEXPECTED_ERROR,
1697: p_token1 => G_SQLCODE_TOKEN,
1762: ) RETURN VARCHAR2 IS
1763: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1764: BEGIN
1765:
1766: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1767: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
1768: END IF;
1769:
1770: INSERT INTO OKC_TERMS_TEMPLATES_ALL(
1763: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1764: BEGIN
1765:
1766: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1767: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
1768: END IF;
1769:
1770: INSERT INTO OKC_TERMS_TEMPLATES_ALL(
1771: TEMPLATE_NAME,
1867: --MLS for templates
1868: p_translated_from_tmpl_id,
1869: p_language );
1870:
1871: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1872: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Leaving Insert_Row');
1873: END IF;
1874:
1875: RETURN( G_RET_STS_SUCCESS );
1868: p_translated_from_tmpl_id,
1869: p_language );
1870:
1871: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1872: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Leaving Insert_Row');
1873: END IF;
1874:
1875: RETURN( G_RET_STS_SUCCESS );
1876:
1876:
1877: EXCEPTION
1878: WHEN OTHERS THEN
1879:
1880: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1881: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3800: Leaving Insert_Row:OTHERS Exception');
1882: END IF;
1883:
1884: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1877: EXCEPTION
1878: WHEN OTHERS THEN
1879:
1880: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1881: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3800: Leaving Insert_Row:OTHERS Exception');
1882: END IF;
1883:
1884: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1885: p_msg_name => G_UNEXPECTED_ERROR,
1955: BEGIN
1956:
1957: x_return_status := G_RET_STS_SUCCESS;
1958:
1959: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1960: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Entered Insert_Row');
1961: END IF;
1962:
1963: --- Setting item attributes
1956:
1957: x_return_status := G_RET_STS_SUCCESS;
1958:
1959: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1960: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Entered Insert_Row');
1961: END IF;
1962:
1963: --- Setting item attributes
1964: -- Set primary key value
2040:
2041: --------------------------------------------
2042: -- Call the internal Insert_Row for each child record
2043: --------------------------------------------
2044: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2045: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Call the internal Insert_Row for Base Table');
2046: END IF;
2047:
2048: x_return_status := Insert_Row(
2041: --------------------------------------------
2042: -- Call the internal Insert_Row for each child record
2043: --------------------------------------------
2044: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2045: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Call the internal Insert_Row for Base Table');
2046: END IF;
2047:
2048: x_return_status := Insert_Row(
2049: p_template_id => x_template_id,
2102: END IF;
2103:
2104:
2105:
2106: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Insert_Row');
2108: END IF;
2109:
2110: EXCEPTION
2103:
2104:
2105:
2106: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2107: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Insert_Row');
2108: END IF;
2109:
2110: EXCEPTION
2111: WHEN FND_API.G_EXC_ERROR THEN
2108: END IF;
2109:
2110: EXCEPTION
2111: WHEN FND_API.G_EXC_ERROR THEN
2112: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2113: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception');
2114: END IF;
2115: x_return_status := G_RET_STS_ERROR;
2116:
2109:
2110: EXCEPTION
2111: WHEN FND_API.G_EXC_ERROR THEN
2112: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2113: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception');
2114: END IF;
2115: x_return_status := G_RET_STS_ERROR;
2116:
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2114: END IF;
2115: x_return_status := G_RET_STS_ERROR;
2116:
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2119: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2120: END IF;
2121: x_return_status := G_RET_STS_UNEXP_ERROR;
2122:
2115: x_return_status := G_RET_STS_ERROR;
2116:
2117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2118: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2119: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2120: END IF;
2121: x_return_status := G_RET_STS_UNEXP_ERROR;
2122:
2123: WHEN OTHERS THEN
2120: END IF;
2121: x_return_status := G_RET_STS_UNEXP_ERROR;
2122:
2123: WHEN OTHERS THEN
2124: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2125: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
2126: END IF;
2127: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2128: p_msg_name => G_UNEXPECTED_ERROR,
2121: x_return_status := G_RET_STS_UNEXP_ERROR;
2122:
2123: WHEN OTHERS THEN
2124: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2125: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
2126: END IF;
2127: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2128: p_msg_name => G_UNEXPECTED_ERROR,
2129: p_token1 => G_SQLCODE_TOKEN,
2166:
2167: l_row_notfound BOOLEAN := FALSE;
2168: BEGIN
2169:
2170: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2171: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4900: Entered Lock_Row');
2172: END IF;
2173:
2174:
2167: l_row_notfound BOOLEAN := FALSE;
2168: BEGIN
2169:
2170: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2171: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4900: Entered Lock_Row');
2172: END IF;
2173:
2174:
2175: BEGIN
2181:
2182: EXCEPTION
2183: WHEN E_Resource_Busy THEN
2184:
2185: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5000: Leaving Lock_Row:E_Resource_Busy Exception');
2187: END IF;
2188:
2189: IF (lock_csr%ISOPEN) THEN
2182: EXCEPTION
2183: WHEN E_Resource_Busy THEN
2184:
2185: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2186: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5000: Leaving Lock_Row:E_Resource_Busy Exception');
2187: END IF;
2188:
2189: IF (lock_csr%ISOPEN) THEN
2190: CLOSE lock_csr;
2213: ELSE
2214: l_return_status := G_RET_STS_SUCCESS;
2215: END IF;
2216:
2217: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: Leaving Lock_Row');
2219: END IF;
2220:
2221: RETURN( l_return_status );
2214: l_return_status := G_RET_STS_SUCCESS;
2215: END IF;
2216:
2217: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2218: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: Leaving Lock_Row');
2219: END IF;
2220:
2221: RETURN( l_return_status );
2222:
2229: IF (lchk_csr%ISOPEN) THEN
2230: CLOSE lchk_csr;
2231: END IF;
2232:
2233: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2234: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
2235: END IF;
2236:
2237: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2230: CLOSE lchk_csr;
2231: END IF;
2232:
2233: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2234: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
2235: END IF;
2236:
2237: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2238: p_msg_name => G_UNEXPECTED_ERROR,
2255: ) IS
2256: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
2257: BEGIN
2258:
2259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Lock_Row');
2261: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Locking Row for Base Table');
2262: END IF;
2263:
2256: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
2257: BEGIN
2258:
2259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Lock_Row');
2261: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Locking Row for Base Table');
2262: END IF;
2263:
2264: --------------------------------------------
2257: BEGIN
2258:
2259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Lock_Row');
2261: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Locking Row for Base Table');
2262: END IF;
2263:
2264: --------------------------------------------
2265: -- Call the LOCK_ROW for each _B child record
2275: END IF;
2276:
2277:
2278:
2279: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6000: Leaving Lock_Row');
2281: END IF;
2282:
2283: EXCEPTION
2276:
2277:
2278:
2279: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2280: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6000: Leaving Lock_Row');
2281: END IF;
2282:
2283: EXCEPTION
2284: WHEN FND_API.G_EXC_ERROR THEN
2281: END IF;
2282:
2283: EXCEPTION
2284: WHEN FND_API.G_EXC_ERROR THEN
2285: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2286: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception');
2287: END IF;
2288: x_return_status := G_RET_STS_ERROR;
2289:
2282:
2283: EXCEPTION
2284: WHEN FND_API.G_EXC_ERROR THEN
2285: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2286: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception');
2287: END IF;
2288: x_return_status := G_RET_STS_ERROR;
2289:
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2287: END IF;
2288: x_return_status := G_RET_STS_ERROR;
2289:
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2292: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2293: END IF;
2294: x_return_status := G_RET_STS_UNEXP_ERROR;
2295:
2288: x_return_status := G_RET_STS_ERROR;
2289:
2290: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2291: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2292: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2293: END IF;
2294: x_return_status := G_RET_STS_UNEXP_ERROR;
2295:
2296: WHEN OTHERS THEN
2293: END IF;
2294: x_return_status := G_RET_STS_UNEXP_ERROR;
2295:
2296: WHEN OTHERS THEN
2297: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
2299: END IF;
2300: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2301: p_msg_name => G_UNEXPECTED_ERROR,
2294: x_return_status := G_RET_STS_UNEXP_ERROR;
2295:
2296: WHEN OTHERS THEN
2297: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2298: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
2299: END IF;
2300: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2301: p_msg_name => G_UNEXPECTED_ERROR,
2302: p_token1 => G_SQLCODE_TOKEN,
2365: ) RETURN VARCHAR2 IS
2366: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
2367: BEGIN
2368:
2369: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2370: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
2371: END IF;
2372:
2373: UPDATE OKC_TERMS_TEMPLATES_ALL
2366: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
2367: BEGIN
2368:
2369: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2370: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
2371: END IF;
2372:
2373: UPDATE OKC_TERMS_TEMPLATES_ALL
2374: SET TEMPLATE_NAME = p_template_name,
2418: TRANSLATED_FROM_TMPL_ID = p_translated_from_tmpl_id,
2419: LANGUAGE = p_language
2420: WHERE TEMPLATE_ID = p_template_id;
2421:
2422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Leaving Update_Row');
2424: END IF;
2425:
2426: RETURN G_RET_STS_SUCCESS ;
2419: LANGUAGE = p_language
2420: WHERE TEMPLATE_ID = p_template_id;
2421:
2422: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2423: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Leaving Update_Row');
2424: END IF;
2425:
2426: RETURN G_RET_STS_SUCCESS ;
2427:
2427:
2428: EXCEPTION
2429: WHEN OTHERS THEN
2430:
2431: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2432: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
2433: END IF;
2434:
2435: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2428: EXCEPTION
2429: WHEN OTHERS THEN
2430:
2431: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2432: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
2433: END IF;
2434:
2435: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2436: p_msg_name => G_UNEXPECTED_ERROR,
2556: l_msg_count NUMBER;
2557:
2558: BEGIN
2559:
2560: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2561: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
2562: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Locking _B row');
2563: END IF;
2564:
2557:
2558: BEGIN
2559:
2560: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2561: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
2562: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Locking _B row');
2563: END IF;
2564:
2565: x_return_status := Lock_row(
2558: BEGIN
2559:
2560: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2561: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
2562: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Locking _B row');
2563: END IF;
2564:
2565: x_return_status := Lock_row(
2566: p_template_id => p_template_id,
2572: RAISE FND_API.G_EXC_ERROR;
2573: END IF;
2574:
2575:
2576: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2577: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Setting attributes');
2578: END IF;
2579:
2580: x_return_status := Set_Attributes(
2573: END IF;
2574:
2575:
2576: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2577: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Setting attributes');
2578: END IF;
2579:
2580: x_return_status := Set_Attributes(
2581: p_template_name => p_template_name,
2668: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
2669: RAISE FND_API.G_EXC_ERROR;
2670: END IF;
2671:
2672: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2673: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7400: Record Validation');
2674: END IF;
2675:
2676: --- Validate all non-missing attributes
2669: RAISE FND_API.G_EXC_ERROR;
2670: END IF;
2671:
2672: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2673: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7400: Record Validation');
2674: END IF;
2675:
2676: --- Validate all non-missing attributes
2677: x_return_status := Validate_Record(
2725: RAISE FND_API.G_EXC_ERROR;
2726: END IF;
2727:
2728: --Bug 4106468
2729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7450: Deleting expert Rule association');
2731: END IF;
2732:
2733: OPEN c_template_xprt_enabled_csr;
2726: END IF;
2727:
2728: --Bug 4106468
2729: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2730: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7450: Deleting expert Rule association');
2731: END IF;
2732:
2733: OPEN c_template_xprt_enabled_csr;
2734: FETCH c_template_xprt_enabled_csr INTO l_xprt_enabled_flag;
2746: x_msg_data => l_msg_data,
2747: x_msg_count => l_msg_count
2748: ) ;
2749:
2750: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2751: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7450: Deleting expert Rule association return_status:'||x_return_status);
2752: END IF;
2753:
2754: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2747: x_msg_count => l_msg_count
2748: ) ;
2749:
2750: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2751: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7450: Deleting expert Rule association return_status:'||x_return_status);
2752: END IF;
2753:
2754: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
2755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2758: END IF;
2759: END IF;
2760:
2761:
2762: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2763: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Filling WHO columns');
2764: END IF;
2765:
2766: -- Filling who columns
2759: END IF;
2760:
2761:
2762: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2763: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Filling WHO columns');
2764: END IF;
2765:
2766: -- Filling who columns
2767: l_last_update_date := SYSDATE;
2775:
2776: --------------------------------------------
2777: -- Call the Update_Row for each child record
2778: --------------------------------------------
2779: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2780: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: Updating Row');
2781: END IF;
2782:
2783: x_return_status := Update_Row(
2776: --------------------------------------------
2777: -- Call the Update_Row for each child record
2778: --------------------------------------------
2779: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2780: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: Updating Row');
2781: END IF;
2782:
2783: x_return_status := Update_Row(
2784: p_template_id => p_template_id,
2836: RAISE FND_API.G_EXC_ERROR;
2837: END IF;
2838:
2839:
2840: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2841: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7800: Leaving Update_Row');
2842: END IF;
2843:
2844: EXCEPTION
2837: END IF;
2838:
2839:
2840: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2841: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7800: Leaving Update_Row');
2842: END IF;
2843:
2844: EXCEPTION
2845: WHEN FND_API.G_EXC_ERROR THEN
2842: END IF;
2843:
2844: EXCEPTION
2845: WHEN FND_API.G_EXC_ERROR THEN
2846: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2847: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception');
2848: END IF;
2849: x_return_status := G_RET_STS_ERROR;
2850:
2843:
2844: EXCEPTION
2845: WHEN FND_API.G_EXC_ERROR THEN
2846: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2847: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception');
2848: END IF;
2849: x_return_status := G_RET_STS_ERROR;
2850:
2851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2848: END IF;
2849: x_return_status := G_RET_STS_ERROR;
2850:
2851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2852: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2853: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2854: END IF;
2855: x_return_status := G_RET_STS_UNEXP_ERROR;
2856:
2849: x_return_status := G_RET_STS_ERROR;
2850:
2851: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2852: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2853: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
2854: END IF;
2855: x_return_status := G_RET_STS_UNEXP_ERROR;
2856:
2857: WHEN OTHERS THEN
2854: END IF;
2855: x_return_status := G_RET_STS_UNEXP_ERROR;
2856:
2857: WHEN OTHERS THEN
2858: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2859: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
2860: END IF;
2861: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2862: p_msg_name => G_UNEXPECTED_ERROR,
2855: x_return_status := G_RET_STS_UNEXP_ERROR;
2856:
2857: WHEN OTHERS THEN
2858: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2859: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
2860: END IF;
2861: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2862: p_msg_name => G_UNEXPECTED_ERROR,
2863: p_token1 => G_SQLCODE_TOKEN,
2879: ) RETURN VARCHAR2 IS
2880: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
2881: BEGIN
2882:
2883: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2884: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
2885: END IF;
2886:
2887: DELETE FROM OKC_TERMS_TEMPLATES_ALL WHERE TEMPLATE_ID = p_TEMPLATE_ID;
2880: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
2881: BEGIN
2882:
2883: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2884: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
2885: END IF;
2886:
2887: DELETE FROM OKC_TERMS_TEMPLATES_ALL WHERE TEMPLATE_ID = p_TEMPLATE_ID;
2888:
2885: END IF;
2886:
2887: DELETE FROM OKC_TERMS_TEMPLATES_ALL WHERE TEMPLATE_ID = p_TEMPLATE_ID;
2888:
2889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
2891: END IF;
2892:
2893: RETURN( G_RET_STS_SUCCESS );
2886:
2887: DELETE FROM OKC_TERMS_TEMPLATES_ALL WHERE TEMPLATE_ID = p_TEMPLATE_ID;
2888:
2889: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2890: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
2891: END IF;
2892:
2893: RETURN( G_RET_STS_SUCCESS );
2894:
2894:
2895: EXCEPTION
2896: WHEN OTHERS THEN
2897:
2898: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2899: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
2900: END IF;
2901:
2902: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2895: EXCEPTION
2896: WHEN OTHERS THEN
2897:
2898: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2899: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
2900: END IF;
2901:
2902: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2903: p_msg_name => G_UNEXPECTED_ERROR,
2945: WHERE translated.translated_from_tmpl_id = p_template_id
2946: AND parent.template_id = translated.translated_from_tmpl_id;
2947: BEGIN
2948:
2949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
2951: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8900: Locking _B row');
2952: END IF;
2953:
2946: AND parent.template_id = translated.translated_from_tmpl_id;
2947: BEGIN
2948:
2949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
2951: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8900: Locking _B row');
2952: END IF;
2953:
2954: --------------------------------------------
2947: BEGIN
2948:
2949: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2950: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
2951: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8900: Locking _B row');
2952: END IF;
2953:
2954: --------------------------------------------
2955: -- check if template has any translated dependents
2958: FETCH c_chk_template_trans INTO l_dummy_var,l_template_name;
2959: CLOSE c_chk_template_trans;
2960:
2961: IF (l_dummy_var = '!' AND p_delete_parent_yn = 'N') THEN
2962: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2963: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8910: - Error:Template has translated references and cannot be deleted');
2964: END IF;
2965: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_REF_DEL','TMPL1' , l_template_name);
2966: x_return_status := G_RET_STS_ERROR;
2959: CLOSE c_chk_template_trans;
2960:
2961: IF (l_dummy_var = '!' AND p_delete_parent_yn = 'N') THEN
2962: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2963: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8910: - Error:Template has translated references and cannot be deleted');
2964: END IF;
2965: Okc_Api.Set_Message(G_APP_NAME, 'OKC_TMPL_REF_DEL','TMPL1' , l_template_name);
2966: x_return_status := G_RET_STS_ERROR;
2967: RETURN ;
2995: RAISE FND_API.G_EXC_ERROR;
2996: END IF;
2997:
2998:
2999: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9100: Removing _B row');
3001: END IF;
3002: x_return_status := Delete_Row( p_template_id => p_template_id );
3003:
2996: END IF;
2997:
2998:
2999: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3000: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9100: Removing _B row');
3001: END IF;
3002: x_return_status := Delete_Row( p_template_id => p_template_id );
3003:
3004: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
3041:
3042: --------------------------------------------
3043:
3044:
3045: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3046: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: Leaving Delete_Row');
3047: END IF;
3048:
3049: EXCEPTION
3042: --------------------------------------------
3043:
3044:
3045: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3046: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: Leaving Delete_Row');
3047: END IF;
3048:
3049: EXCEPTION
3050: WHEN FND_API.G_EXC_ERROR THEN
3047: END IF;
3048:
3049: EXCEPTION
3050: WHEN FND_API.G_EXC_ERROR THEN
3051: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3052: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception');
3053: END IF;
3054: x_return_status := G_RET_STS_ERROR;
3055:
3048:
3049: EXCEPTION
3050: WHEN FND_API.G_EXC_ERROR THEN
3051: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3052: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception');
3053: END IF;
3054: x_return_status := G_RET_STS_ERROR;
3055:
3056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3053: END IF;
3054: x_return_status := G_RET_STS_ERROR;
3055:
3056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3057: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3059: END IF;
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3061:
3054: x_return_status := G_RET_STS_ERROR;
3055:
3056: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3057: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3058: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
3059: END IF;
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3061:
3062: WHEN OTHERS THEN
3059: END IF;
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3061:
3062: WHEN OTHERS THEN
3063: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3064: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
3065: END IF;
3066: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3067: p_msg_name => G_UNEXPECTED_ERROR,
3060: x_return_status := G_RET_STS_UNEXP_ERROR;
3061:
3062: WHEN OTHERS THEN
3063: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3064: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
3065: END IF;
3066: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
3067: p_msg_name => G_UNEXPECTED_ERROR,
3068: p_token1 => G_SQLCODE_TOKEN,
3079: p_new_template_id IN NUMBER
3080: ) IS
3081: l_api_name CONSTANT VARCHAR2(30) := 'Update_Template_Id';
3082: BEGIN
3083: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3084: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9700: Entered Update_Template_Id');
3085: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9800: Locking Row');
3086: END IF;
3087: --------------------------------------------
3080: ) IS
3081: l_api_name CONSTANT VARCHAR2(30) := 'Update_Template_Id';
3082: BEGIN
3083: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3084: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9700: Entered Update_Template_Id');
3085: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9800: Locking Row');
3086: END IF;
3087: --------------------------------------------
3088: Lock_Row(
3081: l_api_name CONSTANT VARCHAR2(30) := 'Update_Template_Id';
3082: BEGIN
3083: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3084: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9700: Entered Update_Template_Id');
3085: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9800: Locking Row');
3086: END IF;
3087: --------------------------------------------
3088: Lock_Row(
3089: x_return_status => x_return_status,
3096: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
3097: RAISE FND_API.G_EXC_ERROR ;
3098: END IF;
3099: --------------------------------------------
3100: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9900: Updating Row');
3102: END IF;
3103: UPDATE OKC_TERMS_TEMPLATES_ALL
3104: SET TEMPLATE_ID = p_new_template_id,
3097: RAISE FND_API.G_EXC_ERROR ;
3098: END IF;
3099: --------------------------------------------
3100: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3101: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9900: Updating Row');
3102: END IF;
3103: UPDATE OKC_TERMS_TEMPLATES_ALL
3104: SET TEMPLATE_ID = p_new_template_id,
3105: WORKING_COPY_FLAG = 'N',
3110: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
3111: LAST_UPDATE_DATE = Sysdate
3112: WHERE template_id= p_old_template_id;
3113: --------------------------------------------
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9910: Leaving Update_Template_Id');
3116: END IF;
3117: EXCEPTION
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3111: LAST_UPDATE_DATE = Sysdate
3112: WHERE template_id= p_old_template_id;
3113: --------------------------------------------
3114: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9910: Leaving Update_Template_Id');
3116: END IF;
3117: EXCEPTION
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3115: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9910: Leaving Update_Template_Id');
3116: END IF;
3117: EXCEPTION
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9920: Leaving Update_Template_Id: G_EXCEPTION_UNEXPECTED_ERROR Exception');
3121:
3122: END IF;
3123: WHEN OTHERS THEN
3116: END IF;
3117: EXCEPTION
3118: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3119: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9920: Leaving Update_Template_Id: G_EXCEPTION_UNEXPECTED_ERROR Exception');
3121:
3122: END IF;
3123: WHEN OTHERS THEN
3124: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3120: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9920: Leaving Update_Template_Id: G_EXCEPTION_UNEXPECTED_ERROR Exception');
3121:
3122: END IF;
3123: WHEN OTHERS THEN
3124: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3125: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9930: Leaving Update_Template_Id because of EXCEPTION: '||sqlerrm);
3126: END IF;
3127:
3128: x_return_status := G_RET_STS_UNEXP_ERROR ;
3121:
3122: END IF;
3123: WHEN OTHERS THEN
3124: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3125: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9930: Leaving Update_Template_Id because of EXCEPTION: '||sqlerrm);
3126: END IF;
3127:
3128: x_return_status := G_RET_STS_UNEXP_ERROR ;
3129: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN