[Home] [Help]
PACKAGE BODY: APPS.JTF_UTILITY_PVT
Source
1 PACKAGE BODY JTF_Utility_PVT as
2 /* $Header: jtfgutlb.pls 120.1 2005/07/02 00:44:54 appldev ship $ */
3
4 /****************************************************************************/
5 -- FUNCTION
6 -- check_fk_exists
7 -- HISTORY
8 ------------------------------------------------------------------------------
9 FUNCTION check_fk_exists
10 (
11 p_table_name IN VARCHAR2,
12 p_pk_name IN VARCHAR2,
13 p_pk_value IN VARCHAR2,
14 p_pk_data_type IN NUMBER := g_number,
15 p_additional_where_clause IN VARCHAR2 := NULL
16 )
17 RETURN VARCHAR2
18 IS
19
20 l_sql VARCHAR2(4000);
21 l_count NUMBER;
22
23 BEGIN
24
25 l_sql := 'SELECT COUNT(*) FROM ' || p_table_name;
26 l_sql := l_sql || ' WHERE ' || p_pk_name || ' = ';
27
28 IF p_PK_data_type = g_varchar2 THEN
29 l_sql := l_sql || '''' || p_pk_value || '''';
30 ELSE
31 l_sql := l_sql || p_pk_value;
32 END IF;
33
34 IF p_additional_where_clause IS NOT NULL THEN
35 l_sql := l_sql || ' AND ' || p_additional_where_clause;
36 END IF;
37
38 debug_message('SQL statement: '||l_sql);
39 EXECUTE IMMEDIATE l_sql INTO l_count;
40
41 IF l_count = 0 THEN
42 RETURN FND_API.g_false;
43 ELSE
44 RETURN FND_API.g_true;
45 END IF;
46
47 END check_fk_exists;
48
49
50 /****************************************************************************/
51 -- FUNCTION
52 -- check_uniqueness
53 -- HISTORY
54 ------------------------------------------------------------------------------
55 FUNCTION check_uniqueness
56 (
57 p_table_name IN VARCHAR2,
58 p_where_clause IN VARCHAR2
59 )
60 RETURN VARCHAR2
61 IS
62
63 l_sql VARCHAR2(4000);
64 l_count NUMBER;
65
66 BEGIN
67
68 l_sql := 'SELECT COUNT(*) FROM ' || p_table_name;
69 l_sql := l_sql || ' WHERE ' || p_where_clause;
70
71 debug_message('SQL statement: '||l_sql);
72 EXECUTE IMMEDIATE l_sql INTO l_count;
73
74 IF l_count = 0 THEN
75 RETURN FND_API.g_true;
76 ELSE
77 RETURN FND_API.g_false;
78 END IF;
79
80 END check_uniqueness;
81
82
83 /****************************************************************************/
84 -- PROCEDURE
85 -- debug_message
86 -- HISTORY
87 ------------------------------------------------------------------------------
88 PROCEDURE debug_message
89 (
90 p_message_text IN VARCHAR2,
91 p_message_level IN NUMBER := FND_MSG_PUB.g_msg_lvl_debug_high
92 )
93 IS
94 BEGIN
95
96 IF FND_MSG_PUB.check_msg_level(p_message_level) THEN
97 FND_MESSAGE.set_name('JTF', 'JTF_API_DEBUG_MESSAGE');
98 FND_MESSAGE.set_token('TEXT', p_message_text);
99 FND_MSG_PUB.add;
100 END IF;
101 END debug_message;
102
103 ---------------------------------------------------------------------
104 -- PROCEDURE
105 -- display_messages
106 -- HISTORY
107 -- 11/26/99 juliu Created.
108 ---------------------------------------------------------------------
109 PROCEDURE display_messages
110 IS
111 l_count NUMBER;
112 l_msg VARCHAR2(2000);
113 BEGIN
114 l_count := FND_MSG_PUB.count_msg;
115 FOR i IN 1 .. l_count LOOP
116 l_msg := FND_MSG_PUB.get(i, FND_API.g_false);
117 --DBMS_OUTPUT.put_line('(' || i || ') ' || l_msg);
118 END LOOP;
119 END display_messages;
120
121 END JTF_Utility_PVT;