[Home] [Help]
436: end get_estab_hours;
437: --
438: --
439: procedure get_pcs_code (p_report_qualifier in varchar2
440: ,p_job_id in per_jobs.job_id%type default null
441: ,p_job_name in per_jobs.name%type default null
442: ,p_pcs_code in out nocopy varchar2
443: ,p_effective_date in date) is
444: l_unused_char varchar2(240);
437: --
438: --
439: procedure get_pcs_code (p_report_qualifier in varchar2
440: ,p_job_id in per_jobs.job_id%type default null
441: ,p_job_name in per_jobs.name%type default null
442: ,p_pcs_code in out nocopy varchar2
443: ,p_effective_date in date) is
444: l_unused_char varchar2(240);
445: l_unused_date date;
442: ,p_pcs_code in out nocopy varchar2
443: ,p_effective_date in date) is
444: l_unused_char varchar2(240);
445: l_unused_date date;
446: l_job_name per_jobs.name%type;
447: l_unused_number number;
448:
449: --To get the message
450: l_value varchar2(240);
501: --Get the job name
502: IF p_job_name is null THEN
503: select name
504: into l_job_name
505: from per_jobs
506: where job_id = p_job_id;
507: ELSE
508: l_job_name := p_job_name;
509: END IF;
543: and effective_start_date <= p_31dec
544: and effective_end_date >= p_1jan
545: order by primary_flag desc, effective_start_date desc;
546: --
547: lid per_jobs.job_id%type;
548: begin
549: --
550: for rec_job in csr_last_job loop
551: lid := rec_job.job_id;
553: end loop;
554: --
555: select job_information1, name
556: into p_pcs_code, p_job_title
557: from per_jobs_v
558: where job_id = lid
559: and nvl(job_information_category,' ') = 'FR';
560: --
561: begin -- get pcs-code
708: is
709: l_pcs_code_text varchar2(30);
710: l_pcs_code number(30):=0;
711: l_pcs_particular varchar2(1);
712: l_job_title per_jobs_v.name%TYPE;
713: -- #4068197
714: l_exists varchar2(1);
715: l_pcs_code_count number;
716: -- #4068197