1 PACKAGE BODY eam_execution_jsp AS
2 /* $Header: EAMEXUJB.pls 115.6 2002/11/22 12:02:09 anmahesh ship $ */
3 G_PKG_NAME CONSTANT VARCHAR2(30) := 'EAM_EXECUTION_JSP';
4 g_debug_sqlerrm VARCHAR2(250);
5
6 -- ==========================================================================
7 -- = FUNCTION GetOrgId
8 -- ==========================================================================
9
10 FUNCTION GetOrgId ( X_org_name IN VARCHAR2 ) RETURN NUMBER
11 IS
12 X_org_id NUMBER;
13 BEGIN
14 SELECT
15 organization_id
16 INTO
17 X_org_id
18 FROM
19 hr_organization_units o
20 WHERE name = X_org_name;
21
22 RETURN ( X_org_id );
23
24 EXCEPTION
25 WHEN OTHERS THEN
26 RETURN ( NULL );
27
28 END GetOrgId;
29
30 -- ==========================================================================
31 -- = FUNCTION GetOrgName
32 -- ==========================================================================
33
34 FUNCTION GetOrgName ( X_org_id IN NUMBER ) RETURN VARCHAR2
35 IS
36 X_org_name VARCHAR2(240);
37 BEGIN
38 SELECT
39 name
40 INTO
41 X_org_name
42 FROM
43 hr_organization_units o
44 WHERE
45 organization_id = X_org_id;
46
47 RETURN ( X_org_name );
48
49 EXCEPTION
50 WHEN OTHERS THEN
51 RETURN ( NULL );
52
53 END GetOrgName;
54
55 -- format date to string, temperory
56 FUNCTION to_time_string( date1 IN DATE) RETURN VARCHAR2
57 IS
58 -- return if job has mandatory meter reading, wrapper function
59 ret VARCHAR2(250);
60 BEGIN
61 select to_char(date1, 'YYYY-MM-DD HH24:MI:SS')
62 into ret
63 from dual;
64
65 return ret;
66 END to_time_string;
67
68 ---------------------------------------------------------------
69 -- Procedure : Get_Encoded_Msg
70 -- This procedure serves as a wrapper to the function
71 -- FND_MSG_PUB.Get. It is needed to access the call from
72 -- client FORMS.
73 ---------------------------------------------------------------
74 Procedure Get_Encoded_Msg(p_index IN NUMBER,
75 p_msg_out IN OUT NOCOPY VARCHAR2 ) IS
76 l_message VARCHAR2(2000);
77 BEGIN
78 p_msg_out := fnd_msg_pub.get(p_msg_index => p_index,
79 p_encoded => FND_API.G_FALSE);
80
81 END Get_Encoded_Msg;
82
83
84 ---------------------------------------------------------------
85 -- Procedure : Add_Message
86 -- This procedure serves as a wrapper to the FND_MEG_PUB
87 -- procedures to add the specified message onto the message
88 -- stack.
89 ---------------------------------------------------------------
90 Procedure Add_Message( p_app_short_name IN VARCHAR2,
91 p_msg_name IN VARCHAR2,
92 p_token1 IN VARCHAR2 DEFAULT NULL,
93 p_value1 IN VARCHAR2 DEFAULT NULL,
94 p_token2 IN VARCHAR2 DEFAULT NULL,
95 p_value2 IN VARCHAR2 DEFAULT NULL,
96 p_token3 IN VARCHAR2 DEFAULT NULL,
97 p_value3 IN VARCHAR2 DEFAULT NULL,
98 p_token4 IN VARCHAR2 DEFAULT NULL,
99 p_value4 IN VARCHAR2 DEFAULT NULL,
100 p_token5 IN VARCHAR2 DEFAULT NULL,
101 p_value5 IN VARCHAR2 DEFAULT NULL ) IS
102
103 BEGIN
104
105 FND_MESSAGE.Set_Name(p_app_short_name, p_msg_name);
106 IF (p_token1 IS NOT NULL) THEN
107 FND_MESSAGE.Set_Token(p_token1, p_value1);
108 END IF;
109 IF (p_token2 IS NOT NULL) THEN
110 FND_MESSAGE.Set_Token(p_token2, p_value2);
111 END IF;
112 IF (p_token3 IS NOT NULL) THEN
113 FND_MESSAGE.Set_Token(p_token3, p_value3);
114 END IF;
115 IF (p_token4 IS NOT NULL) THEN
116 FND_MESSAGE.Set_Token(p_token4, p_value4);
117 END IF;
118 IF (p_token5 IS NOT NULL) THEN
119 FND_MESSAGE.Set_Token(p_token5, p_value5);
120 END IF;
121
122 FND_MSG_PUB.Add;
123
124 END Add_Message;
125
126 ------------------------------------------------------------------
127 PROCEDURE Get_Messages
128 (p_encoded IN VARCHAR2 := FND_API.G_FALSE,
129 p_msg_index IN NUMBER := NULL,
130 p_msg_count IN NUMBER := 0,
131 p_msg_data IN VARCHAR2 := NULL,
132 p_data OUT NOCOPY VARCHAR2,
133 p_msg_index_out OUT NOCOPY NUMBER
134 ) IS
135
136 --l_encoded BOOLEAN;
137 l_data VARCHAR2(2000);
138 l_msg_index NUMBER;
139
140 BEGIN
141
142 IF p_msg_index IS NULL THEN
143 l_msg_index := FND_MSG_PUB.G_NEXT;
144 ELSE
145 l_msg_index := p_msg_index;
146 END IF;
147
148 IF p_msg_count = 1 THEN
149 FND_MESSAGE.SET_ENCODED (p_msg_data);
150 p_data := FND_MESSAGE.GET;
151 ELSE
152 FND_MSG_PUB.get (
153 p_msg_index => l_msg_index,
154 p_encoded => p_encoded,
155 p_data => p_data,
156 p_msg_index_out => p_msg_index_out );
157 END IF;
158
159 END Get_Messages;
160
161 END eam_execution_jsp;