[Home] [Help]
224: OPEN c_get_field_name;
225: FETCH c_get_field_name INTO dummy;
226: IF NOT c_get_field_name%NOTFOUND THEN
227: CLOSE c_get_field_name;
228: GMD_API_PUB.Log_Message('PON_AUC_DUP_FIELD_NAME');
229: RAISE FND_API.G_EXC_ERROR;
230: END IF;
231: CLOSE c_get_field_name;
232:
259: IF p_field_name_class IS NULL then
260: FND_MESSAGE.SET_NAME('GR',
261: 'GR_CLASS_REQUIRED');
262: FND_MSG_PUB.ADD;
263: GMD_API_PUB.Log_Message('GR_CLASS_REQUIRED');
264: RAISE FND_API.G_EXC_ERROR;
265:
266: ELSE
267: /* Check the label class code */
281: IF p_description IS NULL then
282: FND_MESSAGE.SET_NAME('GR',
283: 'GR_DESC_REQUIRED');
284: FND_MSG_PUB.ADD;
285: GMD_API_PUB.Log_Message('GR_DESC_REQUIRED');
286: RAISE FND_API.G_EXC_ERROR;
287: END IF;
288:
289: -- write to gr_labels_b table.
371:
372: IF (l_debug = 'Y') THEN
373: gmd_debug.put_line('error');
374: END IF;
375: GMD_API_PUB.Log_Message(msg_data);
376: RAISE LBins_err;
377: END IF;
378:
379: --source lang and lang input
406:
407: IF (l_debug = 'Y') THEN
408: gmd_debug.put_line('error');
409: END IF;
410: GMD_API_PUB.Log_Message(msg_data);
411: RAISE LBTLadd_err;
412: END IF;
413:
414:
431: dbms_output.put_line(' oracle_error => ' || oracle_error);
432: dbms_output.put_line(' return_status => ' || return_status); */
433:
434: IF return_status <> 'S' THEN
435: GMD_API_PUB.Log_Message('GR_LABELS_TL_PKG_ADD_LANG');
436: FND_MESSAGE.SET_NAME('GR',
437: 'GR_LABELS_TL_PKG_ADD_LANG');
438: GMD_API_PUB.Log_Message(msg_data);
439: RAISE LTadd_err;
434: IF return_status <> 'S' THEN
435: GMD_API_PUB.Log_Message('GR_LABELS_TL_PKG_ADD_LANG');
436: FND_MESSAGE.SET_NAME('GR',
437: 'GR_LABELS_TL_PKG_ADD_LANG');
438: GMD_API_PUB.Log_Message(msg_data);
439: RAISE LTadd_err;
440: END IF;
441:
442: END IF;
447:
448: IF l_label_properties_flag = 'Y' and LabelClsRcd.form_block <> 'NAMES' and LabelClsRcd.form_block <> 'PROPERTIES'
449: then
450:
451: GMD_API_PUB.Log_Message('GR_FNAME_NOT_ASSOC');
452: FND_MESSAGE.SET_NAME('GR',
453: 'GR_FNAME_NOT_ASSOC');
454: RAISE FND_API.G_EXC_ERROR;
455: END IF;
498: dbms_output.put_line(' oracle_error => ' || oracle_error);
499: dbms_output.put_line(' return_status => ' || return_status); */
500:
501: IF return_status <> FND_API.g_ret_sts_success THEN
502: GMD_API_PUB.Log_Message('GR_LABEL_PROPERTIES_PKG_INS_RO');
503: FND_MESSAGE.SET_NAME('GR',
504: 'GR_LABEL_PROPERTIES_PKG_INS_RO');
505: RAISE LP_ins_err;
506: END IF;
569: gmd_debug.put_line('error');
570: END IF;
571: FND_MESSAGE.SET_NAME('GR',
572: 'GR_LABEL_PROPERTIES_PKG_INS_RO');
573: GMD_API_PUB.Log_Message(msg_data);
574: RAISE LBTLadd_err;
575: END IF;
576:
577: ELSE -- object = P
645:
646: IF return_status <> FND_API.g_ret_sts_success THEN
647: FND_MESSAGE.SET_NAME('GR',
648: 'GR_LABEL_PROPERTIES_PKG_INS_RO');
649: GMD_API_PUB.Log_Message('GR_LABEL_PROPERTIES_PKG_INS_RO');
650: RAISE LP_ins_err;
651: END IF;
652:
653: END IF; -- IF p_label_properties_tab(i).property_id IS NOT NULL THEN
865: x_oracle_error => oracle_error,
866: x_msg_data => msg_data);
867:
868: IF return_status <> FND_API.g_ret_sts_success THEN
869: GMD_API_PUB.Log_Message('GR_LABELS_TL_PKG_DEL_ROWS');
870: FND_MESSAGE.SET_NAME('GR',
871: 'GR_LABELS_TL_PKG_DEL_ROWS');
872: l_msg_token := p_field_name;
873: RAISE LTL_del_err;
884: x_oracle_error => oracle_error,
885: x_msg_data => msg_data);
886:
887: IF return_status <> FND_API.g_ret_sts_success THEN
888: GMD_API_PUB.Log_Message('GR_LABEL_PROPERTIES_PKG_DEL_RO');
889: FND_MESSAGE.SET_NAME('GR',
890: 'GR_LABEL_PROPERTIES_PKG_DEL_RO');
891: RAISE LP_del_err;
892: END IF;
1054: , p_count => x_msg_count
1055: , p_data => x_msg_data);
1056:
1057: WHEN Row_Missing_Error THEN
1058: --GMD_API_PUB.Log_Message('GR_RECORD_NOT_FOUND');
1059: --ROLLBACK TO SAVEPOINT FIELD_NAMES;
1060: x_return_status := 'E';
1061: FND_MESSAGE.SET_NAME('GR',
1062: 'GR_RECORD_NOT_FOUND');