[Home] [Help]
114:
115: CURSOR c_get_label_class
116: IS
117: SELECT lcb.label_class_code, lcb.form_block
118: FROM gr_label_classes_b lcb
119: WHERE lcb.label_class_code = p_field_name_class;
120: LabelClsRcd c_get_label_class%ROWTYPE;
121:
122: CURSOR c_get_label_class_tl
214:
215: IF p_object = 'C' then
216:
217:
218: -- Validate that the value of Field Name Class does not already exist in the table GR_LABEL_CLASSES_B.
219: -- If it does, write an error to the log file
220:
221: OPEN c_get_label_class;
222: FETCH c_get_label_class INTO LabelClsRcd;
255: l_form_block := 'SAFETY_PHRASES';
256: END IF;
257:
258:
259: -- insert a record for GR_LABEL_CLASSES_B
260: gr_label_classes_b_pkg.Insert_Row
261: (p_commit => 'T',
262: p_called_by_form => 'F',
263: p_label_class_code => p_field_name_class,
256: END IF;
257:
258:
259: -- insert a record for GR_LABEL_CLASSES_B
260: gr_label_classes_b_pkg.Insert_Row
261: (p_commit => 'T',
262: p_called_by_form => 'F',
263: p_label_class_code => p_field_name_class,
264: p_form_block => l_form_block,
445:
446:
447: ELSIF p_object = 'L' then
448:
449: -- Validate that the value of Field Name Class exists in the table GR_LABEL_CLASSES_B.
450: -- If it does not, write an error to the log file
451: OPEN c_get_label_class;
452: FETCH c_get_label_class INTO LabelClsRcd;
453: IF c_get_label_class%NOTFOUND THEN
616: /*************************************************************************************/
617:
618: ELSIF p_action = 'U' then
619:
620: -- Validate that the value of Label Class exists in the table GR_LABEL_CLASSES_B.
621: -- If it does not, an error message will be written to the log file.
622:
623: OPEN c_get_label_class;
624: FETCH c_get_label_class INTO LabelClsRcd;
651: IF p_form_block = 'Safety Phrases' then
652: l_form_block := 'SAFETY_PHRASES';
653: END IF;
654:
655: -- The value of Form Block will be updated in the GR_ GR_LABEL_CLASSES_B table.
656:
657: UPDATE gr_label_classes_b
658: SET form_block = l_form_block,
659: last_updated_by = fnd_global.user_id,
653: END IF;
654:
655: -- The value of Form Block will be updated in the GR_ GR_LABEL_CLASSES_B table.
656:
657: UPDATE gr_label_classes_b
658: SET form_block = l_form_block,
659: last_updated_by = fnd_global.user_id,
660: last_update_date = sysdate,
661: last_update_login = l_last_update_login
799: END IF; -- IF p_object = 'C' then
800:
801: ELSE -- action is D (delete)
802:
803: -- Validate that the value of Field Name class exists in the table GR_LABEL_CLASSES_B.
804: -- If it does not, write an error to the log file
805:
806: OPEN c_get_label_class;
807: FETCH c_get_label_class INTO LabelClsRcd;
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',
836:
837: DELETE FROM gr_label_class_resps
838: WHERE label_class_code = p_field_name_class;
839:
840: DELETE FROM gr_label_classes_b
841: WHERE label_class_code = p_field_name_class;
842:
843: IF SQL%NOTFOUND THEN
844: l_msg_token := p_field_name_class;