[Home] [Help]
42: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
43: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
44: IGS_GE_MSG_STACK.ADD;
45: Close cur_old_ref_values;
46: App_Exception.Raise_Exception;
47: Return;
48: END IF;
49: Close cur_old_ref_values;
50:
90: new_references.pce_start_dt,
91: v_message_name) = FALSE THEN
92: Fnd_Message.Set_Name('IGS', v_message_name);
93: IGS_GE_MSG_STACK.ADD;
94: App_Exception.Raise_Exception;
95: END IF;
96: END IF;
97: -- Validate that start date is not less than the parent IGS_PE_PERSON
98: -- Encumbrance Effect start date.
102: new_references.pce_start_dt,
103: v_message_name) = FALSE THEN
104: Fnd_Message.Set_Name('IGS', v_message_name);
105: IGS_GE_MSG_STACK.ADD;
106: App_Exception.Raise_Exception;
107: END IF;
108: END IF;
109: -- Validate that if expiry date is specified, then expiry date is not
110: -- less than the start date.
118: new_references.expiry_dt,
119: v_message_name) = FALSE THEN
120: Fnd_Message.Set_Name('IGS', v_message_name);
121: IGS_GE_MSG_STACK.ADD;
122: App_Exception.Raise_Exception;
123: END IF;
124: IF IGS_EN_VAL_PCE.enrp_val_encmb_dt (
125: new_references.expiry_dt,
126: v_message_name) = FALSE THEN
125: new_references.expiry_dt,
126: v_message_name) = FALSE THEN
127: Fnd_Message.Set_Name('IGS', v_message_name);
128: IGS_GE_MSG_STACK.ADD;
129: App_Exception.Raise_Exception;
130: END IF;
131: END IF;
132: -- Validate that records for this table can be created for the encumbrance
133: -- effect type.
137: 'IGS_PE_COURSE_EXCL',
138: v_message_name) = FALSE THEN
139: Fnd_Message.Set_Name('IGS', v_message_name);
140: IGS_GE_MSG_STACK.ADD;
141: App_Exception.Raise_Exception;
142: END IF;
143: END IF;
144:
145:
173: new_references.pce_start_dt,
174: v_message_name) = FALSE THEN
175: Fnd_Message.Set_Name('IGS', v_message_name);
176: IGS_GE_MSG_STACK.ADD;
177: App_Exception.Raise_Exception;
178: END IF;
179: END IF;
180:
181: END IF;
210: column_name is null Then
211: IF new_references.course_cd <> UPPER(new_references.course_cd) Then
212: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
213: IGS_GE_MSG_STACK.ADD;
214: App_Exception.Raise_Exception;
215: END IF;
216: END IF;
217:
218: IF upper(column_name) = 'ENCUMBRANCE_TYPE' OR
220: IF new_references.encumbrance_type <>
221: UPPER(new_references.encumbrance_type) Then
222: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
223: IGS_GE_MSG_STACK.ADD;
224: App_Exception.Raise_Exception;
225: END IF;
226: END IF;
227: IF upper(column_name) = 'S_ENCMB_EFFECT_TYPE' OR
228: column_name is null Then
229: IF new_references.s_encmb_effect_type<>
230: UPPER(new_references.s_encmb_effect_type) Then
231: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
232: IGS_GE_MSG_STACK.ADD;
233: App_Exception.Raise_Exception;
234: END IF;
235: END IF;
236:
237:
250: new_references.course_cd
251: ) THEN
252: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: END IF;
256: END IF;
257:
258: IF (((old_references.person_id = new_references.person_id) AND
278: new_references.pee_start_dt,
279: new_references.pee_sequence_number) THEN
280: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
281: IGS_GE_MSG_STACK.ADD;
282: App_Exception.Raise_Exception;
283: END IF;
284: END IF;
285:
286: END Check_Parent_Existance;
343: IF (cur_rowid%FOUND) THEN
344: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PCE_CRS_FK');
345: IGS_GE_MSG_STACK.ADD;
346: Close cur_rowid;
347: App_Exception.Raise_Exception;
348: Return;
349: END IF;
350: Close cur_rowid;
351:
379: IF (cur_rowid%FOUND) THEN
380: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PCE_PEE_FK');
381: IGS_GE_MSG_STACK.ADD;
382: Close cur_rowid;
383: App_Exception.Raise_Exception;
384: Return;
385: END IF;
386: Close cur_rowid;
387:
439: new_references.course_cd ,
440: new_references.pce_start_dt ) THEN
441: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
442: IGS_GE_MSG_STACK.ADD;
443: App_Exception.Raise_Exception;
444: END IF;
445: Check_Constraints; -- if procedure present
446: Check_Parent_Existance; -- if procedure present
447: ELSIF (p_action = 'UPDATE') THEN
466: new_references.course_cd ,
467: new_references.pce_start_dt ) THEN
468: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
469: IGS_GE_MSG_STACK.ADD;
470: App_Exception.Raise_Exception;
471: END IF;
472:
473: Check_Constraints; -- if procedure present
474: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
544: end if;
545: else
546: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
547: IGS_GE_MSG_STACK.ADD;
548: app_exception.raise_exception;
549: end if;
550: Before_DML(
551: p_action=>'INSERT',
552: x_rowid=>X_ROWID,
637: if (c1%notfound) then
638: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
639:
640: close c1;
641: App_Exception.Raise_Exception;
642: return;
643: end if;
644: close c1;
645:
649: ) then
650: null;
651: else
652: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
653: app_exception.raise_exception;
654: end if;
655: return;
656: end LOCK_ROW;
657:
687: end if;
688: else
689: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
690: IGS_GE_MSG_STACK.ADD;
691: app_exception.raise_exception;
692: end if;
693: Before_DML(
694: p_action=>'UPDATE',
695: x_rowid=>X_ROWID,