[Home] [Help]
1: PACKAGE BODY GR_LABEL_CLASSES_B_PKG AS
2: /*$Header: GRHILCBB.pls 115.2 2002/10/28 16:02:41 methomas ship $*/
3: PROCEDURE Insert_Row
4: (p_commit IN VARCHAR2,
5: p_called_by_form IN VARCHAR2,
134: IF FND_API.To_Boolean(l_key_exists) THEN
135: RAISE Label_Exists_Error;
136: END IF;
137:
138: INSERT INTO gr_label_classes_b
139: (label_class_code,
140: form_block,
141: rollup_type,
142: rollup_property,
423:
424: IF l_return_status <> 'S' THEN
425: RAISE Foreign_Key_Error;
426: ELSE
427: UPDATE gr_label_classes_b
428: SET label_class_code = p_label_class_code,
429: form_block = p_form_block,
430: rollup_type = p_rollup_type,
431: rollup_property = p_rollup_property,
597:
598: CURSOR c_lock_label_class
599: IS
600: SELECT *
601: FROM gr_label_classes_b
602: WHERE rowid = p_rowid
603: FOR UPDATE NOWAIT;
604: LockLabelClassRcd c_lock_label_class%ROWTYPE;
605:
795: IF l_return_status <> 'S' THEN
796: RAISE Check_Integrity_Error;
797: END IF;
798:
799: DELETE FROM gr_label_classes_b
800: WHERE rowid = p_rowid;
801:
802: /* Check the commit flag and if set, then commit the work. */
803:
1118:
1119: CURSOR c_get_label_class_rowid
1120: IS
1121: SELECT lcb.rowid
1122: FROM gr_label_classes_b lcb
1123: WHERE lcb.label_class_code = p_label_class_code;
1124: LabelClassRecord c_get_label_class_rowid%ROWTYPE;
1125:
1126: BEGIN
1151: END IF;
1152:
1153: END Check_Primary_Key;
1154:
1155: END GR_LABEL_CLASSES_B_PKG;