79: OPEN cur_old_ref_values;
80: FETCH cur_old_ref_values INTO old_references;
81: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
82: CLOSE cur_old_ref_values;
83: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
84:
85: igs_ge_msg_stack.add;
86: app_exception.raise_exception;
87: RETURN;
203: OPEN cur_org_unit_exists(x_oss_org_unit_cd);
204: FETCH cur_org_unit_exists INTO l_exists;
205: IF cur_org_unit_exists%FOUND THEN
206: CLOSE cur_org_unit_exists;
207: FND_MESSAGE.Set_Name('IGS','IGS_OR_INST_UNIQUE');
208: IF x_inst_org_ind = 'O' THEN
209: FND_MESSAGE.SET_TOKEN('ORG_INST_CD',FND_MESSAGE.GET_STRING('IGS','IGS_ORG_UNIT_CD'));
210: ELSIF x_inst_org_ind = 'I' THEN
211: FND_MESSAGE.SET_TOKEN('ORG_INST_CD',FND_MESSAGE.GET_STRING('IGS','IGS_OR_INSTITUTION_CODE'));
205: IF cur_org_unit_exists%FOUND THEN
206: CLOSE cur_org_unit_exists;
207: FND_MESSAGE.Set_Name('IGS','IGS_OR_INST_UNIQUE');
208: IF x_inst_org_ind = 'O' THEN
209: FND_MESSAGE.SET_TOKEN('ORG_INST_CD',FND_MESSAGE.GET_STRING('IGS','IGS_ORG_UNIT_CD'));
210: ELSIF x_inst_org_ind = 'I' THEN
211: FND_MESSAGE.SET_TOKEN('ORG_INST_CD',FND_MESSAGE.GET_STRING('IGS','IGS_OR_INSTITUTION_CODE'));
212: END IF;
213: IGS_GE_MSG_STACK.Add;
207: FND_MESSAGE.Set_Name('IGS','IGS_OR_INST_UNIQUE');
208: IF x_inst_org_ind = 'O' THEN
209: FND_MESSAGE.SET_TOKEN('ORG_INST_CD',FND_MESSAGE.GET_STRING('IGS','IGS_ORG_UNIT_CD'));
210: ELSIF x_inst_org_ind = 'I' THEN
211: FND_MESSAGE.SET_TOKEN('ORG_INST_CD',FND_MESSAGE.GET_STRING('IGS','IGS_OR_INSTITUTION_CODE'));
212: END IF;
213: IGS_GE_MSG_STACK.Add;
214: APP_EXCEPTION.Raise_Exception;
215: RETURN;
238: OPEN cur_rowid;
239: FETCH cur_rowid INTO lv_rowid;
240: IF cur_rowid%FOUND THEN
241: CLOSE cur_rowid;
242: FND_MESSAGE.Set_Name('IGS','IGS_OR_PHP1_ACC');
243: IGS_GE_MSG_STACK.Add;
244: APP_EXCEPTION.Raise_Exception;
245: RETURN;
246: END IF;
286: ((new_references.party_id IS NULL))) THEN
287: NULL;
288: ELSE
289: if Not validate_pk ( new_references.party_id ) then
290: Fnd_Message.Set_Name ('FND', 'FORM_RECORD_DELETED');
291: IGS_GE_MSG_STACK.ADD;
292: App_Exception.Raise_Exception;
293: end if;
294: END IF;
299: ((new_references.veteran IS NULL))) THEN
300: NULL;
301: ELSE
302: IF NOT IGS_LOOKUPS_VIEW_PKG.get_pk_for_validation('VETERAN_STATUS',new_references.veteran) THEN
303: FND_MESSAGE.SET_NAME ('FND', 'FORM_RECORD_DELETED');
304: IGS_GE_MSG_STACK.ADD;
305: APP_EXCEPTION.RAISE_EXCEPTION;
306: END IF;
307: END IF;
310: ((new_references.inst_priority_cd IS NULL))) THEN
311: NULL;
312: ELSE
313: IF NOT IGS_LOOKUPS_VIEW_PKG.get_pk_for_validation('OR_INST_PRIORITY_CD',new_references.inst_priority_cd) THEN
314: FND_MESSAGE.SET_NAME ('FND', 'FORM_RECORD_DELETED');
315: IGS_GE_MSG_STACK.ADD;
316: APP_EXCEPTION.RAISE_EXCEPTION;
317: END IF;
318: END IF;
497: IF ( get_pk_for_validation(
498: new_references.party_id
499: )
500: ) THEN
501: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
502: igs_ge_msg_stack.add;
503: app_exception.raise_exception;
504: END IF;
505:
525: IF ( get_pk_for_validation (
526: new_references.party_id
527: )
528: ) THEN
529: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
530: igs_ge_msg_stack.add;
531: app_exception.raise_exception;
532: END IF;
533:
635: ELSE
636: x_program_update_date := SYSDATE;
637: END IF;
638: ELSE
639: fnd_message.set_name ('FND', 'SYSTEM-INVALID ARGS');
640: igs_ge_msg_stack.add;
641: app_exception.raise_exception;
642: END IF;
643:
815:
816: EXCEPTION
817: WHEN OTHERS THEN
818: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
819: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
820: fnd_message.set_token ('ERR_CD', SQLCODE);
821: igs_ge_msg_stack.add;
822: igs_sc_gen_001.unset_ctx('R');
823: app_exception.raise_exception;
816: EXCEPTION
817: WHEN OTHERS THEN
818: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
819: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
820: fnd_message.set_token ('ERR_CD', SQLCODE);
821: igs_ge_msg_stack.add;
822: igs_sc_gen_001.unset_ctx('R');
823: app_exception.raise_exception;
824: ELSE
933:
934: OPEN c1;
935: FETCH c1 INTO tlinfo;
936: IF (c1%notfound) THEN
937: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
938: igs_ge_msg_stack.add;
939: CLOSE c1;
940: app_exception.raise_exception;
941: RETURN;
985: AND ((tlinfo.felony_convicted_flag = x_felony_convicted_flag) OR ((tlinfo.felony_convicted_flag IS NULL) AND (x_felony_convicted_flag IS NULL)))
986: ) THEN
987: NULL;
988: ELSE
989: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
990: igs_ge_msg_stack.add;
991: app_exception.raise_exception;
992: END IF;
993:
1073: IF (x_last_update_login IS NULL) THEN
1074: x_last_update_login := -1;
1075: END IF;
1076: ELSE
1077: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
1078: igs_ge_msg_stack.add;
1079: app_exception.raise_exception;
1080: END IF;
1081:
1198: program_update_date = x_program_update_date
1199: WHERE rowid = x_rowid;
1200:
1201: IF (SQL%NOTFOUND) THEN
1202: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1203: igs_ge_msg_stack.add;
1204: igs_sc_gen_001.unset_ctx('R');
1205: app_exception.raise_exception;
1206: END IF;
1212:
1213: EXCEPTION
1214: WHEN OTHERS THEN
1215: IF (SQLCODE = (-28115)) THEN
1216: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1217: fnd_message.set_token ('ERR_CD', SQLCODE);
1218: igs_ge_msg_stack.add;
1219: igs_sc_gen_001.unset_ctx('R');
1220: app_exception.raise_exception;
1213: EXCEPTION
1214: WHEN OTHERS THEN
1215: IF (SQLCODE = (-28115)) THEN
1216: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
1217: fnd_message.set_token ('ERR_CD', SQLCODE);
1218: igs_ge_msg_stack.add;
1219: igs_sc_gen_001.unset_ctx('R');
1220: app_exception.raise_exception;
1221: ELSE
1415: DELETE FROM igs_pe_hz_parties
1416: WHERE rowid = x_rowid;
1417:
1418: IF (SQL%NOTFOUND) THEN
1419: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1420: igs_ge_msg_stack.add;
1421: igs_sc_gen_001.unset_ctx('R');
1422: app_exception.raise_exception;
1423: END IF;