[Home] [Help]
PACKAGE: APPS.PAY_MX_SUA_MAG
Source
1 PACKAGE pay_mx_sua_mag AUTHID CURRENT_USER as
2 /* $Header: paymxsuamag.pkh 120.4.12010000.1 2008/07/27 21:51:27 appldev ship $ */
3 /* +======================================================================+
4 | Copyright (c) 2003 Oracle Corporation |
5 | Redwood Shores, California, USA |
6 | All rights reserved. |
7 +======================================================================+
8 Package Name : pay_mx_sua_mag
9 Package File Name : paymxsuamag.pkh
10
11 Description : Used for SUA Interface Extract
12
13 Change List:
14 ------------
15
16 Name Date Version Bug Text
17 ------------- ----------- ------- ------- ------------------------------
18 vpandya 29-Apr-2005 115.0 Initial Version
19 sdahiya 11-Jul-2005 115.1 Added range code, action creation
20 code and XML generation mechanism.
21 sdahiya 20-Dec-2005 115.2 Dynamically fetch IANA charset
22 to identify XML encoding.
23 sdahiya 22-Dec-2005 115.3 Removed XML header information.
24 PYUGEN will generate XML headers.
25 nragavar 12-Jul-2007 115.32 6198089 added new procedure INIT
26 ========================================================================*/
27
28 /****************************************************************************
29 Name : GET_START_DATE
30 Description : This function returns start date.
31 *****************************************************************************/
32 FUNCTION GET_START_DATE
33 (
34 P_MODE varchar2, -- FULL/INCREMENT
35 P_GRE_ID number
36 ) RETURN varchar2;
37
38
39 /****************************************************************************
40 Name : RANGE_CURSOR
41 Description : This procedure prepares range of persons to be processed.
42 *****************************************************************************/
43 PROCEDURE RANGE_CURSOR
44 (
45 P_PAYROLL_ACTION_ID number,
46 P_SQLSTR OUT NOCOPY varchar2
47 );
48
49 /****************************************************************************
50 Name : ACTION_CREATION
51 Description : This procedure creates assignment actions for SUA magnetic
52 tape process.
53 *****************************************************************************/
54 PROCEDURE ACTION_CREATION
55 (
56 P_PAYROLL_ACTION_ID number,
57 P_START_PERSON_ID number,
58 P_END_PERSON_ID number,
59 P_CHUNK number
60 );
61
62
63 /****************************************************************************
64 Name : GEN_XML_HEADER
65 Description : This procedure generates XML header information and appends to
66 pay_mag_tape.g_clob_value.
67 *****************************************************************************/
68 PROCEDURE GEN_XML_HEADER;
69
70
71 /****************************************************************************
72 Name : GENERATE_XML
73 Description : This procedure fetches archived data, converts it to XML
74 format and appends to pay_mag_tape.g_clob_value.
75 *****************************************************************************/
76 PROCEDURE GENERATE_XML;
77
78 /****************************************************************************
79 Name : INIT
80 Description : Initialization code.
81 *****************************************************************************/
82 PROCEDURE INIT
83 (
84 P_PAYROLL_ACTION_ID number
85 );
86
87
88 /****************************************************************************
89 Name : GEN_XML_FOOTER
90 Description : This procedure generates XML information for GRE and the final
91 closing tag. Final result is appended to
92 pay_mag_tape.g_clob_value.
93 *****************************************************************************/
94 PROCEDURE GEN_XML_FOOTER;
95
96
97 g_mag_gre_id number;
98 g_mag_mode varchar2(10);
99 g_mag_start_date varchar2(25);
100 g_mag_end_date varchar2(25);
101 level_cnt number;
102
103
104 CURSOR GET_CURR_ACT_ID IS
105 SELECT 'TRANSFER_ACT_ID=P',
106 pay_magtape_generic.get_parameter_value(
107 'TRANSFER_ACT_ID')
108 FROM DUAL;
109
110 CURSOR GET_XML_VER IS
111 SELECT 'ROOT_XML_TAG=P',
112 '<SUA_MAG>',
113 'PAYROLL_ACTION_ID=P',
114 pay_magtape_generic.get_parameter_value(
115 'TRANSFER_PAYROLL_ACTION_ID')
116 FROM dual;
117
118 CURSOR GET_MAG_ASG_ACT IS
119 SELECT 'TRANSFER_ACT_ID=P',
120 assignment_action_id
121 FROM pay_assignment_actions
122 WHERE payroll_action_id = pay_magtape_generic.get_parameter_value(
123 'TRANSFER_PAYROLL_ACTION_ID');
124
125 END pay_mx_sua_mag;