[Home] [Help]
13: RETURN BOOLEAN AS
14: gv_other_detail VARCHAR2(255);
15: BEGIN -- prgp_val_prr_upd
16: -- Warn the user if a IGS_PR_RULE is being changed and it
17: -- is linked to a IGS_PR_RU_APPL for a s_relation_type
18: -- other than PRR or PRGC.
19: DECLARE
20: v_dummy VARCHAR2(1);
21: CURSOR c_pra IS
19: DECLARE
20: v_dummy VARCHAR2(1);
21: CURSOR c_pra IS
22: SELECT 'X'
23: FROM IGS_PR_RU_APPL pra
24: WHERE pra.progression_rule_cat = p_progression_rule_cat
25: AND pra.progression_rule_cd = p_progression_rule_cd
26: AND pra.s_relation_type NOT IN ('PRR', 'PRGC');
27: BEGIN