[Home] [Help]
44: WHERE chr_id = contract_id AND rle_code = g_vendor_rle_code;
45:
46: CURSOR cur_k_header(parent_agreement_number VARCHAR2) IS
47: SELECT v.id
48: FROM okc_k_headers_v v
49: WHERE v.contract_number = parent_agreement_number;
50:
51: /*---------------------------------------------------------------------------+
52: | |
252: x_chrv_rec => x_header_rec,
253: x_khrv_rec => x_k_header_rec);
254: x_chrv_rec := x_header_rec;
255: x_khrv_rec := x_k_header_rec;
256: -- if the insert in the okc_k_headers_v is successful,then insert a record into okc_k_processes_v
257:
258: IF (l_return_status = OKL_API.G_RET_STS_SUCCESS) THEN
259:
260: IF (((p_hdr_rec.p_workflow_process) <> OKL_API.G_MISS_NUM) AND ((p_hdr_rec.p_workflow_process) IS NOT NULL))THEN
627: l_hdr_rec program_header_rec_type;
628:
629: /*CURSOR cur_k_header(parent_agreement_number varchar2) is
630: SELECT v.id
631: FROM okc_k_headers_v v
632: WHERE v.contract_number = parent_agreement_number;
633: */
634:
635: CURSOR cur_object_id(khr_id NUMBER) IS
1046: x_msg_count OUT NOCOPY NUMBER,
1047: x_msg_data OUT NOCOPY VARCHAR2,
1048: p_hdr_rec IN program_header_rec_type,
1049: p_program_id IN okl_k_headers_full_v.id%TYPE,
1050: p_parent_agreement_id IN okc_k_headers_v.ID%TYPE DEFAULT NULL)
1051: IS
1052:
1053: -- check for whether update is allowed for this contract
1054: -- check for whether workflow process is active for this contract
1111:
1112: l_access_level OKC_ROLE_SOURCES.access_level%TYPE;
1113:
1114: /* Manu Bug #4671978 27-Oct-2005 Begin */
1115: CURSOR cl_get_gov_id(p_program_id OKC_K_HEADERS_V.ID%TYPE) IS
1116: SELECT ID FROM OKC_GOVERNANCES WHERE DNZ_CHR_ID = p_program_id;
1117:
1118: l_gov_id OKC_GOVERNANCES.ID%TYPE;
1119: parent_is_not_null BOOLEAN;
1632: p_init_msg_list IN VARCHAR2 DEFAULT OKL_API.G_FALSE,
1633: x_return_status OUT NOCOPY VARCHAR2,
1634: x_msg_count OUT NOCOPY NUMBER,
1635: x_msg_data OUT NOCOPY VARCHAR2,
1636: p_program_id IN OKC_K_HEADERS_V.ID%TYPE) IS
1637:
1638: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE := NULL;
1639: l_cr_id OKL_VP_CHANGE_REQUESTS.ID%TYPE := NULL;
1640: l_cr_ret_sts_code okl_vp_change_requests.status_code%TYPE := NULL;
1634: x_msg_count OUT NOCOPY NUMBER,
1635: x_msg_data OUT NOCOPY VARCHAR2,
1636: p_program_id IN OKC_K_HEADERS_V.ID%TYPE) IS
1637:
1638: l_sts_code OKC_K_HEADERS_V.STS_CODE%TYPE := NULL;
1639: l_cr_id OKL_VP_CHANGE_REQUESTS.ID%TYPE := NULL;
1640: l_cr_ret_sts_code okl_vp_change_requests.status_code%TYPE := NULL;
1641: l_cr_status_code okl_vp_change_requests.status_code%TYPE := NULL;
1642: l_cr_type okl_vp_change_requests.change_type_code%TYPE := NULL;
1639: l_cr_id OKL_VP_CHANGE_REQUESTS.ID%TYPE := NULL;
1640: l_cr_ret_sts_code okl_vp_change_requests.status_code%TYPE := NULL;
1641: l_cr_status_code okl_vp_change_requests.status_code%TYPE := NULL;
1642: l_cr_type okl_vp_change_requests.change_type_code%TYPE := NULL;
1643: l_incomplete_status_code OKC_K_HEADERS_V.STS_CODE%TYPE := 'INCOMPLETE';
1644:
1645: l_return_status VARCHAR2(1) := OKL_API.G_RET_STS_SUCCESS;
1646:
1647: l_msg_count NUMBER;
1650:
1651: l_api_name CONSTANT VARCHAR2(30) := 'passed_to_incomplete';
1652:
1653: -- cursor to get contract status
1654: CURSOR l_sts_code_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) is
1655: SELECT sts_code
1656: FROM okc_k_headers_v
1657: WHERE id = p_chr_id;
1658:
1652:
1653: -- cursor to get contract status
1654: CURSOR l_sts_code_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) is
1655: SELECT sts_code
1656: FROM okc_k_headers_v
1657: WHERE id = p_chr_id;
1658:
1659: -- cursor to get the corresponding Change Request record
1660: CURSOR l_cr_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) is
1656: FROM okc_k_headers_v
1657: WHERE id = p_chr_id;
1658:
1659: -- cursor to get the corresponding Change Request record
1660: CURSOR l_cr_csr(p_chr_id OKC_K_HEADERS_V.ID%TYPE) is
1661: SELECT id, status_code, change_type_code
1662: FROM OKL_VP_CHANGE_REQUESTS
1663: WHERE id = (SELECT crs_id FROM okl_k_headers WHERE id = p_chr_id);
1664: