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_message_name OUT NOCOPY VARCHAR2
142: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
143: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
144:
155: l_message VARCHAR2(255);
156:
157:
158: CURSOR c_business_group_check
159: (p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
160:
161: SELECT pbg.legislation_code
162: FROM per_business_groups pbg,
163: per_contact_relationships pcr
312: -- 100 --+
313: --------------------------------------------------------------------------+0
314:
315: PROCEDURE get_essential_insert_value
316: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
317: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
318: ,p_effective_date IN DATE
319: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
320: ,p_message_name OUT NOCOPY VARCHAR2
313: --------------------------------------------------------------------------+0
314:
315: PROCEDURE get_essential_insert_value
316: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
317: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
318: ,p_effective_date IN DATE
319: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
320: ,p_message_name OUT NOCOPY VARCHAR2
321: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
315: PROCEDURE get_essential_insert_value
316: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
317: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
318: ,p_effective_date IN DATE
319: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
320: ,p_message_name OUT NOCOPY VARCHAR2
321: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
322: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
323: IS
331:
332:
333:
334: CURSOR c_business_group_check
335: (p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
336: SELECT pbg.legislation_code
337: FROM per_business_groups pbg,
338: per_contact_relationships pcr
339: WHERE pcr.contact_relationship_id = p_contact_relationship_id
349: SELECT person_id from PER_CONTACT_RELATIONSHIPS
350: WHERE contact_relationship_id = p_contact_relationship_id;
351:
352: CURSOR c_check_benefit IS
353: SELECT 1 from PER_CONTACT_EXTRA_INFO_F
354: WHERE contact_relationship_id = p_contact_relationship_id
355: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
356: AND p_effective_date between effective_start_date and effective_end_date;
357:
470: -- 100 --+
471: --------------------------------------------------------------------------+0
472:
473: PROCEDURE get_essential_update_value
474: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
475: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
476: ,p_effective_date IN DATE
477: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
478: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
471: --------------------------------------------------------------------------+0
472:
473: PROCEDURE get_essential_update_value
474: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
475: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
476: ,p_effective_date IN DATE
477: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
478: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
479: ,p_message_name OUT NOCOPY VARCHAR2
473: PROCEDURE get_essential_update_value
474: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
475: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
476: ,p_effective_date IN DATE
477: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
478: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
479: ,p_message_name OUT NOCOPY VARCHAR2
480: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
481: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
474: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
475: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
476: ,p_effective_date IN DATE
477: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
478: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
479: ,p_message_name OUT NOCOPY VARCHAR2
480: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
481: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
482: IS
488: l_procedure VARCHAR2(200);
489: l_message VARCHAR2(255);
490:
491: CURSOR c_check_benefit IS
492: SELECT 1 from PER_CONTACT_EXTRA_INFO_F
493: WHERE contact_relationship_id = p_contact_relationship_id
494: AND contact_extra_info_id <> p_contact_extra_info_id
495: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
496: AND p_effective_date between effective_start_date and effective_end_date;
495: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
496: AND p_effective_date between effective_start_date and effective_end_date;
497:
498: CURSOR c_business_group_check
499: (p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE)IS
500: SELECT pbg.legislation_code
501: FROM per_business_groups pbg,
502: per_contact_relationships pcr
503: WHERE pcr.contact_relationship_id = p_contact_relationship_id
626: --------------------------------------------------------------------------+
627: -- 1.0 16-May-2005 sukukuma Created this procedure --+
628: --------------------------------------------------------------------------+0
629: PROCEDURE check_in_con_int
630: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
631: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
632: ,p_effective_date IN DATE
633: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
634: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
627: -- 1.0 16-May-2005 sukukuma Created this procedure --+
628: --------------------------------------------------------------------------+0
629: PROCEDURE check_in_con_int
630: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
631: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
632: ,p_effective_date IN DATE
633: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
634: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
635: ,p_message_name OUT NOCOPY VARCHAR2
629: PROCEDURE check_in_con_int
630: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
631: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
632: ,p_effective_date IN DATE
633: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
634: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
635: ,p_message_name OUT NOCOPY VARCHAR2
636: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
637: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
630: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
631: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
632: ,p_effective_date IN DATE
633: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
634: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE
635: ,p_message_name OUT NOCOPY VARCHAR2
636: ,p_token_name OUT NOCOPY pay_in_utils.char_tab_type
637: ,p_token_value OUT NOCOPY pay_in_utils.char_tab_type)
638:
742: -- handled in the library --+
743: --------------------------------------------------------------------------+
744:
745: PROCEDURE check_in_con_insert
746: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
747: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
748: ,p_effective_date IN DATE
749: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
750: )
743: --------------------------------------------------------------------------+
744:
745: PROCEDURE check_in_con_insert
746: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
747: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
748: ,p_effective_date IN DATE
749: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
750: )
751: IS
745: PROCEDURE check_in_con_insert
746: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
747: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
748: ,p_effective_date IN DATE
749: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
750: )
751: IS
752: l_procedure VARCHAR2(100);
753: l_message VARCHAR2(255);
814: -- handled in the library --+
815: --------------------------------------------------------------------------+
816:
817: PROCEDURE check_in_con_update
818: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
819: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
820: ,p_effective_date IN DATE
821: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
822: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
815: --------------------------------------------------------------------------+
816:
817: PROCEDURE check_in_con_update
818: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
819: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
820: ,p_effective_date IN DATE
821: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
822: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
823: IS
817: PROCEDURE check_in_con_update
818: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
819: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
820: ,p_effective_date IN DATE
821: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
822: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
823: IS
824:
825: CURSOR c_nom_id IS
818: (p_CEI_INFORMATION2 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE
819: ,p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE
820: ,p_effective_date IN DATE
821: ,p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE
822: ,p_contact_extra_info_id IN PER_CONTACT_EXTRA_INFO_F.contact_extra_info_id%TYPE)
823: IS
824:
825: CURSOR c_nom_id IS
826: SELECT
826: SELECT
827: CEI_INFORMATION2
828: ,CEI_INFORMATION3
829: ,contact_relationship_id
830: FROM PER_CONTACT_EXTRA_INFO_F
831: WHERE contact_extra_info_id =p_contact_extra_info_id;
832:
833:
834: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
830: FROM PER_CONTACT_EXTRA_INFO_F
831: WHERE contact_extra_info_id =p_contact_extra_info_id;
832:
833:
834: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
835: l_CEI_INFORMATION3 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE;
836: l_contact_relationship_id PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE;
837: l_procedure VARCHAR2(100);
838: l_message VARCHAR2(255);
831: WHERE contact_extra_info_id =p_contact_extra_info_id;
832:
833:
834: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
835: l_CEI_INFORMATION3 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE;
836: l_contact_relationship_id PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE;
837: l_procedure VARCHAR2(100);
838: l_message VARCHAR2(255);
839:
832:
833:
834: l_CEI_INFORMATION2 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION2%TYPE;
835: l_CEI_INFORMATION3 PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE;
836: l_contact_relationship_id PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE;
837: l_procedure VARCHAR2(100);
838: l_message VARCHAR2(255);
839:
840: BEGIN
911: --------------------------------------------------------------------------+
912: -- 1.0 31-Mar-2004 gaugupta Created this procedure --+
913: -- 1.1 24-Jun-2004 vgsriniv Modified the logic.(Bug:3683622)--+
914: --------------------------------------------------------------------------+
915: FUNCTION get_nomination_share(p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE,
916: p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE,
917: p_effective_date IN DATE)
918: RETURN NUMBER IS
919: l_nomination_share NUMBER;
912: -- 1.0 31-Mar-2004 gaugupta Created this procedure --+
913: -- 1.1 24-Jun-2004 vgsriniv Modified the logic.(Bug:3683622)--+
914: --------------------------------------------------------------------------+
915: FUNCTION get_nomination_share(p_contact_relationship_id IN PER_CONTACT_EXTRA_INFO_F.contact_relationship_id%TYPE,
916: p_CEI_INFORMATION3 IN PER_CONTACT_EXTRA_INFO_F.CEI_INFORMATION3%TYPE,
917: p_effective_date IN DATE)
918: RETURN NUMBER IS
919: l_nomination_share NUMBER;
920: l_nom NUMBER;
922: l_message VARCHAR2(255);
923:
924: CURSOR c_nomination_share IS
925: SELECT CEI_INFORMATION2
926: FROM PER_CONTACT_EXTRA_INFO_F
927: WHERE contact_relationship_id = p_contact_relationship_id
928: AND CEI_INFORMATION3 = p_CEI_INFORMATION3
929: AND effective_end_date >= p_effective_date;
930: