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;
104: l_cs_cp_services_all_pk cs_cp_services_all_pk_csr%ROWTYPE;
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;
104: l_cs_cp_services_all_pk cs_cp_services_all_pk_csr%ROWTYPE;
105: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
106: l_row_notfound BOOLEAN := TRUE;
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;
104: l_cs_cp_services_all_pk cs_cp_services_all_pk_csr%ROWTYPE;
105: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
106: l_row_notfound BOOLEAN := TRUE;
107: BEGIN
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;
104: l_cs_cp_services_all_pk cs_cp_services_all_pk_csr%ROWTYPE;
105: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
106: l_row_notfound BOOLEAN := TRUE;
107: BEGIN
108: IF (p_contractbilling_rec.CONTRACT_ID IS NOT NULL)
117: END IF;
118: END IF;
119: IF (p_contractbilling_rec.CP_SERVICE_ID IS NOT NULL)
120: THEN
121: OPEN cs_cp_services_all_pk_csr(p_contractbilling_rec.CP_SERVICE_ID);
122: FETCH cs_cp_services_all_pk_csr INTO l_cs_cp_services_all_pk;
123: l_row_notfound := cs_cp_services_all_pk_csr%NOTFOUND;
124: CLOSE cs_cp_services_all_pk_csr;
125: IF (l_row_notfound) THEN
118: END IF;
119: IF (p_contractbilling_rec.CP_SERVICE_ID IS NOT NULL)
120: THEN
121: OPEN cs_cp_services_all_pk_csr(p_contractbilling_rec.CP_SERVICE_ID);
122: FETCH cs_cp_services_all_pk_csr INTO l_cs_cp_services_all_pk;
123: l_row_notfound := cs_cp_services_all_pk_csr%NOTFOUND;
124: CLOSE cs_cp_services_all_pk_csr;
125: IF (l_row_notfound) THEN
126: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CP_SERVICE_ID');
119: IF (p_contractbilling_rec.CP_SERVICE_ID IS NOT NULL)
120: THEN
121: OPEN cs_cp_services_all_pk_csr(p_contractbilling_rec.CP_SERVICE_ID);
122: FETCH cs_cp_services_all_pk_csr INTO l_cs_cp_services_all_pk;
123: l_row_notfound := cs_cp_services_all_pk_csr%NOTFOUND;
124: CLOSE cs_cp_services_all_pk_csr;
125: IF (l_row_notfound) THEN
126: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CP_SERVICE_ID');
127: RAISE item_not_found_error;
120: THEN
121: OPEN cs_cp_services_all_pk_csr(p_contractbilling_rec.CP_SERVICE_ID);
122: FETCH cs_cp_services_all_pk_csr INTO l_cs_cp_services_all_pk;
123: l_row_notfound := cs_cp_services_all_pk_csr%NOTFOUND;
124: CLOSE cs_cp_services_all_pk_csr;
125: IF (l_row_notfound) THEN
126: TAPI_DEV_KIT.set_message(G_APP_NAME, G_INVALID_VALUE,G_COL_NAME_TOKEN,'CP_SERVICE_ID');
127: RAISE item_not_found_error;
128: END IF;