140: ,p_level => C_LEVEL_PROCEDURE);
141: END IF;
142:
143: --Initialize the global message table
144: FND_MSG_PUB.Initialize;
145:
146: xla_tab_pub_pkg.run
147: (
148: p_api_version => p_api_version
160: THEN
161: --Push the error message again so that it does not get lost
162: IF l_msg_data IS NOT NULL
163: THEN
164: fnd_msg_pub.initialize;
165:
166: fnd_message.set_encoded
167: (
168: encoded_message => l_msg_data
168: encoded_message => l_msg_data
169: );
170:
171: --Add it to the message table
172: fnd_msg_pub.add;
173:
174: --Reset single message variables
175: l_msg_count := NULL;
176: l_msg_data := NULL;
204: fnd_message.set_token( 'FUNCTION_NAME'
205: ,'fun_xla_tab_pkg.run');
206:
207: --Add it to the message table
208: fnd_msg_pub.add;
209:
210: --If there is only one message retrieve it
211: fnd_msg_pub.Count_And_Get
212: (
207: --Add it to the message table
208: fnd_msg_pub.add;
209:
210: --If there is only one message retrieve it
211: fnd_msg_pub.Count_And_Get
212: (
213: p_count => l_msg_count
214: ,p_data => l_msg_data
215: );
230: WHEN OTHERS THEN
231: --Remove all the elements from the PLSQL table
232: reset_online_interface;
233: --Add the standard unexpected error message
234: fnd_msg_pub.Add_Exc_Msg
235: ( p_pkg_name => C_PACKAGE_NAME
236: ,p_procedure_name => 'run'
237: );
238: --If there is only one message retrieve it
235: ( p_pkg_name => C_PACKAGE_NAME
236: ,p_procedure_name => 'run'
237: );
238: --If there is only one message retrieve it
239: fnd_msg_pub.Count_And_Get
240: (
241: p_count => l_msg_count
242: ,p_data => l_msg_data
243: );
281: ,p_level => C_LEVEL_PROCEDURE);
282: END IF;
283:
284: --Initialize the global message table
285: FND_MSG_PUB.Initialize;
286:
287: --Initialize return status and message local variables
288: l_return_msg_name:= NULL;
289: l_return_status := NULL;
324: application => 'XLA'
325: ,name => l_return_msg_name
326: );
327: --Add it to the message table
328: fnd_msg_pub.add;
329: END IF;
330: --If there is only one message retrieve it
331: fnd_msg_pub.Count_And_Get
332: (
327: --Add it to the message table
328: fnd_msg_pub.add;
329: END IF;
330: --If there is only one message retrieve it
331: fnd_msg_pub.Count_And_Get
332: (
333: p_count => l_msg_count
334: ,p_data => l_msg_data
335: );
348: x_return_status := C_RET_STS_UNEXP_ERROR;
349: END IF;
350: WHEN OTHERS THEN
351: --Add the standard unexpected error message
352: fnd_msg_pub.Add_Exc_Msg
353: ( p_pkg_name => C_PACKAGE_NAME
354: ,p_procedure_name => 'reset_online_interface'
355: );
356: --If there is only one message retrieve it
353: ( p_pkg_name => C_PACKAGE_NAME
354: ,p_procedure_name => 'reset_online_interface'
355: );
356: --If there is only one message retrieve it
357: fnd_msg_pub.Count_And_Get
358: (
359: p_count => l_msg_count
360: ,p_data => l_msg_data
361: );
473: ,p_level => C_LEVEL_PROCEDURE);
474: END IF;
475:
476: --Initialize the global message table
477: FND_MSG_PUB.Initialize;
478:
479: --Initialize return status and message local variables
480: l_return_msg_name := NULL;
481: l_return_status := NULL;
572: token => 'SOURCE_DIST_ID_NUM5'
573: ,value => g_array_xla_tab (i).source_distribution_id_num_5
574: );
575:
576: fnd_msg_pub.add;
577:
578: --Raise a local exception
579: RAISE le_fatal_error;
580: --Elsif the current row has already been processed
697: application => 'XLA'
698: ,name => l_return_msg_name
699: );
700: --Add it to the message table
701: fnd_msg_pub.add;
702: END IF;
703: --If there is only one message retrieve it
704: fnd_msg_pub.Count_And_Get
705: (
700: --Add it to the message table
701: fnd_msg_pub.add;
702: END IF;
703: --If there is only one message retrieve it
704: fnd_msg_pub.Count_And_Get
705: (
706: p_count => l_msg_count
707: ,p_data => l_msg_data
708: );
723: WHEN OTHERS THEN
724: --Remove all the elements from the PLSQL table
725: g_array_xla_tab .DELETE;
726: --Add the standard unexpected error message
727: fnd_msg_pub.Add_Exc_Msg
728: ( p_pkg_name => C_PACKAGE_NAME
729: ,p_procedure_name => 'write_online_tab '
730: );
731: --If there is only one message retrieve it
728: ( p_pkg_name => C_PACKAGE_NAME
729: ,p_procedure_name => 'write_online_tab '
730: );
731: --If there is only one message retrieve it
732: fnd_msg_pub.Count_And_Get
733: (
734: p_count => l_msg_count
735: ,p_data => l_msg_data
736: );
793: ,p_level => C_LEVEL_PROCEDURE);
794: END IF;
795:
796: --Initialize the global message table
797: FND_MSG_PUB.Initialize;
798:
799: --Initialize return status and message local variables
800: l_return_msg_name:= NULL;
801: l_return_status := NULL;
921: (
922: encoded_message => l_row_msg_data
923: );
924: --Add it to the message table
925: fnd_msg_pub.add;
926: --If there is only one message retrieve it
927: fnd_msg_pub.count_and_get
928: (
929: p_count => l_msg_count
923: );
924: --Add it to the message table
925: fnd_msg_pub.add;
926: --If there is only one message retrieve it
927: fnd_msg_pub.count_and_get
928: (
929: p_count => l_msg_count
930: ,p_data => l_msg_data
931: );
956: (
957: encoded_message => l_table_of_row_errors(i)
958: );
959: --Add the stacked message to the table
960: fnd_msg_pub.add;
961: END LOOP;
962: --Set the return values
963: l_msg_count := l_row_msg_count;
964: l_msg_data := NULL;
1003: application => 'XLA'
1004: ,name => l_return_msg_name
1005: );
1006: --Add it to the message table
1007: fnd_msg_pub.add;
1008: END IF;
1009: --If there is only one message retrieve it
1010: fnd_msg_pub.Count_And_Get
1011: (
1006: --Add it to the message table
1007: fnd_msg_pub.add;
1008: END IF;
1009: --If there is only one message retrieve it
1010: fnd_msg_pub.Count_And_Get
1011: (
1012: p_count => l_msg_count
1013: ,p_data => l_msg_data
1014: );
1029: WHEN OTHERS THEN
1030: --Remove all the elements from the PLSQL table
1031: g_array_xla_tab .DELETE;
1032: --Add the standard unexpected error message
1033: fnd_msg_pub.Add_Exc_Msg
1034: ( p_pkg_name => C_PACKAGE_NAME
1035: ,p_procedure_name => 'read_online_tab '
1036: );
1037: --If there is only one message retrieve it
1034: ( p_pkg_name => C_PACKAGE_NAME
1035: ,p_procedure_name => 'read_online_tab '
1036: );
1037: --If there is only one message retrieve it
1038: fnd_msg_pub.Count_And_Get
1039: (
1040: p_count => l_msg_count
1041: ,p_data => l_msg_data
1042: );