[Home] [Help]
55:
56: -- Initialize message list if p_init_msg_list is set to TRUE
57: IF FND_API.TO_BOOLEAN(p_init_msg_list)
58: THEN
59: FND_MSG_PUB.Initialize;
60: END IF;
61:
62: -- Initialize API return status to success
63: x_return_status := FND_API.G_RET_STS_SUCCESS;
82: IF (p_x_mc_header_rec.config_status_code IS NULL)
83: THEN
84: -- This is a mandatory field, hence throw error
85: FND_MESSAGE.Set_Name('AHL','AHL_MC_STATUS_NULL');
86: FND_MSG_PUB.ADD;
87: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
88: THEN
89: fnd_log.message
90: (
96: ELSIF NOT (AHL_UTIL_MC_PKG.Validate_Lookup_Code('AHL_CONFIG_STATUS', p_x_mc_header_rec.config_status_code))
97: THEN
98: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_STATUS_INVALID');
99: FND_MESSAGE.Set_Token('STATUS', p_x_mc_header_rec.config_status_code);
100: FND_MSG_PUB.ADD;
101: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
102: THEN
103: fnd_log.message
104: (
116: IF (p_x_node_rec.position_ref_meaning IS NULL)
117: THEN
118: -- This is a mandatory field, hence throw error
119: FND_MESSAGE.Set_Name('AHL','AHL_MC_POSREF_NULL');
120: FND_MSG_PUB.ADD;
121: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
122: THEN
123: fnd_log.message
124: (
142: IF (NOT l_ret_val OR (NOT (p_module_type IS NOT NULL AND p_module_type = 'JSP') AND l_lookup_code <> p_x_node_rec.position_ref_code))
143: THEN
144: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_POSREF_INVALID');
145: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
146: FND_MSG_PUB.ADD;
147: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
148: THEN
149: fnd_log.message
150: (
179: IF NOT (l_ret_val)
180: THEN
181: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ATASEQ_INVALID');
182: FND_MESSAGE.Set_Token('ATAMEANING', p_x_node_rec.ata_meaning);
183: FND_MSG_PUB.ADD;
184: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
185: THEN
186: fnd_log.message
187: (
203: IF (p_x_node_rec.position_necessity_code IS NULL)
204: THEN
205: -- This is a mandatory field, hence throw error
206: FND_MESSAGE.Set_Name('AHL','AHL_MC_NECESSITY_NULL');
207: FND_MSG_PUB.ADD;
208: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
209: THEN
210: fnd_log.message
211: (
218: THEN
219: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_NECESSITY_INVALID');
220: FND_MESSAGE.Set_Token('POSREF', p_x_node_rec.position_ref_meaning);
221: FND_MESSAGE.Set_Token('CODE', p_x_node_rec.position_necessity_code);
222: FND_MSG_PUB.ADD;
223: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
224: THEN
225: fnd_log.message
226: (
246: IF (get_item_group_id%NOTFOUND OR (NOT (p_module_type IS NOT NULL AND p_module_type = 'JSP') AND l_resolved_id <> p_x_node_rec.item_group_id))
247: THEN
248: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_ITEMGRP_INVALID');
249: FND_MESSAGE.Set_Token('ITEM_GRP', p_x_node_rec.item_group_name);
250: FND_MSG_PUB.ADD;
251: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
252: THEN
253: fnd_log.message
254: (
283: IF NOT (l_ret_val)
284: THEN
285: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_MODEL_INVALID');
286: FND_MESSAGE.Set_Token('MODEL_MEANING', p_x_mc_header_rec.model_meaning);
287: FND_MSG_PUB.ADD;
288: IF (fnd_log.level_exception >= fnd_log.g_current_runtime_level)
289: THEN
290: fnd_log.message
291: (
300: p_x_mc_header_rec.model_code := null;
301: END IF;
302:
303: -- Check Error Message stack.
304: x_msg_count := FND_MSG_PUB.count_msg;
305: IF x_msg_count > 0 THEN
306: RAISE FND_API.G_EXC_ERROR;
307: END IF;
308: END IF;
315: IF (NVL(p_x_mc_header_rec.version_number, 1) <> 1)
316: THEN
317: FND_MESSAGE.Set_Name('AHL', 'AHL_MC_INV_VERNUM');
318: FND_MESSAGE.Set_Token('MC_NAME', p_x_mc_header_rec.name);
319: FND_MSG_PUB.ADD;
320: END IF;
321: -- Fix for Bug #3523435
322:
323: AHL_MC_MasterConfig_PVT.Create_Master_Config
374: FND_MESSAGE.Set_Token('RECORD', p_x_mc_header_rec.name);
375: ELSE
376: FND_MESSAGE.Set_Token('RECORD', p_x_mc_header_rec.mc_header_id);
377: END IF;
378: FND_MSG_PUB.ADD;
379: RAISE FND_API.G_EXC_ERROR;
380: -- Fix for Bug #3523435
381: END IF;
382:
391: END IF;
392: -- API body ends heres
393:
394: -- Check Error Message stack.
395: x_msg_count := FND_MSG_PUB.count_msg;
396:
397: --priyan
398: --R12 MEL/CDL
399: IF ( x_msg_count > 0 AND l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
406: COMMIT WORK;
407: END IF;
408:
409: -- Standard call to get message count and if count is 1, get message info
410: FND_MSG_PUB.count_and_get
411: (
412: p_count => x_msg_count,
413: p_data => x_msg_data,
414: p_encoded => FND_API.G_FALSE
417: EXCEPTION
418: WHEN FND_API.G_EXC_ERROR THEN
419: x_return_status := FND_API.G_RET_STS_ERROR;
420: Rollback to Process_Master_Config_SP;
421: FND_MSG_PUB.count_and_get
422: (
423: p_count => x_msg_count,
424: p_data => x_msg_data,
425: p_encoded => FND_API.G_FALSE
427:
428: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
429: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
430: Rollback to Process_Master_Config_SP;
431: FND_MSG_PUB.count_and_get
432: (
433: p_count => x_msg_count,
434: p_data => x_msg_data,
435: p_encoded => FND_API.G_FALSE
437:
438: WHEN OTHERS THEN
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: Rollback to Process_Master_Config_SP;
441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN
443: FND_MSG_PUB.add_exc_msg
444: (
445: p_pkg_name => G_PKG_NAME,
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: Rollback to Process_Master_Config_SP;
441: IF FND_MSG_PUB.check_msg_level(FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
442: THEN
443: FND_MSG_PUB.add_exc_msg
444: (
445: p_pkg_name => G_PKG_NAME,
446: p_procedure_name => 'Process_Master_Config',
447: p_error_text => SUBSTR(SQLERRM,1,240)
446: p_procedure_name => 'Process_Master_Config',
447: p_error_text => SUBSTR(SQLERRM,1,240)
448: );
449: END IF;
450: FND_MSG_PUB.count_and_get
451: (
452: p_count => x_msg_count,
453: p_data => x_msg_data,
454: p_encoded => FND_API.G_FALSE