315: BEGIN
316: IF p_contact_flag = 'P' THEN
317: select 'x'
318: into l_dummy
319: from csi_ipa_relation_types
320: where ipa_relation_type_code = UPPER(p_party_rel_type_code)
321: and party_use_flag = 'Y';
322:
323: ELSIF p_contact_flag = 'A' THEN
322:
323: ELSIF p_contact_flag = 'A' THEN
324: select 'x'
325: into l_dummy
326: from csi_ipa_relation_types
327: where ipa_relation_type_code = UPPER(p_party_rel_type_code)
328: and account_use_flag = 'Y';
329:
330: ELSIF p_contact_flag = 'C' THEN
329:
330: ELSIF p_contact_flag = 'C' THEN
331: select 'x'
332: into l_dummy
333: from csi_ipa_relation_types
334: where ipa_relation_type_code = UPPER(p_party_rel_type_code)
335: and contact_use_flag = 'Y';
336: END IF;
337: RETURN l_return_value;
1122: l_return_value BOOLEAN := TRUE;
1123:
1124: CURSOR c1 IS
1125: select 'x'
1126: from csi_ipa_relation_types
1127: where ipa_relation_type_code = UPPER(p_acct_rel_type_code)
1128: and account_use_flag = 'Y';
1129:
1130: BEGIN