[Home] [Help]
3140:
3141: CURSOR CONTRACT_INTENT_CSR (p_imp_contract_id NUMBER) IS
3142: SELECT INTENT
3143: FROM OKC_BUS_DOC_TYPES_V bus_doc,
3144: OKC_REP_IMP_CONTRACTS_T temp
3145: WHERE bus_doc.name = temp.contract_type_txt
3146: AND temp.imp_contract_id = p_imp_contract_id
3147: AND bus_doc.document_type_class = 'REPOSITORY';
3148:
3441: END IF;
3442: --contract intent does not exist
3443: --this means that contract_type_txt is invalid
3444: --we need to flag the contract header as invalid
3445: UPDATE OKC_REP_IMP_CONTRACTS_T
3446: SET VALID_FLAG = 'N'
3447: WHERE IMP_CONTRACT_ID = l_import_parties_rec.imp_contract_id;
3448:
3449: --Also populate the error table
3589: --API name : validate_import_contracts
3590: --Type : Private.
3591: --Function : Validates contracts during import
3592: --Pre-reqs : Currently only called from repository import.
3593: -- : Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
3594: --Parameters :
3595: --IN : p_api_version IN NUMBER Required
3596: -- : p_init_msg_list IN VARCHAR2 Optional
3597: -- Default = FND_API.G_FALSE
3663: FROM OKC_REP_CONTRACTS_ALL
3664: WHERE UPPER(CONTRACT_NUMBER) = UPPER(p_contract_number)
3665: UNION
3666: SELECT CONTRACT_NUMBER
3667: FROM OKC_REP_IMP_CONTRACTS_T
3668: WHERE UPPER(CONTRACT_NUMBER) = UPPER(p_contract_number)
3669: AND IMP_CONTRACT_ID <> p_imp_contract_id
3670: --fix issue#7 in bug 4107212, add the following where clause
3671: AND VALID_FLAG <> 'N';
3694: ORIG_SYSTEM_REFERENCE_CODE,
3695: ORIG_SYSTEM_REFERENCE_ID1,
3696: ORIG_SYSTEM_REFERENCE_ID2
3697: FROM
3698: OKC_REP_IMP_CONTRACTS_T
3699: WHERE
3700: REQUEST_ID = p_request_id
3701: AND VALID_FLAG IN ('U', 'Y');
3702:
3716:
3717: CURSOR CONTRACT_INTENT_CSR (p_imp_contract_id NUMBER) IS
3718: SELECT INTENT
3719: FROM OKC_BUS_DOC_TYPES_V bus_doc,
3720: OKC_REP_IMP_CONTRACTS_T temp
3721: WHERE bus_doc.name = temp.contract_type_txt
3722: AND temp.imp_contract_id = p_imp_contract_id
3723: AND bus_doc.document_type_class = 'REPOSITORY';
3724:
4660: END IF;
4661:
4662: IF (l_valid_flag = 'Y') THEN
4663: --Update the record
4664: UPDATE OKC_REP_IMP_CONTRACTS_T
4665: SET
4666: CONTRACT_ID = l_contract_id,
4667: CONTRACT_NUMBER = l_contract_number,
4668: CONTRACT_STATUS_CODE = l_status_code,
4679: END IF;
4680:
4681:
4682: IF(l_valid_flag = 'N') THEN
4683: UPDATE OKC_REP_IMP_CONTRACTS_T
4684: SET
4685: VALID_FLAG = l_valid_flag
4686: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
4687: END IF;
4889: -- Start of comments
4890: --API name : insert_prod_data
4891: --Type : Private.
4892: --Function : Insert validated contracts and parties into production tables
4893: -- i.e., move from OKC_REP_IMP_CONTRACTS_T and OKC_REP_IMP_PARTIES_T
4894: -- to OKC_REP_CONTRACTS_ALL AND OKC_REP_CONTRACT_PARTIES
4895: -- It also insert a record into OKC_REP_CON_STATUS_HIST for every record
4896: -- inserted into OKC_REP_CONTRACTS_ALL.
4897: --Pre-reqs : Currently only called from repository import.
4894: -- to OKC_REP_CONTRACTS_ALL AND OKC_REP_CONTRACT_PARTIES
4895: -- It also insert a record into OKC_REP_CON_STATUS_HIST for every record
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
4895: -- It also insert a record into OKC_REP_CON_STATUS_HIST for every record
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
4943: SELECT
4944: MIN(contract_id) AS min_contract_id,
4945: MAX(contract_id) AS max_contract_id,
4946: COUNT(contract_id)
4947: FROM okc_rep_imp_contracts_t
4948: WHERE request_id = p_request_id
4949: AND valid_flag = 'Y';
4950:
4951: BEGIN
5075: 1, --latest_signed_ver_number,
5076: orig_system_reference_code,
5077: orig_system_reference_id1,
5078: orig_system_reference_id2
5079: FROM okc_rep_imp_contracts_t
5080: WHERE request_id = p_request_id
5081: AND valid_flag = 'Y'
5082: AND contract_id >= l_start_contract_id
5083: AND contract_id < l_start_contract_id + l_insert_batch_size;
5356: -- the valid ones into production tables:
5357: -- okc_rep_contracts_all and okc_rep_contract_parties
5358: -- Note that contract documents are inserted in the Java layer after this
5359: --Pre-reqs : Currently only called from repository import.
5360: -- : Contracts should be saved to the OKC_REP_IMP_CONTRACTS_T table
5361: --Parameters :
5362: --IN : p_api_version IN NUMBER Required
5363: -- : p_init_msg_list IN VARCHAR2 Optional
5364: -- Default = FND_API.G_FALSE
5503: --API name : delete_import_contract
5504: --Type : Private.
5505: --Function : (1) Delete the imported contract and its parties
5506: -- by calling okc_rep_contract_process_pvt.delete_contract
5507: -- (2) Set the contract's valid_flag to 'N' in okc_rep_imp_contracts_t
5508: -- (3) Insert an error message in okc_rep_imp_errors_t
5509: -- This procedure does the cleanup due to an error adding attachments
5510: -- in the Java layer during repository import
5511: --Pre-reqs : None
5607: 'Called okc_rep_contract_process_pvt.delete_contract');
5608: END IF;
5609:
5610: -- Update valid_flag
5611: UPDATE OKC_REP_IMP_CONTRACTS_T
5612: SET valid_flag = 'N'
5613: WHERE CONTRACT_ID = p_contract_id;
5614:
5615: IF ( FND_LOG.LEVEL_STATEMENT >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5780: --IN : p_api_version IN NUMBER Required
5781: -- : p_init_msg_list IN VARCHAR2 Optional
5782: -- Default = FND_API.G_FALSE
5783: -- : p_imp_contract_id IN NUMBER Required
5784: -- okc_rep_imp_contracts_t.imp_contract_id
5785: -- End of comments
5786: FUNCTION get_csv_error_string(
5787: p_api_version IN NUMBER,
5788: p_init_msg_list IN VARCHAR2,
5823: VERSION_COMMENTS,
5824: ORIG_SYSTEM_REFERENCE_CODE,
5825: ORIG_SYSTEM_REFERENCE_ID1,
5826: ORIG_SYSTEM_REFERENCE_ID2
5827: FROM OKC_REP_IMP_CONTRACTS_T
5828: WHERE IMP_CONTRACT_ID = p_imp_contract_id;
5829:
5830: l_imp_contract_rec IMP_CONTRACT_CSR%ROWTYPE;
5831:
5884: FETCH IMP_CONTRACT_CSR INTO l_imp_contract_rec;
5885: IF IMP_CONTRACT_CSR%NOTFOUND THEN
5886: IF ( FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
5887: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5888: 'p_imp_contract_id does not exist in okc_rep_imp_contracts_t: '||p_imp_contract_id);
5889: FND_LOG.STRING( FND_LOG.LEVEL_PROCEDURE ,G_MODULE||l_api_name,
5890: 'returning null');
5891: END IF;
5892: RETURN l_csv_error_string;