161: --------------------------------------------------------------------------------
162:
163: PROCEDURE SetApprovalStatus (
164: p_obj_def_id in number
165: ,p_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
166: ,p_approver_user_id in number := FND_API.G_MISS_NUM
167: ,p_approval_date in date := FND_API.G_MISS_DATE
168: );
169:
162:
163: PROCEDURE SetApprovalStatus (
164: p_obj_def_id in number
165: ,p_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
166: ,p_approver_user_id in number := FND_API.G_MISS_NUM
167: ,p_approval_date in date := FND_API.G_MISS_DATE
168: );
169:
170: FUNCTION GetApprovalStatus(
163: PROCEDURE SetApprovalStatus (
164: p_obj_def_id in number
165: ,p_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
166: ,p_approver_user_id in number := FND_API.G_MISS_NUM
167: ,p_approval_date in date := FND_API.G_MISS_DATE
168: );
169:
170: FUNCTION GetApprovalStatus(
171: p_obj_def_id in number
207: PROCEDURE CopyObjectRec (
208: p_source_obj_id in number
209: ,p_target_obj_id in number
210: ,p_target_obj_name in varchar2
211: ,p_target_obj_desc in varchar2 := FND_API.G_MISS_CHAR
212: ,p_created_by in number
213: ,p_creation_date in date
214: );
215:
219:
220: PROCEDURE CopyObjectDefinitionRec (
221: p_source_obj_def_id in number
222: ,p_target_obj_def_id in number
223: ,p_target_obj_id in number := FND_API.G_MISS_NUM
224: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
225: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
226: ,p_target_start_date in date := FND_API.G_MISS_DATE
227: ,p_target_end_date in date := FND_API.G_MISS_DATE
220: PROCEDURE CopyObjectDefinitionRec (
221: p_source_obj_def_id in number
222: ,p_target_obj_def_id in number
223: ,p_target_obj_id in number := FND_API.G_MISS_NUM
224: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
225: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
226: ,p_target_start_date in date := FND_API.G_MISS_DATE
227: ,p_target_end_date in date := FND_API.G_MISS_DATE
228: ,p_target_copy_flag in varchar2
221: p_source_obj_def_id in number
222: ,p_target_obj_def_id in number
223: ,p_target_obj_id in number := FND_API.G_MISS_NUM
224: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
225: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
226: ,p_target_start_date in date := FND_API.G_MISS_DATE
227: ,p_target_end_date in date := FND_API.G_MISS_DATE
228: ,p_target_copy_flag in varchar2
229: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
222: ,p_target_obj_def_id in number
223: ,p_target_obj_id in number := FND_API.G_MISS_NUM
224: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
225: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
226: ,p_target_start_date in date := FND_API.G_MISS_DATE
227: ,p_target_end_date in date := FND_API.G_MISS_DATE
228: ,p_target_copy_flag in varchar2
229: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
230: ,p_created_by in number
223: ,p_target_obj_id in number := FND_API.G_MISS_NUM
224: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
225: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
226: ,p_target_start_date in date := FND_API.G_MISS_DATE
227: ,p_target_end_date in date := FND_API.G_MISS_DATE
228: ,p_target_copy_flag in varchar2
229: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
230: ,p_created_by in number
231: ,p_creation_date in date
225: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
226: ,p_target_start_date in date := FND_API.G_MISS_DATE
227: ,p_target_end_date in date := FND_API.G_MISS_DATE
228: ,p_target_copy_flag in varchar2
229: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
230: ,p_created_by in number
231: ,p_creation_date in date
232: );
233:
340: --
341: --------------------------------------------------------------------------------
342: PROCEDURE DeleteObjectDefinition (
343: p_api_version in number := 1.0
344: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
345: ,p_commit in varchar2 := FND_API.G_FALSE
346: ,x_return_status out nocopy varchar2
347: ,x_msg_count out nocopy number
348: ,x_msg_data out nocopy varchar2
341: --------------------------------------------------------------------------------
342: PROCEDURE DeleteObjectDefinition (
343: p_api_version in number := 1.0
344: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
345: ,p_commit in varchar2 := FND_API.G_FALSE
346: ,x_return_status out nocopy varchar2
347: ,x_msg_count out nocopy number
348: ,x_msg_data out nocopy varchar2
349: ,p_object_type_code in varchar2
397: --
398: --------------------------------------------------------------------------------
399: PROCEDURE DeleteObjectDefinition (
400: p_api_version in number := 1.0
401: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
402: ,p_commit in varchar2 := FND_API.G_FALSE
403: ,x_return_status out nocopy varchar2
404: ,x_msg_count out nocopy number
405: ,x_msg_data out nocopy varchar2
398: --------------------------------------------------------------------------------
399: PROCEDURE DeleteObjectDefinition (
400: p_api_version in number := 1.0
401: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
402: ,p_commit in varchar2 := FND_API.G_FALSE
403: ,x_return_status out nocopy varchar2
404: ,x_msg_count out nocopy number
405: ,x_msg_data out nocopy varchar2
406: ,p_object_type_code in varchar2
433: -- Standard Start of API Savepoint
434: savepoint DeleteObjectDefinition_PVT;
435:
436: -- Standard call to check for call compatibility
437: if not FND_API.Compatible_API_Call (
438: p_current_version_number => l_api_version
439: ,p_caller_version_number => p_api_version
440: ,p_api_name => l_api_name
441: ,p_pkg_name => G_PKG_NAME
439: ,p_caller_version_number => p_api_version
440: ,p_api_name => l_api_name
441: ,p_pkg_name => G_PKG_NAME
442: ) then
443: raise FND_API.G_EXC_UNEXPECTED_ERROR;
444: end if;
445:
446: -- Initialize Message Stack on FND_MSG_PUB
447: if (FND_API.To_Boolean(p_init_msg_list)) then
443: raise FND_API.G_EXC_UNEXPECTED_ERROR;
444: end if;
445:
446: -- Initialize Message Stack on FND_MSG_PUB
447: if (FND_API.To_Boolean(p_init_msg_list)) then
448: FND_MSG_PUB.Initialize;
449: end if;
450:
451: FEM_ENGINES_PKG.Tech_Message (
458: ------------------------------------------------
459: -- Initialize Package and Procedure Variables --
460: ------------------------------------------------
461: -- Initialize API return status to success
462: x_return_status := FND_API.G_RET_STS_SUCCESS;
463:
464: -- Set Approval Request Id to null
465: x_delete_request_id := null;
466:
493: -- Check to see if we can delete the Object (this will also check to see
494: -- if the last Object Definition can be deleted).
495: FEM_PL_PKG.can_delete_object (
496: p_api_version => 1.0
497: ,p_init_msg_list => FND_API.G_FALSE
498: ,x_return_status => l_return_status
499: ,x_msg_count => l_msg_count
500: ,x_msg_data => l_msg_data
501: ,p_object_id => l_obj_id
516:
517: -- Check to see if we can delete the Object Definition
518: FEM_PL_PKG.can_delete_object_def (
519: p_api_version => 1.0
520: ,p_init_msg_list => FND_API.G_FALSE
521: ,x_return_status => l_return_status
522: ,x_msg_count => l_msg_count
523: ,x_msg_data => l_msg_data
524: ,p_object_definition_id => p_obj_def_id
533: end if;
534:
535: -- We can ignore l_can_delete as these FEM_PL_PKG API's now have the
536: -- x_return_status out param.
537: if (l_return_status = FND_API.G_RET_STS_ERROR) then
538: raise FND_API.G_EXC_ERROR;
539: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
540: raise FND_API.G_EXC_UNEXPECTED_ERROR;
541: end if;
534:
535: -- We can ignore l_can_delete as these FEM_PL_PKG API's now have the
536: -- x_return_status out param.
537: if (l_return_status = FND_API.G_RET_STS_ERROR) then
538: raise FND_API.G_EXC_ERROR;
539: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
540: raise FND_API.G_EXC_UNEXPECTED_ERROR;
541: end if;
542:
535: -- We can ignore l_can_delete as these FEM_PL_PKG API's now have the
536: -- x_return_status out param.
537: if (l_return_status = FND_API.G_RET_STS_ERROR) then
538: raise FND_API.G_EXC_ERROR;
539: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
540: raise FND_API.G_EXC_UNEXPECTED_ERROR;
541: end if;
542:
543: FEM_ENGINES_PKG.Tech_Message (
536: -- x_return_status out param.
537: if (l_return_status = FND_API.G_RET_STS_ERROR) then
538: raise FND_API.G_EXC_ERROR;
539: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
540: raise FND_API.G_EXC_UNEXPECTED_ERROR;
541: end if;
542:
543: FEM_ENGINES_PKG.Tech_Message (
544: p_severity => G_LOG_LEVEL_3
700: -----------------------
701: -- Finalize API Call --
702: -----------------------
703: -- Standard check of p_commit
704: if FND_API.To_Boolean(p_commit) then
705: commit work;
706: end if;
707:
708: -- Standard call to get message count and if count is 1, get message info
718: );
719:
720: EXCEPTION
721:
722: when FND_API.G_EXC_ERROR then
723: l_callstack := DBMS_UTILITY.Format_Call_Stack;
724: FEM_ENGINES_PKG.Tech_Message (
725: p_severity => G_LOG_LEVEL_6
726: ,p_module => G_BLOCK||'.'||l_api_name
731: EXCEPTION
732: WHEN OTHERS THEN rollback;
733: END;
734:
735: x_return_status := FND_API.G_RET_STS_ERROR;
736: FND_MSG_PUB.Count_And_Get(
737: p_count => x_msg_count
738: ,p_data => x_msg_data
739: );
737: p_count => x_msg_count
738: ,p_data => x_msg_data
739: );
740:
741: when FND_API.G_EXC_UNEXPECTED_ERROR then
742: l_callstack := DBMS_UTILITY.Format_Call_Stack;
743: FEM_ENGINES_PKG.Tech_Message (
744: p_severity => G_LOG_LEVEL_6
745: ,p_module => G_BLOCK||'.'||l_api_name
749: ROLLBACK TO DeleteObjectDefinition_PVT;
750: EXCEPTION
751: WHEN OTHERS THEN rollback;
752: END;
753: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
754: FND_MSG_PUB.Count_And_Get(
755: p_count => x_msg_count
756: ,p_data => x_msg_data
757: );
774: ROLLBACK TO DeleteObjectDefinition_PVT;
775: EXCEPTION
776: WHEN OTHERS THEN rollback;
777: END;
778: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
779: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
780: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
781: end if;
782: FND_MSG_PUB.Count_And_Get(
812: --
813: --------------------------------------------------------------------------------
814: PROCEDURE DuplicateObjectDefinition (
815: p_api_version in number := 1.0
816: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
817: ,p_commit in varchar2 := FND_API.G_FALSE
818: ,x_return_status out nocopy varchar2
819: ,x_msg_count out nocopy number
820: ,x_msg_data out nocopy varchar2
813: --------------------------------------------------------------------------------
814: PROCEDURE DuplicateObjectDefinition (
815: p_api_version in number := 1.0
816: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
817: ,p_commit in varchar2 := FND_API.G_FALSE
818: ,x_return_status out nocopy varchar2
819: ,x_msg_count out nocopy number
820: ,x_msg_data out nocopy varchar2
821: ,p_object_type_code in varchar2
833: -- Standard Start of API Savepoint
834: savepoint DuplicateObjectDefinition_PVT;
835:
836: -- Standard call to check for call compatibility
837: if not FND_API.Compatible_API_Call (
838: p_current_version_number => l_api_version
839: ,p_caller_version_number => p_api_version
840: ,p_api_name => l_api_name
841: ,p_pkg_name => G_PKG_NAME
839: ,p_caller_version_number => p_api_version
840: ,p_api_name => l_api_name
841: ,p_pkg_name => G_PKG_NAME
842: ) then
843: raise FND_API.G_EXC_UNEXPECTED_ERROR;
844: end if;
845:
846: -- Initialize Message Stack on FND_MSG_PUB
847: if (FND_API.To_Boolean(p_init_msg_list)) then
843: raise FND_API.G_EXC_UNEXPECTED_ERROR;
844: end if;
845:
846: -- Initialize Message Stack on FND_MSG_PUB
847: if (FND_API.To_Boolean(p_init_msg_list)) then
848: FND_MSG_PUB.Initialize;
849: end if;
850:
851: FEM_ENGINES_PKG.Tech_Message (
857: ------------------------------------------------
858: -- Initialize Package and Procedure Variables --
859: ------------------------------------------------
860: -- Initialize API return status to success
861: x_return_status := FND_API.G_RET_STS_SUCCESS;
862:
863: CopyObjectDefinitionInternal (
864: p_copy_type_code => G_DUPLICATE
865: ,p_object_type_code => p_object_type_code
873: -----------------------
874: -- Finalize API Call --
875: -----------------------
876: -- Standard check of p_commit
877: if FND_API.To_Boolean(p_commit) then
878: commit work;
879: end if;
880:
881: -- Standard call to get message count and if count is 1, get message info
891: );
892:
893: EXCEPTION
894:
895: when FND_API.G_EXC_ERROR then
896: rollback to DuplicateObjectDefinition_PVT;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: FND_MSG_PUB.Count_And_Get(
899: p_count => x_msg_count
893: EXCEPTION
894:
895: when FND_API.G_EXC_ERROR then
896: rollback to DuplicateObjectDefinition_PVT;
897: x_return_status := FND_API.G_RET_STS_ERROR;
898: FND_MSG_PUB.Count_And_Get(
899: p_count => x_msg_count
900: ,p_data => x_msg_data
901: );
899: p_count => x_msg_count
900: ,p_data => x_msg_data
901: );
902:
903: when FND_API.G_EXC_UNEXPECTED_ERROR then
904: rollback to DuplicateObjectDefinition_PVT;
905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
906: FND_MSG_PUB.Count_And_Get(
907: p_count => x_msg_count
901: );
902:
903: when FND_API.G_EXC_UNEXPECTED_ERROR then
904: rollback to DuplicateObjectDefinition_PVT;
905: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
906: FND_MSG_PUB.Count_And_Get(
907: p_count => x_msg_count
908: ,p_data => x_msg_data
909: );
909: );
910:
911: when others then
912: rollback to DuplicateObjectDefinition_PVT;
913: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
914: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
915: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
916: end if;
917: FND_MSG_PUB.Count_And_Get(
945: --
946: --------------------------------------------------------------------------------
947: PROCEDURE BackupObjectDefinition (
948: p_api_version in number := 1.0
949: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
950: ,p_commit in varchar2 := FND_API.G_FALSE
951: ,x_return_status out nocopy varchar2
952: ,x_msg_count out nocopy number
953: ,x_msg_data out nocopy varchar2
946: --------------------------------------------------------------------------------
947: PROCEDURE BackupObjectDefinition (
948: p_api_version in number := 1.0
949: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
950: ,p_commit in varchar2 := FND_API.G_FALSE
951: ,x_return_status out nocopy varchar2
952: ,x_msg_count out nocopy number
953: ,x_msg_data out nocopy varchar2
954: ,p_object_type_code in varchar2
968: -- Standard Start of API Savepoint
969: savepoint BackupObjectDefinition_PVT;
970:
971: -- Standard call to check for call compatibility
972: if not FND_API.Compatible_API_Call (
973: p_current_version_number => l_api_version
974: ,p_caller_version_number => p_api_version
975: ,p_api_name => l_api_name
976: ,p_pkg_name => G_PKG_NAME
974: ,p_caller_version_number => p_api_version
975: ,p_api_name => l_api_name
976: ,p_pkg_name => G_PKG_NAME
977: ) then
978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
979: end if;
980:
981: -- Initialize Message Stack on FND_MSG_PUB
982: if (FND_API.To_Boolean(p_init_msg_list)) then
978: raise FND_API.G_EXC_UNEXPECTED_ERROR;
979: end if;
980:
981: -- Initialize Message Stack on FND_MSG_PUB
982: if (FND_API.To_Boolean(p_init_msg_list)) then
983: FND_MSG_PUB.Initialize;
984: end if;
985:
986: FEM_ENGINES_PKG.Tech_Message (
992: ------------------------------------------------
993: -- Initialize Package and Procedure Variables --
994: ------------------------------------------------
995: -- Initialize API return status to success
996: x_return_status := FND_API.G_RET_STS_SUCCESS;
997:
998: l_old_approved_obj_def_id := GetOldApprovedObjDefId(p_obj_def_id);
999:
1000: if (l_old_approved_obj_def_id is null) then
1026: -----------------------
1027: -- Finalize API Call --
1028: -----------------------
1029: -- Standard check of p_commit
1030: if FND_API.To_Boolean(p_commit) then
1031: commit work;
1032: end if;
1033:
1034: -- Standard call to get message count and if count is 1, get message info
1044: );
1045:
1046: EXCEPTION
1047:
1048: when FND_API.G_EXC_ERROR then
1049: rollback to BackupObjectDefinition_PVT;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: FND_MSG_PUB.Count_And_Get(
1052: p_count => x_msg_count
1046: EXCEPTION
1047:
1048: when FND_API.G_EXC_ERROR then
1049: rollback to BackupObjectDefinition_PVT;
1050: x_return_status := FND_API.G_RET_STS_ERROR;
1051: FND_MSG_PUB.Count_And_Get(
1052: p_count => x_msg_count
1053: ,p_data => x_msg_data
1054: );
1052: p_count => x_msg_count
1053: ,p_data => x_msg_data
1054: );
1055:
1056: when FND_API.G_EXC_UNEXPECTED_ERROR then
1057: rollback to BackupObjectDefinition_PVT;
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059: FND_MSG_PUB.Count_And_Get(
1060: p_count => x_msg_count
1054: );
1055:
1056: when FND_API.G_EXC_UNEXPECTED_ERROR then
1057: rollback to BackupObjectDefinition_PVT;
1058: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1059: FND_MSG_PUB.Count_And_Get(
1060: p_count => x_msg_count
1061: ,p_data => x_msg_data
1062: );
1062: );
1063:
1064: when others then
1065: rollback to BackupObjectDefinition_PVT;
1066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1067: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
1068: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1069: end if;
1070: FND_MSG_PUB.Count_And_Get(
1097: --
1098: --------------------------------------------------------------------------------
1099: PROCEDURE RevertObjectDefinition (
1100: p_api_version in number := 1.0
1101: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1102: ,p_commit in varchar2 := FND_API.G_FALSE
1103: ,x_return_status out nocopy varchar2
1104: ,x_msg_count out nocopy number
1105: ,x_msg_data out nocopy varchar2
1098: --------------------------------------------------------------------------------
1099: PROCEDURE RevertObjectDefinition (
1100: p_api_version in number := 1.0
1101: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1102: ,p_commit in varchar2 := FND_API.G_FALSE
1103: ,x_return_status out nocopy varchar2
1104: ,x_msg_count out nocopy number
1105: ,x_msg_data out nocopy varchar2
1106: ,p_object_type_code in varchar2
1124: -- Standard Start of API Savepoint
1125: savepoint RevertObjectDefinition_PVT;
1126:
1127: -- Standard call to check for call compatibility
1128: if not FND_API.Compatible_API_Call (
1129: p_current_version_number => l_api_version
1130: ,p_caller_version_number => p_api_version
1131: ,p_api_name => l_api_name
1132: ,p_pkg_name => G_PKG_NAME
1130: ,p_caller_version_number => p_api_version
1131: ,p_api_name => l_api_name
1132: ,p_pkg_name => G_PKG_NAME
1133: ) then
1134: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1135: end if;
1136:
1137: -- Initialize Message Stack on FND_MSG_PUB
1138: if (FND_API.To_Boolean(p_init_msg_list)) then
1134: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1135: end if;
1136:
1137: -- Initialize Message Stack on FND_MSG_PUB
1138: if (FND_API.To_Boolean(p_init_msg_list)) then
1139: FND_MSG_PUB.Initialize;
1140: end if;
1141:
1142: FEM_ENGINES_PKG.Tech_Message (
1148: ------------------------------------------------
1149: -- Initialize Package and Procedure Variables --
1150: ------------------------------------------------
1151: -- Initialize API return status to success
1152: x_return_status := FND_API.G_RET_STS_SUCCESS;
1153:
1154: -- Check that the approval status is NOT_APPROVED
1155: l_approval_status_code := GetApprovalStatus(p_obj_def_id);
1156: if (l_approval_status_code <> G_NOT_APPROVED_STATUS) then
1155: l_approval_status_code := GetApprovalStatus(p_obj_def_id);
1156: if (l_approval_status_code <> G_NOT_APPROVED_STATUS) then
1157: FND_MESSAGE.set_name('FEM', 'FEM_BR_RVRT_NOT_APPROVED_ERR');
1158: FND_MSG_PUB.Add;
1159: raise FND_API.G_EXC_ERROR;
1160: end if;
1161:
1162: -- Check that object definitions has an old approved copy
1163: l_old_approved_obj_def_id := GetOldApprovedObjDefId(p_obj_def_id);
1163: l_old_approved_obj_def_id := GetOldApprovedObjDefId(p_obj_def_id);
1164: if (l_old_approved_obj_def_id is null) then
1165: FND_MESSAGE.set_name('FEM', 'FEM_BR_RVRT_OLD_APPR_CPY_ERR');
1166: FND_MSG_PUB.Add;
1167: raise FND_API.G_EXC_ERROR;
1168: end if;
1169:
1170: -- Check for any Data Locks
1171: FEM_PL_PKG.obj_def_data_edit_lock_exists(
1172: p_object_definition_id => p_obj_def_id
1173: ,x_data_edit_lock_exists => l_data_edit_lock_exists
1174: );
1175:
1176: if (FND_API.To_Boolean(l_data_edit_lock_exists)) then
1177: FND_MESSAGE.set_name('FEM', 'FEM_BR_RVRT_DATA_EDIT_LOCK_ERR');
1178: FND_MSG_PUB.Add;
1179: raise FND_API.G_EXC_ERROR;
1180: end if;
1175:
1176: if (FND_API.To_Boolean(l_data_edit_lock_exists)) then
1177: FND_MESSAGE.set_name('FEM', 'FEM_BR_RVRT_DATA_EDIT_LOCK_ERR');
1178: FND_MSG_PUB.Add;
1179: raise FND_API.G_EXC_ERROR;
1180: end if;
1181:
1182: -- Get effective dates of old approved copy
1183: GetEffectiveDates(
1223: -----------------------
1224: -- Finalize API Call --
1225: -----------------------
1226: -- Standard check of p_commit
1227: if FND_API.To_Boolean(p_commit) then
1228: commit work;
1229: end if;
1230:
1231: -- Standard call to get message count and if count is 1, get message info
1241: );
1242:
1243: EXCEPTION
1244:
1245: when FND_API.G_EXC_ERROR then
1246: rollback to RevertObjectDefinition_PVT;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: FND_MSG_PUB.Count_And_Get(
1249: p_count => x_msg_count
1243: EXCEPTION
1244:
1245: when FND_API.G_EXC_ERROR then
1246: rollback to RevertObjectDefinition_PVT;
1247: x_return_status := FND_API.G_RET_STS_ERROR;
1248: FND_MSG_PUB.Count_And_Get(
1249: p_count => x_msg_count
1250: ,p_data => x_msg_data
1251: );
1249: p_count => x_msg_count
1250: ,p_data => x_msg_data
1251: );
1252:
1253: when FND_API.G_EXC_UNEXPECTED_ERROR then
1254: rollback to RevertObjectDefinition_PVT;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: FND_MSG_PUB.Count_And_Get(
1257: p_count => x_msg_count
1251: );
1252:
1253: when FND_API.G_EXC_UNEXPECTED_ERROR then
1254: rollback to RevertObjectDefinition_PVT;
1255: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1256: FND_MSG_PUB.Count_And_Get(
1257: p_count => x_msg_count
1258: ,p_data => x_msg_data
1259: );
1259: );
1260:
1261: when others then
1262: rollback to RevertObjectDefinition_PVT;
1263: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1264: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
1265: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1266: end if;
1267: FND_MSG_PUB.Count_And_Get(
1297: --
1298: --------------------------------------------------------------------------------
1299: PROCEDURE DeleteObject (
1300: p_api_version in number
1301: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1302: ,p_commit in varchar2 := FND_API.G_FALSE
1303: ,x_return_status out nocopy varchar2
1304: ,x_msg_count out nocopy number
1305: ,x_msg_data out nocopy varchar2
1298: --------------------------------------------------------------------------------
1299: PROCEDURE DeleteObject (
1300: p_api_version in number
1301: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1302: ,p_commit in varchar2 := FND_API.G_FALSE
1303: ,x_return_status out nocopy varchar2
1304: ,x_msg_count out nocopy number
1305: ,x_msg_data out nocopy varchar2
1306: ,p_object_type_code in varchar2
1336: -- Standard Start of API Savepoint
1337: savepoint DeleteObject_PVT;
1338:
1339: -- Standard call to check for call compatibility
1340: if not FND_API.Compatible_API_Call (
1341: p_current_version_number => l_api_version
1342: ,p_caller_version_number => p_api_version
1343: ,p_api_name => l_api_name
1344: ,p_pkg_name => G_PKG_NAME
1342: ,p_caller_version_number => p_api_version
1343: ,p_api_name => l_api_name
1344: ,p_pkg_name => G_PKG_NAME
1345: ) then
1346: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1347: end if;
1348:
1349: -- Initialize Message Stack on FND_MSG_PUB
1350: if (FND_API.To_Boolean(p_init_msg_list)) then
1346: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1347: end if;
1348:
1349: -- Initialize Message Stack on FND_MSG_PUB
1350: if (FND_API.To_Boolean(p_init_msg_list)) then
1351: FND_MSG_PUB.Initialize;
1352: end if;
1353:
1354: FEM_ENGINES_PKG.Tech_Message (
1361: ------------------------------------------------
1362: -- Initialize Package and Procedure Variables --
1363: ------------------------------------------------
1364: -- Initialize API return status to success
1365: x_return_status := FND_API.G_RET_STS_SUCCESS;
1366:
1367: ------------------------------------------------------------------------------
1368: -- STEP 1: Check to see if we can delete object
1369: ------------------------------------------------------------------------------
1368: -- STEP 1: Check to see if we can delete object
1369: ------------------------------------------------------------------------------
1370: FEM_PL_PKG.can_delete_object (
1371: p_api_version => 1.0
1372: ,p_init_msg_list => FND_API.G_FALSE
1373: ,x_return_status => l_return_status
1374: ,x_msg_count => l_msg_count
1375: ,x_msg_data => l_msg_data
1376: ,p_object_id => p_obj_id
1384: ,p_msg_text => 'After call FEM_PL_PKG.can_delete_object'
1385: );
1386: -- We can ignore l_can_delete_obj as this FEM_PL_PKG API now has the
1387: -- x_return_status out param.
1388: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1389: raise FND_API.G_EXC_ERROR;
1390: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1391: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1392: end if;
1385: );
1386: -- We can ignore l_can_delete_obj as this FEM_PL_PKG API now has the
1387: -- x_return_status out param.
1388: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1389: raise FND_API.G_EXC_ERROR;
1390: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1391: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1392: end if;
1393:
1386: -- We can ignore l_can_delete_obj as this FEM_PL_PKG API now has the
1387: -- x_return_status out param.
1388: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1389: raise FND_API.G_EXC_ERROR;
1390: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1391: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1392: end if;
1393:
1394: ------------------------------------------------------------------------------
1387: -- x_return_status out param.
1388: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1389: raise FND_API.G_EXC_ERROR;
1390: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1391: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1392: end if;
1393:
1394: ------------------------------------------------------------------------------
1395: -- STEP 2: Loop through all object definitions and delete them
1404:
1405: DeleteObjectDefinition (
1406: p_object_type_code => p_object_type_code
1407: ,p_obj_def_id => l_obj_defs_rec.object_definition_id
1408: ,p_init_msg_list => FND_API.G_FALSE
1409: ,x_return_status => l_return_status
1410: ,x_msg_count => l_msg_count
1411: ,x_msg_data => l_msg_data
1412: ,p_process_type => p_process_type
1417: ,p_module => G_BLOCK||'.'|| l_api_name
1418: ,p_msg_text => 'After call DeleteObjectDefinition'
1419: );
1420:
1421: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1422: raise FND_API.G_EXC_ERROR;
1423: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: end if;
1418: ,p_msg_text => 'After call DeleteObjectDefinition'
1419: );
1420:
1421: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1422: raise FND_API.G_EXC_ERROR;
1423: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: end if;
1426:
1419: );
1420:
1421: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1422: raise FND_API.G_EXC_ERROR;
1423: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: end if;
1426:
1427: end loop;
1420:
1421: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1422: raise FND_API.G_EXC_ERROR;
1423: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1424: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1425: end if;
1426:
1427: end loop;
1428:
1461: -----------------------
1462: -- Finalize API Call --
1463: -----------------------
1464: -- Standard check of p_commit
1465: if FND_API.To_Boolean(p_commit) then
1466: commit work;
1467: end if;
1468:
1469: -- Standard call to get message count and if count is 1, get message info
1479: );
1480:
1481: EXCEPTION
1482:
1483: when FND_API.G_EXC_ERROR then
1484: BEGIN
1485: ROLLBACK TO DeleteObject_PVT;
1486: EXCEPTION
1487: WHEN OTHERS THEN rollback;
1485: ROLLBACK TO DeleteObject_PVT;
1486: EXCEPTION
1487: WHEN OTHERS THEN rollback;
1488: END;
1489: x_return_status := FND_API.G_RET_STS_ERROR;
1490: FND_MSG_PUB.Count_And_Get(
1491: p_count => x_msg_count
1492: ,p_data => x_msg_data
1493: );
1491: p_count => x_msg_count
1492: ,p_data => x_msg_data
1493: );
1494:
1495: when FND_API.G_EXC_UNEXPECTED_ERROR then
1496: BEGIN
1497: ROLLBACK TO DeleteObject_PVT;
1498: EXCEPTION
1499: WHEN OTHERS THEN rollback;
1497: ROLLBACK TO DeleteObject_PVT;
1498: EXCEPTION
1499: WHEN OTHERS THEN rollback;
1500: END;
1501: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1502: FND_MSG_PUB.Count_And_Get(
1503: p_count => x_msg_count
1504: ,p_data => x_msg_data
1505: );
1509: ROLLBACK TO DeleteObject_PVT;
1510: EXCEPTION
1511: WHEN OTHERS THEN rollback;
1512: END;
1513: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1514: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
1515: FND_MSG_PUB.Add_Exc_Msg (
1516: p_pkg_name => G_PKG_NAME
1517: ,p_procedure_name => l_api_name
1570: --
1571: --------------------------------------------------------------------------------
1572: PROCEDURE DuplicateObject (
1573: p_api_version in number
1574: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1575: ,p_commit in varchar2 := FND_API.G_FALSE
1576: ,x_return_status out nocopy varchar2
1577: ,x_msg_count out nocopy number
1578: ,x_msg_data out nocopy varchar2
1571: --------------------------------------------------------------------------------
1572: PROCEDURE DuplicateObject (
1573: p_api_version in number
1574: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1575: ,p_commit in varchar2 := FND_API.G_FALSE
1576: ,x_return_status out nocopy varchar2
1577: ,x_msg_count out nocopy number
1578: ,x_msg_data out nocopy varchar2
1579: ,p_object_type_code in varchar2
1580: ,p_source_obj_id in number
1581: ,p_source_obj_def_id in number
1582: ,x_target_obj_id in out nocopy number
1583: ,p_target_obj_name in varchar2
1584: ,p_target_obj_desc in varchar2 := FND_API.G_MISS_CHAR
1585: ,x_target_obj_def_id in out nocopy number
1586: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1582: ,x_target_obj_id in out nocopy number
1583: ,p_target_obj_name in varchar2
1584: ,p_target_obj_desc in varchar2 := FND_API.G_MISS_CHAR
1585: ,x_target_obj_def_id in out nocopy number
1586: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1583: ,p_target_obj_name in varchar2
1584: ,p_target_obj_desc in varchar2 := FND_API.G_MISS_CHAR
1585: ,x_target_obj_def_id in out nocopy number
1586: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1584: ,p_target_obj_desc in varchar2 := FND_API.G_MISS_CHAR
1585: ,x_target_obj_def_id in out nocopy number
1586: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1585: ,x_target_obj_def_id in out nocopy number
1586: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1593: ,p_created_by in number := FND_API.G_MISS_NUM
1586: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1593: ,p_created_by in number := FND_API.G_MISS_NUM
1594: ,p_creation_date in date := FND_API.G_MISS_DATE
1587: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1593: ,p_created_by in number := FND_API.G_MISS_NUM
1594: ,p_creation_date in date := FND_API.G_MISS_DATE
1595: )
1588: ,p_target_start_date in date := FND_API.G_MISS_DATE
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1593: ,p_created_by in number := FND_API.G_MISS_NUM
1594: ,p_creation_date in date := FND_API.G_MISS_DATE
1595: )
1596: --------------------------------------------------------------------------------
1589: ,p_target_end_date in date := FND_API.G_MISS_DATE
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1593: ,p_created_by in number := FND_API.G_MISS_NUM
1594: ,p_creation_date in date := FND_API.G_MISS_DATE
1595: )
1596: --------------------------------------------------------------------------------
1597: IS
1590: ,p_target_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
1591: ,p_target_approved_by in number := FND_API.G_MISS_NUM
1592: ,p_target_approval_date in date := FND_API.G_MISS_DATE
1593: ,p_created_by in number := FND_API.G_MISS_NUM
1594: ,p_creation_date in date := FND_API.G_MISS_DATE
1595: )
1596: --------------------------------------------------------------------------------
1597: IS
1598:
1617: -- Standard Start of API Savepoint
1618: savepoint DuplicateObject_PVT;
1619:
1620: -- Standard call to check for call compatibility
1621: if not FND_API.Compatible_API_Call (
1622: p_current_version_number => l_api_version
1623: ,p_caller_version_number => p_api_version
1624: ,p_api_name => l_api_name
1625: ,p_pkg_name => G_PKG_NAME
1623: ,p_caller_version_number => p_api_version
1624: ,p_api_name => l_api_name
1625: ,p_pkg_name => G_PKG_NAME
1626: ) then
1627: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1628: end if;
1629:
1630: -- Initialize Message Stack on FND_MSG_PUB
1631: if (FND_API.To_Boolean(p_init_msg_list)) then
1627: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1628: end if;
1629:
1630: -- Initialize Message Stack on FND_MSG_PUB
1631: if (FND_API.To_Boolean(p_init_msg_list)) then
1632: FND_MSG_PUB.Initialize;
1633: end if;
1634:
1635: FEM_ENGINES_PKG.Tech_Message (
1641: ------------------------------------------------
1642: -- Initialize Package and Procedure Variables --
1643: ------------------------------------------------
1644: -- Initialize API return status to success
1645: x_return_status := FND_API.G_RET_STS_SUCCESS;
1646:
1647: ------------------------------------------------------------------------------
1648: -- STEP 1: Check parameter values
1649: ------------------------------------------------------------------------------
1660: -- Delete the existing Target Object Definition Id if one was specified
1661: DeleteObjectDefinition (
1662: p_object_type_code => p_object_type_code
1663: ,p_obj_def_id => x_target_obj_def_id
1664: ,p_init_msg_list => FND_API.G_FALSE
1665: ,x_return_status => l_return_status
1666: ,x_msg_count => l_msg_count
1667: ,x_msg_data => l_msg_data
1668: ,p_process_type => G_WORKFLOW
1667: ,x_msg_data => l_msg_data
1668: ,p_process_type => G_WORKFLOW
1669: );
1670:
1671: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1672: raise FND_API.G_EXC_ERROR;
1673: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1674: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1675: end if;
1668: ,p_process_type => G_WORKFLOW
1669: );
1670:
1671: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1672: raise FND_API.G_EXC_ERROR;
1673: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1674: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1675: end if;
1676:
1669: );
1670:
1671: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1672: raise FND_API.G_EXC_ERROR;
1673: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1674: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1675: end if;
1676:
1677: end if;
1670:
1671: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1672: raise FND_API.G_EXC_ERROR;
1673: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1674: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1675: end if;
1676:
1677: end if;
1678:
1690: -- STEP 2: Check Object Name
1691: ------------------------------------------------------------------------------
1692: CheckObjectName (
1693: p_api_version => 1.0
1694: ,p_init_msg_list => FND_API.G_FALSE
1695: ,x_return_status => l_return_status
1696: ,x_msg_count => l_msg_count
1697: ,x_msg_data => l_msg_data
1698: ,p_obj_name => p_target_obj_name
1698: ,p_obj_name => p_target_obj_name
1699: ,p_obj_id => x_target_obj_id
1700: );
1701:
1702: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1703: raise FND_API.G_EXC_ERROR;
1704: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1705: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1706: end if;
1699: ,p_obj_id => x_target_obj_id
1700: );
1701:
1702: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1703: raise FND_API.G_EXC_ERROR;
1704: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1705: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1706: end if;
1707:
1700: );
1701:
1702: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1703: raise FND_API.G_EXC_ERROR;
1704: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1705: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1706: end if;
1707:
1708: ------------------------------------------------------------------------------
1701:
1702: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1703: raise FND_API.G_EXC_ERROR;
1704: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1705: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1706: end if;
1707:
1708: ------------------------------------------------------------------------------
1709: -- STEP 3: Copy Object Record
1725: ,x_msg_count => l_msg_count
1726: ,x_msg_data => l_msg_data
1727: );
1728:
1729: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1730: raise FND_API.G_EXC_ERROR;
1731: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1732: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1733: end if;
1726: ,x_msg_data => l_msg_data
1727: );
1728:
1729: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1730: raise FND_API.G_EXC_ERROR;
1731: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1732: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1733: end if;
1734:
1727: );
1728:
1729: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1730: raise FND_API.G_EXC_ERROR;
1731: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1732: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1733: end if;
1734:
1735: ------------------------------------------------------------------------------
1728:
1729: if (l_return_status = FND_API.G_RET_STS_ERROR) then
1730: raise FND_API.G_EXC_ERROR;
1731: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
1732: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1733: end if;
1734:
1735: ------------------------------------------------------------------------------
1736: -- STEP 4: Copy Object Definition Record
1775: -----------------------
1776: -- Finalize API Call --
1777: -----------------------
1778: -- Standard check of p_commit
1779: if FND_API.To_Boolean(p_commit) then
1780: commit work;
1781: end if;
1782:
1783: -- Standard call to get message count and if count is 1, get message info
1793: );
1794:
1795: EXCEPTION
1796:
1797: when FND_API.G_EXC_ERROR then
1798: rollback to DuplicateObject_PVT;
1799: x_return_status := FND_API.G_RET_STS_ERROR;
1800: FND_MSG_PUB.Count_And_Get(
1801: p_count => x_msg_count
1795: EXCEPTION
1796:
1797: when FND_API.G_EXC_ERROR then
1798: rollback to DuplicateObject_PVT;
1799: x_return_status := FND_API.G_RET_STS_ERROR;
1800: FND_MSG_PUB.Count_And_Get(
1801: p_count => x_msg_count
1802: ,p_data => x_msg_data
1803: );
1801: p_count => x_msg_count
1802: ,p_data => x_msg_data
1803: );
1804:
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: rollback to DuplicateObject_PVT;
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: FND_MSG_PUB.Count_And_Get(
1809: p_count => x_msg_count
1803: );
1804:
1805: when FND_API.G_EXC_UNEXPECTED_ERROR then
1806: rollback to DuplicateObject_PVT;
1807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1808: FND_MSG_PUB.Count_And_Get(
1809: p_count => x_msg_count
1810: ,p_data => x_msg_data
1811: );
1811: );
1812:
1813: when others then
1814: rollback to DuplicateObject_PVT;
1815: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1816: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
1817: FND_MSG_PUB.Add_Exc_Msg (
1818: p_pkg_name => G_PKG_NAME
1819: ,p_procedure_name => l_api_name
1853: --
1854: --------------------------------------------------------------------------------
1855: PROCEDURE DuplicateObjectDetails (
1856: p_api_version in number := 1.0
1857: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1858: ,p_commit in varchar2 := FND_API.G_FALSE
1859: ,x_return_status out nocopy varchar2
1860: ,x_msg_count out nocopy number
1861: ,x_msg_data out nocopy varchar2
1854: --------------------------------------------------------------------------------
1855: PROCEDURE DuplicateObjectDetails (
1856: p_api_version in number := 1.0
1857: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1858: ,p_commit in varchar2 := FND_API.G_FALSE
1859: ,x_return_status out nocopy varchar2
1860: ,x_msg_count out nocopy number
1861: ,x_msg_data out nocopy varchar2
1862: ,p_object_type_code in varchar2
1874: -- Standard Start of API Savepoint
1875: savepoint DuplicateObjectDetails_PVT;
1876:
1877: -- Standard call to check for call compatibility
1878: if not FND_API.Compatible_API_Call (
1879: p_current_version_number => l_api_version
1880: ,p_caller_version_number => p_api_version
1881: ,p_api_name => l_api_name
1882: ,p_pkg_name => G_PKG_NAME
1880: ,p_caller_version_number => p_api_version
1881: ,p_api_name => l_api_name
1882: ,p_pkg_name => G_PKG_NAME
1883: ) then
1884: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1885: end if;
1886:
1887: -- Initialize Message Stack on FND_MSG_PUB
1888: if (FND_API.To_Boolean(p_init_msg_list)) then
1884: raise FND_API.G_EXC_UNEXPECTED_ERROR;
1885: end if;
1886:
1887: -- Initialize Message Stack on FND_MSG_PUB
1888: if (FND_API.To_Boolean(p_init_msg_list)) then
1889: FND_MSG_PUB.Initialize;
1890: end if;
1891:
1892: FEM_ENGINES_PKG.Tech_Message (
1898: ------------------------------------------------
1899: -- Initialize Package and Procedure Variables --
1900: ------------------------------------------------
1901: -- Initialize API return status to success
1902: x_return_status := FND_API.G_RET_STS_SUCCESS;
1903:
1904: CopyObjectDetailsInternal (
1905: p_copy_type_code => G_DUPLICATE
1906: ,p_object_type_code => p_object_type_code
1911: -----------------------
1912: -- Finalize API Call --
1913: -----------------------
1914: -- Standard check of p_commit
1915: if FND_API.To_Boolean(p_commit) then
1916: commit work;
1917: end if;
1918:
1919: -- Standard call to get message count and if count is 1, get message info
1929: );
1930:
1931: EXCEPTION
1932:
1933: when FND_API.G_EXC_ERROR then
1934: rollback to DuplicateObjectDetails_PVT;
1935: x_return_status := FND_API.G_RET_STS_ERROR;
1936: FND_MSG_PUB.Count_And_Get(
1937: p_count => x_msg_count
1931: EXCEPTION
1932:
1933: when FND_API.G_EXC_ERROR then
1934: rollback to DuplicateObjectDetails_PVT;
1935: x_return_status := FND_API.G_RET_STS_ERROR;
1936: FND_MSG_PUB.Count_And_Get(
1937: p_count => x_msg_count
1938: ,p_data => x_msg_data
1939: );
1937: p_count => x_msg_count
1938: ,p_data => x_msg_data
1939: );
1940:
1941: when FND_API.G_EXC_UNEXPECTED_ERROR then
1942: rollback to DuplicateObjectDetails_PVT;
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: FND_MSG_PUB.Count_And_Get(
1945: p_count => x_msg_count
1939: );
1940:
1941: when FND_API.G_EXC_UNEXPECTED_ERROR then
1942: rollback to DuplicateObjectDetails_PVT;
1943: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1944: FND_MSG_PUB.Count_And_Get(
1945: p_count => x_msg_count
1946: ,p_data => x_msg_data
1947: );
1947: );
1948:
1949: when others then
1950: rollback to DuplicateObjectDetails_PVT;
1951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1952: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
1953: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
1954: end if;
1955: FND_MSG_PUB.Count_And_Get(
1985: --
1986: --------------------------------------------------------------------------------
1987: PROCEDURE CheckOverlapObjDefs(
1988: p_api_version in number := 1.0
1989: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
1990: ,x_return_status out nocopy varchar2
1991: ,x_msg_count out nocopy number
1992: ,x_msg_data out nocopy varchar2
1993: ,p_obj_id in number
2003:
2004: BEGIN
2005:
2006: -- Standard call to check for call compatibility
2007: if not FND_API.Compatible_API_Call (
2008: p_current_version_number => l_api_version
2009: ,p_caller_version_number => p_api_version
2010: ,p_api_name => l_api_name
2011: ,p_pkg_name => G_PKG_NAME
2009: ,p_caller_version_number => p_api_version
2010: ,p_api_name => l_api_name
2011: ,p_pkg_name => G_PKG_NAME
2012: ) then
2013: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2014: end if;
2015:
2016: -- Initialize Message Stack on FND_MSG_PUB
2017: if (FND_API.To_Boolean(p_init_msg_list)) then
2013: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2014: end if;
2015:
2016: -- Initialize Message Stack on FND_MSG_PUB
2017: if (FND_API.To_Boolean(p_init_msg_list)) then
2018: FND_MSG_PUB.Initialize;
2019: end if;
2020:
2021: FEM_ENGINES_PKG.Tech_Message (
2027: ------------------------------------------------
2028: -- Initialize Package and Procedure Variables --
2029: ------------------------------------------------
2030: -- Initialize API return status to success
2031: x_return_status := FND_API.G_RET_STS_SUCCESS;
2032:
2033: CheckOverlapObjDefsInternal(
2034: p_obj_id => p_obj_id
2035: ,p_exclude_obj_def_id => p_exclude_obj_def_id
2054: );
2055:
2056: EXCEPTION
2057:
2058: when FND_API.G_EXC_ERROR then
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2060: FND_MSG_PUB.Count_And_Get(
2061: p_count => x_msg_count
2062: ,p_data => x_msg_data
2055:
2056: EXCEPTION
2057:
2058: when FND_API.G_EXC_ERROR then
2059: x_return_status := FND_API.G_RET_STS_ERROR;
2060: FND_MSG_PUB.Count_And_Get(
2061: p_count => x_msg_count
2062: ,p_data => x_msg_data
2063: );
2061: p_count => x_msg_count
2062: ,p_data => x_msg_data
2063: );
2064:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: FND_MSG_PUB.Count_And_Get(
2068: p_count => x_msg_count
2069: ,p_data => x_msg_data
2062: ,p_data => x_msg_data
2063: );
2064:
2065: when FND_API.G_EXC_UNEXPECTED_ERROR then
2066: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2067: FND_MSG_PUB.Count_And_Get(
2068: p_count => x_msg_count
2069: ,p_data => x_msg_data
2070: );
2069: ,p_data => x_msg_data
2070: );
2071:
2072: when others then
2073: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2074: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
2075: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2076: end if;
2077: FND_MSG_PUB.Count_And_Get(
2167: --
2168: --------------------------------------------------------------------------------
2169: PROCEDURE CheckObjectName (
2170: p_api_version in number
2171: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
2172: ,x_return_status out nocopy varchar2
2173: ,x_msg_count out nocopy number
2174: ,x_msg_data out nocopy varchar2
2175: ,p_obj_name in varchar2
2196:
2197: BEGIN
2198:
2199: -- Standard call to check for call compatibility
2200: if not FND_API.Compatible_API_Call (
2201: p_current_version_number => l_api_version
2202: ,p_caller_version_number => p_api_version
2203: ,p_api_name => l_api_name
2204: ,p_pkg_name => G_PKG_NAME
2202: ,p_caller_version_number => p_api_version
2203: ,p_api_name => l_api_name
2204: ,p_pkg_name => G_PKG_NAME
2205: ) then
2206: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2207: end if;
2208:
2209: -- Initialize Message Stack on FND_MSG_PUB
2210: if (FND_API.To_Boolean(p_init_msg_list)) then
2206: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2207: end if;
2208:
2209: -- Initialize Message Stack on FND_MSG_PUB
2210: if (FND_API.To_Boolean(p_init_msg_list)) then
2211: FND_MSG_PUB.Initialize;
2212: end if;
2213:
2214: FEM_ENGINES_PKG.Tech_Message (
2220: ------------------------------------------------
2221: -- Initialize Package and Procedure Variables --
2222: ------------------------------------------------
2223: -- Initialize API return status to success
2224: x_return_status := FND_API.G_RET_STS_SUCCESS;
2225:
2226: for l_check_obj_name_rec in l_check_obj_name_cur loop
2227:
2228: -- If a record is returned in the l_check_obj_name_cur, then another
2232: FND_MESSAGE.set_token('FOLDER_NAME', l_check_obj_name_rec.folder_name);
2233: FND_MESSAGE.set_token('OBJECT_NAME', l_check_obj_name_rec.object_name);
2234: FND_MSG_PUB.Add;
2235:
2236: raise FND_API.G_EXC_ERROR;
2237:
2238: end loop;
2239:
2240: -----------------------
2253: );
2254:
2255: EXCEPTION
2256:
2257: when FND_API.G_EXC_ERROR then
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259: FND_MSG_PUB.Count_And_Get(
2260: p_count => x_msg_count
2261: ,p_data => x_msg_data
2254:
2255: EXCEPTION
2256:
2257: when FND_API.G_EXC_ERROR then
2258: x_return_status := FND_API.G_RET_STS_ERROR;
2259: FND_MSG_PUB.Count_And_Get(
2260: p_count => x_msg_count
2261: ,p_data => x_msg_data
2262: );
2260: p_count => x_msg_count
2261: ,p_data => x_msg_data
2262: );
2263:
2264: when FND_API.G_EXC_UNEXPECTED_ERROR then
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2266: FND_MSG_PUB.Count_And_Get(
2267: p_count => x_msg_count
2268: ,p_data => x_msg_data
2261: ,p_data => x_msg_data
2262: );
2263:
2264: when FND_API.G_EXC_UNEXPECTED_ERROR then
2265: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2266: FND_MSG_PUB.Count_And_Get(
2267: p_count => x_msg_count
2268: ,p_data => x_msg_data
2269: );
2268: ,p_data => x_msg_data
2269: );
2270:
2271: when others then
2272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2273: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
2274: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2275: end if;
2276: FND_MSG_PUB.Count_And_Get(
2304: --
2305: --------------------------------------------------------------------------------
2306: PROCEDURE CheckObjectDefinitionName (
2307: p_api_version in number
2308: ,p_init_msg_list in varchar2 := FND_API.G_FALSE
2309: ,x_return_status out nocopy varchar2
2310: ,x_msg_count out nocopy number
2311: ,x_msg_data out nocopy varchar2
2312: ,p_obj_def_name in varchar2
2334:
2335: BEGIN
2336:
2337: -- Standard call to check for call compatibility
2338: if not FND_API.Compatible_API_Call (
2339: p_current_version_number => l_api_version
2340: ,p_caller_version_number => p_api_version
2341: ,p_api_name => l_api_name
2342: ,p_pkg_name => G_PKG_NAME
2340: ,p_caller_version_number => p_api_version
2341: ,p_api_name => l_api_name
2342: ,p_pkg_name => G_PKG_NAME
2343: ) then
2344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2345: end if;
2346:
2347: -- Initialize Message Stack on FND_MSG_PUB
2348: if (FND_API.To_Boolean(p_init_msg_list)) then
2344: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2345: end if;
2346:
2347: -- Initialize Message Stack on FND_MSG_PUB
2348: if (FND_API.To_Boolean(p_init_msg_list)) then
2349: FND_MSG_PUB.Initialize;
2350: end if;
2351:
2352: FEM_ENGINES_PKG.Tech_Message (
2358: ------------------------------------------------
2359: -- Initialize Package and Procedure Variables --
2360: ------------------------------------------------
2361: -- Initialize API return status to success
2362: x_return_status := FND_API.G_RET_STS_SUCCESS;
2363:
2364: for l_check_obj_def_name_rec in l_check_obj_def_name_cur loop
2365:
2366: -- If a record is returned in the l_check_obj_def_name_cur, then another
2368: FND_MESSAGE.set_name('FEM', 'FEM_BR_OBJ_DEF_NAME_ERR');
2369: FND_MESSAGE.set_token('OBJECT_DEFINITION_NAME', l_check_obj_def_name_rec.obj_def_name);
2370: FND_MSG_PUB.Add;
2371:
2372: raise FND_API.G_EXC_ERROR;
2373:
2374: end loop;
2375:
2376: -----------------------
2389: );
2390:
2391: EXCEPTION
2392:
2393: when FND_API.G_EXC_ERROR then
2394: x_return_status := FND_API.G_RET_STS_ERROR;
2395: FND_MSG_PUB.Count_And_Get(
2396: p_count => x_msg_count
2397: ,p_data => x_msg_data
2390:
2391: EXCEPTION
2392:
2393: when FND_API.G_EXC_ERROR then
2394: x_return_status := FND_API.G_RET_STS_ERROR;
2395: FND_MSG_PUB.Count_And_Get(
2396: p_count => x_msg_count
2397: ,p_data => x_msg_data
2398: );
2396: p_count => x_msg_count
2397: ,p_data => x_msg_data
2398: );
2399:
2400: when FND_API.G_EXC_UNEXPECTED_ERROR then
2401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2402: FND_MSG_PUB.Count_And_Get(
2403: p_count => x_msg_count
2404: ,p_data => x_msg_data
2397: ,p_data => x_msg_data
2398: );
2399:
2400: when FND_API.G_EXC_UNEXPECTED_ERROR then
2401: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2402: FND_MSG_PUB.Count_And_Get(
2403: p_count => x_msg_count
2404: ,p_data => x_msg_data
2405: );
2404: ,p_data => x_msg_data
2405: );
2406:
2407: when others then
2408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2409: if (FND_MSG_PUB.Check_Msg_Level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)) then
2410: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name);
2411: end if;
2412: FND_MSG_PUB.Count_And_Get(
2717: else
2718:
2719: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name,
2720: 'Invalid Approval Request Type: '||l_request_type_code);
2721: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2722:
2723: end if;
2724:
2725: l_request_id := WF_ENGINE.GetItemAttrNumber(
2822: ,x_msg_data => l_msg_data
2823: ,p_process_type => G_WORKFLOW
2824: );
2825:
2826: if (l_return_status = FND_API.G_RET_STS_ERROR) then
2827: raise FND_API.G_EXC_ERROR;
2828: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2829: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2830: end if;
2823: ,p_process_type => G_WORKFLOW
2824: );
2825:
2826: if (l_return_status = FND_API.G_RET_STS_ERROR) then
2827: raise FND_API.G_EXC_ERROR;
2828: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2829: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2830: end if;
2831:
2824: );
2825:
2826: if (l_return_status = FND_API.G_RET_STS_ERROR) then
2827: raise FND_API.G_EXC_ERROR;
2828: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2829: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2830: end if;
2831:
2832: end loop;
2825:
2826: if (l_return_status = FND_API.G_RET_STS_ERROR) then
2827: raise FND_API.G_EXC_ERROR;
2828: elsif (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) then
2829: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2830: end if;
2831:
2832: end loop;
2833:
2834: else
2835:
2836: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name,
2837: 'Invalid Approval Request Type: '||l_request_type_code);
2838: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2839:
2840: end if;
2841:
2842: END SetApprovedState;
2900: else
2901:
2902: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name,
2903: 'Invalid Approval Request Type: '||l_request_type_code);
2904: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2905:
2906: end if;
2907:
2908: END SetRejectedState;
2971: else
2972:
2973: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name,
2974: 'Invalid Approval Request Type: '||l_request_type_code);
2975: raise FND_API.G_EXC_UNEXPECTED_ERROR;
2976:
2977: end if;
2978:
2979: END CheckApprovalItems;
3125: else
3126:
3127: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name,
3128: 'Invalid Approval Request Type: '||l_request_type_code);
3129: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3130:
3131: end if;
3132:
3133: END InitApprovalItems;
3196: --
3197: --------------------------------------------------------------------------------
3198: PROCEDURE SetApprovalStatus (
3199: p_obj_def_id in number
3200: ,p_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
3201: ,p_approver_user_id in number := FND_API.G_MISS_NUM
3202: ,p_approval_date in date := FND_API.G_MISS_DATE
3203: )
3204: --------------------------------------------------------------------------------
3197: --------------------------------------------------------------------------------
3198: PROCEDURE SetApprovalStatus (
3199: p_obj_def_id in number
3200: ,p_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
3201: ,p_approver_user_id in number := FND_API.G_MISS_NUM
3202: ,p_approval_date in date := FND_API.G_MISS_DATE
3203: )
3204: --------------------------------------------------------------------------------
3205: IS
3198: PROCEDURE SetApprovalStatus (
3199: p_obj_def_id in number
3200: ,p_approval_status_code in varchar2 := FND_API.G_MISS_CHAR
3201: ,p_approver_user_id in number := FND_API.G_MISS_NUM
3202: ,p_approval_date in date := FND_API.G_MISS_DATE
3203: )
3204: --------------------------------------------------------------------------------
3205: IS
3206: l_api_name constant varchar2(30) := 'SetApprovalStatus';
3220:
3221: update fem_object_definition_b
3222: set approval_status_code =
3223: decode(p_approval_status_code
3224: ,FND_API.G_MISS_CHAR,approval_status_code
3225: ,p_approval_status_code)
3226: ,approved_by =
3227: decode(p_approver_user_id
3228: ,FND_API.G_MISS_NUM,approved_by
3224: ,FND_API.G_MISS_CHAR,approval_status_code
3225: ,p_approval_status_code)
3226: ,approved_by =
3227: decode(p_approver_user_id
3228: ,FND_API.G_MISS_NUM,approved_by
3229: ,p_approver_user_id)
3230: ,approval_date =
3231: decode(p_approval_date
3232: ,FND_API.G_MISS_DATE,approval_date
3228: ,FND_API.G_MISS_NUM,approved_by
3229: ,p_approver_user_id)
3230: ,approval_date =
3231: decode(p_approval_date
3232: ,FND_API.G_MISS_DATE,approval_date
3233: ,p_approval_date)
3234: ,last_updated_by = FND_GLOBAL.user_id
3235: ,last_update_date = sysdate
3236: ,last_update_login = FND_GLOBAL.login_id
3773: PROCEDURE CopyObjectRec (
3774: p_source_obj_id in number
3775: ,p_target_obj_id in number
3776: ,p_target_obj_name in varchar2
3777: ,p_target_obj_desc in varchar2 := FND_API.G_MISS_CHAR
3778: ,p_created_by in number
3779: ,p_creation_date in date
3780: )
3781: --------------------------------------------------------------------------------
3794: ,local_vs_combo_id
3795: ,object_access_code
3796: ,object_origin_code
3797: ,p_target_obj_name
3798: ,decode(p_target_obj_desc,FND_API.G_MISS_CHAR,description,p_target_obj_desc)
3799: ,nvl(p_creation_date,creation_date)
3800: ,nvl(p_created_by,created_by)
3801: ,sysdate
3802: ,FND_GLOBAL.user_id
3858: --------------------------------------------------------------------------------
3859: PROCEDURE CopyObjectDefinitionRec (
3860: p_source_obj_def_id in number
3861: ,p_target_obj_def_id in number
3862: ,p_target_obj_id in number := FND_API.G_MISS_NUM
3863: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
3864: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
3865: ,p_target_start_date in date := FND_API.G_MISS_DATE
3866: ,p_target_end_date in date := FND_API.G_MISS_DATE
3859: PROCEDURE CopyObjectDefinitionRec (
3860: p_source_obj_def_id in number
3861: ,p_target_obj_def_id in number
3862: ,p_target_obj_id in number := FND_API.G_MISS_NUM
3863: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
3864: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
3865: ,p_target_start_date in date := FND_API.G_MISS_DATE
3866: ,p_target_end_date in date := FND_API.G_MISS_DATE
3867: ,p_target_copy_flag in varchar2
3860: p_source_obj_def_id in number
3861: ,p_target_obj_def_id in number
3862: ,p_target_obj_id in number := FND_API.G_MISS_NUM
3863: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
3864: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
3865: ,p_target_start_date in date := FND_API.G_MISS_DATE
3866: ,p_target_end_date in date := FND_API.G_MISS_DATE
3867: ,p_target_copy_flag in varchar2
3868: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
3861: ,p_target_obj_def_id in number
3862: ,p_target_obj_id in number := FND_API.G_MISS_NUM
3863: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
3864: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
3865: ,p_target_start_date in date := FND_API.G_MISS_DATE
3866: ,p_target_end_date in date := FND_API.G_MISS_DATE
3867: ,p_target_copy_flag in varchar2
3868: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
3869: ,p_created_by in number
3862: ,p_target_obj_id in number := FND_API.G_MISS_NUM
3863: ,p_target_obj_def_name in varchar2 := FND_API.G_MISS_CHAR
3864: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
3865: ,p_target_start_date in date := FND_API.G_MISS_DATE
3866: ,p_target_end_date in date := FND_API.G_MISS_DATE
3867: ,p_target_copy_flag in varchar2
3868: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
3869: ,p_created_by in number
3870: ,p_creation_date in date
3864: ,p_target_obj_def_desc in varchar2 := FND_API.G_MISS_CHAR
3865: ,p_target_start_date in date := FND_API.G_MISS_DATE
3866: ,p_target_end_date in date := FND_API.G_MISS_DATE
3867: ,p_target_copy_flag in varchar2
3868: ,p_target_copy_obj_def_id in number := FND_API.G_MISS_NUM
3869: ,p_created_by in number
3870: ,p_creation_date in date
3871: )
3872: --------------------------------------------------------------------------------
3882: if (p_target_copy_flag in (G_CURRENT_COPY, G_OLD_APPROVED_COPY)) then
3883:
3884:
3885: select p_target_obj_def_id
3886: ,decode(p_target_obj_id,FND_API.G_MISS_NUM,object_id,p_target_obj_id)
3887: ,decode(p_target_start_date,FND_API.G_MISS_DATE,effective_start_date,p_target_start_date)
3888: ,decode(p_target_end_date,FND_API.G_MISS_DATE,effective_end_date,p_target_end_date)
3889: ,object_origin_code
3890: ,approval_status_code
3883:
3884:
3885: select p_target_obj_def_id
3886: ,decode(p_target_obj_id,FND_API.G_MISS_NUM,object_id,p_target_obj_id)
3887: ,decode(p_target_start_date,FND_API.G_MISS_DATE,effective_start_date,p_target_start_date)
3888: ,decode(p_target_end_date,FND_API.G_MISS_DATE,effective_end_date,p_target_end_date)
3889: ,object_origin_code
3890: ,approval_status_code
3891: ,approved_by
3884:
3885: select p_target_obj_def_id
3886: ,decode(p_target_obj_id,FND_API.G_MISS_NUM,object_id,p_target_obj_id)
3887: ,decode(p_target_start_date,FND_API.G_MISS_DATE,effective_start_date,p_target_start_date)
3888: ,decode(p_target_end_date,FND_API.G_MISS_DATE,effective_end_date,p_target_end_date)
3889: ,object_origin_code
3890: ,approval_status_code
3891: ,approved_by
3892: ,approval_date
3890: ,approval_status_code
3891: ,approved_by
3892: ,approval_date
3893: ,p_target_copy_flag
3894: ,decode(p_target_copy_obj_def_id,FND_API.G_MISS_NUM,old_approved_copy_obj_def_id,p_target_copy_obj_def_id)
3895: ,decode(p_target_obj_def_name,FND_API.G_MISS_CHAR,display_name,p_target_obj_def_name)
3896: ,decode(p_target_obj_def_desc,FND_API.G_MISS_CHAR,description,p_target_obj_def_desc)
3897: ,nvl(p_creation_date,creation_date)
3898: ,nvl(p_created_by,created_by)
3891: ,approved_by
3892: ,approval_date
3893: ,p_target_copy_flag
3894: ,decode(p_target_copy_obj_def_id,FND_API.G_MISS_NUM,old_approved_copy_obj_def_id,p_target_copy_obj_def_id)
3895: ,decode(p_target_obj_def_name,FND_API.G_MISS_CHAR,display_name,p_target_obj_def_name)
3896: ,decode(p_target_obj_def_desc,FND_API.G_MISS_CHAR,description,p_target_obj_def_desc)
3897: ,nvl(p_creation_date,creation_date)
3898: ,nvl(p_created_by,created_by)
3899: ,sysdate
3892: ,approval_date
3893: ,p_target_copy_flag
3894: ,decode(p_target_copy_obj_def_id,FND_API.G_MISS_NUM,old_approved_copy_obj_def_id,p_target_copy_obj_def_id)
3895: ,decode(p_target_obj_def_name,FND_API.G_MISS_CHAR,display_name,p_target_obj_def_name)
3896: ,decode(p_target_obj_def_desc,FND_API.G_MISS_CHAR,description,p_target_obj_def_desc)
3897: ,nvl(p_creation_date,creation_date)
3898: ,nvl(p_created_by,created_by)
3899: ,sysdate
3900: ,FND_GLOBAL.user_id
3946: else
3947:
3948: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME, l_api_name,
3949: 'Invalid Old Approved Copy Flag: '||p_target_copy_flag);
3950: raise FND_API.G_EXC_UNEXPECTED_ERROR;
3951:
3952: end if;
3953:
3954: END CopyObjectDefinitionRec;
4449: FND_MESSAGE.set_name('FEM', 'FEM_BR_END_LT_START_DATE_ERR');
4450: FND_MESSAGE.set_token('START_DATE',FND_DATE.date_to_chardate(p_effective_start_date));
4451: FND_MESSAGE.set_token('END_DATE',FND_DATE.date_to_chardate(p_effective_end_date));
4452: FND_MSG_PUB.Add;
4453: raise FND_API.G_EXC_ERROR;
4454:
4455: end if;
4456:
4457: if (p_obj_id is not null) then
4475: FND_MESSAGE.set_token('START_DATE',FND_DATE.date_to_chardate(overlapping_obj_def_rec.effective_start_date));
4476: FND_MESSAGE.set_token('END_DATE',FND_DATE.date_to_chardate(overlapping_obj_def_rec.effective_end_date));
4477: FND_MSG_PUB.Add;
4478:
4479: raise FND_API.G_EXC_ERROR;
4480:
4481: end loop;
4482:
4483: end if;