DBA Data[Home] [Help]

APPS.PA_CC_AR_AP_TRANSFER dependencies on PA_DEBUG

Line 230: pa_debug.Init_err_stack ( 'Transfer_ar_ap_invoices');

226: -- DevDrop2 Changes End
227:
228: Begin
229:
230: pa_debug.Init_err_stack ( 'Transfer_ar_ap_invoices');
231: v_debug_mode := NVL(p_debug_mode, 'Y');
232: v_process_mode := NVL(p_process_mode, 'SQL');
233: pa_debug.set_process(v_process_mode, 'LOG', v_debug_mode) ;
234: x_status_code :=null;

Line 233: pa_debug.set_process(v_process_mode, 'LOG', v_debug_mode) ;

229:
230: pa_debug.Init_err_stack ( 'Transfer_ar_ap_invoices');
231: v_debug_mode := NVL(p_debug_mode, 'Y');
232: v_process_mode := NVL(p_process_mode, 'SQL');
233: pa_debug.set_process(v_process_mode, 'LOG', v_debug_mode) ;
234: x_status_code :=null;
235: pa_debug.G_err_code:='0';
236:
237: --- Is it necessary to validate p_array_size here? how about if it is null or 0?

Line 235: pa_debug.G_err_code:='0';

231: v_debug_mode := NVL(p_debug_mode, 'Y');
232: v_process_mode := NVL(p_process_mode, 'SQL');
233: pa_debug.set_process(v_process_mode, 'LOG', v_debug_mode) ;
234: x_status_code :=null;
235: pa_debug.G_err_code:='0';
236:
237: --- Is it necessary to validate p_array_size here? how about if it is null or 0?
238:
239: pa_debug.G_err_stage := 'Beginning LOOP';

Line 239: pa_debug.G_err_stage := 'Beginning LOOP';

235: pa_debug.G_err_code:='0';
236:
237: --- Is it necessary to validate p_array_size here? how about if it is null or 0?
238:
239: pa_debug.G_err_stage := 'Beginning LOOP';
240: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
241: For I in 1..p_array_size LOOP
242: x_transfer_status_code(I):='P';
243: x_transfer_error_code(I):=null;

Line 240: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

236:
237: --- Is it necessary to validate p_array_size here? how about if it is null or 0?
238:
239: pa_debug.G_err_stage := 'Beginning LOOP';
240: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
241: For I in 1..p_array_size LOOP
242: x_transfer_status_code(I):='P';
243: x_transfer_error_code(I):=null;
244: x_status_code:=null;

Line 246: pa_debug.G_err_stage := 'Check if any mandatory input parameter is null';

242: x_transfer_status_code(I):='P';
243: x_transfer_error_code(I):=null;
244: x_status_code:=null;
245:
246: pa_debug.G_err_stage := 'Check if any mandatory input parameter is null';
247: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
248: if p_internal_billing_type(I) is null or
249: p_project_id(I) is null or
250: p_draft_invoice_number(I) is null or

Line 247: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

243: x_transfer_error_code(I):=null;
244: x_status_code:=null;
245:
246: pa_debug.G_err_stage := 'Check if any mandatory input parameter is null';
247: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
248: if p_internal_billing_type(I) is null or
249: p_project_id(I) is null or
250: p_draft_invoice_number(I) is null or
251: p_ra_invoice_number(I) is null or

Line 263: pa_debug.G_err_stage := 'Check if vendor and expenditure information is valid';

259: x_transfer_error_code(I):='PA_CC_AR_AP_NULL_PARAMETER';
260: x_status_code:='-1';
261: end if;
262: if nvl(p_compute_flag(I),'Y')='Y' then
263: pa_debug.G_err_stage := 'Check if vendor and expenditure information is valid';
264: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
265: open c_setup_info(p_prvdr_org_id(I), p_recvr_org_id(I));
266: LOOP
267: fetch c_setup_info into v_setup_info;

Line 264: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

260: x_status_code:='-1';
261: end if;
262: if nvl(p_compute_flag(I),'Y')='Y' then
263: pa_debug.G_err_stage := 'Check if vendor and expenditure information is valid';
264: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
265: open c_setup_info(p_prvdr_org_id(I), p_recvr_org_id(I));
266: LOOP
267: fetch c_setup_info into v_setup_info;
268: if c_setup_info%ROWCOUNT =1 then

Line 286: pa_debug.G_err_stage := 'Check if invoice amount is valid';

282: end if;
283: END LOOP;
284: close c_setup_info;
285:
286: pa_debug.G_err_stage := 'Check if invoice amount is valid';
287: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
288: open c_invoice_amount (p_customer_trx_id(I));
289: fetch c_invoice_amount into v_invoice_amount;
290: if c_invoice_amount%NOTFOUND then

