eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.

APPS.AP_IMPORT_INVOICES_PKG dependencies on AP_IMPORT_UTILITIES_PKG

Line 37: AP_IMPORT_UTILITIES_PKG.Print(

33:
34: WHEN OTHERS then
35: IF (SQLCODE < 0) then
36: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
37: AP_IMPORT_UTILITIES_PKG.Print(
38: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
39: END IF;
40: END IF;
41: RETURN 0;

Line 201: ap_import_utilities_pkg.get_tax_only_rcv_matched_flag(invoice_id),

197: tax_invoice_recording_date,
198: tax_invoice_internal_seq,
199: legal_entity_id,
200: null,
201: ap_import_utilities_pkg.get_tax_only_rcv_matched_flag(invoice_id),
202: ap_import_utilities_pkg.get_tax_only_flag(invoice_id),
203: apply_advances_flag,
204: application_id,
205: product_table,

Line 202: ap_import_utilities_pkg.get_tax_only_flag(invoice_id),

198: tax_invoice_internal_seq,
199: legal_entity_id,
200: null,
201: ap_import_utilities_pkg.get_tax_only_rcv_matched_flag(invoice_id),
202: ap_import_utilities_pkg.get_tax_only_flag(invoice_id),
203: apply_advances_flag,
204: application_id,
205: product_table,
206: reference_key1,

Line 382: ap_import_utilities_pkg.get_tax_only_rcv_matched_flag(invoice_id),

378: tax_invoice_recording_date,
379: tax_invoice_internal_seq,
380: legal_entity_id,
381: null,
382: ap_import_utilities_pkg.get_tax_only_rcv_matched_flag(invoice_id),
383: ap_import_utilities_pkg.get_tax_only_flag(invoice_id),
384: apply_advances_flag,
385: application_id,
386: product_table,

Line 383: ap_import_utilities_pkg.get_tax_only_flag(invoice_id),

379: tax_invoice_internal_seq,
380: legal_entity_id,
381: null,
382: ap_import_utilities_pkg.get_tax_only_rcv_matched_flag(invoice_id),
383: ap_import_utilities_pkg.get_tax_only_flag(invoice_id),
384: apply_advances_flag,
385: application_id,
386: product_table,
387: reference_key1,

Line 595: AP_IMPORT_UTILITIES_PKG.Print(

591: AP_IMPORT_INVOICES_PKG.g_conc_request_id := p_conc_request_id;
592:
593: debug_info := 'Request_id'||p_conc_request_id;
594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
595: AP_IMPORT_UTILITIES_PKG.Print(
596: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
597: END IF;
598: -- Retropricing
599: IF AP_IMPORT_INVOICES_PKG.g_source = 'PPA' THEN

Line 613: AP_IMPORT_UTILITIES_PKG.Print(

609: -- Bug 5448579
610: ----------------------------------------------------------------
611: debug_info := '(Import_invoice 0.1) Calling Caching Function for Org Id/Name';
612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
613: AP_IMPORT_UTILITIES_PKG.Print(
614: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
615: END IF;
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,

Line 616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (

612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
613: AP_IMPORT_UTILITIES_PKG.Print(
614: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
615: END IF;
616: IF (AP_IMPORT_UTILITIES_PKG.Cache_Org_Id_Name (
617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
619: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 621: AP_IMPORT_UTILITIES_PKG.Print(

617: P_Moac_Org_Table => AP_IMPORT_INVOICES_PKG.g_moac_ou_tab,
618: P_Fsp_Org_Table => AP_IMPORT_INVOICES_PKG.g_fsp_ou_tab,
619: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
621: AP_IMPORT_UTILITIES_PKG.Print(
622: AP_IMPORT_INVOICES_PKG.g_debug_switch,
623: 'Cache_Org_Id_Name <-'||current_calling_sequence);
624: END IF;
625: Raise import_invoice_failure;

Line 630: AP_IMPORT_UTILITIES_PKG.Print(

626: END IF;
627:
628: debug_info := '(Import_Invoices 0.2) Calling Caching Function for Currency';
629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
630: AP_IMPORT_UTILITIES_PKG.Print(
631: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
632: END IF;
633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,

Line 633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (

629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
630: AP_IMPORT_UTILITIES_PKG.Print(
631: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
632: END IF;
633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
635: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
636: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
637: AP_IMPORT_UTILITIES_PKG.Print(

Line 637: AP_IMPORT_UTILITIES_PKG.Print(

633: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
634: P_Fnd_Currency_Table => AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab,
635: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
636: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
637: AP_IMPORT_UTILITIES_PKG.Print(
638: AP_IMPORT_INVOICES_PKG.g_debug_switch,
639: 'Cache_Fnd_Currency <-'||current_calling_sequence);
640: END IF;
641: Raise import_invoice_failure;

Line 647: AP_IMPORT_UTILITIES_PKG.Print(

643:
644:
645: debug_info := '(Import_Invoices 0.3) Calling Caching Function for Payment Method';
646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
647: AP_IMPORT_UTILITIES_PKG.Print(
648: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
649: END IF;
650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,

Line 650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (

646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
647: AP_IMPORT_UTILITIES_PKG.Print(
648: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
649: END IF;
650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,
652: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
653: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
654: AP_IMPORT_UTILITIES_PKG.Print(

Line 654: AP_IMPORT_UTILITIES_PKG.Print(

650: IF (AP_IMPORT_UTILITIES_PKG.Cache_Payment_Method (
651: P_Payment_Method_Table => AP_IMPORT_INVOICES_PKG.g_payment_method_tab,
652: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
653: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
654: AP_IMPORT_UTILITIES_PKG.Print(
655: AP_IMPORT_INVOICES_PKG.g_debug_switch,
656: 'Cache_Payment_Method <-'||current_calling_sequence);
657: END IF;
658: Raise import_invoice_failure;

Line 663: AP_IMPORT_UTILITIES_PKG.Print(

659: END IF;
660:
661: debug_info := '(Import_Invoices 0.4) Calling Caching Function for Payment Group';
662: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
663: AP_IMPORT_UTILITIES_PKG.Print(
664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
665: END IF;
666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,

Line 666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (

662: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
663: AP_IMPORT_UTILITIES_PKG.Print(
664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
665: END IF;
666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,
668: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
669: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
670: AP_IMPORT_UTILITIES_PKG.Print(

Line 670: AP_IMPORT_UTILITIES_PKG.Print(

666: IF (AP_IMPORT_UTILITIES_PKG.Cache_Pay_Group (
667: P_Pay_Group_Table => AP_IMPORT_INVOICES_PKG.g_pay_group_tab,
668: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
669: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
670: AP_IMPORT_UTILITIES_PKG.Print(
671: AP_IMPORT_INVOICES_PKG.g_debug_switch,
672: 'Cache_Pay_Group <-'||current_calling_sequence);
673: END IF;
674: Raise import_invoice_failure;

Line 679: AP_IMPORT_UTILITIES_PKG.Print(

675: END IF;
676:
677: debug_info := '(Import_Invoices 0.5) Caching Structure Id';
678: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
679: AP_IMPORT_UTILITIES_PKG.Print(
680: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
681: END IF;
682:
683: BEGIN

Line 731: AP_IMPORT_UTILITIES_PKG.Print(

727:
728: debug_info := '(Import_invoice 1) Check control table for the import batch';
729:
730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
731: AP_IMPORT_UTILITIES_PKG.Print(
732: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
733: END IF;
734: /*
735: IF (AP_IMPORT_UTILITIES_PKG.check_control_table(

Line 735: IF (AP_IMPORT_UTILITIES_PKG.check_control_table(

731: AP_IMPORT_UTILITIES_PKG.Print(
732: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
733: END IF;
734: /*
735: IF (AP_IMPORT_UTILITIES_PKG.check_control_table(
736: p_source,
737: p_group_id,
738: current_calling_sequence) <> TRUE) THEN
739:

Line 741: AP_IMPORT_UTILITIES_PKG.Print(

737: p_group_id,
738: current_calling_sequence) <> TRUE) THEN
739:
740: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
741: AP_IMPORT_UTILITIES_PKG.Print(
742: AP_IMPORT_INVOICES_PKG.g_debug_switch,'check_control_table<-'
743: ||current_calling_sequence);
744: END IF;
745: Raise import_invoice_failure;

Line 750: -- AP_IMPORT_UTILITIES_PKG.Print source if debug is turned on and

746: END IF;
747: */
748: --------------------------------------------------------
749: -- Step 2
750: -- AP_IMPORT_UTILITIES_PKG.Print source if debug is turned on and
751: -- get default last updated by and last update login information.
752: --------------------------------------------------------
753: debug_info := '(Import_invoice 2) Print Source';
754:

Line 756: AP_IMPORT_UTILITIES_PKG.Print(

752: --------------------------------------------------------
753: debug_info := '(Import_invoice 2) Print Source';
754:
755: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
756: AP_IMPORT_UTILITIES_PKG.Print(
757: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
758: END IF;
759:
760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 761: AP_IMPORT_UTILITIES_PKG.Print(

757: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
758: END IF;
759:
760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
761: AP_IMPORT_UTILITIES_PKG.Print(
762: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'p_source' || p_source);
763: END IF;
764:
765: l_default_last_updated_by := to_number(FND_GLOBAL.USER_ID);

Line 776: AP_IMPORT_UTILITIES_PKG.Print(

772:
773: debug_info := '(Import Invoice 3) Delete Rejections from previous failed '||
774: 'imports';
775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
776: AP_IMPORT_UTILITIES_PKG.Print(
777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
778: END IF;
779:
780: debug_info := '(Check_lines 3a) Select all the Rejected Invoices';

Line 782: AP_IMPORT_UTILITIES_PKG.Print(

778: END IF;
779:
780: debug_info := '(Check_lines 3a) Select all the Rejected Invoices';
781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
782: AP_IMPORT_UTILITIES_PKG.Print(
783: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
784: END IF;
785:
786: -- Bug 4145391. To improve the performance of the import program coding two

Line 834: AP_IMPORT_UTILITIES_PKG.Print(

830:
831: debug_info := '(Check_lines 3b) Delete invoices from ap_interface_rejections';
832:
833: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
834: AP_IMPORT_UTILITIES_PKG.Print(
835: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
836: END IF;
837:
838: -- Retropricing

Line 859: AP_IMPORT_UTILITIES_PKG.Print(

855: --Start of Bug 6801046
856: debug_info := '(Check_lines 3c) Update requestid on the Selected Invoices';
857:
858: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
859: AP_IMPORT_UTILITIES_PKG.Print(
860: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
861: END IF;
862:
863: IF enums.COUNT > 0 THEN

Line 876: AP_IMPORT_UTILITIES_PKG.Print(

872: -- is not null.
873: ----------------------------------------------------------------
874: debug_info := '(Import Invoice 4) Update the org_id';
875: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
876: AP_IMPORT_UTILITIES_PKG.Print(
877: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
878: END IF;
879:
880: debug_info := '(Import_Invoices 4a) Updating Interface WHERE org_id '||

Line 883: AP_IMPORT_UTILITIES_PKG.Print(

879:
880: debug_info := '(Import_Invoices 4a) Updating Interface WHERE org_id '||
881: 'is null but operating unit is not null';
882: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
883: AP_IMPORT_UTILITIES_PKG.Print(
884: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
885: END IF;
886:
887:

Line 933: AP_IMPORT_UTILITIES_PKG.Print(

929:
930: debug_info := '(Import_Invoices 4b) Getting Deafult Operating Unit '||
931: 'Information';
932: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
933: AP_IMPORT_UTILITIES_PKG.Print(
934: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
935: END IF;
936:
937:

Line 949: AP_IMPORT_UTILITIES_PKG.Print(

945: ----------------------------------------------------------------
946: debug_info := '(Import Invoices 5) Get The Total Number of Invoices '||
947: 'In Interface';
948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
949: AP_IMPORT_UTILITIES_PKG.Print(
950: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
951: END IF;
952:
953: -- Bug 4145391. To improve the performance of the import program coding two

Line 1024: AP_IMPORT_UTILITIES_PKG.Print(

1020:
1021: -- Bug 5448579
1022: debug_info := '(Import_invoice 5.5) Unwinding Caching Org Id/Name';
1023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1024: AP_IMPORT_UTILITIES_PKG.Print(
1025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1026: END IF;
1027:
1028: FOR i IN 1..g_moac_ou_tab.COUNT

Line 1039: AP_IMPORT_UTILITIES_PKG.Print(

1035: ||', MOAC Cached Org_Id: '||l_moac_org_table(l_index_org_id).org_id
1036: ||', MOAC Cached Operating Unit: '|| l_moac_org_table(l_index_org_id).org_name;
1037:
1038: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1039: AP_IMPORT_UTILITIES_PKG.Print(
1040: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1041: END IF;
1042: END LOOP;
1043:

Line 1053: AP_IMPORT_UTILITIES_PKG.Print(

1049: debug_info := 'Index Value: '||l_index_org_id
1050: ||', FSP Cached Org_Id: '||l_fsp_org_table(l_index_org_id).org_id;
1051:
1052: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1053: AP_IMPORT_UTILITIES_PKG.Print(
1054: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1055: END IF;
1056:
1057: END LOOP;

Line 1066: AP_IMPORT_UTILITIES_PKG.Print(

1062: WHILE (l_continue_flag = 'Y') LOOP
1063:
1064: debug_info := '(Import_invoice 6) Open import_invoices cursor';
1065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1066: AP_IMPORT_UTILITIES_PKG.Print(
1067: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1068: END IF;
1069:
1070: -- Bug 4145391. To improve the performance of the import program coding two

Line 1088: AP_IMPORT_UTILITIES_PKG.Print(

1084: ---------------------------------------------------------------
1085:
1086: debug_info := '(Import_invoice 7) FETCH import_invoices';
1087: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1088: AP_IMPORT_UTILITIES_PKG.Print(
1089: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1090: END IF;
1091:
1092: -- Bug 4145391

Line 1112: AP_IMPORT_UTILITIES_PKG.Print(

1108: l_invoices_fetched := l_invoices_fetched + 1;
1109: -- show output values (only IF debug_switch = 'Y')
1110:
1111: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1112: AP_IMPORT_UTILITIES_PKG.Print(
1113: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1114: '------------------> invoice_id = '
1115: ||to_char(l_invoice_rec.invoice_id)
1116: ||' invoice_num = ' ||l_invoice_rec.invoice_num

Line 1220: AP_IMPORT_UTILITIES_PKG.Print(

1216: -- Step 8 Check for inconsistent OU
1217: ----------------------------------------------------------------
1218: debug_info := '(Import Invoices 8) Checking for Inconsistent OU';
1219: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1220: AP_IMPORT_UTILITIES_PKG.Print(
1221: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1222: END IF;
1223:
1224: IF l_invoice_rec.org_id is NULL THEN

Line 1226: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

1222: END IF;
1223:
1224: IF l_invoice_rec.org_id is NULL THEN
1225: IF (l_ou_count > 1 AND p_org_id is NULL) THEN
1226: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1227: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1228: l_invoice_rec.invoice_id,
1229: 'NO OPERATING UNIT',
1230: l_default_last_updated_by,

Line 1235: AP_IMPORT_UTILITIES_PKG.Print(

1231: l_default_last_update_login,
1232: current_calling_sequence) <> TRUE) THEN
1233:
1234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1235: AP_IMPORT_UTILITIES_PKG.Print(
1236: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1237: 'insert_rejections<- '||current_calling_sequence);
1238: END IF;
1239: Raise import_invoice_failure;

Line 1279: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

1275: WHERE org_id = l_invoice_rec.org_id;
1276:
1277: EXCEPTION
1278: WHEN NO_DATA_FOUND THEN
1279: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1280: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1281: l_invoice_rec.invoice_id,
1282: 'UNDEFINED OPERATING UNIT',
1283: l_default_last_updated_by,

Line 1288: AP_IMPORT_UTILITIES_PKG.Print(

1284: l_default_last_update_login,
1285: current_calling_sequence) <> TRUE) THEN
1286:
1287: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1288: AP_IMPORT_UTILITIES_PKG.Print(
1289: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1290: 'insert_rejections<- '||current_calling_sequence);
1291: END IF;
1292: Raise import_invoice_failure;

Line 1307: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

1303: Null;
1304:
1305: ELSE
1306:
1307: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1308: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1309: l_invoice_rec.invoice_id,
1310: 'UNDEFINED OPERATING UNIT',
1311: l_default_last_updated_by,

Line 1316: AP_IMPORT_UTILITIES_PKG.Print(

1312: l_default_last_update_login,
1313: current_calling_sequence) <> TRUE) THEN
1314:
1315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1316: AP_IMPORT_UTILITIES_PKG.Print(
1317: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1318: 'insert_rejections<- '||current_calling_sequence);
1319: END IF;
1320: Raise import_invoice_failure;

Line 1336: AP_IMPORT_UTILITIES_PKG.Print(

1332: l_derived_operating_unit := l_moac_org_table(l_invoice_rec.org_id).org_name;
1333:
1334: debug_info := ' Derived Operating Unit: '||l_derived_operating_unit;
1335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1336: AP_IMPORT_UTILITIES_PKG.Print(
1337: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1338: END IF;
1339:
1340: IF l_invoice_rec.operating_unit <> l_derived_operating_unit THEN

Line 1341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

1337: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1338: END IF;
1339:
1340: IF l_invoice_rec.operating_unit <> l_derived_operating_unit THEN
1341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1342: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1343: l_invoice_rec.invoice_id,
1344: 'INCONSISTENT OPERATING UNITS',
1345: l_default_last_updated_by,

Line 1350: AP_IMPORT_UTILITIES_PKG.Print(

1346: l_default_last_update_login,
1347: current_calling_sequence) <> TRUE) THEN
1348:
1349: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1350: AP_IMPORT_UTILITIES_PKG.Print(
1351: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1352: 'insert_rejections<- '||current_calling_sequence);
1353: END IF;
1354: Raise import_invoice_failure;

Line 1384: AP_IMPORT_UTILITIES_PKG.Print(

1380: -- id IF org id has changed.
1381: -----------------------------------------------------
1382: debug_info := '(Import Invoice 9a) Setting the org Context';
1383: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1384: AP_IMPORT_UTILITIES_PKG.Print(
1385: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1386: END IF;
1387:
1388: IF l_invoice_status = 'Y' THEN

Line 1395: AP_IMPORT_UTILITIES_PKG.Print(

1391:
1392: debug_info := '(Import_invoice 9b) Call get_info to get '||
1393: 'required info';
1394: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1395: AP_IMPORT_UTILITIES_PKG.Print(
1396: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1397: END IF;
1398:
1399: IF (AP_IMPORT_UTILITIES_PKG.get_info(

Line 1399: IF (AP_IMPORT_UTILITIES_PKG.get_info(

1395: AP_IMPORT_UTILITIES_PKG.Print(
1396: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1397: END IF;
1398:
1399: IF (AP_IMPORT_UTILITIES_PKG.get_info(
1400: l_invoice_rec.org_id, -- IN
1401: l_set_of_books_id, -- OUT NOCOPY
1402: l_multi_currency_flag, -- OUT NOCOPY
1403: l_make_rate_mandatory_flag, -- OUT NOCOPY

Line 1434: AP_IMPORT_UTILITIES_PKG.Print(

1430: l_invoice_rec.goods_received_date, -- IN --bug5382889 LE TimeZone
1431: l_asset_book_type -- OUT NOCOPY --Bug 5448579
1432: ) <> TRUE) THEN
1433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1434: AP_IMPORT_UTILITIES_PKG.Print(
1435: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1436: 'get_info<-'||current_calling_sequence);
1437: END IF;
1438: Raise import_invoice_failure;

Line 1441: AP_IMPORT_UTILITIES_PKG.Print(

1437: END IF;
1438: Raise import_invoice_failure;
1439: END IF;
1440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1441: AP_IMPORT_UTILITIES_PKG.Print(
1442: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1443: '------------------> '
1444: ||' p_org_id = '||to_char(l_invoice_rec.org_id)
1445: ||' p_set_of_books_id = '|| to_char(l_set_of_books_id)

Line 1496: AP_IMPORT_UTILITIES_PKG.Print(

1492: IF (NVL(l_batch_control_flag,'N') = 'Y' ) THEN
1493: debug_info := '(Import_invoice 9c) Get batch_id IF '||
1494: 'batch_control is on';
1495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1496: AP_IMPORT_UTILITIES_PKG.Print(
1497: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1498: END IF;
1499:
1500: IF (AP_IMPORT_UTILITIES_PKG.get_batch_id(

Line 1500: IF (AP_IMPORT_UTILITIES_PKG.get_batch_id(

1496: AP_IMPORT_UTILITIES_PKG.Print(
1497: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1498: END IF;
1499:
1500: IF (AP_IMPORT_UTILITIES_PKG.get_batch_id(
1501: p_batch_name,
1502: l_batch_id,
1503: l_batch_type,
1504: current_calling_sequence) <> TRUE) THEN

Line 1507: AP_IMPORT_UTILITIES_PKG.Print(

1503: l_batch_type,
1504: current_calling_sequence) <> TRUE) THEN
1505:
1506: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1507: AP_IMPORT_UTILITIES_PKG.Print(
1508: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1509: 'get_batch_id<-'||current_calling_sequence);
1510: END IF;
1511: Raise import_invoice_failure;

Line 1516: AP_IMPORT_UTILITIES_PKG.Print(

1512:
1513: END IF;
1514: --
1515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1516: AP_IMPORT_UTILITIES_PKG.Print(
1517: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1518: '------------------> l_batch_id = ' || to_char(l_batch_id)
1519: ||' l_batch_type = '||l_batch_type);
1520: END IF;

Line 1552: AP_IMPORT_UTILITIES_PKG.Print(

1548: --
1549: IF (l_invoice_rec.gl_date is NOT NULL) THEN
1550: debug_info := '(Import Invoice 10a) Default GL Date From Invoice ';
1551: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1552: AP_IMPORT_UTILITIES_PKG.Print(
1553: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1554: END IF;
1555: ELSE
1556: debug_info := '(Import Invoice 10b) Default GL Date Based on Calculation ';

Line 1558: AP_IMPORT_UTILITIES_PKG.Print(

1554: END IF;
1555: ELSE
1556: debug_info := '(Import Invoice 10b) Default GL Date Based on Calculation ';
1557: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1558: AP_IMPORT_UTILITIES_PKG.Print(
1559: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1560: END IF;
1561:
1562: -- Bug 5654581. Moving Gl_Date Related code here

Line 1568: AP_IMPORT_UTILITIES_PKG.Print

1564:
1565: debug_info := 'Determine gl_date for ERS invoice';
1566:
1567: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1568: AP_IMPORT_UTILITIES_PKG.Print
1569: (AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1570: END IF;
1571:
1572: l_rts_txn_le_date := INV_LE_TIMEZONE_PUB.Get_Le_Day_For_Ou(

Line 1596: AP_IMPORT_UTILITIES_PKG.Print

1592: i.e. the RETURN tranasaction_date , so case I and N are no longer the same */
1593:
1594: debug_info := 'Determine invoice gl_date from LE Timezone API ';
1595: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1596: AP_IMPORT_UTILITIES_PKG.Print
1597: (AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1598: END IF;
1599:
1600: If (l_gl_date_from_receipt_flag = 'I') Then

Line 1619: AP_IMPORT_UTILITIES_PKG.Print

1615:
1616: IF (l_gl_date_from_receipt_flag IN ('S', 'Y')) THEN
1617: debug_info := ' GL Date is Sysdate based on gl_date_reciept_flaf option';
1618: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1619: AP_IMPORT_UTILITIES_PKG.Print
1620: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1621: END IF;
1622:
1623: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

Line 1630: AP_IMPORT_UTILITIES_PKG.Print

1626:
1627: IF l_invoice_rec.invoice_date is NOT NULL THEN
1628: debug_info := ' GL Date is Invoice Date';
1629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1630: AP_IMPORT_UTILITIES_PKG.Print
1631: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1632: END IF;
1633:
1634: l_invoice_rec.gl_date := l_invoice_rec.invoice_date;

Line 1638: AP_IMPORT_UTILITIES_PKG.Print

1634: l_invoice_rec.gl_date := l_invoice_rec.invoice_date;
1635: ELSE
1636: debug_info := ' GL Date is Sysdate Date';
1637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1638: AP_IMPORT_UTILITIES_PKG.Print
1639: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1640: END IF;
1641:
1642: l_invoice_rec.gl_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

Line 1651: AP_IMPORT_UTILITIES_PKG.Print

1647: ELSE
1648:
1649: debug_info := ' GL Date is Parameter Gl Date';
1650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1651: AP_IMPORT_UTILITIES_PKG.Print
1652: (AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1653: END IF;
1654:
1655: l_invoice_rec.gl_date := p_gl_date;

Line 1706: AP_IMPORT_UTILITIES_PKG.Print(

1702: ----------------------------
1703:
1704: debug_info := '(Import_invoice 11) Validate invoice ';
1705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1706: AP_IMPORT_UTILITIES_PKG.Print(
1707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1708: END IF;
1709: AP_IMPORT_UTILITIES_PKG.Print(
1710: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||

Line 1709: AP_IMPORT_UTILITIES_PKG.Print(

1705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1706: AP_IMPORT_UTILITIES_PKG.Print(
1707: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1708: END IF;
1709: AP_IMPORT_UTILITIES_PKG.Print(
1710: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||
1711: l_invoice_rec.set_of_books_id);
1712:
1713: IF (AP_IMPORT_VALIDATION_PKG.v_check_invoice_validation

Line 1751: AP_IMPORT_UTILITIES_PKG.Print(

1747: p_conc_request_id,
1748: l_allow_interest_invoices, -- IN
1749: current_calling_sequence) <> TRUE) THEN
1750: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1751: AP_IMPORT_UTILITIES_PKG.Print(
1752: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1753: 'v_check_invoice_validation<-'||current_calling_sequence);
1754: END IF;
1755: Raise import_invoice_failure;

Line 1761: AP_IMPORT_UTILITIES_PKG.Print( AP_IMPORT_INVOICES_PKG.g_debug_switch,

1757: --
1758: -- show output values (only IF debug_switch = 'Y')
1759: --
1760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1761: AP_IMPORT_UTILITIES_PKG.Print( AP_IMPORT_INVOICES_PKG.g_debug_switch,
1762: '------------------> vendor_id = '||to_char(l_invoice_rec.vendor_id)
1763: ||' vendor_site_id = ' ||to_char(l_invoice_rec.vendor_site_id)
1764: ||' invoice_status = ' ||l_invoice_status
1765: ||' terms_id = ' ||to_char(l_invoice_rec.terms_id)

Line 1781: AP_IMPORT_UTILITIES_PKG.Print(

1777: -- Validate invoice lines
1778: --------------------------
1779: debug_info := '(Import_invoice 12) Validate line';
1780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1781: AP_IMPORT_UTILITIES_PKG.Print(
1782: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1783: END IF;
1784: AP_IMPORT_UTILITIES_PKG.Print(
1785: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);

Line 1784: AP_IMPORT_UTILITIES_PKG.Print(

1780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1781: AP_IMPORT_UTILITIES_PKG.Print(
1782: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1783: END IF;
1784: AP_IMPORT_UTILITIES_PKG.Print(
1785: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1786:
1787: IF (AP_IMPORT_VALIDATION_PKG.v_check_lines_validation (
1788: l_invoice_rec, -- IN

Line 1815: AP_IMPORT_UTILITIES_PKG.Print(

1811: l_invoice_status, -- OUT NOCOPY
1812: current_calling_sequence) <> TRUE) THEN
1813:
1814: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1815: AP_IMPORT_UTILITIES_PKG.Print(
1816: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1817: 'v_check_lines_validation<-'||current_calling_sequence);
1818: END IF;
1819: Raise import_invoice_failure;

Line 1823: AP_IMPORT_UTILITIES_PKG.Print(

1819: Raise import_invoice_failure;
1820: END IF;
1821: END IF;
1822:
1823: AP_IMPORT_UTILITIES_PKG.Print(
1824: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'invoice_status is:'||l_invoice_status);
1825:
1826: -- Payment Request: Do not call eTax API for Payment Requests
1827: IF ((l_invoice_status = 'Y') AND

Line 1836: AP_IMPORT_UTILITIES_PKG.Print(

1832: --------------------------------------------------------------
1833: debug_info := '(Import_invoice 13) Validate tax info for '||
1834: 'tax and taxable lines';
1835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
1836: AP_IMPORT_UTILITIES_PKG.Print(
1837: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1838: END IF;
1839:
1840:

Line 1841: AP_IMPORT_UTILITIES_PKG.Print(

1837: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
1838: END IF;
1839:
1840:
1841: AP_IMPORT_UTILITIES_PKG.Print(
1842: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1843: -- assigning the following variable that was included in the
1844: -- header rec (denormalized)
1845: -- this variable will be used by Tax

Line 1863: AP_IMPORT_UTILITIES_PKG.Print(

1859: p_error_code => l_error_code,
1860: p_calling_sequence => current_calling_sequence)) THEN
1861:
1862: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1863: AP_IMPORT_UTILITIES_PKG.Print(
1864: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1865: 'ap_etax_services_pkg.validate_default_import<-'||current_calling_sequence);
1866:
1867: END IF;

Line 1879: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

1875:
1876: IF (l_error_code IS NOT NULL) THEN
1877: -- Print the error returned from the service even if the debug
1878: -- mode is off
1879: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
1880:
1881: ELSE
1882: -- If the l_error_code is null is because the service returned
1883: -- more than one error. The calling module will need to get

Line 1891: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

1887:
1888: IF l_error_code IS NULL THEN
1889: EXIT;
1890: ELSE
1891: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
1892: END IF;
1893: END LOOP;
1894:
1895: END IF;

Line 1910: AP_IMPORT_UTILITIES_PKG.Print(

1906: -- Call Sequential Numbering Routine
1907: ------------------------------------
1908: debug_info := '(Import_invoice 14) Get Doc Sequence';
1909: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1910: AP_IMPORT_UTILITIES_PKG.Print(
1911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1912: END IF;
1913:
1914: AP_IMPORT_UTILITIES_PKG.Print(

Line 1914: AP_IMPORT_UTILITIES_PKG.Print(

1910: AP_IMPORT_UTILITIES_PKG.Print(
1911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1912: END IF;
1913:
1914: AP_IMPORT_UTILITIES_PKG.Print(
1915: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1916:
1917: IF (AP_IMPORT_UTILITIES_PKG.get_doc_sequence (
1918: l_invoice_rec, -- IN OUT

Line 1917: IF (AP_IMPORT_UTILITIES_PKG.get_doc_sequence (

1913:
1914: AP_IMPORT_UTILITIES_PKG.Print(
1915: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
1916:
1917: IF (AP_IMPORT_UTILITIES_PKG.get_doc_sequence (
1918: l_invoice_rec, -- IN OUT
1919: l_inv_doc_cat_override, -- IN
1920: l_set_of_books_id, -- IN
1921: l_sequence_numbering, -- IN

Line 1931: AP_IMPORT_UTILITIES_PKG.Print(

1927: l_invoice_status, -- OUT NOCOPY
1928: current_calling_sequence)<> TRUE) THEN
1929:
1930: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1931: AP_IMPORT_UTILITIES_PKG.Print(
1932: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1933: 'get_doc_sequence<-'||current_calling_sequence);
1934: END IF;
1935: Raise import_invoice_failure;

Line 1941: AP_IMPORT_UTILITIES_PKG.Print(

1937:
1938: -- show output values (only IF debug_switch = 'Y')
1939:
1940: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1941: AP_IMPORT_UTILITIES_PKG.Print(
1942: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1943: '------------------> l_invoice_status = '|| l_invoice_status
1944: ||' l_seqval = '||to_char(l_seqval)
1945: ||' l_dbseqnm = '||l_dbseqnm

Line 1963: AP_IMPORT_UTILITIES_PKG.Print(

1959: -- most of them are from po_vendor_sites
1960: -----------------------------------------------------
1961: debug_info := '(Import_invoice 15.1a) Call get_invoice_info';
1962: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1963: AP_IMPORT_UTILITIES_PKG.Print(
1964: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1965: END IF;
1966:
1967: IF (AP_IMPORT_UTILITIES_PKG.get_invoice_info(

Line 1967: IF (AP_IMPORT_UTILITIES_PKG.get_invoice_info(

1963: AP_IMPORT_UTILITIES_PKG.Print(
1964: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1965: END IF;
1966:
1967: IF (AP_IMPORT_UTILITIES_PKG.get_invoice_info(
1968: l_invoice_rec, -- IN OUT NOCOPY
1969: l_default_last_updated_by, -- IN
1970: l_default_last_update_login, -- IN
1971: l_pay_curr_invoice_amount, -- OUT NOCOPY

Line 1979: AP_IMPORT_UTILITIES_PKG.Print(

1975: l_supplier_hold_reason, -- OUT NOCOPY
1976: l_exclude_freight_from_disc, -- OUT NOCOPY /* bug 4931755 */
1977: current_calling_sequence ) <> TRUE) THEN
1978: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1979: AP_IMPORT_UTILITIES_PKG.Print(
1980: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1981: 'get_invoice_info<-'||current_calling_sequence);
1982: END IF;
1983: Raise import_invoice_failure;

Line 1990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1986:
1987: -- show output values (only IF debug_switch = 'Y')
1988:
1989: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1991: '------------------> l_pay_curr_invoice_amount = '
1992: ||to_char(l_pay_curr_invoice_amount)
1993: ||' l_payment_priority = ' ||to_char(l_payment_priority)
1994: ||' l_invoice_amount_limit = ' ||to_char(l_invoice_amount_limit)

Line 2008: AP_IMPORT_UTILITIES_PKG.Print(

2004: -- value corresponding to flexfield JG_AP_INVOICES
2005: -----------------------------------------------------
2006: debug_info := '(Import_invoice 15.1b) Update global context code';
2007: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2008: AP_IMPORT_UTILITIES_PKG.Print(
2009: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2010: END IF;
2011:
2012: -- > IN global context code in interface table

Line 2020: AP_IMPORT_UTILITIES_PKG.Print(

2016: IF ( jg_globe_flex_val.reassign_context_code(
2017: l_invoice_rec.global_attribute_category) <> TRUE) THEN
2018:
2019: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2020: AP_IMPORT_UTILITIES_PKG.Print(
2021: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2022: 'reassign_context_code<-'||current_calling_sequence);
2023: END IF;
2024: Raise import_invoice_failure;

Line 2033: AP_IMPORT_UTILITIES_PKG.Print(

2029: -- Insert record INTO ap_invoices
2030: ----------------------------------------------------------
2031: debug_info := '(Import_invoice 15.2) Insert record INTO ap_invoices';
2032: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2033: AP_IMPORT_UTILITIES_PKG.Print(
2034: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
2035: END IF;
2036:
2037: -- Payment Request: Added p_needs_invoice_approval for payment requests

Line 2038: IF (AP_IMPORT_UTILITIES_PKG.insert_ap_invoices(

2034: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
2035: END IF;
2036:
2037: -- Payment Request: Added p_needs_invoice_approval for payment requests
2038: IF (AP_IMPORT_UTILITIES_PKG.insert_ap_invoices(
2039: l_invoice_rec, -- IN OUT
2040: l_base_invoice_id, -- OUT NOCOPY
2041: l_set_of_books_id, -- IN
2042: l_dbseqid, -- IN

Line 2053: AP_IMPORT_UTILITIES_PKG.Print(

2049: l_disc_is_inv_less_tax_flag, -- IN --bug 4931755
2050: l_exclude_freight_from_disc, -- IN --bug 4931755
2051: current_calling_sequence) <> TRUE) THEN
2052: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2053: AP_IMPORT_UTILITIES_PKG.Print(
2054: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2055: '<-'||current_calling_sequence);
2056: END IF;
2057:

Line 2073: AP_IMPORT_UTILITIES_PKG.Print(

2069:
2070: g_invoice_id := l_base_invoice_id;
2071:
2072: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2073: AP_IMPORT_UTILITIES_PKG.Print(
2074: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2075: '------------------> l_base_invoice_id = '
2076: || to_char(l_base_invoice_id)
2077: ||' l_valid_invoices_count = '||to_char(l_valid_invoices_count));

Line 2088: AP_IMPORT_UTILITIES_PKG.Print(

2084:
2085: debug_info := '(Import_invoice 15.3) Insert payment schedules '||
2086: 'from terms';
2087: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2088: AP_IMPORT_UTILITIES_PKG.Print(
2089: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2090: END IF;
2091:
2092: AP_CREATE_PAY_SCHEDS_PKG.Create_payment_schedules(

Line 2118: AP_IMPORT_UTILITIES_PKG.Print(

2114: -- parameter.
2115: -------------------------------------------------------------
2116: debug_info := '(Import_invoice 15.4) Insert holds for this invoice';
2117: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2118: AP_IMPORT_UTILITIES_PKG.Print(
2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2120: END IF;
2121:
2122: IF (AP_IMPORT_UTILITIES_PKG.insert_holds(

Line 2122: IF (AP_IMPORT_UTILITIES_PKG.insert_holds(

2118: AP_IMPORT_UTILITIES_PKG.Print(
2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2120: END IF;
2121:
2122: IF (AP_IMPORT_UTILITIES_PKG.insert_holds(
2123: l_base_invoice_id,
2124: p_hold_code,
2125: p_hold_reason,
2126: l_hold_future_payments_flag,

Line 2138: AP_IMPORT_UTILITIES_PKG.Print(

2134: l_invoice_rec.last_updated_by,
2135: current_calling_sequence ) <> TRUE) THEN
2136:
2137: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2138: AP_IMPORT_UTILITIES_PKG.Print(
2139: AP_IMPORT_INVOICES_PKG.g_debug_switch,'<-'||
2140: current_calling_sequence);
2141: END IF;
2142: Raise import_invoice_failure;

Line 2151: AP_IMPORT_UTILITIES_PKG.Print(

2147: -- Create invoice lines
2148: --------------------------------------------------------------
2149: debug_info := '(Import_invoice 15.5) Create invoice lines';
2150: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2151: AP_IMPORT_UTILITIES_PKG.Print(
2152: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2153: END IF;
2154:
2155:

Line 2156: AP_IMPORT_UTILITIES_PKG.Print(

2152: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2153: END IF;
2154:
2155:
2156: AP_IMPORT_UTILITIES_PKG.Print(
2157: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
2158:
2159: IF (AP_IMPORT_UTILITIES_PKG.create_lines(
2160: l_batch_id,

Line 2159: IF (AP_IMPORT_UTILITIES_PKG.create_lines(

2155:
2156: AP_IMPORT_UTILITIES_PKG.Print(
2157: AP_IMPORT_INVOICES_PKG.g_debug_switch, 'SOBID is :'||l_invoice_rec.set_of_books_id);
2158:
2159: IF (AP_IMPORT_UTILITIES_PKG.create_lines(
2160: l_batch_id,
2161: l_base_invoice_id,
2162: l_invoice_lines_tab,
2163: l_base_currency_code,

Line 2173: AP_IMPORT_UTILITIES_PKG.Print(

2169: l_default_last_update_login,
2170: current_calling_sequence) <> TRUE) THEN
2171:
2172: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2173: AP_IMPORT_UTILITIES_PKG.Print(
2174: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2175: 'create_lines<-'||current_calling_sequence);
2176: Raise import_invoice_failure;
2177: END IF;

Line 2187: AP_IMPORT_UTILITIES_PKG.Print(

2183: --------------------------------------------------------------
2184: debug_info := '(Import_invoice 15.6) Execute the '||
2185: 'Argentine/Colombian defaulting procedure';
2186: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2187: AP_IMPORT_UTILITIES_PKG.Print(
2188: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2189: END IF;
2190:
2191: --Bugfix:4674229

Line 2204: AP_IMPORT_UTILITIES_PKG.Print(

2200: P_Parent_Dist_Id => NULL,
2201: P_Awt_Success => l_awt_success);
2202: IF (l_awt_success <> 'SUCCESS') THEN
2203: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2204: AP_IMPORT_UTILITIES_PKG.Print(
2205: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2206: 'ap_ext_withholding_default<-'||current_calling_sequence);
2207: END IF;
2208: Raise import_invoice_failure;

Line 2226: AP_IMPORT_UTILITIES_PKG.Print(

2222: debug_info := '(Import_invoice 15.7) Call import before any prepayment '||
2223: 'application if the user intention is to import TAX';
2224:
2225: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2226: AP_IMPORT_UTILITIES_PKG.Print(
2227: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2228: END IF;
2229:
2230:

Line 2241: AP_IMPORT_UTILITIES_PKG.Print(

2237: --------------------------------------------------------------
2238: debug_info := '(Import_invoice 15.7a) User intention is to import TAX';
2239:
2240: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2241: AP_IMPORT_UTILITIES_PKG.Print(
2242: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2243: END IF;
2244:
2245: IF ( NVL(l_invoice_rec.tax_only_rcv_matched_flag, 'N') = 'Y') THEN

Line 2255: AP_IMPORT_UTILITIES_PKG.Print(

2251: debug_info := '(Import_invoice 15.7b) Invoice is tax only and is matched to receipt '||
2252: 'so calculate shoould be called instead of import';
2253:
2254: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2255: AP_IMPORT_UTILITIES_PKG.Print(
2256: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2257: END IF;
2258:
2259: IF NOT (ap_etax_pkg.calling_etax(

Line 2273: AP_IMPORT_UTILITIES_PKG.Print(

2269: -- If the call to calculate fails, the import process will
2270: -- fail. In this case the invoice cannot be imported since
2271: -- user is trying to import tax lines
2272: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2273: AP_IMPORT_UTILITIES_PKG.Print(
2274: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2275: 'ap_etax_pkg.calling_etax(CALCULATE IMPORT)<-'||current_calling_sequence);
2276:
2277: END IF;

Line 2286: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2282:
2283: IF (l_error_code IS NOT NULL) THEN
2284: -- Print the error returned from the service even if the debug
2285: -- mode is off
2286: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2287:
2288: ELSE
2289: -- If the l_error_code is null is because the service returned
2290: -- more than one error. The calling module will need to get

Line 2297: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2293: l_error_code := FND_MSG_PUB.Get;
2294: IF l_error_code IS NULL THEN
2295: EXIT;
2296: ELSE
2297: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2298: END IF;
2299: END LOOP;
2300: END IF; -- if l_error_code is not null
2301:

Line 2321: AP_IMPORT_UTILITIES_PKG.Print(

2317: debug_info := '(Import_invoice 15.7c) Invoice is tax only '||
2318: 'but not matched to receipt so call IMPORT TAX';
2319:
2320: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2321: AP_IMPORT_UTILITIES_PKG.Print(
2322: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2323: END IF;
2324:
2325: IF NOT (ap_etax_pkg.calling_etax(

Line 2337: AP_IMPORT_UTILITIES_PKG.Print(

2333: p_calling_sequence => current_calling_sequence)) THEN
2334:
2335: -- If the import of tax fails, the import process will fail.
2336: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2337: AP_IMPORT_UTILITIES_PKG.Print(
2338: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2339: 'ap_etax_pkg.calling_etax(IMPORT INTERFACE)<-'||current_calling_sequence);
2340:
2341: END IF;

Line 2350: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2346:
2347: IF (l_error_code IS NOT NULL) THEN
2348: -- Print the error returned from the service even if the debug
2349: -- mode is off
2350: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2351:
2352: ELSE
2353: -- If the l_error_code is null is because the service returned
2354: -- more than one error. The calling module will need to get

Line 2361: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2357: l_error_code := FND_MSG_PUB.Get;
2358: IF l_error_code IS NULL THEN
2359: EXIT;
2360: ELSE
2361: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2362: END IF;
2363: END LOOP;
2364: END IF; -- if l_error_code is not null
2365: RAISE import_invoice_failure;

Line 2379: AP_IMPORT_UTILITIES_PKG.Print(

2375: debug_info := '(Import_invoice 15.7d) Invoice is tax only so we will '||
2376: 'call determine_recovery';
2377:
2378: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2379: AP_IMPORT_UTILITIES_PKG.Print(
2380: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2381: END IF;
2382:
2383: IF NOT (ap_etax_pkg.calling_etax(

Line 2397: AP_IMPORT_UTILITIES_PKG.Print(

2393: -- If the call to determine recovery fails, the import process
2394: -- will fail. In this case the invoice cannot be imported since
2395: -- user is trying to import tax lines
2396: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2397: AP_IMPORT_UTILITIES_PKG.Print(
2398: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2399: 'ap_etax_pkg.calling_etax(DISTRIBUTE IMPORT)<-'||current_calling_sequence);
2400:
2401: END IF;

Line 2410: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2406:
2407: IF (l_error_code IS NOT NULL) THEN
2408: -- Print the error returned from the service even if the debug
2409: -- mode is off
2410: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2411:
2412: ELSE
2413: -- If the l_error_code is null is because the service returned
2414: -- more than one error. The calling module will need to get

Line 2421: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2417: l_error_code := FND_MSG_PUB.Get;
2418: IF l_error_code IS NULL THEN
2419: EXIT;
2420: ELSE
2421: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2422: END IF;
2423: END LOOP;
2424: END IF; -- if l_error_code is not null
2425:

Line 2447: AP_IMPORT_UTILITIES_PKG.Print(

2443: debug_info := '(Import_invoice 15.8) Call calculate or the prepayment '||
2444: 'application';
2445:
2446: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2447: AP_IMPORT_UTILITIES_PKG.Print(
2448: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2449: END IF;
2450:
2451: IF ( l_invoice_rec.prepay_num IS NULL AND

Line 2475: AP_IMPORT_UTILITIES_PKG.Print(

2471: --------------------------------------------------------------
2472: debug_info := '(Import_invoice 15.8a) Call calculate tax';
2473:
2474: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2475: AP_IMPORT_UTILITIES_PKG.Print(
2476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2477: END IF;
2478:
2479: IF NOT (ap_etax_pkg.calling_etax(

Line 2495: AP_IMPORT_UTILITIES_PKG.Print(

2491: -- Tax can be later be calculated from the invoice workbench or
2492: -- during the validation of the invoice.
2493:
2494: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2495: AP_IMPORT_UTILITIES_PKG.Print(
2496: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2497: 'ap_etax_pkg.calling_etax(CALCULATE IMPORT)<-'||current_calling_sequence);
2498:
2499: END IF;

Line 2508: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2504:
2505: IF (l_error_code IS NOT NULL) THEN
2506: -- Print the error returned from the service even if the debug
2507: -- mode is off
2508: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2509:
2510: ELSE
2511: -- If the l_error_code is null is because the service returned
2512: -- more than one error. The calling module will need to get

Line 2520: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);

2516:
2517: IF l_error_code IS NULL THEN
2518: EXIT;
2519: ELSE
2520: AP_IMPORT_UTILITIES_PKG.Print('Y', l_error_code);
2521: END IF;
2522: END LOOP;
2523: END IF; -- if l_error_code is not null
2524: END IF; -- end call to ap_etax_pkg.calling_etax

Line 2540: AP_IMPORT_UTILITIES_PKG.Print(

2536: --------------------------------------------------------------
2537: debug_info := '(Import_invoice 15.8b) Apply Prepayment(s) to invoice.';
2538:
2539: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2540: AP_IMPORT_UTILITIES_PKG.Print(
2541: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2542: END IF;
2543:
2544:

Line 2588: AP_IMPORT_UTILITIES_PKG.Print(

2584: 'total of the exclusive tax lines created for the '||
2585: 'invoice';
2586:
2587: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2588: AP_IMPORT_UTILITIES_PKG.Print(
2589: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2590: END IF;
2591:
2592: IF (NVL(l_invoice_rec.add_tax_to_inv_amt_flag, 'N') = 'Y') THEN

Line 2649: AP_IMPORT_UTILITIES_PKG.Print(

2645: debug_info := '(Import_invoice 15.10) Delete the contents of '||
2646: 'the l_invoice_lines_tab Lines Table';
2647:
2648: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2649: AP_IMPORT_UTILITIES_PKG.Print(
2650: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2651: END IF;
2652:
2653: l_invoice_lines_tab.DELETE;

Line 2663: AP_IMPORT_UTILITIES_PKG.Print(

2659: debug_info := '(Import_invoice 15.11) Delete the contents of '||
2660: 'the eTax global temp tables';
2661:
2662: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2663: AP_IMPORT_UTILITIES_PKG.Print(
2664: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2665: END IF;
2666:
2667: BEGIN DELETE zx_trx_headers_gt;

Line 2691: AP_IMPORT_UTILITIES_PKG.Print(

2687: ----------------------------------------------------------------
2688: ELSE
2689: debug_info := '(Import Invoice 16) Import_Retroprice_Adjustments';
2690: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2691: AP_IMPORT_UTILITIES_PKG.Print(
2692: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2693: END IF;
2694: --
2695: IF (AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(

Line 2722: AP_IMPORT_UTILITIES_PKG.Print(

2718: l_total_invoice_amount, -- OUT p_invoices_total
2719: current_calling_sequence) <> TRUE) THEN
2720: --
2721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2722: AP_IMPORT_UTILITIES_PKG.Print(
2723: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2724: 'Import_Retroprice_Adjustments<-'||current_calling_sequence);
2725: END IF;
2726: Raise import_invoice_failure;

Line 2733: -- AP_IMPORT_UTILITIES_PKG.Insert_ap_batches and

2729: --
2730: -- NOTE : The logic based on l_actual_invoice_total doesn't make sense.
2731: -- l_total_invoices_amount -- is the out parameter for import_invoices
2732: -- l_actual_invoice_total -- is used in
2733: -- AP_IMPORT_UTILITIES_PKG.Insert_ap_batches and
2734: -- AP_IMPORT_UTILITIES_PKG.Update_ap_batches.
2735: -- Ideally they shud be the same.
2736: l_actual_invoice_total := l_total_invoice_amount;
2737: --

Line 2734: -- AP_IMPORT_UTILITIES_PKG.Update_ap_batches.

2730: -- NOTE : The logic based on l_actual_invoice_total doesn't make sense.
2731: -- l_total_invoices_amount -- is the out parameter for import_invoices
2732: -- l_actual_invoice_total -- is used in
2733: -- AP_IMPORT_UTILITIES_PKG.Insert_ap_batches and
2734: -- AP_IMPORT_UTILITIES_PKG.Update_ap_batches.
2735: -- Ideally they shud be the same.
2736: l_actual_invoice_total := l_total_invoice_amount;
2737: --
2738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 2739: AP_IMPORT_UTILITIES_PKG.Print(

2735: -- Ideally they shud be the same.
2736: l_actual_invoice_total := l_total_invoice_amount;
2737: --
2738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
2739: AP_IMPORT_UTILITIES_PKG.Print(
2740: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2741: '------------------> l_instruction_id = '
2742: || to_char(l_invoice_rec.invoice_id));
2743: END IF;

Line 2764: AP_IMPORT_UTILITIES_PKG.Print(

2760: -----------------------------------------------------
2761: debug_info := '(Import_invoice 17.1) Change the invoice status to '||
2762: 'REJECTING';
2763: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2764: AP_IMPORT_UTILITIES_PKG.Print(
2765: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2766: END IF;
2767:
2768: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(

Line 2768: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(

2764: AP_IMPORT_UTILITIES_PKG.Print(
2765: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2766: END IF;
2767:
2768: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(
2769: 'REJECTING',
2770: l_invoice_rec.invoice_id,
2771: current_calling_sequence) <> TRUE) THEN
2772: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN

Line 2773: AP_IMPORT_UTILITIES_PKG.Print(

2769: 'REJECTING',
2770: l_invoice_rec.invoice_id,
2771: current_calling_sequence) <> TRUE) THEN
2772: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2773: AP_IMPORT_UTILITIES_PKG.Print(
2774: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2775: 'change_invoice_status<-'||current_calling_sequence);
2776: END IF;
2777: Raise import_invoice_failure;

Line 2786: AP_IMPORT_UTILITIES_PKG.Print(

2782: ------------------------------------------------------
2783: debug_info := '(Import_invoice 17.2) Change the invoice status to '||
2784: 'PROCESSIPRNG';
2785: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2786: AP_IMPORT_UTILITIES_PKG.Print(
2787: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2788: END IF;
2789:
2790: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(

Line 2790: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(

2786: AP_IMPORT_UTILITIES_PKG.Print(
2787: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2788: END IF;
2789:
2790: IF (AP_IMPORT_UTILITIES_PKG.change_invoice_status(
2791: 'PROCESSING',
2792: l_invoice_rec.invoice_id,
2793: current_calling_sequence) <> TRUE) THEN
2794: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN

Line 2795: AP_IMPORT_UTILITIES_PKG.Print(

2791: 'PROCESSING',
2792: l_invoice_rec.invoice_id,
2793: current_calling_sequence) <> TRUE) THEN
2794: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2795: AP_IMPORT_UTILITIES_PKG.Print(
2796: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2797: 'change_invoice_status<-'||current_calling_sequence);
2798: END IF;
2799: Raise import_invoice_failure;

Line 2814: AP_IMPORT_UTILITIES_PKG.Print(

2810: END LOOP; -- invoice LOOP
2811:
2812: debug_info := '(Import_invoice) CLOSE import_invoices';
2813: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2814: AP_IMPORT_UTILITIES_PKG.Print(
2815: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2816: END IF;
2817:
2818: -- Bug 4145391

Line 2833: AP_IMPORT_UTILITIES_PKG.Print(

2829: -- do not try to create the batch again.
2830: ---------------------------------------------------------------------
2831: debug_info := '(Import_invoice 18a) Get/Initialize batch name';
2832: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2833: AP_IMPORT_UTILITIES_PKG.Print(
2834: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2835: END IF;
2836: BEGIN--veramach bug 7121842
2837: IF (p_batch_name IS NULL AND

Line 2841: IF ( AP_IMPORT_UTILITIES_PKG.get_auto_batch_name(

2837: IF (p_batch_name IS NULL AND
2838: l_batch_name IS NULL AND
2839: NVL(l_batch_control_flag, 'N') = 'Y' AND
2840: l_valid_invoices_count > 0) THEN
2841: IF ( AP_IMPORT_UTILITIES_PKG.get_auto_batch_name(
2842: p_source,
2843: l_batch_name,
2844: current_calling_sequence) <> TRUE ) THEN
2845: Raise import_invoice_failure;

Line 2864: AP_IMPORT_UTILITIES_PKG.Print(

2860: (l_batch_type = 'NEW BATCH')) THEN
2861:
2862: debug_info := '(Import_invoice 18b) Create ap_batches';
2863: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2864: AP_IMPORT_UTILITIES_PKG.Print(
2865: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2866: END IF;
2867:
2868: IF (AP_IMPORT_UTILITIES_PKG.Insert_ap_batches(

Line 2868: IF (AP_IMPORT_UTILITIES_PKG.Insert_ap_batches(

2864: AP_IMPORT_UTILITIES_PKG.Print(
2865: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2866: END IF;
2867:
2868: IF (AP_IMPORT_UTILITIES_PKG.Insert_ap_batches(
2869: l_batch_id,
2870: l_batch_name,
2871: l_invoice_rec.invoice_currency_code,
2872: l_invoice_rec.payment_currency_code,

Line 2878: AP_IMPORT_UTILITIES_PKG.Print(

2874: l_actual_invoice_total,-- bug1721820
2875: l_default_last_updated_by,
2876: current_calling_sequence) <> TRUE) THEN
2877: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2878: AP_IMPORT_UTILITIES_PKG.Print(
2879: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2880: 'Insert_ap_batches<-'||current_calling_sequence);
2881: END IF;
2882: Raise import_invoice_failure;

Line 2887: AP_IMPORT_UTILITIES_PKG.Print(

2883: END IF;
2884:
2885: debug_info := '(Import_invoice 18c) Set batch exists flag to Y';
2886: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2887: AP_IMPORT_UTILITIES_PKG.Print(
2888: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2889: END IF;
2890:
2891: l_batch_exists_flag := 'Y';

Line 2902: AP_IMPORT_UTILITIES_PKG.Print(

2898: (l_valid_invoices_count >0 )) THEN
2899:
2900: debug_info := '(Import_invoice 18d) Create ap_batches';
2901: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2902: AP_IMPORT_UTILITIES_PKG.Print(
2903: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2904: END IF;
2905:
2906: IF (AP_IMPORT_UTILITIES_PKG.Update_Ap_Batches(

Line 2906: IF (AP_IMPORT_UTILITIES_PKG.Update_Ap_Batches(

2902: AP_IMPORT_UTILITIES_PKG.Print(
2903: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2904: END IF;
2905:
2906: IF (AP_IMPORT_UTILITIES_PKG.Update_Ap_Batches(
2907: l_batch_id,
2908: p_batch_name,
2909: l_valid_invoices_count,
2910: l_actual_invoice_total,

Line 2914: AP_IMPORT_UTILITIES_PKG.Print(

2910: l_actual_invoice_total,
2911: l_default_last_updated_by,
2912: current_calling_sequence) <> TRUE) THEN
2913: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2914: AP_IMPORT_UTILITIES_PKG.Print(
2915: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2916: 'Update_Ap_Batches<-'||current_calling_sequence);
2917: END IF;
2918: Raise import_invoice_failure;

Line 2923: AP_IMPORT_UTILITIES_PKG.Print(

2919: END IF;
2920:
2921: debug_info := '(Import_invoice 18e) Set batch exists flag to Y';
2922: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2923: AP_IMPORT_UTILITIES_PKG.Print(
2924: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2925: END IF;
2926:
2927: l_batch_exists_flag := 'Y';

Line 2931: AP_IMPORT_UTILITIES_PKG.Print(

2927: l_batch_exists_flag := 'Y';
2928: ELSE
2929: debug_info := '(Import_invoice 18f) Do Not create batch';
2930: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2931: AP_IMPORT_UTILITIES_PKG.Print(
2932: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2933: END IF;
2934: END IF;
2935:

Line 2942: AP_IMPORT_UTILITIES_PKG.Print(

2938: -- For each commit cycle, do a commit.
2939: -----------------------------------------------------------
2940: debug_info := '(Import_invoice 19) COMMIT to the database';
2941: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2942: AP_IMPORT_UTILITIES_PKG.Print(
2943: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2944: END IF;
2945:
2946: IF NVL(p_commit,'Y') = 'Y' THEN

Line 2956: AP_IMPORT_UTILITIES_PKG.Print(

2952: --
2953: -----------------------------------------------------
2954: debug_info := '(Import_purge 20) Check IF there is still any record left';
2955: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2956: AP_IMPORT_UTILITIES_PKG.Print(
2957: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2958: END IF;
2959:
2960: IF l_total_count > l_invoices_fetched THEN

Line 2967: AP_IMPORT_UTILITIES_PKG.Print(

2963: l_continue_flag := 'N';
2964: END IF;
2965:
2966: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2967: AP_IMPORT_UTILITIES_PKG.Print(
2968: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2969: '------------------> l_continue_flag = '|| l_continue_flag);
2970: END IF;
2971: --veramach bug 7121842 start

Line 2988: AP_IMPORT_UTILITIES_PKG.Print(

2984: ----------------------------------------------------------------------
2985:
2986: debug_info := '(Import_invoice 21) Update temporary status';
2987: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2988: AP_IMPORT_UTILITIES_PKG.Print(
2989: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2990: END IF;
2991: BEGIN--veramach bug 7121842
2992: IF (AP_IMPORT_UTILITIES_PKG.Update_temp_invoice_status(

Line 2992: IF (AP_IMPORT_UTILITIES_PKG.Update_temp_invoice_status(

2988: AP_IMPORT_UTILITIES_PKG.Print(
2989: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2990: END IF;
2991: BEGIN--veramach bug 7121842
2992: IF (AP_IMPORT_UTILITIES_PKG.Update_temp_invoice_status(
2993: p_source,
2994: p_group_id,
2995: current_calling_sequence) <> TRUE) THEN
2996: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN

Line 2997: AP_IMPORT_UTILITIES_PKG.Print(

2993: p_source,
2994: p_group_id,
2995: current_calling_sequence) <> TRUE) THEN
2996: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
2997: AP_IMPORT_UTILITIES_PKG.Print(
2998: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2999: 'Update_temp_invoice_statu<-'||current_calling_sequence);
3000: END IF;
3001: Raise import_invoice_failure;

Line 3016: AP_IMPORT_UTILITIES_PKG.Print(

3012:
3013: debug_info := '(Import_invoice 22) Return No of invoices fetched '||
3014: 'during process ,p_invoices_fetched'||l_invoices_fetched;
3015: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3016: AP_IMPORT_UTILITIES_PKG.Print(
3017: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3018: END IF;
3019:
3020:

Line 3024: AP_IMPORT_UTILITIES_PKG.Print(

3020:
3021: debug_info := 'Now Block to Raise the Business event to pass the Concurrent request_id'
3022: ||AP_IMPORT_INVOICES_PKG.g_conc_request_id;
3023: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3024: AP_IMPORT_UTILITIES_PKG.Print(
3025: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3026: END IF;
3027:
3028: --7567527 PL/SQL Block for Enhancement to raise Business events after invoices are imported

Line 3057: AP_IMPORT_UTILITIES_PKG.Print(

3053: debug_info := 'After raising workflow event : '
3054: || 'event_name = ' || l_event_name
3055: || ' event_key = ' || l_event_key ;
3056: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3057: AP_IMPORT_UTILITIES_PKG.Print(
3058: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3059: END IF;
3060:
3061: EXCEPTION

Line 3067: AP_IMPORT_UTILITIES_PKG.Print(

3063:
3064: WHEN OTHERS THEN
3065: debug_info := 'Error Was Raised in raising event';
3066: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3067: AP_IMPORT_UTILITIES_PKG.Print(
3068: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3069: END IF;
3070: WF_CORE.CONTEXT('AP_IMPORT_INVOICES_PKG', 'IMPORT_INVOICES', l_event_name,
3071: l_event_key);

Line 3080: AP_IMPORT_UTILITIES_PKG.Print(

3076: EXCEPTION
3077: WHEN OTHERS THEN
3078: IF (SQLCODE < 0) THEN
3079: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3080: AP_IMPORT_UTILITIES_PKG.Print(
3081: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3082: END IF;
3083: END IF;
3084:

Line 3087: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

3083: END IF;
3084:
3085: IF (SQLCODE = -54) THEN
3086: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3087: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3088: '(Import_invoice:EXCEPTION) The invoices to be SELECTed by this ' ||
3089: 'process are locked');
3090: END IF;
3091: END IF;

Line 3178: AP_IMPORT_UTILITIES_PKG.Print(

3174:
3175: debug_info := '(Import_purge ) Deleting records in interface tables...';
3176:
3177: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3178: AP_IMPORT_UTILITIES_PKG.Print(
3179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3180: END IF;
3181:
3182: -- Outside while loop for commit cycle

Line 3233: AP_IMPORT_UTILITIES_PKG.Print(

3229: ---------------------------------------------------------------
3230:
3231: debug_info := '(Import_purge 1) Open purge_invoices cursor';
3232: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3233: AP_IMPORT_UTILITIES_PKG.Print(
3234: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3235: END IF;
3236:
3237: -- Bug 4145391. To improve the performance of the import program coding two

Line 3255: AP_IMPORT_UTILITIES_PKG.Print(

3251: --
3252: ----------------------------------------------------------------
3253: debug_info := '(Import_puege 2) Fetch purge_invoices';
3254: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3255: AP_IMPORT_UTILITIES_PKG.Print(
3256: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3257: END IF;
3258:
3259: -- Bug 4145391

Line 3275: AP_IMPORT_UTILITIES_PKG.Print(

3271: -- show output values (only if debug_switch = 'Y')
3272: --
3273: debug_info := '---------> l_invoice_id = '|| to_char(l_invoice_id);
3274: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3275: AP_IMPORT_UTILITIES_PKG.Print(
3276: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3277: END IF;
3278:
3279: ------------------------------------------------------------------------

Line 3286: AP_IMPORT_UTILITIES_PKG.Print(

3282: ------------------------------------------------------------------------
3283: debug_info := '(Import_purge 3) Delete records in ' ||
3284: 'ap_invoice_lines_interface...';
3285: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3286: AP_IMPORT_UTILITIES_PKG.Print(
3287: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3288: END IF;
3289:
3290: DELETE FROM AP_INVOICE_LINES_INTERFACE

Line 3300: AP_IMPORT_UTILITIES_PKG.Print(

3296: ------------------------------------------------------------------------
3297: -- also delete attachments if any
3298: debug_info := '(Import_purge 4.1) Delete attachments if any...';
3299: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3300: AP_IMPORT_UTILITIES_PKG.Print(
3301: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3302: END IF;
3303:
3304: -- delete attachments for the invoice

Line 3308: AP_IMPORT_UTILITIES_PKG.Print(

3304: -- delete attachments for the invoice
3305: debug_info := '(Import_purge 4.2) before delete attachments: '||
3306: 'source = ' || p_source || ', invoice_id = ' || l_invoice_id;
3307: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3308: AP_IMPORT_UTILITIES_PKG.Print(
3309: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3310: END IF;
3311:
3312: -- not necessary to restrict to souce

Line 3317: AP_IMPORT_UTILITIES_PKG.Print(

3313: l_attachments_count := delete_attachments(l_invoice_id);
3314: debug_info := '(Import_purge 4.2) delete attachments done: '||
3315: l_attachments_count;
3316: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3317: AP_IMPORT_UTILITIES_PKG.Print(
3318: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3319: END IF;
3320:
3321: -- delete the invoice_interface record now

Line 3325: AP_IMPORT_UTILITIES_PKG.Print(

3321: -- delete the invoice_interface record now
3322: debug_info := '(Import_purge 4) Delete records in ' ||
3323: 'ap_invoices_interface...';
3324: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3325: AP_IMPORT_UTILITIES_PKG.Print(
3326: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3327: END IF;
3328:
3329: DELETE FROM AP_INVOICES_INTERFACE

Line 3348: AP_IMPORT_UTILITIES_PKG.Print(

3344: END LOOP; -- invoice loop
3345:
3346: debug_info := '(Import_purge ) Close purge_invoices cursor';
3347: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3348: AP_IMPORT_UTILITIES_PKG.Print(
3349: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3350: END IF;
3351:
3352: -- Bug 4145391

Line 3364: AP_IMPORT_UTILITIES_PKG.Print(

3360: -- Step 5, COMMIT for each commit cycle
3361: -----------------------------------------------------
3362: debug_info := '(Import_purge 5) Commit to the database';
3363: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3364: AP_IMPORT_UTILITIES_PKG.Print(
3365: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3366: END IF;
3367: COMMIT;
3368:

Line 3374: AP_IMPORT_UTILITIES_PKG.Print(

3370: -- Step 6, Check if there's still any record left
3371: -----------------------------------------------------
3372: debug_info := '(Import_purge 6) Check if there is still any record left';
3373: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3374: AP_IMPORT_UTILITIES_PKG.Print(
3375: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3376: END IF;
3377:
3378: If l_total_count > l_counter THEN

Line 3386: AP_IMPORT_UTILITIES_PKG.Print(

3382: End If;
3383:
3384: debug_info := '---------> l_continue_flag = '|| l_continue_flag;
3385: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3386: AP_IMPORT_UTILITIES_PKG.Print(
3387: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3388: END IF;
3389: END LOOP; -- Outside commit cycle loop
3390: RETURN (TRUE);

Line 3396: AP_IMPORT_UTILITIES_PKG.Print(

3392: EXCEPTION
3393: WHEN OTHERS THEN
3394:
3395: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3396: AP_IMPORT_UTILITIES_PKG.Print(
3397: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3398: END IF;
3399:
3400: IF (SQLCODE < 0) then

Line 3402: AP_IMPORT_UTILITIES_PKG.Print(

3398: END IF;
3399:
3400: IF (SQLCODE < 0) then
3401: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3402: AP_IMPORT_UTILITIES_PKG.Print(
3403: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3404: END IF;
3405: END IF;
3406:

Line 3437: AP_IMPORT_UTILITIES_PKG.Print(

3433: current_calling_sequence := 'xml_import_purge<--'||p_calling_sequence;
3434:
3435: debug_info := '(XML Import Purge 1) before getting list of invoice_id';
3436: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3437: AP_IMPORT_UTILITIES_PKG.Print(
3438: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3439: END IF;
3440:
3441: -- get all XML invoices with supplier rejections

Line 3492: AP_IMPORT_UTILITIES_PKG.Print(

3488:
3489: debug_info := '(XML Import Purge 1.1) number of invoices to delete: '
3490: || nvl(h_list.count,0);
3491: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3492: AP_IMPORT_UTILITIES_PKG.Print(
3493: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3494: END IF;
3495:
3496: debug_info := '(XML Import Purge 2) before deleting header rejections';

Line 3498: AP_IMPORT_UTILITIES_PKG.Print(

3494: END IF;
3495:
3496: debug_info := '(XML Import Purge 2) before deleting header rejections';
3497: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3498: AP_IMPORT_UTILITIES_PKG.Print(
3499: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3500: END IF;
3501:
3502: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)

Line 3509: AP_IMPORT_UTILITIES_PKG.Print(

3505: AND r.parent_table = 'AP_INVOICES_INTERFACE';
3506:
3507: debug_info := '(XML Import Purge 3) before deleting line rejections';
3508: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3509: AP_IMPORT_UTILITIES_PKG.Print(
3510: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3511: END IF;
3512:
3513: FORALL i IN nvl(h_list.FIRST,0) .. nvl(h_list.LAST,-1)

Line 3522: AP_IMPORT_UTILITIES_PKG.Print(

3518: AND r.parent_table = 'AP_INVOICE_LINES_INTERFACE';
3519:
3520: debug_info := '(XML Import Purge 4) before deleting header interface';
3521: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3522: AP_IMPORT_UTILITIES_PKG.Print(
3523: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3524: END IF;
3525:
3526: -- Delete from ap_invoice_lines_interface table

Line 3533: AP_IMPORT_UTILITIES_PKG.Print(

3529: WHERE l.invoice_id = h_list(i);
3530:
3531: debug_info := '(XML Import Purge 5) before deleting line interface';
3532: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3533: AP_IMPORT_UTILITIES_PKG.Print(
3534: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3535: END IF;
3536:
3537: -- Delete from ap_invoices_interface table

Line 3544: AP_IMPORT_UTILITIES_PKG.Print(

3540: WHERE h.invoice_id = h_list(i);
3541:
3542: debug_info := '(XML Import Purge 6) COMMIT';
3543: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3544: AP_IMPORT_UTILITIES_PKG.Print(
3545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3546: END IF;
3547:
3548: COMMIT;

Line 3557: AP_IMPORT_UTILITIES_PKG.Print(

3553: WHEN OTHERS THEN
3554:
3555: debug_info := 'Failed after ' || debug_info;
3556: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3557: AP_IMPORT_UTILITIES_PKG.Print(
3558: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3559: END IF;
3560: RETURN(false);
3561:

Line 3622: AP_IMPORT_UTILITIES_PKG.Print(

3618: -- Give error message if the interface invoice id is not provided
3619: IF p_invoice_interface_id IS NULL THEN
3620:
3621: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3622: AP_IMPORT_UTILITIES_PKG.Print(
3623: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3624: 'No invoice_id<- '||current_calling_sequence);
3625: END IF;
3626:

Line 3642: AP_IMPORT_UTILITIES_PKG.Print(

3638: WHERE invoice_id = p_invoice_interface_id;
3639:
3640:
3641: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3642: AP_IMPORT_UTILITIES_PKG.Print(
3643: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3644: 'Calling Import_Invoices<- '||current_calling_sequence);
3645: END IF;
3646:

Line 3671: AP_IMPORT_UTILITIES_PKG.Print(

3667: p_needs_invoice_approval,
3668: p_commit) <> TRUE) THEN
3669:
3670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3671: AP_IMPORT_UTILITIES_PKG.Print(
3672: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3673: 'Error during import<- '||current_calling_sequence);
3674: END IF;
3675:

Line 3685: AP_IMPORT_UTILITIES_PKG.Print(

3681: -- send rejections to the calling routine
3682: IF l_invoices_created = 0 THEN
3683:
3684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3685: AP_IMPORT_UTILITIES_PKG.Print(
3686: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3687: 'No invoices created<- '||current_calling_sequence);
3688: END IF;
3689:

Line 3708: AP_IMPORT_UTILITIES_PKG.Print(

3704: l_invoice_id := g_invoice_id;
3705: p_invoice_id := g_invoice_id;
3706:
3707: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3708: AP_IMPORT_UTILITIES_PKG.Print(
3709: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3710: 'Calling invoice validation<- '||current_calling_sequence);
3711: END IF;
3712:

Line 3740: AP_IMPORT_UTILITIES_PKG.Print(

3736:
3737: x_return_status := 'S';
3738:
3739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3740: AP_IMPORT_UTILITIES_PKG.Print(
3741: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3742: 'Validation complete<- '||current_calling_sequence);
3743: END IF;
3744:

Line 3760: AP_IMPORT_UTILITIES_PKG.Print(

3756:
3757: WHEN OTHERS THEN
3758: IF (SQLCODE < 0) THEN
3759: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
3760: AP_IMPORT_UTILITIES_PKG.Print(
3761: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3762: END IF;
3763: x_msg_data := SQLERRM;
3764: x_return_status := 'F';