[Home] [Help]
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;
40: Close cur_old_ref_values;
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:
79:
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
106: IF new_references.basis_for_admission_type <> UPPER(new_references.basis_for_admission_type) THEN
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
113: IF new_references.govt_basis_for_adm_type <> UPPER(new_references.govt_basis_for_adm_type) THEN
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:
120: END Check_Constraints;
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:
138: END Check_Parent_Existance;
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;
203:
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;
246: ELSIF (p_action = 'UPDATE') THEN
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
262: Check_Constraints;
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(
313: p_action=>'INSERT',
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;
387: close c1;
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;
403:
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(
436: p_action=>'UPDATE',