Line 287: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

283: END LOOP;
284: close c_setup_info;
285:
286: pa_debug.G_err_stage := 'Check if invoice amount is valid';
287: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
288: open c_invoice_amount (p_customer_trx_id(I));
289: fetch c_invoice_amount into v_invoice_amount;
290: if c_invoice_amount%NOTFOUND then
291: x_transfer_status_code(I):='X';

Line 297: pa_debug.G_err_stage := 'Check if receiver project and task is valid';

293: x_status_code:='-1';
294: end if;
295: close c_invoice_amount;
296:
297: pa_debug.G_err_stage := 'Check if receiver project and task is valid';
298: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
299: if p_internal_billing_type(I) ='PA_IP_INVOICES' then
300: open c_receiver_project_task(p_project_customer_id(I),p_project_id(I));
301: LOOP

Line 298: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

294: end if;
295: close c_invoice_amount;
296:
297: pa_debug.G_err_stage := 'Check if receiver project and task is valid';
298: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
299: if p_internal_billing_type(I) ='PA_IP_INVOICES' then
300: open c_receiver_project_task(p_project_customer_id(I),p_project_id(I));
301: LOOP
302: fetch c_receiver_project_task into v_receiver_project_task;

Line 324: pa_debug.G_err_stage := 'Check if tax code is null';

320: end if;
321:
322: select ap_invoices_interface_s.nextval into v_invoice_id from sys.dual;
323:
324: pa_debug.G_err_stage := 'Check if tax code is null';
325: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
326: open c_invoice_lines_counter(p_project_id(I),p_draft_invoice_number(I));
327: fetch c_invoice_lines_counter into v_lines_counter;
328: close c_invoice_lines_counter;

Line 325: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

321:
322: select ap_invoices_interface_s.nextval into v_invoice_id from sys.dual;
323:
324: pa_debug.G_err_stage := 'Check if tax code is null';
325: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
326: open c_invoice_lines_counter(p_project_id(I),p_draft_invoice_number(I));
327: fetch c_invoice_lines_counter into v_lines_counter;
328: close c_invoice_lines_counter;
329:

Line 367: pa_debug.G_err_stage := 'Calling Client Extension override_exp_type_exp_org';

363: -- expenditure organization id for each ap invoice line
364:
365: if x_status_code is null then
366:
367: pa_debug.G_err_stage := 'Calling Client Extension override_exp_type_exp_org';
368: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
369:
370: FOR K in 1..v_counter LOOP
371:

Line 368: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

364:
365: if x_status_code is null then
366:
367: pa_debug.G_err_stage := 'Calling Client Extension override_exp_type_exp_org';
368: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
369:
370: FOR K in 1..v_counter LOOP
371:
372: -- Call Client Extension to override expenditure type and

Line 413: pa_debug.G_err_stage := 'Error Client Extension(Call) : draft_inv_num :'||p_draft_invoice_number(I)||

409: X_Error_Code => l_error_code) ;
410:
411: if ( l_status <> 0 ) then
412:
413: pa_debug.G_err_stage := 'Error Client Extension(Call) : draft_inv_num :'||p_draft_invoice_number(I)||
414: ' draft_inv_line_num :'||v_invoice_line_num(K);
415: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
416:
417: x_transfer_status_code(I):='X';

Line 415: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

411: if ( l_status <> 0 ) then
412:
413: pa_debug.G_err_stage := 'Error Client Extension(Call) : draft_inv_num :'||p_draft_invoice_number(I)||
414: ' draft_inv_line_num :'||v_invoice_line_num(K);
415: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
416:
417: x_transfer_status_code(I):='X';
418: x_transfer_error_code(I):='PA_CC_AR_AP_ERR_CLIENT_EXTN';
419: x_status_code:= '-1';

Line 444: pa_debug.G_err_stage := 'Error Client Extension(Exp_type): draft_inv_num :'||

440:
441: v_arr_exp_type(K) := l_expenditure_type;
442: exception
443: when no_data_found then
444: pa_debug.G_err_stage := 'Error Client Extension(Exp_type): draft_inv_num :'||
445: p_draft_invoice_number(I)||' draft_inv_line_num :'||
446: v_invoice_line_num(K);
447: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
448:

Line 447: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

443: when no_data_found then
444: pa_debug.G_err_stage := 'Error Client Extension(Exp_type): draft_inv_num :'||
445: p_draft_invoice_number(I)||' draft_inv_line_num :'||
446: v_invoice_line_num(K);
447: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
448:
449: pa_debug.G_err_stage := 'override exp_type : '||l_expenditure_type;
450: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
451:

Line 449: pa_debug.G_err_stage := 'override exp_type : '||l_expenditure_type;

445: p_draft_invoice_number(I)||' draft_inv_line_num :'||
446: v_invoice_line_num(K);
447: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
448:
449: pa_debug.G_err_stage := 'override exp_type : '||l_expenditure_type;
450: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
451:
452: x_transfer_status_code(I):='X';
453: x_transfer_error_code(I):='PA_CC_AR_AP_INVLD_EXP_TYP';

Line 450: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

446: v_invoice_line_num(K);
447: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
448:
449: pa_debug.G_err_stage := 'override exp_type : '||l_expenditure_type;
450: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
451:
452: x_transfer_status_code(I):='X';
453: x_transfer_error_code(I):='PA_CC_AR_AP_INVLD_EXP_TYP';
454: x_status_code:= '-1';

Line 484: pa_debug.G_err_stage := 'Error Client Extension(Exp_org): draft_inv_num :'||p_draft_invoice_number(I)||

480:
481: v_arr_exp_organization_id(K) := l_expenditure_organization_id;
482: exception
483: when no_data_found then
484: pa_debug.G_err_stage := 'Error Client Extension(Exp_org): draft_inv_num :'||p_draft_invoice_number(I)||
485: ' draft_inv_line_num :'||v_invoice_line_num(K);
486: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
487:
488: pa_debug.G_err_stage := 'override exp_orgz_id'||l_expenditure_organization_id;

Line 486: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

482: exception
483: when no_data_found then
484: pa_debug.G_err_stage := 'Error Client Extension(Exp_org): draft_inv_num :'||p_draft_invoice_number(I)||
485: ' draft_inv_line_num :'||v_invoice_line_num(K);
486: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
487:
488: pa_debug.G_err_stage := 'override exp_orgz_id'||l_expenditure_organization_id;
489: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
490:

Line 488: pa_debug.G_err_stage := 'override exp_orgz_id'||l_expenditure_organization_id;

484: pa_debug.G_err_stage := 'Error Client Extension(Exp_org): draft_inv_num :'||p_draft_invoice_number(I)||
485: ' draft_inv_line_num :'||v_invoice_line_num(K);
486: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
487:
488: pa_debug.G_err_stage := 'override exp_orgz_id'||l_expenditure_organization_id;
489: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
490:
491: x_transfer_status_code(I):='X';
492: x_transfer_error_code(I):='PA_CC_AR_AP_INVLD_EXP_ORG';

Line 489: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

485: ' draft_inv_line_num :'||v_invoice_line_num(K);
486: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
487:
488: pa_debug.G_err_stage := 'override exp_orgz_id'||l_expenditure_organization_id;
489: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
490:
491: x_transfer_status_code(I):='X';
492: x_transfer_error_code(I):='PA_CC_AR_AP_INVLD_EXP_ORG';
493: x_status_code:= '-1';

Line 508: pa_debug.G_err_stage := 'Insert into AP_invoices_interface table';

504:
505: -- DevDrop2 Changes End
506:
507: if x_status_code is null then
508: pa_debug.G_err_stage := 'Insert into AP_invoices_interface table';
509: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
510: populate_ap_invoices_interface (
511: p_internal_billing_type(I),
512: v_invoice_id,

Line 509: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

505: -- DevDrop2 Changes End
506:
507: if x_status_code is null then
508: pa_debug.G_err_stage := 'Insert into AP_invoices_interface table';
509: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
510: populate_ap_invoices_interface (
511: p_internal_billing_type(I),
512: v_invoice_id,
513: p_ra_invoice_number(I),

Line 523: pa_debug.G_err_stage := 'Insert into AP_invoice_lines_interface table';

519: p_invoice_comment(I),
520: to_char(v_request_id),
521: NULL, /*1994696*:Changed workflow_flag from 'Y' to NULL*/
522: p_recvr_org_id(I));
523: pa_debug.G_err_stage := 'Insert into AP_invoice_lines_interface table';
524: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
525:
526: --DevDrop2 Changes
527: --Changed expenditure type , expenditure organization id to

Line 524: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

520: to_char(v_request_id),
521: NULL, /*1994696*:Changed workflow_flag from 'Y' to NULL*/
522: p_recvr_org_id(I));
523: pa_debug.G_err_stage := 'Insert into AP_invoice_lines_interface table';
524: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
525:
526: --DevDrop2 Changes
527: --Changed expenditure type , expenditure organization id to
528: --v_arr_exp_type , v_arr_exp_organization_id respectively

Line 561: pa_debug.reset_err_stack;

