114:
115: -- Initialize message list if p_init_msg_list is set to TRUE.
116: IF FND_API.to_boolean(p_init_msg_list)
117: THEN
118: FND_MSG_PUB.initialize;
119: END IF;
120:
121: --Check application usage code is not null
122: IF g_appln_usage is null
121: --Check application usage code is not null
122: IF g_appln_usage is null
123: THEN
124: FND_MESSAGE.SET_NAME('AHL','AHL_COM_APP_PRFL_UNDEF');
125: FND_MSG_PUB.ADD;
126: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
127: fnd_log.string
128: (
129: fnd_log.level_error,
197:
198: IF mr_details_csr_type%NOTFOUND
199: THEN
200: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_EDIT_STATUS_INVALID');
201: FND_MSG_PUB.ADD;
202: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
203: fnd_log.string
204: (
205: fnd_log.level_error,
214: THEN
215: IF l_mr_rec.type_code='PROGRAM'
216: THEN
217: FND_MESSAGE.SET_NAME('AHL','AHL_FMP_MR_TYPE_CODE_PROGRAM');
218: FND_MSG_PUB.ADD;
219: IF (fnd_log.level_error >= fnd_log.g_current_runtime_level)THEN
220: fnd_log.string
221: (
222: fnd_log.level_error,
325: EXCEPTION
326: WHEN FND_API.G_EXC_ERROR THEN
327: x_return_status := FND_API.G_RET_STS_ERROR;
328: Rollback to process_association_pvt;
329: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
330: p_data => x_msg_data,
331: p_encoded => fnd_api.g_false);
332: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
333: fnd_log.string
341:
342: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
343: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
344: Rollback to process_association_pvt;
345: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
346: p_data => x_msg_data,
347: p_encoded => fnd_api.g_false);
348: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
349: fnd_log.string
356:
357: WHEN OTHERS THEN
358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
359: Rollback to process_association_pvt;
360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
361: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
362: p_procedure_name => 'Process_Doc_Association',
363: p_error_text => SQLERRM);
364: END IF;
357: WHEN OTHERS THEN
358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
359: Rollback to process_association_pvt;
360: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
361: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
362: p_procedure_name => 'Process_Doc_Association',
363: p_error_text => SQLERRM);
364: END IF;
365: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
361: fnd_msg_pub.add_exc_msg(p_pkg_name => G_PKG_NAME,
362: p_procedure_name => 'Process_Doc_Association',
363: p_error_text => SQLERRM);
364: END IF;
365: FND_MSG_PUB.count_and_get( p_count => x_msg_count,
366: p_data => x_msg_data,
367: p_encoded => fnd_api.g_false);
368: IF (fnd_log.level_statement >= fnd_log.g_current_runtime_level)THEN
369: fnd_log.string