[Home] [Help]
2724: --Type : Private.
2725: --Function : Validates the contract documents stored in the interface table
2726: -- in a concurrent program.
2727: --Pre-reqs : Currently only called from repository import.
2728: -- : Contract documents should be saved to the OKC_REP_IMP_DOCUMENTS_T table
2729: --Parameters :
2730: --IN : p_api_version IN NUMBER Required
2731: -- : p_init_msg_list IN VARCHAR2 Optional
2732: -- Default = FND_API.G_FALSE
2764: PROGRAM_ID,
2765: PROGRAM_LOGIN_ID,
2766: PROGRAM_APPLICATION_ID,
2767: REQUEST_ID
2768: FROM OKC_REP_IMP_DOCUMENTS_T
2769: WHERE REQUEST_ID = p_request_id
2770: AND VALID_FLAG in ('Y', 'U');
2771:
2772: l_import_documents_rec IMPORT_DOCUMENTS_CSR%ROWTYPE;
2963:
2964: CLOSE document_category_csr;
2965: END IF;
2966:
2967: --Populate the valid_flag and category_code columns in OKC_REP_IMP_DOCUMENTS_T
2968: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2969: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2970: 'Updating OKC_REP_IMP_DOCUMENTS_T');
2971: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2966:
2967: --Populate the valid_flag and category_code columns in OKC_REP_IMP_DOCUMENTS_T
2968: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
2969: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2970: 'Updating OKC_REP_IMP_DOCUMENTS_T');
2971: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2972: 'DOCUMENT ID: '||l_import_documents_rec.imp_document_id);
2973: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
2974: 'l_category_code: '||l_category_code);
2993: x_msg_data => x_msg_data);
2994: END IF;
2995:
2996: IF(l_valid_flag = 'Y') THEN
2997: --Update the record in OKC_REP_IMP_DOCUMENTS_T
2998: UPDATE OKC_REP_IMP_DOCUMENTS_T
2999: SET CATEGORY_CODE = l_category_code,
3000: VALID_FLAG = l_valid_flag
3001: where imp_document_id = l_import_documents_rec.imp_document_id;
2994: END IF;
2995:
2996: IF(l_valid_flag = 'Y') THEN
2997: --Update the record in OKC_REP_IMP_DOCUMENTS_T
2998: UPDATE OKC_REP_IMP_DOCUMENTS_T
2999: SET CATEGORY_CODE = l_category_code,
3000: VALID_FLAG = l_valid_flag
3001: where imp_document_id = l_import_documents_rec.imp_document_id;
3002: END IF;
3001: where imp_document_id = l_import_documents_rec.imp_document_id;
3002: END IF;
3003:
3004: IF(l_valid_flag = 'N') THEN
3005: UPDATE OKC_REP_IMP_DOCUMENTS_T
3006: SET VALID_FLAG = l_valid_flag
3007: where imp_document_id = l_import_documents_rec.imp_document_id;
3008: END IF;
3009:
3773:
3774:
3775: CURSOR VALID_DOCUMENTS_CSR (p_contract_id VARCHAR2) IS
3776: SELECT VALID_FLAG, IMP_DOCUMENT_ID
3777: FROM OKC_REP_IMP_DOCUMENTS_T
3778: WHERE IMP_CONTRACT_ID = p_contract_id;
3779:
3780: l_valid_documents_rec VALID_DOCUMENTS_CSR%ROWTYPE;
3781:
4630: OPEN CONTRACT_ID_CSR;
4631: FETCH CONTRACT_ID_CSR INTO l_contract_id;
4632: CLOSE CONTRACT_ID_CSR;
4633:
4634: --Also update okc_rep_imp_parties_t and okc_rep_imp_documents_t
4635: --with the new contract_id
4636: UPDATE OKC_REP_IMP_PARTIES_T
4637: SET CONTRACT_ID = l_contract_id
4638: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
4636: UPDATE OKC_REP_IMP_PARTIES_T
4637: SET CONTRACT_ID = l_contract_id
4638: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
4639:
4640: UPDATE OKC_REP_IMP_DOCUMENTS_T
4641: SET CONTRACT_ID = l_contract_id
4642: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
4643:
4644:
4896: -- inserted into OKC_REP_CONTRACTS_ALL.
4897: --Pre-reqs : Currently only called from repository import.
4898: -- Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
4899: -- Date should all be validated in OKC_REP_IMP_CONTRACTS_T,
4900: -- : OKC_REP_IMP_PARTIES_T, and OKC_REP_IMP_DOCUMENTS_T
4901: --Parameters :
4902: --IN : p_api_version IN NUMBER Required
4903: -- : p_init_msg_list IN VARCHAR2 Optional
4904: -- Default = FND_API.G_FALSE
5241:
5242: --Here the assumption is made that exception has happened
5243: --in the INSERT SQL, so l_start_contract_id is from the
5244: --current iteration and we do not adjust it here
5245: UPDATE okc_rep_imp_documents_t
5246: SET valid_flag = 'N'
5247: WHERE request_id = p_request_id
5248: AND contract_id >= l_start_contract_id
5249: AND contract_id < l_start_contract_id + l_insert_batch_size;
5247: WHERE request_id = p_request_id
5248: AND contract_id >= l_start_contract_id
5249: AND contract_id < l_start_contract_id + l_insert_batch_size;
5250:
5251: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** UPDATE okc_rep_imp_documents_t SET valid_flag = N *****');
5252:
5253: COMMIT;
5254:
5255: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
5517: -- Default = FND_API.G_FALSE
5518: -- : p_contract_id IN NUMBER Required
5519: -- Contract ID that the error is from
5520: -- : p_imp_document_id IN NUMBER Required
5521: -- okc_rep_imp_documents_t.imp_document_id
5522: -- : p_error_msg_txt IN VARCHAR2 Required
5523: -- Translated error message text
5524: -- : p_program_id IN NUMBER Required
5525: -- Concurrent program ID
5849: DOCUMENT_INDEX,
5850: FILE_NAME,
5851: CATEGORY_NAME_TXT,
5852: DOCUMENT_DESC
5853: FROM OKC_REP_IMP_DOCUMENTS_T
5854: WHERE IMP_CONTRACT_ID = p_imp_contract_id
5855: ORDER BY DOCUMENT_INDEX;
5856:
5857: l_imp_documents_rec IMP_DOCUMENTS_CSR%ROWTYPE;