140: ,p_level => C_LEVEL_PROCEDURE);
141: END IF;
142:
143: --Initialize the global message table
144: FND_MSG_PUB.Initialize;
145:
146: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
147: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run', 'Calling xla_tab_pub_pkg.run with following parameters');
148: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run','p_api_version = ' || p_api_version);
178: IF l_msg_data IS NOT NULL
179: THEN
180: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run', 'If return status is not success and l_msg_data is not null');
182: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run', 'initialize fnd_msg_pub and add message data in to fnd_msg_pub');
183: END IF;
184:
185: fnd_msg_pub.initialize;
186:
181: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run', 'If return status is not success and l_msg_data is not null');
182: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run', 'initialize fnd_msg_pub and add message data in to fnd_msg_pub');
183: END IF;
184:
185: fnd_msg_pub.initialize;
186:
187: fnd_message.set_encoded
188: (
189: encoded_message => l_msg_data
189: encoded_message => l_msg_data
190: );
191:
192: --Add it to the message table
193: fnd_msg_pub.add;
194:
195: IF (FND_LOG.LEVEL_PROCEDURE >= FND_LOG.G_CURRENT_RUNTIME_LEVEL) THEN
196: FND_LOG.STRING(FND_LOG.LEVEL_PROCEDURE, 'fun.plsql.fun_xla_tab_pkg.run', 'set l_msg_count and l_msd_data to NULL');
197: END IF;
243: application => 'XLA'
244: ,name => l_return_msg_name
245: );
246: --Add it to the message table
247: fnd_msg_pub.add;
248: END IF;
249: --Set the failure message on the stack
250: fnd_message.set_name
251: (
255: fnd_message.set_token( 'FUNCTION_NAME'
256: ,'fun_xla_tab_pkg.run');
257:
258: --Add it to the message table
259: fnd_msg_pub.add;
260:
261: --If there is only one message retrieve it
262: fnd_msg_pub.Count_And_Get
263: (
258: --Add it to the message table
259: fnd_msg_pub.add;
260:
261: --If there is only one message retrieve it
262: fnd_msg_pub.Count_And_Get
263: (
264: p_count => l_msg_count
265: ,p_data => l_msg_data
266: );
297: END IF;
298: --Remove all the elements from the PLSQL table
299: reset_online_interface;
300: --Add the standard unexpected error message
301: fnd_msg_pub.Add_Exc_Msg
302: ( p_pkg_name => C_PACKAGE_NAME
303: ,p_procedure_name => 'run'
304: );
305: --If there is only one message retrieve it
302: ( p_pkg_name => C_PACKAGE_NAME
303: ,p_procedure_name => 'run'
304: );
305: --If there is only one message retrieve it
306: fnd_msg_pub.Count_And_Get
307: (
308: p_count => l_msg_count
309: ,p_data => l_msg_data
310: );
356: ,p_level => C_LEVEL_PROCEDURE);
357: END IF;
358:
359: --Initialize the global message table
360: FND_MSG_PUB.Initialize;
361:
362: --Initialize return status and message local variables
363: l_return_msg_name:= NULL;
364: l_return_status := NULL;
405: application => 'XLA'
406: ,name => l_return_msg_name
407: );
408: --Add it to the message table
409: fnd_msg_pub.add;
410: END IF;
411: --If there is only one message retrieve it
412: fnd_msg_pub.Count_And_Get
413: (
408: --Add it to the message table
409: fnd_msg_pub.add;
410: END IF;
411: --If there is only one message retrieve it
412: fnd_msg_pub.Count_And_Get
413: (
414: p_count => l_msg_count
415: ,p_data => l_msg_data
416: );
429: x_return_status := C_RET_STS_UNEXP_ERROR;
430: END IF;
431: WHEN OTHERS THEN
432: --Add the standard unexpected error message
433: fnd_msg_pub.Add_Exc_Msg
434: ( p_pkg_name => C_PACKAGE_NAME
435: ,p_procedure_name => 'reset_online_interface'
436: );
437: --If there is only one message retrieve it
434: ( p_pkg_name => C_PACKAGE_NAME
435: ,p_procedure_name => 'reset_online_interface'
436: );
437: --If there is only one message retrieve it
438: fnd_msg_pub.Count_And_Get
439: (
440: p_count => l_msg_count
441: ,p_data => l_msg_data
442: );
550: ,p_level => C_LEVEL_PROCEDURE);
551: END IF;
552:
553: --Initialize the global message table
554: FND_MSG_PUB.Initialize;
555:
556: --Initialize return status and message local variables
557: l_return_msg_name := NULL;
558: l_return_status := NULL;
648: token => 'SOURCE_DIST_ID_NUM5'
649: ,value => g_array_xla_tab (i).source_distribution_id_num_5
650: );
651:
652: fnd_msg_pub.add;
653:
654: --Raise a local exception
655: RAISE le_fatal_error;
656: --Elsif the current row has already been processed
770: application => 'XLA'
771: ,name => l_return_msg_name
772: );
773: --Add it to the message table
774: fnd_msg_pub.add;
775: END IF;
776: --If there is only one message retrieve it
777: fnd_msg_pub.Count_And_Get
778: (
773: --Add it to the message table
774: fnd_msg_pub.add;
775: END IF;
776: --If there is only one message retrieve it
777: fnd_msg_pub.Count_And_Get
778: (
779: p_count => l_msg_count
780: ,p_data => l_msg_data
781: );
796: WHEN OTHERS THEN
797: --Remove all the elements from the PLSQL table
798: g_array_xla_tab .DELETE;
799: --Add the standard unexpected error message
800: fnd_msg_pub.Add_Exc_Msg
801: ( p_pkg_name => C_PACKAGE_NAME
802: ,p_procedure_name => 'write_online_tab '
803: );
804: --If there is only one message retrieve it
801: ( p_pkg_name => C_PACKAGE_NAME
802: ,p_procedure_name => 'write_online_tab '
803: );
804: --If there is only one message retrieve it
805: fnd_msg_pub.Count_And_Get
806: (
807: p_count => l_msg_count
808: ,p_data => l_msg_data
809: );
865: ,p_level => C_LEVEL_PROCEDURE);
866: END IF;
867:
868: --Initialize the global message table
869: FND_MSG_PUB.Initialize;
870:
871: --Initialize return status and message local variables
872: l_return_msg_name:= NULL;
873: l_return_status := NULL;
992: (
993: encoded_message => l_row_msg_data
994: );
995: --Add it to the message table
996: fnd_msg_pub.add;
997: --If there is only one message retrieve it
998: fnd_msg_pub.count_and_get
999: (
1000: p_count => l_msg_count
994: );
995: --Add it to the message table
996: fnd_msg_pub.add;
997: --If there is only one message retrieve it
998: fnd_msg_pub.count_and_get
999: (
1000: p_count => l_msg_count
1001: ,p_data => l_msg_data
1002: );
1027: (
1028: encoded_message => l_table_of_row_errors(i)
1029: );
1030: --Add the stacked message to the table
1031: fnd_msg_pub.add;
1032: END LOOP;
1033: --Set the return values
1034: l_msg_count := l_row_msg_count;
1035: l_msg_data := NULL;
1074: application => 'XLA'
1075: ,name => l_return_msg_name
1076: );
1077: --Add it to the message table
1078: fnd_msg_pub.add;
1079: END IF;
1080: --If there is only one message retrieve it
1081: fnd_msg_pub.Count_And_Get
1082: (
1077: --Add it to the message table
1078: fnd_msg_pub.add;
1079: END IF;
1080: --If there is only one message retrieve it
1081: fnd_msg_pub.Count_And_Get
1082: (
1083: p_count => l_msg_count
1084: ,p_data => l_msg_data
1085: );
1100: WHEN OTHERS THEN
1101: --Remove all the elements from the PLSQL table
1102: g_array_xla_tab .DELETE;
1103: --Add the standard unexpected error message
1104: fnd_msg_pub.Add_Exc_Msg
1105: ( p_pkg_name => C_PACKAGE_NAME
1106: ,p_procedure_name => 'read_online_tab '
1107: );
1108: --If there is only one message retrieve it
1105: ( p_pkg_name => C_PACKAGE_NAME
1106: ,p_procedure_name => 'read_online_tab '
1107: );
1108: --If there is only one message retrieve it
1109: fnd_msg_pub.Count_And_Get
1110: (
1111: p_count => l_msg_count
1112: ,p_data => l_msg_data
1113: );