[Home] [Help]
PACKAGE BODY: APPS.PAY_KR_YEA_CONC_PKG
Source
1 PACKAGE BODY PAY_KR_YEA_CONC_PKG AS
2 /* $Header: pykrycon.pkb 120.2.12000000.1 2007/01/17 22:19:49 appldev noship $ */
3 -----------
4 PROCEDURE SUBMIT_YEA (ERRBUF OUT NOCOPY VARCHAR2,
5 RETCODE OUT NOCOPY VARCHAR2,
6 P_yea_Type VARCHAR2,
7 P_effective_date VARCHAR2,
8 P_business_group_id per_all_people_f.business_group_id%type,
9 P_payroll_id pay_payroll_actions.payroll_id%type,
10 P_action_parameter_group_id pay_action_parameter_groups.action_parameter_group_id%type,
11 P_consolidation_set_id pay_consolidation_sets.consolidation_set_id%type,
12 P_assignment_set_id hr_assignment_sets.assignment_set_id%type,
13 P_element_type_iD pay_element_types.element_type_id%type,
14 P_run_type_iD pay_run_types.run_type_id%type
15 )
16 IS
17 l_bal_req_id NUMBER;
18 l_arc_req_id NUMBER;
19 l_bal_adj_action_id pay_payroll_actions.payroll_action_id%type;
20 l_effective_date DATE ;
21 l_message VARCHAR2(2000);
22 l_phase VARCHAR2(100);
23 l_status VARCHAR2(100);
24 l_dev_status VARCHAR2(100);
25 l_dev_phase VARCHAR2(100);
26 l_action_completed BOOLEAN;
27
28 CURSOR csr_bal_adj_action_id
29 IS
30 SELECT payroll_action_id
31 FROM pay_payroll_actions
32 WHERE request_id = l_bal_req_id
33 AND payroll_id = p_payroll_id
34 AND consolidation_set_id = p_consolidation_set_id
35 AND effective_date = l_effective_date;
36 BEGIN
37
38 l_bal_req_id := 0;
39 l_arc_req_id := 0;
40 l_dev_status := 'X';
41 l_dev_phase := 'X';
42 l_effective_date := fnd_date.canonical_to_date(p_effective_date);
43
44 l_bal_req_id := FND_REQUEST.SUBMIT_REQUEST (
45 APPLICATION => 'PAY'
46 ,PROGRAM => 'PYKRYEB'
47 ,DESCRIPTION => 'KR Year End Balance Adjustment'
48 ,ARGUMENT1 => 'BAL_ADJUST'
49 ,ARGUMENT2 => p_payroll_id
50 ,ARGUMENT3 => p_consolidation_set_id
51 ,ARGUMENT4 => p_effective_date
52 ,ARGUMENT5 => p_assignment_set_id
53 ,ARGUMENT6 => p_element_type_id
54 ,ARGUMENT7 => p_run_type_id
55 -- Bug No: 3561068
56 ,ARGUMENT8 => null -- bal_adj_cost_flag
57 ,ARGUMENT9 => null -- cost_allocation_keyflex_id
58 ,ARGUMENT10 => 'REPORT_TYPE=YEA'
59 ,ARGUMENT11 => 'REPORT_QUALIFIER=KR'
60 ,ARGUMENT12 => 'REPORT_CATEGORY='||p_yea_type
61 );
62 --
63
64 IF (l_bal_req_id = 0) THEN
65 RETCODE := 2;
66 FND_MESSAGE.RETRIEVE(ERRBUF);
67 ELSE
68 COMMIT;
69 WHILE (l_dev_phase <> 'COMPLETE')
70 LOOP
71 l_action_completed := FND_CONCURRENT.WAIT_FOR_REQUEST(
72 request_id => l_bal_req_id
73 ,interval => 15
74 ,max_wait => 60
75 ,phase => l_phase
76 ,status => l_status
77 ,dev_phase => l_dev_phase
78 ,dev_status => l_dev_status
79 ,message => l_message);
80 END LOOP;
81
82 IF l_dev_phase = 'COMPLETE' AND l_dev_status = 'NORMAL' THEN
83
84 OPEN csr_bal_adj_action_id;
85 FETCH csr_bal_adj_action_id INTO l_bal_adj_action_id;
86 CLOSE csr_bal_adj_action_id;
87
88 l_arc_req_id := FND_REQUEST.SUBMIT_REQUEST (
89 APPLICATION => 'PAY'
90 ,PROGRAM => 'PYKRYEA'
91 ,DESCRIPTION => 'KR Year End Adjustment Archive'
92 ,ARGUMENT1 => 'ARCHIVE'
93 ,ARGUMENT2 => 'YEA'
94 ,ARGUMENT3 => 'KR'
95 ,ARGUMENT4 => p_effective_date
96 ,ARGUMENT5 => p_effective_date
97 ,ARGUMENT6 => p_yea_type
98 ,ARGUMENT7 => p_business_group_id
99 ,ARGUMENT8 => null
100 ,ARGUMENT9 => null
101 ,ARGUMENT10 => P_action_parameter_group_id
102 ,ARGUMENT11 => 'PAYROLL_ID='||to_char(p_payroll_id)
103 ,ARGUMENT12 => 'BAL_ADJ_ACTION_ID='||to_char(l_bal_adj_action_id)
104 ,ARGUMENT13 => 'CONSOLIDATION_SET_ID='||to_char(p_consolidation_set_id)
105 ,ARGUMENT14 => 'ARCHIVE_TYPE=AAP' -- Bug 5225198
106 );
107
108 IF (l_arc_req_id = 0) THEN
109 RETCODE := 2;
110 FND_MESSAGE.RETRIEVE(ERRBUF);
111 ELSE
112 COMMIT;
113 --
114 l_dev_phase := 'X';
115 l_action_completed := null;
116 l_dev_status := null;
117 l_phase := null;
118 l_status := null;
119 l_message := null;
120 --
121 WHILE (l_dev_phase <> 'COMPLETE')
122 LOOP
123 l_action_completed := FND_CONCURRENT.WAIT_FOR_REQUEST(
124 request_id => l_arc_req_id
125 ,interval => 15
126 ,max_wait => 60
127 ,phase => l_phase
128 ,status => l_status
129 ,dev_phase => l_dev_phase
130 ,dev_status => l_dev_status
131 ,message => l_message);
132 END LOOP;
133
134 END IF;
135 ELSE
136 RETCODE := 2;
137 FND_MESSAGE.RETRIEVE(ERRBUF);
138 END IF;
139 END IF;
140
141 END SUBMIT_YEA;
142
143 END PAY_KR_YEA_CONC_PKG;