172: END IF;
173: RETURN (x_return_status);
174: EXCEPTION
175: WHEN OTHERS THEN
176: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
177: RETURN(x_return_status);
178: END check_from_to_number_range;
179: ---------------------------------------------------------------------------
180: -- Lookup Code Validation
180: -- Lookup Code Validation
181: ---------------------------------------------------------------------------
182: FUNCTION check_lookup_code(p_lookup_type IN VARCHAR2,
183: p_lookup_code IN VARCHAR2) RETURN VARCHAR2 IS
184: x_return_status VARCHAR2(1):= Okl_Api.G_RET_STS_SUCCESS;
185: l_sysdate DATE := SYSDATE ;
186: l_dummy_var VARCHAR2(1) := '?';
187: CURSOR l_lookup_code_csr IS
188: SELECT 'X'
198: CLOSE l_lookup_code_csr;
199: -- if l_dummy_var still set to default, data was not found
200: IF (l_dummy_var = '?') THEN
201: -- notify caller of an error
202: x_return_status := Okl_Api.G_RET_STS_ERROR;
203: END IF;
204: RETURN (x_return_status);
205: EXCEPTION
206: WHEN OTHERS THEN
204: RETURN (x_return_status);
205: EXCEPTION
206: WHEN OTHERS THEN
207: -- notify caller of an UNEXPECTED error
208: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
209: -- verify that cursor was closed
210: IF l_lookup_code_csr%ISOPEN THEN
211: CLOSE l_lookup_code_csr;
212: END IF;
214: END check_lookup_code;
215:
216: ----------------------------------------------------------------------------
217: FUNCTION check_domain_yn(p_col_value IN VARCHAR2)RETURN VARCHAR2 IS
218: x_return_status VARCHAR2(1):= Okl_Api.G_RET_STS_SUCCESS;
219: BEGIN
220: IF (p_col_value IS NULL)OR (p_col_value = OKC_API.G_MISS_CHAR) THEN
221: x_return_status:=Okl_Api.G_RET_STS_ERROR;
222: ELSE
217: FUNCTION check_domain_yn(p_col_value IN VARCHAR2)RETURN VARCHAR2 IS
218: x_return_status VARCHAR2(1):= Okl_Api.G_RET_STS_SUCCESS;
219: BEGIN
220: IF (p_col_value IS NULL)OR (p_col_value = OKC_API.G_MISS_CHAR) THEN
221: x_return_status:=Okl_Api.G_RET_STS_ERROR;
222: ELSE
223: IF UPPER(p_col_value) NOT IN('Y','N') THEN
224: x_return_status:=Okl_Api.G_RET_STS_ERROR;
225: END IF;
220: IF (p_col_value IS NULL)OR (p_col_value = OKC_API.G_MISS_CHAR) THEN
221: x_return_status:=Okl_Api.G_RET_STS_ERROR;
222: ELSE
223: IF UPPER(p_col_value) NOT IN('Y','N') THEN
224: x_return_status:=Okl_Api.G_RET_STS_ERROR;
225: END IF;
226: END IF;
227: RETURN (x_return_status);
228: EXCEPTION
226: END IF;
227: RETURN (x_return_status);
228: EXCEPTION
229: WHEN OTHERS THEN
230: x_return_status:=Okl_Api.G_RET_STS_UNEXP_ERROR;
231: RETURN (x_return_status);
232: END check_domain_yn;
233: ---------------------------------------------------------------------------
234: FUNCTION check_domain_amount (p_col_value IN NUMBER)
232: END check_domain_yn;
233: ---------------------------------------------------------------------------
234: FUNCTION check_domain_amount (p_col_value IN NUMBER)
235: RETURN VARCHAR2 IS
236: x_return_status VARCHAR2(1):= Okl_Api.G_RET_STS_SUCCESS;
237: BEGIN
238: IF (p_col_value IS NULL) OR (p_col_value = Okl_Api.G_MISS_NUM) THEN
239: x_return_status:=Okl_Api.G_RET_STS_ERROR;
240: --check in domain
234: FUNCTION check_domain_amount (p_col_value IN NUMBER)
235: RETURN VARCHAR2 IS
236: x_return_status VARCHAR2(1):= Okl_Api.G_RET_STS_SUCCESS;
237: BEGIN
238: IF (p_col_value IS NULL) OR (p_col_value = Okl_Api.G_MISS_NUM) THEN
239: x_return_status:=Okl_Api.G_RET_STS_ERROR;
240: --check in domain
241: ELSE
242: IF p_col_value < 0 THEN
235: RETURN VARCHAR2 IS
236: x_return_status VARCHAR2(1):= Okl_Api.G_RET_STS_SUCCESS;
237: BEGIN
238: IF (p_col_value IS NULL) OR (p_col_value = Okl_Api.G_MISS_NUM) THEN
239: x_return_status:=Okl_Api.G_RET_STS_ERROR;
240: --check in domain
241: ELSE
242: IF p_col_value < 0 THEN
243: x_return_status:=Okl_Api.G_RET_STS_ERROR;
239: x_return_status:=Okl_Api.G_RET_STS_ERROR;
240: --check in domain
241: ELSE
242: IF p_col_value < 0 THEN
243: x_return_status:=Okl_Api.G_RET_STS_ERROR;
244: END IF;
245: END IF;
246: RETURN (x_return_status);
247: EXCEPTION
246: RETURN (x_return_status);
247: EXCEPTION
248: WHEN OTHERS THEN
249: -- notify UNEXPECTED error
250: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
251: RETURN (x_return_status);
252: END check_domain_amount;
253: ---------------------------------------------------------------------
254: FUNCTION check_from_to_date_range(p_from_date IN DATE,p_to_date IN DATE )
252: END check_domain_amount;
253: ---------------------------------------------------------------------
254: FUNCTION check_from_to_date_range(p_from_date IN DATE,p_to_date IN DATE )
255: RETURN VARCHAR2 IS
256: x_return_status VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
257: BEGIN
258: IF p_from_date IS NOT NULL AND
259: p_to_date IS NOT NULL THEN
260: IF p_to_date < p_from_date THEN
257: BEGIN
258: IF p_from_date IS NOT NULL AND
259: p_to_date IS NOT NULL THEN
260: IF p_to_date < p_from_date THEN
261: x_return_status :=Okl_Api.G_RET_STS_ERROR;
262: END IF;
263: ELSIF (p_from_date IS NULL) AND
264: (p_to_date IS NOT NULL) THEN
265: x_return_status :=Okl_Api.G_RET_STS_ERROR;
261: x_return_status :=Okl_Api.G_RET_STS_ERROR;
262: END IF;
263: ELSIF (p_from_date IS NULL) AND
264: (p_to_date IS NOT NULL) THEN
265: x_return_status :=Okl_Api.G_RET_STS_ERROR;
266: END IF;
267: RETURN (x_return_status);
268: EXCEPTION
269: WHEN OTHERS THEN
266: END IF;
267: RETURN (x_return_status);
268: EXCEPTION
269: WHEN OTHERS THEN
270: x_return_status := Okl_Api.G_RET_STS_UNEXP_ERROR;
271: RETURN(x_return_status);
272: END check_from_to_date_range;
273:
274:
278: p_org_id IN VARCHAR2,
279: p_null_allowed IN VARCHAR2 DEFAULT 'Y')
280: RETURN VARCHAR2 IS
281:
282: l_result VARCHAR2(1) := Okl_Api.G_RET_STS_SUCCESS;
283: l_select_result VARCHAR2(1) := '?';
284: l_sysdate DATE := SYSDATE;
285:
286: CURSOR C1 IS
292:
293: BEGIN
294:
295: IF NVL (p_null_allowed, 'N') <> 'Y' AND p_org_id IS NULL THEN
296: l_result := Okl_Api.G_RET_STS_UNEXP_ERROR;
297: END IF;
298:
299: IF p_org_id IS NOT NULL THEN
300: OPEN C1;
300: OPEN C1;
301: FETCH C1 INTO l_select_result;
302: CLOSE C1;
303: IF l_select_result ='?' THEN
304: l_result := Okl_Api.G_RET_STS_ERROR;
305: END IF;
306: END IF;
307:
308: RETURN (l_result);
308: RETURN (l_result);
309:
310: EXCEPTION
311: WHEN OTHERS THEN
312: l_result:=Okl_Api.G_RET_STS_UNEXP_ERROR;
313: IF C1%ISOPEN THEN
314: CLOSE C1;
315: END IF;
316: RETURN l_result;
411: CLOSE c_get_prefix;
412:
413: IF l_prefix IS NOT NULL THEN
414: IF INSTR(p_value,l_prefix) <> 1 THEN
415: okl_api.set_message(p_app_name => g_app_name
416: ,p_msg_name => 'OKL_NO_PREFIX'
417: ,p_token1 => 'COL_NAME'
418: ,p_token1_value => p_value
419: ,p_token2 => 'PREFIX'
429: CLOSE l_ref_csr;
430: RETURN 'Y';
431: ELSE
432: CLOSE l_ref_csr;
433: okl_api.set_message(p_app_name => g_app_name
434: ,p_msg_name => 'OKL_DUPLICATE_CURE_REQUEST'
435: ,p_token1 => 'COL_NAME'
436: ,p_token1_value => p_value);
437: RETURN 'N';