DBA Data[Home] [Help]

APPS.PAY_US_MMREF_REPORTING dependencies on PAY_US_MMREF_REPORTING

Line 1: PACKAGE BODY pay_us_mmref_reporting AS

1: PACKAGE BODY pay_us_mmref_reporting AS
2: /* $Header: pyusmmye.pkb 120.28.12020000.5 2013/01/11 14:24:40 skchalla ship $ */
3: /*REM +======================================================================+
4: REM | Copyright (c) 1997 Oracle Corporation |
5: REM | Redwood Shores, California, USA |

Line 8: REM Package Body Name : pay_us_mmref_reporting

4: REM | Copyright (c) 1997 Oracle Corporation |
5: REM | Redwood Shores, California, USA |
6: REM | All rights reserved. |
7: REM +======================================================================+
8: REM Package Body Name : pay_us_mmref_reporting
9: REM Package File Name : pay_us_mmref_reporting.pkb
10: REM Description : This package declares functions and procedures to support
11: REM the genration of magnetic W2 reports for US legislative requirements
12: REM incorporating magtape resilience and the new end-of-year processing.

Line 9: REM Package File Name : pay_us_mmref_reporting.pkb

5: REM | Redwood Shores, California, USA |
6: REM | All rights reserved. |
7: REM +======================================================================+
8: REM Package Body Name : pay_us_mmref_reporting
9: REM Package File Name : pay_us_mmref_reporting.pkb
10: REM Description : This package declares functions and procedures to support
11: REM the genration of magnetic W2 reports for US legislative requirements
12: REM incorporating magtape resilience and the new end-of-year processing.
13: REM

Line 166: ('pay_us_mmref_reporting.bal_db_item - opening cursor', 10);

162: AND UE.legislation_code = 'US'; /* Bug:2296797 */
163: l_defined_balance_id pay_defined_balances.defined_balance_id%TYPE;
164: BEGIN
165: hr_utility.set_location
166: ('pay_us_mmref_reporting.bal_db_item - opening cursor', 10);
167: -- Open the cursor
168: OPEN csr_defined_balance;
169: -- Fetch the value
170: FETCH csr_defined_balance

Line 175: ('pay_us_mmref_reporting.bal_db_item - no rows found from cursor', 20);

171: INTO l_defined_balance_id;
172: IF csr_defined_balance%NOTFOUND THEN
173: CLOSE csr_defined_balance;
174: hr_utility.set_location
175: ('pay_us_mmref_reporting.bal_db_item - no rows found from cursor', 20);
176: hr_utility.raise_error;
177: ELSE
178: hr_utility.set_location
179: ('pay_us_mmref_reporting.bal_db_item - fetched from cursor', 30);

Line 179: ('pay_us_mmref_reporting.bal_db_item - fetched from cursor', 30);

175: ('pay_us_mmref_reporting.bal_db_item - no rows found from cursor', 20);
176: hr_utility.raise_error;
177: ELSE
178: hr_utility.set_location
179: ('pay_us_mmref_reporting.bal_db_item - fetched from cursor', 30);
180: CLOSE csr_defined_balance;
181: END IF;
182: /* Return the value to the call */
183: RETURN (l_defined_balance_id);

Line 216: ('pay_us_mmref_reporting.get_report_parameters', 10);

212: p_business_group_id IN OUT nocopy NUMBER
213: ) IS
214: BEGIN
215: hr_utility.set_location
216: ('pay_us_mmref_reporting.get_report_parameters', 10);
217: SELECT ppa.start_date,
218: ppa.effective_date,
219: ppa.business_group_id,
220: ppa.report_qualifier,

Line 235: ('pay_us_mmref_reporting.get_report_parameters', 20);

231: INTO p_state_code
232: FROM pay_us_states
233: WHERE state_abbrev = p_state_abbrev;
234: hr_utility.set_location
235: ('pay_us_mmref_reporting.get_report_parameters', 20);
236: ELSE
237: p_state_code := '';
238: hr_utility.set_location
239: ('pay_us_mmref_reporting.get_report_parameters', 30);

Line 239: ('pay_us_mmref_reporting.get_report_parameters', 30);

235: ('pay_us_mmref_reporting.get_report_parameters', 20);
236: ELSE
237: p_state_code := '';
238: hr_utility.set_location
239: ('pay_us_mmref_reporting.get_report_parameters', 30);
240: END IF;
241: IF p_state_abbrev = 'FED' AND p_report_type = 'W2' THEN
242: p_report_type := 'FEDW2';
243: ELSIF p_report_type = 'W2' THEN

