[Home] [Help]
37: Fetch cur_old_ref_values INTO old_references;
38: IF (cur_old_ref_values%NOTFOUND) AND p_action NOT IN ('INSERT','VALIDATE_INSERT') THEN
39: Close cur_old_ref_values;
40: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
41: IGS_GE_MSG_STACK.ADD;
42: App_Exception.Raise_Exception;
43: Return;
44: END IF;
45: Close cur_old_ref_values;
90: v_dla_cal_type,
91: v_ci_sequence_number,
92: v_message_name) = FALSE THEN
93: Fnd_Message.Set_Name('IGS', v_message_name);
94: IGS_GE_MSG_STACK.ADD;
95: App_Exception.Raise_Exception;
96: END IF;
97: -- Validate the unit version status.
98: IF p_inserting OR
103: new_references.unit_cd,
104: new_references.version_number,
105: v_message_name) = FALSE THEN
106: Fnd_Message.Set_Name('IGS', v_message_name);
107: IGS_GE_MSG_STACK.ADD;
108: App_Exception.Raise_Exception;
109: END IF;
110: END IF;
111:
137:
138: IF upper(Column_Name) = 'CI_SEQUENCE_NUMBER' OR Column_Name IS NULL THEN
139: IF new_references.ci_sequence_number < 1 OR new_references.ci_sequence_number > 999999 THEN
140: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
141: IGS_GE_MSG_STACK.ADD;
142: App_Exception.Raise_Exception;
143: END IF;
144: END IF;
145: IF upper(Column_Name) = 'SECOND_PERCENTAGE' OR Column_Name IS NULL THEN
144: END IF;
145: IF upper(Column_Name) = 'SECOND_PERCENTAGE' OR Column_Name IS NULL THEN
146: IF new_references.second_percentage < 0 OR new_references.second_percentage > 100 THEN
147: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
148: IGS_GE_MSG_STACK.ADD;
149: App_Exception.Raise_Exception;
150: END IF;
151: END IF;
152: IF upper(Column_Name) = 'DLA_CAL_TYPE' OR Column_Name IS NULL THEN
151: END IF;
152: IF upper(Column_Name) = 'DLA_CAL_TYPE' OR Column_Name IS NULL THEN
153: IF new_references.dla_cal_type <> UPPER(new_references.dla_cal_type) THEN
154: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
155: IGS_GE_MSG_STACK.ADD;
156: App_Exception.Raise_Exception;
157: END IF;
158: END IF;
159: IF upper(Column_Name) = 'TEACH_CAL_TYPE' OR Column_Name IS NULL THEN
158: END IF;
159: IF upper(Column_Name) = 'TEACH_CAL_TYPE' OR Column_Name IS NULL THEN
160: IF new_references.teach_cal_type <> UPPER(new_references.teach_cal_type) THEN
161: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
162: IGS_GE_MSG_STACK.ADD;
163: App_Exception.Raise_Exception;
164: END IF;
165: END IF;
166: IF upper(Column_Name) = 'UNIT_CD' OR Column_Name IS NULL THEN
165: END IF;
166: IF upper(Column_Name) = 'UNIT_CD' OR Column_Name IS NULL THEN
167: IF new_references.unit_cd <> UPPER(new_references.unit_cd) THEN
168: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
169: IGS_GE_MSG_STACK.ADD;
170: App_Exception.Raise_Exception;
171: END IF;
172: END IF;
173: IF upper(Column_Name) = 'PERCENTAGE' OR Column_Name IS NULL THEN
172: END IF;
173: IF upper(Column_Name) = 'PERCENTAGE' OR Column_Name IS NULL THEN
174: IF new_references.percentage < 0 OR new_references.percentage > 100 THEN
175: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
176: IGS_GE_MSG_STACK.ADD;
177: App_Exception.Raise_Exception;
178: END IF;
179: END IF;
180:
196: new_references.ci_sequence_number,
197: new_references.teach_cal_type
198: ) THEN
199: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
200: IGS_GE_MSG_STACK.ADD;
201: App_Exception.Raise_Exception;
202: END IF;
203: END IF;
204:
215: new_references.version_number,
216: new_references.teach_cal_type
217: ) THEN
218: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
219: IGS_GE_MSG_STACK.ADD;
220: App_Exception.Raise_Exception;
221: END IF;
222: END IF;
223:
278: Fetch cur_rowid INTO lv_rowid;
279: IF (cur_rowid%FOUND) THEN
280: Close cur_rowid;
281: Fnd_Message.Set_Name ('IGS', 'IGS_ST_ULA_DLA_FK');
282: IGS_GE_MSG_STACK.ADD;
283: App_Exception.Raise_Exception;
284: Return;
285: END IF;
286: Close cur_rowid;
308: Fetch cur_rowid INTO lv_rowid;
309: IF (cur_rowid%FOUND) THEN
310: Close cur_rowid;
311: Fnd_Message.Set_Name ('IGS', 'IGS_ST_ULA_UO_FK');
312: IGS_GE_MSG_STACK.ADD;
313: App_Exception.Raise_Exception;
314: Return;
315: END IF;
316: Close cur_rowid;
361: new_references.version_number,
362: new_references.teach_cal_type
363: ) THEN
364: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
365: IGS_GE_MSG_STACK.ADD;
366: App_Exception.Raise_Exception;
367: END IF;
368: Check_Constraints;
369: Check_Parent_Existance;
381: new_references.version_number,
382: new_references.teach_cal_type
383: ) THEN
384: Fnd_Message.Set_Name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
385: IGS_GE_MSG_STACK.ADD;
386: App_Exception.Raise_Exception;
387: END IF;
388: Check_Constraints;
389: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
437: X_LAST_UPDATE_LOGIN := -1;
438: end if;
439: else
440: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
441: IGS_GE_MSG_STACK.ADD;
442: app_exception.raise_exception;
443: end if;
444: Before_DML (
445: p_action => 'INSERT',
522: fetch c1 into tlinfo;
523: if (c1%notfound) then
524: close c1;
525: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
526: IGS_GE_MSG_STACK.ADD;
527: app_exception.raise_exception;
528: return;
529: end if;
530: close c1;
536: ) then
537: null;
538: else
539: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
540: IGS_GE_MSG_STACK.ADD;
541: app_exception.raise_exception;
542: end if;
543: return;
544: end LOCK_ROW;
572: X_LAST_UPDATE_LOGIN := -1;
573: end if;
574: else
575: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
576: IGS_GE_MSG_STACK.ADD;
577: app_exception.raise_exception;
578: end if;
579: Before_DML (
580: p_action => 'UPDATE',