93 lines
2.6 KiB
Plaintext
93 lines
2.6 KiB
Plaintext
CREATE OR REPLACE PACKAGE mip_contact_details IS
|
|
|
|
-- Author : MULLENMD
|
|
-- Created : 19/12/2007 09:41:54
|
|
-- Purpose : to retrieve contact details for parties
|
|
|
|
/**
|
|
retrieve a specific contact mechanism for a given party.
|
|
|
|
%param p_prty_id the ID of the party
|
|
%param p_come_type the contact mechanism type
|
|
*/
|
|
FUNCTION get_party_contact_detail(p_prty_id IN parties.id%TYPE,
|
|
p_come_type IN contact_mechanism_types.code%TYPE)
|
|
RETURN contact_mechanisms.contact_value%TYPE;
|
|
--
|
|
|
|
/**
|
|
retrieve a contact detail based on the ID
|
|
|
|
%param p_come_id the contact mechanism ID
|
|
*/
|
|
FUNCTION get_party_contact_detail_by_id(p_come_id IN contact_mechanisms.id%TYPE)
|
|
RETURN contact_mechanisms.contact_value%TYPE;
|
|
--
|
|
|
|
END mip_contact_details;
|
|
/
|
|
CREATE OR REPLACE PACKAGE BODY mip_contact_details IS
|
|
|
|
/**
|
|
retrieve a specific contact mechanism for a given party.
|
|
|
|
%param p_prty_id the ID of the party
|
|
%param p_come_type the contact mechanism type
|
|
*/
|
|
FUNCTION get_party_contact_detail(p_prty_id IN parties.id%TYPE,
|
|
p_come_type IN contact_mechanism_types.code%TYPE)
|
|
RETURN contact_mechanisms.contact_value%TYPE IS
|
|
--
|
|
l_ret_value contact_mechanisms.contact_value%TYPE;
|
|
|
|
BEGIN
|
|
/*SELECT come.contact_value
|
|
INTO l_ret_value
|
|
FROM parties prty,
|
|
party_contact_mechanisms prtycm,
|
|
contact_mechanisms come,
|
|
contact_mechanism_types comety
|
|
WHERE prtycm.come_id = come.id
|
|
AND prtycm.prty_id = prty.id
|
|
AND come.comt_code = comety.code
|
|
AND prty.id = p_prty_id
|
|
AND comety.code = p_come_type;*/
|
|
SELECT vccm.contact_value
|
|
INTO l_ret_value
|
|
FROM v_current_contact_mechanisms vccm
|
|
WHERE vccm.prty_id = p_prty_id
|
|
AND vccm.code = p_come_type;
|
|
|
|
RETURN l_ret_value;
|
|
EXCEPTION
|
|
WHEN no_data_found THEN
|
|
RETURN NULL;
|
|
END get_party_contact_detail;
|
|
--
|
|
|
|
/**
|
|
retrieve a contact detail based on the ID
|
|
|
|
%param p_come_id the contact mechanism ID
|
|
*/
|
|
FUNCTION get_party_contact_detail_by_id(p_come_id IN contact_mechanisms.id%TYPE)
|
|
RETURN contact_mechanisms.contact_value%TYPE IS
|
|
--
|
|
l_ret_value contact_mechanisms.contact_value%TYPE;
|
|
|
|
BEGIN
|
|
SELECT come.contact_value
|
|
INTO l_ret_value
|
|
FROM contact_mechanisms come
|
|
WHERE come.id = p_come_id;
|
|
|
|
RETURN l_ret_value;
|
|
EXCEPTION
|
|
WHEN no_data_found THEN
|
|
RETURN NULL;
|
|
END get_party_contact_detail_by_id;
|
|
--
|
|
|
|
END mip_contact_details;
|
|
/
|