Line 247: ('pay_us_mmref_reporting.get_report_parameters', 40);

243: ELSIF p_report_type = 'W2' THEN
244: p_report_type := 'STW2';
245: END IF;
246: hr_utility.set_location
247: ('pay_us_mmref_reporting.get_report_parameters', 40);
248: END get_report_parameters;
249: -------------------------------------------------------------------------
250: -- Name : get_balance_value
251: --

Line 275: ('pay_us_mmref_reporting.get_balance_value', 10);

271: ) RETURN NUMBER IS
272: l_jurisdiction_code VARCHAR2(20);
273: BEGIN
274: hr_utility.set_location
275: ('pay_us_mmref_reporting.get_balance_value', 10);
276: pay_balance_pkg.set_context('TAX_UNIT_ID', p_tax_unit_id);
277: IF p_state_abbrev <> 'FED' THEN
278: SELECT jurisdiction_code
279: INTO l_jurisdiction_code

Line 283: ('pay_us_mmref_reporting.get_balance_value', 15);

279: INTO l_jurisdiction_code
280: FROM pay_state_rules
281: WHERE state_code = p_state_abbrev;
282: hr_utility.set_location
283: ('pay_us_mmref_reporting.get_balance_value', 15);
284: pay_balance_pkg.set_context('JURISDICTION_CODE', l_jurisdiction_code);
285: END IF;
286: hr_utility.trace(p_balance_name);
287: hr_utility.trace('Context');

Line 291: ('pay_us_mmref_reporting.get_balance_value', 20);

287: hr_utility.trace('Context');
288: hr_utility.trace('Tax Unit Id: '|| p_tax_unit_id);
289: hr_utility.trace('Jurisdiction: '|| l_jurisdiction_code);
290: hr_utility.set_location
291: ('pay_us_mmref_reporting.get_balance_value', 20);
292: RETURN pay_balance_pkg.get_value(bal_db_item(p_balance_name),
293: p_assignment_id, p_effective_date);
294: END get_balance_value;
295: --------------------------------------------------------------------------

Line 600: hr_utility.set_location('pay_us_mmref_reporting.preprocess_check', 10);

596: CLOSE c_gre_payroll_action;
597:
598: /* end of Transmitter Checking */
599:
600: hr_utility.set_location('pay_us_mmref_reporting.preprocess_check', 10);
601:
602: FOR gre_rec IN c_get_gre LOOP
603: /* set l_gre to gre Fethched */
604:

Line 737: hr_utility.set_location('pay_us_mmref_reporting.preprocess_check', 99);

733:
734: /* Code commented to fix Bug # 3069840
735:
736: IF p_report_type = 'FEDW2' THEN --federal W2
737: hr_utility.set_location('pay_us_mmref_reporting.preprocess_check', 99);
738: OPEN c_gre_fed(gre_rec.gre);
739: ELSIF p_report_type = 'STW2' THEN --state W2
740: OPEN c_gre_state(gre_rec.gre);
741: END IF;

Line 751: hr_utility.set_location('pay_us_mmref_reporting.preprocess_check',20);

747: -- Start feching Persons for GRE
748: FETCH c_gre_fed INTO l_person
749: ,l_assignment
750: ,l_asg_effective_dt;
751: hr_utility.set_location('pay_us_mmref_reporting.preprocess_check',20);
752: hr_utility.trace('GRE:' || TO_CHAR(l_gre));
753: hr_utility.trace('Assignment ID:' || TO_CHAR(l_assignment));
754: hr_utility.trace('Person ID:' || TO_CHAR(l_person));
755: hr_utility.trace('Effective Date:' || TO_CHAR(l_asg_effective_dt));

Line 779: hr_utility.trace('pay_us_mmref_reporting.preprocess_check');

775: END IF;
776: END IF; -- report type = 'STW2' and etc
777:
778:
779: hr_utility.trace('pay_us_mmref_reporting.preprocess_check');
780: hr_utility.trace('GRE - '||to_char(l_gre));
781:
782: -- get the balance for person
783:

Line 923: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor', 10);

919: p_state_code VARCHAR2(2);
920: p_report_type VARCHAR2(30);
921: BEGIN
922:
923: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor', 10);
924: get_report_parameters(
925: p_pactid,
926: p_year_start,
927: p_year_end,

Line 933: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor', 20);

929: p_state_code,
930: p_report_type,
931: p_business_group_id
932: );
933: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor', 20);
934: IF preprocess_check(p_pactid,
935: p_year_start,
936: p_year_end,
937: p_business_group_id,

Line 972: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',

968: and hoi.org_information_context =
969: ''1099R Magnetic Report Rules'')
970: ORDER BY paf.person_id
971: ';
972: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',
973: 30);
974: ELSIF p_report_type = 'STW2' and p_state_abbrev = 'IN' THEN
975: p_sqlstr := 'SELECT DISTINCT '||
976: 'to_number(paa.serial_number) '||

Line 1040: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',

1036: 'and hoi.org_information_context = '||
1037: '''1099R Magnetic Report Rules'' '||
1038: ') '||
1039: 'order by to_number(paa.serial_number)';
1040: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',
1041: 40);
1042: ELSIF p_report_type = 'STW2' and p_state_abbrev = 'OH' THEN
1043: p_sqlstr := 'SELECT DISTINCT '||
1044: 'to_number(paa.serial_number) '||

Line 1108: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',

1104: 'and hoi.org_information_context = '||
1105: '''1099R Magnetic Report Rules'' '||
1106: ') '||
1107: 'order by to_number(paa.serial_number)';
1108: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',
1109: 40);
1110:
1111: ELSIF p_report_type = 'STW2' THEN
1112: p_sqlstr := '

Line 1158: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',

1154: and hoi.org_information_context =
1155: ''1099R Magnetic Report Rules''
1156: )
1157: order by to_number(paa.serial_number)';
1158: hr_utility.set_location( 'pay_us_mmref_reporting.range_cursor',
1159: 40);
1160: END IF;
1161: END IF;
1162: END range_cursor;

Line 1921: hr_utility.set_location( 'pay_us_mmref_reporting.create_assignement_act',

1917: l_gre_id := -1;
1918: l_error_flag := 'N';
1919:
1920: -- Get the report parameters. These define the report being run.
1921: hr_utility.set_location( 'pay_us_mmref_reporting.create_assignement_act',
1922: 10);
1923: get_report_parameters(
1924: p_pactid,
1925: l_year_start,

Line 1938: hr_utility.set_location( 'pay_us_mmref_reporting.create_assignement_act',

1934: close csr_action_parameter;
1935: --Currently all reports group by GRE
1936: l_group_by_gre := TRUE;
1937: --Open the appropriate cursor
1938: hr_utility.set_location( 'pay_us_mmref_reporting.create_assignement_act',
1939: 20);
1940: IF l_report_type = 'FEDW2' THEN
1941: if g_action_param_val='Y' then
1942: OPEN c_federal_range;

Line 1992: 'pay_us_mmref_reporting.create_assignement_act', 30);

1988: l_effective_end_date,
1989: l_assignment_action_id;
1990: end if;
1991: hr_utility.set_location(
1992: 'pay_us_mmref_reporting.create_assignement_act', 30);
1993: if g_action_param_val='Y' then
1994: EXIT WHEN c_federal_range%NOTFOUND;
1995: else
1996: EXIT WHEN c_federal%NOTFOUND;

Line 2015: 'pay_us_mmref_reporting.create_assignement_act', 40);

2011: l_assignment_action_id,
2012: l_w2_box17;
2013: end if;
2014: hr_utility.set_location(
2015: 'pay_us_mmref_reporting.create_assignement_act', 40);
2016: if g_action_param_val='Y' then
2017: EXIT WHEN c_pr_state_range%NOTFOUND;
2018: else
2019: EXIT WHEN c_pr_state%NOTFOUND;

Line 2054: 'pay_us_mmref_reporting.create_assignement_act', 40);

2050: l_assignment_action_id,
2051: l_w2_box17;
2052: end if;
2053: hr_utility.set_location(
2054: 'pay_us_mmref_reporting.create_assignement_act', 40);
2055: if g_action_param_val='Y' then
2056: EXIT WHEN c_state_indiana_range%NOTFOUND;
2057: else
2058: EXIT WHEN c_state_indiana%NOTFOUND;

Line 2094: 'pay_us_mmref_reporting.create_assignement_act', 40);

2090: l_assignment_action_id,
2091: l_w2_box17;
2092: end if;
2093: hr_utility.set_location(
2094: 'pay_us_mmref_reporting.create_assignement_act', 40);
2095: if g_action_param_val='Y' then
2096: EXIT WHEN c_state_ohio_range%NOTFOUND;
2097: else
2098: EXIT WHEN c_state_ohio%NOTFOUND;

Line 2133: 'pay_us_mmref_reporting.create_assignement_act', 40);

2129: l_assignment_action_id,
2130: l_w2_box17;
2131: end if;
2132: hr_utility.set_location(
2133: 'pay_us_mmref_reporting.create_assignement_act', 40);
2134: if g_action_param_val='Y' then
2135: EXIT WHEN c_state_range%NOTFOUND;
2136: else
2137: EXIT WHEN c_state%NOTFOUND;

Line 2168: 'pay_us_mmref_reporting.create_assignement_act', 50);

2164: (NOT l_group_by_gre AND
2165: l_person_id = l_prev_person_id)) THEN
2166: --Do Nothing
2167: hr_utility.set_location(
2168: 'pay_us_mmref_reporting.create_assignement_act', 50);
2169: NULL;
2170: ELSE
2171: --Create the assignment action for the record
2172: hr_utility.trace('Assignment Fetched - ');

Line 2264: 'pay_us_mmref_reporting.create_assignement_act', 60);

2260: SELECT pay_assignment_actions_s.nextval
2261: INTO lockingactid
2262: FROM dual;
2263: hr_utility.set_location(
2264: 'pay_us_mmref_reporting.create_assignement_act', 60);
2265: hr_nonrun_asact.insact(lockingactid, l_assignment_id, p_pactid,
2266: p_chunk, l_tax_unit_id);
2267: hr_utility.set_location(
2268: 'pay_us_mmref_reporting.create_assignement_act', 70);

Line 2268: 'pay_us_mmref_reporting.create_assignement_act', 70);

2264: 'pay_us_mmref_reporting.create_assignement_act', 60);
2265: hr_nonrun_asact.insact(lockingactid, l_assignment_id, p_pactid,
2266: p_chunk, l_tax_unit_id);
2267: hr_utility.set_location(
2268: 'pay_us_mmref_reporting.create_assignement_act', 70);
2269: --update serial number for highly compensated people for the
2270: --state W2.
2271: /*IF l_report_type = 'STW2' THEN
2272: hr_utility.set_location(

Line 2273: 'pay_us_mmref_reporting.create_assignement_act', 80);

2269: --update serial number for highly compensated people for the
2270: --state W2.
2271: /*IF l_report_type = 'STW2' THEN
2272: hr_utility.set_location(
2273: 'pay_us_mmref_reporting.create_assignement_act', 80);
2274: IF l_w2_box17 > 9999999.99 THEN
2275: UPDATE pay_assignment_actions
2276: SET serial_number = 999999
2277: WHERE assignment_action_id = lockingactid;

Line 2282: 'pay_us_mmref_reporting.create_assignement_act', 90);

2278: END IF;
2279: END IF;*/ -- 4490252
2280: hr_nonrun_asact.insint(lockingactid, l_assignment_action_id);
2281: hr_utility.set_location(
2282: 'pay_us_mmref_reporting.create_assignement_act', 90);
2283: hr_utility.trace('Interlock Created - ');
2284: hr_utility.trace('Locking Action : '|| to_char(lockingactid));
2285: hr_utility.trace('Locked Action : '|| to_char(l_assignment_action_id));
2286: --Store the current person/GRE for comparision during the

