DBA Data[Home] [Help]

PACKAGE: APPS.PAY_PAYMENT_XML_PKG

Source


1 PACKAGE PAY_PAYMENT_XML_PKG AS
2 /* $Header: pypayxml.pkh 120.8.12010000.1 2008/07/27 23:19:43 appldev ship $ */
3 --
4 -- Global variables
5 --
6 g_currency_code  varchar2(10);
7 --
8 level_cnt number;
9 --
10 CURSOR c_header_footer
11 IS
12 SELECT 'PAYROLL_ACTION_ID=C', ppa.payroll_action_id,
13        'BG_ID=P', ppa.business_group_id
14 from pay_payroll_actions ppa
15 WHERE ppa.payroll_action_id = pay_magtape_generic.get_parameter_value
16                               ('TRANSFER_PAYROLL_ACTION_ID')
17 or ppa.payroll_action_id = pay_magtape_generic.get_parameter_value
18                               ('PAYROLL_ACTION_ID');
19 --
20 CURSOR c_payment_asg_actions
21 IS
22 SELECT 'TRANSFER_ACT_ID=P', paa.assignment_action_id
23 FROM   pay_assignment_actions paa
24 WHERE  paa.payroll_action_id =
25          pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
26 or paa.payroll_action_id = pay_magtape_generic.get_parameter_value
27                               ('PAYROLL_ACTION_ID');
28 
29 CURSOR c_bank_act_grp
30 IS
31 SELECT distinct 'EXT_ACT_ID=P', popm.external_account_id
32 FROM  pay_payroll_actions ppa,
33       pay_assignment_actions paa,
34       pay_pre_payments ppp,
35       pay_action_interlocks pai,
36       pay_org_payment_methods_f popm
37 WHERE (ppa.payroll_action_id = pay_magtape_generic.get_parameter_value
38                               ('TRANSFER_PAYROLL_ACTION_ID')
39       or ppa.payroll_action_id = pay_magtape_generic.get_parameter_value
40                               ('PAYROLL_ACTION_ID'))
41 AND  paa.payroll_action_id=ppa.payroll_action_id
42 and  paa.assignment_action_id=pai.locking_action_id
43 and  pai.locked_action_id=ppp.assignment_action_id
44 and  ppp.org_payment_method_id=popm.org_payment_method_id
45 and  ppa.payment_type_id=popm.payment_type_id
46 and (ppa.org_payment_method_id is NULL
47      or
48      ppa.org_payment_method_id=ppp.org_payment_method_id);
49 
50 CURSOR c_bank_asg_actions
51 IS
52 SELECT 'TRANSFER_ACT_ID=P', paa.assignment_action_id
53 FROM   pay_assignment_actions paa
54       ,pay_action_interlocks pai
55       ,pay_pre_payments ppp
56       ,pay_org_payment_methods_f popm
57       ,pay_assignment_actions paa2
58       ,pay_payroll_actions ppa
59 WHERE (paa.payroll_action_id = pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
60       or paa.payroll_action_id = pay_magtape_generic.get_parameter_value('PAYROLL_ACTION_ID'))
61 and paa.assignment_action_id=pai.locking_action_id
62 and  pai.locked_action_id=ppp.assignment_action_id
63 and ppp.assignment_action_id=paa2.assignment_action_id
64 and ppp.pre_payment_id=paa.pre_payment_id
65 and paa2.payroll_action_id=ppa.payroll_action_id
66 and ppp.org_payment_method_id=popm.org_payment_method_id
67 and popm.external_account_id=pay_magtape_generic.get_parameter_value('EXT_ACT_ID')
68 and ppa.effective_date between popm.effective_start_date and popm.effective_end_date;
69 
70 --
71 CURSOR c_payment_details
72 IS
73 SELECT 'PRE_PAY_ID=P', ppp.pre_payment_id,
74        'PAYMENT_AMOUNT=P', ppp.value,
75        'PERSONAL_PAY_METH=P', ppp.personal_payment_method_id,
76        'DET_ORG_PAY_METH=P', ppp.org_payment_method_id,
77        'PAYEE_PAY_METH_ID=P', ppp.payees_org_payment_method_id,
78        'PRE_PAY_ASG_ACT=P', ppp.assignment_action_id,
79        'ASG_ID=P', paa.assignment_id,
80        'ORG_ID=P',paa.object_id, --should be null
81        'PRE_PAY_EFF_DATE=P', ppa.effective_date,
82        'DET_BG_ID=P', ppa.business_group_id
83 FROM   pay_pre_payments ppp
84 ,      pay_action_interlocks pai
85 ,      pay_assignment_actions paa
86 ,      pay_assignment_actions paa_chq
87 ,      pay_payroll_actions ppa
88 ,      pay_payroll_actions ppa_chq
89 ,      pay_org_payment_methods_f popm
90 WHERE  paa_chq.assignment_action_id = pay_magtape_generic.get_parameter_value
91                                ('TRANSFER_ACT_ID')
92 and paa_chq.assignment_action_id = pai.locking_action_id
93 and pai.locked_action_id=paa.assignment_action_id
94 and paa.payroll_action_id=ppa.payroll_action_id
95 and ppp.assignment_action_id=paa.assignment_action_id  --is prepayment
96 and ppp.pre_payment_id=paa_chq.pre_payment_id
97 and popm.org_payment_method_id= ppp.org_payment_method_id
98 and ppa_chq.payment_type_id=popm.payment_type_id
99 and (ppa_chq.org_payment_method_id is NULL
100      or
101      ppa_chq.org_payment_method_id=ppp.org_payment_method_id)
102 and (ppa_chq.payroll_action_id =
103          pay_magtape_generic.get_parameter_value('TRANSFER_PAYROLL_ACTION_ID')
104 or ppa_chq.payroll_action_id = pay_magtape_generic.get_parameter_value
105                               ('PAYROLL_ACTION_ID'))
106 and ppa_chq.effective_date between popm.effective_start_date and popm.effective_end_date
107 UNION ALL
108 SELECT 'PRE_PAY_ID=P', ppp.pre_payment_id,
109        'PAYMENT_AMOUNT=P', ppp.value,
110        'PERSONAL_PAY_METH=P', ppp.personal_payment_method_id, -- should be null
111        'DET_ORG_PAY_METH=P', ppp.org_payment_method_id,
112        'PAYEE_PAY_METH_ID=P', ppp.payees_org_payment_method_id,
113        'PRE_PAY_ASG_ACT=P', ppp.assignment_action_id,  --should be null
114        'ASG_ID=P', paa.assignment_id, --null
115        'ORG_ID=P',paa.object_id,
116        'PRE_PAY_EFF_DATE=P', ppa.effective_date,
117        'DET_BG_ID=P', ppa.business_group_id
118 FROM   pay_pre_payments ppp
119 ,      pay_assignment_actions paa
120 ,      pay_payroll_actions ppa
121 WHERE  paa.assignment_action_id= pay_magtape_generic.get_parameter_value
122                                ('TRANSFER_ACT_ID')
123 and   paa.object_type='HOU'
124 and   ppp.organization_id=paa.object_id
125 and   ppp.payroll_action_id= ppa.payroll_action_id
126 and   exists (select 1 from pay_action_interlocks pai,
127                             pay_assignment_actions paa2
128               where pai.locking_action_id=paa.assignment_action_id
129               and pai.locked_action_id=paa2.assignment_action_id
130               and paa2.payroll_action_id=ppa.payroll_action_id);
131 
132 
133 
134 
135 --
136 -- procedures to generate xml
137 --
138 PROCEDURE gen_header_xml;
139 PROCEDURE gen_footer_xml;
140 PROCEDURE gen_bank_header_xml;
141 PROCEDURE gen_bank_footer_xml;
142 PROCEDURE gen_payment_details_xml;
143 --
144 END PAY_PAYMENT_XML_PKG;