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_u;
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_rqrd_crs_u;
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 popu,
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_pro_sequence_number
AND pro.apply_automatically_ind = 'Y'
AND pro.progression_rule_cat = popu.progression_rule_cat
AND pro.pra_sequence_number = popu.pra_sequence_number
AND pro.sequence_number = popu.pro_sequence_number
AND popu.unit_cd <> p_unit_cd
AND popu.s_unit_type = cst_excluded
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_u;
SELECT 'X'
FROM IGS_PR_RU_OU pro,
IGS_PR_OU_UNIT popu,
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_pro_sequence_number AND
(pro.apply_automatically_ind = 'N' OR
(pro.apply_automatically_ind = 'Y' AND
pro.progression_rule_cat = popu.progression_rule_cat AND
pro.pra_sequence_number = popu.pra_sequence_number AND
pro.sequence_number = popu.pro_sequence_number AND
popu.unit_cd <> p_unit_cd AND
popu.s_unit_type = cst_required AND
pro.progression_outcome_type = pot.progression_outcome_type AND
pot. encumbrance_type = etde.encumbrance_type AND
etde.s_encmb_effect_type = cst_rqrd_crs_u));
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_popu.prgp_val_popu_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_cd,
gt_rowid_table(v_index).old_s_unit_type,
v_message_name) = FALSE THEN
p_message_name := v_message_name;
SELECT 'x'
FROM IGS_PS_UNIT_VER uv,
IGS_PS_UNIT_STAT ust
WHERE uv.unit_cd = p_unit_cd AND
uv.unit_status = ust.unit_status AND
ust.s_unit_status = 'ACTIVE';