DBA Data[Home] [Help]

APPS.PA_IC_INV_UTILS dependencies on PA_IC_INV_UTILS

Line 1: PACKAGE BODY PA_IC_INV_UTILS AS

1: PACKAGE BODY PA_IC_INV_UTILS AS
2: /* $Header: PAICUTLB.pls 120.3.12010000.3 2008/09/25 11:28:02 nkapling ship $ */
3: -- Package specification for utilities to be used in Intercompany
4: -- Invoice generation process
5: --

Line 83: pa_ic_inv_utils.log_message('Init: ' || pa_debug.G_Err_Stage);

79:
80: pa_debug.G_Err_Stage := 'Initializing IC Invoice';
81:
82: IF g1_debug_mode = 'Y' THEN
83: pa_ic_inv_utils.log_message('Init: ' || pa_debug.G_Err_Stage);
84: END IF;
85:
86: -- Initialize global variables for MRC
87:

Line 159: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || pa_debug.g_err_stage);

155: -- Get the highest invoice number for the project
156:
157: pa_debug.g_err_stage := ' In Get_Next_Draft_Inv_Num ';
158: IF g1_debug_mode = 'Y' THEN
159: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || pa_debug.g_err_stage);
160: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'opening cursor c_new_invoice_num');
161: END IF;
162:
163: Open c_new_invoice_num;

Line 160: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'opening cursor c_new_invoice_num');

156:
157: pa_debug.g_err_stage := ' In Get_Next_Draft_Inv_Num ';
158: IF g1_debug_mode = 'Y' THEN
159: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || pa_debug.g_err_stage);
160: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'opening cursor c_new_invoice_num');
161: END IF;
162:
163: Open c_new_invoice_num;
164:

Line 168: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'new_invoice_num = '||l_new_invoice_num);

164:
165: Fetch c_new_invoice_num into l_new_invoice_num;
166:
167: IF g1_debug_mode = 'Y' THEN
168: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'new_invoice_num = '||l_new_invoice_num);
169: END IF;
170:
171: Close c_new_invoice_num;
172:

Line 182: l_user_id := pa_ic_inv_utils.g_last_update_login;

178: -- else
179: -- return the highest invoice number for the project
180: --
181:
182: l_user_id := pa_ic_inv_utils.g_last_update_login;
183:
184: Open c_err_invoice_num;
185:
186: Fetch c_err_invoice_num into l_err_invoice_num;

Line 192: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'error invoice_num = '||l_err_invoice_num);

188:
189: IF c_err_invoice_num%FOUND THEN
190:
191: IF g1_debug_mode = 'Y' THEN
192: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'error invoice_num = '||l_err_invoice_num);
193: END IF;
194:
195: Update pa_draft_invoices
196: set draft_invoice_num = l_new_invoice_num,

Line 234: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'new invoice_num = '||l_new_invoice_num);

230:
231: Close c_err_invoice_num; /* bug 3865056 */
232:
233: IF g1_debug_mode = 'Y' THEN
234: pa_ic_inv_utils.log_message('Get_Next_Draft_Inv_Num: ' || 'new invoice_num = '||l_new_invoice_num);
235: END IF;
236:
237: EXCEPTION
238: when OTHERS then

Line 281: l_user_id := pa_ic_inv_utils.g_last_update_login;

277: l_program_id number;
278: l_user_id number;
279:
280: BEGIN
281: l_user_id := pa_ic_inv_utils.g_last_update_login;
282: l_program_id := pa_ic_inv_utils.g_program_id;
283: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
284: l_request_id := pa_ic_inv_utils.g_request_id;
285:

Line 282: l_program_id := pa_ic_inv_utils.g_program_id;

278: l_user_id number;
279:
280: BEGIN
281: l_user_id := pa_ic_inv_utils.g_last_update_login;
282: l_program_id := pa_ic_inv_utils.g_program_id;
283: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
284: l_request_id := pa_ic_inv_utils.g_request_id;
285:
286: pa_debug.g_err_stage := ' In Update_SPF ';

Line 283: l_program_application_id := pa_ic_inv_utils.g_program_application_id;

279:
280: BEGIN
281: l_user_id := pa_ic_inv_utils.g_last_update_login;
282: l_program_id := pa_ic_inv_utils.g_program_id;
283: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
284: l_request_id := pa_ic_inv_utils.g_request_id;
285:
286: pa_debug.g_err_stage := ' In Update_SPF ';
287: IF g1_debug_mode = 'Y' THEN

Line 284: l_request_id := pa_ic_inv_utils.g_request_id;

280: BEGIN
281: l_user_id := pa_ic_inv_utils.g_last_update_login;
282: l_program_id := pa_ic_inv_utils.g_program_id;
283: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
284: l_request_id := pa_ic_inv_utils.g_request_id;
285:
286: pa_debug.g_err_stage := ' In Update_SPF ';
287: IF g1_debug_mode = 'Y' THEN
288: pa_ic_inv_utils.log_message('Update_SPF: ' || pa_debug.g_err_stage);

Line 288: pa_ic_inv_utils.log_message('Update_SPF: ' || pa_debug.g_err_stage);

284: l_request_id := pa_ic_inv_utils.g_request_id;
285:
286: pa_debug.g_err_stage := ' In Update_SPF ';
287: IF g1_debug_mode = 'Y' THEN
288: pa_ic_inv_utils.log_message('Update_SPF: ' || pa_debug.g_err_stage);
289: END IF;
290:
291: SELECT SUM(amount)
292: INTO l_total_billed_amount

Line 313: pa_ic_inv_utils.log_message ('Updated SPF rows = '||SQL%rowcount);

309: where project_id = P_project_id
310: and agreement_id = P_agreement_id;
311:
312: IF g1_debug_mode = 'Y' THEN
313: pa_ic_inv_utils.log_message ('Updated SPF rows = '||SQL%rowcount);
314: pa_ic_inv_utils.log_message ('Update_SPF: ' || 'Updating SPF with amount = ' ||
315: l_total_billed_amount);
316: END IF;
317:

Line 314: pa_ic_inv_utils.log_message ('Update_SPF: ' || 'Updating SPF with amount = ' ||

310: and agreement_id = P_agreement_id;
311:
312: IF g1_debug_mode = 'Y' THEN
313: pa_ic_inv_utils.log_message ('Updated SPF rows = '||SQL%rowcount);
314: pa_ic_inv_utils.log_message ('Update_SPF: ' || 'Updating SPF with amount = ' ||
315: l_total_billed_amount);
316: END IF;
317:
318:

Line 352: l_user_id := pa_ic_inv_utils.g_last_update_login;

348: l_rejection_reason varchar2(80);
349:
350: BEGIN
351:
352: l_user_id := pa_ic_inv_utils.g_last_update_login;
353: l_program_id := pa_ic_inv_utils.g_program_id;
354: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
355: l_request_id := pa_ic_inv_utils.g_request_id;
356:

Line 353: l_program_id := pa_ic_inv_utils.g_program_id;

349:
350: BEGIN
351:
352: l_user_id := pa_ic_inv_utils.g_last_update_login;
353: l_program_id := pa_ic_inv_utils.g_program_id;
354: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
355: l_request_id := pa_ic_inv_utils.g_request_id;
356:
357: /* Fix for bug 7034356 starts here */

Line 354: l_program_application_id := pa_ic_inv_utils.g_program_application_id;

350: BEGIN
351:
352: l_user_id := pa_ic_inv_utils.g_last_update_login;
353: l_program_id := pa_ic_inv_utils.g_program_id;
354: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
355: l_request_id := pa_ic_inv_utils.g_request_id;
356:
357: /* Fix for bug 7034356 starts here */
358: IF (P_REJN_LOOKUP_CODE = 'NO_INV_LINES') THEN

Line 355: l_request_id := pa_ic_inv_utils.g_request_id;

351:
352: l_user_id := pa_ic_inv_utils.g_last_update_login;
353: l_program_id := pa_ic_inv_utils.g_program_id;
354: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
355: l_request_id := pa_ic_inv_utils.g_request_id;
356:
357: /* Fix for bug 7034356 starts here */
358: IF (P_REJN_LOOKUP_CODE = 'NO_INV_LINES') THEN
359: SELECT COUNT(*)

Line 367: pa_ic_inv_utils.log_message('Deleting invoice');

363: AND draft_invoice_num = P_DRAFT_INVOICE_NUM;
364: END IF;
365:
366: IF (P_REJN_LOOKUP_CODE = 'NO_INV_LINES' and l_cnt = 0 ) THEN
367: pa_ic_inv_utils.log_message('Deleting invoice');
368: /*pa_ic_inv_del.delete_invoices(p_project_id);*/
369: /*Fix for Bug 7433201*/
370: delete pa_draft_invoices_all
371: where project_id = p_project_id

Line 374: pa_ic_inv_utils.log_message('Done Deleting invoice');

370: delete pa_draft_invoices_all
371: where project_id = p_project_id
372: AND draft_invoice_num = P_DRAFT_INVOICE_NUM;
373: /*End of fix for Bug 7433201*/
374: pa_ic_inv_utils.log_message('Done Deleting invoice');
375: ELSE
376: /* Fix for bug 7034356 ends here */
377: pa_debug.g_err_stage := ' In Mark Inv Error ';
378: IF g1_debug_mode = 'Y' THEN

Line 379: pa_ic_inv_utils.log_message('Mark_Inv_Error: ' || pa_debug.g_err_stage);

375: ELSE
376: /* Fix for bug 7034356 ends here */
377: pa_debug.g_err_stage := ' In Mark Inv Error ';
378: IF g1_debug_mode = 'Y' THEN
379: pa_ic_inv_utils.log_message('Mark_Inv_Error: ' || pa_debug.g_err_stage);
380: END IF;
381:
382: begin
383: select meaning

Line 406: pa_ic_inv_utils.log_message('Rows updated in DI = '||SQL%rowcount);

402: where project_id = P_PROJECT_ID
403: and draft_invoice_num = P_DRAFT_INVOICE_NUM;
404:
405: IF g1_debug_mode = 'Y' THEN
406: pa_ic_inv_utils.log_message('Rows updated in DI = '||SQL%rowcount);
407: END IF;
408:
409: INSERT INTO PA_DISTRIBUTION_WARNINGS
410: (

Line 423: pa_ic_inv_utils.log_message('Rows Inserted in pa_distribution_warnings = '||SQL%rowcount);

419: l_program_id, SYSDATE, l_rejection_reason
420: );
421:
422: IF g1_debug_mode = 'Y' THEN
423: pa_ic_inv_utils.log_message('Rows Inserted in pa_distribution_warnings = '||SQL%rowcount);
424: pa_debug.g_err_stage := ' Done Mark Inv Error ';
425: pa_ic_inv_utils.log_message('Mark_Inv_Error: ' || pa_debug.g_err_stage);
426: END IF;
427: END IF; /* Added for bug 7034356*/

Line 425: pa_ic_inv_utils.log_message('Mark_Inv_Error: ' || pa_debug.g_err_stage);

421:
422: IF g1_debug_mode = 'Y' THEN
423: pa_ic_inv_utils.log_message('Rows Inserted in pa_distribution_warnings = '||SQL%rowcount);
424: pa_debug.g_err_stage := ' Done Mark Inv Error ';
425: pa_ic_inv_utils.log_message('Mark_Inv_Error: ' || pa_debug.g_err_stage);
426: END IF;
427: END IF; /* Added for bug 7034356*/
428: EXCEPTION
429: when OTHERS then

Line 481: l_user_id := pa_ic_inv_utils.g_last_update_login;

477: l_rowcount number :=0;
478: /*Code Changes for Bug No.2984871 end */
479:
480: BEGIN
481: l_user_id := pa_ic_inv_utils.g_last_update_login;
482: l_program_id := pa_ic_inv_utils.g_program_id;
483: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
484: l_request_id := pa_ic_inv_utils.g_request_id;
485:

Line 482: l_program_id := pa_ic_inv_utils.g_program_id;

478: /*Code Changes for Bug No.2984871 end */
479:
480: BEGIN
481: l_user_id := pa_ic_inv_utils.g_last_update_login;
482: l_program_id := pa_ic_inv_utils.g_program_id;
483: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
484: l_request_id := pa_ic_inv_utils.g_request_id;
485:
486: pa_debug.g_err_stage := ' In mark_ei_as_billed ';

Line 483: l_program_application_id := pa_ic_inv_utils.g_program_application_id;

479:
480: BEGIN
481: l_user_id := pa_ic_inv_utils.g_last_update_login;
482: l_program_id := pa_ic_inv_utils.g_program_id;
483: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
484: l_request_id := pa_ic_inv_utils.g_request_id;
485:
486: pa_debug.g_err_stage := ' In mark_ei_as_billed ';
487: IF g1_debug_mode = 'Y' THEN

Line 484: l_request_id := pa_ic_inv_utils.g_request_id;

480: BEGIN
481: l_user_id := pa_ic_inv_utils.g_last_update_login;
482: l_program_id := pa_ic_inv_utils.g_program_id;
483: l_program_application_id := pa_ic_inv_utils.g_program_application_id;
484: l_request_id := pa_ic_inv_utils.g_request_id;
485:
486: pa_debug.g_err_stage := ' In mark_ei_as_billed ';
487: IF g1_debug_mode = 'Y' THEN
488: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || pa_debug.g_err_stage);

Line 488: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || pa_debug.g_err_stage);

484: l_request_id := pa_ic_inv_utils.g_request_id;
485:
486: pa_debug.g_err_stage := ' In mark_ei_as_billed ';
487: IF g1_debug_mode = 'Y' THEN
488: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || pa_debug.g_err_stage);
489: END IF;
490:
491: FOR c_rec in c_inv_detail
492: loop

Line 510: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || 'Updating EI = '||c_rec.expenditure_item_id);

506: l_rowcount:=sql%rowcount;
507: /*Code Changes for Bug No.2984871 end */
508:
509: IF g1_debug_mode = 'Y' THEN
510: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || 'Updating EI = '||c_rec.expenditure_item_id);
511:
512: /* Commented for Bug 2984871
513: pa_ic_inv_utils.log_message('Updated rows = '||SQL%rowcount);*/
514:

Line 513: pa_ic_inv_utils.log_message('Updated rows = '||SQL%rowcount);*/

509: IF g1_debug_mode = 'Y' THEN
510: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || 'Updating EI = '||c_rec.expenditure_item_id);
511:
512: /* Commented for Bug 2984871
513: pa_ic_inv_utils.log_message('Updated rows = '||SQL%rowcount);*/
514:
515: /*Code Changes for Bug No.2984871 start */
516: pa_ic_inv_utils.log_message('Updated rows = '||l_rowcount);
517: /*Code Changes for Bug No.2984871 end */

Line 516: pa_ic_inv_utils.log_message('Updated rows = '||l_rowcount);

512: /* Commented for Bug 2984871
513: pa_ic_inv_utils.log_message('Updated rows = '||SQL%rowcount);*/
514:
515: /*Code Changes for Bug No.2984871 start */
516: pa_ic_inv_utils.log_message('Updated rows = '||l_rowcount);
517: /*Code Changes for Bug No.2984871 end */
518: END IF;
519: end loop;
520:

Line 522: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || 'Done Updating EI as billed');

518: END IF;
519: end loop;
520:
521: IF g1_debug_mode = 'Y' THEN
522: pa_ic_inv_utils.log_message('Mark_EI_as_Billed: ' || 'Done Updating EI as billed');
523: END IF;
524:
525: EXCEPTION
526: when OTHERS then

Line 677: pa_ic_inv_utils.log_message('Update_DI_for_MRC: ' || pa_debug.g_err_stage);

673: -- Update pa_draft_invoices with creation date so that the
674: -- trigger on this table is fired and creates MRC rows
675: pa_debug.g_err_stage := ' In Update_DI_for_MRC ';
676: IF g1_debug_mode = 'Y' THEN
677: pa_ic_inv_utils.log_message('Update_DI_for_MRC: ' || pa_debug.g_err_stage);
678: END IF;
679:
680: update pa_draft_invoices
681: set creation_date = creation_date

Line 687: pa_ic_inv_utils.log_message('Rows Updated = '||SQL%rowcount);

683: and request_id = P_request_id
684: and draft_invoice_num = P_draft_invoice_num;
685:
686: IF g1_debug_mode = 'Y' THEN
687: pa_ic_inv_utils.log_message('Rows Updated = '||SQL%rowcount);
688: pa_ic_inv_utils.log_message('Done Update_DI_for_MRC');
689: END IF;
690:
691: end Update_DI_for_MRC;

Line 688: pa_ic_inv_utils.log_message('Done Update_DI_for_MRC');

684: and draft_invoice_num = P_draft_invoice_num;
685:
686: IF g1_debug_mode = 'Y' THEN
687: pa_ic_inv_utils.log_message('Rows Updated = '||SQL%rowcount);
688: pa_ic_inv_utils.log_message('Done Update_DI_for_MRC');
689: END IF;
690:
691: end Update_DI_for_MRC;
692:

Line 794: end PA_IC_INV_UTILS;

790: pa_debug.write_file ('LOG',to_char(sysdate, 'DD-MON-YYYY HH:MI:SS ')||p_log_msg);
791: NULL;
792: END log_message;
793:
794: end PA_IC_INV_UTILS;