13: p_message_name OUT NOCOPY VARCHAR2)
14: RETURN BOOLEAN AS
15: v_index BINARY_INTEGER;
16: v_other_detail VARCHAR(255);
17: r_disability_type IGS_AD_DISBL_TYPE%ROWTYPE;
18: BEGIN
19: -- Process saved rows.
20: FOR v_index IN 1..gv_table_index - 1
21: LOOP
21: LOOP
22: BEGIN
23: SELECT *
24: INTO r_disability_type
25: FROM IGS_AD_DISBL_TYPE
26: WHERE rowid = gt_rowid_table(v_index);
27: EXCEPTION
28: WHEN OTHERS THEN
29: Fnd_Message.Set_Name('IGS','IGS_GE_UNHANDLED_EXP');
31: IGS_GE_MSG_STACK.ADD;
32: App_Exception.Raise_Exception;
33:
34: END;
35: -- Validate for open IGS_AD_DISBL_TYPE records.
36: IF r_disability_type.closed_ind = 'N' THEN
37: IF IGS_EN_VAL_DIT.enrp_val_dit_open (
38: r_disability_type.disability_type,
39: r_disability_type.govt_disability_type,
54: BEGIN
55: DECLARE
56: gv_other_detail VARCHAR(255);
57: CURSOR gc_dit(
58: cp_disability_type IGS_AD_DISBL_TYPE.disability_type%TYPE,
59: cp_govt_disability_type IGS_AD_DISBL_TYPE.govt_disability_type%TYPE)
60: IS
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
55: DECLARE
56: gv_other_detail VARCHAR(255);
57: CURSOR gc_dit(
58: cp_disability_type IGS_AD_DISBL_TYPE.disability_type%TYPE,
59: cp_govt_disability_type IGS_AD_DISBL_TYPE.govt_disability_type%TYPE)
60: IS
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
57: CURSOR gc_dit(
58: cp_disability_type IGS_AD_DISBL_TYPE.disability_type%TYPE,
59: cp_govt_disability_type IGS_AD_DISBL_TYPE.govt_disability_type%TYPE)
60: IS
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
58: cp_disability_type IGS_AD_DISBL_TYPE.disability_type%TYPE,
59: cp_govt_disability_type IGS_AD_DISBL_TYPE.govt_disability_type%TYPE)
60: IS
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
66: BEGIN
59: cp_govt_disability_type IGS_AD_DISBL_TYPE.govt_disability_type%TYPE)
60: IS
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
66: BEGIN
67: -- this module validates that there are no other "open" IGS_AD_DISBL_TYPE
60: IS
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
66: BEGIN
67: -- this module validates that there are no other "open" IGS_AD_DISBL_TYPE
68: -- records for the nominated government disability_type (IGS_AD_DISBL_TYPE)
61: SELECT IGS_AD_DISBL_TYPE.closed_ind
62: FROM IGS_AD_DISBL_TYPE
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
66: BEGIN
67: -- this module validates that there are no other "open" IGS_AD_DISBL_TYPE
68: -- records for the nominated government disability_type (IGS_AD_DISBL_TYPE)
69: p_message_name := null;
63: WHERE IGS_AD_DISBL_TYPE.disability_type <> cp_disability_type AND
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
66: BEGIN
67: -- this module validates that there are no other "open" IGS_AD_DISBL_TYPE
68: -- records for the nominated government disability_type (IGS_AD_DISBL_TYPE)
69: p_message_name := null;
70: FOR gc_dit_rec IN gc_dit(
71: p_disability_type,
64: IGS_AD_DISBL_TYPE.govt_disability_type = cp_govt_disability_type AND
65: IGS_AD_DISBL_TYPE.closed_ind = 'N';
66: BEGIN
67: -- this module validates that there are no other "open" IGS_AD_DISBL_TYPE
68: -- records for the nominated government disability_type (IGS_AD_DISBL_TYPE)
69: p_message_name := null;
70: FOR gc_dit_rec IN gc_dit(
71: p_disability_type,
72: p_govt_disability_type) LOOP