[Home] [Help]
2984: --Type : Private.
2985: --Function : Validates the contract documents stored in the interface table
2986: -- in a concurrent program.
2987: --Pre-reqs : Currently only called from repository import.
2988: -- : Contract documents should be saved to the OKC_REP_IMP_DOCUMENTS_T table
2989: --Parameters :
2990: --IN : p_api_version IN NUMBER Required
2991: -- : p_init_msg_list IN VARCHAR2 Optional
2992: -- Default = FND_API.G_FALSE
3024: PROGRAM_ID,
3025: PROGRAM_LOGIN_ID,
3026: PROGRAM_APPLICATION_ID,
3027: REQUEST_ID
3028: FROM OKC_REP_IMP_DOCUMENTS_T
3029: WHERE run_id = p_run_id
3030: AND VALID_FLAG in ('Y', 'U');
3031:
3032: l_import_documents_rec IMPORT_DOCUMENTS_CSR%ROWTYPE;
3223:
3224: CLOSE document_category_csr;
3225: END IF;
3226:
3227: --Populate the valid_flag and category_code columns in OKC_REP_IMP_DOCUMENTS_T
3228: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3229: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3230: 'Updating OKC_REP_IMP_DOCUMENTS_T');
3231: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3226:
3227: --Populate the valid_flag and category_code columns in OKC_REP_IMP_DOCUMENTS_T
3228: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
3229: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3230: 'Updating OKC_REP_IMP_DOCUMENTS_T');
3231: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3232: 'DOCUMENT ID: '||l_import_documents_rec.imp_document_id);
3233: FND_LOG.STRING( FND_LOG.LEVEL_STATEMENT ,G_MODULE||l_api_name,
3234: 'l_category_code: '||l_category_code);
3253: x_msg_data => x_msg_data);
3254: END IF;
3255:
3256: IF(l_valid_flag = 'Y') THEN
3257: --Update the record in OKC_REP_IMP_DOCUMENTS_T
3258: UPDATE OKC_REP_IMP_DOCUMENTS_T
3259: SET CATEGORY_CODE = l_category_code,
3260: VALID_FLAG = l_valid_flag
3261: where imp_document_id = l_import_documents_rec.imp_document_id;
3254: END IF;
3255:
3256: IF(l_valid_flag = 'Y') THEN
3257: --Update the record in OKC_REP_IMP_DOCUMENTS_T
3258: UPDATE OKC_REP_IMP_DOCUMENTS_T
3259: SET CATEGORY_CODE = l_category_code,
3260: VALID_FLAG = l_valid_flag
3261: where imp_document_id = l_import_documents_rec.imp_document_id;
3262: END IF;
3261: where imp_document_id = l_import_documents_rec.imp_document_id;
3262: END IF;
3263:
3264: IF(l_valid_flag = 'N') THEN
3265: UPDATE OKC_REP_IMP_DOCUMENTS_T
3266: SET VALID_FLAG = l_valid_flag
3267: where imp_document_id = l_import_documents_rec.imp_document_id;
3268: END IF;
3269:
4114:
4115:
4116: CURSOR VALID_DOCUMENTS_CSR (p_contract_id VARCHAR2) IS
4117: SELECT VALID_FLAG, IMP_DOCUMENT_ID
4118: FROM OKC_REP_IMP_DOCUMENTS_T
4119: WHERE IMP_CONTRACT_ID = p_contract_id;
4120:
4121: l_valid_documents_rec VALID_DOCUMENTS_CSR%ROWTYPE;
4122:
5311: OPEN CONTRACT_ID_CSR;
5312: FETCH CONTRACT_ID_CSR INTO l_contract_id;
5313: CLOSE CONTRACT_ID_CSR;
5314:
5315: --Also update okc_rep_imp_parties_t and okc_rep_imp_documents_t
5316: --with the new contract_id
5317: UPDATE OKC_REP_IMP_PARTIES_T
5318: SET CONTRACT_ID = l_contract_id
5319: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
5317: UPDATE OKC_REP_IMP_PARTIES_T
5318: SET CONTRACT_ID = l_contract_id
5319: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
5320:
5321: UPDATE OKC_REP_IMP_DOCUMENTS_T
5322: SET CONTRACT_ID = l_contract_id
5323: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
5324:
5325:
5592: -- inserted into OKC_REP_CONTRACTS_ALL.
5593: --Pre-reqs : Currently only called from repository import.
5594: -- Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
5595: -- Date should all be validated in OKC_REP_IMP_CONTRACTS_T,
5596: -- : OKC_REP_IMP_PARTIES_T, and OKC_REP_IMP_DOCUMENTS_T
5597: --Parameters :
5598: --IN : p_api_version IN NUMBER Required
5599: -- : p_init_msg_list IN VARCHAR2 Optional
5600: -- Default = FND_API.G_FALSE
6093:
6094: --Here the assumption is made that exception has happened
6095: --in the INSERT SQL, so l_start_contract_id is from the
6096: --current iteration and we do not adjust it here
6097: UPDATE okc_rep_imp_documents_t
6098: SET valid_flag = 'N'
6099: WHERE run_id = p_run_id
6100: AND contract_id >= l_start_contract_id
6101: AND contract_id < l_start_contract_id + l_insert_batch_size;
6099: WHERE run_id = p_run_id
6100: AND contract_id >= l_start_contract_id
6101: AND contract_id < l_start_contract_id + l_insert_batch_size;
6102:
6103: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** UPDATE okc_rep_imp_documents_t SET valid_flag = N *****');
6104:
6105: COMMIT;
6106:
6107: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
6400: -- Default = FND_API.G_FALSE
6401: -- : p_contract_id IN NUMBER Required
6402: -- Contract ID that the error is from
6403: -- : p_imp_document_id IN NUMBER Required
6404: -- okc_rep_imp_documents_t.imp_document_id
6405: -- : p_error_msg_txt IN VARCHAR2 Required
6406: -- Translated error message text
6407: -- : p_program_id IN NUMBER Required
6408: -- Concurrent program ID
6732: DOCUMENT_INDEX,
6733: FILE_NAME,
6734: CATEGORY_NAME_TXT,
6735: DOCUMENT_DESC
6736: FROM OKC_REP_IMP_DOCUMENTS_T
6737: WHERE IMP_CONTRACT_ID = p_imp_contract_id
6738: ORDER BY DOCUMENT_INDEX;
6739:
6740: l_imp_documents_rec IMP_DOCUMENTS_CSR%ROWTYPE;