1 PACKAGE BODY PAY_WC_INFO AS
2 /* $Header: pyuswcfn.pkb 120.0 2005/05/29 10:13:22 appldev noship $ */
3 --
4 /*
5 ******************************************************************
6 * *
7 * Copyright (C) 1996 Oracle Corporation. *
8 * All rights reserved. *
9 * *
10 * This material has been provided pursuant to an agreement *
11 * containing restrictions on its use. The material is also *
12 * protected by copyright law. No part of this material may *
13 * be copied or distributed, transmitted or transcribed, in *
14 * any form or by any means, electronic, mechanical, magnetic, *
15 * manual, or otherwise, or disclosed to third parties without *
16 * the express written permission of Oracle Corporation, *
17 * 500 Oracle Parkway, Redwood City, CA, 94065. *
18 * *
19 ******************************************************************
20
21 Name : PAY_WC_INFO
22
23 Description : Called from the Workers Comp Formula.
24
25 Uses :
26
27 Change List
28 -----------
29 Date Name Vers Bug No Description
30 ---- ---- ------ ------ -----------
31 15-OCT-2000 hmaclean 115.0 Created.
32
33 */
34
35 FUNCTION get_wc_carrier( p_assignment_id IN NUMBER )
36 RETURN NUMBER IS
37
38 cursor c_get_carrier_id is
39 select wci.org_information8
40 from per_assignments_f asg,
41 hr_soft_coding_keyflex flx,
42 hr_organization_information wci
43 where p_assignment_id = asg.assignment_id
44 and asg.soft_coding_keyflex_id = flx.soft_coding_keyflex_id
45 and wci.organization_id = flx.segment1
46 and wci.org_information_context||'' = 'State Tax Rules';
47
48 l_carrier_id NUMBER;
49
50 BEGIN
51
52 open c_get_carrier_id;
53 fetch c_get_carrier_id into l_carrier_id;
54 close c_get_carrier_id;
55
56 IF l_carrier_id IS NULL THEN
57 l_carrier_id := -10000;
58 END IF;
59
60 RETURN l_carrier_id;
61
62 END get_wc_carrier;
63
64 END PAY_WC_INFO;