[Home] [Help]
33: -- Populate Old Values.
34: Open cur_old_ref_values;
35: Fetch cur_old_ref_values INTO old_references;
36: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_NAMED_RULE : P_ACTION INSERT VALIDATE_INSERT : IGSUI09B.PLS');
39: IGS_GE_MSG_STACK.ADD;
40: App_Exception.Raise_Exception;
41: Close cur_old_ref_values;
81: END IF ;
82:
83: IF upper(Column_name) = 'MESSAGE_RULE' OR COLUMN_NAME IS NULL THEN
84: IF new_references.MESSAGE_RULE < 1 or new_references.MESSAGE_RULE > 999999 then
85: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
86: IGS_GE_MSG_STACK.ADD;
87: App_Exception.Raise_Exception ;
88: END IF;
89:
91:
92: --Added following check as part of bug 2441196, this check should be there in check_constraint since rule_text is not null field.
93: IF upper(Column_name) = 'RULE_TEXT' OR COLUMN_NAME IS NULL THEN
94: IF new_references.RULE_TEXT IS NULL then
95: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
96: IGS_GE_MSG_STACK.ADD;
97: App_Exception.Raise_Exception ;
98: END IF;
99: END IF ;
99: END IF ;
100:
101: IF upper(Column_name) = 'RUG_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
102: IF new_references.RUG_SEQUENCE_NUMBER < 1 or new_references.RUG_SEQUENCE_NUMBER > 999999 then
103: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
104: IGS_GE_MSG_STACK.ADD;
105: App_Exception.Raise_Exception ;
106: END IF;
107:
108: END IF ;
109:
110: IF upper(Column_name) = 'RUD_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
111: IF new_references.RUD_SEQUENCE_NUMBER < 1 or new_references.RUD_SEQUENCE_NUMBER > 999999 then
112: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
113: IGS_GE_MSG_STACK.ADD;
114: App_Exception.Raise_Exception ;
115: END IF;
116:
126: ELSE
127: IF NOT IGS_RU_DESCRIPTION_PKG.Get_PK_For_Validation (
128: new_references.rud_sequence_number
129: ) THEN
130: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
131: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_DESCRIPTION : P_ACTION Check_Parent_Existance rud_sequence_number : IGSUI09B.PLS');
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
140: ELSE
141: IF NOT IGS_RU_GROUP_PKG.Get_PK_For_Validation (
142: new_references.rug_sequence_number
143: ) THEN
144: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
145: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_GROUP : P_ACTION Check_Parent_Existance rug_sequence_number : IGSUI09B.PLS');
146: IGS_GE_MSG_STACK.ADD;
147: App_Exception.Raise_Exception;
148: END IF;
154: ELSE
155: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
156: new_references.rul_sequence_number
157: ) THEN
158: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
159: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_RULE : P_ACTION Check_Parent_Existance rul_sequence_number : IGSUI09B.PLS');
160: IGS_GE_MSG_STACK.ADD;
161: App_Exception.Raise_Exception;
162: END IF;
168: ELSE
169: IF NOT IGS_RU_RULE_PKG.Get_PK_For_Validation (
170: new_references.message_rule
171: ) THEN
172: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
173: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_RULE : P_ACTION Check_Parent_Existance message_rule : IGSUI09B.PLS');
174: IGS_GE_MSG_STACK.ADD;
175: App_Exception.Raise_Exception;
176: END IF;
237: Open cur_rowid;
238: Fetch cur_rowid INTO lv_rowid;
239: IF (cur_rowid%FOUND) THEN
240: Close cur_rowid;
241: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NR_RUD_FK');
242: IGS_GE_MSG_STACK.ADD;
243: App_Exception.Raise_Exception;
244: Return;
245: END IF;
263: Open cur_rowid;
264: Fetch cur_rowid INTO lv_rowid;
265: IF (cur_rowid%FOUND) THEN
266: Close cur_rowid;
267: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NR_RUG_FK');
268: IGS_GE_MSG_STACK.ADD;
269: App_Exception.Raise_Exception;
270: Return;
271: END IF;
290: Open cur_rowid;
291: Fetch cur_rowid INTO lv_rowid;
292: IF (cur_rowid%FOUND) THEN
293: Close cur_rowid;
294: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NR_RUL_FK');
295: IGS_GE_MSG_STACK.ADD;
296: App_Exception.Raise_Exception;
297: Return;
298: END IF;
334: -- Call all the procedures related to Before Insert.
335: IF Get_PK_For_Validation (
336: new_references.rul_sequence_number
337: ) THEN
338: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
339: IGS_GE_MSG_STACK.ADD;
340: App_Exception.Raise_Exception;
341: END IF;
342: Check_Constraints;
351: ELSIF (p_action = 'VALIDATE_INSERT') THEN
352: IF Get_PK_For_Validation (
353: new_references.rul_sequence_number
354: ) THEN
355: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
356: IGS_GE_MSG_STACK.ADD;
357: App_Exception.Raise_Exception;
358: END IF;
359: Check_Constraints;
402: if X_LAST_UPDATE_LOGIN is NULL then
403: X_LAST_UPDATE_LOGIN := -1;
404: end if;
405: else
406: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
407: IGS_GE_MSG_STACK.ADD;
408: app_exception.raise_exception;
409: end if;
410:
482: begin
483: open c1;
484: fetch c1 into tlinfo;
485: if (c1%notfound) then
486: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
487: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_NAMED_RULE : P_ACTION LOCK_ROW message_rule : IGSUI09B.PLS');
488: IGS_GE_MSG_STACK.ADD;
489: app_exception.raise_exception;
490: close c1;
502: AND (tlinfo.RULE_TEXT = X_RULE_TEXT)
503: ) then
504: null;
505: else
506: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
507: IGS_RU_GEN_006.SET_TOKEN(' IGS_RU_NAMED_RULE : P_ACTION LOCK_ROW FORM_RECORD_CHANGED : IGSUI09B.PLS');
508: IGS_GE_MSG_STACK.ADD;
509: app_exception.raise_exception;
510: end if;
537: if X_LAST_UPDATE_LOGIN is NULL then
538: X_LAST_UPDATE_LOGIN := -1;
539: end if;
540: else
541: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
542: IGS_GE_MSG_STACK.ADD;
543: app_exception.raise_exception;
544: end if;
545: