[Home] [Help]
PACKAGE: APPS.PAY_JP_IWHT_REPORT_PKG
Source
1 PACKAGE PAY_JP_IWHT_REPORT_PKG AUTHID CURRENT_USER AS
2 -- $Header: pyjpiwrt.pkh 120.1 2010/05/21 13:42:28 pmatamsr noship $
3 -- *******************************************************************************************************
4 -- * Copyright (c) Oracle Corporation Japan,2009 Product Development. *
5 -- * All rights reserved *
6 -- *******************************************************************************************************
7 -- * *
8 -- * PROGRAM NAME *
9 -- * PAY_JP_IWHT_REPORT_PKG.pks *
10 -- * *
11 -- * DESCRIPTION *
12 -- * This script creates the package specification of PAY_JP_IWHT_REPORT_PKG. *
13 -- * *
14 -- * USAGE *
15 -- * To install sqlplus <apps_user>/<apps_pwd> @PAYJPIWHTREPORTPKG.pkh *
16 -- * To Execute sqlplus <apps_user>/<apps_pwd> EXEC PAY_JP_IWHT_REPORT_PKG.<procedure name> *
17 -- * *
18 -- * PROGRAM LIST *
19 -- * ========== *
20 -- * NAME DESCRIPTION *
21 -- * ----------------- -------------------------------------------------- *
22 -- * RANGE_CURSOR *
23 -- * ACTION_CREATION *
24 -- * GEN_XML_HEADER *
25 -- * GENERATE_XML *
26 -- * PRINT_CLOB *
27 -- * GEN_XML_FOOTER *
28 -- * INIT_CODE *
29 -- * ARCHIVE_CODE *
30 -- * ASSACT_XML *
31 -- * GET_CP_XML *
32 -- * WRITETOCLOB *
33 -- * CALLED BY *
34 -- * Concurrent Program: Japan, Withholding Income Tax Report for Termination Income *
35 -- * *
36 -- * LAST UPDATE DATE *
37 -- * Date the program has been modified for the last time *
38 -- * *
39 -- * HISTORY *
40 -- * ======= *
41 -- * *
42 -- * VERSION DATE AUTHOR(S) DESCRIPTION *
43 -- * ------- ----------- ---------------- ---------------------------- *
44 -- * Draft 24/02/2010 RDARASI Intial *
45 -- *******************************************************************************************************
46 TYPE parameters IS RECORD (rep_group VARCHAR2(50)
47 ,rep_cat VARCHAR2(50)
48 ,business_group_id NUMBER
49 ,effective_date DATE
50 ,subject_year NUMBER
51 ,withholding_agent NUMBER
52 ,sort_order VARCHAR2(50)
53 ,termination_date_from DATE
54 ,termination_date_to DATE
55 ,ass_setid NUMBER
56 );
57 --
58 gr_parameters parameters;
59 --
60 g_msg_circle fnd_new_messages.message_text%TYPE;
61 --
62 g_mag_payroll_action_id pay_payroll_actions.payroll_action_id%TYPE;
63 --
64 TYPE XMLRec IS RECORD( xmlstring CLOB);
65 --
66 TYPE tXMLTable IS TABLE OF XMLRec INDEX BY BINARY_INTEGER;
67 --
68 vXMLTable tXMLTable;
69 --
70 level_cnt NUMBER;
71 -- *********************
72 -- Cursors Declaration *
73 -- *********************
74 --
75 CURSOR c_header
76 IS
77 SELECT 1
78 FROM dual ;
79 --
80 CURSOR c_footer
81 IS
82 SELECT 1
83 FROM dual ;
84 --
85 CURSOR eof
86 IS
87 SELECT 1
88 FROM dual ;
89 --
90 CURSOR c_body
91 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('TRANSFER_PAYROLL_ACTION_ID')
96 ORDER BY action_sequence;
97
98 -- ************************
99 -- Procedures Declaration *
100 -- ************************
101 --
102
103 PROCEDURE gen_xml_header;
104 --
105 PROCEDURE gen_xml_footer;
106 --
107 PROCEDURE generate_xml;
108 --
109 PROCEDURE range_cursor ( P_PAYROLL_ACTION_ID IN NUMBER
110 , P_SQLSTR OUT NOCOPY VARCHAR2
111 );
112 --
113 PROCEDURE get_values ( p_input IN NUMBER
114 , p_output1 OUT NOCOPY VARCHAR2
115 , p_output2 OUT NOCOPY VARCHAR2
116 , p_output3 OUT NOCOPY VARCHAR2
117 );
118 --
119 PROCEDURE action_creation ( P_PAYROLL_ACTION_ID NUMBER
120 , P_START_PERSON_ID NUMBER
121 , P_END_PERSON_ID NUMBER
122 , P_CHUNK NUMBER
123 );
124 --
125 PROCEDURE init_code ( P_PAYROLL_ACTION_ID IN NUMBER) ;
126 --
127 PROCEDURE archive_code ( P_ASSIGNMENT_ACTION_ID IN NUMBER
128 , P_EFFECTIVE_DATE IN DATE );
129 --
130 PROCEDURE assact_xml(p_assignment_id IN NUMBER);
131
132 --
136 ,p_xml OUT NOCOPY CLOB
133 PROCEDURE deinitialise ( p_payroll_action_id IN NUMBER);
134 --
135 PROCEDURE get_cp_xml (p_assignment_id IN NUMBER
137 );
138 --
139 PROCEDURE writetoclob ( p_write_xml OUT NOCOPY CLOB );
140 --
141 PROCEDURE print_clob ( p_clob IN CLOB );
142 --
143 --
144 PROCEDURE sort_action ( p_payroll_action_id IN NUMBER
145 , sqlstr IN OUT NOCOPY VARCHAR2
146 , len OUT NOCOPY NUMBER);
147 --
148 END PAY_JP_IWHT_REPORT_PKG;