[Home] [Help]
PACKAGE: APPS.PAY_ARCHIVE_CHEQUEWRITER
Source
1 package pay_archive_chequewriter AUTHID CURRENT_USER as
2 /* $Header: paychqarch.pkh 120.3 2011/07/05 05:50:15 sjawid noship $ */
3 /* +======================================================================+
4 | Copyright (c) 2003 Oracle Corporation |
5 | Redwood Shores, California, USA |
6 | All rights reserved. |
7 +======================================================================+
8 Package Name : PAY_ARCHIVE_CHECKWRITER
9 Package File Name : payuschkdp.pkh
10
11 Description : Used by Archive Cheque Writer (Generic) that produces
12 XML Output.
13
14 Change List:
15 ------------
16
17 Name Date Version Bug Text
18 ------------- ----------- ------- ------- ------------------------------
19 sausingh 24-May-2007 115.0 5635335 Created.
20 sudedas
21 sudedas 15-Sep-2007 115.1 Added Order By Clause in Cursor
22 GET_MAG_ASG_ACT
23 sudedas 12-Feb-2008 115.2 6802173 Added Package Level TABLE Type
24 sjawid 05-Jul-2011 115.3 12627884 Added fnd_number.canonical_to_number
25 to order by clause of cursor GET_MAG_ASG_ACT
26 ========================================================================*/
27
28 /****************************************************************************
29 Name : GENERATE_XML
30 Description : This procedure fetches archived data needed for Archive Check
31 Writer Process, converts it to XML format and appends to
32 pay_mag_tape.g_clob_value.
33 *****************************************************************************/
34 PROCEDURE generate_xml;
35
36
37 g_mag_gre_id number;
38 g_mag_mode varchar2(10);
39 g_mag_start_date varchar2(25);
40 g_mag_end_date varchar2(25);
41 level_cnt number;
42 --
43 --
44 -- Global Variables for Cheque Number Generation
45 g_chq_asg_action_id NUMBER;
46 g_arch_asg_action_id NUMBER;
47 --
48 --
49 TYPE ltr_char_tab_typ IS TABLE OF VARCHAR2(500) INDEX BY BINARY_INTEGER;
50
51 /* Following Cursors to be used by (Archived) Cheque Writer Process
52 (Process Name = 'CHEQUE')
53 */
54
55 CURSOR GET_CURR_ACT_ID IS
56 SELECT 'TRANSFER_ACT_ID=P',
57 pay_magtape_generic.get_parameter_value(
58 'TRANSFER_ACT_ID')
59 FROM DUAL;
60
61 CURSOR GET_MAG_ASG_ACT IS
62 SELECT 'TRANSFER_ACT_ID=P',
63 assignment_action_id
64 FROM pay_assignment_actions
65 WHERE payroll_action_id = pay_magtape_generic.get_parameter_value('PAYROLL_ACTION_ID')
66 ORDER BY fnd_number.canonical_to_number(serial_number) asc; /*bug 12627884 */
67
68 END pay_archive_chequewriter;