[Home] [Help]
32: -- Populate Old Values.
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: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
37: Igs_Ge_Msg_Stack.Add;
38: Close cur_old_ref_values; App_Exception.Raise_Exception;
39: Return;
40: END IF;
86: rec.as_version_number, --new_references.as_version_number,
87: v_message_name,
88: v_return_type) = FALSE THEN
89: IF v_return_type = 'E' THEN
90: Fnd_Message.Set_Name('IGS', v_message_name);
91: Igs_Ge_Msg_Stack.Add;
92: App_Exception.Raise_Exception;
93: END IF;
94: END IF;
117: IF upper(column_name) = 'BASIS_COURSE_TYPE' OR
118: column_name is null Then
119: IF new_references.BASIS_COURSE_TYPE <>
120: UPPER(new_references.BASIS_COURSE_TYPE) Then
121: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
122: Igs_Ge_Msg_Stack.Add;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
126: IF upper(column_name) = 'BASIS_COMPLETION_IND' OR
127: column_name is null Then
128: IF new_references.basis_completion_ind <>
129: UPPER(new_references.basis_completion_ind) Then
130: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
131: Igs_Ge_Msg_Stack.Add;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
135: IF upper(column_name) = 'BASIS_YEAR' OR
136: column_name is null Then
137: IF new_references.basis_year < 1900 OR
138: new_references.basis_year > 2100 Then
139: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
140: Igs_Ge_Msg_Stack.Add;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
143: END IF;
144: IF upper(column_name) = 'BASIS_COMPLETION_IND' OR
145: column_name is null Then
146: IF (new_references.basis_completion_ind not in ('Y', 'N')) 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;
159: ELSE
160: IF NOT IGS_AV_STND_UNIT_PKG.Get_PK_For_Validation (
161: new_references.av_stnd_unit_id
162: ) THEN
163: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
164: Igs_Ge_Msg_Stack.Add;
165: App_Exception.Raise_Exception;
166: END IF;
167: END IF;
172: ELSE
173: IF NOT IGS_PS_TYPE_PKG.Get_PK_For_Validation (
174: new_references.basis_course_type
175: ) THEN
176: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
177: Igs_Ge_Msg_Stack.Add;
178: App_Exception.Raise_Exception;
179: END IF;
180: END IF;
221:
222: Open cur_rowid;
223: Fetch cur_rowid INTO lv_rowid;
224: IF (cur_rowid%FOUND) THEN
225: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASUB_ASU_FK');
226: Igs_Ge_Msg_Stack.Add;
227: Close cur_rowid; App_Exception.Raise_Exception;
228: Return;
229: END IF;
268: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
269: IF Get_PK_For_Validation (
270: new_references.av_stnd_unit_id
271: ) THEN
272: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
273: Igs_Ge_Msg_Stack.Add;
274: App_Exception.Raise_Exception;
275: END IF;
276: Check_Constraints;
286: ELSIF (p_action = 'VALIDATE_INSERT') THEN
287: IF Get_PK_For_Validation (
288: new_references.av_stnd_unit_id
289: ) THEN
290: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
291: Igs_Ge_Msg_Stack.Add;
292: App_Exception.Raise_Exception;
293: END IF;
294: Check_Constraints;
330: if X_LAST_UPDATE_LOGIN is NULL then
331: X_LAST_UPDATE_LOGIN := -1;
332: end if;
333: else
334: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
335: Igs_Ge_Msg_Stack.Add;
336: app_exception.raise_exception;
337: end if;
338:
391:
392: EXCEPTION
393: WHEN OTHERS THEN
394: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
395: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
396: fnd_message.set_token ('ERR_CD', SQLCODE);
397: igs_ge_msg_stack.add;
398: igs_sc_gen_001.unset_ctx('R');
399: app_exception.raise_exception;
392: EXCEPTION
393: WHEN OTHERS THEN
394: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
395: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
396: fnd_message.set_token ('ERR_CD', SQLCODE);
397: igs_ge_msg_stack.add;
398: igs_sc_gen_001.unset_ctx('R');
399: app_exception.raise_exception;
400: ELSE
422: begin
423: open c1;
424: fetch c1 into tlinfo;
425: if (c1%notfound) then
426: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
427: Igs_Ge_Msg_Stack.Add;
428: close c1; app_exception.raise_exception;
429: return;
430: end if;
441: AND (X_BASIS_COMPLETION_IND is null)))
442: ) then
443: null;
444: else
445: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
446: Igs_Ge_Msg_Stack.Add;
447: app_exception.raise_exception;
448: end if;
449: return;
474: if X_LAST_UPDATE_LOGIN is NULL then
475: X_LAST_UPDATE_LOGIN := -1;
476: end if;
477: else
478: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
479: Igs_Ge_Msg_Stack.Add;
480: app_exception.raise_exception;
481: end if;
482: Before_DML(
503: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
504: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
505: where ROWID = X_ROWID ;
506: if (sql%notfound) then
507: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
508: igs_ge_msg_stack.add;
509: igs_sc_gen_001.unset_ctx('R');
510: app_exception.raise_exception;
511: end if;
515:
516: EXCEPTION
517: WHEN OTHERS THEN
518: IF (SQLCODE = (-28115)) THEN
519: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
520: fnd_message.set_token ('ERR_CD', SQLCODE);
521: igs_ge_msg_stack.add;
522: igs_sc_gen_001.unset_ctx('R');
523: app_exception.raise_exception;
516: EXCEPTION
517: WHEN OTHERS THEN
518: IF (SQLCODE = (-28115)) THEN
519: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
520: fnd_message.set_token ('ERR_CD', SQLCODE);
521: igs_ge_msg_stack.add;
522: igs_sc_gen_001.unset_ctx('R');
523: app_exception.raise_exception;
524: ELSE
578: END IF;
579: delete from IGS_AV_STD_UNT_BASIS_ALL
580: where ROWID = X_ROWID ;
581: if (sql%notfound) then
582: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
583: igs_ge_msg_stack.add;
584: igs_sc_gen_001.unset_ctx('R');
585: app_exception.raise_exception;
586: end if;