95:
96: AMS_UTILITY_PVT.debug_message(l_error);
97: END IF;
98: --write_msg(' test5::' || l_error);
99: RAISE FND_API.G_EXC_ERROR;
100: END;
101:
102: -- Standard check for p_commit
103: IF FND_API.to_Boolean( p_commit) THEN
99: RAISE FND_API.G_EXC_ERROR;
100: END;
101:
102: -- Standard check for p_commit
103: IF FND_API.to_Boolean( p_commit) THEN
104: COMMIT WORK;
105: END IF;
106:
107: EXCEPTION
104: COMMIT WORK;
105: END IF;
106:
107: EXCEPTION
108: WHEN FND_API.G_EXC_ERROR THEN
109: x_return_status := FND_API.G_RET_STS_ERROR;
110: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util expected');END IF;
111: -- Standard call to get message count and if count=1, get the message
112: FND_MSG_PUB.Count_And_Get (
105: END IF;
106:
107: EXCEPTION
108: WHEN FND_API.G_EXC_ERROR THEN
109: x_return_status := FND_API.G_RET_STS_ERROR;
110: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util expected');END IF;
111: -- Standard call to get message count and if count=1, get the message
112: FND_MSG_PUB.Count_And_Get (
113: p_encoded => FND_API.G_FALSE,
109: x_return_status := FND_API.G_RET_STS_ERROR;
110: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util expected');END IF;
111: -- Standard call to get message count and if count=1, get the message
112: FND_MSG_PUB.Count_And_Get (
113: p_encoded => FND_API.G_FALSE,
114: p_count => x_msg_count,
115: p_data => x_msg_data
116: );
117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
113: p_encoded => FND_API.G_FALSE,
114: p_count => x_msg_count,
115: p_data => x_msg_data
116: );
117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util unexpected');END IF;
120: -- Standard call to get message count and if count=1, get the message
121: FND_MSG_PUB.Count_And_Get (
114: p_count => x_msg_count,
115: p_data => x_msg_data
116: );
117: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util unexpected');END IF;
120: -- Standard call to get message count and if count=1, get the message
121: FND_MSG_PUB.Count_And_Get (
122: p_encoded => FND_API.G_FALSE,
118: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
119: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util unexpected');END IF;
120: -- Standard call to get message count and if count=1, get the message
121: FND_MSG_PUB.Count_And_Get (
122: p_encoded => FND_API.G_FALSE,
123: p_count => x_msg_count,
124: p_data => x_msg_data
125: );
126: WHEN OTHERS THEN
123: p_count => x_msg_count,
124: p_data => x_msg_data
125: );
126: WHEN OTHERS THEN
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
128: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util OTHERS');END IF;
129: -- Standard call to get message count and if count=1, get the message
130: FND_MSG_PUB.Count_And_Get (
131: p_encoded => FND_API.G_FALSE,
127: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
128: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_Xml_Source_Lines_Util OTHERS');END IF;
129: -- Standard call to get message count and if count=1, get the message
130: FND_MSG_PUB.Count_And_Get (
131: p_encoded => FND_API.G_FALSE,
132: p_count => x_msg_count,
133: p_data => x_msg_data
134: );
135: END Update_Xml_Source_Lines_Util;
182: x_msg_count => x_msg_count,
183: x_msg_data => x_msg_data
184: );
185:
186: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189:
190: EXCEPTION
183: x_msg_data => x_msg_data
184: );
185:
186: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189:
190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
187: RAISE FND_API.G_EXC_ERROR;
188: END IF;
189:
190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
192: x_return_status := FND_API.G_RET_STS_ERROR;
193: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines expected');END IF;
194: -- Standard call to get message count and if count=1, get the message
195: FND_MSG_PUB.Count_And_Get (
188: END IF;
189:
190: EXCEPTION
191: WHEN FND_API.G_EXC_ERROR THEN
192: x_return_status := FND_API.G_RET_STS_ERROR;
193: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines expected');END IF;
194: -- Standard call to get message count and if count=1, get the message
195: FND_MSG_PUB.Count_And_Get (
196: p_encoded => FND_API.G_FALSE,
192: x_return_status := FND_API.G_RET_STS_ERROR;
193: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines expected');END IF;
194: -- Standard call to get message count and if count=1, get the message
195: FND_MSG_PUB.Count_And_Get (
196: p_encoded => FND_API.G_FALSE,
197: p_count => x_msg_count,
198: p_data => x_msg_data
199: );
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
196: p_encoded => FND_API.G_FALSE,
197: p_count => x_msg_count,
198: p_data => x_msg_data
199: );
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines unexpected');END IF;
203: -- Standard call to get message count and if count=1, get the message
204: FND_MSG_PUB.Count_And_Get (
197: p_count => x_msg_count,
198: p_data => x_msg_data
199: );
200: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines unexpected');END IF;
203: -- Standard call to get message count and if count=1, get the message
204: FND_MSG_PUB.Count_And_Get (
205: p_encoded => FND_API.G_FALSE,
201: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
202: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines unexpected');END IF;
203: -- Standard call to get message count and if count=1, get the message
204: FND_MSG_PUB.Count_And_Get (
205: p_encoded => FND_API.G_FALSE,
206: p_count => x_msg_count,
207: p_data => x_msg_data
208: );
209: WHEN OTHERS THEN
206: p_count => x_msg_count,
207: p_data => x_msg_data
208: );
209: WHEN OTHERS THEN
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines OTHERS');END IF;
212: -- Standard call to get message count and if count=1, get the message
213: FND_MSG_PUB.Count_And_Get (
214: p_encoded => FND_API.G_FALSE,
210: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
211: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines OTHERS');END IF;
212: -- Standard call to get message count and if count=1, get the message
213: FND_MSG_PUB.Count_And_Get (
214: p_encoded => FND_API.G_FALSE,
215: p_count => x_msg_count,
216: p_data => x_msg_data
217: );
218: END;
277: x_msg_count => x_msg_count,
278: x_msg_data => x_msg_data
279: );
280:
281: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: /****
278: x_msg_data => x_msg_data
279: );
280:
281: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
282: RAISE FND_API.G_EXC_ERROR;
283: END IF;
284:
285: /****
286: AMS_Import_XML_PVT.Get_Parent_Node (
288: x_node_rec => l_element_rec,
289: x_return_status => x_return_status,
290: x_msg_data => x_msg_data);
291: l_update_element_id := l_element_rec.imp_xml_element_id;
292: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
293: RAISE FND_API.G_EXC_ERROR;
294: END IF;
295:
296: l_update_statement := l_update_statement || l_column_name
289: x_return_status => x_return_status,
290: x_msg_data => x_msg_data);
291: l_update_element_id := l_element_rec.imp_xml_element_id;
292: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
293: RAISE FND_API.G_EXC_ERROR;
294: END IF;
295:
296: l_update_statement := l_update_statement || l_column_name
297: || ' = :v1 WHERE ' || l_source_system_column_name || ' = :p1';
300: l_update_statement USING p_xml_element_rec.data, l_update_element_id;
301: ****/
302:
303: EXCEPTION
304: WHEN FND_API.G_EXC_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_ERROR;
306: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines expected');END IF;
307: -- Standard call to get message count and if count=1, get the message
308: FND_MSG_PUB.Count_And_Get (
301: ****/
302:
303: EXCEPTION
304: WHEN FND_API.G_EXC_ERROR THEN
305: x_return_status := FND_API.G_RET_STS_ERROR;
306: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines expected');END IF;
307: -- Standard call to get message count and if count=1, get the message
308: FND_MSG_PUB.Count_And_Get (
309: p_encoded => FND_API.G_FALSE,
305: x_return_status := FND_API.G_RET_STS_ERROR;
306: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines expected');END IF;
307: -- Standard call to get message count and if count=1, get the message
308: FND_MSG_PUB.Count_And_Get (
309: p_encoded => FND_API.G_FALSE,
310: p_count => x_msg_count,
311: p_data => x_msg_data
312: );
313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
309: p_encoded => FND_API.G_FALSE,
310: p_count => x_msg_count,
311: p_data => x_msg_data
312: );
313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines unexpected');END IF;
316: -- Standard call to get message count and if count=1, get the message
317: FND_MSG_PUB.Count_And_Get (
310: p_count => x_msg_count,
311: p_data => x_msg_data
312: );
313: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines unexpected');END IF;
316: -- Standard call to get message count and if count=1, get the message
317: FND_MSG_PUB.Count_And_Get (
318: p_encoded => FND_API.G_FALSE,
314: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
315: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines unexpected');END IF;
316: -- Standard call to get message count and if count=1, get the message
317: FND_MSG_PUB.Count_And_Get (
318: p_encoded => FND_API.G_FALSE,
319: p_count => x_msg_count,
320: p_data => x_msg_data
321: );
322: WHEN OTHERS THEN
319: p_count => x_msg_count,
320: p_data => x_msg_data
321: );
322: WHEN OTHERS THEN
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines OTHERS');END IF;
325: -- Standard call to get message count and if count=1, get the message
326: FND_MSG_PUB.Count_And_Get (
327: p_encoded => FND_API.G_FALSE,
323: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
324: --IF (AMS_DEBUG_HIGH_ON) THENAMS_UTILITY_PVT.debug_message('Private API: Update_B2B_Xml_Source_lines OTHERS');END IF;
325: -- Standard call to get message count and if count=1, get the message
326: FND_MSG_PUB.Count_And_Get (
327: p_encoded => FND_API.G_FALSE,
328: p_count => x_msg_count,
329: p_data => x_msg_data
330: );
331: END;
333: -- Set the load_status for the current element as "RELOAD", update all the child elements
334: -- with new values and update source lines correspondingly
335: PROCEDURE Update_Error_Xml_Element (
336: p_api_version_number IN NUMBER,
337: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
338: p_commit IN VARCHAR2 := FND_API.G_FALSE,
339: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
340: p_xml_element_rec IN xml_element_rec_type,
341: p_xml_element_ids IN num_data_set_type_w,
334: -- with new values and update source lines correspondingly
335: PROCEDURE Update_Error_Xml_Element (
336: p_api_version_number IN NUMBER,
337: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
338: p_commit IN VARCHAR2 := FND_API.G_FALSE,
339: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
340: p_xml_element_rec IN xml_element_rec_type,
341: p_xml_element_ids IN num_data_set_type_w,
342: p_xml_elements_data IN varchar2_2000_set_type,
335: PROCEDURE Update_Error_Xml_Element (
336: p_api_version_number IN NUMBER,
337: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
338: p_commit IN VARCHAR2 := FND_API.G_FALSE,
339: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
340: p_xml_element_rec IN xml_element_rec_type,
341: p_xml_element_ids IN num_data_set_type_w,
342: p_xml_elements_data IN varchar2_2000_set_type,
343: p_xml_elements_col_name IN varchar2_2000_set_type,
388: -- Standard Start of API savepoint
389: SAVEPOINT Update_Error_Xml_Element;
390:
391: -- Standard call to check for call compatibility.
392: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
393: p_api_version_number,
394: l_api_name,
395: G_PKG_NAME) THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
392: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
393: p_api_version_number,
394: l_api_name,
395: G_PKG_NAME) THEN
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398:
399: -- Initialize message list if p_init_msg_list is set to TRUE.
400: IF FND_API.to_Boolean( p_init_msg_list )
396: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
397: END IF;
398:
399: -- Initialize message list if p_init_msg_list is set to TRUE.
400: IF FND_API.to_Boolean( p_init_msg_list )
401: THEN
402: FND_MSG_PUB.initialize;
403: END IF;
404:
408: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
409: END IF;
410:
411: -- Initialize API return status to SUCCESS
412: x_return_status := FND_API.G_RET_STS_SUCCESS;
413:
414: -- Debug Message
415: IF (AMS_DEBUG_HIGH_ON) THEN
416:
418: END IF;
419:
420: /****
421: If (l_tar_xml_element_rec.object_version_number is NULL or
422: l_tar_xml_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
423: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
424: p_token_name => 'COLUMN',
425: p_token_value => 'Last_Update_Date') ;
426: raise FND_API.G_EXC_ERROR;
422: l_tar_xml_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
423: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
424: p_token_name => 'COLUMN',
425: p_token_value => 'Last_Update_Date') ;
426: raise FND_API.G_EXC_ERROR;
427: End if;
428:
429: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
430: -- Debug message
425: p_token_value => 'Last_Update_Date') ;
426: raise FND_API.G_EXC_ERROR;
427: End if;
428:
429: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL) THEN
430: -- Debug message
431: IF (AMS_DEBUG_HIGH_ON) THEN
432:
433: AMS_UTILITY_PVT.debug_message('Private API: Validate_Xml_Element');
435:
436: -- Invoke validation procedures
437: Validate_xml_element(
438: p_api_version_number => 1.0,
439: p_init_msg_list => FND_API.G_FALSE,
440: p_validation_level => p_validation_level,
441: p_validation_mode => JTF_PLSQL_API.g_update,
442: p_xml_element_rec => p_xml_element_rec,
443: x_return_status => x_return_status,
444: x_msg_count => x_msg_count,
445: x_msg_data => x_msg_data);
446: END IF;
447:
448: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452: -- Debug Message
445: x_msg_data => x_msg_data);
446: END IF;
447:
448: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
449: RAISE FND_API.G_EXC_ERROR;
450: END IF;
451:
452: -- Debug Message
453: IF (AMS_DEBUG_HIGH_ON) THEN
491:
492: --x_object_version_number := p_xml_element_rec.object_version_number + 1;
493:
494: --IF l_ref_xml_element_rec.data IS NULL THEN
495: -- l_ref_xml_element_rec.data := FND_API.g_miss_char;
496: --END IF;
497:
498: UPDATE ams_imp_xml_elements
499: SET LOAD_STATUS = 'RELOAD'
535: p_xml_element_rec => l_element_rec,
536: p_xml_element_ids => p_xml_element_ids,
537: p_xml_elements_data => p_xml_elements_data,
538: p_xml_elements_col_name => p_xml_elements_col_name,
539: p_commit => FND_API.G_FALSE);
540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543: ELSIF l_import_type.IMPORT_TYPE IS NOT NULL AND UPPER (l_import_type.IMPORT_TYPE) = 'B2C' THEN
536: p_xml_element_ids => p_xml_element_ids,
537: p_xml_elements_data => p_xml_elements_data,
538: p_xml_elements_col_name => p_xml_elements_col_name,
539: p_commit => FND_API.G_FALSE);
540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543: ELSIF l_import_type.IMPORT_TYPE IS NOT NULL AND UPPER (l_import_type.IMPORT_TYPE) = 'B2C' THEN
544: Update_B2C_Xml_Source_lines (
537: p_xml_elements_data => p_xml_elements_data,
538: p_xml_elements_col_name => p_xml_elements_col_name,
539: p_commit => FND_API.G_FALSE);
540: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
541: RAISE FND_API.G_EXC_ERROR;
542: END IF;
543: ELSIF l_import_type.IMPORT_TYPE IS NOT NULL AND UPPER (l_import_type.IMPORT_TYPE) = 'B2C' THEN
544: Update_B2C_Xml_Source_lines (
545: x_return_status => l_return_status,
548: p_xml_element_rec => l_element_rec,
549: p_xml_element_ids => p_xml_element_ids,
550: p_xml_elements_data => p_xml_elements_data ,
551: p_xml_elements_col_name => p_xml_elements_col_name,
552: p_commit => FND_API.G_FALSE);
553: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
554: RAISE FND_API.G_EXC_ERROR;
555: END IF;
556: END IF;
549: p_xml_element_ids => p_xml_element_ids,
550: p_xml_elements_data => p_xml_elements_data ,
551: p_xml_elements_col_name => p_xml_elements_col_name,
552: p_commit => FND_API.G_FALSE);
553: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
554: RAISE FND_API.G_EXC_ERROR;
555: END IF;
556: END IF;
557: --END IF; --IF l_ref_xml_element_rec.imp_xml_element_id IS NOT NULL
550: p_xml_elements_data => p_xml_elements_data ,
551: p_xml_elements_col_name => p_xml_elements_col_name,
552: p_commit => FND_API.G_FALSE);
553: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
554: RAISE FND_API.G_EXC_ERROR;
555: END IF;
556: END IF;
557: --END IF; --IF l_ref_xml_element_rec.imp_xml_element_id IS NOT NULL
558:
556: END IF;
557: --END IF; --IF l_ref_xml_element_rec.imp_xml_element_id IS NOT NULL
558:
559: -- Standard check for p_commit
560: IF FND_API.to_Boolean( p_commit) THEN
561: COMMIT WORK;
562: END IF;
563:
564: -- Debug Message
572: p_data => x_msg_data);
573:
574: EXCEPTION
575: WHEN AMS_Utility_PVT.resource_locked THEN
576: x_return_status := FND_API.g_ret_sts_error;
577: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
578:
579: WHEN FND_API.G_EXC_ERROR THEN
580: ROLLBACK TO Update_Error_Xml_Element;
575: WHEN AMS_Utility_PVT.resource_locked THEN
576: x_return_status := FND_API.g_ret_sts_error;
577: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
578:
579: WHEN FND_API.G_EXC_ERROR THEN
580: ROLLBACK TO Update_Error_Xml_Element;
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: IF (AMS_DEBUG_HIGH_ON) THEN
583:
577: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
578:
579: WHEN FND_API.G_EXC_ERROR THEN
580: ROLLBACK TO Update_Error_Xml_Element;
581: x_return_status := FND_API.G_RET_STS_ERROR;
582: IF (AMS_DEBUG_HIGH_ON) THEN
583:
584: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_ERROR');
585: END IF;
584: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_ERROR');
585: END IF;
586: -- Standard call to get message count and if count=1, get the message
587: FND_MSG_PUB.Count_And_Get (
588: p_encoded => FND_API.G_FALSE,
589: p_count => x_msg_count,
590: p_data => x_msg_data );
591:
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
588: p_encoded => FND_API.G_FALSE,
589: p_count => x_msg_count,
590: p_data => x_msg_data );
591:
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
593: ROLLBACK TO Update_Error_Xml_Element;
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: IF (AMS_DEBUG_HIGH_ON) THEN
596:
590: p_data => x_msg_data );
591:
592: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
593: ROLLBACK TO Update_Error_Xml_Element;
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
595: IF (AMS_DEBUG_HIGH_ON) THEN
596:
597: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_UNEXPECTED_ERROR');
598: END IF;
597: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_UNEXPECTED_ERROR');
598: END IF;
599: -- Standard call to get message count and if count=1, get the message
600: FND_MSG_PUB.Count_And_Get (
601: p_encoded => FND_API.G_FALSE,
602: p_count => x_msg_count,
603: p_data => x_msg_data
604: );
605:
604: );
605:
606: WHEN OTHERS THEN
607: ROLLBACK TO Update_Error_Xml_Element;
608: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
609: IF (AMS_DEBUG_HIGH_ON) THEN
610:
611: AMS_UTILITY_PVT.debug_message('Private API: Exception OTHERS');
612: END IF;
614: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
615: END IF;
616: -- Standard call to get message count and if count=1, get the message
617: FND_MSG_PUB.Count_And_Get (
618: p_encoded => FND_API.G_FALSE,
619: p_count => x_msg_count,
620: p_data => x_msg_data);
621: END Update_Error_Xml_Element;
622:
622:
623: -- Hint: Primary key needs to be returned.
624: PROCEDURE Create_Xml_Element(
625: p_api_version_number IN NUMBER,
626: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
627: p_commit IN VARCHAR2 := FND_API.G_FALSE,
628: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
629:
630: x_return_status OUT NOCOPY VARCHAR2,
623: -- Hint: Primary key needs to be returned.
624: PROCEDURE Create_Xml_Element(
625: p_api_version_number IN NUMBER,
626: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
627: p_commit IN VARCHAR2 := FND_API.G_FALSE,
628: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
629:
630: x_return_status OUT NOCOPY VARCHAR2,
631: x_msg_count OUT NOCOPY NUMBER,
624: PROCEDURE Create_Xml_Element(
625: p_api_version_number IN NUMBER,
626: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
627: p_commit IN VARCHAR2 := FND_API.G_FALSE,
628: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
629:
630: x_return_status OUT NOCOPY VARCHAR2,
631: x_msg_count OUT NOCOPY NUMBER,
632: x_msg_data OUT NOCOPY VARCHAR2,
639: L_API_NAME CONSTANT VARCHAR2(30) := 'Create_Xml_Element';
640: L_API_VERSION_NUMBER CONSTANT NUMBER := 1.0;
641: l_return_status_full VARCHAR2(1);
642: l_object_version_number NUMBER := 1;
643: l_org_id NUMBER := FND_API.G_MISS_NUM;
644: l_IMP_XML_ELEMENT_ID NUMBER;
645: l_dummy NUMBER;
646:
647: CURSOR c_id IS
657: -- Standard Start of API savepoint
658: SAVEPOINT CREATE_Xml_Element_PVT;
659:
660: -- Standard call to check for call compatibility.
661: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
662: p_api_version_number,
663: l_api_name,
664: G_PKG_NAME)
665: THEN
662: p_api_version_number,
663: l_api_name,
664: G_PKG_NAME)
665: THEN
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668:
669: -- Initialize message list if p_init_msg_list is set to TRUE.
670: IF FND_API.to_Boolean( p_init_msg_list )
666: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
667: END IF;
668:
669: -- Initialize message list if p_init_msg_list is set to TRUE.
670: IF FND_API.to_Boolean( p_init_msg_list )
671: THEN
672: FND_MSG_PUB.initialize;
673: END IF;
674:
679: END IF;
680:
681:
682: -- Initialize API return status to SUCCESS
683: x_return_status := FND_API.G_RET_STS_SUCCESS;
684:
685: -- Local variable initialization
686:
687: IF p_xml_element_rec.IMP_XML_ELEMENT_ID IS NULL OR
684:
685: -- Local variable initialization
686:
687: IF p_xml_element_rec.IMP_XML_ELEMENT_ID IS NULL OR
688: p_xml_element_rec.IMP_XML_ELEMENT_ID = FND_API.g_miss_num THEN
689: LOOP
690: l_dummy := NULL;
691: OPEN c_id;
692: FETCH c_id INTO l_IMP_XML_ELEMENT_ID;
707:
708: IF FND_GLOBAL.User_Id IS NULL
709: THEN
710: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
715: THEN
710: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
711: RAISE FND_API.G_EXC_ERROR;
712: END IF;
713:
714: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
715: THEN
716: -- Debug message
717: IF (AMS_DEBUG_HIGH_ON) THEN
718:
721:
722: -- Invoke validation procedures
723: Validate_xml_element(
724: p_api_version_number => 1.0,
725: p_init_msg_list => FND_API.G_FALSE,
726: p_validation_level => p_validation_level,
727: p_validation_mode => JTF_PLSQL_API.g_create,
728: p_xml_element_rec => p_xml_element_rec,
729: x_return_status => x_return_status,
730: x_msg_count => x_msg_count,
731: x_msg_data => x_msg_data);
732: END IF;
733:
734: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737:
738:
731: x_msg_data => x_msg_data);
732: END IF;
733:
734: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
735: RAISE FND_API.G_EXC_ERROR;
736: END IF;
737:
738:
739: -- Debug Message
761: p_load_status => p_xml_element_rec.load_status,
762: p_error_text => p_xml_element_rec.error_text);
763:
764: x_imp_xml_element_id := l_imp_xml_element_id;
765: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768: --
769: -- End of API body
762: p_error_text => p_xml_element_rec.error_text);
763:
764: x_imp_xml_element_id := l_imp_xml_element_id;
765: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
766: RAISE FND_API.G_EXC_ERROR;
767: END IF;
768: --
769: -- End of API body
770: --
769: -- End of API body
770: --
771:
772: -- Standard check for p_commit
773: IF FND_API.to_Boolean( p_commit )
774: THEN
775: COMMIT WORK;
776: END IF;
777:
788: );
789: EXCEPTION
790:
791: WHEN AMS_Utility_PVT.resource_locked THEN
792: x_return_status := FND_API.g_ret_sts_error;
793: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794:
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO CREATE_Xml_Element_PVT;
791: WHEN AMS_Utility_PVT.resource_locked THEN
792: x_return_status := FND_API.g_ret_sts_error;
793: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794:
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO CREATE_Xml_Element_PVT;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
793: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
794:
795: WHEN FND_API.G_EXC_ERROR THEN
796: ROLLBACK TO CREATE_Xml_Element_PVT;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
796: ROLLBACK TO CREATE_Xml_Element_PVT;
797: x_return_status := FND_API.G_RET_STS_ERROR;
798: -- Standard call to get message count and if count=1, get the message
799: FND_MSG_PUB.Count_And_Get (
800: p_encoded => FND_API.G_FALSE,
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804:
801: p_count => x_msg_count,
802: p_data => x_msg_data
803: );
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO CREATE_Xml_Element_PVT;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
803: );
804:
805: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
806: ROLLBACK TO CREATE_Xml_Element_PVT;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
810: p_encoded => FND_API.G_FALSE,
811: p_count => x_msg_count,
806: ROLLBACK TO CREATE_Xml_Element_PVT;
807: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
808: -- Standard call to get message count and if count=1, get the message
809: FND_MSG_PUB.Count_And_Get (
810: p_encoded => FND_API.G_FALSE,
811: p_count => x_msg_count,
812: p_data => x_msg_data
813: );
814:
813: );
814:
815: WHEN OTHERS THEN
816: ROLLBACK TO CREATE_Xml_Element_PVT;
817: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
818: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
819: THEN
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
820: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
821: END IF;
822: -- Standard call to get message count and if count=1, get the message
823: FND_MSG_PUB.Count_And_Get (
824: p_encoded => FND_API.G_FALSE,
825: p_count => x_msg_count,
826: p_data => x_msg_data
827: );
828: End Create_Xml_Element;
829:
830:
831: PROCEDURE Update_Xml_Element(
832: p_api_version_number IN NUMBER,
833: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
834: p_commit IN VARCHAR2 := FND_API.G_FALSE,
835: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
836:
837: x_return_status OUT NOCOPY VARCHAR2,
830:
831: PROCEDURE Update_Xml_Element(
832: p_api_version_number IN NUMBER,
833: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
834: p_commit IN VARCHAR2 := FND_API.G_FALSE,
835: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
836:
837: x_return_status OUT NOCOPY VARCHAR2,
838: x_msg_count OUT NOCOPY NUMBER,
831: PROCEDURE Update_Xml_Element(
832: p_api_version_number IN NUMBER,
833: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
834: p_commit IN VARCHAR2 := FND_API.G_FALSE,
835: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
836:
837: x_return_status OUT NOCOPY VARCHAR2,
838: x_msg_count OUT NOCOPY NUMBER,
839: x_msg_data OUT NOCOPY VARCHAR2,
881: -- Standard Start of API savepoint
882: SAVEPOINT UPDATE_Xml_Element_PVT;
883:
884: -- Standard call to check for call compatibility.
885: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
886: p_api_version_number,
887: l_api_name,
888: G_PKG_NAME)
889: THEN
886: p_api_version_number,
887: l_api_name,
888: G_PKG_NAME)
889: THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892:
893: -- Initialize message list if p_init_msg_list is set to TRUE.
894: IF FND_API.to_Boolean( p_init_msg_list )
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892:
893: -- Initialize message list if p_init_msg_list is set to TRUE.
894: IF FND_API.to_Boolean( p_init_msg_list )
895: THEN
896: FND_MSG_PUB.initialize;
897: END IF;
898:
903: END IF;
904:
905:
906: -- Initialize API return status to SUCCESS
907: x_return_status := FND_API.G_RET_STS_SUCCESS;
908:
909: -- Debug Message
910: IF (AMS_DEBUG_HIGH_ON) THEN
911:
920: If ( c_get_Xml_Element%NOTFOUND) THEN
921: AMS_Utility_PVT.Error_Message(p_message_name => 'API_MISSING_UPDATE_TARGET',
922: p_token_name => 'INFO',
923: p_token_value => 'Xml_Element') ;
924: RAISE FND_API.G_EXC_ERROR;
925: END IF;
926: -- Debug Message
927: IF (AMS_DEBUG_HIGH_ON) THEN
928:
932: */
933:
934:
935: If (l_tar_xml_element_rec.object_version_number is NULL or
936: l_tar_xml_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
937: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
938: p_token_name => 'COLUMN',
939: p_token_value => 'Last_Update_Date') ;
940: raise FND_API.G_EXC_ERROR;
936: l_tar_xml_element_rec.object_version_number = FND_API.G_MISS_NUM ) Then
937: AMS_Utility_PVT.Error_Message(p_message_name => 'API_VERSION_MISSING',
938: p_token_name => 'COLUMN',
939: p_token_value => 'Last_Update_Date') ;
940: raise FND_API.G_EXC_ERROR;
941: End if;
942: -- Check Whether record has been changed by someone else
943: If (l_tar_xml_element_rec.object_version_number <> l_ref_xml_element_rec.object_version_number) Then
944: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
943: If (l_tar_xml_element_rec.object_version_number <> l_ref_xml_element_rec.object_version_number) Then
944: AMS_Utility_PVT.Error_Message(p_message_name => 'API_RECORD_CHANGED',
945: p_token_name => 'INFO',
946: p_token_value => 'Xml_Element') ;
947: raise FND_API.G_EXC_ERROR;
948: End if;
949: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
950: THEN
951: -- Debug message
945: p_token_name => 'INFO',
946: p_token_value => 'Xml_Element') ;
947: raise FND_API.G_EXC_ERROR;
948: End if;
949: IF ( P_validation_level >= FND_API.G_VALID_LEVEL_FULL)
950: THEN
951: -- Debug message
952: IF (AMS_DEBUG_HIGH_ON) THEN
953:
956:
957: -- Invoke validation procedures
958: Validate_xml_element(
959: p_api_version_number => 1.0,
960: p_init_msg_list => FND_API.G_FALSE,
961: p_validation_level => p_validation_level,
962: p_validation_mode => JTF_PLSQL_API.g_update,
963: p_xml_element_rec => p_xml_element_rec,
964: x_return_status => x_return_status,
965: x_msg_count => x_msg_count,
966: x_msg_data => x_msg_data);
967: END IF;
968:
969: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972:
973:
966: x_msg_data => x_msg_data);
967: END IF;
968:
969: IF x_return_status<>FND_API.G_RET_STS_SUCCESS THEN
970: RAISE FND_API.G_EXC_ERROR;
971: END IF;
972:
973:
974: -- Debug Message
1010: FETCH c_get_Xml_Element INTO l_ref_xml_element_rec;
1011: CLOSE c_get_Xml_Element;
1012:
1013: IF l_ref_xml_element_rec.data IS NULL THEN
1014: l_ref_xml_element_rec.data := FND_API.g_miss_char;
1015: END IF;
1016:
1017: --write_msg ('test1::id::' || l_ref_xml_element_rec.imp_xml_element_id
1018: -- || ' p data::' || p_xml_element_rec.data || ' ref data::' || l_ref_xml_element_rec.data);
1040: -- x_return_status => l_return_status,
1041: -- x_msg_count => l_msg_count,
1042: -- x_msg_data => l_msg_data,
1043: -- p_xml_element_rec => l_ref_xml_element_rec);
1044: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1047: ELSIF l_import_type.IMPORT_TYPE IS NOT NULL AND
1048: UPPER (l_import_type.IMPORT_TYPE) = 'B2C' THEN
1041: -- x_msg_count => l_msg_count,
1042: -- x_msg_data => l_msg_data,
1043: -- p_xml_element_rec => l_ref_xml_element_rec);
1044: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1045: RAISE FND_API.G_EXC_ERROR;
1046: END IF;
1047: ELSIF l_import_type.IMPORT_TYPE IS NOT NULL AND
1048: UPPER (l_import_type.IMPORT_TYPE) = 'B2C' THEN
1049: --Update_B2C_Xml_Source_lines (
1050: -- x_return_status => l_return_status,
1051: -- x_msg_count => l_msg_count,
1052: -- x_msg_data => l_msg_data,
1053: -- p_xml_element_rec => l_ref_xml_element_rec);
1054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1055: RAISE FND_API.G_EXC_ERROR;
1056: END IF;
1057: END IF;
1058: END IF;
1051: -- x_msg_count => l_msg_count,
1052: -- x_msg_data => l_msg_data,
1053: -- p_xml_element_rec => l_ref_xml_element_rec);
1054: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1055: RAISE FND_API.G_EXC_ERROR;
1056: END IF;
1057: END IF;
1058: END IF;
1059:
1061: -- End of API body.
1062: --
1063:
1064: -- Standard check for p_commit
1065: IF FND_API.to_Boolean( p_commit )
1066: THEN
1067: COMMIT WORK;
1068: END IF;
1069:
1080: );
1081: EXCEPTION
1082:
1083: WHEN AMS_Utility_PVT.resource_locked THEN
1084: x_return_status := FND_API.g_ret_sts_error;
1085: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1086:
1087: WHEN FND_API.G_EXC_ERROR THEN
1088: ROLLBACK TO UPDATE_Xml_Element_PVT;
1083: WHEN AMS_Utility_PVT.resource_locked THEN
1084: x_return_status := FND_API.g_ret_sts_error;
1085: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1086:
1087: WHEN FND_API.G_EXC_ERROR THEN
1088: ROLLBACK TO UPDATE_Xml_Element_PVT;
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: IF (AMS_DEBUG_HIGH_ON) THEN
1091:
1085: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1086:
1087: WHEN FND_API.G_EXC_ERROR THEN
1088: ROLLBACK TO UPDATE_Xml_Element_PVT;
1089: x_return_status := FND_API.G_RET_STS_ERROR;
1090: IF (AMS_DEBUG_HIGH_ON) THEN
1091:
1092: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_ERROR');
1093: END IF;
1092: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_ERROR');
1093: END IF;
1094: -- Standard call to get message count and if count=1, get the message
1095: FND_MSG_PUB.Count_And_Get (
1096: p_encoded => FND_API.G_FALSE,
1097: p_count => x_msg_count,
1098: p_data => x_msg_data
1099: );
1100:
1097: p_count => x_msg_count,
1098: p_data => x_msg_data
1099: );
1100:
1101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1102: ROLLBACK TO UPDATE_Xml_Element_PVT;
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104: IF (AMS_DEBUG_HIGH_ON) THEN
1105:
1099: );
1100:
1101: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1102: ROLLBACK TO UPDATE_Xml_Element_PVT;
1103: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1104: IF (AMS_DEBUG_HIGH_ON) THEN
1105:
1106: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_UNEXPECTED_ERROR');
1107: END IF;
1106: AMS_UTILITY_PVT.debug_message('Private API: Exception G_EXC_UNEXPECTED_ERROR');
1107: END IF;
1108: -- Standard call to get message count and if count=1, get the message
1109: FND_MSG_PUB.Count_And_Get (
1110: p_encoded => FND_API.G_FALSE,
1111: p_count => x_msg_count,
1112: p_data => x_msg_data
1113: );
1114:
1113: );
1114:
1115: WHEN OTHERS THEN
1116: ROLLBACK TO UPDATE_Xml_Element_PVT;
1117: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1118: IF (AMS_DEBUG_HIGH_ON) THEN
1119:
1120: AMS_UTILITY_PVT.debug_message('Private API: Exception OTHERS');
1121: END IF;
1124: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1125: END IF;
1126: -- Standard call to get message count and if count=1, get the message
1127: FND_MSG_PUB.Count_And_Get (
1128: p_encoded => FND_API.G_FALSE,
1129: p_count => x_msg_count,
1130: p_data => x_msg_data
1131: );
1132: End Update_Xml_Element;
1133:
1134:
1135: PROCEDURE Delete_Xml_Element(
1136: p_api_version_number IN NUMBER,
1137: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1138: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1139: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1140: x_return_status OUT NOCOPY VARCHAR2,
1141: x_msg_count OUT NOCOPY NUMBER,
1134:
1135: PROCEDURE Delete_Xml_Element(
1136: p_api_version_number IN NUMBER,
1137: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1138: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1139: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1140: x_return_status OUT NOCOPY VARCHAR2,
1141: x_msg_count OUT NOCOPY NUMBER,
1142: x_msg_data OUT NOCOPY VARCHAR2,
1135: PROCEDURE Delete_Xml_Element(
1136: p_api_version_number IN NUMBER,
1137: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1138: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1139: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1140: x_return_status OUT NOCOPY VARCHAR2,
1141: x_msg_count OUT NOCOPY NUMBER,
1142: x_msg_data OUT NOCOPY VARCHAR2,
1143: p_imp_xml_element_id IN NUMBER,
1153: -- Standard Start of API savepoint
1154: SAVEPOINT DELETE_Xml_Element_PVT;
1155:
1156: -- Standard call to check for call compatibility.
1157: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1158: p_api_version_number,
1159: l_api_name,
1160: G_PKG_NAME)
1161: THEN
1158: p_api_version_number,
1159: l_api_name,
1160: G_PKG_NAME)
1161: THEN
1162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1163: END IF;
1164:
1165: -- Initialize message list if p_init_msg_list is set to TRUE.
1166: IF FND_API.to_Boolean( p_init_msg_list )
1162: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1163: END IF;
1164:
1165: -- Initialize message list if p_init_msg_list is set to TRUE.
1166: IF FND_API.to_Boolean( p_init_msg_list )
1167: THEN
1168: FND_MSG_PUB.initialize;
1169: END IF;
1170:
1175: END IF;
1176:
1177:
1178: -- Initialize API return status to SUCCESS
1179: x_return_status := FND_API.G_RET_STS_SUCCESS;
1180:
1181: --
1182: -- Api body
1183: --
1194: -- End of API body
1195: --
1196:
1197: -- Standard check for p_commit
1198: IF FND_API.to_Boolean( p_commit )
1199: THEN
1200: COMMIT WORK;
1201: END IF;
1202:
1214: );
1215: EXCEPTION
1216:
1217: WHEN AMS_Utility_PVT.resource_locked THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1219: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1220:
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: ROLLBACK TO DELETE_Xml_Element_PVT;
1217: WHEN AMS_Utility_PVT.resource_locked THEN
1218: x_return_status := FND_API.g_ret_sts_error;
1219: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1220:
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: ROLLBACK TO DELETE_Xml_Element_PVT;
1223: x_return_status := FND_API.G_RET_STS_ERROR;
1224: -- Standard call to get message count and if count=1, get the message
1225: FND_MSG_PUB.Count_And_Get (
1219: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1220:
1221: WHEN FND_API.G_EXC_ERROR THEN
1222: ROLLBACK TO DELETE_Xml_Element_PVT;
1223: x_return_status := FND_API.G_RET_STS_ERROR;
1224: -- Standard call to get message count and if count=1, get the message
1225: FND_MSG_PUB.Count_And_Get (
1226: p_encoded => FND_API.G_FALSE,
1227: p_count => x_msg_count,
1222: ROLLBACK TO DELETE_Xml_Element_PVT;
1223: x_return_status := FND_API.G_RET_STS_ERROR;
1224: -- Standard call to get message count and if count=1, get the message
1225: FND_MSG_PUB.Count_And_Get (
1226: p_encoded => FND_API.G_FALSE,
1227: p_count => x_msg_count,
1228: p_data => x_msg_data
1229: );
1230:
1227: p_count => x_msg_count,
1228: p_data => x_msg_data
1229: );
1230:
1231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1232: ROLLBACK TO DELETE_Xml_Element_PVT;
1233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1234: -- Standard call to get message count and if count=1, get the message
1235: FND_MSG_PUB.Count_And_Get (
1229: );
1230:
1231: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1232: ROLLBACK TO DELETE_Xml_Element_PVT;
1233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1234: -- Standard call to get message count and if count=1, get the message
1235: FND_MSG_PUB.Count_And_Get (
1236: p_encoded => FND_API.G_FALSE,
1237: p_count => x_msg_count,
1232: ROLLBACK TO DELETE_Xml_Element_PVT;
1233: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1234: -- Standard call to get message count and if count=1, get the message
1235: FND_MSG_PUB.Count_And_Get (
1236: p_encoded => FND_API.G_FALSE,
1237: p_count => x_msg_count,
1238: p_data => x_msg_data
1239: );
1240:
1239: );
1240:
1241: WHEN OTHERS THEN
1242: ROLLBACK TO DELETE_Xml_Element_PVT;
1243: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1244: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1245: THEN
1246: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1247: END IF;
1246: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1247: END IF;
1248: -- Standard call to get message count and if count=1, get the message
1249: FND_MSG_PUB.Count_And_Get (
1250: p_encoded => FND_API.G_FALSE,
1251: p_count => x_msg_count,
1252: p_data => x_msg_data
1253: );
1254: End Delete_Xml_Element;
1257:
1258: -- Hint: Primary key needs to be returned.
1259: PROCEDURE Lock_Xml_Element(
1260: p_api_version_number IN NUMBER,
1261: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1262:
1263: x_return_status OUT NOCOPY VARCHAR2,
1264: x_msg_count OUT NOCOPY NUMBER,
1265: x_msg_data OUT NOCOPY VARCHAR2,
1289: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1290: END IF;
1291:
1292: -- Initialize message list if p_init_msg_list is set to TRUE.
1293: IF FND_API.to_Boolean( p_init_msg_list )
1294: THEN
1295: FND_MSG_PUB.initialize;
1296: END IF;
1297:
1295: FND_MSG_PUB.initialize;
1296: END IF;
1297:
1298: -- Standard call to check for call compatibility.
1299: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1300: p_api_version_number,
1301: l_api_name,
1302: G_PKG_NAME)
1303: THEN
1300: p_api_version_number,
1301: l_api_name,
1302: G_PKG_NAME)
1303: THEN
1304: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1305: END IF;
1306:
1307:
1308: -- Initialize API return status to SUCCESS
1305: END IF;
1306:
1307:
1308: -- Initialize API return status to SUCCESS
1309: x_return_status := FND_API.G_RET_STS_SUCCESS;
1310:
1311:
1312: ------------------------ lock -------------------------
1313:
1327: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_error) THEN
1328: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
1329: FND_MSG_PUB.add;
1330: END IF;
1331: RAISE FND_API.g_exc_error;
1332: END IF;
1333:
1334: CLOSE c_Xml_Element;
1335:
1334: CLOSE c_Xml_Element;
1335:
1336: -------------------- finish --------------------------
1337: FND_MSG_PUB.count_and_get(
1338: p_encoded => FND_API.g_false,
1339: p_count => x_msg_count,
1340: p_data => x_msg_data);
1341: IF (AMS_DEBUG_HIGH_ON) THEN
1342:
1344: END IF;
1345: EXCEPTION
1346:
1347: WHEN AMS_Utility_PVT.resource_locked THEN
1348: x_return_status := FND_API.g_ret_sts_error;
1349: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1350:
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: ROLLBACK TO LOCK_Xml_Element_PVT;
1347: WHEN AMS_Utility_PVT.resource_locked THEN
1348: x_return_status := FND_API.g_ret_sts_error;
1349: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1350:
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: ROLLBACK TO LOCK_Xml_Element_PVT;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: -- Standard call to get message count and if count=1, get the message
1355: FND_MSG_PUB.Count_And_Get (
1349: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1350:
1351: WHEN FND_API.G_EXC_ERROR THEN
1352: ROLLBACK TO LOCK_Xml_Element_PVT;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: -- Standard call to get message count and if count=1, get the message
1355: FND_MSG_PUB.Count_And_Get (
1356: p_encoded => FND_API.G_FALSE,
1357: p_count => x_msg_count,
1352: ROLLBACK TO LOCK_Xml_Element_PVT;
1353: x_return_status := FND_API.G_RET_STS_ERROR;
1354: -- Standard call to get message count and if count=1, get the message
1355: FND_MSG_PUB.Count_And_Get (
1356: p_encoded => FND_API.G_FALSE,
1357: p_count => x_msg_count,
1358: p_data => x_msg_data
1359: );
1360:
1357: p_count => x_msg_count,
1358: p_data => x_msg_data
1359: );
1360:
1361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1362: ROLLBACK TO LOCK_Xml_Element_PVT;
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: -- Standard call to get message count and if count=1, get the message
1365: FND_MSG_PUB.Count_And_Get (
1359: );
1360:
1361: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1362: ROLLBACK TO LOCK_Xml_Element_PVT;
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: -- Standard call to get message count and if count=1, get the message
1365: FND_MSG_PUB.Count_And_Get (
1366: p_encoded => FND_API.G_FALSE,
1367: p_count => x_msg_count,
1362: ROLLBACK TO LOCK_Xml_Element_PVT;
1363: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1364: -- Standard call to get message count and if count=1, get the message
1365: FND_MSG_PUB.Count_And_Get (
1366: p_encoded => FND_API.G_FALSE,
1367: p_count => x_msg_count,
1368: p_data => x_msg_data
1369: );
1370:
1369: );
1370:
1371: WHEN OTHERS THEN
1372: ROLLBACK TO LOCK_Xml_Element_PVT;
1373: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1374: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1375: THEN
1376: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1377: END IF;
1376: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1377: END IF;
1378: -- Standard call to get message count and if count=1, get the message
1379: FND_MSG_PUB.Count_And_Get (
1380: p_encoded => FND_API.G_FALSE,
1381: p_count => x_msg_count,
1382: p_data => x_msg_data
1383: );
1384: End Lock_Xml_Element;
1388: p_xml_element_rec IN xml_element_rec_type,
1389: p_validation_mode IN VARCHAR2 := JTF_PLSQL_API.g_create,
1390: x_return_status OUT NOCOPY VARCHAR2)
1391: IS
1392: l_valid_flag VARCHAR2(1) := FND_API.g_true;
1393:
1394: BEGIN
1395: x_return_status := FND_API.g_ret_sts_success;
1396: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1391: IS
1392: l_valid_flag VARCHAR2(1) := FND_API.g_true;
1393:
1394: BEGIN
1395: x_return_status := FND_API.g_ret_sts_success;
1396: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1397: l_valid_flag := AMS_Utility_PVT.check_uniqueness(
1398: 'AMS_IMP_XML_ELEMENTS',
1399: 'IMP_XML_ELEMENT_ID = ''' || p_xml_element_rec.IMP_XML_ELEMENT_ID ||''''
1405: -- ''' AND IMP_XML_ELEMENT_ID <> ' || p_xml_element_rec.IMP_XML_ELEMENT_ID
1406: -- );
1407: END IF;
1408:
1409: IF l_valid_flag = FND_API.g_false THEN
1410: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMP_XML_ELEMENT_ID_DUPLICATE');
1411: x_return_status := FND_API.g_ret_sts_error;
1412: RETURN;
1413: END IF;
1407: END IF;
1408:
1409: IF l_valid_flag = FND_API.g_false THEN
1410: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_IMP_XML_ELEMENT_ID_DUPLICATE');
1411: x_return_status := FND_API.g_ret_sts_error;
1412: RETURN;
1413: END IF;
1414:
1415: END check_xml_element_uk_items;
1420: x_return_status OUT NOCOPY VARCHAR2
1421: )
1422: IS
1423: BEGIN
1424: x_return_status := FND_API.g_ret_sts_success;
1425:
1426: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1427:
1428:
1425:
1426: IF p_validation_mode = JTF_PLSQL_API.g_create THEN
1427:
1428:
1429: IF p_xml_element_rec.imp_xml_element_id = FND_API.g_miss_num OR p_xml_element_rec.imp_xml_element_id IS NULL THEN
1430: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1431: FND_MESSAGE.set_token('MISS_FIELD','IMP_XML_ELEMENT_ID');
1432: x_return_status := FND_API.g_ret_sts_error;
1433: RETURN;
1428:
1429: IF p_xml_element_rec.imp_xml_element_id = FND_API.g_miss_num OR p_xml_element_rec.imp_xml_element_id IS NULL THEN
1430: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1431: FND_MESSAGE.set_token('MISS_FIELD','IMP_XML_ELEMENT_ID');
1432: x_return_status := FND_API.g_ret_sts_error;
1433: RETURN;
1434: END IF;
1435:
1436:
1433: RETURN;
1434: END IF;
1435:
1436:
1437: IF p_xml_element_rec.last_updated_by = FND_API.g_miss_num OR p_xml_element_rec.last_updated_by IS NULL THEN
1438: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1439: FND_MESSAGE.set_token('MISS_FIELD','LAST_UPDATED_BY');
1440: x_return_status := FND_API.g_ret_sts_error;
1441: RETURN;
1436:
1437: IF p_xml_element_rec.last_updated_by = FND_API.g_miss_num OR p_xml_element_rec.last_updated_by IS NULL THEN
1438: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1439: FND_MESSAGE.set_token('MISS_FIELD','LAST_UPDATED_BY');
1440: x_return_status := FND_API.g_ret_sts_error;
1441: RETURN;
1442: END IF;
1443:
1444:
1441: RETURN;
1442: END IF;
1443:
1444:
1445: IF p_xml_element_rec.created_by = FND_API.g_miss_num OR p_xml_element_rec.created_by IS NULL THEN
1446: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1447: FND_MESSAGE.set_token('MISS_FIELD','CREATED_BY');
1448: x_return_status := FND_API.g_ret_sts_error;
1449: RETURN;
1444:
1445: IF p_xml_element_rec.created_by = FND_API.g_miss_num OR p_xml_element_rec.created_by IS NULL THEN
1446: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1447: FND_MESSAGE.set_token('MISS_FIELD','CREATED_BY');
1448: x_return_status := FND_API.g_ret_sts_error;
1449: RETURN;
1450: END IF;
1451:
1452:
1449: RETURN;
1450: END IF;
1451:
1452:
1453: IF p_xml_element_rec.last_update_login = FND_API.g_miss_num OR p_xml_element_rec.last_update_login IS NULL THEN
1454: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1455: FND_MESSAGE.set_token('MISS_FIELD','LAST_UPDATE_LOGIN');
1456: x_return_status := FND_API.g_ret_sts_error;
1457: RETURN;
1452:
1453: IF p_xml_element_rec.last_update_login = FND_API.g_miss_num OR p_xml_element_rec.last_update_login IS NULL THEN
1454: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1455: FND_MESSAGE.set_token('MISS_FIELD','LAST_UPDATE_LOGIN');
1456: x_return_status := FND_API.g_ret_sts_error;
1457: RETURN;
1458: END IF;
1459:
1460:
1457: RETURN;
1458: END IF;
1459:
1460:
1461: IF p_xml_element_rec.last_update_date = FND_API.g_miss_date OR p_xml_element_rec.last_update_date IS NULL THEN
1462: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1463: FND_MESSAGE.set_token('MISS_FIELD','LAST_UPDATE_DATE');
1464: x_return_status := FND_API.g_ret_sts_error;
1465: RETURN;
1460:
1461: IF p_xml_element_rec.last_update_date = FND_API.g_miss_date OR p_xml_element_rec.last_update_date IS NULL THEN
1462: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1463: FND_MESSAGE.set_token('MISS_FIELD','LAST_UPDATE_DATE');
1464: x_return_status := FND_API.g_ret_sts_error;
1465: RETURN;
1466: END IF;
1467:
1468:
1465: RETURN;
1466: END IF;
1467:
1468:
1469: IF p_xml_element_rec.creation_date = FND_API.g_miss_date OR p_xml_element_rec.creation_date IS NULL THEN
1470: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1471: FND_MESSAGE.set_token('MISS_FIELD','CREATION_DATE');
1472: x_return_status := FND_API.g_ret_sts_error;
1473: RETURN;
1468:
1469: IF p_xml_element_rec.creation_date = FND_API.g_miss_date OR p_xml_element_rec.creation_date IS NULL THEN
1470: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1471: FND_MESSAGE.set_token('MISS_FIELD','CREATION_DATE');
1472: x_return_status := FND_API.g_ret_sts_error;
1473: RETURN;
1474: END IF;
1475:
1476:
1473: RETURN;
1474: END IF;
1475:
1476:
1477: IF p_xml_element_rec.imp_xml_document_id = FND_API.g_miss_num OR p_xml_element_rec.imp_xml_document_id IS NULL THEN
1478: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1479: FND_MESSAGE.set_token('MISS_FIELD','IMP_XML_DOCUMENT_ID');
1480: x_return_status := FND_API.g_ret_sts_error;
1481: RETURN;
1476:
1477: IF p_xml_element_rec.imp_xml_document_id = FND_API.g_miss_num OR p_xml_element_rec.imp_xml_document_id IS NULL THEN
1478: FND_MESSAGE.set_name('AMS', 'AMS_API_MISSING_FIELD');
1479: FND_MESSAGE.set_token('MISS_FIELD','IMP_XML_DOCUMENT_ID');
1480: x_return_status := FND_API.g_ret_sts_error;
1481: RETURN;
1482: END IF;
1483: ELSE
1484:
1484:
1485:
1486: IF p_xml_element_rec.imp_xml_element_id IS NULL THEN
1487: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_imp_xml_element_id');
1488: x_return_status := FND_API.g_ret_sts_error;
1489: RETURN;
1490: END IF;
1491:
1492:
1491:
1492:
1493: IF p_xml_element_rec.last_updated_by IS NULL THEN
1494: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_last_updated_by');
1495: x_return_status := FND_API.g_ret_sts_error;
1496: RETURN;
1497: END IF;
1498:
1499:
1498:
1499:
1500: IF p_xml_element_rec.created_by IS NULL THEN
1501: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_created_by');
1502: x_return_status := FND_API.g_ret_sts_error;
1503: RETURN;
1504: END IF;
1505:
1506:
1505:
1506:
1507: IF p_xml_element_rec.last_update_login IS NULL THEN
1508: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_last_update_login');
1509: x_return_status := FND_API.g_ret_sts_error;
1510: RETURN;
1511: END IF;
1512:
1513:
1512:
1513:
1514: IF p_xml_element_rec.last_update_date IS NULL THEN
1515: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_last_update_date');
1516: x_return_status := FND_API.g_ret_sts_error;
1517: RETURN;
1518: END IF;
1519:
1520:
1519:
1520:
1521: IF p_xml_element_rec.creation_date IS NULL THEN
1522: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_creation_date');
1523: x_return_status := FND_API.g_ret_sts_error;
1524: RETURN;
1525: END IF;
1526:
1527:
1526:
1527:
1528: IF p_xml_element_rec.imp_xml_document_id IS NULL THEN
1529: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_xml_element_NO_imp_xml_document_id');
1530: x_return_status := FND_API.g_ret_sts_error;
1531: RETURN;
1532: END IF;
1533: END IF;
1534:
1539: x_return_status OUT NOCOPY VARCHAR2
1540: )
1541: IS
1542: BEGIN
1543: x_return_status := FND_API.g_ret_sts_success;
1544:
1545: -- Enter custom code here
1546:
1547: END check_xml_element_FK_items;
1551: x_return_status OUT NOCOPY VARCHAR2
1552: )
1553: IS
1554: BEGIN
1555: x_return_status := FND_API.g_ret_sts_success;
1556:
1557: -- Enter custom code here
1558:
1559: END check_xml_element_Lookup_items;
1571: check_xml_element_uk_items(
1572: p_xml_element_rec => p_xml_element_rec,
1573: p_validation_mode => p_validation_mode,
1574: x_return_status => x_return_status);
1575: IF x_return_status <> FND_API.g_ret_sts_success THEN
1576: RETURN;
1577: END IF;
1578:
1579: -- Check Items Required/NOT NULL API calls
1581: check_xml_element_req_items(
1582: p_xml_element_rec => p_xml_element_rec,
1583: p_validation_mode => p_validation_mode,
1584: x_return_status => x_return_status);
1585: IF x_return_status <> FND_API.g_ret_sts_success THEN
1586: RETURN;
1587: END IF;
1588: -- Check Items Foreign Keys API calls
1589:
1589:
1590: check_xml_element_FK_items(
1591: p_xml_element_rec => p_xml_element_rec,
1592: x_return_status => x_return_status);
1593: IF x_return_status <> FND_API.g_ret_sts_success THEN
1594: RETURN;
1595: END IF;
1596: -- Check Items Lookups
1597:
1597:
1598: check_xml_element_Lookup_items(
1599: p_xml_element_rec => p_xml_element_rec,
1600: x_return_status => x_return_status);
1601: IF x_return_status <> FND_API.g_ret_sts_success THEN
1602: RETURN;
1603: END IF;
1604:
1605: END Check_xml_element_Items;
1625: FETCH c_complete INTO l_xml_element_rec;
1626: CLOSE c_complete;
1627:
1628: -- imp_xml_element_id
1629: IF p_xml_element_rec.imp_xml_element_id = FND_API.g_miss_num THEN
1630: x_complete_rec.imp_xml_element_id := l_xml_element_rec.imp_xml_element_id;
1631: END IF;
1632:
1633: -- last_updated_by
1630: x_complete_rec.imp_xml_element_id := l_xml_element_rec.imp_xml_element_id;
1631: END IF;
1632:
1633: -- last_updated_by
1634: IF p_xml_element_rec.last_updated_by = FND_API.g_miss_num THEN
1635: x_complete_rec.last_updated_by := l_xml_element_rec.last_updated_by;
1636: END IF;
1637:
1638: -- object_version_number
1635: x_complete_rec.last_updated_by := l_xml_element_rec.last_updated_by;
1636: END IF;
1637:
1638: -- object_version_number
1639: IF p_xml_element_rec.object_version_number = FND_API.g_miss_num THEN
1640: x_complete_rec.object_version_number := l_xml_element_rec.object_version_number;
1641: END IF;
1642:
1643: -- created_by
1640: x_complete_rec.object_version_number := l_xml_element_rec.object_version_number;
1641: END IF;
1642:
1643: -- created_by
1644: IF p_xml_element_rec.created_by = FND_API.g_miss_num THEN
1645: x_complete_rec.created_by := l_xml_element_rec.created_by;
1646: END IF;
1647:
1648: -- last_update_login
1645: x_complete_rec.created_by := l_xml_element_rec.created_by;
1646: END IF;
1647:
1648: -- last_update_login
1649: IF p_xml_element_rec.last_update_login = FND_API.g_miss_num THEN
1650: x_complete_rec.last_update_login := l_xml_element_rec.last_update_login;
1651: END IF;
1652:
1653: -- last_update_date
1650: x_complete_rec.last_update_login := l_xml_element_rec.last_update_login;
1651: END IF;
1652:
1653: -- last_update_date
1654: IF p_xml_element_rec.last_update_date = FND_API.g_miss_date THEN
1655: x_complete_rec.last_update_date := l_xml_element_rec.last_update_date;
1656: END IF;
1657:
1658: -- creation_date
1655: x_complete_rec.last_update_date := l_xml_element_rec.last_update_date;
1656: END IF;
1657:
1658: -- creation_date
1659: IF p_xml_element_rec.creation_date = FND_API.g_miss_date THEN
1660: x_complete_rec.creation_date := l_xml_element_rec.creation_date;
1661: END IF;
1662:
1663: -- imp_xml_document_id
1660: x_complete_rec.creation_date := l_xml_element_rec.creation_date;
1661: END IF;
1662:
1663: -- imp_xml_document_id
1664: IF p_xml_element_rec.imp_xml_document_id = FND_API.g_miss_num THEN
1665: x_complete_rec.imp_xml_document_id := l_xml_element_rec.imp_xml_document_id;
1666: END IF;
1667:
1668: -- order_initial
1665: x_complete_rec.imp_xml_document_id := l_xml_element_rec.imp_xml_document_id;
1666: END IF;
1667:
1668: -- order_initial
1669: IF p_xml_element_rec.order_initial = FND_API.g_miss_num THEN
1670: x_complete_rec.order_initial := l_xml_element_rec.order_initial;
1671: END IF;
1672:
1673: -- order_final
1670: x_complete_rec.order_initial := l_xml_element_rec.order_initial;
1671: END IF;
1672:
1673: -- order_final
1674: IF p_xml_element_rec.order_final = FND_API.g_miss_num THEN
1675: x_complete_rec.order_final := l_xml_element_rec.order_final;
1676: END IF;
1677:
1678: -- column_name
1675: x_complete_rec.order_final := l_xml_element_rec.order_final;
1676: END IF;
1677:
1678: -- column_name
1679: IF p_xml_element_rec.column_name = FND_API.g_miss_char THEN
1680: x_complete_rec.column_name := l_xml_element_rec.column_name;
1681: END IF;
1682:
1683: -- data
1680: x_complete_rec.column_name := l_xml_element_rec.column_name;
1681: END IF;
1682:
1683: -- data
1684: IF p_xml_element_rec.data = FND_API.g_miss_char THEN
1685: x_complete_rec.data := l_xml_element_rec.data;
1686: END IF;
1687:
1688: -- num_attr
1685: x_complete_rec.data := l_xml_element_rec.data;
1686: END IF;
1687:
1688: -- num_attr
1689: IF p_xml_element_rec.num_attr = FND_API.g_miss_num THEN
1690: x_complete_rec.num_attr := l_xml_element_rec.num_attr;
1691: END IF;
1692:
1693: -- data_type
1690: x_complete_rec.num_attr := l_xml_element_rec.num_attr;
1691: END IF;
1692:
1693: -- data_type
1694: IF p_xml_element_rec.data_type = FND_API.g_miss_char THEN
1695: x_complete_rec.data_type := l_xml_element_rec.data_type;
1696: END IF;
1697:
1698: -- load_status
1695: x_complete_rec.data_type := l_xml_element_rec.data_type;
1696: END IF;
1697:
1698: -- load_status
1699: IF p_xml_element_rec.load_status = FND_API.g_miss_char THEN
1700: x_complete_rec.load_status := l_xml_element_rec.load_status;
1701: END IF;
1702:
1703: -- error_text
1700: x_complete_rec.load_status := l_xml_element_rec.load_status;
1701: END IF;
1702:
1703: -- error_text
1704: IF p_xml_element_rec.error_text = FND_API.g_miss_char THEN
1705: x_complete_rec.error_text := l_xml_element_rec.error_text;
1706: END IF;
1707: -- Note: Developers need to modify the procedure
1708: -- to handle any business specific requirements.
1709: END Complete_xml_element_Rec;
1710:
1711: PROCEDURE Validate_xml_element(
1712: p_api_version_number IN NUMBER,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1714: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1715: p_xml_element_rec IN xml_element_rec_type,
1716: p_validation_mode IN VARCHAR2,
1717: x_return_status OUT NOCOPY VARCHAR2,
1710:
1711: PROCEDURE Validate_xml_element(
1712: p_api_version_number IN NUMBER,
1713: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1714: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
1715: p_xml_element_rec IN xml_element_rec_type,
1716: p_validation_mode IN VARCHAR2,
1717: x_return_status OUT NOCOPY VARCHAR2,
1718: x_msg_count OUT NOCOPY NUMBER,
1728: -- Standard Start of API savepoint
1729: SAVEPOINT VALIDATE_Xml_Element_;
1730:
1731: -- Standard call to check for call compatibility.
1732: IF NOT FND_API.Compatible_API_Call ( l_api_version_number,
1733: p_api_version_number,
1734: l_api_name,
1735: G_PKG_NAME)
1736: THEN
1733: p_api_version_number,
1734: l_api_name,
1735: G_PKG_NAME)
1736: THEN
1737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1738: END IF;
1739:
1740: -- Initialize message list if p_init_msg_list is set to TRUE.
1741: IF FND_API.to_Boolean( p_init_msg_list )
1737: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1738: END IF;
1739:
1740: -- Initialize message list if p_init_msg_list is set to TRUE.
1741: IF FND_API.to_Boolean( p_init_msg_list )
1742: THEN
1743: FND_MSG_PUB.initialize;
1744: END IF;
1745: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1748: p_validation_mode => p_validation_mode,
1749: x_return_status => x_return_status
1750: );
1751:
1752: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1749: x_return_status => x_return_status
1750: );
1751:
1752: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1757: END IF;
1750: );
1751:
1752: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1757: END IF;
1758:
1751:
1752: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1753: RAISE FND_API.G_EXC_ERROR;
1754: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1755: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1756: END IF;
1757: END IF;
1758:
1759: Complete_xml_element_Rec(
1764: /****
1765: IF p_validation_level >= JTF_PLSQL_API.g_valid_level_item THEN
1766: Validate_xml_element_Rec(
1767: p_api_version_number => 1.0,
1768: p_init_msg_list => FND_API.G_FALSE,
1769: x_return_status => x_return_status,
1770: x_msg_count => x_msg_count,
1771: x_msg_data => x_msg_data,
1772: p_xml_element_rec => l_xml_element_rec);
1770: x_msg_count => x_msg_count,
1771: x_msg_data => x_msg_data,
1772: p_xml_element_rec => l_xml_element_rec);
1773:
1774: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1775: RAISE FND_API.G_EXC_ERROR;
1776: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1771: x_msg_data => x_msg_data,
1772: p_xml_element_rec => l_xml_element_rec);
1773:
1774: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1775: RAISE FND_API.G_EXC_ERROR;
1776: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1779: END IF;
1772: p_xml_element_rec => l_xml_element_rec);
1773:
1774: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1775: RAISE FND_API.G_EXC_ERROR;
1776: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1779: END IF;
1780: ****/
1773:
1774: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
1775: RAISE FND_API.G_EXC_ERROR;
1776: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1778: END IF;
1779: END IF;
1780: ****/
1781:
1785: AMS_UTILITY_PVT.debug_message('Private API: ' || l_api_name || 'start');
1786: END IF;
1787:
1788: -- Initialize API return status to SUCCESS
1789: x_return_status := FND_API.G_RET_STS_SUCCESS;
1790:
1791:
1792: -- Debug Message
1793: IF (AMS_DEBUG_HIGH_ON) THEN
1802: );
1803: EXCEPTION
1804:
1805: WHEN AMS_Utility_PVT.resource_locked THEN
1806: x_return_status := FND_API.g_ret_sts_error;
1807: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: ROLLBACK TO VALIDATE_Xml_Element_;
1805: WHEN AMS_Utility_PVT.resource_locked THEN
1806: x_return_status := FND_API.g_ret_sts_error;
1807: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: ROLLBACK TO VALIDATE_Xml_Element_;
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: -- Standard call to get message count and if count=1, get the message
1813: FND_MSG_PUB.Count_And_Get (
1807: AMS_Utility_PVT.Error_Message(p_message_name => 'AMS_API_RESOURCE_LOCKED');
1808:
1809: WHEN FND_API.G_EXC_ERROR THEN
1810: ROLLBACK TO VALIDATE_Xml_Element_;
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: -- Standard call to get message count and if count=1, get the message
1813: FND_MSG_PUB.Count_And_Get (
1814: p_encoded => FND_API.G_FALSE,
1815: p_count => x_msg_count,
1810: ROLLBACK TO VALIDATE_Xml_Element_;
1811: x_return_status := FND_API.G_RET_STS_ERROR;
1812: -- Standard call to get message count and if count=1, get the message
1813: FND_MSG_PUB.Count_And_Get (
1814: p_encoded => FND_API.G_FALSE,
1815: p_count => x_msg_count,
1816: p_data => x_msg_data
1817: );
1818:
1815: p_count => x_msg_count,
1816: p_data => x_msg_data
1817: );
1818:
1819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1820: ROLLBACK TO VALIDATE_Xml_Element_;
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1822: -- Standard call to get message count and if count=1, get the message
1823: FND_MSG_PUB.Count_And_Get (
1817: );
1818:
1819: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1820: ROLLBACK TO VALIDATE_Xml_Element_;
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1822: -- Standard call to get message count and if count=1, get the message
1823: FND_MSG_PUB.Count_And_Get (
1824: p_encoded => FND_API.G_FALSE,
1825: p_count => x_msg_count,
1820: ROLLBACK TO VALIDATE_Xml_Element_;
1821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1822: -- Standard call to get message count and if count=1, get the message
1823: FND_MSG_PUB.Count_And_Get (
1824: p_encoded => FND_API.G_FALSE,
1825: p_count => x_msg_count,
1826: p_data => x_msg_data
1827: );
1828:
1827: );
1828:
1829: WHEN OTHERS THEN
1830: ROLLBACK TO VALIDATE_Xml_Element_;
1831: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1832: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
1833: THEN
1834: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1835: END IF;
1834: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1835: END IF;
1836: -- Standard call to get message count and if count=1, get the message
1837: FND_MSG_PUB.Count_And_Get (
1838: p_encoded => FND_API.G_FALSE,
1839: p_count => x_msg_count,
1840: p_data => x_msg_data
1841: );
1842: End Validate_Xml_Element;
1843:
1844:
1845: PROCEDURE Validate_xml_element_rec(
1846: p_api_version_number IN NUMBER,
1847: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1848: x_return_status OUT NOCOPY VARCHAR2,
1849: x_msg_count OUT NOCOPY NUMBER,
1850: x_msg_data OUT NOCOPY VARCHAR2,
1851: p_xml_element_rec IN xml_element_rec_type
1852: )
1853: IS
1854: BEGIN
1855: -- Initialize message list if p_init_msg_list is set to TRUE.
1856: IF FND_API.to_Boolean( p_init_msg_list )
1857: THEN
1858: FND_MSG_PUB.initialize;
1859: END IF;
1860:
1858: FND_MSG_PUB.initialize;
1859: END IF;
1860:
1861: -- Initialize API return status to SUCCESS
1862: x_return_status := FND_API.G_RET_STS_SUCCESS;
1863:
1864: -- Hint: Validate data
1865: -- If data not valid
1866: -- THEN
1863:
1864: -- Hint: Validate data
1865: -- If data not valid
1866: -- THEN
1867: -- x_return_status := FND_API.G_RET_STS_ERROR;
1868:
1869: -- Debug Message
1870: IF (AMS_DEBUG_HIGH_ON) THEN
1871: