[Home] [Help]
56: RETURN BOOLEAN AS
57: gv_other_detail VARCHAR2(255);
58: BEGIN -- prgp_val_prgc_upd
59: -- Validate the IGS_PR_RU_CAT.s_rule_call_cd can only be updated if
60: -- there are no IGS_PR_RULE or IGS_PR_RU_APPL records linked to
61: -- this IGS_PR_RU_CAT.
62: DECLARE
63: v_dummy VARCHAR2(1);
64: CURSOR c_prr IS
66: FROM IGS_PR_RULE prr
67: WHERE prr.progression_rule_cat = p_progression_rule_cat;
68: CURSOR c_pra IS
69: SELECT 'X'
70: FROM IGS_PR_RU_APPL pra
71: WHERE pra.progression_rule_cat = p_progression_rule_cat AND
72: pra.rul_sequence_number IS NOT NULL;
73: BEGIN
74: -- Set the default message number
89: p_message_name := 'IGS_PR_RUL_RECORD_IN_USE';
90: RETURN FALSE;
91: END IF;
92: CLOSE c_prr;
93: -- Check for any IGS_PR_RU_APPL records using this
94: -- progression_rule_cat
95: OPEN c_pra;
96: FETCH c_pra INTO v_dummy;
97: IF c_pra%FOUND THEN