[Home] [Help]
139: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
140:
141: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
142:
143: IGS_GE_MSG_STACK.ADD;
144:
145: Close cur_old_ref_values;
146: App_Exception.Raise_Exception;
147: Return;
242: IF upper(column_name) = 'GROUP_CD' OR
243: column_name is null Then
244: IF new_references.group_cd <>UPPER(new_references.group_cd)Then
245: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
246: IGS_GE_MSG_STACK.ADD;
247: App_Exception.Raise_Exception;
248: END IF;
249: END IF;
250:
251: IF upper(column_name) = 'CLOSED_IND' OR
252: column_name is null Then
253: IF new_references.closed_ind NOT IN ( 'Y' , 'N' ) Then
254: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
255: IGS_GE_MSG_STACK.ADD;
256: App_Exception.Raise_Exception;
257: END IF;
258: END IF;
259: IF upper(column_name) = 'GROUP_ID' OR
259: IF upper(column_name) = 'GROUP_ID' OR
260: column_name is null Then
261: IF new_references.group_id < 1 OR new_references.group_id > 999999 Then
262: Fnd_Message.Set_Name ('IGS', 'IGS_GE_INVALID_VALUE');
263: IGS_GE_MSG_STACK.ADD;
264: App_Exception.Raise_Exception;
265: END IF;
266: END IF;
267: END Check_Constraints;
282: IF get_uk_for_validation (
283: new_references.group_cd
284: ) THEN
285: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
286: IGS_GE_MSG_STACK.ADD;
287: app_exception.raise_exception;
288: END IF;
289: END Check_Uniqueness ;
290:
304: ELSE
305: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
306: new_references.creator_person_id) THEN
307: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
308: IGS_GE_MSG_STACK.ADD;
309: App_Exception.Raise_Exception;
310: END IF;
311: END IF;
312:
451: IF (cur_rowid%FOUND) THEN
452:
453: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PIG_PE_FK');
454:
455: IGS_GE_MSG_STACK.ADD;
456:
457: Close cur_rowid;
458: App_Exception.Raise_Exception;
459: Return;
594: IF (p_action in ('INSERT','UPDATE')) THEN
595: OPEN is_creator_deceased; FETCH is_creator_deceased INTO l_deceased_ind; CLOSE is_creator_deceased;
596: IF(NVL(l_deceased_ind,'N')='Y')THEN
597: Fnd_Message.Set_Name ('IGS', 'IGS_PE_CRT_PRSN_DECEASED');
598: IGS_GE_MSG_STACK.ADD;
599: App_Exception.Raise_Exception;
600: END IF;
601: OPEN is_creator_too_young; FETCH is_creator_too_young INTO l_date_of_birth; CLOSE is_creator_too_young;
602: IF(l_date_of_birth IS NOT NULL AND l_date_of_birth > x_create_dt ) THEN
600: END IF;
601: OPEN is_creator_too_young; FETCH is_creator_too_young INTO l_date_of_birth; CLOSE is_creator_too_young;
602: IF(l_date_of_birth IS NOT NULL AND l_date_of_birth > x_create_dt ) THEN
603: Fnd_Message.Set_Name ('IGS', 'IGS_PE_DOB_LT_CRT_DT');
604: IGS_GE_MSG_STACK.ADD;
605: App_Exception.Raise_Exception;
606: END IF;
607: END IF;
608: IF (p_action = 'INSERT') THEN
609: -- Call all the procedures related to Before Insert.
610: IF Get_PK_For_Validation (
611: new_references.group_id ) THEN
612: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
613: IGS_GE_MSG_STACK.ADD;
614: App_Exception.Raise_Exception;
615: END IF;
616: check_uniqueness;
617: Check_Constraints; -- if procedure present
624: ELSIF (p_action = 'VALIDATE_INSERT') THEN
625: IF Get_PK_For_Validation (
626: new_references.group_id ) THEN
627: Fnd_Message.Set_Name ('IGS', 'IGS_GE_MULTI_ORG_DUP_REC');
628: IGS_GE_MSG_STACK.ADD;
629: App_Exception.Raise_Exception;
630: END IF;
631: Check_Constraints; -- if procedure present
632: ELSIF (p_action = 'VALIDATE_UPDATE') THEN
758:
759: end if;
760: else
761: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
762: IGS_GE_MSG_STACK.ADD;
763: app_exception.raise_exception;
764: end if;
765:
766: Before_DML(
1106: X_LAST_UPDATE_LOGIN := -1;
1107: end if;
1108: else
1109: FND_MESSAGE.SET_NAME('FND', 'SYSTEM-INVALID ARGS');
1110: IGS_GE_MSG_STACK.ADD;
1111: app_exception.raise_exception;
1112: end if;
1113:
1114: Before_DML(