131: l_rowid VARCHAR2(100);
132: l_creation_date DATE;
133:
134: BEGIN
135: x_return_status := FND_API.G_RET_STS_SUCCESS;
136:
137: IF (l_Debug_Level <= 2) THEN
138: itg_debug_pub.Add('ENTERING Add_FlexValue',2);
139: END IF;
176: l_param_name := 'ORACLEITG.ACTIVE';
177: l_param_value := p_enabled_flag;
178: ELSIF vset_is_not_valid(p_vset_id) THEN
179: itg_msg.no_vset(p_vset_id);
180: RAISE FND_API.G_EXC_ERROR;
181: ELSIF flex_value_is_not_valid( p_vset_id,p_flex_value ) THEN --Added below elsif branch to validate flex-val max size to fix bug :5533589
182: ITG_MSG.INVALID_FLEXVAL_LENGTH(p_vset_id,p_flex_value);
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
179: itg_msg.no_vset(p_vset_id);
180: RAISE FND_API.G_EXC_ERROR;
181: ELSIF flex_value_is_not_valid( p_vset_id,p_flex_value ) THEN --Added below elsif branch to validate flex-val max size to fix bug :5533589
182: ITG_MSG.INVALID_FLEXVAL_LENGTH(p_vset_id,p_flex_value);
183: RAISE FND_API.G_EXC_ERROR;
184: END IF;
185:
186: IF l_param_name IS NOT NULL THEN
187: ITG_MSG.missing_element_value(l_param_name, l_param_value);
184: END IF;
185:
186: IF l_param_name IS NOT NULL THEN
187: ITG_MSG.missing_element_value(l_param_name, l_param_value);
188: RAISE FND_API.G_EXC_ERROR;
189: END IF;
190:
191: IF get_flex_data(p_flex_value, p_vset_id, l_flex_val_tbl) THEN
192: ITG_MSG.existing_flex_value(p_flex_value, p_vset_id);
189: END IF;
190:
191: IF get_flex_data(p_flex_value, p_vset_id, l_flex_val_tbl) THEN
192: ITG_MSG.existing_flex_value(p_flex_value, p_vset_id);
193: RAISE FND_API.G_EXC_ERROR;
194: END IF;
195:
196: IF acct_type_required(p_vset_id) AND (nvl(p_acct_type, 'z') NOT IN ('A', 'L', 'O', 'R', 'E')) THEN
197: ITG_MSG.invalid_account_type(p_acct_type);
194: END IF;
195:
196: IF acct_type_required(p_vset_id) AND (nvl(p_acct_type, 'z') NOT IN ('A', 'L', 'O', 'R', 'E')) THEN
197: ITG_MSG.invalid_account_type(p_acct_type);
198: RAISE FND_API.G_EXC_ERROR;
199: END IF;
200: END;
201:
202: g_action := 'Flex-value insert';
280: IF (l_Debug_Level <= 5) THEN
281: itg_debug_pub.Add('EXITING Add_FlexValue :NO_DATA_FOUND ' ,5);
282: END IF;
283:
284: RAISE FND_API.G_EXC_ERROR;
285: END;
286:
287: IF (l_Debug_Level <= 2) THEN
288: itg_debug_pub.Add('EXITING Add_FlexValue' ,2);
317: IF (l_Debug_Level <= 2) THEN
318: itg_debug_pub.Add('ENTERING Change_FlexValue' ,2);
319: END IF;
320:
321: x_return_status := FND_API.G_RET_STS_SUCCESS;
322: g_action := 'Flex-value update';
323:
324: BEGIN
325: ITG_Debug.setup(
356: l_param_name := 'ORACLEITG.ACTIVE';
357: l_param_value := p_enabled_flag;
358: ELSIF vset_is_not_valid(p_vset_id) THEN
359: itg_msg.no_vset(p_vset_id);
360: RAISE FND_API.G_EXC_ERROR;
361: END IF;
362:
363: IF l_param_name IS NOT NULL THEN
364: ITG_MSG.missing_element_value(l_param_name, l_param_value);
361: END IF;
362:
363: IF l_param_name IS NOT NULL THEN
364: ITG_MSG.missing_element_value(l_param_name, l_param_value);
365: RAISE FND_API.G_EXC_ERROR;
366: END IF;
367:
368: IF NOT get_flex_data(p_flex_value, p_vset_id, l_flex_val_tbl) THEN
369: ITG_MSG.flex_update_fail_novalue(p_flex_value);
366: END IF;
367:
368: IF NOT get_flex_data(p_flex_value, p_vset_id, l_flex_val_tbl) THEN
369: ITG_MSG.flex_update_fail_novalue(p_flex_value);
370: RAISE FND_API.G_EXC_ERROR;
371: END IF;
372: END;
373:
374: g_action := 'Flex-value update';
387: WHERE flex_value_id = l_value_id;
388:
389: IF SQL%ROWCOUNT = 0 THEN
390: ITG_MSG.flex_update_fail_novalue(p_flex_value);
391: RAISE FND_API.G_EXC_ERROR;
392: END IF;
393:
394: /* ...and the translated description */
395: UPDATE fnd_flex_values_tl
400: AND userenv('LANG') in (LANGUAGE, SOURCE_LANG);
401:
402: IF SQL%ROWCOUNT = 0 THEN
403: ITG_MSG.flex_update_fail_notl(p_flex_value);
404: RAISE FND_API.G_EXC_ERROR;
405: END IF;
406:
407: /* Iterate */
408: l_next_id := l_flex_val_tbl.NEXT(l_next_id);
432: IS
433: l_api_name CONSTANT VARCHAR2(30) := 'Sync_FlexValue';
434: l_api_version CONSTANT NUMBER := 1.0;
435: BEGIN
436: x_return_status := FND_API.G_RET_STS_SUCCESS;
437:
438: IF (l_Debug_Level <= 2) THEN
439: itg_debug_pub.Add('ENTERING Sync_FlexValue' ,2);
440: END IF;
481: p_enabled_flag => p_enabled_flag);
482: ELSE
483: g_action := 'Flex-parameters validation';
484: ITG_MSG.missing_element_value('SYNCIND', p_syncind);
485: RAISE FND_API.G_EXC_ERROR;
486: END IF;
487:
488: COMMIT WORK;
489:
490: IF (l_Debug_Level <= 2) THEN
491: itg_debug_pub.Add('SFV - Done. EXITING Sync_FlexValue' ,2);
492: END IF;
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO Sync_FlexValue_PVT;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: ITG_msg.checked_error(g_action);
498: IF (l_Debug_Level <= 6) THEN
492: END IF;
493: EXCEPTION
494: WHEN FND_API.G_EXC_ERROR THEN
495: ROLLBACK TO Sync_FlexValue_PVT;
496: x_return_status := FND_API.G_RET_STS_ERROR;
497: ITG_msg.checked_error(g_action);
498: IF (l_Debug_Level <= 6) THEN
499: itg_debug_pub.Add('SFV - Done. EXITING Sync_FlexValue with ERROR' ,6);
500: END IF;
500: END IF;
501:
502: WHEN OTHERS THEN
503: ROLLBACK TO Sync_FlexValue_PVT;
504: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
505: itg_debug.msg('Unexpected error (COA sync) - ' || substr(SQLERRM,1,255),true);
506: ITG_msg.unexpected_error(g_action);
507: IF (l_Debug_Level <= 6) THEN
508: itg_debug_pub.Add('SFV - Done. EXITING Sync_FlexValue with OTHER ERROR' ,6);