[Home] [Help]
29: Open cur_old_ref_values;
30: Fetch cur_old_ref_values INTO old_references;
31: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
32: Close cur_old_ref_values;
33: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
34: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_CALL_RULE : P_ACTION INSERT, VALIDATE_INSERT : IGSUI02B.PLS');
35: IGS_GE_MSG_STACK.ADD;
36: App_Exception.Raise_Exception;
37: Return;
85: ELSE
86: IF NOT IGS_RU_NAMED_RULE_PKG.Get_PK_For_Validation (
87: new_references.nr_rul_sequence_number
88: )THEN
89: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
90: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_NAMED_RULE : P_ACTION Check_Parent_Existance new_references.nr_rul_sequence_number : IGSUI02B.PLS');
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception;
93: END IF;
138: Open cur_rowid;
139: Fetch cur_rowid INTO lv_rowid;
140: IF (cur_rowid%FOUND) THEN
141: Close cur_rowid;
142: Fnd_Message.Set_Name ('IGS', 'IGS_RU_SCR_NR_FK');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: Return;
146: END IF;
151: PROCEDURE CHECK_UNIQUENESS AS
152: BEGIN
153:
154: IF GET_UK1_FOR_VALIDATION(new_references.nr_rul_sequence_number) THEN
155: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
156: IGS_GE_MSG_STACK.ADD;
157: APP_EXCEPTION.RAISE_EXCEPTION;
158: END IF;
159: END CHECK_UNIQUENESS;
172: END IF;
173:
174: IF upper(Column_name) = 'CALLED_RULE_CD' OR COLUMN_NAME IS NULL THEN
175: IF new_references.called_rule_cd <> UPPER(new_references.called_rule_cd) THEN
176: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
177: IGS_GE_MSG_STACK.ADD;
178: App_Exception.Raise_Exception ;
179: END IF;
180: END IF ;
180: END IF ;
181:
182: IF upper(Column_name) = 'NR_RUL_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
183: IF new_references.nr_rul_sequence_number < 1 or new_references.nr_rul_sequence_number > 999999 THEN
184: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
185: IGS_GE_MSG_STACK.ADD;
186: App_Exception.Raise_Exception ;
187: END IF;
188: END IF ;
216: IF (p_action = 'INSERT') THEN
217: -- Call all the procedures related to Before Insert.
218: IF GET_PK_FOR_VALIDATION(
219: new_references.called_rule_cd )THEN
220: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
221: IGS_GE_MSG_STACK.ADD;
222: APP_EXCEPTION.RAISE_EXCEPTION;
223: END IF;
224: Check_uniqueness;
236: -- Call all the procedures related to Before Delete.
237: IF GET_PK_FOR_VALIDATION(
238: new_references.called_rule_cd
239: )THEN
240: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
241: IGS_GE_MSG_STACK.ADD;
242: APP_EXCEPTION.RAISE_EXCEPTION;
243: END IF;
244: Check_uniqueness;
286: if X_LAST_UPDATE_LOGIN is NULL then
287: X_LAST_UPDATE_LOGIN := -1;
288: end if;
289: else
290: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
291: IGS_GE_MSG_STACK.ADD;
292: app_exception.raise_exception;
293: end if;
294:
352: open c1;
353: fetch c1 into tlinfo;
354: if (c1%notfound) then
355: close c1;
356: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
357: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_CALL_RULE : P_ACTION LOCK_ROW : IGSUI02B.PLS');
358: IGS_GE_MSG_STACK.ADD;
359: app_exception.raise_exception;
360: return;
364: if ( (tlinfo.NR_RUL_SEQUENCE_NUMBER = X_NR_RUL_SEQUENCE_NUMBER)
365: ) then
366: null;
367: else
368: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
369: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_CALL_RULE : P_ACTION LOCK_ROW FORM_RECORD_CHANGED : IGSUI02B.PLS');
370: IGS_GE_MSG_STACK.ADD;
371: app_exception.raise_exception;
372: end if;
396: if X_LAST_UPDATE_LOGIN is NULL then
397: X_LAST_UPDATE_LOGIN := -1;
398: end if;
399: else
400: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
401: IGS_GE_MSG_STACK.ADD;
402: app_exception.raise_exception;
403: end if;
404: