[Home] [Help]
PACKAGE BODY: APPS.PAY_NO_ALTINN_TFR_PKG
Source
1 package body pay_no_altinn_tfr_pkg
2 /* $Header: pynaftfr.pkb 120.0.12020000.1 2013/01/31 08:55:17 achandwa noship $ */
3 AS
4
5 FUNCTION check_exists
6 (con_requ_id IN number) RETURN boolean IS
7 t_transfer_id number;
8 c_exists boolean;
9 BEGIN
10 SELECT transfer_id
11 INTO t_transfer_id
12 FROM pay_no_altinn_transfers
13 WHERE concurrent_request_id = con_requ_id;
14
15 c_exists := TRUE;
16
17 RETURN c_exists;
18 EXCEPTION
19 WHEN no_data_found THEN
20 c_exists := FALSE;
21
22 RETURN c_exists;
23 END check_exists;
24
25 FUNCTION get_parameter_value
26 (p_payroll_action_id IN number
27 ,p_token_name IN varchar2) RETURN varchar2 IS
28 l_value varchar2(100);
29 BEGIN
30 SELECT substr (legislative_parameters
31 ,instr (legislative_parameters
32 ,p_token_name) + (length (p_token_name) + 1)
33 ,(decode (instr (legislative_parameters
34 ,' '
35 ,instr (legislative_parameters
36 ,p_token_name))
37 ,0
38 ,decode (instr (legislative_parameters
39 ,p_token_name)
40 ,0
41 ,.5
42 ,length (legislative_parameters))
43 ,instr (legislative_parameters
44 ,' '
45 ,instr (legislative_parameters
46 ,p_token_name)) - (instr (legislative_parameters
47 ,p_token_name) + (length (p_token_name) + 1)))))
48 INTO l_value
49 FROM pay_payroll_actions
50 WHERE payroll_action_id = p_payroll_action_id;
51
52 RETURN l_value;
53 END get_parameter_value;
54
55 PROCEDURE save_for_later
56 (p_transfer_id IN OUT NOCOPY number
57 ,p_concurrent_request_id IN number
58 ,p_payroll_action_id IN number
59 ,p_report_name IN varchar2
60 ,p_run_effective_date IN date
61 ,p_shipment_reference IN varchar2
62 ,p_organization_id IN number
63 ,p_business_group_id IN number
64 ,p_object_version_number IN OUT NOCOPY number
65 ,p_save_status OUT NOCOPY number
66 ,p_save_status_text OUT NOCOPY varchar2) IS
67 l_ovn_number number;
68 l_transfer_id number;
69 l_transfer_status varchar2(1);
70 l_exp EXCEPTION;
71 CURSOR csr_ovn_check IS
72 SELECT object_version_number
73 FROM pay_no_altinn_transfers
74 WHERE concurrent_request_id = p_concurrent_request_id;
75 BEGIN
76 l_transfer_status := 'S';
77
78 IF check_exists (p_concurrent_request_id) THEN
79 pay_naf_upd.upd
80 (p_transfer_id => p_transfer_id
81 ,p_object_version_number => p_object_version_number
82 ,p_transfer_status => l_transfer_status
83 ,p_concurrent_request_id => p_concurrent_request_id
84 ,p_payroll_action_id => p_payroll_action_id
85 ,p_report_name => p_report_name
86 ,p_run_effective_date => p_run_effective_date
87 ,p_shipment_reference_number => p_shipment_reference
88 ,p_organization_id => p_organization_id
89 ,p_business_group_id => p_business_group_id);
90
91 NULL;
92 ELSE
93 pay_naf_ins.ins
94 (p_transfer_id => p_transfer_id
95 ,p_object_version_number => l_ovn_number
96 ,p_transfer_status => l_transfer_status
97 ,p_concurrent_request_id => p_concurrent_request_id
98 ,p_payroll_action_id => p_payroll_action_id
99 ,p_report_name => p_report_name
100 ,p_run_effective_date => p_run_effective_date
101 ,p_shipment_reference_number => p_shipment_reference
102 ,p_organization_id => p_organization_id
103 ,p_business_group_id => p_business_group_id);
104 END IF;
105
106 hr_utility.trace ('object version number is:'
107 || p_object_version_number);
108 EXCEPTION
109 WHEN others THEN
110 p_save_status := 1;
111
112 p_save_status_text := sqlerrm;
113 END save_for_later;
114
115 PROCEDURE submit_record
116 (p_transfer_id IN number
117 ,p_concurrent_request_id IN number
118 ,p_payroll_action_id IN number
119 ,p_report_name IN varchar2
120 ,p_run_effective_date IN date
121 ,p_shipment_reference IN varchar2
122 ,p_organization_id IN number
123 ,p_business_group_id IN number
124 ,p_receipt_id IN number
125 ,p_receipt_status IN varchar2
126 ,p_receipt_text IN varchar2
127 ,p_object_version_number IN number
128 ,p_save_status_text OUT NOCOPY varchar2) IS
129 c_transfer_status varchar2(20);
130 l_ovn_number number;
131 l_exp EXCEPTION;
132 BEGIN
133 IF p_receipt_status = 'OK' THEN
134 c_transfer_status := 'A';
135 ELSE
136 c_transfer_status := 'S';
137 END IF;
138
139 pay_naf_upd.upd
140 (p_transfer_id => p_transfer_id
141 ,p_object_version_number => l_ovn_number
142 ,p_transfer_status => c_transfer_status
143 ,p_concurrent_request_id => p_concurrent_request_id
144 ,p_payroll_action_id => p_payroll_action_id
145 ,p_report_name => p_report_name
146 ,p_run_effective_date => p_run_effective_date
147 ,p_shipment_reference_number => p_shipment_reference
148 ,p_organization_id => p_organization_id
149 ,p_business_group_id => p_business_group_id
150 ,p_reciept_id => p_receipt_id
151 ,p_reciept_status => p_receipt_status
152 ,p_reciept_text => p_receipt_text
153 ,p_reciept_last_updated => NULL);
154 EXCEPTION
155 WHEN others THEN
156 p_save_status_text := sqlerrm;
157 END submit_record;
158
159 PROCEDURE delete_transfer_record
160 (p_transfer_id IN number
161 ,p_object_version_number IN number
162 ,p_save_status OUT NOCOPY varchar2) IS
163 BEGIN
164 pay_naf_del.del
165 (p_transfer_id => p_transfer_id
166 ,p_object_version_number => p_object_version_number);
167 EXCEPTION
168 WHEN others THEN
169 p_save_status := sqlerrm;
170 END delete_transfer_record;
171 END pay_no_altinn_tfr_pkg;