[Home] [Help]
52: Open cur_old_ref_values;
53: Fetch cur_old_ref_values INTO old_references;
54: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
55: Close cur_old_ref_values;
56: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
57: IGS_GE_MSG_STACK.ADD;
58: App_Exception.Raise_Exception;
59: Return;
60: END IF;
117: -- The following code checks for check constraints on the Columns.
118: IF Upper(Column_Name) = 'INCLUDE_IND' OR
119: Column_Name IS NULL THEN
120: IF NOT (new_references.include_ind IN ('Y','N')) THEN
121: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
122: IGS_GE_MSG_STACK.ADD;
123: App_Exception.Raise_Exception;
124: END IF;
125: END IF;
127: -- The following code checks for check constraints on the Columns.
128: IF Upper(Column_Name) = 'MANDATORY_IND' OR
129: Column_Name IS NULL THEN
130: IF NOT (new_references.mandatory_ind IN ('Y','N')) THEN
131: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
132: IGS_GE_MSG_STACK.ADD;
133: App_Exception.Raise_Exception;
134: END IF;
135: END IF;
138: -- The following code checks for check constraints on the Columns.
139: IF Upper(Column_Name) = 'DETAIL_LEVEL_IND' OR
140: Column_Name IS NULL THEN
141: IF NOT (new_references.detail_level_ind IN ('Y','N')) THEN
142: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
143: IGS_GE_MSG_STACK.ADD;
144: App_Exception.Raise_Exception;
145: END IF;
146: END IF;
163: IF Get_Uk_For_Validation (
164: new_references.source_type_id
165: ,new_references.category_name
166: ) THEN
167: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
168: IGS_GE_MSG_STACK.ADD;
169: app_exception.raise_exception;
170: END IF;
171: END Check_Uniqueness;
192: ELSIF NOT Igs_lookups_view_Pkg.Get_PK_For_Validation (
193: 'DISCREPANCY_RULE',
194: new_references.discrepancy_rule_cd
195: ) THEN
196: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
197: IGS_GE_MSG_STACK.ADD;
198: App_Exception.Raise_Exception;
199: END IF;
200:
203: NULL;
204: ELSIF NOT Igs_Pe_Src_Types_Pkg.Get_PK_For_Validation (
205: new_references.source_type_id
206: ) THEN
207: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
208: IGS_GE_MSG_STACK.ADD;
209: App_Exception.Raise_Exception;
210: END IF;
211:
312: Open cur_rowid;
313: Fetch cur_rowid INTO lv_rowid;
314: IF (cur_rowid%FOUND) THEN
315: Close cur_rowid;
316: Fnd_Message.Set_Name ('IGS', 'IGS_AD_ASRC_PST_FK');
317: IGS_GE_MSG_STACK.ADD;
318: App_Exception.Raise_Exception;
319: Return;
320: END IF;
384: -- Call all the procedures related to Before Insert.
385: Null;
386: IF Get_Pk_For_Validation(
387: new_references.src_cat_id) THEN
388: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
389: IGS_GE_MSG_STACK.ADD;
390: App_Exception.Raise_Exception;
391: END IF;
392: Check_Uniqueness;
405: ELSIF (p_action = 'VALIDATE_INSERT') THEN
406: -- Call all the procedures related to Before Insert.
407: IF Get_PK_For_Validation (
408: new_references.src_cat_id) THEN
409: Fnd_Message.Set_name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
410: IGS_GE_MSG_STACK.ADD;
411: App_Exception.Raise_Exception;
412: END IF;
413: Check_Uniqueness;
507: if X_LAST_UPDATE_LOGIN is NULL then
508: X_LAST_UPDATE_LOGIN := -1;
509: end if;
510: else
511: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
512: IGS_GE_MSG_STACK.ADD;
513: app_exception.raise_exception;
514: end if;
515:
629: BEGIN
630: open c1;
631: fetch c1 into tlinfo;
632: if (c1%notfound) then
633: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
634: IGS_GE_MSG_STACK.ADD;
635: close c1;
636: app_exception.raise_exception;
637: return;
655: AND (X_INT_TAB_NAME is null)))
656: ) then
657: null;
658: else
659: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
660: IGS_GE_MSG_STACK.ADD;
661: app_exception.raise_exception;
662: end if;
663: return;
706: if X_LAST_UPDATE_LOGIN is NULL then
707: X_LAST_UPDATE_LOGIN := -1;
708: end if;
709: else
710: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
711: IGS_GE_MSG_STACK.ADD;
712: app_exception.raise_exception;
713: end if;
714: Before_DML(