78: v_message_name varchar2(30);
79: BEGIN
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;
88: END IF;
89: -- Validate that updates are allowed
90: IF p_updating THEN
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;
101: -- Validate that updates are allowed
102: IF p_updating THEN
103: IF NVL(new_references.assessment_type, 'NULL') <>
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;