The following lines contain the word 'select', 'insert', 'update' or 'delete':
CURSOR lc_partner_selection(c_program_id NUMBER) IS
SELECT a.attribute_id, a.operator,
b.attribute_value, b.attribute_to_value,
a.selection_criteria_id,
c.return_type,
d.currency_code
FROM pv_enty_select_criteria a,
pv_selected_attr_values b,
pv_attributes_vl c,
pv_process_rules_b d,
pv_partner_program_b e
WHERE a.attribute_id = c.attribute_id AND
a.selection_criteria_id = b.selection_criteria_id (+) AND
a.process_rule_id = d.process_rule_id AND
d.process_rule_id = e.prereq_process_rule_id AND
e.program_id = c_program_id
ORDER BY a.attribute_id, b.selection_criteria_id;
SELECT partner_id
FROM pv_partner_profiles
WHERE status = 'A';
SELECT change_from_program_id
FROM pv_pg_enrl_change_rules rule
WHERE rule.change_to_program_id = c_program_id
AND rule.change_direction_code = 'PREREQUISITE'
AND rule.EFFECTIVE_FROM_DATE <= SYSDATE
AND NVL(rule.EFFECTIVE_TO_DATE, SYSDATE+1) >= SYSDATE
AND rule.ACTIVE_FLAG = 'Y';
SELECT 1
FROM dual
WHERE not exists(
SELECT 1
FROM pv_pg_memberships memb
WHERE memb.program_id = c_program_id
AND memb.partner_id = c_partner_id
AND memb.MEMBERSHIP_STATUS_CODE = 'ACTIVE'
AND memb.START_DATE <= SYSDATE
AND NVL(memb.ACTUAL_END_DATE,NVL(memb.ORIGINAL_END_DATE,SYSDATE+1)) >= SYSDATE
);
FOR x IN lc_partner_selection(p_program_id) LOOP
IF (l_previous_attr_id = x.attribute_id AND
l_previous_sc_id = x.selection_criteria_id)
THEN
l_val_attr_tbl(i - 1) := l_val_attr_tbl(i - 1) ||
l_delimiter || x.attribute_value;
l_previous_sc_id := x.selection_criteria_id;
, p_attr_selection_mode => 'OR'
, p_att_delmter => '+++'
, p_selection_criteria => 'ALL'
, p_resource_id => NULL
, p_lead_id => NULL
, p_auto_match_flag => 'N'
, p_get_distance_flag => 'F'
, p_top_n_rows_by_profile => 'F'
, x_matched_id => l_attr_matched_id_tbl
, x_partner_details => l_partner_details
, x_distance_tbl => l_distance_tbl
, x_distance_uom_returned => l_distance_uom
, x_flagcount => l_flagcount
, x_return_status => x_return_status
, x_msg_count => x_msg_count
, x_msg_data => x_msg_data
);
SELECT prg.program_id
FROM pv_partner_program_b prg
WHERE prg.program_status_code = 'ACTIVE'
AND prg.program_level_code = 'MEMBERSHIP'
AND NVL(prg.allow_enrl_until_date, SYSDATE +1) >= SYSDATE
AND prg.enabled_flag = 'Y';
FOR x IN (SELECT COUNT(*) count
FROM v$session
WHERE module = g_module_name)
LOOP
IF (x.count > 0) THEN
Debug('There is already a Refresh Eligibilities CC session running.');
INSERT
INTO PV_PG_ELIG_PROG_MIRR
(
ELIG_PROGRAM_ID,
PROGRAM_ID,
PARTNER_ID,
ELIGIBILITY_CRIT_CODE,
CREATION_DATE,
CREATED_BY,
LAST_UPDATE_DATE,
LAST_UPDATED_BY,
LAST_UPDATE_LOGIN ,
OBJECT_Version_number
)
VALUES (
PV_PG_ELIG_PROGRAMS_S.nextval,
x.program_id,
l_matched_id_tbl(l_cnt),
'PREREQ',
SYSDATE,
l_user_id,
SYSDATE,
l_user_id,
l_user_id,
1.0
);