[Home] [Help]
34: -- Populate Old Values.
35: Open cur_old_ref_values;
36: Fetch cur_old_ref_values INTO old_references;
37: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
38: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
39: Igs_Ge_Msg_Stack.Add;
40: Close cur_old_ref_values;
41: App_Exception.Raise_Exception;
42: Return;
80: -- Validate that inserts/updates are allowed
81: IF p_inserting OR p_updating THEN
82: IF IGS_AS_VAL_ATYP.ASSP_VAL_SAT_CLOSED(new_references.assessment_type
83: ,v_message_name) = FALSE THEN
84: Fnd_Message.Set_Name('IGS', v_message_name);
85: Igs_Ge_Msg_Stack.Add;
86: App_Exception.Raise_Exception;
87: END IF;
88: END IF;
91: IF new_references.examinable_ind <> old_references.examinable_ind THEN
92: IF IGS_AS_VAL_ATYP.ASSP_VAL_AI_EXIST2(
93: new_references.assessment_type
94: ,v_message_name) = FALSE THEN
95: Fnd_Message.Set_Name('IGS', v_message_name);
96: Igs_Ge_Msg_Stack.Add;
97: App_Exception.Raise_Exception;
98: END IF;
99: END IF;
104: NVL(old_references.assessment_type, 'NULL') THEN
105: IF IGS_AS_VAL_ATYP.ASSP_VAL_AI_EXIST2(
106: new_references.assessment_type
107: ,v_message_name) = FALSE THEN
108: Fnd_Message.Set_Name('IGS', 'IGS_AS_SYS_ASSTYPE_NOTCHG');
109: Igs_Ge_Msg_Stack.Add;
110: App_Exception.Raise_Exception;
111:
112: END IF;
126: ELSE
127: IF NOT(IGS_AS_SASSESS_TYPE_Pkg.Get_PK_For_Validation (
128: new_references.s_assessment_type
129: ))THEN
130: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
131: Igs_Ge_Msg_Stack.Add;
132: App_Exception.Raise_Exception;
133: END IF;
134: END IF;
153: END IF;
154: IF upper(column_name) = 'ASSESSMENT_TYPE' OR
155: column_name is null Then
156: IF new_references.assessment_type <> UPPER(new_references.assessment_type) Then
157: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
158: Igs_Ge_Msg_Stack.Add;
159: App_Exception.Raise_Exception;
160: END IF;
161: END IF;
162:
163: IF upper(column_name) = 'CLOSED_IND' OR
164: column_name is null Then
165: IF new_references.closed_ind <> UPPER(new_references.closed_ind) OR new_references.closed_ind NOT IN ( 'Y' , 'N' ) Then
166: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
167: Igs_Ge_Msg_Stack.Add;
168: App_Exception.Raise_Exception;
169: END IF;
170: END IF;
170: END IF;
171: IF upper(column_name) = 'EXAMINABLE_IND' OR
172: column_name is null Then
173: IF new_references.examinable_ind <> UPPER(new_references.examinable_ind) OR new_references.examinable_ind NOT IN ( 'Y' , 'N' ) Then
174: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
175: Igs_Ge_Msg_Stack.Add;
176: App_Exception.Raise_Exception;
177: END IF;
178: END IF;
178: END IF;
179: IF upper(column_name) = 'S_ASSESSMENT_TYPE' OR
180: column_name is null Then
181: IF new_references.s_assessment_type <> UPPER(new_references.s_assessment_type) Then
182: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
183: Igs_Ge_Msg_Stack.Add;
184: App_Exception.Raise_Exception;
185: END IF;
186: END IF;
187:
188: IF upper(column_name) = 'ANON_GRADING_IND' OR
189: column_name is null Then
190: IF new_references.anon_grading_ind <> UPPER(new_references.anon_grading_ind) OR new_references.anon_grading_ind NOT IN ( 'Y' , 'N' ) Then
191: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
192: Igs_Ge_Msg_Stack.Add;
193: App_Exception.Raise_Exception;
194: END IF;
195: END IF;
247:
248: Open cur_rowid;
249: Fetch cur_rowid INTO lv_rowid;
250: IF (cur_rowid%FOUND) THEN
251: Fnd_Message.Set_Name ('IGS', 'IGS_AS_ATYP_SAT_FK');
252: Igs_Ge_Msg_Stack.Add;
253: Close cur_rowid;
254: App_Exception.Raise_Exception;
255: Return;
296: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
297: IF Get_PK_For_Validation (
298: new_references.assessment_type
299: ) THEN
300: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
301: Igs_Ge_Msg_Stack.Add;
302: App_Exception.Raise_Exception;
303: END IF;
304:
316: ELSIF (p_action = 'VALIDATE_INSERT') THEN
317: IF Get_PK_For_Validation (
318: new_references.assessment_type
319: ) THEN
320: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
321: Igs_Ge_Msg_Stack.Add;
322: App_Exception.Raise_Exception;
323: END IF;
324: Check_Constraints;
366: if X_LAST_UPDATE_LOGIN is NULL then
367: X_LAST_UPDATE_LOGIN := -1;
368: end if;
369: else
370: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
371: Igs_Ge_Msg_Stack.Add;
372: app_exception.raise_exception;
373: end if;
374: Before_DML(
444: begin
445: open c1;
446: fetch c1 into tlinfo;
447: if (c1%notfound) then
448: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
449: Igs_Ge_Msg_Stack.Add;
450: close c1;
451: app_exception.raise_exception;
452: return;
460: AND ((tlinfo.ANON_GRADING_IND = X_ANON_GRADING_IND) OR ((tlinfo.ANON_GRADING_IND is null) AND (X_ANON_GRADING_IND is null)))
461: ) then
462: null;
463: else
464: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
465: Igs_Ge_Msg_Stack.Add;
466: app_exception.raise_exception;
467: end if;
468: return;
495: if X_LAST_UPDATE_LOGIN is NULL then
496: X_LAST_UPDATE_LOGIN := -1;
497: end if;
498: else
499: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
500: Igs_Ge_Msg_Stack.Add;
501: app_exception.raise_exception;
502: end if;
503: Before_DML(