256: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
257: SELECT contract_type, contract_id, contract_version_num, run_id, valid_flag
258: INTO p_contract_rec.contract_type, p_contract_rec.contract_id,
259: p_contract_rec.contract_version_num, p_contract_rec.run_id, p_contract_rec.valid_flag
260: FROM okc_rep_imp_contracts_t
261: WHERE run_id = l_run_id;
262: END IF;
263:
264: IF (p_contract_rec.valid_flag <> 'Y') THEN
303: IF NOT FND_API.Compatible_API_Call( l_api_version, p_api_version, l_api_name, G_PKG_NAME) THEN
304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
305: END IF;
306:
307: SELECT OKC_REP_IMP_CONTRACTS_T_S.NEXTVAL INTO x_imp_contract_id FROM dual;
308:
309:
310: INSERT INTO okc_rep_imp_contracts_t(run_id,
311: imp_contract_id,
306:
307: SELECT OKC_REP_IMP_CONTRACTS_T_S.NEXTVAL INTO x_imp_contract_id FROM dual;
308:
309:
310: INSERT INTO okc_rep_imp_contracts_t(run_id,
311: imp_contract_id,
312: contract_number ,
313: contract_name ,
314: contract_version_num ,
717: l_where_clause VARCHAR2(2000);
718: l_update_query VARCHAR2(5000);
719: l_row_notfound BOOLEAN := FALSE;
720: l_organization_name HR_ORGANIZATION_UNITS.NAME%TYPE;
721: l_request_id okc_rep_imp_contracts_t.request_id%TYPE := fnd_global.conc_request_id;
722: l_contract_type VARCHAR2(30);
723:
724: l_return_status VARCHAR2(1);
725: l_msg_count NUMBER;
812:
813: SELECT okc_rep_import_run_id_s.NEXTVAL INTO l_run_id FROM dual;
814:
815: --stamp the request id column for the records that are being imported.
816: --update OKC_REP_IMP_CONTRACTS_T with the run_id and request_id generated
817:
818: l_update_query := 'UPDATE OKC_REP_IMP_CONTRACTS_T
819: SET run_id = '|| l_run_id||' , request_id = ' || l_request_id ||
820: ' WHERE nvl(valid_flag, ''U'') IN (''U'', ''Y'')
814:
815: --stamp the request id column for the records that are being imported.
816: --update OKC_REP_IMP_CONTRACTS_T with the run_id and request_id generated
817:
818: l_update_query := 'UPDATE OKC_REP_IMP_CONTRACTS_T
819: SET run_id = '|| l_run_id||' , request_id = ' || l_request_id ||
820: ' WHERE nvl(valid_flag, ''U'') IN (''U'', ''Y'')
821: AND run_id IS NULL ' || l_where_clause;
822:
843: return;
844: END IF;
845:
846: --Update valid_flag = 'U' for records with valid flag null
847: UPDATE OKC_REP_IMP_CONTRACTS_T
848: SET valid_flag = 'U'
849: WHERE run_id = l_run_id
850: AND valid_flag IS NULL;
851:
849: WHERE run_id = l_run_id
850: AND valid_flag IS NULL;
851:
852: --update child tables run_id for all the records with imp_contract_id = imp_contract_id
853: --from OKC_REP_IMP_CONTRACTS_T with the run_id generated
854:
855: --update okc_rep_imp_parties_t
856: UPDATE okc_rep_imp_parties_t
857: SET run_id = l_run_id,
856: UPDATE okc_rep_imp_parties_t
857: SET run_id = l_run_id,
858: request_id = l_request_id
859: WHERE imp_contract_id IN (SELECT imp_contract_id
860: FROM OKC_REP_IMP_CONTRACTS_T
861: WHERE run_id = l_run_id);
862:
863: IF (l_debug = 'Y') THEN
864: okc_debug.log('700: After UPDATE okc_rep_imp_parties_t ', 1);
868: UPDATE okc_rep_imp_contacts_t
869: SET run_id = l_run_id,
870: request_id = l_request_id
871: WHERE imp_contract_id IN (SELECT imp_contract_id
872: FROM OKC_REP_IMP_CONTRACTS_T
873: WHERE run_id = l_run_id);
874:
875: IF (l_debug = 'Y') THEN
876: okc_debug.log('800: After UPDATE okc_rep_imp_contacts_t ', 1);
880: UPDATE okc_rep_imp_risks_t
881: SET run_id = l_run_id,
882: request_id = l_request_id
883: WHERE imp_contract_id IN (SELECT imp_contract_id
884: FROM OKC_REP_IMP_CONTRACTS_T
885: WHERE run_id = l_run_id);
886:
887: IF (l_debug = 'Y') THEN
888: okc_debug.log('900: After UPDATE okc_rep_imp_risks_t ', 1);
893: UPDATE OKC_REP_IMP_DOCUMENTS_T
894: SET run_id = l_run_id,
895: request_id = l_request_id
896: WHERE imp_contract_id IN (SELECT imp_contract_id
897: FROM OKC_REP_IMP_CONTRACTS_T
898: WHERE run_id = l_run_id);
899:
900: IF (l_debug = 'Y') THEN
901: okc_debug.log('1000: After UPDATE OKC_REP_IMP_DOCUMENTS_T ', 1);