40: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
41: Close cur_old_ref_values;
42: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
43: IGS_GE_MSG_STACK.ADD;
44: App_Exception.Raise_Exception;
45: Return;
46: END IF;
47: Close cur_old_ref_values;
48:
89: IF Upper(Column_Name)='REFERENCE_CD' OR Column_Name IS NULL Then
90: IF New_References.Reference_Cd <> UPPER(New_References.Reference_Cd) Then
91: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
92: IGS_GE_MSG_STACK.ADD;
93: App_Exception.Raise_Exception;
94: END IF;
95: END IF;
96:
97: IF Upper(Column_Name)='REFERENCE_CD_TYPE' OR Column_Name IS NULL Then
97: IF Upper(Column_Name)='REFERENCE_CD_TYPE' OR Column_Name IS NULL Then
98: IF New_References.Reference_Cd_Type <> UPPER(New_References.Reference_Cd_Type) Then
99: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
100: IGS_GE_MSG_STACK.ADD;
101: App_Exception.Raise_Exception;
102: END IF;
103: END IF;
104:
105:
106: IF Upper(Column_Name)='UNIT_CD' OR Column_Name IS NULL Then
107: IF New_References.Unit_Cd <> UPPER(New_References.Unit_CD) Then
108: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
109: IGS_GE_MSG_STACK.ADD;
110: App_Exception.Raise_Exception;
111: END IF;
112: END IF;
113:
114: END Check_Constraints;
123: IF NOT IGS_GE_REF_CD_TYPE_PKG.Get_PK_For_Validation (
124: new_references.reference_cd_type) THEN
125: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
126: IGS_GE_MSG_STACK.ADD;
127: App_Exception.Raise_Exception;
128: END IF;
129:
130:
131: END IF;
140: new_references.unit_cd,
141: new_references.version_number) THEN
142: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146:
147:
148: END IF;
201: IF (cur_rowid%FOUND) THEN
202: Close cur_rowid;
203: Fnd_Message.Set_Name ('IGS', 'IGS_PS_URCH_RCT_FK');
204: IGS_GE_MSG_STACK.ADD;
205: App_Exception.Raise_Exception;
206: Return;
207: END IF;
208: Close cur_rowid;
209:
229: IF (cur_rowid%FOUND) THEN
230: Close cur_rowid;
231: Fnd_Message.Set_Name ('IGS', 'IGS_PS_URCH_UV_FK');
232: IGS_GE_MSG_STACK.ADD;
233: App_Exception.Raise_Exception;
234: Return;
235: END IF;
236: Close cur_rowid;
237:
284: New_References.reference_cd,
285: New_References.hist_start_dt) THEN
286: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
287: IGS_GE_MSG_STACK.ADD;
288: App_Exception.Raise_Exception;
289: END IF;
290: Check_Constraints;
291: Check_Parent_Existance;
292: ELSIF (p_action = 'UPDATE') THEN
301: New_References.reference_cd,
302: New_References.hist_start_dt) THEN
303: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
304: IGS_GE_MSG_STACK.ADD;
305: App_Exception.Raise_Exception;
306: END IF;
307: Check_Constraints;
308: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
309: Check_Constraints;
361: end if;
362: else
363: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
364: IGS_GE_MSG_STACK.ADD;
365: app_exception.raise_exception;
366: end if;
367:
368: Before_DML(
369: p_action => 'INSERT',
456: if (c1%notfound) then
457: close c1;
458: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
459: IGS_GE_MSG_STACK.ADD;
460: app_exception.raise_exception;
461: return;
462: end if;
463: close c1;
464:
471: null;
472: else
473: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
474: IGS_GE_MSG_STACK.ADD;
475: app_exception.raise_exception;
476: end if;
477: return;
478: end LOCK_ROW;
479:
508: end if;
509: else
510: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
511: IGS_GE_MSG_STACK.ADD;
512: app_exception.raise_exception;
513: end if;
514:
515: Before_DML(
516: p_action => 'UPDATE',