305: END Check_Constraints;
306:
307: PROCEDURE Check_Parent_Existance AS
308:
309: CURSOR cur_reference_cd_chk(cp_reference_cd_type igs_ge_ref_cd_type_all.reference_cd_type%TYPE) IS
310: SELECT 'X'
311: FROM igs_ge_ref_cd_type_all
312: WHERE restricted_flag='Y'
313: AND reference_cd_type=cp_reference_cd_type;
307: PROCEDURE Check_Parent_Existance AS
308:
309: CURSOR cur_reference_cd_chk(cp_reference_cd_type igs_ge_ref_cd_type_all.reference_cd_type%TYPE) IS
310: SELECT 'X'
311: FROM igs_ge_ref_cd_type_all
312: WHERE restricted_flag='Y'
313: AND reference_cd_type=cp_reference_cd_type;
314: l_var VARCHAR2(1);
315: