[Home] [Help]
36: Open cur_old_ref_values;
37: Fetch cur_old_ref_values INTO old_references;
38: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
39: Close cur_old_ref_values;
40: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
41: IGS_GE_MSG_STACK.ADD;
42: App_Exception.Raise_Exception;
43: Return;
44: END IF;
79: IF IGS_PS_VAL_COusr.crsp_val_iud_us_dtl (
80: new_references.sup_unit_set_cd,
81: new_references.sup_us_version_number,
82: v_message_name) = FALSE THEN
83: FND_MESSAGE.SET_NAME('IGS',v_message_name);
84: IGS_GE_MSG_STACK.ADD;
85: APP_EXCEPTION.RAISE_EXCEPTION;
86: END IF;
87: --
89: IF IGS_PS_VAL_COusr.crsp_val_iud_us_dtl (
90: new_references.sub_unit_set_cd,
91: new_references.sub_us_version_number,
92: v_message_name) = FALSE THEN
93: FND_MESSAGE.SET_NAME('IGS',v_message_name);
94: IGS_GE_MSG_STACK.ADD;
95: APP_EXCEPTION.RAISE_EXCEPTION;
96: END IF;
97: --
103: new_references.cal_type,
104: new_references.sup_unit_set_cd,
105: new_references.sup_us_version_number,
106: v_message_name) = FALSE THEN
107: FND_MESSAGE.SET_NAME('IGS',v_message_name);
108: IGS_GE_MSG_STACK.ADD;
109: APP_EXCEPTION.RAISE_EXCEPTION;
110: END IF;
111: --
117: new_references.cal_type,
118: new_references.sub_unit_set_cd,
119: new_references.sub_us_version_number,
120: v_message_name) = FALSE THEN
121: FND_MESSAGE.SET_NAME('IGS',v_message_name);
122: IGS_GE_MSG_STACK.ADD;
123: APP_EXCEPTION.RAISE_EXCEPTION;
124: END IF;
125: END IF;
142: new_references.sup_us_version_number,
143: new_references.sub_unit_set_cd,
144: new_references.sub_us_version_number,
145: v_message_name) = FALSE THEN
146: FND_MESSAGE.SET_NAME('IGS',v_message_name);
147: IGS_GE_MSG_STACK.ADD;
148: APP_EXCEPTION.RAISE_EXCEPTION;
149: END IF;
150:
170:
171: IF upper(column_name) = 'CAL_TYPE' OR
172: column_name is null Then
173: IF new_references.cal_type <> UPPER(new_references.cal_type) 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;
179:
180: IF upper(column_name) = 'COURSE_CD' OR
181: column_name is null Then
182: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
183: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
184: IGS_GE_MSG_STACK.ADD;
185: App_Exception.Raise_Exception;
186: END IF;
187: END IF;
188:
189: IF upper(column_name) = 'SUB_UNIT_SET_CD' OR
190: column_name is null Then
191: IF new_references.sub_unit_set_cd <> UPPER(new_references.sub_unit_set_cd) Then
192: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
193: IGS_GE_MSG_STACK.ADD;
194: App_Exception.Raise_Exception;
195: END IF;
196: END IF;
197:
198: IF upper(column_name) = 'SUP_UNIT_SET_CD' OR
199: column_name is null Then
200: IF new_references.sup_unit_set_cd <> UPPER(new_references.sup_unit_set_cd) Then
201: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
202: IGS_GE_MSG_STACK.ADD;
203: App_Exception.Raise_Exception;
204: END IF;
205: END IF;
229: new_references.cal_type,
230: new_references.sub_unit_set_cd,
231: new_references.sub_us_version_number
232: ) THEN
233: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
234: IGS_GE_MSG_STACK.ADD;
235: App_Exception.Raise_Exception;
236: END IF;
237:
255: new_references.cal_type,
256: new_references.sup_unit_set_cd,
257: new_references.sup_us_version_number
258: ) THEN
259: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
260: IGS_GE_MSG_STACK.ADD;
261: App_Exception.Raise_Exception;
262: END IF;
263: END IF;
329: Open cur_rowid;
330: Fetch cur_rowid INTO lv_rowid;
331: IF (cur_rowid%FOUND) THEN
332: Close cur_rowid;
333: Fnd_Message.Set_Name ('IGS', 'IGS_PS_COUSR_COUS_FK');
334: IGS_GE_MSG_STACK.ADD;
335: App_Exception.Raise_Exception;
336: Return;
337: END IF;
385: new_references.sup_us_version_number,
386: new_references.sub_unit_set_cd,
387: new_references.sub_us_version_number
388: ) THEN
389: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
390: IGS_GE_MSG_STACK.ADD;
391: App_Exception.Raise_Exception;
392: END IF;
393: Check_Constraints;
406: new_references.sup_us_version_number,
407: new_references.sub_unit_set_cd,
408: new_references.sub_us_version_number
409: ) THEN
410: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
411: IGS_GE_MSG_STACK.ADD;
412: App_Exception.Raise_Exception;
413: END IF;
414: Check_Constraints;
469: if X_LAST_UPDATE_LOGIN is NULL then
470: X_LAST_UPDATE_LOGIN := -1;
471: end if;
472: else
473: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
474: IGS_GE_MSG_STACK.ADD;
475: app_exception.raise_exception;
476: end if;
477:
554: open c1;
555: fetch c1 into tlinfo;
556: if (c1%notfound) then
557: close c1;
558: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
559: IGS_GE_MSG_STACK.ADD;
560: app_exception.raise_exception;
561: return;
562: end if;