75: G_PKG_NAME CONSTANT VARCHAR2(30) := 'FEM_ALLOC_BR_UTIL_PKG';
76:
77: f_set_status BOOLEAN;
78:
79: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
80: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
81: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
82: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
83: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
76:
77: f_set_status BOOLEAN;
78:
79: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
80: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
81: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
82: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
83: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
84: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
77: f_set_status BOOLEAN;
78:
79: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
80: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
81: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
82: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
83: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
84: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
85:
78:
79: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
80: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
81: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
82: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
83: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
84: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
85:
86: c_object_version CONSTANT NUMBER := 1;
79: c_log_level_1 CONSTANT NUMBER := fnd_log.level_statement;
80: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
81: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
82: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
83: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
84: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
85:
86: c_object_version CONSTANT NUMBER := 1;
87:
80: c_log_level_2 CONSTANT NUMBER := fnd_log.level_procedure;
81: c_log_level_3 CONSTANT NUMBER := fnd_log.level_event;
82: c_log_level_4 CONSTANT NUMBER := fnd_log.level_exception;
83: c_log_level_5 CONSTANT NUMBER := fnd_log.level_error;
84: c_log_level_6 CONSTANT NUMBER := fnd_log.level_unexpected;
85:
86: c_object_version CONSTANT NUMBER := 1;
87:
88: C_SNAP_OBJTYPE CONSTANT VARCHAR2(30) := 'MAPPING_EDIT_SNAPSHOT';
173: v_rule_type_code VARCHAR2(30);
174: v_object_id NUMBER;
175: v_dflt_usage VARCHAR2(30);
176:
177: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
178: 'fem.plsql.fem_alloc_br_util_pkg.set_dim_usage_dflt';
179:
180:
181: BEGIN
179:
180:
181: BEGIN
182:
183: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
184: FEM_ENGINES_PKG.TECH_MESSAGE(
185: p_severity => FND_LOG.level_procedure,
186: p_module => C_MODULE,
187: p_msg_text => 'Begin Procedure');
181: BEGIN
182:
183: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
184: FEM_ENGINES_PKG.TECH_MESSAGE(
185: p_severity => FND_LOG.level_procedure,
186: p_module => C_MODULE,
187: p_msg_text => 'Begin Procedure');
188: END IF;
189:
259: END IF;
260:
261: END LOOP;
262:
263: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
264: FEM_ENGINES_PKG.TECH_MESSAGE(
265: p_severity => FND_LOG.level_procedure,
266: p_module => C_MODULE,
267: p_msg_text => 'End Procedure');
261: END LOOP;
262:
263: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
264: FEM_ENGINES_PKG.TECH_MESSAGE(
265: p_severity => FND_LOG.level_procedure,
266: p_module => C_MODULE,
267: p_msg_text => 'End Procedure');
268: END IF;
269:
296: x_return_status OUT NOCOPY VARCHAR2,
297: x_msg_count OUT NOCOPY NUMBER,
298: x_msg_data OUT NOCOPY VARCHAR2) IS
299:
300: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
301: 'fem.plsql.fem_alloc_br_util_pkg.create_snapshot';
302: C_API_NAME CONSTANT VARCHAR2(30) := 'Create_Snapshot';
303:
304: e_unexp EXCEPTION;
333: -- Standard Start of API savepoint
334: SAVEPOINT create_snapshot_pub;
335:
336:
337: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
338: FEM_ENGINES_PKG.TECH_MESSAGE(
339: p_severity => FND_LOG.level_procedure,
340: p_module => C_MODULE,
341: p_msg_text => 'Begin Procedure');
335:
336:
337: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
338: FEM_ENGINES_PKG.TECH_MESSAGE(
339: p_severity => FND_LOG.level_procedure,
340: p_module => C_MODULE,
341: p_msg_text => 'Begin Procedure');
342: END IF;
343:
350: p_api_version,
351: C_API_NAME,
352: G_PKG_NAME)
353: THEN
354: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
355: FEM_ENGINES_PKG.TECH_MESSAGE(
356: p_severity => FND_LOG.level_statement,
357: p_module => C_MODULE,
358: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
352: G_PKG_NAME)
353: THEN
354: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
355: FEM_ENGINES_PKG.TECH_MESSAGE(
356: p_severity => FND_LOG.level_statement,
357: p_module => C_MODULE,
358: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
359: ||'passed in version ('||p_api_version||')');
360: END IF;
509: END IF;
510:
511: x_return_status := c_success;
512:
513: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
514: FEM_ENGINES_PKG.TECH_MESSAGE(
515: p_severity => FND_LOG.level_procedure,
516: p_module => C_MODULE,
517: p_msg_text => 'End Procedure');
511: x_return_status := c_success;
512:
513: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
514: FEM_ENGINES_PKG.TECH_MESSAGE(
515: p_severity => FND_LOG.level_procedure,
516: p_module => C_MODULE,
517: p_msg_text => 'End Procedure');
518: END IF;
519:
523:
524:
525: EXCEPTION
526: WHEN e_invalid_obj THEN
527: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
528: FEM_ENGINES_PKG.TECH_MESSAGE(
529: p_severity => FND_LOG.level_statement,
530: p_module => C_MODULE,
531: p_msg_text => 'Mapping Rule Object Definition does not exist'||p_map_rule_obj_def_id);
525: EXCEPTION
526: WHEN e_invalid_obj THEN
527: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
528: FEM_ENGINES_PKG.TECH_MESSAGE(
529: p_severity => FND_LOG.level_statement,
530: p_module => C_MODULE,
531: p_msg_text => 'Mapping Rule Object Definition does not exist'||p_map_rule_obj_def_id);
532: END IF;
533: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
536: ROLLBACK TO create_snapshot_pub;
537: x_return_status := c_error;
538:
539: WHEN e_objtype THEN
540: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
541: FEM_ENGINES_PKG.TECH_MESSAGE(
542: p_severity => FND_LOG.level_statement,
543: p_module => C_MODULE,
544: p_msg_text => 'Snapshot object type must be either MAPPING_EDIT_SNAPSHOT or MAPPING_PREVIEW');
538:
539: WHEN e_objtype THEN
540: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
541: FEM_ENGINES_PKG.TECH_MESSAGE(
542: p_severity => FND_LOG.level_statement,
543: p_module => C_MODULE,
544: p_msg_text => 'Snapshot object type must be either MAPPING_EDIT_SNAPSHOT or MAPPING_PREVIEW');
545: END IF;
546: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
549: ROLLBACK TO create_snapshot_pub;
550: x_return_status := c_error;
551:
552: WHEN e_helper_reg THEN
553: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
554: FEM_ENGINES_PKG.TECH_MESSAGE(
555: p_severity => FND_LOG.level_statement,
556: p_module => C_MODULE,
557: p_msg_text => 'Unable to register Helper Rule metadata');
551:
552: WHEN e_helper_reg THEN
553: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
554: FEM_ENGINES_PKG.TECH_MESSAGE(
555: p_severity => FND_LOG.level_statement,
556: p_module => C_MODULE,
557: p_msg_text => 'Unable to register Helper Rule metadata');
558: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
559: p_count => x_msg_count,
562: ROLLBACK TO create_snapshot_pub;
563: x_return_status := c_error;
564:
565: WHEN e_noobj THEN
566: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
567: FEM_ENGINES_PKG.TECH_MESSAGE(
568: p_severity => FND_LOG.level_statement,
569: p_module => C_MODULE,
570: p_msg_text => 'Unable to create Snapshot Object and Object Definition ID');
564:
565: WHEN e_noobj THEN
566: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
567: FEM_ENGINES_PKG.TECH_MESSAGE(
568: p_severity => FND_LOG.level_statement,
569: p_module => C_MODULE,
570: p_msg_text => 'Unable to create Snapshot Object and Object Definition ID');
571: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
572: p_count => x_msg_count,
576: x_return_status := c_error;
577:
578:
579: WHEN others THEN
580: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
581: FEM_ENGINES_PKG.TECH_MESSAGE(
582: p_severity => FND_LOG.level_statement,
583: p_module => C_MODULE,
584: p_msg_text => 'Unexpected error.');
578:
579: WHEN others THEN
580: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
581: FEM_ENGINES_PKG.TECH_MESSAGE(
582: p_severity => FND_LOG.level_statement,
583: p_module => C_MODULE,
584: p_msg_text => 'Unexpected error.');
585: FEM_ENGINES_PKG.TECH_MESSAGE(
586: p_severity => FND_LOG.level_statement,
582: p_severity => FND_LOG.level_statement,
583: p_module => C_MODULE,
584: p_msg_text => 'Unexpected error.');
585: FEM_ENGINES_PKG.TECH_MESSAGE(
586: p_severity => FND_LOG.level_statement,
587: p_module => C_MODULE,
588: p_msg_text => SQLERRM);
589: END IF;
590: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
618: x_return_status OUT NOCOPY VARCHAR2,
619: x_msg_count OUT NOCOPY NUMBER,
620: x_msg_data OUT NOCOPY VARCHAR2) IS
621:
622: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
623: 'fem.plsql.fem_alloc_br_util_pkg.refresh_maprule_from_snapshot';
624: C_API_NAME CONSTANT VARCHAR2(30) := 'Refresh_maprule_from_Snapshot';
625: C_SNAP_OBJTYPE CONSTANT VARCHAR2(30) := 'MAPPING_EDIT_SNAPSHOT';
626:
653: -- Standard Start of API savepoint
654: SAVEPOINT refresh_map_from_snapshot_pub;
655:
656:
657: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
658: FEM_ENGINES_PKG.TECH_MESSAGE(
659: p_severity => FND_LOG.level_procedure,
660: p_module => C_MODULE,
661: p_msg_text => 'Begin Procedure');
655:
656:
657: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
658: FEM_ENGINES_PKG.TECH_MESSAGE(
659: p_severity => FND_LOG.level_procedure,
660: p_module => C_MODULE,
661: p_msg_text => 'Begin Procedure');
662: END IF;
663:
670: p_api_version,
671: C_API_NAME,
672: G_PKG_NAME)
673: THEN
674: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
675: FEM_ENGINES_PKG.TECH_MESSAGE(
676: p_severity => FND_LOG.level_statement,
677: p_module => C_MODULE,
678: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
672: G_PKG_NAME)
673: THEN
674: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
675: FEM_ENGINES_PKG.TECH_MESSAGE(
676: p_severity => FND_LOG.level_statement,
677: p_module => C_MODULE,
678: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
679: ||'passed in version ('||p_api_version||')');
680: END IF;
792: x_return_status := c_success;
793:
794:
795:
796: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
797: FEM_ENGINES_PKG.TECH_MESSAGE(
798: p_severity => FND_LOG.level_procedure,
799: p_module => C_MODULE,
800: p_msg_text => 'End Procedure');
794:
795:
796: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
797: FEM_ENGINES_PKG.TECH_MESSAGE(
798: p_severity => FND_LOG.level_procedure,
799: p_module => C_MODULE,
800: p_msg_text => 'End Procedure');
801: END IF;
802:
806:
807:
808: EXCEPTION
809: WHEN e_invalid_obj THEN
810: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
811: FEM_ENGINES_PKG.TECH_MESSAGE(
812: p_severity => FND_LOG.level_statement,
813: p_module => C_MODULE,
814: p_msg_text => 'Mapping Rule Object Definition does not exist'||p_map_rule_obj_def_id);
808: EXCEPTION
809: WHEN e_invalid_obj THEN
810: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
811: FEM_ENGINES_PKG.TECH_MESSAGE(
812: p_severity => FND_LOG.level_statement,
813: p_module => C_MODULE,
814: p_msg_text => 'Mapping Rule Object Definition does not exist'||p_map_rule_obj_def_id);
815: END IF;
816: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
821:
822:
823:
824: WHEN OTHERS THEN
825: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
826: FEM_ENGINES_PKG.TECH_MESSAGE(
827: p_severity => FND_LOG.level_statement,
828: p_module => C_MODULE,
829: p_msg_text => 'Unexpected error.');
823:
824: WHEN OTHERS THEN
825: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
826: FEM_ENGINES_PKG.TECH_MESSAGE(
827: p_severity => FND_LOG.level_statement,
828: p_module => C_MODULE,
829: p_msg_text => 'Unexpected error.');
830: FEM_ENGINES_PKG.TECH_MESSAGE(
831: p_severity => FND_LOG.level_statement,
827: p_severity => FND_LOG.level_statement,
828: p_module => C_MODULE,
829: p_msg_text => 'Unexpected error.');
830: FEM_ENGINES_PKG.TECH_MESSAGE(
831: p_severity => FND_LOG.level_statement,
832: p_module => C_MODULE,
833: p_msg_text => SQLERRM);
834: END IF;
835: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
863: x_return_status OUT NOCOPY VARCHAR2,
864: x_msg_count OUT NOCOPY NUMBER,
865: x_msg_data OUT NOCOPY VARCHAR2) IS
866:
867: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
868: 'fem.plsql.fem_alloc_br_util_pkg.refresh_snapshot_from_maprule';
869: C_API_NAME CONSTANT VARCHAR2(30) := 'Refresh_Snapshot_from_snapshot';
870:
871: v_return_status VARCHAR2(30);
896: -- Standard Start of API savepoint
897: SAVEPOINT refresh_snapshot_from_map_pub;
898:
899:
900: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
901: FEM_ENGINES_PKG.TECH_MESSAGE(
902: p_severity => FND_LOG.level_procedure,
903: p_module => C_MODULE,
904: p_msg_text => 'Begin Procedure');
898:
899:
900: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
901: FEM_ENGINES_PKG.TECH_MESSAGE(
902: p_severity => FND_LOG.level_procedure,
903: p_module => C_MODULE,
904: p_msg_text => 'Begin Procedure');
905: END IF;
906:
913: p_api_version,
914: C_API_NAME,
915: G_PKG_NAME)
916: THEN
917: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
918: FEM_ENGINES_PKG.TECH_MESSAGE(
919: p_severity => FND_LOG.level_statement,
920: p_module => C_MODULE,
921: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
915: G_PKG_NAME)
916: THEN
917: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
918: FEM_ENGINES_PKG.TECH_MESSAGE(
919: p_severity => FND_LOG.level_statement,
920: p_module => C_MODULE,
921: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
922: ||'passed in version ('||p_api_version||')');
923: END IF;
1014:
1015: x_snapshot_objdef_id := v_helper_obj_def_id;
1016: x_return_status := c_success;
1017:
1018: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1019: FEM_ENGINES_PKG.TECH_MESSAGE(
1020: p_severity => FND_LOG.level_procedure,
1021: p_module => C_MODULE,
1022: p_msg_text => 'End Procedure');
1016: x_return_status := c_success;
1017:
1018: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1019: FEM_ENGINES_PKG.TECH_MESSAGE(
1020: p_severity => FND_LOG.level_procedure,
1021: p_module => C_MODULE,
1022: p_msg_text => 'End Procedure');
1023: END IF;
1024:
1028:
1029:
1030: EXCEPTION
1031: WHEN e_invalid_obj THEN
1032: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1033: FEM_ENGINES_PKG.TECH_MESSAGE(
1034: p_severity => FND_LOG.level_statement,
1035: p_module => C_MODULE,
1036: p_msg_text => 'Mapping Rule Object Definition does not exist '||p_map_rule_obj_def_id);
1030: EXCEPTION
1031: WHEN e_invalid_obj THEN
1032: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1033: FEM_ENGINES_PKG.TECH_MESSAGE(
1034: p_severity => FND_LOG.level_statement,
1035: p_module => C_MODULE,
1036: p_msg_text => 'Mapping Rule Object Definition does not exist '||p_map_rule_obj_def_id);
1037: END IF;
1038: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1041: ROLLBACK TO refresh_snapshot_from_map_pub;
1042: x_return_status := c_error;
1043:
1044: WHEN e_no_helper THEN
1045: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1046: FEM_ENGINES_PKG.TECH_MESSAGE(
1047: p_severity => FND_LOG.level_statement,
1048: p_module => C_MODULE,
1049: p_msg_text => 'Unable to identify snapshot for map_rule_obj_def_id = '||p_map_rule_obj_def_id);
1043:
1044: WHEN e_no_helper THEN
1045: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1046: FEM_ENGINES_PKG.TECH_MESSAGE(
1047: p_severity => FND_LOG.level_statement,
1048: p_module => C_MODULE,
1049: p_msg_text => 'Unable to identify snapshot for map_rule_obj_def_id = '||p_map_rule_obj_def_id);
1050: END IF;
1051: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1056:
1057:
1058:
1059: WHEN OTHERS THEN
1060: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1061: FEM_ENGINES_PKG.TECH_MESSAGE(
1062: p_severity => FND_LOG.level_statement,
1063: p_module => C_MODULE,
1064: p_msg_text => 'Unexpected error.');
1058:
1059: WHEN OTHERS THEN
1060: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1061: FEM_ENGINES_PKG.TECH_MESSAGE(
1062: p_severity => FND_LOG.level_statement,
1063: p_module => C_MODULE,
1064: p_msg_text => 'Unexpected error.');
1065: FEM_ENGINES_PKG.TECH_MESSAGE(
1066: p_severity => FND_LOG.level_statement,
1062: p_severity => FND_LOG.level_statement,
1063: p_module => C_MODULE,
1064: p_msg_text => 'Unexpected error.');
1065: FEM_ENGINES_PKG.TECH_MESSAGE(
1066: p_severity => FND_LOG.level_statement,
1067: p_module => C_MODULE,
1068: p_msg_text => SQLERRM);
1069: END IF;
1070: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1103: x_return_status OUT NOCOPY VARCHAR2,
1104: x_msg_count OUT NOCOPY NUMBER,
1105: x_msg_data OUT NOCOPY VARCHAR2) IS
1106:
1107: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1108: 'fem.plsql.fem_alloc_br_util_pkg.refresh_snapshot_from_defaults';
1109: C_API_NAME CONSTANT VARCHAR2(30) := 'Refresh_Snapshot_from_defaults';
1110:
1111: v_return_status VARCHAR2(30);
1133: -- Standard Start of API savepoint
1134: SAVEPOINT refresh_snapshot_from_dflt_pub;
1135:
1136:
1137: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1138: FEM_ENGINES_PKG.TECH_MESSAGE(
1139: p_severity => FND_LOG.level_procedure,
1140: p_module => C_MODULE,
1141: p_msg_text => 'Begin Procedure');
1135:
1136:
1137: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1138: FEM_ENGINES_PKG.TECH_MESSAGE(
1139: p_severity => FND_LOG.level_procedure,
1140: p_module => C_MODULE,
1141: p_msg_text => 'Begin Procedure');
1142: END IF;
1143:
1150: p_api_version,
1151: C_API_NAME,
1152: G_PKG_NAME)
1153: THEN
1154: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1155: FEM_ENGINES_PKG.TECH_MESSAGE(
1156: p_severity => FND_LOG.level_statement,
1157: p_module => C_MODULE,
1158: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
1152: G_PKG_NAME)
1153: THEN
1154: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1155: FEM_ENGINES_PKG.TECH_MESSAGE(
1156: p_severity => FND_LOG.level_statement,
1157: p_module => C_MODULE,
1158: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
1159: ||'passed in version ('||p_api_version||')');
1160: END IF;
1261:
1262: x_snapshot_objdef_id := v_helper_obj_def_id;
1263: x_return_status := c_success;
1264:
1265: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1266: FEM_ENGINES_PKG.TECH_MESSAGE(
1267: p_severity => FND_LOG.level_procedure,
1268: p_module => C_MODULE,
1269: p_msg_text => 'End Procedure');
1263: x_return_status := c_success;
1264:
1265: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1266: FEM_ENGINES_PKG.TECH_MESSAGE(
1267: p_severity => FND_LOG.level_procedure,
1268: p_module => C_MODULE,
1269: p_msg_text => 'End Procedure');
1270: END IF;
1271:
1275:
1276:
1277: EXCEPTION
1278: WHEN e_invalid_obj THEN
1279: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1280: FEM_ENGINES_PKG.TECH_MESSAGE(
1281: p_severity => FND_LOG.level_statement,
1282: p_module => C_MODULE,
1283: p_msg_text => 'Mapping Rule Object Definition does not exist '||p_map_rule_obj_def_id);
1277: EXCEPTION
1278: WHEN e_invalid_obj THEN
1279: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1280: FEM_ENGINES_PKG.TECH_MESSAGE(
1281: p_severity => FND_LOG.level_statement,
1282: p_module => C_MODULE,
1283: p_msg_text => 'Mapping Rule Object Definition does not exist '||p_map_rule_obj_def_id);
1284: END IF;
1285: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1288: ROLLBACK TO refresh_snapshot_from_dflt_pub;
1289: x_return_status := c_error;
1290:
1291: WHEN e_no_default THEN
1292: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1293: FEM_ENGINES_PKG.TECH_MESSAGE(
1294: p_severity => FND_LOG.level_statement,
1295: p_module => C_MODULE,
1296: p_msg_text => 'Mapping Rule defaults seed data is missing');
1290:
1291: WHEN e_no_default THEN
1292: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1293: FEM_ENGINES_PKG.TECH_MESSAGE(
1294: p_severity => FND_LOG.level_statement,
1295: p_module => C_MODULE,
1296: p_msg_text => 'Mapping Rule defaults seed data is missing');
1297: END IF;
1298: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1301: ROLLBACK TO refresh_snapshot_from_dflt_pub;
1302: x_return_status := c_error;
1303:
1304: WHEN e_no_helper THEN
1305: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1306: FEM_ENGINES_PKG.TECH_MESSAGE(
1307: p_severity => FND_LOG.level_statement,
1308: p_module => C_MODULE,
1309: p_msg_text => 'Unable to identify snapshot for map_rule_obj_def_id = '||p_map_rule_obj_def_id);
1303:
1304: WHEN e_no_helper THEN
1305: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1306: FEM_ENGINES_PKG.TECH_MESSAGE(
1307: p_severity => FND_LOG.level_statement,
1308: p_module => C_MODULE,
1309: p_msg_text => 'Unable to identify snapshot for map_rule_obj_def_id = '||p_map_rule_obj_def_id);
1310: END IF;
1311: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1316:
1317:
1318:
1319: WHEN OTHERS THEN
1320: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1321: FEM_ENGINES_PKG.TECH_MESSAGE(
1322: p_severity => FND_LOG.level_statement,
1323: p_module => C_MODULE,
1324: p_msg_text => 'Unexpected error.');
1318:
1319: WHEN OTHERS THEN
1320: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1321: FEM_ENGINES_PKG.TECH_MESSAGE(
1322: p_severity => FND_LOG.level_statement,
1323: p_module => C_MODULE,
1324: p_msg_text => 'Unexpected error.');
1325: FEM_ENGINES_PKG.TECH_MESSAGE(
1326: p_severity => FND_LOG.level_statement,
1322: p_severity => FND_LOG.level_statement,
1323: p_module => C_MODULE,
1324: p_msg_text => 'Unexpected error.');
1325: FEM_ENGINES_PKG.TECH_MESSAGE(
1326: p_severity => FND_LOG.level_statement,
1327: p_module => C_MODULE,
1328: p_msg_text => SQLERRM);
1329: END IF;
1330: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1362: x_return_status OUT NOCOPY VARCHAR2,
1363: x_msg_count OUT NOCOPY NUMBER,
1364: x_msg_data OUT NOCOPY VARCHAR2) IS
1365:
1366: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
1367: 'fem.plsql.fem_alloc_br_util_pkg.get_default_definition';
1368: C_API_NAME CONSTANT VARCHAR2(30) := 'Get_default_definition';
1369:
1370: v_return_status VARCHAR2(30);
1409: -- Standard Start of API savepoint
1410: SAVEPOINT get_dflt_def_pub;
1411:
1412:
1413: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1414: FEM_ENGINES_PKG.TECH_MESSAGE(
1415: p_severity => FND_LOG.level_procedure,
1416: p_module => C_MODULE,
1417: p_msg_text => 'Begin Procedure');
1411:
1412:
1413: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1414: FEM_ENGINES_PKG.TECH_MESSAGE(
1415: p_severity => FND_LOG.level_procedure,
1416: p_module => C_MODULE,
1417: p_msg_text => 'Begin Procedure');
1418: END IF;
1419:
1426: p_api_version,
1427: C_API_NAME,
1428: G_PKG_NAME)
1429: THEN
1430: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1431: FEM_ENGINES_PKG.TECH_MESSAGE(
1432: p_severity => FND_LOG.level_statement,
1433: p_module => C_MODULE,
1434: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
1428: G_PKG_NAME)
1429: THEN
1430: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1431: FEM_ENGINES_PKG.TECH_MESSAGE(
1432: p_severity => FND_LOG.level_statement,
1433: p_module => C_MODULE,
1434: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
1435: ||'passed in version ('||p_api_version||')');
1436: END IF;
1629:
1630: END IF;
1631: x_return_status := c_success;
1632:
1633: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1634: FEM_ENGINES_PKG.TECH_MESSAGE(
1635: p_severity => FND_LOG.level_procedure,
1636: p_module => C_MODULE,
1637: p_msg_text => 'End Procedure');
1631: x_return_status := c_success;
1632:
1633: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1634: FEM_ENGINES_PKG.TECH_MESSAGE(
1635: p_severity => FND_LOG.level_procedure,
1636: p_module => C_MODULE,
1637: p_msg_text => 'End Procedure');
1638: END IF;
1639:
1643:
1644:
1645: EXCEPTION
1646: WHEN e_invalid_rule_type THEN
1647: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1648: FEM_ENGINES_PKG.TECH_MESSAGE(
1649: p_severity => FND_LOG.level_statement,
1650: p_module => C_MODULE,
1651: p_msg_text => 'Mapping Rule Type does not exist '||p_map_rule_type_code);
1645: EXCEPTION
1646: WHEN e_invalid_rule_type THEN
1647: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1648: FEM_ENGINES_PKG.TECH_MESSAGE(
1649: p_severity => FND_LOG.level_statement,
1650: p_module => C_MODULE,
1651: p_msg_text => 'Mapping Rule Type does not exist '||p_map_rule_type_code);
1652: END IF;
1653: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1656: ROLLBACK TO get_dflt_def_pub;
1657: x_return_status := c_error;
1658:
1659: WHEN e_no_seeded_dflt THEN
1660: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1661: FEM_ENGINES_PKG.TECH_MESSAGE(
1662: p_severity => FND_LOG.level_statement,
1663: p_module => C_MODULE,
1664: p_msg_text => 'Mapping Rule defaults seed data is missing');
1658:
1659: WHEN e_no_seeded_dflt THEN
1660: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1661: FEM_ENGINES_PKG.TECH_MESSAGE(
1662: p_severity => FND_LOG.level_statement,
1663: p_module => C_MODULE,
1664: p_msg_text => 'Mapping Rule defaults seed data is missing');
1665: END IF;
1666: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
1669: ROLLBACK TO get_dflt_def_pub;
1670: x_return_status := c_error;
1671:
1672: WHEN e_noobj THEN
1673: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1674: FEM_ENGINES_PKG.TECH_MESSAGE(
1675: p_severity => FND_LOG.level_statement,
1676: p_module => C_MODULE,
1677: p_msg_text => 'Unable to create object for default rule type = '||p_map_rule_type_code||
1671:
1672: WHEN e_noobj THEN
1673: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1674: FEM_ENGINES_PKG.TECH_MESSAGE(
1675: p_severity => FND_LOG.level_statement,
1676: p_module => C_MODULE,
1677: p_msg_text => 'Unable to create object for default rule type = '||p_map_rule_type_code||
1678: ' and global_vs_combo_id ='||v_global_vs_combo_id);
1679: END IF;
1685:
1686:
1687:
1688: WHEN OTHERS THEN
1689: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1690: FEM_ENGINES_PKG.TECH_MESSAGE(
1691: p_severity => FND_LOG.level_statement,
1692: p_module => C_MODULE,
1693: p_msg_text => 'Unexpected error.');
1687:
1688: WHEN OTHERS THEN
1689: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
1690: FEM_ENGINES_PKG.TECH_MESSAGE(
1691: p_severity => FND_LOG.level_statement,
1692: p_module => C_MODULE,
1693: p_msg_text => 'Unexpected error.');
1694: FEM_ENGINES_PKG.TECH_MESSAGE(
1695: p_severity => FND_LOG.level_statement,
1691: p_severity => FND_LOG.level_statement,
1692: p_module => C_MODULE,
1693: p_msg_text => 'Unexpected error.');
1694: FEM_ENGINES_PKG.TECH_MESSAGE(
1695: p_severity => FND_LOG.level_statement,
1696: p_module => C_MODULE,
1697: p_msg_text => SQLERRM);
1698: END IF;
1699: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
2058: x_return_status OUT NOCOPY VARCHAR2,
2059: x_msg_count OUT NOCOPY NUMBER,
2060: x_msg_data OUT NOCOPY VARCHAR2) IS
2061:
2062: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2063: 'fem.plsql.fem_alloc_br_util_pkg.generate_condition_summary';
2064: C_API_NAME CONSTANT VARCHAR2(30) := 'Generate_condition_summary';
2065:
2066: v_return_status VARCHAR2(30);
2163:
2164:
2165: BEGIN
2166:
2167: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2168: FEM_ENGINES_PKG.TECH_MESSAGE(
2169: p_severity => FND_LOG.level_procedure,
2170: p_module => C_MODULE,
2171: p_msg_text => 'Begin Procedure');
2165: BEGIN
2166:
2167: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2168: FEM_ENGINES_PKG.TECH_MESSAGE(
2169: p_severity => FND_LOG.level_procedure,
2170: p_module => C_MODULE,
2171: p_msg_text => 'Begin Procedure');
2172: END IF;
2173:
2180: p_api_version,
2181: C_API_NAME,
2182: G_PKG_NAME)
2183: THEN
2184: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2185: FEM_ENGINES_PKG.TECH_MESSAGE(
2186: p_severity => FND_LOG.level_statement,
2187: p_module => C_MODULE,
2188: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
2182: G_PKG_NAME)
2183: THEN
2184: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2185: FEM_ENGINES_PKG.TECH_MESSAGE(
2186: p_severity => FND_LOG.level_statement,
2187: p_module => C_MODULE,
2188: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
2189: ||'passed in version ('||p_api_version||')');
2190: END IF;
2491: END LOOP; -- c_objdef
2492:
2493: x_return_status := c_success;
2494:
2495: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2496: FEM_ENGINES_PKG.TECH_MESSAGE(
2497: p_severity => FND_LOG.level_procedure,
2498: p_module => C_MODULE,
2499: p_msg_text => 'End Procedure');
2493: x_return_status := c_success;
2494:
2495: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2496: FEM_ENGINES_PKG.TECH_MESSAGE(
2497: p_severity => FND_LOG.level_procedure,
2498: p_module => C_MODULE,
2499: p_msg_text => 'End Procedure');
2500: END IF;
2501:
2500: END IF;
2501:
2502: EXCEPTION
2503: WHEN OTHERS THEN
2504: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2505: FEM_ENGINES_PKG.TECH_MESSAGE(
2506: p_severity => FND_LOG.level_statement,
2507: p_module => C_MODULE,
2508: p_msg_text => 'Unexpected error.');
2502: EXCEPTION
2503: WHEN OTHERS THEN
2504: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2505: FEM_ENGINES_PKG.TECH_MESSAGE(
2506: p_severity => FND_LOG.level_statement,
2507: p_module => C_MODULE,
2508: p_msg_text => 'Unexpected error.');
2509: FEM_ENGINES_PKG.TECH_MESSAGE(
2510: p_severity => FND_LOG.level_statement,
2506: p_severity => FND_LOG.level_statement,
2507: p_module => C_MODULE,
2508: p_msg_text => 'Unexpected error.');
2509: FEM_ENGINES_PKG.TECH_MESSAGE(
2510: p_severity => FND_LOG.level_statement,
2511: p_module => C_MODULE,
2512: p_msg_text => SQLERRM);
2513: END IF;
2514: x_return_status := c_unexp;
2548: x_return_status OUT NOCOPY VARCHAR2,
2549: x_msg_count OUT NOCOPY NUMBER,
2550: x_msg_data OUT NOCOPY VARCHAR2) IS
2551:
2552: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2553: 'fem.plsql.fem_alloc_br_util_pkg.create_new_ver_from_defaults';
2554: C_API_NAME CONSTANT VARCHAR2(30) := 'create_new_ver_from_defaults';
2555:
2556: v_return_status VARCHAR2(30);
2588: -- Standard Start of API savepoint
2589: SAVEPOINT create_new_ver_from_dflt_pub;
2590:
2591:
2592: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2593: FEM_ENGINES_PKG.TECH_MESSAGE(
2594: p_severity => FND_LOG.level_procedure,
2595: p_module => C_MODULE,
2596: p_msg_text => 'Begin Procedure');
2590:
2591:
2592: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2593: FEM_ENGINES_PKG.TECH_MESSAGE(
2594: p_severity => FND_LOG.level_procedure,
2595: p_module => C_MODULE,
2596: p_msg_text => 'Begin Procedure');
2597: END IF;
2598:
2605: p_api_version,
2606: C_API_NAME,
2607: G_PKG_NAME)
2608: THEN
2609: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2610: FEM_ENGINES_PKG.TECH_MESSAGE(
2611: p_severity => FND_LOG.level_statement,
2612: p_module => C_MODULE,
2613: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
2607: G_PKG_NAME)
2608: THEN
2609: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2610: FEM_ENGINES_PKG.TECH_MESSAGE(
2611: p_severity => FND_LOG.level_statement,
2612: p_module => C_MODULE,
2613: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
2614: ||'passed in version ('||p_api_version||')');
2615: END IF;
2733:
2734: x_snapshot_objdef_id := v_snap_objdef_id;
2735: x_return_status := c_success;
2736:
2737: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2738: FEM_ENGINES_PKG.TECH_MESSAGE(
2739: p_severity => FND_LOG.level_procedure,
2740: p_module => C_MODULE,
2741: p_msg_text => 'End Procedure');
2735: x_return_status := c_success;
2736:
2737: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2738: FEM_ENGINES_PKG.TECH_MESSAGE(
2739: p_severity => FND_LOG.level_procedure,
2740: p_module => C_MODULE,
2741: p_msg_text => 'End Procedure');
2742: END IF;
2743:
2747:
2748:
2749: EXCEPTION
2750: WHEN e_invalid_obj THEN
2751: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2752: FEM_ENGINES_PKG.TECH_MESSAGE(
2753: p_severity => FND_LOG.level_statement,
2754: p_module => C_MODULE,
2755: p_msg_text => 'Mapping Rule Object does not exist '||p_map_rule_obj_id);
2749: EXCEPTION
2750: WHEN e_invalid_obj THEN
2751: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2752: FEM_ENGINES_PKG.TECH_MESSAGE(
2753: p_severity => FND_LOG.level_statement,
2754: p_module => C_MODULE,
2755: p_msg_text => 'Mapping Rule Object does not exist '||p_map_rule_obj_id);
2756: END IF;
2757: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
2760: ROLLBACK TO create_new_ver_from_dflt_pub;
2761: x_return_status := c_error;
2762:
2763: WHEN e_no_default THEN
2764: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2765: FEM_ENGINES_PKG.TECH_MESSAGE(
2766: p_severity => FND_LOG.level_statement,
2767: p_module => C_MODULE,
2768: p_msg_text => 'Mapping Rule defaults seed data is missing');
2762:
2763: WHEN e_no_default THEN
2764: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2765: FEM_ENGINES_PKG.TECH_MESSAGE(
2766: p_severity => FND_LOG.level_statement,
2767: p_module => C_MODULE,
2768: p_msg_text => 'Mapping Rule defaults seed data is missing');
2769: END IF;
2770: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
2773: ROLLBACK TO create_new_ver_from_dflt_pub;
2774: x_return_status := c_error;
2775:
2776: WHEN e_no_objdef THEN
2777: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2778: FEM_ENGINES_PKG.TECH_MESSAGE(
2779: p_severity => FND_LOG.level_statement,
2780: p_module => C_MODULE,
2781: p_msg_text => 'Unable to create new object definition');
2775:
2776: WHEN e_no_objdef THEN
2777: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2778: FEM_ENGINES_PKG.TECH_MESSAGE(
2779: p_severity => FND_LOG.level_statement,
2780: p_module => C_MODULE,
2781: p_msg_text => 'Unable to create new object definition');
2782: END IF;
2783: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
2787: x_return_status := c_error;
2788:
2789:
2790: WHEN OTHERS THEN
2791: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2792: FEM_ENGINES_PKG.TECH_MESSAGE(
2793: p_severity => FND_LOG.level_statement,
2794: p_module => C_MODULE,
2795: p_msg_text => 'Unexpected error.');
2789:
2790: WHEN OTHERS THEN
2791: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2792: FEM_ENGINES_PKG.TECH_MESSAGE(
2793: p_severity => FND_LOG.level_statement,
2794: p_module => C_MODULE,
2795: p_msg_text => 'Unexpected error.');
2796: FEM_ENGINES_PKG.TECH_MESSAGE(
2797: p_severity => FND_LOG.level_statement,
2793: p_severity => FND_LOG.level_statement,
2794: p_module => C_MODULE,
2795: p_msg_text => 'Unexpected error.');
2796: FEM_ENGINES_PKG.TECH_MESSAGE(
2797: p_severity => FND_LOG.level_statement,
2798: p_module => C_MODULE,
2799: p_msg_text => SQLERRM);
2800: END IF;
2801: FND_MSG_PUB.Count_And_Get(p_encoded => p_encoded,
2816: **************************************************************************/
2817:
2818: FUNCTION defaults_exist(p_map_rule_type_code IN VARCHAR2) RETURN VARCHAR2 IS
2819:
2820: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2821: 'fem.plsql.fem_alloc_br_util_pkg.defaults_exist';
2822: C_API_NAME CONSTANT VARCHAR2(30) := 'Defaults_exist';
2823:
2824:
2836:
2837: BEGIN
2838:
2839:
2840: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2841: FEM_ENGINES_PKG.TECH_MESSAGE(
2842: p_severity => FND_LOG.level_procedure,
2843: p_module => C_MODULE,
2844: p_msg_text => 'Begin Procedure');
2838:
2839:
2840: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2841: FEM_ENGINES_PKG.TECH_MESSAGE(
2842: p_severity => FND_LOG.level_procedure,
2843: p_module => C_MODULE,
2844: p_msg_text => 'Begin Procedure');
2845: END IF;
2846:
2897: x_return_status OUT NOCOPY VARCHAR2,
2898: x_msg_count OUT NOCOPY NUMBER,
2899: x_msg_data OUT NOCOPY VARCHAR2) IS
2900:
2901: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
2902: 'fem.plsql.fem_alloc_br_util_pkg.generate_fctr_summary';
2903: C_API_NAME CONSTANT VARCHAR2(30) := 'Generate_fctr_summary';
2904:
2905: v_return_status VARCHAR2(30);
2938:
2939:
2940: BEGIN
2941:
2942: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2943: FEM_ENGINES_PKG.TECH_MESSAGE(
2944: p_severity => FND_LOG.level_procedure,
2945: p_module => C_MODULE,
2946: p_msg_text => 'Begin Procedure');
2940: BEGIN
2941:
2942: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2943: FEM_ENGINES_PKG.TECH_MESSAGE(
2944: p_severity => FND_LOG.level_procedure,
2945: p_module => C_MODULE,
2946: p_msg_text => 'Begin Procedure');
2947: END IF;
2948:
2955: p_api_version,
2956: C_API_NAME,
2957: G_PKG_NAME)
2958: THEN
2959: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2960: FEM_ENGINES_PKG.TECH_MESSAGE(
2961: p_severity => FND_LOG.level_statement,
2962: p_module => C_MODULE,
2963: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
2957: G_PKG_NAME)
2958: THEN
2959: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
2960: FEM_ENGINES_PKG.TECH_MESSAGE(
2961: p_severity => FND_LOG.level_statement,
2962: p_module => C_MODULE,
2963: p_msg_text => 'API Version ('||C_API_VERSION||') not compatible with '
2964: ||'passed in version ('||p_api_version||')');
2965: END IF;
3036: END LOOP; -- c_objdef
3037:
3038: x_return_status := c_success;
3039:
3040: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3041: FEM_ENGINES_PKG.TECH_MESSAGE(
3042: p_severity => FND_LOG.level_procedure,
3043: p_module => C_MODULE,
3044: p_msg_text => 'End Procedure');
3038: x_return_status := c_success;
3039:
3040: IF FND_LOG.level_procedure >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3041: FEM_ENGINES_PKG.TECH_MESSAGE(
3042: p_severity => FND_LOG.level_procedure,
3043: p_module => C_MODULE,
3044: p_msg_text => 'End Procedure');
3045: END IF;
3046:
3045: END IF;
3046:
3047: EXCEPTION
3048: WHEN OTHERS THEN
3049: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3050: FEM_ENGINES_PKG.TECH_MESSAGE(
3051: p_severity => FND_LOG.level_statement,
3052: p_module => C_MODULE,
3053: p_msg_text => 'Unexpected error.');
3047: EXCEPTION
3048: WHEN OTHERS THEN
3049: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3050: FEM_ENGINES_PKG.TECH_MESSAGE(
3051: p_severity => FND_LOG.level_statement,
3052: p_module => C_MODULE,
3053: p_msg_text => 'Unexpected error.');
3054: FEM_ENGINES_PKG.TECH_MESSAGE(
3055: p_severity => FND_LOG.level_statement,
3051: p_severity => FND_LOG.level_statement,
3052: p_module => C_MODULE,
3053: p_msg_text => 'Unexpected error.');
3054: FEM_ENGINES_PKG.TECH_MESSAGE(
3055: p_severity => FND_LOG.level_statement,
3056: p_module => C_MODULE,
3057: p_msg_text => SQLERRM);
3058: END IF;
3059: x_return_status := c_unexp;
3069: v_trace_contrib_flag NUMBER := 0;
3070: v_stat_count NUMBER := 0;
3071: v_row_count NUMBER := 0;
3072: e_unexp EXCEPTION;
3073: C_MODULE CONSTANT FND_LOG_MESSAGES.module%TYPE :=
3074: 'fem.plsql.fem_alloc_br_util_pkg.set_VT_attributes';
3075:
3076: BEGIN
3077:
3146:
3147:
3148: EXCEPTION
3149: WHEN others THEN
3150: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3151: FEM_ENGINES_PKG.TECH_MESSAGE(
3152: p_severity => FND_LOG.level_statement,
3153: p_module => C_MODULE,
3154: p_msg_text => 'Unexpected error.');
3148: EXCEPTION
3149: WHEN others THEN
3150: IF FND_LOG.level_statement >= FND_LOG.G_CURRENT_RUNTIME_LEVEL THEN
3151: FEM_ENGINES_PKG.TECH_MESSAGE(
3152: p_severity => FND_LOG.level_statement,
3153: p_module => C_MODULE,
3154: p_msg_text => 'Unexpected error.');
3155: FEM_ENGINES_PKG.TECH_MESSAGE(
3156: p_severity => FND_LOG.level_statement,
3152: p_severity => FND_LOG.level_statement,
3153: p_module => C_MODULE,
3154: p_msg_text => 'Unexpected error.');
3155: FEM_ENGINES_PKG.TECH_MESSAGE(
3156: p_severity => FND_LOG.level_statement,
3157: p_module => C_MODULE,
3158: p_msg_text => SQLERRM);
3159: raise e_unexp;
3160: END IF;