[Home] [Help]
46: Open cur_old_ref_values;
47: Fetch cur_old_ref_values INTO old_references;
48: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
49: Close cur_old_ref_values;
50: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
51: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_NAMED_RULE_GR : P_ACTION INSERT, VALIDATE_INSERT : IGSUI17B.PLS');
52: IGS_GE_MSG_STACK.ADD;
53: App_Exception.Raise_Exception;
54: Return;
109: IF Upper(Column_Name) = 'SELECT_GROUP' OR
110: Column_Name IS NULL THEN
111: IF NOT (new_references.select_group BETWEEN 1
112: AND 999999) THEN
113: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
114: IGS_GE_MSG_STACK.ADD;
115: App_Exception.Raise_Exception;
116: END IF;
117: END IF;
120: IF Upper(Column_Name) = 'MESSAGE_GROUP' OR
121: Column_Name IS NULL THEN
122: IF NOT (new_references.message_group BETWEEN 1
123: AND 999999) THEN
124: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
125: IGS_GE_MSG_STACK.ADD;
126: App_Exception.Raise_Exception;
127: END IF;
128: END IF;
131: IF Upper(Column_Name) = 'RUG_SEQUENCE_NUMBER' OR
132: Column_Name IS NULL THEN
133: IF NOT (new_references.rug_sequence_number BETWEEN 1
134: AND 999999) THEN
135: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
136: IGS_GE_MSG_STACK.ADD;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
161: NULL;
162: ELSIF NOT Igs_Ru_Ret_Type_Pkg.Get_PK_For_Validation (
163: new_references.s_return_type
164: ) THEN
165: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
166: IGS_RU_GEN_006.SET_TOKEN('Igs_Ru_Ret_Type : P_ACTION Check_Parent_Existance s_return_type : IGSUI17B.PLS');
167: IGS_GE_MSG_STACK.ADD;
168: App_Exception.Raise_Exception;
169: END IF;
173: NULL;
174: ELSIF NOT Igs_Ru_Nrg_Group_Cd_Pkg.Get_PK_For_Validation (
175: new_references.group_cd
176: ) THEN
177: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
178: IGS_RU_GEN_006.SET_TOKEN('Igs_Ru_Nrg_Group : P_ACTION Check_Parent_Existance group_cd : IGSUI17B.PLS');
179: IGS_GE_MSG_STACK.ADD;
180: App_Exception.Raise_Exception;
181: END IF;
185: NULL;
186: ELSIF NOT Igs_Ru_Group_Pkg.Get_PK_For_Validation (
187: new_references.message_group
188: ) THEN
189: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
190: IGS_RU_GEN_006.SET_TOKEN('Igs_Ru_Group : P_ACTION Check_Parent_Existance message_group : IGSUI17B.PLS');
191: IGS_GE_MSG_STACK.ADD;
192: App_Exception.Raise_Exception;
193: END IF;
197: NULL;
198: ELSIF NOT Igs_Ru_Group_Pkg.Get_PK_For_Validation (
199: new_references.rug_sequence_number
200: ) THEN
201: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
202: IGS_RU_GEN_006.SET_TOKEN('Igs_Ru_Group : P_ACTION Check_Parent_Existance rug_sequence_number : IGSUI17B.PLS');
203: IGS_GE_MSG_STACK.ADD;
204: App_Exception.Raise_Exception;
205: END IF;
209: NULL;
210: ELSIF NOT Igs_Ru_Group_Pkg.Get_PK_For_Validation (
211: new_references.select_group
212: ) THEN
213: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
214: IGS_RU_GEN_006.SET_TOKEN('Igs_Ru_Group : P_ACTION Check_Parent_Existance select_group : IGSUI17B.PLS');
215: IGS_GE_MSG_STACK.ADD;
216: App_Exception.Raise_Exception;
217: END IF;
283: Open cur_rowid;
284: Fetch cur_rowid INTO lv_rowid;
285: IF (cur_rowid%FOUND) THEN
286: Close cur_rowid;
287: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NRG_SRRT_FK');
288: IGS_GE_MSG_STACK.ADD;
289: App_Exception.Raise_Exception;
290: Return;
291: END IF;
320: Open cur_rowid;
321: Fetch cur_rowid INTO lv_rowid;
322: IF (cur_rowid%FOUND) THEN
323: Close cur_rowid;
324: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NRG_NGC_FK');
325: IGS_GE_MSG_STACK.ADD;
326: App_Exception.Raise_Exception;
327: Return;
328: END IF;
357: Open cur_rowid;
358: Fetch cur_rowid INTO lv_rowid;
359: IF (cur_rowid%FOUND) THEN
360: Close cur_rowid;
361: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NRG_MG_RUG_FK');
362: IGS_GE_MSG_STACK.ADD;
363: App_Exception.Raise_Exception;
364: Return;
365: END IF;
394: Open cur_rowid;
395: Fetch cur_rowid INTO lv_rowid;
396: IF (cur_rowid%FOUND) THEN
397: Close cur_rowid;
398: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NRG_MG_RUG_FK');
399: IGS_GE_MSG_STACK.ADD;
400: App_Exception.Raise_Exception;
401: Return;
402: END IF;
431: Open cur_rowid;
432: Fetch cur_rowid INTO lv_rowid;
433: IF (cur_rowid%FOUND) THEN
434: Close cur_rowid;
435: Fnd_Message.Set_Name ('IGS', 'IGS_RU_NRG_MG_RUG_FK');
436: IGS_GE_MSG_STACK.ADD;
437: App_Exception.Raise_Exception;
438: Return;
439: END IF;
493: Null;
494: IF Get_Pk_For_Validation(
495: new_references.group_cd,
496: new_references.name_cd) THEN
497: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
498: IGS_GE_MSG_STACK.ADD;
499: App_Exception.Raise_Exception;
500: END IF;
501: Check_Constraints;
512: -- Call all the procedures related to Before Insert.
513: IF Get_PK_For_Validation (
514: new_references.group_cd,
515: new_references.name_cd) THEN
516: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
517: IGS_GE_MSG_STACK.ADD;
518: App_Exception.Raise_Exception;
519: END IF;
520: Check_Constraints;
603: if X_LAST_UPDATE_LOGIN is NULL then
604: X_LAST_UPDATE_LOGIN := -1;
605: end if;
606: else
607: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
608: IGS_GE_MSG_STACK.ADD;
609: app_exception.raise_exception;
610: end if;
611: Before_DML(
695: begin
696: open c1;
697: fetch c1 into tlinfo;
698: if (c1%notfound) then
699: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
700: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_NAMED_RULE_GR : P_ACTION LOCK_ROW : IGSUI17B.PLS');
701: IGS_GE_MSG_STACK.ADD;
702: close c1;
703: app_exception.raise_exception;
713: AND (X_MESSAGE_GROUP is null)))
714: ) then
715: null;
716: else
717: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
718: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_NAMED_RULE_GR : P_ACTION LOCK_ROW FORM_RECORD_CHANGED : IGSUI17B.PLS');
719: IGS_GE_MSG_STACK.ADD;
720: app_exception.raise_exception;
721: end if;
761: if X_LAST_UPDATE_LOGIN is NULL then
762: X_LAST_UPDATE_LOGIN := -1;
763: end if;
764: else
765: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
766: IGS_GE_MSG_STACK.ADD;
767: app_exception.raise_exception;
768: end if;
769: Before_DML(