4949: AND valid_flag = 'Y';
4950:
4951: BEGIN
4952:
4953: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4954: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
4955: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4956:
4957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
4950:
4951: BEGIN
4952:
4953: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4954: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
4955: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4956:
4957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
4958: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id = ' || p_request_id);
4951: BEGIN
4952:
4953: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4954: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
4955: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4956:
4957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
4958: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id = ' || p_request_id);
4959:
4953: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4954: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
4955: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4956:
4957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
4958: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id = ' || p_request_id);
4959:
4960: l_insert_batch_size := 50;
4961: l_number_inserted := 0;
4954: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** BEGIN insert_prod_data *****');
4955: FND_FILE.PUT_LINE(FND_FILE.LOG, '**********************************');
4956:
4957: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_api_version = ' || p_api_version);
4958: FND_FILE.PUT_LINE(FND_FILE.LOG, 'p_request_id = ' || p_request_id);
4959:
4960: l_insert_batch_size := 50;
4961: l_number_inserted := 0;
4962: l_number_valid := -1;
4960: l_insert_batch_size := 50;
4961: l_number_inserted := 0;
4962: l_number_valid := -1;
4963:
4964: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_insert_batch_size = ' || l_insert_batch_size);
4965:
4966: -- Standard call to check for call compatibility.
4967: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
4968: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4987: OPEN contract_id_cur;
4988: FETCH contract_id_cur INTO l_min_contract_id, l_max_contract_id, l_number_valid;
4989: CLOSE contract_id_cur;
4990:
4991: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_number_valid = ' || l_number_valid);
4992:
4993: IF l_number_valid > 0 THEN
4994:
4995:
4992:
4993: IF l_number_valid > 0 THEN
4994:
4995:
4996: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_min_contract_id = ' || l_min_contract_id);
4997: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_max_contract_id = ' || l_max_contract_id);
4998:
4999: l_start_contract_id := l_min_contract_id;
5000:
4993: IF l_number_valid > 0 THEN
4994:
4995:
4996: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_min_contract_id = ' || l_min_contract_id);
4997: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_max_contract_id = ' || l_max_contract_id);
4998:
4999: l_start_contract_id := l_min_contract_id;
5000:
5001: FOR i IN 0..l_number_valid LOOP
4999: l_start_contract_id := l_min_contract_id;
5000:
5001: FOR i IN 0..l_number_valid LOOP
5002:
5003: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_start_contract_id = ' || l_start_contract_id);
5004:
5005: BEGIN
5006:
5007: SAVEPOINT before_insert_contracts;
5005: BEGIN
5006:
5007: SAVEPOINT before_insert_contracts;
5008:
5009: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** SAVEPOINT before_insert_contracts *****');
5010:
5011: --Bulk insert contracts
5012: INSERT INTO okc_rep_contracts_all
5013: (contract_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;
5084:
5085: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_contracts_all *****');
5086:
5087: --insert into contract parties
5088: INSERT INTO okc_rep_contract_parties
5089: (
5125: AND contract_id IS NOT NULL
5126: AND contract_id >= l_start_contract_id
5127: AND contract_id < l_start_contract_id + l_insert_batch_size;
5128:
5129: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_contract_parties *****');
5130:
5131: --insert into okc_rep_signature_details
5132: INSERT INTO OKC_REP_SIGNATURE_DETAILS
5133: (
5171: AND contract_id IS NOT NULL
5172: AND contract_id >= l_start_contract_id
5173: AND contract_id < l_start_contract_id + l_insert_batch_size;
5174:
5175: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO OKC_REP_SIGNATURE_DETAILS *****');
5176:
5177: --insert into status history
5178: INSERT INTO okc_rep_con_status_hist
5179: (
5206: AND created_by = FND_GLOBAL.USER_ID
5207: AND contract_id >= l_start_contract_id
5208: AND contract_id < l_start_contract_id + l_insert_batch_size;
5209:
5210: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_con_status_hist *****');
5211:
5212: COMMIT;
5213:
5214: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
5210: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** INSERT INTO okc_rep_con_status_hist *****');
5211:
5212: COMMIT;
5213:
5214: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
5215:
5216: l_start_contract_id := l_start_contract_id + l_insert_batch_size;
5217:
5218: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_start_contract_id = ' || l_start_contract_id);
5214: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** COMMIT *****');
5215:
5216: l_start_contract_id := l_start_contract_id + l_insert_batch_size;
5217:
5218: FND_FILE.PUT_LINE(FND_FILE.LOG, 'l_start_contract_id = ' || l_start_contract_id);
5219:
5220: EXIT WHEN l_start_contract_id > l_max_contract_id;
5221:
5222: EXCEPTION
5221:
5222: EXCEPTION
5223: WHEN OTHERS THEN
5224:
5225: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
5226: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5227:
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5229: x_number_inserted := 0;
5222: EXCEPTION
5223: WHEN OTHERS THEN
5224:
5225: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
5226: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5227:
5228: x_return_status := FND_API.G_RET_STS_ERROR;
5229: x_number_inserted := 0;
5230:
5233:
5234: --rollback to the
5235: ROLLBACK TO before_insert_contracts;
5236:
5237: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** ROLLBACK TO before_insert_contracts *****');
5238:
5239: --We also need to mark the documents as invalid
5240: --so that in the Java layer we won't add them as attachments
5241:
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 *****');
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 *****');
5256: END;
5257:
5258:
5259: END LOOP;
5257:
5258:
5259: END LOOP;
5260:
5261: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
5262:
5263: END IF;
5264:
5265:
5265:
5266: OPEN number_inserted_csr;
5267: FETCH number_inserted_csr INTO l_number_inserted;
5268:
5269: FND_FILE.PUT_LINE(FND_FILE.LOG, 'number_inserted_csr%ROWCOUNT = ' || number_inserted_csr%ROWCOUNT);
5270:
5271: CLOSE number_inserted_csr;
5272:
5273: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
5269: FND_FILE.PUT_LINE(FND_FILE.LOG, 'number_inserted_csr%ROWCOUNT = ' || number_inserted_csr%ROWCOUNT);
5270:
5271: CLOSE number_inserted_csr;
5272:
5273: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
5274:
5275: x_number_inserted := l_number_inserted;
5276:
5277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
5273: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END LOOP *****');
5274:
5275: x_number_inserted := l_number_inserted;
5276:
5277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
5278:
5279: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5280: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
5281: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5275: x_number_inserted := l_number_inserted;
5276:
5277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
5278:
5279: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5280: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
5281: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5282: EXCEPTION
5283:
5276:
5277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
5278:
5279: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5280: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
5281: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5282: EXCEPTION
5283:
5284: WHEN FND_API.G_EXC_ERROR THEN
5277: FND_FILE.PUT_LINE(FND_FILE.LOG, 'x_number_inserted = ' || x_number_inserted);
5278:
5279: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5280: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** END insert_prod_data *****');
5281: FND_FILE.PUT_LINE(FND_FILE.LOG, '********************************');
5282: EXCEPTION
5283:
5284: WHEN FND_API.G_EXC_ERROR THEN
5285:
5282: EXCEPTION
5283:
5284: WHEN FND_API.G_EXC_ERROR THEN
5285:
5286: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
5287: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5288:
5289: --close cursors
5290: IF (number_inserted_csr%ISOPEN) THEN
5283:
5284: WHEN FND_API.G_EXC_ERROR THEN
5285:
5286: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN WHEN FND_API.G_EXC_ERROR *****');
5287: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5288:
5289: --close cursors
5290: IF (number_inserted_csr%ISOPEN) THEN
5291: CLOSE number_inserted_csr ;
5302: p_data => x_msg_data);
5303:
5304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5305:
5306: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
5307: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5308:
5309: --close cursors
5310: IF (number_inserted_csr%ISOPEN) THEN
5303:
5304: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
5305:
5306: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN FND_API.G_EXC_UNEXPECTED_ERROR *****');
5307: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5308:
5309: --close cursors
5310: IF (number_inserted_csr%ISOPEN) THEN
5311: CLOSE number_inserted_csr ;
5322: p_data => x_msg_data);
5323:
5324: WHEN OTHERS THEN
5325:
5326: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
5327: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5328:
5329: --close cursors
5330: IF (number_inserted_csr%ISOPEN) THEN
5323:
5324: WHEN OTHERS THEN
5325:
5326: FND_FILE.PUT_LINE(FND_FILE.LOG, '***** EXCEPTION WHEN OTHERS *****');
5327: FND_FILE.PUT_LINE(FND_FILE.LOG, SQLERRM);
5328:
5329: --close cursors
5330: IF (number_inserted_csr%ISOPEN) THEN
5331: CLOSE number_inserted_csr ;