106: FROM fnd_languages
107: WHERE installed_flag IN ('I', 'B')
108: AND language_code not in
109: (SELECT language
110: FROM GR_LABEL_CLASSES_TL
111: WHERE label_class_code = p_field_name_class);
112:
113: /* Label Class Codes */
114:
121:
122: CURSOR c_get_label_class_tl
123: IS
124: SELECT 1
125: FROM GR_LABEL_CLASSES_TL
126: WHERE label_class_code = p_field_name_class
127: and language = p_language;
128:
129: cursor resp_id_cur is
318: GMD_API_PUB.Log_Message(msg_data);
319: RAISE LBins_err;
320: END IF;
321:
322: -- need to add base row for language for GR_LABEL_CLASSES_TL
323:
324: gr_label_classes_tl_pkg.insert_row(
325: p_commit => 'T',
326: p_called_by_form => 'F',
320: END IF;
321:
322: -- need to add base row for language for GR_LABEL_CLASSES_TL
323:
324: gr_label_classes_tl_pkg.insert_row(
325: p_commit => 'T',
326: p_called_by_form => 'F',
327: p_label_class_code => p_field_name_class,
328: p_language => p_language,
349: END IF;
350:
351:
352:
353: -- Insert a record into GR_LABEL_CLASSES_TL for each installed language.
354:
355: OPEN Cur_count_language;
356: FETCH Cur_count_language INTO l_missing_count;
357: CLOSE Cur_count_language;
357: CLOSE Cur_count_language;
358: IF l_missing_count > 0 THEN
359:
360:
361: GR_LABEL_CLASSES_TL_PKG.Add_Language
362: (p_commit => 'T',
363: p_called_by_form => 'F',
364: p_label_class_code => p_field_name_class,
365: p_language => p_language,
457: RAISE Row_Missing_Error;
458: END IF;
459: CLOSE c_get_label_class;
460:
461: -- Validate that the value of Language for the specified property does not exist in the table table GR_LABEL_CLASSES_TL.
462: -- If it does, write an error to the log file.
463:
464: OPEN c_get_label_class_tl;
465: FETCH c_get_label_class_tl INTO dummy;
470: RAISE LT_Exists_Error;
471: END IF;
472: CLOSE c_get_label_class_tl;
473:
474: -- The values for Source Language, Language and Description will be written to the GR_LABEL_CLASSES_TL table
475: gr_label_classes_tl_pkg.insert_row(
476: p_commit => 'T',
477: p_called_by_form => 'F',
478: p_label_class_code => p_field_name_class,
471: END IF;
472: CLOSE c_get_label_class_tl;
473:
474: -- The values for Source Language, Language and Description will be written to the GR_LABEL_CLASSES_TL table
475: gr_label_classes_tl_pkg.insert_row(
476: p_commit => 'T',
477: p_called_by_form => 'F',
478: p_label_class_code => p_field_name_class,
479: p_language => p_language,
684: RAISE Row_Missing_Error;
685: END IF;
686: CLOSE c_get_language;
687:
688: -- If the record for the specified field name class and language does not exist in the GR_LABEL_CLASSES_TL table,
689: -- an error will be written to the log file.
690:
691: gr_label_classes_tl_pkg.Check_Primary_Key(
692: p_field_name_class,
687:
688: -- If the record for the specified field name class and language does not exist in the GR_LABEL_CLASSES_TL table,
689: -- an error will be written to the log file.
690:
691: gr_label_classes_tl_pkg.Check_Primary_Key(
692: p_field_name_class,
693: p_language,
694: 'F',
695: row_id,
698: IF l_key_exists = 'N' THEN
699: l_msg_token := p_field_name_class|| ' ' || p_language;
700: RAISE Row_Missing_Error;
701: END IF;
702: -- The value for Description will be updated GR_LABEL_CLASSES_TL table for the specified language.
703:
704: UPDATE GR_LABEL_CLASSES_TL
705: SET label_class_description = p_description,
706: source_lang = p_source_language,
700: RAISE Row_Missing_Error;
701: END IF;
702: -- The value for Description will be updated GR_LABEL_CLASSES_TL table for the specified language.
703:
704: UPDATE GR_LABEL_CLASSES_TL
705: SET label_class_description = p_description,
706: source_lang = p_source_language,
707: last_updated_by = FND_GLOBAL.USER_ID,
708: last_update_date = SYSDATE,
815:
816: IF p_object = 'C' then
817:
818: -- Delete all of the property related records in the
819: -- GR_LABEL_CLASSES_B, GR_LABEL_CLASSES_TL and GR_LABEL_CLASS_RESPS tables.
820:
821: gr_label_classes_tl_pkg.delete_rows
822: (p_commit => 'T',
823: p_called_by_form => 'F',
817:
818: -- Delete all of the property related records in the
819: -- GR_LABEL_CLASSES_B, GR_LABEL_CLASSES_TL and GR_LABEL_CLASS_RESPS tables.
820:
821: gr_label_classes_tl_pkg.delete_rows
822: (p_commit => 'T',
823: p_called_by_form => 'F',
824: p_label_class_code => p_field_name_class,
825: x_return_status => return_status,
866: END IF;
867: CLOSE c_get_language;
868:
869: -- If the record for the specified field name class and language does not exist
870: --in the GR_LABEL_CLASSES_TL table, an error will be written to the log file
871:
872: gr_label_classes_tl_pkg.Check_Primary_Key(
873: p_field_name_class,
874: p_language,
868:
869: -- If the record for the specified field name class and language does not exist
870: --in the GR_LABEL_CLASSES_TL table, an error will be written to the log file
871:
872: gr_label_classes_tl_pkg.Check_Primary_Key(
873: p_field_name_class,
874: p_language,
875: 'F',
876: row_id,
880: l_msg_token := p_field_name_class|| ' ' || p_language;
881: RAISE Row_Missing_Error;
882: END IF;
883:
884: -- Delete the record in GR_LABEL_CLASSES_TL table for the specified language
885:
886: delete from GR_LABEL_CLASSES_TL
887: WHERE label_class_code = p_field_name_class
888: and language = p_language;
882: END IF;
883:
884: -- Delete the record in GR_LABEL_CLASSES_TL table for the specified language
885:
886: delete from GR_LABEL_CLASSES_TL
887: WHERE label_class_code = p_field_name_class
888: and language = p_language;
889: IF SQL%NOTFOUND THEN
890: l_msg_token := p_field_name_class || ' ' || p_language;