91: p_contractbilling_rec IN ContractBilling_Rec_Type
92: )
93: RETURN VARCHAR2 IS
94: item_not_found_error EXCEPTION;
95: CURSOR cs_contracts_all_pk_csr (p_contract_id IN NUMBER) IS
96: SELECT *
97: FROM Cs_Contracts_All
98: WHERE cs_contracts_all.contract_id = p_contract_id;
99: l_cs_contracts_all_pk cs_contracts_all_pk_csr%ROWTYPE;
93: RETURN VARCHAR2 IS
94: item_not_found_error EXCEPTION;
95: CURSOR cs_contracts_all_pk_csr (p_contract_id IN NUMBER) IS
96: SELECT *
97: FROM Cs_Contracts_All
98: WHERE cs_contracts_all.contract_id = p_contract_id;
99: l_cs_contracts_all_pk cs_contracts_all_pk_csr%ROWTYPE;
100: CURSOR cs_cp_services_all_pk_csr (p_cp_service_id IN NUMBER) IS
101: SELECT *
94: item_not_found_error EXCEPTION;
95: CURSOR cs_contracts_all_pk_csr (p_contract_id IN NUMBER) IS
96: SELECT *
97: FROM Cs_Contracts_All
98: WHERE cs_contracts_all.contract_id = p_contract_id;
99: l_cs_contracts_all_pk cs_contracts_all_pk_csr%ROWTYPE;
100: CURSOR cs_cp_services_all_pk_csr (p_cp_service_id IN NUMBER) IS
101: SELECT *
102: FROM Cs_Cp_Services_All
95: CURSOR cs_contracts_all_pk_csr (p_contract_id IN NUMBER) IS
96: SELECT *
97: FROM Cs_Contracts_All
98: WHERE cs_contracts_all.contract_id = p_contract_id;
99: l_cs_contracts_all_pk cs_contracts_all_pk_csr%ROWTYPE;
100: CURSOR cs_cp_services_all_pk_csr (p_cp_service_id IN NUMBER) IS
101: SELECT *
102: FROM Cs_Cp_Services_All
103: WHERE cs_cp_services_all.cp_service_id = p_cp_service_id;
106: l_row_notfound BOOLEAN := TRUE;
107: BEGIN
108: IF (p_contractbilling_rec.CONTRACT_ID IS NOT NULL)
109: THEN
110: OPEN cs_contracts_all_pk_csr(p_contractbilling_rec.CONTRACT_ID);
111: FETCH cs_contracts_all_pk_csr INTO l_cs_contracts_all_pk;
112: l_row_notfound := cs_contracts_all_pk_csr%NOTFOUND;
113: CLOSE cs_contracts_all_pk_csr;
114: IF (l_row_notfound) THEN
107: BEGIN
108: IF (p_contractbilling_rec.CONTRACT_ID IS NOT NULL)
109: THEN
110: OPEN cs_contracts_all_pk_csr(p_contractbilling_rec.CONTRACT_ID);
111: FETCH cs_contracts_all_pk_csr INTO l_cs_contracts_all_pk;
112: l_row_notfound := cs_contracts_all_pk_csr%NOTFOUND;
113: CLOSE cs_contracts_all_pk_csr;
114: IF (l_row_notfound) THEN
115: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONTRACT_ID');
108: IF (p_contractbilling_rec.CONTRACT_ID IS NOT NULL)
109: THEN
110: OPEN cs_contracts_all_pk_csr(p_contractbilling_rec.CONTRACT_ID);
111: FETCH cs_contracts_all_pk_csr INTO l_cs_contracts_all_pk;
112: l_row_notfound := cs_contracts_all_pk_csr%NOTFOUND;
113: CLOSE cs_contracts_all_pk_csr;
114: IF (l_row_notfound) THEN
115: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONTRACT_ID');
116: RAISE item_not_found_error;
109: THEN
110: OPEN cs_contracts_all_pk_csr(p_contractbilling_rec.CONTRACT_ID);
111: FETCH cs_contracts_all_pk_csr INTO l_cs_contracts_all_pk;
112: l_row_notfound := cs_contracts_all_pk_csr%NOTFOUND;
113: CLOSE cs_contracts_all_pk_csr;
114: IF (l_row_notfound) THEN
115: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CONTRACT_ID');
116: RAISE item_not_found_error;
117: END IF;