44: 07-Sep-99 tguy 115.16 fixed calls to pay_mag_util
45: 14-Oct-99 Gperry 115.17 Changed dependent address
46: error to use the generic
47: exception rather than
48: fnd_message.raise_error
49: exception. Changed error
50: message to explain error
51: more thouroughly.
52: 11-Nov-99 mhoyes 115.18 - Added trace messages.
682: fetch c_pgm into l_pgm;
683: if c_pgm%notfound then
684: close c_pgm;
685: hr_utility.set_location ('BEN_91470_PGM_NOT_FOUND ',10);
686: fnd_message.set_name('BEN','BEN_91470_PGM_NOT_FOUND');
687: fnd_message.set_token('PROC',l_proc);
688: fnd_message.set_token('PGM_ID',to_char(p_pgm_id));
689: fnd_message.raise_error;
690: end if;
683: if c_pgm%notfound then
684: close c_pgm;
685: hr_utility.set_location ('BEN_91470_PGM_NOT_FOUND ',10);
686: fnd_message.set_name('BEN','BEN_91470_PGM_NOT_FOUND');
687: fnd_message.set_token('PROC',l_proc);
688: fnd_message.set_token('PGM_ID',to_char(p_pgm_id));
689: fnd_message.raise_error;
690: end if;
691: close c_pgm;
684: close c_pgm;
685: hr_utility.set_location ('BEN_91470_PGM_NOT_FOUND ',10);
686: fnd_message.set_name('BEN','BEN_91470_PGM_NOT_FOUND');
687: fnd_message.set_token('PROC',l_proc);
688: fnd_message.set_token('PGM_ID',to_char(p_pgm_id));
689: fnd_message.raise_error;
690: end if;
691: close c_pgm;
692: l_level := l_pgm.dpnt_dsgn_lvl_cd;
685: hr_utility.set_location ('BEN_91470_PGM_NOT_FOUND ',10);
686: fnd_message.set_name('BEN','BEN_91470_PGM_NOT_FOUND');
687: fnd_message.set_token('PROC',l_proc);
688: fnd_message.set_token('PGM_ID',to_char(p_pgm_id));
689: fnd_message.raise_error;
690: end if;
691: close c_pgm;
692: l_level := l_pgm.dpnt_dsgn_lvl_cd;
693: else
725: if c_contact%notfound then
726: --
727: close c_contact;
728: hr_utility.set_location ('BEN_91480_MISSING_CONTACT_REL ',10);
729: fnd_message.set_name('BEN','BEN_91480_MISSING_CONTACT_REL');
730: fnd_message.set_token('PROC',l_proc);
731: fnd_message.set_token('CONT_RLSHP_ID',to_char(p_contact_relationship_id));
732: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
733: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
726: --
727: close c_contact;
728: hr_utility.set_location ('BEN_91480_MISSING_CONTACT_REL ',10);
729: fnd_message.set_name('BEN','BEN_91480_MISSING_CONTACT_REL');
730: fnd_message.set_token('PROC',l_proc);
731: fnd_message.set_token('CONT_RLSHP_ID',to_char(p_contact_relationship_id));
732: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
733: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
734: fnd_message.raise_error;
727: close c_contact;
728: hr_utility.set_location ('BEN_91480_MISSING_CONTACT_REL ',10);
729: fnd_message.set_name('BEN','BEN_91480_MISSING_CONTACT_REL');
730: fnd_message.set_token('PROC',l_proc);
731: fnd_message.set_token('CONT_RLSHP_ID',to_char(p_contact_relationship_id));
732: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
733: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
734: fnd_message.raise_error;
735: --
728: hr_utility.set_location ('BEN_91480_MISSING_CONTACT_REL ',10);
729: fnd_message.set_name('BEN','BEN_91480_MISSING_CONTACT_REL');
730: fnd_message.set_token('PROC',l_proc);
731: fnd_message.set_token('CONT_RLSHP_ID',to_char(p_contact_relationship_id));
732: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
733: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
734: fnd_message.raise_error;
735: --
736: end if;
729: fnd_message.set_name('BEN','BEN_91480_MISSING_CONTACT_REL');
730: fnd_message.set_token('PROC',l_proc);
731: fnd_message.set_token('CONT_RLSHP_ID',to_char(p_contact_relationship_id));
732: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
733: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
734: fnd_message.raise_error;
735: --
736: end if;
737: --
730: fnd_message.set_token('PROC',l_proc);
731: fnd_message.set_token('CONT_RLSHP_ID',to_char(p_contact_relationship_id));
732: fnd_message.set_token('LF_EVT_OCRD_DT',to_char(p_lf_evt_ocrd_dt));
733: fnd_message.set_token('EFFECTIVE_DATE',to_char(p_effective_date));
734: fnd_message.raise_error;
735: --
736: end if;
737: --
738: close c_contact;
878: if c_per%notfound then
879: --
880: close c_per;
881: hr_utility.set_location ('BEN_91481_INVALID_PERSON ',10);
882: fnd_message.set_name('BEN','BEN_91481_INVALID_PERSON');
883: fnd_message.set_token('PROC',l_proc);
884: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
885: fnd_message.raise_error;
886: --
879: --
880: close c_per;
881: hr_utility.set_location ('BEN_91481_INVALID_PERSON ',10);
882: fnd_message.set_name('BEN','BEN_91481_INVALID_PERSON');
883: fnd_message.set_token('PROC',l_proc);
884: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
885: fnd_message.raise_error;
886: --
887: end if;
880: close c_per;
881: hr_utility.set_location ('BEN_91481_INVALID_PERSON ',10);
882: fnd_message.set_name('BEN','BEN_91481_INVALID_PERSON');
883: fnd_message.set_token('PROC',l_proc);
884: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
885: fnd_message.raise_error;
886: --
887: end if;
888: --
881: hr_utility.set_location ('BEN_91481_INVALID_PERSON ',10);
882: fnd_message.set_name('BEN','BEN_91481_INVALID_PERSON');
883: fnd_message.set_token('PROC',l_proc);
884: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
885: fnd_message.raise_error;
886: --
887: end if;
888: --
889: close c_per;
900: l_contact.rltd_per_rsds_w_dsgntr_flag='N' then
901: --
902: close c_add;
903: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS ',10);
904: fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
905: fnd_message.set_token('PROC',l_proc);
906: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
907: raise ben_manage_life_events.g_record_error;
908: --
901: --
902: close c_add;
903: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS ',10);
904: fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
905: fnd_message.set_token('PROC',l_proc);
906: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
907: raise ben_manage_life_events.g_record_error;
908: --
909: elsif c_add%notfound and
902: close c_add;
903: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS ',10);
904: fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
905: fnd_message.set_token('PROC',l_proc);
906: fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
907: raise ben_manage_life_events.g_record_error;
908: --
909: elsif c_add%notfound and
910: l_contact.rltd_per_rsds_w_dsgntr_flag='Y' then
915: --
916: fetch c_add2 into l_add;
917: if c_add2%notfound then
918: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS - c_add2 ',10);
919: fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
920: fnd_message.set_token('PROC',l_proc);
921: fnd_message.set_token('CONT_PER_ID',to_char(l_contact.person_id));
922: raise ben_manage_life_events.g_record_error;
923: --
916: fetch c_add2 into l_add;
917: if c_add2%notfound then
918: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS - c_add2 ',10);
919: fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
920: fnd_message.set_token('PROC',l_proc);
921: fnd_message.set_token('CONT_PER_ID',to_char(l_contact.person_id));
922: raise ben_manage_life_events.g_record_error;
923: --
924: end if;
917: if c_add2%notfound then
918: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS - c_add2 ',10);
919: fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
920: fnd_message.set_token('PROC',l_proc);
921: fnd_message.set_token('CONT_PER_ID',to_char(l_contact.person_id));
922: raise ben_manage_life_events.g_record_error;
923: --
924: end if;
925: --
1308: --
1309: --close c_add;
1310: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS ',10);
1311: hr_utility.set_location ('contact '|| l_contact.rltd_per_rsds_w_dsgntr_flag ,10);
1312: --fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
1313: --fnd_message.set_token('PROC',l_proc);
1314: --fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
1315: --raise ben_manage_life_events.g_record_error;
1316:
1309: --close c_add;
1310: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS ',10);
1311: hr_utility.set_location ('contact '|| l_contact.rltd_per_rsds_w_dsgntr_flag ,10);
1312: --fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
1313: --fnd_message.set_token('PROC',l_proc);
1314: --fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
1315: --raise ben_manage_life_events.g_record_error;
1316:
1317: elsif c_add%notfound and l_contact.rltd_per_rsds_w_dsgntr_flag='Y' then
1310: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS ',10);
1311: hr_utility.set_location ('contact '|| l_contact.rltd_per_rsds_w_dsgntr_flag ,10);
1312: --fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
1313: --fnd_message.set_token('PROC',l_proc);
1314: --fnd_message.set_token('CONT_PER_ID',to_char(p_contact_person_id));
1315: --raise ben_manage_life_events.g_record_error;
1316:
1317: elsif c_add%notfound and l_contact.rltd_per_rsds_w_dsgntr_flag='Y' then
1318: --
1324: if c_add2%notfound then
1325:
1326: hr_utility.set_location ('contact '|| l_contact.rltd_per_rsds_w_dsgntr_flag ,10);
1327: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS - c_add2 ',10);
1328: --fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
1329: --fnd_message.set_token('PROC',l_proc);
1330: --fnd_message.set_token('CONT_PER_ID',to_char(l_contact.person_id));
1331: --raise ben_manage_life_events.g_record_error;
1332: --
1325:
1326: hr_utility.set_location ('contact '|| l_contact.rltd_per_rsds_w_dsgntr_flag ,10);
1327: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS - c_add2 ',10);
1328: --fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
1329: --fnd_message.set_token('PROC',l_proc);
1330: --fnd_message.set_token('CONT_PER_ID',to_char(l_contact.person_id));
1331: --raise ben_manage_life_events.g_record_error;
1332: --
1333: end if;
1326: hr_utility.set_location ('contact '|| l_contact.rltd_per_rsds_w_dsgntr_flag ,10);
1327: hr_utility.set_location ('BEN_91482_INVALID_ADDRESS - c_add2 ',10);
1328: --fnd_message.set_name('BEN','BEN_91482_INVALID_ADDRESS');
1329: --fnd_message.set_token('PROC',l_proc);
1330: --fnd_message.set_token('CONT_PER_ID',to_char(l_contact.person_id));
1331: --raise ben_manage_life_events.g_record_error;
1332: --
1333: end if;
1334: --