1 PACKAGE pay_us_employee_balances AS
2 /* $Header: pyusempb.pkh 120.0.12000000.1 2007/01/18 02:24:19 appldev noship $ */
3
4 /******************************************************************************
5 ******************************************************************
6 * *
7 * Copyright (C) 1993 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_us_employee_balances
22
23 Description : The package fetches the earnings and Non-Tax Deduction
24 balances and populates them in the PL/SQL tables.
25
26 Change List
27 -----------
28 Date Name Vers Bug No Description
29 ----------- ---------- ------ ------- --------------------------
30 26-DEC-2003 kaverma 115.0 3311781 Created.
31 13-JAN-2004 kaverma 115.1 3311781 Modified the procedure
32 'populate_element_info'
33 19-MAR-2004 kvsankar 115.2 3311781 Modified earn_rec, dedn_rec to
34 have rowid as another coloumn.
35 ******************************************************************************/
36
37 /******************************************************************************
38 * This package is used by the Employee Balances form to get the value of
39 * balances for different earnings and Non-Tax deduction elements.The
40 * procedure defined inside this package fetches the balance values and
41 * populates a PL/SQL table.The PL/SQL tables are then passed to the form and
42 * the values in these tables are displayed in the form.
43 ******************************************************************************/
44
45 -- Record to store earning elements
46 TYPE earn_rec IS RECORD
47 (row_id ROWID
48 ,element_name pay_element_types_f.element_name%TYPE
49 ,ptd number
50 ,month number
51 ,qtd number
52 ,ytd number
53 ,element_type_id pay_element_types_f.element_type_id%TYPE
54 ,classification_id pay_element_types_f.classification_id%TYPE
55 ,element_information10 pay_element_types_f.element_information10%TYPE
56 ,element_information11 pay_element_types_f.element_information11%TYPE
57 ,element_information12 pay_element_types_f.element_information12%TYPE
58 ,element_information14 pay_element_types_f.element_information14%TYPE
59 );
60
61
62 -- Record to store deduction elements
63 TYPE dedn_rec IS RECORD
64 (row_id ROWID
65 ,element_name pay_element_types_f.element_name%TYPE
66 ,ptd number
67 ,month number
68 ,qtd number
69 ,ytd number
70 ,accrued number
71 ,arrears number
72 ,tobond number
73 ,element_type_id pay_element_types_f.element_type_id%TYPE
74 ,classification_id pay_element_types_f.classification_id%TYPE
75 ,element_information10 pay_element_types_f.element_information10%TYPE
76 ,element_information11 pay_element_types_f.element_information11%TYPE
77 ,element_information12 pay_element_types_f.element_information12%TYPE
78 ,element_information14 pay_element_types_f.element_information14%TYPE
79 );
80
81
82 -- Declare tables for records
83 TYPE earn_tbl IS TABLE OF
84 earn_rec INDEX BY BINARY_INTEGER;
85
86 TYPE dedn_tbl IS TABLE OF
87 dedn_rec INDEX BY BINARY_INTEGER;
88
89 TYPE temp_tab IS RECORD
90 ( accrued pay_balance_types.balance_name%TYPE,
91 arrears pay_balance_types.balance_name%TYPE,
92 tobond pay_balance_types.balance_name%TYPE
93 );
94 TYPE P_dedn_data_temp_tbl
95 is
96 TABLE OF temp_tab index by binary_integer
97 ;
98 /******************************************************************************
99 * Name : populate_element_info
100 * Purpose : This procedure fetches the elements for which the balances are to
101 * be retrieved.It then finds out the corresponding balance values
102 * and stores them in a PL/SQL table.This PL/SQL table is passed to
103 * the form as an OUT parameter.
104 ******************************************************************************/
105 PROCEDURE populate_element_info( p_assignment_id in number,
106 p_assignment_action_id in number,
107 p_classification_id in pay_element_classifications.classification_id%TYPE,
108 p_classification_name in pay_element_classifications.classification_name%TYPE,
109 p_session_date in pay_element_types_f.effective_start_date%TYPE,
110 p_action_date in pay_element_types_f.effective_start_date%TYPE,
111 p_pay_start_date in pay_element_types_f.effective_start_date%TYPE,
112 p_tax_unit_id in number,
113 p_per_month in number,
114 p_per_qtd in number,
115 p_per_ytd in number,
116 p_asg_ptd in number,
117 p_asg_month in number,
118 p_asg_qtd in number,
119 p_asg_ytd in number,
120 p_asg_itd in number,
121 p_legislation_code in pay_element_types_f.legislation_code%TYPE,
122 p_business_group_id in pay_element_types_f.business_group_id%TYPE,
123 p_balance_level in varchar2,
124 p_earn_data out nocopy earn_tbl,
125 p_dedn_data out nocopy dedn_tbl,
126 p_element_type_id in out nocopy number,
127 p_flag out nocopy varchar2,
128 p_balance_status in varchar2);
129
130 END pay_us_employee_balances;