[Home] [Help]
31: Open cur_old_ref_values;
32: Fetch cur_old_ref_values INTO old_references;
33: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
34: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
35: IGS_GE_MSG_STACK.ADD;
36: App_Exception.Raise_Exception;
37: Close cur_old_ref_values;
38: Return;
39: END IF;
70: IF IGS_AD_VAL_BFA.admp_val_gbfat_clsd(
71: new_references.govt_basis_for_adm_type,
72: v_message_name) = FALSE THEN
73: Fnd_Message.Set_Name('IGS',v_message_name);
74: IGS_GE_MSG_STACK.ADD;
75: App_Exception.Raise_Exception;
76: END IF;
77: END IF;
78:
97:
98: IF upper(Column_Name) = 'CLOSED_IND' OR Column_Name IS NULL THEN
99: IF new_references.closed_ind NOT IN ('Y','N') THEN
100: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
101: IGS_GE_MSG_STACK.ADD;
102: App_Exception.Raise_Exception;
103: END IF;
104: END IF;
105: IF upper(Column_Name) = 'BASIS_FOR_ADMISSION_TYPE' OR Column_Name IS NULL THEN
104: END IF;
105: IF upper(Column_Name) = 'BASIS_FOR_ADMISSION_TYPE' OR Column_Name IS NULL THEN
106: IF new_references.basis_for_admission_type <> UPPER(new_references.basis_for_admission_type) THEN
107: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
108: IGS_GE_MSG_STACK.ADD;
109: App_Exception.Raise_Exception;
110: END IF;
111: END IF;
112: IF upper(Column_Name) = 'GOVT_BASIS_FOR_ADM_TYPE' OR Column_Name IS NULL THEN
111: END IF;
112: IF upper(Column_Name) = 'GOVT_BASIS_FOR_ADM_TYPE' OR Column_Name IS NULL THEN
113: IF new_references.govt_basis_for_adm_type <> UPPER(new_references.govt_basis_for_adm_type) THEN
114: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
115: IGS_GE_MSG_STACK.ADD;
116: App_Exception.Raise_Exception;
117: END IF;
118: END IF;
119:
129: IF NOT IGS_AD_GOV_BAS_FR_TY_PKG.Get_PK_For_Validation (
130: new_references.govt_basis_for_adm_type,
131: 'N' ) THEN
132: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
133: IGS_GE_MSG_STACK.ADD;
134: App_Exception.Raise_Exception;
135: END IF;
136: END IF;
137:
194: Fetch cur_rowid INTO lv_rowid;
195: IF (cur_rowid%FOUND) THEN
196: Close cur_rowid;
197: Fnd_Message.Set_Name ('IGS', 'IGS_AD_BFA_GBFAT_FK');
198: IGS_GE_MSG_STACK.ADD;
199: App_Exception.Raise_Exception;
200: Return;
201: END IF;
202: Close cur_rowid;
237: IF Get_PK_For_Validation (
238: new_references.basis_for_admission_type
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_Constraints;
245: Check_Parent_Existance;
253: IF Get_PK_For_Validation (
254: new_references.basis_for_admission_type
255: ) THEN
256: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
257: IGS_GE_MSG_STACK.ADD;
258: App_Exception.Raise_Exception;
259: END IF;
260: Check_Constraints;
261: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
304: X_LAST_UPDATE_LOGIN := -1;
305: end if;
306: else
307: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
308: IGS_GE_MSG_STACK.ADD;
309: app_exception.raise_exception;
310: end if;
311:
312: Before_DML(
378: open c1;
379: fetch c1 into tlinfo;
380: if (c1%notfound) then
381: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
382: IGS_GE_MSG_STACK.ADD;
383: app_exception.raise_exception;
384: close c1;
385: return;
386: end if;
394: ) then
395: null;
396: else
397: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
398: IGS_GE_MSG_STACK.ADD;
399: app_exception.raise_exception;
400: end if;
401: return;
402: end LOCK_ROW;
427: X_LAST_UPDATE_LOGIN := -1;
428: end if;
429: else
430: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
431: IGS_GE_MSG_STACK.ADD;
432: app_exception.raise_exception;
433: end if;
434:
435: Before_DML(