45: if (l_count > 0) then
46: -- Trying to update a non-report function.
47: FND_MESSAGE.SET_NAME('BIS','BIS_PD_UNIQUE_PGE_ERR');
48: FND_MSG_PUB.ADD;
49: RAISE FND_API.G_EXC_ERROR;
50: else
51: select lower(application_short_name) into l_app_short_name
52: from fnd_application
53: where application_id = p_application_id;
79:
80: end if;
81:
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR THEN
84:
85: x_return_status := FND_API.G_RET_STS_ERROR;
86:
87: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
81:
82: EXCEPTION
83: WHEN FND_API.G_EXC_ERROR THEN
84:
85: x_return_status := FND_API.G_RET_STS_ERROR;
86:
87: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
88: ,p_data => x_msg_data);
89:
86:
87: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
88: ,p_data => x_msg_data);
89:
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92:
93: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
94: ,p_data => x_msg_data);
87: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
88: ,p_data => x_msg_data);
89:
90: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
91: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
92:
93: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
94: ,p_data => x_msg_data);
95:
94: ,p_data => x_msg_data);
95:
96:
97: WHEN NO_DATA_FOUND THEN
98: x_return_status := FND_API.G_RET_STS_ERROR;
99:
100: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
101: ,p_data => x_msg_data);
102:
101: ,p_data => x_msg_data);
102:
103:
104: WHEN OTHERS THEN
105: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
106:
107:
108: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
109: ,p_data => x_msg_data);
186: if (l_count > 0) then
187: -- Duplicate function name
188: FND_MESSAGE.SET_NAME('BIS','BIS_PD_UNIQUE_PGE_ERR');
189: FND_MSG_PUB.ADD;
190: RAISE FND_API.G_EXC_ERROR;
191: end if;
192:
193: UPDATE fnd_form_functions
194: SET function_name = l_report_function_name
203: x_msg_count => x_msg_count,
204: x_msg_data =>x_msg_data);
205:
206: EXCEPTION
207: WHEN FND_API.G_EXC_ERROR THEN
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: x_msg_data := SQLERRM;
210: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
211: ,p_data => x_msg_data);
204: x_msg_data =>x_msg_data);
205:
206: EXCEPTION
207: WHEN FND_API.G_EXC_ERROR THEN
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: x_msg_data := SQLERRM;
210: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
211: ,p_data => x_msg_data);
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
208: x_return_status := FND_API.G_RET_STS_ERROR;
209: x_msg_data := SQLERRM;
210: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
211: ,p_data => x_msg_data);
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
215: ,p_data => x_msg_data);
216: WHEN NO_DATA_FOUND THEN
209: x_msg_data := SQLERRM;
210: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
211: ,p_data => x_msg_data);
212: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
215: ,p_data => x_msg_data);
216: WHEN NO_DATA_FOUND THEN
217: x_return_status := FND_API.G_RET_STS_ERROR;
213: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
214: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
215: ,p_data => x_msg_data);
216: WHEN NO_DATA_FOUND THEN
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
219: ,p_data => x_msg_data);
220: WHEN OTHERS THEN
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
217: x_return_status := FND_API.G_RET_STS_ERROR;
218: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
219: ,p_data => x_msg_data);
220: WHEN OTHERS THEN
221: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
222: FND_MSG_PUB.Count_And_Get( p_encoded => 'F' ,p_count => x_msg_count
223: ,p_data => x_msg_data);
224: if (x_msg_data is null) then
225: x_msg_data := SQLERRM;