[Home] [Help]
1: PACKAGE BODY PA_MCB_INVOICE_PKG AS
2: /* $Header: PAXMCIUB.pls 120.12 2007/10/31 12:48:24 rmandali ship $ */
3:
4: -- Procedure to
5: -- Convert the Bill Transaction to Invoice Processing
113:
114: BEGIN
115:
116: IF g1_debug_mode = 'Y' THEN
117: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk');
118: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Call PA_MULTI_CURRENCY_BILLING.get_project_defaults');
119: END IF;
120:
121:
114: BEGIN
115:
116: IF g1_debug_mode = 'Y' THEN
117: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk');
118: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Call PA_MULTI_CURRENCY_BILLING.get_project_defaults');
119: END IF;
120:
121:
122: IF g1_debug_mode = 'Y' THEN
119: END IF;
120:
121:
122: IF g1_debug_mode = 'Y' THEN
123: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: Agreement Id :' || p_agreement_id );
124: END IF;
125:
126:
127:
147: END IF;
148:
149:
150: IF g1_debug_mode = 'Y' THEN
151: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Call PA_MULTI_CURRENCY_BILLING.get_project_defaults');
152: END IF;
153:
154: -- Get the Project Level Defaults
155: PA_MULTI_CURRENCY_BILLING.get_project_defaults (
177: x_msg_count => l_msg_count,
178: x_msg_data => l_msg_data);
179:
180: IF g1_debug_mode = 'Y' THEN
181: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Events To Process : ' || p_event_num.count);
182: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Type : ' || tmp_invproc_currency_type);
183: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Code : ' || l_invproc_currency_code);
184: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PC Code : ' || l_project_currency_code);
185: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PFC Code : ' || l_projfunc_currency_code);
178: x_msg_data => l_msg_data);
179:
180: IF g1_debug_mode = 'Y' THEN
181: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Events To Process : ' || p_event_num.count);
182: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Type : ' || tmp_invproc_currency_type);
183: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Code : ' || l_invproc_currency_code);
184: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PC Code : ' || l_project_currency_code);
185: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PFC Code : ' || l_projfunc_currency_code);
186: END IF;
179:
180: IF g1_debug_mode = 'Y' THEN
181: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Events To Process : ' || p_event_num.count);
182: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Type : ' || tmp_invproc_currency_type);
183: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Code : ' || l_invproc_currency_code);
184: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PC Code : ' || l_project_currency_code);
185: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PFC Code : ' || l_projfunc_currency_code);
186: END IF;
187:
180: IF g1_debug_mode = 'Y' THEN
181: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Events To Process : ' || p_event_num.count);
182: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Type : ' || tmp_invproc_currency_type);
183: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Code : ' || l_invproc_currency_code);
184: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PC Code : ' || l_project_currency_code);
185: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PFC Code : ' || l_projfunc_currency_code);
186: END IF;
187:
188: -- ARRAY is empty, no process required
181: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Events To Process : ' || p_event_num.count);
182: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Type : ' || tmp_invproc_currency_type);
183: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Code : ' || l_invproc_currency_code);
184: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PC Code : ' || l_project_currency_code);
185: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'PFC Code : ' || l_projfunc_currency_code);
186: END IF;
187:
188: -- ARRAY is empty, no process required
189:
193:
194: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
195:
196: IF g1_debug_mode = 'Y' THEN
197: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate Date : ' || p_project_rate_date(i));
198: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate Date: ' || p_projfunc_rate_date(i));
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
194: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
195:
196: IF g1_debug_mode = 'Y' THEN
197: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate Date : ' || p_project_rate_date(i));
198: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate Date: ' || p_projfunc_rate_date(i));
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
195:
196: IF g1_debug_mode = 'Y' THEN
197: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate Date : ' || p_project_rate_date(i));
198: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate Date: ' || p_projfunc_rate_date(i));
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
196: IF g1_debug_mode = 'Y' THEN
197: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate Date : ' || p_project_rate_date(i));
198: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate Date: ' || p_projfunc_rate_date(i));
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
197: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate Date : ' || p_project_rate_date(i));
198: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate Date: ' || p_projfunc_rate_date(i));
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
205: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'BTC Amount : ' || p_bill_trans_bill_amount(i));
198: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate Date: ' || p_projfunc_rate_date(i));
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
205: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'BTC Amount : ' || p_bill_trans_bill_amount(i));
206: /* Federal Changes */
199: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate Date : ' || p_funding_rate_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
205: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'BTC Amount : ' || p_bill_trans_bill_amount(i));
206: /* Federal Changes */
207: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Evt Cmplete Date: ' || p_completion_date(i));
200: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Invproc Rate Date : ' || p_invproc_rate_date(i));
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
205: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'BTC Amount : ' || p_bill_trans_bill_amount(i));
206: /* Federal Changes */
207: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Evt Cmplete Date: ' || p_completion_date(i));
208: END IF;
201: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Rate : ' || p_project_exchange_rate(i));
202: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Projfunc Rate : ' || p_projfunc_exchange_rate(i));
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
205: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'BTC Amount : ' || p_bill_trans_bill_amount(i));
206: /* Federal Changes */
207: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Evt Cmplete Date: ' || p_completion_date(i));
208: END IF;
209:
203: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Funding Rate : ' || p_funding_exchange_rate(i));
204: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'IPC Rate : ' || p_invproc_exchange_rate(i));
205: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'BTC Amount : ' || p_bill_trans_bill_amount(i));
206: /* Federal Changes */
207: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Evt Cmplete Date: ' || p_completion_date(i));
208: END IF;
209:
210: tmp_project_exchange_rate(i) := TO_NUMBER(p_project_exchange_rate(i));
211: tmp_projfunc_exchange_rate(i):= TO_NUMBER(p_projfunc_exchange_rate(i));
216: tmp_project_rate_date(i) := TO_DATE(p_project_rate_date(i), 'YYYY/MM/DD');
217: tmp_projfunc_rate_date(i) := TO_DATE(p_projfunc_rate_date(i), 'YYYY/MM/DD');
218: tmp_funding_rate_date(i) := TO_DATE(p_funding_rate_date(i),'YYYY/MM/DD');
219: IF g1_debug_mode = 'Y' THEN
220: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Before Assign IPC date to ');
221: END IF;
222:
223: tmp_invproc_rate_date(i) := TO_DATE(p_invproc_rate_date(i),'YYYY/MM/DD');
224:
221: END IF;
222:
223: tmp_invproc_rate_date(i) := TO_DATE(p_invproc_rate_date(i),'YYYY/MM/DD');
224:
225: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'first .....');
226:
227: tmp_denominator_tab(i) :=0;
228: tmp_numerator_tab(i) :=0;
229: tmp_rate_tab(i) :=0;
238: tmp_projfunc_bill_amount(i) :=0;
239: tmp_invproc_bill_amount(i) :=0;
240: tmp_funding_bill_amount(i) :=0;
241:
242: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'two .....');
243:
244: tmp_bill_trans_bill_amount(i):= TO_NUMBER(p_bill_trans_bill_amount(i));
245: tmp_invproc_currency_code (i) := l_invproc_currency_code;
246: tmp_funding_currency_code(i) := l_funding_currency_code;
244: tmp_bill_trans_bill_amount(i):= TO_NUMBER(p_bill_trans_bill_amount(i));
245: tmp_invproc_currency_code (i) := l_invproc_currency_code;
246: tmp_funding_currency_code(i) := l_funding_currency_code;
247:
248: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'three .....');
249:
250: IF tmp_invproc_currency_type = 'FUNDING_CURRENCY' THEN
251:
252: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'three one .....');
248: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'three .....');
249:
250: IF tmp_invproc_currency_type = 'FUNDING_CURRENCY' THEN
251:
252: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'three one .....');
253: tmp_invproc_rate_type(i) := p_funding_rate_type(i);
254: tmp_invproc_rate_date(i) := tmp_funding_rate_date(i);
255: tmp_invproc_exchange_rate(i) := tmp_funding_exchange_rate(i);
256: tmp_invproc_currency_code(i) := l_invproc_currency_code;
254: tmp_invproc_rate_date(i) := tmp_funding_rate_date(i);
255: tmp_invproc_exchange_rate(i) := tmp_funding_exchange_rate(i);
256: tmp_invproc_currency_code(i) := l_invproc_currency_code;
257: ELSIF tmp_invproc_currency_type = 'PROJECT_CURRENCY' THEN
258: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'three two .....');
259:
260: tmp_invproc_rate_type(i) := p_project_rate_type(i);
261: tmp_invproc_rate_date(i) := tmp_project_rate_date(i);
262: tmp_invproc_exchange_rate(i) := tmp_project_exchange_rate(i);
261: tmp_invproc_rate_date(i) := tmp_project_rate_date(i);
262: tmp_invproc_exchange_rate(i) := tmp_project_exchange_rate(i);
263: tmp_invproc_currency_code(i) := p_project_currency_code(i);
264: ELSIF tmp_invproc_currency_type = 'PROJFUNC_CURRENCY' THEN
265: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'three three .....');
266: tmp_invproc_rate_type(i) := p_projfunc_rate_type(i);
267: tmp_invproc_rate_date(i) := tmp_projfunc_rate_date(i);
268: tmp_invproc_exchange_rate(i) := tmp_projfunc_exchange_rate(i);
269: tmp_invproc_currency_code(i) := p_projfunc_currency_code(i);
268: tmp_invproc_exchange_rate(i) := tmp_projfunc_exchange_rate(i);
269: tmp_invproc_currency_code(i) := p_projfunc_currency_code(i);
270: END IF;
271:
272: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'four .....');
273: /* Federal Changes */
274:
275: /* tmp_completion_date(i) := TO_DATE(p_completion_date(i), 'YYYY/MM/DD') ; */
276:
274:
275: /* tmp_completion_date(i) := TO_DATE(p_completion_date(i), 'YYYY/MM/DD') ; */
276:
277:
278: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'five .....');
279:
280: END LOOP;
281:
282: -- Convert the bill transaction to Project functional currency
280: END LOOP;
281:
282: -- Convert the bill transaction to Project functional currency
283: IF g1_debug_mode = 'Y' THEN
284: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Convert Bill Transaction To Project functional ' );
285: END IF;
286:
287: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
288: p_from_currency_tab => p_bill_trans_currency_code,
304:
305: if (l_project_currency_code = l_projfunc_currency_code ) then
306:
307: IF g1_debug_mode = 'Y' THEN
308: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Proj curr = Proj func currency ..Copy ' );
309: END IF;
310:
311: FOR i IN tmp_status_projfunc_tab.FIRST..tmp_status_projfunc_tab.LAST LOOP
312:
321: else
322: -- Convert the bill transaction to Project currency
323:
324: IF g1_debug_mode = 'Y' THEN
325: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Convert Bill Transaction To Project ' );
326: END IF;
327:
328: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
329: p_from_currency_tab => p_bill_trans_currency_code,
353:
354: if l_funding_currency_code = l_projfunc_currency_code then
355:
356: IF g1_debug_mode = 'Y' THEN
357: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Write on - funding curr = Proj func currency ..Copy ' );
358: END IF;
359:
360: FOR i IN tmp_status_projfunc_tab.FIRST..tmp_status_projfunc_tab.LAST LOOP
361:
369:
370: elsif l_funding_currency_code = l_project_currency_code then
371:
372: IF g1_debug_mode = 'Y' THEN
373: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Write on - funding curr = Proj currency ..Copy ' );
374: END IF;
375:
376: FOR i IN tmp_status_project_tab.FIRST..tmp_status_project_tab.LAST LOOP
377:
385:
386: else
387:
388: IF g1_debug_mode = 'Y' THEN
389: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Convert Bill Transaction To Funding Write-ON ' );
390: END IF;
391:
392: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
393: p_from_currency_tab => p_bill_trans_currency_code,
413:
414: IF l_invproc_currency_code = l_projfunc_currency_code THEN
415:
416: IF g1_debug_mode = 'Y' THEN
417: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'invproc curr = Proj func currency ..Copy ' );
418: END IF;
419:
420: FOR i IN tmp_status_projfunc_tab.FIRST..tmp_status_projfunc_tab.LAST LOOP
421:
428:
429: ELSIF l_invproc_currency_code = l_project_currency_code THEN
430:
431: IF g1_debug_mode = 'Y' THEN
432: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'invproc curr = Project currency ..Copy ' );
433: END IF;
434:
435: FOR i IN tmp_status_project_tab.FIRST..tmp_status_project_tab.LAST LOOP
436:
443:
444: ELSE
445:
446: IF g1_debug_mode = 'Y' THEN
447: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Convert Bill Transaction To Funding -Invproc ' );
448: END IF;
449:
450: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
451: p_from_currency_tab => p_bill_trans_currency_code,
474: -- Invoice Processing is Funding Currency
475: -- Convert the Bill Transaction to Invoice Processing Currency
476:
477: IF g1_debug_mode = 'Y' THEN
478: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Convert Bill Transaction To Funding ' );
479: END IF;
480:
481: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
482: p_from_currency_tab => p_bill_trans_currency_code,
581:
582: -- Log Messages for Converted Amounts
583:
584: IF g1_debug_mode = 'Y' THEN
585: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Id ' || p_project_id);
586: END IF;
587:
588: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
589: IF g1_debug_mode = 'Y' THEN
586: END IF;
587:
588: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
589: IF g1_debug_mode = 'Y' THEN
590: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Event Num ' || P_event_num(i));
591: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Task Id ' || P_task_id(i));
592: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Amount ' || tmp_project_bill_amount(i));
593: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Func Amount ' || tmp_projfunc_bill_amount(i));
594: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'InvProc Amount ' || tmp_invproc_bill_amount(i));
587:
588: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
589: IF g1_debug_mode = 'Y' THEN
590: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Event Num ' || P_event_num(i));
591: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Task Id ' || P_task_id(i));
592: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Amount ' || tmp_project_bill_amount(i));
593: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Func Amount ' || tmp_projfunc_bill_amount(i));
594: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'InvProc Amount ' || tmp_invproc_bill_amount(i));
595: END IF;
588: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
589: IF g1_debug_mode = 'Y' THEN
590: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Event Num ' || P_event_num(i));
591: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Task Id ' || P_task_id(i));
592: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Amount ' || tmp_project_bill_amount(i));
593: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Func Amount ' || tmp_projfunc_bill_amount(i));
594: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'InvProc Amount ' || tmp_invproc_bill_amount(i));
595: END IF;
596: END LOOP;
589: IF g1_debug_mode = 'Y' THEN
590: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Event Num ' || P_event_num(i));
591: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Task Id ' || P_task_id(i));
592: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Amount ' || tmp_project_bill_amount(i));
593: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Func Amount ' || tmp_projfunc_bill_amount(i));
594: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'InvProc Amount ' || tmp_invproc_bill_amount(i));
595: END IF;
596: END LOOP;
597:
590: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Event Num ' || P_event_num(i));
591: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Task Id ' || P_task_id(i));
592: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Amount ' || tmp_project_bill_amount(i));
593: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'Project Func Amount ' || tmp_projfunc_bill_amount(i));
594: PA_MCB_INVOICE_PKG.log_message('Event_Convert_amount_bulk: ' || 'InvProc Amount ' || tmp_invproc_bill_amount(i));
595: END IF;
596: END LOOP;
597:
598:
626: AND NVL(task_id,0) = NVL(p_task_id(i),0)
627: AND event_num = p_event_num(i);
628:
629: IF g1_debug_mode = 'Y' THEN
630: PA_MCB_INVOICE_PKG.log_message('No of Rows Updated ' || sql%rowcount);
631: END IF;
632: -- Convert the Data Type for BTC and IPC
633:
634: FOR i IN p_event_num.FIRST..p_event_num.LAST LOOP
655:
656: When Others Then
657:
658: IF g1_debug_mode = 'Y' THEN
659: PA_MCB_INVOICE_PKG.log_message('Error in Event_Convert_amount_bulk ' || sqlerrm);
660: END IF;
661: x_return_status := sqlerrm( sqlcode );
662:
663: END Event_Convert_amount_bulk;
724:
725: BEGIN
726:
727: IF g1_debug_mode = 'Y' THEN
728: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount');
729: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Project Id '||p_project_id);
730: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Agreement Id '||p_agreement_id);
731: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Task Id '||p_task_id);
732: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Event Num '||p_event_num);
725: BEGIN
726:
727: IF g1_debug_mode = 'Y' THEN
728: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount');
729: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Project Id '||p_project_id);
730: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Agreement Id '||p_agreement_id);
731: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Task Id '||p_task_id);
732: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Event Num '||p_event_num);
733: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Invproc_Bill_Amount '||p_invproc_bill_amount);
726:
727: IF g1_debug_mode = 'Y' THEN
728: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount');
729: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Project Id '||p_project_id);
730: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Agreement Id '||p_agreement_id);
731: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Task Id '||p_task_id);
732: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Event Num '||p_event_num);
733: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Invproc_Bill_Amount '||p_invproc_bill_amount);
734: END IF;
727: IF g1_debug_mode = 'Y' THEN
728: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount');
729: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Project Id '||p_project_id);
730: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Agreement Id '||p_agreement_id);
731: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Task Id '||p_task_id);
732: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Event Num '||p_event_num);
733: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Invproc_Bill_Amount '||p_invproc_bill_amount);
734: END IF;
735:
728: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount');
729: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Project Id '||p_project_id);
730: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Agreement Id '||p_agreement_id);
731: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Task Id '||p_task_id);
732: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Event Num '||p_event_num);
733: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Invproc_Bill_Amount '||p_invproc_bill_amount);
734: END IF;
735:
736: tmp_invproc_bill_amount := TO_NUMBER(NVL(p_invproc_bill_amount,0));
729: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Project Id '||p_project_id);
730: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Agreement Id '||p_agreement_id);
731: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Task Id '||p_task_id);
732: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Event Num '||p_event_num);
733: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Invproc_Bill_Amount '||p_invproc_bill_amount);
734: END IF;
735:
736: tmp_invproc_bill_amount := TO_NUMBER(NVL(p_invproc_bill_amount,0));
737:
851: AND evt.project_id = pr.project_id
852: AND evt.event_type = etyp.event_type;
853:
854: IF g1_debug_mode = 'Y' THEN
855: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event IPC Amount : ' || tmp_invproc_event_amount);
856: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PC Amount : ' || tmp_project_event_amount);
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
852: AND evt.event_type = etyp.event_type;
853:
854: IF g1_debug_mode = 'Y' THEN
855: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event IPC Amount : ' || tmp_invproc_event_amount);
856: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PC Amount : ' || tmp_project_event_amount);
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
860: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Invoice Inv Proc Amount : ' || tmp_invproc_bill_amount);
853:
854: IF g1_debug_mode = 'Y' THEN
855: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event IPC Amount : ' || tmp_invproc_event_amount);
856: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PC Amount : ' || tmp_project_event_amount);
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
860: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Invoice Inv Proc Amount : ' || tmp_invproc_bill_amount);
861: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Inv Proc Currency Type : ' || tmp_invproc_currency_type);
854: IF g1_debug_mode = 'Y' THEN
855: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event IPC Amount : ' || tmp_invproc_event_amount);
856: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PC Amount : ' || tmp_project_event_amount);
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
860: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Invoice Inv Proc Amount : ' || tmp_invproc_bill_amount);
861: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Inv Proc Currency Type : ' || tmp_invproc_currency_type);
862: END IF;
855: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event IPC Amount : ' || tmp_invproc_event_amount);
856: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PC Amount : ' || tmp_project_event_amount);
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
860: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Invoice Inv Proc Amount : ' || tmp_invproc_bill_amount);
861: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Inv Proc Currency Type : ' || tmp_invproc_currency_type);
862: END IF;
863:
856: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PC Amount : ' || tmp_project_event_amount);
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
860: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Invoice Inv Proc Amount : ' || tmp_invproc_bill_amount);
861: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Inv Proc Currency Type : ' || tmp_invproc_currency_type);
862: END IF;
863:
864: -- Calculating Amounts
857: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event PFC Amount : ' || tmp_projfunc_event_amount);
858: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Bill Trans Amount : ' || tmp_bill_trans_event_amount);
859: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Event Inv Proc Amount : ' || tmp_invproc_event_amount);
860: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Invoice Inv Proc Amount : ' || tmp_invproc_bill_amount);
861: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Inv Proc Currency Type : ' || tmp_invproc_currency_type);
862: END IF;
863:
864: -- Calculating Amounts
865:
865:
866: IF nvl(tmp_invproc_currency_code,'0') = nvl(tmp_bill_trans_currency_code,'0') THEN
867:
868: IF g1_debug_mode = 'Y' THEN
869: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_invproc_currency_code = tmp_bill_trans_currency_code');
870: END IF;
871:
872: tmp_bill_trans_inv_amount := nvl(p_invproc_bill_amount,0);
873:
874: elsif tmp_invproc_currency_type= 'PROJFUNC_CURRENCY' AND
875: nvl(tmp_bill_trans_currency_code,'0') <> nvl(tmp_projfunc_currency_code,'0') THEN
876:
877: IF g1_debug_mode = 'Y' THEN
878: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_invproc_currency_type = PROJFUNC_CURRENCY and tmp_bill_trans_currency_code <> tmp_projfunc_currency_code ');
879: END IF;
880:
881: /* Bug 3548844: If the event is fully billed, use the trans amount from event
882: do not rederive the transaction amount */
901: elsif tmp_invproc_currency_type= 'PROJECT_CURRENCY' AND
902: nvl(tmp_bill_trans_currency_code,'0') <> nvl(tmp_project_currency_code,'0') THEN
903:
904: IF g1_debug_mode = 'Y' THEN
905: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_invproc_currency_type = PROJECT_CURRENCY and tmp_bill_trans_currency_code <> tmp_project_currency_code ');
906: END IF;
907: /* Bug 3548844: If the event is fully billed, use the trans amount from event
908: do not rederive the transaction amount */
909:
924: END IF; --- Added for bug 3548844
925: else
926:
927: IF g1_debug_mode = 'Y' THEN
928: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_invproc_currency_code <> tmp_bill_trans_currency_code');
929: END IF;
930:
931: /* Bug 3548844: If the event is fully billed, use the trans amount from event
932: do not rederive the transaction amount */
948:
949: end if;
950:
951: IF g1_debug_mode = 'Y' THEN
952: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_bill_trans_inv_amount : ' || tmp_bill_trans_inv_amount);
953: END IF;
954:
955: x_bill_trans_inv_amount := TO_CHAR(tmp_bill_trans_inv_amount);
956:
954:
955: x_bill_trans_inv_amount := TO_CHAR(tmp_bill_trans_inv_amount);
956:
957: IF g1_debug_mode = 'Y' THEN
958: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_bill_trans_inv_amount : ' || tmp_bill_trans_inv_amount);
959: END IF;
960:
961: if nvl(tmp_projfunc_currency_code,'0') = nvl(tmp_bill_trans_currency_code,'0') then
962:
965: else
966: /* added for bug 2784321 */
967: if nvl(tmp_projfunc_currency_code,'0') = nvl(tmp_invproc_currency_code,'0') then
968: IF g1_debug_mode = 'Y' THEN
969: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_projfunc_currency_code <> tmp_bill_trans_currency_code AND tmp_projfunc_currency_code = tmp_invproc_currency_code');
970: END IF;
971:
972: x_projfunc_bill_amount := p_invproc_bill_amount;
973: else
971:
972: x_projfunc_bill_amount := p_invproc_bill_amount;
973: else
974: IF g1_debug_mode = 'Y' THEN
975: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_projfunc_currency_code <> tmp_bill_trans_currency_code');
976: END IF;
977:
978: x_projfunc_bill_amount := TO_CHAR ( pa_multi_currency_billing.round_trans_currency_amt(
979: NVL(tmp_projfunc_event_amount,0) *
982: end if;/* Added for bug 2784321 */
983: end if ;
984:
985: IF g1_debug_mode = 'Y' THEN
986: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' x_projfunc_bill_amount : ' || x_projfunc_bill_amount);
987: END IF;
988:
989:
990: if nvl(tmp_project_currency_code,'0') = nvl(tmp_bill_trans_currency_code,'0') then
993:
994: elsif nvl(tmp_project_currency_code,'0') = nvl(tmp_projfunc_currency_code,'0') then
995:
996: IF g1_debug_mode = 'Y' THEN
997: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' tmp_project_currency_code <> tmp_projfunc_currency_code');
998: END IF;
999:
1000: x_project_bill_amount := x_projfunc_bill_amount ;
1001:
1008:
1009: end if;
1010:
1011: IF g1_debug_mode = 'Y' THEN
1012: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' x_project_bill_amount : '|| x_project_bill_amount);
1013: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Line Bill Trans Amount : ' || tmp_bill_trans_inv_amount);
1014: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Project Amount : ' || x_project_bill_amount);
1015: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_projfunc Amount: ' || x_projfunc_bill_amount);
1016: END IF;
1009: end if;
1010:
1011: IF g1_debug_mode = 'Y' THEN
1012: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' x_project_bill_amount : '|| x_project_bill_amount);
1013: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Line Bill Trans Amount : ' || tmp_bill_trans_inv_amount);
1014: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Project Amount : ' || x_project_bill_amount);
1015: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_projfunc Amount: ' || x_projfunc_bill_amount);
1016: END IF;
1017:
1010:
1011: IF g1_debug_mode = 'Y' THEN
1012: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' x_project_bill_amount : '|| x_project_bill_amount);
1013: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Line Bill Trans Amount : ' || tmp_bill_trans_inv_amount);
1014: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Project Amount : ' || x_project_bill_amount);
1015: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_projfunc Amount: ' || x_projfunc_bill_amount);
1016: END IF;
1017:
1018: if nvl(tmp_funding_currency_code,'0') = nvl(tmp_bill_trans_currency_code,'0') then
1011: IF g1_debug_mode = 'Y' THEN
1012: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' x_project_bill_amount : '|| x_project_bill_amount);
1013: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Line Bill Trans Amount : ' || tmp_bill_trans_inv_amount);
1014: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Project Amount : ' || x_project_bill_amount);
1015: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_projfunc Amount: ' || x_projfunc_bill_amount);
1016: END IF;
1017:
1018: if nvl(tmp_funding_currency_code,'0') = nvl(tmp_bill_trans_currency_code,'0') then
1019:
1023: x_funding_rate_type := NULL;
1024: x_funding_rate_date := NULL;
1025:
1026: IF g1_debug_mode = 'Y' THEN
1027: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_bill_trans_currency_code ');
1028: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1029: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_bill_trans_inv_amount = ' || x_bill_trans_inv_amount);
1030: END IF;
1031:
1024: x_funding_rate_date := NULL;
1025:
1026: IF g1_debug_mode = 'Y' THEN
1027: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_bill_trans_currency_code ');
1028: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1029: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_bill_trans_inv_amount = ' || x_bill_trans_inv_amount);
1030: END IF;
1031:
1032: elsif nvl(tmp_funding_currency_code,'0') = nvl(tmp_projfunc_currency_code,'0') then
1025:
1026: IF g1_debug_mode = 'Y' THEN
1027: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_bill_trans_currency_code ');
1028: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1029: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_bill_trans_inv_amount = ' || x_bill_trans_inv_amount);
1030: END IF;
1031:
1032: elsif nvl(tmp_funding_currency_code,'0') = nvl(tmp_projfunc_currency_code,'0') then
1033:
1037: x_funding_rate_type := tmp_projfunc_rate_type;
1038: x_funding_rate_date := TO_CHAR(tmp_projfunc_inv_rate_date,'YYYY/MM/DD');
1039:
1040: IF g1_debug_mode = 'Y' THEN
1041: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_projfunc_currency_code ');
1042: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1043: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_projfunc_bill_amount = ' || x_projfunc_bill_amount);
1044: END IF;
1045:
1038: x_funding_rate_date := TO_CHAR(tmp_projfunc_inv_rate_date,'YYYY/MM/DD');
1039:
1040: IF g1_debug_mode = 'Y' THEN
1041: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_projfunc_currency_code ');
1042: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1043: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_projfunc_bill_amount = ' || x_projfunc_bill_amount);
1044: END IF;
1045:
1046: elsif nvl(tmp_funding_currency_code,'0') = nvl(tmp_project_currency_code,'0') then
1039:
1040: IF g1_debug_mode = 'Y' THEN
1041: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_projfunc_currency_code ');
1042: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1043: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_projfunc_bill_amount = ' || x_projfunc_bill_amount);
1044: END IF;
1045:
1046: elsif nvl(tmp_funding_currency_code,'0') = nvl(tmp_project_currency_code,'0') then
1047:
1051: x_funding_rate_type := tmp_project_rate_type;
1052: x_funding_rate_date := TO_CHAR(tmp_project_inv_rate_date,'YYYY/MM/DD');
1053:
1054: IF g1_debug_mode = 'Y' THEN
1055: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_project_currency_code ');
1056: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1057: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_project_bill_amount = ' || x_project_bill_amount);
1058: END IF;
1059:
1052: x_funding_rate_date := TO_CHAR(tmp_project_inv_rate_date,'YYYY/MM/DD');
1053:
1054: IF g1_debug_mode = 'Y' THEN
1055: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_project_currency_code ');
1056: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1057: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_project_bill_amount = ' || x_project_bill_amount);
1058: END IF;
1059:
1060: else
1053:
1054: IF g1_debug_mode = 'Y' THEN
1055: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'tmp_funding_currency_code = tmp_project_currency_code ');
1056: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_funding_bill_amount = ' || x_funding_bill_amount);
1057: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'x_project_bill_amount = ' || x_project_bill_amount);
1058: END IF;
1059:
1060: else
1061:
1072: tmp_numerator_tab(1) :=0;
1073: tmp_user_validate_flag_tab(1) :='N';
1074:
1075: IF g1_debug_mode = 'Y' THEN
1076: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Call convert_amount_bulk Using : ');
1077: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'From Currency Code : ' || tmp_bill_trans_currency_code);
1078: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' To Currency Code : ' || tmp_funding_currency_code);
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1073: tmp_user_validate_flag_tab(1) :='N';
1074:
1075: IF g1_debug_mode = 'Y' THEN
1076: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Call convert_amount_bulk Using : ');
1077: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'From Currency Code : ' || tmp_bill_trans_currency_code);
1078: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' To Currency Code : ' || tmp_funding_currency_code);
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1081: nvl(to_char(tmp_funding_rate_date, 'YYYY/MM/DD'), pa_billing.globvars.invoicedate));
1074:
1075: IF g1_debug_mode = 'Y' THEN
1076: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Call convert_amount_bulk Using : ');
1077: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'From Currency Code : ' || tmp_bill_trans_currency_code);
1078: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' To Currency Code : ' || tmp_funding_currency_code);
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1081: nvl(to_char(tmp_funding_rate_date, 'YYYY/MM/DD'), pa_billing.globvars.invoicedate));
1082: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate : ' || tmp_funding_exchange_rate);
1075: IF g1_debug_mode = 'Y' THEN
1076: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Call convert_amount_bulk Using : ');
1077: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'From Currency Code : ' || tmp_bill_trans_currency_code);
1078: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' To Currency Code : ' || tmp_funding_currency_code);
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1081: nvl(to_char(tmp_funding_rate_date, 'YYYY/MM/DD'), pa_billing.globvars.invoicedate));
1082: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate : ' || tmp_funding_exchange_rate);
1083: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' From Amount : ' || tmp_bill_trans_inv_amount);
1076: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Call convert_amount_bulk Using : ');
1077: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'From Currency Code : ' || tmp_bill_trans_currency_code);
1078: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' To Currency Code : ' || tmp_funding_currency_code);
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1081: nvl(to_char(tmp_funding_rate_date, 'YYYY/MM/DD'), pa_billing.globvars.invoicedate));
1082: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate : ' || tmp_funding_exchange_rate);
1083: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' From Amount : ' || tmp_bill_trans_inv_amount);
1084: END IF;
1078: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' To Currency Code : ' || tmp_funding_currency_code);
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1081: nvl(to_char(tmp_funding_rate_date, 'YYYY/MM/DD'), pa_billing.globvars.invoicedate));
1082: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate : ' || tmp_funding_exchange_rate);
1083: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' From Amount : ' || tmp_bill_trans_inv_amount);
1084: END IF;
1085:
1086: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
1079: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate Type : ' || tmp_funding_rate_type);
1080: PA_MCB_INVOICE_PKG.log_message(' Ex Rate Date : ' ||
1081: nvl(to_char(tmp_funding_rate_date, 'YYYY/MM/DD'), pa_billing.globvars.invoicedate));
1082: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Ex Rate : ' || tmp_funding_exchange_rate);
1083: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' From Amount : ' || tmp_bill_trans_inv_amount);
1084: END IF;
1085:
1086: PA_MULTI_CURRENCY_BILLING.convert_amount_bulk (
1087: p_from_currency_tab => tmp_bill_trans_currency_tab,
1098: p_conversion_between => 'BTC_FC',
1099: p_cache_flag => 'N');
1100:
1101: IF g1_debug_mode = 'Y' THEN
1102: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' After Convert_Bulk Call ' );
1103: END IF;
1104:
1105: IF NVL(tmp_funding_bill_amount_tab(1),0) <> 0 THEN
1106:
1104:
1105: IF NVL(tmp_funding_bill_amount_tab(1),0) <> 0 THEN
1106:
1107: IF g1_debug_mode = 'Y' THEN
1108: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Assign Funding Amount ' );
1109: END IF;
1110: x_funding_bill_amount := TO_CHAR(tmp_funding_bill_amount_tab(1));
1111:
1112: IF g1_debug_mode = 'Y' THEN
1109: END IF;
1110: x_funding_bill_amount := TO_CHAR(tmp_funding_bill_amount_tab(1));
1111:
1112: IF g1_debug_mode = 'Y' THEN
1113: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Assign Funding Ex Date ' );
1114: END IF;
1115: --x_funding_rate_date := TO_CHAR(NVL(tmp_funding_rate_date_tab(1),SYSDATE));
1116: x_funding_rate_date := TO_CHAR(tmp_funding_rate_date_tab(1),'YYYY/MM/DD');
1117:
1115: --x_funding_rate_date := TO_CHAR(NVL(tmp_funding_rate_date_tab(1),SYSDATE));
1116: x_funding_rate_date := TO_CHAR(tmp_funding_rate_date_tab(1),'YYYY/MM/DD');
1117:
1118: IF g1_debug_mode = 'Y' THEN
1119: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Assign Funding Ex Rate ' );
1120: END IF;
1121: -- x_funding_exchange_rate := TO_CHAR(round(tmp_funding_exchange_rate_tab(1),5));
1122: x_funding_exchange_rate := TO_CHAR(tmp_funding_exchange_rate_tab(1));
1123:
1121: -- x_funding_exchange_rate := TO_CHAR(round(tmp_funding_exchange_rate_tab(1),5));
1122: x_funding_exchange_rate := TO_CHAR(tmp_funding_exchange_rate_tab(1));
1123:
1124: IF g1_debug_mode = 'Y' THEN
1125: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || ' Assign Funding Ex Rate type' );
1126: END IF;
1127: x_funding_rate_type := tmp_funding_rate_type_tab(1);
1128: x_status_code := 'N';
1129: ELSE
1133:
1134: END IF;
1135:
1136: IF g1_debug_mode = 'Y' THEN
1137: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Amount : ' || x_funding_bill_amount);
1138: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate : ' || x_funding_exchange_rate);
1139: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate type : ' || x_funding_rate_type);
1140: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate Date : ' || x_funding_rate_date);
1141: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Status : ' || x_status_code);
1134: END IF;
1135:
1136: IF g1_debug_mode = 'Y' THEN
1137: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Amount : ' || x_funding_bill_amount);
1138: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate : ' || x_funding_exchange_rate);
1139: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate type : ' || x_funding_rate_type);
1140: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate Date : ' || x_funding_rate_date);
1141: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Status : ' || x_status_code);
1142: END IF;
1135:
1136: IF g1_debug_mode = 'Y' THEN
1137: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Amount : ' || x_funding_bill_amount);
1138: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate : ' || x_funding_exchange_rate);
1139: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate type : ' || x_funding_rate_type);
1140: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate Date : ' || x_funding_rate_date);
1141: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Status : ' || x_status_code);
1142: END IF;
1143:
1136: IF g1_debug_mode = 'Y' THEN
1137: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Amount : ' || x_funding_bill_amount);
1138: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate : ' || x_funding_exchange_rate);
1139: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate type : ' || x_funding_rate_type);
1140: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate Date : ' || x_funding_rate_date);
1141: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Status : ' || x_status_code);
1142: END IF;
1143:
1144: END;
1137: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Amount : ' || x_funding_bill_amount);
1138: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate : ' || x_funding_exchange_rate);
1139: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate type : ' || x_funding_rate_type);
1140: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Rate Date : ' || x_funding_rate_date);
1141: PA_MCB_INVOICE_PKG.log_message('Convert_Line_Event_Amount: ' || 'Convert_Line_Funding Status : ' || x_status_code);
1142: END IF;
1143:
1144: END;
1145: EXCEPTION
1153: x_funding_exchange_rate := NULL; --NOCOPY
1154: x_funding_rate_type := NULL; --NOCOPY
1155: x_bill_trans_inv_amount := NULL; --NOCOPY
1156: IF g1_debug_mode = 'Y' THEN
1157: PA_MCB_INVOICE_PKG.log_message('Error in Convert_line_event_amount' || sqlerrm);
1158: END IF;
1159: x_return_status := sqlerrm( sqlcode );
1160:
1161: -- RAISE;
1188:
1189: BEGIN
1190:
1191: IF g1_debug_mode = 'Y' THEN
1192: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes');
1193: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Currency : ' || p_bill_trans_currency_code);
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1189: BEGIN
1190:
1191: IF g1_debug_mode = 'Y' THEN
1192: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes');
1193: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Currency : ' || p_bill_trans_currency_code);
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1197: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Date : ' || p_funding_rate_date);
1190:
1191: IF g1_debug_mode = 'Y' THEN
1192: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes');
1193: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Currency : ' || p_bill_trans_currency_code);
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1197: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Date : ' || p_funding_rate_date);
1198: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate : ' || p_funding_exchange_rate);
1191: IF g1_debug_mode = 'Y' THEN
1192: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes');
1193: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Currency : ' || p_bill_trans_currency_code);
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1197: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Date : ' || p_funding_rate_date);
1198: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate : ' || p_funding_exchange_rate);
1199: END IF;
1192: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes');
1193: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Currency : ' || p_bill_trans_currency_code);
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1197: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Date : ' || p_funding_rate_date);
1198: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate : ' || p_funding_exchange_rate);
1199: END IF;
1200:
1193: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Currency : ' || p_bill_trans_currency_code);
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1197: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Date : ' || p_funding_rate_date);
1198: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate : ' || p_funding_exchange_rate);
1199: END IF;
1200:
1201: tmp_bill_trans_currency_tab(1) := p_bill_trans_currency_code;
1194: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Bill Trans Amount : ' || p_bill_trans_bill_amount);
1195: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Currency : ' || p_funding_currency_code);
1196: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Type : ' || p_funding_rate_type);
1197: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate Date : ' || p_funding_rate_date);
1198: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Rate : ' || p_funding_exchange_rate);
1199: END IF;
1200:
1201: tmp_bill_trans_currency_tab(1) := p_bill_trans_currency_code;
1202: tmp_bill_trans_bill_amount_tab(1) := p_bill_trans_bill_amount;
1233: x_funding_bill_amount :=0 ;
1234: x_status_code :='Y';
1235: END IF;
1236: IF g1_debug_mode = 'Y' THEN
1237: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Tab Amount : ' || tmp_funding_bill_amount_tab(1));
1238: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Amount : ' || x_funding_bill_amount);
1239: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Status : ' || x_status_code);
1240: END IF;
1241:
1234: x_status_code :='Y';
1235: END IF;
1236: IF g1_debug_mode = 'Y' THEN
1237: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Tab Amount : ' || tmp_funding_bill_amount_tab(1));
1238: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Amount : ' || x_funding_bill_amount);
1239: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Status : ' || x_status_code);
1240: END IF;
1241:
1242: EXCEPTION
1235: END IF;
1236: IF g1_debug_mode = 'Y' THEN
1237: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Tab Amount : ' || tmp_funding_bill_amount_tab(1));
1238: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || 'Funding Amount : ' || x_funding_bill_amount);
1239: PA_MCB_INVOICE_PKG.log_message('Check_Funding_Conv_Attributes: ' || ' Status : ' || x_status_code);
1240: END IF;
1241:
1242: EXCEPTION
1243:
1243:
1244: When Others Then
1245: x_funding_bill_amount := NULL; --NOCOPY
1246: IF g1_debug_mode = 'Y' THEN
1247: PA_MCB_INVOICE_PKG.log_message('Error in Check_funding_conv_attributes ' || sqlerrm);
1248: END IF;
1249: x_return_status := sqlerrm( sqlcode );
1250:
1251: END Check_Funding_Conv_Attributes;
1270: x_debug_mode => G_DEBUG_MODE);
1271:
1272: pa_debug.G_Err_Stage :=' Start PLSQL Error ';
1273: IF g1_debug_mode = 'Y' THEN
1274: PA_MCB_INVOICE_PKG.log_message('Init: ' || pa_debug.G_Err_Stage);
1275: END IF;
1276:
1277:
1278: END Init;
1345: tmp_user_validate_flag_tab(1) := 'N';
1346:
1347:
1348:
1349: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: add for bug 5762081 ');
1350: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_project_id '|| to_char(p_project_id) );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1346:
1347:
1348:
1349: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: add for bug 5762081 ');
1350: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_project_id '|| to_char(p_project_id) );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1347:
1348:
1349: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: add for bug 5762081 ');
1350: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_project_id '|| to_char(p_project_id) );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1348:
1349: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: add for bug 5762081 ');
1350: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_project_id '|| to_char(p_project_id) );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1349: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: add for bug 5762081 ');
1350: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_project_id '|| to_char(p_project_id) );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1350: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_project_id '|| to_char(p_project_id) );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1351: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_draft_invoice_num '|| to_char(p_draft_invoice_num) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1352: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_use_pfc_flag '|| p_use_pfc_flag );
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1353: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_currency_code '|| p_pfc_currency_code);
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1354: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate '|| to_char(p_pfc_ex_rate) );
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1362: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_date '|| to_char(p_inv_rate_date,'DD-MON-YYYY' ));
1355: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_ex_rate_date_code '|| p_pfc_ex_rate_date_code);
1356: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_type '|| p_pfc_rate_type);
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1362: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_date '|| to_char(p_inv_rate_date,'DD-MON-YYYY' ));
1363: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_btc_currency_code '|| p_btc_currency_code );
1357: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_pfc_rate_date '|| to_char(p_pfc_rate_date,'DD-MON-YYYY' ) );
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1362: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_date '|| to_char(p_inv_rate_date,'DD-MON-YYYY' ));
1363: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_btc_currency_code '|| p_btc_currency_code );
1364: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_bill_thru_date '|| to_char(p_bill_thru_date,'DD-MON-YYYY' ));
1365:
1358: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_invproc_currency_code '|| p_invproc_currency_code );
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1362: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_date '|| to_char(p_inv_rate_date,'DD-MON-YYYY' ));
1363: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_btc_currency_code '|| p_btc_currency_code );
1364: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_bill_thru_date '|| to_char(p_bill_thru_date,'DD-MON-YYYY' ));
1365:
1366:
1359: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_ex_rate '|| to_char(p_inv_ex_rate) );
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1362: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_date '|| to_char(p_inv_rate_date,'DD-MON-YYYY' ));
1363: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_btc_currency_code '|| p_btc_currency_code );
1364: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_bill_thru_date '|| to_char(p_bill_thru_date,'DD-MON-YYYY' ));
1365:
1366:
1367:
1360:
1361: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_type '|| p_inv_rate_type );
1362: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_inv_rate_date '|| to_char(p_inv_rate_date,'DD-MON-YYYY' ));
1363: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_btc_currency_code '|| p_btc_currency_code );
1364: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' p_bill_thru_date '|| to_char(p_bill_thru_date,'DD-MON-YYYY' ));
1365:
1366:
1367:
1368: IF (p_btc_currency_code = p_pfc_currency_code)
1369: THEN
1370: --CASE : BTC=PFC:e.g IPC=GBP, PFC=BTC=USD or IPC=PFC=BTC=USD : Here we donot need AR attributes as the Inv currency is in terms of PFC
1371:
1372: IF g1_debug_mode = 'Y' THEN
1373: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' if (p_invproc_currency_code = p_btc_currency_code) AND (p_btc_currency_code = p_pfc_currency_code)');
1374: END IF;
1375: X_Status := NULL;
1376:
1377: UPDATE pa_draft_invoices_all
1386: --CASE : BTC<>IPC<>PFC or BTC=IPC<>PFC :Check for Use PFC for Receviabled Flag :e.g::e.g IPC=GBP, PFC=USD BTC=DKK
1387: --e.g : IPC=GBP,BTC=GBP,PFC=USD
1388:
1389: IF g1_debug_mode = 'Y' THEN
1390: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: ' || ' iF (p_invproc_currency_code <> p_pfc_currency_code) THEN ');
1391: END IF;
1392:
1393: IF p_use_pfc_flag <> 'Y' then --USE PFC FLAG CHECK
1394:
1466:
1467: --CASE: PFC=IPC<>BTC e.g :IPC=PFC=USD , BTC=GBP
1468:
1469: IF g1_debug_mode = 'Y' THEN
1470: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr ' || ' (p_invproc_currency_code <> p_btc_currency_code) AND (p_invproc_currency_code = p_pfc_currency_code) ');
1471:
1472: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || 'Invoice Transaction Rate is based on p_use_pfc_flag '); -- 5762081
1473: END IF;
1474:
1468:
1469: IF g1_debug_mode = 'Y' THEN
1470: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr ' || ' (p_invproc_currency_code <> p_btc_currency_code) AND (p_invproc_currency_code = p_pfc_currency_code) ');
1471:
1472: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || 'Invoice Transaction Rate is based on p_use_pfc_flag '); -- 5762081
1473: END IF;
1474:
1475:
1476: /* Begin Bug#5762081 */
1477:
1478: IF p_use_pfc_flag <> 'Y' then
1479:
1480:
1481: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || ' p_use_pfg_flag is not equal to Y ');
1482: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || ' update invtrans_rate details as User ');
1483:
1484: --The projfunc_inv_trans_rate derived in the procedure Inv_by_Bill_trans_Currency remains as it is
1485: -- We are going to use the same as derived rate with Rate Type ='User and Date= InvoiceDate
1478: IF p_use_pfc_flag <> 'Y' then
1479:
1480:
1481: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || ' p_use_pfg_flag is not equal to Y ');
1482: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || ' update invtrans_rate details as User ');
1483:
1484: --The projfunc_inv_trans_rate derived in the procedure Inv_by_Bill_trans_Currency remains as it is
1485: -- We are going to use the same as derived rate with Rate Type ='User and Date= InvoiceDate
1486:
1551:
1552: ELSE /* End Bug#5762081 */
1553:
1554:
1555: PA_MCB_INVOICE_PKG.log_message('cal_conversion_Attr: ' || 'Before the Select statement ');
1556:
1557: SELECT NVL(sum(dii.bill_trans_bill_amount),0)
1558: INTO tmp_bill_trans_amount_tab(1)
1559: FROM pa_draft_invoice_items dii
1586:
1587: -- Added the below code for Bug 4298230
1588:
1589: IF g1_debug_mode = 'Y' THEN
1590: PA_MCB_INVOICE_PKG.log_message('cal_conversion_attr: status :: '||tmp_status_tab(1));
1591: END IF;
1592:
1593: IF tmp_status_tab(1) = 'PA_NO_EXCH_RATE_EXISTS_PFC_BT' THEN
1594:
1622: EXCEPTION
1623: WHEN OTHERS
1624: THEN
1625: IF g1_debug_mode = 'Y' THEN
1626: PA_MCB_INVOICE_PKG.log_message('cal_Conversion_Attr: ' || ' Sql Error : ' || sqlerrm);
1627: END IF;
1628: RAISE;
1629: END Cal_Conversion_Attr;
1630:
1784:
1785:
1786: BEGIN
1787: IF g1_debug_mode = 'Y' THEN
1788: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Entering Invoice By Bill Transaction Currency API Type ');
1789: END IF;
1790: TmpInvLines.delete;
1791: TmpInvHeaders.delete;
1792:
1791: TmpInvHeaders.delete;
1792:
1793:
1794: IF g1_debug_mode = 'Y' THEN
1795: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Request Id : ' || p_request_id);
1796: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Project id : ' || p_project_id);
1797: END IF;
1798: /*For bug 4146846 -a) Obtaining the PFC attributes for the project one time
1799: b) Determing the IPC currency code */
1792:
1793:
1794: IF g1_debug_mode = 'Y' THEN
1795: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Request Id : ' || p_request_id);
1796: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Project id : ' || p_project_id);
1797: END IF;
1798: /*For bug 4146846 -a) Obtaining the PFC attributes for the project one time
1799: b) Determing the IPC currency code */
1800:
1837: -- Credit memo processing is done here
1838: FOR cm_rec IN cur_cm LOOP
1839:
1840: IF g1_debug_mode = 'Y' THEN
1841: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Credit memo processing ');
1842: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Invoice number : ' || cm_rec.draft_invoice_num);
1843: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Line number : ' || cm_rec.line_num);
1844: END IF;
1845:
1838: FOR cm_rec IN cur_cm LOOP
1839:
1840: IF g1_debug_mode = 'Y' THEN
1841: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Credit memo processing ');
1842: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Invoice number : ' || cm_rec.draft_invoice_num);
1843: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Line number : ' || cm_rec.line_num);
1844: END IF;
1845:
1846: /* Start of bug 4735682 */
1839:
1840: IF g1_debug_mode = 'Y' THEN
1841: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Credit memo processing ');
1842: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Invoice number : ' || cm_rec.draft_invoice_num);
1843: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Line number : ' || cm_rec.line_num);
1844: END IF;
1845:
1846: /* Start of bug 4735682 */
1847: IF cm_rec.draft_invoice_num <> inv_num_cached THEN
1853: where project_id = p_project_id
1854: and draft_invoice_num = inv_num_cached;
1855:
1856: IF g1_debug_mode = 'Y' THEN
1857: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Exchange rate retrival');
1858: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Using currency code: ' || l_head_inv_curr_code);
1859: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Using exchange rate: ' || l_head_inv_exch_rate);
1860: END IF;
1861: END IF;
1854: and draft_invoice_num = inv_num_cached;
1855:
1856: IF g1_debug_mode = 'Y' THEN
1857: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Exchange rate retrival');
1858: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Using currency code: ' || l_head_inv_curr_code);
1859: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Using exchange rate: ' || l_head_inv_exch_rate);
1860: END IF;
1861: END IF;
1862: /* Bug 4735682 ends */
1855:
1856: IF g1_debug_mode = 'Y' THEN
1857: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Exchange rate retrival');
1858: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Using currency code: ' || l_head_inv_curr_code);
1859: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: Using exchange rate: ' || l_head_inv_exch_rate);
1860: END IF;
1861: END IF;
1862: /* Bug 4735682 ends */
1863:
1912: FROM pa_draft_invoices_all
1913: WHERE project_id = p_project_id;
1914: END;
1915: IF g1_debug_mode = 'Y' THEN
1916: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Max Invoice Number: ' || Last_invoice_num);
1917: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Befor the cur_inv Loop .....');
1918: END IF;
1919:
1920:
1913: WHERE project_id = p_project_id;
1914: END;
1915: IF g1_debug_mode = 'Y' THEN
1916: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Max Invoice Number: ' || Last_invoice_num);
1917: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Befor the cur_inv Loop .....');
1918: END IF;
1919:
1920:
1921: FOR inv_rec IN cur_inv LOOP
1920:
1921: FOR inv_rec IN cur_inv LOOP
1922:
1923: IF g1_debug_mode = 'Y' THEN
1924: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Inside the cursor cur_inv Loop .....');
1925: END IF;
1926:
1927: IF inv_rec.draft_invoice_num <> NVL(previous_invoice_num,0) THEN
1928: -- Reset the previous values
1927: IF inv_rec.draft_invoice_num <> NVL(previous_invoice_num,0) THEN
1928: -- Reset the previous values
1929:
1930: IF g1_debug_mode = 'Y' THEN
1931: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Inside the din <> Prvs_din If ....');
1932: END IF;
1933:
1934: previous_btc :=inv_rec.bill_trans_currency_code;
1935: previous_invoice_num :=inv_rec.draft_invoice_num;
1952:
1953: IF inv_rec.bill_trans_currency_code <> previous_btc THEN
1954:
1955: IF g1_debug_mode = 'Y' THEN
1956: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Inside the BTC <> Prvs_btc If .....');
1957: END IF;
1958:
1959: -- If the bill transaction changes
1960: -- Create new invoice
1979: IF previous_btc = inv_rec.bill_trans_currency_code AND
1980: (split_invoice) THEN
1981:
1982: IF g1_debug_mode = 'Y' THEN
1983: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Inside the Prvs_btc = btc If .....');
1984: END IF;
1985:
1986: -- Add the invoice lines into new invoice lines array
1987: last_line_num := last_line_num +1;
1989: new_invoice_num := last_invoice_num;
1990: ELSE
1991:
1992: IF g1_debug_mode = 'Y' THEN
1993: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Inside the Prvs_btc = btc Else .....');
1994: END IF;
1995:
1996: last_line_num := last_line_num +1;
1997: new_line_num := last_line_num;
1997: new_line_num := last_line_num;
1998: END IF;
1999:
2000: IF g1_debug_mode = 'Y' THEN
2001: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Before assigning to TmpInvlines .....');
2002: END IF;
2003:
2004: TmpInvLines(j).current_draft_invoice_num := current_invoice_num;
2005: TmpInvLines(j).new_draft_invoice_num := new_invoice_num;
2008: TmpInvLines(j).event_num :=inv_rec.event_num;
2009: TmpInvLines(j).revenue_amount :=inv_rec.revenue_amount;
2010:
2011: IF g1_debug_mode = 'Y' THEN
2012: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' j = ' || j);
2013: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Inv : ' || TmpInvLines(j).current_draft_invoice_num);
2014: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Line Num : ' || TmpInvLines(j).current_line_num);
2015: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Inv : ' || TmpInvLines(j).new_draft_invoice_num);
2016: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Line Num : ' || TmpInvLines(j).new_line_num);
2009: TmpInvLines(j).revenue_amount :=inv_rec.revenue_amount;
2010:
2011: IF g1_debug_mode = 'Y' THEN
2012: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' j = ' || j);
2013: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Inv : ' || TmpInvLines(j).current_draft_invoice_num);
2014: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Line Num : ' || TmpInvLines(j).current_line_num);
2015: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Inv : ' || TmpInvLines(j).new_draft_invoice_num);
2016: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Line Num : ' || TmpInvLines(j).new_line_num);
2017: END IF;
2010:
2011: IF g1_debug_mode = 'Y' THEN
2012: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' j = ' || j);
2013: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Inv : ' || TmpInvLines(j).current_draft_invoice_num);
2014: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Line Num : ' || TmpInvLines(j).current_line_num);
2015: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Inv : ' || TmpInvLines(j).new_draft_invoice_num);
2016: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Line Num : ' || TmpInvLines(j).new_line_num);
2017: END IF;
2018:
2011: IF g1_debug_mode = 'Y' THEN
2012: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' j = ' || j);
2013: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Inv : ' || TmpInvLines(j).current_draft_invoice_num);
2014: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Line Num : ' || TmpInvLines(j).current_line_num);
2015: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Inv : ' || TmpInvLines(j).new_draft_invoice_num);
2016: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Line Num : ' || TmpInvLines(j).new_line_num);
2017: END IF;
2018:
2019: j:= j+1;
2012: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' j = ' || j);
2013: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Inv : ' || TmpInvLines(j).current_draft_invoice_num);
2014: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Old Line Num : ' || TmpInvLines(j).current_line_num);
2015: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Inv : ' || TmpInvLines(j).new_draft_invoice_num);
2016: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' New Line Num : ' || TmpInvLines(j).new_line_num);
2017: END IF;
2018:
2019: j:= j+1;
2020:
2021: END LOOP;
2022:
2023:
2024: IF g1_debug_mode = 'Y' THEN
2025: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Out side the cur_inv Loop .....');
2026: END IF;
2027:
2028: -- Process only if the project multi bill transaction currencies
2029:
2072: -- IF (TmpInvLines(k).current_draft_invoice_num <>
2073: -- TmpInvLInes(k).new_draft_invoice_num ) OR
2074: -- ( TmpInvLines(k).current_line_num <>
2075: -- TmpInvLines(k).new_line_num) THEN
2076: --PA_MCB_INVOICE_PKG.log_message('Update Invoice Lines ');
2077:
2078: -- PA_MCB_INVOICE_PKG.log_message('O Inv Num : ' || TmpInvLines(k).current_draft_invoice_num ||
2079: -- ' N Inv Num : ' || TmpInvLInes(k).new_draft_invoice_num ||
2080: -- ' O LineNum : ' || TmpInvLInes(k).current_line_num ||
2074: -- ( TmpInvLines(k).current_line_num <>
2075: -- TmpInvLines(k).new_line_num) THEN
2076: --PA_MCB_INVOICE_PKG.log_message('Update Invoice Lines ');
2077:
2078: -- PA_MCB_INVOICE_PKG.log_message('O Inv Num : ' || TmpInvLines(k).current_draft_invoice_num ||
2079: -- ' N Inv Num : ' || TmpInvLInes(k).new_draft_invoice_num ||
2080: -- ' O LineNum : ' || TmpInvLInes(k).current_line_num ||
2081: -- ' N Inv Num : ' || TmpInvLInes(k).new_line_num);
2082:
2159: AND dii.invoice_line_type <> 'NET ZERO ADJUSTMENT'
2160: AND dii.invoice_line_type <> 'RETENTION';
2161:
2162: IF g1_debug_mode = 'Y' THEN
2163: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || 'Old Inv Num : ' || TmpInvHeaders(k).current_draft_invoice_num ||
2164: ' New Inv Num : ' || TmpInvHeaders(k).new_draft_invoice_num ||
2165: ' New Inv Curr : ' || TmpInvHeaders(k).inv_currency_code ||
2166: ' Action Flag : ' || TmpInvHeaders(k).action_flag ||
2167: ' INV AMOUNT : ' || l_inv_amount ||
2226:
2227: IF TmpInvHeaders(k).action_flag ='I' THEN
2228:
2229: IF g1_debug_mode = 'Y' THEN
2230: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Insert New Invoices ');
2231: END IF;
2232:
2233: INSERT INTO pa_draft_invoices_all
2234: (project_id,
2400: /* Commented out for Retention enhancements
2401: IF NVL(TmpInvHeaders(k).retention_percentage,0) <> 0 THEN
2402:
2403: IF g1_debug_mode = 'Y' THEN
2404: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Insert Ret Line for New Invoice ');
2405: END IF;
2406:
2407: -- Insert new retention line
2408:
2516: ELSIF TmpInvHeaders(k).action_flag ='U' THEN
2517:
2518: ---- Existing Invoice, update BTC currency code and rates
2519: IF g1_debug_mode = 'Y' THEN
2520: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Update Existing Invoice ');
2521: END IF;
2522:
2523: UPDATE pa_draft_invoices_all
2524: set inv_currency_code = TmpInvHeaders(k).inv_currency_code,
2538:
2539: IF NVL(TmpInvHeaders(k).retention_percentage,0) <> 0 THEN
2540:
2541: IF g1_debug_mode = 'Y' THEN
2542: PA_MCB_INVOICE_PKG.log_message('Inv_by_Bill_Trans_Currency: ' || ' Update Existing Invoice Retention Line ');
2543: END IF;
2544:
2545: UPDATE pa_draft_invoice_items
2546: SET bill_trans_currency_code = TmpInvHeaders(k).inv_currency_code,
2612: p_bill_thru_date => l_bill_thru_date,
2613: x_status => l_ret_status);
2614: IF l_ret_status <> 'Y' THEN
2615: IF g1_debug_mode = 'Y' THEN
2616: PA_MCB_INVOICE_PKG.log_message(' Error in Inv_by_Bill_Trans_Currency '||sqlerrm(sqlcode));
2617: END IF;
2618: END IF;
2619:
2620: END LOOP;
2623:
2624: EXCEPTION
2625: WHEN others THEN
2626: IF g1_debug_mode = 'Y' THEN
2627: PA_MCB_INVOICE_PKG.log_message(' Error in Inv_by_Bill_Trans_Currency '||sqlerrm(sqlcode));
2628: END IF;
2629: x_return_status := sqlerrm( sqlcode );
2630:
2631: -- RAISE;
2629: x_return_status := sqlerrm( sqlcode );
2630:
2631: -- RAISE;
2632: END Inv_by_Bill_Trans_Currency;
2633: END PA_MCB_INVOICE_PKG;