60: ORDER BY cdl.expenditure_item_id
61: ,cdl.line_num;
62:
63: BEGIN
64: pa_debug.init_err_stack('pa_ap_xfer_pkg.upd_cdl_xfer_status');
65:
66: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
67: l_debug_mode := NVL(l_debug_mode, 'Y');
68:
62:
63: BEGIN
64: pa_debug.init_err_stack('pa_ap_xfer_pkg.upd_cdl_xfer_status');
65:
66: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
67: l_debug_mode := NVL(l_debug_mode, 'Y');
68:
69: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
70:
65:
66: fnd_profile.get('PA_DEBUG_MODE',l_debug_mode);
67: l_debug_mode := NVL(l_debug_mode, 'Y');
68:
69: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
70:
71: l_stage := 10;
72: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From upd_cdl_xfer_status';
73: pa_debug.write_file(pa_debug.g_err_stage);
68:
69: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
70:
71: l_stage := 10;
72: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From upd_cdl_xfer_status';
73: pa_debug.write_file(pa_debug.g_err_stage);
74:
75: g_request_id := p_request_id ;
76:
69: pa_debug.set_process('PLSQL','LOG',l_debug_mode);
70:
71: l_stage := 10;
72: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':From upd_cdl_xfer_status';
73: pa_debug.write_file(pa_debug.g_err_stage);
74:
75: g_request_id := p_request_id ;
76:
77: l_stage := 20;
74:
75: g_request_id := p_request_id ;
76:
77: l_stage := 20;
78: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Opening Cursor Inv_stat_cur';
79: pa_debug.write_file(pa_debug.g_err_stage);
80:
81: OPEN Inv_stat_cur;
82:
75: g_request_id := p_request_id ;
76:
77: l_stage := 20;
78: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Opening Cursor Inv_stat_cur';
79: pa_debug.write_file(pa_debug.g_err_stage);
80:
81: OPEN Inv_stat_cur;
82:
83: LOOP
85: into l_system_reference2;
86: EXIT WHEN Inv_stat_cur%NOTFOUND;
87:
88: l_stage := 30;
89: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Checking for Inv Status';
90: pa_debug.write_file(pa_debug.g_err_stage);
91:
92: /*Bug 3094341. Added an NVL condition to system_reference2, as it was calling
93: AP_PA_API_PKG, which was erroring out when NULL was passed. No records were retrieved when NULL is passed. */
86: EXIT WHEN Inv_stat_cur%NOTFOUND;
87:
88: l_stage := 30;
89: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Checking for Inv Status';
90: pa_debug.write_file(pa_debug.g_err_stage);
91:
92: /*Bug 3094341. Added an NVL condition to system_reference2, as it was calling
93: AP_PA_API_PKG, which was erroring out when NULL was passed. No records were retrieved when NULL is passed. */
94: IF pa_integration.check_ap_invoices(nvl(l_system_reference2,0),'ADJUSTMENTS') <> 'N'
100: AND line_type ='R'
101: AND request_id = g_request_id ;
102:
103: l_stage := 40;
104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After updating cdls for restricted invoice';
105: pa_debug.write_file(pa_debug.g_err_stage);
106:
107: END IF;
108:
101: AND request_id = g_request_id ;
102:
103: l_stage := 40;
104: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After updating cdls for restricted invoice';
105: pa_debug.write_file(pa_debug.g_err_stage);
106:
107: END IF;
108:
109: l_stage := 50;
106:
107: END IF;
108:
109: l_stage := 50;
110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After check for Inv status';
111: pa_debug.write_file(pa_debug.g_err_stage);
112:
113: END LOOP;
114: CLOSE Inv_stat_cur;
107: END IF;
108:
109: l_stage := 50;
110: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':After check for Inv status';
111: pa_debug.write_file(pa_debug.g_err_stage);
112:
113: END LOOP;
114: CLOSE Inv_stat_cur;
115:
113: END LOOP;
114: CLOSE Inv_stat_cur;
115:
116: l_stage :=60 ;
117: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Closing Cursor Inv_stat_cur';
118: pa_debug.write_file(pa_debug.g_err_stage);
119:
120: OPEN rev_cdl_cur;
121: l_this_fetch := 0;
114: CLOSE Inv_stat_cur;
115:
116: l_stage :=60 ;
117: pa_debug.g_err_stage := TO_CHAR(l_stage) || ':Closing Cursor Inv_stat_cur';
118: pa_debug.write_file(pa_debug.g_err_stage);
119:
120: OPEN rev_cdl_cur;
121: l_this_fetch := 0;
122: l_totally_fetched := 0;
120: OPEN rev_cdl_cur;
121: l_this_fetch := 0;
122: l_totally_fetched := 0;
123: l_stage := 70;
124: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetching a Set of reversal CDLs to Process.';
125: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
126:
127: l_stage := 80;
128:
121: l_this_fetch := 0;
122: l_totally_fetched := 0;
123: l_stage := 70;
124: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetching a Set of reversal CDLs to Process.';
125: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
126:
127: l_stage := 80;
128:
129: LOOP
137:
138: l_this_fetch := rev_cdl_cur%ROWCOUNT - l_totally_fetched;
139: l_totally_fetched := rev_cdl_cur%ROWCOUNT;
140:
141: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetched [' || l_this_fetch || '] CDLs to process.';
142: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
143:
144:
145: IF (l_this_fetch = 0) THEN
138: l_this_fetch := rev_cdl_cur%ROWCOUNT - l_totally_fetched;
139: l_totally_fetched := rev_cdl_cur%ROWCOUNT;
140:
141: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':Fetched [' || l_this_fetch || '] CDLs to process.';
142: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
143:
144:
145: IF (l_this_fetch = 0) THEN
146: l_stage := 90;
143:
144:
145: IF (l_this_fetch = 0) THEN
146: l_stage := 90;
147: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':No more Reversal CDLs to process. Exiting';
148: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
149:
150: x_return_status := 0;
151: x_error_code := FND_API.G_RET_STS_SUCCESS;
144:
145: IF (l_this_fetch = 0) THEN
146: l_stage := 90;
147: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ':No more Reversal CDLs to process. Exiting';
148: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
149:
150: x_return_status := 0;
151: x_error_code := FND_API.G_RET_STS_SUCCESS;
152: x_error_stage := l_stage;
167: AND cdl.dr_code_combination_id =l_dr_code_combination_id_tab(i));
168:
169: END LOOP;
170: l_stage := 110;
171: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Closing the Cursor';
172: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
173: pa_debug.reset_err_stack; --Added for Bug#3094341
174: CLOSE rev_cdl_cur;
175: EXCEPTION
168:
169: END LOOP;
170: l_stage := 110;
171: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Closing the Cursor';
172: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
173: pa_debug.reset_err_stack; --Added for Bug#3094341
174: CLOSE rev_cdl_cur;
175: EXCEPTION
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
169: END LOOP;
170: l_stage := 110;
171: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) || ': Closing the Cursor';
172: PA_DEBUG.write_file(PA_DEBUG.g_err_stage);
173: pa_debug.reset_err_stack; --Added for Bug#3094341
174: CLOSE rev_cdl_cur;
175: EXCEPTION
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
177: THEN
175: EXCEPTION
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
177: THEN
178: l_stage := 120 ;
179: pa_debug.write_file(pa_debug.g_err_stage);
180: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In UnExpected Exception';
181: pa_debug.write_file(pa_debug.g_err_stage);
182:
183: x_return_status := -1;
176: WHEN FND_API.G_EXC_UNEXPECTED_ERROR
177: THEN
178: l_stage := 120 ;
179: pa_debug.write_file(pa_debug.g_err_stage);
180: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In UnExpected Exception';
181: pa_debug.write_file(pa_debug.g_err_stage);
182:
183: x_return_status := -1;
184: x_error_code := FND_API.G_RET_STS_ERROR;
177: THEN
178: l_stage := 120 ;
179: pa_debug.write_file(pa_debug.g_err_stage);
180: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In UnExpected Exception';
181: pa_debug.write_file(pa_debug.g_err_stage);
182:
183: x_return_status := -1;
184: x_error_code := FND_API.G_RET_STS_ERROR;
185: x_error_stage := l_stage ;
182:
183: x_return_status := -1;
184: x_error_code := FND_API.G_RET_STS_ERROR;
185: x_error_stage := l_stage ;
186: pa_debug.reset_err_stack;
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: WHEN OTHERS
189: THEN
190: l_stage := 130 ;
187: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
188: WHEN OTHERS
189: THEN
190: l_stage := 130 ;
191: pa_debug.write_file(pa_debug.g_err_stage);
192: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In Others Exception';
193: pa_debug.write_file(pa_debug.g_err_stage);
194: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
195: pa_debug.write_file(pa_debug.g_err_stage);
188: WHEN OTHERS
189: THEN
190: l_stage := 130 ;
191: pa_debug.write_file(pa_debug.g_err_stage);
192: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In Others Exception';
193: pa_debug.write_file(pa_debug.g_err_stage);
194: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
195: pa_debug.write_file(pa_debug.g_err_stage);
196:
189: THEN
190: l_stage := 130 ;
191: pa_debug.write_file(pa_debug.g_err_stage);
192: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In Others Exception';
193: pa_debug.write_file(pa_debug.g_err_stage);
194: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
195: pa_debug.write_file(pa_debug.g_err_stage);
196:
197: x_return_status := -1;
190: l_stage := 130 ;
191: pa_debug.write_file(pa_debug.g_err_stage);
192: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In Others Exception';
193: pa_debug.write_file(pa_debug.g_err_stage);
194: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
195: pa_debug.write_file(pa_debug.g_err_stage);
196:
197: x_return_status := -1;
198: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
191: pa_debug.write_file(pa_debug.g_err_stage);
192: PA_DEBUG.g_err_stage := TO_CHAR(l_stage) ||'In Others Exception';
193: pa_debug.write_file(pa_debug.g_err_stage);
194: pa_debug.g_err_stage := TO_CHAR(SQLCODE) || SQLERRM ;
195: pa_debug.write_file(pa_debug.g_err_stage);
196:
197: x_return_status := -1;
198: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
199: x_error_stage := l_stage ;
196:
197: x_return_status := -1;
198: x_error_code := TO_CHAR(SQLCODE) || SQLERRM ;
199: x_error_stage := l_stage ;
200: pa_debug.reset_err_stack;
201: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
202: END upd_cdl_xfer_status;
203: END pa_ap_xfer_pkg;