557: If x_status_code is null then
558: x_status_code:='0';
559: end if;
560:
561: pa_debug.reset_err_stack;
562:
563: Exception
564: when others then
565: pa_debug.G_err_code := SQLCODE;

Line 565: pa_debug.G_err_code := SQLCODE;

561: pa_debug.reset_err_stack;
562:
563: Exception
564: when others then
565: pa_debug.G_err_code := SQLCODE;
566: pa_debug.G_err_stage:=pa_debug.G_err_stage|| ': '||sqlerrm;
567: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
568: x_status_code:=-1;
569: RAISE;

Line 566: pa_debug.G_err_stage:=pa_debug.G_err_stage|| ': '||sqlerrm;

562:
563: Exception
564: when others then
565: pa_debug.G_err_code := SQLCODE;
566: pa_debug.G_err_stage:=pa_debug.G_err_stage|| ': '||sqlerrm;
567: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
568: x_status_code:=-1;
569: RAISE;
570: end transfer_ar_ap_invoices_01;

Line 567: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);

563: Exception
564: when others then
565: pa_debug.G_err_code := SQLCODE;
566: pa_debug.G_err_stage:=pa_debug.G_err_stage|| ': '||sqlerrm;
567: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
568: x_status_code:=-1;
569: RAISE;
570: end transfer_ar_ap_invoices_01;
571:

Line 592: pa_debug.set_err_stack('populate_ap_invoices_interface');

588: p_workflow_flag in varchar2,
589: p_org_id in number)
590: IS
591: begin
592: pa_debug.set_err_stack('populate_ap_invoices_interface');
593: Insert into ap_invoices_interface (
594: invoice_id,
595: invoice_num,
596: invoice_date,

Line 632: pa_debug.reset_err_stack;

628: G_last_updated_by ,
629: G_creation_date ,
630: G_last_update_date,
631: sysdate); /* Added for bug 3658825*/
632: pa_debug.reset_err_stack;
633: exception
634: when others then
635: pa_debug.G_err_code :=SQLCODE;
636: pa_debug.G_err_stage:= pa_debug.G_err_stage||':'||sqlerrm;

Line 635: pa_debug.G_err_code :=SQLCODE;

631: sysdate); /* Added for bug 3658825*/
632: pa_debug.reset_err_stack;
633: exception
634: when others then
635: pa_debug.G_err_code :=SQLCODE;
636: pa_debug.G_err_stage:= pa_debug.G_err_stage||':'||sqlerrm;
637: Raise;
638: End populate_ap_invoices_interface;
639:

Line 636: pa_debug.G_err_stage:= pa_debug.G_err_stage||':'||sqlerrm;

632: pa_debug.reset_err_stack;
633: exception
634: when others then
635: pa_debug.G_err_code :=SQLCODE;
636: pa_debug.G_err_stage:= pa_debug.G_err_stage||':'||sqlerrm;
637: Raise;
638: End populate_ap_invoices_interface;
639:
640:

Line 686: pa_debug.set_err_stack('Populate_ap_inv_line_interface');

682:
683: begin
684: /*Bug# 2042840:Modified the value of pa_addition_flag from hardcoded 'N' to
685: decode(p_internal_billing_type,'PA_IC_INVOICES','T','N').*/
686: pa_debug.set_err_stack('Populate_ap_inv_line_interface');
687:
688: -- the following block added for etax changes
689: begin
690: SELECT APPLICATION_ID, ENTITY_CODE,

Line 778: pa_debug.reset_err_stack;

774: 'LINE' , -- l_trx_level_type -- added for etax changes
775: p_cust_trx_line_id(i) -- added for bug 5045406
776: );
777:
778: pa_debug.reset_err_stack;
779: exception
780: when others then
781: pa_debug.G_err_code:=SQLCODE;
782: pa_debug.G_err_stage:=pa_debug.G_err_stage||':'||sqlerrm;

Line 781: pa_debug.G_err_code:=SQLCODE;

777:
778: pa_debug.reset_err_stack;
779: exception
780: when others then
781: pa_debug.G_err_code:=SQLCODE;
782: pa_debug.G_err_stage:=pa_debug.G_err_stage||':'||sqlerrm;
783: raise;
784: END populate_ap_inv_line_interface;
785:

Line 782: pa_debug.G_err_stage:=pa_debug.G_err_stage||':'||sqlerrm;

778: pa_debug.reset_err_stack;
779: exception
780: when others then
781: pa_debug.G_err_code:=SQLCODE;
782: pa_debug.G_err_stage:=pa_debug.G_err_stage||':'||sqlerrm;
783: raise;
784: END populate_ap_inv_line_interface;
785:
786: end PA_CC_AR_AP_TRANSFER;