72: --x_document_number
73: -- The document number that would uniquely identify a document in a given organization.
74: --x_return_status
75: -- The standard OUT parameter giving return status of the API call.
76: -- FND_API.G_RET_STS_ERROR - for expected error
77: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
78: -- FND_API.G_RET_STS_SUCCESS - for success
79: --x_msg_count
80: -- The count of number of messages added to the message list in this call
73: -- The document number that would uniquely identify a document in a given organization.
74: --x_return_status
75: -- The standard OUT parameter giving return status of the API call.
76: -- FND_API.G_RET_STS_ERROR - for expected error
77: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
78: -- FND_API.G_RET_STS_SUCCESS - for success
79: --x_msg_count
80: -- The count of number of messages added to the message list in this call
81: --x_msg_data
74: --x_return_status
75: -- The standard OUT parameter giving return status of the API call.
76: -- FND_API.G_RET_STS_ERROR - for expected error
77: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
78: -- FND_API.G_RET_STS_SUCCESS - for success
79: --x_msg_count
80: -- The count of number of messages added to the message list in this call
81: --x_msg_data
82: -- If the count is 1 then x_msg_data contains the message returned
87: --End of Comments
88: -------------------------------------------------------------------------------
89: PROCEDURE create_cpa (
90: p_api_version IN NUMBER,
91: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
92: p_commit IN VARCHAR2 := FND_API.G_FALSE,
93: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
94: x_return_status OUT NOCOPY VARCHAR2,
95: x_msg_count OUT NOCOPY NUMBER,
88: -------------------------------------------------------------------------------
89: PROCEDURE create_cpa (
90: p_api_version IN NUMBER,
91: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
92: p_commit IN VARCHAR2 := FND_API.G_FALSE,
93: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
94: x_return_status OUT NOCOPY VARCHAR2,
95: x_msg_count OUT NOCOPY NUMBER,
96: x_msg_data OUT NOCOPY VARCHAR2,
89: PROCEDURE create_cpa (
90: p_api_version IN NUMBER,
91: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
92: p_commit IN VARCHAR2 := FND_API.G_FALSE,
93: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
94: x_return_status OUT NOCOPY VARCHAR2,
95: x_msg_count OUT NOCOPY NUMBER,
96: x_msg_data OUT NOCOPY VARCHAR2,
97: p_interface_header_id IN PO_HEADERS_INTERFACE.interface_header_id%TYPE,
160: -- Standard Start of API savepoint
161: SAVEPOINT CREATE_CPA_GRP;
162:
163: -- Standard call to check for call compatibility.
164: IF NOT FND_API.compatible_api_call (
165: p_current_version_number => l_api_version,
166: p_caller_version_number => p_api_version,
167: p_api_name => l_api_name,
168: p_pkg_name => g_pkg_name
167: p_api_name => l_api_name,
168: p_pkg_name => g_pkg_name
169: )
170: THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173:
174: -- Initialize message list if p_init_msg_list is set to TRUE.
175: IF FND_API.to_Boolean(p_init_msg_list ) THEN
171: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
172: END IF;
173:
174: -- Initialize message list if p_init_msg_list is set to TRUE.
175: IF FND_API.to_Boolean(p_init_msg_list ) THEN
176: FND_MSG_PUB.initialize;
177: END IF;
178:
179: -- Initialize API return status to success
176: FND_MSG_PUB.initialize;
177: END IF;
178:
179: -- Initialize API return status to success
180: x_return_status := FND_API.G_RET_STS_SUCCESS;
181:
182: l_progress := 'PO_SOURCING_GRP: 002';
183: IF g_debug_stmt THEN
184: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
226: p_value => x_return_status);
227: END IF;
228:
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
232: RAISE FND_API.G_EXC_ERROR;
233: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
227: END IF;
228:
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
232: RAISE FND_API.G_EXC_ERROR;
233: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: END IF;
228:
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
232: RAISE FND_API.G_EXC_ERROR;
233: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: END IF;
236: END IF;
229:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
232: RAISE FND_API.G_EXC_ERROR;
233: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: END IF;
236: END IF;
237:
230: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
231: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
232: RAISE FND_API.G_EXC_ERROR;
233: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
234: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
235: END IF;
236: END IF;
237:
238: --Commit the data if p_commit is passed to the API is true
235: END IF;
236: END IF;
237:
238: --Commit the data if p_commit is passed to the API is true
239: IF p_commit = FND_API.G_TRUE THEN
240: COMMIT;
241: END IF;
242: EXCEPTION
243: WHEN FND_API.G_EXC_ERROR THEN
239: IF p_commit = FND_API.G_TRUE THEN
240: COMMIT;
241: END IF;
242: EXCEPTION
243: WHEN FND_API.G_EXC_ERROR THEN
244: l_progress := 'PO_SOURCING_GRP: 004';
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: IF g_debug_stmt THEN
247: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
241: END IF;
242: EXCEPTION
243: WHEN FND_API.G_EXC_ERROR THEN
244: l_progress := 'PO_SOURCING_GRP: 004';
245: x_return_status := FND_API.G_RET_STS_ERROR;
246: IF g_debug_stmt THEN
247: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
248: p_token => l_progress,
249: p_message => x_msg_data);
251: FND_MSG_PUB.Count_And_Get
252: (p_count => x_msg_count,
253: p_data => x_msg_data );
254: ROLLBACK TO CREATE_CPA_GRP;
255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: l_progress := 'PO_SOURCING_GRP: 005';
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: IF g_debug_unexp THEN
259: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
253: p_data => x_msg_data );
254: ROLLBACK TO CREATE_CPA_GRP;
255: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
256: l_progress := 'PO_SOURCING_GRP: 005';
257: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
258: IF g_debug_unexp THEN
259: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
260: p_token => l_progress,
261: p_message => SQLERRM);
264: ,p_data => x_msg_data);
265: ROLLBACK TO CREATE_CPA_GRP;
266: WHEN OTHERS THEN
267: l_progress := 'PO_SOURCING_GRP: 006';
268: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
269: IF g_debug_unexp THEN
270: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
271: p_token => l_progress,
272: p_message => SQLERRM);
307: -- The id that will be used to uniquely identify a row in the PO_HEADERS_INTERFACE table
308: --OUT:
309: --x_return_status
310: -- The standard OUT parameter giving return status of the API call.
311: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
312: -- FND_API.G_RET_STS_SUCCESS - for success
313: --x_msg_count
314: -- The count of number of messages added to the message list in this call
315: --x_msg_data
308: --OUT:
309: --x_return_status
310: -- The standard OUT parameter giving return status of the API call.
311: -- FND_API.G_RET_STS_UNEXP_ERROR - for unexpected error
312: -- FND_API.G_RET_STS_SUCCESS - for success
313: --x_msg_count
314: -- The count of number of messages added to the message list in this call
315: --x_msg_data
316: -- If the count is 1 then x_msg_data contains the message returned
322: -------------------------------------------------------------------------------
323:
324: PROCEDURE DELETE_INTERFACE_HEADER (
325: p_api_version IN NUMBER,
326: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
329: x_return_status OUT NOCOPY VARCHAR2,
330: x_msg_count OUT NOCOPY NUMBER,
323:
324: PROCEDURE DELETE_INTERFACE_HEADER (
325: p_api_version IN NUMBER,
326: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
329: x_return_status OUT NOCOPY VARCHAR2,
330: x_msg_count OUT NOCOPY NUMBER,
331: x_msg_data OUT NOCOPY VARCHAR2,
324: PROCEDURE DELETE_INTERFACE_HEADER (
325: p_api_version IN NUMBER,
326: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
327: p_commit IN VARCHAR2 := FND_API.G_FALSE,
328: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
329: x_return_status OUT NOCOPY VARCHAR2,
330: x_msg_count OUT NOCOPY NUMBER,
331: x_msg_data OUT NOCOPY VARCHAR2,
332: p_interface_header_id IN PO_HEADERS_INTERFACE.INTERFACE_HEADER_ID%TYPE
337:
338: BEGIN
339: l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 001';
340: -- Standard call to check for call compatibility.
341: IF NOT FND_API.compatible_api_call (
342: p_current_version_number => l_api_version,
343: p_caller_version_number => p_api_version,
344: p_api_name => l_api_name,
345: p_pkg_name => g_pkg_name
344: p_api_name => l_api_name,
345: p_pkg_name => g_pkg_name
346: )
347: THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize message list if p_init_msg_list is set to TRUE.
352: IF FND_API.to_Boolean(p_init_msg_list ) THEN
348: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
349: END IF;
350:
351: -- Initialize message list if p_init_msg_list is set to TRUE.
352: IF FND_API.to_Boolean(p_init_msg_list ) THEN
353: FND_MSG_PUB.initialize;
354: END IF;
355:
356: -- Initialize API return status to success
353: FND_MSG_PUB.initialize;
354: END IF;
355:
356: -- Initialize API return status to success
357: x_return_status := FND_API.G_RET_STS_SUCCESS;
358:
359: l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 002';
360: IF g_debug_stmt THEN
361: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
374: p_token => l_progress,
375: p_message => 'After calling po_sourcing_pvt.delete_interface_header');
376: END IF;
377:
378: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381: END IF;
382: END IF;
375: p_message => 'After calling po_sourcing_pvt.delete_interface_header');
376: END IF;
377:
378: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381: END IF;
382: END IF;
383:
376: END IF;
377:
378: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
379: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
380: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
381: END IF;
382: END IF;
383:
384: EXCEPTION
381: END IF;
382: END IF;
383:
384: EXCEPTION
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 004';
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: IF g_debug_unexp THEN
389: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
383:
384: EXCEPTION
385: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
386: l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 004';
387: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
388: IF g_debug_unexp THEN
389: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
390: p_token => l_progress,
391: p_message => x_msg_data);
393: FND_MSG_PUB.Count_and_Get(p_count => x_msg_count
394: ,p_data => x_msg_data);
395: WHEN OTHERS THEN
396: l_progress := 'PO_SOURCING_GRP.DELETE_INTERFACE_HEADER: 005';
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
398: IF g_debug_unexp THEN
399: PO_DEBUG.debug_stmt(p_log_head => g_log_head||l_api_name,
400: p_token => l_progress,
401: p_message => SQLERRM);