[Home] [Help]
34: -- Populate Old Values.
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: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: IGS_GE_MSG_STACK.ADD;
40: Close cur_old_ref_values;
41: App_Exception.Raise_Exception;
42: Return;
86: END IF;
87:
88: IF ((UPPER (column_name) = 'CLOSED_IND') OR (column_name IS NULL)) THEN
89: IF new_references.closed_ind NOT IN ( 'Y' , 'N' ) THEN
90: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
91: IGS_GE_MSG_STACK.ADD;
92: App_Exception.Raise_Exception;
93: END IF;
94: END IF;
93: END IF;
94: END IF;
95: IF ((UPPER (column_name) = 'BULK_JOB_IND') OR (column_name IS NULL)) THEN
96: IF new_references.bulk_job_ind NOT IN ( 'Y' , 'N' ) THEN
97: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: END IF;
101: END IF;
102:
103: IF ((UPPER (column_name) = 'ENR_METHOD_TYPE') OR (column_name IS NULL)) THEN
104: IF (new_references.enr_method_type <> UPPER (new_references.enr_method_type)) THEN
105: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
106: IGS_GE_MSG_STACK.ADD;
107: App_Exception.Raise_Exception;
108: END IF;
109: END IF;
109: END IF;
110:
111: IF ((UPPER (column_name) = 'TRANSFER_FLAG') OR (column_name IS NULL)) THEN
112: IF new_references.transfer_flag NOT IN ( 'Y' , 'N' ) 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;
117: END IF;
118:
119: IF ((UPPER (column_name) = 'DFLT_TRANS_DETAILS_FLAG') OR (column_name IS NULL)) THEN
120: IF new_references.dflt_trans_details_flag NOT IN ( 'Y' , 'N' ) THEN
121: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
207: -- Call all the procedures related to Before Insert.
208: IF Get_PK_For_Validation(
209: new_references.enr_method_type) THEN
210:
211: Fnd_message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
212: IGS_GE_MSG_STACK.ADD;
213: App_Exception.Raise_Exception;
214:
215: END IF;
223: Check_Child_Existance;
224:
225: ELSIF (p_action = 'VALIDATE_INSERT') THEN
226: IF Get_PK_For_Validation ( new_references.enr_method_type) THEN
227: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
228: IGS_GE_MSG_STACK.ADD;
229: App_Exception.Raise_Exception;
230: END IF;
231: Check_Constraints;
290: if X_LAST_UPDATE_LOGIN is NULL then
291: X_LAST_UPDATE_LOGIN := -1;
292: end if;
293: else
294: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
295: IGS_GE_MSG_STACK.ADD;
296: app_exception.raise_exception;
297: end if;
298: Before_DML (
383: begin
384: open c1;
385: fetch c1 into tlinfo;
386: if (c1%notfound) then
387: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
388: IGS_GE_MSG_STACK.ADD;
389: close c1;
390: app_exception.raise_exception;
391: return;
409: AND (X_DFLT_TRANS_DETAILS_FLAG is null)))
410: ) then
411: null;
412: else
413: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
414: IGS_GE_MSG_STACK.ADD;
415: app_exception.raise_exception;
416: end if;
417: return;
446: if X_LAST_UPDATE_LOGIN is NULL then
447: X_LAST_UPDATE_LOGIN := -1;
448: end if;
449: else
450: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
451: IGS_GE_MSG_STACK.ADD;
452: app_exception.raise_exception;
453: end if;
454: Before_DML (