[Home] [Help]
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
38: Close cur_old_ref_values;
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_CALL : P_ACTION Insert, validate Insert : IGSUI01B.PLS');
41: IGS_GE_MSG_STACK.ADD;
42: App_Exception.Raise_Exception;
43: Return;
76: ELSE
77: IF NOT IGS_RU_NAMED_RULE_PKG.Get_PK_For_Validation (
78: new_references.default_rule
79: )THEN
80: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
81: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_NAMED_RULE : P_ACTION Check_Parent_Existance new_references.default_rule : IGSUI01B.PLS');
82: IGS_GE_MSG_STACK.ADD;
83: App_Exception.Raise_Exception;
84:
92: ELSE
93: IF NOT IGS_RU_DESCRIPTION_PKG.Get_PK_For_Validation (
94: new_references.rud_sequence_number
95: )THEN
96: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
97: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_DESCRIPTION : P_ACTION Check_Parent_Existance new_references.rud_sequence_number : IGSUI01B.PLS');
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100:
108: ELSE
109: IF NOT IGS_RU_GROUP_PKG.Get_PK_For_Validation (
110: new_references.rug_sequence_number
111: )THEN
112: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
113: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_GROUP : P_ACTION Check_Parent_Existance new_references.rug_sequence_number : IGSUI01B.PLS');
114: IGS_GE_MSG_STACK.ADD;
115: App_Exception.Raise_Exception;
116:
124: ELSE
125: IF NOT IGS_RU_GROUP_PKG.Get_PK_For_Validation (
126: new_references.select_group
127: )THEN
128: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
129: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_GROUP : P_ACTION Check_Parent_Existance new_references.select_group : IGSUI01B.PLS');
130: IGS_GE_MSG_STACK.ADD;
131: App_Exception.Raise_Exception;
132:
222: Open cur_rowid;
223: Fetch cur_rowid INTO lv_rowid;
224: IF (cur_rowid%FOUND) THEN
225: Close cur_rowid;
226: Fnd_Message.Set_Name ('IGS', 'IGS_RU_SRC_NR_FK');
227: IGS_GE_MSG_STACK.ADD;
228: App_Exception.Raise_Exception;
229: Return;
230: END IF;
248: Open cur_rowid;
249: Fetch cur_rowid INTO lv_rowid;
250: IF (cur_rowid%FOUND) THEN
251: Close cur_rowid;
252: Fnd_Message.Set_Name ('IGS', 'IGS_RU_SRC_RUD_FK');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: Return;
256: END IF;
276: Open cur_rowid;
277: Fetch cur_rowid INTO lv_rowid;
278: IF (cur_rowid%FOUND) THEN
279: Close cur_rowid;
280: Fnd_Message.Set_Name ('IGS', 'IGS_RU_SRC_RUG_SG_FK');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: Return;
284: END IF;
302: Open cur_rowid;
303: Fetch cur_rowid INTO lv_rowid;
304: IF (cur_rowid%FOUND) THEN
305: Close cur_rowid;
306: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
307: App_Exception.Raise_Exception;
308: Return;
309: END IF;
310: Close cur_rowid;
315: BEGIN
316:
317: IF GET_UK1_FOR_VALIDATION(
318: new_references.rud_sequence_number) THEN
319: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
320: IGS_GE_MSG_STACK.ADD;
321: APP_EXCEPTION.RAISE_EXCEPTION;
322: END IF;
323:
365: -- Call all the procedures related to Before Insert.
366: Null;
367: IF GET_PK_FOR_VALIDATION(
368: new_references.s_rule_call_cd )THEN
369: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
370: IGS_GE_MSG_STACK.ADD;
371: APP_EXCEPTION.RAISE_EXCEPTION;
372: END IF;
373: --Check_Unique (x_rowid);
402: -- Call all the procedures related to Before Delete.
403: IF GET_PK_FOR_VALIDATION(
404: new_references.s_rule_call_cd
405: )THEN
406: FND_MESSAGE.SET_NAME('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
407: IGS_GE_MSG_STACK.ADD;
408: APP_EXCEPTION.RAISE_EXCEPTION;
409: END IF;
410: Check_uniqueness;
479: if X_LAST_UPDATE_LOGIN is NULL then
480: X_LAST_UPDATE_LOGIN := -1;
481: end if;
482: else
483: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
484: IGS_GE_MSG_STACK.ADD;
485: app_exception.raise_exception;
486: end if;
487:
577: open c1;
578: fetch c1 into tlinfo;
579: if (c1%notfound) then
580: close c1;
581: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
582: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_CALL : P_ACTION LOCK_ROW : IGSUI01B.PLS');
583: IGS_GE_MSG_STACK.ADD;
584: app_exception.raise_exception;
585: return;
603: AND (X_RUG_SEQUENCE_NUMBER is null)))
604: ) then
605: null;
606: else
607: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
608: IGS_RU_GEN_006.SET_TOKEN('IGS_RU_CALL : P_ACTION LOCK_ROW FORM_RECORD_CHANGED : IGSUI01B.PLS');
609: IGS_GE_MSG_STACK.ADD;
610: app_exception.raise_exception;
611: end if;
641: if X_LAST_UPDATE_LOGIN is NULL then
642: X_LAST_UPDATE_LOGIN := -1;
643: end if;
644: else
645: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
646: IGS_GE_MSG_STACK.ADD;
647: app_exception.raise_exception;
648: end if;
649:
784: END IF ;
785:
786: IF upper(Column_name) = 'DEFAULT_RULE' OR COLUMN_NAME IS NULL THEN
787: IF new_references.DEFAULT_RULE < 1 or new_references.DEFAULT_RULE > 999999 then
788: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
789: IGS_GE_MSG_STACK.ADD;
790: App_Exception.Raise_Exception ;
791: END IF;
792:
793: END IF ;
794:
795: IF upper(Column_name) = 'RUD_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
796: IF new_references.RUD_SEQUENCE_NUMBER < 1 or new_references.RUD_SEQUENCE_NUMBER > 999999 then
797: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
798: IGS_GE_MSG_STACK.ADD;
799: App_Exception.Raise_Exception ;
800: END IF;
801:
802: END IF ;
803:
804: IF upper(Column_name) = 'RUG_SEQUENCE_NUMBER' OR COLUMN_NAME IS NULL THEN
805: IF new_references.RUG_SEQUENCE_NUMBER < 1 or new_references.RUG_SEQUENCE_NUMBER > 999999 then
806: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
807: IGS_GE_MSG_STACK.ADD;
808: App_Exception.Raise_Exception ;
809: END IF;
810:
811: END IF ;
812:
813: IF upper(Column_name) = 'SELECT_GROUP' OR COLUMN_NAME IS NULL THEN
814: IF new_references.SELECT_GROUP < 1 or new_references.SELECT_GROUP > 999999 then
815: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
816: IGS_GE_MSG_STACK.ADD;
817: App_Exception.Raise_Exception ;
818: END IF;
819:
820: END IF ;
821:
822: IF upper(Column_name) = 'S_RULE_CALL_CD' OR COLUMN_NAME IS NULL THEN
823: IF new_references.S_RULE_CALL_CD<> upper(new_references.S_RULE_CALL_CD) then
824: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
825: IGS_GE_MSG_STACK.ADD;
826: App_Exception.Raise_Exception ;
827: END IF;
828:
829: END IF ;
830:
831: IF upper(Column_name) = 'S_RULE_TYPE_CD' OR COLUMN_NAME IS NULL THEN
832: IF new_references.S_RULE_TYPE_CD<> upper(new_references.S_RULE_TYPE_CD) then
833: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
834: IGS_GE_MSG_STACK.ADD;
835: App_Exception.Raise_Exception ;
836: END IF;
837: