[Home] [Help]
1: PACKAGE BODY PAY_CA_RL1_AMEND_MAG AS
2: /* $Header: pycarlamd.pkb 120.18.12020000.7 2012/12/19 06:23:00 sbachu ship $ */
3: /*
4: +======================================================================+
5: | Copyright (c) 1997 Oracle Corporation |
5: | Copyright (c) 1997 Oracle Corporation |
6: | Redwood Shores, California, USA |
7: | All rights reserved. |
8: +======================================================================+
9: Package Body Name : pay_ca_rl1_amend_mag
10: Package File Name : pycarlamd.pkb
11: Description : This package declares functions and procedures to support
12: the generation of magnetic RL1 reports for CA legislative requirements
13: incorporating magtape resilience and the new end-of-year processing.
106: p_business_group_id IN OUT NOCOPY NUMBER
107: ) IS
108: BEGIN
109: --hr_utility.trace_on('Y','RL1AMD');
110: hr_utility.set_location('pay_ca_rl1_amend_mag.get_report_parameters', 10);
111:
112: SELECT ppa.start_date,
113: ppa.effective_date,
114: ppa.business_group_id,
119: p_report_type
120: FROM pay_payroll_actions ppa
121: WHERE payroll_action_id = p_pactid;
122:
123: hr_utility.set_location('pay_ca_rl1_amend_mag.get_report_parameters', 20);
124:
125: END get_report_parameters;
126:
127: PROCEDURE validate_transmitter_info(p_payroll_action_id IN NUMBER,
373: p_report_type VARCHAR2(30);
374:
375: BEGIN
376: -- hr_utility.trace_on(null,'PDF');
377: hr_utility.set_location( 'pay_ca_rl1_amend_mag.range_cursor', 10);
378:
379: get_report_parameters(
380: p_pactid,
381: p_year_start,
383: p_report_type,
384: p_business_group_id
385: );
386:
387: hr_utility.set_location( 'pay_ca_rl1_amend_mag.range_cursor', 20);
388:
389:
390: p_sqlstr := 'select distinct to_number(fai1.value)
391: from ff_archive_items fai1,
414: and hoi.org_information_context =''Prov Reporting Est''
415: and hoi.organization_id = pay_ca_rl1_mag.get_parameter(''PRE_ORGANIZATION_ID'', ppa.legislative_parameters )
416: order by to_number(fai1.value)' ;
417:
418: hr_utility.set_location( 'pay_ca_rl1_amend_mag.range_cursor',40);
419:
420: END range_cursor;
421:
422: -------------------------------------------------------------------------------
645:
646: -- hr_utility.trace_on('Y','RL1MAG');
647:
648: l_prev_payact := -1;
649: hr_utility.set_location( 'pay_ca_rl1_amend_mag.create_assignement_act',10);
650:
651: get_report_parameters(
652: p_pactid,
653: l_year_start,
659: validate_transmitter_info(p_pactid,
660: l_business_group_id,
661: l_year_end);
662:
663: hr_utility.set_location( 'pay_ca_rl1_amend_mag.create_assignement_act',20);
664:
665: hr_utility.trace('l_business_group_id ='|| l_business_group_id);
666: hr_utility.trace('l_year_end ='|| l_year_end);
667: --IF l_report_type = 'PYRL1MAG' THEN
679: l_assignment_action_id,
680: l_payroll_act;
681:
682:
683: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 30);
684:
685: EXIT WHEN c_all_asg%NOTFOUND;
686:
687: /* Added by ssmukher for validating the
710: hr_utility.trace('Assignment Id : '|| to_char(l_assignment_id));
711: hr_utility.trace('Person Id : '|| to_char(l_person_id));
712: hr_utility.trace('tax unit id : '|| to_char(l_tax_unit_id));
713: hr_utility.trace('Effective End Date : '|| to_char(l_effective_end_date));
714: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 40);
715:
716: /* Create an assignment action for this person */
717:
718:
718:
719: select pay_assignment_actions_s.nextval
720: into lockingactid
721: from dual;
722: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 50);
723: hr_utility.trace('New RL1 Amend Action = ' ||
724: to_char(lockingactid));
725:
726: open get_latest_rl1_amend_dtls(l_person_id,
806: set aa.serial_number = to_char(l_person_id)
807: where aa.assignment_action_id = lockingactid;
808:
809: --Added to lock the Amend Archiver
810: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 60);
811: hr_nonrun_asact.insint(lockingactid
812: ,ln_asg_act_to_lock);
813: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 70);
814: hr_utility.trace('Locking Action'||lockingactid);
809: --Added to lock the Amend Archiver
810: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 60);
811: hr_nonrun_asact.insint(lockingactid
812: ,ln_asg_act_to_lock);
813: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 70);
814: hr_utility.trace('Locking Action'||lockingactid);
815: hr_utility.trace('Locked Action = ' || to_char(ln_asg_act_to_lock));
816: hr_utility.trace('lv_flag_count = ' || to_char(lv_flag_count));
817: lv_flag_count := lv_flag_count + 1;
843: set aa.serial_number = to_char(l_person_id)
844: where aa.assignment_action_id = lockingactid;
845:
846: --Added to lock previous mag reports
847: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 60);
848: hr_nonrun_asact.insint(lockingactid
849: ,ln_asg_act_to_lock);
850: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 70);
851: hr_utility.trace('Locking Action'||lockingactid);
846: --Added to lock previous mag reports
847: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 60);
848: hr_nonrun_asact.insint(lockingactid
849: ,ln_asg_act_to_lock);
850: hr_utility.set_location('pay_ca_rl1_amend_mag.create_assignement_act', 70);
851: hr_utility.trace('Locking Action'||lockingactid);
852: hr_utility.trace('Locked Action = ' || to_char(ln_asg_act_to_lock));
853:
854: end if;--c_paa_update_check%FOUND
3805:
3806: END archive_ca_deinit;
3807: /******************************************** *************************************************************/
3808:
3809: END PAY_CA_RL1_AMEND_MAG;