[Home] [Help]
103:
104: CURSOR c_get_field_name is
105: SELECT 1
106: FROM
107: GR_LABELS_B B
108: where B.LABEL_CODE = p_field_name;
109:
110: CURSOR Cur_count_language IS
111: SELECT count (language_code)
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.
290:
291: -- first check table p_label_properties_tab for any input
292: l_label_properties_flag := 'N';
293: FOR i in 1 .. p_label_properties_tab.count LOOP
302: l_technical_parameter_flag := 0;
303: END IF;
304:
305:
306: GR_LABELS_B_PKG.Insert_Row
307: (p_commit => 'F',
308: p_called_by_form => 'F',
309: p_label_code => p_field_name,
310: p_safety_category_code => 'NU', -- dummy default as no longer used
512: --DONE
513:
514: ELSIF p_object = 'L' then
515:
516: -- Validate that the value of Field Name code exists in the table GR_LABELS_B.
517: -- If it does not, write an error to the log file
518:
519: OPEN c_get_field_name;
520: FETCH c_get_field_name INTO dummy;
574: RAISE LBTLadd_err;
575: END IF;
576:
577: ELSE -- object = P
578: -- Validate that the value of Field Name code exists in the table GR_LABELS_B.
579: -- If it does not, write an error to the log file
580:
581: OPEN c_get_field_name;
582: FETCH c_get_field_name INTO dummy;
684:
685: IF p_object = 'C' then
686:
687: -- Any non-null, valid values passed in for field name class and
688: -- technical parameter flag will be updated in the GR_LABELS_B table.
689:
690: IF p_field_name_class IS NOT NULL then
691: /* Check the label class code */
692:
706: ELSE
707: l_technical_parameter_flag := 0;
708: END IF;
709:
710: UPDATE gr_labels_b
711: SET label_class_code = p_field_name_class,
712: last_updated_by = FND_GLOBAL.USER_ID,
713: last_update_date = SYSDATE, -- pal
714: last_update_login = l_last_update_login,
839:
840:
841: ELSE -- action is D
842:
843: -- Validate that the value of Field Name code exists in the table GR_LABELS_B.
844: -- If it does not, write an error to the log file
845:
846: OPEN c_get_field_name;
847: FETCH c_get_field_name INTO dummy;
854:
855:
856:
857: IF p_object = 'C' then
858: -- -- Delete all of the property related records in the GR_LABELS_B, GR_LABELS_TL and GR_LABEL_PROPERTIES tables.
859:
860: gr_labels_tl_pkg.delete_rows
861: (p_commit => 'F',
862: p_called_by_form => 'F',
890: 'GR_LABEL_PROPERTIES_PKG_DEL_RO');
891: RAISE LP_del_err;
892: END IF;
893:
894: DELETE FROM gr_labels_b
895: WHERE label_code = p_field_name;
896:
897: IF SQL%NOTFOUND THEN
898: l_msg_token := p_field_name || ' ' || p_language;