[Home] [Help]
27: -- Populate Old Values.
28: Open cur_old_ref_values;
29: Fetch cur_old_ref_values INTO old_references;
30: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
31: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
32: Igs_Ge_Msg_Stack.Add;
33: Close cur_old_ref_values;
34: App_Exception.Raise_Exception;
35: Return;
82: rec.as_version_number, --new_references.as_version_number,
83: v_message_name,
84: v_return_type) = FALSE THEN
85: IF v_return_type = 'E' THEN
86: Fnd_Message.Set_Name('IGS', v_message_name);
87: Igs_Ge_Msg_Stack.Add;
88: App_Exception.Raise_Exception;
89: null;
90: END IF;
116:
117: IF upper(column_name) = 'BASIS_COMPLETION_IND' OR
118: column_name is null Then
119: IF new_references.BASIS_COMPLETION_IND <> UPPER(new_references.BASIS_COMPLETION_IND) 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;
125:
126: IF upper(column_name) = 'BASIS_COURSE_TYPE' OR
127: column_name is null Then
128: IF new_references.BASIS_COURSE_TYPE <> UPPER(new_references.BASIS_COURSE_TYPE) Then
129: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
130: Igs_Ge_Msg_Stack.Add;
131: App_Exception.Raise_Exception;
132: END IF;
133: END IF;
135:
136: IF upper(column_name) = 'BASIS_COMPLETION_IND' OR
137: column_name is null Then
138: IF new_references.BASIS_COMPLETION_IND not in ('Y','N') 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 ;
145: IF upper(column_name) = 'BASIS_YEAR' OR
146: column_name is null Then
147: IF new_references.BASIS_YEAR < 1900 OR
148: new_references.BASIS_YEAR > 2100 Then
149: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
150: Igs_Ge_Msg_Stack.Add;
151: App_Exception.Raise_Exception;
152: END IF;
153: END IF;
163: ELSE
164: --
165: IF NOT IGS_AV_STND_UNIT_LVL_PKG.Get_PK_For_Validation (
166: new_references.av_stnd_unit_lvl_id) THEN
167: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
168: Igs_Ge_Msg_Stack.Add;
169: App_Exception.Raise_Exception;
170: END IF;
171: --
177: ELSE
178: IF NOT IGS_PS_TYPE_PKG.Get_PK_For_Validation (
179: new_references.basis_course_type
180: )THEN
181: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
182: Igs_Ge_Msg_Stack.Add;
183: App_Exception.Raise_Exception;
184: END IF;
185:
222: BEGIN
223: Open cur_rowid;
224: Fetch cur_rowid INTO lv_rowid;
225: IF (cur_rowid%FOUND) THEN
226: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASULEB_ASULE_FK');
227: Igs_Ge_Msg_Stack.Add;
228: Close cur_rowid;
229: App_Exception.Raise_Exception;
230: Return;
267: ---
268: IF Get_PK_For_Validation (
269: new_references.av_stnd_unit_lvl_id
270: ) THEN
271: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
272: Igs_Ge_Msg_Stack.Add;
273: App_Exception.Raise_Exception;
274: END IF;
275: ---
290: ELSIF (p_action = 'VALIDATE_INSERT') THEN
291: IF Get_PK_For_Validation (
292: new_references.av_stnd_unit_lvl_id
293: ) THEN
294: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
295: Igs_Ge_Msg_Stack.Add;
296: App_Exception.Raise_Exception;
297: END IF;
298: Check_Constraints;
331: if X_LAST_UPDATE_LOGIN is NULL then
332: X_LAST_UPDATE_LOGIN := -1;
333: end if;
334: else
335: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
336: Igs_Ge_Msg_Stack.Add;
337: app_exception.raise_exception;
338: end if;
339: Before_DML(
389: close c;
390: EXCEPTION
391: WHEN OTHERS THEN
392: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
393: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
394: fnd_message.set_token ('ERR_CD', SQLCODE);
395: igs_ge_msg_stack.add;
396: igs_sc_gen_001.unset_ctx('R');
397: app_exception.raise_exception;
390: EXCEPTION
391: WHEN OTHERS THEN
392: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
393: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
394: fnd_message.set_token ('ERR_CD', SQLCODE);
395: igs_ge_msg_stack.add;
396: igs_sc_gen_001.unset_ctx('R');
397: app_exception.raise_exception;
398: ELSE
420: begin
421: open c1;
422: fetch c1 into tlinfo;
423: if (c1%notfound) then
424: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
425: Igs_Ge_Msg_Stack.Add;
426: close c1;
427: app_exception.raise_exception;
428: return;
434: AND ((tlinfo.BASIS_COMPLETION_IND = X_BASIS_COMPLETION_IND) OR ((tlinfo.BASIS_COMPLETION_IND is null) AND (X_BASIS_COMPLETION_IND is null)))
435: ) then
436: null;
437: else
438: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
439: Igs_Ge_Msg_Stack.Add;
440: app_exception.raise_exception;
441: end if;
442: return;
467: if X_LAST_UPDATE_LOGIN is NULL then
468: X_LAST_UPDATE_LOGIN := -1;
469: end if;
470: else
471: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
472: Igs_Ge_Msg_Stack.Add;
473: app_exception.raise_exception;
474: end if;
475: Before_DML(
498: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
499: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
500: where ROWID = X_ROWID ;
501: if (sql%notfound) then
502: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
503: igs_ge_msg_stack.add;
504: igs_sc_gen_001.unset_ctx('R');
505: app_exception.raise_exception;
506: end if;
512:
513: EXCEPTION
514: WHEN OTHERS THEN
515: IF (SQLCODE = (-28115)) THEN
516: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
517: fnd_message.set_token ('ERR_CD', SQLCODE);
518: igs_ge_msg_stack.add;
519: igs_sc_gen_001.unset_ctx('R');
520: app_exception.raise_exception;
513: EXCEPTION
514: WHEN OTHERS THEN
515: IF (SQLCODE = (-28115)) THEN
516: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
517: fnd_message.set_token ('ERR_CD', SQLCODE);
518: igs_ge_msg_stack.add;
519: igs_sc_gen_001.unset_ctx('R');
520: app_exception.raise_exception;
521: ELSE
575: END IF;
576: delete from IGS_AV_STD_ULVLBASIS_ALL
577: where ROWID = X_ROWID ;
578: if (sql%notfound) then
579: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
580: igs_ge_msg_stack.add;
581: igs_sc_gen_001.unset_ctx('R');
582: app_exception.raise_exception;
583: end if;