65: OPEN cur_old_ref_values;
66: FETCH cur_old_ref_values INTO old_references;
67: IF ((cur_old_ref_values%NOTFOUND) AND (p_action NOT IN ('INSERT', 'VALIDATE_INSERT'))) THEN
68: CLOSE cur_old_ref_values;
69: fnd_message.set_name ('FND', 'FORM_RECORD_DELETED');
70: igs_ge_msg_stack.add;
71: app_exception.raise_exception;
72: RETURN;
73: END IF;
145: FETCH validate_brth_dt INTO l_bth_dt;
146: CLOSE validate_brth_dt;
147:
148: IF new_references.END_DATE IS NOT NULL AND new_references.START_DATE > new_references.END_DATE THEN
149: FND_MESSAGE.SET_NAME('IGS','IGS_FI_ST_DT_LE_END_DT');
150: IGS_GE_MSG_STACK.ADD;
151: APP_EXCEPTION.RAISE_EXCEPTION;
152:
153: ELSIF l_bth_dt IS NOT NULL AND l_bth_dt > new_references.START_DATE THEN
150: IGS_GE_MSG_STACK.ADD;
151: APP_EXCEPTION.RAISE_EXCEPTION;
152:
153: ELSIF l_bth_dt IS NOT NULL AND l_bth_dt > new_references.START_DATE THEN
154: FND_MESSAGE.SET_NAME('IGS','IGS_AD_STRT_DT_LESS_BIRTH_DT');
155: IGS_GE_MSG_STACK.ADD;
156: APP_EXCEPTION.RAISE_EXCEPTION;
157: END IF;
158:
177: new_references.immunization_code,
178: new_references.start_date
179: )
180: ) THEN
181: fnd_message.set_name ('IGS', 'IGS_PE_HLTH_IMM_DUP_EXISTS');
182: igs_ge_msg_stack.add;
183: app_exception.raise_exception;
184: END IF;
185:
203: NULL;
204: ELSIF NOT igs_pe_person_pkg.get_pk_for_validation (
205: new_references.person_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:
310: OPEN cur_rowid;
311: FETCH cur_rowid INTO lv_rowid;
312: IF (cur_rowid%FOUND) THEN
313: CLOSE cur_rowid;
314: fnd_message.set_name ('IGS', 'IGS_PE_PID_HZ_FK');
315: igs_ge_msg_stack.add;
316: app_exception.raise_exception;
317: RETURN;
318: END IF;
413: IF ( get_pk_for_validation(
414: new_references.immu_details_id
415: )
416: ) THEN
417: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
418: igs_ge_msg_stack.add;
419: app_exception.raise_exception;
420: END IF;
421: check_uniqueness;
430: IF ( get_pk_for_validation (
431: new_references.immu_details_id
432: )
433: ) THEN
434: fnd_message.set_name('IGS','IGS_GE_RECORD_ALREADY_EXISTS');
435: igs_ge_msg_stack.add;
436: app_exception.raise_exception;
437: END IF;
438: 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:
640:
641: EXCEPTION
642: WHEN OTHERS THEN
643: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
644: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
645: fnd_message.set_token ('ERR_CD', SQLCODE);
646: igs_ge_msg_stack.add;
647: igs_sc_gen_001.unset_ctx('R');
648: app_exception.raise_exception;
641: EXCEPTION
642: WHEN OTHERS THEN
643: IF (SQLCODE IN (-28115, -28113, -28111)) THEN
644: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_EXCEPTION');
645: fnd_message.set_token ('ERR_CD', SQLCODE);
646: igs_ge_msg_stack.add;
647: igs_sc_gen_001.unset_ctx('R');
648: app_exception.raise_exception;
649: ELSE
731:
732: OPEN c1;
733: FETCH c1 INTO tlinfo;
734: IF (c1%notfound) THEN
735: fnd_message.set_name('FND', 'FORM_RECORD_DELETED');
736: igs_ge_msg_stack.add;
737: CLOSE c1;
738: app_exception.raise_exception;
739: RETURN;
810:
811: ) THEN
812: NULL;
813: ELSE
814: fnd_message.set_name('FND', 'FORM_RECORD_CHANGED');
815: igs_ge_msg_stack.add;
816: app_exception.raise_exception;
817: END IF;
818:
880: IF (x_last_update_login IS NULL) THEN
881: x_last_update_login := -1;
882: END IF;
883: ELSE
884: fnd_message.set_name( 'FND', 'SYSTEM-INVALID ARGS');
885: igs_ge_msg_stack.add;
886: app_exception.raise_exception;
887: END IF;
888:
959: last_update_login = x_last_update_login
960: WHERE rowid = x_rowid;
961:
962: IF (SQL%NOTFOUND) THEN
963: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
964: igs_ge_msg_stack.add;
965: igs_sc_gen_001.unset_ctx('R');
966: app_exception.raise_exception;
967: END IF;
973:
974: EXCEPTION
975: WHEN OTHERS THEN
976: IF (SQLCODE = (-28115)) THEN
977: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
978: fnd_message.set_token ('ERR_CD', SQLCODE);
979: igs_ge_msg_stack.add;
980: igs_sc_gen_001.unset_ctx('R');
981: app_exception.raise_exception;
974: EXCEPTION
975: WHEN OTHERS THEN
976: IF (SQLCODE = (-28115)) THEN
977: fnd_message.set_name ('IGS', 'IGS_SC_UPD_POLICY_EXCP');
978: fnd_message.set_token ('ERR_CD', SQLCODE);
979: igs_ge_msg_stack.add;
980: igs_sc_gen_001.unset_ctx('R');
981: app_exception.raise_exception;
982: ELSE
1134: DELETE FROM igs_pe_immu_dtls
1135: WHERE rowid = x_rowid;
1136:
1137: IF (SQL%NOTFOUND) THEN
1138: fnd_message.set_name ('IGS', 'IGS_SC_POLICY_UPD_DEL_EXCEP');
1139: igs_ge_msg_stack.add;
1140: igs_sc_gen_001.unset_ctx('R');
1141: app_exception.raise_exception;
1142: END IF;