[Home] [Help]
1147: ---------------------------------------------------------------------------
1148: -- PROCEDURE validate_fk_khr_id - PostGen-3
1149: ---------------------------------------------------------------------------
1150: -- sjalasut, modified the procedure to validate incomming value of khr_id
1151: -- with okl_k_headers. other validations would continue to exist to check
1152: -- that if a khr_id is being stored, then it has valid fk referenced with
1153: -- okl_k_headers. changes made as part of OKLR12B disbursements project
1154: -- when khr_id is null, no error is reported.
1155: PROCEDURE validate_fk_khr_id
1149: ---------------------------------------------------------------------------
1150: -- sjalasut, modified the procedure to validate incomming value of khr_id
1151: -- with okl_k_headers. other validations would continue to exist to check
1152: -- that if a khr_id is being stored, then it has valid fk referenced with
1153: -- okl_k_headers. changes made as part of OKLR12B disbursements project
1154: -- when khr_id is null, no error is reported.
1155: PROCEDURE validate_fk_khr_id
1156: ( x_return_status OUT NOCOPY VARCHAR2,
1157: p_tapv_rec IN tapv_rec_type
1159: l_return_status varchar2(1) := OKL_Api.G_RET_STS_SUCCESS;
1160: l_dummy_var VARCHAR2(1) := '?';
1161: CURSOR l_khrv_csr IS
1162: SELECT 'x'
1163: FROM OKL_K_HEADERS
1164: WHERE id = p_tapv_rec.khr_id;
1165: BEGIN
1166: x_return_status := OKL_Api.G_RET_STS_SUCCESS;
1167: IF(p_tapv_rec.khr_id IS NOT NULL) THEN
1186: p_token1_value => 'khr_id',
1187: p_token2 => g_child_table_token,
1188: p_token2_value => g_view,
1189: p_token3 => g_parent_table_token,
1190: p_token3_value => 'OKL_K_HEADERS_V');
1191: x_return_status := OKL_Api.G_RET_STS_ERROR;
1192: RAISE G_EXCEPTION_HALT_VALIDATION;
1193: END IF;
1194: END IF;