[Home] [Help]
PACKAGE: APPS.PAY_MX_DIM_MAG
Source
1 PACKAGE pay_mx_dim_mag AUTHID CURRENT_USER as
2 /* $Header: paymxdimmag.pkh 120.0.12000000.1 2007/02/22 16:25:01 vmehta noship $ */
3 /* +======================================================================+
4 | Copyright (c) 2003 Oracle Corporation |
5 | Redwood Shores, California, USA |
6 | All rights reserved. |
7 +======================================================================+
8 Package Name : pay_mx_dim_mag
9 Package File Name : paymxdimmag.pkh
10
11 Description : Used for Information Declaration Report (DIM)
12
13 Change List:
14 ------------
15
16 Name Date Version Bug Text
17 ------------- ----------- ------- ------- ------------------------------
18 vpandya 25-Aug-2006 115.0 Initial Version
19 ========================================================================*/
20
21
22 /****************************************************************************
23 Name : RANGE_CURSOR
24 Description : This procedure prepares range of persons to be processed.
25 *****************************************************************************/
26 PROCEDURE RANGE_CURSOR
27 (
28 P_PAYROLL_ACTION_ID number,
29 P_SQLSTR OUT NOCOPY varchar2
30 );
31
32 /****************************************************************************
33 Name : ACTION_CREATION
34 Description : This procedure creates assignment actions for SUA magnetic
35 tape process.
36 *****************************************************************************/
37 PROCEDURE ACTION_CREATION
38 (
39 P_PAYROLL_ACTION_ID number,
40 P_START_PERSON_ID number,
41 P_END_PERSON_ID number,
42 P_CHUNK number
43 );
44
45
46 /****************************************************************************
47 Name : GENERATE_XML_HEADER
48 Description : This procedure generates XML header information and appends to
49 pay_mag_tape.g_clob_value.
50 *****************************************************************************/
51 PROCEDURE GENERATE_XML_HEADER;
52
53
54 /****************************************************************************
55 Name : GENERATE_XML
56 Description : This procedure fetches archived data, converts it to XML
57 format and appends to pay_mag_tape.g_clob_value.
58 *****************************************************************************/
59 PROCEDURE GENERATE_XML;
60
61
62 /****************************************************************************
63 Name : GENERATE_XML_FOOTER
64 Description : This procedure generates XML information for GRE and the final
65 closing tag. Final result is appended to
66 pay_mag_tape.g_clob_value.
67 *****************************************************************************/
68 PROCEDURE GENERATE_XML_FOOTER;
69
70 g_mag_gre_id number;
71 g_mag_mode varchar2(10);
72 g_mag_start_date varchar2(25);
73 g_mag_end_date varchar2(25);
74 level_cnt number;
75
76
77 CURSOR GET_CURR_ACT_ID IS
78 SELECT 'TRANSFER_ACT_ID=P',
79 pay_magtape_generic.get_parameter_value(
80 'TRANSFER_ACT_ID')
81 FROM DUAL;
82
83 CURSOR GET_XML_VER IS
84 SELECT 'ROOT_XML_TAG=P',
85 '<DIM_MAG>',
86 'PAYROLL_ACTION_ID=P',
87 pay_magtape_generic.get_parameter_value(
88 'TRANSFER_PAYROLL_ACTION_ID')
89 FROM dual;
90
91 CURSOR GET_MAG_ASG_ACT IS
92 SELECT 'TRANSFER_ACT_ID=P',
93 assignment_action_id
94 FROM pay_assignment_actions
95 WHERE payroll_action_id = pay_magtape_generic.get_parameter_value(
96 'TRANSFER_PAYROLL_ACTION_ID');
97
98 TYPE xml_rec IS RECORD
99 (name VARCHAR2(80)
100 ,value VARCHAR2(240)
101 );
102
103 TYPE xml_tbl IS TABLE OF xml_rec INDEX BY BINARY_INTEGER;
104
105 END pay_mx_dim_mag;