13: -- Procedure Init_Server_Message
14: --
15: PROCEDURE Init_Server_Message IS
16: BEGIN
17: fnd_msg_pub.initialize;
18: if (g_log_statement_level >= g_log_runtime_level) then
19: FA_SRVR_MSG.FA_MSG_DEBUG := 'YES';
20: end if;
21:
24: -- Procedure Reset_Server_Message
25: --
26: PROCEDURE Reset_Server_Message IS
27: BEGIN
28: fnd_msg_pub.initialize;
29:
30: END Reset_Server_Message;
31:
32:
47: G_calling_routine := 'FA.PLSQL.'||calling_fn;
48: FND_LOG.MESSAGE (FND_LOG.LEVEL_UNEXPECTED,g_calling_routine,FALSE);
49: End if;
50:
51: fnd_msg_pub.add;
52:
53: -- insert calling function name to the stack
54: add_message(calling_fn => calling_fn);
55:
102: G_calling_routine := 'FA.PLSQL.'||calling_fn;
103: FND_LOG.MESSAGE (p_message_level,g_calling_routine,FALSE);
104: end if;
105:
106: fnd_msg_pub.add;
107:
108: elsif (g_log_procedure_level >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) then
109:
110: G_calling_routine := 'FA.PLSQL.'||calling_fn;
127: (FA_SRVR_MSG.FA_ERROR_LEVEL = 1 or
128: FA_SRVR_MSG.FA_MSG_DEBUG = 'YES')) then
129: fnd_message.set_name('OFA', 'FA_SHARED_ERROR_CALL');
130: fnd_message.set_token('CALLING_FN', calling_fn, translate);
131: fnd_msg_pub.add;
132: end if;
133:
134: END add_message;
135:
145: mesg6 in out nocopy varchar2,
146: mesg7 in out nocopy varchar2
147: ) IS
148: BEGIN
149: mesg_count := fnd_msg_pub.count_msg;
150: mesg1 := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
146: mesg7 in out nocopy varchar2
147: ) IS
148: BEGIN
149: mesg_count := fnd_msg_pub.count_msg;
150: mesg1 := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
147: ) IS
148: BEGIN
149: mesg_count := fnd_msg_pub.count_msg;
150: mesg1 := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
155: mesg6 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
148: BEGIN
149: mesg_count := fnd_msg_pub.count_msg;
150: mesg1 := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
155: mesg6 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
156: mesg7 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
149: mesg_count := fnd_msg_pub.count_msg;
150: mesg1 := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
155: mesg6 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
156: mesg7 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
157: /*
150: mesg1 := substr(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE), 1, 512);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
155: mesg6 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
156: mesg7 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
157: /*
158: dbms_output.put_line('mesg1 = ' || mesg1);
151: mesg2 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
155: mesg6 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
156: mesg7 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
157: /*
158: dbms_output.put_line('mesg1 = ' || mesg1);
159: dbms_output.put_line('mesg2 = ' || mesg2);
152: mesg3 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
153: mesg4 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
154: mesg5 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
155: mesg6 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
156: mesg7 := substr(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE), 1, 512);
157: /*
158: dbms_output.put_line('mesg1 = ' || mesg1);
159: dbms_output.put_line('mesg2 = ' || mesg2);
160: dbms_output.put_line('mesg3 = ' || mesg3);
185: IS
186: mesg_count number;
187: temp_str varchar2(1000) := NULL;
188: BEGIN
189: mesg_count := fnd_msg_pub.count_msg;
190:
191: --dbms_output.put_line('dump: total messaages count = ' || to_char(mesg_count));
192:
193: if (mesg_count > 0) then
190:
191: --dbms_output.put_line('dump: total messaages count = ' || to_char(mesg_count));
192:
193: if (mesg_count > 0) then
194: temp_str := fnd_msg_pub.get(fnd_msg_pub.G_FIRST, fnd_api.G_FALSE);
195: --dbms_output.put_line('dump: ' || temp_str);
196:
197: for I in 1..(mesg_count -1) loop
198:
195: --dbms_output.put_line('dump: ' || temp_str);
196:
197: for I in 1..(mesg_count -1) loop
198:
199: temp_str := fnd_msg_pub.get(fnd_msg_pub.G_NEXT, fnd_api.G_FALSE);
200: --dbms_output.put_line('dump: ' || temp_str);
201:
202: end loop;
203: else
231: -- which we are not sure whether it is in encoded or translated format.
232: --elsif (msg_count = 1 and msg_data IS NOT NULL) then
233: -- fa_rx_conc_mesg_pkg.log(msg_data);
234: else
235: fa_rx_conc_mesg_pkg.log(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, h_encoded));
236: for i in 1..(msg_count-1) loop
237: fa_rx_conc_mesg_pkg.log(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, h_encoded));
238: end loop;
239: end if;
233: -- fa_rx_conc_mesg_pkg.log(msg_data);
234: else
235: fa_rx_conc_mesg_pkg.log(fnd_msg_pub.get(fnd_msg_pub.G_FIRST, h_encoded));
236: for i in 1..(msg_count-1) loop
237: fa_rx_conc_mesg_pkg.log(fnd_msg_pub.get(fnd_msg_pub.G_NEXT, h_encoded));
238: end loop;
239: end if;
240: END Write_Msg_Log;
241: