1890: v_message_name VARCHAR2(30) DEFAULT 0;
1891: v_inserted_ind VARCHAR2(1) DEFAULT 'N';
1892: v_institution_cd_found BOOLEAN := TRUE;
1893:
1894: CURSOR C_IGS_AD_TER_EDU_SEQ_NUM_S IS
1895: SELECT IGS_AD_TER_EDU_SEQ_NUM_S.NEXTVAL FROM DUAL;
1896:
1897: lv_NextVal NUMBER;
1898: lv_rowid VARCHAR2(25);
1891: v_inserted_ind VARCHAR2(1) DEFAULT 'N';
1892: v_institution_cd_found BOOLEAN := TRUE;
1893:
1894: CURSOR C_IGS_AD_TER_EDU_SEQ_NUM_S IS
1895: SELECT IGS_AD_TER_EDU_SEQ_NUM_S.NEXTVAL FROM DUAL;
1896:
1897: lv_NextVal NUMBER;
1898: lv_rowid VARCHAR2(25);
1899: BEGIN
1987: v_message_name) <> FALSE THEN
1988: v_enrolment_latest_yr := p_enrolment_latest_yr;
1989: END IF;
1990:
1991: OPEN C_IGS_AD_TER_EDU_SEQ_NUM_S;
1992: FETCH C_IGS_AD_TER_EDU_SEQ_NUM_S INTO lv_NextVal;
1993: IF C_IGS_AD_TER_EDU_SEQ_NUM_S%NOTFOUND THEN
1994: RAISE NO_DATA_FOUND;
1995: END IF;
1988: v_enrolment_latest_yr := p_enrolment_latest_yr;
1989: END IF;
1990:
1991: OPEN C_IGS_AD_TER_EDU_SEQ_NUM_S;
1992: FETCH C_IGS_AD_TER_EDU_SEQ_NUM_S INTO lv_NextVal;
1993: IF C_IGS_AD_TER_EDU_SEQ_NUM_S%NOTFOUND THEN
1994: RAISE NO_DATA_FOUND;
1995: END IF;
1996: CLOSE C_IGS_AD_TER_EDU_SEQ_NUM_S;
1989: END IF;
1990:
1991: OPEN C_IGS_AD_TER_EDU_SEQ_NUM_S;
1992: FETCH C_IGS_AD_TER_EDU_SEQ_NUM_S INTO lv_NextVal;
1993: IF C_IGS_AD_TER_EDU_SEQ_NUM_S%NOTFOUND THEN
1994: RAISE NO_DATA_FOUND;
1995: END IF;
1996: CLOSE C_IGS_AD_TER_EDU_SEQ_NUM_S;
1997:
1992: FETCH C_IGS_AD_TER_EDU_SEQ_NUM_S INTO lv_NextVal;
1993: IF C_IGS_AD_TER_EDU_SEQ_NUM_S%NOTFOUND THEN
1994: RAISE NO_DATA_FOUND;
1995: END IF;
1996: CLOSE C_IGS_AD_TER_EDU_SEQ_NUM_S;
1997:
1998: Igs_Ad_Ter_Edu_Pkg.Insert_Row (
1999: X_Mode => 'R',
2000: X_RowId => lv_rowid,
2026: p_inserted_ind := 'Y';
2027: RETURN TRUE;
2028: EXCEPTION
2029: WHEN NO_DATA_FOUND THEN
2030: CLOSE C_IGS_AD_TER_EDU_SEQ_NUM_S;
2031: WHEN OTHERS THEN
2032: IF(c_ins%ISOPEN) THEN
2033: CLOSE c_ins;
2034: END IF;