30:
31: ---------------------------------------------------------
32: PROCEDURE Apply_Automatic_Attachments
33: (
34: p_init_msg_list in varchar2 default fnd_api.g_false,
35: p_entity_code in varchar2,
36: p_entity_id in number,
37: p_is_user_action in varchar2 default 'Y',
38: x_attachment_count out nocopy number,
53: --
54: BEGIN
55:
56: -- Initialize API return status to success
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
59: -- Initialize message list.
60: IF FND_API.to_Boolean(p_init_msg_list) THEN
61: OE_MSG_PUB.initialize;
56: -- Initialize API return status to success
57: x_return_status := FND_API.G_RET_STS_SUCCESS;
58:
59: -- Initialize message list.
60: IF FND_API.to_Boolean(p_init_msg_list) THEN
61: OE_MSG_PUB.initialize;
62: END IF;
63:
64:
87: );
88:
89: END IF;
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
88:
89: END IF;
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
89: END IF;
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
97: -- Add information messages to indicate if automatic attachments
90:
91: IF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
92: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
93: ELSIF x_return_status = FND_API.G_RET_STS_ERROR THEN
94: RAISE FND_API.G_EXC_ERROR;
95: END IF;
96:
97: -- Add information messages to indicate if automatic attachments
98: -- were applied or not if it is a user action
134: , p_data => x_msg_data
135: );
136:
137: EXCEPTION
138: WHEN FND_API.G_EXC_ERROR THEN
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: OE_MSG_PUB.Count_And_Get
141: ( p_count => x_msg_count
142: , p_data => x_msg_data
135: );
136:
137: EXCEPTION
138: WHEN FND_API.G_EXC_ERROR THEN
139: x_return_status := FND_API.G_RET_STS_ERROR;
140: OE_MSG_PUB.Count_And_Get
141: ( p_count => x_msg_count
142: , p_data => x_msg_data
143: );
140: OE_MSG_PUB.Count_And_Get
141: ( p_count => x_msg_count
142: , p_data => x_msg_data
143: );
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: OE_MSG_PUB.Count_And_Get
147: ( p_count => x_msg_count
148: , p_data => x_msg_data
141: ( p_count => x_msg_count
142: , p_data => x_msg_data
143: );
144: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
146: OE_MSG_PUB.Count_And_Get
147: ( p_count => x_msg_count
148: , p_data => x_msg_data
149: );
147: ( p_count => x_msg_count
148: , p_data => x_msg_data
149: );
150: WHEN OTHERS THEN
151: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
152: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
153: THEN
154: OE_MSG_PUB.Add_Exc_Msg
155: ( G_PKG_NAME
179: --
180: BEGIN
181:
182: -- Initialize API return status to success
183: x_return_status := FND_API.G_RET_STS_SUCCESS;
184:
185: l_entity_name := Get_Document_Entity(p_entity_code);
186:
187: IF l_entity_name IS NOT NULL THEN
197:
198: END IF;
199:
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
198: END IF;
199:
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199:
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
200: EXCEPTION
201: WHEN FND_API.G_EXC_ERROR THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
208: THEN
202: x_return_status := FND_API.G_RET_STS_ERROR;
203: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
204: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
205: WHEN OTHERS THEN
206: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
207: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
208: THEN
209: OE_MSG_PUB.Add_Exc_Msg
210: ( G_PKG_NAME
231: l_debug_level CONSTANT NUMBER := oe_debug_pub.g_debug_level;
232: --
233: BEGIN
234:
235: x_return_status := FND_API.G_RET_STS_SUCCESS;
236:
237: l_entity_name := Get_Document_Entity(p_entity_code);
238:
239: IF l_debug_level > 0 THEN
273:
274: END IF;
275:
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN OTHERS THEN
274: END IF;
275:
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
275:
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
276: EXCEPTION
277: WHEN FND_API.G_EXC_ERROR THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
284: THEN
278: x_return_status := FND_API.G_RET_STS_ERROR;
279: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
281: WHEN OTHERS THEN
282: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
283: IF OE_MSG_PUB.Check_Msg_Level(OE_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
284: THEN
285: OE_MSG_PUB.Add_Exc_Msg
286: ( G_PKG_NAME
324: BEGIN
325:
326: l_entity_name := Get_Document_Entity(p_entity_code);
327:
328: if (l_category_id IS NULL or l_category_id = fnd_api.G_MISS_NUM ) then
329: l_category_id := G_DEFAULT_DOC_CATEGORY_ID;
330: end if;
331:
332:
331:
332:
333: -- document ID not passed therfore
334: -- create the short text document and attach to the entity
335: if (l_document_id = fnd_api.G_MISS_NUM OR l_document_id IS NULL) then
336:
337: select (nvl(max(seq_num),0) + 10)
338: into l_seq_num
339: from fnd_attached_documents