[Home] [Help]
22: --------------------------------------------------------------------------------
23: PROCEDURE Create_Item
24: (
25: p_api_version 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_msg_count OUT NOCOPY NUMBER,
30: x_msg_data OUT NOCOPY VARCHAR2,
23: PROCEDURE Create_Item
24: (
25: p_api_version 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_msg_count OUT NOCOPY NUMBER,
30: x_msg_data OUT NOCOPY VARCHAR2,
31: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
27: p_commit IN VARCHAR2 := FND_API.G_FALSE,
28: x_return_status OUT NOCOPY VARCHAR2,
29: x_msg_count OUT NOCOPY NUMBER,
30: x_msg_data OUT NOCOPY VARCHAR2,
31: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
32: p_channel_id_array IN AMV_NUMBER_VARRAY_TYPE := NULL,
33: p_item_obj IN AMV_ITEM_OBJ_TYPE,
34: p_file_array IN AMV_NUMBER_VARRAY_TYPE,
35: p_persp_array IN AMV_NAMEID_VARRAY_TYPE,
55: -- Standard call to check for call compatibility.
56: SAVEPOINT Create_Item_Pub;
57:
58:
59: IF NOT FND_API.Compatible_API_Call (
60: l_api_version,
61: p_api_version,
62: l_api_name,
63: G_PKG_NAME) THEN
60: l_api_version,
61: p_api_version,
62: l_api_name,
63: G_PKG_NAME) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66: --Initialize message list if p_init_msg_list is TRUE.
67: IF FND_API.To_Boolean (p_init_msg_list) THEN
68: FND_MSG_PUB.initialize;
63: G_PKG_NAME) THEN
64: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
65: END IF;
66: --Initialize message list if p_init_msg_list is TRUE.
67: IF FND_API.To_Boolean (p_init_msg_list) THEN
68: FND_MSG_PUB.initialize;
69: END IF;
70: -- Initialize API return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
67: IF FND_API.To_Boolean (p_init_msg_list) THEN
68: FND_MSG_PUB.initialize;
69: END IF;
70: -- Initialize API return status to success
71: x_return_status := FND_API.G_RET_STS_SUCCESS;
72: -- Get the current (login) user id.
73: AMV_UTILITY_PVT.Get_UserInfo(
74: x_resource_id => l_resource_id,
75: x_user_id => l_current_user_id,
77: x_user_status => l_current_user_status
78: );
79:
80:
81: IF (p_check_login_user = FND_API.G_TRUE) THEN
82: -- Check if user is login and has the required privilege.
83: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
84: -- User is not login.
85: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
79:
80:
81: IF (p_check_login_user = FND_API.G_TRUE) THEN
82: -- Check if user is login and has the required privilege.
83: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
84: -- User is not login.
85: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
86: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
87: FND_MSG_PUB.ADD;
85: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
86: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
87: FND_MSG_PUB.ADD;
88: END IF;
89: RAISE FND_API.G_EXC_ERROR;
90: END IF;
91: AMV_USER_PVT.Is_Administrator
92: (
93: p_api_version => 1.0,
93: p_api_version => 1.0,
94: x_return_status => x_return_status,
95: x_msg_count => x_msg_count,
96: x_msg_data => x_msg_data,
97: p_check_login_user => FND_API.G_FALSE,
98: p_resource_id => l_resource_id,
99: x_result_flag => l_admin_flag
100: );
101: IF (l_admin_flag <> FND_API.G_TRUE) THEN
97: p_check_login_user => FND_API.G_FALSE,
98: p_resource_id => l_resource_id,
99: x_result_flag => l_admin_flag
100: );
101: IF (l_admin_flag <> FND_API.G_TRUE) THEN
102: -- User is not an administrator.
103: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
104: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
105: FND_MSG_PUB.ADD;
103: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
104: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
105: FND_MSG_PUB.ADD;
106: END IF;
107: RAISE FND_API.G_EXC_ERROR;
108: END IF;
109: END IF;
110: --
111: --Inserted the following check to fix bug # 2740293
123: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
124: FND_MESSAGE.Set_name('AMV','AMV_NEED_ITEM_INFO');
125: FND_MSG_PUB.ADD;
126: END IF;
127: RAISE FND_API.G_EXC_ERROR;
128: END IF;
129: IF (l_item_obj.application_id = AMV_UTILITY_PVT.G_AMV_APP_ID ) THEN
130: -- Check if item type in the item object is null
131: IF (l_item_obj.item_type IS NULL OR
128: END IF;
129: IF (l_item_obj.application_id = AMV_UTILITY_PVT.G_AMV_APP_ID ) THEN
130: -- Check if item type in the item object is null
131: IF (l_item_obj.item_type IS NULL OR
132: l_item_obj.item_type = FND_API.G_MISS_CHAR ) THEN
133: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
134: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TYPE');
135: FND_MSG_PUB.ADD;
136: END IF;
133: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
134: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TYPE');
135: FND_MSG_PUB.ADD;
136: END IF;
137: RAISE FND_API.G_EXC_ERROR;
138: END IF;
139: -- Check if owner_id is valid
140: IF (l_item_obj.owner_id IS NULL OR
141: l_item_obj.owner_id = 0 OR
138: END IF;
139: -- Check if owner_id is valid
140: IF (l_item_obj.owner_id IS NULL OR
141: l_item_obj.owner_id = 0 OR
142: l_item_obj.owner_id = FND_API.G_MISS_NUM) THEN
143: l_item_obj.owner_id := l_resource_id;
144: ELSE
145: IF (AMV_UTILITY_PVT.Is_ResourceIdValid(l_item_obj.owner_id)
146: <> TRUE) THEN
148: FND_MESSAGE.Set_name('AMV','AMV_INVALID_OWNER_USER_ID');
149: FND_MESSAGE.Set_Token('ID', TO_CHAR(l_item_obj.owner_id));
150: FND_MSG_PUB.ADD;
151: END IF;
152: RAISE FND_API.G_EXC_ERROR;
153: END IF;
154: END IF;
155: --
156: -- Check if default_approver_id is valid
155: --
156: -- Check if default_approver_id is valid
157: IF (l_item_obj.default_approver_id IS NULL OR
158: l_item_obj.default_approver_id = 0 OR
159: l_item_obj.default_approver_id = FND_API.G_MISS_NUM) THEN
160: l_item_obj.default_approver_id := l_resource_id;
161: ELSE
162: IF(AMV_UTILITY_PVT.Is_ResourceIdValid(l_item_obj.default_approver_id)
163: <> TRUE) THEN
166: FND_MESSAGE.Set_Token('ID',
167: TO_CHAR(l_item_obj.default_approver_id));
168: FND_MSG_PUB.ADD;
169: END IF;
170: RAISE FND_API.G_EXC_ERROR;
171: END IF;
172: END IF;
173: --
174: -- Check if content type id in the item object is valid
172: END IF;
173: --
174: -- Check if content type id in the item object is valid
175: IF (l_item_obj.content_type_id IS NULL OR
176: l_item_obj.content_type_id = FND_API.G_MISS_NUM) THEN
177: l_item_obj.content_type_id := NULL;
178: ELSIF (AMV_UTILITY_PVT.Is_ContentTypeIdValid(l_item_obj.content_type_id)
179: <> TRUE) THEN
180: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
182: FND_MESSAGE.Set_Token('ID',
183: TO_CHAR( l_item_obj.content_type_id ) );
184: FND_MSG_PUB.ADD;
185: END IF;
186: RAISE FND_API.G_EXC_ERROR;
187: END IF;
188: -- Check if item_name(title) in the item object is null
189: IF (l_item_obj.item_name IS NULL OR
190: l_item_obj.item_name = FND_API.G_MISS_CHAR) THEN
186: RAISE FND_API.G_EXC_ERROR;
187: END IF;
188: -- Check if item_name(title) in the item object is null
189: IF (l_item_obj.item_name IS NULL OR
190: l_item_obj.item_name = FND_API.G_MISS_CHAR) THEN
191: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
192: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TITLE');
193: FND_MSG_PUB.ADD;
194: END IF;
191: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
192: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TITLE');
193: FND_MSG_PUB.ADD;
194: END IF;
195: RAISE FND_API.G_EXC_ERROR;
196: END IF;
197: END IF; --END OF IF (l_item_obj.application_id = ...G_AMV_APP_ID )
198:
199: --Do create the record now.
218:
219: JTF_AMV_ITEM_PUB.Create_Item
220: (
221: p_api_version => p_api_version,
222: p_init_msg_list => FND_API.G_FALSE,
223: p_commit => FND_API.G_FALSE,
224: x_return_status => x_return_status,
225: x_msg_count => x_msg_count,
226: x_msg_data => x_msg_data,
219: JTF_AMV_ITEM_PUB.Create_Item
220: (
221: p_api_version => p_api_version,
222: p_init_msg_list => FND_API.G_FALSE,
223: p_commit => FND_API.G_FALSE,
224: x_return_status => x_return_status,
225: x_msg_count => x_msg_count,
226: x_msg_data => x_msg_data,
227: p_item_rec => l_item_rec,
226: x_msg_data => x_msg_data,
227: p_item_rec => l_item_rec,
228: x_item_id => l_item_id
229: );
230: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
227: p_item_rec => l_item_rec,
228: x_item_id => l_item_id
229: );
230: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
235: -- Add item's perspectives
228: x_item_id => l_item_id
229: );
230: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
235: -- Add item's perspectives
236: IF (p_persp_array IS NOT NULL) THEN
229: );
230: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
231: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
232: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
233: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
234: END IF;
235: -- Add item's perspectives
236: IF (p_persp_array IS NOT NULL) THEN
237: l_persp_id_array := AMV_PERSPECTIVE_PVT.AMV_NUMBER_VARRAY_TYPE();
244: p_api_version => l_api_version,
245: x_return_status => l_return_status,
246: x_msg_count => x_msg_count,
247: x_msg_data => x_msg_data,
248: p_check_login_user => FND_API.G_FALSE,
249: p_item_id => l_item_id,
250: p_perspective_array => l_persp_id_array
251: );
252: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
248: p_check_login_user => FND_API.G_FALSE,
249: p_item_id => l_item_id,
250: p_perspective_array => l_persp_id_array
251: );
252: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
255: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
256: x_return_status := FND_API.G_RET_STS_ERROR;
249: p_item_id => l_item_id,
250: p_perspective_array => l_persp_id_array
251: );
252: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
255: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: END IF;
250: p_perspective_array => l_persp_id_array
251: );
252: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
255: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: END IF;
258: END IF;
251: );
252: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
255: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: END IF;
258: END IF;
259: -- Add item's keywords
252: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
253: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
254: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
255: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
256: x_return_status := FND_API.G_RET_STS_ERROR;
257: END IF;
258: END IF;
259: -- Add item's keywords
260: IF (p_keyword_array IS NOT NULL) THEN
263: p_api_version => l_api_version,
264: x_return_status => l_return_status,
265: x_msg_count => x_msg_count,
266: x_msg_data => x_msg_data,
267: p_check_login_user => FND_API.G_FALSE,
268: p_item_id => l_item_id,
269: p_keyword_varray => p_keyword_array
270: );
271: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
267: p_check_login_user => FND_API.G_FALSE,
268: p_item_id => l_item_id,
269: p_keyword_varray => p_keyword_array
270: );
271: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
274: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
275: x_return_status := FND_API.G_RET_STS_ERROR;
268: p_item_id => l_item_id,
269: p_keyword_varray => p_keyword_array
270: );
271: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
274: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: END IF;
269: p_keyword_varray => p_keyword_array
270: );
271: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
274: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: END IF;
277: END IF;
270: );
271: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
274: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: END IF;
277: END IF;
278: -- Add item's authors
271: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
272: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
273: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
274: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
275: x_return_status := FND_API.G_RET_STS_ERROR;
276: END IF;
277: END IF;
278: -- Add item's authors
279: IF (p_author_array IS NOT NULL) THEN
282: p_api_version => l_api_version,
283: x_return_status => l_return_status,
284: x_msg_count => x_msg_count,
285: x_msg_data => x_msg_data,
286: p_check_login_user => FND_API.G_FALSE,
287: p_item_id => l_item_id,
288: p_author_varray => p_author_array
289: );
290: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
286: p_check_login_user => FND_API.G_FALSE,
287: p_item_id => l_item_id,
288: p_author_varray => p_author_array
289: );
290: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
293: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
287: p_item_id => l_item_id,
288: p_author_varray => p_author_array
289: );
290: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
293: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: END IF;
288: p_author_varray => p_author_array
289: );
290: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
293: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: END IF;
296: END IF;
289: );
290: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
293: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: END IF;
296: END IF;
297: IF (p_file_array IS NOT NULL) THEN
290: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
292: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
293: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
294: x_return_status := FND_API.G_RET_STS_ERROR;
295: END IF;
296: END IF;
297: IF (p_file_array IS NOT NULL) THEN
298: Add_ItemFile
300: p_api_version => l_api_version,
301: x_return_status => l_return_status,
302: x_msg_count => x_msg_count,
303: x_msg_data => x_msg_data,
304: p_check_login_user => FND_API.G_FALSE,
305: p_application_id => l_item_obj.application_id,
306: p_item_id => l_item_id,
307: p_file_id_varray => p_file_array
308: );
305: p_application_id => l_item_obj.application_id,
306: p_item_id => l_item_id,
307: p_file_id_varray => p_file_array
308: );
309: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
312: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
306: p_item_id => l_item_id,
307: p_file_id_varray => p_file_array
308: );
309: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
312: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: END IF;
307: p_file_id_varray => p_file_array
308: );
309: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
312: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: END IF;
315: END IF;
308: );
309: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
312: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: END IF;
315: END IF;
316: --Check if channel id array is passed and if so, make sure each id is valid.
309: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
311: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
312: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
313: x_return_status := FND_API.G_RET_STS_ERROR;
314: END IF;
315: END IF;
316: --Check if channel id array is passed and if so, make sure each id is valid.
317: IF (p_channel_id_array IS NOT NULL) THEN
324: p_api_version => l_api_version,
325: x_return_status => l_return_status,
326: x_msg_count => x_msg_count,
327: x_msg_data => x_msg_data,
328: p_check_login_user => FND_API.G_FALSE,
329: p_channel_id => p_channel_id_array(i),
330: p_item_id => l_item_id,
331: p_table_name_code => G_USED_BY_ITEM,
332: p_match_type => AMV_UTILITY_PVT.G_PUSH
330: p_item_id => l_item_id,
331: p_table_name_code => G_USED_BY_ITEM,
332: p_match_type => AMV_UTILITY_PVT.G_PUSH
333: );
334: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
337: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
331: p_table_name_code => G_USED_BY_ITEM,
332: p_match_type => AMV_UTILITY_PVT.G_PUSH
333: );
334: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
337: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: END IF;
332: p_match_type => AMV_UTILITY_PVT.G_PUSH
333: );
334: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
337: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: END IF;
340: ELSE
333: );
334: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
337: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: END IF;
340: ELSE
341: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
334: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
335: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
336: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
337: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
338: x_return_status := FND_API.G_RET_STS_ERROR;
339: END IF;
340: ELSE
341: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
342: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
357: p_api_version => l_api_version,
358: x_return_status => l_return_status,
359: x_msg_count => x_msg_count,
360: x_msg_data => x_msg_data,
361: p_check_login_user => FND_API.G_FALSE,
362: p_item_id => l_item_id
363: );
364: END IF;
365: -- pass back the item id.
364: END IF;
365: -- pass back the item id.
366: x_item_id := l_item_id;
367: --Standard check of commit
368: IF FND_API.To_Boolean ( p_commit ) THEN
369: COMMIT WORK;
370: END IF;
371: --Standard call to get message count and if count=1, get the message
372: FND_MSG_PUB.Count_And_Get (
369: COMMIT WORK;
370: END IF;
371: --Standard call to get message count and if count=1, get the message
372: FND_MSG_PUB.Count_And_Get (
373: p_encoded => FND_API.G_FALSE,
374: p_count => x_msg_count,
375: p_data => x_msg_data
376: );
377: EXCEPTION
374: p_count => x_msg_count,
375: p_data => x_msg_data
376: );
377: EXCEPTION
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: ROLLBACK TO Create_Item_Pub;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: -- Standard call to get message count and if count=1, get the message
382: FND_MSG_PUB.Count_And_Get (
376: );
377: EXCEPTION
378: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
379: ROLLBACK TO Create_Item_Pub;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: -- Standard call to get message count and if count=1, get the message
382: FND_MSG_PUB.Count_And_Get (
383: p_encoded => FND_API.G_FALSE,
384: p_count => x_msg_count,
379: ROLLBACK TO Create_Item_Pub;
380: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
381: -- Standard call to get message count and if count=1, get the message
382: FND_MSG_PUB.Count_And_Get (
383: p_encoded => FND_API.G_FALSE,
384: p_count => x_msg_count,
385: p_data => x_msg_data
386: );
387: WHEN FND_API.G_EXC_ERROR THEN
383: p_encoded => FND_API.G_FALSE,
384: p_count => x_msg_count,
385: p_data => x_msg_data
386: );
387: WHEN FND_API.G_EXC_ERROR THEN
388: ROLLBACK TO Create_Item_Pub;
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: -- Standard call to get message count and if count=1, get the message
391: FND_MSG_PUB.Count_And_Get (
385: p_data => x_msg_data
386: );
387: WHEN FND_API.G_EXC_ERROR THEN
388: ROLLBACK TO Create_Item_Pub;
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: -- Standard call to get message count and if count=1, get the message
391: FND_MSG_PUB.Count_And_Get (
392: p_encoded => FND_API.G_FALSE,
393: p_count => x_msg_count,
388: ROLLBACK TO Create_Item_Pub;
389: x_return_status := FND_API.G_RET_STS_ERROR;
390: -- Standard call to get message count and if count=1, get the message
391: FND_MSG_PUB.Count_And_Get (
392: p_encoded => FND_API.G_FALSE,
393: p_count => x_msg_count,
394: p_data => x_msg_data
395: );
396: WHEN OTHERS THEN
394: p_data => x_msg_data
395: );
396: WHEN OTHERS THEN
397: ROLLBACK TO Create_Item_Pub;
398: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
399: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
400: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
401: END IF;
402: -- Standard call to get message count and if count=1, get the message
400: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
401: END IF;
402: -- Standard call to get message count and if count=1, get the message
403: FND_MSG_PUB.Count_And_Get (
404: p_encoded => FND_API.G_FALSE,
405: p_count => x_msg_count,
406: p_data => x_msg_data
407: );
408: END Create_Item;
409: --------------------------------------------------------------------------------
410: PROCEDURE Delete_Item
411: (
412: p_api_version IN NUMBER,
413: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
414: p_commit IN VARCHAR2 := FND_API.G_FALSE,
415: x_return_status OUT NOCOPY VARCHAR2,
416: x_msg_count OUT NOCOPY NUMBER,
417: x_msg_data OUT NOCOPY VARCHAR2,
410: PROCEDURE Delete_Item
411: (
412: p_api_version IN NUMBER,
413: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
414: p_commit IN VARCHAR2 := FND_API.G_FALSE,
415: x_return_status OUT NOCOPY VARCHAR2,
416: x_msg_count OUT NOCOPY NUMBER,
417: x_msg_data OUT NOCOPY VARCHAR2,
418: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
414: p_commit IN VARCHAR2 := FND_API.G_FALSE,
415: x_return_status OUT NOCOPY VARCHAR2,
416: x_msg_count OUT NOCOPY NUMBER,
417: x_msg_data OUT NOCOPY VARCHAR2,
418: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
419: p_item_id IN NUMBER
420: ) AS
421: l_api_name CONSTANT VARCHAR2(30) := 'Delete_Item';
422: l_api_version CONSTANT NUMBER := 1.0;
430: --
431: BEGIN
432: -- Standard call to check for call compatibility.
433: SAVEPOINT Delete_Item_Pub;
434: IF NOT FND_API.Compatible_API_Call (
435: l_api_version,
436: p_api_version,
437: l_api_name,
438: G_PKG_NAME) THEN
435: l_api_version,
436: p_api_version,
437: l_api_name,
438: G_PKG_NAME) THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: END IF;
441: --Initialize message list if p_init_msg_list is TRUE.
442: IF FND_API.To_Boolean (p_init_msg_list) THEN
443: FND_MSG_PUB.initialize;
438: G_PKG_NAME) THEN
439: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
440: END IF;
441: --Initialize message list if p_init_msg_list is TRUE.
442: IF FND_API.To_Boolean (p_init_msg_list) THEN
443: FND_MSG_PUB.initialize;
444: END IF;
445: -- Initialize API return status to success
446: x_return_status := FND_API.G_RET_STS_SUCCESS;
442: IF FND_API.To_Boolean (p_init_msg_list) THEN
443: FND_MSG_PUB.initialize;
444: END IF;
445: -- Initialize API return status to success
446: x_return_status := FND_API.G_RET_STS_SUCCESS;
447: -- Get the current (login) user id.
448: AMV_UTILITY_PVT.Get_UserInfo(
449: x_resource_id => l_resource_id,
450: x_user_id => l_current_user_id,
450: x_user_id => l_current_user_id,
451: x_login_id => l_current_login_id,
452: x_user_status => l_current_user_status
453: );
454: IF (p_check_login_user = FND_API.G_TRUE) THEN
455: -- Check if user is login and has the required privilege.
456: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
457: -- User is not login.
458: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
452: x_user_status => l_current_user_status
453: );
454: IF (p_check_login_user = FND_API.G_TRUE) THEN
455: -- Check if user is login and has the required privilege.
456: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
457: -- User is not login.
458: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
459: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
460: FND_MSG_PUB.ADD;
458: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
459: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
460: FND_MSG_PUB.ADD;
461: END IF;
462: RAISE FND_API.G_EXC_ERROR;
463: END IF;
464: AMV_USER_PVT.Is_Administrator
465: (
466: p_api_version => 1.0,
466: p_api_version => 1.0,
467: x_return_status => x_return_status,
468: x_msg_count => x_msg_count,
469: x_msg_data => x_msg_data,
470: p_check_login_user => FND_API.G_FALSE,
471: p_resource_id => l_resource_id,
472: x_result_flag => l_admin_flag
473: );
474: IF (l_admin_flag <> FND_API.G_TRUE) THEN
470: p_check_login_user => FND_API.G_FALSE,
471: p_resource_id => l_resource_id,
472: x_result_flag => l_admin_flag
473: );
474: IF (l_admin_flag <> FND_API.G_TRUE) THEN
475: -- User is not an administrator.
476: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
477: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
478: FND_MSG_PUB.ADD;
476: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
477: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
478: FND_MSG_PUB.ADD;
479: END IF;
480: RAISE FND_API.G_EXC_ERROR;
481: END IF;
482: END IF;
483: -- Check if item id is valid.
484: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
487: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
488: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
489: FND_MSG_PUB.ADD;
490: END IF;
491: RAISE FND_API.G_EXC_ERROR;
492: END IF;
493: -- Now do the deleting (real job).
494: -- Delete item's perspectives
495: amv_perspective_pvt.Delete_ItemPersps
497: p_api_version => p_api_version,
498: x_return_status => l_return_status,
499: x_msg_count => x_msg_count,
500: x_msg_data => x_msg_data,
501: p_check_login_user => FND_API.G_FALSE,
502: p_item_id => p_item_id
503: );
504: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
500: x_msg_data => x_msg_data,
501: p_check_login_user => FND_API.G_FALSE,
502: p_item_id => p_item_id
503: );
504: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
507: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
501: p_check_login_user => FND_API.G_FALSE,
502: p_item_id => p_item_id
503: );
504: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
507: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: END IF;
502: p_item_id => p_item_id
503: );
504: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
507: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: END IF;
510: -- Remove item from all channels.
503: );
504: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
507: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: END IF;
510: -- Remove item from all channels.
511: DELETE FROM amv_c_chl_item_match
504: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
505: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
506: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
507: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
508: x_return_status := FND_API.G_RET_STS_ERROR;
509: END IF;
510: -- Remove item from all channels.
511: DELETE FROM amv_c_chl_item_match
512: WHERE item_id = p_item_id
523: x_msg_count => x_msg_count,
524: x_msg_data => x_msg_data,
525: p_item_id => p_item_id
526: );
527: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
530: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
531: x_return_status := FND_API.G_RET_STS_ERROR;
524: x_msg_data => x_msg_data,
525: p_item_id => p_item_id
526: );
527: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
530: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: END IF;
525: p_item_id => p_item_id
526: );
527: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
530: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: END IF;
533: */
526: );
527: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
530: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: END IF;
533: */
534: -- Finally delete the item itself.
527: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
528: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
529: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
530: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
531: x_return_status := FND_API.G_RET_STS_ERROR;
532: END IF;
533: */
534: -- Finally delete the item itself.
535: JTF_AMV_ITEM_PUB.Delete_Item
534: -- Finally delete the item itself.
535: JTF_AMV_ITEM_PUB.Delete_Item
536: (
537: p_api_version => p_api_version,
538: p_init_msg_list => FND_API.G_FALSE,
539: p_commit => p_commit,
540: x_return_status => l_return_status,
541: x_msg_count => x_msg_count,
542: x_msg_data => x_msg_data,
541: x_msg_count => x_msg_count,
542: x_msg_data => x_msg_data,
543: p_item_id => p_item_id
544: );
545: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
548: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
549: x_return_status := FND_API.G_RET_STS_ERROR;
542: x_msg_data => x_msg_data,
543: p_item_id => p_item_id
544: );
545: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
548: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: END IF;
543: p_item_id => p_item_id
544: );
545: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
548: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: END IF;
551: --Standard call to get message count and if count=1, get the message
544: );
545: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
548: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: END IF;
551: --Standard call to get message count and if count=1, get the message
552: FND_MSG_PUB.Count_And_Get (
545: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
546: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
547: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
548: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: END IF;
551: --Standard call to get message count and if count=1, get the message
552: FND_MSG_PUB.Count_And_Get (
553: p_encoded => FND_API.G_FALSE,
549: x_return_status := FND_API.G_RET_STS_ERROR;
550: END IF;
551: --Standard call to get message count and if count=1, get the message
552: FND_MSG_PUB.Count_And_Get (
553: p_encoded => FND_API.G_FALSE,
554: p_count => x_msg_count,
555: p_data => x_msg_data
556: );
557: EXCEPTION
554: p_count => x_msg_count,
555: p_data => x_msg_data
556: );
557: EXCEPTION
558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
559: ROLLBACK TO Delete_Item_Pub;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: -- Standard call to get message count and if count=1, get the message
562: FND_MSG_PUB.Count_And_Get (
556: );
557: EXCEPTION
558: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
559: ROLLBACK TO Delete_Item_Pub;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: -- Standard call to get message count and if count=1, get the message
562: FND_MSG_PUB.Count_And_Get (
563: p_encoded => FND_API.G_FALSE,
564: p_count => x_msg_count,
559: ROLLBACK TO Delete_Item_Pub;
560: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
561: -- Standard call to get message count and if count=1, get the message
562: FND_MSG_PUB.Count_And_Get (
563: p_encoded => FND_API.G_FALSE,
564: p_count => x_msg_count,
565: p_data => x_msg_data
566: );
567: WHEN FND_API.G_EXC_ERROR THEN
563: p_encoded => FND_API.G_FALSE,
564: p_count => x_msg_count,
565: p_data => x_msg_data
566: );
567: WHEN FND_API.G_EXC_ERROR THEN
568: ROLLBACK TO Delete_Item_Pub;
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: -- Standard call to get message count and if count=1, get the message
571: FND_MSG_PUB.Count_And_Get (
565: p_data => x_msg_data
566: );
567: WHEN FND_API.G_EXC_ERROR THEN
568: ROLLBACK TO Delete_Item_Pub;
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: -- Standard call to get message count and if count=1, get the message
571: FND_MSG_PUB.Count_And_Get (
572: p_encoded => FND_API.G_FALSE,
573: p_count => x_msg_count,
568: ROLLBACK TO Delete_Item_Pub;
569: x_return_status := FND_API.G_RET_STS_ERROR;
570: -- Standard call to get message count and if count=1, get the message
571: FND_MSG_PUB.Count_And_Get (
572: p_encoded => FND_API.G_FALSE,
573: p_count => x_msg_count,
574: p_data => x_msg_data
575: );
576: WHEN OTHERS THEN
574: p_data => x_msg_data
575: );
576: WHEN OTHERS THEN
577: ROLLBACK TO Delete_Item_Pub;
578: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
579: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
580: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
581: END IF;
582: -- Standard call to get message count and if count=1, get the message
580: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
581: END IF;
582: -- Standard call to get message count and if count=1, get the message
583: FND_MSG_PUB.Count_And_Get (
584: p_encoded => FND_API.G_FALSE,
585: p_count => x_msg_count,
586: p_data => x_msg_data
587: );
588: END Delete_Item;
589: --------------------------------------------------------------------------------
590: PROCEDURE Update_Item
591: (
592: p_api_version IN NUMBER,
593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
594: p_commit IN VARCHAR2 := FND_API.G_FALSE,
595: x_return_status OUT NOCOPY VARCHAR2,
596: x_msg_count OUT NOCOPY NUMBER,
597: x_msg_data OUT NOCOPY VARCHAR2,
590: PROCEDURE Update_Item
591: (
592: p_api_version IN NUMBER,
593: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
594: p_commit IN VARCHAR2 := FND_API.G_FALSE,
595: x_return_status OUT NOCOPY VARCHAR2,
596: x_msg_count OUT NOCOPY NUMBER,
597: x_msg_data OUT NOCOPY VARCHAR2,
598: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
594: p_commit IN VARCHAR2 := FND_API.G_FALSE,
595: x_return_status OUT NOCOPY VARCHAR2,
596: x_msg_count OUT NOCOPY NUMBER,
597: x_msg_data OUT NOCOPY VARCHAR2,
598: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
599: p_channel_id_array IN AMV_NUMBER_VARRAY_TYPE := NULL,
600: p_item_obj IN AMV_ITEM_OBJ_TYPE,
601: p_file_array IN AMV_NUMBER_VARRAY_TYPE,
602: p_persp_array IN AMV_NAMEID_VARRAY_TYPE,
629: --
630: BEGIN
631: -- Standard call to check for call compatibility.
632: SAVEPOINT Update_Item_Pub;
633: IF NOT FND_API.Compatible_API_Call (
634: l_api_version,
635: p_api_version,
636: l_api_name,
637: G_PKG_NAME) THEN
634: l_api_version,
635: p_api_version,
636: l_api_name,
637: G_PKG_NAME) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640: --Initialize message list if p_init_msg_list is TRUE.
641: IF FND_API.To_Boolean (p_init_msg_list) THEN
642: FND_MSG_PUB.initialize;
637: G_PKG_NAME) THEN
638: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
639: END IF;
640: --Initialize message list if p_init_msg_list is TRUE.
641: IF FND_API.To_Boolean (p_init_msg_list) THEN
642: FND_MSG_PUB.initialize;
643: END IF;
644: -- Initialize API return status to success
645: x_return_status := FND_API.G_RET_STS_SUCCESS;
641: IF FND_API.To_Boolean (p_init_msg_list) THEN
642: FND_MSG_PUB.initialize;
643: END IF;
644: -- Initialize API return status to success
645: x_return_status := FND_API.G_RET_STS_SUCCESS;
646: -- Get the current (login) user id.
647: AMV_UTILITY_PVT.Get_UserInfo(
648: x_resource_id => l_resource_id,
649: x_user_id => l_current_user_id,
649: x_user_id => l_current_user_id,
650: x_login_id => l_current_login_id,
651: x_user_status => l_current_user_status
652: );
653: IF (p_check_login_user = FND_API.G_TRUE) THEN
654: -- Check if user is login and has the required privilege.
655: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
656: -- User is not login.
657: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
651: x_user_status => l_current_user_status
652: );
653: IF (p_check_login_user = FND_API.G_TRUE) THEN
654: -- Check if user is login and has the required privilege.
655: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
656: -- User is not login.
657: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
658: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
659: FND_MSG_PUB.ADD;
657: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
658: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
659: FND_MSG_PUB.ADD;
660: END IF;
661: RAISE FND_API.G_EXC_ERROR;
662: END IF;
663: AMV_USER_PVT.Is_Administrator
664: (
665: p_api_version => 1.0,
665: p_api_version => 1.0,
666: x_return_status => x_return_status,
667: x_msg_count => x_msg_count,
668: x_msg_data => x_msg_data,
669: p_check_login_user => FND_API.G_FALSE,
670: p_resource_id => l_resource_id,
671: x_result_flag => l_admin_flag
672: );
673: IF (l_admin_flag <> FND_API.G_TRUE) THEN
669: p_check_login_user => FND_API.G_FALSE,
670: p_resource_id => l_resource_id,
671: x_result_flag => l_admin_flag
672: );
673: IF (l_admin_flag <> FND_API.G_TRUE) THEN
674: -- User is not an administrator.
675: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
676: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
677: FND_MSG_PUB.ADD;
675: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
676: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
677: FND_MSG_PUB.ADD;
678: END IF;
679: RAISE FND_API.G_EXC_ERROR;
680: END IF;
681: END IF;
682:
683: --
697: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
698: FND_MESSAGE.Set_name('AMV','AMV_NEED_ITEM_INFO');
699: FND_MSG_PUB.ADD;
700: END IF;
701: RAISE FND_API.G_EXC_ERROR;
702: END IF;
703: --Do update the record now.
704:
705: l_item_rec.item_id := p_item_obj.item_id;
721: l_item_rec.owner_id := p_item_obj.owner_id;
722: l_item_rec.default_approver_id := p_item_obj.default_approver_id;
723: l_item_rec.item_destination_type := p_item_obj.item_destination_type;
724: IF (l_item_rec.application_id = AMV_UTILITY_PVT.G_AMV_APP_ID) THEN
725: IF (l_item_rec.external_access_flag <> FND_API.G_TRUE AND
726: l_item_rec.external_access_flag <> FND_API.G_FALSE) THEN
727: l_item_rec.external_access_flag := FND_API.G_MISS_CHAR;
728: END IF;
729: IF (l_item_rec.item_name IS NULL) THEN
722: l_item_rec.default_approver_id := p_item_obj.default_approver_id;
723: l_item_rec.item_destination_type := p_item_obj.item_destination_type;
724: IF (l_item_rec.application_id = AMV_UTILITY_PVT.G_AMV_APP_ID) THEN
725: IF (l_item_rec.external_access_flag <> FND_API.G_TRUE AND
726: l_item_rec.external_access_flag <> FND_API.G_FALSE) THEN
727: l_item_rec.external_access_flag := FND_API.G_MISS_CHAR;
728: END IF;
729: IF (l_item_rec.item_name IS NULL) THEN
730: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
723: l_item_rec.item_destination_type := p_item_obj.item_destination_type;
724: IF (l_item_rec.application_id = AMV_UTILITY_PVT.G_AMV_APP_ID) THEN
725: IF (l_item_rec.external_access_flag <> FND_API.G_TRUE AND
726: l_item_rec.external_access_flag <> FND_API.G_FALSE) THEN
727: l_item_rec.external_access_flag := FND_API.G_MISS_CHAR;
728: END IF;
729: IF (l_item_rec.item_name IS NULL) THEN
730: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
731: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TITLE');
730: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
731: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TITLE');
732: FND_MSG_PUB.ADD;
733: END IF;
734: l_item_rec.item_name := FND_API.G_MISS_CHAR;
735: END IF;
736: IF (l_item_rec.item_type IS NULL) THEN
737: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
738: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TYPE');
737: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
738: FND_MESSAGE.Set_name('AMV','AMV_NULL_ITEM_TYPE');
739: FND_MSG_PUB.ADD;
740: END IF;
741: l_item_rec.item_type := FND_API.G_MISS_CHAR;
742: END IF;
743: IF ( l_item_rec.content_type_id IS NOT NULL AND
744: l_item_rec.content_type_id <> FND_API.G_MISS_NUM) THEN
745: IF (AMV_UTILITY_PVT.Is_ContentTypeIdValid(l_item_rec.content_type_id)
740: END IF;
741: l_item_rec.item_type := FND_API.G_MISS_CHAR;
742: END IF;
743: IF ( l_item_rec.content_type_id IS NOT NULL AND
744: l_item_rec.content_type_id <> FND_API.G_MISS_NUM) THEN
745: IF (AMV_UTILITY_PVT.Is_ContentTypeIdValid(l_item_rec.content_type_id)
746: <> TRUE) THEN
747: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
748: FND_MESSAGE.Set_name('AMV','AMV_INVALID_CONTENT_TYPE_ID');
749: FND_MESSAGE.Set_Token('ID',
750: TO_CHAR( l_item_rec.content_type_id ) );
751: FND_MSG_PUB.ADD;
752: END IF;
753: l_item_rec.content_type_id := FND_API.G_MISS_NUM;
754: END IF;
755: END IF;
756: END IF;
757: JTF_AMV_ITEM_PUB.Update_Item
756: END IF;
757: JTF_AMV_ITEM_PUB.Update_Item
758: (
759: p_api_version => p_api_version,
760: p_init_msg_list => FND_API.G_FALSE,
761: p_commit => FND_API.G_FALSE,
762: x_return_status => x_return_status,
763: x_msg_count => x_msg_count,
764: x_msg_data => x_msg_data,
757: JTF_AMV_ITEM_PUB.Update_Item
758: (
759: p_api_version => p_api_version,
760: p_init_msg_list => FND_API.G_FALSE,
761: p_commit => FND_API.G_FALSE,
762: x_return_status => x_return_status,
763: x_msg_count => x_msg_count,
764: x_msg_data => x_msg_data,
765: p_item_rec => l_item_rec
763: x_msg_count => x_msg_count,
764: x_msg_data => x_msg_data,
765: p_item_rec => l_item_rec
766: );
767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
764: x_msg_data => x_msg_data,
765: p_item_rec => l_item_rec
766: );
767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772:
765: p_item_rec => l_item_rec
766: );
767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772:
773: IF (p_persp_array IS NOT NULL) THEN
766: );
767: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
768: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
769: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
770: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
771: END IF;
772:
773: IF (p_persp_array IS NOT NULL) THEN
774: l_persp_id_array := AMV_PERSPECTIVE_PVT.AMV_NUMBER_VARRAY_TYPE();
781: p_api_version => p_api_version,
782: x_return_status => l_return_status,
783: x_msg_count => x_msg_count,
784: x_msg_data => x_msg_data,
785: p_check_login_user => FND_API.G_FALSE,
786: p_item_id => p_item_obj.item_id,
787: p_perspective_array => l_persp_id_array
788: );
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
785: p_check_login_user => FND_API.G_FALSE,
786: p_item_id => p_item_obj.item_id,
787: p_perspective_array => l_persp_id_array
788: );
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
792: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
786: p_item_id => p_item_obj.item_id,
787: p_perspective_array => l_persp_id_array
788: );
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
792: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: END IF;
787: p_perspective_array => l_persp_id_array
788: );
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
792: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: END IF;
795: END IF;
788: );
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
792: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: END IF;
795: END IF;
796: IF (p_author_array IS NOT NULL) THEN
789: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
790: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
791: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
792: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
793: x_return_status := FND_API.G_RET_STS_ERROR;
794: END IF;
795: END IF;
796: IF (p_author_array IS NOT NULL) THEN
797: Replace_ItemAuthor
799: p_api_version => p_api_version,
800: x_return_status => l_return_status,
801: x_msg_count => x_msg_count,
802: x_msg_data => x_msg_data,
803: p_check_login_user => FND_API.G_FALSE,
804: p_item_id => p_item_obj.item_id,
805: p_author_varray => p_author_array
806: );
807: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
803: p_check_login_user => FND_API.G_FALSE,
804: p_item_id => p_item_obj.item_id,
805: p_author_varray => p_author_array
806: );
807: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
810: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
811: x_return_status := FND_API.G_RET_STS_ERROR;
804: p_item_id => p_item_obj.item_id,
805: p_author_varray => p_author_array
806: );
807: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
810: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: END IF;
805: p_author_varray => p_author_array
806: );
807: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
810: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: END IF;
813: END IF;
806: );
807: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
810: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: END IF;
813: END IF;
814: IF (p_file_array IS NOT NULL) THEN
807: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
808: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
809: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
810: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
811: x_return_status := FND_API.G_RET_STS_ERROR;
812: END IF;
813: END IF;
814: IF (p_file_array IS NOT NULL) THEN
815: Replace_ItemFile
817: p_api_version => l_api_version,
818: x_return_status => l_return_status,
819: x_msg_count => x_msg_count,
820: x_msg_data => x_msg_data,
821: p_check_login_user => FND_API.G_FALSE,
822: p_item_id => p_item_obj.item_id,
823: p_file_id_varray => p_file_array
824: );
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
821: p_check_login_user => FND_API.G_FALSE,
822: p_item_id => p_item_obj.item_id,
823: p_file_id_varray => p_file_array
824: );
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
828: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
822: p_item_id => p_item_obj.item_id,
823: p_file_id_varray => p_file_array
824: );
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
828: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: END IF;
823: p_file_id_varray => p_file_array
824: );
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
828: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: END IF;
831: END IF;
824: );
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
828: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: END IF;
831: END IF;
832:
825: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
826: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
827: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
828: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
829: x_return_status := FND_API.G_RET_STS_ERROR;
830: END IF;
831: END IF;
832:
833:
837: p_api_version => p_api_version,
838: x_return_status => l_return_status,
839: x_msg_count => x_msg_count,
840: x_msg_data => x_msg_data,
841: p_check_login_user => FND_API.G_FALSE,
842: p_item_id => p_item_obj.item_id,
843: p_keyword_varray => p_keyword_array
844: );
845: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
841: p_check_login_user => FND_API.G_FALSE,
842: p_item_id => p_item_obj.item_id,
843: p_keyword_varray => p_keyword_array
844: );
845: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
848: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
849: x_return_status := FND_API.G_RET_STS_ERROR;
842: p_item_id => p_item_obj.item_id,
843: p_keyword_varray => p_keyword_array
844: );
845: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
848: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END IF;
843: p_keyword_varray => p_keyword_array
844: );
845: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
848: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END IF;
851: END IF;
844: );
845: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
848: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END IF;
851: END IF;
852: --Check if channel id array is passed and if so, make sure each id is valid.
845: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
846: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
847: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
848: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
849: x_return_status := FND_API.G_RET_STS_ERROR;
850: END IF;
851: END IF;
852: --Check if channel id array is passed and if so, make sure each id is valid.
853: l_channel_id_array := AMV_NAMEID_VARRAY_TYPE();
911: p_api_version => l_api_version,
912: x_return_status => l_return_status,
913: x_msg_count => x_msg_count,
914: x_msg_data => x_msg_data,
915: p_check_login_user => FND_API.G_FALSE,
916: p_channel_id => l_channel_remove_id(i),
917: p_item_id => p_item_obj.item_id,
918: p_table_name_code => G_USED_BY_ITEM
919: );
916: p_channel_id => l_channel_remove_id(i),
917: p_item_id => p_item_obj.item_id,
918: p_table_name_code => G_USED_BY_ITEM
919: );
920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
922: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
923: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
924: x_return_status := FND_API.G_RET_STS_ERROR;
917: p_item_id => p_item_obj.item_id,
918: p_table_name_code => G_USED_BY_ITEM
919: );
920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
922: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
923: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: END IF;
918: p_table_name_code => G_USED_BY_ITEM
919: );
920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
922: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
923: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: END IF;
926: ELSE
919: );
920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
922: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
923: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: END IF;
926: ELSE
927: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
920: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
921: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
922: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
923: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
924: x_return_status := FND_API.G_RET_STS_ERROR;
925: END IF;
926: ELSE
927: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
928: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
944: p_api_version => l_api_version,
945: x_return_status => l_return_status,
946: x_msg_count => x_msg_count,
947: x_msg_data => x_msg_data,
948: p_check_login_user => FND_API.G_FALSE,
949: p_channel_id => l_channel_add_id(i),
950: p_item_id => p_item_obj.item_id,
951: p_table_name_code => G_USED_BY_ITEM,
952: p_match_type => AMV_UTILITY_PVT.G_PUSH
950: p_item_id => p_item_obj.item_id,
951: p_table_name_code => G_USED_BY_ITEM,
952: p_match_type => AMV_UTILITY_PVT.G_PUSH
953: );
954: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
957: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
958: x_return_status := FND_API.G_RET_STS_ERROR;
951: p_table_name_code => G_USED_BY_ITEM,
952: p_match_type => AMV_UTILITY_PVT.G_PUSH
953: );
954: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
957: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: END IF;
952: p_match_type => AMV_UTILITY_PVT.G_PUSH
953: );
954: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
957: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: END IF;
960: ELSE
953: );
954: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
957: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: END IF;
960: ELSE
961: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
954: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
956: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
957: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
958: x_return_status := FND_API.G_RET_STS_ERROR;
959: END IF;
960: ELSE
961: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
962: FND_MESSAGE.Set_name('AMV','AMV_RECORD_ID_MISSING');
976: p_api_version => l_api_version,
977: x_return_status => l_return_status,
978: x_msg_count => x_msg_count,
979: x_msg_data => x_msg_data,
980: p_check_login_user => FND_API.G_FALSE,
981: p_item_id => p_item_obj.item_id
982: );
983: END IF;
984: --Standard check of commit
981: p_item_id => p_item_obj.item_id
982: );
983: END IF;
984: --Standard check of commit
985: IF FND_API.To_Boolean ( p_commit ) THEN
986: COMMIT WORK;
987: END IF;
988: --Standard call to get message count and if count=1, get the message
989: FND_MSG_PUB.Count_And_Get (
986: COMMIT WORK;
987: END IF;
988: --Standard call to get message count and if count=1, get the message
989: FND_MSG_PUB.Count_And_Get (
990: p_encoded => FND_API.G_FALSE,
991: p_count => x_msg_count,
992: p_data => x_msg_data
993: );
994: EXCEPTION
991: p_count => x_msg_count,
992: p_data => x_msg_data
993: );
994: EXCEPTION
995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
996: ROLLBACK TO Update_Item_Pub;
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
998: -- Standard call to get message count and if count=1, get the message
999: FND_MSG_PUB.Count_And_Get (
993: );
994: EXCEPTION
995: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
996: ROLLBACK TO Update_Item_Pub;
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
998: -- Standard call to get message count and if count=1, get the message
999: FND_MSG_PUB.Count_And_Get (
1000: p_encoded => FND_API.G_FALSE,
1001: p_count => x_msg_count,
996: ROLLBACK TO Update_Item_Pub;
997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
998: -- Standard call to get message count and if count=1, get the message
999: FND_MSG_PUB.Count_And_Get (
1000: p_encoded => FND_API.G_FALSE,
1001: p_count => x_msg_count,
1002: p_data => x_msg_data
1003: );
1004: WHEN FND_API.G_EXC_ERROR THEN
1000: p_encoded => FND_API.G_FALSE,
1001: p_count => x_msg_count,
1002: p_data => x_msg_data
1003: );
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: ROLLBACK TO Update_Item_Pub;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: -- Standard call to get message count and if count=1, get the message
1008: FND_MSG_PUB.Count_And_Get (
1002: p_data => x_msg_data
1003: );
1004: WHEN FND_API.G_EXC_ERROR THEN
1005: ROLLBACK TO Update_Item_Pub;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: -- Standard call to get message count and if count=1, get the message
1008: FND_MSG_PUB.Count_And_Get (
1009: p_encoded => FND_API.G_FALSE,
1010: p_count => x_msg_count,
1005: ROLLBACK TO Update_Item_Pub;
1006: x_return_status := FND_API.G_RET_STS_ERROR;
1007: -- Standard call to get message count and if count=1, get the message
1008: FND_MSG_PUB.Count_And_Get (
1009: p_encoded => FND_API.G_FALSE,
1010: p_count => x_msg_count,
1011: p_data => x_msg_data
1012: );
1013: WHEN OTHERS THEN
1011: p_data => x_msg_data
1012: );
1013: WHEN OTHERS THEN
1014: ROLLBACK TO Update_Item_Pub;
1015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1016: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1017: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1018: END IF;
1019: -- Standard call to get message count and if count=1, get the message
1017: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1018: END IF;
1019: -- Standard call to get message count and if count=1, get the message
1020: FND_MSG_PUB.Count_And_Get (
1021: p_encoded => FND_API.G_FALSE,
1022: p_count => x_msg_count,
1023: p_data => x_msg_data
1024: );
1025: END Update_Item;
1026: --------------------------------------------------------------------------------
1027: PROCEDURE Get_Item
1028: (
1029: p_api_version IN NUMBER,
1030: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1031: x_return_status OUT NOCOPY VARCHAR2,
1032: x_msg_count OUT NOCOPY NUMBER,
1033: x_msg_data OUT NOCOPY VARCHAR2,
1034: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1030: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1031: x_return_status OUT NOCOPY VARCHAR2,
1032: x_msg_count OUT NOCOPY NUMBER,
1033: x_msg_data OUT NOCOPY VARCHAR2,
1034: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1035: p_item_id IN NUMBER,
1036: x_item_obj OUT NOCOPY AMV_ITEM_OBJ_TYPE,
1037: x_file_array OUT NOCOPY AMV_NUMBER_VARRAY_TYPE,
1038: x_persp_array OUT NOCOPY AMV_NAMEID_VARRAY_TYPE,
1055: l_file_id_varray AMV_NUMBER_VARRAY_TYPE;
1056: --
1057: BEGIN
1058: -- Standard call to check for call compatibility.
1059: IF NOT FND_API.Compatible_API_Call (
1060: l_api_version,
1061: p_api_version,
1062: l_api_name,
1063: G_PKG_NAME) THEN
1060: l_api_version,
1061: p_api_version,
1062: l_api_name,
1063: G_PKG_NAME) THEN
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: END IF;
1066: --Initialize message list if p_init_msg_list is TRUE.
1067: IF FND_API.To_Boolean (p_init_msg_list) THEN
1068: FND_MSG_PUB.initialize;
1063: G_PKG_NAME) THEN
1064: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1065: END IF;
1066: --Initialize message list if p_init_msg_list is TRUE.
1067: IF FND_API.To_Boolean (p_init_msg_list) THEN
1068: FND_MSG_PUB.initialize;
1069: END IF;
1070: -- Initialize API return status to success
1071: x_return_status := FND_API.G_RET_STS_SUCCESS;
1067: IF FND_API.To_Boolean (p_init_msg_list) THEN
1068: FND_MSG_PUB.initialize;
1069: END IF;
1070: -- Initialize API return status to success
1071: x_return_status := FND_API.G_RET_STS_SUCCESS;
1072: -- Get the current (login) user id.
1073: AMV_UTILITY_PVT.Get_UserInfo(
1074: x_resource_id => l_resource_id,
1075: x_user_id => l_current_user_id,
1075: x_user_id => l_current_user_id,
1076: x_login_id => l_current_login_id,
1077: x_user_status => l_current_user_status
1078: );
1079: IF (p_check_login_user = FND_API.G_TRUE) THEN
1080: -- Check if user is login and has the required privilege.
1081: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1082: -- User is not login.
1083: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1077: x_user_status => l_current_user_status
1078: );
1079: IF (p_check_login_user = FND_API.G_TRUE) THEN
1080: -- Check if user is login and has the required privilege.
1081: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1082: -- User is not login.
1083: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1084: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1085: FND_MSG_PUB.ADD;
1083: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1084: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1085: FND_MSG_PUB.ADD;
1086: END IF;
1087: RAISE FND_API.G_EXC_ERROR;
1088: END IF;
1089: END IF;
1090: -- Check if item id is valid.
1091: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
1094: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
1095: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
1096: FND_MSG_PUB.ADD;
1097: END IF;
1098: RAISE FND_API.G_EXC_ERROR;
1099: END IF;
1100: JTF_AMV_ITEM_PUB.Get_Item
1101: (
1102: p_api_version => p_api_version,
1099: END IF;
1100: JTF_AMV_ITEM_PUB.Get_Item
1101: (
1102: p_api_version => p_api_version,
1103: p_init_msg_list => FND_API.G_FALSE,
1104: x_return_status => x_return_status,
1105: x_msg_count => x_msg_count,
1106: x_msg_data => x_msg_data,
1107: p_item_id => p_item_id,
1106: x_msg_data => x_msg_data,
1107: p_item_id => p_item_id,
1108: x_item_rec => l_item_rec
1109: );
1110: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1107: p_item_id => p_item_id,
1108: x_item_rec => l_item_rec
1109: );
1110: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1115: -- Get item's perspectives.
1108: x_item_rec => l_item_rec
1109: );
1110: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1115: -- Get item's perspectives.
1116: --l_persp_id_varray := AMV_NUMBER_VARRAY_TYPE();
1109: );
1110: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
1111: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1112: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
1113: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1114: END IF;
1115: -- Get item's perspectives.
1116: --l_persp_id_varray := AMV_NUMBER_VARRAY_TYPE();
1117: --l_persp_name_varray := AMV_CHAR_VARRAY_TYPE();
1122: p_api_version => p_api_version,
1123: x_return_status => l_return_status,
1124: x_msg_count => x_msg_count,
1125: x_msg_data => x_msg_data,
1126: p_check_login_user => FND_API.G_FALSE,
1127: p_item_id => p_item_id,
1128: x_perspective_obj_varray => l_persp_obj_varray
1129: );
1130: IF (l_persp_obj_varray IS NOT NULL) THEN
1140: p_api_version => p_api_version,
1141: x_return_status => l_return_status,
1142: x_msg_count => x_msg_count,
1143: x_msg_data => x_msg_data,
1144: p_check_login_user => FND_API.G_FALSE,
1145: p_item_id => p_item_id,
1146: x_keyword_varray => l_keyword_varray
1147: );
1148: IF (l_keyword_varray IS NULL) THEN
1154: p_api_version => p_api_version,
1155: x_return_status => l_return_status,
1156: x_msg_count => x_msg_count,
1157: x_msg_data => x_msg_data,
1158: p_check_login_user => FND_API.G_FALSE,
1159: p_item_id => p_item_id,
1160: x_author_varray => l_author_varray
1161: );
1162: IF (l_author_varray IS NULL) THEN
1168: p_api_version => p_api_version,
1169: x_return_status => l_return_status,
1170: x_msg_count => x_msg_count,
1171: x_msg_data => x_msg_data,
1172: p_check_login_user => FND_API.G_FALSE,
1173: p_item_id => p_item_id,
1174: x_file_id_varray => l_file_id_varray
1175: );
1176: IF (l_file_id_varray IS NULL) THEN
1211: x_keyword_array := AMV_CHAR_VARRAY_TYPE();
1212: x_keyword_array := l_keyword_varray;
1213: --Standard call to get message count and if count=1, get the message
1214: FND_MSG_PUB.Count_And_Get (
1215: p_encoded => FND_API.G_FALSE,
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: EXCEPTION
1216: p_count => x_msg_count,
1217: p_data => x_msg_data
1218: );
1219: EXCEPTION
1220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: -- Standard call to get message count and if count=1, get the message
1223: FND_MSG_PUB.Count_And_Get (
1224: p_encoded => FND_API.G_FALSE,
1217: p_data => x_msg_data
1218: );
1219: EXCEPTION
1220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: -- Standard call to get message count and if count=1, get the message
1223: FND_MSG_PUB.Count_And_Get (
1224: p_encoded => FND_API.G_FALSE,
1225: p_count => x_msg_count,
1220: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1222: -- Standard call to get message count and if count=1, get the message
1223: FND_MSG_PUB.Count_And_Get (
1224: p_encoded => FND_API.G_FALSE,
1225: p_count => x_msg_count,
1226: p_data => x_msg_data
1227: );
1228: WHEN FND_API.G_EXC_ERROR THEN
1224: p_encoded => FND_API.G_FALSE,
1225: p_count => x_msg_count,
1226: p_data => x_msg_data
1227: );
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: -- Standard call to get message count and if count=1, get the message
1231: FND_MSG_PUB.Count_And_Get (
1232: p_encoded => FND_API.G_FALSE,
1225: p_count => x_msg_count,
1226: p_data => x_msg_data
1227: );
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: -- Standard call to get message count and if count=1, get the message
1231: FND_MSG_PUB.Count_And_Get (
1232: p_encoded => FND_API.G_FALSE,
1233: p_count => x_msg_count,
1228: WHEN FND_API.G_EXC_ERROR THEN
1229: x_return_status := FND_API.G_RET_STS_ERROR;
1230: -- Standard call to get message count and if count=1, get the message
1231: FND_MSG_PUB.Count_And_Get (
1232: p_encoded => FND_API.G_FALSE,
1233: p_count => x_msg_count,
1234: p_data => x_msg_data
1235: );
1236: WHEN OTHERS THEN
1233: p_count => x_msg_count,
1234: p_data => x_msg_data
1235: );
1236: WHEN OTHERS THEN
1237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1238: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1239: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1240: END IF;
1241: -- Standard call to get message count and if count=1, get the message
1239: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1240: END IF;
1241: -- Standard call to get message count and if count=1, get the message
1242: FND_MSG_PUB.Count_And_Get (
1243: p_encoded => FND_API.G_FALSE,
1244: p_count => x_msg_count,
1245: p_data => x_msg_data
1246: );
1247: END Get_Item;
1248: --------------------------------------------------------------------------------
1249: PROCEDURE Find_Item
1250: (
1251: p_api_version IN NUMBER,
1252: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1253: x_return_status OUT NOCOPY VARCHAR2,
1254: x_msg_count OUT NOCOPY NUMBER,
1255: x_msg_data OUT NOCOPY VARCHAR2,
1256: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1252: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1253: x_return_status OUT NOCOPY VARCHAR2,
1254: x_msg_count OUT NOCOPY NUMBER,
1255: x_msg_data OUT NOCOPY VARCHAR2,
1256: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1257: p_item_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
1258: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
1259: p_item_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1260: p_subset_request_obj IN AMV_REQUEST_OBJ_TYPE,
1253: x_return_status OUT NOCOPY VARCHAR2,
1254: x_msg_count OUT NOCOPY NUMBER,
1255: x_msg_data OUT NOCOPY VARCHAR2,
1256: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1257: p_item_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
1258: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
1259: p_item_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1260: p_subset_request_obj IN AMV_REQUEST_OBJ_TYPE,
1261: x_subset_return_obj OUT NOCOPY AMV_RETURN_OBJ_TYPE,
1254: x_msg_count OUT NOCOPY NUMBER,
1255: x_msg_data OUT NOCOPY VARCHAR2,
1256: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1257: p_item_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
1258: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
1259: p_item_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1260: p_subset_request_obj IN AMV_REQUEST_OBJ_TYPE,
1261: x_subset_return_obj OUT NOCOPY AMV_RETURN_OBJ_TYPE,
1262: x_item_obj_array OUT NOCOPY AMV_SIMPLE_ITEM_OBJ_VARRAY
1255: x_msg_data OUT NOCOPY VARCHAR2,
1256: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1257: p_item_name IN VARCHAR2 := FND_API.G_MISS_CHAR,
1258: p_description IN VARCHAR2 := FND_API.G_MISS_CHAR,
1259: p_item_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
1260: p_subset_request_obj IN AMV_REQUEST_OBJ_TYPE,
1261: x_subset_return_obj OUT NOCOPY AMV_RETURN_OBJ_TYPE,
1262: x_item_obj_array OUT NOCOPY AMV_SIMPLE_ITEM_OBJ_VARRAY
1263: ) AS
1315: l_file_id_list VARCHAR2(2000);
1316: --
1317: BEGIN
1318: -- Standard call to check for call compatibility.
1319: IF NOT FND_API.Compatible_API_Call (
1320: l_api_version,
1321: p_api_version,
1322: l_api_name,
1323: G_PKG_NAME) THEN
1320: l_api_version,
1321: p_api_version,
1322: l_api_name,
1323: G_PKG_NAME) THEN
1324: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1325: END IF;
1326: -- Debug Message
1327: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW) THEN
1328: FND_MESSAGE.Set_name('AMV','PVT Find Item API: Start');
1328: FND_MESSAGE.Set_name('AMV','PVT Find Item API: Start');
1329: FND_MSG_PUB.ADD;
1330: END IF;
1331: --Initialize message list if p_init_msg_list is TRUE.
1332: IF FND_API.To_Boolean (p_init_msg_list) THEN
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335: -- Initialize API return status to success
1336: x_return_status := FND_API.G_RET_STS_SUCCESS;
1332: IF FND_API.To_Boolean (p_init_msg_list) THEN
1333: FND_MSG_PUB.initialize;
1334: END IF;
1335: -- Initialize API return status to success
1336: x_return_status := FND_API.G_RET_STS_SUCCESS;
1337: -- Get the current (login) user id.
1338: AMV_UTILITY_PVT.Get_UserInfo(
1339: x_resource_id => l_resource_id,
1340: x_user_id => l_current_user_id,
1340: x_user_id => l_current_user_id,
1341: x_login_id => l_current_login_id,
1342: x_user_status => l_current_user_status
1343: );
1344: IF (p_check_login_user = FND_API.G_TRUE) THEN
1345: -- Check if user is login and has the required privilege.
1346: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1347: -- User is not login.
1348: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1342: x_user_status => l_current_user_status
1343: );
1344: IF (p_check_login_user = FND_API.G_TRUE) THEN
1345: -- Check if user is login and has the required privilege.
1346: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1347: -- User is not login.
1348: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1349: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1350: FND_MSG_PUB.ADD;
1348: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1349: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1350: FND_MSG_PUB.ADD;
1351: END IF;
1352: RAISE FND_API.G_EXC_ERROR;
1353: END IF;
1354: END IF;
1355: -- This is to make database happy
1356: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1352: RAISE FND_API.G_EXC_ERROR;
1353: END IF;
1354: END IF;
1355: -- This is to make database happy
1356: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1357: l_current_login_id := -1;
1358: l_current_user_id := -1;
1359: END IF;
1360: -- Now create SQL statement and find the results:
1390: 'From JTF_AMV_ITEMS_VL';
1391: --
1392: l_where_clause := ' ';
1393: IF (p_item_name IS NOT NULL AND
1394: p_item_name <> FND_API.G_MISS_CHAR) THEN
1395: l_where_clause := l_where_clause ||
1396: 'And ITEM_NAME Like ''' || p_item_name || ''' ';
1397: END IF;
1398: IF (p_description IS NOT NULL AND
1395: l_where_clause := l_where_clause ||
1396: 'And ITEM_NAME Like ''' || p_item_name || ''' ';
1397: END IF;
1398: IF (p_description IS NOT NULL AND
1399: p_description <> FND_API.G_MISS_CHAR) THEN
1400: l_where_clause := l_where_clause ||
1401: 'And DESCRIPTION Like ''' || p_description || ''' ';
1402: END IF;
1403: IF (p_item_type IS NOT NULL AND
1400: l_where_clause := l_where_clause ||
1401: 'And DESCRIPTION Like ''' || p_description || ''' ';
1402: END IF;
1403: IF (p_item_type IS NOT NULL AND
1404: p_item_type <> FND_API.G_MISS_CHAR) THEN
1405: l_where_clause := l_where_clause ||
1406: 'And ITEM_TYPE Like ''' || p_item_type || ''' ';
1407: END IF;
1408: l_sql_statement := l_sql_statement ||
1418: FND_MESSAGE.Set_Token('ROW', l_sql_statement2);
1419: FND_MSG_PUB.ADD;
1420: END IF;
1421: --Execute the SQL statements to get the total count:
1422: IF (p_subset_request_obj.return_total_count_flag = FND_API.G_TRUE) THEN
1423: OPEN l_cursor FOR l_sql_statement2;
1424: FETCH l_cursor INTO l_total_record_count;
1425: CLOSE l_cursor;
1426: END IF;
1464: p_api_version => p_api_version,
1465: x_return_status => l_return_status,
1466: x_msg_count => x_msg_count,
1467: x_msg_data => x_msg_data,
1468: p_check_login_user => FND_API.G_FALSE,
1469: p_item_id => l_item_id,
1470: x_perspective_obj_varray => l_persp_obj_varray
1471: );
1472: l_persp_id_list := '';
1485: p_api_version => p_api_version,
1486: x_return_status => l_return_status,
1487: x_msg_count => x_msg_count,
1488: x_msg_data => x_msg_data,
1489: p_check_login_user => FND_API.G_FALSE,
1490: p_item_id => l_item_id,
1491: x_keyword_varray => l_keyword_varray
1492: );
1493: l_keyword_list := '';
1503: p_api_version => p_api_version,
1504: x_return_status => l_return_status,
1505: x_msg_count => x_msg_count,
1506: x_msg_data => x_msg_data,
1507: p_check_login_user => FND_API.G_FALSE,
1508: p_item_id => l_item_id,
1509: x_author_varray => l_author_varray
1510: );
1511: l_author_list := '';
1521: p_api_version => p_api_version,
1522: x_return_status => l_return_status,
1523: x_msg_count => x_msg_count,
1524: x_msg_data => x_msg_data,
1525: p_check_login_user => FND_API.G_FALSE,
1526: p_item_id => l_item_id,
1527: x_file_id_varray => l_file_id_varray
1528: );
1529: l_file_id_list := '';
1575: p_subset_request_obj.start_record_position + l_fetch_count;
1576: x_subset_return_obj.total_record_count := l_total_record_count;
1577: --Standard call to get message count and if count=1, get the message
1578: FND_MSG_PUB.Count_And_Get (
1579: p_encoded => FND_API.G_FALSE,
1580: p_count => x_msg_count,
1581: p_data => x_msg_data
1582: );
1583: EXCEPTION
1580: p_count => x_msg_count,
1581: p_data => x_msg_data
1582: );
1583: EXCEPTION
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: -- Standard call to get message count and if count=1, get the message
1587: FND_MSG_PUB.Count_And_Get (
1588: p_encoded => FND_API.G_FALSE,
1581: p_data => x_msg_data
1582: );
1583: EXCEPTION
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: -- Standard call to get message count and if count=1, get the message
1587: FND_MSG_PUB.Count_And_Get (
1588: p_encoded => FND_API.G_FALSE,
1589: p_count => x_msg_count,
1584: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1586: -- Standard call to get message count and if count=1, get the message
1587: FND_MSG_PUB.Count_And_Get (
1588: p_encoded => FND_API.G_FALSE,
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1591: );
1592: WHEN FND_API.G_EXC_ERROR THEN
1588: p_encoded => FND_API.G_FALSE,
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1591: );
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: -- Standard call to get message count and if count=1, get the message
1595: FND_MSG_PUB.Count_And_Get (
1596: p_encoded => FND_API.G_FALSE,
1589: p_count => x_msg_count,
1590: p_data => x_msg_data
1591: );
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: -- Standard call to get message count and if count=1, get the message
1595: FND_MSG_PUB.Count_And_Get (
1596: p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1592: WHEN FND_API.G_EXC_ERROR THEN
1593: x_return_status := FND_API.G_RET_STS_ERROR;
1594: -- Standard call to get message count and if count=1, get the message
1595: FND_MSG_PUB.Count_And_Get (
1596: p_encoded => FND_API.G_FALSE,
1597: p_count => x_msg_count,
1598: p_data => x_msg_data
1599: );
1600: WHEN OTHERS THEN
1597: p_count => x_msg_count,
1598: p_data => x_msg_data
1599: );
1600: WHEN OTHERS THEN
1601: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1602: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1603: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1604: END IF;
1605: -- Standard call to get message count and if count=1, get the message
1603: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1604: END IF;
1605: -- Standard call to get message count and if count=1, get the message
1606: FND_MSG_PUB.Count_And_Get (
1607: p_encoded => FND_API.G_FALSE,
1608: p_count => x_msg_count,
1609: p_data => x_msg_data
1610: );
1611: END Find_Item;
1613: ------------------------------ ITEM_KEYWORD ------------------------------------
1614: PROCEDURE Add_ItemKeyword
1615: (
1616: p_api_version IN NUMBER,
1617: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1618: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1619: x_return_status OUT NOCOPY VARCHAR2,
1620: x_msg_count OUT NOCOPY NUMBER,
1621: x_msg_data OUT NOCOPY VARCHAR2,
1614: PROCEDURE Add_ItemKeyword
1615: (
1616: p_api_version IN NUMBER,
1617: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1618: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1619: x_return_status OUT NOCOPY VARCHAR2,
1620: x_msg_count OUT NOCOPY NUMBER,
1621: x_msg_data OUT NOCOPY VARCHAR2,
1622: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1618: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1619: x_return_status OUT NOCOPY VARCHAR2,
1620: x_msg_count OUT NOCOPY NUMBER,
1621: x_msg_data OUT NOCOPY VARCHAR2,
1622: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1623: p_item_id IN NUMBER,
1624: p_keyword_varray IN AMV_CHAR_VARRAY_TYPE
1625: ) AS
1626: l_api_name CONSTANT VARCHAR2(30) := 'Add_ItemKeyword';
1635: --
1636: BEGIN
1637: SAVEPOINT Add_ItemKeyword_Pub;
1638: --Initialize message list if p_init_msg_list is TRUE.
1639: IF FND_API.To_Boolean (p_init_msg_list) THEN
1640: FND_MSG_PUB.initialize;
1641: END IF;
1642: -- Initialize API return status to success
1643: x_return_status := FND_API.G_RET_STS_SUCCESS;
1639: IF FND_API.To_Boolean (p_init_msg_list) THEN
1640: FND_MSG_PUB.initialize;
1641: END IF;
1642: -- Initialize API return status to success
1643: x_return_status := FND_API.G_RET_STS_SUCCESS;
1644: -- Get the current (login) user id.
1645: AMV_UTILITY_PVT.Get_UserInfo(
1646: x_resource_id => l_resource_id,
1647: x_user_id => l_current_user_id,
1647: x_user_id => l_current_user_id,
1648: x_login_id => l_current_login_id,
1649: x_user_status => l_current_user_status
1650: );
1651: IF (p_check_login_user = FND_API.G_TRUE) THEN
1652: -- Check if user is login and has the required privilege.
1653: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1654: -- User is not login.
1655: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1649: x_user_status => l_current_user_status
1650: );
1651: IF (p_check_login_user = FND_API.G_TRUE) THEN
1652: -- Check if user is login and has the required privilege.
1653: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1654: -- User is not login.
1655: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1656: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1657: FND_MSG_PUB.ADD;
1655: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1656: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1657: FND_MSG_PUB.ADD;
1658: END IF;
1659: RAISE FND_API.G_EXC_ERROR;
1660: END IF;
1661: AMV_USER_PVT.Is_Administrator
1662: (
1663: p_api_version => 1.0,
1663: p_api_version => 1.0,
1664: x_return_status => x_return_status,
1665: x_msg_count => x_msg_count,
1666: x_msg_data => x_msg_data,
1667: p_check_login_user => FND_API.G_FALSE,
1668: p_resource_id => l_resource_id,
1669: x_result_flag => l_admin_flag
1670: );
1671: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1667: p_check_login_user => FND_API.G_FALSE,
1668: p_resource_id => l_resource_id,
1669: x_result_flag => l_admin_flag
1670: );
1671: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1672: -- User is not an administrator.
1673: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1674: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1675: FND_MSG_PUB.ADD;
1673: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1674: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1675: FND_MSG_PUB.ADD;
1676: END IF;
1677: RAISE FND_API.G_EXC_ERROR;
1678: END IF;
1679: END IF;
1680: IF (p_keyword_varray IS NOT NULL) THEN
1681: l_char_tab := JTF_AMV_ITEM_PUB.CHAR_TAB_TYPE();
1685: END LOOP;
1686: JTF_AMV_ITEM_PUB.Add_ItemKeyword
1687: (
1688: p_api_version => p_api_version,
1689: p_init_msg_list => FND_API.G_FALSE,
1690: p_commit => p_commit,
1691: x_return_status => x_return_status,
1692: x_msg_count => x_msg_count,
1693: x_msg_data => x_msg_data,
1695: p_keyword_tab => l_char_tab
1696: );
1697: ELSE
1698: FND_MSG_PUB.Count_And_Get (
1699: p_encoded => FND_API.G_FALSE,
1700: p_count => x_msg_count,
1701: p_data => x_msg_data
1702: );
1703: END IF;
1701: p_data => x_msg_data
1702: );
1703: END IF;
1704: EXCEPTION
1705: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1706: ROLLBACK TO Add_ItemKeyword_Pub;
1707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1708: -- Standard call to get message count and if count=1, get the message
1709: FND_MSG_PUB.Count_And_Get (
1703: END IF;
1704: EXCEPTION
1705: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1706: ROLLBACK TO Add_ItemKeyword_Pub;
1707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1708: -- Standard call to get message count and if count=1, get the message
1709: FND_MSG_PUB.Count_And_Get (
1710: p_encoded => FND_API.G_FALSE,
1711: p_count => x_msg_count,
1706: ROLLBACK TO Add_ItemKeyword_Pub;
1707: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1708: -- Standard call to get message count and if count=1, get the message
1709: FND_MSG_PUB.Count_And_Get (
1710: p_encoded => FND_API.G_FALSE,
1711: p_count => x_msg_count,
1712: p_data => x_msg_data
1713: );
1714: WHEN FND_API.G_EXC_ERROR THEN
1710: p_encoded => FND_API.G_FALSE,
1711: p_count => x_msg_count,
1712: p_data => x_msg_data
1713: );
1714: WHEN FND_API.G_EXC_ERROR THEN
1715: ROLLBACK TO Add_ItemKeyword_Pub;
1716: x_return_status := FND_API.G_RET_STS_ERROR;
1717: -- Standard call to get message count and if count=1, get the message
1718: FND_MSG_PUB.Count_And_Get (
1712: p_data => x_msg_data
1713: );
1714: WHEN FND_API.G_EXC_ERROR THEN
1715: ROLLBACK TO Add_ItemKeyword_Pub;
1716: x_return_status := FND_API.G_RET_STS_ERROR;
1717: -- Standard call to get message count and if count=1, get the message
1718: FND_MSG_PUB.Count_And_Get (
1719: p_encoded => FND_API.G_FALSE,
1720: p_count => x_msg_count,
1715: ROLLBACK TO Add_ItemKeyword_Pub;
1716: x_return_status := FND_API.G_RET_STS_ERROR;
1717: -- Standard call to get message count and if count=1, get the message
1718: FND_MSG_PUB.Count_And_Get (
1719: p_encoded => FND_API.G_FALSE,
1720: p_count => x_msg_count,
1721: p_data => x_msg_data
1722: );
1723: WHEN OTHERS THEN
1721: p_data => x_msg_data
1722: );
1723: WHEN OTHERS THEN
1724: ROLLBACK TO Add_ItemKeyword_Pub;
1725: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1726: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1727: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1728: END IF;
1729: -- Standard call to get message count and if count=1, get the message
1727: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
1728: END IF;
1729: -- Standard call to get message count and if count=1, get the message
1730: FND_MSG_PUB.Count_And_Get (
1731: p_encoded => FND_API.G_FALSE,
1732: p_count => x_msg_count,
1733: p_data => x_msg_data
1734: );
1735: END Add_ItemKeyword;
1736: --------------------------------------------------------------------------------
1737: PROCEDURE Add_ItemKeyword
1738: (
1739: p_api_version IN NUMBER,
1740: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1741: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1742: x_return_status OUT NOCOPY VARCHAR2,
1743: x_msg_count OUT NOCOPY NUMBER,
1744: x_msg_data OUT NOCOPY VARCHAR2,
1737: PROCEDURE Add_ItemKeyword
1738: (
1739: p_api_version IN NUMBER,
1740: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1741: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1742: x_return_status OUT NOCOPY VARCHAR2,
1743: x_msg_count OUT NOCOPY NUMBER,
1744: x_msg_data OUT NOCOPY VARCHAR2,
1745: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1741: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1742: x_return_status OUT NOCOPY VARCHAR2,
1743: x_msg_count OUT NOCOPY NUMBER,
1744: x_msg_data OUT NOCOPY VARCHAR2,
1745: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1746: p_item_id IN NUMBER,
1747: p_keyword IN VARCHAR2
1748: ) AS
1749: l_char_varray AMV_CHAR_VARRAY_TYPE;
1768: --------------------------------------------------------------------------------
1769: PROCEDURE Delete_ItemKeyword
1770: (
1771: p_api_version IN NUMBER,
1772: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1773: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1774: x_return_status OUT NOCOPY VARCHAR2,
1775: x_msg_count OUT NOCOPY NUMBER,
1776: x_msg_data OUT NOCOPY VARCHAR2,
1769: PROCEDURE Delete_ItemKeyword
1770: (
1771: p_api_version IN NUMBER,
1772: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1773: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1774: x_return_status OUT NOCOPY VARCHAR2,
1775: x_msg_count OUT NOCOPY NUMBER,
1776: x_msg_data OUT NOCOPY VARCHAR2,
1777: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1773: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1774: x_return_status OUT NOCOPY VARCHAR2,
1775: x_msg_count OUT NOCOPY NUMBER,
1776: x_msg_data OUT NOCOPY VARCHAR2,
1777: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1778: p_item_id IN NUMBER,
1779: p_keyword_varray IN AMV_CHAR_VARRAY_TYPE
1780: ) AS
1781: l_api_name CONSTANT VARCHAR2(30) := 'Delete_ItemKeyword';
1790: BEGIN
1791: -- Standard call to check for call compatibility.
1792: SAVEPOINT Delete_ItemKeyword_Pub;
1793: --Initialize message list if p_init_msg_list is TRUE.
1794: IF FND_API.To_Boolean (p_init_msg_list) THEN
1795: FND_MSG_PUB.initialize;
1796: END IF;
1797: -- Initialize API return status to success
1798: x_return_status := FND_API.G_RET_STS_SUCCESS;
1794: IF FND_API.To_Boolean (p_init_msg_list) THEN
1795: FND_MSG_PUB.initialize;
1796: END IF;
1797: -- Initialize API return status to success
1798: x_return_status := FND_API.G_RET_STS_SUCCESS;
1799: -- Get the current (login) user id.
1800: AMV_UTILITY_PVT.Get_UserInfo(
1801: x_resource_id => l_resource_id,
1802: x_user_id => l_current_user_id,
1802: x_user_id => l_current_user_id,
1803: x_login_id => l_current_login_id,
1804: x_user_status => l_current_user_status
1805: );
1806: IF (p_check_login_user = FND_API.G_TRUE) THEN
1807: -- Check if user is login and has the required privilege.
1808: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1809: -- User is not login.
1810: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1804: x_user_status => l_current_user_status
1805: );
1806: IF (p_check_login_user = FND_API.G_TRUE) THEN
1807: -- Check if user is login and has the required privilege.
1808: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1809: -- User is not login.
1810: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1811: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1812: FND_MSG_PUB.ADD;
1810: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1811: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1812: FND_MSG_PUB.ADD;
1813: END IF;
1814: RAISE FND_API.G_EXC_ERROR;
1815: END IF;
1816: AMV_USER_PVT.Is_Administrator
1817: (
1818: p_api_version => 1.0,
1818: p_api_version => 1.0,
1819: x_return_status => x_return_status,
1820: x_msg_count => x_msg_count,
1821: x_msg_data => x_msg_data,
1822: p_check_login_user => FND_API.G_FALSE,
1823: p_resource_id => l_resource_id,
1824: x_result_flag => l_admin_flag
1825: );
1826: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1822: p_check_login_user => FND_API.G_FALSE,
1823: p_resource_id => l_resource_id,
1824: x_result_flag => l_admin_flag
1825: );
1826: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1827: -- User is not an administrator.
1828: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1829: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1830: FND_MSG_PUB.ADD;
1828: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1829: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1830: FND_MSG_PUB.ADD;
1831: END IF;
1832: RAISE FND_API.G_EXC_ERROR;
1833: END IF;
1834: END IF;
1835: --
1836: IF (p_keyword_varray IS NULL) THEN
1845: -- Now call jtf procedure to do the job.
1846: JTF_AMV_ITEM_PUB.Delete_ItemKeyword
1847: (
1848: p_api_version => p_api_version,
1849: p_init_msg_list => FND_API.G_FALSE,
1850: p_commit => p_commit,
1851: x_return_status => x_return_status,
1852: x_msg_count => x_msg_count,
1853: x_msg_data => x_msg_data,
1854: p_item_id => p_item_id,
1855: p_keyword_tab => l_char_tab
1856: );
1857: EXCEPTION
1858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1859: ROLLBACK TO Delete_ItemKeyword_Pub;
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: -- Standard call to get message count and if count=1, get the message
1862: FND_MSG_PUB.Count_And_Get (
1856: );
1857: EXCEPTION
1858: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1859: ROLLBACK TO Delete_ItemKeyword_Pub;
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: -- Standard call to get message count and if count=1, get the message
1862: FND_MSG_PUB.Count_And_Get (
1863: p_encoded => FND_API.G_FALSE,
1864: p_count => x_msg_count,
1859: ROLLBACK TO Delete_ItemKeyword_Pub;
1860: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1861: -- Standard call to get message count and if count=1, get the message
1862: FND_MSG_PUB.Count_And_Get (
1863: p_encoded => FND_API.G_FALSE,
1864: p_count => x_msg_count,
1865: p_data => x_msg_data
1866: );
1867: WHEN FND_API.G_EXC_ERROR THEN
1863: p_encoded => FND_API.G_FALSE,
1864: p_count => x_msg_count,
1865: p_data => x_msg_data
1866: );
1867: WHEN FND_API.G_EXC_ERROR THEN
1868: ROLLBACK TO Delete_ItemKeyword_Pub;
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: -- Standard call to get message count and if count=1, get the message
1871: FND_MSG_PUB.Count_And_Get (
1865: p_data => x_msg_data
1866: );
1867: WHEN FND_API.G_EXC_ERROR THEN
1868: ROLLBACK TO Delete_ItemKeyword_Pub;
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: -- Standard call to get message count and if count=1, get the message
1871: FND_MSG_PUB.Count_And_Get (
1872: p_encoded => FND_API.G_FALSE,
1873: p_count => x_msg_count,
1868: ROLLBACK TO Delete_ItemKeyword_Pub;
1869: x_return_status := FND_API.G_RET_STS_ERROR;
1870: -- Standard call to get message count and if count=1, get the message
1871: FND_MSG_PUB.Count_And_Get (
1872: p_encoded => FND_API.G_FALSE,
1873: p_count => x_msg_count,
1874: p_data => x_msg_data
1875: );
1876: WHEN OTHERS THEN
1874: p_data => x_msg_data
1875: );
1876: WHEN OTHERS THEN
1877: ROLLBACK TO Delete_ItemKeyword_Pub;
1878: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1879: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
1880: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1881: END IF;
1882: -- Standard call to get message count and if count=1, get the message
1880: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1881: END IF;
1882: -- Standard call to get message count and if count=1, get the message
1883: FND_MSG_PUB.Count_And_Get (
1884: p_encoded => FND_API.G_FALSE,
1885: p_count => x_msg_count,
1886: p_data => x_msg_data
1887: );
1888: END Delete_ItemKeyword;
1889: --------------------------------------------------------------------------------
1890: PROCEDURE Delete_ItemKeyword
1891: (
1892: p_api_version IN NUMBER,
1893: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1894: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1895: x_return_status OUT NOCOPY VARCHAR2,
1896: x_msg_count OUT NOCOPY NUMBER,
1897: x_msg_data OUT NOCOPY VARCHAR2,
1890: PROCEDURE Delete_ItemKeyword
1891: (
1892: p_api_version IN NUMBER,
1893: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1894: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1895: x_return_status OUT NOCOPY VARCHAR2,
1896: x_msg_count OUT NOCOPY NUMBER,
1897: x_msg_data OUT NOCOPY VARCHAR2,
1898: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1894: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1895: x_return_status OUT NOCOPY VARCHAR2,
1896: x_msg_count OUT NOCOPY NUMBER,
1897: x_msg_data OUT NOCOPY VARCHAR2,
1898: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1899: p_item_id IN NUMBER,
1900: p_keyword IN VARCHAR2
1901: ) AS
1902: l_char_varray AMV_CHAR_VARRAY_TYPE;
1921: --------------------------------------------------------------------------------
1922: PROCEDURE Replace_ItemKeyword
1923: (
1924: p_api_version IN NUMBER,
1925: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1926: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1927: x_return_status OUT NOCOPY VARCHAR2,
1928: x_msg_count OUT NOCOPY NUMBER,
1929: x_msg_data OUT NOCOPY VARCHAR2,
1922: PROCEDURE Replace_ItemKeyword
1923: (
1924: p_api_version IN NUMBER,
1925: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1926: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1927: x_return_status OUT NOCOPY VARCHAR2,
1928: x_msg_count OUT NOCOPY NUMBER,
1929: x_msg_data OUT NOCOPY VARCHAR2,
1930: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1926: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1927: x_return_status OUT NOCOPY VARCHAR2,
1928: x_msg_count OUT NOCOPY NUMBER,
1929: x_msg_data OUT NOCOPY VARCHAR2,
1930: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
1931: p_item_id IN NUMBER,
1932: p_keyword_varray IN AMV_CHAR_VARRAY_TYPE
1933: ) AS
1934: l_api_name CONSTANT VARCHAR2(30) := 'Replace_ItemKeyword';
1941: l_admin_flag VARCHAR2(1);
1942: BEGIN
1943: -- Standard call to check for call compatibility.
1944: SAVEPOINT Replace_ItemKeyword_Pub;
1945: IF NOT FND_API.Compatible_API_Call (
1946: l_api_version,
1947: p_api_version,
1948: l_api_name,
1949: G_PKG_NAME) THEN
1946: l_api_version,
1947: p_api_version,
1948: l_api_name,
1949: G_PKG_NAME) THEN
1950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1951: END IF;
1952: --Initialize message list if p_init_msg_list is TRUE.
1953: IF FND_API.To_Boolean (p_init_msg_list) THEN
1954: FND_MSG_PUB.initialize;
1949: G_PKG_NAME) THEN
1950: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1951: END IF;
1952: --Initialize message list if p_init_msg_list is TRUE.
1953: IF FND_API.To_Boolean (p_init_msg_list) THEN
1954: FND_MSG_PUB.initialize;
1955: END IF;
1956: -- Initialize API return status to success
1957: x_return_status := FND_API.G_RET_STS_SUCCESS;
1953: IF FND_API.To_Boolean (p_init_msg_list) THEN
1954: FND_MSG_PUB.initialize;
1955: END IF;
1956: -- Initialize API return status to success
1957: x_return_status := FND_API.G_RET_STS_SUCCESS;
1958: -- Get the current (login) user id.
1959: AMV_UTILITY_PVT.Get_UserInfo(
1960: x_resource_id => l_resource_id,
1961: x_user_id => l_current_user_id,
1961: x_user_id => l_current_user_id,
1962: x_login_id => l_current_login_id,
1963: x_user_status => l_current_user_status
1964: );
1965: IF (p_check_login_user = FND_API.G_TRUE) THEN
1966: -- Check if user is login and has the required privilege.
1967: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1968: -- User is not login.
1969: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1963: x_user_status => l_current_user_status
1964: );
1965: IF (p_check_login_user = FND_API.G_TRUE) THEN
1966: -- Check if user is login and has the required privilege.
1967: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
1968: -- User is not login.
1969: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1970: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1971: FND_MSG_PUB.ADD;
1969: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1970: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
1971: FND_MSG_PUB.ADD;
1972: END IF;
1973: RAISE FND_API.G_EXC_ERROR;
1974: END IF;
1975: AMV_USER_PVT.Is_Administrator
1976: (
1977: p_api_version => 1.0,
1977: p_api_version => 1.0,
1978: x_return_status => x_return_status,
1979: x_msg_count => x_msg_count,
1980: x_msg_data => x_msg_data,
1981: p_check_login_user => FND_API.G_FALSE,
1982: p_resource_id => l_resource_id,
1983: x_result_flag => l_admin_flag
1984: );
1985: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1981: p_check_login_user => FND_API.G_FALSE,
1982: p_resource_id => l_resource_id,
1983: x_result_flag => l_admin_flag
1984: );
1985: IF (l_admin_flag <> FND_API.G_TRUE) THEN
1986: -- User is not an administrator.
1987: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1988: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1989: FND_MSG_PUB.ADD;
1987: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
1988: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
1989: FND_MSG_PUB.ADD;
1990: END IF;
1991: RAISE FND_API.G_EXC_ERROR;
1992: END IF;
1993: END IF;
1994: -- Delete all the item's original keyword
1995: JTF_AMV_ITEM_PUB.Delete_ItemKeyword
1994: -- Delete all the item's original keyword
1995: JTF_AMV_ITEM_PUB.Delete_ItemKeyword
1996: (
1997: p_api_version => p_api_version,
1998: p_init_msg_list => FND_API.G_FALSE,
1999: p_commit => FND_API.G_FALSE,
2000: x_return_status => x_return_status,
2001: x_msg_count => x_msg_count,
2002: x_msg_data => x_msg_data,
1995: JTF_AMV_ITEM_PUB.Delete_ItemKeyword
1996: (
1997: p_api_version => p_api_version,
1998: p_init_msg_list => FND_API.G_FALSE,
1999: p_commit => FND_API.G_FALSE,
2000: x_return_status => x_return_status,
2001: x_msg_count => x_msg_count,
2002: x_msg_data => x_msg_data,
2003: p_item_id => p_item_id,
2002: x_msg_data => x_msg_data,
2003: p_item_id => p_item_id,
2004: p_keyword_tab => NULL
2005: );
2006: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2003: p_item_id => p_item_id,
2004: p_keyword_tab => NULL
2005: );
2006: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011: -- now add the new keywords
2004: p_keyword_tab => NULL
2005: );
2006: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011: -- now add the new keywords
2012: Add_ItemKeyword
2005: );
2006: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2007: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2008: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2009: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2010: END IF;
2011: -- now add the new keywords
2012: Add_ItemKeyword
2013: (
2011: -- now add the new keywords
2012: Add_ItemKeyword
2013: (
2014: p_api_version => p_api_version,
2015: p_init_msg_list => FND_API.G_FALSE,
2016: p_commit => p_commit,
2017: x_return_status => x_return_status,
2018: x_msg_count => x_msg_count,
2019: x_msg_data => x_msg_data,
2016: p_commit => p_commit,
2017: x_return_status => x_return_status,
2018: x_msg_count => x_msg_count,
2019: x_msg_data => x_msg_data,
2020: p_check_login_user => FND_API.G_FALSE,
2021: p_item_id => p_item_id,
2022: p_keyword_varray => p_keyword_varray
2023: );
2024: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2020: p_check_login_user => FND_API.G_FALSE,
2021: p_item_id => p_item_id,
2022: p_keyword_varray => p_keyword_varray
2023: );
2024: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2026: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2021: p_item_id => p_item_id,
2022: p_keyword_varray => p_keyword_varray
2023: );
2024: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2026: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: EXCEPTION
2022: p_keyword_varray => p_keyword_varray
2023: );
2024: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2026: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: EXCEPTION
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2023: );
2024: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2025: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2026: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: EXCEPTION
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031: ROLLBACK TO Replace_ItemKeyword_Pub;
2026: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2027: RAISE FND_API.G_EXC_ERROR;
2028: END IF;
2029: EXCEPTION
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031: ROLLBACK TO Replace_ItemKeyword_Pub;
2032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: -- Standard call to get message count and if count=1, get the message
2034: FND_MSG_PUB.Count_And_Get (
2028: END IF;
2029: EXCEPTION
2030: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2031: ROLLBACK TO Replace_ItemKeyword_Pub;
2032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: -- Standard call to get message count and if count=1, get the message
2034: FND_MSG_PUB.Count_And_Get (
2035: p_encoded => FND_API.G_FALSE,
2036: p_count => x_msg_count,
2031: ROLLBACK TO Replace_ItemKeyword_Pub;
2032: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2033: -- Standard call to get message count and if count=1, get the message
2034: FND_MSG_PUB.Count_And_Get (
2035: p_encoded => FND_API.G_FALSE,
2036: p_count => x_msg_count,
2037: p_data => x_msg_data
2038: );
2039: WHEN FND_API.G_EXC_ERROR THEN
2035: p_encoded => FND_API.G_FALSE,
2036: p_count => x_msg_count,
2037: p_data => x_msg_data
2038: );
2039: WHEN FND_API.G_EXC_ERROR THEN
2040: ROLLBACK TO Replace_ItemKeyword_Pub;
2041: x_return_status := FND_API.G_RET_STS_ERROR;
2042: -- Standard call to get message count and if count=1, get the message
2043: FND_MSG_PUB.Count_And_Get (
2037: p_data => x_msg_data
2038: );
2039: WHEN FND_API.G_EXC_ERROR THEN
2040: ROLLBACK TO Replace_ItemKeyword_Pub;
2041: x_return_status := FND_API.G_RET_STS_ERROR;
2042: -- Standard call to get message count and if count=1, get the message
2043: FND_MSG_PUB.Count_And_Get (
2044: p_encoded => FND_API.G_FALSE,
2045: p_count => x_msg_count,
2040: ROLLBACK TO Replace_ItemKeyword_Pub;
2041: x_return_status := FND_API.G_RET_STS_ERROR;
2042: -- Standard call to get message count and if count=1, get the message
2043: FND_MSG_PUB.Count_And_Get (
2044: p_encoded => FND_API.G_FALSE,
2045: p_count => x_msg_count,
2046: p_data => x_msg_data
2047: );
2048: WHEN OTHERS THEN
2046: p_data => x_msg_data
2047: );
2048: WHEN OTHERS THEN
2049: ROLLBACK TO Replace_ItemKeyword_Pub;
2050: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2051: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2052: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2053: END IF;
2054: -- Standard call to get message count and if count=1, get the message
2052: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2053: END IF;
2054: -- Standard call to get message count and if count=1, get the message
2055: FND_MSG_PUB.Count_And_Get (
2056: p_encoded => FND_API.G_FALSE,
2057: p_count => x_msg_count,
2058: p_data => x_msg_data
2059: );
2060: END Replace_ItemKeyword;
2061: --------------------------------------------------------------------------------
2062: PROCEDURE Get_ItemKeyword
2063: (
2064: p_api_version IN NUMBER,
2065: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2066: x_return_status OUT NOCOPY VARCHAR2,
2067: x_msg_count OUT NOCOPY NUMBER,
2068: x_msg_data OUT NOCOPY VARCHAR2,
2069: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2065: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2066: x_return_status OUT NOCOPY VARCHAR2,
2067: x_msg_count OUT NOCOPY NUMBER,
2068: x_msg_data OUT NOCOPY VARCHAR2,
2069: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2070: p_item_id IN NUMBER,
2071: x_keyword_varray OUT NOCOPY AMV_CHAR_VARRAY_TYPE
2072: ) AS
2073: l_api_name CONSTANT VARCHAR2(30) := 'Get_ItemKeyword';
2080: l_char_tab JTF_AMV_ITEM_PUB.CHAR_TAB_TYPE;
2081: --
2082: BEGIN
2083: --Initialize message list if p_init_msg_list is TRUE.
2084: IF FND_API.To_Boolean (p_init_msg_list) THEN
2085: FND_MSG_PUB.initialize;
2086: END IF;
2087: -- Initialize API return status to success
2088: x_return_status := FND_API.G_RET_STS_SUCCESS;
2084: IF FND_API.To_Boolean (p_init_msg_list) THEN
2085: FND_MSG_PUB.initialize;
2086: END IF;
2087: -- Initialize API return status to success
2088: x_return_status := FND_API.G_RET_STS_SUCCESS;
2089: -- Get the current (login) user id.
2090: AMV_UTILITY_PVT.Get_UserInfo(
2091: x_resource_id => l_resource_id,
2092: x_user_id => l_current_user_id,
2092: x_user_id => l_current_user_id,
2093: x_login_id => l_current_login_id,
2094: x_user_status => l_current_user_status
2095: );
2096: IF (p_check_login_user = FND_API.G_TRUE) THEN
2097: -- Check if user is login and has the required privilege.
2098: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2099: -- User is not login.
2100: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2094: x_user_status => l_current_user_status
2095: );
2096: IF (p_check_login_user = FND_API.G_TRUE) THEN
2097: -- Check if user is login and has the required privilege.
2098: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2099: -- User is not login.
2100: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2101: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2102: FND_MSG_PUB.ADD;
2100: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2101: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2102: FND_MSG_PUB.ADD;
2103: END IF;
2104: RAISE FND_API.G_EXC_ERROR;
2105: END IF;
2106: END IF;
2107: -- Now call jtf procedure to do the job.
2108: JTF_AMV_ITEM_PUB.Get_ItemKeyword
2107: -- Now call jtf procedure to do the job.
2108: JTF_AMV_ITEM_PUB.Get_ItemKeyword
2109: (
2110: p_api_version => p_api_version,
2111: p_init_msg_list => FND_API.G_FALSE,
2112: x_return_status => x_return_status,
2113: x_msg_count => x_msg_count,
2114: x_msg_data => x_msg_data,
2115: p_item_id => p_item_id,
2115: p_item_id => p_item_id,
2116: x_keyword_tab => l_char_tab
2117: );
2118: -- Get back the result in the OUT parameters.
2119: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2120: x_keyword_varray := AMV_CHAR_VARRAY_TYPE();
2121: FOR i IN 1..l_char_tab.COUNT LOOP
2122: x_keyword_varray.extend;
2123: x_keyword_varray(i) := l_char_tab(i);
2123: x_keyword_varray(i) := l_char_tab(i);
2124: END LOOP;
2125: END IF;
2126: EXCEPTION
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129: -- Standard call to get message count and if count=1, get the message
2130: FND_MSG_PUB.Count_And_Get (
2131: p_encoded => FND_API.G_FALSE,
2124: END LOOP;
2125: END IF;
2126: EXCEPTION
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129: -- Standard call to get message count and if count=1, get the message
2130: FND_MSG_PUB.Count_And_Get (
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2127: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2128: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2129: -- Standard call to get message count and if count=1, get the message
2130: FND_MSG_PUB.Count_And_Get (
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data
2134: );
2135: WHEN FND_API.G_EXC_ERROR THEN
2131: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data
2134: );
2135: WHEN FND_API.G_EXC_ERROR THEN
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: -- Standard call to get message count and if count=1, get the message
2138: FND_MSG_PUB.Count_And_Get (
2139: p_encoded => FND_API.G_FALSE,
2132: p_count => x_msg_count,
2133: p_data => x_msg_data
2134: );
2135: WHEN FND_API.G_EXC_ERROR THEN
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: -- Standard call to get message count and if count=1, get the message
2138: FND_MSG_PUB.Count_And_Get (
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2135: WHEN FND_API.G_EXC_ERROR THEN
2136: x_return_status := FND_API.G_RET_STS_ERROR;
2137: -- Standard call to get message count and if count=1, get the message
2138: FND_MSG_PUB.Count_And_Get (
2139: p_encoded => FND_API.G_FALSE,
2140: p_count => x_msg_count,
2141: p_data => x_msg_data
2142: );
2143: WHEN OTHERS THEN
2140: p_count => x_msg_count,
2141: p_data => x_msg_data
2142: );
2143: WHEN OTHERS THEN
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2147: END IF;
2148: -- Standard call to get message count and if count=1, get the message
2146: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2147: END IF;
2148: -- Standard call to get message count and if count=1, get the message
2149: FND_MSG_PUB.Count_And_Get (
2150: p_encoded => FND_API.G_FALSE,
2151: p_count => x_msg_count,
2152: p_data => x_msg_data
2153: );
2154: END Get_ItemKeyword;
2156: ------------------------------ ITEM_AUTHOR -------------------------------------
2157: PROCEDURE Add_ItemAuthor
2158: (
2159: p_api_version IN NUMBER,
2160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2162: x_return_status OUT NOCOPY VARCHAR2,
2163: x_msg_count OUT NOCOPY NUMBER,
2164: x_msg_data OUT NOCOPY VARCHAR2,
2157: PROCEDURE Add_ItemAuthor
2158: (
2159: p_api_version IN NUMBER,
2160: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2162: x_return_status OUT NOCOPY VARCHAR2,
2163: x_msg_count OUT NOCOPY NUMBER,
2164: x_msg_data OUT NOCOPY VARCHAR2,
2165: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2161: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2162: x_return_status OUT NOCOPY VARCHAR2,
2163: x_msg_count OUT NOCOPY NUMBER,
2164: x_msg_data OUT NOCOPY VARCHAR2,
2165: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2166: p_item_id IN NUMBER,
2167: p_author_varray IN AMV_CHAR_VARRAY_TYPE
2168: ) AS
2169: l_api_name CONSTANT VARCHAR2(30) := 'Add_ItemAuthor';
2179: BEGIN
2180: -- Standard call to check for call compatibility.
2181: SAVEPOINT Add_ItemAuthor_Pub;
2182: --Initialize message list if p_init_msg_list is TRUE.
2183: IF FND_API.To_Boolean (p_init_msg_list) THEN
2184: FND_MSG_PUB.initialize;
2185: END IF;
2186: -- Initialize API return status to success
2187: x_return_status := FND_API.G_RET_STS_SUCCESS;
2183: IF FND_API.To_Boolean (p_init_msg_list) THEN
2184: FND_MSG_PUB.initialize;
2185: END IF;
2186: -- Initialize API return status to success
2187: x_return_status := FND_API.G_RET_STS_SUCCESS;
2188: -- Get the current (login) user id.
2189: AMV_UTILITY_PVT.Get_UserInfo(
2190: x_resource_id => l_resource_id,
2191: x_user_id => l_current_user_id,
2191: x_user_id => l_current_user_id,
2192: x_login_id => l_current_login_id,
2193: x_user_status => l_current_user_status
2194: );
2195: IF (p_check_login_user = FND_API.G_TRUE) THEN
2196: -- Check if user is login and has the required privilege.
2197: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2198: -- User is not login.
2199: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2193: x_user_status => l_current_user_status
2194: );
2195: IF (p_check_login_user = FND_API.G_TRUE) THEN
2196: -- Check if user is login and has the required privilege.
2197: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2198: -- User is not login.
2199: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2200: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2201: FND_MSG_PUB.ADD;
2199: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2200: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2201: FND_MSG_PUB.ADD;
2202: END IF;
2203: RAISE FND_API.G_EXC_ERROR;
2204: END IF;
2205: AMV_USER_PVT.Is_Administrator
2206: (
2207: p_api_version => 1.0,
2207: p_api_version => 1.0,
2208: x_return_status => x_return_status,
2209: x_msg_count => x_msg_count,
2210: x_msg_data => x_msg_data,
2211: p_check_login_user => FND_API.G_FALSE,
2212: p_resource_id => l_resource_id,
2213: x_result_flag => l_admin_flag
2214: );
2215: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2211: p_check_login_user => FND_API.G_FALSE,
2212: p_resource_id => l_resource_id,
2213: x_result_flag => l_admin_flag
2214: );
2215: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2216: -- User is not an administrator.
2217: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2218: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2219: FND_MSG_PUB.ADD;
2217: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2218: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2219: FND_MSG_PUB.ADD;
2220: END IF;
2221: RAISE FND_API.G_EXC_ERROR;
2222: END IF;
2223: END IF;
2224: IF (p_author_varray IS NOT NULL) THEN
2225: l_char_tab := JTF_AMV_ITEM_PUB.CHAR_TAB_TYPE();
2229: END LOOP;
2230: JTF_AMV_ITEM_PUB.Add_ItemAuthor
2231: (
2232: p_api_version => p_api_version,
2233: p_init_msg_list => FND_API.G_FALSE,
2234: p_commit => p_commit,
2235: x_return_status => x_return_status,
2236: x_msg_count => x_msg_count,
2237: x_msg_data => x_msg_data,
2239: p_author_tab => l_char_tab
2240: );
2241: ELSE
2242: FND_MSG_PUB.Count_And_Get (
2243: p_encoded => FND_API.G_FALSE,
2244: p_count => x_msg_count,
2245: p_data => x_msg_data
2246: );
2247: END IF;
2245: p_data => x_msg_data
2246: );
2247: END IF;
2248: EXCEPTION
2249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2250: ROLLBACK TO Add_ItemAuthor_Pub;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: -- Standard call to get message count and if count=1, get the message
2253: FND_MSG_PUB.Count_And_Get (
2247: END IF;
2248: EXCEPTION
2249: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2250: ROLLBACK TO Add_ItemAuthor_Pub;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: -- Standard call to get message count and if count=1, get the message
2253: FND_MSG_PUB.Count_And_Get (
2254: p_encoded => FND_API.G_FALSE,
2255: p_count => x_msg_count,
2250: ROLLBACK TO Add_ItemAuthor_Pub;
2251: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2252: -- Standard call to get message count and if count=1, get the message
2253: FND_MSG_PUB.Count_And_Get (
2254: p_encoded => FND_API.G_FALSE,
2255: p_count => x_msg_count,
2256: p_data => x_msg_data
2257: );
2258: WHEN FND_API.G_EXC_ERROR THEN
2254: p_encoded => FND_API.G_FALSE,
2255: p_count => x_msg_count,
2256: p_data => x_msg_data
2257: );
2258: WHEN FND_API.G_EXC_ERROR THEN
2259: ROLLBACK TO Add_ItemAuthor_Pub;
2260: x_return_status := FND_API.G_RET_STS_ERROR;
2261: -- Standard call to get message count and if count=1, get the message
2262: FND_MSG_PUB.Count_And_Get (
2256: p_data => x_msg_data
2257: );
2258: WHEN FND_API.G_EXC_ERROR THEN
2259: ROLLBACK TO Add_ItemAuthor_Pub;
2260: x_return_status := FND_API.G_RET_STS_ERROR;
2261: -- Standard call to get message count and if count=1, get the message
2262: FND_MSG_PUB.Count_And_Get (
2263: p_encoded => FND_API.G_FALSE,
2264: p_count => x_msg_count,
2259: ROLLBACK TO Add_ItemAuthor_Pub;
2260: x_return_status := FND_API.G_RET_STS_ERROR;
2261: -- Standard call to get message count and if count=1, get the message
2262: FND_MSG_PUB.Count_And_Get (
2263: p_encoded => FND_API.G_FALSE,
2264: p_count => x_msg_count,
2265: p_data => x_msg_data
2266: );
2267: WHEN OTHERS THEN
2265: p_data => x_msg_data
2266: );
2267: WHEN OTHERS THEN
2268: ROLLBACK TO Add_ItemAuthor_Pub;
2269: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2270: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2271: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2272: END IF;
2273: -- Standard call to get message count and if count=1, get the message
2271: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2272: END IF;
2273: -- Standard call to get message count and if count=1, get the message
2274: FND_MSG_PUB.Count_And_Get (
2275: p_encoded => FND_API.G_FALSE,
2276: p_count => x_msg_count,
2277: p_data => x_msg_data
2278: );
2279: END Add_ItemAuthor;
2280: --------------------------------------------------------------------------------
2281: PROCEDURE Add_ItemAuthor
2282: (
2283: p_api_version IN NUMBER,
2284: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2285: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2286: x_return_status OUT NOCOPY VARCHAR2,
2287: x_msg_count OUT NOCOPY NUMBER,
2288: x_msg_data OUT NOCOPY VARCHAR2,
2281: PROCEDURE Add_ItemAuthor
2282: (
2283: p_api_version IN NUMBER,
2284: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2285: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2286: x_return_status OUT NOCOPY VARCHAR2,
2287: x_msg_count OUT NOCOPY NUMBER,
2288: x_msg_data OUT NOCOPY VARCHAR2,
2289: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2285: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2286: x_return_status OUT NOCOPY VARCHAR2,
2287: x_msg_count OUT NOCOPY NUMBER,
2288: x_msg_data OUT NOCOPY VARCHAR2,
2289: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2290: p_item_id IN NUMBER,
2291: p_author IN VARCHAR2
2292: ) AS
2293: l_char_varray AMV_CHAR_VARRAY_TYPE;
2312: --------------------------------------------------------------------------------
2313: PROCEDURE Delete_ItemAuthor
2314: (
2315: p_api_version IN NUMBER,
2316: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2317: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2318: x_return_status OUT NOCOPY VARCHAR2,
2319: x_msg_count OUT NOCOPY NUMBER,
2320: x_msg_data OUT NOCOPY VARCHAR2,
2313: PROCEDURE Delete_ItemAuthor
2314: (
2315: p_api_version IN NUMBER,
2316: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2317: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2318: x_return_status OUT NOCOPY VARCHAR2,
2319: x_msg_count OUT NOCOPY NUMBER,
2320: x_msg_data OUT NOCOPY VARCHAR2,
2321: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2317: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2318: x_return_status OUT NOCOPY VARCHAR2,
2319: x_msg_count OUT NOCOPY NUMBER,
2320: x_msg_data OUT NOCOPY VARCHAR2,
2321: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2322: p_item_id IN NUMBER,
2323: p_author_varray IN AMV_CHAR_VARRAY_TYPE
2324: ) AS
2325: l_api_name CONSTANT VARCHAR2(30) := 'Delete_ItemAuthor';
2334: BEGIN
2335: -- Standard call to check for call compatibility.
2336: SAVEPOINT Delete_ItemAuthor_Pub;
2337: --Initialize message list if p_init_msg_list is TRUE.
2338: IF FND_API.To_Boolean (p_init_msg_list) THEN
2339: FND_MSG_PUB.initialize;
2340: END IF;
2341: -- Initialize API return status to success
2342: x_return_status := FND_API.G_RET_STS_SUCCESS;
2338: IF FND_API.To_Boolean (p_init_msg_list) THEN
2339: FND_MSG_PUB.initialize;
2340: END IF;
2341: -- Initialize API return status to success
2342: x_return_status := FND_API.G_RET_STS_SUCCESS;
2343: -- Get the current (login) user id.
2344: AMV_UTILITY_PVT.Get_UserInfo(
2345: x_resource_id => l_resource_id,
2346: x_user_id => l_current_user_id,
2346: x_user_id => l_current_user_id,
2347: x_login_id => l_current_login_id,
2348: x_user_status => l_current_user_status
2349: );
2350: IF (p_check_login_user = FND_API.G_TRUE) THEN
2351: -- Check if user is login and has the required privilege.
2352: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2353: -- User is not login.
2354: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2348: x_user_status => l_current_user_status
2349: );
2350: IF (p_check_login_user = FND_API.G_TRUE) THEN
2351: -- Check if user is login and has the required privilege.
2352: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2353: -- User is not login.
2354: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2355: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2356: FND_MSG_PUB.ADD;
2354: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2355: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2356: FND_MSG_PUB.ADD;
2357: END IF;
2358: RAISE FND_API.G_EXC_ERROR;
2359: END IF;
2360: AMV_USER_PVT.Is_Administrator
2361: (
2362: p_api_version => 1.0,
2362: p_api_version => 1.0,
2363: x_return_status => x_return_status,
2364: x_msg_count => x_msg_count,
2365: x_msg_data => x_msg_data,
2366: p_check_login_user => FND_API.G_FALSE,
2367: p_resource_id => l_resource_id,
2368: x_result_flag => l_admin_flag
2369: );
2370: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2366: p_check_login_user => FND_API.G_FALSE,
2367: p_resource_id => l_resource_id,
2368: x_result_flag => l_admin_flag
2369: );
2370: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2371: -- User is not an administrator.
2372: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2373: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2374: FND_MSG_PUB.ADD;
2372: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2373: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2374: FND_MSG_PUB.ADD;
2375: END IF;
2376: RAISE FND_API.G_EXC_ERROR;
2377: END IF;
2378: END IF;
2379: IF (p_author_varray IS NULL) THEN
2380: l_char_tab := NULL;
2388: -- Now call jtf procedure to do the job.
2389: JTF_AMV_ITEM_PUB.Delete_ItemAuthor
2390: (
2391: p_api_version => p_api_version,
2392: p_init_msg_list => FND_API.G_FALSE,
2393: p_commit => p_commit,
2394: x_return_status => x_return_status,
2395: x_msg_count => x_msg_count,
2396: x_msg_data => x_msg_data,
2397: p_item_id => p_item_id,
2398: p_author_tab => l_char_tab
2399: );
2400: EXCEPTION
2401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2402: ROLLBACK TO Delete_ItemAuthor_Pub;
2403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2404: -- Standard call to get message count and if count=1, get the message
2405: FND_MSG_PUB.Count_And_Get (
2399: );
2400: EXCEPTION
2401: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2402: ROLLBACK TO Delete_ItemAuthor_Pub;
2403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2404: -- Standard call to get message count and if count=1, get the message
2405: FND_MSG_PUB.Count_And_Get (
2406: p_encoded => FND_API.G_FALSE,
2407: p_count => x_msg_count,
2402: ROLLBACK TO Delete_ItemAuthor_Pub;
2403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2404: -- Standard call to get message count and if count=1, get the message
2405: FND_MSG_PUB.Count_And_Get (
2406: p_encoded => FND_API.G_FALSE,
2407: p_count => x_msg_count,
2408: p_data => x_msg_data
2409: );
2410: WHEN FND_API.G_EXC_ERROR THEN
2406: p_encoded => FND_API.G_FALSE,
2407: p_count => x_msg_count,
2408: p_data => x_msg_data
2409: );
2410: WHEN FND_API.G_EXC_ERROR THEN
2411: ROLLBACK TO Delete_ItemAuthor_Pub;
2412: x_return_status := FND_API.G_RET_STS_ERROR;
2413: -- Standard call to get message count and if count=1, get the message
2414: FND_MSG_PUB.Count_And_Get (
2408: p_data => x_msg_data
2409: );
2410: WHEN FND_API.G_EXC_ERROR THEN
2411: ROLLBACK TO Delete_ItemAuthor_Pub;
2412: x_return_status := FND_API.G_RET_STS_ERROR;
2413: -- Standard call to get message count and if count=1, get the message
2414: FND_MSG_PUB.Count_And_Get (
2415: p_encoded => FND_API.G_FALSE,
2416: p_count => x_msg_count,
2411: ROLLBACK TO Delete_ItemAuthor_Pub;
2412: x_return_status := FND_API.G_RET_STS_ERROR;
2413: -- Standard call to get message count and if count=1, get the message
2414: FND_MSG_PUB.Count_And_Get (
2415: p_encoded => FND_API.G_FALSE,
2416: p_count => x_msg_count,
2417: p_data => x_msg_data
2418: );
2419: WHEN OTHERS THEN
2417: p_data => x_msg_data
2418: );
2419: WHEN OTHERS THEN
2420: ROLLBACK TO Delete_ItemAuthor_Pub;
2421: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2422: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2423: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2424: END IF;
2425: -- Standard call to get message count and if count=1, get the message
2423: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2424: END IF;
2425: -- Standard call to get message count and if count=1, get the message
2426: FND_MSG_PUB.Count_And_Get (
2427: p_encoded => FND_API.G_FALSE,
2428: p_count => x_msg_count,
2429: p_data => x_msg_data
2430: );
2431: END Delete_ItemAuthor;
2432: --------------------------------------------------------------------------------
2433: PROCEDURE Delete_ItemAuthor
2434: (
2435: p_api_version IN NUMBER,
2436: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2437: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2438: x_return_status OUT NOCOPY VARCHAR2,
2439: x_msg_count OUT NOCOPY NUMBER,
2440: x_msg_data OUT NOCOPY VARCHAR2,
2433: PROCEDURE Delete_ItemAuthor
2434: (
2435: p_api_version IN NUMBER,
2436: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2437: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2438: x_return_status OUT NOCOPY VARCHAR2,
2439: x_msg_count OUT NOCOPY NUMBER,
2440: x_msg_data OUT NOCOPY VARCHAR2,
2441: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2437: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2438: x_return_status OUT NOCOPY VARCHAR2,
2439: x_msg_count OUT NOCOPY NUMBER,
2440: x_msg_data OUT NOCOPY VARCHAR2,
2441: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2442: p_item_id IN NUMBER,
2443: p_author IN VARCHAR2
2444: ) AS
2445: l_char_varray AMV_CHAR_VARRAY_TYPE;
2464: --------------------------------------------------------------------------------
2465: PROCEDURE Replace_ItemAuthor
2466: (
2467: p_api_version IN NUMBER,
2468: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2469: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2470: x_return_status OUT NOCOPY VARCHAR2,
2471: x_msg_count OUT NOCOPY NUMBER,
2472: x_msg_data OUT NOCOPY VARCHAR2,
2465: PROCEDURE Replace_ItemAuthor
2466: (
2467: p_api_version IN NUMBER,
2468: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2469: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2470: x_return_status OUT NOCOPY VARCHAR2,
2471: x_msg_count OUT NOCOPY NUMBER,
2472: x_msg_data OUT NOCOPY VARCHAR2,
2473: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2469: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2470: x_return_status OUT NOCOPY VARCHAR2,
2471: x_msg_count OUT NOCOPY NUMBER,
2472: x_msg_data OUT NOCOPY VARCHAR2,
2473: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2474: p_item_id IN NUMBER,
2475: p_author_varray IN AMV_CHAR_VARRAY_TYPE
2476: ) AS
2477: l_api_name CONSTANT VARCHAR2(30) := 'Replace_ItemAuthor';
2484: l_admin_flag VARCHAR2(1);
2485: BEGIN
2486: -- Standard call to check for call compatibility.
2487: SAVEPOINT Replace_ItemAuthor_Pub;
2488: IF NOT FND_API.Compatible_API_Call (
2489: l_api_version,
2490: p_api_version,
2491: l_api_name,
2492: G_PKG_NAME) THEN
2489: l_api_version,
2490: p_api_version,
2491: l_api_name,
2492: G_PKG_NAME) THEN
2493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2494: END IF;
2495: --Initialize message list if p_init_msg_list is TRUE.
2496: IF FND_API.To_Boolean (p_init_msg_list) THEN
2497: FND_MSG_PUB.initialize;
2492: G_PKG_NAME) THEN
2493: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2494: END IF;
2495: --Initialize message list if p_init_msg_list is TRUE.
2496: IF FND_API.To_Boolean (p_init_msg_list) THEN
2497: FND_MSG_PUB.initialize;
2498: END IF;
2499: -- Initialize API return status to success
2500: x_return_status := FND_API.G_RET_STS_SUCCESS;
2496: IF FND_API.To_Boolean (p_init_msg_list) THEN
2497: FND_MSG_PUB.initialize;
2498: END IF;
2499: -- Initialize API return status to success
2500: x_return_status := FND_API.G_RET_STS_SUCCESS;
2501: -- Get the current (login) user id.
2502: AMV_UTILITY_PVT.Get_UserInfo(
2503: x_resource_id => l_resource_id,
2504: x_user_id => l_current_user_id,
2504: x_user_id => l_current_user_id,
2505: x_login_id => l_current_login_id,
2506: x_user_status => l_current_user_status
2507: );
2508: IF (p_check_login_user = FND_API.G_TRUE) THEN
2509: -- Check if user is login and has the required privilege.
2510: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2511: -- User is not login.
2512: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2506: x_user_status => l_current_user_status
2507: );
2508: IF (p_check_login_user = FND_API.G_TRUE) THEN
2509: -- Check if user is login and has the required privilege.
2510: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2511: -- User is not login.
2512: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2513: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2514: FND_MSG_PUB.ADD;
2512: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2513: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2514: FND_MSG_PUB.ADD;
2515: END IF;
2516: RAISE FND_API.G_EXC_ERROR;
2517: END IF;
2518: AMV_USER_PVT.Is_Administrator
2519: (
2520: p_api_version => 1.0,
2520: p_api_version => 1.0,
2521: x_return_status => x_return_status,
2522: x_msg_count => x_msg_count,
2523: x_msg_data => x_msg_data,
2524: p_check_login_user => FND_API.G_FALSE,
2525: p_resource_id => l_resource_id,
2526: x_result_flag => l_admin_flag
2527: );
2528: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2524: p_check_login_user => FND_API.G_FALSE,
2525: p_resource_id => l_resource_id,
2526: x_result_flag => l_admin_flag
2527: );
2528: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2529: -- User is not an administrator.
2530: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2531: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2532: FND_MSG_PUB.ADD;
2530: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2531: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2532: FND_MSG_PUB.ADD;
2533: END IF;
2534: RAISE FND_API.G_EXC_ERROR;
2535: END IF;
2536: END IF;
2537: -- Check if item id is valid.
2538: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
2541: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
2542: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
2543: FND_MSG_PUB.ADD;
2544: END IF;
2545: RAISE FND_API.G_EXC_ERROR;
2546: END IF;
2547: -- Delete all the item's original authors
2548: JTF_AMV_ITEM_PUB.Delete_ItemAuthor
2549: (
2547: -- Delete all the item's original authors
2548: JTF_AMV_ITEM_PUB.Delete_ItemAuthor
2549: (
2550: p_api_version => p_api_version,
2551: p_init_msg_list => FND_API.G_FALSE,
2552: p_commit => FND_API.G_FALSE,
2553: x_return_status => x_return_status,
2554: x_msg_count => x_msg_count,
2555: x_msg_data => x_msg_data,
2548: JTF_AMV_ITEM_PUB.Delete_ItemAuthor
2549: (
2550: p_api_version => p_api_version,
2551: p_init_msg_list => FND_API.G_FALSE,
2552: p_commit => FND_API.G_FALSE,
2553: x_return_status => x_return_status,
2554: x_msg_count => x_msg_count,
2555: x_msg_data => x_msg_data,
2556: p_item_id => p_item_id,
2555: x_msg_data => x_msg_data,
2556: p_item_id => p_item_id,
2557: p_author_tab => NULL
2558: );
2559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2556: p_item_id => p_item_id,
2557: p_author_tab => NULL
2558: );
2559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564: -- now add the new authors
2557: p_author_tab => NULL
2558: );
2559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564: -- now add the new authors
2565: Add_ItemAuthor
2558: );
2559: IF (x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2560: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2561: ELSIF (x_return_status = FND_API.G_RET_STS_ERROR) THEN
2562: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2563: END IF;
2564: -- now add the new authors
2565: Add_ItemAuthor
2566: (
2573: p_check_login_user => p_check_login_user,
2574: p_item_id => p_item_id,
2575: p_author_varray => p_author_varray
2576: );
2577: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2579: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: END IF;
2574: p_item_id => p_item_id,
2575: p_author_varray => p_author_varray
2576: );
2577: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2579: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: END IF;
2582: EXCEPTION
2575: p_author_varray => p_author_varray
2576: );
2577: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2579: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: END IF;
2582: EXCEPTION
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2576: );
2577: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2578: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2579: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: END IF;
2582: EXCEPTION
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2584: ROLLBACK TO Replace_ItemAuthor_Pub;
2579: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
2580: RAISE FND_API.G_EXC_ERROR;
2581: END IF;
2582: EXCEPTION
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2584: ROLLBACK TO Replace_ItemAuthor_Pub;
2585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2586: -- Standard call to get message count and if count=1, get the message
2587: FND_MSG_PUB.Count_And_Get (
2581: END IF;
2582: EXCEPTION
2583: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2584: ROLLBACK TO Replace_ItemAuthor_Pub;
2585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2586: -- Standard call to get message count and if count=1, get the message
2587: FND_MSG_PUB.Count_And_Get (
2588: p_encoded => FND_API.G_FALSE,
2589: p_count => x_msg_count,
2584: ROLLBACK TO Replace_ItemAuthor_Pub;
2585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2586: -- Standard call to get message count and if count=1, get the message
2587: FND_MSG_PUB.Count_And_Get (
2588: p_encoded => FND_API.G_FALSE,
2589: p_count => x_msg_count,
2590: p_data => x_msg_data
2591: );
2592: WHEN FND_API.G_EXC_ERROR THEN
2588: p_encoded => FND_API.G_FALSE,
2589: p_count => x_msg_count,
2590: p_data => x_msg_data
2591: );
2592: WHEN FND_API.G_EXC_ERROR THEN
2593: ROLLBACK TO Replace_ItemAuthor_Pub;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: -- Standard call to get message count and if count=1, get the message
2596: FND_MSG_PUB.Count_And_Get (
2590: p_data => x_msg_data
2591: );
2592: WHEN FND_API.G_EXC_ERROR THEN
2593: ROLLBACK TO Replace_ItemAuthor_Pub;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: -- Standard call to get message count and if count=1, get the message
2596: FND_MSG_PUB.Count_And_Get (
2597: p_encoded => FND_API.G_FALSE,
2598: p_count => x_msg_count,
2593: ROLLBACK TO Replace_ItemAuthor_Pub;
2594: x_return_status := FND_API.G_RET_STS_ERROR;
2595: -- Standard call to get message count and if count=1, get the message
2596: FND_MSG_PUB.Count_And_Get (
2597: p_encoded => FND_API.G_FALSE,
2598: p_count => x_msg_count,
2599: p_data => x_msg_data
2600: );
2601: WHEN OTHERS THEN
2599: p_data => x_msg_data
2600: );
2601: WHEN OTHERS THEN
2602: ROLLBACK TO Replace_ItemAuthor_Pub;
2603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2604: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2605: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2606: END IF;
2607: -- Standard call to get message count and if count=1, get the message
2605: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2606: END IF;
2607: -- Standard call to get message count and if count=1, get the message
2608: FND_MSG_PUB.Count_And_Get (
2609: p_encoded => FND_API.G_FALSE,
2610: p_count => x_msg_count,
2611: p_data => x_msg_data
2612: );
2613: END Replace_ItemAuthor;
2614: --------------------------------------------------------------------------------
2615: PROCEDURE Get_ItemAuthor
2616: (
2617: p_api_version IN NUMBER,
2618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2619: x_return_status OUT NOCOPY VARCHAR2,
2620: x_msg_count OUT NOCOPY NUMBER,
2621: x_msg_data OUT NOCOPY VARCHAR2,
2622: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2619: x_return_status OUT NOCOPY VARCHAR2,
2620: x_msg_count OUT NOCOPY NUMBER,
2621: x_msg_data OUT NOCOPY VARCHAR2,
2622: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2623: p_item_id IN NUMBER,
2624: x_author_varray OUT NOCOPY AMV_CHAR_VARRAY_TYPE
2625: ) AS
2626: l_api_name CONSTANT VARCHAR2(30) := 'Get_ItemAuthor';
2633: l_char_tab JTF_AMV_ITEM_PUB.CHAR_TAB_TYPE;
2634: --
2635: BEGIN
2636: --Initialize message list if p_init_msg_list is TRUE.
2637: IF FND_API.To_Boolean (p_init_msg_list) THEN
2638: FND_MSG_PUB.initialize;
2639: END IF;
2640: -- Initialize API return status to success
2641: x_return_status := FND_API.G_RET_STS_SUCCESS;
2637: IF FND_API.To_Boolean (p_init_msg_list) THEN
2638: FND_MSG_PUB.initialize;
2639: END IF;
2640: -- Initialize API return status to success
2641: x_return_status := FND_API.G_RET_STS_SUCCESS;
2642: -- Get the current (login) user id.
2643: AMV_UTILITY_PVT.Get_UserInfo(
2644: x_resource_id => l_resource_id,
2645: x_user_id => l_current_user_id,
2645: x_user_id => l_current_user_id,
2646: x_login_id => l_current_login_id,
2647: x_user_status => l_current_user_status
2648: );
2649: IF (p_check_login_user = FND_API.G_TRUE) THEN
2650: -- Check if user is login and has the required privilege.
2651: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2652: -- User is not login.
2653: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2647: x_user_status => l_current_user_status
2648: );
2649: IF (p_check_login_user = FND_API.G_TRUE) THEN
2650: -- Check if user is login and has the required privilege.
2651: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2652: -- User is not login.
2653: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2654: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2655: FND_MSG_PUB.ADD;
2653: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2654: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2655: FND_MSG_PUB.ADD;
2656: END IF;
2657: RAISE FND_API.G_EXC_ERROR;
2658: END IF;
2659: END IF;
2660: -- Now call jtf procedure to do the job.
2661: JTF_AMV_ITEM_PUB.Get_ItemAuthor
2660: -- Now call jtf procedure to do the job.
2661: JTF_AMV_ITEM_PUB.Get_ItemAuthor
2662: (
2663: p_api_version => p_api_version,
2664: p_init_msg_list => FND_API.G_FALSE,
2665: x_return_status => x_return_status,
2666: x_msg_count => x_msg_count,
2667: x_msg_data => x_msg_data,
2668: p_item_id => p_item_id,
2668: p_item_id => p_item_id,
2669: x_author_tab => l_char_tab
2670: );
2671: -- Get back the result in the OUT parameters.
2672: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2673: x_author_varray := AMV_CHAR_VARRAY_TYPE();
2674: FOR i IN 1..l_char_tab.COUNT LOOP
2675: x_author_varray.extend;
2676: x_author_varray(i) := l_char_tab(i);
2676: x_author_varray(i) := l_char_tab(i);
2677: END LOOP;
2678: END IF;
2679: EXCEPTION
2680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2682: -- Standard call to get message count and if count=1, get the message
2683: FND_MSG_PUB.Count_And_Get (
2684: p_encoded => FND_API.G_FALSE,
2677: END LOOP;
2678: END IF;
2679: EXCEPTION
2680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2682: -- Standard call to get message count and if count=1, get the message
2683: FND_MSG_PUB.Count_And_Get (
2684: p_encoded => FND_API.G_FALSE,
2685: p_count => x_msg_count,
2680: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2681: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2682: -- Standard call to get message count and if count=1, get the message
2683: FND_MSG_PUB.Count_And_Get (
2684: p_encoded => FND_API.G_FALSE,
2685: p_count => x_msg_count,
2686: p_data => x_msg_data
2687: );
2688: WHEN FND_API.G_EXC_ERROR THEN
2684: p_encoded => FND_API.G_FALSE,
2685: p_count => x_msg_count,
2686: p_data => x_msg_data
2687: );
2688: WHEN FND_API.G_EXC_ERROR THEN
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: -- Standard call to get message count and if count=1, get the message
2691: FND_MSG_PUB.Count_And_Get (
2692: p_encoded => FND_API.G_FALSE,
2685: p_count => x_msg_count,
2686: p_data => x_msg_data
2687: );
2688: WHEN FND_API.G_EXC_ERROR THEN
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: -- Standard call to get message count and if count=1, get the message
2691: FND_MSG_PUB.Count_And_Get (
2692: p_encoded => FND_API.G_FALSE,
2693: p_count => x_msg_count,
2688: WHEN FND_API.G_EXC_ERROR THEN
2689: x_return_status := FND_API.G_RET_STS_ERROR;
2690: -- Standard call to get message count and if count=1, get the message
2691: FND_MSG_PUB.Count_And_Get (
2692: p_encoded => FND_API.G_FALSE,
2693: p_count => x_msg_count,
2694: p_data => x_msg_data
2695: );
2696: WHEN OTHERS THEN
2693: p_count => x_msg_count,
2694: p_data => x_msg_data
2695: );
2696: WHEN OTHERS THEN
2697: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2698: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2699: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2700: END IF;
2701: -- Standard call to get message count and if count=1, get the message
2699: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2700: END IF;
2701: -- Standard call to get message count and if count=1, get the message
2702: FND_MSG_PUB.Count_And_Get (
2703: p_encoded => FND_API.G_FALSE,
2704: p_count => x_msg_count,
2705: p_data => x_msg_data
2706: );
2707: END Get_ItemAuthor;
2710: ------------------------------ ITEM_FILE ------------------------------------
2711: PROCEDURE Add_ItemFile
2712: (
2713: p_api_version IN NUMBER,
2714: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2715: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2716: x_return_status OUT NOCOPY VARCHAR2,
2717: x_msg_count OUT NOCOPY NUMBER,
2718: x_msg_data OUT NOCOPY VARCHAR2,
2711: PROCEDURE Add_ItemFile
2712: (
2713: p_api_version IN NUMBER,
2714: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2715: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2716: x_return_status OUT NOCOPY VARCHAR2,
2717: x_msg_count OUT NOCOPY NUMBER,
2718: x_msg_data OUT NOCOPY VARCHAR2,
2719: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2715: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2716: x_return_status OUT NOCOPY VARCHAR2,
2717: x_msg_count OUT NOCOPY NUMBER,
2718: x_msg_data OUT NOCOPY VARCHAR2,
2719: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2720: p_application_id IN NUMBER := AMV_UTILITY_PVT.G_AMV_APP_ID,
2721: p_item_id IN NUMBER,
2722: p_file_id_varray IN AMV_NUMBER_VARRAY_TYPE
2723: ) AS
2753: --
2754: BEGIN
2755: -- Standard call to check for call compatibility.
2756: SAVEPOINT Add_ItemFile_Pub;
2757: IF NOT FND_API.Compatible_API_Call (
2758: l_api_version,
2759: p_api_version,
2760: l_api_name,
2761: G_PKG_NAME) THEN
2758: l_api_version,
2759: p_api_version,
2760: l_api_name,
2761: G_PKG_NAME) THEN
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2764: --Initialize message list if p_init_msg_list is TRUE.
2765: IF FND_API.To_Boolean (p_init_msg_list) THEN
2766: FND_MSG_PUB.initialize;
2761: G_PKG_NAME) THEN
2762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2763: END IF;
2764: --Initialize message list if p_init_msg_list is TRUE.
2765: IF FND_API.To_Boolean (p_init_msg_list) THEN
2766: FND_MSG_PUB.initialize;
2767: END IF;
2768: -- Initialize API return status to success
2769: x_return_status := FND_API.G_RET_STS_SUCCESS;
2765: IF FND_API.To_Boolean (p_init_msg_list) THEN
2766: FND_MSG_PUB.initialize;
2767: END IF;
2768: -- Initialize API return status to success
2769: x_return_status := FND_API.G_RET_STS_SUCCESS;
2770: -- Get the current (login) user id.
2771: AMV_UTILITY_PVT.Get_UserInfo(
2772: x_resource_id => l_resource_id,
2773: x_user_id => l_current_user_id,
2773: x_user_id => l_current_user_id,
2774: x_login_id => l_current_login_id,
2775: x_user_status => l_current_user_status
2776: );
2777: IF (p_check_login_user = FND_API.G_TRUE) THEN
2778: -- Check if user is login and has the required privilege.
2779: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2780: -- User is not login.
2781: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2775: x_user_status => l_current_user_status
2776: );
2777: IF (p_check_login_user = FND_API.G_TRUE) THEN
2778: -- Check if user is login and has the required privilege.
2779: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2780: -- User is not login.
2781: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2782: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2783: FND_MSG_PUB.ADD;
2781: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2782: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
2783: FND_MSG_PUB.ADD;
2784: END IF;
2785: RAISE FND_API.G_EXC_ERROR;
2786: END IF;
2787: AMV_USER_PVT.Is_Administrator
2788: (
2789: p_api_version => 1.0,
2789: p_api_version => 1.0,
2790: x_return_status => x_return_status,
2791: x_msg_count => x_msg_count,
2792: x_msg_data => x_msg_data,
2793: p_check_login_user => FND_API.G_FALSE,
2794: p_resource_id => l_resource_id,
2795: x_result_flag => l_admin_flag
2796: );
2797: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2793: p_check_login_user => FND_API.G_FALSE,
2794: p_resource_id => l_resource_id,
2795: x_result_flag => l_admin_flag
2796: );
2797: IF (l_admin_flag <> FND_API.G_TRUE) THEN
2798: -- User is not an administrator.
2799: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2800: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2801: FND_MSG_PUB.ADD;
2799: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2800: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
2801: FND_MSG_PUB.ADD;
2802: END IF;
2803: RAISE FND_API.G_EXC_ERROR;
2804: END IF;
2805: END IF;
2806: -- This is to make database happy
2807: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2803: RAISE FND_API.G_EXC_ERROR;
2804: END IF;
2805: END IF;
2806: -- This is to make database happy
2807: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
2808: l_current_login_id := -1;
2809: l_current_user_id := -1;
2810: END IF;
2811: -- Check if item id is valid.
2815: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
2816: fnd_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
2817: FND_MSG_PUB.ADD;
2818: END IF;
2819: RAISE FND_API.G_EXC_ERROR;
2820: END IF;
2821: l_count := p_file_id_varray.COUNT;
2822: FOR i IN 1..l_count LOOP
2823: -- Not only do we get language code, but also check if the file exists.
2830: FND_MESSAGE.Set_Token('RECORD', 'AMV_FILE_TK', TRUE);
2831: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_file_id_varray(i)) );
2832: FND_MSG_PUB.ADD;
2833: END IF;
2834: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2835: x_return_status := FND_API.G_RET_STS_ERROR;
2836: END IF;
2837: ELSE
2838: CLOSE Get_FileLanguage_csr;
2831: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_file_id_varray(i)) );
2832: FND_MSG_PUB.ADD;
2833: END IF;
2834: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2835: x_return_status := FND_API.G_RET_STS_ERROR;
2836: END IF;
2837: ELSE
2838: CLOSE Get_FileLanguage_csr;
2839:
2840: OPEN Check_Itemfile_csr( p_file_id_varray(i) );
2841: FETCH Check_Itemfile_csr INTO l_temp_number;
2842: IF (Check_Itemfile_csr%FOUND) THEN
2843: CLOSE Check_Itemfile_csr;
2844: x_return_status := FND_API.G_RET_STS_ERROR;
2845: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
2846: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_ATTR');
2847: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
2848: FND_MESSAGE.Set_Token('ENTID', TO_CHAR(p_item_id) );
2849: FND_MESSAGE.Set_Token('ATTRIBUTE', 'AMV_FILE_TK', TRUE);
2850: FND_MESSAGE.Set_Token('ATTRID', p_file_id_varray(i));
2851: FND_MSG_PUB.ADD;
2852: END IF;
2853: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2854: x_return_status := FND_API.G_RET_STS_ERROR;
2855: END IF;
2856: ELSE
2857: CLOSE Check_Itemfile_csr;
2850: FND_MESSAGE.Set_Token('ATTRID', p_file_id_varray(i));
2851: FND_MSG_PUB.ADD;
2852: END IF;
2853: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2854: x_return_status := FND_API.G_RET_STS_ERROR;
2855: END IF;
2856: ELSE
2857: CLOSE Check_Itemfile_csr;
2858: l_act_attachment_rec.attachment_id := NULL;
2911: x_msg_data => x_msg_data,
2912: p_act_attachment_rec => l_act_attachment_rec,
2913: x_act_attachment_id => l_temp_number
2914: );
2915: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
2918: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2912: p_act_attachment_rec => l_act_attachment_rec,
2913: x_act_attachment_id => l_temp_number
2914: );
2915: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
2918: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: END IF;
2913: x_act_attachment_id => l_temp_number
2914: );
2915: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
2918: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: END IF;
2921: END IF;
2914: );
2915: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
2918: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: END IF;
2921: END IF;
2922: END IF;
2915: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
2918: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
2919: x_return_status := FND_API.G_RET_STS_ERROR;
2920: END IF;
2921: END IF;
2922: END IF;
2923: END LOOP;
2921: END IF;
2922: END IF;
2923: END LOOP;
2924: --Standard check of commit
2925: IF FND_API.To_Boolean ( p_commit ) THEN
2926: COMMIT WORK;
2927: END IF;
2928: --Standard call to get message count and if count=1, get the message
2929: FND_MSG_PUB.Count_And_Get (
2926: COMMIT WORK;
2927: END IF;
2928: --Standard call to get message count and if count=1, get the message
2929: FND_MSG_PUB.Count_And_Get (
2930: p_encoded => FND_API.G_FALSE,
2931: p_count => x_msg_count,
2932: p_data => x_msg_data
2933: );
2934: EXCEPTION
2931: p_count => x_msg_count,
2932: p_data => x_msg_data
2933: );
2934: EXCEPTION
2935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2936: ROLLBACK TO Add_ItemFile_Pub;
2937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2938: -- Standard call to get message count and if count=1, get the message
2939: FND_MSG_PUB.Count_And_Get (
2933: );
2934: EXCEPTION
2935: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2936: ROLLBACK TO Add_ItemFile_Pub;
2937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2938: -- Standard call to get message count and if count=1, get the message
2939: FND_MSG_PUB.Count_And_Get (
2940: p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2936: ROLLBACK TO Add_ItemFile_Pub;
2937: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2938: -- Standard call to get message count and if count=1, get the message
2939: FND_MSG_PUB.Count_And_Get (
2940: p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data
2943: );
2944: WHEN FND_API.G_EXC_ERROR THEN
2940: p_encoded => FND_API.G_FALSE,
2941: p_count => x_msg_count,
2942: p_data => x_msg_data
2943: );
2944: WHEN FND_API.G_EXC_ERROR THEN
2945: ROLLBACK TO Add_ItemFile_Pub;
2946: x_return_status := FND_API.G_RET_STS_ERROR;
2947: -- Standard call to get message count and if count=1, get the message
2948: FND_MSG_PUB.Count_And_Get (
2942: p_data => x_msg_data
2943: );
2944: WHEN FND_API.G_EXC_ERROR THEN
2945: ROLLBACK TO Add_ItemFile_Pub;
2946: x_return_status := FND_API.G_RET_STS_ERROR;
2947: -- Standard call to get message count and if count=1, get the message
2948: FND_MSG_PUB.Count_And_Get (
2949: p_encoded => FND_API.G_FALSE,
2950: p_count => x_msg_count,
2945: ROLLBACK TO Add_ItemFile_Pub;
2946: x_return_status := FND_API.G_RET_STS_ERROR;
2947: -- Standard call to get message count and if count=1, get the message
2948: FND_MSG_PUB.Count_And_Get (
2949: p_encoded => FND_API.G_FALSE,
2950: p_count => x_msg_count,
2951: p_data => x_msg_data
2952: );
2953: WHEN OTHERS THEN
2951: p_data => x_msg_data
2952: );
2953: WHEN OTHERS THEN
2954: ROLLBACK TO Add_ItemFile_Pub;
2955: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2956: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
2957: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2958: END IF;
2959: -- Standard call to get message count and if count=1, get the message
2957: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
2958: END IF;
2959: -- Standard call to get message count and if count=1, get the message
2960: FND_MSG_PUB.Count_And_Get (
2961: p_encoded => FND_API.G_FALSE,
2962: p_count => x_msg_count,
2963: p_data => x_msg_data
2964: );
2965: END Add_ItemFile;
2966: --------------------------------------------------------------------------------
2967: PROCEDURE Add_ItemFile
2968: (
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2967: PROCEDURE Add_ItemFile
2968: (
2969: p_api_version IN NUMBER,
2970: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
2971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2975: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2971: p_commit IN VARCHAR2 := FND_API.G_FALSE,
2972: x_return_status OUT NOCOPY VARCHAR2,
2973: x_msg_count OUT NOCOPY NUMBER,
2974: x_msg_data OUT NOCOPY VARCHAR2,
2975: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
2976: p_application_id IN NUMBER := AMV_UTILITY_PVT.G_AMV_APP_ID,
2977: p_item_id IN NUMBER,
2978: p_file_id IN NUMBER
2979: ) AS
2999: --------------------------------------------------------------------------------
3000: PROCEDURE Delete_ItemFile
3001: (
3002: p_api_version IN NUMBER,
3003: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3004: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3005: x_return_status OUT NOCOPY VARCHAR2,
3006: x_msg_count OUT NOCOPY NUMBER,
3007: x_msg_data OUT NOCOPY VARCHAR2,
3000: PROCEDURE Delete_ItemFile
3001: (
3002: p_api_version IN NUMBER,
3003: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3004: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3005: x_return_status OUT NOCOPY VARCHAR2,
3006: x_msg_count OUT NOCOPY NUMBER,
3007: x_msg_data OUT NOCOPY VARCHAR2,
3008: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3004: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3005: x_return_status OUT NOCOPY VARCHAR2,
3006: x_msg_count OUT NOCOPY NUMBER,
3007: x_msg_data OUT NOCOPY VARCHAR2,
3008: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3009: p_item_id IN NUMBER,
3010: p_file_id_varray IN AMV_NUMBER_VARRAY_TYPE
3011: ) AS
3012: l_api_name CONSTANT VARCHAR2(30) := 'Delete_ItemFile';
3032: --
3033: BEGIN
3034: -- Standard call to check for call compatibility.
3035: SAVEPOINT Delete_ItemFile_Pub;
3036: IF NOT FND_API.Compatible_API_Call (
3037: l_api_version,
3038: p_api_version,
3039: l_api_name,
3040: G_PKG_NAME) THEN
3037: l_api_version,
3038: p_api_version,
3039: l_api_name,
3040: G_PKG_NAME) THEN
3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043: --Initialize message list if p_init_msg_list is TRUE.
3044: IF FND_API.To_Boolean (p_init_msg_list) THEN
3045: FND_MSG_PUB.initialize;
3040: G_PKG_NAME) THEN
3041: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3042: END IF;
3043: --Initialize message list if p_init_msg_list is TRUE.
3044: IF FND_API.To_Boolean (p_init_msg_list) THEN
3045: FND_MSG_PUB.initialize;
3046: END IF;
3047: -- Initialize API return status to success
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3044: IF FND_API.To_Boolean (p_init_msg_list) THEN
3045: FND_MSG_PUB.initialize;
3046: END IF;
3047: -- Initialize API return status to success
3048: x_return_status := FND_API.G_RET_STS_SUCCESS;
3049: -- Get the current (login) user id.
3050: AMV_UTILITY_PVT.Get_UserInfo(
3051: x_resource_id => l_resource_id,
3052: x_user_id => l_current_user_id,
3052: x_user_id => l_current_user_id,
3053: x_login_id => l_current_login_id,
3054: x_user_status => l_current_user_status
3055: );
3056: IF (p_check_login_user = FND_API.G_TRUE) THEN
3057: -- Check if user is login and has the required privilege.
3058: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3059: -- User is not login.
3060: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3054: x_user_status => l_current_user_status
3055: );
3056: IF (p_check_login_user = FND_API.G_TRUE) THEN
3057: -- Check if user is login and has the required privilege.
3058: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3059: -- User is not login.
3060: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3061: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3062: FND_MSG_PUB.ADD;
3060: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3061: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3062: FND_MSG_PUB.ADD;
3063: END IF;
3064: RAISE FND_API.G_EXC_ERROR;
3065: END IF;
3066: AMV_USER_PVT.Is_Administrator
3067: (
3068: p_api_version => 1.0,
3068: p_api_version => 1.0,
3069: x_return_status => x_return_status,
3070: x_msg_count => x_msg_count,
3071: x_msg_data => x_msg_data,
3072: p_check_login_user => FND_API.G_FALSE,
3073: p_resource_id => l_resource_id,
3074: x_result_flag => l_admin_flag
3075: );
3076: IF (l_admin_flag <> FND_API.G_TRUE) THEN
3072: p_check_login_user => FND_API.G_FALSE,
3073: p_resource_id => l_resource_id,
3074: x_result_flag => l_admin_flag
3075: );
3076: IF (l_admin_flag <> FND_API.G_TRUE) THEN
3077: -- User is not an administrator.
3078: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3079: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
3080: FND_MSG_PUB.ADD;
3078: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3079: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
3080: FND_MSG_PUB.ADD;
3081: END IF;
3082: RAISE FND_API.G_EXC_ERROR;
3083: END IF;
3084: END IF;
3085: -- Check if item id is valid.
3086: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
3089: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
3090: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
3091: FND_MSG_PUB.ADD;
3092: END IF;
3093: RAISE FND_API.G_EXC_ERROR;
3094: END IF;
3095: IF (p_file_id_varray IS NOT NULL) THEN
3096: l_count := p_file_id_varray.COUNT;
3097: FOR i IN 1..l_count LOOP
3098: OPEN Check_ItemFile_csr( p_file_id_varray(i) );
3099: FETCH Check_ItemFile_csr INTO l_temp_number, l_object_version_number;
3100: IF (Check_ItemFile_csr%NOTFOUND) THEN
3101: CLOSE Check_ItemFile_csr;
3102: x_return_status := FND_API.G_RET_STS_ERROR;
3103: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3104: FND_MESSAGE.Set_name('AMV','AMV_ENTITY_HAS_NOT_ATTR');
3105: FND_MESSAGE.Set_Token('ENTITY', 'AMV_ITEM_TK', TRUE);
3106: FND_MESSAGE.Set_Token('ENTID', TO_CHAR(p_item_id) );
3108: FND_MESSAGE.Set_Token('ATTRID',
3109: TO_CHAR( p_file_id_varray(i) ) );
3110: FND_MSG_PUB.ADD;
3111: END IF;
3112: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3113: x_return_status := FND_API.G_RET_STS_ERROR;
3114: END IF;
3115: ELSE
3116: CLOSE Check_ItemFile_csr;
3109: TO_CHAR( p_file_id_varray(i) ) );
3110: FND_MSG_PUB.ADD;
3111: END IF;
3112: IF ( x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3113: x_return_status := FND_API.G_RET_STS_ERROR;
3114: END IF;
3115: ELSE
3116: CLOSE Check_ItemFile_csr;
3117: jtf_amv_attachment_pub.delete_act_attachment
3122: x_msg_data => x_msg_data,
3123: p_act_attachment_id => l_temp_number,
3124: p_object_version => l_object_version_number
3125: );
3126: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
3129: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3130: x_return_status := FND_API.G_RET_STS_ERROR;
3123: p_act_attachment_id => l_temp_number,
3124: p_object_version => l_object_version_number
3125: );
3126: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
3129: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3130: x_return_status := FND_API.G_RET_STS_ERROR;
3131: END IF;
3124: p_object_version => l_object_version_number
3125: );
3126: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
3129: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3130: x_return_status := FND_API.G_RET_STS_ERROR;
3131: END IF;
3132: END IF;
3125: );
3126: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
3129: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3130: x_return_status := FND_API.G_RET_STS_ERROR;
3131: END IF;
3132: END IF;
3133: END LOOP;
3126: IF (l_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3128: ELSIF (l_return_status = FND_API.G_RET_STS_ERROR AND
3129: x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
3130: x_return_status := FND_API.G_RET_STS_ERROR;
3131: END IF;
3132: END IF;
3133: END LOOP;
3134: ELSE
3137: WHERE attachment_used_by_id = p_item_id
3138: AND attachment_used_by = G_USED_BY_ITEM;
3139: END IF;
3140: --Standard check of commit
3141: IF FND_API.To_Boolean ( p_commit ) THEN
3142: COMMIT WORK;
3143: END IF;
3144: --Standard call to get message count and if count=1, get the message
3145: FND_MSG_PUB.Count_And_Get (
3142: COMMIT WORK;
3143: END IF;
3144: --Standard call to get message count and if count=1, get the message
3145: FND_MSG_PUB.Count_And_Get (
3146: p_encoded => FND_API.G_FALSE,
3147: p_count => x_msg_count,
3148: p_data => x_msg_data
3149: );
3150: EXCEPTION
3147: p_count => x_msg_count,
3148: p_data => x_msg_data
3149: );
3150: EXCEPTION
3151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3152: ROLLBACK TO Delete_ItemFile_Pub;
3153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3154: -- Standard call to get message count and if count=1, get the message
3155: FND_MSG_PUB.Count_And_Get (
3149: );
3150: EXCEPTION
3151: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3152: ROLLBACK TO Delete_ItemFile_Pub;
3153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3154: -- Standard call to get message count and if count=1, get the message
3155: FND_MSG_PUB.Count_And_Get (
3156: p_encoded => FND_API.G_FALSE,
3157: p_count => x_msg_count,
3152: ROLLBACK TO Delete_ItemFile_Pub;
3153: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3154: -- Standard call to get message count and if count=1, get the message
3155: FND_MSG_PUB.Count_And_Get (
3156: p_encoded => FND_API.G_FALSE,
3157: p_count => x_msg_count,
3158: p_data => x_msg_data
3159: );
3160: WHEN FND_API.G_EXC_ERROR THEN
3156: p_encoded => FND_API.G_FALSE,
3157: p_count => x_msg_count,
3158: p_data => x_msg_data
3159: );
3160: WHEN FND_API.G_EXC_ERROR THEN
3161: ROLLBACK TO Delete_ItemFile_Pub;
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: -- Standard call to get message count and if count=1, get the message
3164: FND_MSG_PUB.Count_And_Get (
3158: p_data => x_msg_data
3159: );
3160: WHEN FND_API.G_EXC_ERROR THEN
3161: ROLLBACK TO Delete_ItemFile_Pub;
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: -- Standard call to get message count and if count=1, get the message
3164: FND_MSG_PUB.Count_And_Get (
3165: p_encoded => FND_API.G_FALSE,
3166: p_count => x_msg_count,
3161: ROLLBACK TO Delete_ItemFile_Pub;
3162: x_return_status := FND_API.G_RET_STS_ERROR;
3163: -- Standard call to get message count and if count=1, get the message
3164: FND_MSG_PUB.Count_And_Get (
3165: p_encoded => FND_API.G_FALSE,
3166: p_count => x_msg_count,
3167: p_data => x_msg_data
3168: );
3169: WHEN OTHERS THEN
3167: p_data => x_msg_data
3168: );
3169: WHEN OTHERS THEN
3170: ROLLBACK TO Delete_ItemFile_Pub;
3171: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3172: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3174: END IF;
3175: -- Standard call to get message count and if count=1, get the message
3173: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3174: END IF;
3175: -- Standard call to get message count and if count=1, get the message
3176: FND_MSG_PUB.Count_And_Get (
3177: p_encoded => FND_API.G_FALSE,
3178: p_count => x_msg_count,
3179: p_data => x_msg_data
3180: );
3181: END Delete_ItemFile;
3182: --------------------------------------------------------------------------------
3183: PROCEDURE Delete_ItemFile
3184: (
3185: p_api_version IN NUMBER,
3186: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3187: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3188: x_return_status OUT NOCOPY VARCHAR2,
3189: x_msg_count OUT NOCOPY NUMBER,
3190: x_msg_data OUT NOCOPY VARCHAR2,
3183: PROCEDURE Delete_ItemFile
3184: (
3185: p_api_version IN NUMBER,
3186: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3187: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3188: x_return_status OUT NOCOPY VARCHAR2,
3189: x_msg_count OUT NOCOPY NUMBER,
3190: x_msg_data OUT NOCOPY VARCHAR2,
3191: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3187: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3188: x_return_status OUT NOCOPY VARCHAR2,
3189: x_msg_count OUT NOCOPY NUMBER,
3190: x_msg_data OUT NOCOPY VARCHAR2,
3191: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3192: p_item_id IN NUMBER,
3193: p_file_id IN NUMBER
3194: ) AS
3195: l_number_varray AMV_NUMBER_VARRAY_TYPE;
3214: --------------------------------------------------------------------------------
3215: PROCEDURE Replace_ItemFile
3216: (
3217: p_api_version IN NUMBER,
3218: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3219: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3220: x_return_status OUT NOCOPY VARCHAR2,
3221: x_msg_count OUT NOCOPY NUMBER,
3222: x_msg_data OUT NOCOPY VARCHAR2,
3215: PROCEDURE Replace_ItemFile
3216: (
3217: p_api_version IN NUMBER,
3218: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3219: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3220: x_return_status OUT NOCOPY VARCHAR2,
3221: x_msg_count OUT NOCOPY NUMBER,
3222: x_msg_data OUT NOCOPY VARCHAR2,
3223: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3219: p_commit IN VARCHAR2 := FND_API.G_FALSE,
3220: x_return_status OUT NOCOPY VARCHAR2,
3221: x_msg_count OUT NOCOPY NUMBER,
3222: x_msg_data OUT NOCOPY VARCHAR2,
3223: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3224: p_item_id IN NUMBER,
3225: p_file_id_varray IN AMV_NUMBER_VARRAY_TYPE
3226: ) AS
3227: l_api_name CONSTANT VARCHAR2(30) := 'Replace_ItemFile';
3237: --
3238: BEGIN
3239: -- Standard call to check for call compatibility.
3240: SAVEPOINT Replace_ItemFile_Pub;
3241: IF NOT FND_API.Compatible_API_Call (
3242: l_api_version,
3243: p_api_version,
3244: l_api_name,
3245: G_PKG_NAME) THEN
3242: l_api_version,
3243: p_api_version,
3244: l_api_name,
3245: G_PKG_NAME) THEN
3246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3247: END IF;
3248: --Initialize message list if p_init_msg_list is TRUE.
3249: IF FND_API.To_Boolean (p_init_msg_list) THEN
3250: FND_MSG_PUB.initialize;
3245: G_PKG_NAME) THEN
3246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3247: END IF;
3248: --Initialize message list if p_init_msg_list is TRUE.
3249: IF FND_API.To_Boolean (p_init_msg_list) THEN
3250: FND_MSG_PUB.initialize;
3251: END IF;
3252: -- Initialize API return status to success
3253: x_return_status := FND_API.G_RET_STS_SUCCESS;
3249: IF FND_API.To_Boolean (p_init_msg_list) THEN
3250: FND_MSG_PUB.initialize;
3251: END IF;
3252: -- Initialize API return status to success
3253: x_return_status := FND_API.G_RET_STS_SUCCESS;
3254: -- Get the current (login) user id.
3255: AMV_UTILITY_PVT.Get_UserInfo(
3256: x_resource_id => l_resource_id,
3257: x_user_id => l_current_user_id,
3257: x_user_id => l_current_user_id,
3258: x_login_id => l_current_login_id,
3259: x_user_status => l_current_user_status
3260: );
3261: IF (p_check_login_user = FND_API.G_TRUE) THEN
3262: -- Check if user is login and has the required privilege.
3263: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3264: -- User is not login.
3265: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3259: x_user_status => l_current_user_status
3260: );
3261: IF (p_check_login_user = FND_API.G_TRUE) THEN
3262: -- Check if user is login and has the required privilege.
3263: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3264: -- User is not login.
3265: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3266: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3267: FND_MSG_PUB.ADD;
3265: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3266: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3267: FND_MSG_PUB.ADD;
3268: END IF;
3269: RAISE FND_API.G_EXC_ERROR;
3270: END IF;
3271: AMV_USER_PVT.Is_Administrator
3272: (
3273: p_api_version => 1.0,
3273: p_api_version => 1.0,
3274: x_return_status => x_return_status,
3275: x_msg_count => x_msg_count,
3276: x_msg_data => x_msg_data,
3277: p_check_login_user => FND_API.G_FALSE,
3278: p_resource_id => l_resource_id,
3279: x_result_flag => l_admin_flag
3280: );
3281: IF (l_admin_flag <> FND_API.G_TRUE) THEN
3277: p_check_login_user => FND_API.G_FALSE,
3278: p_resource_id => l_resource_id,
3279: x_result_flag => l_admin_flag
3280: );
3281: IF (l_admin_flag <> FND_API.G_TRUE) THEN
3282: -- User is not an administrator.
3283: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3284: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
3285: FND_MSG_PUB.ADD;
3283: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3284: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_HAVE_PRIVILEGE');
3285: FND_MSG_PUB.ADD;
3286: END IF;
3287: RAISE FND_API.G_EXC_ERROR;
3288: END IF;
3289: END IF;
3290: -- Check if item id is valid.
3291: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
3294: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
3295: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
3296: FND_MSG_PUB.ADD;
3297: END IF;
3298: RAISE FND_API.G_EXC_ERROR;
3299: END IF;
3300: -- Delete all the item's original files
3301: Delete_ItemFile
3302: (
3308: p_check_login_user => p_check_login_user,
3309: p_item_id => p_item_id,
3310: p_file_id_varray => NULL
3311: );
3312: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3314: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
3315: RAISE FND_API.G_EXC_ERROR;
3316: END IF;
3309: p_item_id => p_item_id,
3310: p_file_id_varray => NULL
3311: );
3312: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3314: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
3315: RAISE FND_API.G_EXC_ERROR;
3316: END IF;
3317: -- now add (attach) the new files
3310: p_file_id_varray => NULL
3311: );
3312: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3314: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
3315: RAISE FND_API.G_EXC_ERROR;
3316: END IF;
3317: -- now add (attach) the new files
3318: Add_ItemFile
3311: );
3312: IF ( x_return_status = FND_API.G_RET_STS_UNEXP_ERROR) THEN
3313: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3314: ELSIF ( x_return_status = FND_API.G_RET_STS_ERROR) THEN
3315: RAISE FND_API.G_EXC_ERROR;
3316: END IF;
3317: -- now add (attach) the new files
3318: Add_ItemFile
3319: (
3326: p_item_id => p_item_id,
3327: p_file_id_varray => p_file_id_varray
3328: );
3329: EXCEPTION
3330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3331: ROLLBACK TO Replace_ItemFile_Pub;
3332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3333: -- Standard call to get message count and if count=1, get the message
3334: FND_MSG_PUB.Count_And_Get (
3328: );
3329: EXCEPTION
3330: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3331: ROLLBACK TO Replace_ItemFile_Pub;
3332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3333: -- Standard call to get message count and if count=1, get the message
3334: FND_MSG_PUB.Count_And_Get (
3335: p_encoded => FND_API.G_FALSE,
3336: p_count => x_msg_count,
3331: ROLLBACK TO Replace_ItemFile_Pub;
3332: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3333: -- Standard call to get message count and if count=1, get the message
3334: FND_MSG_PUB.Count_And_Get (
3335: p_encoded => FND_API.G_FALSE,
3336: p_count => x_msg_count,
3337: p_data => x_msg_data
3338: );
3339: WHEN FND_API.G_EXC_ERROR THEN
3335: p_encoded => FND_API.G_FALSE,
3336: p_count => x_msg_count,
3337: p_data => x_msg_data
3338: );
3339: WHEN FND_API.G_EXC_ERROR THEN
3340: ROLLBACK TO Replace_ItemFile_Pub;
3341: x_return_status := FND_API.G_RET_STS_ERROR;
3342: -- Standard call to get message count and if count=1, get the message
3343: FND_MSG_PUB.Count_And_Get (
3337: p_data => x_msg_data
3338: );
3339: WHEN FND_API.G_EXC_ERROR THEN
3340: ROLLBACK TO Replace_ItemFile_Pub;
3341: x_return_status := FND_API.G_RET_STS_ERROR;
3342: -- Standard call to get message count and if count=1, get the message
3343: FND_MSG_PUB.Count_And_Get (
3344: p_encoded => FND_API.G_FALSE,
3345: p_count => x_msg_count,
3340: ROLLBACK TO Replace_ItemFile_Pub;
3341: x_return_status := FND_API.G_RET_STS_ERROR;
3342: -- Standard call to get message count and if count=1, get the message
3343: FND_MSG_PUB.Count_And_Get (
3344: p_encoded => FND_API.G_FALSE,
3345: p_count => x_msg_count,
3346: p_data => x_msg_data
3347: );
3348: WHEN OTHERS THEN
3346: p_data => x_msg_data
3347: );
3348: WHEN OTHERS THEN
3349: ROLLBACK TO Replace_ItemFile_Pub;
3350: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3351: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3352: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3353: END IF;
3354: -- Standard call to get message count and if count=1, get the message
3352: FND_MSG_PUB.Add_Exc_Msg(G_PKG_NAME,l_api_name);
3353: END IF;
3354: -- Standard call to get message count and if count=1, get the message
3355: FND_MSG_PUB.Count_And_Get (
3356: p_encoded => FND_API.G_FALSE,
3357: p_count => x_msg_count,
3358: p_data => x_msg_data
3359: );
3360: END Replace_ItemFile;
3361: --------------------------------------------------------------------------------
3362: PROCEDURE Get_ItemFile
3363: (
3364: p_api_version IN NUMBER,
3365: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3366: x_return_status OUT NOCOPY VARCHAR2,
3367: x_msg_count OUT NOCOPY NUMBER,
3368: x_msg_data OUT NOCOPY VARCHAR2,
3369: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3365: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3366: x_return_status OUT NOCOPY VARCHAR2,
3367: x_msg_count OUT NOCOPY NUMBER,
3368: x_msg_data OUT NOCOPY VARCHAR2,
3369: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3370: p_item_id IN NUMBER,
3371: x_file_id_varray OUT NOCOPY AMV_NUMBER_VARRAY_TYPE
3372: ) AS
3373: l_api_name CONSTANT VARCHAR2(30) := 'Get_ItemFile';
3386: AND attachment_used_by = G_USED_BY_ITEM;
3387: --
3388: BEGIN
3389: -- Standard call to check for call compatibility.
3390: IF NOT FND_API.Compatible_API_Call (
3391: l_api_version,
3392: p_api_version,
3393: l_api_name,
3394: G_PKG_NAME) THEN
3391: l_api_version,
3392: p_api_version,
3393: l_api_name,
3394: G_PKG_NAME) THEN
3395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3396: END IF;
3397: --Initialize message list if p_init_msg_list is TRUE.
3398: IF FND_API.To_Boolean (p_init_msg_list) THEN
3399: FND_MSG_PUB.initialize;
3394: G_PKG_NAME) THEN
3395: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3396: END IF;
3397: --Initialize message list if p_init_msg_list is TRUE.
3398: IF FND_API.To_Boolean (p_init_msg_list) THEN
3399: FND_MSG_PUB.initialize;
3400: END IF;
3401: -- Initialize API return status to success
3402: x_return_status := FND_API.G_RET_STS_SUCCESS;
3398: IF FND_API.To_Boolean (p_init_msg_list) THEN
3399: FND_MSG_PUB.initialize;
3400: END IF;
3401: -- Initialize API return status to success
3402: x_return_status := FND_API.G_RET_STS_SUCCESS;
3403: -- Get the current (login) user id.
3404: AMV_UTILITY_PVT.Get_UserInfo(
3405: x_resource_id => l_resource_id,
3406: x_user_id => l_current_user_id,
3406: x_user_id => l_current_user_id,
3407: x_login_id => l_current_login_id,
3408: x_user_status => l_current_user_status
3409: );
3410: IF (p_check_login_user = FND_API.G_TRUE) THEN
3411: -- Check if user is login and has the required privilege.
3412: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3413: -- User is not login.
3414: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3408: x_user_status => l_current_user_status
3409: );
3410: IF (p_check_login_user = FND_API.G_TRUE) THEN
3411: -- Check if user is login and has the required privilege.
3412: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3413: -- User is not login.
3414: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3415: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3416: FND_MSG_PUB.ADD;
3414: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3415: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3416: FND_MSG_PUB.ADD;
3417: END IF;
3418: RAISE FND_API.G_EXC_ERROR;
3419: END IF;
3420: END IF;
3421: -- Check if item id is valid.
3422: IF (AMV_UTILITY_PVT.Is_ItemIdValid(p_item_id) <> TRUE) THEN
3425: FND_MESSAGE.Set_Token('RECORD', 'AMV_ITEM_TK', TRUE);
3426: FND_MESSAGE.Set_Token('ID', TO_CHAR(p_item_id));
3427: FND_MSG_PUB.ADD;
3428: END IF;
3429: RAISE FND_API.G_EXC_ERROR;
3430: END IF;
3431: --Execute the SQL statements to get records
3432: x_file_id_varray := AMV_NUMBER_VARRAY_TYPE();
3433: FOR rec IN Get_File_id_csr LOOP
3436: x_file_id_varray(l_fetch_count) := rec.file_id;
3437: END LOOP;
3438: --Standard call to get message count and if count=1, get the message
3439: FND_MSG_PUB.Count_And_Get (
3440: p_encoded => FND_API.G_FALSE,
3441: p_count => x_msg_count,
3442: p_data => x_msg_data
3443: );
3444: EXCEPTION
3441: p_count => x_msg_count,
3442: p_data => x_msg_data
3443: );
3444: EXCEPTION
3445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: -- Standard call to get message count and if count=1, get the message
3448: FND_MSG_PUB.Count_And_Get (
3449: p_encoded => FND_API.G_FALSE,
3442: p_data => x_msg_data
3443: );
3444: EXCEPTION
3445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: -- Standard call to get message count and if count=1, get the message
3448: FND_MSG_PUB.Count_And_Get (
3449: p_encoded => FND_API.G_FALSE,
3450: p_count => x_msg_count,
3445: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3446: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3447: -- Standard call to get message count and if count=1, get the message
3448: FND_MSG_PUB.Count_And_Get (
3449: p_encoded => FND_API.G_FALSE,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3452: );
3453: WHEN FND_API.G_EXC_ERROR THEN
3449: p_encoded => FND_API.G_FALSE,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3452: );
3453: WHEN FND_API.G_EXC_ERROR THEN
3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- Standard call to get message count and if count=1, get the message
3456: FND_MSG_PUB.Count_And_Get (
3457: p_encoded => FND_API.G_FALSE,
3450: p_count => x_msg_count,
3451: p_data => x_msg_data
3452: );
3453: WHEN FND_API.G_EXC_ERROR THEN
3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- Standard call to get message count and if count=1, get the message
3456: FND_MSG_PUB.Count_And_Get (
3457: p_encoded => FND_API.G_FALSE,
3458: p_count => x_msg_count,
3453: WHEN FND_API.G_EXC_ERROR THEN
3454: x_return_status := FND_API.G_RET_STS_ERROR;
3455: -- Standard call to get message count and if count=1, get the message
3456: FND_MSG_PUB.Count_And_Get (
3457: p_encoded => FND_API.G_FALSE,
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3460: );
3461: WHEN OTHERS THEN
3458: p_count => x_msg_count,
3459: p_data => x_msg_data
3460: );
3461: WHEN OTHERS THEN
3462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3463: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3464: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3465: END IF;
3466: -- Standard call to get message count and if count=1, get the message
3464: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3465: END IF;
3466: -- Standard call to get message count and if count=1, get the message
3467: FND_MSG_PUB.Count_And_Get (
3468: p_encoded => FND_API.G_FALSE,
3469: p_count => x_msg_count,
3470: p_data => x_msg_data
3471: );
3472: END Get_ItemFile;
3475: --------------------------------------------------------------------------------
3476: PROCEDURE Get_UserMessage
3477: (
3478: p_api_version IN NUMBER,
3479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3480: x_return_status OUT NOCOPY VARCHAR2,
3481: x_msg_count OUT NOCOPY NUMBER,
3482: x_msg_data OUT NOCOPY VARCHAR2,
3483: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3479: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3480: x_return_status OUT NOCOPY VARCHAR2,
3481: x_msg_count OUT NOCOPY NUMBER,
3482: x_msg_data OUT NOCOPY VARCHAR2,
3483: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3484: p_user_id IN NUMBER,
3485: x_item_id_varray OUT NOCOPY AMV_NUMBER_VARRAY_TYPE,
3486: x_message_varray OUT NOCOPY AMV_CHAR_VARRAY_TYPE
3487: ) AS
3533: ;
3534: --
3535: BEGIN
3536: -- Standard call to check for call compatibility.
3537: IF NOT FND_API.Compatible_API_Call (
3538: l_api_version,
3539: p_api_version,
3540: l_api_name,
3541: G_PKG_NAME) THEN
3538: l_api_version,
3539: p_api_version,
3540: l_api_name,
3541: G_PKG_NAME) THEN
3542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3543: END IF;
3544: --Initialize message list if p_init_msg_list is TRUE.
3545: IF FND_API.To_Boolean (p_init_msg_list) THEN
3546: FND_MSG_PUB.initialize;
3541: G_PKG_NAME) THEN
3542: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3543: END IF;
3544: --Initialize message list if p_init_msg_list is TRUE.
3545: IF FND_API.To_Boolean (p_init_msg_list) THEN
3546: FND_MSG_PUB.initialize;
3547: END IF;
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3545: IF FND_API.To_Boolean (p_init_msg_list) THEN
3546: FND_MSG_PUB.initialize;
3547: END IF;
3548: -- Initialize API return status to success
3549: x_return_status := FND_API.G_RET_STS_SUCCESS;
3550: -- Get the current (login) user id.
3551: AMV_UTILITY_PVT.Get_UserInfo(
3552: x_resource_id => l_resource_id,
3553: x_user_id => l_current_user_id,
3553: x_user_id => l_current_user_id,
3554: x_login_id => l_current_login_id,
3555: x_user_status => l_current_user_status
3556: );
3557: IF (p_check_login_user = FND_API.G_TRUE) THEN
3558: -- Check if user is login and has the required privilege.
3559: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3560: -- User is not login.
3561: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3555: x_user_status => l_current_user_status
3556: );
3557: IF (p_check_login_user = FND_API.G_TRUE) THEN
3558: -- Check if user is login and has the required privilege.
3559: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3560: -- User is not login.
3561: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3562: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3563: FND_MSG_PUB.ADD;
3561: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3562: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3563: FND_MSG_PUB.ADD;
3564: END IF;
3565: RAISE FND_API.G_EXC_ERROR;
3566: END IF;
3567: END IF;
3568:
3569: x_item_id_varray := AMV_NUMBER_VARRAY_TYPE();
3577: x_message_varray(l_count) := cur.item_name;
3578: END LOOP;
3579: --Standard call to get message count and if count=1, get the message
3580: FND_MSG_PUB.Count_And_Get (
3581: p_encoded => FND_API.G_FALSE,
3582: p_count => x_msg_count,
3583: p_data => x_msg_data
3584: );
3585: EXCEPTION
3582: p_count => x_msg_count,
3583: p_data => x_msg_data
3584: );
3585: EXCEPTION
3586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3588: -- Standard call to get message count and if count=1, get the message
3589: FND_MSG_PUB.Count_And_Get (
3590: p_encoded => FND_API.G_FALSE,
3583: p_data => x_msg_data
3584: );
3585: EXCEPTION
3586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3588: -- Standard call to get message count and if count=1, get the message
3589: FND_MSG_PUB.Count_And_Get (
3590: p_encoded => FND_API.G_FALSE,
3591: p_count => x_msg_count,
3586: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3587: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3588: -- Standard call to get message count and if count=1, get the message
3589: FND_MSG_PUB.Count_And_Get (
3590: p_encoded => FND_API.G_FALSE,
3591: p_count => x_msg_count,
3592: p_data => x_msg_data
3593: );
3594: WHEN FND_API.G_EXC_ERROR THEN
3590: p_encoded => FND_API.G_FALSE,
3591: p_count => x_msg_count,
3592: p_data => x_msg_data
3593: );
3594: WHEN FND_API.G_EXC_ERROR THEN
3595: x_return_status := FND_API.G_RET_STS_ERROR;
3596: -- Standard call to get message count and if count=1, get the message
3597: FND_MSG_PUB.Count_And_Get (
3598: p_encoded => FND_API.G_FALSE,
3591: p_count => x_msg_count,
3592: p_data => x_msg_data
3593: );
3594: WHEN FND_API.G_EXC_ERROR THEN
3595: x_return_status := FND_API.G_RET_STS_ERROR;
3596: -- Standard call to get message count and if count=1, get the message
3597: FND_MSG_PUB.Count_And_Get (
3598: p_encoded => FND_API.G_FALSE,
3599: p_count => x_msg_count,
3594: WHEN FND_API.G_EXC_ERROR THEN
3595: x_return_status := FND_API.G_RET_STS_ERROR;
3596: -- Standard call to get message count and if count=1, get the message
3597: FND_MSG_PUB.Count_And_Get (
3598: p_encoded => FND_API.G_FALSE,
3599: p_count => x_msg_count,
3600: p_data => x_msg_data
3601: );
3602: WHEN OTHERS THEN
3599: p_count => x_msg_count,
3600: p_data => x_msg_data
3601: );
3602: WHEN OTHERS THEN
3603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3604: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3605: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3606: END IF;
3607: -- Standard call to get message count and if count=1, get the message
3605: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3606: END IF;
3607: -- Standard call to get message count and if count=1, get the message
3608: FND_MSG_PUB.Count_And_Get (
3609: p_encoded => FND_API.G_FALSE,
3610: p_count => x_msg_count,
3611: p_data => x_msg_data
3612: );
3613: END Get_UserMessage;
3614: --------------------------------------------------------------------------------
3615: PROCEDURE Get_UserMessage2
3616: (
3617: p_api_version IN NUMBER,
3618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3619: x_return_status OUT NOCOPY VARCHAR2,
3620: x_msg_count OUT NOCOPY NUMBER,
3621: x_msg_data OUT NOCOPY VARCHAR2,
3622: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3618: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3619: x_return_status OUT NOCOPY VARCHAR2,
3620: x_msg_count OUT NOCOPY NUMBER,
3621: x_msg_data OUT NOCOPY VARCHAR2,
3622: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3623: p_user_id IN NUMBER,
3624: x_item_varray OUT NOCOPY AMV_SIMPLE_ITEM_OBJ_VARRAY
3625: ) AS
3626: l_api_name CONSTANT VARCHAR2(30) := 'Get_UserMessage';
3715: ;
3716: --
3717: BEGIN
3718: -- Standard call to check for call compatibility.
3719: IF NOT FND_API.Compatible_API_Call (
3720: l_api_version,
3721: p_api_version,
3722: l_api_name,
3723: G_PKG_NAME) THEN
3720: l_api_version,
3721: p_api_version,
3722: l_api_name,
3723: G_PKG_NAME) THEN
3724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3725: END IF;
3726: --Initialize message list if p_init_msg_list is TRUE.
3727: IF FND_API.To_Boolean (p_init_msg_list) THEN
3728: FND_MSG_PUB.initialize;
3723: G_PKG_NAME) THEN
3724: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3725: END IF;
3726: --Initialize message list if p_init_msg_list is TRUE.
3727: IF FND_API.To_Boolean (p_init_msg_list) THEN
3728: FND_MSG_PUB.initialize;
3729: END IF;
3730: -- Initialize API return status to success
3731: x_return_status := FND_API.G_RET_STS_SUCCESS;
3727: IF FND_API.To_Boolean (p_init_msg_list) THEN
3728: FND_MSG_PUB.initialize;
3729: END IF;
3730: -- Initialize API return status to success
3731: x_return_status := FND_API.G_RET_STS_SUCCESS;
3732: -- Get the current (login) user id.
3733: AMV_UTILITY_PVT.Get_UserInfo(
3734: x_resource_id => l_resource_id,
3735: x_user_id => l_current_user_id,
3735: x_user_id => l_current_user_id,
3736: x_login_id => l_current_login_id,
3737: x_user_status => l_current_user_status
3738: );
3739: IF (p_check_login_user = FND_API.G_TRUE) THEN
3740: -- Check if user is login and has the required privilege.
3741: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3742: -- User is not login.
3743: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3737: x_user_status => l_current_user_status
3738: );
3739: IF (p_check_login_user = FND_API.G_TRUE) THEN
3740: -- Check if user is login and has the required privilege.
3741: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3742: -- User is not login.
3743: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3744: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3745: FND_MSG_PUB.ADD;
3743: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3744: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3745: FND_MSG_PUB.ADD;
3746: END IF;
3747: RAISE FND_API.G_EXC_ERROR;
3748: END IF;
3749: END IF;
3750:
3751: x_item_varray := AMV_SIMPLE_ITEM_OBJ_VARRAY();
3784: x_item_varray(l_count).keyword_list := ' ';
3785: END LOOP;
3786: --Standard call to get message count and if count=1, get the message
3787: FND_MSG_PUB.Count_And_Get (
3788: p_encoded => FND_API.G_FALSE,
3789: p_count => x_msg_count,
3790: p_data => x_msg_data
3791: );
3792: EXCEPTION
3789: p_count => x_msg_count,
3790: p_data => x_msg_data
3791: );
3792: EXCEPTION
3793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3795: -- Standard call to get message count and if count=1, get the message
3796: FND_MSG_PUB.Count_And_Get (
3797: p_encoded => FND_API.G_FALSE,
3790: p_data => x_msg_data
3791: );
3792: EXCEPTION
3793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3795: -- Standard call to get message count and if count=1, get the message
3796: FND_MSG_PUB.Count_And_Get (
3797: p_encoded => FND_API.G_FALSE,
3798: p_count => x_msg_count,
3793: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3794: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3795: -- Standard call to get message count and if count=1, get the message
3796: FND_MSG_PUB.Count_And_Get (
3797: p_encoded => FND_API.G_FALSE,
3798: p_count => x_msg_count,
3799: p_data => x_msg_data
3800: );
3801: WHEN FND_API.G_EXC_ERROR THEN
3797: p_encoded => FND_API.G_FALSE,
3798: p_count => x_msg_count,
3799: p_data => x_msg_data
3800: );
3801: WHEN FND_API.G_EXC_ERROR THEN
3802: x_return_status := FND_API.G_RET_STS_ERROR;
3803: -- Standard call to get message count and if count=1, get the message
3804: FND_MSG_PUB.Count_And_Get (
3805: p_encoded => FND_API.G_FALSE,
3798: p_count => x_msg_count,
3799: p_data => x_msg_data
3800: );
3801: WHEN FND_API.G_EXC_ERROR THEN
3802: x_return_status := FND_API.G_RET_STS_ERROR;
3803: -- Standard call to get message count and if count=1, get the message
3804: FND_MSG_PUB.Count_And_Get (
3805: p_encoded => FND_API.G_FALSE,
3806: p_count => x_msg_count,
3801: WHEN FND_API.G_EXC_ERROR THEN
3802: x_return_status := FND_API.G_RET_STS_ERROR;
3803: -- Standard call to get message count and if count=1, get the message
3804: FND_MSG_PUB.Count_And_Get (
3805: p_encoded => FND_API.G_FALSE,
3806: p_count => x_msg_count,
3807: p_data => x_msg_data
3808: );
3809: WHEN OTHERS THEN
3806: p_count => x_msg_count,
3807: p_data => x_msg_data
3808: );
3809: WHEN OTHERS THEN
3810: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3811: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3812: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3813: END IF;
3814: -- Standard call to get message count and if count=1, get the message
3812: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3813: END IF;
3814: -- Standard call to get message count and if count=1, get the message
3815: FND_MSG_PUB.Count_And_Get (
3816: p_encoded => FND_API.G_FALSE,
3817: p_count => x_msg_count,
3818: p_data => x_msg_data
3819: );
3820: END Get_UserMessage2;
3827: -- Function : Query and return all the channels matched the specified item
3828: -- Parameters :
3829: -- IN p_api_version NUMBER Required
3830: -- p_init_msg_list VARCHAR2 Optional
3831: -- Default = FND_API.G_FALSE
3832: -- p_check_login_user VARCHAR2 Optional
3833: -- Default = FND_API.G_TRUE
3834: -- Flag for checking user privilege and if user is login.
3835: -- p_match_type VARCHAR2 Optional
3829: -- IN p_api_version NUMBER Required
3830: -- p_init_msg_list VARCHAR2 Optional
3831: -- Default = FND_API.G_FALSE
3832: -- p_check_login_user VARCHAR2 Optional
3833: -- Default = FND_API.G_TRUE
3834: -- Flag for checking user privilege and if user is login.
3835: -- p_match_type VARCHAR2 Optional
3836: -- p_item_id NUMBER Required
3837: -- The item id to be add the files.
3846: --
3847: PROCEDURE Get_ChannelsPerItem
3848: (
3849: p_api_version IN NUMBER,
3850: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3851: x_return_status OUT NOCOPY VARCHAR2,
3852: x_msg_count OUT NOCOPY NUMBER,
3853: x_msg_data OUT NOCOPY VARCHAR2,
3854: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3850: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
3851: x_return_status OUT NOCOPY VARCHAR2,
3852: x_msg_count OUT NOCOPY NUMBER,
3853: x_msg_data OUT NOCOPY VARCHAR2,
3854: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3855: p_item_id IN NUMBER,
3856: p_match_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3857: x_channel_array OUT NOCOPY AMV_NAMEID_VARRAY_TYPE
3858: ) AS
3852: x_msg_count OUT NOCOPY NUMBER,
3853: x_msg_data OUT NOCOPY VARCHAR2,
3854: p_check_login_user IN VARCHAR2 := FND_API.G_TRUE,
3855: p_item_id IN NUMBER,
3856: p_match_type IN VARCHAR2 := FND_API.G_MISS_CHAR,
3857: x_channel_array OUT NOCOPY AMV_NAMEID_VARRAY_TYPE
3858: ) AS
3859:
3860: l_api_name CONSTANT VARCHAR2(30) := 'Get_ChannelsPerItem';
3879: and c.channel_type = amv_utility_pvt.g_content
3880: and c.access_level_type = amv_utility_pvt.g_public
3881: and m.approval_status_type = AMV_UTILITY_PVT.G_APPROVED
3882: and m.table_name_code = amv_utility_pvt.g_table_name_code
3883: and decode(p_match_type, FND_API.G_MISS_CHAR, p_match_type, m.available_due_to_type) = p_match_type;
3884: --and m.available_due_to_type in (decode(p_match_type,FND_API.G_MISS_CHAR,l_all_match,p_match_type));
3885: --
3886: BEGIN
3887: -- Standard call to check for call compatibility.
3880: and c.access_level_type = amv_utility_pvt.g_public
3881: and m.approval_status_type = AMV_UTILITY_PVT.G_APPROVED
3882: and m.table_name_code = amv_utility_pvt.g_table_name_code
3883: and decode(p_match_type, FND_API.G_MISS_CHAR, p_match_type, m.available_due_to_type) = p_match_type;
3884: --and m.available_due_to_type in (decode(p_match_type,FND_API.G_MISS_CHAR,l_all_match,p_match_type));
3885: --
3886: BEGIN
3887: -- Standard call to check for call compatibility.
3888: IF NOT FND_API.Compatible_API_Call (
3884: --and m.available_due_to_type in (decode(p_match_type,FND_API.G_MISS_CHAR,l_all_match,p_match_type));
3885: --
3886: BEGIN
3887: -- Standard call to check for call compatibility.
3888: IF NOT FND_API.Compatible_API_Call (
3889: l_api_version,
3890: p_api_version,
3891: l_api_name,
3892: G_PKG_NAME) THEN
3889: l_api_version,
3890: p_api_version,
3891: l_api_name,
3892: G_PKG_NAME) THEN
3893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3894: END IF;
3895: --Initialize message list if p_init_msg_list is TRUE.
3896: IF FND_API.To_Boolean (p_init_msg_list) THEN
3897: FND_MSG_PUB.initialize;
3892: G_PKG_NAME) THEN
3893: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
3894: END IF;
3895: --Initialize message list if p_init_msg_list is TRUE.
3896: IF FND_API.To_Boolean (p_init_msg_list) THEN
3897: FND_MSG_PUB.initialize;
3898: END IF;
3899: -- Initialize API return status to success
3900: x_return_status := FND_API.G_RET_STS_SUCCESS;
3896: IF FND_API.To_Boolean (p_init_msg_list) THEN
3897: FND_MSG_PUB.initialize;
3898: END IF;
3899: -- Initialize API return status to success
3900: x_return_status := FND_API.G_RET_STS_SUCCESS;
3901: -- Get the current (login) user id.
3902: AMV_UTILITY_PVT.Get_UserInfo(
3903: x_resource_id => l_resource_id,
3904: x_user_id => l_current_user_id,
3904: x_user_id => l_current_user_id,
3905: x_login_id => l_current_login_id,
3906: x_user_status => l_current_user_status
3907: );
3908: IF (p_check_login_user = FND_API.G_TRUE) THEN
3909: -- Check if user is login and has the required privilege.
3910: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3911: -- User is not login.
3912: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3906: x_user_status => l_current_user_status
3907: );
3908: IF (p_check_login_user = FND_API.G_TRUE) THEN
3909: -- Check if user is login and has the required privilege.
3910: IF (l_current_login_id = FND_API.G_MISS_NUM) THEN
3911: -- User is not login.
3912: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3913: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3914: FND_MSG_PUB.ADD;
3912: IF FND_MSG_PUB.Check_Msg_level (FND_MSG_PUB.G_MSG_LVL_ERROR) THEN
3913: FND_MESSAGE.Set_name('AMV','AMV_USER_NOT_LOGIN');
3914: FND_MSG_PUB.ADD;
3915: END IF;
3916: RAISE FND_API.G_EXC_ERROR;
3917: END IF;
3918: END IF;
3919:
3920: --
3932: --
3933:
3934: --Standard call to get message count and if count=1, get the message
3935: FND_MSG_PUB.Count_And_Get (
3936: p_encoded => FND_API.G_FALSE,
3937: p_count => x_msg_count,
3938: p_data => x_msg_data
3939: );
3940: EXCEPTION
3937: p_count => x_msg_count,
3938: p_data => x_msg_data
3939: );
3940: EXCEPTION
3941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3943: -- Standard call to get message count and if count=1, get the message
3944: FND_MSG_PUB.Count_And_Get (
3945: p_encoded => FND_API.G_FALSE,
3938: p_data => x_msg_data
3939: );
3940: EXCEPTION
3941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3943: -- Standard call to get message count and if count=1, get the message
3944: FND_MSG_PUB.Count_And_Get (
3945: p_encoded => FND_API.G_FALSE,
3946: p_count => x_msg_count,
3941: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
3942: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3943: -- Standard call to get message count and if count=1, get the message
3944: FND_MSG_PUB.Count_And_Get (
3945: p_encoded => FND_API.G_FALSE,
3946: p_count => x_msg_count,
3947: p_data => x_msg_data
3948: );
3949: WHEN FND_API.G_EXC_ERROR THEN
3945: p_encoded => FND_API.G_FALSE,
3946: p_count => x_msg_count,
3947: p_data => x_msg_data
3948: );
3949: WHEN FND_API.G_EXC_ERROR THEN
3950: x_return_status := FND_API.G_RET_STS_ERROR;
3951: -- Standard call to get message count and if count=1, get the message
3952: FND_MSG_PUB.Count_And_Get (
3953: p_encoded => FND_API.G_FALSE,
3946: p_count => x_msg_count,
3947: p_data => x_msg_data
3948: );
3949: WHEN FND_API.G_EXC_ERROR THEN
3950: x_return_status := FND_API.G_RET_STS_ERROR;
3951: -- Standard call to get message count and if count=1, get the message
3952: FND_MSG_PUB.Count_And_Get (
3953: p_encoded => FND_API.G_FALSE,
3954: p_count => x_msg_count,
3949: WHEN FND_API.G_EXC_ERROR THEN
3950: x_return_status := FND_API.G_RET_STS_ERROR;
3951: -- Standard call to get message count and if count=1, get the message
3952: FND_MSG_PUB.Count_And_Get (
3953: p_encoded => FND_API.G_FALSE,
3954: p_count => x_msg_count,
3955: p_data => x_msg_data
3956: );
3957: WHEN OTHERS THEN
3954: p_count => x_msg_count,
3955: p_data => x_msg_data
3956: );
3957: WHEN OTHERS THEN
3958: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3959: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
3960: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3961: END IF;
3962: -- Standard call to get message count and if count=1, get the message
3960: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
3961: END IF;
3962: -- Standard call to get message count and if count=1, get the message
3963: FND_MSG_PUB.Count_And_Get (
3964: p_encoded => FND_API.G_FALSE,
3965: p_count => x_msg_count,
3966: p_data => x_msg_data
3967: );
3968: END Get_ChannelsPerItem;