[Home] [Help]
38: Open cur_old_ref_values;
39: Fetch cur_old_ref_values INTO old_references;
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;
87:
88:
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;
95: END IF;
96:
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;
121: NULL;
122: ELSE
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:
138: ELSE
139: IF NOT IGS_PS_UNIT_VER_PKG.Get_PK_For_Validation (
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:
199: Open cur_rowid;
200: Fetch cur_rowid INTO lv_rowid;
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;
227: Open cur_rowid;
228: Fetch cur_rowid INTO lv_rowid;
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;
282: New_References.version_number,
283: New_References.reference_cd_type,
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;
299: New_References.version_number,
300: New_References.reference_cd_type,
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;
359: if X_LAST_UPDATE_LOGIN is NULL then
360: X_LAST_UPDATE_LOGIN := -1;
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:
454: open c1;
455: fetch c1 into tlinfo;
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;
469: AND (X_DESCRIPTION is null)))
470: ) then
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;
506: if X_LAST_UPDATE_LOGIN is NULL then
507: X_LAST_UPDATE_LOGIN := -1;
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: