5645: AND valid_flag = 'Y';
5646:
5647: BEGIN
5648:
5649: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5650: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
5651: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5652:
5653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
5646:
5647: BEGIN
5648:
5649: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5650: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
5651: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5652:
5653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
5654: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_run_id = ' || p_run_id);
5647: BEGIN
5648:
5649: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5650: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
5651: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5652:
5653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
5654: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_run_id = ' || p_run_id);
5655:
5649: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5650: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
5651: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5652:
5653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
5654: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_run_id = ' || p_run_id);
5655:
5656: l_insert_batch_size := 50;
5657: l_number_inserted := 0;
5650: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
5651: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
5652:
5653: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
5654: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_run_id = ' || p_run_id);
5655:
5656: l_insert_batch_size := 50;
5657: l_number_inserted := 0;
5658: l_number_valid := -1;
5656: l_insert_batch_size := 50;
5657: l_number_inserted := 0;
5658: l_number_valid := -1;
5659:
5660: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_insert_batch_size = ' || l_insert_batch_size);
5661:
5662: -- Standard call to check for call compatibility.
5663: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
5664: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
5683: OPEN contract_id_cur;
5684: FETCH contract_id_cur INTO l_min_contract_id, l_max_contract_id, l_number_valid;
5685: CLOSE contract_id_cur;
5686:
5687: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_number_valid = ' || l_number_valid);
5688:
5689: IF l_number_valid > 0 THEN
5690:
5691:
5688:
5689: IF l_number_valid > 0 THEN
5690:
5691:
5692: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_min_contract_id = ' || l_min_contract_id);
5693: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_max_contract_id = ' || l_max_contract_id);
5694:
5695: l_start_contract_id := l_min_contract_id;
5696:
5689: IF l_number_valid > 0 THEN
5690:
5691:
5692: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_min_contract_id = ' || l_min_contract_id);
5693: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_max_contract_id = ' || l_max_contract_id);
5694:
5695: l_start_contract_id := l_min_contract_id;
5696:
5697: FOR i IN 0..l_number_valid LOOP
5695: l_start_contract_id := l_min_contract_id;
5696:
5697: FOR i IN 0..l_number_valid LOOP
5698:
5699: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_start_contract_id = ' || l_start_contract_id);
5700:
5701: BEGIN
5702:
5703: SAVEPOINT before_insert_contracts;
5701: BEGIN
5702:
5703: SAVEPOINT before_insert_contracts;
5704:
5705: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** SAVEPOINT before_insert_contracts *****');
5706:
5707: --Bulk insert contracts
5708: INSERT INTO okc_rep_contracts_all
5709: (contract_id,
5835: AND valid_flag = 'Y'
5836: AND contract_id >= l_start_contract_id
5837: AND contract_id < l_start_contract_id + l_insert_batch_size;
5838:
5839: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_contracts_all *****');
5840:
5841: --insert into contract parties
5842: INSERT INTO okc_rep_contract_parties
5843: (
5879: AND contract_id IS NOT NULL
5880: AND contract_id >= l_start_contract_id
5881: AND contract_id < l_start_contract_id + l_insert_batch_size;
5882:
5883: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_contract_parties *****');
5884:
5885: --insert into okc_rep_signature_details
5886: INSERT INTO OKC_REP_SIGNATURE_DETAILS
5887: (
5927: AND sig.contract_id >= l_start_contract_id
5928: AND sig.contract_id < l_start_contract_id + l_insert_batch_size
5929: AND sig.contract_id = con.contract_id;
5930:
5931: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO OKC_REP_SIGNATURE_DETAILS *****');
5932:
5933: --insert into status history
5934: INSERT INTO okc_rep_con_status_hist
5935: (
5962: AND created_by = FND_GLOBAL.USER_ID
5963: AND contract_id >= l_start_contract_id
5964: AND contract_id < l_start_contract_id + l_insert_batch_size;
5965:
5966: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_con_status_hist *****');
5967:
5968: --kkolukul
5969: --insert into party contacts
5970: INSERT INTO okc_rep_party_contacts
6007: AND contract_id >= l_start_contract_id
6008: AND contract_id < l_start_contract_id + l_insert_batch_size;
6009:
6010:
6011: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_party_contacts *****');
6012:
6013: --insert into contract risks
6014: INSERT INTO okc_contract_risks
6015: (business_document_type,
6058: --AND created_by = FND_GLOBAL.USER_ID
6059: AND business_document_id >= l_start_contract_id
6060: AND business_document_id < l_start_contract_id + l_insert_batch_size;
6061:
6062: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_contract_risks *****');
6063:
6064: COMMIT;
6065:
6066: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
6062: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_contract_risks *****');
6063:
6064: COMMIT;
6065:
6066: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
6067:
6068: l_start_contract_id := l_start_contract_id + l_insert_batch_size;
6069:
6070: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_start_contract_id = ' || l_start_contract_id);
6066: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
6067:
6068: l_start_contract_id := l_start_contract_id + l_insert_batch_size;
6069:
6070: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_start_contract_id = ' || l_start_contract_id);
6071:
6072: EXIT WHEN l_start_contract_id > l_max_contract_id;
6073:
6074: EXCEPTION
6073:
6074: EXCEPTION
6075: WHEN OTHERS THEN
6076:
6077: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
6078: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6079:
6080: x_return_status := FND_API.G_RET_STS_ERROR;
6081: x_number_inserted := 0;
6074: EXCEPTION
6075: WHEN OTHERS THEN
6076:
6077: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
6078: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6079:
6080: x_return_status := FND_API.G_RET_STS_ERROR;
6081: x_number_inserted := 0;
6082:
6085:
6086: --rollback to the
6087: ROLLBACK TO before_insert_contracts;
6088:
6089: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** ROLLBACK TO before_insert_contracts *****');
6090:
6091: --We also need to mark the documents as invalid
6092: --so that in the Java layer we won't add them as attachments
6093:
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 *****');
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 *****');
6108: END;
6109:
6110:
6111: END LOOP;
6109:
6110:
6111: END LOOP;
6112:
6113: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
6114:
6115: END IF;
6116:
6117:
6117:
6118: OPEN number_inserted_csr;
6119: FETCH number_inserted_csr INTO l_number_inserted;
6120:
6121: FND_FILE.PUT_LINE(FND_FILE.LOG, 'number_inserted_csr%ROWCOUNT = ' || number_inserted_csr%ROWCOUNT);
6122:
6123: CLOSE number_inserted_csr;
6124:
6125: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
6121: FND_FILE.PUT_LINE(FND_FILE.LOG, 'number_inserted_csr%ROWCOUNT = ' || number_inserted_csr%ROWCOUNT);
6122:
6123: CLOSE number_inserted_csr;
6124:
6125: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
6126:
6127: x_number_inserted := l_number_inserted;
6128:
6129: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
6125: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
6126:
6127: x_number_inserted := l_number_inserted;
6128:
6129: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
6130:
6131: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6132: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
6133: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6127: x_number_inserted := l_number_inserted;
6128:
6129: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
6130:
6131: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6132: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
6133: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6134: EXCEPTION
6135:
6128:
6129: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
6130:
6131: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6132: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
6133: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6134: EXCEPTION
6135:
6136: WHEN FND_API.G_EXC_ERROR THEN
6129: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
6130:
6131: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6132: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
6133: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
6134: EXCEPTION
6135:
6136: WHEN FND_API.G_EXC_ERROR THEN
6137:
6134: EXCEPTION
6135:
6136: WHEN FND_API.G_EXC_ERROR THEN
6137:
6138: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
6139: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6140:
6141: --close cursors
6142: IF (number_inserted_csr%ISOPEN) THEN
6135:
6136: WHEN FND_API.G_EXC_ERROR THEN
6137:
6138: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
6139: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6140:
6141: --close cursors
6142: IF (number_inserted_csr%ISOPEN) THEN
6143: CLOSE number_inserted_csr ;
6154: p_data => x_msg_data);
6155:
6156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6157:
6158: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
6159: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6160:
6161: --close cursors
6162: IF (number_inserted_csr%ISOPEN) THEN
6155:
6156: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
6157:
6158: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
6159: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6160:
6161: --close cursors
6162: IF (number_inserted_csr%ISOPEN) THEN
6163: CLOSE number_inserted_csr ;
6174: p_data => x_msg_data);
6175:
6176: WHEN OTHERS THEN
6177:
6178: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
6179: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6180:
6181: --close cursors
6182: IF (number_inserted_csr%ISOPEN) THEN
6175:
6176: WHEN OTHERS THEN
6177:
6178: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
6179: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
6180:
6181: --close cursors
6182: IF (number_inserted_csr%ISOPEN) THEN
6183: CLOSE number_inserted_csr ;