[Home] [Help]
43: Open cur_old_ref_values;
44: Fetch cur_old_ref_values INTO old_references;
45: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
46: Close cur_old_ref_values;
47: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
48: IGS_GE_MSG_STACK.ADD;
49: App_Exception.Raise_Exception;
50: Return;
51: END IF;
98: -- The following code checks for check constraints on the Columns.
99: IF Upper(Column_Name) = 'CLOSED_IND' OR
100: Column_Name IS NULL THEN
101: IF NOT (new_references.closed_ind in ('Y','N')) THEN
102: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
103: IGS_GE_MSG_STACK.ADD;
104: App_Exception.Raise_Exception;
105: END IF;
106: END IF;
124: new_references.up_header_id
125: ,new_references.unit_cd
126: ,new_references.version_number
127: ) THEN
128: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
129: IGS_GE_MSG_STACK.ADD;
130: app_exception.raise_exception;
131: END IF;
132: END Check_Uniqueness ;
151: NULL;
152: ELSIF NOT Igs_Ad_Up_Header_Pkg.Get_PK_For_Validation (
153: new_references.up_header_id
154: ) THEN
155: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
156: IGS_GE_MSG_STACK.ADD;
157: App_Exception.Raise_Exception;
158: END IF;
159:
165: ELSIF NOT Igs_Ps_Unit_Ver_Pkg.Get_PK_For_Validation (
166: new_references.unit_cd,
167: new_references.version_number
168: ) THEN
169: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
170: IGS_GE_MSG_STACK.ADD;
171: App_Exception.Raise_Exception;
172: END IF;
173:
281: Open cur_rowid;
282: Fetch cur_rowid INTO lv_rowid;
283: IF (cur_rowid%FOUND) THEN
284: Close cur_rowid;
285: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUD_AUH_FK');
286: IGS_GE_MSG_STACK.ADD;
287: App_Exception.Raise_Exception;
288: Return;
289: END IF;
320: Open cur_rowid;
321: Fetch cur_rowid INTO lv_rowid;
322: IF (cur_rowid%FOUND) THEN
323: Close cur_rowid;
324: Fnd_Message.Set_Name ('IGS', 'IGS_AD_AUD_UV_FK');
325: IGS_GE_MSG_STACK.ADD;
326: App_Exception.Raise_Exception;
327: Return;
328: END IF;
376: -- Call all the procedures related to Before Insert.
377: Null;
378: IF Get_Pk_For_Validation(
379: new_references.up_detail_id) THEN
380: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
381: IGS_GE_MSG_STACK.ADD;
382: App_Exception.Raise_Exception;
383: END IF;
384: Check_Constraints;
396: ELSIF (p_action = 'VALIDATE_INSERT') THEN
397: -- Call all the procedures related to Before Insert.
398: IF Get_PK_For_Validation (
399: new_references.up_detail_id) THEN
400: Fnd_Message.Set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
401: IGS_GE_MSG_STACK.ADD;
402: App_Exception.Raise_Exception;
403: END IF;
404: Check_Constraints;
485: if X_LAST_UPDATE_LOGIN is NULL then
486: X_LAST_UPDATE_LOGIN := -1;
487: end if;
488: else
489: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
490: IGS_GE_MSG_STACK.ADD;
491: app_exception.raise_exception;
492: end if;
493:
569: begin
570: open c1;
571: fetch c1 into tlinfo;
572: if (c1%notfound) then
573: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
574: IGS_GE_MSG_STACK.ADD;
575: close c1;
576: app_exception.raise_exception;
577: return;
583: AND (tlinfo.CLOSED_IND = X_CLOSED_IND)
584: ) then
585: null;
586: else
587: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
588: IGS_GE_MSG_STACK.ADD;
589: app_exception.raise_exception;
590: end if;
591: return;
627: if X_LAST_UPDATE_LOGIN is NULL then
628: X_LAST_UPDATE_LOGIN := -1;
629: end if;
630: else
631: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
632: IGS_GE_MSG_STACK.ADD;
633: app_exception.raise_exception;
634: end if;
635: Before_DML(