1 PACKAGE per_mx_ssaffl_dispmag AUTHID CURRENT_USER AS
2 /* $Header: permxdispmag.pkh 120.0 2005/06/01 01:01:12 appldev noship $ */
3 --
4 /*
5 /*
6 ******************************************************************
7 * *
8 * Copyright (C) 1992 Oracle Corporation UK Ltd., *
9 * Chertsey, England. *
10 * *
11 * All rights reserved. *
12 * *
13 * This material has been provided pursuant to an agreement *
14 * containing restrictions on its use. The material is also *
15 * protected by copyright law. No part of this material may *
16 * be copied or distributed, transmitted or transcribed, in *
17 * any form or by any means, electronic, mechanical, magnetic, *
18 * manual, or otherwise, or disclosed to third parties without *
19 * the express written permission of Oracle Corporation UK Ltd, *
20 * Oracle Park, Bittams Lane, Guildford Road, Chertsey, Surrey, *
21 * England. *
22 * *
23 ******************************************************************
24
25 Change List
26 -----------
27 Date Name Vers Bug No Description
28 ----------- ---------- ----- ------- -----------------------------------
29 03-MAY-2004 kthirmiy 115.0 Created.
30 20-Jul-2004 kthirmiy 115.1 Added two parameters to
31 format_dispmag_emp_record
32
33 */
34 --
35
36
37 -- 'level_cnt' will allow the cursors to select function results,
38 -- whether it is a standard fuction such as to_char or a function
39 -- defined in a package (with the correct pragma restriction).
40
41 level_cnt NUMBER;
42
43 -- cursors
44
45 cursor dispmag_submitter is
46 select
47 'TAX_UNIT_ID=C', pay_magtape_generic.get_parameter_value ('TRANS_GRE'),
48 'PAYROLL_ACTION_ID=C', pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID'),
49 'TRANS_GRE_ID=P',pay_magtape_generic.get_parameter_value ('TRANS_GRE'),
50 'GRE_ID=P' ,pay_magtape_generic.get_parameter_value ('GRE_ID'),
51 'AFFL_TYPE=P' , ppa.report_qualifier
52 from
53 pay_payroll_actions ppa
54 where ppa.payroll_action_id = pay_magtape_generic.get_parameter_value
55 ('TRANSFER_PAYROLL_ACTION_ID') ;
56
57 cursor dispmag_employee is
58 select 'TRANSFER_ASSIGNMENT_ACTION_ID=C', paa.assignment_action_id,
59 'ASSIGNMENT_ACTION_ID=C' , paa.assignment_action_id,
60 'ASSIGNMENT_ID=C' , paa.assignment_id,
61 'ASSIGNMENT_ID=P' , paa.assignment_id
62 from pay_assignment_actions paa,
63 pay_payroll_actions ppa
64 where ppa.payroll_action_id = pay_magtape_generic.get_parameter_value
65 ('TRANSFER_PAYROLL_ACTION_ID')
66 and paa.payroll_action_id = ppa.payroll_action_id ;
67
68
69
70
71 PROCEDURE get_payroll_action_info(p_payroll_action_id in number
72 ,p_business_group_id out nocopy number
73 ,p_trans_gre_id out nocopy number
74 ,p_gre_id out nocopy number
75 ,p_affl_type out nocopy varchar2
76 );
77
78 PROCEDURE range_cursor(p_payroll_action_id in number
79 ,p_sqlstr out nocopy varchar2);
80
81 PROCEDURE action_creation(p_payroll_action_id in number
82 ,p_start_assignment_id in number
83 ,p_end_assignment_id in number
84 ,p_chunk in number);
85
86
87 PROCEDURE archinit(p_payroll_action_id in number);
88
89
90
91
92 FUNCTION format_data_string
93 (p_input_string in varchar2
94 )
95 RETURN VARCHAR2 ;
96
97 FUNCTION format_dispmag_emp_record ( p_assignment_action_id in number, -- context
98 p_affl_type in varchar2,
99 p_flat_out out nocopy varchar2,
100 p_csvr_out out nocopy varchar2,
101 p_flat_ret_str_len out nocopy number,
102 p_csvr_ret_str_len out nocopy number,
103 p_error_flag out nocopy varchar2,
104 p_error_mesg out nocopy varchar2
105 ) RETURN VARCHAR2 ;
106
107 FUNCTION format_dispmag_total_record(
108 p_trans_gre in number,
109 p_gre_id in number,
110 p_total_emps in number,
111 p_flat_out out nocopy varchar2,
112 p_csvr_out out nocopy varchar2,
113 p_flat_ret_str_len out nocopy number,
114 p_csvr_ret_str_len out nocopy number
115 ) RETURN VARCHAR2 ;
116
117
118 END per_mx_ssaffl_dispmag;