1 PACKAGE BODY ITG_BOAPI_Utils AS
2 /* ARCS: $Header: itgvutlb.pls 120.1 2005/12/22 04:10:22 bsaratna noship $
3 * CVS: itgvutlb.pls,v 1.4 2002/11/05 04:14:11 ecoe Exp
4 */
5 l_debug_level NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
6
7 PROCEDURE validate(
8 p_name IN VARCHAR2,
9 p_min IN NUMBER,
10 p_max IN NUMBER,
11 p_nullok IN BOOLEAN,
12 p_value IN VARCHAR2
13 ) AS
14 l_len NUMBER;
15 BEGIN
16 IF (l_Debug_Level <= 2) THEN
17 itg_debug_pub.Add('--- Entering validate VARCHAR2 ---' ,2);
18 END IF;
19
20 IF NOT p_nullok AND p_value IS NULL THEN
21 IF (l_Debug_Level <= 1) THEN
22 ITG_Debug.msg('NULL check failed for field '||p_name ,1);
23 END IF;
24
25 ITG_MSG.missing_element_value(p_name, p_value);
26 RAISE FND_API.G_EXC_ERROR;
27 END IF;
28
29 l_len := LENGTHB(p_value); /* bug 4002567*/
30
31 IF ((p_min IS NOT NULL AND l_len < p_min) OR
32 (p_max IS NOT NULL AND l_len > p_max)) THEN
33 IF (l_Debug_Level <= 1) THEN
34 ITG_Debug.msg('Length check failed for field '||p_name ,1);
35 END IF;
36
37 ITG_MSG.data_value_error(p_value, p_min, p_max);
38 RAISE FND_API.G_EXC_ERROR;
39 END IF;
40
41 IF (l_Debug_Level <= 2) THEN
42 itg_debug_pub.Add('--- Exiting validate VARCHAR2 ---' ,2);
43 END IF;
44 END validate;
45
46
47
48 PROCEDURE validate(
49 p_name IN VARCHAR2,
50 p_min IN NUMBER,
51 p_max IN NUMBER,
52 p_nullok IN BOOLEAN,
53 p_value IN NUMBER
54 ) AS
55 l_len NUMBER;
56 BEGIN
57 IF (l_Debug_Level <= 2) THEN
58 itg_debug_pub.Add('--- Entering validate NUMBER ---' ,2);
59 END IF;
60
61 IF NOT p_nullok AND p_value IS NULL THEN
62 IF (l_Debug_Level <= 1) THEN
63 ITG_Debug.msg('NULL check failed for field '||p_name ,1);
64 END IF;
65
66 ITG_MSG.missing_element_value(p_name, NULL);
67 RAISE FND_API.G_EXC_ERROR;
68 END IF;
69
70 IF ((p_min IS NOT NULL AND p_value < p_min) OR
71 (p_max IS NOT NULL AND p_value > p_max)) THEN
72 IF (l_Debug_Level <= 1) THEN
73 ITG_Debug.msg('Range check failed for field '||p_name, 1);
74 END IF;
75
76 ITG_MSG.data_value_error(to_char(p_value), p_min, p_max);
77 RAISE FND_API.G_EXC_ERROR;
78 END IF;
79
80 IF (l_Debug_Level <= 2) THEN
81 itg_debug_pub.Add('--- Exiting validate NUMBER ---' ,2);
82 END IF;
83
84 END validate;
85
86 END ITG_BOAPI_Utils;