[Home] [Help]
32: -- Populate Old Values.
33: Open cur_old_ref_values;
34: Fetch cur_old_ref_values INTO old_references;
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
36: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_GROUP_ITEM : P_ACTION INSERT VALIDATE_INSERT : IGSUI05B.PLS');
38: IGS_GE_MSG_STACK.ADD;
39: App_Exception.Raise_Exception;
40: Close cur_old_ref_values;
83: IF IGS_RU_GEN_006.RULP_VAL_DESC_RGI(new_references.description_number,
84: new_references.description_type,
85: v_message_name) IS NULL
86: THEN
87: Fnd_Message.Set_Name('IGS',v_message_name);
88: IGS_GE_MSG_STACK.ADD;
89: App_Exception.Raise_Exception;
90: END IF;
91: IGS_RU_VAL_RGI.rulp_set_rgi(new_references.rug_sequence_number,
110: -- validate for allowed group
111: IF IGS_RU_VAL_RGI.rulp_val_grp_rgi = FALSE
112: THEN
113: v_message_name := 'IGS_GE_GROUP_INSERT_NOT_ALLOW';
114: Fnd_Message.Set_Name('IGS',v_message_name);
115: IGS_GE_MSG_STACK.ADD;
116: App_Exception.Raise_Exception;
117: END IF;
118: -- populate IGS_RU_GROUP_SET, trigger ancestor groups in IGS_RU_GROUP_ITEM
139: END IF ;
140:
141: IF upper(Column_name) = 'RUG_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
142: IF new_references.RUG_SEQUENCE_NUMBER < 1 or new_references.RUG_SEQUENCE_NUMBER > 999999 then
143: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
144: IGS_GE_MSG_STACK.ADD;
145: App_Exception.Raise_Exception ;
146: END IF;
147:
148: END IF ;
149:
150: IF upper(Column_name) = 'DESCRIPTION_NUMBER' OR COLUMN_NAME IS NULL THEN
151: IF new_references.DESCRIPTION_NUMBER < 1 or new_references.DESCRIPTION_NUMBER > 999999 then
152: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
153: IGS_GE_MSG_STACK.ADD;
154: App_Exception.Raise_Exception ;
155: END IF;
156:
157: END IF ;
158:
159: IF upper(Column_name) = 'DESCRIPTION_TYPE' OR COLUMN_NAME IS NULL THEN
160: IF new_references.DESCRIPTION_TYPE not in ('RUG','RUD') then
161: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
162: IGS_GE_MSG_STACK.ADD;
163: App_Exception.Raise_Exception ;
164: END IF;
165:
179: ELSE
180: IF NOT IGS_RU_GROUP_PKG.Get_PK_For_Validation (
181: new_references.rug_sequence_number
182: ) THEN
183: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
184: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_GROUP : P_ACTIONCheck_Parent_Existanc rug_sequence_number : IGSUI05B.PLS');
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception;
187: END IF;
236: Open cur_rowid;
237: Fetch cur_rowid INTO lv_rowid;
238: IF (cur_rowid%FOUND) THEN
239: Close cur_rowid;
240: Fnd_Message.Set_Name ('IGS', 'IGS_RU_RGI_RUG_FK');
241: IGS_GE_MSG_STACK.ADD;
242: App_Exception.Raise_Exception;
243: Return;
244: END IF;
280: new_references.rug_sequence_number ,
281: new_references.description_number ,
282: new_references.description_type
283: ) THEN
284: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
285: IGS_GE_MSG_STACK.ADD;
286: App_Exception.Raise_Exception;
287: END IF;
288: Check_Constraints;
300: new_references.rug_sequence_number ,
301: new_references.description_number ,
302: new_references.description_type
303: ) THEN
304: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
305: IGS_GE_MSG_STACK.ADD;
306: App_Exception.Raise_Exception;
307: END IF;
308: Check_Constraints;
360: if X_LAST_UPDATE_LOGIN is NULL then
361: X_LAST_UPDATE_LOGIN := -1;
362: end if;
363: else
364: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
365: IGS_GE_MSG_STACK.ADD;
366: app_exception.raise_exception;
367: end if;
368:
426: begin
427: open c1;
428: fetch c1 into tlinfo;
429: if (c1%notfound) then
430: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
431: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_GROUP_ITEM : P_ACTION LOCK_ROW : IGSUI05B.PLS');
432: IGS_GE_MSG_STACK.ADD;
433: app_exception.raise_exception;
434: close c1;
463: if X_LAST_UPDATE_LOGIN is NULL then
464: X_LAST_UPDATE_LOGIN := -1;
465: end if;
466: else
467: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
468: IGS_GE_MSG_STACK.ADD;
469: app_exception.raise_exception;
470: end if;
471: Before_DML(