84: Open cur_old_ref_values;
85: Fetch cur_old_ref_values INTO old_references;
86: IF (cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT','VALIDATE_INSERT')) THEN
87: Close cur_old_ref_values;
88: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
89: IGS_GE_MSG_STACK.ADD;
90: App_Exception.Raise_Exception;
91: Return;
92: END IF;
159: new_references.disability_type,
160: new_references.start_date
161: )
162: ) THEN
163: fnd_message.set_name ('IGS', 'IGS_PE_SPECIAL_DUP_EXISTS');
164: igs_ge_msg_stack.add;
165: app_exception.raise_exception;
166: END IF;
167:
206: IF IGS_EN_VAL_PDI.enrp_val_dit_closed (
207: new_references.disability_type,
208: v_message_name ) = FALSE THEN
209:
210: FND_MESSAGE.SET_NAME('IGS', V_MESSAGE_NAME);
211: IGS_GE_MSG_STACK.ADD;
212: App_Exception.Raise_Exception;
213:
214: END IF;
245:
246: IF UPPER(Column_Name) = 'DISABILITY_TYPE' OR
247: Column_Name IS NULL THEN
248: IF new_references.DISABILITY_TYPE <> UPPER(new_references.disability_type) THEN
249: Fnd_Message.Set_Name('IGS','IGS_GE_INVALID_VALUE');
250: IGS_GE_MSG_STACK.ADD;
251: App_Exception.Raise_Exception;
252: END IF;
253: END IF;
287: NULL;
288: ELSIF NOT Igs_lookups_view_pkg.Get_PK_For_Validation (
289: 'PE_SN_ALLOW',new_references.special_allow_cd
290: ) THEN
291: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
292: IGS_GE_MSG_STACK.ADD;
293: App_Exception.Raise_Exception;
294: END IF;
295:
298: NULL;
299: ELSIF NOT Igs_lookups_view_pkg.Get_PK_For_Validation (
300: 'PE_SN_ADD_SUP_LVL',new_references.support_level_cd
301: ) THEN
302: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
303: IGS_GE_MSG_STACK.ADD;
304: App_Exception.Raise_Exception;
305: END IF;
306:
311: ELSIF NOT Igs_Ad_Disbl_Type_Pkg.Get_PK_For_Validation (
312: new_references.disability_type ,
313: 'N'
314: ) THEN
315: Fnd_Message.Set_Name ('FND','FORM_RECORD_DELETED');
316: IGS_GE_MSG_STACK.ADD;
317: App_Exception.Raise_Exception;
318: END IF;
319:
323: ELSE
324: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
325: new_references.person_id
326: ) THEN
327: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
328: IGS_GE_MSG_STACK.ADD;
329: App_Exception.Raise_Exception;
330: END IF;
331: END IF;
337: ELSE
338: IF NOT IGS_PE_PERSON_PKG.Get_PK_For_Validation (
339: new_references.interviewer_id
340: ) THEN
341: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
342: IGS_GE_MSG_STACK.ADD;
343: App_Exception.Raise_Exception;
344: END IF;
345: END IF;
448: Open cur_rowid;
449: Fetch cur_rowid INTO lv_rowid;
450: IF (cur_rowid%FOUND) THEN
451: Close cur_rowid;
452: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PD_PE_FK');
453: IGS_GE_MSG_STACK.ADD;
454: App_Exception.Raise_Exception;
455: Return;
456: END IF;
485: Open cur_rowid;
486: Fetch cur_rowid INTO lv_rowid;
487: IF (cur_rowid%FOUND) THEN
488: Close cur_rowid;
489: Fnd_Message.Set_Name ('IGS', 'IGS_PE_PD_DIT_FK');
490: IGS_GE_MSG_STACK.ADD;
491: App_Exception.Raise_Exception;
492: Return;
493: END IF;
564: l_birth_dt igs_pe_person_base_v.birth_date%TYPE;
565: BEGIN
566:
567: IF new_references.start_date > new_references.end_date THEN
568: FND_MESSAGE.SET_NAME ('IGS', 'IGS_PE_FROM_DT_GRT_TO_DATE');
569: IGS_GE_MSG_STACK.ADD;
570: APP_EXCEPTION.RAISE_EXCEPTION;
571: END IF;
572:
575: CLOSE get_dob_dt_cur;
576:
577: IF l_birth_dt IS NOT NULL AND new_references.start_date IS NOT NULL THEN
578: IF l_birth_dt > new_references.start_date THEN
579: FND_MESSAGE.SET_NAME ('IGS', 'IGS_AD_STRT_DT_LESS_BIRTH_DT');
580: IGS_GE_MSG_STACK.ADD;
581: APP_EXCEPTION.RAISE_EXCEPTION;
582: END IF;
583: END IF;
582: END IF;
583: END IF;
584:
585: IF new_references.start_date IS NULL AND new_references.end_date IS NOT NULL THEN
586: FND_MESSAGE.SET_NAME( 'IGS','IGS_PE_CANT_SPECIFY_FROM_DATE');
587: IGS_GE_MSG_STACK.ADD;
588: APP_EXCEPTION.RAISE_EXCEPTION;
589: END IF;
590:
589: END IF;
590:
591: IF new_references.start_date IS NOT NULL AND new_references.end_date IS NOT NULL THEN
592: IF new_references.end_date < new_references.start_date THEN
593: FND_MESSAGE.SET_NAME( 'IGS','IGS_PE_FROM_DT_GRT_TO_DATE');
594: IGS_GE_MSG_STACK.ADD;
595: APP_EXCEPTION.RAISE_EXCEPTION;
596: END IF;
597: END IF;
616: FETCH not_none_cur INTO l_count;
617:
618: IF not_none_cur%FOUND THEN
619: CLOSE not_none_cur;
620: FND_MESSAGE.SET_NAME( 'IGS','IGS_PE_NO_NONE_SN');
621: IGS_GE_MSG_STACK.ADD;
622: APP_EXCEPTION.RAISE_EXCEPTION;
623: END IF;
624: CLOSE not_none_cur;
633: FETCH none_cur INTO l_count;
634:
635: IF none_cur%FOUND THEN
636: CLOSE none_cur;
637: FND_MESSAGE.SET_NAME( 'IGS','IGS_EN_PRSN_NOTHAVE_DIABREC');
638: IGS_GE_MSG_STACK.ADD;
639: APP_EXCEPTION.RAISE_EXCEPTION;
640: END IF;
641: CLOSE none_cur;
751: BeforeRowInsertUpdate1 ;
752: IF Get_PK_For_Validation (
753: new_references.IGS_PE_PERS_DISABLTY_ID
754: ) THEN
755: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
756: IGS_GE_MSG_STACK.ADD;
757: App_Exception.Raise_Exception;
758: END IF;
759: check_uniqueness ;
778:
779: IF Get_PK_For_Validation (
780: new_references.IGS_PE_PERS_DISABLTY_ID
781: ) THEN
782: Fnd_Message.Set_Name ('IGS', 'IGS_GE_RECORD_ALREADY_EXISTS');
783: IGS_GE_MSG_STACK.ADD;
784: App_Exception.Raise_Exception;
785: END IF;
786:
906: if X_LAST_UPDATE_LOGIN is NULL then
907: X_LAST_UPDATE_LOGIN := -1;
908: end if;
909: else
910: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
911: IGS_GE_MSG_STACK.ADD;
912: app_exception.raise_exception;
913: end if;
914:
1062: x_rowid => X_ROWID );
1063: EXCEPTION
1064: WHEN OTHERS THEN
1065: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1066: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1067: fnd_message.set_token ('ERR_CD', SQLCODE);
1068: igs_ge_msg_stack.add;
1069: igs_sc_gen_001.unset_ctx('R');
1070: app_exception.raise_exception;
1063: EXCEPTION
1064: WHEN OTHERS THEN
1065: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
1066: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
1067: fnd_message.set_token ('ERR_CD', SQLCODE);
1068: igs_ge_msg_stack.add;
1069: igs_sc_gen_001.unset_ctx('R');
1070: app_exception.raise_exception;
1071: ELSE
1166: begin
1167: open c1;
1168: fetch c1 into tlinfo;
1169: if (c1%notfound) then
1170: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
1171: IGS_GE_MSG_STACK.ADD;
1172: close c1;
1173: app_exception.raise_exception;
1174: return;
1252:
1253: ) then
1254: null;
1255: else
1256: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
1257: IGS_GE_MSG_STACK.ADD;
1258: app_exception.raise_exception;
1259: end if;
1260: return;
1326: if X_LAST_UPDATE_LOGIN is NULL then
1327: X_LAST_UPDATE_LOGIN := -1;
1328: end if;
1329: else
1330: FND_MESSAGE.SET_NAME( 'FND', 'SYSTEM-INVALID ARGS');
1331: IGS_GE_MSG_STACK.ADD;
1332: app_exception.raise_exception;
1333: end if;
1334: Before_DML(
1409: LAST_UPDATED_BY = X_LAST_UPDATED_BY,
1410: LAST_UPDATE_LOGIN = X_LAST_UPDATE_LOGIN
1411: where ROWID = X_ROWID;
1412: if (sql%notfound) then
1413: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1414: igs_ge_msg_stack.add;
1415: igs_sc_gen_001.unset_ctx('R');
1416: app_exception.raise_exception;
1417: end if;
1426: );
1427: EXCEPTION
1428: WHEN OTHERS THEN
1429: IF (SQLCODE = (-28115)) THEN
1430: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1431: fnd_message.set_token ('ERR_CD', SQLCODE);
1432: igs_ge_msg_stack.add;
1433: igs_sc_gen_001.unset_ctx('R');
1434: app_exception.raise_exception;
1427: EXCEPTION
1428: WHEN OTHERS THEN
1429: IF (SQLCODE = (-28115)) THEN
1430: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1431: fnd_message.set_token ('ERR_CD', SQLCODE);
1432: igs_ge_msg_stack.add;
1433: igs_sc_gen_001.unset_ctx('R');
1434: app_exception.raise_exception;
1435: ELSE
1603: END IF;
1604: delete from IGS_PE_PERS_DISABLTY
1605: where ROWID = X_ROWID;
1606: if (sql%notfound) then
1607: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1608: igs_ge_msg_stack.add;
1609: igs_sc_gen_001.unset_ctx('R');
1610: app_exception.raise_exception;
1611: end if;