290:
291: EXCEPTION
292: WHEN OTHERS THEN
293: p_status :=2;
294: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
295: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.cr_he_st_spa_rec');
296: IGS_GE_MSG_STACK.ADD;
297: app_exception.raise_exception;
298:
291: EXCEPTION
292: WHEN OTHERS THEN
293: p_status :=2;
294: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
295: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.cr_he_st_spa_rec');
296: IGS_GE_MSG_STACK.ADD;
297: app_exception.raise_exception;
298:
299: END cr_he_st_spa_rec;
327: EXCEPTION
328:
329: WHEN OTHERS THEN
330: P_STATUS :=2;
331: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
332: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.HESA_STATS_ENR');
333: IGS_GE_MSG_STACK.ADD;
334: app_exception.raise_exception;
335: END hesa_stats_enr;
328:
329: WHEN OTHERS THEN
330: P_STATUS :=2;
331: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
332: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.HESA_STATS_ENR');
333: IGS_GE_MSG_STACK.ADD;
334: app_exception.raise_exception;
335: END hesa_stats_enr;
336:
601: EXCEPTION
602:
603: WHEN OTHERS THEN
604: P_STATUS := 2;
605: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
606: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.CR_HE_NEW_SUSA_REC');
607: IGS_GE_MSG_STACK.ADD;
608: app_exception.raise_exception;
609:
602:
603: WHEN OTHERS THEN
604: P_STATUS := 2;
605: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
606: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.CR_HE_NEW_SUSA_REC');
607: IGS_GE_MSG_STACK.ADD;
608: app_exception.raise_exception;
609:
610: END cr_he_new_susa_rec;
769:
770: EXCEPTION
771: WHEN OTHERS THEN
772: P_STATUS :=2;
773: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
774: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.CR_HE_ADD_SUSA_REC');
775: IGS_GE_MSG_STACK.ADD;
776: app_exception.raise_exception;
777:
770: EXCEPTION
771: WHEN OTHERS THEN
772: P_STATUS :=2;
773: FND_MESSAGE.SET_NAME('IGS','IGS_GE_UNHANDLED_EXCEPTION');
774: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.CR_HE_ADD_SUSA_REC');
775: IGS_GE_MSG_STACK.ADD;
776: app_exception.raise_exception;
777:
778: END cr_he_add_susa_rec;
845:
846: EXCEPTION
847: WHEN OTHERS THEN
848: p_status := 2;
849: FND_MESSAGE.SET_NAME('IGS','IGS_UNHANDLED_EXCEPTION');
850: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.HESA_SUSA_ENR');
851: IGS_GE_MSG_STACK.ADD;
852: app_exception.raise_exception;
853:
846: EXCEPTION
847: WHEN OTHERS THEN
848: p_status := 2;
849: FND_MESSAGE.SET_NAME('IGS','IGS_UNHANDLED_EXCEPTION');
850: FND_MESSAGE.SET_TOKEN('NAME','IGS_EN_HESA_PKG.HESA_SUSA_ENR');
851: IGS_GE_MSG_STACK.ADD;
852: app_exception.raise_exception;
853:
854: END hesa_susa_enr;
919: BEGIN
920:
921: IF p_subj_qualaim1 IS NULL AND p_subj_qualaim2 IS NOT NULL THEN
922: l_val_failed := TRUE;
923: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUBQ2_IF_SUBQ1');
924: FND_MSG_PUB.ADD;
925: END IF;
926:
927: IF p_subj_qualaim2 IS NULL AND p_subj_qualaim3 IS NOT NULL THEN
925: END IF;
926:
927: IF p_subj_qualaim2 IS NULL AND p_subj_qualaim3 IS NOT NULL THEN
928: l_val_failed := TRUE;
929: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUBQ3_IF_SUBQ2');
930: FND_MSG_PUB.ADD;
931: END IF;
932:
933: IF p_subj_qualaim1 IS NOT NULL AND p_subj_qualaim2 IS NOT NULL AND
932:
933: IF p_subj_qualaim1 IS NOT NULL AND p_subj_qualaim2 IS NOT NULL AND
934: p_subj_qualaim3 IS NULL AND p_qualaim_proportion IS NULL THEN
935: l_val_failed := TRUE;
936: FND_MESSAGE.SET_NAME('IGS','IGS_HE_QUAL_PROP_MUST_COMP');
937: FND_MSG_PUB.ADD;
938: END IF;
939:
940: IF p_subj_qualaim3 IS NOT NULL AND p_qualaim_proportion IS NOT NULL THEN
938: END IF;
939:
940: IF p_subj_qualaim3 IS NOT NULL AND p_qualaim_proportion IS NOT NULL THEN
941: l_val_failed := TRUE;
942: FND_MESSAGE.SET_NAME('IGS','IGS_HE_QUAL_PROP_CANT_SET');
943: FND_MSG_PUB.ADD;
944: END IF;
945:
946: IF ((p_subj_qualaim1 IS NULL AND (p_subj_qualaim2 IS NOT NULL OR p_subj_qualaim3 IS NOT NULL OR p_qualaim_proportion IS NOT NULL)) OR
947: (p_subj_qualaim2 IS NULL AND (p_subj_qualaim3 IS NOT NULL OR p_qualaim_proportion IS NOT NULL)) OR
948: (p_subj_qualaim3 IS NULL AND p_qualaim_proportion IS NULL AND (p_subj_qualaim1 IS NOT NULL AND p_subj_qualaim2 IS NOT NULL )) OR
949: (p_subj_qualaim1 IS NOT NULL AND p_subj_qualaim2 IS NOT NULL AND p_subj_qualaim3 IS NOT NULL AND p_qualaim_proportion IS NOT NULL)) THEN
950: l_val_failed := TRUE;
951: FND_MESSAGE.SET_NAME('IGS','IGS_HE_SUBQ_INVALID_SET');
952: FND_MSG_PUB.ADD;
953: END IF;
954:
955: IF l_val_failed THEN