293: l_dummy_var VARCHAR2(1) := '?';
294: CURSOR l_chrv_csr IS
295: SELECT 'x'
296: --npalepu 08-11-2005 modified for bug # 4691662.
297: --Replaced table okc_k_headers_b with headers_All_b table
298: /* FROM OKC_K_HEADERS_B */
299: FROM OKC_K_HEADERS_ALL_B
300: --end npalepu
301: WHERE id = p_chrv_rec.chr_id_response;
294: CURSOR l_chrv_csr IS
295: SELECT 'x'
296: --npalepu 08-11-2005 modified for bug # 4691662.
297: --Replaced table okc_k_headers_b with headers_All_b table
298: /* FROM OKC_K_HEADERS_B */
299: FROM OKC_K_HEADERS_ALL_B
300: --end npalepu
301: WHERE id = p_chrv_rec.chr_id_response;
302:
377: l_dummy_var VARCHAR2(1) := '?';
378: CURSOR l_chrv_csr IS
379: SELECT 'x'
380: --npalepu 08-11-2005 modified for bug # 4691662.
381: --Replaced table okc_k_headers_b with headers_All_b table
382: /* FROM OKC_K_HEADERS_B */
383: FROM OKC_K_HEADERS_ALL_B
384: --end npalepu
385: WHERE id = p_chrv_rec.chr_id_award;
378: CURSOR l_chrv_csr IS
379: SELECT 'x'
380: --npalepu 08-11-2005 modified for bug # 4691662.
381: --Replaced table okc_k_headers_b with headers_All_b table
382: /* FROM OKC_K_HEADERS_B */
383: FROM OKC_K_HEADERS_ALL_B
384: --end npalepu
385: WHERE id = p_chrv_rec.chr_id_award;
386:
2357:
2358: l_id NUMBER;
2359:
2360: CURSOR l_seq_csr IS
2361: SELECT okc_k_headers_b_s.NEXTVAL
2362: FROM dual;
2363:
2364: BEGIN
2365:
2445:
2446: DELETE FROM OKC_K_HEADERS_TL T
2447: WHERE NOT EXISTS (
2448: SELECT NULL
2449: FROM OKC_K_HEADERS_B B
2450: WHERE B.ID = T.ID
2451: );
2452:
2453: UPDATE OKC_K_HEADERS_TL T SET (
2550: /*
2551: DELETE FROM OKC_K_HEADERS_TLH T
2552: WHERE NOT EXISTS (
2553: SELECT NULL
2554: FROM OKC_K_HEADERS_BH B
2555: WHERE B.ID = T.ID
2556: AND B.MAJOR_VERSION = T.MAJOR_VERSION
2557: );
2558:
4031: IS
4032: CURSOR l_chr_csr1 IS
4033: SELECT 'x'
4034: --npalepu 08-11-2005 modified for bug # 4691662.
4035: --Replaced table okc_k_headers_b with headers_All_b table
4036: /* FROM okc_k_headers_b */
4037: FROM okc_k_headers_all_b
4038: --end npalepu
4039: WHERE contract_number = p_chrv_rec.contract_number
4032: CURSOR l_chr_csr1 IS
4033: SELECT 'x'
4034: --npalepu 08-11-2005 modified for bug # 4691662.
4035: --Replaced table okc_k_headers_b with headers_All_b table
4036: /* FROM okc_k_headers_b */
4037: FROM okc_k_headers_all_b
4038: --end npalepu
4039: WHERE contract_number = p_chrv_rec.contract_number
4040: AND contract_number_modifier IS NULL
4042:
4043: CURSOR l_chr_csr2 IS
4044: SELECT 'x'
4045: --npalepu 08-11-2005 modified for bug # 4691662.
4046: --Replaced table okc_k_headers_b with headers_All_b table
4047: /* FROM okc_k_headers_b */
4048: FROM okc_k_headers_all_b
4049: --end npalepu
4050: WHERE contract_number = p_chrv_rec.contract_number
4043: CURSOR l_chr_csr2 IS
4044: SELECT 'x'
4045: --npalepu 08-11-2005 modified for bug # 4691662.
4046: --Replaced table okc_k_headers_b with headers_All_b table
4047: /* FROM okc_k_headers_b */
4048: FROM okc_k_headers_all_b
4049: --end npalepu
4050: WHERE contract_number = p_chrv_rec.contract_number
4051: AND contract_number_modifier = p_chrv_rec.contract_number_modifier
4116: ) RETURN VARCHAR2 IS
4117: CURSOR l_chr_csr1 IS
4118: SELECT 'x'
4119: --npalepu 08-11-2005 modified for bug # 4691662.
4120: --Replaced table okc_k_headers_b with headers_All_b table
4121: /* FROM okc_k_headers_b */
4122: FROM okc_k_headers_all_b
4123: --end npalepu
4124: WHERE contract_number = p_chrv_rec.contract_number
4117: CURSOR l_chr_csr1 IS
4118: SELECT 'x'
4119: --npalepu 08-11-2005 modified for bug # 4691662.
4120: --Replaced table okc_k_headers_b with headers_All_b table
4121: /* FROM okc_k_headers_b */
4122: FROM okc_k_headers_all_b
4123: --end npalepu
4124: WHERE contract_number = p_chrv_rec.contract_number
4125: AND contract_number_modifier IS NULL
4127:
4128: CURSOR l_chr_csr2 IS
4129: SELECT 'x'
4130: --npalepu 08-11-2005 modified for bug # 4691662.
4131: --Replaced table okc_k_headers_b with headers_All_b table
4132: /* FROM okc_k_headers_b */
4133: FROM okc_k_headers_all_b
4134: --end npalepu
4135: WHERE contract_number = p_chrv_rec.contract_number
4128: CURSOR l_chr_csr2 IS
4129: SELECT 'x'
4130: --npalepu 08-11-2005 modified for bug # 4691662.
4131: --Replaced table okc_k_headers_b with headers_All_b table
4132: /* FROM okc_k_headers_b */
4133: FROM okc_k_headers_all_b
4134: --end npalepu
4135: WHERE contract_number = p_chrv_rec.contract_number
4136: AND contract_number_modifier = p_chrv_rec.contract_number_modifier
5643: WHERE ID = p_chr_rec.id;
5644: l_api_version CONSTANT NUMBER := 1;
5645: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
5646: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5647: l_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5648: lc_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5649: l_row_notfound BOOLEAN := FALSE;
5650: lc_row_notfound BOOLEAN := FALSE;
5651: BEGIN
5644: l_api_version CONSTANT NUMBER := 1;
5645: l_api_name CONSTANT VARCHAR2(30) := 'B_lock_row';
5646: l_return_status VARCHAR2(1) := OKC_API.G_RET_STS_SUCCESS;
5647: l_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5648: lc_object_version_number OKC_K_HEADERS_B.OBJECT_VERSION_NUMBER%TYPE;
5649: l_row_notfound BOOLEAN := FALSE;
5650: lc_row_notfound BOOLEAN := FALSE;
5651: BEGIN
5652: