[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;
93: v_cal_type,
94: v_ci_sequence_number,
95: v_message_name) = FALSE THEN
96:
97: Fnd_Message.Set_Name('IGS',v_message_name);
98: IGS_GE_MSG_STACK.ADD;
99: App_Exception.Raise_Exception;
100: END IF;
101: -- Validate that inserts/updates are allowed
101: -- Validate that inserts/updates are allowed
102: IF p_inserting OR p_updating THEN
103: IF IGS_EN_VAL_UDDC.ENRP_VAL_AUS_CLOSED(new_references.administrative_unit_status
104: ,v_message_name) = FALSE THEN
105: Fnd_Message.Set_Name('IGS',v_message_name);
106: IGS_GE_MSG_STACK.ADD;
107: App_Exception.Raise_Exception;
108: END IF;
109: IF IGS_EN_VAL_AUSL.ENRP_VAL_AUSL_AUS(new_references.administrative_unit_status
107: App_Exception.Raise_Exception;
108: END IF;
109: IF IGS_EN_VAL_AUSL.ENRP_VAL_AUSL_AUS(new_references.administrative_unit_status
110: ,v_message_name) = FALSE THEN
111: Fnd_Message.Set_Name('IGS',v_message_name);
112: IGS_GE_MSG_STACK.ADD;
113: App_Exception.Raise_Exception;
114: END IF;
115: END IF;
127: NULL;
128: ELSE
129: IF NOT IGS_AD_ADM_UNIT_STAT_PKG.Get_PK_For_Validation (
130: new_references.administrative_unit_status,'N' ) THEN
131: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
145: IF NOT IGS_ST_DFT_LOAD_APPO_PKG.Get_PK_For_Validation (
146: new_references.cal_type,
147: new_references.ci_sequence_number,
148: new_references.teach_cal_type ) THEN
149: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
150: IGS_GE_MSG_STACK.ADD;
151: App_Exception.Raise_Exception;
152: END IF;
153: END IF;
174:
175: IF upper(Column_Name) = 'ADMINISTRATIVE_UNIT_STATUS' OR
176: Column_name IS NULL THEN
177: IF new_references.administrative_unit_status <> upper(new_references.administrative_unit_status) THEN
178: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
179: IGS_GE_MSG_STACK.ADD;
180: App_Exception.Raise_Exception;
181: END IF;
182: END IF;
182: END IF;
183: IF upper(Column_Name) = 'CAL_TYPE' OR
184: Column_name IS NULL THEN
185: IF new_references.cal_type <> upper(new_references.cal_type) THEN
186: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
187: IGS_GE_MSG_STACK.ADD;
188: App_Exception.Raise_Exception;
189: END IF;
190: END IF;
190: END IF;
191: IF upper(Column_Name) = 'TEACH_CAL_TYPE' OR
192: Column_name IS NULL THEN
193: IF new_references.teach_cal_type <> upper(new_references.teach_cal_type) THEN
194: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
195: IGS_GE_MSG_STACK.ADD;
196: App_Exception.Raise_Exception;
197: END IF;
198: END IF;
198: END IF;
199: IF upper(Column_Name) = 'LOAD_INCURRED_IND' OR
200: Column_name IS NULL THEN
201: IF new_references.load_incurred_ind NOT IN ('Y','N') THEN
202: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
203: IGS_GE_MSG_STACK.ADD;
204: App_Exception.Raise_Exception;
205: END IF;
206: END IF;
257: Open cur_rowid;
258: Fetch cur_rowid INTO lv_rowid;
259: IF (cur_rowid%FOUND) THEN
260: Close cur_rowid;
261: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUSL_DLA_FK');
262: IGS_GE_MSG_STACK.ADD;
263: App_Exception.Raise_Exception;
264: Return;
265: END IF;
306: new_references.cal_type,
307: new_references.ci_sequence_number,
308: new_references.teach_cal_type ) THEN
309:
310: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
311: IGS_GE_MSG_STACK.ADD;
312: App_Exception.Raise_Exception;
313: END IF;
314: Check_constraints;
330: new_references.cal_type,
331: new_references.ci_sequence_number,
332: new_references.teach_cal_type ) THEN
333:
334: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
335: IGS_GE_MSG_STACK.ADD;
336: App_Exception.Raise_Exception;
337: END IF;
338: Check_constraints;
384: if X_LAST_UPDATE_LOGIN is NULL then
385: X_LAST_UPDATE_LOGIN := -1;
386: end if;
387: else
388: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
389: IGS_GE_MSG_STACK.ADD;
390: app_exception.raise_exception;
391: end if;
392:
460: open c1;
461: fetch c1 into tlinfo;
462: if (c1%notfound) then
463: close c1;
464: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
465: app_exception.raise_exception;
466: return;
467: end if;
468: close c1;
470: if ( (tlinfo.LOAD_INCURRED_IND = X_LOAD_INCURRED_IND)
471: ) then
472: null;
473: else
474: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
475: app_exception.raise_exception;
476: end if;
477: return;
478: end LOCK_ROW;
503: if X_LAST_UPDATE_LOGIN is NULL then
504: X_LAST_UPDATE_LOGIN := -1;
505: end if;
506: else
507: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
508: IGS_GE_MSG_STACK.ADD;
509: app_exception.raise_exception;
510: end if;
511: