DBA Data[Home] [Help]

APPS.PA_CC_AR_AP_TRANSFER dependencies on PA_DEBUG

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

441: p_draft_invoice_number(I)||' draft_inv_line_num :'||
442: v_invoice_line_num(K);
443: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
444:
445: pa_debug.G_err_stage := 'override exp_type : '||l_expenditure_type;
446: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
447:
448: x_transfer_status_code(I):='X';
449: x_transfer_error_code(I):='PA_CC_AR_AP_INVLD_EXP_TYP';

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

442: v_invoice_line_num(K);
443: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
444:
445: pa_debug.G_err_stage := 'override exp_type : '||l_expenditure_type;
446: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
447:
448: x_transfer_status_code(I):='X';
449: x_transfer_error_code(I):='PA_CC_AR_AP_INVLD_EXP_TYP';
450: x_status_code:= '-1';

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

Line 557: pa_debug.reset_err_stack;

553: If x_status_code is null then
554: x_status_code:='0';
555: end if;
556:
557: pa_debug.reset_err_stack;
558:
559: Exception
560: when others then
561: pa_debug.G_err_code := SQLCODE;

Line 561: pa_debug.G_err_code := SQLCODE;

557: pa_debug.reset_err_stack;
558:
559: Exception
560: when others then
561: pa_debug.G_err_code := SQLCODE;
562: pa_debug.G_err_stage:=pa_debug.G_err_stage|| ': '||sqlerrm;
563: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
564: x_status_code:=-1;
565: RAISE;

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

558:
559: Exception
560: when others then
561: pa_debug.G_err_code := SQLCODE;
562: pa_debug.G_err_stage:=pa_debug.G_err_stage|| ': '||sqlerrm;
563: pa_debug.write_file( 'LOG', pa_debug.G_err_stage);
564: x_status_code:=-1;
565: RAISE;
566: end transfer_ar_ap_invoices_01;

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

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

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

584: p_workflow_flag in varchar2,
585: p_org_id in number)
586: IS
587: begin
588: pa_debug.set_err_stack('populate_ap_invoices_interface');
589: Insert into ap_invoices_interface (
590: invoice_id,
591: invoice_num,
592: invoice_date,

Line 628: pa_debug.reset_err_stack;

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

Line 631: pa_debug.G_err_code :=SQLCODE;

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

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

628: pa_debug.reset_err_stack;
629: exception
630: when others then
631: pa_debug.G_err_code :=SQLCODE;
632: pa_debug.G_err_stage:= pa_debug.G_err_stage||':'||sqlerrm;
633: Raise;
634: End populate_ap_invoices_interface;
635:
636:

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

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

Line 774: pa_debug.reset_err_stack;

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

Line 777: pa_debug.G_err_code:=SQLCODE;

773:
774: pa_debug.reset_err_stack;
775: exception
776: when others then
777: pa_debug.G_err_code:=SQLCODE;
778: pa_debug.G_err_stage:=pa_debug.G_err_stage||':'||sqlerrm;
779: raise;
780: END populate_ap_inv_line_interface;
781:

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

774: pa_debug.reset_err_stack;
775: exception
776: when others then
777: pa_debug.G_err_code:=SQLCODE;
778: pa_debug.G_err_stage:=pa_debug.G_err_stage||':'||sqlerrm;
779: raise;
780: END populate_ap_inv_line_interface;
781:
782: end PA_CC_AR_AP_TRANSFER;