[Home] [Help]
34: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
35: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
36: Igs_Ge_Msg_Stack.Add;
37: Close cur_old_ref_values;
38: App_Exception.Raise_Exception;
39: Return;
40: END IF;
41: Close cur_old_ref_values;
42:
87: rec.version_number, --new_references.version_number,
88: v_message_name) = FALSE THEN
89: Fnd_Message.Set_Name('IGS', v_message_name);
90: Igs_Ge_Msg_Stack.Add;
91: App_Exception.Raise_Exception;
92: END IF;
93: END IF;
94: -- Validate Alternate IGS_PS_UNIT IS different from Precluded IGS_PS_UNIT.
95: IF (p_inserting OR (old_references.alt_unit_cd) <> (new_references.alt_unit_cd)) THEN
98: new_references.alt_unit_cd,
99: v_message_name) = FALSE THEN
100: Fnd_Message.Set_Name('IGS', v_message_name);
101: Igs_Ge_Msg_Stack.Add;
102: App_Exception.Raise_Exception;
103: END IF;
104: END IF;
105: -- Validate Optional Indicators are the same.
106: CLOSE CUR;
124: IF new_references.ALT_UNIT_CD <>
125: UPPER(new_references.ALT_UNIT_CD) Then
126: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
127: Igs_Ge_Msg_Stack.Add;
128: App_Exception.Raise_Exception;
129: END IF;
130: END IF;
131: IF upper(column_name) = 'OPTIONAL_IND' OR
132: column_name IS null Then
133: IF new_references.OPTIONAL_IND <>
134: UPPER(new_references.OPTIONAL_IND) Then
135: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
136: Igs_Ge_Msg_Stack.Add;
137: App_Exception.Raise_Exception;
138: END IF;
139: END IF;
140: IF upper(column_name) = 'OPTIONAL_IND' OR
141: column_name IS null Then
141: column_name IS null Then
142: IF (new_references.optional_ind not in ('Y', 'N')) Then
143: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
144: Igs_Ge_Msg_Stack.Add;
145: App_Exception.Raise_Exception;
146: END IF;
147: END IF;
148: END Check_Constraints;
149:
158: new_references.av_stnd_unit_id
159: ) THEN
160: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
161: Igs_Ge_Msg_Stack.Add;
162: App_Exception.Raise_Exception;
163: END IF;
164: END IF;
165:
166: IF (((old_references.alt_unit_cd = new_references.alt_unit_cd) AND
174: new_references.alt_version_number
175: ) THEN
176: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
177: Igs_Ge_Msg_Stack.Add;
178: App_Exception.Raise_Exception;
179: END IF;
180: END IF;
181:
182: END Check_Parent_Existance;
229: IF (cur_rowid%FOUND) THEN
230: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASAU_ASU_FK');
231: Igs_Ge_Msg_Stack.Add;
232: Close cur_rowid;
233: App_Exception.Raise_Exception;
234: Return;
235: END IF;
236: Close cur_rowid;
237:
257: IF (cur_rowid%FOUND) THEN
258: Fnd_Message.Set_Name ('IGS', 'IGS_AV_ASAU_UV_FK');
259: Igs_Ge_Msg_Stack.Add;
260: Close cur_rowid;
261: App_Exception.Raise_Exception;
262: Return;
263: END IF;
264: Close cur_rowid;
265:
302: new_references.alt_version_number
303: ) THEN
304: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
305: Igs_Ge_Msg_Stack.Add;
306: App_Exception.Raise_Exception;
307: END IF;
308: Check_Constraints;
309: Check_Parent_Existance;
310: ELSIF (p_action = 'UPDATE') THEN
322: new_references.alt_version_number
323: ) THEN
324: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
325: Igs_Ge_Msg_Stack.Add;
326: App_Exception.Raise_Exception;
327: END IF;
328: Check_Constraints;
329: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
330: Check_Constraints;
365: end if;
366: else
367: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
368: Igs_Ge_Msg_Stack.Add;
369: app_exception.raise_exception;
370: end if;
371: Before_DML(
372: p_action=>'INSERT',
373: x_rowid=>X_ROWID,
425: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
426: fnd_message.set_token ('ERR_CD', SQLCODE);
427: igs_ge_msg_stack.add;
428: igs_sc_gen_001.unset_ctx('R');
429: app_exception.raise_exception;
430: ELSE
431: igs_sc_gen_001.unset_ctx('R');
432: RAISE;
433: END IF;
453: if (c1%notfound) then
454: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
455: Igs_Ge_Msg_Stack.Add;
456: close c1;
457: app_exception.raise_exception;
458: return;
459: end if;
460: close c1;
461:
464: null;
465: else
466: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
467: Igs_Ge_Msg_Stack.Add;
468: app_exception.raise_exception;
469: end if;
470: return;
471: end LOCK_ROW;
472:
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(
504: p_action=>'UPDATE',
505: x_rowid=>X_ROWID,
525: if (sql%notfound) then
526: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
527: igs_ge_msg_stack.add;
528: igs_sc_gen_001.unset_ctx('R');
529: app_exception.raise_exception;
530: end if;
531: IF (x_mode = 'S') THEN
532: igs_sc_gen_001.unset_ctx('R');
533: END IF;
539: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
540: fnd_message.set_token ('ERR_CD', SQLCODE);
541: igs_ge_msg_stack.add;
542: igs_sc_gen_001.unset_ctx('R');
543: app_exception.raise_exception;
544: ELSE
545: igs_sc_gen_001.unset_ctx('R');
546: RAISE;
547: END IF;
602: if (sql%notfound) then
603: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
604: igs_ge_msg_stack.add;
605: igs_sc_gen_001.unset_ctx('R');
606: app_exception.raise_exception;
607: end if;
608: IF (x_mode = 'S') THEN
609: igs_sc_gen_001.unset_ctx('R');
610: END IF;