PACKAGE: APPS.PAY_ARCHIVE_CHEQUEWRITER

Source

1 package pay_archive_chequewriter as
2 /* $Header: paychqarch.pkh 120.0.12010000.2 2008/08/06 06:31:21 ubhat ship $ */
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     ========================================================================*/
25 
26   /****************************************************************************
27     Name        : GENERATE_XML
28     Description : This procedure fetches archived data needed for Archive Check
29                   Writer Process, converts it to XML format and appends to
30                   pay_mag_tape.g_clob_value.
31   *****************************************************************************/
32   PROCEDURE generate_xml;
33 
34 
35     g_mag_gre_id        number;
36     g_mag_mode          varchar2(10);
37     g_mag_start_date    varchar2(25);
38     g_mag_end_date      varchar2(25);
39     level_cnt           number;
40 --
41 --
42 -- Global Variables for Cheque Number Generation
43 g_chq_asg_action_id   NUMBER;
44 g_arch_asg_action_id  NUMBER;
45 --
46 --
47 TYPE ltr_char_tab_typ  IS TABLE OF VARCHAR2(500) INDEX BY BINARY_INTEGER;
48 
49 /* Following Cursors to be used by (Archived) Cheque Writer Process
50    (Process Name = 'CHEQUE')
51 */
52 
53 CURSOR GET_CURR_ACT_ID IS
54     SELECT 'TRANSFER_ACT_ID=P',
55            pay_magtape_generic.get_parameter_value(
56                                                 'TRANSFER_ACT_ID')
57       FROM DUAL;
58 
59 CURSOR GET_MAG_ASG_ACT IS
60     SELECT 'TRANSFER_ACT_ID=P',
61            assignment_action_id
62       FROM pay_assignment_actions
63      WHERE payroll_action_id = pay_magtape_generic.get_parameter_value('PAYROLL_ACTION_ID')
64      ORDER BY serial_number asc;
65 
66 END pay_archive_chequewriter;