[Home] [Help]
5353: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
5354:
5355:
5356: --Update risks table with the contract id
5357: UPDATE okc_rep_imp_risks_t
5358: SET
5359: business_document_id = l_contract_id
5360: WHERE IMP_CONTRACT_ID = l_import_contracts_rec.imp_contract_id;
5361:
6051: program_id,
6052: program_login_id,
6053: program_application_id,
6054: request_id
6055: FROM okc_rep_imp_risks_t
6056: WHERE run_id = p_run_id
6057: AND valid_flag = 'Y'
6058: --AND created_by = FND_GLOBAL.USER_ID
6059: AND business_document_id >= l_start_contract_id
8888: --API name : validate_import_risks
8889: --Type : Private.
8890: --Function : Validates contract risks during import
8891: --Pre-reqs : Currently only called from repository import.
8892: -- : Contacts should be saved to the okc_rep_imp_risks_t table
8893: --Parameters :
8894: --IN : p_api_version IN NUMBER Required
8895: -- : p_init_msg_list IN VARCHAR2 Optional
8896: -- Default = FND_API.G_FALSE
8942: PROGRAM_LOGIN_ID,
8943: PROGRAM_APPLICATION_ID,
8944: REQUEST_ID,
8945: RUN_ID
8946: FROM okc_rep_imp_risks_t
8947: WHERE RUN_ID = p_run_id
8948: AND Nvl(VALID_FLAG,'U') IN ('U', 'Y');
8949:
8950: l_import_risks_rec IMPORT_RISKS_CSR%ROWTYPE;
9158:
9159:
9160: --Update the record
9161: IF (l_valid_flag = 'Y') THEN
9162: UPDATE okc_rep_imp_risks_t
9163: SET
9164: business_document_type = l_business_document_type,
9165: business_document_id = l_business_document_id,
9166: business_document_version = l_business_document_version,
9172: AND risk_event_txt = l_import_risks_rec.risk_event_txt;
9173: END IF;
9174:
9175: IF (l_valid_flag = 'N') THEN
9176: UPDATE okc_rep_imp_risks_t
9177: SET
9178: VALID_FLAG = l_valid_flag
9179: WHERE IMP_CONTRACT_ID = l_import_risks_rec.imp_contract_id
9180: AND risk_event_txt = l_import_risks_rec.risk_event_txt;