44: --------------------------------------------------
45:
46: BEGIN
47:
48: -- Standard Start of API savepoint
49: SAVEPOINT Create_Obj_Type_Lifecycle_PUB;
50:
51: IF NOT FND_API.Compatible_API_Call (l_api_version,
52: p_api_version,
102: );
103:
104: ------------------------------
105:
106: -- Standard check of p_commit
107: IF FND_API.To_Boolean(p_commit) THEN
108: COMMIT WORK;
109: END IF;
110:
111: x_return_status := FND_API.G_RET_STS_SUCCESS;
112:
113: ------------------------------
114:
115: -- Standard call to get message count and if count is 1,
116: -- get message info.
117: -- The client will directly display the x_msg_data (which is already
118: -- translated) if the x_msg_count = 1;
119: -- Else i.e if x_msg_count > 1, client will call the FND_MSG_PUB.Get
203: l_Sysdate DATE := Sysdate;
204: l_language VARCHAR2(4) := userenv('LANG');
205:
206: BEGIN
207: -- Standard Start of API savepoint
208: SAVEPOINT Delete_Obj_Type_Lifecycle_PUB;
209:
210: IF NOT FND_API.Compatible_API_Call (l_api_version,
211: p_api_version,
228: OBJECT_ID = p_object_id
229: AND OBJECT_CLASSIFICATION_CODE = p_object_classification_code
230: AND LIFECYCLE_ID = p_lifecycle_id;
231:
232: -- Standard check of p_commit.
233: IF FND_API.To_Boolean(p_commit) THEN
234: COMMIT WORK;
235: END IF;
236:
236:
237: x_return_status := FND_API.G_RET_STS_SUCCESS;
238:
239: -----------------------------------
240: -- Make a standard call to get message count and if count is 1,
241: -- get message info.
242: -- The client will directly display the x_msg_data (which is already
243: -- translated) if the x_msg_count = 1;
244: -- Else, i.e. if x_msg_count > 1, client will call the FND_MSG_PUB.Get