1 PACKAGE PAY_US_941_REPORT AUTHID CURRENT_USER AS
2 /* $Header: payus941report.pkh 120.4 2012/01/19 08:19:30 rpahune ship $ */
3 /*
4 ******************************************************************
5 * *
6 * Copyright (C) 1993 Oracle Corporation. *
7 * All rights reserved. *
8 * *
9 * This material has been provided pursuant to an agreement *
10 * containing restrictions on its use. The material is also *
11 * protected by copyright law. No part of this material may *
12 * be copied or distributed, transmitted or transcribed, in *
13 * any form or by any means, electronic, mechanical, magnetic, *
14 * manual, or otherwise, or disclosed to third parties without *
15 * the express written permission of Oracle Corporation, *
16 * 500 Oracle Parkway, Redwood City, CA, 94065. *
17 * *
18 ******************************************************************
19
20 Name : pay_us_941_report
21
22 Description : This package is called for the 941 Report to
23 generate the XML file.
24
25 Change List
26 -----------
27 Date Name Vers Bug No Description
28 ----------- ---------- ------ ------- --------------------------
29 15-APR-2005 pragupta 115.0 Created
30 30-OCT-2006 alikhar 115.1 5479800 Added procedure pay_us_941_report_wrapper
31 11-MAR-2010 vvijayku 115.2 9357061 Added the Funtion split_number_into_int_decimal
32 19-MAY-2010 vvijayku 115.3 9595127 Changed the definition of the function
33 split_number_into_int_decimal and changed P_INTEGER_PART
34 from NUMBER to VARCHAR2 type.
35 ******************************************************************************/
36
37 /******************************************************************************
38 ** Package Local Variables
39 ******************************************************************************/
40 TYPE XMLRec IS RECORD(
41 xmlstring VARCHAR2(32000));
42
43 TYPE tXMLTable IS TABLE OF XMLRec INDEX BY BINARY_INTEGER;
44 vXMLTable tXMLTable;
45
46 FUNCTION SPLIT_NUMBER_INTO_INT_DECIMAL(P_NUMBER IN NUMBER, -- Bug 9357061: Function start.
47 P_DEC IN NUMBER,
48 P_INTEGER_PART OUT NOCOPY VARCHAR2,
49 P_DECIMAL_PART OUT NOCOPY VARCHAR2) RETURN NUMBER;
50
51 PROCEDURE gen_941_report(p_business_group_id IN NUMBER,
52 p_tax_unit_id IN NUMBER,
53 p_year IN VARCHAR2,
54 p_qtr IN VARCHAR2,
55 p_template_name IN VARCHAR2 DEFAULT NULL,
56 p_XML OUT NOCOPY Clob);
57
58 PROCEDURE pay_us_941_report_wrapper
59 ( errbuf OUT NOCOPY VARCHAR2,
60 retcode OUT NOCOPY VARCHAR2,
61 p_business_group_id IN NUMBER,
62 p_tax_unit_id IN VARCHAR2,
63 p_year IN NUMBER,
64 p_qtr IN VARCHAR2,
65 p_valid_template_list IN VARCHAR2,
66 p_appl_short_name IN VARCHAR2,
67 p_template_name IN VARCHAR2,
68 p_effective_date IN VARCHAR2
69 );
70
71 END pay_us_941_report;