[Home] [Help]
33: Open cur_old_ref_values;
34: Fetch cur_old_ref_values INTO old_references;
35: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
36: Close cur_old_ref_values;
37: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
38: IGS_GE_MSG_STACK.ADD;
39: App_Exception.Raise_Exception;
40: Return;
41: END IF;
69: -- Validate that inserts/updates are allowed
70: IF p_inserting OR p_updating THEN
71: IF IGS_EN_VAL_UDDC.ENRP_VAL_AUS_CLOSED(new_references.administrative_unit_status
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: IF IGS_EN_VAL_UDDC.ENRP_VAL_AUS_DISCONT(new_references.administrative_unit_status,
75: App_Exception.Raise_Exception;
76: END IF;
77: IF IGS_EN_VAL_UDDC.ENRP_VAL_AUS_DISCONT(new_references.administrative_unit_status,
78: v_message_name) = FALSE THEN
79: Fnd_Message.Set_Name('IGS',v_message_name);
80: IGS_GE_MSG_STACK.ADD;
81: App_Exception.Raise_Exception;
82: END IF;
83: IF IGS_EN_VAL_UDDC.ENRP_VAL_TEACHING_DA(new_references.unit_discont_dt_alias,
81: App_Exception.Raise_Exception;
82: END IF;
83: IF IGS_EN_VAL_UDDC.ENRP_VAL_TEACHING_DA(new_references.unit_discont_dt_alias,
84: v_message_name) = FALSE THEN
85: Fnd_Message.Set_Name('IGS',v_message_name);
86: IGS_GE_MSG_STACK.ADD;
87: App_Exception.Raise_Exception;
88: END IF;
89: IF IGS_EN_VAL_UDDC.ENRP_VAL_UDDC_FIELDS(new_references.administrative_unit_status ,new_references.delete_ind
87: App_Exception.Raise_Exception;
88: END IF;
89: IF IGS_EN_VAL_UDDC.ENRP_VAL_UDDC_FIELDS(new_references.administrative_unit_status ,new_references.delete_ind
90: ,v_message_name) = FALSE THEN
91: Fnd_Message.Set_Name('IGS',v_message_name);
92: IGS_GE_MSG_STACK.ADD;
93: App_Exception.Raise_Exception;
94: END IF;
95: END IF;
116: END IF;
117:
118: IF Upper(Column_Name)='ADMINISTRATIVE_UNIT_STATUS' OR Column_Name IS NULL Then
119: IF New_References.administrative_unit_status <> UPPER(New_References.administrative_unit_status) Then
120: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
121: IGS_GE_MSG_STACK.ADD;
122: App_Exception.Raise_Exception;
123: END IF;
124: END IF;
124: END IF;
125:
126: IF Upper(Column_Name)='UNIT_DISCONT_DT_ALIAS' OR Column_Name IS NULL Then
127: IF New_References.unit_discont_dt_alias <> UPPER(New_References.unit_discont_dt_alias) Then
128: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
129: IGS_GE_MSG_STACK.ADD;
130: App_Exception.Raise_Exception;
131: END IF;
132: END IF;
132: END IF;
133:
134: IF Upper(Column_Name)='DFLT_IND' OR Column_Name IS NULL Then
135: IF New_References.dflt_ind NOT IN ('Y','N') Then
136: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
137: IGS_GE_MSG_STACK.ADD;
138: App_Exception.Raise_Exception;
139: END IF;
140: END IF;
140: END IF;
141:
142: IF Upper(Column_Name)='DELETE_IND' OR Column_Name IS NULL Then
143: IF New_References.delete_ind NOT IN ('Y','N') Then
144: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
145: IGS_GE_MSG_STACK.ADD;
146: App_Exception.Raise_Exception;
147: END IF;
148: END IF;
156: ((new_references.administrative_unit_status IS NULL))) THEN
157: NULL;
158: ELSE
159: IF NOT IGS_AD_ADM_UNIT_STAT_PKG.Get_PK_For_Validation (new_references.administrative_unit_status , 'N') THEN
160: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
161: IGS_GE_MSG_STACK.ADD;
162: App_Exception.Raise_Exception;
163: END IF;
164:
168: ((new_references.unit_discont_dt_alias IS NULL))) THEN
169: NULL;
170: ELSE
171: IF NOT IGS_CA_DA_PKG.Get_PK_For_Validation (new_references.unit_discont_dt_alias) THEN
172: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
173: IGS_GE_MSG_STACK.ADD;
174: App_Exception.Raise_Exception;
175: END IF;
176:
219: Open cur_rowid;
220: Fetch cur_rowid INTO lv_rowid;
221: IF (cur_rowid%FOUND) THEN
222: Close cur_rowid;
223: Fnd_Message.Set_Name ('IGS', 'IGS_PS_UDDC_DA_FK');
224: IGS_GE_MSG_STACK.ADD;
225: App_Exception.Raise_Exception;
226: Return;
227: END IF;
261: IF (p_action = 'INSERT') THEN
262: -- Call all the procedures related to Before Insert.
263: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
264: IF Get_PK_For_Validation (New_References.unit_discont_dt_alias) THEN
265: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
266: IGS_GE_MSG_STACK.ADD;
267: App_Exception.Raise_Exception;
268: END IF;
269: Check_Constraints;
275: Check_Parent_Existance;
276:
277: ELSIF (p_action = 'VALIDATE_INSERT') THEN
278: IF Get_PK_For_Validation (New_References.unit_discont_dt_alias) THEN
279: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
280: IGS_GE_MSG_STACK.ADD;
281: App_Exception.Raise_Exception;
282: END IF;
283: Check_Constraints;
327: if X_LAST_UPDATE_LOGIN is NULL then
328: X_LAST_UPDATE_LOGIN := -1;
329: end if;
330: else
331: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
332: IGS_GE_MSG_STACK.ADD;
333: app_exception.raise_exception;
334: end if;
335:
403: open c1;
404: fetch c1 into tlinfo;
405: if (c1%notfound) then
406: close c1;
407: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
408: IGS_GE_MSG_STACK.ADD;
409: app_exception.raise_exception;
410: return;
411: end if;
418: AND (tlinfo.DFLT_IND = X_DFLT_IND)
419: ) then
420: null;
421: else
422: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
423: IGS_GE_MSG_STACK.ADD;
424: app_exception.raise_exception;
425: end if;
426: return;
451: if X_LAST_UPDATE_LOGIN is NULL then
452: X_LAST_UPDATE_LOGIN := -1;
453: end if;
454: else
455: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
456: IGS_GE_MSG_STACK.ADD;
457: app_exception.raise_exception;
458: end if;
459: