[Home] [Help]
54: Open cur_old_ref_values;
55: Fetch cur_old_ref_values INTO old_references;
56: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT')) THEN
57: Close cur_old_ref_values;
58: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
59: IGS_GE_MSG_STACK.ADD;
60: App_Exception.Raise_Exception;
61: Return;
62: END IF;
112: (old_references.closed_ind = 'Y' AND new_references.closed_ind = 'N'))) THEN
113: IF IGS_PS_VAL_RCT.crsp_val_rct_srct (
114: new_references.s_reference_cd_type,
115: v_message_name) = FALSE THEN
116: Fnd_Message.Set_Name('IGS' , v_message_name);
117: IGS_GE_MSG_STACK.ADD;
118: App_Exception.Raise_Exception;
119: END IF;
120: END IF;
145: END IF;
146: IF upper(Column_name) = 'CLOSED_IND' OR column_name is null then
147: IF new_references.closed_ind <> UPPER(new_references.closed_ind ) OR
148: new_references.closed_ind NOT IN ( 'Y' , 'N' ) then
149: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
150: IGS_GE_MSG_STACK.ADD;
151: App_Exception.Raise_Exception;
152: END IF;
153: END IF;
152: END IF;
153: END IF;
154: IF upper(Column_name) = 'REFERENCE_CD_TYPE' OR column_name is null then
155: IF new_references.reference_cd_type <> UPPER(new_references.reference_cd_type ) then
156: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
157: IGS_GE_MSG_STACK.ADD;
158: App_Exception.Raise_Exception;
159: END IF;
160: END IF;
159: END IF;
160: END IF;
161: IF upper(Column_name) = 'S_REFERENCE_CD_TYPE' OR column_name is null then
162: IF new_references.s_reference_cd_type <> UPPER(new_references.s_reference_cd_type ) then
163: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
164: IGS_GE_MSG_STACK.ADD;
165: App_Exception.Raise_Exception;
166: END IF;
167: END IF;
190: -- The following code checks for check constraints on the Columns.
191: IF Upper(Column_Name) = 'SELF_SERVICE_FLAG' OR
192: Column_Name IS NULL THEN
193: IF NOT (new_references.self_service_flag IN ('Y', 'N')) THEN
194: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
195: IGS_GE_MSG_STACK.ADD;
196: App_Exception.Raise_Exception;
197: END IF;
198: END IF;
200: -- The following code checks for check constraints on the Columns.
201: IF Upper(Column_Name) = 'PROGRAM_FLAG' OR
202: Column_Name IS NULL THEN
203: IF NOT (new_references.program_flag IN ('Y', 'N')) THEN
204: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
205: IGS_GE_MSG_STACK.ADD;
206: App_Exception.Raise_Exception;
207: END IF;
208: END IF;
210: -- The following code checks for check constraints on the Columns.
211: IF Upper(Column_Name) = 'PROGRAM_OFFERING_OPTION_FLAG' OR
212: Column_Name IS NULL THEN
213: IF NOT (new_references.program_offering_option_flag IN ('Y', 'N')) THEN
214: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
215: IGS_GE_MSG_STACK.ADD;
216: App_Exception.Raise_Exception;
217: END IF;
218: END IF;
220: -- The following code checks for check constraints on the Columns.
221: IF Upper(Column_Name) = 'UNIT_FLAG' OR
222: Column_Name IS NULL THEN
223: IF NOT (new_references.unit_flag IN ('Y', 'N')) THEN
224: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
225: IGS_GE_MSG_STACK.ADD;
226: App_Exception.Raise_Exception;
227: END IF;
228: END IF;
230: -- The following code checks for check constraints on the Columns.
231: IF Upper(Column_Name) = 'UNIT_SECTION_FLAG' OR
232: Column_Name IS NULL THEN
233: IF NOT (new_references.unit_section_flag IN ('Y', 'N')) THEN
234: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
235: IGS_GE_MSG_STACK.ADD;
236: App_Exception.Raise_Exception;
237: END IF;
238: END IF;
240: -- The following code checks for check constraints on the Columns.
241: IF Upper(Column_Name) = 'UNIT_SECTION_OCCURRENCE_FLAG' OR
242: Column_Name IS NULL THEN
243: IF NOT (new_references.unit_section_occurrence_flag IN ('Y', 'N')) THEN
244: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
245: IGS_GE_MSG_STACK.ADD;
246: App_Exception.Raise_Exception;
247: END IF;
248: END IF;
248: END IF;
249:
250: --Added as a part of Enh#2858431
251: IF NOT (new_references.restricted_flag IN ('Y', 'N')) THEN
252: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
253: IGS_GE_MSG_STACK.ADD;
254: App_Exception.Raise_Exception;
255: END IF;
256:
277: IF NOT IGS_LOOKUPS_view_Pkg.Get_PK_For_Validation (
278: 'REFERENCE_CD_TYPE',
279: new_references.s_reference_cd_type
280: ) THEN
281: Fnd_Message.Set_Name('FND','FORM_RECORD_DELETED');
282: IGS_GE_MSG_STACK.ADD;
283: App_Exception.Raise_Exception;
284: END IF;
285:
455: IF (p_action = 'INSERT') THEN
456: -- Call all the procedures related to Before Insert.
457: BeforeRowInsertUpdate1 ( p_inserting => TRUE );
458: IF GET_PK_FOR_VALIDATION ( new_references.reference_cd_type) THEN
459: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
460: IGS_GE_MSG_STACK.ADD;
461: App_Exception.Raise_Exception;
462: END IF;
463: Check_Constraints;
471: -- Call all the procedures related to Before Delete.
472: Check_Child_Existance;
473: ELSIF (p_action = 'VALIDATE_INSERT') THEN
474: IF GET_PK_FOR_VALIDATION ( new_references.reference_cd_type ) THEN
475: Fnd_Message.Set_Name('IGS','IGS_GE_MULTI_ORG_DUP_REC');
476: IGS_GE_MSG_STACK.ADD;
477: App_Exception.Raise_Exception;
478: END IF;
479: Check_Constraints;
566: if X_LAST_UPDATE_LOGIN is NULL then
567: X_LAST_UPDATE_LOGIN := -1;
568: end if;
569: else
570: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
571: IGS_GE_MSG_STACK.ADD;
572: app_exception.raise_exception;
573: end if;
574:
696: open c1;
697: fetch c1 into tlinfo;
698: if (c1%notfound) then
699: close c1;
700: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
701: IGS_GE_MSG_STACK.ADD;
702: app_exception.raise_exception;
703: return;
704: end if;
721: AND (X_restricted_flag IS NULL)))
722: ) then
723: null;
724: else
725: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
726: IGS_GE_MSG_STACK.ADD;
727: app_exception.raise_exception;
728: end if;
729: return;
773: if X_LAST_UPDATE_LOGIN is NULL then
774: X_LAST_UPDATE_LOGIN := -1;
775: end if;
776: else
777: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
778: IGS_GE_MSG_STACK.ADD;
779: app_exception.raise_exception;
780: end if;
781: