22: p_api_version IN NUMBER
23: , p_object_id IN NUMBER
24: , p_object_classification_code IN VARCHAR2
25: , p_lifecycle_id IN NUMBER
26: , p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
27: , p_commit IN VARCHAR2 := fnd_api.g_FALSE
28: , x_return_status OUT NOCOPY VARCHAR2
29: , x_errorcode OUT NOCOPY NUMBER
30: , x_msg_count OUT NOCOPY NUMBER
23: , p_object_id IN NUMBER
24: , p_object_classification_code IN VARCHAR2
25: , p_lifecycle_id IN NUMBER
26: , p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
27: , p_commit IN VARCHAR2 := fnd_api.g_FALSE
28: , x_return_status OUT NOCOPY VARCHAR2
29: , x_errorcode OUT NOCOPY NUMBER
30: , x_msg_count OUT NOCOPY NUMBER
31: , x_msg_data OUT NOCOPY VARCHAR2
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,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
52: p_api_version,
53: l_api_name,
54: G_PKG_NAME)
55: THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58: -- Initialize API message list if necessary.
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.to_Boolean(p_init_msg_list) THEN
56: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
57: END IF;
58: -- Initialize API message list if necessary.
59: -- Initialize message list if p_init_msg_list is set to TRUE.
60: IF FND_API.to_Boolean(p_init_msg_list) THEN
61: FND_MSG_PUB.initialize;
62: END IF;
63:
64: ------------------------------
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;
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,
127:
128: --------------------------------------------------
129:
130: EXCEPTION
131: WHEN FND_API.G_EXC_ERROR THEN
132: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
133: x_return_status := FND_API.G_RET_STS_ERROR;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
129:
130: EXCEPTION
131: WHEN FND_API.G_EXC_ERROR THEN
132: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
133: x_return_status := FND_API.G_RET_STS_ERROR;
134: FND_MSG_PUB.Count_And_Get
135: ( p_count => x_msg_count,
136: p_data => x_msg_data
137: );
139: x_msg_data := 'Executing - ' || G_PKG_NAME || '.' || l_api_name || ' ' || SQLERRM;
140:
141: WHEN G_DUPLICATE_EXCEPTION THEN
142: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
143: x_return_status := FND_API.G_RET_STS_ERROR;
144: FND_MSG_PUB.Count_And_Get
145: ( p_count => x_msg_count,
146: p_data => x_msg_data
147: );
147: );
148:
149: x_msg_data := 'EGO_DUP_OBJ_TYPE_LIFECYCLE';
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
154: FND_MSG_PUB.Count_And_Get
155: ( p_count => x_msg_count,
149: x_msg_data := 'EGO_DUP_OBJ_TYPE_LIFECYCLE';
150:
151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
152: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
154: FND_MSG_PUB.Count_And_Get
155: ( p_count => x_msg_count,
156: p_data => x_msg_data
157: );
157: );
158: x_msg_data := 'Executing - '||G_PKG_NAME||'.'||l_api_name||' '||SQLERRM;
159: WHEN OTHERS THEN
160: ROLLBACK TO Create_Obj_Type_Lifecycle_PUB;
161: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
162: IF FND_MSG_PUB.Check_Msg_Level
163: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
164: THEN
165: FND_MSG_PUB.Add_Exc_Msg
181: p_api_version IN NUMBER
182: , p_object_id IN NUMBER
183: , p_object_classification_code IN VARCHAR2
184: , p_lifecycle_id IN NUMBER
185: , p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
186: , p_commit IN VARCHAR2 := fnd_api.g_FALSE
187: , x_return_status OUT NOCOPY VARCHAR2
188: , x_errorcode OUT NOCOPY NUMBER
189: , x_msg_count OUT NOCOPY NUMBER
182: , p_object_id IN NUMBER
183: , p_object_classification_code IN VARCHAR2
184: , p_lifecycle_id IN NUMBER
185: , p_init_msg_list IN VARCHAR2 := fnd_api.g_FALSE
186: , p_commit IN VARCHAR2 := fnd_api.g_FALSE
187: , x_return_status OUT NOCOPY VARCHAR2
188: , x_errorcode OUT NOCOPY NUMBER
189: , x_msg_count OUT NOCOPY NUMBER
190: , x_msg_data OUT NOCOPY VARCHAR2
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,
212: l_api_name,
213: G_PKG_NAME)
214: THEN
211: p_api_version,
212: l_api_name,
213: G_PKG_NAME)
214: THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: END IF;
217: -- Initialize API message list if necessary.
218: -- Initialize message list if p_init_msg_list is set to TRUE.
219: IF FND_API.To_Boolean(p_init_msg_list) THEN
215: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
216: END IF;
217: -- Initialize API message list if necessary.
218: -- Initialize message list if p_init_msg_list is set to TRUE.
219: IF FND_API.To_Boolean(p_init_msg_list) THEN
220: FND_MSG_PUB.Initialize;
221: END IF;
222:
223: -----------------------------------
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:
237: x_return_status := FND_API.G_RET_STS_SUCCESS;
233: IF FND_API.To_Boolean(p_commit) THEN
234: COMMIT WORK;
235: END IF;
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.
252:
253: EXCEPTION
254: WHEN OTHERS THEN
255: ROLLBACK TO Delete_Obj_Type_Lifecycle_PUB;
256: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
257: IF FND_MSG_PUB.Check_Msg_Level
258: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
259: THEN
260: FND_MSG_PUB.Add_Exc_Msg