[Home] [Help]
1839: p_message_name OUT NOCOPY VARCHAR2 ,
1840: p_inserted_ind OUT NOCOPY VARCHAR2 )
1841: RETURN BOOLEAN IS
1842: BEGIN --admp_ins_tert_edu
1843: -- This function inserts a new IGS_AD_TER_EDU record.
1844: DECLARE
1845: CURSOR c_ins IS
1846: SELECT institution_cd,
1847: local_institution_ind
1871: honours_level = p_honours_level ) AND
1872: closed_ind = 'N';
1873:
1874: v_ins_rec c_ins%ROWTYPE;
1875: v_institution_cd IGS_AD_TER_EDU.institution_cd%TYPE DEFAULT NULL;
1876: v_language_of_tuition
1877: IGS_AD_TER_EDU.language_of_tuition%TYPE DEFAULT NULL;
1878: v_language_cd IGS_PE_LANGUAGE_CD.language_cd%TYPE DEFAULT NULL;
1879: v_tertiary_edu_lvl_qual
1873:
1874: v_ins_rec c_ins%ROWTYPE;
1875: v_institution_cd IGS_AD_TER_EDU.institution_cd%TYPE DEFAULT NULL;
1876: v_language_of_tuition
1877: IGS_AD_TER_EDU.language_of_tuition%TYPE DEFAULT NULL;
1878: v_language_cd IGS_PE_LANGUAGE_CD.language_cd%TYPE DEFAULT NULL;
1879: v_tertiary_edu_lvl_qual
1880: IGS_AD_TER_EDU.tertiary_edu_lvl_qual%TYPE DEFAULT NULL;
1881: v_tertiary_edu_lvl_comp
1876: v_language_of_tuition
1877: IGS_AD_TER_EDU.language_of_tuition%TYPE DEFAULT NULL;
1878: v_language_cd IGS_PE_LANGUAGE_CD.language_cd%TYPE DEFAULT NULL;
1879: v_tertiary_edu_lvl_qual
1880: IGS_AD_TER_EDU.tertiary_edu_lvl_qual%TYPE DEFAULT NULL;
1881: v_tertiary_edu_lvl_comp
1882: IGS_AD_TER_EDU.tertiary_edu_lvl_comp%TYPE DEFAULT NULL;
1883: v_field_of_study IGS_AD_TER_EDU.field_of_study%TYPE DEFAULT NULL;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1878: v_language_cd IGS_PE_LANGUAGE_CD.language_cd%TYPE DEFAULT NULL;
1879: v_tertiary_edu_lvl_qual
1880: IGS_AD_TER_EDU.tertiary_edu_lvl_qual%TYPE DEFAULT NULL;
1881: v_tertiary_edu_lvl_comp
1882: IGS_AD_TER_EDU.tertiary_edu_lvl_comp%TYPE DEFAULT NULL;
1883: v_field_of_study IGS_AD_TER_EDU.field_of_study%TYPE DEFAULT NULL;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1879: v_tertiary_edu_lvl_qual
1880: IGS_AD_TER_EDU.tertiary_edu_lvl_qual%TYPE DEFAULT NULL;
1881: v_tertiary_edu_lvl_comp
1882: IGS_AD_TER_EDU.tertiary_edu_lvl_comp%TYPE DEFAULT NULL;
1883: v_field_of_study IGS_AD_TER_EDU.field_of_study%TYPE DEFAULT NULL;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1887: v_enrolment_latest_yr
1880: IGS_AD_TER_EDU.tertiary_edu_lvl_qual%TYPE DEFAULT NULL;
1881: v_tertiary_edu_lvl_comp
1882: IGS_AD_TER_EDU.tertiary_edu_lvl_comp%TYPE DEFAULT NULL;
1883: v_field_of_study IGS_AD_TER_EDU.field_of_study%TYPE DEFAULT NULL;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1887: v_enrolment_latest_yr
1888: IGS_AD_TER_EDU.enrolment_latest_yr%TYPE DEFAULT NULL;
1881: v_tertiary_edu_lvl_comp
1882: IGS_AD_TER_EDU.tertiary_edu_lvl_comp%TYPE DEFAULT NULL;
1883: v_field_of_study IGS_AD_TER_EDU.field_of_study%TYPE DEFAULT NULL;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1887: v_enrolment_latest_yr
1888: IGS_AD_TER_EDU.enrolment_latest_yr%TYPE DEFAULT NULL;
1889: v_institution_name IGS_AD_TER_EDU.institution_name%TYPE DEFAULT NULL;
1882: IGS_AD_TER_EDU.tertiary_edu_lvl_comp%TYPE DEFAULT NULL;
1883: v_field_of_study IGS_AD_TER_EDU.field_of_study%TYPE DEFAULT NULL;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1887: v_enrolment_latest_yr
1888: IGS_AD_TER_EDU.enrolment_latest_yr%TYPE DEFAULT NULL;
1889: v_institution_name IGS_AD_TER_EDU.institution_name%TYPE DEFAULT NULL;
1890: v_message_name VARCHAR2(30) DEFAULT 0;
1884: v_language_component IGS_AD_TER_EDU.language_component%TYPE DEFAULT NULL;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1887: v_enrolment_latest_yr
1888: IGS_AD_TER_EDU.enrolment_latest_yr%TYPE DEFAULT NULL;
1889: v_institution_name IGS_AD_TER_EDU.institution_name%TYPE DEFAULT NULL;
1890: v_message_name VARCHAR2(30) DEFAULT 0;
1891: v_inserted_ind VARCHAR2(1) DEFAULT 'N';
1892: v_institution_cd_found BOOLEAN := TRUE;
1885: v_country_cd IGS_AD_TER_EDU.country_cd%TYPE DEFAULT NULL;
1886: v_honours_level IGS_AD_TER_EDU.honours_level%TYPE DEFAULT NULL;
1887: v_enrolment_latest_yr
1888: IGS_AD_TER_EDU.enrolment_latest_yr%TYPE DEFAULT NULL;
1889: v_institution_name IGS_AD_TER_EDU.institution_name%TYPE DEFAULT NULL;
1890: v_message_name VARCHAR2(30) DEFAULT 0;
1891: v_inserted_ind VARCHAR2(1) DEFAULT 'N';
1892: v_institution_cd_found BOOLEAN := TRUE;
1893:
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,
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,
2001: X_Person_Id => p_person_id,
2002: X_Sequence_Number => lv_NextVal,
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;