1 PACKAGE BODY FND_OAM_DSCFG_UTILS_PKG as
2 /* $Header: AFOAMDSCUTILB.pls 120.2 2005/12/19 11:27 ilawler noship $ */
3
4 ----------------------------------------
5 -- Private Body Constants
6 ----------------------------------------
7 PKG_NAME CONSTANT VARCHAR2(20) := 'DSCFG_UTILS_PKG.';
8
9 DATE_VALUE_ERROR EXCEPTION;
10 PRAGMA EXCEPTION_INIT(DATE_VALUE_ERROR, -1858);
11
12 ----------------------------------------
13 -- Public/Private Procedures/Functions
14 ----------------------------------------
15
16 -- Public
17 FUNCTION BOOLEAN_TO_CANONICAL(p_boolean IN BOOLEAN)
18 RETURN VARCHAR2
19 IS
20 BEGIN
21 IF p_boolean THEN
22 RETURN FND_API.G_TRUE;
23 END IF;
24
25 RETURN FND_API.G_FALSE;
26 END;
27
28 -- Public
29 FUNCTION CANONICAL_TO_BOOLEAN(p_canonical_value IN VARCHAR2)
30 RETURN BOOLEAN
31 IS
32 BEGIN
33 IF p_canonical_value IS NOT NULL THEN
34 IF p_canonical_value = FND_API.G_TRUE THEN
35 RETURN TRUE;
36 ELSIF p_canonical_value = FND_API.G_FALSE THEN
37 RETURN FALSE;
38 END IF;
39 END IF;
40 RAISE VALUE_ERROR;
41 END;
42
43 -- Public
44 FUNCTION NUMBER_TO_CANONICAL(p_number IN NUMBER)
45 RETURN VARCHAR2
46 IS
47 BEGIN
48 RETURN FND_NUMBER.NUMBER_TO_CANONICAL(p_number);
49 END;
50
51 -- Public
52 FUNCTION CANONICAL_TO_NUMBER(p_canonical_value IN VARCHAR2)
53 RETURN NUMBER
54 IS
55 BEGIN
56 --Null canonical can be a null date
57 IF p_canonical_value IS NULL THEN
58 RETURN NULL;
59 END IF;
60
61 --let conversion errors come out as VALUE_ERROR exceptions
62 RETURN FND_NUMBER.CANONICAL_TO_NUMBER(p_canonical_value);
63 END;
64
65 -- Public
66 FUNCTION DATE_TO_CANONICAL(p_date IN DATE)
67 RETURN VARCHAR2
68 IS
69 BEGIN
70 RETURN FND_DATE.DATE_TO_CANONICAL(p_date);
71 END;
72
73 -- Public
74 FUNCTION CANONICAL_TO_DATE(p_canonical_value IN VARCHAR2)
75 RETURN DATE
76 IS
77 BEGIN
78 --Null canonical can be a null date
79 IF p_canonical_value IS NULL THEN
80 RETURN NULL;
81 END IF;
82
83 --force conversion errors to come out as VALUE_ERROR exceptions
84 RETURN FND_DATE.CANONICAL_TO_DATE(p_canonical_value);
85 EXCEPTION
86 WHEN DATE_VALUE_ERROR THEN
87 RAISE VALUE_ERROR;
88 WHEN OTHERS THEN
89 RAISE;
90 END;
91
92 -- Public
93 FUNCTION GET_TABLE_OWNER(p_table_name IN VARCHAR2)
94 RETURN VARCHAR2
95 IS
96 l_owner VARCHAR2(30);
97 BEGIN
98 -- Currently throws a GSCC error, we don't use it yet anyway - missing owners are treated as non-recoverable errors.
99 /*
100 SELECT owner
101 INTO l_owner
102 FROM dba_tables
103 where table_name = UPPER(p_table_name);
104 RETURN l_owner;
105 */
106 RETURN NULL;
107 END;
108
109 -- Public
110 FUNCTION GET_TABLE_WEIGHT(p_table_owner IN VARCHAR2,
111 p_table_name IN VARCHAR2)
112 RETURN NUMBER
113 IS
114 l_blocks NUMBER;
115 BEGIN
116 SELECT blocks
117 INTO l_blocks
118 FROM dba_tables
119 WHERE owner = p_table_owner
120 AND table_name = p_table_name;
121
122 RETURN l_blocks;
123 EXCEPTION
124 WHEN OTHERS THEN
125 RETURN NULL;
126 END;
127
128 END FND_OAM_DSCFG_UTILS_PKG;