121: WHERE t.DOCUMENT_TYPE = cp_document_type and
122: t.DOCUMENT_ID = cp_document_id;
123: BEGIN
124:
125: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
126: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
127: '400: Entered get_rec');
128: END IF;
129:
122: t.DOCUMENT_ID = cp_document_id;
123: BEGIN
124:
125: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
126: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
127: '400: Entered get_rec');
128: END IF;
129:
130:
163: RAISE NO_DATA_FOUND;
164: END IF;
165: CLOSE OKC_TEMPLATE_USAGES_pk_csr;
166:
167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
169: '500: Leaving get_rec ');
170: END IF;
171:
164: END IF;
165: CLOSE OKC_TEMPLATE_USAGES_pk_csr;
166:
167: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
168: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
169: '500: Leaving get_rec ');
170: END IF;
171:
172: RETURN G_RET_STS_SUCCESS ;
173:
174: EXCEPTION
175: WHEN OTHERS THEN
176:
177: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
178: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
179: '600: Leaving get_rec because of EXCEPTION: '||sqlerrm);
180: END IF;
181:
174: EXCEPTION
175: WHEN OTHERS THEN
176:
177: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
178: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
179: '600: Leaving get_rec because of EXCEPTION: '||sqlerrm);
180: END IF;
181:
182: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
255: l_last_updated_by OKC_TEMPLATE_USAGES.LAST_UPDATED_BY%TYPE;
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
258: BEGIN
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
261: '700: Entered Set_Attributes ');
262: END IF;
263:
256: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
257: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
258: BEGIN
259: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
260: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
261: '700: Entered Set_Attributes ');
262: END IF;
263:
264: IF( p_document_type IS NOT NULL AND p_document_id IS NOT NULL ) THEN
439: x_valid_config_yn := Upper( x_valid_config_yn );
440:
441: END IF;
442:
443: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
444: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
445: '800: Leaving Set_Attributes ');
446: END IF;
447:
440:
441: END IF;
442:
443: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
444: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,
445: '800: Leaving Set_Attributes ');
446: END IF;
447:
448: RETURN G_RET_STS_SUCCESS ;
447:
448: RETURN G_RET_STS_SUCCESS ;
449: EXCEPTION
450: WHEN FND_API.G_EXC_ERROR THEN
451: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
452: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
453: '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception');
454: END IF;
455: RETURN G_RET_STS_ERROR;
448: RETURN G_RET_STS_SUCCESS ;
449: EXCEPTION
450: WHEN FND_API.G_EXC_ERROR THEN
451: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
452: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
453: '900: Leaving Set_Attributes:FND_API.G_EXC_ERROR Exception');
454: END IF;
455: RETURN G_RET_STS_ERROR;
456:
454: END IF;
455: RETURN G_RET_STS_ERROR;
456:
457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
458: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
459: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
460: '1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
461: END IF;
462: RETURN G_RET_STS_UNEXP_ERROR;
455: RETURN G_RET_STS_ERROR;
456:
457: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
458: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
459: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
460: '1000: Leaving Set_Attributes:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
461: END IF;
462: RETURN G_RET_STS_UNEXP_ERROR;
463:
461: END IF;
462: RETURN G_RET_STS_UNEXP_ERROR;
463:
464: WHEN OTHERS THEN
465: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
466: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
467: '1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm);
468: END IF;
469: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
462: RETURN G_RET_STS_UNEXP_ERROR;
463:
464: WHEN OTHERS THEN
465: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
466: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,
467: '1100: Leaving Set_Attributes because of EXCEPTION: '||sqlerrm);
468: END IF;
469: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
470: p_msg_name => G_UNEXPECTED_ERROR,
541:
542:
543: BEGIN
544:
545: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Entered Validate_Attributes');
547: END IF;
548:
549:
542:
543: BEGIN
544:
545: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
546: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Entered Validate_Attributes');
547: END IF;
548:
549:
550: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
547: END IF;
548:
549:
550: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
551: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: required values validation');
553: END IF;
554:
555: END IF;
548:
549:
550: IF p_validation_level > G_REQUIRED_VALUE_VALID_LEVEL THEN
551: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
552: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: required values validation');
553: END IF;
554:
555: END IF;
556:
554:
555: END IF;
556:
557: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
558: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: static values and range validation');
560: END IF;
561:
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
555: END IF;
556:
557: IF p_validation_level > G_VALID_VALUE_VALID_LEVEL THEN
558: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: static values and range validation');
560: END IF;
561:
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: - attribute VALID_CONFIG_YN ');
558: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: static values and range validation');
560: END IF;
561:
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: - attribute VALID_CONFIG_YN ');
564: END IF;
565: IF ( p_valid_config_yn NOT IN ('Y','N') AND p_valid_config_yn IS NOT NULL) THEN
566: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
559: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1600: static values and range validation');
560: END IF;
561:
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: - attribute VALID_CONFIG_YN ');
564: END IF;
565: IF ( p_valid_config_yn NOT IN ('Y','N') AND p_valid_config_yn IS NOT NULL) THEN
566: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
567: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: - attribute VALID_CONFIG_YN is invalid');
562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: - attribute VALID_CONFIG_YN ');
564: END IF;
565: IF ( p_valid_config_yn NOT IN ('Y','N') AND p_valid_config_yn IS NOT NULL) THEN
566: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
567: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: - attribute VALID_CONFIG_YN is invalid');
568: END IF;
569: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'VALID_CONFIG_YN');
570: l_return_status := G_RET_STS_ERROR;
563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1700: - attribute VALID_CONFIG_YN ');
564: END IF;
565: IF ( p_valid_config_yn NOT IN ('Y','N') AND p_valid_config_yn IS NOT NULL) THEN
566: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
567: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1800: - attribute VALID_CONFIG_YN is invalid');
568: END IF;
569: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'VALID_CONFIG_YN');
570: l_return_status := G_RET_STS_ERROR;
571: END IF;
571: END IF;
572:
573:
574: --added for 10+ word integration and deviations report
575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
576: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: - attribute AUTOGEN_DEVIATIONS_FLAG ');
577: END IF;
578: IF (p_autogen_deviations_flag NOT IN ('Y','N') AND p_autogen_deviations_flag IS NOT NULL )THEN
579: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
572:
573:
574: --added for 10+ word integration and deviations report
575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
576: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: - attribute AUTOGEN_DEVIATIONS_FLAG ');
577: END IF;
578: IF (p_autogen_deviations_flag NOT IN ('Y','N') AND p_autogen_deviations_flag IS NOT NULL )THEN
579: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: - attribute AUTOGEN_DEVIATIONS_FLAG is invalid');
575: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
576: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: - attribute AUTOGEN_DEVIATIONS_FLAG ');
577: END IF;
578: IF (p_autogen_deviations_flag NOT IN ('Y','N') AND p_autogen_deviations_flag IS NOT NULL )THEN
579: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: - attribute AUTOGEN_DEVIATIONS_FLAG is invalid');
581: END IF;
582: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'AUTOGEN_DEVIATIONS_FLAG');
583: l_return_status := G_RET_STS_ERROR;
576: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: - attribute AUTOGEN_DEVIATIONS_FLAG ');
577: END IF;
578: IF (p_autogen_deviations_flag NOT IN ('Y','N') AND p_autogen_deviations_flag IS NOT NULL )THEN
579: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
580: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: - attribute AUTOGEN_DEVIATIONS_FLAG is invalid');
581: END IF;
582: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'AUTOGEN_DEVIATIONS_FLAG');
583: l_return_status := G_RET_STS_ERROR;
584: END IF;
585: END IF;
586:
587:
588: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
589: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: lookup codes validation');
591: END IF;
592:
593: --added for 10+ word integration and deviations report
586:
587:
588: IF p_validation_level > G_LOOKUP_CODE_VALID_LEVEL THEN
589: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
590: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1900: lookup codes validation');
591: END IF;
592:
593: --added for 10+ word integration and deviations report
594: --Validate lookup for authoring_party_code
591: END IF;
592:
593: --added for 10+ word integration and deviations report
594: --Validate lookup for authoring_party_code
595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute AUTHORING_PARTY_CODE ');
597: END IF;
598: IF p_authoring_party_code IS NOT NULL THEN
599: l_dummy_var := '?';
592:
593: --added for 10+ word integration and deviations report
594: --Validate lookup for authoring_party_code
595: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
596: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute AUTHORING_PARTY_CODE ');
597: END IF;
598: IF p_authoring_party_code IS NOT NULL THEN
599: l_dummy_var := '?';
600: OPEN l_authoring_party_csr(p_authoring_party_code);
607: END IF;
608:
609: --added for 10+ word integration and deviations report
610: --Validate lookup for contract_source_code
611: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
612: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute CONTRACT_SOURCE_CODE ');
613: END IF;
614: l_tmp_return_status := Okc_Util.Check_Lookup_Code('OKC_CONTRACT_TERMS_SOURCES',p_contract_source_code);
615: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
608:
609: --added for 10+ word integration and deviations report
610: --Validate lookup for contract_source_code
611: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
612: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1500: - attribute CONTRACT_SOURCE_CODE ');
613: END IF;
614: l_tmp_return_status := Okc_Util.Check_Lookup_Code('OKC_CONTRACT_TERMS_SOURCES',p_contract_source_code);
615: IF (l_tmp_return_status <> G_RET_STS_SUCCESS) THEN
616: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE, G_COL_NAME_TOKEN, 'CONTRACT_SOURCE_CODE');
619:
620: END IF;
621:
622: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
625: END IF;
626:
627: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
620: END IF;
621:
622: IF p_validation_level > G_FOREIGN_KEY_VALID_LEVEL THEN
623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
625: END IF;
626:
627: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute DOC_NUMBERING_SCHEME ');
623: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
625: END IF;
626:
627: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute DOC_NUMBERING_SCHEME ');
629: END IF;
630: IF p_doc_numbering_scheme IS NOT NULL THEN
631: l_dummy_var := '?';
624: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2100: foreigh keys validation ');
625: END IF;
626:
627: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
628: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute DOC_NUMBERING_SCHEME ');
629: END IF;
630: IF p_doc_numbering_scheme IS NOT NULL THEN
631: l_dummy_var := '?';
632: OPEN l_doc_number_scheme_csr;
632: OPEN l_doc_number_scheme_csr;
633: FETCH l_doc_number_scheme_csr INTO l_dummy_var;
634: CLOSE l_doc_number_scheme_csr;
635: IF (l_dummy_var = '?') THEN
636: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute DOC_NUMBERING_SCHEME is invalid');
638: END IF;
639: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DOC_NUMBERING_SCHEME');
640: l_return_status := G_RET_STS_ERROR;
633: FETCH l_doc_number_scheme_csr INTO l_dummy_var;
634: CLOSE l_doc_number_scheme_csr;
635: IF (l_dummy_var = '?') THEN
636: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
637: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute DOC_NUMBERING_SCHEME is invalid');
638: END IF;
639: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'DOC_NUMBERING_SCHEME');
640: l_return_status := G_RET_STS_ERROR;
641: END IF;
640: l_return_status := G_RET_STS_ERROR;
641: END IF;
642: END IF;
643:
644: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
645: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_ID ');
646: END IF;
647: IF p_template_id IS NOT NULL THEN
648: l_dummy_var := '?';
641: END IF;
642: END IF;
643:
644: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
645: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute TEMPLATE_ID ');
646: END IF;
647: IF p_template_id IS NOT NULL THEN
648: l_dummy_var := '?';
649: OPEN l_template_id_csr;
649: OPEN l_template_id_csr;
650: FETCH l_template_id_csr INTO l_dummy_var;
651: CLOSE l_template_id_csr;
652: IF (l_dummy_var = '?') THEN
653: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
654: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute TEMPLATE_ID is invalid');
655: END IF;
656: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_ID');
657: l_return_status := G_RET_STS_ERROR;
650: FETCH l_template_id_csr INTO l_dummy_var;
651: CLOSE l_template_id_csr;
652: IF (l_dummy_var = '?') THEN
653: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
654: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute TEMPLATE_ID is invalid');
655: END IF;
656: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'TEMPLATE_ID');
657: l_return_status := G_RET_STS_ERROR;
658: END IF;
658: END IF;
659: END IF;
660:
661: /*
662: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
663: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute CONFIG_HEADER_ID ');
664: END IF;
665: IF p_config_header_id IS NOT NULL THEN
666: l_dummy_var := '?';
659: END IF;
660:
661: /*
662: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
663: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2200: - attribute CONFIG_HEADER_ID ');
664: END IF;
665: IF p_config_header_id IS NOT NULL THEN
666: l_dummy_var := '?';
667: OPEN l_config_header_id_csr;
667: OPEN l_config_header_id_csr;
668: FETCH l_config_header_id_csr INTO l_dummy_var;
669: CLOSE l_config_header_id_csr;
670: IF (l_dummy_var = '?') THEN
671: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute CONFIG_HEADER_ID is invalid');
673: END IF;
674: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONFIG_HEADER_ID');
675: l_return_status := G_RET_STS_ERROR;
668: FETCH l_config_header_id_csr INTO l_dummy_var;
669: CLOSE l_config_header_id_csr;
670: IF (l_dummy_var = '?') THEN
671: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
672: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2300: - attribute CONFIG_HEADER_ID is invalid');
673: END IF;
674: Okc_Api.Set_Message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONFIG_HEADER_ID');
675: l_return_status := G_RET_STS_ERROR;
676: END IF;
679: */
680: END IF;
681:
682:
683: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
684: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving Validate_Attributes ');
685: END IF;
686:
687: RETURN l_return_status;
680: END IF;
681:
682:
683: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
684: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2400: Leaving Validate_Attributes ');
685: END IF;
686:
687: RETURN l_return_status;
688:
754: l_api_name CONSTANT VARCHAR2(30) := 'Validate_Record';
755: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
756: BEGIN
757:
758: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Entered Validate_Record');
760: END IF;
761:
762: --- Validate all non-missing attributes (Item Level Validation)
755: l_return_status VARCHAR2(1) := G_RET_STS_SUCCESS;
756: BEGIN
757:
758: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
759: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2600: Entered Validate_Record');
760: END IF;
761:
762: --- Validate all non-missing attributes (Item Level Validation)
763: l_return_status := Validate_Attributes(
788: p_legal_contact_id => p_legal_contact_id,
789: p_locked_by_user_id => p_locked_by_user_id
790: );
791: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
792: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm);
794: END IF;
795: RETURN G_RET_STS_UNEXP_ERROR;
796: END IF;
789: p_locked_by_user_id => p_locked_by_user_id
790: );
791: IF (l_return_status = G_RET_STS_UNEXP_ERROR) THEN
792: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
793: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2700: Leaving Validate_Record because of UNEXP_ERROR in Validate_Attributes: '||sqlerrm);
794: END IF;
795: RETURN G_RET_STS_UNEXP_ERROR;
796: END IF;
797:
796: END IF;
797:
798: --- Record Level Validation
799: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
800: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Entered Record Level Validations');
802: END IF;
803: /*+++++++++++++start of hand code +++++++++++++++++++*/
804: -- ?? manual coding for Record Level Validations if required ??
797:
798: --- Record Level Validation
799: IF p_validation_level > G_RECORD_VALID_LEVEL THEN
800: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
801: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2800: Entered Record Level Validations');
802: END IF;
803: /*+++++++++++++start of hand code +++++++++++++++++++*/
804: -- ?? manual coding for Record Level Validations if required ??
805: /*+++++++++++++End of hand code +++++++++++++++++++*/
804: -- ?? manual coding for Record Level Validations if required ??
805: /*+++++++++++++End of hand code +++++++++++++++++++*/
806: END IF;
807:
808: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
809: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Leaving Validate_Record : '||sqlerrm);
810: END IF;
811: RETURN l_return_status ;
812:
805: /*+++++++++++++End of hand code +++++++++++++++++++*/
806: END IF;
807:
808: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
809: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'2900: Leaving Validate_Record : '||sqlerrm);
810: END IF;
811: RETURN l_return_status ;
812:
813: EXCEPTION
812:
813: EXCEPTION
814: WHEN OTHERS THEN
815:
816: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm);
818: END IF;
819:
820: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
813: EXCEPTION
814: WHEN OTHERS THEN
815:
816: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
817: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3000: Leaving Validate_Record because of EXCEPTION: '||sqlerrm);
818: END IF;
819:
820: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
821: p_msg_name => G_UNEXPECTED_ERROR,
897: l_last_update_login OKC_TEMPLATE_USAGES.LAST_UPDATE_LOGIN%TYPE;
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
899: BEGIN
900:
901: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered validate_row');
903: END IF;
904:
905: -- Setting attributes
898: l_last_update_date OKC_TEMPLATE_USAGES.LAST_UPDATE_DATE%TYPE;
899: BEGIN
900:
901: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
902: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3100: Entered validate_row');
903: END IF;
904:
905: -- Setting attributes
906: x_return_status := Set_Attributes(
986: p_legal_contact_id => p_legal_contact_id,
987: p_locked_by_user_id => p_locked_by_user_id
988: );
989:
990: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Leaving validate_row');
992: END IF;
993:
994: EXCEPTION
987: p_locked_by_user_id => p_locked_by_user_id
988: );
989:
990: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
991: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3200: Leaving validate_row');
992: END IF;
993:
994: EXCEPTION
995: WHEN FND_API.G_EXC_ERROR THEN
992: END IF;
993:
994: EXCEPTION
995: WHEN FND_API.G_EXC_ERROR THEN
996: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
997: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception');
998: END IF;
999: x_return_status := G_RET_STS_ERROR;
1000:
993:
994: EXCEPTION
995: WHEN FND_API.G_EXC_ERROR THEN
996: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
997: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3300: Leaving Validate_Row:FND_API.G_EXC_ERROR Exception');
998: END IF;
999: x_return_status := G_RET_STS_ERROR;
1000:
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
998: END IF;
999: x_return_status := G_RET_STS_ERROR;
1000:
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1003: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1004: END IF;
1005: x_return_status := G_RET_STS_UNEXP_ERROR;
1006:
999: x_return_status := G_RET_STS_ERROR;
1000:
1001: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1002: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1003: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3400: Leaving Validate_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1004: END IF;
1005: x_return_status := G_RET_STS_UNEXP_ERROR;
1006:
1007: WHEN OTHERS THEN
1004: END IF;
1005: x_return_status := G_RET_STS_UNEXP_ERROR;
1006:
1007: WHEN OTHERS THEN
1008: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1009: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm);
1010: END IF;
1011: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1012: p_msg_name => G_UNEXPECTED_ERROR,
1005: x_return_status := G_RET_STS_UNEXP_ERROR;
1006:
1007: WHEN OTHERS THEN
1008: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1009: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3500: Leaving Validate_Row because of EXCEPTION: '||sqlerrm);
1010: END IF;
1011: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1012: p_msg_name => G_UNEXPECTED_ERROR,
1013: p_token1 => G_SQLCODE_TOKEN,
1060: l_api_name CONSTANT VARCHAR2(30) := 'insert_row';
1061:
1062: BEGIN
1063:
1064: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
1066: END IF;
1067:
1068: INSERT INTO OKC_TEMPLATE_USAGES(
1061:
1062: BEGIN
1063:
1064: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1065: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3600: Entered Insert_Row function');
1066: END IF;
1067:
1068: INSERT INTO OKC_TEMPLATE_USAGES(
1069: DOCUMENT_TYPE,
1128: p_legal_contact_id,
1129: p_locked_by_user_id
1130: );
1131:
1132: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Leaving Insert_Row');
1134: END IF;
1135:
1136: RETURN( G_RET_STS_SUCCESS );
1129: p_locked_by_user_id
1130: );
1131:
1132: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1133: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'3700: Leaving Insert_Row');
1134: END IF;
1135:
1136: RETURN( G_RET_STS_SUCCESS );
1137:
1137:
1138: EXCEPTION
1139: WHEN OTHERS THEN
1140:
1141: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1142: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3800: Leaving Insert_Row:OTHERS Exception');
1143: END IF;
1144:
1145: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1138: EXCEPTION
1139: WHEN OTHERS THEN
1140:
1141: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1142: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'3800: Leaving Insert_Row:OTHERS Exception');
1143: END IF;
1144:
1145: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1146: p_msg_name => G_UNEXPECTED_ERROR,
1204: BEGIN
1205:
1206: x_return_status := G_RET_STS_SUCCESS;
1207:
1208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1209: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Entered Insert_Row');
1210: END IF;
1211:
1212: -- Set Internal columns
1205:
1206: x_return_status := G_RET_STS_SUCCESS;
1207:
1208: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1209: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4200: Entered Insert_Row');
1210: END IF;
1211:
1212: -- Set Internal columns
1213: l_object_version_number := 1;
1263:
1264: --------------------------------------------
1265: -- Call the internal Insert_Row for each child record
1266: --------------------------------------------
1267: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1268: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Call the internal Insert_Row for Base Table');
1269: END IF;
1270:
1271: x_return_status := Insert_Row(
1264: --------------------------------------------
1265: -- Call the internal Insert_Row for each child record
1266: --------------------------------------------
1267: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1268: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4300: Call the internal Insert_Row for Base Table');
1269: END IF;
1270:
1271: x_return_status := Insert_Row(
1272: p_document_type => p_document_type,
1307: END IF;
1308:
1309:
1310:
1311: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1312: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Insert_Row');
1313: END IF;
1314:
1315: EXCEPTION
1308:
1309:
1310:
1311: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1312: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4500: Leaving Insert_Row');
1313: END IF;
1314:
1315: EXCEPTION
1316: WHEN FND_API.G_EXC_ERROR THEN
1313: END IF;
1314:
1315: EXCEPTION
1316: WHEN FND_API.G_EXC_ERROR THEN
1317: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1318: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception');
1319: END IF;
1320: x_return_status := G_RET_STS_ERROR;
1321:
1314:
1315: EXCEPTION
1316: WHEN FND_API.G_EXC_ERROR THEN
1317: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1318: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4600: Leaving Insert_Row:FND_API.G_EXC_ERROR Exception');
1319: END IF;
1320: x_return_status := G_RET_STS_ERROR;
1321:
1322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1319: END IF;
1320: x_return_status := G_RET_STS_ERROR;
1321:
1322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1323: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1325: END IF;
1326: x_return_status := G_RET_STS_UNEXP_ERROR;
1327:
1320: x_return_status := G_RET_STS_ERROR;
1321:
1322: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1323: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1324: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4700: Leaving Insert_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1325: END IF;
1326: x_return_status := G_RET_STS_UNEXP_ERROR;
1327:
1328: WHEN OTHERS THEN
1325: END IF;
1326: x_return_status := G_RET_STS_UNEXP_ERROR;
1327:
1328: WHEN OTHERS THEN
1329: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1330: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
1331: END IF;
1332: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1333: p_msg_name => G_UNEXPECTED_ERROR,
1326: x_return_status := G_RET_STS_UNEXP_ERROR;
1327:
1328: WHEN OTHERS THEN
1329: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1330: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'4800: Leaving Insert_Row because of EXCEPTION: '||sqlerrm);
1331: END IF;
1332: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1333: p_msg_name => G_UNEXPECTED_ERROR,
1334: p_token1 => G_SQLCODE_TOKEN,
1371:
1372: l_row_notfound BOOLEAN := FALSE;
1373: BEGIN
1374:
1375: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1376: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4900: Entered Lock_Row');
1377: END IF;
1378:
1379:
1372: l_row_notfound BOOLEAN := FALSE;
1373: BEGIN
1374:
1375: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1376: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'4900: Entered Lock_Row');
1377: END IF;
1378:
1379:
1380: BEGIN
1386:
1387: EXCEPTION
1388: WHEN E_Resource_Busy THEN
1389:
1390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5000: Leaving Lock_Row:E_Resource_Busy Exception');
1392: END IF;
1393:
1394: IF (lock_csr%ISOPEN) THEN
1387: EXCEPTION
1388: WHEN E_Resource_Busy THEN
1389:
1390: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1391: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5000: Leaving Lock_Row:E_Resource_Busy Exception');
1392: END IF;
1393:
1394: IF (lock_csr%ISOPEN) THEN
1395: CLOSE lock_csr;
1422: ELSE
1423: l_return_status := G_RET_STS_SUCCESS;
1424: END IF;
1425:
1426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: Leaving Lock_Row');
1428: END IF;
1429:
1430: RETURN( l_return_status );
1423: l_return_status := G_RET_STS_SUCCESS;
1424: END IF;
1425:
1426: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1427: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5100: Leaving Lock_Row');
1428: END IF;
1429:
1430: RETURN( l_return_status );
1431:
1438: IF (lchk_csr%ISOPEN) THEN
1439: CLOSE lchk_csr;
1440: END IF;
1441:
1442: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
1444: END IF;
1445:
1446: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1439: CLOSE lchk_csr;
1440: END IF;
1441:
1442: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1443: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'5200: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
1444: END IF;
1445:
1446: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1447: p_msg_name => G_UNEXPECTED_ERROR,
1465: ) IS
1466: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
1467: BEGIN
1468:
1469: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Lock_Row');
1471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Locking Row for Base Table');
1472: END IF;
1473:
1466: l_api_name CONSTANT VARCHAR2(30) := 'lock_row';
1467: BEGIN
1468:
1469: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Lock_Row');
1471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Locking Row for Base Table');
1472: END IF;
1473:
1474: --------------------------------------------
1467: BEGIN
1468:
1469: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1470: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5700: Entered Lock_Row');
1471: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'5800: Locking Row for Base Table');
1472: END IF;
1473:
1474: --------------------------------------------
1475: -- Call the LOCK_ROW for each _B child record
1486: END IF;
1487:
1488:
1489:
1490: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1491: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6000: Leaving Lock_Row');
1492: END IF;
1493:
1494: EXCEPTION
1487:
1488:
1489:
1490: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1491: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6000: Leaving Lock_Row');
1492: END IF;
1493:
1494: EXCEPTION
1495: WHEN FND_API.G_EXC_ERROR THEN
1492: END IF;
1493:
1494: EXCEPTION
1495: WHEN FND_API.G_EXC_ERROR THEN
1496: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1497: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception');
1498: END IF;
1499: x_return_status := G_RET_STS_ERROR;
1500:
1493:
1494: EXCEPTION
1495: WHEN FND_API.G_EXC_ERROR THEN
1496: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1497: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6100: Leaving Lock_Row:FND_API.G_EXC_ERROR Exception');
1498: END IF;
1499: x_return_status := G_RET_STS_ERROR;
1500:
1501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1498: END IF;
1499: x_return_status := G_RET_STS_ERROR;
1500:
1501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1502: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1503: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1504: END IF;
1505: x_return_status := G_RET_STS_UNEXP_ERROR;
1506:
1499: x_return_status := G_RET_STS_ERROR;
1500:
1501: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1502: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1503: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6200: Leaving Lock_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1504: END IF;
1505: x_return_status := G_RET_STS_UNEXP_ERROR;
1506:
1507: WHEN OTHERS THEN
1504: END IF;
1505: x_return_status := G_RET_STS_UNEXP_ERROR;
1506:
1507: WHEN OTHERS THEN
1508: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1509: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
1510: END IF;
1511: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1512: p_msg_name => G_UNEXPECTED_ERROR,
1505: x_return_status := G_RET_STS_UNEXP_ERROR;
1506:
1507: WHEN OTHERS THEN
1508: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1509: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6300: Leaving Lock_Row because of EXCEPTION: '||sqlerrm);
1510: END IF;
1511: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1512: p_msg_name => G_UNEXPECTED_ERROR,
1513: p_token1 => G_SQLCODE_TOKEN,
1558: ) RETURN VARCHAR2 IS
1559: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1560: BEGIN
1561:
1562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
1564: END IF;
1565:
1566: UPDATE OKC_TEMPLATE_USAGES
1559: l_api_name CONSTANT VARCHAR2(30) := 'update_row';
1560: BEGIN
1561:
1562: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1563: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6400: Entered Update_Row');
1564: END IF;
1565:
1566: UPDATE OKC_TEMPLATE_USAGES
1567: SET TEMPLATE_ID = p_template_id,
1593: legal_contact_id = p_legal_contact_id,
1594: locked_by_user_id = p_locked_by_user_id
1595: WHERE DOCUMENT_TYPE = p_document_type AND DOCUMENT_ID = p_document_id;
1596:
1597: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1598: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Leaving Update_Row');
1599: END IF;
1600:
1601: RETURN G_RET_STS_SUCCESS ;
1594: locked_by_user_id = p_locked_by_user_id
1595: WHERE DOCUMENT_TYPE = p_document_type AND DOCUMENT_ID = p_document_id;
1596:
1597: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1598: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'6500: Leaving Update_Row');
1599: END IF;
1600:
1601: RETURN G_RET_STS_SUCCESS ;
1602:
1602:
1603: EXCEPTION
1604: WHEN OTHERS THEN
1605:
1606: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1607: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
1608: END IF;
1609:
1610: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1603: EXCEPTION
1604: WHEN OTHERS THEN
1605:
1606: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1607: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'6600: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
1608: END IF;
1609:
1610: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1611: p_msg_name => G_UNEXPECTED_ERROR,
1687: l_locked_by_user_id OKC_TEMPLATE_USAGES.LOCKED_BY_USER_ID%TYPE;
1688:
1689: BEGIN
1690:
1691: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1692: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
1693: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Locking _B row');
1694: END IF;
1695:
1688:
1689: BEGIN
1690:
1691: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1692: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
1693: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Locking _B row');
1694: END IF;
1695:
1696: x_return_status := Lock_row(
1689: BEGIN
1690:
1691: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1692: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7000: Entered Update_Row');
1693: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7100: Locking _B row');
1694: END IF;
1695:
1696: x_return_status := Lock_row(
1697: p_document_type => p_document_type,
1704: RAISE FND_API.G_EXC_ERROR;
1705: END IF;
1706:
1707:
1708: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1709: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Setting attributes');
1710: END IF;
1711:
1712: x_return_status := Set_Attributes(
1705: END IF;
1706:
1707:
1708: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1709: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Setting attributes');
1710: END IF;
1711:
1712: x_return_status := Set_Attributes(
1713: p_document_type => p_document_type,
1763: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1764: RAISE FND_API.G_EXC_ERROR;
1765: END IF;
1766:
1767: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1768: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7400: Record Validation');
1769: END IF;
1770:
1771: --- Validate all non-missing attributes
1764: RAISE FND_API.G_EXC_ERROR;
1765: END IF;
1766:
1767: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1768: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7400: Record Validation');
1769: END IF;
1770:
1771: --- Validate all non-missing attributes
1772: x_return_status := Validate_Record(
1801: ELSIF (x_return_status = G_RET_STS_ERROR) THEN
1802: RAISE FND_API.G_EXC_ERROR;
1803: END IF;
1804:
1805: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1806: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Filling WHO columns');
1807: END IF;
1808:
1809: -- Filling who columns
1802: RAISE FND_API.G_EXC_ERROR;
1803: END IF;
1804:
1805: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1806: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7500: Filling WHO columns');
1807: END IF;
1808:
1809: -- Filling who columns
1810: l_last_update_date := SYSDATE;
1818:
1819: --------------------------------------------
1820: -- Call the Update_Row for each child record
1821: --------------------------------------------
1822: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1823: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: Updating Row');
1824: END IF;
1825:
1826: x_return_status := Update_Row(
1819: --------------------------------------------
1820: -- Call the Update_Row for each child record
1821: --------------------------------------------
1822: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1823: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7600: Updating Row');
1824: END IF;
1825:
1826: x_return_status := Update_Row(
1827: p_document_type => p_document_type,
1861: RAISE FND_API.G_EXC_ERROR;
1862: END IF;
1863:
1864:
1865: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7800: Leaving Update_Row');
1867: END IF;
1868:
1869: EXCEPTION
1862: END IF;
1863:
1864:
1865: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1866: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7800: Leaving Update_Row');
1867: END IF;
1868:
1869: EXCEPTION
1870: WHEN FND_API.G_EXC_ERROR THEN
1867: END IF;
1868:
1869: EXCEPTION
1870: WHEN FND_API.G_EXC_ERROR THEN
1871: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1872: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception');
1873: END IF;
1874: x_return_status := G_RET_STS_ERROR;
1875:
1868:
1869: EXCEPTION
1870: WHEN FND_API.G_EXC_ERROR THEN
1871: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1872: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7900: Leaving Update_Row:FND_API.G_EXC_ERROR Exception');
1873: END IF;
1874: x_return_status := G_RET_STS_ERROR;
1875:
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1873: END IF;
1874: x_return_status := G_RET_STS_ERROR;
1875:
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1877: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1879: END IF;
1880: x_return_status := G_RET_STS_UNEXP_ERROR;
1881:
1874: x_return_status := G_RET_STS_ERROR;
1875:
1876: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1877: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1878: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8000: Leaving Update_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1879: END IF;
1880: x_return_status := G_RET_STS_UNEXP_ERROR;
1881:
1882: WHEN OTHERS THEN
1879: END IF;
1880: x_return_status := G_RET_STS_UNEXP_ERROR;
1881:
1882: WHEN OTHERS THEN
1883: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1884: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
1885: END IF;
1886: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1887: p_msg_name => G_UNEXPECTED_ERROR,
1880: x_return_status := G_RET_STS_UNEXP_ERROR;
1881:
1882: WHEN OTHERS THEN
1883: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1884: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'8100: Leaving Update_Row because of EXCEPTION: '||sqlerrm);
1885: END IF;
1886: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1887: p_msg_name => G_UNEXPECTED_ERROR,
1888: p_token1 => G_SQLCODE_TOKEN,
1905: ) RETURN VARCHAR2 IS
1906: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1907: BEGIN
1908:
1909: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1910: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
1911: END IF;
1912:
1913: DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
1906: l_api_name CONSTANT VARCHAR2(30) := 'delete_row';
1907: BEGIN
1908:
1909: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1910: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8200: Entered Delete_Row');
1911: END IF;
1912:
1913: DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
1914:
1911: END IF;
1912:
1913: DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
1914:
1915: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
1917: END IF;
1918:
1919: RETURN( G_RET_STS_SUCCESS );
1912:
1913: DELETE FROM OKC_TEMPLATE_USAGES WHERE DOCUMENT_TYPE = p_DOCUMENT_TYPE AND DOCUMENT_ID = p_DOCUMENT_ID;
1914:
1915: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1916: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8300: Leaving Delete_Row');
1917: END IF;
1918:
1919: RETURN( G_RET_STS_SUCCESS );
1920:
1920:
1921: EXCEPTION
1922: WHEN OTHERS THEN
1923:
1924: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1925: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
1926: END IF;
1927:
1928: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1921: EXCEPTION
1922: WHEN OTHERS THEN
1923:
1924: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1925: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8400: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
1926: END IF;
1927:
1928: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
1929: p_msg_name => G_UNEXPECTED_ERROR,
1947: ) IS
1948: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
1949: BEGIN
1950:
1951: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1952: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
1953: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8900: Locking _B row');
1954: END IF;
1955:
1948: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Row';
1949: BEGIN
1950:
1951: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1952: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
1953: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8900: Locking _B row');
1954: END IF;
1955:
1956: x_return_status := Lock_row(
1949: BEGIN
1950:
1951: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1952: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8800: Entered Delete_Row');
1953: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'8900: Locking _B row');
1954: END IF;
1955:
1956: x_return_status := Lock_row(
1957: p_document_type => p_document_type,
1964: RAISE FND_API.G_EXC_ERROR;
1965: END IF;
1966:
1967:
1968: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1969: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9100: Removing _B row');
1970: END IF;
1971: x_return_status := Delete_Row( p_document_type => p_document_type,p_document_id => p_document_id );
1972: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1965: END IF;
1966:
1967:
1968: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1969: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9100: Removing _B row');
1970: END IF;
1971: x_return_status := Delete_Row( p_document_type => p_document_type,p_document_id => p_document_id );
1972: IF (x_return_status = G_RET_STS_UNEXP_ERROR) THEN
1973: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1975: RAISE FND_API.G_EXC_ERROR;
1976: END IF;
1977:
1978:
1979: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1980: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: Leaving Delete_Row');
1981: END IF;
1982:
1983: EXCEPTION
1976: END IF;
1977:
1978:
1979: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1980: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9300: Leaving Delete_Row');
1981: END IF;
1982:
1983: EXCEPTION
1984: WHEN FND_API.G_EXC_ERROR THEN
1981: END IF;
1982:
1983: EXCEPTION
1984: WHEN FND_API.G_EXC_ERROR THEN
1985: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1986: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception');
1987: END IF;
1988: x_return_status := G_RET_STS_ERROR;
1989:
1982:
1983: EXCEPTION
1984: WHEN FND_API.G_EXC_ERROR THEN
1985: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1986: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9400: Leaving Delete_Row:FND_API.G_EXC_ERROR Exception');
1987: END IF;
1988: x_return_status := G_RET_STS_ERROR;
1989:
1990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1987: END IF;
1988: x_return_status := G_RET_STS_ERROR;
1989:
1990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1991: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1992: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1993: END IF;
1994: x_return_status := G_RET_STS_UNEXP_ERROR;
1995:
1988: x_return_status := G_RET_STS_ERROR;
1989:
1990: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1991: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1992: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9500: Leaving Delete_Row:FND_API.G_EXC_UNEXPECTED_ERROR Exception');
1993: END IF;
1994: x_return_status := G_RET_STS_UNEXP_ERROR;
1995:
1996: WHEN OTHERS THEN
1993: END IF;
1994: x_return_status := G_RET_STS_UNEXP_ERROR;
1995:
1996: WHEN OTHERS THEN
1997: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1998: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
1999: END IF;
2000: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2001: p_msg_name => G_UNEXPECTED_ERROR,
1994: x_return_status := G_RET_STS_UNEXP_ERROR;
1995:
1996: WHEN OTHERS THEN
1997: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
1998: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'9600: Leaving Delete_Row because of EXCEPTION: '||sqlerrm);
1999: END IF;
2000: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2001: p_msg_name => G_UNEXPECTED_ERROR,
2002: p_token1 => G_SQLCODE_TOKEN,
2015: ) RETURN VARCHAR2 IS
2016: l_api_name CONSTANT VARCHAR2(30) := 'create_version';
2017: BEGIN
2018:
2019: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9700: Entered create_version');
2021: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9800: Saving Base Table');
2022: END IF;
2023:
2016: l_api_name CONSTANT VARCHAR2(30) := 'create_version';
2017: BEGIN
2018:
2019: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9700: Entered create_version');
2021: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9800: Saving Base Table');
2022: END IF;
2023:
2024: -----------------------------------------
2017: BEGIN
2018:
2019: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2020: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9700: Entered create_version');
2021: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'9800: Saving Base Table');
2022: END IF;
2023:
2024: -----------------------------------------
2025: -- Saving Base Table
2090: LOCKED_BY_USER_ID
2091: FROM OKC_TEMPLATE_USAGES
2092: WHERE document_type = p_doc_type and document_id = p_doc_id;
2093:
2094: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2095: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10000: Leaving create_version');
2096: END IF;
2097:
2098: RETURN( G_RET_STS_SUCCESS );
2091: FROM OKC_TEMPLATE_USAGES
2092: WHERE document_type = p_doc_type and document_id = p_doc_id;
2093:
2094: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2095: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10000: Leaving create_version');
2096: END IF;
2097:
2098: RETURN( G_RET_STS_SUCCESS );
2099:
2099:
2100: EXCEPTION
2101: WHEN OTHERS THEN
2102:
2103: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2104: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'10100: Leaving create_version because of EXCEPTION: '||sqlerrm);
2105: END IF;
2106:
2107: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2100: EXCEPTION
2101: WHEN OTHERS THEN
2102:
2103: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2104: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'10100: Leaving create_version because of EXCEPTION: '||sqlerrm);
2105: END IF;
2106:
2107: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2108: p_msg_name => G_UNEXPECTED_ERROR,
2123: ) RETURN VARCHAR2 IS
2124: l_api_name CONSTANT VARCHAR2(30) := 'restore_version';
2125: BEGIN
2126:
2127: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2128: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10200: Entered restore_version');
2129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10300: Restoring Base Table');
2130: END IF;
2131:
2124: l_api_name CONSTANT VARCHAR2(30) := 'restore_version';
2125: BEGIN
2126:
2127: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2128: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10200: Entered restore_version');
2129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10300: Restoring Base Table');
2130: END IF;
2131:
2132: -----------------------------------------
2125: BEGIN
2126:
2127: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2128: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10200: Entered restore_version');
2129: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10300: Restoring Base Table');
2130: END IF;
2131:
2132: -----------------------------------------
2133: -- Restoring Base Table
2196: LOCKED_BY_USER_ID
2197: FROM OKC_TEMPLATE_USAGES_H
2198: WHERE document_type = p_doc_type and document_id = p_doc_id AND major_version = p_major_version;
2199:
2200: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10500: Leaving restore_version');
2202: END IF;
2203:
2204: RETURN( G_RET_STS_SUCCESS );
2197: FROM OKC_TEMPLATE_USAGES_H
2198: WHERE document_type = p_doc_type and document_id = p_doc_id AND major_version = p_major_version;
2199:
2200: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2201: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'10500: Leaving restore_version');
2202: END IF;
2203:
2204: RETURN( G_RET_STS_SUCCESS );
2205:
2205:
2206: EXCEPTION
2207: WHEN OTHERS THEN
2208:
2209: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2210: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'10600: Leaving restore_version because of EXCEPTION: '||sqlerrm);
2211: END IF;
2212:
2213: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2206: EXCEPTION
2207: WHEN OTHERS THEN
2208:
2209: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2210: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'10600: Leaving restore_version because of EXCEPTION: '||sqlerrm);
2211: END IF;
2212:
2213: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2214: p_msg_name => G_UNEXPECTED_ERROR,
2228: ) RETURN VARCHAR2 IS
2229: l_api_name CONSTANT VARCHAR2(30) := 'delete_version';
2230: BEGIN
2231:
2232: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2233: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7200: Entered Delete_Version');
2234: END IF;
2235:
2236: -----------------------------------------
2229: l_api_name CONSTANT VARCHAR2(30) := 'delete_version';
2230: BEGIN
2231:
2232: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2233: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7200: Entered Delete_Version');
2234: END IF;
2235:
2236: -----------------------------------------
2237: -- Restoring Base Table
2241: WHERE document_type = p_doc_type
2242: AND document_id = p_doc_id
2243: AND major_version = p_major_version;
2244:
2245: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2246: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Leaving Delete_Version');
2247: END IF;
2248:
2249: RETURN( G_RET_STS_SUCCESS );
2242: AND document_id = p_doc_id
2243: AND major_version = p_major_version;
2244:
2245: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2246: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'7300: Leaving Delete_Version');
2247: END IF;
2248:
2249: RETURN( G_RET_STS_SUCCESS );
2250:
2250:
2251: EXCEPTION
2252: WHEN OTHERS THEN
2253:
2254: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2255: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm);
2256: END IF;
2257:
2258: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2251: EXCEPTION
2252: WHEN OTHERS THEN
2253:
2254: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2255: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'7400: Leaving Delete_Version because of EXCEPTION: '||sqlerrm);
2256: END IF;
2257:
2258: Okc_Api.Set_Message(p_app_name => G_APP_NAME,
2259: p_msg_name => G_UNEXPECTED_ERROR,
2280: FROM OKC_ALLOWED_TMPL_USAGES
2281: WHERE TEMPLATE_ID = p_old_template_id
2282: FOR UPDATE OF template_id NOWAIT;
2283: BEGIN
2284: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered Update_Template_Id');
2286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Locking the Set');
2287: END IF;
2288: --------------------------------------------
2281: WHERE TEMPLATE_ID = p_old_template_id
2282: FOR UPDATE OF template_id NOWAIT;
2283: BEGIN
2284: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered Update_Template_Id');
2286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Locking the Set');
2287: END IF;
2288: --------------------------------------------
2289: -- making OPEN/CLOSE cursor to lock records
2282: FOR UPDATE OF template_id NOWAIT;
2283: BEGIN
2284: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2285: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1100: Entered Update_Template_Id');
2286: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1200: Locking the Set');
2287: END IF;
2288: --------------------------------------------
2289: -- making OPEN/CLOSE cursor to lock records
2290: OPEN lock_csr;
2289: -- making OPEN/CLOSE cursor to lock records
2290: OPEN lock_csr;
2291: CLOSE lock_csr;
2292: --------------------------------------------
2293: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2294: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: Updating the Set');
2295: END IF;
2296: UPDATE okc_allowed_tmpl_usages
2297: SET template_id = p_new_template_id ,
2290: OPEN lock_csr;
2291: CLOSE lock_csr;
2292: --------------------------------------------
2293: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2294: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1300: Updating the Set');
2295: END IF;
2296: UPDATE okc_allowed_tmpl_usages
2297: SET template_id = p_new_template_id ,
2298: OBJECT_VERSION_NUMBER = OBJECT_VERSION_NUMBER+1,
2300: LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID,
2301: LAST_UPDATE_DATE = Sysdate
2302: WHERE template_id= p_old_template_id;
2303: --------------------------------------------
2304: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: Leaving Update_Template_Id');
2306: END IF;
2307: EXCEPTION
2308: WHEN E_Resource_Busy THEN
2301: LAST_UPDATE_DATE = Sysdate
2302: WHERE template_id= p_old_template_id;
2303: --------------------------------------------
2304: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: Leaving Update_Template_Id');
2306: END IF;
2307: EXCEPTION
2308: WHEN E_Resource_Busy THEN
2309: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2305: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'1400: Leaving Update_Template_Id');
2306: END IF;
2307: EXCEPTION
2308: WHEN E_Resource_Busy THEN
2309: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2310: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving Update_Template_Id: E_Resource_Busy Exception');
2311: END IF;
2312:
2313: IF (lock_csr%ISOPEN) THEN
2306: END IF;
2307: EXCEPTION
2308: WHEN E_Resource_Busy THEN
2309: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2310: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1500: Leaving Update_Template_Id: E_Resource_Busy Exception');
2311: END IF;
2312:
2313: IF (lock_csr%ISOPEN) THEN
2314: CLOSE lock_csr;
2315: END IF;
2316: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2317: x_return_status := G_RET_STS_ERROR ;
2318: WHEN OTHERS THEN
2319: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2320: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1600: Leaving Update_Template_Id because of EXCEPTION: '||sqlerrm);
2321: END IF;
2322:
2323: x_return_status := G_RET_STS_UNEXP_ERROR ;
2316: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2317: x_return_status := G_RET_STS_ERROR ;
2318: WHEN OTHERS THEN
2319: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2320: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'1600: Leaving Update_Template_Id because of EXCEPTION: '||sqlerrm);
2321: END IF;
2322:
2323: x_return_status := G_RET_STS_UNEXP_ERROR ;
2324: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2340: FROM OKC_ALLOWED_TMPL_USAGES
2341: WHERE TEMPLATE_ID = p_template_id
2342: FOR UPDATE NOWAIT;
2343: BEGIN
2344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Set');
2346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Locking the Set');
2347: END IF;
2348: --------------------------------------------
2341: WHERE TEMPLATE_ID = p_template_id
2342: FOR UPDATE NOWAIT;
2343: BEGIN
2344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Set');
2346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Locking the Set');
2347: END IF;
2348: --------------------------------------------
2349: -- making OPEN/CLOSE cursor to lock records
2342: FOR UPDATE NOWAIT;
2343: BEGIN
2344: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2345: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'100: Entered Delete_Set');
2346: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'200: Locking the Set');
2347: END IF;
2348: --------------------------------------------
2349: -- making OPEN/CLOSE cursor to lock records
2350: OPEN lock_csr;
2349: -- making OPEN/CLOSE cursor to lock records
2350: OPEN lock_csr;
2351: CLOSE lock_csr;
2352: --------------------------------------------
2353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Deleting the Set');
2355: END IF;
2356: DELETE
2357: FROM OKC_ALLOWED_TMPL_USAGES
2350: OPEN lock_csr;
2351: CLOSE lock_csr;
2352: --------------------------------------------
2353: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2354: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'300: Deleting the Set');
2355: END IF;
2356: DELETE
2357: FROM OKC_ALLOWED_TMPL_USAGES
2358: WHERE TEMPLATE_ID = p_template_id;
2356: DELETE
2357: FROM OKC_ALLOWED_TMPL_USAGES
2358: WHERE TEMPLATE_ID = p_template_id;
2359: --------------------------------------------
2360: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2361: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Leaving Delete_Set');
2362: END IF;
2363: EXCEPTION
2364: WHEN E_Resource_Busy THEN
2357: FROM OKC_ALLOWED_TMPL_USAGES
2358: WHERE TEMPLATE_ID = p_template_id;
2359: --------------------------------------------
2360: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2361: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Leaving Delete_Set');
2362: END IF;
2363: EXCEPTION
2364: WHEN E_Resource_Busy THEN
2365: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2361: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE, G_MODULE||l_api_name,'400: Leaving Delete_Set');
2362: END IF;
2363: EXCEPTION
2364: WHEN E_Resource_Busy THEN
2365: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2366: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Set:E_Resource_Busy Exception');
2367: END IF;
2368:
2369: IF (lock_csr%ISOPEN) THEN
2362: END IF;
2363: EXCEPTION
2364: WHEN E_Resource_Busy THEN
2365: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2366: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'500: Leaving Delete_Set:E_Resource_Busy Exception');
2367: END IF;
2368:
2369: IF (lock_csr%ISOPEN) THEN
2370: CLOSE lock_csr;
2371: END IF;
2372: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2373: x_return_status := G_RET_STS_ERROR ;
2374: WHEN OTHERS THEN
2375: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2376: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Set because of EXCEPTION: '||sqlerrm);
2377: END IF;
2378:
2379: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2372: Okc_Api.Set_Message( G_FND_APP, G_UNABLE_TO_RESERVE_REC);
2373: x_return_status := G_RET_STS_ERROR ;
2374: WHEN OTHERS THEN
2375: IF ( FND_LOG.LEVEL_EXCEPTION >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2376: FND_LOG.STRING( FND_LOG.LEVEL_EXCEPTION, G_MODULE||l_api_name,'600: Leaving Delete_Set because of EXCEPTION: '||sqlerrm);
2377: END IF;
2378:
2379: IF FND_MSG_PUB.Check_Msg_Level( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR ) THEN
2380: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME, l_api_name );