[Home] [Help]
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: Close cur_old_ref_values;
39: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
40: IGS_GE_MSG_STACK.ADD;
41: App_Exception.Raise_Exception;
42: Return;
43: END IF;
44: Close cur_old_ref_values;
83: IF IGS_CA_VAL_CAT.calp_val_atctc_clsd(
84: new_references.arts_teaching_cal_type_cd,
85: v_message_name) = FALSE THEN
86: Fnd_Message.Set_Name('IGS',v_message_name);
87: IGS_GE_MSG_STACK.ADD;
88: APP_EXCEPTION.RAISE_EXCEPTION;
89: END IF;
90: END IF;
91: -- Validate that the ARTS teaching calendar type is specified only for
94: new_references.s_cal_cat,
95: new_references.arts_teaching_cal_type_cd,
96: v_message_name) = FALSE THEN
97: Fnd_Message.Set_Name('IGS',v_message_name);
98: IGS_GE_MSG_STACK.ADD;
99: APP_EXCEPTION.RAISE_EXCEPTION;
100: END IF;
101: END IF;
102: IF p_updating THEN
106: IF IGS_CA_VAL_CAT.calp_val_sys_cal_cat(
107: new_references.cal_type,
108: v_message_name) = FALSE THEN
109: Fnd_Message.Set_Name('IGS',v_message_name);
110: IGS_GE_MSG_STACK.ADD;
111: APP_EXCEPTION.RAISE_EXCEPTION;
112: END IF;
113: END IF;
114: END IF;
139: IF upper(Column_Name) = 'ABBREVIATION' OR
140: column_name is NULL THEN
141: IF new_references.abbreviation <> UPPER(new_references.abbreviation) THEN
142: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146: END IF;
147: IF upper(Column_Name) = 'S_CAL_CAT' OR
147: IF upper(Column_Name) = 'S_CAL_CAT' OR
148: column_name is NULL THEN
149: IF new_references.s_cal_cat <> UPPER(new_references.s_cal_cat) THEN
150: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
151: IGS_GE_MSG_STACK.ADD;
152: App_Exception.Raise_Exception;
153: END IF;
154: END IF;
155: IF upper(Column_Name) = 'ARTS_TEACHING_CAL_TYPE_CD' OR
155: IF upper(Column_Name) = 'ARTS_TEACHING_CAL_TYPE_CD' OR
156: column_name is NULL THEN
157: IF new_references.arts_teaching_cal_type_cd <> UPPER(new_references.arts_teaching_cal_type_cd) THEN
158: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
159: IGS_GE_MSG_STACK.ADD;
160: App_Exception.Raise_Exception;
161: END IF;
162: END IF;
163:
164: IF upper(Column_Name) = 'CAL_TYPE' OR
165: column_name is NULL THEN
166: IF new_references.cal_type <> UPPER(new_references.cal_type) THEN
167: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
168: IGS_GE_MSG_STACK.ADD;
169: App_Exception.Raise_Exception;
170: END IF;
171: END IF;
172: IF upper(Column_Name) = 'CLOSED_IND' OR
172: IF upper(Column_Name) = 'CLOSED_IND' OR
173: column_name is NULL THEN
174: IF new_references.closed_ind NOT IN ('Y', 'N') 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: END Check_Constraints;
188: ELSIF NOT IGS_CA_ARTS_TC_CA_CD_PKG.Get_PK_For_Validation (
189: new_references.arts_teaching_cal_type_cd
190: ) THEN
191: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
192: IGS_GE_MSG_STACK.ADD;
193: App_Exception.Raise_Exception;
194: END IF;
195:
196: IF (((old_references.s_cal_cat = new_references.s_cal_cat)) OR
311: Fetch cur_rowid INTO lv_rowid;
312: IF (cur_rowid%FOUND) THEN
313: Close cur_rowid;
314: Fnd_Message.Set_Name ('IGS', 'IGS_CA_CAT_ATCTC_FK');
315: IGS_GE_MSG_STACK.ADD;
316: App_Exception.Raise_Exception;
317: Return;
318: END IF;
319: Close cur_rowid;
337: Fetch cur_rowid INTO lv_rowid;
338: IF (cur_rowid%FOUND) THEN
339: Close cur_rowid;
340: Fnd_Message.Set_Name ('IGS', 'IGS_CA_CAT_LKUP_FK');
341: IGS_GE_MSG_STACK.ADD;
342: App_Exception.Raise_Exception;
343: Return;
344: END IF;
345: Close cur_rowid;
388: p_deleting => FALSE);
389: IF Get_PK_For_Validation ( new_references.cal_type )
390: THEN
391: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
392: IGS_GE_MSG_STACK.ADD;
393: App_Exception.Raise_Exception;
394: END IF;
395: Check_Constraints;
396: Check_Parent_Existance;
409: -- Call all the procedures related to Before Insert.
410: IF Get_PK_For_Validation ( new_references.cal_type )
411: THEN
412: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
413: IGS_GE_MSG_STACK.ADD;
414: App_Exception.Raise_Exception;
415: END IF;
416: Check_Constraints;
417: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
473: X_LAST_UPDATE_LOGIN := -1;
474: end if;
475: else
476: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
477: IGS_GE_MSG_STACK.ADD;
478: app_exception.raise_exception;
479: end if;
480: Before_DML (
481: p_action =>'INSERT',
561: fetch c1 into tlinfo;
562: if (c1%notfound) then
563: close c1;
564: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
565: IGS_GE_MSG_STACK.ADD;
566: app_exception.raise_exception;
567: return;
568: end if;
569: close c1;
583: ) then
584: null;
585: else
586: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
587: IGS_GE_MSG_STACK.ADD;
588: app_exception.raise_exception;
589: end if;
590: return;
591: end LOCK_ROW;
619: X_LAST_UPDATE_LOGIN := -1;
620: end if;
621: else
622: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
623: IGS_GE_MSG_STACK.ADD;
624: app_exception.raise_exception;
625: end if;
626: Before_DML (
627: p_action =>'UPDATE',