Line 2667: l_proc varchar2(100) := 'pay_us_mmref_reporting.get_report_category';

2663: p_effective_date date
2664: ) RETURN varchar2 IS
2665:
2666: --
2667: l_proc varchar2(100) := 'pay_us_mmref_reporting.get_report_category';
2668: l_code varchar2(2);
2669: l_ue_id NUMBER;
2670: --
2671: --

Line 2755: l_proc varchar2(100) := 'pay_us_mmref_reporting.get_report_category';

2751: FUNCTION get_report_category_mt ( p_business_group_id number,
2752: p_effective_date date
2753: ) RETURN varchar2 IS
2754: --
2755: l_proc varchar2(100) := 'pay_us_mmref_reporting.get_report_category';
2756: l_code varchar2(2);
2757: l_ue_id NUMBER;
2758: --
2759: CURSOR c_get_user_entity_id IS

Line 2856: hr_utility.trace('In Procedure PAY_US_MMREF_REPORTING.GET_TAX_UNIT_INFO' );

2852: l_payroll_action_id NUMBER;
2853: l_tax_jurisdiction_code VARCHAR2(200);
2854:
2855: BEGIN
2856: hr_utility.trace('In Procedure PAY_US_MMREF_REPORTING.GET_TAX_UNIT_INFO' );
2857: OPEN c_get_tax_unit_info(tax_unit_id,
2858: p_tax_year);
2859: FETCH c_get_tax_unit_info INTO l_federal_EIN,
2860: l_tax_unit_name;

Line 3526: END pay_us_mmref_reporting;

3522: END get_w2_er_arch_bal;
3523:
3524: --BEGIN
3525: -- hr_utility.trace_on(NULL,'FEDW2MT');
3526: END pay_us_mmref_reporting;