[Home] [Help]
31: where transaction_category_id = p_transaction_category_id
32: and context_business_group_id = 0
33: and display_name = 'GHR_TSP_SEED_PROGRAM_DESIGN';
34: Cursor update_program_status is
35: select * from ben_pgm_f
36: where name = 'Federal Thrift Savings Plan (TSP)'
37: and business_group_id = p_target_business_group_id;
38: --
39: Begin
118: p_retcode OUT NOCOPY NUMBER,
119: p_target_business_group_id in Number) is
120:
121: Cursor check_pgm_exists is
122: select 'Y' from ben_pgm_f
123: where name = 'Federal Thrift Savings Plan (TSP)'
124: and business_group_id = p_target_business_group_id;
125:
126: l_proc varchar2(100);
179: procedure tsp_continue_coverage (
180: p_person_id in per_all_people_f.person_id%type,
181: p_business_group_id in per_business_groups.business_group_id%type,
182: p_ler_id in ben_ler_f.ler_id%type,
183: p_pgm_id in ben_pgm_f.pgm_id%type,
184: p_effective_date in Date ) is
185:
186: Nothing_To_Do Exception;
187: l_err_msg varchar2(2000);
253:
254: -- Cursor to get Pgm_id for the given Business Group
255: Cursor c_get_pgm_id is
256: select pgm.pgm_id
257: from ben_pgm_f pgm
258: where pgm.name = 'Federal Thrift Savings Plan (TSP)'
259: and pgm.business_group_id = p_business_group_id;
260:
261: -- Cursor to get ler id for "Termination of Appointment"
544:
545: Procedure tsp_continue_coverage_cp(p_errbuf OUT NOCOPY VARCHAR2,
546: p_retcode OUT NOCOPY NUMBER) is
547:
548: l_pgm_id ben_pgm_f.pgm_id%type;
549: l_err_msg varchar2(2000);
550: l_business_group_id number;
551: l_ler_id ben_ler_f.ler_id%type;
552: l_person_id Number;
558:
559: -- Cursor to get Pgm_id for the given Business Group
560: Cursor c_get_pgm_id is
561: select pgm.pgm_id
562: from ben_pgm_f pgm
563: where pgm.name = 'Federal Thrift Savings Plan (TSP)'
564: and pgm.business_group_id = l_business_group_id;
565:
566: -- Cursor to get potential records