The following lines contain the word 'select', 'insert', 'update' or 'delete':
SELECT 'X'
FROM IGS_PR_RU_OU pro,
IGS_PR_OU_TYPE pot,
IGS_FI_ENC_DFLT_EFT etde
WHERE pro.progression_rule_cat = p_progression_rule_cat AND
pro.pra_sequence_number = p_pra_sequence_number AND
pro.sequence_number = p_sequence_number AND
pro.progression_outcome_type = pot.progression_outcome_type AND
pot. encumbrance_type = etde.encumbrance_type AND
etde.s_encmb_effect_type = cst_exc_crs_us;
SELECT 'X'
FROM igs_pr_ru_ou pro
WHERE pro.progression_rule_cat = p_progression_rule_cat
AND pro.pra_sequence_number = p_pra_sequence_number
AND pro.sequence_number = p_pro_sequence_number
AND pro.apply_automatically_ind = 'N'
UNION ALL
SELECT 'X'
FROM igs_pr_ru_ou pro,
igs_pr_ou_unit_set pous,
igs_pr_ou_type_all pot,
igs_fi_enc_dflt_eft etde
WHERE pro.progression_rule_cat = p_progression_rule_cat
AND pro.pra_sequence_number = p_pra_sequence_number
AND pro.sequence_number = p_pro_sequence_number
AND pro.apply_automatically_ind = 'Y'
AND pro.progression_rule_cat = pous.progression_rule_cat
AND pro.pra_sequence_number = pous.pra_sequence_number
AND pro.sequence_number = pous.pro_sequence_number
AND ( pous.unit_set_cd <> p_unit_set_cd
OR pous.us_version_number <> p_us_version_number
)
AND pro.progression_outcome_type = pot.progression_outcome_type
AND pot.encumbrance_type = etde.encumbrance_type
AND etde.s_encmb_effect_type = cst_exc_crs_us ;
p_inserting IN BOOLEAN ,
p_updating IN BOOLEAN ,
p_deleting IN BOOLEAN ,
p_message_name OUT NOCOPY VARCHAR2 )
RETURN BOOLEAN IS
v_index BINARY_INTEGER;
-- Validate delete
IF p_deleting THEN
IF IGS_PR_val_pous.prgp_val_pous_auto (
gt_rowid_table(v_index).progression_rule_cat,
gt_rowid_table(v_index).pra_sequence_number,
gt_rowid_table(v_index).pro_sequence_number,
gt_rowid_table(v_index).unit_set_cd,
gt_rowid_table(v_index).us_version_number,
v_message_name) = FALSE THEN
p_message_name := v_message_name;