28: -- vbanner, commenting out for bug 4674384.
29: -- sukukuma,uncommented out for bug 4674384
30: PROCEDURE nominee_age_check
31: ( p_contact_relationship_id IN
32: PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
33: BEGIN
34: NULL ;
35: END nominee_age_check;
36:
59: -- 1.1 16-May-2005 sukukuma Updated this procedure --+
60: --------------------------------------------------------------------------+
61:
62: PROCEDURE nomination_share_insert_check
63: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
64: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
65: ,p_effective_date IN DATE
66: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
67: )IS
60: --------------------------------------------------------------------------+
61:
62: PROCEDURE nomination_share_insert_check
63: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
64: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
65: ,p_effective_date IN DATE
66: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
67: )IS
68:
62: PROCEDURE nomination_share_insert_check
63: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
64: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
65: ,p_effective_date IN DATE
66: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
67: )IS
68:
69: BEGIN
70: NULL ;
97: -- 1.1 16-May-2005 sukukuma Updated this procedure --+
98: --------------------------------------------------------------------------+
99:
100: PROCEDURE nomination_share_update_check
101: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
102: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
103: ,p_effective_date IN DATE
104: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
105: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)IS
98: --------------------------------------------------------------------------+
99:
100: PROCEDURE nomination_share_update_check
101: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
102: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
103: ,p_effective_date IN DATE
104: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
105: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)IS
106: BEGIN
100: PROCEDURE nomination_share_update_check
101: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
102: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
103: ,p_effective_date IN DATE
104: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
105: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)IS
106: BEGIN
107: NULL ;
108: END nomination_share_update_check;
101: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
102: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
103: ,p_effective_date IN DATE
104: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
105: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)IS
106: BEGIN
107: NULL ;
108: END nomination_share_update_check;
109:
136: -- to check_nominee_age
137: --mdubasi, added Exception block to handle NO_DATA_FOUND Exception
138:
139: PROCEDURE check_nominee_age
140: ( p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
141: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
142: ,p_message_name OUT NOCOPY VARCHAR2
143: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
144: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
137: --mdubasi, added Exception block to handle NO_DATA_FOUND Exception
138:
139: PROCEDURE check_nominee_age
140: ( p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
141: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
142: ,p_message_name OUT NOCOPY VARCHAR2
143: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
144: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
145:
156: l_message VARCHAR2(255);
157:
158:
159: CURSOR c_business_group_check
160: (p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
161:
162: SELECT pbg.legislation_code
163: FROM per_business_groups pbg,
164: per_contact_relationships pcr
314: -- 100 --+
315: --------------------------------------------------------------------------+0
316:
317: PROCEDURE get_essential_insert_value
318: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
319: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
320: ,p_effective_date IN DATE
321: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
322: ,p_message_name OUT NOCOPY VARCHAR2
315: --------------------------------------------------------------------------+0
316:
317: PROCEDURE get_essential_insert_value
318: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
319: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
320: ,p_effective_date IN DATE
321: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
322: ,p_message_name OUT NOCOPY VARCHAR2
323: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
317: PROCEDURE get_essential_insert_value
318: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
319: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
320: ,p_effective_date IN DATE
321: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
322: ,p_message_name OUT NOCOPY VARCHAR2
323: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
324: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
325: IS
333:
334:
335:
336: CURSOR c_business_group_check
337: (p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
338: SELECT pbg.legislation_code
339: FROM per_business_groups pbg,
340: per_contact_relationships pcr
341: WHERE pcr.contact_relationship_id = p_contact_relationship_id
351: SELECT person_id from PER_CONTACT_RELATIONSHIPS
352: WHERE contact_relationship_id = p_contact_relationship_id;
353:
354: CURSOR c_check_benefit IS
355: SELECT 1 from PER_CONTACT_EXTRA_INFO_F
356: WHERE contact_relationship_id = p_contact_relationship_id
357: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
358: AND p_effective_date between effective_start_date and effective_end_date;
359:
472: -- 100 --+
473: --------------------------------------------------------------------------+0
474:
475: PROCEDURE get_essential_update_value
476: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
477: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
478: ,p_effective_date IN DATE
479: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
480: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
473: --------------------------------------------------------------------------+0
474:
475: PROCEDURE get_essential_update_value
476: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
477: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
478: ,p_effective_date IN DATE
479: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
480: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
481: ,p_message_name OUT NOCOPY VARCHAR2
475: PROCEDURE get_essential_update_value
476: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
477: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
478: ,p_effective_date IN DATE
479: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
480: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
481: ,p_message_name OUT NOCOPY VARCHAR2
482: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
483: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
476: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
477: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
478: ,p_effective_date IN DATE
479: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
480: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
481: ,p_message_name OUT NOCOPY VARCHAR2
482: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
483: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
484: IS
490: l_procedure VARCHAR2(200);
491: l_message VARCHAR2(255);
492:
493: CURSOR c_check_benefit IS
494: SELECT 1 from PER_CONTACT_EXTRA_INFO_F
495: WHERE contact_relationship_id = p_contact_relationship_id
496: AND contact_extra_info_id <> p_contact_extra_info_id
497: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
498: AND p_effective_date between effective_start_date and effective_end_date;
497: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
498: AND p_effective_date between effective_start_date and effective_end_date;
499:
500: CURSOR c_business_group_check
501: (p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
502: SELECT pbg.legislation_code
503: FROM per_business_groups pbg,
504: per_contact_relationships pcr
505: WHERE pcr.contact_relationship_id = p_contact_relationship_id
628: --------------------------------------------------------------------------+
629: -- 1.0 16-May-2005 sukukuma Created this procedure --+
630: --------------------------------------------------------------------------+0
631: PROCEDURE check_in_con_int
632: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
633: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
634: ,p_effective_date IN DATE
635: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
636: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
629: -- 1.0 16-May-2005 sukukuma Created this procedure --+
630: --------------------------------------------------------------------------+0
631: PROCEDURE check_in_con_int
632: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
633: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
634: ,p_effective_date IN DATE
635: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
636: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
637: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
631: PROCEDURE check_in_con_int
632: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
633: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
634: ,p_effective_date IN DATE
635: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
636: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
637: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
638: ,p_message_name OUT NOCOPY VARCHAR2
639: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
632: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
633: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
634: ,p_effective_date IN DATE
635: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
636: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
637: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
638: ,p_message_name OUT NOCOPY VARCHAR2
639: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
640: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
633: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
634: ,p_effective_date IN DATE
635: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
636: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
637: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
638: ,p_message_name OUT NOCOPY VARCHAR2
639: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
640: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
641:
746: -- handled in the library --+
747: --------------------------------------------------------------------------+
748:
749: PROCEDURE check_in_con_insert
750: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
751: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
752: ,p_effective_date IN DATE
753: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
754: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
747: --------------------------------------------------------------------------+
748:
749: PROCEDURE check_in_con_insert
750: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
751: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
752: ,p_effective_date IN DATE
753: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
754: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
755: )
749: PROCEDURE check_in_con_insert
750: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
751: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
752: ,p_effective_date IN DATE
753: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
754: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
755: )
756: IS
757: l_procedure VARCHAR2(100);
750: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
751: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
752: ,p_effective_date IN DATE
753: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
754: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
755: )
756: IS
757: l_procedure VARCHAR2(100);
758: l_message VARCHAR2(255);
820: -- handled in the library --+
821: --------------------------------------------------------------------------+
822:
823: PROCEDURE check_in_con_update
824: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
825: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
826: ,p_effective_date IN DATE
827: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
828: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
821: --------------------------------------------------------------------------+
822:
823: PROCEDURE check_in_con_update
824: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
825: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
826: ,p_effective_date IN DATE
827: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
828: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
829: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
823: PROCEDURE check_in_con_update
824: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
825: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
826: ,p_effective_date IN DATE
827: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
828: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
829: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
830: IS
831:
824: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
825: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
826: ,p_effective_date IN DATE
827: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
828: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
829: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
830: IS
831:
832: CURSOR c_nom_id IS
825: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
826: ,p_effective_date IN DATE
827: ,p_information_type IN PER_CONTACT_EXTRA_INFO_F.information_type%TYPE
828: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
829: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
830: IS
831:
832: CURSOR c_nom_id IS
833: SELECT
833: SELECT
834: CEI_INFORMATION2
835: ,CEI_INFORMATION3
836: ,contact_relationship_id
837: FROM PER_CONTACT_EXTRA_INFO_F
838: WHERE contact_extra_info_id =p_contact_extra_info_id;
839:
840:
841: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
837: FROM PER_CONTACT_EXTRA_INFO_F
838: WHERE contact_extra_info_id =p_contact_extra_info_id;
839:
840:
841: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
842: l_CEI_INFORMATION3 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE;
843: l_contact_relationship_id PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE;
844: l_procedure VARCHAR2(100);
845: l_message VARCHAR2(255);
838: WHERE contact_extra_info_id =p_contact_extra_info_id;
839:
840:
841: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
842: l_CEI_INFORMATION3 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE;
843: l_contact_relationship_id PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE;
844: l_procedure VARCHAR2(100);
845: l_message VARCHAR2(255);
846:
839:
840:
841: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
842: l_CEI_INFORMATION3 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE;
843: l_contact_relationship_id PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE;
844: l_procedure VARCHAR2(100);
845: l_message VARCHAR2(255);
846:
847: BEGIN
919: --------------------------------------------------------------------------+
920: -- 1.0 31-Mar-2004 gaugupta Created this procedure --+
921: -- 1.1 24-Jun-2004 vgsriniv Modified the logic.(Bug:3683622)--+
922: --------------------------------------------------------------------------+
923: FUNCTION get_nomination_share(p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE,
924: p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE,
925: p_effective_date IN DATE)
926: RETURN NUMBER IS
927: l_nomination_share NUMBER;
920: -- 1.0 31-Mar-2004 gaugupta Created this procedure --+
921: -- 1.1 24-Jun-2004 vgsriniv Modified the logic.(Bug:3683622)--+
922: --------------------------------------------------------------------------+
923: FUNCTION get_nomination_share(p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE,
924: p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE,
925: p_effective_date IN DATE)
926: RETURN NUMBER IS
927: l_nomination_share NUMBER;
928: l_nom NUMBER;
930: l_message VARCHAR2(255);
931:
932: CURSOR c_nomination_share IS
933: SELECT CEI_INFORMATION2
934: FROM PER_CONTACT_EXTRA_INFO_F
935: WHERE contact_relationship_id = p_contact_relationship_id
936: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
937: AND effective_end_date >= p_effective_date;
938: