50:
51: -- Initialize API return status to success
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53:
54: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
55: FND_MESSAGE.SET_TOKEN('EVENT','Update');
56: x_msg_data := FND_MESSAGE.GET;
57:
58: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
51: -- Initialize API return status to success
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53:
54: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
55: FND_MESSAGE.SET_TOKEN('EVENT','Update');
56: x_msg_data := FND_MESSAGE.GET;
57:
58: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
59:
52: x_return_status := FND_API.G_RET_STS_SUCCESS;
53:
54: FND_MESSAGE.SET_NAME('CLN','CLN_CH_EVENT_RAISED');
55: FND_MESSAGE.SET_TOKEN('EVENT','Update');
56: x_msg_data := FND_MESSAGE.GET;
57:
58: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
59:
60: IF (l_Debug_Level <= 1) THEN
168: END IF;
169:
170: -- Initialize API return status to success
171: x_return_status := FND_API.G_RET_STS_SUCCESS;
172: FND_MESSAGE.SET_NAME('CLN', 'CLN_G_RET_MSG_SUCCESS');
173: x_msg_data := FND_MESSAGE.GET;
174:
175:
176: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
169:
170: -- Initialize API return status to success
171: x_return_status := FND_API.G_RET_STS_SUCCESS;
172: FND_MESSAGE.SET_NAME('CLN', 'CLN_G_RET_MSG_SUCCESS');
173: x_msg_data := FND_MESSAGE.GET;
174:
175:
176: SELECT cln_generic_s.nextval INTO l_event_key FROM dual;
177:
217:
218: -- Name
219: -- GET_FND_MESSSAGE
220: -- Purpose
221: -- Gets the FND message for the given message name
222: -- substituting the token values
223: -- Arguments
224: -- FND message name
225: -- Token Name
220: -- Purpose
221: -- Gets the FND message for the given message name
222: -- substituting the token values
223: -- Arguments
224: -- FND message name
225: -- Token Name
226: -- Token Value
227: -- Notes
228: -- No specific notes
227: -- Notes
228: -- No specific notes
229:
230: PROCEDURE GET_FND_MESSSAGE(
231: p_fnd_message_name IN VARCHAR2,
232: p_token_name1 IN VARCHAR2,
233: p_token_value1 IN VARCHAR2,
234: p_token_name2 IN VARCHAR2,
235: p_token_value2 IN VARCHAR2,
250: END IF;
251:
252: IF (l_Debug_Level <= 1) THEN
253: cln_debug_pub.Add('With the following parameters:', 1);
254: cln_debug_pub.Add('p_fnd_message_name:' || p_fnd_message_name, 1);
255: cln_debug_pub.Add('p_token_name1:' || p_token_name1, 1);
256: cln_debug_pub.Add('p_token_value1:' || p_token_value1, 1);
257: cln_debug_pub.Add('p_token_name2:' || p_token_name2, 1);
258: cln_debug_pub.Add('p_token_value2:' || p_token_value2, 1);
257: cln_debug_pub.Add('p_token_name2:' || p_token_name2, 1);
258: cln_debug_pub.Add('p_token_value2:' || p_token_value2, 1);
259: END IF;
260:
261: FND_MESSAGE.SET_NAME('CLN', p_fnd_message_name);
262: IF p_token_name1 IS NOT NULL THEN
263: FND_MESSAGE.SET_TOKEN(p_token_name1, p_token_value1);
264: END IF;
265: IF p_token_name2 IS NOT NULL THEN
259: END IF;
260:
261: FND_MESSAGE.SET_NAME('CLN', p_fnd_message_name);
262: IF p_token_name1 IS NOT NULL THEN
263: FND_MESSAGE.SET_TOKEN(p_token_name1, p_token_value1);
264: END IF;
265: IF p_token_name2 IS NOT NULL THEN
266: FND_MESSAGE.SET_TOKEN(p_token_name2, p_token_value2);
267: END IF;
262: IF p_token_name1 IS NOT NULL THEN
263: FND_MESSAGE.SET_TOKEN(p_token_name1, p_token_value1);
264: END IF;
265: IF p_token_name2 IS NOT NULL THEN
266: FND_MESSAGE.SET_TOKEN(p_token_name2, p_token_value2);
267: END IF;
268: p_message := FND_MESSAGE.GET;
269:
270: IF (l_Debug_Level <= 1) THEN
264: END IF;
265: IF p_token_name2 IS NOT NULL THEN
266: FND_MESSAGE.SET_TOKEN(p_token_name2, p_token_value2);
267: END IF;
268: p_message := FND_MESSAGE.GET;
269:
270: IF (l_Debug_Level <= 1) THEN
271: cln_debug_pub.Add('p_message:' || p_message, 1);
272: END IF;
280: l_error_code := SQLCODE;
281: l_error_msg := SQLERRM;
282: l_return_msg := l_error_code||' : '||l_error_msg;
283: cln_debug_pub.Add(l_return_msg, 3);
284: l_return_msg := 'While trying to get the FND message '
285: || ' for '
286: || p_fnd_message_name
287: || ', the following error is encountered:'
288: || l_return_msg;
282: l_return_msg := l_error_code||' : '||l_error_msg;
283: cln_debug_pub.Add(l_return_msg, 3);
284: l_return_msg := 'While trying to get the FND message '
285: || ' for '
286: || p_fnd_message_name
287: || ', the following error is encountered:'
288: || l_return_msg;
289: IF (l_Debug_Level <= 6) THEN
290: cln_debug_pub.Add(l_return_msg, 3);