[Home] [Help]
PACKAGE: APPS.PAY_CA_DD_MAGTAPE_PKG
Source
1 PACKAGE pay_ca_dd_magtape_pkg AS
2 /* $Header: pycaddmg.pkh 120.3.12000000.1 2007/01/17 16:54:43 appldev noship $ */
3
4 -- Global Variable for the Package
5
6 TYPE tt_used_results IS TABLE OF NUMBER
7 INDEX BY BINARY_INTEGER;
8
9 g_effective_date date := null;
10 g_business_group_id number := 0;
11 g_payroll_action_id number := 0;
12 g_assignment_id number := 0;
13 g_assignment_action_id number := 0;
14 g_personal_payment_method_id number := 0;
15 g_org_payment_method_id number := 0; /* Tape Level Id*/
16 g_csr_org_pay_meth_id number := 0; /* Assignment Level Id */
17 g_csr_org_pay_third_party varchar2(1) := null;
18 g_pad_count number := 0;
19 g_temp_count number := 0;
20 g_count number := 0;
21 g_addenda_count number := 0;
22 g_hash number := 0;
23 g_amount number := 0;
24 g_batch_number number := 0;
25 g_legal_company_id number := 0;
26 g_addenda_write varchar2(1) := 'N';
27 g_batch_control_write varchar2(1) := 'N';
28 g_file_id_modifier varchar2(1) := null;
29 g_company_entry_desc varchar2(10) := null;
30 g_descriptive_date varchar2(6) := null;
31 g_file_header varchar2(9) := null;
32 g_batch_header varchar2(9) := null;
33 g_org_pay_dummy varchar2(9) := null;
34 g_entry_detail varchar2(9) := null;
35 g_addenda varchar2(9) := null;
36 g_org_pay_entry_detail varchar2(9) := null;
37 g_batch_control varchar2(9) := null;
38 g_file_control varchar2(9) := null;
39 g_nacha_dest_code varchar2(8) := null;
40 g_padding varchar2(8) := null;
41 g_direct_dep_date varchar2(6) := null;
42 g_legislative_parameters varchar2(240) := null;
43 g_date varchar2(06) := TO_CHAR(SYSDATE,'YYMMDD');
44 g_time varchar2(04) := TO_CHAR(SYSDATE,'HHMI');
45 g_request_id varchar2(15) := null;
46 g_magtape_report_id varchar2(50) := null;
47 g_fcn_override varchar2(50) := null;
48 g_file_creation_date varchar2(20) := null;
49
50
51 --
52 -- Exception Handlers
53 --
54 zero_req_id Exception;
55 pragma exception_init(zero_req_id, -9999);
56 --
57 java_conc_error Exception;
58 pragma exception_init(java_conc_error, -9999);
59
60
61
62 procedure run_formula_or_jcp_xml;
63
64 CURSOR csr_nacha_batch (p_business_group_id number,
65 p_payroll_action_id number) IS
66
67 select distinct
68 PREPAY.ORG_PAYMENT_METHOD_ID,
69 decode(nvl(to_char(OPM.DEFINED_BALANCE_ID),'Y'),'Y','Y','N'),
70 HRORGU.ORGANIZATION_ID,
71 opm.pmeth_information6
72 from
73 PAY_PRE_PAYMENTS PREPAY,
74 PAY_ORG_PAYMENT_METHODS_F OPM,
75 HR_ORGANIZATION_UNITS HRORGU,
76 HR_ORGANIZATION_INFORMATION HROINF
77
78 where
79 OPM.ORG_PAYMENT_METHOD_ID = PREPAY.ORG_PAYMENT_METHOD_ID
80 and g_effective_date between OPM.EFFECTIVE_START_DATE and
81 OPM.EFFECTIVE_END_DATE
82 and HRORGU.BUSINESS_GROUP_ID = p_business_group_id
83 and OPM.BUSINESS_GROUP_ID = p_business_group_id
84 and HRORGU.ORGANIZATION_ID = HROINF.ORGANIZATION_ID
85 and HROINF.ORG_INFORMATION_CONTEXT = 'CLASS'
86 and HROINF.ORG_INFORMATION1 = 'HR_LEGAL'
87 and HROINF.ORG_INFORMATION2 = 'Y'
88 and EXISTS
89 ( select 1
90 from PER_ASSIGNMENTS_F PERASG,
91 PAY_ASSIGNMENT_ACTIONS PYAACT,
92 HR_SOFT_CODING_KEYFLEX HRFLEX
93 where HRFLEX.SEGMENT1 = to_char(HRORGU.ORGANIZATION_ID)
94 and PERASG.SOFT_CODING_KEYFLEX_ID =
95 HRFLEX.SOFT_CODING_KEYFLEX_ID
96 and g_effective_date between PERASG.EFFECTIVE_START_DATE and
97 PERASG.EFFECTIVE_END_DATE
98 and PERASG.ASSIGNMENT_ID = PYAACT.ASSIGNMENT_ID
99 and PYAACT.PRE_PAYMENT_ID = PREPAY.PRE_PAYMENT_ID
100 and PYAACT.PAYROLL_ACTION_ID = p_payroll_action_id);
101
102 function get_parameter(name in varchar2,
103 parameter_list varchar2) return varchar2;
104 procedure submit_xml_mag_jcp(
105 ERRBUF OUT NOCOPY VARCHAR2,
106 RETCODE OUT NOCOPY NUMBER,
107 P_PACTID in number,
108 P_PMETHID in number,
109 P_OUTDIR in varchar2,
110 P_OUTFILE in varchar2,
111 P_LOGFILE in varchar2,
112 P_XSLFILE in varchar2,
113 P_DOCTAG in varchar2,
114 P_FCN in varchar2,
115 P_REQUEST_ID in out NOCOPY number,
116 P_SUCCESS out NOCOPY boolean
117 );
118 end pay_ca_dd_magtape_pkg;