8: RETURN BOOLEAN AS
9: BEGIN
10: DECLARE
11: gv_other_detail VARCHAR(255);
12: gv_closed_ind IGS_PE_GOV_PER_RESCD.closed_ind%TYPE;
13: CURSOR gc_gpr_cd(
14: cp_gpr_cd IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd%TYPE) IS
15: SELECT IGS_PE_GOV_PER_RESCD.closed_ind
16: FROM IGS_PE_GOV_PER_RESCD
10: DECLARE
11: gv_other_detail VARCHAR(255);
12: gv_closed_ind IGS_PE_GOV_PER_RESCD.closed_ind%TYPE;
13: CURSOR gc_gpr_cd(
14: cp_gpr_cd IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd%TYPE) IS
15: SELECT IGS_PE_GOV_PER_RESCD.closed_ind
16: FROM IGS_PE_GOV_PER_RESCD
17: WHERE IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd = cp_gpr_cd;
18: BEGIN
11: gv_other_detail VARCHAR(255);
12: gv_closed_ind IGS_PE_GOV_PER_RESCD.closed_ind%TYPE;
13: CURSOR gc_gpr_cd(
14: cp_gpr_cd IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd%TYPE) IS
15: SELECT IGS_PE_GOV_PER_RESCD.closed_ind
16: FROM IGS_PE_GOV_PER_RESCD
17: WHERE IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd = cp_gpr_cd;
18: BEGIN
19: -- This module validates if IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd
12: gv_closed_ind IGS_PE_GOV_PER_RESCD.closed_ind%TYPE;
13: CURSOR gc_gpr_cd(
14: cp_gpr_cd IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd%TYPE) IS
15: SELECT IGS_PE_GOV_PER_RESCD.closed_ind
16: FROM IGS_PE_GOV_PER_RESCD
17: WHERE IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd = cp_gpr_cd;
18: BEGIN
19: -- This module validates if IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd
20: -- is closed
13: CURSOR gc_gpr_cd(
14: cp_gpr_cd IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd%TYPE) IS
15: SELECT IGS_PE_GOV_PER_RESCD.closed_ind
16: FROM IGS_PE_GOV_PER_RESCD
17: WHERE IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd = cp_gpr_cd;
18: BEGIN
19: -- This module validates if IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd
20: -- is closed
21: p_message_name := null;
15: SELECT IGS_PE_GOV_PER_RESCD.closed_ind
16: FROM IGS_PE_GOV_PER_RESCD
17: WHERE IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd = cp_gpr_cd;
18: BEGIN
19: -- This module validates if IGS_PE_GOV_PER_RESCD.govt_perm_resident_cd
20: -- is closed
21: p_message_name := null;
22: OPEN gc_gpr_cd(p_govt_perm_resident_cd);
23: FETCH gc_gpr_cd INTO gv_closed_ind;