44: and fad.entity_name = 'ASN_ATTACH';
45:
46: BEGIN
47:
48: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
48: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
49: FND_MSG_PUB.initialize;
50: END IF;
51:
52: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
53: l_api_name, g_pkg_name)
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
51:
52: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
53: l_api_name, g_pkg_name)
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: x_return_status := FND_API.g_ret_sts_success;
59:
54: THEN
55: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
56: END IF;
57:
58: x_return_status := FND_API.g_ret_sts_success;
59:
60: BEGIN
61: OPEN l_asn_attach_id_cur;
62: FETCH l_asn_attach_id_cur INTO
65:
66: EXCEPTION
67: WHEN OTHERS THEN
68: l_asn_attach_id := 0;
69: X_RETURN_STATUS := FND_API.g_ret_sts_error;
70:
71: IF l_asn_attach_id_cur%ISOPEN THEN
72: CLOSE l_asn_attach_id_cur;
73: END IF;
73: END IF;
74: END;
75:
76:
77: /* If Attachment exist for the line then call FND api to copy attachments. */
78: if (l_asn_attach_id <> 0) then
79:
80: BEGIN
81: fnd_attached_documents2_pkg.copy_attachments(
88:
89:
90: EXCEPTION
91: WHEN OTHERS THEN
92: X_RETURN_STATUS := FND_API.g_ret_sts_error;
93: END;
94:
95: commit;
96:
115:
116: end if; /* end if (l_asn_attach_id <> 0) */
117:
118: EXCEPTION
119: WHEN FND_API.g_exc_error THEN
120: x_return_status := FND_API.g_ret_sts_error;
121: WHEN FND_API.g_exc_unexpected_error THEN
122: x_return_status := FND_API.g_ret_sts_unexp_error;
123: WHEN OTHERS THEN
116: end if; /* end if (l_asn_attach_id <> 0) */
117:
118: EXCEPTION
119: WHEN FND_API.g_exc_error THEN
120: x_return_status := FND_API.g_ret_sts_error;
121: WHEN FND_API.g_exc_unexpected_error THEN
122: x_return_status := FND_API.g_ret_sts_unexp_error;
123: WHEN OTHERS THEN
124: x_return_status := FND_API.g_ret_sts_unexp_error;
117:
118: EXCEPTION
119: WHEN FND_API.g_exc_error THEN
120: x_return_status := FND_API.g_ret_sts_error;
121: WHEN FND_API.g_exc_unexpected_error THEN
122: x_return_status := FND_API.g_ret_sts_unexp_error;
123: WHEN OTHERS THEN
124: x_return_status := FND_API.g_ret_sts_unexp_error;
125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
118: EXCEPTION
119: WHEN FND_API.g_exc_error THEN
120: x_return_status := FND_API.g_ret_sts_error;
121: WHEN FND_API.g_exc_unexpected_error THEN
122: x_return_status := FND_API.g_ret_sts_unexp_error;
123: WHEN OTHERS THEN
124: x_return_status := FND_API.g_ret_sts_unexp_error;
125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
120: x_return_status := FND_API.g_ret_sts_error;
121: WHEN FND_API.g_exc_unexpected_error THEN
122: x_return_status := FND_API.g_ret_sts_unexp_error;
123: WHEN OTHERS THEN
124: x_return_status := FND_API.g_ret_sts_unexp_error;
125: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
126: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
127: IF (g_fnd_debug = 'Y') THEN
128: asn_debug.put_line('Unexpected error '||sqlcode,FND_LOG.level_unexpected);
150:
151:
152: BEGIN
153:
154: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
155: FND_MSG_PUB.initialize;
156: END IF;
157:
158: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
154: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
155: FND_MSG_PUB.initialize;
156: END IF;
157:
158: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
159: l_api_name, g_pkg_name)
160: THEN
161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162: END IF;
157:
158: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
159: l_api_name, g_pkg_name)
160: THEN
161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162: END IF;
163:
164: x_return_status := FND_API.G_RET_STS_SUCCESS;
165:
160: THEN
161: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
162: END IF;
163:
164: x_return_status := FND_API.G_RET_STS_SUCCESS;
165:
166:
167: IF (g_asn_attach_id_tbl.count > 0) THEN
168:
181: p_asn_attach_id => l_asn_attach_id );
182:
183: EXCEPTION
184: WHEN OTHERS THEN
185: X_RETURN_STATUS := FND_API.g_ret_sts_error;
186: END;
187:
188: END IF;
189: END LOOP;
192:
193: commit;
194:
195: EXCEPTION
196: WHEN FND_API.g_exc_error THEN
197: x_return_status := FND_API.g_ret_sts_error;
198: WHEN FND_API.g_exc_unexpected_error THEN
199: x_return_status := FND_API.g_ret_sts_unexp_error;
200: WHEN OTHERS THEN
193: commit;
194:
195: EXCEPTION
196: WHEN FND_API.g_exc_error THEN
197: x_return_status := FND_API.g_ret_sts_error;
198: WHEN FND_API.g_exc_unexpected_error THEN
199: x_return_status := FND_API.g_ret_sts_unexp_error;
200: WHEN OTHERS THEN
201: x_return_status := FND_API.g_ret_sts_unexp_error;
194:
195: EXCEPTION
196: WHEN FND_API.g_exc_error THEN
197: x_return_status := FND_API.g_ret_sts_error;
198: WHEN FND_API.g_exc_unexpected_error THEN
199: x_return_status := FND_API.g_ret_sts_unexp_error;
200: WHEN OTHERS THEN
201: x_return_status := FND_API.g_ret_sts_unexp_error;
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
195: EXCEPTION
196: WHEN FND_API.g_exc_error THEN
197: x_return_status := FND_API.g_ret_sts_error;
198: WHEN FND_API.g_exc_unexpected_error THEN
199: x_return_status := FND_API.g_ret_sts_unexp_error;
200: WHEN OTHERS THEN
201: x_return_status := FND_API.g_ret_sts_unexp_error;
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
197: x_return_status := FND_API.g_ret_sts_error;
198: WHEN FND_API.g_exc_unexpected_error THEN
199: x_return_status := FND_API.g_ret_sts_unexp_error;
200: WHEN OTHERS THEN
201: x_return_status := FND_API.g_ret_sts_unexp_error;
202: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
203: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
204: IF (g_fnd_debug = 'Y') THEN
205: asn_debug.put_line('Unexpected error '||sqlcode,FND_LOG.level_unexpected);
235: AND FD.document_id = FAD.document_id;
236:
237: BEGIN
238:
239: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
240: FND_MSG_PUB.initialize;
241: END IF;
242:
243: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
239: IF fnd_api.to_boolean(P_Init_Msg_List) THEN
240: FND_MSG_PUB.initialize;
241: END IF;
242:
243: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
244: l_api_name, g_pkg_name)
245: THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
242:
243: IF NOT FND_API.Compatible_API_Call(l_api_version, p_api_version,
244: l_api_name, g_pkg_name)
245: THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248:
249: x_return_status := FND_API.G_RET_STS_SUCCESS;
250:
245: THEN
246: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
247: END IF;
248:
249: x_return_status := FND_API.G_RET_STS_SUCCESS;
250:
251: IF (p_asn_attach_id is not null) THEN
252:
253: BEGIN
283: X_delete_document_flag => l_delete_doc_flag);
284:
285: EXCEPTION
286: WHEN OTHERS THEN
287: X_RETURN_STATUS := FND_API.g_ret_sts_error;
288: END;
289:
290: END IF;
291:
289:
290: END IF;
291:
292: EXCEPTION
293: WHEN FND_API.g_exc_error THEN
294: x_return_status := FND_API.g_ret_sts_error;
295: WHEN FND_API.g_exc_unexpected_error THEN
296: x_return_status := FND_API.g_ret_sts_unexp_error;
297: WHEN OTHERS THEN
290: END IF;
291:
292: EXCEPTION
293: WHEN FND_API.g_exc_error THEN
294: x_return_status := FND_API.g_ret_sts_error;
295: WHEN FND_API.g_exc_unexpected_error THEN
296: x_return_status := FND_API.g_ret_sts_unexp_error;
297: WHEN OTHERS THEN
298: x_return_status := FND_API.g_ret_sts_unexp_error;
291:
292: EXCEPTION
293: WHEN FND_API.g_exc_error THEN
294: x_return_status := FND_API.g_ret_sts_error;
295: WHEN FND_API.g_exc_unexpected_error THEN
296: x_return_status := FND_API.g_ret_sts_unexp_error;
297: WHEN OTHERS THEN
298: x_return_status := FND_API.g_ret_sts_unexp_error;
299: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
292: EXCEPTION
293: WHEN FND_API.g_exc_error THEN
294: x_return_status := FND_API.g_ret_sts_error;
295: WHEN FND_API.g_exc_unexpected_error THEN
296: x_return_status := FND_API.g_ret_sts_unexp_error;
297: WHEN OTHERS THEN
298: x_return_status := FND_API.g_ret_sts_unexp_error;
299: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
300: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
294: x_return_status := FND_API.g_ret_sts_error;
295: WHEN FND_API.g_exc_unexpected_error THEN
296: x_return_status := FND_API.g_ret_sts_unexp_error;
297: WHEN OTHERS THEN
298: x_return_status := FND_API.g_ret_sts_unexp_error;
299: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.g_msg_lvl_unexp_error) THEN
300: FND_MSG_PUB.add_exc_msg(g_pkg_name, l_api_name);
301: IF (g_fnd_debug = 'Y') THEN
302: asn_debug.put_line('Unexpected error '||sqlcode,FND_LOG.level_unexpected);