[Home] [Help]
126: -- Initialize invoice_date if null
127: --------------------------------------------------------------------------
128: debug_info := '(Check Invoice Validation 0) Initialize invoice_date if null';
129: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
130: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
131: debug_info);
132: END IF;
133:
134: IF (p_invoice_rec.invoice_date IS NULL) THEN
146: --------------------------------------------------------------------------
147: debug_info :=
148: '(Check Invoice Validation 1) Check for Invalid and Inactive PO';
149: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
150: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
151: debug_info);
152: END IF;
153: --
154: IF (p_invoice_rec.po_number IS NOT NULL) THEN
166: p_po_vendor_site_id => l_vendor_site_id_per_po, -- OUT
167: p_po_exists_flag => l_po_exists_flag, -- OUT
168: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
169: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
170: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
171: 'v_check_invalid_po<-'||current_calling_sequence);
172: END IF;
173: RAISE check_inv_validation_failure;
174: END IF;
184: --
185: -- show output values (only if debug_switch = 'Y')
186: --
187: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
188: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
189: '------------------>
190: l_temp_invoice_status = '||l_temp_invoice_status
191: ||' l_vendor_id = '||to_char(l_vendor_id)
192: ||' l_vendor_site_id_per_po = '||to_char(l_vendor_site_id_per_po)
213: -- Check for Invalid or Inconsistent Legal Entity Name and Id
214: ---------------------------------------------------------------------------
215: debug_info := '(Check Invoice Validation 2) Check for Invalid Legal Entity';
216: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
217: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
218: debug_info);
219: END IF;
220:
221: -- YIDSAL. Include here call the validate function for the LE Id and NaMe
226: -- Check for Invalid Supplier or Inconsistent Supplier
227: ---------------------------------------------------------------------------
228: debug_info := '(Check Invoice Validation 2) Check for Invalid Supplier';
229: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
230: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
231: debug_info);
232: END IF;
233:
234: -- Added party validation for payment request project
240: p_default_last_update_login, -- IN
241: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
242: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
243: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
244: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
245: 'v_check_invalid_party <-'||current_calling_sequence);
246: END IF;
247: RAISE check_inv_validation_failure;
248: END IF;
256: p_return_vendor_id => l_vendor_id, -- OUT
257: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
258: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
259: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
260: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
261: 'v_check_invalid_supplier<-'||current_calling_sequence);
262: END IF;
263: RAISE check_inv_validation_failure;
264: END IF;
290: END IF;
291:
292: debug_info := '(Check Invoice Validation 2) Validated Supplier';
293: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
294: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
295: debug_info);
296: END IF;
297: --
298: -- show output values (only if debug_switch = 'Y')
297: --
298: -- show output values (only if debug_switch = 'Y')
299: --
300: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
301: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
302: '------------------>
303: l_temp_invoice_status = '||l_temp_invoice_status
304: ||' l_vendor_id = '||to_char(l_vendor_id));
305: END IF;
321: -------------------------------------------------------------------------
322: debug_info := '(Check Invoice Validation 3) '||
323: 'Check for Invalid Supplier Site, if Supplier is valid';
324: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
325: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
326: debug_info);
327: END IF;
328:
329:
339: (nvl(p_invoice_rec.invoice_type_lookup_code, 'STANDARD') <> 'PAYMENT REQUEST')) Then -- B# 8528132
340:
341: debug_info := '(Check Invoice Validation 3.1) Supplier Site is per PO';
342: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
343: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
344: debug_info);
345: END IF;
346:
347: IF (AP_IMPORT_UTILITIES_PKG.find_vendor_primary_paysite(
343: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
344: debug_info);
345: END IF;
346:
347: IF (AP_IMPORT_UTILITIES_PKG.find_vendor_primary_paysite(
348: p_vendor_id => p_invoice_rec.vendor_id, -- IN
349: p_vendor_primary_paysite_id => l_primary_paysite_id, -- OUT
350: p_calling_sequence => current_calling_sequence)
351: <> true ) THEN
349: p_vendor_primary_paysite_id => l_primary_paysite_id, -- OUT
350: p_calling_sequence => current_calling_sequence)
351: <> true ) THEN
352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
354: 'find_vendor_primary_paysite<-'||current_calling_sequence);
355: END IF;
356: RAISE check_inv_validation_failure;
357: END IF;
364:
365: ELSE
366: debug_info := '(Check Invoice Validation 3.2) Supplier Site is per EDI';
367: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
368: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
369: debug_info);
370: END IF;
371:
372: END IF;
386: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
387: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
388:
389: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
390: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
391: 'v_check_invalid_party_site<-'
392: ||current_calling_sequence);
393: END IF;
394: RAISE check_inv_validation_failure;
410: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
411: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
412:
413: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
414: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
415: 'v_check_invalid_party_site<-'
416: ||current_calling_sequence);
417: END IF;
418: RAISE check_inv_validation_failure;
430: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
431: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
432:
433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
434: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
435: 'v_check_invalid_supplier_site<-'
436: ||current_calling_sequence);
437: END IF;
438: RAISE check_inv_validation_failure;
456: END IF;
457:
458: debug_info := '(Check Invoice Validation 3) Validated Supplier Site';
459: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
460: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
461: debug_info);
462: END IF;
463:
464: --
464: --
465: -- show output values (only if debug_switch = 'Y')
466: --
467: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
468: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
469: '------------------>
470: l_temp_invoice_status = '||l_temp_invoice_status
471: ||' l_vendor_site_id = '||to_char(l_vendor_site_id)
472: ||' l_party_site_id = '||to_char(l_party_site_id));
484: current_calling_sequence,
485: p_default_last_updated_by,
486: p_default_last_update_login) <> TRUE) then
487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
488: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
489: 'v_check_party_vendor<-'
490: ||current_calling_sequence);
491: END IF;
492: RAISE check_inv_validation_failure;
498:
499: debug_info := '(Check Invoice Validation 3.5) Validated party and vendor info ' ||
500: 'l_temp_invoice_status = '||l_temp_invoice_status;
501: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
502: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
503: debug_info);
504: END IF;
505:
506:
510: --tolerances.
511: IF (p_invoice_rec.vendor_site_id IS NOT NULL AND
512: --p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST') THEN .. B# 8528132
513: nvl(p_invoice_rec.invoice_type_lookup_code, 'STANDARD') <> 'PAYMENT REQUEST') Then -- B# 8528132
514: IF ( ap_import_utilities_pkg.get_tolerance_info(
515: p_invoice_rec.vendor_site_id, -- IN
516: p_positive_price_tolerance, -- OUT
517: p_negative_price_tolerance, -- OUT
518: p_qty_tolerance, -- OUT
532: current_calling_sequence
533: ) <> TRUE) THEN
534:
535: if AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' then
536: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, 'get_tolerance_info()<-'||
537: current_calling_sequence);
538: end if;
539: RAISE import_invoice_failure;
540: END IF;
555: debug_info := '(Check Invoice Validation 4) '||
556: 'Check for Invalid Invoice Number '||
557: ',if Supplier Site is valid';
558: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
559: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
560: debug_info);
561: END IF;
562:
563: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_invoice_num (
570: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
571: p_calling_sequence => current_calling_sequence)
572: <> TRUE ) THEN
573: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
575: 'v_check_invalid_invoice_num<- '||current_calling_sequence);
576: END IF;
577: RAISE check_inv_validation_failure;
578: END IF;
589: --
590: -- show output values (only if debug_switch = 'Y')
591: --
592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
593: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
594: '------------------> l_temp_invoice_status = '||l_temp_invoice_status);
595: END IF;
596:
597: -- only continue if a valid invoice number was found
610: -----------------------------------------------------------------------
611: debug_info := '(Check Invoice Validation 5) Check for Currency Code ,'
612: ||'if Invoice No. is valid';
613: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
614: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
615: debug_info);
616: END IF;
617:
618: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_inv_curr_code (
625: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
626: p_calling_sequence => current_calling_sequence)
627: <> TRUE ) THEN
628: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
629: AP_IMPORT_UTILITIES_PKG.Print(
630: AP_IMPORT_INVOICES_PKG.g_debug_switch,
631: 'v_check_invalid_currency_code<-'||current_calling_sequence);
632: END IF;
633: RAISE check_inv_validation_failure;
643: END IF;
644: --
645:
646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
647: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
648: '--------------> l_temp_invoice_status = ' ||l_temp_invoice_status
649: ||' l_inv_currency_code = '|| l_inv_currency_code);
650: END IF;
651:
663: ----------------------------------------------------------------------
664: debug_info := '(Check Invoice Validation 6) Check for Invoice Lookup '
665: ||'Code and Amount ,if Invoice No. is valid';
666: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
667: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
668: debug_info);
669: END IF;
670:
671: IF (AP_IMPORT_VALIDATION_PKG.v_check_invoice_type_amount (
678: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
679: p_calling_sequence => current_calling_sequence)
680: <> TRUE ) THEN
681: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
682: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
683: 'v_check_invoice_type_amount<-'||current_calling_sequence);
684: END IF;
685: RAISE check_inv_validation_failure;
686: END IF;
698: --
699: -- show output values (only if debug_switch = 'Y')
700: --
701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
702: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
703: '------------------>
704: l_temp_invoice_status = '||l_temp_invoice_status
705: ||' p_match_mode = '||p_match_mode);
706: END IF;
716: ----------------------------------------------------------------------
717: debug_info := '(Check Invoice Validation 7) Check for AWT Group ,'
718: ||'if Invoice No. is valid';
719: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
720: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
721: debug_info);
722: END IF;
723:
724: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_awt_group(
729: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
730: p_calling_sequence => current_calling_sequence)
731: <> TRUE ) THEN
732: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
733: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
734: 'v_check_invalid_awt_group<-'||current_calling_sequence);
735: END IF;
736: RAISE check_inv_validation_failure;
737: END IF;
746: END IF;
747: END IF;
748:
749: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
750: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
751: '------------------>
752: l_temp_invoice_status = '||l_temp_invoice_status);
753: END IF;
754: --bug6639866
763: ----------------------------------------------------------------------
764: debug_info := '(Check Invoice Validation 7) Check for pay AWT Group ,'
765: ||'if Invoice No. is valid';
766: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
767: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
768: debug_info);
769: END IF;
770:
771: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_pay_awt_group(
776: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
777: p_calling_sequence => current_calling_sequence)
778: <> TRUE ) THEN
779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
780: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
781: 'v_check_invalid_pay_awt_group<-'||current_calling_sequence);
782: END IF;
783: RAISE check_inv_validation_failure;
784: END IF;
793: END IF;
794: END IF;
795:
796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
798: '------------------>
799: l_temp_invoice_status = '||l_temp_invoice_status);
800: END IF;
801:
814: ----------------------------------------------------------------------
815: debug_info := '(Check Invoice Validation 8) Check for Exchange Rate '
816: ||'Type ,if Invoice No. is valid';
817: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
818: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
819: debug_info);
820: END IF;
821:
822: IF (AP_IMPORT_VALIDATION_PKG.v_check_exchange_rate_type (
833: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
834: p_calling_sequence => current_calling_sequence)
835: <> TRUE ) THEN
836: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
837: AP_IMPORT_UTILITIES_PKG.Print(
838: AP_IMPORT_INVOICES_PKG.g_debug_switch,
839: 'v_check_exchange_rate_type<-'||current_calling_sequence);
840: END IF;
841: RAISE check_inv_validation_failure;
870: /*Bug 8887650 End*/
871: END IF;
872:
873: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
874: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
875: '------------------>
876: l_temp_invoice_status = '||l_temp_invoice_status);
877: END IF;
878:
890: ----------------------------------------------------------------------
891: debug_info := '(Check Invoice Validation 9) Check for Terms Info ,'
892: ||'if Invoice No. is valid';
893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
895: debug_info);
896: END IF;
897:
898: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_terms (
905: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
906: p_calling_sequence => current_calling_sequence)
907: <> TRUE ) THEN
908: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
909: AP_IMPORT_UTILITIES_PKG.Print(
910: AP_IMPORT_INVOICES_PKG.g_debug_switch,
911: 'v_check_invalid_terms<-'||current_calling_sequence);
912: END IF;
913: RAISE check_inv_validation_failure;
926: END IF;
927: END IF;
928:
929: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
930: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
931: '------------------>
932: l_temp_invoice_status = '||l_temp_invoice_status
933: ||'terms_id = '||to_char(l_terms_id) );
934: END IF;
938: -- Check for Misc Invoice info
939: ----------------------------------------------------------------------
940: debug_info := '(Check Invoice Validation 10) Check for Misc Info ';
941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
942: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
943: debug_info);
944: END IF;
945: IF (AP_IMPORT_VALIDATION_PKG.v_check_misc_invoice_info (
946: p_invoice_rec, -- IN
950: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
951: p_calling_sequence => current_calling_sequence)
952: <> TRUE ) THEN
953: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
954: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
955: 'v_check_misc_invoice_info<-'||current_calling_sequence);
956: END IF;
957: RAISE check_inv_validation_failure;
958: END IF;
961: l_current_invoice_status := l_temp_invoice_status;
962: END IF;
963:
964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
965: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
966: '------------------>
967: l_temp_invoice_status = '||l_temp_invoice_status);
968: END IF;
969:
979: will be used to derive the LE using a LE API.
980: --------------------------------------------------------------------*/
981: debug_info := '(Check Invoice Validation 11a) Check for LE Info ';
982: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
983: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
984: debug_info);
985: END IF;
986:
987: IF (AP_IMPORT_VALIDATION_PKG.v_check_Legal_Entity_info (
992: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
993: p_calling_sequence => current_calling_sequence)
994: <> TRUE ) THEN
995: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
996: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
997: 'v_check_Legal_Entity_info<-'||current_calling_sequence);
998: END IF;
999: RAISE check_inv_validation_failure;
1000: END IF;
1003: l_current_invoice_status := l_temp_invoice_status;
1004: END IF;
1005:
1006: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1007: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1008: '------------------>
1009: l_temp_invoice_status = '||l_temp_invoice_status);
1010: END IF;
1011:
1024: ----------------------------------------------------------------------
1025: debug_info := '(Check Invoice Validation 11) Check for '||
1026: 'Payment Currency Info ,if Invoice No. is valid';
1027: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1028: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1029: debug_info);
1030: END IF;
1031:
1032: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_pay_curr (
1040: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1041: p_calling_sequence => current_calling_sequence)
1042: <> TRUE ) THEN
1043: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1044: AP_IMPORT_UTILITIES_PKG.Print(
1045: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1046: 'v_check_invalid_pay_curr<-'||current_calling_sequence);
1047: END IF;
1048: RAISE check_inv_validation_failure;
1072: END IF;
1073: END IF;
1074: --
1075: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1076: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1077: '------------------>
1078: l_temp_invoice_status = '||l_temp_invoice_status);
1079: END IF;
1080:
1087: -- now also be the Temp table AP_PPA_INVOICES_GT
1088: ----------------------------------------------------------------------
1089: debug_info := '(Check Invoice Validation 13) Check for GDFF';
1090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1091: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1092: debug_info);
1093: END IF;
1094: jg_globe_flex_val.check_attr_value(
1095: 'APXIIMPT',
1128: NULL,NULL,NULL,NULL,
1129: p_current_status => l_temp_invoice_status);
1130:
1131: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1132: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1133: 'Global Flexfield Header Processed '|| l_temp_invoice_status);
1134: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1135: 'Invoice_id '|| to_char(p_invoice_rec.invoice_id));
1136: END IF;
1130:
1131: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1132: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1133: 'Global Flexfield Header Processed '|| l_temp_invoice_status);
1134: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1135: 'Invoice_id '|| to_char(p_invoice_rec.invoice_id));
1136: END IF;
1137: IF (l_temp_invoice_status = 'N') THEN
1138: l_current_invoice_status := l_temp_invoice_status;
1148: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
1149: debug_info :=
1150: '(Check Invoice Validation 14) Check for Prepayment Info.';
1151: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1152: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1153: debug_info);
1154: END IF;
1155:
1156: IF (AP_IMPORT_VALIDATION_PKG.v_check_prepay_info(
1165: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1166: p_calling_sequence => current_calling_sequence)
1167: <> TRUE ) THEN
1168: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1169: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1170: 'v_check_prepay_info<-' ||current_calling_sequence);
1171: END IF;
1172: RAISE check_inv_validation_failure;
1173:
1177: l_current_invoice_status := l_temp_invoice_status;
1178: END IF;
1179:
1180: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1181: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1182: '------------------>
1183: l_temp_invoice_status = '||l_temp_invoice_status);
1184: END IF;
1185: END IF;
1194: debug_info :=
1195: '(Check Invoice Validation 15) Check for tax drivers or invoice level '||
1196: 'tax validations.';
1197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1199: debug_info);
1200: END IF;
1201:
1202: IF (AP_IMPORT_VALIDATION_PKG.v_check_tax_info(
1207: p_calling_sequence => current_calling_sequence)
1208: <> TRUE ) THEN
1209:
1210: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1211: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1212: 'v_check_tax_info<-' ||current_calling_sequence);
1213: END IF;
1214: RAISE check_inv_validation_failure;
1215:
1219: l_current_invoice_status := l_temp_invoice_status;
1220: END IF;
1221:
1222: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1223: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1224: '------------------> l_temp_invoice_status = '
1225: ||l_temp_invoice_status);
1226:
1227: END IF;
1247: processing without a rejection when it can't be populated */
1248: EXCEPTION
1249: WHEN OTHERS THEN
1250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1251: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1252: 'Error when attempting to set default taxation_country.');
1253: END IF;
1254: END;
1255:
1262: ------------------------------------------------
1263:
1264: debug_info := 'Check for Invalid Remit to Supplier';
1265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1266: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1267: debug_info);
1268: END IF;
1269:
1270: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_remit_supplier (
1273: p_default_last_update_login => p_default_last_update_login, -- IN
1274: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1275: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
1276: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1277: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1278: 'v_check_invalid_remit_supplier<-'||current_calling_sequence);
1279: END IF;
1280: RAISE check_inv_validation_failure;
1281: END IF;
1284: l_current_invoice_status := l_temp_invoice_status;
1285: END IF;
1286:
1287: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1288: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1289: '------------------> l_temp_invoice_status = '
1290: ||l_temp_invoice_status);
1291: END IF;
1292:
1309: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
1310: debug_info :=
1311: '(Check Invoice Validation 16) Check for Exchange Rate Info.';
1312: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1313: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1314: debug_info);
1315: END IF;
1316:
1317: IF (AP_IMPORT_VALIDATION_PKG.v_check_no_xrate_base_amount (
1325: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1326: p_calling_sequence => current_calling_sequence)
1327: <> TRUE ) THEN
1328: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1329: AP_IMPORT_UTILITIES_PKG.Print(
1330: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1331: 'v_check_inavlid_currency_code<-' ||current_calling_sequence);
1332: END IF;
1333: RAISE check_inv_validation_failure;
1345: END IF; --Retropricing
1346:
1347: debug_info := '(Check Invoice Validation 17) Check Payment Info ';
1348: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1349: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1350: debug_info);
1351: END IF;
1352:
1353: IF (AP_IMPORT_VALIDATION_PKG.v_check_payment_defaults (
1357: p_default_last_updated_by,
1358: p_default_last_update_login)
1359: <> TRUE ) THEN
1360: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1361: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1362: 'v_check_payment_defaults<-'||current_calling_sequence);
1363: END IF;
1364: RAISE check_inv_validation_failure;
1365: END IF;
1368: l_current_invoice_status := l_temp_invoice_status;
1369: END IF;
1370:
1371: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1372: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1373: '------------------>
1374: l_temp_invoice_status = '||l_temp_invoice_status);
1375: END IF;
1376:
1409:
1410: EXCEPTION
1411: WHEN OTHERS THEN
1412: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1413: AP_IMPORT_UTILITIES_PKG.Print(
1414: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1415: END IF;
1416:
1417: IF (SQLCODE < 0) then
1415: END IF;
1416:
1417: IF (SQLCODE < 0) then
1418: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1419: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
1420: END IF;
1421: END IF;
1422: RETURN(FALSE);
1423:
1473: -- Check for Inactive PO NUMBER.
1474: --------------------------------------------------------------------------
1475: debug_info := '(Check PO Number 1) Check for Inactive PO Number.';
1476: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1477: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1478: debug_info);
1479: END IF;
1480: --Bypass this rejections for PPA's --Retropricing
1481: /* Added l_closed_code condition to avoid rejecting the PO's that are 'CLOSED - 1Off Bug 10288184 / 11i Bug 8410175 */
1483: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA'
1484: AND l_closed_code in ('FINALLY CLOSED')
1485: ) THEN
1486: -- PO has been closed
1487: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
1488: AP_IMPORT_INVOICES_PKG.g_invoices_table,
1489: p_invoice_rec.invoice_id,
1490: 'INACTIVE PO',
1491: p_default_last_updated_by,
1491: p_default_last_updated_by,
1492: p_default_last_update_login,
1493: current_calling_sequence) <> TRUE) THEN
1494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1495: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1496: 'insert_rejections<-'||
1497: current_calling_sequence);
1498: END IF;
1499: RAISE invalid_po_check_failure;
1507: -- Check for Inconsistent PO Vendor.
1508: ------------------------------------------------------------------------
1509: debug_info := '(Check PO Number 2) Check for Inconsistent PO Vendor.';
1510: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1511: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1512: debug_info);
1513: END IF;
1514:
1515: IF (l_vendor_id <> nvl(p_invoice_rec.vendor_id, l_vendor_id)) THEN
1521: INTO l_invoice_vendor_name
1522: FROM po_vendors
1523: WHERE vendor_id = p_invoice_rec.vendor_id;
1524:
1525: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1526: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1527: p_invoice_rec.invoice_id,
1528: 'INCONSISTENT PO SUPPLIER',
1529: p_default_last_updated_by,
1532: 'Y',
1533: 'SUPPLIER NAME',
1534: l_invoice_vendor_name) <> TRUE) THEN
1535: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1536: AP_IMPORT_UTILITIES_PKG.Print(
1537: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1538: 'insert_rejections<-'||current_calling_sequence);
1539: END IF;
1540: RAISE invalid_po_check_failure;
1544: WHEN NO_DATA_FOUND THEN
1545: NULL;
1546: END;
1547: ELSE
1548: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1549: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1550: p_invoice_rec.invoice_id,
1551: 'INCONSISTENT PO SUPPLIER',
1552: p_default_last_updated_by,
1552: p_default_last_updated_by,
1553: p_default_last_update_login,
1554: current_calling_sequence) <> TRUE) THEN
1555: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1556: AP_IMPORT_UTILITIES_PKG.Print(
1557: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1558: 'insert_rejections<-'||
1559: current_calling_sequence);
1560: END IF;
1582: -- Invalid PO NUMBER.
1583: -------------------------------------------------------------------------
1584: debug_info := '(Check PO Number 3) Check for Invalid PO Number.';
1585: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1586: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1587: debug_info);
1588: END IF;
1589:
1590: -- include context for XML GATEWAY
1587: debug_info);
1588: END IF;
1589:
1590: -- include context for XML GATEWAY
1591: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1592: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1593: p_invoice_rec.invoice_id,
1594: 'INVALID PO NUM',
1595: p_default_last_updated_by,
1598: 'Y',
1599: 'PO NUMBER',
1600: p_invoice_rec.po_number) <> TRUE) THEN
1601: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1602: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1603: 'insert_rejections<-'||
1604: current_calling_sequence);
1605: END IF;
1606: RAISE invalid_po_check_failure;
1612: RETURN (TRUE);
1613:
1614: WHEN OTHERS THEN
1615: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1616: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1617: debug_info);
1618: END IF;
1619:
1620: IF (SQLCODE < 0) then
1618: END IF;
1619:
1620: IF (SQLCODE < 0) then
1621: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1622: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1623: SQLERRM);
1624: END IF;
1625: END IF;
1626: RETURN(FALSE);
1668: -- Check for Null Supplier.
1669: -------------------------------------------------------------------------
1670: debug_info := '(Check Invalid Supplier 1) Check for Null Supplier.';
1671: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1672: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1673: debug_info);
1674: END IF;
1675:
1676: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1672: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1673: debug_info);
1674: END IF;
1675:
1676: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1677: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1678: p_invoice_rec.invoice_id,
1679: 'NO SUPPLIER',
1680: p_default_last_updated_by,
1680: p_default_last_updated_by,
1681: p_default_last_update_login,
1682: current_calling_sequence) <> TRUE) THEN
1683: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1684: AP_IMPORT_UTILITIES_PKG.Print(
1685: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1686: 'insert_rejections<-'||current_calling_sequence);
1687: END IF;
1688: RAISE supplier_check_failure;
1698: -- validate vendor id
1699: ----------------------------------------------------------------------
1700: debug_info := '(Check Invalid Supplier 2) Validate vendor id.';
1701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1702: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1703: debug_info);
1704: END IF;
1705:
1706: SELECT vendor_id
1724: ----------------------------------------------------------------------
1725: debug_info := '(Check Invalid Supplier 3) Validate vendor number and '
1726: ||'retrieve vendor id';
1727: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1728: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1729: debug_info);
1730: END IF;
1731:
1732: SELECT vendor_id
1750: ----------------------------------------------------------------------
1751: debug_info := '(Check Invalid Supplier 4) Validate vendor name and '
1752: ||'retrieve vendor id';
1753: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1754: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1755: debug_info);
1756: END IF;
1757:
1758: SELECT vendor_id
1781: -----------------------------------------------------------------------
1782: debug_info := '(Check Invalid Supplier 5) Check for inconsistent '
1783: ||'Supplier - supplier id not null';
1784: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1785: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1786: debug_info);
1787: END IF;
1788:
1789: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1785: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1786: debug_info);
1787: END IF;
1788:
1789: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1790: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1791: p_invoice_rec.invoice_id,
1792: 'INCONSISTENT SUPPLIER',
1793: p_default_last_updated_by,
1793: p_default_last_updated_by,
1794: p_default_last_update_login,
1795: current_calling_sequence) <> TRUE) THEN
1796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1798: 'insert_rejections<-'
1799: ||current_calling_sequence);
1800: END IF;
1801: RAISE supplier_check_failure;
1817: ----------------------------------------------------------------------
1818: debug_info := '(Check Invalid Supplier 6) Check for inconsistent '
1819: ||'Supplier Number and Name.';
1820: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1821: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1822: debug_info);
1823: END IF;
1824:
1825: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1821: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1822: debug_info);
1823: END IF;
1824:
1825: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1826: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1827: p_invoice_rec.invoice_id,
1828: 'INCONSISTENT SUPPLIER',
1829: p_default_last_updated_by,
1829: p_default_last_updated_by,
1830: p_default_last_update_login,
1831: current_calling_sequence) <> TRUE) THEN
1832: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1833: AP_IMPORT_UTILITIES_PKG.Print(
1834: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1835: 'insert_rejections<-'||current_calling_sequence);
1836: END IF;
1837: RAISE supplier_check_failure;
1849: ----------------------------------------------------------------------
1850: debug_info := '(Check Invalid Supplier 7) Save Supplier id for '
1851: ||'further processing.';
1852: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1853: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1854: debug_info);
1855: END IF;
1856:
1857: IF (l_vendor_id is NULL) THEN
1878: -- Check for invalid Supplier.
1879: -------------------------------------------------------------------------
1880: debug_info := '(Check Invalid Supplier 8) Check for invalid Supplier.';
1881: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1882: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1883: debug_info);
1884: END IF;
1885:
1886: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1882: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1883: debug_info);
1884: END IF;
1885:
1886: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1887: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1888: p_invoice_rec.invoice_id,
1889: 'INVALID SUPPLIER',
1890: p_default_last_updated_by,
1890: p_default_last_updated_by,
1891: p_default_last_update_login,
1892: current_calling_sequence) <> TRUE) THEN
1893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1895: 'insert_rejections<-'||current_calling_sequence);
1896: END IF;
1897: RAISE supplier_check_failure;
1898:
1904:
1905:
1906: WHEN OTHERS THEN
1907: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1908: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1909: debug_info);
1910: END IF;
1911:
1912: IF (SQLCODE < 0) then
1910: END IF;
1911:
1912: IF (SQLCODE < 0) then
1913: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1914: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1915: SQLERRM);
1916: END IF;
1917: END IF;
1918: RETURN(FALSE);
1955: ||P_calling_sequence;
1956:
1957: debug_info := '(Check Invalid Site 1) Check Supplier Site';
1958: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1959: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1960: debug_info);
1961: END IF;
1962:
1963: IF ((p_invoice_rec.vendor_site_id is null) AND
1965: (p_vendor_site_id_per_po is null)) THEN
1966:
1967: debug_info := '(Check Invalid Site 2) No Supplier Site, Reject';
1968: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1969: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1970: debug_info);
1971: END IF;
1972:
1973: -- no supplier site exists
1970: debug_info);
1971: END IF;
1972:
1973: -- no supplier site exists
1974: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1975: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1976: p_invoice_rec.invoice_id,
1977: 'NO SUPPLIER SITE',
1978: p_default_last_updated_by,
1978: p_default_last_updated_by,
1979: p_default_last_update_login,
1980: current_calling_sequence) <> TRUE) THEN
1981: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1982: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1983: 'insert_rejections<-'
1984: ||current_calling_sequence);
1985: END IF;
1986: RAISE supplier_site_check_failure;
1994: IF p_invoice_rec.vendor_site_id is not null THEN
1995: debug_info := '(Check Invalid Site 3) Get Supplier Site details '
1996: ||'from p_invoice_rec.vendor_site_id';
1997: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1998: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1999: debug_info);
2000: END IF;
2001: /*Bug5503712 Done the code changes so that if vendor site id is not null
2002: CADIP will not reject PPA invoices in following cases.
2015: WHEN no_data_found THEN
2016: /* Added the if condition AP_IMPORT_INVOICES_PKG.g_source <> 'PPA'
2017: for bug#9727865 */
2018: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
2019: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2020: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2021: p_invoice_rec.invoice_id,
2022: 'INVALID SUPPLIER SITE',
2023: p_default_last_updated_by,
2024: p_default_last_update_login,
2025: current_calling_sequence) <> TRUE
2026: ) THEN
2027: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2028: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2029: 'insert_rejections<-'
2030: ||current_calling_sequence);
2031: END IF;
2032: RAISE supplier_site_check_failure;
2072: WHERE invoice_id = p_invoice_rec.invoice_id;
2073:
2074: EXCEPTION
2075: WHEN OTHERS THEN
2076: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2077: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2078: p_invoice_rec.invoice_id,
2079: 'INVALID SUPPLIER SITE',
2080: p_default_last_updated_by,
2080: p_default_last_updated_by,
2081: p_default_last_update_login,
2082: current_calling_sequence) <> TRUE) THEN
2083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2084: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2085: 'insert_rejections<-'
2086: ||current_calling_sequence);
2087: END IF;
2088: RAISE supplier_site_check_failure;
2100:
2101: debug_info := '(Check Invalid Site 4) Get Supplier Site details '
2102: ||'from p_invoice_rec.vendor_site_code';
2103: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2104: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2105: debug_info);
2106: END IF;
2107:
2108: --validate vendor site code and retrieve vendor site id
2124: NULL;
2125: END IF;
2126:
2127: WHEN no_data_found THEN
2128: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2129: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2130: p_invoice_rec.invoice_id,
2131: 'INVALID SUPPLIER SITE',
2132: p_default_last_updated_by,
2132: p_default_last_updated_by,
2133: p_default_last_update_login,
2134: current_calling_sequence) <> TRUE) THEN
2135: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2136: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2137: 'insert_rejections<-'
2138: ||current_calling_sequence);
2139: END IF;
2140: RAISE supplier_site_check_failure;
2152: l_vendor_site_id <> l_vendor_site_id_per_code THEN
2153: debug_info :=
2154: '(Check Invalid Site 5) Supplier Site info is inconsistent';
2155: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2156: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2157: debug_info);
2158: END IF;
2159:
2160: --vendor site id and vendor site code inconsistent
2157: debug_info);
2158: END IF;
2159:
2160: --vendor site id and vendor site code inconsistent
2161: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2162: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2163: p_invoice_rec.invoice_id,
2164: 'INCONSISTENT SUPPL SITE',
2165: p_default_last_updated_by,
2165: p_default_last_updated_by,
2166: p_default_last_update_login,
2167: current_calling_sequence) <> TRUE) THEN
2168: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2169: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2170: 'insert_rejections<-'
2171: ||current_calling_sequence);
2172: END IF;
2173: RAISE supplier_site_check_failure;
2185: p_invoice_rec.vendor_id IS NOT NULL) THEN
2186: debug_info := '(Check Invalid Site 6) Check Supplier Site for'
2187: ||' given vendor';
2188: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2189: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2190: debug_info);
2191: END IF;
2192:
2193: BEGIN
2198: AND vendor_id = p_invoice_rec.vendor_id;
2199:
2200: EXCEPTION
2201: WHEN no_data_found THEN
2202: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2203: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2204: p_invoice_rec.invoice_id,
2205: 'INCONSISTENT SUPPL SITE',
2206: p_default_last_updated_by,
2206: p_default_last_updated_by,
2207: p_default_last_update_login,
2208: current_calling_sequence) <> TRUE) THEN
2209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2210: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2211: 'insert_rejections<-'
2212: ||current_calling_sequence);
2213: END IF;
2214: RAISE supplier_site_check_failure;
2217: l_current_invoice_status := 'N';
2218: END;
2219:
2220: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2221: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2222: '------------------> l_valid_vendor = '|| l_valid_vendor);
2223: END IF;
2224:
2225: END IF; -- Make sure vendor site and vendor match
2234:
2235: debug_info := '(Check Invalid Site 7) Check Supplier Site info for EDI'
2236: ||' and PO site';
2237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2238: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2239: debug_info);
2240: END IF;
2241:
2242: BEGIN
2250: WHEN NO_DATA_FOUND THEN
2251: debug_info := '(Check Invalid Site 8) EDI and PO site are '
2252: ||'invalid: Reject';
2253: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2254: AP_IMPORT_UTILITIES_PKG.Print(
2255: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2256: END IF;
2257:
2258: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2254: AP_IMPORT_UTILITIES_PKG.Print(
2255: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2256: END IF;
2257:
2258: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2259: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2260: p_invoice_rec.invoice_id,
2261: 'INCONSISTENT SUPPL SITE',
2262: p_default_last_updated_by,
2262: p_default_last_updated_by,
2263: p_default_last_update_login,
2264: current_calling_sequence) <> TRUE) THEN
2265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2266: AP_IMPORT_UTILITIES_PKG.Print(
2267: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2268: 'insert_rejections<-'||current_calling_sequence);
2269: END IF;
2270: RAISE supplier_site_check_failure;
2275: WHEN TOO_MANY_ROWS THEN
2276: debug_info := '(Check Invalid Site 9) EDI and PO site are '
2277: ||'for different supplier';
2278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2279: AP_IMPORT_UTILITIES_PKG.Print(
2280: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2281: END IF;
2282:
2283: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2279: AP_IMPORT_UTILITIES_PKG.Print(
2280: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2281: END IF;
2282:
2283: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2284: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2285: p_invoice_rec.invoice_id,
2286: 'INCONSISTENT SUPPL SITE',
2287: p_default_last_updated_by,
2287: p_default_last_updated_by,
2288: p_default_last_update_login,
2289: current_calling_sequence) <> TRUE) THEN
2290: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2291: AP_IMPORT_UTILITIES_PKG.Print(
2292: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2293: 'insert_rejections<-' ||current_calling_sequence);
2294: END IF;
2295: RAISE supplier_site_check_failure;
2306: -- pay site is not a pay site
2307: debug_info := '(Check Invalid Site 10) Not a pay site per '
2308: ||'supplier site code';
2309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2310: AP_IMPORT_UTILITIES_PKG.Print(
2311: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2312: END IF;
2313:
2314: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2310: AP_IMPORT_UTILITIES_PKG.Print(
2311: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2312: END IF;
2313:
2314: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2315: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2316: p_invoice_rec.invoice_id,
2317: 'NOT PAY SITE',
2318: p_default_last_updated_by,
2318: p_default_last_updated_by,
2319: p_default_last_update_login,
2320: current_calling_sequence) <> TRUE) THEN
2321: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2322: AP_IMPORT_UTILITIES_PKG.Print(
2323: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2324: 'insert_rejections<-' ||current_calling_sequence);
2325: END IF;
2326: RAISE supplier_site_check_failure;
2333: -- pay site is not a pay site
2334: debug_info := '(Check Invalid Site 11) Not a pay site '
2335: ||'per supplier site id';
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,debug_info);
2339: END IF;
2340:
2341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2337: AP_IMPORT_UTILITIES_PKG.Print(
2338: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2339: END IF;
2340:
2341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2342: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2343: p_invoice_rec.invoice_id,
2344: 'NOT PAY SITE',
2345: p_default_last_updated_by,
2345: p_default_last_updated_by,
2346: p_default_last_update_login,
2347: current_calling_sequence) <> TRUE) THEN
2348: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2349: AP_IMPORT_UTILITIES_PKG.Print(
2350: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2351: 'insert_rejections<-'||current_calling_sequence);
2352: END IF;
2353: RAISE supplier_site_check_failure;
2377: RETURN (TRUE);
2378:
2379: EXCEPTION
2380: WHEN no_data_found THEN
2381: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2382: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2383: p_invoice_rec.invoice_id,
2384: 'INVALID SUPPLIER SITE',
2385: p_default_last_updated_by,
2385: p_default_last_updated_by,
2386: p_default_last_update_login,
2387: current_calling_sequence) <> TRUE) THEN
2388: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2389: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2390: 'insert_rejections<-'
2391: ||current_calling_sequence);
2392: END IF;
2393: RAISE supplier_site_check_failure;
2400: RETURN (TRUE);
2401:
2402: WHEN OTHERS THEN
2403: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2404: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2405: debug_info);
2406: END IF;
2407:
2408: IF (SQLCODE < 0) then
2406: END IF;
2407:
2408: IF (SQLCODE < 0) then
2409: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2410: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2411: SQLERRM);
2412: END IF;
2413: END IF;
2414: RETURN (FALSE);
2450: -- Check for Null Party.
2451: -------------------------------------------------------------------------
2452: debug_info := '(Check Invalid Party 1) Check for Null Party.';
2453: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2454: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2455: debug_info);
2456: END IF;
2457:
2458: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2454: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2455: debug_info);
2456: END IF;
2457:
2458: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2459: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2460: p_invoice_rec.invoice_id,
2461: 'INVALID PARTY',
2462: p_default_last_updated_by,
2462: p_default_last_updated_by,
2463: p_default_last_update_login,
2464: current_calling_sequence) <> TRUE) THEN
2465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2466: AP_IMPORT_UTILITIES_PKG.Print(
2467: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2468: 'insert_rejections<-'||current_calling_sequence);
2469: END IF;
2470: RAISE party_check_failure;
2478: -- validate party id
2479: ----------------------------------------------------------------------
2480: debug_info := '(Check Invalid Party 2) Validate party id.';
2481: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2482: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2483: debug_info);
2484: END IF;
2485:
2486: SELECT party_id
2503: -- Check for invalid Party.
2504: -------------------------------------------------------------------------
2505: debug_info := '(Check Invalid Party 8) Check for invalid Party.';
2506: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2507: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2508: debug_info);
2509: END IF;
2510:
2511: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2507: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2508: debug_info);
2509: END IF;
2510:
2511: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2512: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2513: p_invoice_rec.invoice_id,
2514: 'INVALID PARTY',
2515: p_default_last_updated_by,
2515: p_default_last_updated_by,
2516: p_default_last_update_login,
2517: current_calling_sequence) <> TRUE) THEN
2518: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2519: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2520: 'insert_rejections<-'||current_calling_sequence);
2521: END IF;
2522: RAISE party_check_failure;
2523:
2528:
2529:
2530: WHEN OTHERS THEN
2531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2532: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2533: debug_info);
2534: END IF;
2535:
2536: IF (SQLCODE < 0) then
2534: END IF;
2535:
2536: IF (SQLCODE < 0) then
2537: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2538: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2539: SQLERRM);
2540: END IF;
2541: END IF;
2542: RETURN(FALSE);
2574: ||P_calling_sequence;
2575:
2576: debug_info := '(Check Invalid Party Site 1) Check Party Site';
2577: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2578: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2579: debug_info);
2580: END IF;
2581:
2582: IF (p_invoice_rec.party_site_id is null) THEN
2596: when no_data_found then
2597: debug_info := '(Check Invalid Party Site 2) No Party Site, Reject';
2598:
2599: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2600: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2601: debug_info);
2602: END IF;
2603:
2604: -- no party site exists
2601: debug_info);
2602: END IF;
2603:
2604: -- no party site exists
2605: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2606: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2607: p_invoice_rec.invoice_id,
2608: 'INVALID PARTY SITE',
2609: p_default_last_updated_by,
2609: p_default_last_updated_by,
2610: p_default_last_update_login,
2611: current_calling_sequence) <> TRUE) THEN
2612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2613: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2614: 'insert_rejections<-'
2615: ||current_calling_sequence);
2616: END IF;
2617: RAISE party_site_check_failure;
2622: ELSE
2623:
2624: debug_info := '(Check Invalid Party Site 3) Check Party Site ';
2625: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2626: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2627: debug_info);
2628: END IF;
2629:
2630: BEGIN
2643: EXCEPTION
2644: when no_data_found then
2645: debug_info := '(Check Invalid Party Site 2) Invalid Party Site, Reject';
2646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2647: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2648: debug_info);
2649: END IF;
2650:
2651: -- invalid party site
2648: debug_info);
2649: END IF;
2650:
2651: -- invalid party site
2652: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2653: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2654: p_invoice_rec.invoice_id,
2655: 'INVALID PARTY SITE',
2656: p_default_last_updated_by,
2656: p_default_last_updated_by,
2657: p_default_last_update_login,
2658: current_calling_sequence) <> TRUE) THEN
2659: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2660: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2661: 'insert_rejections<-'
2662: ||current_calling_sequence);
2663: END IF;
2664: RAISE party_site_check_failure;
2694: EXCEPTION
2695:
2696: WHEN OTHERS THEN
2697: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2698: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2699: debug_info);
2700: END IF;
2701:
2702: IF (SQLCODE < 0) then
2700: END IF;
2701:
2702: IF (SQLCODE < 0) then
2703: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2704: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2705: SQLERRM);
2706: END IF;
2707: END IF;
2708: RETURN (FALSE);
2750: End If;
2751:
2752:
2753: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2754: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2755: '------------------> l_invoice_num =
2756: '||l_invoice_num);
2757: END IF;
2758:
2764: -- This should never happen
2765: ------------------------------------------------------------------------
2766: debug_info := '(Check Invoice Number 1) Check for Null Invoice Number.';
2767: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2768: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2769: debug_info);
2770: END IF;
2771:
2772: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2768: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2769: debug_info);
2770: END IF;
2771:
2772: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2773: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2774: p_invoice_rec.invoice_id,
2775: 'NO INVOICE NUMBER',
2776: p_default_last_updated_by,
2776: p_default_last_updated_by,
2777: p_default_last_update_login,
2778: current_calling_sequence) <> TRUE) THEN
2779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2780: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2781: 'insert_rejections<-'
2782: ||current_calling_sequence);
2783: END IF;
2784: RAISE invoice_num_check_failure;
2797: and interest invoices option is enabled*/
2798:
2799: debug_info := '(Check Invoice Number 2) Check for Invalid Invoice Number.';
2800: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2801: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2802: debug_info);
2803: END IF;
2804:
2805: IF (nvl(p_allow_interest_invoices,'N') = 'Y'
2804:
2805: IF (nvl(p_allow_interest_invoices,'N') = 'Y'
2806: AND LENGTH(l_invoice_num) > 45) THEN
2807:
2808: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2809: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2810: p_invoice_rec.invoice_id,
2811: 'INVALID INVOICE NUMBER',
2812: p_default_last_updated_by,
2815: 'Y',
2816: 'INVOICE NUMBER',
2817: l_invoice_num) <> TRUE) THEN
2818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2819: AP_IMPORT_UTILITIES_PKG.Print(
2820: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2821: 'insert_rejections<-'||current_calling_sequence);
2822: END IF;
2823: RAISE invoice_num_check_failure;
2833: ------------------------------------------------------------------------
2834: debug_info := '(Check Invoice Number 3) Check for Duplicate '
2835: ||'Invoice Number.';
2836: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2837: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2838: debug_info);
2839: END IF;
2840:
2841: SELECT count(*)
2862:
2863: IF ((l_invoice_count > 0) OR (l_count_in_history_invoices > 0)) THEN
2864:
2865: -- Pass context for XML GATEWAY
2866: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2867: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2868: p_invoice_rec.invoice_id,
2869: 'DUPLICATE INVOICE NUMBER',
2870: p_default_last_updated_by,
2873: 'Y',
2874: 'INVOICE NUMBER',
2875: l_invoice_num) <> TRUE) THEN
2876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2877: AP_IMPORT_UTILITIES_PKG.Print(
2878: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2879: 'insert_rejections<-'||current_calling_sequence);
2880: END IF;
2881: RAISE invoice_num_check_failure;
2892:
2893: EXCEPTION
2894: WHEN OTHERS THEN
2895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2896: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2897: debug_info);
2898: END IF;
2899:
2900: IF (SQLCODE < 0) then
2898: END IF;
2899:
2900: IF (SQLCODE < 0) then
2901: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2902: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2903: SQLERRM);
2904: END IF;
2905: END IF;
2906: RETURN(FALSE);
2953: IF (p_invoice_rec.invoice_currency_code IS NULL) Then
2954: debug_info := '(Check Invoice Currency Code 1) Invoice Currency Code is '
2955: ||'null ,default from PO Vendor Sites.';
2956: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2957: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2958: debug_info);
2959: END IF;
2960:
2961: -- Added for payment requests project --commented for Bug9184247
3006: --------------------------------------------------------------------------
3007: debug_info := '(Check Invoice Currency Code 2) Get precision, '
3008: ||'mau for Invoice Currency Code.';
3009: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3010: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3011: debug_info);
3012: END IF;
3013:
3014: /*SELECT start_date_active, end_date_active,
3033: END LOOP;
3034:
3035: debug_info := 'l_valid_inv_currency: '||l_valid_inv_currency;
3036: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3037: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3038: debug_info);
3039: END IF;
3040:
3041:
3056: -------------------------------------------------------------------------
3057: debug_info := '(Check Invoice Currency Code 3) Check for Inactive Invoice'
3058: ||' Currency Code.';
3059: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3060: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3061: debug_info);
3062: END IF;
3063:
3064: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3060: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3061: debug_info);
3062: END IF;
3063:
3064: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3065: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3066: p_invoice_rec.invoice_id,
3067: 'INACTIVE CURRENCY CODE',
3068: p_default_last_updated_by,
3068: p_default_last_updated_by,
3069: p_default_last_update_login,
3070: current_calling_sequence) <> TRUE) THEN
3071: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3072: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3073: 'insert_rejections<-'||current_calling_sequence);
3074: END IF;
3075: RAISE invalid_inv_curr_code_failure;
3076: END IF;
3086: --------------------------------------------------------------------------
3087: debug_info := '(Check Invoice Currency Code 4) Check for Invalid Invoice '
3088: ||'Currency Code.';
3089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3091: debug_info);
3092: END IF;
3093:
3094: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3091: debug_info);
3092: END IF;
3093:
3094: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3095: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3096: p_invoice_rec.invoice_id,
3097: 'INVALID CURRENCY CODE',
3098: p_default_last_updated_by,
3098: p_default_last_updated_by,
3099: p_default_last_update_login,
3100: current_calling_sequence) <> TRUE) THEN
3101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3103: 'insert_rejections<-'||current_calling_sequence);
3104: END IF;
3105: RAISE invalid_inv_curr_code_failure;
3106: END IF;
3123: --------------------------------------------------------------------------
3124: debug_info := '(Check Invoice Currency Code 4) Check for Invalid Invoice '
3125: ||'Currency Code.';
3126: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3127: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3128: debug_info);
3129: END IF;
3130:
3131: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3127: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3128: debug_info);
3129: END IF;
3130:
3131: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3132: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3133: p_invoice_rec.invoice_id,
3134: 'INVALID CURRENCY CODE',
3135: p_default_last_updated_by,
3135: p_default_last_updated_by,
3136: p_default_last_update_login,
3137: current_calling_sequence) <> TRUE) THEN
3138: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3139: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3140: 'insert_rejections<-'||current_calling_sequence);
3141: END IF;
3142: RAISE invalid_inv_curr_code_failure;
3143: END IF;
3147: RETURN (TRUE);
3148: End of bug8770461*/
3149: WHEN OTHERS THEN
3150: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3152: debug_info);
3153: END IF;
3154:
3155: IF (SQLCODE < 0) then
3153: END IF;
3154:
3155: IF (SQLCODE < 0) then
3156: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3157: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3158: SQLERRM);
3159: END IF;
3160: END IF;
3161: RETURN(FALSE);
3201: --------------------------------------------------------------------------
3202: debug_info := '(Check Invoice Type and Amount 1) Check for Invalid Invoice'
3203: ||' type lookup code.';
3204: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3205: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3206: debug_info);
3207: END IF;
3208:
3209: p_invoice_type_lookup_code := p_invoice_rec.invoice_type_lookup_code;
3227: 'STANDARD','CREDIT', 'DEBIT', 'PO PRICE ADJUST','PREPAYMENT','EXPENSE REPORT',
3228: 'PAYMENT REQUEST')))
3229: THEN
3230:
3231: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3232: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3233: p_invoice_rec.invoice_id,
3234: 'INVALID INV TYPE LOOKUP',
3235: p_default_last_updated_by,
3235: p_default_last_updated_by,
3236: p_default_last_update_login,
3237: current_calling_sequence) <> TRUE) THEN
3238: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3239: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3240: 'insert_rejections<-'||current_calling_sequence);
3241: END IF;
3242: RAISE invalid_type_lookup_failure;
3243: END IF;
3249:
3250: debug_info := '(Check Invoice Type and Amount 2) Invoice type lookup '
3251: ||'code is null, setting to STANDARD.';
3252: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3253: AP_IMPORT_UTILITIES_PKG.Print(
3254: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
3255: END IF;
3256:
3257: p_invoice_type_lookup_code := 'STANDARD';
3261:
3262: debug_info := '(Check Invoice Type and Amount 2) Invoice type lookup '
3263: ||'code is null, setting to CREDIT.';
3264: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3265: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3266: debug_info);
3267: END IF;
3268:
3269: p_invoice_type_lookup_code := 'CREDIT';
3276: --------------------------------------------------------------------------
3277: debug_info := '(Check Invoice Type and Amount 2) Check for Null Invoice'
3278: ||' amount.';
3279: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3280: AP_IMPORT_UTILITIES_PKG.Print(
3281: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3282: END IF;
3283:
3284: IF (p_invoice_rec.invoice_amount IS NULL) THEN
3283:
3284: IF (p_invoice_rec.invoice_amount IS NULL) THEN
3285:
3286: -- Set contextual information for XML GATEWAY
3287: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3288: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3289: p_invoice_rec.invoice_id,
3290: 'INVALID INVOICE AMOUNT',
3291: p_default_last_updated_by,
3292: p_default_last_update_login,
3293: current_calling_sequence,
3294: 'Y') <> TRUE) THEN
3295: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3296: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3297: 'insert_rejections<-'||current_calling_sequence);
3298: END IF;
3299: RAISE invalid_type_lookup_failure;
3300: END IF;
3309: --------------------------------------------------------------------------
3310: debug_info := '(Check Invoice Type and Amount 3) Check for Invalid '
3311: ||'Invoice amount.';
3312: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3313: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3314: debug_info);
3315: END IF;
3316:
3317: --Contract Payments: Modified the IF condition to add 'Prepayment' type
3322: (p_invoice_rec.invoice_amount < 0)) OR
3323: ((nvl(p_invoice_type_lookup_code,'DUMMY') IN ('CREDIT', 'DEBIT')) AND --Bug 7299826 - Added DEBIT
3324: (p_invoice_rec.invoice_amount > 0))) THEN -- Bug 2822878
3325:
3326: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3327: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3328: p_invoice_rec.invoice_id,
3329: 'INCONSISTENT INV TYPE/AMT',
3330: p_default_last_updated_by,
3330: p_default_last_updated_by,
3331: p_default_last_update_login,
3332: current_calling_sequence) <> TRUE) THEN
3333: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3334: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3335: 'insert_rejections<-'||current_calling_sequence);
3336: END IF;
3337: RAISE invalid_type_lookup_failure;
3338: END IF;
3356: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
3357: debug_info := '(Check Invoice Type and Amount 4) Check for Invoice amount'
3358: ||' to match sum of invoice line amounts.';
3359: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3360: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3361: debug_info);
3362: END IF;
3363:
3364: SELECT nvl(sum(amount),0) , count(*)
3369: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') THEN
3370: debug_info := '(Check Invoice step 4) Check Invoice amount to match '
3371: ||'sum of invoice line amounts for EDI only.';
3372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3374: debug_info);
3375: END IF;
3376:
3377: IF (l_lines_amount_sum <> p_invoice_rec.invoice_amount) THEN
3375: END IF;
3376:
3377: IF (l_lines_amount_sum <> p_invoice_rec.invoice_amount) THEN
3378:
3379: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3380: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3381: p_invoice_rec.invoice_id,
3382: 'INVOICE AMOUNT INCORRECT',
3383: p_default_last_updated_by,
3383: p_default_last_updated_by,
3384: p_default_last_update_login,
3385: current_calling_sequence) <> TRUE) THEN
3386: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3387: AP_IMPORT_UTILITIES_PKG.Print(
3388: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3389: 'insert_rejections<-'||current_calling_sequence);
3390: END IF;
3391: RAISE invalid_type_lookup_failure;
3397: IF (l_no_of_lines = 0) THEN
3398: debug_info := '(Check Invoice Type and Amount 4) No Lines for this '
3399: ||'invoice.';
3400: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3401: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3402: debug_info);
3403: END IF;
3404:
3405: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3401: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3402: debug_info);
3403: END IF;
3404:
3405: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3406: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3407: p_invoice_rec.invoice_id,
3408: 'NO INVOICE LINES',
3409: p_default_last_updated_by,
3409: p_default_last_updated_by,
3410: p_default_last_update_login,
3411: current_calling_sequence) <> TRUE) THEN
3412: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3413: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3414: 'insert_rejections<-'||current_calling_sequence);
3415: END IF;
3416: RAISE invalid_type_lookup_failure;
3417: END IF;
3428: > NVL(p_precision_inv_curr,0) THEN
3429: debug_info := '(Check Invoice Type and Amount 5) Invoice or Lines '
3430: ||'amount exceeds precision.';
3431: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3432: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3433: debug_info);
3434: END IF;
3435:
3436: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3432: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3433: debug_info);
3434: END IF;
3435:
3436: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3437: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3438: p_invoice_rec.invoice_id,
3439: 'AMOUNT EXCEEDS PRECISION',
3440: p_default_last_updated_by,
3440: p_default_last_updated_by,
3441: p_default_last_update_login,
3442: current_calling_sequence) <> TRUE) THEN
3443: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3444: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3445: 'insert_rejections<-'||current_calling_sequence);
3446: END IF;
3447: RAISE invalid_type_lookup_failure;
3448: END IF;
3456: -- Determine match mode.
3457: --------------------------------------------------------------------------
3458: debug_info := '(Check Invoice Type and Amount 6) Determine Match Mode.';
3459: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3460: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3461: debug_info);
3462: END IF;
3463:
3464: If (p_invoice_type_lookup_code = 'PO PRICE ADJUST') Then
3472:
3473: EXCEPTION
3474: WHEN OTHERS THEN
3475: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3476: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3477: debug_info);
3478: END IF;
3479:
3480: IF (SQLCODE < 0) then
3478: END IF;
3479:
3480: IF (SQLCODE < 0) then
3481: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3482: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3483: SQLERRM);
3484: END IF;
3485: END IF;
3486: RETURN(FALSE);
3546: -------------------------------------------------------------------------
3547: debug_info := '(Check AWT Group 1) Check for AWT Group Id and Group Name'
3548: ||' Inconsistency.';
3549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3550: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3551: debug_info);
3552: END IF;
3553:
3554: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3550: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3551: debug_info);
3552: END IF;
3553:
3554: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3555: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3556: p_invoice_rec.invoice_id,
3557: 'INCONSISTENT AWT GROUP',
3558: p_default_last_updated_by,
3558: p_default_last_updated_by,
3559: p_default_last_update_login,
3560: current_calling_sequence) <> TRUE) THEN
3561: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3562: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3563: 'insert_rejections<-'||current_calling_sequence);
3564: END IF;
3565: RAISE awt_group_check_failure;
3566: END IF;
3573: -- Check for Inactive AWT Group
3574: ------------------------------------------------------------------------
3575: debug_info := '(Check AWT Group 2) Check for Inactive AWT Group';
3576: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3577: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3578: debug_info);
3579: END IF;
3580:
3581: IF ((l_awt_group_id is NULL) and
3587: --------------------------------------------------------------
3588: -- inactive AWT group (per name)
3589: --
3590: ---------------------------------------------------------------
3591: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3592: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3593: p_invoice_rec.invoice_id,
3594: 'INACTIVE AWT GROUP',
3595: p_default_last_updated_by,
3595: p_default_last_updated_by,
3596: p_default_last_update_login,
3597: current_calling_sequence) <> TRUE) THEN
3598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3599: AP_IMPORT_UTILITIES_PKG.Print(
3600: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3601: 'insert_rejections<-'||current_calling_sequence);
3602: END IF;
3603: RAISE awt_group_check_failure;
3619: --------------------------------------------------------------
3620: -- inactive AWT group (as per id)
3621: --
3622: --------------------------------------------------------------
3623: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3624: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3625: p_invoice_rec.invoice_id,
3626: 'INACTIVE AWT GROUP',
3627: p_default_last_updated_by,
3627: p_default_last_updated_by,
3628: p_default_last_update_login,
3629: current_calling_sequence) <> TRUE) THEN
3630: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3631: AP_IMPORT_UTILITIES_PKG.Print(
3632: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3633: 'insert_rejections<-'||current_calling_sequence);
3634: END IF;
3635: RAISE awt_group_check_failure;
3673: RETURN (TRUE);
3674:
3675: EXCEPTION
3676: WHEN no_data_found THEN
3677: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3678: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3679: p_invoice_rec.invoice_id,
3680: 'INVALID AWT GROUP',
3681: p_default_last_updated_by,
3681: p_default_last_updated_by,
3682: p_default_last_update_login,
3683: current_calling_sequence) <> TRUE) THEN
3684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3685: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3686: 'insert_rejections<-'||current_calling_sequence);
3687: END IF;
3688: RAISE awt_group_check_failure;
3689: END IF;
3693: RETURN (TRUE);
3694:
3695: WHEN OTHERS THEN
3696: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3697: AP_IMPORT_UTILITIES_PKG.Print(
3698: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3699: END IF;
3700:
3701: IF (SQLCODE < 0) then
3699: END IF;
3700:
3701: IF (SQLCODE < 0) then
3702: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3703: AP_IMPORT_UTILITIES_PKG.Print(
3704: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3705: END IF;
3706: END IF;
3707: RETURN(FALSE);
3767: -------------------------------------------------------------------------
3768: debug_info := '(Check AWT Group 1) Check for pay AWT Group Id and pay Group Name'
3769: ||' Inconsistency.';
3770: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3771: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3772: debug_info);
3773: END IF;
3774:
3775: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3771: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3772: debug_info);
3773: END IF;
3774:
3775: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3776: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3777: p_invoice_rec.invoice_id,
3778: 'INCONSISTENT PAY AWT GROUP',
3779: p_default_last_updated_by,
3779: p_default_last_updated_by,
3780: p_default_last_update_login,
3781: current_calling_sequence) <> TRUE) THEN
3782: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3783: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3784: 'insert_rejections<-'||current_calling_sequence);
3785: END IF;
3786: RAISE pay_awt_group_check_failure;
3787: END IF;
3794: -- Check for Inactive pay AWT Group
3795: ------------------------------------------------------------------------
3796: debug_info := '(Check AWT Group 2) Check for Inactive pay AWT Group';
3797: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3798: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3799: debug_info);
3800: END IF;
3801:
3802: IF ((l_pay_awt_group_id is NULL) and
3808: --------------------------------------------------------------
3809: -- inactive pay AWT group (per name)
3810: --
3811: ---------------------------------------------------------------
3812: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3813: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3814: p_invoice_rec.invoice_id,
3815: 'INACTIVE PAY AWT GROUP',
3816: p_default_last_updated_by,
3816: p_default_last_updated_by,
3817: p_default_last_update_login,
3818: current_calling_sequence) <> TRUE) THEN
3819: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3820: AP_IMPORT_UTILITIES_PKG.Print(
3821: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3822: 'insert_rejections<-'||current_calling_sequence);
3823: END IF;
3824: RAISE pay_awt_group_check_failure;
3840: --------------------------------------------------------------
3841: -- inactive pay AWT group (as per id)
3842: --
3843: --------------------------------------------------------------
3844: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3845: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3846: p_invoice_rec.invoice_id,
3847: 'INACTIVE PAY AWT GROUP',
3848: p_default_last_updated_by,
3848: p_default_last_updated_by,
3849: p_default_last_update_login,
3850: current_calling_sequence) <> TRUE) THEN
3851: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3852: AP_IMPORT_UTILITIES_PKG.Print(
3853: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3854: 'insert_rejections<-'||current_calling_sequence);
3855: END IF;
3856: RAISE pay_awt_group_check_failure;
3894: RETURN (TRUE);
3895:
3896: EXCEPTION
3897: WHEN no_data_found THEN
3898: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3899: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3900: p_invoice_rec.invoice_id,
3901: 'INVALID PAY AWT GROUP',
3902: p_default_last_updated_by,
3902: p_default_last_updated_by,
3903: p_default_last_update_login,
3904: current_calling_sequence) <> TRUE) THEN
3905: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3906: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3907: 'insert_rejections<-'||current_calling_sequence);
3908: END IF;
3909: RAISE pay_awt_group_check_failure;
3910: END IF;
3914: RETURN (TRUE);
3915:
3916: WHEN OTHERS THEN
3917: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3918: AP_IMPORT_UTILITIES_PKG.Print(
3919: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3920: END IF;
3921: IF (SQLCODE < 0) then
3922: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3919: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3920: END IF;
3921: IF (SQLCODE < 0) then
3922: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3923: AP_IMPORT_UTILITIES_PKG.Print(
3924: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3925: END IF;
3926: END IF;
3927: RETURN(FALSE);
3972: -------------------------------------------------------------------------
3973: debug_info := '(Check Exchange Rate Type 1) Check for invalid Exchange '
3974: ||'Rate Type';
3975: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3976: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3977: debug_info);
3978: END IF;
3979:
3980: IF (l_conversion_type is NULL) Then
3980: IF (l_conversion_type is NULL) Then
3981: debug_info := '(Check Exchange Rate Type 1a) Get Default Exchange '
3982: ||'Rate Type';
3983: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3984: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3985: debug_info);
3986: END IF;
3987: l_conversion_type := p_default_exchange_rate_type;
3988: END IF;
3990: IF (l_conversion_type is NOT NULL) Then
3991: debug_info :=
3992: '(Check Exchange Rate Type 1b) Check if Rate Type is valid';
3993: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3994: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3995: debug_info);
3996: END IF;
3997:
3998: BEGIN
4002: WHERE conversion_type = l_conversion_type;
4003:
4004: EXCEPTION
4005: WHEN no_data_found THEN
4006: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4007: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4008: p_invoice_rec.invoice_id,
4009: 'INVALID EXCH RATE TYPE',
4010: p_default_last_updated_by,
4010: p_default_last_updated_by,
4011: p_default_last_update_login,
4012: current_calling_sequence) <> TRUE) THEN
4013: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4014: AP_IMPORT_UTILITIES_PKG.Print(
4015: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4016: 'insert_rejections<-'||current_calling_sequence);
4017: END IF;
4018: RAISE exchange_rate_type_failure;
4030: IF (p_invoice_rec.exchange_date IS NULL) THEN
4031: debug_info :=
4032: '(Check Exchange Rate Type 2) Get Sysdate as Exchange Date';
4033: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4034: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4035: debug_info);
4036: END IF;
4037:
4038: -- Invoice date was initialized to sysdate if null at the beginning
4049: ----------------------------------------------------------------------
4050: debug_info := '(Check Exchange Rate Type 3a) Check for inconsistent '
4051: ||'Exchange Rate, if type valid';
4052: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4053: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4054: debug_info);
4055: END IF;
4056: debug_info := 'l_coversion_type: '||l_conversion_type ||' '||
4057: 'p_invoice_rec.exchange_rate: '||p_invoice_rec.exchange_rate;
4056: debug_info := 'l_coversion_type: '||l_conversion_type ||' '||
4057: 'p_invoice_rec.exchange_rate: '||p_invoice_rec.exchange_rate;
4058:
4059: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4060: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4061: debug_info);
4062: END IF;
4063:
4064: --Start of bug8766019
4062: END IF;
4063:
4064: --Start of bug8766019
4065: IF (p_invoice_rec.exchange_rate <= 0) THEN
4066: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4067: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4068: p_invoice_rec.invoice_id,
4069: 'INVALID EXCH RATE',
4070: p_default_last_updated_by,
4070: p_default_last_updated_by,
4071: p_default_last_update_login,
4072: current_calling_sequence) <> TRUE) THEN
4073: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4074: AP_IMPORT_UTILITIES_PKG.Print(
4075: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4076: 'insert_rejections<-'||current_calling_sequence);
4077: END IF;
4078: RAISE exchange_rate_type_failure;
4086: p_base_currency_code,
4087: l_conversion_type,
4088: l_exchange_date,
4089: current_calling_sequence),-999) <> p_exchange_rate THEN
4090: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4091: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4092: p_invoice_rec.invoice_id,
4093: 'INCONSISTENT RATE',
4094: p_default_last_updated_by,
4094: p_default_last_updated_by,
4095: p_default_last_update_login,
4096: current_calling_sequence) <> TRUE) THEN
4097: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4098: AP_IMPORT_UTILITIES_PKG.Print(
4099: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4100: 'insert_rejections<-'||current_calling_sequence);
4101: END IF;
4102: RAISE exchange_rate_type_failure;
4110: p_invoice_rec.invoice_currency_code,
4111: p_base_currency_code,
4112: l_exchange_date,
4113: l_conversion_type) <> 'Y') THEN
4114: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4115: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4116: p_invoice_rec.invoice_id,
4117: 'NO EXCHANGE RATE',
4118: p_default_last_updated_by,
4118: p_default_last_updated_by,
4119: p_default_last_update_login,
4120: current_calling_sequence) <> TRUE) THEN
4121: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
4122: AP_IMPORT_UTILITIES_PKG.Print(
4123: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4124: 'insert_rejections<-'||current_calling_sequence);
4125: END IF;
4126: RAISE exchange_rate_type_failure;
4134:
4135: debug_info := '(Check Exchange Rate Type 3b) Get Exchange Rate for'
4136: ||' type other than User';
4137: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4138: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4139: debug_info);
4140: END IF;
4141:
4142: l_exchange_rate := ap_utilities_pkg.get_exchange_rate(
4145: l_conversion_type,
4146: l_exchange_date,
4147: current_calling_sequence);
4148: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4149: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4150: '----------------> exchange_rate = '|| to_char(l_exchange_rate)
4151: ||'set_of_books_id = '||to_char(p_set_of_books_id)
4152: ||'invoice_currency_code = '||p_invoice_rec.invoice_currency_code
4153: ||'exchange_date= '||to_char(l_exchange_date)
4159: IF (NVL(p_make_rate_mandatory_flag,'N') = 'Y') then
4160: debug_info :=
4161: '(Check Exchange Rate Type 3c) Reject:No Exchange Rate ';
4162: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4163: AP_IMPORT_UTILITIES_PKG.Print(
4164: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4165: END IF;
4166:
4167: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4163: AP_IMPORT_UTILITIES_PKG.Print(
4164: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4165: END IF;
4166:
4167: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4168: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4169: p_invoice_rec.invoice_id,
4170: 'NO EXCHANGE RATE',
4171: p_default_last_updated_by,
4171: p_default_last_updated_by,
4172: p_default_last_update_login,
4173: current_calling_sequence) <> TRUE) THEN
4174: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4175: AP_IMPORT_UTILITIES_PKG.Print(
4176: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4177: 'insert_rejections<-'||current_calling_sequence);
4178: END IF;
4179: RAISE exchange_rate_type_failure;
4184: ELSE
4185: debug_info := '(Check Exchange Rate Type 3d) No Exchange'
4186: ||' Rate:Rate Not Reqd ';
4187: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4188: AP_IMPORT_UTILITIES_PKG.Print(
4189: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4190: END IF;
4191:
4192: END IF; -- make_rate_mandatory
4195: --4091870
4196: ELSIF ((l_conversion_type = 'User') AND
4197: (p_exchange_rate <= 0)) then
4198:
4199: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4200: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4201: p_invoice_rec.invoice_id,
4202: 'INVALID EXCH RATE',
4203: p_default_last_updated_by,
4203: p_default_last_updated_by,
4204: p_default_last_update_login,
4205: current_calling_sequence) <> TRUE) THEN
4206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4207: AP_IMPORT_UTILITIES_PKG.Print(
4208: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4209: 'insert_rejections<-'||current_calling_sequence);
4210: END IF;
4211: RAISE exchange_rate_type_failure;
4222:
4223: debug_info := '(Check Exchange Rate Type 3e) Exchange rate in '
4224: ||'interface differs rate defined';
4225: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4226: AP_IMPORT_UTILITIES_PKG.Print(
4227: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4228: END IF;
4229:
4230: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4226: AP_IMPORT_UTILITIES_PKG.Print(
4227: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4228: END IF;
4229:
4230: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4231: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4232: p_invoice_rec.invoice_id,
4233: 'INCONSISTENT RATE',
4234: p_default_last_updated_by,
4234: p_default_last_updated_by,
4235: p_default_last_update_login,
4236: current_calling_sequence) <> TRUE) THEN
4237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4238: AP_IMPORT_UTILITIES_PKG.Print(
4239: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4240: 'insert_rejections<-'||current_calling_sequence);
4241: END IF;
4242: RAISE exchange_rate_type_failure;
4256: -------------------------------------------------------------------------
4257: debug_info := '(Check Exchange Rate Type 9) Check for inconsistent '
4258: ||'Information Entered';
4259: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4260: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4261: debug_info);
4262: END IF;
4263:
4264: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4260: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4261: debug_info);
4262: END IF;
4263:
4264: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4265: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4266: p_invoice_rec.invoice_id,
4267: 'INCONSISTENT INFO ENTERED',
4268: p_default_last_updated_by,
4268: p_default_last_updated_by,
4269: p_default_last_update_login,
4270: current_calling_sequence) <> TRUE) THEN
4271: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4272: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4273: 'insert_rejections<-'||current_calling_sequence);
4274: END IF;
4275: RAISE exchange_rate_type_failure;
4276: END IF;
4288: ------------------------------------------------------------------------------
4289: debug_info := '(Check Exchange Rate Type 9.a) Check for inconsistent exchange '
4290: ||'Information Entered';
4291: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4292: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4293: debug_info);
4294: END IF;
4295:
4296: IF nvl(p_invoice_rec.exchange_rate,1) <> 1 THEN
4294: END IF;
4295:
4296: IF nvl(p_invoice_rec.exchange_rate,1) <> 1 THEN
4297:
4298: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4299: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4300: p_invoice_rec.invoice_id,
4301: 'INCONSISTENT RATE',
4302: p_default_last_updated_by,
4303: p_default_last_update_login,
4304: current_calling_sequence) <> TRUE) THEN
4305:
4306: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4307: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4308: 'insert_rejections<-'||current_calling_sequence);
4309: END IF;
4310: RAISE exchange_rate_type_failure;
4311:
4321:
4322: debug_info := '(Check Exchange Rate Type 9.b) Exchange'
4323: ||' Rate info :Nullified ';
4324: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4325: AP_IMPORT_UTILITIES_PKG.Print(
4326: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4327: END IF;
4328:
4329: END IF;
4338:
4339: EXCEPTION
4340: WHEN OTHERS THEN
4341: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4342: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4343: END IF;
4344:
4345: IF (SQLCODE < 0) then
4346: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4343: END IF;
4344:
4345: IF (SQLCODE < 0) then
4346: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4347: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4348: END IF;
4349: END IF;
4350:
4351: RETURN(FALSE);
4422: -- Check invalid terms.
4423: ----------------------------------------------------------------------
4424: debug_info := '(Check Invalid Terms 1) Check for invalid Terms.';
4425: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4426: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4427: debug_info);
4428: END IF;
4429:
4430: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4426: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4427: debug_info);
4428: END IF;
4429:
4430: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4431: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4432: p_invoice_rec.invoice_id,
4433: 'INVALID TERMS',
4434: p_default_last_updated_by,
4434: p_default_last_updated_by,
4435: p_default_last_update_login,
4436: current_calling_sequence) <> TRUE) THEN
4437: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4438: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4439: 'insert_rejections<- '||current_calling_sequence);
4440: END IF;
4441: RAISE terms_check_failure;
4442: END IF;
4457: IF (p_invoice_rec.po_number is NOT NULL) Then
4458: debug_info :=
4459: '(Check Invalid Terms 2.1) Get term_id from header po_number';
4460: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4461: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4462: debug_info);
4463: END IF;
4464:
4465: SELECT terms_id
4473: IF (l_term_id is null ) THEN
4474: debug_info :=
4475: '(Check Invalid Terms 2.2) Get term_id from lines po_numbers';
4476: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4477: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4478: debug_info);
4479: END IF;
4480: BEGIN
4481: SELECT p.terms_id
4492: NULL;
4493: WHEN TOO_MANY_ROWS THEN
4494: l_term_id := null;
4495: l_current_invoice_status := 'N';
4496: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4497: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4498: p_invoice_rec.invoice_id,
4499: 'INCONSISTENT TERMS INFO',
4500: p_default_last_updated_by,
4500: p_default_last_updated_by,
4501: p_default_last_update_login,
4502: current_calling_sequence) <> TRUE) THEN
4503: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4504: AP_IMPORT_UTILITIES_PKG.Print(
4505: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4506: 'insert_rejections<- '||current_calling_sequence);
4507: END IF;
4508: RAISE terms_check_failure;
4513: IF (l_term_id is null) THEN
4514: debug_info := '(Check Invalid Terms 2.3) Get term_id from lines'
4515: ||' receipt';
4516: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4517: AP_IMPORT_UTILITIES_PKG.Print(
4518: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
4519: END IF;
4520: BEGIN
4521: SELECT p.terms_id
4533: NULL;
4534: WHEN TOO_MANY_ROWS THEN
4535: debug_info := 'too many rows';
4536: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4537: AP_IMPORT_UTILITIES_PKG.Print(
4538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4539: END IF;
4540: l_term_id := null;
4541: l_current_invoice_status := 'N';
4538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4539: END IF;
4540: l_term_id := null;
4541: l_current_invoice_status := 'N';
4542: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4543: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4544: p_invoice_rec.invoice_id,
4545: 'INCONSISTENT TERMS INFO',
4546: p_default_last_updated_by,
4546: p_default_last_updated_by,
4547: p_default_last_update_login,
4548: current_calling_sequence) <> TRUE) THEN
4549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4550: AP_IMPORT_UTILITIES_PKG.Print(
4551: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4552: 'insert_rejections<- '||current_calling_sequence);
4553: END IF;
4554: RAISE terms_check_failure;
4565: (p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST') ) Then
4566:
4567: debug_info := '(Check Invalid Terms 2.4) Get term_id from supplier site';
4568: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4569: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4570: debug_info);
4571: END IF;
4572:
4573: SELECT terms_id
4581: (p_invoice_rec.invoice_type_lookup_code = 'PAYMENT REQUEST') ) Then
4582:
4583: debug_info := '(Check Invalid Terms 2.4) Get term_id from financials options';
4584: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4585: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4586: debug_info);
4587: END IF;
4588:
4589: SELECT terms_id
4599: IF ( l_term_id is null ) THEN
4600: debug_info := '(Check Invalid Terms 2.5) no term_id found, '
4601: ||'invoice rejected';
4602: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4603: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4604: debug_info);
4605: END IF;
4606:
4607: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4603: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4604: debug_info);
4605: END IF;
4606:
4607: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4608: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4609: p_invoice_rec.invoice_id,
4610: 'NO TERMS INFO',
4611: p_default_last_updated_by,
4611: p_default_last_updated_by,
4612: p_default_last_update_login,
4613: current_calling_sequence) <> TRUE) THEN
4614: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4615: AP_IMPORT_UTILITIES_PKG.Print(
4616: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4617: 'insert_rejections<- '||current_calling_sequence);
4618: END IF;
4619: RAISE terms_check_failure;
4623:
4624: ELSE
4625: debug_info := '(Check Invalid Terms 2.6) getting term active date';
4626: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4627: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4628: debug_info);
4629: END IF;
4630:
4631: SELECT start_date_active, end_date_active
4648:
4649: debug_info := '(Check Invalid Terms 3) Check for inconsistent Terms id '
4650: ||'and Name.';
4651: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4652: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4653: debug_info);
4654: END IF;
4655:
4656: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4652: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4653: debug_info);
4654: END IF;
4655:
4656: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4657: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4658: p_invoice_rec.invoice_id,
4659: 'INCONSISTENT TERMS INFO',
4660: p_default_last_updated_by,
4660: p_default_last_updated_by,
4661: p_default_last_update_login,
4662: current_calling_sequence) <> TRUE) THEN
4663: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4664: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4665: 'insert_rejections<- '||current_calling_sequence);
4666: END IF;
4667: RAISE terms_check_failure;
4668: END IF;
4685: -----------------------------------------------------------------------
4686: debug_info :=
4687: '(Check Invalid Terms 4) Check for inactive Terms as per Terms Name.';
4688: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4689: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4690: debug_info);
4691: END IF;
4692:
4693: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4689: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4690: debug_info);
4691: END IF;
4692:
4693: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4694: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4695: p_invoice_rec.invoice_id,
4696: 'INACTIVE TERMS',
4697: p_default_last_updated_by,
4697: p_default_last_updated_by,
4698: p_default_last_update_login,
4699: current_calling_sequence) <> TRUE) THEN
4700: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4701: AP_IMPORT_UTILITIES_PKG.Print(
4702: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4703: 'insert_rejections<- '||current_calling_sequence);
4704: END IF;
4705: RAISE terms_check_failure;
4729: ----------------------------------------------------------------------
4730: debug_info :=
4731: '(Check Invalid Terms 5) Check for inactive Terms as per Terms Id.';
4732: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4733: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4734: debug_info);
4735: END IF;
4736:
4737: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4733: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4734: debug_info);
4735: END IF;
4736:
4737: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4738: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4739: p_invoice_rec.invoice_id,
4740: 'INACTIVE TERMS',
4741: p_default_last_updated_by,
4741: p_default_last_updated_by,
4742: p_default_last_update_login,
4743: current_calling_sequence) <> TRUE) THEN
4744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4745: AP_IMPORT_UTILITIES_PKG.Print(
4746: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4747: 'insert_rejections<- '||current_calling_sequence);
4748: END IF;
4749: RAISE terms_check_failure;
4768: --------------------------------------------------------------------------
4769: debug_info := '(Check Invalid Terms 6a) Check for Terms Date provided as input :'
4770: ||p_invoice_rec.terms_date;
4771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4772: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4773: debug_info);
4774: END IF;
4775:
4776: /* Added following validation for bug 9918860
4781: IF p_invoice_rec.terms_date IS NULL THEN
4782: debug_info := '(Check Invalid Terms 6b) Check for Invoice and Goods '
4783: ||'Received Date';
4784: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4785: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4786: debug_info);
4787: END IF;
4788:
4789: IF (p_terms_date_basis = 'Invoice Received' AND
4788:
4789: IF (p_terms_date_basis = 'Invoice Received' AND
4790: p_invoice_rec.invoice_received_date is null) THEN
4791:
4792: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4793: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4794: p_invoice_rec.invoice_id,
4795: 'DATE INVOICE RECEIVED REQ',
4796: p_default_last_updated_by,
4796: p_default_last_updated_by,
4797: p_default_last_update_login,
4798: current_calling_sequence) <> TRUE) THEN
4799: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4800: AP_IMPORT_UTILITIES_PKG.Print(
4801: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4802: 'insert_rejections<-'||current_calling_sequence);
4803: END IF;
4804: RAISE terms_check_failure;
4807: l_current_invoice_status := 'N';
4808:
4809: ELSIF (p_terms_date_basis = 'Goods Received' AND
4810: p_invoice_rec.goods_received_date is null) THEN
4811: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4812: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4813: p_invoice_rec.invoice_id,
4814: 'DATE GOODS RECEIVED REQ',
4815: p_default_last_updated_by,
4815: p_default_last_updated_by,
4816: p_default_last_update_login,
4817: current_calling_sequence) <> TRUE) THEN
4818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4819: AP_IMPORT_UTILITIES_PKG.Print(
4820: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4821: 'insert_rejections<-'||current_calling_sequence);
4822: END IF;
4823: RAISE terms_check_failure;
4865: -----------------------------------------------------------------------------
4866: debug_info := '(Check Invalid Terms 8) Check calendar based payment terms';
4867:
4868: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4869: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4870: debug_info);
4871: END IF;
4872:
4873: --Bug:4115712
4880: -- where term_id = l_term_id;
4881:
4882: -- END IF;
4883:
4884: AP_IMPORT_UTILITIES_PKG.Check_For_Calendar_Term(
4885: P_Terms_Id => l_term_id,
4886: P_Terms_Date => p_terms_date,
4887: P_No_Cal => l_no_calendar_exists,
4888: P_Calling_Sequence => 'v_check_invalidate_terms');
4887: P_No_Cal => l_no_calendar_exists,
4888: P_Calling_Sequence => 'v_check_invalidate_terms');
4889:
4890: IF (l_no_calendar_exists = 'Y') THEN
4891: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4892: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4893: p_invoice_rec.invoice_id,
4894: 'NO SPECIAL CALENDAR FOR TERMS',
4895: p_default_last_updated_by,
4895: p_default_last_updated_by,
4896: p_default_last_update_login,
4897: current_calling_sequence) <> TRUE) THEN
4898: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4899: AP_IMPORT_UTILITIES_PKG.Print(
4900: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4901: 'insert_rejections<-'||current_calling_sequence);
4902: END IF;
4903: RAISE terms_check_failure;
4914:
4915: EXCEPTION
4916: WHEN OTHERS THEN
4917: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4918: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4919: debug_info);
4920: END IF;
4921:
4922: IF (SQLCODE < 0) THEN
4920: END IF;
4921:
4922: IF (SQLCODE < 0) THEN
4923: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4924: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4925: SQLERRM);
4926: END IF;
4927: END IF;
4928: RETURN(FALSE);
4982: and p_invoice_rec.accts_pay_code_combination_id is null
4983: then
4984: debug_info := '(step 10.1 default the liability account';
4985: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4986: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4987: debug_info);
4988: END IF;
4989:
4990: begin
5005: exception
5006: when others then
5007: debug_info := '(step 0.1 default the liability account';
5008: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5009: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5010: debug_info);
5011: END IF;
5012: end;
5013: end if;
5028: -------------------------------------------------------------------------
5029: debug_info :=
5030: '(Check Misc Invoice Info 1 a) Check for valid accts_pay_concat.';
5031: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5032: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5033: debug_info);
5034: END IF;
5035:
5036: -- Validate liability account concat
5073: NULL)) THEN
5074: l_ccid := fnd_flex_keyval.combination_id;
5075: ELSE
5076: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5077: AP_IMPORT_UTILITIES_PKG.Print(
5078: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5079: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
5080: END IF;
5081:
5078: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5079: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
5080: END IF;
5081:
5082: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5083: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5084: p_invoice_rec.invoice_id,
5085: 'INVALID LIABILITY ACCT',
5086: p_default_last_updated_by,
5086: p_default_last_updated_by,
5087: p_default_last_update_login,
5088: current_calling_sequence) <> TRUE) THEN
5089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5090: AP_IMPORT_UTILITIES_PKG.Print(
5091: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5092: 'insert_rejections<- '||current_calling_sequence);
5093: END IF;
5094: RAISE misc_invoice_info_failure;
5102: WHERE code_combination_id = l_ccid;
5103:
5104: IF l_acct_type <> 'L' THEN
5105: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5106: AP_IMPORT_UTILITIES_PKG.Print(
5107: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5108: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
5109: END IF;
5110:
5107: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5108: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
5109: END IF;
5110:
5111: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5112: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5113: p_invoice_rec.invoice_id,
5114: 'INVALID LIABILITY ACCT',
5115: p_default_last_updated_by,
5115: p_default_last_updated_by,
5116: p_default_last_update_login,
5117: current_calling_sequence) <> TRUE) THEN
5118: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5119: AP_IMPORT_UTILITIES_PKG.Print(
5120: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5121: 'insert_rejections<- '||current_calling_sequence);
5122: END IF;
5123: RAISE misc_invoice_info_failure;
5131: -- if not same reject as inconsistent
5132: IF p_invoice_rec.accts_pay_code_combination_id IS NOT NULL THEN
5133: IF p_invoice_rec.accts_pay_code_combination_id <> l_ccid THEN
5134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5135: AP_IMPORT_UTILITIES_PKG.Print(
5136: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5137: '(v_check_misc_invoice_info 1 a) Inconsistent accts_pay');
5138: END IF;
5139:
5136: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5137: '(v_check_misc_invoice_info 1 a) Inconsistent accts_pay');
5138: END IF;
5139:
5140: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5141: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5142: p_invoice_rec.invoice_id,
5143: 'INCONSISTENT LIAB ACCOUNT INFO',
5144: p_default_last_updated_by,
5144: p_default_last_updated_by,
5145: p_default_last_update_login,
5146: current_calling_sequence) <> TRUE) THEN
5147: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5148: AP_IMPORT_UTILITIES_PKG.Print(
5149: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5150: 'insert_rejections<- '||current_calling_sequence);
5151: END IF;
5152: RAISE misc_invoice_info_failure;
5160:
5161: EXCEPTION
5162: WHEN NO_DATA_FOUND Then
5163: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5164: AP_IMPORT_UTILITIES_PKG.Print(
5165: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5166: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat ');
5167: END IF;
5168:
5165: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5166: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat ');
5167: END IF;
5168:
5169: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5170: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5171: p_invoice_rec.invoice_id,
5172: 'INVALID LIABILITY ACCT',
5173: p_default_last_updated_by,
5173: p_default_last_updated_by,
5174: p_default_last_update_login,
5175: current_calling_sequence) <> TRUE) THEN
5176: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5177: AP_IMPORT_UTILITIES_PKG.Print(
5178: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5179: 'insert_rejections<-'||current_calling_sequence);
5180: END IF;
5181: RAISE misc_invoice_info_failure;
5200: -------------------------------------------------------------------------
5201: debug_info :=
5202: '(Check Misc Invoice Info 1) Check for valid accts_pay_ccid.';
5203: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5204: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5205: debug_info);
5206: END IF;
5207:
5208: -- Validate liability account information
5219: WHERE set_of_books_id = p_set_of_books_id;
5220:
5221: IF l_acct_type <> 'L' THEN
5222: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5223: AP_IMPORT_UTILITIES_PKG.Print(
5224: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5225: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
5226: END IF;
5227:
5224: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5225: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
5226: END IF;
5227:
5228: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5229: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5230: p_invoice_rec.invoice_id,
5231: 'INVALID LIABILITY ACCT',
5232: p_default_last_updated_by,
5232: p_default_last_updated_by,
5233: p_default_last_update_login,
5234: current_calling_sequence) <> TRUE) THEN
5235: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5236: AP_IMPORT_UTILITIES_PKG.Print(
5237: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5238: 'insert_rejections<- '||current_calling_sequence);
5239: END IF;
5240: RAISE misc_invoice_info_failure;
5280: NULL,
5281: NULL)<>TRUE) THEN
5282:
5283: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5284: AP_IMPORT_UTILITIES_PKG.Print(
5285: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5286: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
5287: END IF;
5288:
5285: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5286: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
5287: END IF;
5288:
5289: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5290: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5291: p_invoice_rec.invoice_id,
5292: 'INVALID LIABILITY ACCT',
5293: p_default_last_updated_by,
5293: p_default_last_updated_by,
5294: p_default_last_update_login,
5295: current_calling_sequence) <> TRUE) THEN
5296: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5297: AP_IMPORT_UTILITIES_PKG.Print(
5298: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5299: 'insert_rejections<- '||current_calling_sequence);
5300: END IF;
5301: RAISE misc_invoice_info_failure;
5306: END IF; -- If validate segments is other than TRUE
5307:
5308: ELSE -- Validate CCID returned false
5309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5310: AP_IMPORT_UTILITIES_PKG.Print(
5311: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5312: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
5313: END IF;
5314:
5311: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5312: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
5313: END IF;
5314:
5315: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5316: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5317: p_invoice_rec.invoice_id,
5318: 'INVALID LIABILITY ACCT',
5319: p_default_last_updated_by,
5319: p_default_last_updated_by,
5320: p_default_last_update_login,
5321: current_calling_sequence) <> TRUE) THEN
5322: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5323: AP_IMPORT_UTILITIES_PKG.Print(
5324: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5325: 'insert_rejections<- '||current_calling_sequence);
5326: END IF;
5327: RAISE misc_invoice_info_failure;
5333:
5334: EXCEPTION -- Validate liability account information
5335: WHEN NO_DATA_FOUND Then
5336: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5337: AP_IMPORT_UTILITIES_PKG.Print(
5338: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5339: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid ');
5340: END IF;
5341:
5338: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5339: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid ');
5340: END IF;
5341:
5342: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5343: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5344: p_invoice_rec.invoice_id,
5345: 'INVALID LIABILITY ACCT',
5346: p_default_last_updated_by,
5346: p_default_last_updated_by,
5347: p_default_last_update_login,
5348: current_calling_sequence) <> TRUE) THEN
5349: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5350: AP_IMPORT_UTILITIES_PKG.Print(
5351: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5352: 'insert_rejections<-'||current_calling_sequence);
5353: END IF;
5354: RAISE misc_invoice_info_failure;
5368: -- Check for pay group
5369: -------------------------------------------------------------------------
5370: debug_info := '(Check Misc Invoice Info 3) Check for valid pay group';
5371: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5372: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5373: debug_info);
5374: END IF;
5375:
5376: -- Bug 5448579
5383: END LOOP;
5384:
5385: debug_info := 'l_valid_pay_group: '||l_valid_pay_group;
5386: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5387: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5388: debug_info);
5389: END IF;
5390:
5391: IF l_valid_pay_group IS NULL THEN
5391: IF l_valid_pay_group IS NULL THEN
5392:
5393:
5394: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5395: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5396: '(v_check_misc_invoice_info 3) Invalid pay group');
5397: END IF;
5398:
5399: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5395: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5396: '(v_check_misc_invoice_info 3) Invalid pay group');
5397: END IF;
5398:
5399: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5400: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5401: p_invoice_rec.invoice_id,
5402: 'INVALID PAY GROUP',
5403: p_default_last_updated_by,
5403: p_default_last_updated_by,
5404: p_default_last_update_login,
5405: current_calling_sequence) <> TRUE) THEN
5406: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5407: AP_IMPORT_UTILITIES_PKG.Print(
5408: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5409: 'insert_rejections<-'||current_calling_sequence);
5410: END IF;
5411: RAISE misc_invoice_info_failure;
5430:
5431: EXCEPTION
5432: WHEN NO_DATA_FOUND Then
5433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5434: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5435: '(v_check_misc_invoice_info 3) Invalid pay group');
5436: END IF;
5437:
5438: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5434: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5435: '(v_check_misc_invoice_info 3) Invalid pay group');
5436: END IF;
5437:
5438: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5439: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5440: p_invoice_rec.invoice_id,
5441: 'INVALID PAY GROUP',
5442: p_default_last_updated_by,
5442: p_default_last_updated_by,
5443: p_default_last_update_login,
5444: current_calling_sequence) <> TRUE) THEN
5445: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5446: AP_IMPORT_UTILITIES_PKG.Print(
5447: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5448: 'insert_rejections<-'||current_calling_sequence);
5449: END IF;
5450: RAISE misc_invoice_info_failure;
5463: --------------------------------------------------------------------------
5464: debug_info :=
5465: '(Check Misc Invoice Info 4) Check for duplicate voucher number';
5466: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5467: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5468: debug_info);
5469: END IF;
5470:
5471: SELECT count(*)
5474: WHERE voucher_num = p_invoice_rec.voucher_num;
5475:
5476: IF (l_invoice_count > 0) THEN
5477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5479: '(v_check_misc_invoice_info 4) Reject: Duplicate Voucher Number');
5480: END IF;
5481:
5482: -- if data is found, an error exists
5479: '(v_check_misc_invoice_info 4) Reject: Duplicate Voucher Number');
5480: END IF;
5481:
5482: -- if data is found, an error exists
5483: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5484: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5485: p_invoice_rec.invoice_id,
5486: 'DUPLICATE VOUCHER',
5487: p_default_last_updated_by,
5487: p_default_last_updated_by,
5488: p_default_last_update_login,
5489: current_calling_sequence) <> TRUE) THEN
5490: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5491: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5492: 'insert_rejections<-'||current_calling_sequence);
5493: END IF;
5494: RAISE misc_invoice_info_failure;
5495: END IF;
5512: ------------------------------------------------------------------------------------
5513: debug_info := '(Check Misc Invoice Info 4.1) Check for voucher number length <= 8';
5514:
5515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5516: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5517: END IF;
5518:
5519:
5520: IF (length(p_invoice_rec.voucher_num) > 8) THEN
5519:
5520: IF (length(p_invoice_rec.voucher_num) > 8) THEN
5521:
5522: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5523: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5524: end if;
5525:
5526: -- if data is found, an error exists
5527:
5524: end if;
5525:
5526: -- if data is found, an error exists
5527:
5528: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5529: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5530: p_invoice_rec.invoice_id,
5531: 'INVALID REQUESTER',
5532: p_default_last_updated_by,
5532: p_default_last_updated_by,
5533: p_default_last_update_login,
5534: current_calling_sequence) <> TRUE) THEN
5535: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5536: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5537: 'insert_rejections<-'||current_calling_sequence);
5538: END IF;
5539: RAISE misc_invoice_info_failure;
5540: END IF;
5549: -- Check for valid employee
5550: --------------------------------------------------------------------------
5551: debug_info := '(Check Misc Invoice Info 5) Check for valid employee';
5552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5553: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5554: debug_info);
5555: END IF;
5556:
5557: /* start Bug10084709 */
5580: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5581: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,l_debug_info);
5582: END IF;
5583:
5584: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5585: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5586: p_invoice_rec.invoice_id,
5587: 'INVALID REQUESTER',
5588: p_default_last_updated_by,
5588: p_default_last_updated_by,
5589: p_default_last_update_login,
5590: current_calling_sequence) <> TRUE) THEN
5591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5592: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5593: 'insert_rejections<-'||current_calling_sequence);
5594: End If;
5595:
5596: RAISE misc_invoice_info_failure;
5608: WHERE employee_id = p_invoice_rec.requester_id;
5609:
5610: IF l_emp_count = 0 THEN
5611:
5612: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5613: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5614: p_invoice_rec.invoice_id,
5615: 'INVALID REQUESTER',
5616: p_default_last_updated_by,
5616: p_default_last_updated_by,
5617: p_default_last_update_login,
5618: current_calling_sequence) <> TRUE) THEN
5619: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5620: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5621: 'insert_rejections<-'||current_calling_sequence);
5622: END IF;
5623:
5624: RAISE misc_invoice_info_failure;
5639: And (First_Name) =(P_Invoice_Rec.Requester_First_Name);
5640:
5641: Exception
5642: When Others Then
5643: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5644: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5645: p_invoice_rec.invoice_id,
5646: 'INVALID REQUESTER',
5647: p_default_last_updated_by,
5647: p_default_last_updated_by,
5648: p_default_last_update_login,
5649: Current_Calling_Sequence) <> True) Then
5650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5651: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5652: 'insert_rejections<-'||Current_Calling_Sequence);
5653: End If;
5654:
5655: Raise Misc_Invoice_Info_Failure;
5668: WHERE employee_num = p_invoice_rec.requester_employee_num;
5669:
5670: Exception
5671: When Others Then
5672: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5673: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5674: p_invoice_rec.invoice_id,
5675: 'INVALID REQUESTER',
5676: p_default_last_updated_by,
5676: p_default_last_updated_by,
5677: p_default_last_update_login,
5678: Current_Calling_Sequence) <> True) Then
5679: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5680: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5681: 'insert_rejections<-'||Current_Calling_Sequence);
5682: End If;
5683:
5684: Raise Misc_Invoice_Info_Failure;
5696:
5697: EXCEPTION
5698: WHEN OTHERS THEN
5699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5700: AP_IMPORT_UTILITIES_PKG.Print(
5701: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5702: END IF;
5703:
5704: IF (SQLCODE < 0) then
5702: END IF;
5703:
5704: IF (SQLCODE < 0) then
5705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5706: AP_IMPORT_UTILITIES_PKG.Print(
5707: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5708: END IF;
5709: END IF;
5710:
5754: -----------------------------------------------------------------------
5755: debug_info :=
5756: '(Check Legal Entity Info 1) Check Valid LE ID';
5757: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5758: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5759: debug_info);
5760: END IF;
5761:
5762: XLE_UTILITIES_GRP.IsLegalEntity_LEID
5774: ------------------------------------------------------------------
5775: debug_info :=
5776: '(Check Legal Entity Info 1.1) InValid LE ID Flow';
5777: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5778: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5779: debug_info);
5780: END IF;
5781: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5782: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5777: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5778: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5779: debug_info);
5780: END IF;
5781: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5782: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5783: p_invoice_rec.invoice_id,
5784: 'INVALID LEGAL ENTITY',
5785: p_default_last_updated_by,
5785: p_default_last_updated_by,
5786: p_default_last_update_login,
5787: current_calling_sequence) <> TRUE) THEN
5788: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5789: AP_IMPORT_UTILITIES_PKG.Print(
5790: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5791: 'insert_rejections<- '||current_calling_sequence);
5792: END IF;
5793: l_current_invoice_status := 'N';
5810: -----------------------------------------------------------------------
5811: debug_info :=
5812: '(Check Legal Entity Info 2) Check for reg code/number and Get LE.';
5813: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5814: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5815: debug_info);
5816: END IF;
5817: -----------------------------------------------------------------------
5818: -- Step 2.1
5825:
5826: debug_info :=
5827: '(Check Legal Entity Info 2.1) Get Bill TO Location ID';
5828: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5829: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5830: debug_info);
5831: END IF;
5832:
5833:
5852: debug_info :=
5853: '(Check Legal Entity Info 2.1) For Payment Request Legal Entity will '
5854: || 'based on interface accts_pay_code_combination_id ';
5855: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5856: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5857: debug_info);
5858: END IF;
5859:
5860: l_ccid_to_api := p_invoice_rec.accts_pay_code_combination_id;
5868: ----------------------------------------------------------------------
5869: debug_info :=
5870: '(Check Legal Entity Info 2.2) Call LE API';
5871: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5872: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5873: debug_info);
5874: END IF;
5875:
5876: XLE_BUSINESSINFO_GRP.Get_PurchasetoPay_Info
5890: -------------------------------------------------------------------
5891: debug_info :=
5892: '(Check Legal Entity Info 2.3) Valid LE Flow';
5893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5895: debug_info);
5896: END IF;
5897: IF p_invoice_rec.legal_entity_id IS NOT NULL THEN
5898: IF p_invoice_rec.legal_entity_id <>
5904: -------------------------------------------------------------
5905: debug_info :=
5906: '(Check Legal Entity Info 2.4) Inconsistent LE Info';
5907: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5908: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5909: debug_info);
5910: END IF;
5911: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5912: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5907: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5908: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5909: debug_info);
5910: END IF;
5911: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5912: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5913: p_invoice_rec.invoice_id,
5914: 'INCONSISTENT LE INFO',
5915: p_default_last_updated_by,
5915: p_default_last_updated_by,
5916: p_default_last_update_login,
5917: current_calling_sequence) <> TRUE) THEN
5918: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5919: AP_IMPORT_UTILITIES_PKG.Print(
5920: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5921: 'insert_rejections<- '||current_calling_sequence);
5922: END IF;
5923: l_current_invoice_status := 'N';
5931: debug_info :=
5932: '(Check Legal Entity Info 2.4a) Legal Entity ID: '||
5933: p_invoice_rec.legal_entity_id;
5934: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5935: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5936: debug_info);
5937: END IF;
5938:
5939:
5949: -------------------------------------------------------------------
5950: debug_info :=
5951: '(Check Legal Entity Info 2.5) InValid LE Flow';
5952: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5953: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5954: debug_info);
5955: END IF;
5956: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5957: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5952: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5953: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5954: debug_info);
5955: END IF;
5956: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5957: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5958: p_invoice_rec.invoice_id,
5959: 'INVALID LEGAL ENTITY',
5960: p_default_last_updated_by,
5960: p_default_last_updated_by,
5961: p_default_last_update_login,
5962: current_calling_sequence) <> TRUE) THEN
5963: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5964: AP_IMPORT_UTILITIES_PKG.Print(
5965: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5966: 'insert_rejections<- '||current_calling_sequence);
5967: END IF;
5968: l_current_invoice_status := 'N';
5975: RETURN (TRUE);
5976: EXCEPTION
5977: WHEN OTHERS THEN
5978: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5979: AP_IMPORT_UTILITIES_PKG.Print(
5980: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5981: END IF;
5982:
5983: IF (SQLCODE < 0) then
5981: END IF;
5982:
5983: IF (SQLCODE < 0) then
5984: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5985: AP_IMPORT_UTILITIES_PKG.Print(
5986: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5987: END IF;
5988: END IF;
5989: RETURN(FALSE);
6026:
6027: -- Bug 5448579
6028: debug_info := '(Check Invalid Pay Currency 0) Calling Caching Function for Currency';
6029: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6030: AP_IMPORT_UTILITIES_PKG.Print(
6031: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6032: END IF;
6033: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
6034: P_Fnd_Currency_Table => l_fnd_currency_table,
6029: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6030: AP_IMPORT_UTILITIES_PKG.Print(
6031: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6032: END IF;
6033: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
6034: P_Fnd_Currency_Table => l_fnd_currency_table,
6035: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
6036: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6037: AP_IMPORT_UTILITIES_PKG.Print(
6033: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
6034: P_Fnd_Currency_Table => l_fnd_currency_table,
6035: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
6036: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6037: AP_IMPORT_UTILITIES_PKG.Print(
6038: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6039: 'Cache_Fnd_Currency <-'||current_calling_sequence);
6040: END IF;
6041: Raise invalid_pay_curr_code_failure;
6064: END LOOP;
6065:
6066: debug_info := 'l_valid_pay_currency: '||l_valid_pay_currency;
6067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6069: debug_info);
6070: END IF;
6071:
6072: IF l_valid_pay_currency IS NOT NULL THEN
6078:
6079: debug_info := '(Check Payment Currency Code 1) Check for Inactive '
6080: ||'Payment Currency Code.';
6081: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6082: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6083: debug_info);
6084: END IF;
6085:
6086: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6082: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6083: debug_info);
6084: END IF;
6085:
6086: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6087: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6088: p_invoice_rec.invoice_id,
6089: 'INACTIVE PAY CURR CODE',
6090: p_default_last_updated_by,
6090: p_default_last_updated_by,
6091: p_default_last_update_login,
6092: current_calling_sequence) <> TRUE) THEN
6093: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6094: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6095: 'insert_rejections<-'||current_calling_sequence);
6096: END IF;
6097: RAISE invalid_pay_curr_code_failure;
6098: END IF;
6102: ELSE
6103: debug_info := '(Check Payment Currency Code 1.1) Check for Inactive '
6104: ||'Payment Currency Code.';
6105: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6106: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6107: debug_info);
6108: END IF;
6109:
6110: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6106: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6107: debug_info);
6108: END IF;
6109:
6110: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6111: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6112: p_invoice_rec.invoice_id,
6113: 'INACTIVE PAY CURR CODE',
6114: p_default_last_updated_by,
6114: p_default_last_updated_by,
6115: p_default_last_update_login,
6116: current_calling_sequence) <> TRUE) THEN
6117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6118: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6119: 'insert_rejections <-'||current_calling_sequence);
6120: END IF;
6121: RAISE invalid_pay_curr_code_failure;
6122: END IF;
6147:
6148: debug_info := '(Check Payment Currency Code 3.1) Check for fixed '
6149: ||'payment cross rate.';
6150: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6152: debug_info);
6153: END IF;
6154:
6155: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
6151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6152: debug_info);
6153: END IF;
6154:
6155: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
6156: AP_IMPORT_INVOICES_PKG.g_invoices_table,
6157: p_invoice_rec.invoice_id,
6158: 'PAY X RATE NOT FIXED',
6159: p_default_last_updated_by,
6159: p_default_last_updated_by,
6160: p_default_last_update_login,
6161: current_calling_sequence) <> TRUE) THEN
6162: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6163: AP_IMPORT_UTILITIES_PKG.Print(
6164: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6165: 'insert_rejections<-'||current_calling_sequence);
6166: END IF;
6167: RAISE invalid_pay_curr_code_failure;
6178: current_calling_sequence);
6179: debug_info := '(Check Payment Currency Code 3.2) Check for fixed '
6180: ||' and get payment cross rate.';
6181: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6182: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6183: debug_info);
6184: END IF;
6185:
6186: IF ( (l_payment_cross_rate <> p_invoice_rec.payment_cross_rate) AND
6193: AND lookup_code = 'PAY RATE OVERWRITTEN';
6194: debug_info := '(Check Payment Currency Code 3.3) Check for fixed '
6195: || l_warning;
6196: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6197: AP_IMPORT_UTILITIES_PKG.Print(
6198: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
6199: END IF;
6200: EXCEPTION WHEN no_data_found THEN
6201: NULL;
6208: -- pay_curr_code = inv_curr_code case
6209: debug_info := '(Check Payment Currency Code 3.3) Check for fixed '
6210: ||' pay_currency_code = inv_currency_code';
6211: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6212: AP_IMPORT_UTILITIES_PKG.Print(
6213: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6214: debug_info);
6215: END IF;
6216:
6248: -------------------------------------------------------------------------
6249: debug_info := '(Check Invoice Currency Code 4) Check for Invalid Invoice'
6250: ||' Currency Code.';
6251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6252: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6253: debug_info);
6254: END IF;
6255:
6256: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6252: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6253: debug_info);
6254: END IF;
6255:
6256: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6257: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6258: p_invoice_rec.invoice_id,
6259: 'INVALID PAY CURR CODE',
6260: p_default_last_updated_by,
6260: p_default_last_updated_by,
6261: p_default_last_update_login,
6262: current_calling_sequence) <> TRUE) THEN
6263: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6264: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6265: 'insert_rejections<-'||current_calling_sequence);
6266: END IF;
6267: RAISE invalid_pay_curr_code_failure;
6268: END IF;
6272: RETURN (TRUE);
6273:
6274: WHEN OTHERS THEN
6275: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6276: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6277: debug_info);
6278: END IF;
6279:
6280: IF (SQLCODE < 0) then
6278: END IF;
6279:
6280: IF (SQLCODE < 0) then
6281: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6282: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6283: SQLERRM);
6284: END IF;
6285: END IF;
6286: RETURN(FALSE);
6336:
6337: debug_info := '(Check Prepayment Info 1) Check if it is a Prepayment Invoice';
6338:
6339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6341: debug_info);
6342: END IF;
6343:
6344: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
6340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6341: debug_info);
6342: END IF;
6343:
6344: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
6345: AP_IMPORT_INVOICES_PKG.g_invoices_table,
6346: p_invoice_rec.invoice_id,
6347: 'INCONSISTENT PREPAY APPL INFO',
6348: p_default_last_updated_by,
6348: p_default_last_updated_by,
6349: p_default_last_update_login,
6350: current_calling_sequence) <> TRUE) THEN
6351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6352: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6353: 'insert_rejections<-'||current_calling_sequence);
6354: END IF;
6355: RAISE check_prepay_failure;
6356: END IF;
6369:
6370: -- debug_info := 'p_invoice_rec.prepay_num , p_invoice_rec.org_id '|| p_invoice_rec.prepay_num||','||p_invoice_rec.org_id;
6371:
6372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6374: debug_info);
6375: END IF;
6376:
6377:
6390:
6391: EXCEPTION WHEN OTHERS THEN
6392: debug_info := '(Check Prepayment Info 2.1) In others exception and the error is '||sqlerrm;
6393: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6394: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6395: debug_info);
6396: END IF;
6397:
6398:
6402: IF (l_count_lines_matched > 0) THEN
6403:
6404: debug_info := 'Reject as Cannot manually recoup ';
6405: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6406: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6407: debug_info);
6408: END IF;
6409:
6410: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
6406: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6407: debug_info);
6408: END IF;
6409:
6410: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
6411: AP_IMPORT_INVOICES_PKG.g_invoices_table,
6412: p_invoice_rec.invoice_id,
6413: 'CANNOT MANUALLY RECOUP',
6414: p_default_last_updated_by,
6414: p_default_last_updated_by,
6415: p_default_last_update_login,
6416: current_calling_sequence) <> TRUE) THEN
6417: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6418: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6419: 'insert_rejections<-'||current_calling_sequence);
6420: END IF;
6421: RAISE check_prepay_failure;
6422: END IF;
6441:
6442: debug_info := '(Check Prepayment Info 1) Call Check Prepayment Function.';
6443:
6444: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6445: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6446: debug_info);
6447: END IF;
6448: --
6449: l_reject_code := AP_PREPAY_PKG.check_prepay_info_import(
6470: --
6471: -- show input/output values (only if debug_switch = 'Y')
6472:
6473: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6474: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6475: '------------------> prepay_num = '|| p_invoice_rec.prepay_num
6476: ||' prepay_line_num = '||to_char(p_invoice_rec.prepay_line_num)
6477: ||' prepay_apply_amount = '||to_char(p_invoice_rec.prepay_apply_amount)
6478: ||' invoice_amount = '||to_char(p_invoice_rec.invoice_amount)
6485: END IF;
6486:
6487: IF (l_reject_code IS NOT NULL) THEN
6488:
6489: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
6490: AP_IMPORT_INVOICES_PKG.g_invoices_table,
6491: p_invoice_rec.invoice_id,
6492: l_reject_code,
6493: p_default_last_updated_by,
6493: p_default_last_updated_by,
6494: p_default_last_update_login,
6495: current_calling_sequence) <> TRUE) THEN
6496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6497: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6498: 'insert_rejections<-' ||current_calling_sequence);
6499: END IF;
6500: RAISE check_prepay_failure;
6501: END IF;
6514:
6515: EXCEPTION
6516: WHEN OTHERS THEN
6517: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6518: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6519: debug_info);
6520: END IF;
6521:
6522: IF (SQLCODE < 0) then
6520: END IF;
6521:
6522: IF (SQLCODE < 0) then
6523: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6524: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6525: SQLERRM);
6526: END IF;
6527: END IF;
6528: RETURN(FALSE);
6574: -- Step 1 - Check for invalid no_xrate_base_amount
6575: -------------------------------------------------------------------------
6576: debug_info := '(Check No Xrate Base Amount 1) Is Xrate_Base_Amount invalid?';
6577: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6578: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6579: debug_info);
6580: END IF;
6581:
6582: IF (nvl(p_multi_currency_flag,'N') = 'Y') AND
6585: IF ((p_calc_user_xrate <> 'Y') AND
6586: (p_invoice_rec.no_xrate_base_amount IS NOT NULL)) THEN
6587: debug_info := 'Trying to reject due to no_x_Curr';
6588: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6589: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6590: debug_info);
6591: END IF;
6592:
6593: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6589: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6590: debug_info);
6591: END IF;
6592:
6593: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6594: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6595: p_invoice_rec.invoice_id,
6596: 'BASE AMOUNT NOT ALLOWED',
6597: p_default_last_updated_by,
6597: p_default_last_updated_by,
6598: p_default_last_update_login,
6599: current_calling_sequence) <> TRUE) THEN
6600: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6601: AP_IMPORT_UTILITIES_PKG.Print(
6602: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6603: 'insert_rejections<-'||current_calling_sequence);
6604: END IF;
6605: RAISE no_xrate_base_amount_failure;
6610: ELSIF (p_calc_user_xrate = 'Y') AND
6611: ((p_invoice_rec.exchange_rate_type <> 'User') AND
6612: (p_invoice_rec.no_xrate_base_amount IS NOT NULL)) THEN
6613:
6614: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6615: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6616: p_invoice_rec.invoice_id,
6617: 'INVALID EXCH RATE TYPE',
6618: p_default_last_updated_by,
6618: p_default_last_updated_by,
6619: p_default_last_update_login,
6620: current_calling_sequence) <> TRUE) THEN
6621: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6622: AP_IMPORT_UTILITIES_PKG.Print(
6623: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6624: 'insert_rejections<-'||current_calling_sequence);
6625: END IF;
6626: RAISE no_xrate_base_amount_failure;
6638: (p_invoice_rec.invoice_amount*p_invoice_rec.exchange_rate),
6639: p_base_currency_code) <> p_invoice_rec.no_xrate_base_amount)
6640: THEN
6641:
6642: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6643: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6644: p_invoice_rec.invoice_id,
6645: 'INCONSISTENT XRATE INFO',
6646: p_default_last_updated_by,
6646: p_default_last_updated_by,
6647: p_default_last_update_login,
6648: current_calling_sequence) <> TRUE) THEN
6649: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6650: AP_IMPORT_UTILITIES_PKG.Print(
6651: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6652: 'insert_rejections<-'||current_calling_sequence);
6653: END IF;
6654: RAISE no_xrate_base_amount_failure;
6661: ((p_invoice_rec.exchange_rate_type = 'User') AND
6662: (p_invoice_rec.no_xrate_base_amount IS NULL) AND
6663: (p_invoice_rec.exchange_rate is NULL)) THEN
6664:
6665: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6666: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6667: p_invoice_rec.invoice_id,
6668: 'NO EXCHANGE RATE',
6669: p_default_last_updated_by,
6669: p_default_last_updated_by,
6670: p_default_last_update_login,
6671: current_calling_sequence) <> TRUE) THEN
6672: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6673: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6674: 'insert_rejections<-'||current_calling_sequence);
6675: END IF;
6676: RAISE no_xrate_base_amount_failure;
6677: END IF;
6690: p_base_currency_code <> p_invoice_rec.invoice_currency_code) THEN
6691:
6692: debug_info := '(Check No Xrate Base Amount 2) Get invoice base amount';
6693: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6694: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6695: debug_info);
6696: END IF;
6697:
6698: -- bug 9326733 starts
6719: WHEN OTHERS THEN
6720: --bug 9326733. Added if clause to avoid rejection records, in case of
6721: -- rate is not mandatory.
6722: IF (l_make_rate_mand_flag = 'Y') THEN
6723: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6724: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6725: p_invoice_rec.invoice_id,
6726: 'NO EXCHANGE RATE',
6727: p_default_last_updated_by,
6727: p_default_last_updated_by,
6728: p_default_last_update_login,
6729: current_calling_sequence) <> TRUE) THEN
6730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6731: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6732: 'insert_rejections<-'||current_calling_sequence);
6733: END IF;
6734: RAISE no_xrate_base_amount_failure;
6735: END IF;
6754:
6755: EXCEPTION
6756: WHEN OTHERS THEN
6757: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6758: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6759: debug_info);
6760: END IF;
6761:
6762: IF (SQLCODE < 0) then
6760: END IF;
6761:
6762: IF (SQLCODE < 0) then
6763: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6764: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6765: SQLERRM);
6766: END IF;
6767: END IF;
6768:
7301: IF (nvl(p_invoice_rec.invoice_type_lookup_code, 'STANDARD') <> 'PAYMENT REQUEST') THEN -- B# 8528132
7302:
7303: debug_info := '(Check_lines 1) Call Get_employee_id';
7304: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7305: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7306: debug_info);
7307: END IF;
7308:
7309: IF (AP_IMPORT_UTILITIES_PKG.get_employee_id(
7305: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7306: debug_info);
7307: END IF;
7308:
7309: IF (AP_IMPORT_UTILITIES_PKG.get_employee_id(
7310: p_invoice_rec.invoice_id,
7311: p_invoice_rec.vendor_id,
7312: l_employee_id, -- OUT
7313: p_default_last_updated_by,
7314: p_default_last_update_login,
7315: l_temp_line_status, -- OUT
7316: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
7317: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7318: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7319: 'get_employee_id<-' ||current_calling_sequence);
7320: END IF;
7321: RAISE check_lines_failure;
7322: END IF;
7325: --
7326: -- show output values (only if debug_switch = 'Y')
7327: --
7328: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7329: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7330: '------------------> l_temp_line_status = '||l_temp_line_status
7331: ||' l_employee_id = '||to_char(l_employee_id));
7332: END IF;
7333:
7345: -- provide a line number
7346: --------------------------------------------------------------------------
7347: debug_info := '(Check Lines 2) Get Max Line Number';
7348: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7349: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7350: debug_info);
7351: END IF;
7352: --
7353: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN
7396: -- AP_PPA_LINES_GT
7397: --------------------------------------------------------------------------
7398: debug_info := '(Check Lines 3) Open Cursor: invoice_lines';
7399: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7400: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7401: debug_info);
7402: END IF;
7403:
7404: -- Bug 6369356
7427: -- Loop through fetched invoice lines
7428: --------------------------------------------------------------------------
7429: debug_info := '(Check Lines 4) Looping through fetched invoice lines';
7430: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7431: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7432: debug_info);
7433: END IF;
7434:
7435: /* bug 12668114
7447: p_base_currency_code );
7448: END IF;
7449:
7450: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7451: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch ,
7452: '------------------> invoice_line_id = '
7453: ||to_char(p_invoice_lines_tab(i).invoice_line_id )
7454: ||' line_type_lookup_code = '
7455: || p_invoice_lines_tab(i).line_type_lookup_code
7613: -------------------------------------------------------------------------
7614: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
7615: debug_info := '(Check Lines 5) Validate org id for line';
7616: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7617: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7618: debug_info);
7619: END IF;
7620:
7621: IF p_invoice_lines_tab(i).org_id IS NOT NULL THEN
7620:
7621: IF p_invoice_lines_tab(i).org_id IS NOT NULL THEN
7622: debug_info := '(Check_lines 5.0) Org Id Is Not Null';
7623: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7624: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7625: debug_info);
7626: END IF;
7627:
7628: IF p_invoice_lines_tab(i).org_id <> p_invoice_rec.org_id THEN
7626: END IF;
7627:
7628: IF p_invoice_lines_tab(i).org_id <> p_invoice_rec.org_id THEN
7629:
7630: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
7631: (AP_IMPORT_INVOICES_PKG.g_invoices_table, -- Bug 9452076.
7632: p_invoice_rec.invoice_id,
7633: 'INCONSISTENT OPERATING UNITS',
7634: p_default_last_updated_by,
7634: p_default_last_updated_by,
7635: p_default_last_update_login,
7636: current_calling_sequence) <> TRUE ) Then
7637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7638: AP_IMPORT_UTILITIES_PKG.Print(
7639: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7640: 'insert_rejections<- ' ||current_calling_sequence);
7641: END IF;
7642: RAISE check_lines_failure;
7664: IF (p_invoice_lines_tab(i).invoice_line_id is NULL) THEN
7665: --
7666: debug_info := '(Check_lines 6.1) Get new invoice_line_id';
7667: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7668: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7669: debug_info);
7670: END IF;
7671:
7672: debug_info := '(Check_lines 6.2) Update new invoice_line_id to '
7671:
7672: debug_info := '(Check_lines 6.2) Update new invoice_line_id to '
7673: ||'ap_invoice_lines_interface';
7674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7675: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7676: debug_info);
7677: END IF;
7678:
7679: UPDATE ap_invoice_lines_interface
7689: ------------------------------------------------------------------------
7690: IF (p_invoice_lines_tab(i).dist_code_concatenated IS NOT NULL) THEN
7691: debug_info := '(v_check_lines 7.0) Check for partial Segments';
7692: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7693: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7694: debug_info);
7695: END IF;
7696:
7697: IF (AP_UTILITIES_PKG.Check_partial(
7700: p_set_of_books_id, -- IN
7701: l_error_message, -- OUT
7702: current_calling_sequence) <> TRUE) THEN
7703: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7704: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7705: 'AP_UTILITIES_PKG.Check_Partial<-'||current_calling_sequence);
7706: END IF;
7707: RAISE check_lines_failure;
7708: END IF;
7707: RAISE check_lines_failure;
7708: END IF;
7709:
7710: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7711: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7712: '------------------> partial_segments = '
7713: || p_invoice_lines_tab(i).partial_segments
7714: ||'l_error_message = '||l_error_message
7715: ||'dist_code_concatenated = '
7726: IF ( p_invoice_lines_tab(i).amount is null) THEN
7727: debug_info := '(Check Invoice Line amount 8.1) Invoice Line '
7728: ||'Amount is null';
7729: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7730: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7731: debug_info);
7732: END IF;
7733: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
7734: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
7729: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7730: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7731: debug_info);
7732: END IF;
7733: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
7734: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
7735: p_invoice_lines_tab(i).invoice_line_id,
7736: 'LINE AMOUNT IS NULL',
7737: p_default_last_updated_by,
7737: p_default_last_updated_by,
7738: p_default_last_update_login,
7739: current_calling_sequence) <> TRUE) THEN
7740: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7741: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7742: 'insert_rejections<-'||current_calling_sequence);
7743: END IF;
7744: RAISE check_lines_failure;
7745: END IF;
7752:
7753: debug_info := '(Check Invoice Line amount 8) Check for invoice line '
7754: ||'amount if it is not exceeding precision';
7755: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7756: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7757: debug_info);
7758: END IF;
7759: IF (AP_IMPORT_VALIDATION_PKG.v_check_invoice_line_amount (
7760: p_invoice_lines_tab(i),
7763: p_default_last_update_login,
7764: p_current_invoice_status => l_temp_line_status, --IN OUT
7765: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7766: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7767: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7768: 'v_check_line_amount<-'||current_calling_sequence);
7769: END IF;
7770: RAISE check_lines_failure;
7771:
7776: --
7777: -- show output values (only if debug_switch = 'Y')
7778: --
7779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7780: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7781: '------------------>
7782: l_temp_invoice_status = '||l_temp_line_status);
7783: END IF;*/ -- Commented and moved this code out of this IF Loop for bug 9484163
7784:
7791: --
7792: -- show output values (only if debug_switch = 'Y')
7793: --
7794: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7795: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7796: '------------------>
7797: l_temp_invoice_status = '||l_temp_line_status);
7798: END IF; -- bug 9484163 ends
7799:
7803: -- only for ITEM Lines
7804: ---------------------------------------------------------
7805: debug_info := '(Check_lines 9) Call v_check_po_info only for ITEM Lines';
7806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7807: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7808: debug_info);
7809: END IF;
7810:
7811: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code, 'ITEM' )
7811: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code, 'ITEM' )
7812: IN ('ITEM','RETROITEM')) THEN
7813: debug_info := '(Check_lines 9.1) This is an ITEM Line';
7814: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7815: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7816: debug_info);
7817: END IF;
7818:
7819: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_po_info(
7830: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7831: p_calling_sequence => current_calling_sequence)
7832: <> TRUE )THEN
7833: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7834: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7835: 'v_check_po_info<-' ||current_calling_sequence);
7836: END IF;
7837: RAISE check_lines_failure;
7838: END IF;
7840: --
7841: -- show output values (only if debug_switch = 'Y')
7842: --
7843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7844: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7845: '------------------> l_temp_line_status = '|| l_temp_line_status);
7846: END IF;
7847:
7848: -- We need to set the current status to 'N' only if the temp line status
7869: -- Check for receipt information if match option = 'R'
7870: --------------------------------------------------------
7871: debug_info := '(Check_lines 10) Call v_check_receipt_info';
7872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7873: AP_IMPORT_UTILITIES_PKG.Print(
7874: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7875: END IF;
7876:
7877: --Bug 5225547 added the below condition to call v_check_receipt_info
7885: p_temp_line_status => l_temp_line_status, -- OUT NOCOPY
7886: p_calling_sequence => current_calling_sequence)
7887: <> TRUE) THEN
7888: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7889: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7890: 'v_check_receipt_info<-' ||current_calling_sequence);
7891: END IF;
7892: RAISE check_lines_failure;
7893: END IF;
7897: --
7898: -- show output values (only if debug_switch = 'Y')
7899: --
7900: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7901: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7902: '------------------> l_temp_line_status = '||
7903: l_temp_line_status);
7904: END IF;
7905:
7921:
7922: debug_info := '(Check Purchasing Category Info 11) Check if valid '
7923: ||'purchasing category information is provided';
7924: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7925: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7926: debug_info);
7927: END IF;
7928:
7929: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_purch_category(
7933: p_current_invoice_status => l_temp_line_status, --IN OUT
7934: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7935:
7936: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7937: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7938: 'v_check_purchasing_category<-'||current_calling_sequence);
7939: END IF;
7940: RAISE check_lines_failure;
7941:
7947: --
7948: -- show output values (only if debug_switch = 'Y')
7949: --
7950: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7951: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7952: '------------------>
7953: l_temp_invoice_status = '||l_temp_line_status);
7954: END IF;
7955:
7965:
7966: debug_info := '(Check Cost Factor Info 12) Check if valid '
7967: ||'cost factor information is provided';
7968: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7969: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7970: debug_info);
7971: END IF;
7972:
7973: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_cost_factor(
7977: p_current_invoice_status => l_temp_line_status, --IN OUT
7978: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7979:
7980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7981: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7982: 'v_check_line_cost_factor<-'||current_calling_sequence);
7983: END IF;
7984: RAISE check_lines_failure;
7985:
7991: --
7992: -- show output values (only if debug_switch = 'Y')
7993: --
7994: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7995: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7996: '------------------>
7997: l_temp_invoice_status = '||l_temp_line_status);
7998: END IF;
7999:
8013: p_calling_sequence => current_calling_sequence)
8014: <> TRUE) THEN
8015:
8016: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8017: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8018: 'v_check_line_populate_po_tax_attr<-' ||current_calling_sequence);
8019: END IF;
8020: RAISE check_lines_failure;
8021:
8027: -- check for accounting date Information
8028: ---------------------------------------------------------
8029: debug_info := '(Check_lines 13) Call v_check_line_accounting_date';
8030: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8031: AP_IMPORT_UTILITIES_PKG.Print(
8032: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8033: END IF;
8034:
8035: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_accounting_date(
8044: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
8045: p_calling_sequence => current_calling_sequence)
8046: <> TRUE )THEN
8047: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8048: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8049: 'v_check_line_accounting_date<-' ||current_calling_sequence);
8050: END IF;
8051: RAISE check_lines_failure;
8052: END IF;
8054: --
8055: -- show output values (only if debug_switch = 'Y')
8056: --
8057: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8058: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8059: '------------------> l_temp_line_status = '|| l_temp_line_status);
8060: END IF;
8061: --
8062: IF (l_temp_line_status = 'N') THEN
8069: -- check for project information
8070: ---------------------------------------------------------
8071: debug_info := '(Check_lines 14) Call v_check_line_project_info';
8072: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8073: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8074: debug_info);
8075: END IF;
8076:
8077: --bugfix:4773191 , added the IF condition to bypass the pa flexbuild
8105: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8106: p_calling_sequence => current_calling_sequence)
8107: <> TRUE )THEN
8108: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8109: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8110: 'v_check_line_project_info<-' ||current_calling_sequence);
8111: END IF;
8112: RAISE check_lines_failure;
8113: END IF;
8115: --
8116: -- show output values (only if debug_switch = 'Y')
8117: --
8118: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8119: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8120: '------------------> l_temp_line_status = '|| l_temp_line_status
8121: ||' dist_code_combination_id = '
8122: || to_char(p_invoice_lines_tab(i).dist_code_combination_id));
8123: END IF;
8137: -------------------------------------------------------------------
8138:
8139: debug_info := '(Check_lines 15.0) Call Is_Product_Registered';
8140: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8141: AP_IMPORT_UTILITIES_PKG.Print(
8142: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8143: End if;
8144:
8145: /* bug 5039042. Whether Source Application is registered for
8147: /* Bug 5448579. Added the IF condition */
8148: IF (p_invoice_lines_tab(i).application_id IS NULL) THEN
8149: l_product_registered := 'N';
8150: ELSE
8151: IF (Ap_Import_Utilities_Pkg.Is_Product_Registered(
8152: P_application_id => p_invoice_lines_tab(i).application_id,
8153: X_registration_api => l_dummy,
8154: X_registration_view => l_dummy,
8155: P_calling_sequence => current_calling_sequence)) THEN
8161:
8162: /* bug 5121735 */
8163: debug_info := '(Check_lines 15.1) l_product_registered: '||l_product_registered;
8164: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8165: AP_IMPORT_UTILITIES_PKG.Print(
8166: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8167: End if;
8168:
8169: -------------------------------------------------------------------
8180: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
8181: IF (l_product_registered = 'N') THEN /* bug 5121735 */
8182: debug_info := '(Check_lines 15) Call v_check_line_account_info';
8183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8184: AP_IMPORT_UTILITIES_PKG.Print(
8185: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8186: End if;
8187:
8188: --Start of Bug 13082579/13820857 - payables open interface import applying distribution set to freight lines
8234: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
8235: p_calling_sequence => current_calling_sequence) <> TRUE
8236: ) THEN
8237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8238: AP_IMPORT_UTILITIES_PKG.Print(
8239: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8240: 'v_check_line_account_info<-' ||current_calling_sequence);
8241: END IF;
8242: RAISE check_lines_failure;
8244: --
8245: -- show output values (only if debug_switch = 'Y')
8246: --
8247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8249: '------------------> l_temp_line_status = '||
8250: l_temp_line_status ||'dist_code_combination_id = '
8251: ||to_char(p_invoice_lines_tab(i).dist_code_combination_id));
8252: END IF;
8266: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
8267:
8268: debug_info := '(Check_lines 16) Call v_check_deferred_accounting';
8269: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8270: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8271: debug_info);
8272: END IF;
8273:
8274: IF (AP_IMPORT_VALIDATION_PKG.v_check_deferred_accounting (
8278: p_default_last_update_login, -- IN
8279: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
8280: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8281: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8282: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8283: 'v_check_deferred_accounting<-' ||current_calling_sequence);
8284: end if;
8285: RAISE check_lines_failure;
8286: END IF;
8288: --
8289: -- show output values (only if debug_switch = 'Y')
8290: --
8291: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8292: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8293: '------------------> l_temp_line_status = '||
8294: l_temp_line_status);
8295: END IF;
8296: --
8308: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
8309: --
8310: debug_info := '(Check_lines 17) Call v_check_line_dist_set';
8311: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8312: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8313: debug_info);
8314: END IF;
8315: --
8316: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code, 'ITEM' )
8329: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
8330: p_calling_sequence => current_calling_sequence)
8331: <> TRUE )THEN
8332: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
8333: AP_IMPORT_UTILITIES_PKG.Print(
8334: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8335: 'v_check_line_dist_set<-' ||current_calling_sequence);
8336: END IF;
8337: RAISE check_lines_failure;
8339: --
8340: -- show output values (only if debug_switch = 'Y')
8341: --
8342: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
8343: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8344: '------------------> l_temp_line_status = '|| l_temp_line_status);
8345: END IF;
8346: --
8347: IF (l_temp_line_status = 'N') THEN
8356: -- Validate Qty related information for non PO/RCV matched lines
8357: ---------------------------------------------------------
8358: debug_info := '(Check_lines 18) Call v_check_qty_uom_info';
8359: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8360: AP_IMPORT_UTILITIES_PKG.Print(
8361: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
8362: END IF;
8363:
8364: -- check for invalid qty related information for non PO/RCV matched lines
8369: p_default_last_update_login, -- IN
8370: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8371: p_calling_sequence => current_calling_sequence) <> TRUE) THEN
8372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8374: 'v_check_invalid_awt_group<-' ||current_calling_sequence);
8375: END IF;
8376: RAISE check_lines_failure;
8377: END IF;
8378: --
8379: -- show output values (only if debug_switch = 'Y')
8380: --
8381: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8382: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8383: '------------------> l_temp_line_status = '|| l_temp_line_status);
8384: END IF;
8385:
8386: --
8394: -- check for AWT group
8395: ---------------------------------------------------------
8396: debug_info := '(Check_lines 19) Call v_check_invalid_awt_group';
8397: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8398: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8399: debug_info);
8400: END IF;
8401:
8402: -- check for invalid AWT group
8407: p_default_last_update_login, -- IN
8408: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8409: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8412: 'v_check_invalid_awt_group<-' ||current_calling_sequence);
8413: END IF;
8414: RAISE check_lines_failure;
8415: END IF;
8416: --
8417: -- show output values (only if debug_switch = 'Y')
8418: --
8419: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8420: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8421: '------------------> l_temp_line_status = '|| l_temp_line_status);
8422: END IF;
8423: --
8424: IF (l_temp_line_status = 'N') THEN
8431: -- check for pay AWT group
8432: ---------------------------------------------------------
8433: debug_info := '(Check_lines 19) Call v_check_invalid_line_pay_awt_g';
8434: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8435: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8436: debug_info);
8437: END IF;
8438:
8439: -- check for invalid AWT group
8444: p_default_last_update_login, -- IN
8445: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8446: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8447: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8448: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8449: 'v_check_invalid_pay_awt_group<-' ||current_calling_sequence);
8450: END IF;
8451: RAISE check_lines_failure;
8452: END IF;
8453: --
8454: -- show output values (only if debug_switch = 'Y')
8455: --
8456: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8457: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8458: '------------------> l_temp_line_status = '|| l_temp_line_status);
8459: END IF;
8460: --
8461: IF (l_temp_line_status = 'N') THEN
8472: ---------------------------------------------------------
8473: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
8474: debug_info := '(Check_lines 20) Call v_check_duplicate_line_num';
8475: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8476: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8477: debug_info);
8478: END IF;
8479:
8480: IF (AP_IMPORT_VALIDATION_PKG.v_check_duplicate_line_num(
8485: p_current_invoice_status => l_temp_line_status,-- IN OUT
8486: p_calling_sequence => current_calling_sequence)
8487: <> TRUE )THEN
8488: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8489: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8490: 'v_check_duplicate_line_num<-' ||current_calling_sequence);
8491: END IF;
8492: RAISE check_lines_failure;
8493: END IF;
8494: --
8495: -- show output values (only if debug_switch = 'Y')
8496: --
8497: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8498: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8499: '------------------> l_temp_line_status = '|| l_temp_line_status);
8500: END IF;
8501: --
8502: IF (l_temp_line_status = 'N') THEN
8514: -- check Asset Info
8515: ---------------------------------------------------------
8516: debug_info := '(Check_lines 21) Call v_check_asset_info';
8517: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8518: AP_IMPORT_UTILITIES_PKG.Print(
8519: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8520: End if;
8521:
8522: IF (AP_IMPORT_VALIDATION_PKG.v_check_asset_info (
8528: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
8529: p_calling_sequence => current_calling_sequence)
8530: <> TRUE) THEN
8531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8532: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8533: 'v_check_misc_line_info<-' ||current_calling_sequence);
8534: END IF;
8535: RAISE check_lines_failure;
8536: END IF;
8537: --
8538: -- show output values (only if debug_switch = 'Y')
8539: --
8540: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8541: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8542: '------------------> l_temp_line_status = '|| l_temp_line_status);
8543: END IF;
8544:
8545: --
8553: -- check for Misc Line Info
8554: ---------------------------------------------------------
8555: debug_info := '(Check_lines 22) Call v_check_misc_line_info';
8556: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8557: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8558: debug_info);
8559: END IF;
8560:
8561: IF (AP_IMPORT_VALIDATION_PKG.v_check_misc_line_info(
8566: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8567: p_calling_sequence => current_calling_sequence)
8568: <> TRUE )THEN
8569: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8570: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8571: 'v_check_misc_line_info<-' ||current_calling_sequence);
8572: END IF;
8573: RAISE check_lines_failure;
8574: END IF;
8575: --
8576: -- show output values (only if debug_switch = 'Y')
8577: --
8578: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8579: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8580: '------------------> l_temp_line_status = '||
8581: l_temp_line_status);
8582: END IF;
8583:
8592: IF (p_invoice_lines_tab(i).ship_to_location_code IS NOT NULL) THEN
8593:
8594: debug_info := '(Check Lines 22.5) Checking for ship to location code ';
8595: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8596: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8597: END IF;
8598:
8599: IF (AP_IMPORT_VALIDATION_PKG.v_check_ship_to_location_code(
8600: p_invoice_rec,
8604: p_current_invoice_status => l_temp_line_status, -- IN OUT
8605: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8606:
8607: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8608: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8609: 'v_check_ship_to_location_code<-' ||current_calling_sequence);
8610: END IF;
8611: RAISE check_lines_failure;
8612: END IF;
8611: RAISE check_lines_failure;
8612: END IF;
8613:
8614: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8615: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8616: '------------------> ship_to_location_id = '|| p_invoice_lines_tab(i).ship_to_location_id);
8617: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8618: '------------------> l_temp_line_status = '||l_temp_line_status);
8619: END IF;
8613:
8614: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8615: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8616: '------------------> ship_to_location_id = '|| p_invoice_lines_tab(i).ship_to_location_id);
8617: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8618: '------------------> l_temp_line_status = '||l_temp_line_status);
8619: END IF;
8620:
8621:
8629:
8630: p_invoice_lines_tab(i).ship_to_location_id:= lg_ship_to_loc_id_site(p_invoice_rec.vendor_site_id);
8631:
8632: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
8633: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8634: '------------------> p_invoice_lines_tab(i).ship_to_location_id = '
8635: || p_invoice_lines_tab(i).ship_to_location_id);
8636: END IF;
8637:
8647: EXCEPTION
8648: WHEN OTHERS THEN
8649: NULL;
8650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
8651: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8652: 'No ship to location found based on vendor site '||p_invoice_rec.vendor_site_id);
8653: END IF;
8654:
8655: END;
8656:
8657:
8658:
8659: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8660: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8661: '------------------> p_invoice_lines_tab(i).ship_to_location_id = '
8662: || p_invoice_lines_tab(i).ship_to_location_id);
8663: END IF;
8664:
8678: -------------------------------------------------------------------------
8679: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
8680: debug_info := '(Check_lines 23) Call v_check_tax_line_info';
8681: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8682: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8683: debug_info);
8684: END IF;
8685:
8686: IF (AP_IMPORT_VALIDATION_PKG.v_check_tax_line_info(
8690: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8691: p_calling_sequence => current_calling_sequence)
8692: <> TRUE )THEN
8693: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8694: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8695: 'v_check_tax_line_info<-' ||current_calling_sequence);
8696: END IF;
8697: RAISE check_lines_failure;
8698: END IF;
8697: RAISE check_lines_failure;
8698: END IF;
8699:
8700: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8701: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8702: '------------------> l_temp_line_status = '||
8703: l_temp_line_status);
8704: END IF;
8705:
8716: -- check for Invalid Line Global Flexfield
8717: ---------------------------------------------------------
8718: debug_info := '(Check Lines 24) Check for Line Global Flexfield';
8719: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8720: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8721: debug_info);
8722: END IF;
8723: jg_globe_flex_val.check_attr_value(
8724: 'APXIIMPT',
8757: p_current_status => l_temp_line_status);
8758:
8759:
8760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8762: 'Global Flexfield Lines Processed '|| l_temp_line_status);
8763: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8764: '------------------> l_temp_line_status = '||l_temp_line_status);
8765: END IF;
8759:
8760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8762: 'Global Flexfield Lines Processed '|| l_temp_line_status);
8763: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8764: '------------------> l_temp_line_status = '||l_temp_line_status);
8765: END IF;
8766:
8767: IF (l_temp_line_status = 'N') THEN
8778: ---------------------------------------------------------
8779: debug_info := '(Check Lines 25) Checking the total dist amount to be '
8780: ||'prorated';
8781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8782: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8783: debug_info);
8784: END IF;
8785:
8786: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code,'ITEM') <> 'ITEM' AND
8793: p_current_invoice_status =>l_temp_line_status,-- IN OUT NOCOPY
8794: p_calling_sequence => current_calling_sequence)
8795: <> TRUE )THEN
8796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8798: 'v_check_prorate_info<-' ||current_calling_sequence);
8799: END IF;
8800: RAISE check_lines_failure;
8801: END IF;
8802: --
8803: -- show output values (only if debug_switch = 'Y')
8804: --
8805: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8806: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8807: '------------------> l_temp_line_status = '||l_temp_line_status);
8808: END IF;
8809:
8810: --
8823: nvl(p_invoice_rec.invoice_type_lookup_code, 'STANDARD') <> 'PREPAYMENT') THEN
8824:
8825: debug_info := '(Check Lines 26) Checking for retainage account ';
8826: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8827: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8828: END IF;
8829:
8830: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_retainage(
8831: p_invoice_lines_tab(i), -- IN OUT
8835: p_current_invoice_status => l_temp_line_status, -- IN OUT
8836: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8837:
8838: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8839: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8840: 'v_check_line_retainage<-' ||current_calling_sequence);
8841: END IF;
8842: RAISE check_lines_failure;
8843: END IF;
8842: RAISE check_lines_failure;
8843: END IF;
8844:
8845: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8846: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8847: '------------------> l_temp_line_status = '|| l_temp_line_status);
8848: END IF;
8849:
8850: IF (l_temp_line_status = 'N') THEN
8863: p_invoice_lines_tab(i).ship_to_location_id IS NULL) THEN
8864:
8865: debug_info := '(Check Lines 27) Checking for ship to location code ';
8866: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8867: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8868: END IF;
8869:
8870: IF (AP_IMPORT_VALIDATION_PKG.v_check_ship_to_location_code(
8871: p_invoice_rec,
8875: p_current_invoice_status => l_temp_line_status, -- IN OUT
8876: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8877:
8878: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8879: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8880: 'v_check_ship_to_location_code<-' ||current_calling_sequence);
8881: END IF;
8882: RAISE check_lines_failure;
8883: END IF;
8882: RAISE check_lines_failure;
8883: END IF;
8884:
8885: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8886: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8887: '------------------> ship_to_location_id = '
8888: || p_invoice_lines_tab(i).ship_to_location_id);
8889: END IF;
8890:
8903: -- Bug 13491024 - R1213ITTHRESH.QA: ISSUES WITH ITEM LINE GDF IN ITALIAN AP QUICK INVOICE
8904: -----------------------------------------------------
8905: debug_info := '(Check Lines 28) Update global context code ';
8906: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
8907: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
8908: END IF;
8909:
8910: -- > IN global context code in interface table
8911: -- > OUT NOCOPY global context code in base table
8923: current_calling_sequence);
8924:
8925: IF (l_temp_line_status <> 'Y') THEN
8926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8927: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8928: 'jg_globe_flex_val.reject_invalid_context_code<-' ||current_calling_sequence);
8929: END IF;
8930: RAISE check_lines_failure;
8931: END IF;
8930: RAISE check_lines_failure;
8931: END IF;
8932:
8933: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8934: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8935: '------------------> p_invoice_lines_tab('||i||').global_attribute_category = '
8936: || p_invoice_lines_tab(i).global_attribute_category);
8937: END IF;
8938:
8947: -- Step 28 check for Invalid GTAS info
8948: ---------------------------------------------------------
8949: debug_info := '(Check_lines 28) Call V_CHECK_GDF_VALIDATION';
8950: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8951: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8952: debug_info);
8953: END IF;
8954:
8955: IF (AP_IMPORT_VALIDATION_PKG.V_CHECK_GDF_VALIDATION(
8960: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
8961: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8962:
8963: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8964: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8965: 'V_CHECK_GDF_VALIDATION<-' ||current_calling_sequence);
8966: END IF;
8967: RAISE check_lines_failure;
8968: END IF;
8967: RAISE check_lines_failure;
8968: END IF;
8969:
8970: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8971: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8972: '------------------> l_temp_line_status = '|| l_temp_line_status);
8973: END IF;
8974: --
8975: IF (l_temp_line_status = 'N') THEN
8982: p_invoice_lines_tab(i), -- IN OUT
8983: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8984:
8985: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8986: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8987: 'v_populate_lines_misc<-' ||current_calling_sequence);
8988: END IF;
8989: RAISE check_lines_failure;
8990: END IF;
9013:
9014: EXCEPTION
9015: WHEN OTHERS THEN
9016: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9017: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9018: debug_info);
9019: END IF;
9020:
9021: IF (SQLCODE < 0) then
9019: END IF;
9020:
9021: IF (SQLCODE < 0) then
9022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9024: SQLERRM);
9025: END IF;
9026: END IF;
9027:
9062:
9063: debug_info :=
9064: '(Check Invoice Line Amount 1) Lines amount exceeds precision.';
9065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9066: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9067: debug_info);
9068: END IF;
9069:
9070: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9066: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9067: debug_info);
9068: END IF;
9069:
9070: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9071: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9072: p_invoice_lines_rec.invoice_line_id,
9073: 'LINE AMOUNT EXCEEDS PRECISION',
9074: p_default_last_updated_by,
9074: p_default_last_updated_by,
9075: p_default_last_update_login,
9076: current_calling_sequence) <> TRUE) THEN
9077: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9078: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9079: 'insert_rejections<-'||current_calling_sequence);
9080: END IF;
9081: RAISE check_lines_failure;
9082: END IF;
9089:
9090: EXCEPTION
9091: WHEN OTHERS THEN
9092: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9093: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9094: debug_info);
9095: END IF;
9096:
9097: IF (SQLCODE < 0) then
9095: END IF;
9096:
9097: IF (SQLCODE < 0) then
9098: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9099: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9100: SQLERRM);
9101: END IF;
9102: END IF;
9103: RETURN(FALSE);
9204: --
9205: debug_info := '(v_check_line_po_info 1) Default PO Number from invoice '
9206: ||'header and get l_po_header_id';
9207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9209: debug_info);
9210: END IF;
9211: --
9212:
9222: EXCEPTION
9223: WHEN NO_DATA_FOUND THEN
9224: -- po number is invalid
9225: -- set contextual information for XML GATEWAY
9226: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9227: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9228: p_invoice_lines_rec.invoice_line_id,
9229: 'INVALID PO NUM',
9230: p_default_last_updated_by,
9233: 'Y',
9234: 'PO NUMBER',
9235: p_invoice_rec.po_number) <> TRUE) THEN
9236: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9237: AP_IMPORT_UTILITIES_PKG.Print(
9238: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9239: 'insert_rejections<-'||current_calling_sequence);
9240: END IF;
9241: RAISE check_po_failure;
9253: --
9254: BEGIN
9255: debug_info := '(v_check_line_po_info 1) Validate po_header_id';
9256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9257: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9258: debug_info);
9259: END IF;
9260: --
9261: SELECT 'Y'
9270: EXCEPTION
9271: WHEN NO_DATA_FOUND THEN
9272: -- po header id is invalid
9273: -- set contextual information for XML GATEWAY
9274: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9275: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9276: p_invoice_lines_rec.invoice_line_id,
9277: 'INVALID PO NUM',
9278: p_default_last_updated_by,
9281: 'Y',
9282: 'PO NUMBER',
9283: p_invoice_lines_rec.po_number) <> TRUE) THEN
9284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9285: AP_IMPORT_UTILITIES_PKG.Print(
9286: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9287: 'insert_rejections<-'||current_calling_sequence);
9288: END IF;
9289: RAISE check_po_failure;
9305: p_invoice_lines_rec.po_number IS NULL) THEN
9306: BEGIN
9307: -- po number is missing
9308: -- set contextual information for XML GATEWAY
9309: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9310: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9311: p_invoice_lines_rec.invoice_line_id,
9312: 'MISSING PO NUM',
9313: p_default_last_updated_by,
9316: 'Y',
9317: 'LINE NUMBER',
9318: p_invoice_lines_rec.line_number) <> TRUE) THEN
9319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9320: AP_IMPORT_UTILITIES_PKG.Print(
9321: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9322: 'insert_rejections<-'||current_calling_sequence);
9323: END IF;
9324: RAISE check_po_failure;
9335: --
9336: BEGIN
9337: debug_info := '(v_check_line_po_info 2) Validate po_number';
9338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9339: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9340: debug_info);
9341: END IF;
9342: --
9343: SELECT 'Y', ph.po_header_id
9352: EXCEPTION
9353: WHEN NO_DATA_FOUND THEN
9354: -- po number is invalid
9355: -- set contextual information for XML GATEWAY
9356: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9357: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9358: p_invoice_lines_rec.invoice_line_id,
9359: 'INVALID PO NUM',
9360: p_default_last_updated_by,
9363: 'Y',
9364: 'PO NUMBER',
9365: p_invoice_lines_rec.po_number) <> TRUE) THEN
9366: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9367: AP_IMPORT_UTILITIES_PKG.Print(
9368: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9369: 'insert_rejections<-'||current_calling_sequence);
9370: END IF;
9371: RAISE check_po_failure;
9385: BEGIN
9386: debug_info := '(v_check_line_po_info 3) Check inconsistence for '
9387: ||'po_number and po_header_id';
9388: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9389: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9390: debug_info);
9391: END IF;
9392: --
9393: SELECT 'Y'
9398:
9399: EXCEPTION
9400: WHEN NO_DATA_FOUND THEN
9401: -- po number is inconsistent
9402: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
9403: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9404: p_invoice_lines_rec.invoice_line_id,
9405: 'INCONSISTENT PO INFO',
9406: p_default_last_updated_by,
9406: p_default_last_updated_by,
9407: p_default_last_update_login,
9408: current_calling_sequence) <> TRUE) THEN
9409: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9410: AP_IMPORT_UTILITIES_PKG.Print(
9411: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9412: 'insert_rejections<-'||current_calling_sequence);
9413: END IF;
9414: RAISE check_po_failure;
9426: --
9427: BEGIN
9428: debug_info := '(v_check_line_po_info 4) Validate po_line_id';
9429: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9430: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9431: debug_info);
9432: END IF;
9433: --
9434: SELECT 'Y'
9439:
9440: EXCEPTION
9441: WHEN NO_DATA_FOUND THEN
9442: -- po line id is invalid
9443: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9444: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9445: p_invoice_lines_rec.invoice_line_id,
9446: 'INVALID PO LINE NUM',
9447: p_default_last_updated_by,
9447: p_default_last_updated_by,
9448: p_default_last_update_login,
9449: current_calling_sequence) <> TRUE) THEN
9450: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9451: AP_IMPORT_UTILITIES_PKG.Print(
9452: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9453: 'insert_rejections<-'||current_calling_sequence);
9454: END IF;
9455: RAISE check_po_failure;
9471: then
9472:
9473: debug_info := '(v_check_line_po_info 4.1) Validate po_vendor_item_num';
9474: If AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' then
9475: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
9476: End if;
9477:
9478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9479: 'p_vendor_item_num<-'||p_invoice_lines_rec.vendor_item_num);
9474: If AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' then
9475: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
9476: End if;
9477:
9478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9479: 'p_vendor_item_num<-'||p_invoice_lines_rec.vendor_item_num);
9480:
9481: BEGIN
9482: SELECT pl.po_header_id
9488: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY' ) THEN
9489:
9490: -- Added contextual information for XML Gateway
9491:
9492: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9493: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9494: p_invoice_lines_rec.invoice_line_id,
9495: 'INVALID ITEM',
9496: p_default_last_updated_by,
9498: current_calling_sequence,
9499: 'Y',
9500: 'SUPPLIER ITEM NUMBER',
9501: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9502: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9503: 'insert_rejections<-'||current_calling_sequence);
9504: RAISE check_po_failure;
9505: END IF;
9506:
9505: END IF;
9506:
9507: ELSE
9508:
9509: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9510: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9511: p_invoice_lines_rec.invoice_line_id,
9512: 'INVALID ITEM',
9513: p_default_last_updated_by,
9512: 'INVALID ITEM',
9513: p_default_last_updated_by,
9514: p_default_last_update_login,
9515: current_calling_sequence) <> TRUE) THEN
9516: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9517: 'insert_rejections<-'||current_calling_sequence);
9518: RAISE check_po_failure;
9519: END IF;
9520:
9533: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY' ) THEN
9534:
9535: -- Added contextual information for XML Gateway
9536:
9537: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9538: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9539: p_invoice_lines_rec.invoice_line_id,
9540: 'CAN MATCH TO ONLY 1 LINE',
9541: p_default_last_updated_by,
9543: current_calling_sequence,
9544: 'Y',
9545: 'SUPPLIER ITEM NUMBER',
9546: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9547: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9548: 'insert_rejections<-'||current_calling_sequence);
9549: RAISE check_po_failure;
9550: END IF;
9551:
9550: END IF;
9551:
9552: ELSE
9553:
9554: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9555: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9556: p_invoice_lines_rec.invoice_line_id,
9557: 'CAN MATCH TO ONLY 1 LINE',
9558: p_default_last_updated_by,
9557: 'CAN MATCH TO ONLY 1 LINE',
9558: p_default_last_updated_by,
9559: p_default_last_update_login,
9560: current_calling_sequence) <> TRUE) THEN
9561: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9562: 'insert_rejections<-'||current_calling_sequence);
9563: RAISE check_po_failure;
9564: END IF;
9565:
9583: --
9584: BEGIN
9585: debug_info := '(v_check_line_po_info 5) Validate po_line_number';
9586: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9587: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9588: debug_info);
9589: END IF;
9590: --
9591: --
9597: AND NVL(closed_code, 'X') <> 'FINALLY CLOSED'; --Bug#13867905;
9598: EXCEPTION
9599: WHEN NO_DATA_FOUND THEN
9600: -- po line number is invalid
9601: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9602: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9603: p_invoice_lines_rec.invoice_line_id,
9604: 'INVALID PO LINE NUM',
9605: p_default_last_updated_by,
9605: p_default_last_updated_by,
9606: p_default_last_update_login,
9607: current_calling_sequence) <> TRUE) THEN
9608: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9609: AP_IMPORT_UTILITIES_PKG.Print(
9610: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9611: 'insert_rejections<-'||current_calling_sequence);
9612: END IF;
9613: RAISE check_po_failure;
9627: BEGIN
9628: debug_info := '(v_check_line_po_info 6) Check inconsistence for '
9629: ||'po_line_number and po_line_id';
9630: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9631: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9632: debug_info);
9633: END IF;
9634: --
9635: SELECT 'Y'
9639: AND po_line_id = l_po_line_id;
9640: EXCEPTION
9641: WHEN NO_DATA_FOUND THEN
9642: -- po number is inconsistent
9643: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9644: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9645: p_invoice_lines_rec.invoice_line_id,
9646: 'INCONSISTENT PO LINE INFO',
9647: p_default_last_updated_by,
9647: p_default_last_updated_by,
9648: p_default_last_update_login,
9649: current_calling_sequence) <> TRUE) THEN
9650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9651: AP_IMPORT_UTILITIES_PKG.Print(
9652: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9653: 'insert_rejections<-'||current_calling_sequence);
9654: END IF;
9655: RAISE check_po_failure;
9667: --
9668: BEGIN
9669: debug_info := '(v_check_line_po_info 7) Validate po_release_id';
9670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9672: debug_info);
9673: END IF;
9674: --
9675: --
9686: EXCEPTION
9687: WHEN NO_DATA_FOUND THEN
9688: -- po release id is invalid
9689: -- set contextual information for XML GATEWAY
9690: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9691: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9692: p_invoice_lines_rec.invoice_line_id,
9693: 'INVALID PO RELEASE NUM',
9694: p_default_last_updated_by,
9694: p_default_last_updated_by,
9695: p_default_last_update_login,
9696: current_calling_sequence) <> TRUE) THEN
9697: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9698: AP_IMPORT_UTILITIES_PKG.Print(
9699: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9700: 'insert_rejections<-'||current_calling_sequence);
9701: END IF;
9702: RAISE check_po_failure;
9716: --
9717: BEGIN
9718: debug_info := '(v_check_line_po_info 8) Validate po_release_num';
9719: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9720: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9721: debug_info);
9722: END IF;
9723: --
9724: SELECT 'Y',
9737: EXCEPTION
9738: WHEN NO_DATA_FOUND THEN
9739: -- po release number is invalid
9740: -- Set contextual information for XML GATEWAY
9741: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9742: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9743: p_invoice_lines_rec.invoice_line_id,
9744: 'INVALID PO RELEASE NUM',
9745: p_default_last_updated_by,
9748: 'Y',
9749: 'PO RELEASE NUMBER',
9750: p_invoice_lines_rec.release_num) <> TRUE) THEN
9751: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9752: AP_IMPORT_UTILITIES_PKG.Print(
9753: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9754: 'insert_rejections<-'||current_calling_sequence);
9755: END IF;
9756: RAISE check_po_failure;
9771: BEGIN
9772: debug_info := '(v_check_line_po_info 9) Check inconsistence for '
9773: ||'release_num and po_release_id';
9774: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9775: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9776: debug_info);
9777: END IF;
9778: --
9779: SELECT 'Y'
9783: AND po_release_id = l_po_release_id;
9784: EXCEPTION
9785: WHEN NO_DATA_FOUND THEN
9786: -- po release information is inconsistent
9787: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9788: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9789: p_invoice_lines_rec.invoice_line_id,
9790: 'INCONSISTENT RELEASE INFO',
9791: p_default_last_updated_by,
9791: p_default_last_updated_by,
9792: p_default_last_update_login,
9793: current_calling_sequence) <> TRUE) THEN
9794: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9795: AP_IMPORT_UTILITIES_PKG.Print(
9796: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9797: 'insert_rejections<-'||current_calling_sequence);
9798: END IF;
9799: RAISE check_po_failure;
9812: BEGIN
9813: debug_info := '(v_check_line_po_info 10) Check inconsistence for '
9814: ||'po_line_id and po_release_id';
9815: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9816: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9817: debug_info);
9818: END IF;
9819: --
9820: SELECT 'Y'
9827: AND rownum <=1;
9828: EXCEPTION
9829: WHEN NO_DATA_FOUND THEN
9830: -- po release/line is inconsistent
9831: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9832: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9833: p_invoice_lines_rec.invoice_line_id,
9834: 'INCONSISTENT RELEASE INFO',
9835: p_default_last_updated_by,
9835: p_default_last_updated_by,
9836: p_default_last_update_login,
9837: current_calling_sequence) <> TRUE) THEN
9838: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9839: AP_IMPORT_UTILITIES_PKG.Print(
9840: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9841: 'insert_rejections<-'||current_calling_sequence);
9842: END IF;
9843: RAISE check_po_failure;
9856: BEGIN
9857: debug_info :=
9858: '(v_check_line_po_info 10.1) Check lines for po_release_id ';
9859: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9860: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9861: debug_info);
9862: END IF;
9863: --
9864: SELECT DISTINCT po_line_id
9881: EXCEPTION
9882: WHEN NO_DATA_FOUND THEN
9883: -- po release/line is inconsistent
9884: -- set contextual information for XML GATEWAY
9885: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9886: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9887: p_invoice_lines_rec.invoice_line_id,
9888: 'INVALID PO RELEASE INFO',
9889: p_default_last_updated_by,
9896: p_invoice_lines_rec.po_shipment_num,
9897: 'PO LINE NUMBER',
9898: p_invoice_lines_rec.po_line_number) <> TRUE) THEN
9899: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9900: AP_IMPORT_UTILITIES_PKG.Print(
9901: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9902: 'insert_rejections<-'||current_calling_sequence);
9903: END IF;
9904: RAISE check_po_failure;
9914: (p_invoice_lines_rec.item_description IS NULL) AND
9915: (l_po_line_location_id IS NULL) AND
9916: (l_po_distribution_id IS NULL)) THEN
9917:
9918: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9919: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9920: p_invoice_lines_rec.invoice_line_id,
9921: 'CAN MATCH TO ONLY 1 LINE',
9922: p_default_last_updated_by,
9922: p_default_last_updated_by,
9923: p_default_last_update_login,
9924: current_calling_sequence) <> TRUE) THEN
9925: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9926: AP_IMPORT_UTILITIES_PKG.Print(
9927: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9928: 'insert_rejections<-'||current_calling_sequence);
9929: END IF;
9930: RAISE check_po_failure;
9952: the queries as there is no need to validate the release
9953: details for standard PO */
9954:
9955: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9956: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9957: debug_info);
9958: End if;
9959:
9960: IF l_po_header_id IS NOT NULL THEN -- Fix for 2809177
10016:
10017: EXCEPTION
10018: WHEN NO_DATA_FOUND THEN
10019: -- po release/line is inconsistent
10020: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10021: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10022: p_invoice_lines_rec.invoice_line_id,
10023: 'INCONSISTENT RELEASE INFO',
10024: p_default_last_updated_by,
10025: p_default_last_update_login,
10026: current_calling_sequence
10027: ) <> TRUE) THEN
10028: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10029: AP_IMPORT_UTILITIES_PKG.Print(
10030: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10031: 'insert_rejections<-'||current_calling_sequence);
10032: END IF;
10033: RAISE check_po_failure;
10045: BEGIN
10046: debug_info :=
10047: '(v_check_line_po_info 11) Validate p_inventory_item_id';
10048: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10049: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10050: debug_info);
10051: END IF;
10052: --
10053: SELECT 'Y', po_line_id
10057: AND po_header_id = l_po_header_id;
10058: EXCEPTION
10059: WHEN NO_DATA_FOUND THEN
10060: -- po item id is invalid
10061: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10062: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10063: p_invoice_lines_rec.invoice_line_id,
10064: 'INVALID ITEM',
10065: p_default_last_updated_by,
10065: p_default_last_updated_by,
10066: p_default_last_update_login,
10067: current_calling_sequence) <> TRUE) THEN
10068: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10069: AP_IMPORT_UTILITIES_PKG.Print(
10070: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10071: 'insert_rejections<-'||current_calling_sequence);
10072: END IF;
10073: RAISE check_po_failure;
10079: IF ((l_po_line_id IS NULL) AND
10080: (p_invoice_lines_rec.po_line_number IS NULL) AND
10081: (l_po_line_location_id IS NULL) AND
10082: (l_po_distribution_id IS NULL)) Then
10083: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10084: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10085: p_invoice_lines_rec.invoice_line_id,
10086: 'CAN MATCH TO ONLY 1 LINE',
10087: p_default_last_updated_by,
10087: p_default_last_updated_by,
10088: p_default_last_update_login,
10089: current_calling_sequence) <> TRUE) THEN
10090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10091: AP_IMPORT_UTILITIES_PKG.Print(
10092: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10093: 'insert_rejections<-'||current_calling_sequence);
10094: END IF;
10095: RAISE check_po_failure;
10112: --
10113: BEGIN
10114: debug_info := '(v_check_line_po_info 11.5) Validate p_vendor_item_num';
10115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10116: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10117: debug_info);
10118: END IF;
10119: --
10120: SELECT 'Y', po_line_id
10124: AND po_header_id = l_po_header_id;
10125: EXCEPTION
10126: WHEN NO_DATA_FOUND THEN
10127: -- po item id is invalid
10128: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10129: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10130: p_invoice_lines_rec.invoice_line_id,
10131: 'INVALID ITEM',
10132: p_default_last_updated_by,
10135: 'Y',
10136: 'SUPPLIER ITEM NUMBER',
10137: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
10138: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10139: AP_IMPORT_UTILITIES_PKG.Print(
10140: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10141: 'insert_rejections<-'||current_calling_sequence);
10142: END IF;
10143: RAISE check_po_failure;
10150: (p_invoice_lines_rec.po_line_number IS NULL) AND
10151: (l_po_line_location_id IS NULL) AND
10152: (l_po_distribution_id IS NULL)) THEN
10153:
10154: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10155: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10156: p_invoice_lines_rec.invoice_line_id,
10157: 'CAN MATCH TO ONLY 1 LINE',
10158: p_default_last_updated_by,
10161: 'Y',
10162: 'SUPPLIER ITEM NUMBER',
10163: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
10164: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10165: AP_IMPORT_UTILITIES_PKG.Print(
10166: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10167: 'insert_rejections<-'||current_calling_sequence);
10168: END IF;
10169: RAISE check_po_failure;
10186: --
10187: BEGIN
10188: debug_info := '(v_check_line_po_info 12) Validate p_item_description';
10189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10190: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10191: debug_info);
10192: END IF;
10193: --
10194: SELECT 'Y', po_line_id
10198: AND po_header_id = l_po_header_id;
10199: EXCEPTION
10200: WHEN NO_DATA_FOUND THEN
10201: -- po item id is invalid
10202: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10203: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10204: p_invoice_lines_rec.invoice_line_id,
10205: 'INVALID ITEM',
10206: p_default_last_updated_by,
10206: p_default_last_updated_by,
10207: p_default_last_update_login,
10208: current_calling_sequence) <> TRUE) THEN
10209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10210: AP_IMPORT_UTILITIES_PKG.Print(
10211: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10212: 'insert_rejections<-'||current_calling_sequence);
10213: END IF;
10214: RAISE check_po_failure;
10221: (p_invoice_lines_rec.po_line_number IS NULL) AND
10222: (l_po_line_location_id IS NULL) AND
10223: (l_po_distribution_id IS NULL)) THEN
10224:
10225: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10226: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10227: p_invoice_lines_rec.invoice_line_id,
10228: 'CAN MATCH TO ONLY 1 LINE',
10229: p_default_last_updated_by,
10229: p_default_last_updated_by,
10230: p_default_last_update_login,
10231: current_calling_sequence) <> TRUE) THEN
10232: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10233: AP_IMPORT_UTILITIES_PKG.Print(
10234: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10235: 'insert_rejections<-'||current_calling_sequence);
10236: END IF;
10237: RAISE check_po_failure;
10261: BEGIN
10262: debug_info := '(v_check_line_po_info 13.1) Check inconsistency for '
10263: ||'po_inventory_item_id and po_vendor_item_num';
10264: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10265: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10266: debug_info);
10267: END IF;
10268: --
10269: SELECT 'Y'
10275: EXCEPTION
10276: WHEN NO_DATA_FOUND THEN
10277: -- po line information is inconsistent
10278: -- bug 2581097 added contextual information for XML GATEWAY
10279: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10280: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10281: p_invoice_lines_rec.invoice_line_id,
10282: 'INCONSISTENT PO LINE INFO',
10283: p_default_last_updated_by,
10286: 'Y',
10287: 'SUPPLIER ITEM NUMBER',
10288: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
10289: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10290: AP_IMPORT_UTILITIES_PKG.Print(
10291: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10292: 'insert_rejections<-'||current_calling_sequence);
10293: END IF;
10294: RAISE check_po_failure;
10304: (l_po_distribution_id IS NULL)) THEN
10305:
10306: -- bug 2581097 added contextual information for XML GATEWAY
10307:
10308: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10309: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10310: p_invoice_lines_rec.invoice_line_id,
10311: 'CAN MATCH TO ONLY 1 LINE',
10312: p_default_last_updated_by,
10316: 'SUPPLIER ITEM NUMBER',
10317: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
10318:
10319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10320: AP_IMPORT_UTILITIES_PKG.Print(
10321: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10322: 'insert_rejections<-'||current_calling_sequence);
10323: END IF;
10324: RAISE check_po_failure;
10336: BEGIN
10337: debug_info := '(v_check_line_po_info 13.2) Check inconsistency for '
10338: ||'po_inventory_item_id and po_item_description'||l_po_line_location_id;
10339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10341: debug_info);
10342: END IF;
10343: --
10344: /* Added the code for Bug#10026073 Start */
10365: /* Added the code for Bug#10026073 End */
10366: EXCEPTION
10367: WHEN NO_DATA_FOUND THEN
10368: -- po line information is inconsistent
10369: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10370: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10371: p_invoice_lines_rec.invoice_line_id,
10372: 'INCONSISTENT PO LINE INFO',
10373: p_default_last_updated_by,
10374: p_default_last_update_login,
10375: current_calling_sequence) <> TRUE) THEN
10376:
10377: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10378: AP_IMPORT_UTILITIES_PKG.Print(
10379: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10380: 'insert_rejections<-'||current_calling_sequence);
10381: END IF;
10382: RAISE check_po_failure;
10389: (p_invoice_lines_rec.po_line_number IS NULL) AND
10390: (l_po_line_location_id IS NULL) AND
10391: (l_po_distribution_id IS NULL)) Then
10392:
10393: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10394: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10395: p_invoice_lines_rec.invoice_line_id,
10396: 'CAN MATCH TO ONLY 1 LINE',
10397: p_default_last_updated_by,
10398: p_default_last_update_login,
10399: current_calling_sequence) <> TRUE) THEN
10400:
10401: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10402: AP_IMPORT_UTILITIES_PKG.Print(
10403: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10404: 'insert_rejections<-'||current_calling_sequence);
10405: END IF;
10406: RAISE check_po_failure;
10423: BEGIN
10424: debug_info := '(v_check_line_po_info 14) Check inconsistency for '
10425: ||'po_line_id and po_inventory_item_id';
10426: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10427: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10428: debug_info);
10429: END IF;
10430: --
10431: --
10436: AND po_line_id = l_po_line_id;
10437: EXCEPTION
10438: WHEN NO_DATA_FOUND THEN
10439: -- po line information is inconsistent
10440: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10441: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10442: p_invoice_lines_rec.invoice_line_id,
10443: 'INCONSISTENT PO LINE INFO',
10444: p_default_last_updated_by,
10445: p_default_last_update_login,
10446: current_calling_sequence) <> TRUE) THEN
10447:
10448: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10449: AP_IMPORT_UTILITIES_PKG.Print(
10450: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10451: 'insert_rejections<-'||current_calling_sequence);
10452: END IF;
10453: RAISE check_po_failure;
10469: BEGIN
10470: debug_info := '(v_check_line_po_info 15) Check inconsistency for '
10471: ||'po_line_id and po_vendor_item_num';
10472: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10473: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10474: debug_info);
10475: END IF;
10476:
10477: --
10483: EXCEPTION
10484: WHEN NO_DATA_FOUND THEN
10485: -- po line information is inconsistent
10486: -- bug 2581097 added contextual information for XML GATEWAY
10487: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10488: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10489: p_invoice_lines_rec.invoice_line_id,
10490: 'INCONSISTENT PO LINE INFO',
10491: p_default_last_updated_by,
10494: 'Y',
10495: 'SUPPLIER ITEM NUMBER',
10496: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
10497: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10498: AP_IMPORT_UTILITIES_PKG.Print(
10499: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10500: 'insert_rejections<-'||current_calling_sequence);
10501: END IF;
10502: RAISE check_po_failure;
10523: BEGIN
10524: debug_info := '(v_check_line_po_info 15.1) Check inconsistency for '
10525: ||'po_line_number and po_vendor_item_num';
10526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10527: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10528: debug_info);
10529: END IF;
10530:
10531: --
10538: EXCEPTION
10539: WHEN NO_DATA_FOUND THEN
10540: -- po line information is inconsistent
10541: -- bug 2581097 added contextual information for XML GATEWAY
10542: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10543: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10544: p_invoice_lines_rec.invoice_line_id,
10545: 'INCONSISTENT PO LINE INFO',
10546: p_default_last_updated_by,
10549: 'Y',
10550: 'SUPPLIER ITEM NUMBER',
10551: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
10552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10553: AP_IMPORT_UTILITIES_PKG.Print(
10554: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10555: 'insert_rejections<-'||current_calling_sequence);
10556: END IF;
10557: RAISE check_po_failure;
10578: BEGIN
10579: debug_info := '(v_check_line_po_info 15.1) Check inconsistency for '
10580: ||'po_line_number and inventory_item_id';
10581: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10582: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10583: debug_info);
10584: END IF;
10585:
10586: --
10594: EXCEPTION
10595: WHEN NO_DATA_FOUND THEN
10596: -- po line information is inconsistent
10597: -- bug 2581097 added contextual information for XML GATEWAYi
10598: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10599: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10600: p_invoice_lines_rec.invoice_line_id,
10601: 'INCONSISTENT PO LINE INFO',
10602: p_default_last_updated_by,
10602: p_default_last_updated_by,
10603: p_default_last_update_login,
10604: current_calling_sequence) <> TRUE) THEN
10605: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10606: AP_IMPORT_UTILITIES_PKG.Print(
10607: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10608: 'insert_rejections<-'||current_calling_sequence);
10609: END IF;
10610: RAISE check_po_failure;
10632: BEGIN
10633: debug_info := '(v_check_line_po_info 15.3) Check whether PO line is information line'
10634: ||p_invoice_lines_rec.po_line_number;
10635: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10636: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10637: END IF;
10638:
10639: SELECT 'Y'
10640: INTO l_po_line_is_consistent_flag
10645: AND pl.po_header_id = l_po_header_id;
10646: EXCEPTION
10647: WHEN NO_DATA_FOUND THEN
10648: -- po line is information line
10649: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10650: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10651: p_invoice_lines_rec.invoice_line_id,
10652: 'INVALID PO LINE NUM',
10653: p_default_last_updated_by,
10654: p_default_last_update_login,
10655: current_calling_sequence) <> TRUE) THEN
10656:
10657: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
10658: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10659: 'insert_rejections<-' ||current_calling_sequence);
10660: END IF;
10661: RAISE check_po_failure;
10662: END IF;
10672: BEGIN
10673: debug_info := '(v_check_line_po_info 15.3) Check whether PO line is information line '
10674: ||p_invoice_lines_rec.po_line_number;
10675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
10676: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10677: END IF;
10678:
10679: SELECT 'Y'
10680: INTO l_po_line_is_consistent_flag
10683: AND po_header_id = l_po_header_id;
10684: EXCEPTION
10685: WHEN NO_DATA_FOUND THEN
10686: -- po line is information line
10687: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10688: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10689: p_invoice_lines_rec.invoice_line_id,
10690: 'INVALID PO LINE NUM',
10691: p_default_last_updated_by,
10691: p_default_last_updated_by,
10692: p_default_last_update_login,
10693: current_calling_sequence) <> TRUE) THEN
10694: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
10695: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10696: 'insert_rejections<-'||current_calling_sequence);
10697: END IF;
10698: RAISE check_po_failure;
10699: END IF;
10713: --
10714: BEGIN
10715: debug_info := '(v_check_line_po_info 16) Validate po_line_location_id';
10716: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10717: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10718: debug_info);
10719: END IF;
10720: --
10721: SELECT 'Y'
10731: EXCEPTION
10732: WHEN NO_DATA_FOUND THEN
10733: -- po line location id is invalid
10734: -- bug 2581097 added contextual information for XML GATEWAY
10735: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10736: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10737: p_invoice_lines_rec.invoice_line_id,
10738: 'INVALID PO SHIPMENT NUM',
10739: p_default_last_updated_by,
10742: 'Y',
10743: 'PO SHIPMENT NUMBER',
10744: p_invoice_lines_rec.po_shipment_num) <> TRUE) THEN
10745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10746: AP_IMPORT_UTILITIES_PKG.Print(
10747: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10748: 'insert_rejections<-'||current_calling_sequence);
10749: END IF;
10750: RAISE check_po_failure;
10768: --
10769: BEGIN
10770: debug_info := '(v_check_line_po_info 17) Validate po_shipment_num';
10771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10772: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10773: debug_info);
10774: END IF;
10775: --
10776:
10784: EXCEPTION
10785: WHEN NO_DATA_FOUND THEN
10786: -- po shipment number is invalid
10787: -- bug 2581097 added contextual information for XML GATEWAY
10788: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10789: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10790: p_invoice_lines_rec.invoice_line_id,
10791: 'INVALID PO SHIPMENT NUM',
10792: p_default_last_updated_by,
10795: 'Y',
10796: 'PO SHIPMENT NUMBER',
10797: p_invoice_lines_rec.po_shipment_num) <> TRUE) THEN
10798: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10799: AP_IMPORT_UTILITIES_PKG.Print(
10800: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10801: 'insert_rejections<-'||current_calling_sequence);
10802: END IF;
10803: RAISE check_po_failure;
10806: l_current_invoice_status := 'N';
10807: WHEN TOO_MANY_ROWS THEN
10808: -- po release info is required
10809: -- bug 2581097 added contextual information for XML GATEWAY
10810: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10811: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10812: p_invoice_lines_rec.invoice_line_id,
10813: 'INVALID PO RELEASE INFO',
10814: p_default_last_updated_by,
10821: p_invoice_lines_rec.po_shipment_num,
10822: 'PO LINE NUMBER',
10823: p_invoice_lines_rec.po_line_number ) <> TRUE) THEN
10824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10825: AP_IMPORT_UTILITIES_PKG.Print(
10826: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10827: 'insert_rejections<-'||current_calling_sequence);
10828: END IF;
10829: RAISE check_po_failure;
10846: --
10847: BEGIN
10848: debug_info := '(v_check_line_po_info 18) Validate p_ship_to_location_code';
10849: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10850: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10851: debug_info);
10852: END IF;
10853: --
10854:
10863:
10864: EXCEPTION
10865: WHEN NO_DATA_FOUND THEN
10866: -- po shipment number is invalid
10867: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10868: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10869: p_invoice_lines_rec.invoice_line_id,
10870: 'INVALID LOCATION CODE',
10871: p_default_last_updated_by,
10872: p_default_last_update_login,
10873: current_calling_sequence) <> TRUE) THEN
10874:
10875: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10876: AP_IMPORT_UTILITIES_PKG.Print(
10877: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10878: 'insert_rejections<-'||current_calling_sequence);
10879: END IF;
10880: RAISE check_po_failure;
10884:
10885: WHEN TOO_MANY_ROWS THEN
10886: IF (p_invoice_lines_rec.po_shipment_num IS NULL) Then
10887: -- po shipment to Location is not unique for a Line
10888: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10889: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10890: p_invoice_lines_rec.invoice_line_id,
10891: 'NON UNIQUE LOCATION CODE',
10892: p_default_last_updated_by,
10893: p_default_last_update_login,
10894: current_calling_sequence) <> TRUE) THEN
10895:
10896: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10897: AP_IMPORT_UTILITIES_PKG.Print(
10898: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10899: 'insert_rejections<-'||current_calling_sequence);
10900: END IF;
10901: RAISE check_po_failure;
10919: --
10920: BEGIN
10921: debug_info := '(v_check_line_po_info 19) Validate po_shipment_num';
10922: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10923: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10924: debug_info);
10925: END IF;
10926: --
10927: SELECT 'Y', line_location_id,
10936: EXCEPTION
10937: WHEN NO_DATA_FOUND THEN
10938: -- po shipment number is invalid
10939: -- bug 2581097 added contextual information for XML GATEWAY
10940: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10941: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10942: p_invoice_lines_rec.invoice_line_id,
10943: 'INVALID PO SHIPMENT NUM',
10944: p_default_last_updated_by,
10947: 'Y',
10948: 'PO SHIPMENT NUMBER',
10949: p_invoice_lines_rec.po_shipment_num) <> TRUE) THEN
10950: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10951: AP_IMPORT_UTILITIES_PKG.Print(
10952: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10953: 'insert_rejections<-'||current_calling_sequence);
10954: END IF;
10955: RAISE check_po_failure;
10973: BEGIN
10974: debug_info :=
10975: '(v_check_line_po_info 20) Validate p_ship_to_location_code';
10976: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10977: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10978: debug_info);
10979: END IF;
10980: --
10981: SELECT 'Y', line_location_id,
10990:
10991: EXCEPTION
10992: WHEN NO_DATA_FOUND THEN
10993: -- po shipment number is invalid
10994: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10995: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10996: p_invoice_lines_rec.invoice_line_id,
10997: 'INVALID LOCATION CODE',
10998: p_default_last_updated_by,
10999: p_default_last_update_login,
11000: current_calling_sequence) <> TRUE) THEN
11001:
11002: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11003: AP_IMPORT_UTILITIES_PKG.Print(
11004: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11005: 'insert_rejections<-'||current_calling_sequence);
11006: END IF;
11007: RAISE check_po_failure;
11025: BEGIN
11026: debug_info := '(v_check_line_po_info 21) Check inconsistence for '
11027: ||'po_shipment_num and po_line_location_id';
11028: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11029: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11030: debug_info);
11031: END IF;
11032: --
11033: SELECT 'Y'
11036: WHERE shipment_num = p_invoice_lines_rec.po_shipment_num
11037: AND line_location_id = l_po_line_location_id;
11038: EXCEPTION
11039: WHEN NO_DATA_FOUND THEN
11040: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11041: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11042: p_invoice_lines_rec.invoice_line_id,
11043: 'INCONSISTENT PO SHIPMENT',
11044: p_default_last_updated_by,
11044: p_default_last_updated_by,
11045: p_default_last_update_login,
11046: current_calling_sequence) <> TRUE) THEN
11047: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11048: AP_IMPORT_UTILITIES_PKG.Print(
11049: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11050: 'insert_rejections<-'||current_calling_sequence);
11051: END IF;
11052: RAISE check_po_failure;
11067: BEGIN
11068: debug_info := '(v_check_line_po_info 22) Check inconsistence for '
11069: ||'p_ship_to_location_code and po_line_location_id';
11070: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11071: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11072: debug_info);
11073: END IF;
11074: --
11075:
11082: AND line_location_id = l_po_line_location_id;
11083:
11084: EXCEPTION
11085: WHEN NO_DATA_FOUND THEN
11086: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11087: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11088: p_invoice_lines_rec.invoice_line_id,
11089: 'INCONSISTENT PO SHIPMENT',
11090: p_default_last_updated_by,
11090: p_default_last_updated_by,
11091: p_default_last_update_login,
11092: current_calling_sequence) <> TRUE) THEN
11093: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11094: AP_IMPORT_UTILITIES_PKG.Print(
11095: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11096: 'insert_rejections<-'||current_calling_sequence);
11097: END IF;
11098: RAISE check_po_failure;
11116: BEGIN
11117: debug_info := '(v_check_line_po_info 23) Check inconsistence for '
11118: ||'p_ship_to_location_code and p_po_shipment_num';
11119: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11120: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11121: debug_info);
11122: END IF;
11123: --
11124: SELECT 'Y'
11132: AND po_header_id = l_po_header_id;
11133:
11134: EXCEPTION
11135: WHEN NO_DATA_FOUND THEN
11136: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11137: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11138: p_invoice_lines_rec.invoice_line_id,
11139: 'INCONSISTENT PO SHIPMENT',
11140: p_default_last_updated_by,
11140: p_default_last_updated_by,
11141: p_default_last_update_login,
11142: current_calling_sequence) <> TRUE) THEN
11143: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11144: AP_IMPORT_UTILITIES_PKG.Print(
11145: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11146: 'insert_rejections<-'||current_calling_sequence);
11147: END IF;
11148: --
11179: BEGIN
11180:
11181: debug_info := '(v_check_line_po_info 23.1) Validate po_shipment_num';
11182: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11183: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11184: debug_info);
11185: END IF;
11186: --
11187: --
11212: END;
11213:
11214: IF l_accrue_on_receipt_flag = 'Y' THEN
11215:
11216: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11217: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11218: p_invoice_lines_rec.invoice_line_id,
11219: 'ACCRUE ON RECEIPT', -- Bug 5235675
11220: p_default_last_updated_by,
11220: p_default_last_updated_by,
11221: p_default_last_update_login,
11222: current_calling_sequence) <> TRUE) THEN
11223: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11224: AP_IMPORT_UTILITIES_PKG.Print(
11225: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11226: 'insert_rejections<-'||current_calling_sequence);
11227: END IF;
11228: RAISE check_po_failure;
11253: BEGIN
11254: debug_info := '(v_check_line_po_info 23) Check inconsistence for '
11255: ||'p_ship_to_location_code and p_po_shipment_num';
11256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11257: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11258: debug_info);
11259: END IF;
11260: --
11261: SELECT 'Y'
11269: AND po_header_id = l_po_header_id;
11270:
11271: EXCEPTION
11272: WHEN NO_DATA_FOUND THEN
11273: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11274: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11275: p_invoice_lines_rec.invoice_line_id,
11276: 'INCONSISTENT PO SHIPMENT',
11277: p_default_last_updated_by,
11277: p_default_last_updated_by,
11278: p_default_last_update_login,
11279: current_calling_sequence) <> TRUE) THEN
11280: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11281: AP_IMPORT_UTILITIES_PKG.Print(
11282: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11283: 'insert_rejections<-'||current_calling_sequence);
11284: END IF;
11285: RAISE check_po_failure;
11299: --
11300: BEGIN
11301: debug_info := '(v_check_line_po_info 25) Validate p_po_distribution_id';
11302: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11303: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11304: debug_info);
11305: END IF;
11306: --
11307: SELECT 'Y'
11310: WHERE po_distribution_id = l_po_distribution_id
11311: AND line_location_id IS NOT NULL; /* BUG 3253594 */
11312: EXCEPTION
11313: WHEN NO_DATA_FOUND THEN
11314: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11315: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11316: p_invoice_lines_rec.invoice_line_id,
11317: 'INVALID PO DIST NUM',
11318: p_default_last_updated_by,
11318: p_default_last_updated_by,
11319: p_default_last_update_login,
11320: current_calling_sequence) <> TRUE) THEN
11321: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11322: AP_IMPORT_UTILITIES_PKG.Print(
11323: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11324: 'insert_rejections<-'||current_calling_sequence);
11325: END IF;
11326: RAISE check_po_failure;
11344: --
11345: BEGIN
11346: debug_info := '(v_check_line_po_info 26) Validate p_po_distribution_num';
11347: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11348: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11349: debug_info);
11350: END IF;
11351: --
11352: SELECT 'Y' , po_distribution_id
11359: AND po_header_id = l_po_header_id;
11360:
11361: EXCEPTION
11362: WHEN NO_DATA_FOUND THEN
11363: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11364: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11365: p_invoice_lines_rec.invoice_line_id,
11366: 'INVALID PO DIST NUM',
11367: p_default_last_updated_by,
11368: p_default_last_update_login,
11369: current_calling_sequence) <> TRUE) THEN
11370:
11371: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11372: AP_IMPORT_UTILITIES_PKG.Print(
11373: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11374: 'insert_rejections<-'||current_calling_sequence);
11375: END IF;
11376: RAISE check_po_failure;
11392: --
11393: BEGIN
11394: debug_info := '(v_check_line_po_info 27) Validate p_po_distribution_num';
11395: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11396: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11397: debug_info);
11398: END IF;
11399: --
11400: SELECT 'Y' , po_distribution_id
11406: AND po_header_id = l_po_header_id;
11407:
11408: EXCEPTION
11409: WHEN NO_DATA_FOUND THEN
11410: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11411: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11412: p_invoice_lines_rec.invoice_line_id,
11413: 'INVALID PO DIST NUM',
11414: p_default_last_updated_by,
11415: p_default_last_update_login,
11416: current_calling_sequence) <> TRUE) THEN
11417:
11418: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11419: AP_IMPORT_UTILITIES_PKG.Print(
11420: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11421: 'insert_rejections<-'||current_calling_sequence);
11422: END IF;
11423: RAISE check_po_failure;
11439: BEGIN
11440: debug_info := '(v_check_line_po_info 28) Check inconsistence for '
11441: ||'p_po_distribution_num and p_po_distribution_id';
11442: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11443: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11444: debug_info);
11445: END IF;
11446: --
11447: SELECT 'Y'
11451: AND distribution_num = p_invoice_lines_rec.po_distribution_num
11452: AND line_location_id IS NOT NULL; /* BUG 3253594 */
11453: EXCEPTION
11454: WHEN NO_DATA_FOUND THEN
11455: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11456: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11457: p_invoice_lines_rec.invoice_line_id,
11458: 'INCONSISTENT PO DIST INFO',
11459: p_default_last_updated_by,
11460: p_default_last_update_login,
11461: current_calling_sequence) <> TRUE) THEN
11462:
11463: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11464: AP_IMPORT_UTILITIES_PKG.Print(
11465: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11466: 'insert_rejections<-'||current_calling_sequence);
11467: END IF;
11468: RAISE check_po_failure;
11497: BEGIN
11498: debug_info := '(v_check_line_po_info 29.1) Get po number from '
11499: ||'po_header_id';
11500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11501: AP_IMPORT_UTILITIES_PKG.Print(
11502: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11503: END IF;
11504:
11505: SELECT segment1
11526: BEGIN
11527: debug_info :=
11528: '(v_check_line_po_info 29.2) Get po number from po_line_id';
11529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11530: AP_IMPORT_UTILITIES_PKG.Print(
11531: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11532: END IF;
11533:
11534: SELECT pl.po_header_id,
11556: BEGIN
11557: debug_info := '(v_check_line_po_info 29.3) Get po number from'
11558: ||' po_release_id';
11559: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11560: AP_IMPORT_UTILITIES_PKG.Print(
11561: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11562: END IF;
11563:
11564: SELECT pr.po_header_id,
11591:
11592: debug_info := '(v_check_line_po_info 29.4) Get po number from '
11593: ||'po_line_location_id';
11594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11595: AP_IMPORT_UTILITIES_PKG.Print(
11596: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11597: END IF;
11598:
11599: SELECT pll.po_header_id,
11626:
11627: debug_info := '(v_check_line_po_info 29.5) Get po number from '
11628: ||'po_distribution_id';
11629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11630: AP_IMPORT_UTILITIES_PKG.Print(
11631: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11632: END IF;
11633:
11634: SELECT pd.po_header_id,
11659:
11660: debug_info :=
11661: '(v_check_line_po_info 30) Get po_header_id from po_number';
11662: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11663: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11664: debug_info);
11665: END IF;
11666: --bug2268553 to differentiate PO from RFQ and Quotation
11667: SELECT po_header_id
11682: -- Get po_line_id
11683: ------------------------------------------------------------------------
11684: debug_info := '(v_check_line_po_info 31) Get po_line_id';
11685: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11686: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11687: debug_info);
11688: END IF;
11689:
11690: -------------------------------------------------------
11698:
11699: debug_info := '(v_check_line_po_info 31.1) Get po_line_id from '
11700: ||'po_line_location_id';
11701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11702: AP_IMPORT_UTILITIES_PKG.Print(
11703: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11704: END IF;
11705:
11706: SELECT po_line_id
11726:
11727: debug_info := '(v_check_line_po_info 31.2) Get po_line_id from '
11728: ||'po_distribution_id';
11729: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11730: AP_IMPORT_UTILITIES_PKG.Print(
11731: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11732: END IF;
11733:
11734: SELECT po_line_id
11756:
11757: debug_info := '(v_check_line_po_info 31.3) Default po_line_id from '
11758: ||'the first line, if only one line';
11759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11760: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11761: debug_info);
11762: END IF;
11763:
11764: SELECT po_line_id
11772:
11773: WHEN TOO_MANY_ROWS Then
11774: debug_info := '(v_check_line_po_info 31.4) Too many po lines';
11775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11776: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11777: debug_info);
11778: END IF;
11779:
11780: -- bug 2581097 added contextual information for XML GATEWAY
11778: END IF;
11779:
11780: -- bug 2581097 added contextual information for XML GATEWAY
11781:
11782: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11783: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11784: p_invoice_lines_rec.invoice_line_id,
11785: 'NO PO LINE NUM',
11786: p_default_last_updated_by,
11789: 'Y',
11790: 'PO NUMBER',
11791: l_po_number) <> TRUE) THEN
11792: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11793: AP_IMPORT_UTILITIES_PKG.Print(
11794: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11795: 'insert_rejections<-'||current_calling_sequence);
11796: END IF;
11797: RAISE check_po_failure;
11816: -- Get Get po_line_location_id
11817: -----------------------------------------------------------------------
11818: debug_info := '(v_check_line_po_info 32) Get po_line_location_id';
11819: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11820: AP_IMPORT_UTILITIES_PKG.Print(
11821: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11822: END IF;
11823:
11824: -------------------------------------------------------
11832: --
11833: debug_info := '(v_check_line_po_info 32.1) Get po_line_id from '
11834: ||'po_distribution_id';
11835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11836: AP_IMPORT_UTILITIES_PKG.Print(
11837: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11838: END IF;
11839:
11840: SELECT line_location_id
11862: debug_info := '(v_check_line_po_info 32.2) Default '
11863: ||'po_line_location_id from the first line, '
11864: ||'if only one line';
11865: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11866: AP_IMPORT_UTILITIES_PKG.Print(
11867: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11868: END IF;
11869:
11870: /*--------------------------------------------------------------------+
11906:
11907: debug_info :=
11908: '(v_check_line_po_info 32.2) Too many po shipments';
11909: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11910: AP_IMPORT_UTILITIES_PKG.Print(
11911: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11912: END IF;
11913:
11914: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11910: AP_IMPORT_UTILITIES_PKG.Print(
11911: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11912: END IF;
11913:
11914: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11915: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11916: p_invoice_lines_rec.invoice_line_id,
11917: 'NO PO SHIPMENT NUM',
11918: p_default_last_updated_by,
11918: p_default_last_updated_by,
11919: p_default_last_update_login,
11920: current_calling_sequence) <> TRUE) THEN
11921: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11922: AP_IMPORT_UTILITIES_PKG.Print(
11923: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11924: 'insert_rejections<-'||current_calling_sequence);
11925: END IF;
11926: RAISE check_po_failure;
11958: IF (l_po_line_location_id IS NOT NULL) THEN
11959: debug_info := '(v_check_line_po_info 31.1) Get Match Basis Based '||
11960: 'on line_location_id';
11961: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11962: AP_IMPORT_UTILITIES_PKG.Print(
11963: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11964: END IF;
11965:
11966: SELECT pll.matching_basis,pll.description-- Bug8546486
11997:
11998: IF (l_po_header_id IS NOT NULL) THEN
11999: debug_info := '(v_check_line_po_info 31.2) Check for corrupt PO data';
12000: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12001: AP_IMPORT_UTILITIES_PKG.Print(
12002: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
12003: END IF;
12004:
12005: --start of bug 5292782
12040: END IF;
12041:
12042: /* IF (l_blanket<>'BLANKET') THEN --bug 5292782 Moved above for bug 10103888 */
12043: IF (l_corrupt_po_distributions > 0) THEN
12044: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12045: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12046: p_invoice_lines_rec.invoice_line_id,
12047: 'INVALID PO NUM',
12048: p_default_last_updated_by,
12051: 'Y',
12052: 'CORRUPT PONUMBER',
12053: l_po_header_id) <> TRUE) THEN
12054: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12055: AP_IMPORT_UTILITIES_PKG.Print(
12056: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12057: 'insert_rejections<-'||current_calling_sequence);
12058: END IF;
12059: RAISE check_po_failure;
12087:
12088: debug_info := '(v_check_line_po_info 33.1) Find if PO vendor does not '
12089: ||'match interface vendor:Get PO Vendor';
12090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12091: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12092: debug_info);
12093: END IF;
12094: -- Bug 5448579. L_vendor_id is already derived
12095: /* SELECT vendor_id
12097: FROM po_headers
12098: WHERE po_header_id = l_po_header_id; */
12099:
12100: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12101: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12102: '------------------> l_vendor_id :per PO = '||
12103: to_char(l_vendor_id));
12104: END IF;
12105: debug_info :=
12104: END IF;
12105: debug_info :=
12106: '(v_check_line_po_info 33.1) Check for Inconsistent PO Vendor.';
12107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12108: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12109: debug_info);
12110: END IF;
12111:
12112: IF (l_vendor_id <> nvl(p_invoice_rec.vendor_id, l_vendor_id)) THEN
12117: INTO l_invoice_vendor_name
12118: FROM po_vendors
12119: WHERE vendor_id = p_invoice_rec.vendor_id;
12120:
12121: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12122: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12123: p_invoice_lines_rec.invoice_line_id,
12124: 'INCONSISTENT PO SUPPLIER',
12125: p_default_last_updated_by,
12129: 'SUPPLIER NAME',
12130: l_invoice_vendor_name) <> TRUE) THEN
12131:
12132: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12133: AP_IMPORT_UTILITIES_PKG.Print(
12134: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12135: 'insert_rejections<-'||current_calling_sequence);
12136: END IF;
12137: RAISE check_po_failure;
12142: NULL;
12143: END;
12144:
12145: ELSE
12146: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12147: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12148: p_invoice_lines_rec.invoice_line_id,
12149: 'INCONSISTENT PO SUPPLIER',
12150: p_default_last_updated_by,
12151: p_default_last_update_login,
12152: current_calling_sequence) <> TRUE) THEN
12153:
12154: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12155: AP_IMPORT_UTILITIES_PKG.Print(
12156: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12157: 'insert_rejections<-'||current_calling_sequence);
12158: END IF;
12159: RAISE check_po_failure;
12173: l_blanket:='BLANKET'; --4019310
12174:
12175: debug_info := '(v_check_line_po_info 33.2) Find if PO is BLANKET';
12176: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12177: AP_IMPORT_UTILITIES_PKG.Print(
12178: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
12179: END IF;
12180:
12181: SELECT 'Y'
12188: WHEN NO_DATA_FOUND THEN
12189: -- po header is BLANKET
12190: -- bug 2581097 added contextual information for XML GATEWAY
12191:
12192: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12193: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12194: p_invoice_lines_rec.invoice_line_id,
12195: 'RELEASE MISSING',
12196: p_default_last_updated_by,
12199: 'Y',
12200: 'PO NUMBER',
12201: l_po_number) <> TRUE) THEN
12202: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12203: AP_IMPORT_UTILITIES_PKG.Print(
12204: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12205: 'insert_rejections<-'||current_calling_sequence);
12206: END IF;
12207: RAISE check_po_failure;
12219:
12220: debug_info :=
12221: '(v_check_line_po_info 33.3) Find if PO info is consistent';
12222: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12223: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12224: debug_info);
12225: END IF;
12226:
12227: SELECT 'X'
12236:
12237: EXCEPTION
12238: WHEN NO_DATA_FOUND THEN
12239: -- Reject
12240: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12241: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12242: p_invoice_lines_rec.invoice_line_id,
12243: 'INVALID PO INFO',
12244: p_default_last_updated_by,
12255: p_invoice_lines_rec.po_shipment_num,
12256: 'PO RELEASE NUMBER',
12257: p_invoice_lines_rec.release_num ) <> TRUE) THEN
12258: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12259: AP_IMPORT_UTILITIES_PKG.Print(
12260: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12261: 'insert_rejections<-'||current_calling_sequence);
12262: END IF;
12263: RAISE check_po_failure;
12275: BEGIN
12276: debug_info := '(v_check_line_po_info 33.5) Check if inv curr is same is '
12277: ||'po curr';
12278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12279: AP_IMPORT_UTILITIES_PKG.Print(
12280: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
12281: END IF;
12282:
12283: SELECT 'Y'
12289: WHEN NO_DATA_FOUND THEN
12290: debug_info :=
12291: '(v_check_line_po_info 33.5) Reject: Inconsistent currencies';
12292: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12293: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12294: debug_info);
12295: END IF;
12296: -- Reject
12297: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY') THEN
12299: INTO l_po_currency_code
12300: FROM po_headers
12301: WHERE po_header_id = l_po_header_id ;
12302:
12303: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12304: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12305: p_invoice_lines_rec.invoice_line_id,
12306: 'INCONSISTENT CURR',
12307: p_default_last_updated_by,
12313: 'PO CURRENCY CODE',
12314: l_po_currency_code ) <> TRUE) THEN
12315:
12316: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12317: AP_IMPORT_UTILITIES_PKG.Print(
12318: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12319: 'insert_rejections<-'||current_calling_sequence);
12320: END IF;
12321: RAISE check_po_failure;
12322: END IF;
12323:
12324: ELSE
12325:
12326: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12327: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12328: p_invoice_lines_rec.invoice_line_id,
12329: 'INCONSISTENT CURR',
12330: p_default_last_updated_by,
12331: p_default_last_update_login,
12332: current_calling_sequence) <> TRUE) THEN
12333:
12334: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12335: AP_IMPORT_UTILITIES_PKG.Print(
12336: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12337: 'insert_rejections<-'||current_calling_sequence);
12338: END IF;
12339: RAISE check_po_failure;
12362:
12363: debug_info := '(v_check_line_po_info 34.1) Check for price correction information on'||
12364: ' prepayment invoices';
12365: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12366: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12367: debug_info);
12368: END IF;
12369:
12370: IF(p_invoice_rec.invoice_type_lookup_code = 'PREPAYMENT') THEN
12368: END IF;
12369:
12370: IF(p_invoice_rec.invoice_type_lookup_code = 'PREPAYMENT') THEN
12371:
12372: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12373: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12374: p_invoice_lines_rec.invoice_line_id,
12375: 'CANNOT PRICE CORRECT PREPAY',
12376: p_default_last_updated_by,
12377: p_default_last_update_login,
12378: current_calling_sequence)<> TRUE) THEN
12379:
12380: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12381: AP_IMPORT_UTILITIES_PKG.Print(
12382: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12383: 'insert_rejections<-'||current_calling_sequence);
12384: END IF;
12385:
12392: END IF;
12393:
12394: debug_info := '(v_check_line_po_info 34.2) Check price correction information';
12395: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12396: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12397: debug_info);
12398: END IF;
12399:
12400: IF p_invoice_lines_rec.price_correct_inv_num is null then
12398: END IF;
12399:
12400: IF p_invoice_lines_rec.price_correct_inv_num is null then
12401:
12402: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12403: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12404: p_invoice_lines_rec.invoice_line_id,
12405: 'PRICE CORRECT INV NUM REQUIRED',
12406: p_default_last_updated_by,
12407: p_default_last_update_login,
12408: current_calling_sequence)<> TRUE) THEN
12409:
12410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12411: AP_IMPORT_UTILITIES_PKG.Print(
12412: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12413: 'insert_rejections<-'||current_calling_sequence);
12414: END IF;
12415:
12425: IF p_invoice_lines_rec.price_correct_inv_line_num is null then
12426:
12427: debug_info := '(v_check_line_po_info 34.3) Check price correction line information';
12428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12429: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12430: debug_info);
12431: END IF;
12432:
12433: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12429: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12430: debug_info);
12431: END IF;
12432:
12433: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12434: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12435: p_invoice_lines_rec.invoice_line_id,
12436: 'INCOMPLETE PO INFO',
12437: p_default_last_updated_by,
12438: p_default_last_update_login,
12439: current_calling_sequence)<> TRUE) THEN
12440:
12441: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12442: AP_IMPORT_UTILITIES_PKG.Print(
12443: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12444: 'insert_rejections<-'||current_calling_sequence);
12445: END IF;
12446: RAISE check_po_failure;
12457:
12458: debug_info := '(v_check_line_po_info 34.4) Check if price correcting invoice line'
12459: ||'is valid';
12460: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12461: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12462: debug_info);
12463: END IF;
12464:
12465: --bug13599126, added price correction invoice po related columns
12493: (l_po_line_id is not null and l_price_cor_po_line_id <> l_po_line_id) or
12494: (l_po_line_location_id is not null and l_price_cor_po_line_loc_id <> l_po_line_location_id) or
12495: (l_po_distribution_id is not null and l_price_cor_po_distribution_id <> l_po_distribution_id) then
12496:
12497: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12498: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12499: p_invoice_lines_rec.invoice_line_id,
12500: 'INVALID PO INFO',
12501: p_default_last_updated_by,
12501: p_default_last_updated_by,
12502: p_default_last_update_login,
12503: current_calling_sequence)<> TRUE) THEN
12504: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12505: AP_IMPORT_UTILITIES_PKG.Print(
12506: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12507: 'insert_rejections<-'||current_calling_sequence);
12508: END IF;
12509: RAISE check_po_failure;
12519:
12520:
12521: EXCEPTION
12522: WHEN NO_DATA_FOUND THEN
12523: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12524: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12525: p_invoice_lines_rec.invoice_line_id,
12526: 'INVALID PO INFO',
12527: p_default_last_updated_by,
12527: p_default_last_updated_by,
12528: p_default_last_update_login,
12529: current_calling_sequence)<> TRUE) THEN
12530: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12531: AP_IMPORT_UTILITIES_PKG.Print(
12532: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12533: 'insert_rejections<-'||current_calling_sequence);
12534: END IF;
12535: RAISE check_po_failure;
12547:
12548: debug_info := '(v_check_line_po_info 34.5) Check if price correction line is matched to'
12549: ||' a service order shipment';
12550: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12551: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12552: debug_info);
12553: END IF;
12554:
12555:
12554:
12555:
12556: IF (l_match_basis = 'AMOUNT') THEN
12557:
12558: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12559: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12560: p_invoice_lines_rec.invoice_line_id,
12561: 'INCONSISTENT PO INFO',
12562: p_default_last_updated_by,
12564: current_calling_sequence)<> TRUE) THEN
12565:
12566: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12567:
12568: AP_IMPORT_UTILITIES_PKG.Print(
12569: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12570: 'insert_rejections<-'||current_calling_sequence);
12571:
12572: END IF;
12589:
12590: debug_info := '(v_check_line_po_info 34.6) Check pc invoice is matched '
12591: ||'to po dist';
12592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12593: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12594: debug_info);
12595: END IF;
12596:
12597: BEGIN
12606: AND po_distribution_id = l_po_distribution_id;
12607:
12608: EXCEPTION
12609: WHEN NO_DATA_FOUND THEN
12610: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12611: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12612: p_invoice_lines_rec.invoice_line_id,
12613: 'INVALID PO INFO',
12614: p_default_last_updated_by,
12615: p_default_last_update_login,
12616: current_calling_sequence)<> TRUE) THEN
12617:
12618: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12619: AP_IMPORT_UTILITIES_PKG.Print(
12620: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12621: 'insert_rejections<-'||current_calling_sequence);
12622: END IF;
12623: RAISE check_po_failure;
12635:
12636: debug_info := '(v_check_line_po_info 34.7) Check pc invoice is matched'
12637: ||' to shipment';
12638: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12639: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12640: debug_info);
12641: END IF;
12642:
12643: BEGIN
12655: WHERE line_location_id = l_po_line_location_id);
12656:
12657: EXCEPTION
12658: WHEN NO_DATA_FOUND THEN
12659: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12660: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12661: p_invoice_lines_rec.invoice_line_id,
12662: 'INVALID PO INFO',
12663: p_default_last_updated_by,
12663: p_default_last_updated_by,
12664: p_default_last_update_login,
12665: current_calling_sequence)<> TRUE) THEN
12666: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12667: AP_IMPORT_UTILITIES_PKG.Print(
12668: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12669: 'insert_rejections<-'||current_calling_sequence);
12670: END IF;
12671: RAISE check_po_failure;
12682: BEGIN
12683:
12684: debug_info := '(v_check_line_po_info 34.8) Check if po shipment is finally closed';
12685: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12686: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12687: debug_info);
12688: END IF;
12689:
12690: SELECT 'Y'
12696: AND pll.closed_code = 'FINALLY CLOSED';
12697:
12698: IF (nvl(l_shipment_finally_closed,'N') = 'Y') THEN
12699:
12700: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12701: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12702: p_invoice_lines_rec.invoice_line_id,
12703: 'INVALID PO INFO',
12704: p_default_last_updated_by,
12706: current_calling_sequence)<> TRUE) THEN
12707:
12708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12709:
12710: AP_IMPORT_UTILITIES_PKG.Print(
12711: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12712: 'insert_rejections<-'||current_calling_sequence);
12713:
12714: END IF;
12731: --the invoice type.
12732: debug_info := '(v_check_line_po_info 34.9) Check if Quantity_Invoiced for the price corrections'
12733: ||'to be either NULL or positive';
12734: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12735: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12736: debug_info);
12737: END IF;
12738:
12739: IF (p_invoice_lines_rec.quantity_invoiced IS NOT NULL AND
12738:
12739: IF (p_invoice_lines_rec.quantity_invoiced IS NOT NULL AND
12740: p_invoice_lines_rec.quantity_invoiced < 0) THEN
12741:
12742: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12743: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12744: p_invoice_lines_rec.invoice_line_id,
12745: 'INVALID PO INFO',
12746: p_default_last_updated_by,
12748: current_calling_sequence)<> TRUE) THEN
12749:
12750: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12751:
12752: AP_IMPORT_UTILITIES_PKG.Print(
12753: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12754: 'insert_rejections<-'||current_calling_sequence);
12755:
12756: END IF;
12767: --for CREDIT/DEBIT memos, and postive or negative for MIXED type of invoices.
12768: debug_info := '(v_check_line_po_info 34.10) Check the sign of the unit_price against'
12769: ||'the invoice type';
12770: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12771: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12772: debug_info);
12773: END IF;
12774:
12775: --Contract Payments: Modified the IF condition to add 'PREPAYMENT'.
12778: p_invoice_lines_rec.unit_price < 0) OR
12779: (p_invoice_rec.invoice_type_lookup_code IN ('CREDIT','DEBIT') and
12780: p_invoice_lines_rec.unit_price > 0)) THEN
12781:
12782: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12783: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12784: p_invoice_lines_rec.invoice_line_id,
12785: 'INVALID PO INFO',
12786: p_default_last_updated_by,
12788: current_calling_sequence)<> TRUE) THEN
12789:
12790: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12791:
12792: AP_IMPORT_UTILITIES_PKG.Print(
12793: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12794: 'insert_rejections<-'||current_calling_sequence);
12795:
12796: END IF;
12807: debug_info := '(v_check_line_po_info 34.11) Check if quantity_invoiced for price correction'
12808: ||' exceeds the quantity_invoiced on the base match';
12809:
12810: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12811: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12812: debug_info);
12813: END IF;
12814:
12815: BEGIN
12823:
12824: --bugfix:5640388
12825: EXCEPTION
12826: WHEN NO_DATA_FOUND THEN
12827: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12828: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12829: p_invoice_lines_rec.invoice_line_id,
12830: 'PRICE CORRECT INV INVALID',
12831: p_default_last_updated_by,
12831: p_default_last_updated_by,
12832: p_default_last_update_login,
12833: current_calling_sequence)<> TRUE) THEN
12834: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12835: AP_IMPORT_UTILITIES_PKG.Print(
12836: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12837: 'insert_rejections<-'||current_calling_sequence);
12838: END IF;
12839: RAISE check_po_failure;
12848: ', l_base_match_quantity:'||l_base_match_quantity||
12849: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
12850: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
12851: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12852: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12853: debug_info);
12854: END IF;
12855:
12856:
12855:
12856:
12857: IF ( p_invoice_lines_rec.quantity_invoiced > l_base_match_quantity) THEN
12858:
12859: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12860: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12861: p_invoice_lines_rec.invoice_line_id,
12862: 'AMOUNT BILLED BELOW ZERO',
12863: p_default_last_updated_by,
12865: current_calling_sequence)<> TRUE) THEN
12866:
12867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12868:
12869: AP_IMPORT_UTILITIES_PKG.Print(
12870: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12871: 'insert_rejections<-'||current_calling_sequence);
12872:
12873: END IF;
12892: ||'goes below zero due to this price correction relative to the base match';
12893:
12894:
12895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12896: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12897: debug_info);
12898: END IF;
12899:
12900: l_line_amt_calculated :=
12917:
12918: --bugfix:5640388
12919: EXCEPTION
12920: WHEN NO_DATA_FOUND THEN
12921: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12922: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12923: p_invoice_lines_rec.invoice_line_id,
12924: 'PRICE CORRECT INV INVALID',
12925: p_default_last_updated_by,
12925: p_default_last_updated_by,
12926: p_default_last_update_login,
12927: current_calling_sequence)<> TRUE) THEN
12928: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12929: AP_IMPORT_UTILITIES_PKG.Print(
12930: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12931: 'insert_rejections<-'||current_calling_sequence);
12932: END IF;
12933: RAISE check_po_failure;
12944: ', l_correction_amount:'||l_correction_amount||
12945: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
12946: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
12947: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12948: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12949: debug_info);
12950: END IF;
12951:
12952:
12952:
12953: IF (abs(nvl(p_invoice_lines_rec.amount,l_line_amt_calculated)) >
12954: (l_base_match_amount + l_correction_amount)) THEN
12955:
12956: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12957: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12958: p_invoice_lines_rec.invoice_line_id,
12959: 'AMOUNT BILLED BELOW ZERO',
12960: p_default_last_updated_by,
12962: current_calling_sequence)<> TRUE) THEN
12963:
12964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12965:
12966: AP_IMPORT_UTILITIES_PKG.Print(
12967: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12968: 'insert_rejections<-'||current_calling_sequence);
12969:
12970: END IF;
12995:
12996: debug_info := '(v_check_line_po_info 34.13) Ensure amount billed on po '
12997: ||'distributions wont be reduced below zero for shipment';
12998: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12999: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13000: debug_info);
13001: END IF;
13002:
13003: BEGIN
13010:
13011: --bugfix:5640388
13012: EXCEPTION
13013: WHEN NO_DATA_FOUND THEN
13014: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13015: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13016: p_invoice_lines_rec.invoice_line_id,
13017: 'PRICE CORRECT INV INVALID',
13018: p_default_last_updated_by,
13018: p_default_last_updated_by,
13019: p_default_last_update_login,
13020: current_calling_sequence)<> TRUE) THEN
13021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13022: AP_IMPORT_UTILITIES_PKG.Print(
13023: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13024: 'insert_rejections<-'||current_calling_sequence);
13025: END IF;
13026: RAISE check_po_failure;
13037: ', l_correction_amount:'||l_correction_amount||
13038: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
13039: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
13040: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13041: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13042: debug_info);
13043: END IF;
13044:
13045: IF l_total_quantity_invoiced = 0 THEN
13044:
13045: IF l_total_quantity_invoiced = 0 THEN
13046: IF (l_total_amount_invoiced + l_correction_amount + nvl(p_invoice_lines_rec.amount,l_line_amt_calculated) < 0) THEN
13047:
13048: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13049: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13050: p_invoice_lines_rec.invoice_line_id,
13051: 'AMOUNT BILLED BELOW ZERO',
13052: p_default_last_updated_by,
13053: p_default_last_update_login,
13054: current_calling_sequence)<> TRUE) THEN
13055:
13056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13057: AP_IMPORT_UTILITIES_PKG.Print(
13058: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13059: 'insert_rejections<-'||current_calling_sequence);
13060: END IF;
13061: RAISE check_po_failure;
13095: ', pc_inv_dists.amount:'||pc_inv_dists.amount||
13096: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
13097: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
13098: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13099: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13100: debug_info);
13101: END IF;
13102:
13103: IF (pc_inv_dists.quantity_invoiced/ l_total_quantity_invoiced *
13104: p_invoice_lines_rec.amount + l_correction_dist_amount + pc_inv_dists.amount) < 0 OR
13105: (pc_inv_dists.quantity_invoiced/ l_total_quantity_invoiced *
13106: l_line_amt_calculated + l_correction_dist_amount + pc_inv_dists.amount) < 0 THEN
13107:
13108: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13109: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13110: p_invoice_lines_rec.invoice_line_id,
13111: 'AMOUNT BILLED BELOW ZERO',
13112: p_default_last_updated_by,
13112: p_default_last_updated_by,
13113: p_default_last_update_login,
13114: current_calling_sequence)<> TRUE) THEN
13115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13116: AP_IMPORT_UTILITIES_PKG.Print(
13117: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13118: 'insert_rejections<-'||current_calling_sequence);
13119: END IF;
13120: RAISE check_po_failure;
13139:
13140: debug_info := '(v_check_line_po_info 34.14) Ensure amount billed on po '
13141: ||'dist wont be reduced below zero, l_po_distribution_id is: '||l_po_distribution_id;
13142: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13143: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13144: debug_info);
13145: END IF;
13146:
13147: BEGIN
13155:
13156: --bugfix:5640388
13157: EXCEPTION
13158: WHEN NO_DATA_FOUND THEN
13159: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13160: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13161: p_invoice_lines_rec.invoice_line_id,
13162: 'PRICE CORRECT INV INVALID',
13163: p_default_last_updated_by,
13163: p_default_last_updated_by,
13164: p_default_last_update_login,
13165: current_calling_sequence)<> TRUE) THEN
13166: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13167: AP_IMPORT_UTILITIES_PKG.Print(
13168: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13169: 'insert_rejections<-'||current_calling_sequence);
13170: END IF;
13171: RAISE check_po_failure;
13181: ', p_invoice_lines_rec.amount:'||p_invoice_lines_rec.amount||
13182: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
13183: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
13184: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13185: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13186: debug_info);
13187: END IF;
13188:
13189:
13189:
13190: IF (l_pc_po_amt_billed + nvl(p_invoice_lines_rec.amount,0) < 0) or
13191: (l_pc_po_amt_billed + l_line_amt_calculated < 0) then
13192:
13193: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13194: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13195: p_invoice_lines_rec.invoice_line_id,
13196: 'AMOUNT BILLED BELOW ZERO',
13197: p_default_last_updated_by,
13197: p_default_last_updated_by,
13198: p_default_last_update_login,
13199: current_calling_sequence)<> TRUE) THEN
13200: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13201: AP_IMPORT_UTILITIES_PKG.Print(
13202: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13203: 'insert_rejections<-'||current_calling_sequence);
13204: END IF;
13205: RAISE check_po_failure;
13227:
13228: debug_info := '(v_check_line_po_info 34.15) Ensure amount billed on po '
13229: ||'distribtuions wont be reduced below zero for shipment';
13230: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13231: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13232: debug_info);
13233: END IF;
13234:
13235:
13248:
13249: --bugfix:5640388
13250: EXCEPTION
13251: WHEN NO_DATA_FOUND THEN
13252: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13253: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13254: p_invoice_lines_rec.invoice_line_id,
13255: 'PRICE CORRECT INV INVALID',
13256: p_default_last_updated_by,
13256: p_default_last_updated_by,
13257: p_default_last_update_login,
13258: current_calling_sequence)<> TRUE) THEN
13259: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13260: AP_IMPORT_UTILITIES_PKG.Print(
13261: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13262: 'insert_rejections<-'||current_calling_sequence);
13263: END IF;
13264: RAISE check_po_failure;
13275: ', l_total_amount_billed:'||l_total_amount_billed||
13276: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
13277: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
13278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13279: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13280: debug_info);
13281: END IF;
13282:
13283: IF l_total_quantity_billed = 0 THEN
13283: IF l_total_quantity_billed = 0 THEN
13284: IF (l_total_amount_billed + nvl(p_invoice_lines_rec.amount,0) < 0) OR
13285: (l_total_amount_billed + l_line_amt_calculated < 0) THEN
13286:
13287: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13288: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13289: p_invoice_lines_rec.invoice_line_id,
13290: 'AMOUNT BILLED BELOW ZERO',
13291: p_default_last_updated_by,
13292: p_default_last_update_login,
13293: current_calling_sequence)<> TRUE) THEN
13294:
13295: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13296: AP_IMPORT_UTILITIES_PKG.Print(
13297: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13298: 'insert_rejections<-'||current_calling_sequence);
13299: END IF;
13300: RAISE check_po_failure;
13334: ', pc_po_dists.quantity_billed:'||pc_po_dists.quantity_billed||
13335: ', for l_price_correct_inv_id:'||l_price_correct_inv_id||
13336: ', and p_invoice_lines_rec.price_correct_inv_line_num:'||p_invoice_lines_rec.price_correct_inv_line_num;
13337: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13338: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13339: debug_info);
13340: END IF;
13341:
13342: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13338: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13339: debug_info);
13340: END IF;
13341:
13342: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13343: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13344: p_invoice_lines_rec.invoice_line_id,
13345: 'AMOUNT BILLED BELOW ZERO',
13346: p_default_last_updated_by,
13346: p_default_last_updated_by,
13347: p_default_last_update_login,
13348: current_calling_sequence)<> TRUE) THEN
13349: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13350: AP_IMPORT_UTILITIES_PKG.Print(
13351: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13352: 'insert_rejections<-'||current_calling_sequence);
13353: END IF;
13354: RAISE check_po_failure;
13429: If ( l_po_line_location_id is not null) then
13430:
13431: debug_info := '(v_check_line_po_info) :Get Match Option from po shipment';
13432: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13433: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13434: debug_info);
13435: END IF;
13436:
13437: Select nvl(match_option,'P')
13453: OR
13454: (nvl(p_invoice_rec.invoice_type_lookup_code,'STANDARD') <> 'PREPAYMENT'
13455: AND p_invoice_lines_rec.match_option <> l_temp_match_option))) then
13456:
13457: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13458: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13459: p_invoice_lines_rec.invoice_line_id,
13460: 'INVALID MATCH OPTION',
13461: p_default_last_updated_by,
13462: p_default_last_update_login,
13463: current_calling_sequence) <> TRUE) THEN
13464:
13465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13466: AP_IMPORT_UTILITIES_PKG.Print(
13467: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13468: 'insert_rejections<-'||current_calling_sequence);
13469: END IF;
13470: raise check_po_failure;
13492: -- check for additional PO validation
13493: ---------------------------------------------------------
13494: debug_info := '(v_check_line_po_info 35) Call v_check_line_po_info2';
13495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13496: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13497: debug_info);
13498: END IF;
13499:
13500: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_po_info2 (
13518: p_current_invoice_status => l_current_invoice_status, -- IN OUT
13519: p_match_basis => l_match_basis, -- IN /*Amount Based Matching */
13520: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
13521: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13522: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13523: 'v_check_po_line_info2<-' ||current_calling_sequence);
13524: END IF;
13525: RAISE check_po_failure;
13526: END IF;
13528: --
13529: -- show output values (only if debug_switch = 'Y')
13530: --
13531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13532: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13533: '------------------> l_current_invoice_status = '||
13534: l_current_invoice_status);
13535: END IF;
13536:
13555: BEGIN
13556:
13557: debug_info := '(v_check_line_po_info 35.1) check accrue on receipt but overlay info is provided';
13558: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13559: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13560: debug_info);
13561: END IF;
13562:
13563: -- 7531219 replaced p_invoice_lines_rec.po_line_location_id with l_po_line_location_id
13588: END;
13589:
13590: IF l_accrue_on_receipt_flag = 'Y' THEN
13591:
13592: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13593: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13594: p_invoice_lines_rec.invoice_line_id,
13595: 'ACCRUE ON RECEIPT', -- Bug 5235675
13596: p_default_last_updated_by,
13596: p_default_last_updated_by,
13597: p_default_last_update_login,
13598: current_calling_sequence) <> TRUE) THEN
13599: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13600: AP_IMPORT_UTILITIES_PKG.Print(
13601: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13602: 'insert_rejections<-'||current_calling_sequence);
13603: END IF;
13604: RAISE check_po_failure;
13622: ---------------------------------------------------------
13623: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
13624: debug_info := '(v_check_line_po_info 36) Call v_check_po_overlay';
13625: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13626: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13627: debug_info);
13628: END IF;
13629:
13630: IF (AP_IMPORT_VALIDATION_PKG.v_check_po_overlay(
13640: p_default_last_update_login, -- IN
13641: p_current_invoice_status => l_current_invoice_status, -- IN OUT
13642: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
13643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13644: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13645: 'v_check_po_overlay<-' ||current_calling_sequence);
13646: END IF;
13647: RAISE check_po_failure;
13648: END IF;
13650: --
13651: -- show output values (only if debug_switch = 'Y')
13652: --
13653: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13654: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13655: '------------------> l_current_invoice_status = '||
13656: l_current_invoice_status);
13657: END IF;
13658: END IF; ---source <> PPA
13667:
13668:
13669: debug_info := '(v_check_line_po_info 37) Cannot associate charge lines with price corrections';
13670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13672: debug_info);
13673: END IF;
13674:
13675: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13672: debug_info);
13673: END IF;
13674:
13675: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13676: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13677: p_invoice_lines_rec.invoice_line_id,
13678: 'INVALID PO INFO',
13679: p_default_last_updated_by,
13680: p_default_last_update_login,
13681: current_calling_sequence) <> TRUE) THEN
13682:
13683: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13684: AP_IMPORT_UTILITIES_PKG.Print(
13685: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13686: 'insert_rejections<-'||current_calling_sequence);
13687: END IF;
13688:
13783: EXCEPTION
13784:
13785: WHEN OTHERS THEN
13786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13788: debug_info);
13789: END IF;
13790:
13791: IF (SQLCODE < 0) then
13789: END IF;
13790:
13791: IF (SQLCODE < 0) then
13792: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13793: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13794: SQLERRM);
13795: END IF;
13796: END IF;
13797: RETURN(FALSE);
13890: IF (l_po_distribution_id IS NOT NULL) Then
13891: debug_info := '(v_check_line_po_info2 1) Check Valid Shipment Type from '
13892: ||'l_po_distribution_id ';
13893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13895: debug_info);
13896: END IF;
13897:
13898: BEGIN
13922: AND (nvl(pll.CLOSED_CODE, 'OPEN') <> 'FINALLY CLOSED')
13923: AND nvl(pll.consigned_flag,'N') <> 'Y';
13924: EXCEPTION
13925: WHEN NO_DATA_FOUND Then
13926: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13927: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13928: p_invoice_lines_rec.invoice_line_id,
13929: 'INVALID SHIPMENT TYPE',
13930: p_default_last_updated_by,
13930: p_default_last_updated_by,
13931: p_default_last_update_login,
13932: current_calling_sequence) <> TRUE) THEN
13933: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13934: AP_IMPORT_UTILITIES_PKG.Print(
13935: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13936: 'insert_rejections<-'||current_calling_sequence);
13937: END IF;
13938: RAISE check_po_failure;
13947:
13948: debug_info := '(v_check_line_po_info2 1) Check Valid Shipment Type from '
13949: ||'l_po_line_location_id ';
13950: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13951: AP_IMPORT_UTILITIES_PKG.Print(
13952: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13953: END IF;
13954:
13955: --Contract Payments: Modified the WHERE condition so that we check for
13976: AND nvl(consigned_flag,'N') <> 'Y';
13977:
13978: EXCEPTION
13979: WHEN NO_DATA_FOUND Then
13980: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13981: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13982: p_invoice_lines_rec.invoice_line_id,
13983: 'INVALID SHIPMENT TYPE',
13984: p_default_last_updated_by,
13984: p_default_last_updated_by,
13985: p_default_last_update_login,
13986: current_calling_sequence) <> TRUE) THEN
13987: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13988: AP_IMPORT_UTILITIES_PKG.Print(
13989: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13990: 'insert_rejections<-'||current_calling_sequence);
13991: END IF;
13992: RAISE check_po_failure;
14001: -------------------------------------------------------------------------
14002: IF ( l_po_line_location_id is not null) THEN
14003: debug_info := '(v_check_line_po_info2) :Get Match Option from po shipment';
14004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14005: AP_IMPORT_UTILITIES_PKG.Print(
14006: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14007: END IF;
14008:
14009: SELECT nvl(match_option,'P')
14024: (nvl(p_invoice_rec.invoice_type_lookup_code,'STANDARD') <> 'PREPAYMENT'
14025: AND p_invoice_lines_rec.match_option <> l_temp_match_option))) THEN
14026:
14027: -- Reject for invalid Match option
14028: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14029: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14030: p_invoice_lines_rec.invoice_line_id,
14031: 'INVALID MATCH OPTION',
14032: p_default_last_updated_by,
14032: p_default_last_updated_by,
14033: p_default_last_update_login,
14034: current_calling_sequence)<> TRUE) Then
14035: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14036: AP_IMPORT_UTILITIES_PKG.Print(
14037: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14038: 'insert_rejections <-'||current_calling_sequence);
14039: END IF;
14040: RAISE check_po_failure;
14053: -- elsif to po_distribution_id is not null
14054: debug_info := '(v_check_line_po_info2 1) Check Valid Shipment Type from'
14055: ||' l_po_line_id ';
14056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14057: AP_IMPORT_UTILITIES_PKG.Print(
14058: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14059: END IF;
14060:
14061: BEGIN
14084: OR (nvl(CLOSED_CODE, 'OPEN') = 'FINALLY CLOSED')
14085: OR (nvl(consigned_flag,'N') = 'Y');
14086:
14087: IF (l_invalid_shipment_count > 0) Then
14088: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14089: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14090: p_invoice_lines_rec.invoice_line_id,
14091: 'INVALID SHIPMENT TYPE',
14092: p_default_last_updated_by,
14092: p_default_last_updated_by,
14093: p_default_last_update_login,
14094: current_calling_sequence) <> TRUE) THEN
14095: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14096: AP_IMPORT_UTILITIES_PKG.Print(
14097: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14098: 'insert_rejections<-'||current_calling_sequence);
14099: END IF;
14100: RAISE check_po_failure;
14118: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
14119: debug_info := '(v_check_line_po_info2 1) Check Price Break for PO '
14120: ||'Line(Line Level Match) ';
14121: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14122: AP_IMPORT_UTILITIES_PKG.Print(
14123: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14124: END IF;
14125: --
14126: BEGIN
14129: FROM po_lines
14130: WHERE po_line_id = l_po_line_id;
14131:
14132: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14133: AP_IMPORT_UTILITIES_PKG.Print(
14134: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14135: '------------------> l_price_break= '|| l_price_break);
14136: END IF;
14137: --
14135: '------------------> l_price_break= '|| l_price_break);
14136: END IF;
14137: --
14138: IF (nvl(l_price_break,'N') ='Y' ) Then
14139: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14140: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14141: p_invoice_lines_rec.invoice_line_id,
14142: 'LINE HAS PRICE BREAK',
14143: p_default_last_updated_by,
14143: p_default_last_updated_by,
14144: p_default_last_update_login,
14145: current_calling_sequence) <> TRUE) THEN
14146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14147: AP_IMPORT_UTILITIES_PKG.Print(
14148: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14149: 'insert_rejections<-'||current_calling_sequence);
14150: END IF;
14151: RAISE check_po_failure;
14193: debug_info := '(v_check_line_po_info2 1.1) Check inconsistency for '
14194: ||'po_vendor_item_num '
14195: ||'shipment level match basis is AMOUNT';
14196: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14197: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14198: debug_info);
14199: END IF;
14200: --
14201: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14197: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14198: debug_info);
14199: END IF;
14200: --
14201: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14202: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14203: p_invoice_lines_rec.invoice_line_id,
14204: 'INCONSISTENT SHIPMENT INFO',
14205: p_default_last_updated_by,
14208: 'Y',
14209: 'SUPPLIER ITEM NUMBER',
14210: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
14211: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14212: AP_IMPORT_UTILITIES_PKG.Print(
14213: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14214: 'insert_rejections<-'||current_calling_sequence);
14215: END IF;
14216: RAISE check_po_failure;
14225: debug_info := '(v_check_line_po_info2 1.1) Check inconsistency for '
14226: ||'po_inventory_item_id and po_item_description '
14227: ||'shipment level match basis is AMOUNT';
14228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14229: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14230: debug_info);
14231: END IF;
14232: --
14233: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14229: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14230: debug_info);
14231: END IF;
14232: --
14233: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14234: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14235: p_invoice_lines_rec.invoice_line_id,
14236: 'INCONSISTENT SHIPMENT INFO',
14237: p_default_last_updated_by,
14237: p_default_last_updated_by,
14238: p_default_last_update_login,
14239: current_calling_sequence ) <> TRUE) THEN
14240: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14241: AP_IMPORT_UTILITIES_PKG.Print(
14242: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14243: 'insert_rejections<-'||current_calling_sequence);
14244: END IF;
14245: RAISE check_po_failure;
14258: (p_invoice_lines_rec.distribution_set_name is NOT NULL)) Then
14259: debug_info := '(v_check_line_po_info2 2) Check for Invalid '
14260: ||'Distribution Set with PO';
14261: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14262: AP_IMPORT_UTILITIES_PKG.Print(
14263: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14264: END IF;
14265:
14266: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14262: AP_IMPORT_UTILITIES_PKG.Print(
14263: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14264: END IF;
14265:
14266: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14267: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14268: p_invoice_lines_rec.invoice_line_id,
14269: 'INVALID DIST SET WITH PO',
14270: p_default_last_updated_by,
14270: p_default_last_updated_by,
14271: p_default_last_update_login,
14272: current_calling_sequence) <> TRUE) THEN
14273: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14274: AP_IMPORT_UTILITIES_PKG.Print(
14275: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14276: 'insert_rejections<-'||current_calling_sequence);
14277: END IF;
14278: RAISE check_po_failure;
14287: ------------------------------------------------------
14288: debug_info :=
14289: '(v_check_line_po_info2 3) Get Unit Price / UOM from PO Lines';
14290: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14291: AP_IMPORT_UTILITIES_PKG.Print(
14292: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14293: END IF;
14294: --
14295: --bug2878889.Commented the following code and added the code below.
14359: END IF;
14360: --bug2878889 ends
14361:
14362: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14363: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14364: '------------------>
14365: l_po_unit_price = '||to_char(l_po_unit_price)
14366: ||' l_unit_of_measure = '||l_unit_of_measure);
14367: END IF;
14379: (p_invoice_rec.invoice_type_lookup_code IN ('STANDARD','PREPAYMENT'))) Then
14380: debug_info :=
14381: '(v_check_line_po_info2 4) Check for Invalid Line Quantity';
14382: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14383: AP_IMPORT_UTILITIES_PKG.Print(
14384: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14385: END IF;
14386:
14387: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14383: AP_IMPORT_UTILITIES_PKG.Print(
14384: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14385: END IF;
14386:
14387: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14388: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14389: p_invoice_lines_rec.invoice_line_id,
14390: 'INVALID QUANTITY',
14391: p_default_last_updated_by,
14394: 'Y',
14395: 'QUANTITY INVOICED',
14396: p_invoice_lines_rec.quantity_invoiced) <> TRUE) THEN
14397: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14398: AP_IMPORT_UTILITIES_PKG.Print(
14399: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14400: 'insert_rejections<-'||current_calling_sequence);
14401: END IF;
14402: RAISE check_po_failure;
14411: (p_invoice_rec.invoice_type_lookup_code = 'STANDARD')) Then
14412: debug_info :=
14413: '(v_check_line_po_info2 4) Check for Invalid Line Amount';
14414: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14415: AP_IMPORT_UTILITIES_PKG.Print(
14416: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14417: END IF;
14418:
14419: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14415: AP_IMPORT_UTILITIES_PKG.Print(
14416: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14417: END IF;
14418:
14419: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14420: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14421: p_invoice_lines_rec.invoice_line_id,
14422: 'INVALID QUANTITY',
14423: p_default_last_updated_by,
14426: 'Y',
14427: 'QUANTITY INVOICED',
14428: p_invoice_lines_rec.amount) <> TRUE) THEN
14429: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14430: AP_IMPORT_UTILITIES_PKG.Print(
14431: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14432: 'insert_rejections<-'||current_calling_sequence);
14433: END IF;
14434: RAISE check_po_failure;
14451: AND (p_match_option = 'P') THEN
14452: debug_info := '(v_check_line_po_info2 5) Check for Unit of Measure'
14453: ||' against PO';
14454: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14455: AP_IMPORT_UTILITIES_PKG.Print(
14456: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14457: END IF;
14458: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14459: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14454: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14455: AP_IMPORT_UTILITIES_PKG.Print(
14456: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14457: END IF;
14458: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14459: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14460: p_invoice_lines_rec.invoice_line_id,
14461: 'UOM DOES NOT MATCH PO',
14462: p_default_last_updated_by,
14462: p_default_last_updated_by,
14463: p_default_last_update_login,
14464: current_calling_sequence) <> TRUE) THEN
14465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14466: AP_IMPORT_UTILITIES_PKG.Print(
14467: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14468: 'insert_rejections<-'||current_calling_sequence);
14469: END IF;
14470: RAISE check_po_failure;
14488: (p_invoice_lines_rec.amount IS NOT NULL)) Then
14489: debug_info := '(v_check_line_po_info2 7) Check for valid unit_price, '
14490: ||'quantity_invoiced and line_amount';
14491: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14492: AP_IMPORT_UTILITIES_PKG.Print(
14493: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14494: END IF;
14495:
14496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14493: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14494: END IF;
14495:
14496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14497: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14498: 'quantity_invoiced = '||to_char(p_invoice_lines_rec.quantity_invoiced)||
14499: ' unit_price = '||to_char(p_invoice_lines_rec.unit_price)||
14500: ' amount = '||to_char(p_invoice_lines_rec.amount));
14501: END IF;
14507: l_calc_line_amount := ap_utilities_pkg.ap_round_currency (
14508: p_invoice_lines_rec.unit_price * p_invoice_lines_rec.quantity_invoiced,
14509: p_invoice_rec.invoice_currency_code);
14510: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14511: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14512: '------------------>
14513: l_calc_line_amount = '||to_char(l_calc_line_amount));
14514: END IF;
14515:
14527: --bug13599126, added condition to skip the sign validation for price correction invoice
14528: and nvl(p_invoice_lines_rec.price_correction_flag, 'N') <> 'Y'
14529: AND AP_IMPORT_INVOICES_PKG.g_source <> 'PPA')
14530: THEN
14531: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14532: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14533: p_invoice_lines_rec.invoice_line_id,
14534: 'INVALID PRICE/QUANTITY/AMOUNT',
14535: p_default_last_updated_by,
14542: p_invoice_lines_rec.unit_price,
14543: 'INVOICE LINE AMOUNT',
14544: p_invoice_lines_rec.amount) <> TRUE) THEN
14545: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14546: AP_IMPORT_UTILITIES_PKG.Print(
14547: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14548: 'insert_rejections<-'||current_calling_sequence);
14549: END IF;
14550: RAISE check_po_failure;
14556: (p_invoice_lines_rec.amount IS NOT NULL)) Then
14557: debug_info := '(v_check_line_po_info2 7) Get unit_price from '
14558: ||'quantity_invoiced and line_amount';
14559: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14560: AP_IMPORT_UTILITIES_PKG.Print(
14561: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14562: END IF;
14563: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14564: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14560: AP_IMPORT_UTILITIES_PKG.Print(
14561: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14562: END IF;
14563: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14564: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14565: 'inside the else condition ');
14566: END IF;
14567:
14568: /*
14574: AND SIGN(p_invoice_lines_rec.amount) <> SIGN(p_invoice_lines_rec.quantity_invoiced))
14575: --bug13599126, added condition to skip the sign validation for price correction invoice
14576: and nvl(p_invoice_lines_rec.price_correction_flag, 'N') <> 'Y'
14577: THEN
14578: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14579: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14580: p_invoice_lines_rec.invoice_line_id,
14581: 'INVALID PRICE/QUANTITY/AMOUNT',
14582: p_default_last_updated_by,
14589: p_invoice_lines_rec.unit_price,
14590: 'INVOICE LINE AMOUNT',
14591: p_invoice_lines_rec.amount) <> TRUE) THEN
14592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14593: AP_IMPORT_UTILITIES_PKG.Print(
14594: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14595: 'insert_rejections<-'||current_calling_sequence);
14596: END IF;
14597: RAISE check_po_failure;
14610: l_unit_price := p_invoice_lines_rec.amount /p_invoice_lines_rec.quantity_invoiced;
14611: END IF;
14612:
14613: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14614: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14615: '------------------>
14616: l_unit_price = '||to_char(l_unit_price));
14617: END IF;
14618:
14634: l_quantity_invoiced := ROUND(p_invoice_lines_rec.amount/l_dec_unit_price,15) ;
14635: END IF;
14636:
14637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14639: '------------------>
14640: l_quantity_invoiced = '||to_char(l_quantity_invoiced)
14641: ||' line_amount = '||to_char(p_invoice_lines_rec.amount)
14642: ||' unit_price = '||to_char(l_unit_price));
14657: (p_invoice_lines_rec.unit_price IS NOT NULL)) THEN
14658: debug_info := '(v_check_line_po_info2 7) Calculate line_amount, '
14659: ||'in case of match basis is AMOUNT';
14660: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14661: AP_IMPORT_UTILITIES_PKG.Print(
14662: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14663: END IF;
14664:
14665: -- The following can have rounding issues so use line_amount
14669: l_calc_line_amount := ap_utilities_pkg.ap_round_currency (
14670: p_invoice_lines_rec.unit_price * p_invoice_lines_rec.quantity_invoiced,
14671: p_invoice_rec.invoice_currency_code);
14672: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14673: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14674: '------------------>
14675: l_calc_line_amount = '||to_char(l_calc_line_amount));
14676: END IF;
14677: ELSE
14674: '------------------>
14675: l_calc_line_amount = '||to_char(l_calc_line_amount));
14676: END IF;
14677: ELSE
14678: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14679: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14680: p_invoice_lines_rec.invoice_line_id,
14681: 'INSUFFICIENT AMOUNT INFO',
14682: p_default_last_updated_by,
14689: p_invoice_lines_rec.unit_price,
14690: 'INVOICE LINE AMOUNT',
14691: p_invoice_lines_rec.amount) <> TRUE) THEN
14692: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14693: AP_IMPORT_UTILITIES_PKG.Print(
14694: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14695: 'insert_rejections<-'||current_calling_sequence);
14696: END IF;
14697: RAISE check_po_failure;
14719: IF (l_po_line_location_id IS NOT NULL) THEN
14720: l_qty_invoiced := nvl(p_invoice_lines_rec.quantity_invoiced,
14721: l_quantity_invoiced);
14722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14723: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14724: '------------------>
14725: Decoded l_qty_invoiced = '||to_char(l_qty_invoiced));
14726: END IF;
14727: --
14751: p_match_basis = 'QUANTITY') Then
14752: debug_info := '(v_check_line_po_info2 8) Reject for negative total '
14753: ||'quantity invoiced against given PO ';
14754: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14755: AP_IMPORT_UTILITIES_PKG.Print(
14756: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14757: END IF;
14758:
14759: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14755: AP_IMPORT_UTILITIES_PKG.Print(
14756: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14757: END IF;
14758:
14759: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14760: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14761: p_invoice_lines_rec.invoice_line_id,
14762: 'NEGATIVE QUANTITY BILLED', --Bug 5134622
14763: p_default_last_updated_by,
14766: 'Y',
14767: 'QUANTITY INVOICED',
14768: l_total_qty_billed ) <> TRUE) THEN
14769: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14770: AP_IMPORT_UTILITIES_PKG.Print(
14771: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14772: 'insert_rejections<-'||current_calling_sequence);
14773: END IF;
14774: RAISE check_po_failure;
14788: (l_total_match_amount <> 0))Then
14789: debug_info := '(v_check_line_po_info2 9) Extra credit for '||
14790: 'supplier:Negative total match amount against given PO ';
14791: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14792: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14793: debug_info);
14794: END IF;
14795:
14796: END IF;
14802: l_positive_price_variance :=0;
14803: END IF;
14804:
14805: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14806: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14807: '------------------>
14808: l_positive_price_varaince = '||to_char(l_positive_price_variance)
14809: ||' l_total_qty_billed = '||to_char(l_total_qty_billed));
14810: END IF;
14815: IF (l_positive_price_variance > 0) then --modified for 1939078
14816: debug_info := '(v_check_line_po_info2 9) Check for Invalid Unit '
14817: ||'Price against PO';
14818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14819: AP_IMPORT_UTILITIES_PKG.Print(
14820: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14821: END IF;
14822:
14823: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14819: AP_IMPORT_UTILITIES_PKG.Print(
14820: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14821: END IF;
14822:
14823: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14824: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14825: p_invoice_lines_rec.invoice_line_id,
14826: 'UNIT PRC NOT EQUAL TO PO',
14827: p_default_last_updated_by,
14827: p_default_last_updated_by,
14828: p_default_last_update_login,
14829: current_calling_sequence) <> TRUE) THEN
14830: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14831: AP_IMPORT_UTILITIES_PKG.Print(
14832: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14833: 'insert_rejections<-'||current_calling_sequence);
14834: END IF;
14835: RAISE check_po_failure;
14845: -- else if po line location is not null
14846: l_qty_invoiced := nvl(p_invoice_lines_rec.quantity_invoiced,
14847: l_quantity_invoiced);
14848: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14849: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14850: '------------------>
14851: l_qty_invoiced = '||to_char(l_qty_invoiced));
14852: END IF;
14853: --
14872: p_match_basis = 'QUANTITY') Then
14873: debug_info := '(v_check_line_po_info2 8) Reject for negative total '
14874: ||'quantity invoiced against given PO(for PO Line match) ';
14875: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14876: AP_IMPORT_UTILITIES_PKG.Print(
14877: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14878: END IF;
14879:
14880: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14876: AP_IMPORT_UTILITIES_PKG.Print(
14877: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14878: END IF;
14879:
14880: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14881: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14882: p_invoice_lines_rec.invoice_line_id,
14883: 'NEGATIVE QUANTITY BILLED', --Bug 5134622
14884: p_default_last_updated_by,
14887: 'Y',
14888: 'QUANTITY INVOICED',
14889: l_total_qty_billed ) <> TRUE) THEN
14890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14891: AP_IMPORT_UTILITIES_PKG.Print(
14892: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14893: 'insert_rejections<-'||current_calling_sequence);
14894: END IF;
14895: RAISE check_po_failure;
14903: p_match_basis = 'AMOUNT') Then
14904: debug_info := '(v_check_line_po_info2 8) Reject for negative total '
14905: ||'amount matched against given PO ';
14906: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14907: AP_IMPORT_UTILITIES_PKG.Print(
14908: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14909: END IF;
14910:
14911: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14907: AP_IMPORT_UTILITIES_PKG.Print(
14908: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14909: END IF;
14910:
14911: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14912: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14913: p_invoice_lines_rec.invoice_line_id,
14914: 'INVALID LINE AMOUNT',
14915: p_default_last_updated_by,
14918: 'Y',
14919: 'AMOUNT INVOICED',
14920: l_total_match_amount ) <> TRUE) THEN
14921: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14922: AP_IMPORT_UTILITIES_PKG.Print(
14923: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14924: 'insert_rejections<-'||current_calling_sequence);
14925: END IF;
14926: RAISE check_po_failure;
14936: l_positive_price_variance :=0;
14937: END IF;
14938:
14939: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14940: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14941: '------------------>
14942: l_positive_price_variance = '||to_char(l_positive_price_variance)
14943: ||' l_total_qty_billed = '||to_char(l_total_qty_billed));
14944: END IF;
14947: IF (l_positive_price_variance > 0) THEN --modified for 1939078
14948: debug_info := '(v_check_line_po_info2 9) Check for Invalid Unit '
14949: ||'Price against PO';
14950: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14951: AP_IMPORT_UTILITIES_PKG.Print(
14952: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14953: END IF;
14954:
14955: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14951: AP_IMPORT_UTILITIES_PKG.Print(
14952: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14953: END IF;
14954:
14955: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14956: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14957: p_invoice_lines_rec.invoice_line_id,
14958: 'UNIT PRC NOT EQUAL TO PO',
14959: p_default_last_updated_by,
14959: p_default_last_updated_by,
14960: p_default_last_update_login,
14961: current_calling_sequence) <> TRUE) THEN
14962: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14963: AP_IMPORT_UTILITIES_PKG.Print(
14964: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14965: 'insert_rejections<-'||current_calling_sequence);
14966: END IF;
14967: RAISE check_po_failure;
14992: debug_info := '(v_check_line_po_info2 10) Check for quantity overbill '
14993: ||'for PO Shipment';
14994:
14995: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
14996: AP_IMPORT_UTILITIES_PKG.Print(
14997: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14998: END IF;
14999:
15000: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_shipment(
14996: AP_IMPORT_UTILITIES_PKG.Print(
14997: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14998: END IF;
14999:
15000: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_shipment(
15001: l_po_line_location_id, -- IN
15002: NVL(p_invoice_lines_rec.quantity_invoiced,
15003: l_quantity_invoiced), -- IN
15004: p_invoice_lines_rec.amount, --IN
15011: l_amt_already_billed, -- OUT NOCOPY
15012: current_calling_sequence) <> TRUE) THEN
15013:
15014: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15015: AP_IMPORT_UTILITIES_PKG.Print(
15016: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15017: 'get_overbill_for_shipment<-'||current_calling_sequence);
15018: END IF;
15019: RAISE check_po_failure;
15019: RAISE check_po_failure;
15020: END IF;
15021:
15022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15024: '------------------> l_overbill = '||l_overbill
15025: ||' l_quantity_outstanding = ' ||to_char(l_quantity_outstanding)
15026: ||' l_quantity_ordered = ' ||to_char(l_quantity_ordered)
15027: ||' l_qty_already_billed = ' ||to_char(l_qty_already_billed)
15048: (NVL(p_qty_ord_tolerance,1) * l_quantity_ordered)) THEN
15049: debug_info := '(v_check_line_po_info2 11) Reject for '
15050: ||'p_qty_ord_tolerance';
15051: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15052: AP_IMPORT_UTILITIES_PKG.Print(
15053: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15054: END IF;
15055: l_qty_based_rejection := 'Y';
15056: END IF;
15066: (p_max_qty_ord_tolerance + l_quantity_ordered)) THEN
15067: debug_info := '(v_check_line_po_info2 12) Reject for '
15068: ||'p_max_qty_ord_tolerance';
15069: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15070: AP_IMPORT_UTILITIES_PKG.Print(
15071: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15072: END IF;
15073: l_qty_based_rejection := 'Y';
15074:
15079: IF (nvl(l_qty_based_rejection,'N') = 'Y') Then
15080: debug_info := '(v_check_line_po_info2 13) Reject for Quantity '
15081: ||'overbill for PO Shipment';
15082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15083: AP_IMPORT_UTILITIES_PKG.Print(
15084: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15085: END IF;
15086:
15087: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15083: AP_IMPORT_UTILITIES_PKG.Print(
15084: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15085: END IF;
15086:
15087: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15088: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15089: p_invoice_lines_rec.invoice_line_id,
15090: 'INVALID INVOICE QUANTITY',
15091: p_default_last_updated_by,
15092: p_default_last_update_login,
15093: current_calling_sequence) <> TRUE) THEN
15094:
15095: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15096: AP_IMPORT_UTILITIES_PKG.Print(
15097: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15098: 'insert_rejections<-'||current_calling_sequence);
15099: END IF;
15100:
15111:
15112: debug_info := '(v_check_line_po_info2 14) Reject for '
15113: ||'p_amt_ord_tolerance';
15114: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15115: AP_IMPORT_UTILITIES_PKG.Print(
15116: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15117: END IF;
15118:
15119: l_amt_based_rejection := 'Y';
15127:
15128: debug_info := '(v_check_line_po_info2 15) Reject for '
15129: ||'p_max_amt_ord_tolerance';
15130: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15131: AP_IMPORT_UTILITIES_PKG.Print(
15132: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15133: END IF;
15134: l_amt_based_rejection := 'Y';
15135:
15141:
15142: debug_info := '(v_check_line_po_info2 16) Reject for Amount '
15143: ||'overbill for PO Shipment';
15144: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15145: AP_IMPORT_UTILITIES_PKG.Print(
15146: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15147: END IF;
15148:
15149: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15145: AP_IMPORT_UTILITIES_PKG.Print(
15146: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15147: END IF;
15148:
15149: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15150: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15151: p_invoice_lines_rec.invoice_line_id,
15152: 'LINE AMOUNT EXCEEDED TOLERANCE',
15153: p_default_last_updated_by,
15154: p_default_last_update_login,
15155: current_calling_sequence) <> TRUE) THEN
15156:
15157: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15158: AP_IMPORT_UTILITIES_PKG.Print(
15159: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15160: 'insert_rejections<-'||current_calling_sequence);
15161: END IF;
15162:
15176: -- po line location id is not null
15177: debug_info := '(v_check_line_po_info2 17) Check for quantity overbill '
15178: ||'for PO Line';
15179: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15180: AP_IMPORT_UTILITIES_PKG.Print(
15181: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15182: END IF;
15183:
15184: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_po_line(
15180: AP_IMPORT_UTILITIES_PKG.Print(
15181: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15182: END IF;
15183:
15184: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_po_line(
15185: l_po_line_id,
15186: NVL(p_invoice_lines_rec.quantity_invoiced, l_quantity_invoiced),
15187: p_invoice_lines_rec.amount, --IN
15188: l_overbill, -- OUT
15192: l_po_line_matching_basis, -- OUT
15193: current_calling_sequence) <> TRUE) THEN
15194:
15195: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15196: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15197: 'get_overbill_for_po_line<-'||current_calling_sequence);
15198: END IF;
15199: RAISE check_po_failure;
15200: END IF;
15199: RAISE check_po_failure;
15200: END IF;
15201:
15202: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15203: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15204: '------------------> l_overbill = '||l_overbill
15205: ||' l_outstanding quantity/amount = '||to_char(l_outstanding)
15206: ||' l_ordered quantity/amount = '||to_char(l_ordered)
15207: ||' l_already_billed quantity/amount = '||to_char(l_already_billed)
15224: (NVL(p_qty_ord_tolerance,1) * l_ordered)) THEN
15225: debug_info := '(v_check_line_po_info2 18) Reject for '
15226: ||'p_qty_ord_tolerance';
15227: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15228: AP_IMPORT_UTILITIES_PKG.Print(
15229: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15230: END IF;
15231: l_qty_based_rejection := 'Y';
15232: END IF;
15242:
15243: debug_info := '(v_check_line_po_info2 19) Reject for '
15244: ||'p_max_qty_ord_tolerance';
15245: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15246: AP_IMPORT_UTILITIES_PKG.Print(
15247: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15248: END IF;
15249: l_qty_based_rejection := 'Y';
15250: END IF;
15253: IF (nvl(l_qty_based_rejection,'N') = 'Y') THEN
15254: debug_info := '(v_check_line_po_info2 20) Reject for Quantity '
15255: ||'overbill for PO Line';
15256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15257: AP_IMPORT_UTILITIES_PKG.Print(
15258: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15259: END IF;
15260:
15261: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15257: AP_IMPORT_UTILITIES_PKG.Print(
15258: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15259: END IF;
15260:
15261: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15262: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15263: p_invoice_lines_rec.invoice_line_id,
15264: 'INVALID INVOICE QUANTITY',
15265: p_default_last_updated_by,
15265: p_default_last_updated_by,
15266: p_default_last_update_login,
15267: current_calling_sequence) <> TRUE) THEN
15268: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15269: AP_IMPORT_UTILITIES_PKG.Print(
15270: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15271: 'insert_rejections<-'||current_calling_sequence);
15272: END IF;
15273: RAISE check_po_failure;
15284: debug_info := '(v_check_line_po_info2 21) Reject for '
15285: ||'p_amt_ord_tolerance';
15286:
15287: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15288: AP_IMPORT_UTILITIES_PKG.Print(
15289: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15290: END IF;
15291: l_amt_based_rejection := 'Y';
15292:
15299:
15300: debug_info := '(v_check_line_po_info2 22) Reject for '
15301: ||'p_max_amt_ord_tolerance';
15302: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15303: AP_IMPORT_UTILITIES_PKG.Print(
15304: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15305: END IF;
15306:
15307: l_amt_based_rejection := 'Y';
15313: IF (nvl(l_amt_based_rejection,'N') = 'Y') THEN
15314: debug_info := '(v_check_line_po_info2 23) Reject for Amount '
15315: ||'overbill for PO Line';
15316: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15317: AP_IMPORT_UTILITIES_PKG.Print(
15318: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15319: END IF;
15320:
15321: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15317: AP_IMPORT_UTILITIES_PKG.Print(
15318: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15319: END IF;
15320:
15321: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15322: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15323: p_invoice_lines_rec.invoice_line_id,
15324: 'LINE AMOUNT EXCEEDED TOLERANCE',
15325: p_default_last_updated_by,
15325: p_default_last_updated_by,
15326: p_default_last_update_login,
15327: current_calling_sequence) <> TRUE) THEN
15328: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15329: AP_IMPORT_UTILITIES_PKG.Print(
15330: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15331: 'insert_rejections<-'||current_calling_sequence);
15332: END IF;
15333: RAISE check_po_failure;
15355:
15356: EXCEPTION
15357: WHEN OTHERS THEN
15358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15359: AP_IMPORT_UTILITIES_PKG.Print(
15360: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15361: END IF;
15362:
15363: IF (SQLCODE < 0) then
15361: END IF;
15362:
15363: IF (SQLCODE < 0) then
15364: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15365: AP_IMPORT_UTILITIES_PKG.Print(
15366: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
15367: END IF;
15368: END IF;
15369: RETURN(FALSE);
15441: END IF;
15442:
15443: IF (l_po_distribution_id IS NOT NULL) THEN
15444: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15445: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15446: '(v_check_po_overlay 1) Get l_code_combination_id FROM '
15447: ||'l_po_distribution_id ');
15448: END IF;
15449:
15452: FROM po_distributions
15453: WHERE po_distribution_id = l_po_distribution_id
15454: AND line_location_id IS NOT NULL; /* BUG 3253594 */
15455: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15456: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15457: '------------------> l_code_combination_id = '
15458: || to_char(l_code_combination_id)
15459: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
15460: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
15460: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
15461: ||'account_segment ='||p_invoice_lines_rec.account_segment
15462: ||'dist_code_concatenated ='
15463: ||p_invoice_lines_rec.dist_code_concatenated);
15464: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15465: '(v_check_po_overlay 2) Check Overlay Segments fOR '
15466: ||'l_po_distribution_id ');
15467: END IF;
15468:
15482: current_calling_sequence ,
15483: NULL,
15484: p_invoice_lines_rec.accounting_date) <> TRUE) THEN --7531219
15485: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15486: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15487: '(v_check_po_overlay 2) Overlay_Segments<-'
15488: ||current_calling_sequence);
15489: END IF;
15490: Raise check_po_failure;
15491: ELSE
15492: -- show output values (only IF debug_switch = 'Y')
15493: --
15494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15495: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15496: '------------------> l_unbuilt_flex = '|| l_unbuilt_flex
15497: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
15498: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
15499: END IF;
15500:
15501: -- 7531219 changed the if condition
15502: IF (l_unbuilt_flex is not null or l_reason_unbuilt_flex is not null /*l_code_combination_id = -1*/) THEN
15503: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15504: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15505: '(v_check_po_overlay 3) Invalid code_combination_id overlay');
15506: END IF;
15507:
15508: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15504: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15505: '(v_check_po_overlay 3) Invalid code_combination_id overlay');
15506: END IF;
15507:
15508: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15509: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15510: p_invoice_lines_rec.invoice_line_id,
15511: 'INVALID ACCT OVERLAY',
15512: p_default_last_updated_by,
15512: p_default_last_updated_by,
15513: p_default_last_update_login,
15514: current_calling_sequence) <> TRUE) THEN
15515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15516: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15517: 'insert_rejections<-'||current_calling_sequence);
15518: END IF;
15519: RAISE check_po_failure;
15520: END IF; -- Code combination id is -1
15523: END IF; -- IF overlay segments is other than TRUE
15524: ELSIF (l_po_line_location_id IS NOT NULL) THEN
15525: -- IF po distribution id is not NULL
15526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15527: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15528: '(v_check_po_overlay 1) Get l_code_combination_id FROM '
15529: ||'l_po_line_location_id ');
15530: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15531: '(v_check_po_overlay 1) Open po_distributions ');
15526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15527: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15528: '(v_check_po_overlay 1) Get l_code_combination_id FROM '
15529: ||'l_po_line_location_id ');
15530: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15531: '(v_check_po_overlay 1) Open po_distributions ');
15532: END IF;
15533:
15534: OPEN po_distributions_cur;
15535:
15536: LOOP
15537: --
15538: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15539: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15540: '(v_check_po_overlay 2) Fetch po_distributions_cur ');
15541: END IF;
15542:
15543: FETCH po_distributions_cur INTO
15546: EXIT WHEN po_distributions_cur%NOTFOUND OR
15547: po_distributions_cur%NOTFOUND IS NULL;
15548:
15549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15550: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15551: '------------------> l_code_combination_id = '
15552: || to_char(l_code_combination_id)
15553: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
15554: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
15554: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
15555: ||'account_segment ='||p_invoice_lines_rec.account_segment
15556: ||'l_dist_code_concatenated ='||l_dist_code_concatenated);
15557:
15558: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15559: '(v_check_po_overlay 3) Check Overlay Segments fOR '
15560: ||'l_po_line_location_id ');
15561: END IF;
15562:
15576: current_calling_sequence,
15577: NULL,
15578: p_invoice_lines_rec.accounting_date ) <> TRUE) THEN --7531219
15579: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15580: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15581: '(v_check_po_overlay 3) Overlay_Segments<-'
15582: ||current_calling_sequence);
15583: END IF;
15584: CLOSE po_distributions_cur;
15586: ELSE
15587: -- show output values (only IF debug_switch = 'Y')
15588: --
15589: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15590: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15591: '------------------> l_unbuilt_flex = '||l_unbuilt_flex
15592: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
15593: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
15594: END IF;
15595:
15596: -- 7531219 changed the if condition
15597: IF (l_unbuilt_flex is not null or l_reason_unbuilt_flex is not null/*l_code_combination_id = -1*/) THEN
15598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15599: AP_IMPORT_UTILITIES_PKG.Print(
15600: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15601: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
15602: END IF;
15603:
15600: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15601: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
15602: END IF;
15603:
15604: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15605: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15606: p_invoice_lines_rec.invoice_line_id,
15607: 'INVALID ACCT OVERLAY',
15608: p_default_last_updated_by,
15608: p_default_last_updated_by,
15609: p_default_last_update_login,
15610: current_calling_sequence) <> TRUE) THEN
15611: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15612: AP_IMPORT_UTILITIES_PKG.Print(
15613: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15614: 'insert_rejections<-'||current_calling_sequence);
15615: END IF;
15616: CLOSE po_distributions_cur;
15622: END IF; --overlay segments
15623:
15624: END LOOP;
15625: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15626: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15627: '(v_check_po_overlay 5) Close po_distributions ');
15628: END IF;
15629: CLOSE po_distributions_cur;
15630: ELSIF ((l_po_line_id IS NOT NULL) AND
15632: -- po distribution id is not NULL
15633: -- PO Line Level Matching
15634: --
15635: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15636: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15637: '(v_check_po_overlay 1) Get l_code_combination_id FROM l_po_line_id ');
15638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15639: '(v_check_po_overlay 1) Open po_line_locations ');
15640: END IF;
15634: --
15635: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15636: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15637: '(v_check_po_overlay 1) Get l_code_combination_id FROM l_po_line_id ');
15638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15639: '(v_check_po_overlay 1) Open po_line_locations ');
15640: END IF;
15641:
15642: OPEN po_line_locations_cur;
15644: LOOP
15645: --
15646: --
15647: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15648: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15649: '(v_check_po_overlay 2) Fetch po_line_locations_cur ');
15650: END IF;
15651:
15652: FETCH po_line_locations_cur INTO l_code_combination_id;
15654: EXIT WHEN po_line_locations_cur%NOTFOUND OR
15655: po_line_locations_cur%NOTFOUND IS NULL;
15656:
15657: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15658: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15659: '------------------> l_code_combination_id = '||
15660: to_char(l_code_combination_id)
15661: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
15662: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
15661: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
15662: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
15663: ||'account_segment ='||p_invoice_lines_rec.account_segment
15664: ||'l_dist_code_concatenated ='||l_dist_code_concatenated);
15665: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15666: '(v_check_po_overlay 3) Check Overlay Segments fOR l_po_line_id ');
15667: END IF;
15668:
15669: IF (AP_UTILITIES_PKG.overlay_segments(
15682: current_calling_sequence ,
15683: NULL,
15684: p_invoice_lines_rec.accounting_date) <> TRUE) THEN --7531219
15685: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15686: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15687: '(v_check_po_overlay 3) Overlay_Segments<-'
15688: ||current_calling_sequence);
15689: END IF;
15690: CLOSE po_line_locations_cur;
15692: ELSE
15693: -- show output values (only IF debug_switch = 'Y')
15694: --
15695: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15696: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15697: '------------------>
15698: l_unbuilt_flex = '||l_unbuilt_flex
15699: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
15700: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
15702:
15703: -- 7531219 changed the if condition
15704: IF (l_unbuilt_flex is not null or l_reason_unbuilt_flex is not null/*l_code_combination_id = -1*/) THEN
15705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15706: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15707: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
15708: END IF;
15709: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15710: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15706: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15707: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
15708: END IF;
15709: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15710: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15711: p_invoice_lines_rec.invoice_line_id,
15712: 'INVALID ACCT OVERLAY',
15713: p_default_last_updated_by,
15713: p_default_last_updated_by,
15714: p_default_last_update_login,
15715: current_calling_sequence) <> TRUE) THEN
15716: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15717: AP_IMPORT_UTILITIES_PKG.Print(
15718: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15719: 'insert_rejections<-'||current_calling_sequence);
15720: END IF;
15721: CLOSE po_line_locations_cur;
15727: END IF; -- overlay segments
15728:
15729: END LOOP;
15730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15731: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15732: '(v_check_po_overlay 5) Close po_line_locations ');
15733: END IF;
15734: CLOSE po_line_locations_cur;
15735: END IF; -- po distribution id is not NULL
15734: CLOSE po_line_locations_cur;
15735: END IF; -- po distribution id is not NULL
15736: ELSE -- invoice status <> 'N'
15737: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15738: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15739: '(v_check_po_overlay 1) No Overlay Required ');
15740: END IF;
15741:
15742: END IF; -- invoice status <> 'N'
15746:
15747: EXCEPTION
15748: WHEN OTHERS THEN
15749: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15750: AP_IMPORT_UTILITIES_PKG.Print(
15751: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15752: END IF;
15753:
15754: IF (SQLCODE < 0) THEN
15752: END IF;
15753:
15754: IF (SQLCODE < 0) THEN
15755: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15756: AP_IMPORT_UTILITIES_PKG.Print(
15757: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
15758: END IF;
15759: END IF;
15760: RETURN(FALSE);
15805:
15806: debug_info := '(Check Receipt Info 1) Check if invoice type is'||
15807: ' Prepayment and receipt info is provided';
15808: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15809: AP_IMPORT_UTILITIES_PKG.Print(
15810: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15811: END IF;
15812:
15813: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15809: AP_IMPORT_UTILITIES_PKG.Print(
15810: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15811: END IF;
15812:
15813: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15814: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15815: p_invoice_lines_rec.invoice_line_id,
15816: 'INVALID MATCHING INFO',
15817: p_default_last_updated_by,
15817: p_default_last_updated_by,
15818: p_default_last_update_login,
15819: current_calling_sequence)<> TRUE) THEN
15820: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15821: AP_IMPORT_UTILITIES_PKG.Print(
15822: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15823: 'insert_rejections <-'||current_calling_sequence);
15824: END IF;
15825: Raise check_receipt_failure;
15849: (p_invoice_lines_rec.po_line_location_id is not NULL) THEN
15850:
15851: debug_info := '(Check Receipt Info 1) Case a';
15852: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15853: AP_IMPORT_UTILITIES_PKG.Print(
15854: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15855: END IF;
15856:
15857: BEGIN
15862:
15863: EXCEPTION
15864: When no_data_found THEN
15865: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
15866: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15867: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15868: p_invoice_lines_rec.invoice_line_id,
15869: 'INSUFFICIENT RECEIPT INFO',
15870: p_default_last_updated_by,
15870: p_default_last_updated_by,
15871: p_default_last_update_login,
15872: current_calling_sequence)<> TRUE) THEN
15873: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15874: AP_IMPORT_UTILITIES_PKG.Print(
15875: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15876: 'insert_rejections <-'||current_calling_sequence);
15877: END IF;
15878: Raise check_receipt_failure;
15889: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
15890: (p_invoice_lines_rec.rcv_transaction_id is NULL) THEN
15891: debug_info := '(Check Receipt Info 1) Case c';
15892: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15893: AP_IMPORT_UTILITIES_PKG.Print(
15894: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15895: END IF;
15896:
15897: BEGIN
15903:
15904: Exception
15905: When no_data_found THEN
15906: --reject fOR INVALID RECEIPT INFORMATION
15907: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15908: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15909: p_invoice_lines_rec.invoice_line_id,
15910: 'INVALID RECEIPT INFO',
15911: p_default_last_updated_by,
15911: p_default_last_updated_by,
15912: p_default_last_update_login,
15913: current_calling_sequence)<> TRUE) THEN
15914: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15915: AP_IMPORT_UTILITIES_PKG.Print(
15916: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15917: 'insert_rejections <-'||current_calling_sequence);
15918: END IF;
15919: Raise check_receipt_failure;
15930: ELSIF (p_invoice_lines_rec.receipt_number is NULL) AND
15931: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
15932: debug_info := '(Check Receipt Info 1) Case d';
15933: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15934: AP_IMPORT_UTILITIES_PKG.Print(
15935: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15936: END IF;
15937:
15938: BEGIN
15944:
15945: EXCEPTION
15946: When Others THEN
15947: -- reject fOR INVALID RECEIPT INFORMATION
15948: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15949: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15950: p_invoice_lines_rec.invoice_line_id,
15951: 'INVALID RECEIPT INFO',
15952: p_default_last_updated_by,
15952: p_default_last_updated_by,
15953: p_default_last_update_login,
15954: current_calling_sequence)<> TRUE) THEN
15955: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15956: AP_IMPORT_UTILITIES_PKG.Print(
15957: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15958: 'insert_rejections <-'||current_calling_sequence);
15959: END IF;
15960: Raise check_receipt_failure;
15966: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
15967: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
15968: debug_info := '(Check Receipt Info 1) Case e';
15969: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15970: AP_IMPORT_UTILITIES_PKG.Print(
15971: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15972: END IF;
15973: BEGIN
15974: SELECT rcv_transaction_id
15981:
15982: Exception
15983: When Others THEN
15984: -- reject fOR INCONSISTENT RECEIPT INFORMATION
15985: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15986: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15987: p_invoice_lines_rec.invoice_line_id,
15988: 'INCONSISTENT RECEIPT INFO',
15989: p_default_last_updated_by,
15989: p_default_last_updated_by,
15990: p_default_last_update_login,
15991: current_calling_sequence)<> TRUE) THEN
15992: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15993: AP_IMPORT_UTILITIES_PKG.Print(
15994: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15995: 'insert_rejections <-'||current_calling_sequence);
15996: END IF;
15997: Raise check_receipt_failure;
16010: -- Validate UOM
16011: IF (p_invoice_lines_rec.unit_of_meas_lookup_code is not NULL) THEN
16012: debug_info := 'validate the UOM';
16013: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16014: AP_IMPORT_UTILITIES_PKG.Print(
16015: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16016: END IF;
16017:
16018: BEGIN
16026: rcv_transaction_id);
16027: EXCEPTION
16028: WHEN OTHERS THEN
16029: -- reject with UOM DOES NOT MATCH RECEIPT
16030: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16031: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16032: p_invoice_lines_rec.invoice_line_id,
16033: 'UOM DOES NOT MATCH RECPT',
16034: p_default_last_updated_by,
16034: p_default_last_updated_by,
16035: p_default_last_update_login,
16036: current_calling_sequence)<> TRUE) THEN
16037: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16038: AP_IMPORT_UTILITIES_PKG.Print(
16039: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16040: 'insert_rejections <-'||current_calling_sequence);
16041: END IF;
16042: Raise check_receipt_failure;
16044: END;
16045:
16046: IF (l_rcv_uom <> p_invoice_lines_rec.unit_of_meas_lookup_code) THEN
16047: -- reject with UOM DOES NOT MATCH RECEIPT
16048: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16049: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16050: p_invoice_lines_rec.invoice_line_id,
16051: 'UOM DOES NOT MATCH RECPT',
16052: p_default_last_updated_by,
16052: p_default_last_updated_by,
16053: p_default_last_update_login,
16054: current_calling_sequence)<> TRUE) THEN
16055: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16056: AP_IMPORT_UTILITIES_PKG.Print(
16057: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16058: 'insert_rejections <-'||current_calling_sequence);
16059: END IF;
16060: Raise check_receipt_failure;
16065:
16066: -- Validate quantity billed does not become less than zero
16067: debug_info := 'Check IF quantity billed will be less than zero';
16068: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16069: AP_IMPORT_UTILITIES_PKG.Print(
16070: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16071: END IF;
16072:
16073: BEGIN
16095: AND ((PS.PO_RELEASE_ID IS NOT NULL AND PR.PCARD_ID IS NULL) OR (PS.PO_RELEASE_ID IS NULL AND PH.PCARD_ID IS NULL ));
16096:
16097: IF ((p_invoice_lines_rec.quantity_invoiced + l_qty_billed_sum) < 0) THEN
16098: -- reject with INVALID QUANTITY
16099: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16100: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16101: p_invoice_lines_rec.invoice_line_id,
16102: 'INVALID QUANTITY',
16103: p_default_last_updated_by,
16107: 'QUANTITY INVOICED',
16108: p_invoice_lines_rec.quantity_invoiced + l_qty_billed_sum )
16109: <> TRUE) THEN
16110: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16111: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16112: 'insert_rejections <-'||current_calling_sequence);
16113: END IF;
16114: Raise check_receipt_failure;
16115: END IF;
16134: (p_invoice_lines_rec.rcv_transaction_id is NULL) AND
16135: (p_invoice_lines_rec.po_line_location_id is not NULL) THEN
16136: debug_info := '(Check Receipt Info 2) Case a';
16137: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16138: AP_IMPORT_UTILITIES_PKG.Print(
16139: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16140: END IF;
16141: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
16142: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16138: AP_IMPORT_UTILITIES_PKG.Print(
16139: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16140: END IF;
16141: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
16142: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16143: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16144: p_invoice_lines_rec.invoice_line_id,
16145: 'INSUFFICIENT RECEIPT INFO',
16146: p_default_last_updated_by,
16146: p_default_last_updated_by,
16147: p_default_last_update_login,
16148: current_calling_sequence)<> TRUE) THEN
16149: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16150: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16151: 'insert_rejections <-'||current_calling_sequence);
16152: END IF;
16153: Raise check_receipt_failure;
16154: END IF;
16158: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
16159: (p_invoice_lines_rec.rcv_transaction_id is NULL) THEN
16160: debug_info := '(Check Receipt Info 2) Case b';
16161: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16162: AP_IMPORT_UTILITIES_PKG.Print(
16163: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16164: END IF;
16165: BEGIN
16166: SELECT rcv_transaction_id
16171:
16172: Exception
16173: When no_data_found THEN
16174: --reject fOR INVALID RECEIPT INFORMATION
16175: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16176: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16177: p_invoice_lines_rec.invoice_line_id,
16178: 'INVALID RECEIPT INFO',
16179: p_default_last_updated_by,
16179: p_default_last_updated_by,
16180: p_default_last_update_login,
16181: current_calling_sequence)<> TRUE) THEN
16182: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16183: AP_IMPORT_UTILITIES_PKG.Print(
16184: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16185: 'insert_rejections <-'||current_calling_sequence);
16186: END IF;
16187: Raise check_receipt_failure;
16188: END IF;
16189: p_temp_line_status := 'N';
16190: When too_many_rows THEN
16191: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
16192: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16193: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16194: p_invoice_lines_rec.invoice_line_id,
16195: 'INSUFFICIENT RECEIPT INFO',
16196: p_default_last_updated_by,
16196: p_default_last_updated_by,
16197: p_default_last_update_login,
16198: current_calling_sequence)<> TRUE) THEN
16199: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16200: AP_IMPORT_UTILITIES_PKG.Print(
16201: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16202: 'insert_rejections <-'||current_calling_sequence);
16203: END IF;
16204: Raise check_receipt_failure;
16210: ELSIF (p_invoice_lines_rec.receipt_number is NULL) AND
16211: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
16212: debug_info := '(Check Receipt Info 2) Case c';
16213: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16214: AP_IMPORT_UTILITIES_PKG.Print(
16215: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16216: END IF;
16217:
16218: BEGIN
16224:
16225: Exception
16226: WHEN Others THEN
16227: -- reject fOR INVALID RECEIPT INFORMATION
16228: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16229: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16230: p_invoice_lines_rec.invoice_line_id,
16231: 'INVALID RECEIPT INFO',
16232: p_default_last_updated_by,
16232: p_default_last_updated_by,
16233: p_default_last_update_login,
16234: current_calling_sequence)<> TRUE) THEN
16235: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16236: AP_IMPORT_UTILITIES_PKG.Print(
16237: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16238: 'insert_rejections <-'||current_calling_sequence);
16239: END IF;
16240: Raise check_receipt_failure;
16246: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
16247: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
16248: debug_info := '(Check Receipt Info 2) Case d';
16249: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16250: AP_IMPORT_UTILITIES_PKG.Print(
16251: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16252: END IF;
16253:
16254: BEGIN
16261:
16262: EXCEPTION
16263: When Others THEN
16264: -- reject fOR INCONSISTENT RECEIPT INFORMATION
16265: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16266: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16267: p_invoice_lines_rec.invoice_line_id,
16268: 'INCONSISTENT RECEIPT INFO',
16269: p_default_last_updated_by,
16269: p_default_last_updated_by,
16270: p_default_last_update_login,
16271: current_calling_sequence)<> TRUE) THEN
16272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16273: AP_IMPORT_UTILITIES_PKG.Print(
16274: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16275: 'insert_rejections <-'||current_calling_sequence);
16276: END IF;
16277: Raise check_receipt_failure;
16296: IF (p_invoice_lines_rec.receipt_number is not NULL) AND
16297: (p_invoice_lines_rec.rcv_transaction_id is NULL) THEN
16298: debug_info := '(Check Receipt Info 3) Case b';
16299: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16300: AP_IMPORT_UTILITIES_PKG.Print(
16301: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16302: END IF;
16303: BEGIN
16304: SELECT rcv_transaction_id
16307: WHERE receipt_number = p_invoice_lines_rec.receipt_number;
16308: Exception
16309: When no_data_found THEN
16310: --reject fOR INVALID RECEIPT INFORMATION
16311: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16312: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16313: p_invoice_lines_rec.invoice_line_id,
16314: 'INVALID RECEIPT INFO',
16315: p_default_last_updated_by,
16315: p_default_last_updated_by,
16316: p_default_last_update_login,
16317: current_calling_sequence)<> TRUE) THEN
16318: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16319: AP_IMPORT_UTILITIES_PKG.Print(
16320: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16321: 'insert_rejections <-'||current_calling_sequence);
16322: END IF;
16323: Raise check_receipt_failure;
16324: END IF;
16325: p_temp_line_status := 'N';
16326: When too_many_rows THEN
16327: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
16328: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16329: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16330: p_invoice_lines_rec.invoice_line_id,
16331: 'INSUFFICIENT RECEIPT INFO',
16332: p_default_last_updated_by,
16332: p_default_last_updated_by,
16333: p_default_last_update_login,
16334: current_calling_sequence)<> TRUE) THEN
16335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16336: AP_IMPORT_UTILITIES_PKG.Print(
16337: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16338: 'insert_rejections <-'||current_calling_sequence);
16339: END IF;
16340: Raise check_receipt_failure;
16346: ELSIF (p_invoice_lines_rec.receipt_number is NULL) AND
16347: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
16348: debug_info := '(Check Receipt Info 3) Case c';
16349: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16350: AP_IMPORT_UTILITIES_PKG.Print(
16351: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16352: END IF;
16353: BEGIN
16354: SELECT rcv_transaction_id
16357: WHERE rcv_transaction_id = p_invoice_lines_rec.rcv_transaction_id;
16358: Exception
16359: When Others THEN
16360: -- reject fOR INVALID RECEIPT INFORMATION
16361: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16362: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16363: p_invoice_lines_rec.invoice_line_id,
16364: 'INVALID RECEIPT INFO',
16365: p_default_last_updated_by,
16365: p_default_last_updated_by,
16366: p_default_last_update_login,
16367: current_calling_sequence)<> TRUE) THEN
16368: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16369: AP_IMPORT_UTILITIES_PKG.Print(
16370: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16371: 'insert_rejections <-'||current_calling_sequence);
16372: END IF;
16373: Raise check_receipt_failure;
16379: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
16380: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
16381: debug_info := '(Check Receipt Info 3) Case d';
16382: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16383: AP_IMPORT_UTILITIES_PKG.Print(
16384: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16385: END IF;
16386: BEGIN
16387: SELECT rcv_transaction_id
16391: AND receipt_number = p_invoice_lines_rec.receipt_number;
16392: Exception
16393: When Others THEN
16394: -- reject for inconsistent receipt information
16395: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16396: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16397: p_invoice_lines_rec.invoice_line_id,
16398: 'INCONSISTENT RECEIPT INFO',
16399: p_default_last_updated_by,
16399: p_default_last_updated_by,
16400: p_default_last_update_login,
16401: current_calling_sequence)<> TRUE) THEN
16402: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16403: AP_IMPORT_UTILITIES_PKG.Print(
16404: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16405: 'insert_rejections <-'||current_calling_sequence);
16406: END IF;
16407: Raise check_receipt_failure;
16419:
16420: IF (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
16421: debug_info := '(Get the value of rcv_shipment_line_id) ';
16422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16423: AP_IMPORT_UTILITIES_PKG.Print(
16424: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16425: END IF;
16426: BEGIN
16427: SELECT rcv_shipment_line_id
16430: WHERE rcv_transaction_id = p_invoice_lines_rec.rcv_transaction_id;
16431: Exception
16432: When no_data_found THEN
16433: --reject fOR INVALID RECEIPT INFORMATION
16434: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16435: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16436: p_invoice_lines_rec.invoice_line_id,
16437: 'INVALID RECEIPT INFO',
16438: p_default_last_updated_by,
16438: p_default_last_updated_by,
16439: p_default_last_update_login,
16440: current_calling_sequence)<> TRUE) THEN
16441: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16442: AP_IMPORT_UTILITIES_PKG.Print(
16443: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16444: 'insert_rejections <-'||current_calling_sequence);
16445: END IF;
16446: Raise check_receipt_failure;
16447: END IF;
16448: p_temp_line_status := 'N';
16449: When too_many_rows THEN
16450: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
16451: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16452: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16453: p_invoice_lines_rec.invoice_line_id,
16454: 'INSUFFICIENT RECEIPT INFO',
16455: p_default_last_updated_by,
16455: p_default_last_updated_by,
16456: p_default_last_update_login,
16457: current_calling_sequence)<> TRUE) THEN
16458: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16459: AP_IMPORT_UTILITIES_PKG.Print(
16460: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16461: 'insert_rejections <-'||current_calling_sequence);
16462: END IF;
16463: Raise check_receipt_failure;
16475: -- Step 4: Validate the final match flag <> 'Y'
16476: ---------------------------------------------------------------------------
16477: debug_info := '(check receipt info 4) : Final Match flag';
16478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16479: AP_IMPORT_UTILITIES_PKG.Print(
16480: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16481: END IF;
16482:
16483: IF (p_invoice_lines_rec.match_option = 'R') AND
16482:
16483: IF (p_invoice_lines_rec.match_option = 'R') AND
16484: (nvl(p_invoice_lines_rec.final_match_flag,'N') = 'Y' ) THEN
16485: -- reject fOR INVALID FINAL MATCH FLAG
16486: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16487: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16488: p_invoice_lines_rec.invoice_line_id,
16489: 'INVALID FINAL MATCH FLAG',
16490: p_default_last_updated_by,
16490: p_default_last_updated_by,
16491: p_default_last_update_login,
16492: current_calling_sequence)<> TRUE) THEN
16493: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16494: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16495: 'insert_rejections <-'||current_calling_sequence);
16496: END IF;
16497: Raise check_receipt_failure;
16498: END IF;
16507: (p_invoice_lines_rec.unit_of_meas_lookup_code IS NOT NULL) THEN
16508:
16509: debug_info := '(check receipt info 5) : Validate UOM';
16510: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16511: AP_IMPORT_UTILITIES_PKG.Print(
16512: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16513: END IF;
16514: BEGIN
16515: SELECT 'Y'
16520: p_invoice_lines_rec.unit_of_meas_lookup_code;
16521: EXCEPTION
16522: WHEN OTHERS THEN
16523: -- reject for uom does not match receipt
16524: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16525: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16526: p_invoice_lines_rec.invoice_line_id,
16527: 'UOM DOES NOT MATCH RECPT',
16528: p_default_last_updated_by,
16528: p_default_last_updated_by,
16529: p_default_last_update_login,
16530: current_calling_sequence)<> TRUE) THEN
16531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16532: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16533: 'insert_rejections <-'||current_calling_sequence);
16534: END IF;
16535: Raise check_receipt_failure;
16536: END IF;
16545: -- below will not get executed.
16546: ----------------------------------------------------------------------------
16547: debug_info := '(check receipt info 6) : Check prorate flag';
16548: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16549: AP_IMPORT_UTILITIES_PKG.Print(
16550: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16551: END IF;
16552:
16553: IF (p_invoice_lines_rec.line_type_lookup_code IN
16556: (p_invoice_lines_rec.receipt_number is not NULL OR
16557: p_invoice_lines_rec.rcv_transaction_id is not NULL) ) THEN
16558:
16559: -- reject for inconsistent allocation info
16560: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16561: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16562: p_invoice_lines_rec.invoice_line_id,
16563: 'INCONSISTENT ALLOC INFO',
16564: p_default_last_updated_by,
16564: p_default_last_updated_by,
16565: p_default_last_update_login,
16566: current_calling_sequence)<> TRUE) THEN
16567: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16568: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16569: 'insert_rejections <-'||current_calling_sequence);
16570: END IF;
16571: Raise check_receipt_failure;
16572: END IF;
16585: (p_invoice_lines_rec.match_option = 'R') AND
16586: (p_invoice_lines_rec.quantity_invoiced is not NULL) THEN
16587: debug_info := '(Check receipt info 7) : check Quantity billed';
16588: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16589: AP_IMPORT_UTILITIES_PKG.Print(
16590: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16591: END IF;
16592:
16593: BEGIN
16596: FROM rcv_transactions
16597: WHERE transaction_id = p_invoice_lines_rec.rcv_transaction_id;
16598:
16599: IF (l_qty_billed + p_invoice_lines_rec.quantity_invoiced ) < 0 THEN
16600: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16602: p_invoice_lines_rec.invoice_line_id,
16603: 'INVALID QUANTITY',
16604: p_default_last_updated_by,
16607: 'Y',
16608: 'QUANTITY INVOICED',
16609: l_qty_billed + p_invoice_lines_rec.quantity_invoiced )<> TRUE) THEN
16610: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16611: AP_IMPORT_UTILITIES_PKG.Print(
16612: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16613: 'insert_rejections <-'||current_calling_sequence);
16614: END IF;
16615: Raise check_receipt_failure;
16624:
16625: EXCEPTION
16626: When OTHERS THEN
16627: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16628: AP_IMPORT_UTILITIES_PKG.Print(
16629: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16630: END IF;
16631:
16632: IF (SQLCODE < 0) THEN
16630: END IF;
16631:
16632: IF (SQLCODE < 0) THEN
16633: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16634: AP_IMPORT_UTILITIES_PKG.Print(
16635: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
16636: END IF;
16637: END IF;
16638: Return(FALSE);
16694: IF (l_accounting_date IS NULL) AND (p_invoice_rec.gl_date IS NOT NULL) THEN
16695: debug_info := '(Check_line_accounting_date 1) Default '
16696: ||'line_accounting_date from Invoice gl_date';
16697: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16698: AP_IMPORT_UTILITIES_PKG.Print(
16699: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16700: END IF;
16701:
16702: l_accounting_date := p_invoice_rec.gl_date;
16705: THEN
16706: debug_info := '(v_check_line_accounting_date 1) GL Date is Null in '
16707: ||'Interface, Use gl_date from Get Info';
16708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16709: AP_IMPORT_UTILITIES_PKG.Print(
16710: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16711: END IF;
16712: l_accounting_date := p_gl_date_from_get_info;
16713: END IF;
16716: (p_gl_date_from_receipt_flag IN ('I','N')) AND
16717: (p_invoice_rec.invoice_date is NOT NULL)) THEN
16718: debug_info := '(v_check_line_accounting_date 2) GL Date is Invoice Date';
16719: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16720: AP_IMPORT_UTILITIES_PKG.Print(
16721: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16722: END IF;
16723:
16724: /* l_accounting_date := p_invoice_rec.invoice_date; commented for bug#12356854 */
16736: (p_gl_date_from_receipt_flag IN ('I','N')) AND
16737: (p_invoice_rec.invoice_date is NULL)) THEN
16738: debug_info := '(v_check_line_accounting_date 2) GL Date is sysdate';
16739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16740: AP_IMPORT_UTILITIES_PKG.Print(
16741: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16742: END IF;
16743: l_accounting_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
16744: END IF;
16748: ------------------------------------------------------------------------
16749: debug_info := '(v_check_line_accounting_date 3) Check IF gl date is not '
16750: ||'in open period';
16751: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16752: AP_IMPORT_UTILITIES_PKG.Print(
16753: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16754: END IF;
16755:
16756: -- bug 2496185 by isartawi .. cache the code_combination_ids
16769: IF l_ret_code = '1' THEN -- means l_key found in cache
16770: l_period_name := l_values(1).varchar2_1;
16771: l_exception := l_values(1).varchar2_2;
16772: IF l_exception = 'TRUE' THEN
16773: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16774: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16775: p_invoice_lines_rec.invoice_line_id,
16776: 'ACCT DATE NOT IN OPEN PD',
16777: p_default_last_updated_by,
16777: p_default_last_updated_by,
16778: p_default_last_update_login,
16779: current_calling_sequence) <> TRUE) THEN
16780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16781: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16782: 'insert_rejections<-'||current_calling_sequence);
16783: END IF;
16784: RAISE check_accounting_date_failure;
16785: END IF;
16814: l_values);
16815: EXCEPTION
16816: WHEN NO_DATA_FOUND THEN
16817: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16818: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16819: 'Accounting date is not in open period');
16820: END IF;
16821:
16822: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16818: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16819: 'Accounting date is not in open period');
16820: END IF;
16821:
16822: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16823: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16824: p_invoice_lines_rec.invoice_line_id,
16825: 'ACCT DATE NOT IN OPEN PD',
16826: p_default_last_updated_by,
16826: p_default_last_updated_by,
16827: p_default_last_update_login,
16828: current_calling_sequence) <> TRUE) THEN
16829: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16830: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16831: 'insert_rejections<-'||current_calling_sequence);
16832: END IF;
16833: RAISE check_accounting_date_failure;
16834: END IF;
16847: l_values);
16848: END;
16849: END IF; -- IF ret_code is 1
16850: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16851: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16852: '------------------> l_period_name = '|| l_period_name
16853: ||'l_accounting_date = '||to_char(l_accounting_date));
16854: END IF;
16855:
16861: BEGIN
16862: debug_info := '(v_check_line_accounting_date 4) Reject IF the year of '
16863: ||'gl date is beyond encumbrance year';
16864: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16865: AP_IMPORT_UTILITIES_PKG.Print(
16866: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16867: END IF;
16868:
16869: SELECT 'The period is NOT beyond latest encumbrance year'
16882: EXCEPTION
16883: WHEN NO_DATA_FOUND THEN
16884: --
16885: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16886: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16887: 'Accounting date is beyond encumbrance year');
16888: END IF;
16889:
16890: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16886: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16887: 'Accounting date is beyond encumbrance year');
16888: END IF;
16889:
16890: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16891: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16892: p_invoice_lines_rec.invoice_line_id,
16893: 'ACCT DATE BEYOND ENC YEAR',
16894: p_default_last_updated_by,
16894: p_default_last_updated_by,
16895: p_default_last_update_login,
16896: current_calling_sequence) <> TRUE) THEN
16897: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16898: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16899: 'insert_rejections<-'||current_calling_sequence);
16900: END IF;
16901: RAISE check_accounting_date_failure;
16902: END IF;
16919: RETURN (TRUE);
16920: EXCEPTION
16921: WHEN OTHERS THEN
16922: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16923: AP_IMPORT_UTILITIES_PKG.Print(
16924: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16925: END IF;
16926:
16927: IF (SQLCODE < 0) THEN
16925: END IF;
16926:
16927: IF (SQLCODE < 0) THEN
16928: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16929: AP_IMPORT_UTILITIES_PKG.Print(
16930: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
16931: END IF;
16932: END IF;
16933: RETURN(FALSE);
16997: 'p_invoice_lines_rec.expenditure_organization_id:'
16998: ||p_invoice_lines_rec.expenditure_organization_id||'.';
16999:
17000: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17001: AP_IMPORT_UTILITIES_PKG.Print(
17002: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17003: END IF;
17004:
17005: /*Bug#10356162 - Project_id Null check removed */
17014: ---------------------------------------------------------------------
17015: debug_info := '(v_check_line_project_info 1) Check IF line has PA Info'
17016: ||' and other account info as well';
17017: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17018: AP_IMPORT_UTILITIES_PKG.Print(
17019: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17020: END IF;
17021:
17022: IF ( p_invoice_lines_rec.po_number IS NOT NULL OR
17021:
17022: IF ( p_invoice_lines_rec.po_number IS NOT NULL OR
17023: p_invoice_lines_rec.po_header_id IS NOT NULL ) THEN
17024: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17025: AP_IMPORT_UTILITIES_PKG.Print(
17026: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17027: '(v_check_line_project_info 2) Line with additional account'
17028: ||' info:Reject');
17029: END IF;
17028: ||' info:Reject');
17029: END IF;
17030:
17031:
17032: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17033: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17034: p_invoice_lines_rec.invoice_line_id,
17035: 'INCONSISTENT DIST INFO',
17036: p_default_last_updated_by,
17036: p_default_last_updated_by,
17037: p_default_last_update_login,
17038: current_calling_sequence) <> TRUE) THEN
17039: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17040: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17041: 'insert_rejections<-'||current_calling_sequence);
17042: END IF;
17043: RAISE check_project_failure;
17044: END IF;
17068: -- Else reject
17069: --------------------------------------------------------------
17070: IF (p_invoice_lines_rec.expenditure_item_date is NULL) then
17071: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
17072: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17073: '(v_check_line_project_info 2) Get expenditure item date');
17074: END IF;
17075:
17076: p_invoice_lines_rec.expenditure_item_date :=
17092: (p_invoice_lines_rec.expenditure_type IS NULL) OR
17093: (p_invoice_lines_rec.expenditure_item_date IS NULL) OR
17094: (p_invoice_lines_rec.expenditure_organization_id IS NULL)) THEN
17095: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17096: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17097: '(v_check_line_project_info 2) Insufficient PA Info:Reject');
17098: END IF;
17099:
17100: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17096: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17097: '(v_check_line_project_info 2) Insufficient PA Info:Reject');
17098: END IF;
17099:
17100: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17101: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17102: p_invoice_lines_rec.invoice_line_id,
17103: 'INSUFFICIENT PA INFO',
17104: p_default_last_updated_by,
17104: p_default_last_updated_by,
17105: p_default_last_update_login,
17106: current_calling_sequence) <> TRUE) THEN
17107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17108: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17109: 'insert_rejections<-'||current_calling_sequence);
17110: END IF;
17111: RAISE check_project_failure;
17112: END IF;
17122: debug_info := 'AWARD_ID_REQUEST :(v_check_line_award_info 1) Check '
17123: ||'GMS Info ';
17124: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch) THEN
17125: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17126: AP_IMPORT_UTILITIES_PKG.Print(
17127: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
17128: END IF;
17129: END IF;
17130:
17198: l_award_id,
17199: 'AWARD_SET_ID_REQUEST' ) <> TRUE ) THEN
17200: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)
17201: THEN
17202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17203: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
17204: END IF;
17205:
17206: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17203: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
17204: END IF;
17205:
17206: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17207: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17208: p_invoice_lines_rec.invoice_line_id,
17209: 'INSUFFICIENT GMS INFO',
17210: p_default_last_updated_by,
17210: p_default_last_updated_by,
17211: p_default_last_update_login,
17212: current_calling_sequence) <> TRUE) THEN
17213: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17214: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17215: 'insert_rejections<-'||current_calling_sequence);
17216: END IF;
17217: RAISE check_project_failure;
17218: END IF;
17226: -- IF invoice status is Y THEN Flexbuild
17227: ------------------------------------------------------------------------
17228: IF (l_current_invoice_status = 'Y') THEN
17229: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17230: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17231: '(v_check_line_project_info 4) Call pa_flexbuild');
17232: END IF;
17233: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
17234: IF (AP_IMPORT_UTILITIES_PKG.pa_flexbuild(
17230: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17231: '(v_check_line_project_info 4) Call pa_flexbuild');
17232: END IF;
17233: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
17234: IF (AP_IMPORT_UTILITIES_PKG.pa_flexbuild(
17235: p_invoice_rec, -- IN
17236: p_invoice_lines_rec, -- IN OUT NOCOPY
17237: p_accounting_date, -- IN
17238: p_pa_installed, -- IN
17247: p_calling_sequence => current_calling_sequence) <> TRUE) THEN
17248:
17249:
17250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17251: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17252: 'insert_rejections<-'||current_calling_sequence);
17253: END IF;
17254: RAISE check_project_failure;
17255: END IF; -- pa flexbuild
17261: debug_info := 'AWARD_ID_REMOVE :(v_check_line_award_info 1) Check GMS Info ';
17262: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)
17263: THEN
17264: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17265: AP_IMPORT_UTILITIES_PKG.Print(
17266: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17267: END IF;
17268: END IF;
17269:
17338: 'AWARD_SET_ID_REMOVE' ) <> TRUE THEN
17339: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)
17340: THEN
17341: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17342: AP_IMPORT_UTILITIES_PKG.Print(
17343: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17344: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
17345: END IF;
17346: END IF;
17344: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
17345: END IF;
17346: END IF;
17347:
17348: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17349: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17350: p_invoice_lines_rec.invoice_line_id,
17351: 'INSUFFICIENT GMS INFO',
17352: p_default_last_updated_by,
17352: p_default_last_updated_by,
17353: p_default_last_update_login,
17354: current_calling_sequence) <> TRUE) THEN
17355: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17356: AP_IMPORT_UTILITIES_PKG.Print(
17357: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17358: 'insert_rejections<-'||current_calling_sequence);
17359: END IF;
17360: RAISE check_project_failure;
17373: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
17374: IF (l_current_invoice_status = 'Y') THEN
17375: IF (l_pa_default_dist_ccid = -1) THEN
17376: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17377: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17378: '(v_check_line_project_info 4) Create new ccid from concat segs');
17379: END IF;
17380:
17381: -- Create new ccid
17449:
17450: IF (l_validate_res <> 'TRUE') THEN
17451: --Invalid Creation combination
17452: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17453: AP_IMPORT_UTILITIES_PKG.Print(
17454: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17455: '(v_check_line_project_info 4) Invalid ccid:Reject');
17456: END IF;
17457:
17454: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17455: '(v_check_line_project_info 4) Invalid ccid:Reject');
17456: END IF;
17457:
17458: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17459: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17460: p_invoice_lines_rec.invoice_line_id,
17461: 'INVALID PA ACCT',
17462: p_default_last_updated_by,
17462: p_default_last_updated_by,
17463: p_default_last_update_login,
17464: current_calling_sequence) <> TRUE) THEN
17465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17466: AP_IMPORT_UTILITIES_PKG.Print(
17467: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17468: 'insert_rejections<-'||current_calling_sequence);
17469: END IF;
17470: RAISE check_project_failure;
17474: l_dist_code_combination_id := 0;
17475: l_unbuilt_flex := l_pa_concatenated_segments;
17476: Else
17477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17478: AP_IMPORT_UTILITIES_PKG.Print(
17479: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17480: '(v_check_line_project_info 4) Valid ccid created for project');
17481: END IF;
17482:
17489: --
17490: -- show output values (only IF debug_switch = 'Y')
17491: --
17492: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17493: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17494: '------------------> l_dist_code_combination_id= '||
17495: to_char(l_dist_code_combination_id)
17496: ||' l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
17497: ||' l_unbuilt_flex = '||l_unbuilt_flex
17499: END IF;
17500:
17501: Else -- pa default ccid is valid
17502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17503: AP_IMPORT_UTILITIES_PKG.Print(
17504: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17505: '(v_check_line_project_info 5) Valid ccid from PA Flexbuild');
17506: END IF;
17507:
17517:
17518: -- Overlay will be done in check Account info
17519: --
17520: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17521: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17522: '(v_check_line_project_info 6) Set OUT parameter with PA ccid');
17523: END IF;
17524:
17525: p_pa_built_account := l_dist_code_combination_id;
17528: END IF; -- l_current_invoice_status( IF before pa_flexbuild)
17529:
17530: ELSE
17531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17532: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17533: '(v_check_line_project_info) No Project Id');
17534: END IF;
17535: END IF; -- PA Info
17536:
17540:
17541: EXCEPTION
17542: WHEN OTHERS THEN
17543: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17544: AP_IMPORT_UTILITIES_PKG.Print(
17545: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
17546: END IF;
17547:
17548: IF (SQLCODE < 0) THEN
17546: END IF;
17547:
17548: IF (SQLCODE < 0) THEN
17549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17550: AP_IMPORT_UTILITIES_PKG.Print(
17551: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
17552: END IF;
17553: END IF;
17554: RETURN(FALSE);
17602: /* Added debug message for bug 11782001 */
17603: debug_info := 'Before deriving l_dist_code_combination_id is :'||l_dist_code_combination_id;
17604:
17605: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17606: AP_IMPORT_UTILITIES_PKG.Print(
17607: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17608: END IF;
17609: -----------------------------------------------------------
17610: -- Step 1. Initialize account to freight system account if
17614: debug_info := '(v_check_line_account_info 1) '||
17615: 'Check IF item line doesnt have account info';
17616:
17617: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17618: AP_IMPORT_UTILITIES_PKG.Print(
17619: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17620: END IF;
17621:
17622: --Assigning system freight account if no freight account is specified
17635: ---------------------------------------------------------------
17636: IF p_invoice_lines_rec.balancing_segment IS NOT NULL
17637: THEN
17638: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17639: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17640: '(v_check_line_account_info 1.1) '
17641: || 'Check Overlay Balancing Segment if entered');
17642: END IF;
17643:
17647: p_date => p_accounting_date,
17648: p_calling_sequence => current_calling_sequence) <> TRUE )
17649: THEN
17650: -- Raise check_account_failure;
17651: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17652: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17653: p_invoice_lines_rec.invoice_line_id,
17654: 'INVALID OVERLAY BAL SEGMENT',
17655: p_default_last_updated_by,
17656: p_default_last_update_login,
17657: current_calling_sequence) <> TRUE)
17658: THEN
17659: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17660: AP_IMPORT_UTILITIES_PKG.Print(
17661: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17662: 'insert_rejections<-'||current_calling_sequence);
17663: END IF;
17664: RAISE check_account_failure;
17674: -------------------------------------------------------------------------
17675: IF (l_dist_code_combination_id is NOT NULL and l_dist_code_combination_id <> -1) THEN
17676:
17677: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17678: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17679: '(v_check_line_account_info 1.2) '
17680: || 'Check distribution code combination id if entered');
17681: END IF;
17682:
17708: FND_GLOBAL.RESP_APPL_ID,
17709: FND_GLOBAL.RESP_ID,
17710: FND_GLOBAL.USER_ID)<>TRUE) THEN
17711: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
17712: AP_IMPORT_UTILITIES_PKG.Print(
17713: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17714: '(v_check_line_account_info 1.2) Invalid dist_code_combination_id');
17715: END IF;
17716:
17713: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17714: '(v_check_line_account_info 1.2) Invalid dist_code_combination_id');
17715: END IF;
17716:
17717: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17718: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17719: p_invoice_lines_rec.invoice_line_id,
17720: 'INVALID DISTRIBUTION ACCT',
17721: p_default_last_updated_by,
17721: p_default_last_updated_by,
17722: p_default_last_update_login,
17723: current_calling_sequence) <> TRUE) THEN
17724: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17725: AP_IMPORT_UTILITIES_PKG.Print(
17726: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17727: 'insert_rejections<-'||
17728: current_calling_sequence);
17729: END IF;
17732: l_current_invoice_status := 'N';
17733: END IF; -- validate segments
17734: ELSE -- Validate ccid
17735: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17736: AP_IMPORT_UTILITIES_PKG.Print(
17737: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17738: '((v_check_line_account_info 1.2) - '||
17739: ' Invalid Code Combination id');
17740: END IF;
17737: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17738: '((v_check_line_account_info 1.2) - '||
17739: ' Invalid Code Combination id');
17740: END IF;
17741: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17742: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17743: p_invoice_lines_rec.invoice_line_id,
17744: 'INVALID DISTRIBUTION ACCT',
17745: p_default_last_updated_by,
17745: p_default_last_updated_by,
17746: p_default_last_update_login,
17747: current_calling_sequence) <> TRUE) THEN
17748: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17749: AP_IMPORT_UTILITIES_PKG.Print(
17750: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17751: 'insert_rejections<-'||
17752: current_calling_sequence);
17753: END IF;
17794: (p_invoice_lines_rec.project_id IS NOT NULL AND
17795: AP_IMPORT_INVOICES_PKG.g_pa_allows_overrides = 'Y'))) THEN
17796:
17797: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17798: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17799: '(v_check_line_account_info 2) '
17800: || 'Check Overlay Segments for line');
17801: END IF;
17802:
17819: NULL,
17820: p_accounting_date ) <> TRUE) THEN --7531219
17821:
17822: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17823: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17824: '(v_check_line_account_info 2) '||
17825: 'Overlay_Segments<-'||current_calling_sequence);
17826: END IF;
17827: -- Bug 6124714
17825: 'Overlay_Segments<-'||current_calling_sequence);
17826: END IF;
17827: -- Bug 6124714
17828: -- Raise check_account_failure;
17829: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17830: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17831: p_invoice_lines_rec.invoice_line_id,
17832: 'INVALID DISTRIBUTION ACCT',
17833: p_default_last_updated_by,
17833: p_default_last_updated_by,
17834: p_default_last_update_login,
17835: current_calling_sequence) <> TRUE) THEN
17836: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17837: AP_IMPORT_UTILITIES_PKG.Print(
17838: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17839: 'insert_rejections<-'||
17840: current_calling_sequence);
17841: END IF;
17843: END IF; -- insert rejections
17844: ELSE -- overlay segs
17845:
17846: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17847: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17848: '------------------> l_unbuilt_flex = '||
17849: l_unbuilt_flex||'l_reason_unbuilt_flex = '||
17850: l_reason_unbuilt_flex||'l_overlayed_ccid = '||
17851: to_char(l_overlayed_ccid));
17853:
17854: IF (l_overlayed_ccid = -1 AND
17855: l_dist_code_combination_id IS NOT NULL) THEN
17856: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17857: AP_IMPORT_UTILITIES_PKG.Print(
17858: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17859: '(v_check_line_account_info 2)' ||
17860: ' Invalid dist_code_combination_id overlay');
17861: END IF;
17858: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17859: '(v_check_line_account_info 2)' ||
17860: ' Invalid dist_code_combination_id overlay');
17861: END IF;
17862: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17863: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17864: p_invoice_lines_rec.invoice_line_id,
17865: 'INVALID ACCT OVERLAY',
17866: p_default_last_updated_by,
17866: p_default_last_updated_by,
17867: p_default_last_update_login,
17868: current_calling_sequence) <> TRUE) THEN
17869: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17870: AP_IMPORT_UTILITIES_PKG.Print(
17871: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17872: 'insert_rejections<-'
17873: || current_calling_sequence);
17874: END IF;
17889: <= p_accounting_date;
17890: EXCEPTION
17891: WHEN NO_DATA_FOUND THEN
17892: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17893: AP_IMPORT_UTILITIES_PKG.Print(
17894: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17895: '(v_check_line_account_info 4) '||
17896: ' Invalid overlayed ccid ');
17897: END IF;
17895: '(v_check_line_account_info 4) '||
17896: ' Invalid overlayed ccid ');
17897: END IF;
17898:
17899: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17900: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17901: p_invoice_lines_rec.invoice_line_id,
17902: 'INVALID DISTRIBUTION ACCT',
17903: p_default_last_updated_by,
17903: p_default_last_updated_by,
17904: p_default_last_update_login,
17905: current_calling_sequence) <> TRUE) THEN
17906: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17907: AP_IMPORT_UTILITIES_PKG.Print(
17908: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17909: 'insert_rejections<-'
17910: ||current_calling_sequence);
17911: END IF;
17982: END IF; -- l_ret_code='1'
17983:
17984: -- Bug 5533471
17985: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17986: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17987: 'l_dist_code_combination_id: '|| l_dist_code_combination_id
17988: ||', l_validate_res: '||l_validate_res);
17989: END IF;
17990:
17989: END IF;
17990:
17991: IF (l_validate_res <> 'TRUE') THEN
17992: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17993: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17994: '(v_check_line_account_info 2) '||
17995: 'Invalid dist_code_concatenated ');
17996: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17997: '(v_check_line_account_info 2) '||
17992: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17993: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17994: '(v_check_line_account_info 2) '||
17995: 'Invalid dist_code_concatenated ');
17996: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17997: '(v_check_line_account_info 2) '||
17998: 'Error create account infomation : '||
17999: FND_FLEX_KEYVAL.error_message);
18000: END IF;
17998: 'Error create account infomation : '||
17999: FND_FLEX_KEYVAL.error_message);
18000: END IF;
18001:
18002: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18003: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18004: p_invoice_lines_rec.invoice_line_id,
18005: 'INVALID DISTRIBUTION ACCT',
18006: p_default_last_updated_by,
18006: p_default_last_updated_by,
18007: p_default_last_update_login,
18008: current_calling_sequence) <> TRUE) THEN
18009: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18010: AP_IMPORT_UTILITIES_PKG.Print(
18011: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18012: 'insert_rejections<-'||
18013: current_calling_sequence);
18014: END IF;
18022: ((p_invoice_lines_rec.balancing_segment IS NOT NULL) OR
18023: (p_invoice_lines_rec.cost_center_segment IS NOT NULL) OR
18024: (p_invoice_lines_rec.account_segment IS NOT NULL))) THEN
18025: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18026: AP_IMPORT_UTILITIES_PKG.Print(
18027: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18028: '(v_check_line_account_info 2) '||
18029: 'Check Overlay Segments for dist_code_concatenated ');
18030: END IF;
18047: current_calling_sequence,
18048: Null,
18049: p_accounting_date ) <> TRUE) THEN --7531219
18050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18051: AP_IMPORT_UTILITIES_PKG.Print(
18052: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18053: '(v_check_line_account_info 2) '||
18054: ' Overlay_Segments<-'||current_calling_sequence);
18055: END IF;
18054: ' Overlay_Segments<-'||current_calling_sequence);
18055: END IF;
18056: -- Bug 6124714
18057: -- Raise check_account_failure;
18058: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18059: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18060: p_invoice_lines_rec.invoice_line_id,
18061: 'INVALID DISTRIBUTION ACCT',
18062: p_default_last_updated_by,
18062: p_default_last_updated_by,
18063: p_default_last_update_login,
18064: current_calling_sequence) <> TRUE) THEN
18065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18066: AP_IMPORT_UTILITIES_PKG.Print(
18067: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18068: 'insert_rejections<-'||
18069: current_calling_sequence);
18070: END IF;
18072: END IF; -- insert rejections
18073:
18074: ELSE -- overlay segs
18075: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18076: AP_IMPORT_UTILITIES_PKG.Print(
18077: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18078: '-----------------> l_unbuilt_flex = '||
18079: l_unbuilt_flex||' l_reason_unbuilt_flex = '||
18080: l_reason_unbuilt_flex||'l_overlayed_ccid: '||
18082: END IF;
18083:
18084: IF (l_overlayed_ccid = -1) THEN
18085: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18086: AP_IMPORT_UTILITIES_PKG.Print(
18087: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18088: '(v_check_line_account_info 4) '||
18089: 'Invalid dist_code_combination_id overlay');
18090: END IF;
18088: '(v_check_line_account_info 4) '||
18089: 'Invalid dist_code_combination_id overlay');
18090: END IF;
18091:
18092: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18093: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18094: p_invoice_lines_rec.invoice_line_id,
18095: 'INVALID ACCT OVERLAY',
18096: p_default_last_updated_by,
18096: p_default_last_updated_by,
18097: p_default_last_update_login,
18098: current_calling_sequence) <> TRUE) THEN
18099: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18100: AP_IMPORT_UTILITIES_PKG.Print(
18101: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18102: 'insert_rejections<-'||
18103: current_calling_sequence);
18104: END IF;
18112: ELSIF ((l_current_invoice_status <> 'N')
18113: AND (l_dist_code_combination_id = -1)) THEN
18114:
18115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18116: AP_IMPORT_UTILITIES_PKG.Print(
18117: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18118: '(v_check_line_account_info 4.1) '||
18119: 'Invalid dist_code_combination_id overlay');
18120: END IF;
18118: '(v_check_line_account_info 4.1) '||
18119: 'Invalid dist_code_combination_id overlay');
18120: END IF;
18121:
18122: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18123: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18124: p_invoice_lines_rec.invoice_line_id,
18125: 'INVALID ACCT OVERLAY',
18126: p_default_last_updated_by,
18126: p_default_last_updated_by,
18127: p_default_last_update_login,
18128: current_calling_sequence) <> TRUE) THEN
18129: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18130: AP_IMPORT_UTILITIES_PKG.Print(
18131: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18132: 'insert_rejections<-'||
18133: current_calling_sequence);
18134: END IF;
18170: (p_invoice_lines_rec.po_number IS NOT NULL)) AND
18171: ((p_invoice_lines_rec.distribution_set_id is NOT NULL) OR
18172: (p_invoice_lines_rec.distribution_set_name is NOT NULL))) ) THEN
18173: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18174: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18175: '(v_check_line_account_info 3) '||
18176: 'Inconsistent dist Info ');
18177: END IF;
18178:
18175: '(v_check_line_account_info 3) '||
18176: 'Inconsistent dist Info ');
18177: END IF;
18178:
18179: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18180: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18181: p_invoice_lines_rec.invoice_line_id,
18182: 'INCONSISTENT DIST INFO',
18183: p_default_last_updated_by,
18183: p_default_last_updated_by,
18184: p_default_last_update_login,
18185: current_calling_sequence) <> TRUE) THEN
18186: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18187: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18188: 'insert_rejections<-'||
18189: current_calling_sequence);
18190: END IF;
18191: RAISE check_account_failure;
18205: l_dist_code_combination_id <> -1) OR
18206: (l_overlayed_ccid IS NOT NULL AND l_overlayed_ccid <> -1)) THEN
18207: debug_info := '(v_check_line_account_info 4) Inside parent validation';
18208: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18209: AP_IMPORT_UTILITIES_PKG.Print(
18210: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18211: END IF;
18212: IF (l_overlayed_ccid IS NULL OR l_overlayed_ccid = -1) THEN
18213: l_overlayed_ccid := l_dist_code_combination_id;
18238: FND_GLOBAL.RESP_APPL_ID,
18239: FND_GLOBAL.RESP_ID,
18240: FND_GLOBAL.USER_ID)<>TRUE) THEN
18241: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18242: AP_IMPORT_UTILITIES_PKG.Print(
18243: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18244: '((v_check_line_account_info 4) - '||
18245: ' Invalid Code Combination id');
18246: END IF;
18243: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18244: '((v_check_line_account_info 4) - '||
18245: ' Invalid Code Combination id');
18246: END IF;
18247: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18248: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18249: p_invoice_lines_rec.invoice_line_id,
18250: 'INVALID DISTRIBUTION ACCT',
18251: p_default_last_updated_by,
18251: p_default_last_updated_by,
18252: p_default_last_update_login,
18253: current_calling_sequence) <> TRUE) THEN
18254: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18255: AP_IMPORT_UTILITIES_PKG.Print(
18256: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18257: 'insert_rejections<-'||
18258: current_calling_sequence);
18259: END IF;
18262: l_current_invoice_status := 'N';
18263: END IF; -- validate segments
18264: ELSE -- Validate ccid
18265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18266: AP_IMPORT_UTILITIES_PKG.Print(
18267: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18268: '((v_check_line_account_info 4) - '||
18269: ' Invalid Code Combination id');
18270: END IF;
18267: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18268: '((v_check_line_account_info 4) - '||
18269: ' Invalid Code Combination id');
18270: END IF;
18271: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18272: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18273: p_invoice_lines_rec.invoice_line_id,
18274: 'INVALID DISTRIBUTION ACCT',
18275: p_default_last_updated_by,
18275: p_default_last_updated_by,
18276: p_default_last_update_login,
18277: current_calling_sequence) <> TRUE) THEN
18278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18279: AP_IMPORT_UTILITIES_PKG.Print(
18280: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18281: 'insert_rejections<-'||
18282: current_calling_sequence);
18283: END IF;
18295:
18296: EXCEPTION
18297: WHEN OTHERS THEN
18298: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18299: AP_IMPORT_UTILITIES_PKG.Print(
18300: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18301: END IF;
18302:
18303: IF (SQLCODE < 0) THEN
18301: END IF;
18302:
18303: IF (SQLCODE < 0) THEN
18304: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18305: AP_IMPORT_UTILITIES_PKG.Print(
18306: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
18307: END IF;
18308: END IF;
18309: RETURN(FALSE);
18355: p_invoice_lines_rec.def_acctg_number_of_periods IS NOT NULL OR
18356: p_invoice_lines_rec.def_acctg_period_type IS NOT NULL))) THEN
18357: debug_info := '(Check_deferred_accounting 1)Validate appropriate def data';
18358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18360: debug_info);
18361: END IF;
18362:
18363: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18360: debug_info);
18361: END IF;
18362:
18363: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18364: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18365: p_invoice_lines_rec.invoice_line_id,
18366: 'INVALID DEFERRED FLAG',
18367: p_default_last_updated_by,
18367: p_default_last_updated_by,
18368: p_default_last_update_login,
18369: current_calling_sequence) <> TRUE) THEN
18370: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18371: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18372: 'insert_rejections<-'||current_calling_sequence);
18373: END IF;
18374: RAISE check_defer_acctg_failure;
18375: END IF;
18385: -----------------------------------------------------------------------------
18386: IF (nvl(p_invoice_lines_rec.deferred_acctg_flag, 'N') = 'Y') then
18387: debug_info := '(Check_deferred_accounting 2) Validate start date';
18388: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18389: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18390: debug_info);
18391: END IF;
18392:
18393: IF (p_invoice_lines_rec.def_acctg_start_date IS NULL OR
18393: IF (p_invoice_lines_rec.def_acctg_start_date IS NULL OR
18394: p_invoice_lines_rec.def_acctg_end_date IS NULL) THEN
18395: -- Bug 15835723 (p_invoice_lines_rec.def_acctg_number_of_periods IS NULL AND
18396: -- Bug 15835723 p_invoice_lines_rec.def_acctg_end_date IS NULL)) THEN
18397: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18398: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18399: p_invoice_lines_rec.invoice_line_id,
18400: 'INCOMPLETE DEF ACCTG INFO',
18401: p_default_last_updated_by,
18401: p_default_last_updated_by,
18402: p_default_last_update_login,
18403: current_calling_sequence) <> TRUE) THEN
18404: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18405: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18406: 'insert_rejections<-'||current_calling_sequence);
18407: END IF;
18408: RAISE check_defer_acctg_failure;
18409: END IF;
18428: AND NVL(adjustment_period_flag, 'N') = 'N';
18429:
18430: IF (l_period_name <> p_invoice_lines_rec.period_name) then
18431: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18432: AP_IMPORT_UTILITIES_PKG.Print(
18433: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18434: 'Def Acctg Start Date is not is same period as line');
18435: END IF;
18436:
18433: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18434: 'Def Acctg Start Date is not is same period as line');
18435: END IF;
18436:
18437: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18438: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18439: p_invoice_lines_rec.invoice_line_id,
18440: 'INVALID DEF START DATE',
18441: p_default_last_updated_by,
18441: p_default_last_updated_by,
18442: p_default_last_update_login,
18443: current_calling_sequence) <> TRUE) THEN
18444: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18445: AP_IMPORT_UTILITIES_PKG.Print(
18446: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18447: 'insert_rejections<-'||current_calling_sequence);
18448: END IF;
18449: RAISE check_defer_acctg_failure;
18456: */ -- Bug 15835723
18457:
18458: IF (l_period_name IS NULL) THEN -- Bug 15835723
18459: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18460: AP_IMPORT_UTILITIES_PKG.Print(
18461: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18462: 'Def Acctg Start Date is not in open period');
18463: END IF;
18464:
18461: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18462: 'Def Acctg Start Date is not in open period');
18463: END IF;
18464:
18465: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18466: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18467: p_invoice_lines_rec.invoice_line_id,
18468: 'INVALID DEF START DATE',
18469: p_default_last_updated_by,
18469: p_default_last_updated_by,
18470: p_default_last_update_login,
18471: current_calling_sequence) <> TRUE) THEN
18472: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18473: AP_IMPORT_UTILITIES_PKG.Print(
18474: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18475: 'insert_rejections<-'||current_calling_sequence);
18476: END IF;
18477: RAISE check_defer_acctg_failure;
18491: p_invoice_lines_rec.def_acctg_start_date is not null AND
18492: p_invoice_lines_rec.def_acctg_end_date is not null) then
18493: debug_info := '(Check_deferred_accounting 3) Validate end date';
18494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18495: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18496: debug_info);
18497: END IF;
18498:
18499: -- Bug 15835723
18506: /* EXCEPTION
18507: WHEN NO_DATA_FOUND then*/
18508: IF (l_period_name IS NULL) THEN
18509: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18510: AP_IMPORT_UTILITIES_PKG.Print(
18511: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18512: 'Def Acctg End Date is not in open period');
18513: END IF;
18514:
18511: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18512: 'Def Acctg End Date is not in open period');
18513: END IF;
18514:
18515: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18516: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18517: p_invoice_lines_rec.invoice_line_id,
18518: 'INVALID DEF END DATE',
18519: p_default_last_updated_by,
18519: p_default_last_updated_by,
18520: p_default_last_update_login,
18521: current_calling_sequence) <> TRUE) THEN
18522: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18523: AP_IMPORT_UTILITIES_PKG.Print(
18524: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18525: 'insert_rejections<-'||current_calling_sequence);
18526: END IF;
18527: RAISE check_defer_acctg_failure;
18532: -- Bug 15835723
18533:
18534: IF (trunc(p_invoice_lines_rec.def_acctg_start_date) >
18535: trunc(p_invoice_lines_rec.def_acctg_end_date)) then
18536: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18537: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18538: p_invoice_lines_rec.invoice_line_id,
18539: 'INVALID DEF END DATE',
18540: p_default_last_updated_by,
18540: p_default_last_updated_by,
18541: p_default_last_update_login,
18542: current_calling_sequence) <> TRUE) THEN
18543: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18544: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18545: 'insert_rejections<-'||current_calling_sequence);
18546: END IF;
18547: RAISE check_defer_acctg_failure;
18548: END IF;
18560: -- Bug 15835723
18561: debug_info := '(Check_deferred_accounting 4) Make number of periods NULL';
18562: --debug_info := '(Check_deferred_accounting 4) Validate number of periods';
18563: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18564: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18565: debug_info);
18566: END IF;
18567:
18568: -- Bug 15835723
18572: IF (p_invoice_lines_rec.def_acctg_number_of_periods is NULL OR
18573: p_invoice_lines_rec.def_acctg_number_of_periods < 0 OR
18574: floor(p_invoice_lines_rec.def_acctg_number_of_periods) <>
18575: ceil(p_invoice_lines_rec.def_acctg_number_of_periods)) THEN
18576: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18577: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18578: p_invoice_lines_rec.invoice_line_id,
18579: 'INVALID DEF NUM OF PER',
18580: p_default_last_updated_by,
18580: p_default_last_updated_by,
18581: p_default_last_update_login,
18582: current_calling_sequence) <> TRUE) THEN
18583: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18584: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18585: 'insert_rejections<-'||current_calling_sequence);
18586: END IF;
18587: RAISE check_defer_acctg_failure;
18588: END IF;
18598: AND lookup_code = p_invoice_lines_rec.def_acctg_period_type;
18599:
18600: EXCEPTION
18601: When NO_DATA_FOUND THEN
18602: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18603: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18604: p_invoice_lines_rec.invoice_line_id,
18605: 'INVALID DEF PER TYPE',
18606: p_default_last_updated_by,
18606: p_default_last_updated_by,
18607: p_default_last_update_login,
18608: current_calling_sequence) <> TRUE) THEN
18609: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18610: AP_IMPORT_UTILITIES_PKG.Print(
18611: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18612: 'insert_rejections<-'||current_calling_sequence);
18613: END IF;
18614: RAISE check_defer_acctg_failure;
18631: -- Bug 15835723
18632: debug_info := '(Check_deferred_accounting 5) Make period type NULL';
18633: --debug_info := '(Check_deferred_accounting 5) Validate period type';
18634: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18635: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18636: debug_info);
18637: End if;
18638:
18639: -- Bug 15835723
18646: ** OR (p_invoice_lines_rec.def_acctg_period_type IS NOT NULL AND
18647: p_invoice_lines_rec.def_acctg_end_date IS NOT NULL)
18648: **
18649: ) THEN
18650: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18651: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18652: p_invoice_lines_rec.invoice_line_id,
18653: 'INVALID DEF PER TYPE',
18654: p_default_last_updated_by,
18654: p_default_last_updated_by,
18655: p_default_last_update_login,
18656: current_calling_sequence) <> TRUE) THEN
18657: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18658: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18659: 'insert_rejections<-'||current_calling_sequence);
18660: END IF;
18661: RAISE check_defer_acctg_failure;
18662: END IF;
18699:
18700: EXCEPTION
18701: WHEN OTHERS THEN
18702: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18703: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18704: debug_info);
18705: END IF;
18706:
18707: IF (SQLCODE < 0) then
18705: END IF;
18706:
18707: IF (SQLCODE < 0) then
18708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18709: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18710: SQLERRM);
18711: END IF;
18712: END IF;
18713: RETURN(FALSE);
18825: ------------------------------------------------------------------------
18826: debug_info := '(Check Line Dist Set 1) Validate Distribution Set Id';
18827: ------------------------------------------------------------------------
18828: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18829: AP_IMPORT_UTILITIES_PKG.Print(
18830: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18831: debug_info);
18832: END IF;
18833:
18849: END IF;
18850:
18851: EXCEPTION
18852: WHEN no_data_found THEN
18853: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18854: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18855: p_invoice_lines_rec.invoice_line_id,
18856: 'INVALID DISTRIBUTION SET',
18857: p_default_last_updated_by,
18857: p_default_last_updated_by,
18858: p_default_last_update_login,
18859: current_calling_sequence) <> TRUE) THEN
18860: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18861: AP_IMPORT_UTILITIES_PKG.Print(
18862: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18863: 'insert_rejections<- '||current_calling_sequence);
18864: END IF;
18865: RAISE dist_set_check_failure;
18880: -----------------------------------------------------------------------
18881: debug_info := '(Check Line Dist Set 2) Check for INCONSISTENT DIST SET';
18882: -----------------------------------------------------------------------
18883: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18884: AP_IMPORT_UTILITIES_PKG.Print(
18885: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18886: debug_info);
18887: End if;
18888:
18885: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18886: debug_info);
18887: End if;
18888:
18889: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18890: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18891: p_invoice_lines_rec.invoice_line_id,
18892: 'INCONSISTENT DIST SET',
18893: p_default_last_updated_by,
18893: p_default_last_updated_by,
18894: p_default_last_update_login,
18895: current_calling_sequence) <> TRUE) THEN
18896: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18897: AP_IMPORT_UTILITIES_PKG.Print(
18898: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18899: 'insert_rejections<-' ||current_calling_sequence);
18900: END IF;
18901: RAISE dist_set_check_failure;
18910: ----------------------------------------------------------------------
18911: debug_info := '(Check Line Dist Set 3.1) Check for inactive DIST SET';
18912: ----------------------------------------------------------------------
18913: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18914: AP_IMPORT_UTILITIES_PKG.Print(
18915: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18916: debug_info);
18917: END IF;
18918:
18922: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18923: nvl(trunc(l_inactive_date_per_name),
18924: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN
18925:
18926: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18927: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18928: p_invoice_lines_rec.invoice_line_id,
18929: 'INACTIVE DISTRIBUTION SET',
18930: p_default_last_updated_by,
18930: p_default_last_updated_by,
18931: p_default_last_update_login,
18932: current_calling_sequence) <> TRUE) THEN
18933: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18934: AP_IMPORT_UTILITIES_PKG.Print(
18935: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18936: 'insert_rejections<- '||current_calling_sequence);
18937: END IF;
18938: RAISE dist_set_check_failure;
18946: IF ((l_dist_set_id is Null) AND
18947: (l_dist_set_id_per_name is Not Null)) THEN
18948:
18949: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18950: AP_IMPORT_UTILITIES_PKG.Print(
18951: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18952: END IF;
18953: l_dist_set_id := l_dist_set_id_per_name;
18954: END IF;
18967: debug_info := '(v_check_line_dist_set 4.1) Get all ' ||
18968: 'the information in the distribution sets';
18969: --------------------------------------------------------------------
18970: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18971: AP_IMPORT_UTILITIES_PKG.Print(
18972: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18973: END IF;
18974: l_dset_lines_tab.DELETE;
18975: OPEN dist_set_lines;
18981: debug_info := '(v_check_line_dist_set 4.2) Loop through read '||
18982: 'dset lines and validate';
18983: ------------------------------------------------------------------
18984: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18985: AP_IMPORT_UTILITIES_PKG.Print(
18986: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18987: END IF;
18988:
18989: FOR i IN l_dset_lines_tab.first..l_dset_lines_tab.last
18993: debug_info := '(v_check_line_dist_set 4.2.a) Get expenditure '||
18994: 'item date if null and dist set line will be project related';
18995: ----------------------------------------------------------------
18996: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18997: AP_IMPORT_UTILITIES_PKG.Print(
18998: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18999: END IF;
19000:
19001: IF (p_invoice_lines_rec.expenditure_item_date IS NULL AND
19022: debug_info := '(v_check_line_dist_set 4.2.b) Populate amount '||
19023: 'and base amount for the distribution into PL/SQL table';
19024: -----------------------------------------------------------------
19025: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19026: AP_IMPORT_UTILITIES_PKG.Print(
19027: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19028: END IF;
19029: IF (l_total_percent_distribution <> 100) THEN
19030: l_dset_lines_tab(i).amount := 0;
19061: debug_info := '(v_check_line_dist_set 4.2.c) Populate project '||
19062: 'info if either dist set line has it or invoice line has it';
19063: -------------------------------------------------------------------
19064: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19065: AP_IMPORT_UTILITIES_PKG.Print(
19066: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19067: END IF;
19068:
19069: -- If the distribution set line does not contain project
19127: debug_info := '(v_check_line_dist_set 4.2.d) Populate/validate '||
19128: 'award information';
19129: -----------------------------------------------------------------
19130: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19131: AP_IMPORT_UTILITIES_PKG.Print(
19132: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19133: END IF;
19134: --
19135: -- Default award id from line if award id is not populated
19157:
19158: debug_info := '(v_check_line_dist_set 4.2.d.1) - ' ||
19159: 'Call GMS API to validate award info->temp award dist';
19160: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19161: AP_IMPORT_UTILITIES_PKG.Print(
19162: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19163: END IF;
19164:
19165: ----------------------------------------------------------------
19166: debug_info := '(v_check_line_dist_set 4.2.d.1) - ' ||
19167: 'Get award id from award set from GMS' ;
19168: ----------------------------------------------------------------
19169: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19170: AP_IMPORT_UTILITIES_PKG.Print(
19171: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19172: END IF;
19173: -- Get the value of award_id from GMS API
19174: -- Note that the award in the distribution set line or interface
19189: 'Call GMS API - validate award -l_award_id->' ||
19190: to_char(l_award_id) ;
19191: ---------------------------------------------------------------------
19192: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19193: AP_IMPORT_UTILITIES_PKG.Print(
19194: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19195: END IF;
19196:
19197: /*Bug#10235692 - passing 'APTXNIMP' to p_calling_sequence */
19281: debug_info := '(v_check_line_dist_set 4.2.d.3) - ' ||
19282: 'After Call GMS API - Invalid GMS Info:Reject';
19283: --------------------------------------------------------------
19284: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19285: AP_IMPORT_UTILITIES_PKG.Print(
19286: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19287: END IF;
19288:
19289: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
19285: AP_IMPORT_UTILITIES_PKG.Print(
19286: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19287: END IF;
19288:
19289: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
19290: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19291: p_invoice_lines_rec.invoice_line_id,
19292: 'INSUFFICIENT GMS INFO',
19293: p_default_last_updated_by,
19303: debug_info := '(v_check_line_dist_set 4.2.e) - ' ||
19304: 'Validate project information';
19305: -----------------------------------------------------------
19306: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19307: AP_IMPORT_UTILITIES_PKG.Print(
19308: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19309: END IF;
19310: IF (l_dset_lines_tab(i).project_id is not null AND
19311: l_current_invoice_status = 'Y') THEN
19374: ||'PA_TRANSACTIONS_PUB.VALIDATE_TRANSACTION Fails'
19375: ||'->Insert Rejection';
19376: --------------------------------------------------------------
19377: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19378: AP_IMPORT_UTILITIES_PKG.Print(
19379: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19380: END IF;
19381:
19382: -- Bug 5214592 . Added the debug message.
19381:
19382: -- Bug 5214592 . Added the debug message.
19383: debug_info := SUBSTR(l_msg_data,1,80);
19384: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19385: AP_IMPORT_UTILITIES_PKG.Print(
19386: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19387: END IF;
19388:
19389:
19386: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19387: END IF;
19388:
19389:
19390: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19391: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19392: p_invoice_lines_rec.invoice_line_id,
19393: 'PA FLEXBUILD FAILED',
19394: p_default_last_updated_by,
19409: debug_info := '(v_check_line_dist_set 4.2.f) - ' ||
19410: 'validate account';
19411: -----------------------------------------------------------------
19412: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19413: AP_IMPORT_UTILITIES_PKG.Print(
19414: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19415: END IF;
19416:
19417: IF ((l_dset_lines_tab(i).project_id IS NULL AND
19437: debug_info := '(v_check_line_dist_set 4.2.f.1) - ' ||
19438: 'validate account from dist set line - no overlay';
19439: -------------------------------------------------------------
19440: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19441: AP_IMPORT_UTILITIES_PKG.Print(
19442: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19443: END IF;
19444:
19445: IF ( NOT (AP_UTILITIES_PKG.IS_CCID_VALID(
19447: p_chart_of_accounts_id,
19448: nvl(p_invoice_lines_rec.accounting_date,
19449: p_gl_date_from_get_info),
19450: current_calling_sequence))) THEN
19451: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19452: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19453: p_invoice_lines_rec.invoice_line_id,
19454: 'INVALID DISTRIBUTION ACCT',
19455: p_default_last_updated_by,
19492: debug_info := '(v_check_line_dist_set 4.2.f.2) - ' ||
19493: 'overlay dist set line account with line overlay data';
19494: -----------------------------------------------------------
19495: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19496: AP_IMPORT_UTILITIES_PKG.Print(
19497: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19498: END IF;
19499: IF ( NOT (AP_UTILITIES_PKG.OVERLAY_SEGMENTS (
19500: p_invoice_lines_rec.balancing_segment,
19519: '-> l_dist_ccid=' ||
19520: to_char(l_overlayed_ccid);
19521: --------------------------------------------------------
19522: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19523: AP_IMPORT_UTILITIES_PKG.Print(
19524: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19525: END IF;
19526: RAISE dist_set_check_failure;
19527: ELSE
19529: ----------------------------------------------------------
19530: -- debug_info := 'Overlay return -1';
19531: ----------------------------------------------------------
19532: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19533: AP_IMPORT_UTILITIES_PKG.Print(
19534: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19535: END IF;
19536:
19537: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19533: AP_IMPORT_UTILITIES_PKG.Print(
19534: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19535: END IF;
19536:
19537: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19538: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19539: p_invoice_lines_rec.invoice_line_id,
19540: 'INVALID ACCT OVERLAY',
19541: p_default_last_updated_by,
19541: p_default_last_updated_by,
19542: p_default_last_update_login,
19543: current_calling_sequence) <> TRUE) THEN
19544: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19545: AP_IMPORT_UTILITIES_PKG.Print(
19546: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19547: 'insert_rejections<-'||current_calling_sequence);
19548: END IF;
19549: RAISE dist_set_check_failure;
19571: 'AWARD_ID_REMOVE: Check GMS Info ';
19572: -------------------------------------------------------------------
19573: IF (l_current_invoice_status = 'Y' AND l_award_id is not null) THEN
19574: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19575: AP_IMPORT_UTILITIES_PKG.Print(
19576: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19577: END IF;
19578:
19579: GMS_AP_API.validate_transaction
19593: debug_info := '(v_check_line_dist_set 4.2.d.3) - ' ||
19594: 'After Call GMS API - Invalid GMS Info:Reject';
19595: --------------------------------------------------------------
19596: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19597: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19598: END IF;
19599:
19600: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
19601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19596: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19597: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19598: END IF;
19599:
19600: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
19601: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19602: p_invoice_lines_rec.invoice_line_id,
19603: 'INSUFFICIENT GMS INFO',
19604: p_default_last_updated_by,
19724: || 'PA_TRANSACTIONS_PUB.VALIDATE_TRANSACTION Fails'
19725: || 'for rounding ->Insert Rejection';
19726: -----------------------------------------------------------------
19727: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
19728: AP_IMPORT_UTILITIES_PKG.Print(
19729: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19730: END IF;
19731:
19732: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19728: AP_IMPORT_UTILITIES_PKG.Print(
19729: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
19730: END IF;
19731:
19732: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19733: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19734: p_invoice_lines_rec.invoice_line_id,
19735: 'PA FLEXBUILD FAILED',
19736: p_default_last_updated_by,
19770:
19771: debug_info := '(v_check_line_dist_set ) -> ' ||
19772: 'exception occurs ->' ;
19773: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19774: AP_IMPORT_UTILITIES_PKG.Print(
19775: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19776: debug_info);
19777: END IF;
19778:
19777: END IF;
19778:
19779: IF (SQLCODE < 0) THEN
19780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19781: AP_IMPORT_UTILITIES_PKG.Print(
19782: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19783: SQLERRM);
19784: END IF;
19785: END IF;
19820: -- Nothing to do since this is PO/RCV matched
19821: --------------------------------------------------------------------------
19822: debug_info := '(Check Qty UOM non PO 1) Nothing to do.';
19823: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19824: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19825: debug_info);
19826: END IF;
19827:
19828: p_current_invoice_status := l_current_invoice_status;
19836: -------------------------------------------------------------------------
19837: debug_info :=
19838: '(Check Qty UOM non PO 2) Check Qty related information vs line type.';
19839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19840: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19841: debug_info);
19842: END IF;
19843:
19844: IF (p_invoice_lines_rec.line_type_lookup_code NOT IN ( 'ITEM', 'RETROITEM') AND
19844: IF (p_invoice_lines_rec.line_type_lookup_code NOT IN ( 'ITEM', 'RETROITEM') AND
19845: (p_invoice_lines_rec.quantity_invoiced IS NOT NULL OR
19846: p_invoice_lines_rec.unit_of_meas_lookup_code IS NOT NULL OR
19847: p_invoice_lines_rec.unit_price IS NOT NULL)) THEN
19848: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19849: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19850: p_invoice_lines_rec.invoice_line_id,
19851: 'INVALID QTY INFO',
19852: p_default_last_updated_by,
19852: p_default_last_updated_by,
19853: p_default_last_update_login,
19854: current_calling_sequence) <> TRUE) THEN
19855: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19856: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19857: 'insert_rejections<-'||current_calling_sequence);
19858: END IF;
19859: RAISE qty_uom_check_failure;
19860: END IF;
19870: -- Only do this check for Item lines.
19871: -------------------------------------------------------------------------
19872: debug_info := '(Check Qty UOM non PO 3) Check Qty information vs UOM';
19873: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19874: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19875: debug_info);
19876: END IF;
19877:
19878: IF (p_invoice_lines_rec.line_type_lookup_code IN ('ITEM', 'RETROITEM') AND
19879: (p_invoice_lines_rec.quantity_invoiced IS NOT NULL OR
19880: p_invoice_lines_rec.unit_price IS NOT NULL) AND
19881: p_invoice_lines_rec.unit_of_meas_lookup_code is NULL) THEN
19882:
19883: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19884: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19885: p_invoice_lines_rec.invoice_line_id,
19886: 'INCOMPLETE QTY INFO',
19887: p_default_last_updated_by,
19887: p_default_last_updated_by,
19888: p_default_last_update_login,
19889: current_calling_sequence) <> TRUE) THEN
19890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19891: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19892: 'insert_rejections<-'||current_calling_sequence);
19893: END IF;
19894: RAISE qty_uom_check_failure;
19895: END IF;
19907: -------------------------------------------------------------------------
19908: debug_info := '(Check Qty UOM non PO 4) Check Qty information when UOM '
19909: ||'populated';
19910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19912: debug_info);
19913: END IF;
19914:
19915: IF (p_invoice_lines_rec.line_type_lookup_code IN ('ITEM', 'RETROITEM') AND
19922: IF (p_invoice_lines_rec.quantity_invoiced is NULL) THEN
19923: debug_info := '(Check Qty UOM non PO 4a) Qty invoiced is null. Try '
19924: ||'to derive it';
19925: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19926: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19927: debug_info);
19928: END IF;
19929:
19930: IF (p_invoice_lines_rec.amount IS NOT NULL AND
19937: p_invoice_lines_rec.amount / p_invoice_lines_rec.unit_price;
19938: END IF;
19939:
19940: ELSE -- We dont have enough data to get quantity invoiced
19941: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19942: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19943: p_invoice_lines_rec.invoice_line_id,
19944: 'INCOMPLETE QTY INFO',
19945: p_default_last_updated_by,
19945: p_default_last_updated_by,
19946: p_default_last_update_login,
19947: current_calling_sequence) <> TRUE) THEN
19948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19949: AP_IMPORT_UTILITIES_PKG.Print(
19950: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19951: 'insert_rejections<-'||current_calling_sequence);
19952: END IF;
19953: RAISE qty_uom_check_failure;
19964: IF (p_invoice_lines_rec.quantity_invoiced is NOT NULL AND
19965: p_invoice_lines_rec.quantity_invoiced = 0) THEN
19966: debug_info := '(Check Qty UOM non PO 4b) Verify qty invoice is non 0';
19967: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19968: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19969: debug_info);
19970: END IF;
19971:
19972: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19968: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19969: debug_info);
19970: END IF;
19971:
19972: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19973: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19974: p_invoice_lines_rec.invoice_line_id,
19975: 'INVALID QTY INFO',
19976: p_default_last_updated_by,
19976: p_default_last_updated_by,
19977: p_default_last_update_login,
19978: current_calling_sequence) <> TRUE) THEN
19979: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19980: AP_IMPORT_UTILITIES_PKG.Print(
19981: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19982: 'insert_rejections<-'||current_calling_sequence);
19983: END IF;
19984: RAISE qty_uom_check_failure;
19995: p_invoice_lines_rec.unit_price is NULL) THEN
19996: debug_info :=
19997: '(Check Qty UOM non PO 4c) Unit price is null. Try to derive it';
19998: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19999: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20000: debug_info);
20001: END IF;
20002: IF (p_invoice_lines_rec.quantity_invoiced <> 0) THEN
20003: p_invoice_lines_rec.unit_price := p_invoice_lines_rec.amount/
20019: p_invoice_rec.invoice_currency_code)) THEN
20020: debug_info :=
20021: '(Check Qty UOM non PO 4d) Verify consistency in qty information';
20022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20024: debug_info);
20025: End if;
20026: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20027: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20023: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20024: debug_info);
20025: End if;
20026: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20027: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20028: p_invoice_lines_rec.invoice_line_id,
20029: 'INCONSISTENT QTY RELATED INFO',
20030: p_default_last_updated_by,
20030: p_default_last_updated_by,
20031: p_default_last_update_login,
20032: current_calling_sequence) <> TRUE) THEN
20033: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20034: AP_IMPORT_UTILITIES_PKG.Print(
20035: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20036: 'insert_rejections<-'||current_calling_sequence);
20037: END IF;
20038: RAISE qty_uom_check_failure;
20047: ------------------------------------------------------------------------
20048: debug_info :=
20049: '(Check Qty UOM non PO 4e) Verify unit of measure is valid';
20050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20051: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20052: debug_info);
20053: END IF;
20054: BEGIN
20055: SELECT 'Valid UOM'
20059: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
20060: < nvl(disable_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1) ;
20061: EXCEPTION
20062: WHEN no_data_found THEN
20063: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20064: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20065: p_invoice_lines_rec.invoice_line_id,
20066: 'INVALID UOM',
20067: p_default_last_updated_by,
20067: p_default_last_updated_by,
20068: p_default_last_update_login,
20069: current_calling_sequence) <> TRUE) THEN
20070: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20071: AP_IMPORT_UTILITIES_PKG.Print(
20072: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20073: 'insert_rejections<-'||current_calling_sequence);
20074: END IF;
20075: RAISE qty_uom_check_failure;
20085:
20086: EXCEPTION
20087: WHEN OTHERS THEN
20088: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20089: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20090: debug_info);
20091: END IF;
20092:
20093: IF (SQLCODE < 0) then
20091: END IF;
20092:
20093: IF (SQLCODE < 0) then
20094: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20095: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20096: SQLERRM);
20097: END IF;
20098: END IF;
20099: RETURN(FALSE);
20169: --------------------------------------------------------------------------
20170: debug_info := '(Check AWT Group 1) Check for AWT Group Id and Group Name '
20171: ||'Inconsistency.';
20172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20173: AP_IMPORT_UTILITIES_PKG.Print(
20174: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20175: END IF;
20176:
20177: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20173: AP_IMPORT_UTILITIES_PKG.Print(
20174: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20175: END IF;
20176:
20177: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20178: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20179: p_invoice_lines_rec.invoice_line_id,
20180: 'INCONSISTENT AWT GROUP',
20181: p_default_last_updated_by,
20181: p_default_last_updated_by,
20182: p_default_last_update_login,
20183: current_calling_sequence) <> TRUE) THEN
20184: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20185: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20186: 'insert_rejections<-'||current_calling_sequence);
20187: END IF;
20188: RAISE awt_group_check_failure;
20189: END IF;
20194: -- Check for Inactive AWT Group
20195: --------------------------------------------------------------------------
20196: debug_info := '(Check AWT Group 2) Check for Inactive AWT Group';
20197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20198: AP_IMPORT_UTILITIES_PKG.Print(
20199: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20200: END IF;
20201:
20202: IF ((l_awt_group_id IS NOT NULL AND
20208: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
20209: --------------------------------------------------------------
20210: -- inactive AWT group (as per id)
20211: --------------------------------------------------------------
20212: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20213: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20214: p_invoice_lines_rec.invoice_line_id,
20215: 'INACTIVE AWT GROUP',
20216: p_default_last_updated_by,
20216: p_default_last_updated_by,
20217: p_default_last_update_login,
20218: current_calling_sequence) <> TRUE) THEN
20219: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20220: AP_IMPORT_UTILITIES_PKG.Print(
20221: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20222: 'insert_rejections<-'||current_calling_sequence);
20223: END IF;
20224: RAISE awt_group_check_failure;
20233: ---------------------------------------------------------------
20234: -- inactive AWT group (per name)
20235: --
20236: ---------------------------------------------------------------
20237: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20238: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20239: p_invoice_lines_rec.invoice_line_id,
20240: 'INACTIVE AWT GROUP',
20241: p_default_last_updated_by,
20241: p_default_last_updated_by,
20242: p_default_last_update_login,
20243: current_calling_sequence) <> TRUE) THEN
20244: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20245: AP_IMPORT_UTILITIES_PKG.Print(
20246: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20247: 'insert_rejections<-'||current_calling_sequence);
20248: END IF;
20249: RAISE awt_group_check_failure;
20271:
20272:
20273: EXCEPTION
20274: WHEN no_data_found THEN
20275: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20276: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20277: p_invoice_lines_rec.invoice_line_id,
20278: 'INVALID AWT GROUP',
20279: p_default_last_updated_by,
20279: p_default_last_updated_by,
20280: p_default_last_update_login,
20281: current_calling_sequence) <> TRUE) THEN
20282: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20283: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20284: 'insert_rejections<-'||current_calling_sequence);
20285: END IF;
20286: RAISE awt_group_check_failure;
20287: END IF;
20290: RETURN (TRUE);
20291:
20292: WHEN OTHERS THEN
20293: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20294: AP_IMPORT_UTILITIES_PKG.Print(
20295: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20296: END IF;
20297:
20298: IF (SQLCODE < 0) THEN
20296: END IF;
20297:
20298: IF (SQLCODE < 0) THEN
20299: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20300: AP_IMPORT_UTILITIES_PKG.Print(
20301: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
20302: END IF;
20303: END IF;
20304: RETURN(FALSE);
20369: --------------------------------------------------------------------------
20370: debug_info := '(Check Pay AWT Group 1) Check for Pay AWT Group Id and Pay Group Name '
20371: ||'Inconsistency.';
20372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20373: AP_IMPORT_UTILITIES_PKG.Print(
20374: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20375: END IF;
20376:
20377: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20373: AP_IMPORT_UTILITIES_PKG.Print(
20374: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20375: END IF;
20376:
20377: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20378: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20379: p_invoice_lines_rec.invoice_line_id,
20380: 'INCONSISTENT PAY AWT GROUP',
20381: p_default_last_updated_by,
20381: p_default_last_updated_by,
20382: p_default_last_update_login,
20383: current_calling_sequence) <> TRUE) THEN
20384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20385: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20386: 'insert_rejections<-'||current_calling_sequence);
20387: END IF;
20388: RAISE pay_awt_group_check_failure;
20389: END IF;
20394: -- Check for Inactive Pay AWT Group
20395: --------------------------------------------------------------------------
20396: debug_info := '(Check Pay AWT Group 2) Check for Inactive Pay AWT Group';
20397: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20398: AP_IMPORT_UTILITIES_PKG.Print(
20399: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20400: END IF;
20401:
20402: IF ((l_pay_awt_group_id IS NOT NULL AND
20408: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
20409: --------------------------------------------------------------
20410: -- inactive pay AWT group (as per id)
20411: --------------------------------------------------------------
20412: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20413: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20414: p_invoice_lines_rec.invoice_line_id,
20415: 'INACTIVE PAY AWT GROUP',
20416: p_default_last_updated_by,
20416: p_default_last_updated_by,
20417: p_default_last_update_login,
20418: current_calling_sequence) <> TRUE) THEN
20419: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20420: AP_IMPORT_UTILITIES_PKG.Print(
20421: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20422: 'insert_rejections<-'||current_calling_sequence);
20423: END IF;
20424: RAISE pay_awt_group_check_failure;
20433: ---------------------------------------------------------------
20434: -- inactive pay AWT group (per name)
20435: --
20436: ---------------------------------------------------------------
20437: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20438: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20439: p_invoice_lines_rec.invoice_line_id,
20440: 'INACTIVE PAY AWT GROUP',
20441: p_default_last_updated_by,
20441: p_default_last_updated_by,
20442: p_default_last_update_login,
20443: current_calling_sequence) <> TRUE) THEN
20444: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20445: AP_IMPORT_UTILITIES_PKG.Print(
20446: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20447: 'insert_rejections<-'||current_calling_sequence);
20448: END IF;
20449: RAISE pay_awt_group_check_failure;
20467:
20468:
20469: EXCEPTION
20470: WHEN no_data_found THEN
20471: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20472: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20473: p_invoice_lines_rec.invoice_line_id,
20474: 'INVALID PAY AWT GROUP',
20475: p_default_last_updated_by,
20475: p_default_last_updated_by,
20476: p_default_last_update_login,
20477: current_calling_sequence) <> TRUE) THEN
20478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20480: 'insert_rejections<-'||current_calling_sequence);
20481: END IF;
20482: RAISE pay_awt_group_check_failure;
20483: END IF;
20486: RETURN (TRUE);
20487:
20488: WHEN OTHERS THEN
20489: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20490: AP_IMPORT_UTILITIES_PKG.Print(
20491: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20492: END IF;
20493:
20494: IF (SQLCODE < 0) THEN
20492: END IF;
20493:
20494: IF (SQLCODE < 0) THEN
20495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20496: AP_IMPORT_UTILITIES_PKG.Print(
20497: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
20498: END IF;
20499: END IF;
20500: RETURN(FALSE);
20535: --------------------------------------------------------------------------
20536: debug_info := '(Check Duplicate Line Number 1) Check for Duplicate '
20537: ||'Line Number.';
20538: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20539: AP_IMPORT_UTILITIES_PKG.Print(
20540: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20541: END IF;
20542:
20543: SELECT count(*)
20549: IF (l_line_count > 1) THEN
20550: debug_info := '(Check Duplicate Line Number 2) Duplicate Line '
20551: ||'Number Found.';
20552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20553: AP_IMPORT_UTILITIES_PKG.Print(
20554: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20555: END IF;
20556:
20557: -- bug 2581097 added context for XML GATEWAY
20554: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20555: END IF;
20556:
20557: -- bug 2581097 added context for XML GATEWAY
20558: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20559: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20560: p_invoice_lines_rec.invoice_line_id,
20561: 'DUPLICATE LINE NUMBER',
20562: p_default_last_updated_by,
20565: 'Y',
20566: 'INVOICE LINE NUMBER',
20567: p_invoice_lines_rec.line_number) <> TRUE) THEN
20568: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20569: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20570: 'insert_rejections<-'||current_calling_sequence);
20571: END IF;
20572: RAISE line_num_check_failure;
20573: END IF;
20579: RETURN (TRUE);
20580: EXCEPTION
20581: WHEN OTHERS THEN
20582: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20583: AP_IMPORT_UTILITIES_PKG.Print(
20584: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20585: END IF;
20586:
20587: IF (SQLCODE < 0) THEN
20585: END IF;
20586:
20587: IF (SQLCODE < 0) THEN
20588: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20589: AP_IMPORT_UTILITIES_PKG.Print(
20590: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
20591: END IF;
20592: END IF;
20593: RETURN(FALSE);
20657: --------------------------------------------------------------------------
20658: debug_info :=
20659: '(Check Misc Line Info 1) Check for Invalid Line type lookup code.';
20660: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20661: AP_IMPORT_UTILITIES_PKG.Print(
20662: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20663: END IF;
20664:
20665: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20661: AP_IMPORT_UTILITIES_PKG.Print(
20662: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20663: END IF;
20664:
20665: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20666: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20667: p_invoice_lines_rec.invoice_line_id,
20668: 'INVALID LINE TYPE LOOKUP',
20669: p_default_last_updated_by,
20669: p_default_last_updated_by,
20670: p_default_last_update_login,
20671: current_calling_sequence) <> TRUE) THEN
20672: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20673: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20674: 'insert_rejections<-' ||current_calling_sequence);
20675: END IF;
20676: RAISE misc_line_info_failure;
20677: END IF;
20686: ----------------------------------------------------------------------
20687: debug_info := '(Check Misc Line Info 2) Line type lookup code '
20688: ||'cannot be AWT';
20689: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20690: AP_IMPORT_UTILITIES_PKG.Print(
20691: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20692: END IF;
20693:
20694: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20690: AP_IMPORT_UTILITIES_PKG.Print(
20691: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20692: END IF;
20693:
20694: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20695: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20696: p_invoice_lines_rec.invoice_line_id,
20697: 'LINE TYPE CANNOT BE AWT',
20698: p_default_last_updated_by,
20698: p_default_last_updated_by,
20699: p_default_last_update_login,
20700: current_calling_sequence) <> TRUE) THEN
20701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20702: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20703: 'insert_rejections<-' ||current_calling_sequence);
20704: END IF;
20705: RAISE misc_line_info_failure;
20706: END IF;
20716:
20717: debug_info := '(Check Misc Line Info 3) Defaulting type 1099 from
20718: supplier';
20719: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20720: AP_IMPORT_UTILITIES_PKG.Print(
20721: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20722: END IF;
20723:
20724: Open c_type_1099(p_invoice_rec.vendor_id);
20736: IF (p_invoice_lines_rec.type_1099 = 'NA') THEN
20737: debug_info := '(Check Misc Line Info 3) Check Type 1099. ' ||
20738: 'Type 1099 is NA. Setting type 1099 to null.';
20739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20740: AP_IMPORT_UTILITIES_PKG.Print(
20741: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20742: END IF;
20743:
20744: p_invoice_lines_rec.type_1099 := null ;
20749: -- Invalid type_1099
20750: --------------------------------------------------------------------------
20751: debug_info := '(Check Misc Line Info 3) Check Type 1099';
20752: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20753: AP_IMPORT_UTILITIES_PKG.Print(
20754: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20755: END IF;
20756:
20757: -- Invalid Info
20769: IF l_ret_code = '1' THEN -- means l_key found in cache
20770: l_income_tax_type := l_values(1).varchar2_1;
20771: l_exception := l_values(1).varchar2_2;
20772: IF l_exception = 'TRUE' THEN
20773: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20774: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20775: p_invoice_lines_rec.invoice_line_id,
20776: 'INVALID TYPE 1099',
20777: p_default_last_updated_by,
20777: p_default_last_updated_by,
20778: p_default_last_update_login,
20779: current_calling_sequence) <> TRUE) THEN
20780: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20781: AP_IMPORT_UTILITIES_PKG.Print(
20782: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20783: 'insert_rejections<-' ||current_calling_sequence);
20784: END IF;
20785: RAISE misc_line_info_failure;
20790:
20791: ELSE -- IF l_key not found in cache(l_ret_code other than 1) .. cache it
20792: debug_info := '(Check Misc Line Info 3.1) Check Type 1099 in Else';
20793: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20794: AP_IMPORT_UTILITIES_PKG.Print(
20795: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20796: END IF;
20797:
20798: BEGIN
20818:
20819: EXCEPTION
20820: WHEN NO_DATA_FOUND THEN
20821: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20822: AP_IMPORT_UTILITIES_PKG.Print(
20823: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20824: '(v_check_misc_line_info 3) Invalid Type 1099');
20825: END IF;
20826:
20823: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20824: '(v_check_misc_line_info 3) Invalid Type 1099');
20825: END IF;
20826:
20827: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20828: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20829: p_invoice_lines_rec.invoice_line_id,
20830: 'INVALID TYPE 1099',
20831: p_default_last_updated_by,
20831: p_default_last_updated_by,
20832: p_default_last_update_login,
20833: current_calling_sequence) <> TRUE) THEN
20834: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20835: AP_IMPORT_UTILITIES_PKG.Print(
20836: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20837: 'insert_rejections<-' ||current_calling_sequence);
20838: END IF;
20839: RAISE misc_line_info_failure;
20887: exception
20888: when others then
20889: debug_info := '(step 4.1 default the income_tax_region';
20890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
20891: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20892: debug_info);
20893: END IF;
20894: end;
20895:
20902: -- Invalid income_tax_region
20903: --------------------------------------------------------------------------
20904: debug_info := '(Check Misc Line Info 4) Check income_tax_region';
20905: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20906: AP_IMPORT_UTILITIES_PKG.Print(
20907: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20908: END IF;
20909:
20910: -- Invalid Info
20921: IF l_ret_code1 = '1' THEN -- means l_key found in cache
20922: l_income_tax_region := l_values1(1).varchar2_1;
20923: l_exception1 := l_values1(1).varchar2_2;
20924: IF l_exception1 = 'TRUE' THEN
20925: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20926: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20927: p_invoice_lines_rec.invoice_line_id,
20928: 'INVALID TAX REGION',
20929: p_default_last_updated_by,
20929: p_default_last_updated_by,
20930: p_default_last_update_login,
20931: current_calling_sequence) <> TRUE) THEN
20932: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20933: AP_IMPORT_UTILITIES_PKG.Print(
20934: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20935: 'insert_rejections<-' ||current_calling_sequence);
20936: END IF;
20937: RAISE misc_line_info_failure;
20942:
20943: ELSE
20944: debug_info := '(Check Misc Line Info 4.1) Check income_tax_region in Else';
20945: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20946: AP_IMPORT_UTILITIES_PKG.Print(
20947: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20948: END IF;
20949:
20950: BEGIN
20971:
20972: EXCEPTION
20973: WHEN NO_DATA_FOUND THEN
20974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20975: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20976: '(v_check_misc_line_info 4) Invalid income tax region');
20977: END IF;
20978: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20979: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20975: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20976: '(v_check_misc_line_info 4) Invalid income tax region');
20977: END IF;
20978: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20979: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20980: p_invoice_lines_rec.invoice_line_id,
20981: 'INVALID TAX REGION',
20982: p_default_last_updated_by,
20982: p_default_last_updated_by,
20983: p_default_last_update_login,
20984: current_calling_sequence) <> TRUE) THEN
20985: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20986: AP_IMPORT_UTILITIES_PKG.Print(
20987: AP_IMPORT_INVOICES_PKG.g_debug_switch,
20988: 'insert_rejections<-' ||current_calling_sequence);
20989: END IF;
20990: RAISE misc_line_info_failure;
21014:
21015: EXCEPTION
21016: WHEN OTHERS THEN
21017: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21018: AP_IMPORT_UTILITIES_PKG.Print(
21019: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
21020: END IF;
21021:
21022: IF (SQLCODE < 0) THEN
21020: END IF;
21021:
21022: IF (SQLCODE < 0) THEN
21023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21024: AP_IMPORT_UTILITIES_PKG.Print(
21025: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
21026: END IF;
21027: END IF;
21028: RETURN(FALSE);
21063: ---------------------------------------------------------------------------
21064: debug_info := '(Check Prorate Info 1) Checking the total dist amount to be '
21065: ||'prorated';
21066: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21067: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21068: debug_info);
21069: END IF;
21070:
21071: SELECT SUM(nvl(AIL.amount,0))
21077: p_invoice_lines_rec.line_group_number is NULL)
21078: AND line_type_lookup_code = 'ITEM';
21079:
21080: IF (l_item_line_total = 0 ) THEN
21081: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21082: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table, /* BUG10339648 */
21083: p_invoice_lines_rec.invoice_line_id,
21084: 'CANNOT PRORATE TO ZERO',
21085: p_default_last_updated_by,
21085: p_default_last_updated_by,
21086: p_default_last_update_login,
21087: current_calling_sequence) <> TRUE ) THEN
21088: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21089: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21090: 'insert_rejections<- '||current_calling_sequence);
21091: END IF;
21092: RAISE prorate_line_info_failure;
21093: END IF;
21099: -- Prorating across non-item lines is not allowed
21100: ---------------------------------------------------------------------------
21101: debug_info := '(Check Prorate Info 2) Checking lines to prorate across.';
21102: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21103: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21104: debug_info);
21105: END IF;
21106:
21107: IF (p_invoice_lines_rec.line_group_number IS NOT NULL) THEN
21119: AND (line_type_lookup_code = 'ITEM'
21120: OR (line_type_lookup_code = 'TAX' AND prorate_across_flag = 'Y'));
21121:
21122: IF (l_count_item_lines = 0) THEN
21123: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21124: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21125: p_invoice_lines_rec.invoice_line_id,
21126: 'CANNOT PRORATE TO NON ITEM',
21127: p_default_last_updated_by,
21127: p_default_last_updated_by,
21128: p_default_last_update_login,
21129: current_calling_sequence) <> TRUE ) THEN
21130: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21131: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21132: 'insert_rejections<- '||current_calling_sequence);
21133: END IF;
21134: l_current_invoice_status := 'N';
21135: RAISE prorate_line_info_failure;
21147:
21148: -- If number of lines other than Item is more than 1 (1 is itself)
21149: -- raise rejection
21150: IF (l_count_non_item_lines > 1) THEN
21151: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21152: AP_IMPORT_INVOICES_PKG.g_invoices_table,
21153: p_invoice_lines_rec.invoice_line_id,
21154: 'CANNOT PRORATE TO NON ITEM',
21155: p_default_last_updated_by,
21155: p_default_last_updated_by,
21156: p_default_last_update_login,
21157: current_calling_sequence) <> TRUE ) THEN
21158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21160: 'insert_rejections<- '||current_calling_sequence);
21161: END IF;
21162: RAISE prorate_line_info_failure;
21163: END IF;
21171:
21172: EXCEPTION
21173: WHEN OTHERS THEN
21174: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21175: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21176: debug_info);
21177: END IF;
21178:
21179: IF (SQLCODE < 0) THEN
21177: END IF;
21178:
21179: IF (SQLCODE < 0) THEN
21180: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21181: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21182: SQLERRM);
21183: END IF;
21184: END IF;
21185: RETURN(FALSE);
21210:
21211: BEGIN
21212: -- Update the calling sequence
21213: --
21214: current_calling_sequence := 'AP_IMPORT_UTILITIES_PKG.v_check_asset_ifno<-'
21215: ||P_calling_sequence;
21216:
21217: -------------------------------------------------------------------------------
21218: -- Step 1 - If line type is other than item and any of the asset fields is
21220: --
21221: ----------------------------------------------------------------------------
21222: debug_info := '(Check Asset Book 1) Verify asset info not on non-item line';
21223: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21224: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21225: debug_info);
21226: END IF;
21227:
21228: --Retropricing
21227:
21228: --Retropricing
21229: IF (p_invoice_lines_rec.line_type_lookup_code NOT IN ('ITEM', 'RETROITEM')) THEN
21230: IF (p_invoice_lines_rec.serial_number IS NOT NULL) THEN
21231: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21232: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21233: p_invoice_lines_rec.invoice_line_id,
21234: 'INVALID SERIAL NUMBER INFO',
21235: p_default_last_updated_by,
21235: p_default_last_updated_by,
21236: p_default_last_update_login,
21237: current_calling_sequence) <> TRUE ) THEN
21238: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21239: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21240: 'insert_rejections<- '||current_calling_sequence);
21241: END IF;
21242: RAISE asset_line_info_failure;
21243: END IF;
21244: l_current_invoice_status := 'N';
21245: END IF; -- Serial number is not null
21246:
21247: IF (p_invoice_lines_rec.manufacturer IS NOT NULL) THEN
21248: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21249: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21250: p_invoice_lines_rec.invoice_line_id,
21251: 'INVALID MANUFACTURER INFO',
21252: p_default_last_updated_by,
21252: p_default_last_updated_by,
21253: p_default_last_update_login,
21254: current_calling_sequence) <> TRUE ) THEN
21255: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21256: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21257: 'insert_rejections<- '||current_calling_sequence);
21258: END IF;
21259: RAISE asset_line_info_failure;
21260: END IF;
21261: l_current_invoice_status := 'N';
21262: END IF; -- Manufacturer is not null
21263:
21264: IF (p_invoice_lines_rec.model_number IS NOT NULL) THEN
21265: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21266: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21267: p_invoice_lines_rec.invoice_line_id,
21268: 'INVALID MODEL NUMBER INFO',
21269: p_default_last_updated_by,
21269: p_default_last_updated_by,
21270: p_default_last_update_login,
21271: current_calling_sequence) <> TRUE ) Then
21272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21273: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21274: 'insert_rejections<- '||current_calling_sequence);
21275: END IF;
21276: RAISE asset_line_info_failure;
21277: END IF;
21278: l_current_invoice_status := 'N';
21279: END IF; -- Model Number is not null
21280:
21281: IF (p_invoice_lines_rec.warranty_number is not null) then
21282: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21283: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21284: p_invoice_lines_rec.invoice_line_id,
21285: 'INVALID WARRANTY NUM INFO',
21286: p_default_last_updated_by,
21286: p_default_last_updated_by,
21287: p_default_last_update_login,
21288: current_calling_sequence) <> TRUE ) Then
21289: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21290: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21291: 'insert_rejections<- '||current_calling_sequence);
21292: END IF;
21293: RAISE asset_line_info_failure;
21294: END IF;
21304: --
21305: ----------------------------------------------------------------------------
21306: debug_info := '(Check Asset Book 2) Verify asset book if not null';
21307: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21308: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21309: debug_info);
21310: END IF;
21311:
21312: IF (p_invoice_lines_rec.asset_book_type_code IS NOT NULL) THEN
21320: AND bc.date_ineffective IS NULL;
21321:
21322: EXCEPTION
21323: WHEN no_data_found then
21324: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21325: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21326: p_invoice_lines_rec.invoice_line_id,
21327: 'INVALID ASSET BOOK CODE',
21328: p_default_last_updated_by,
21328: p_default_last_updated_by,
21329: p_default_last_update_login,
21330: current_calling_sequence) <> TRUE ) Then
21331: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21332: AP_IMPORT_UTILITIES_PKG.Print(
21333: AP_IMPORT_INVOICES_PKG.g_debug_switch,
21334: 'insert_rejections<- '||current_calling_sequence);
21335: END IF;
21336: RAISE asset_line_info_failure;
21352: --
21353: ----------------------------------------------------------------------------
21354: debug_info := '(Check Asset Book 3) Verify asset category if not null';
21355: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21356: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21357: debug_info);
21358: End if;
21359:
21360: If (p_invoice_lines_rec.asset_category_id is not null) then
21366: WHERE category_id = p_invoice_lines_rec.asset_category_id;
21367:
21368: EXCEPTION
21369: WHEN no_data_found then
21370: If (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21371: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21372: p_invoice_lines_rec.invoice_line_id,
21373: 'INVALID ASSET CATEGORY ID',
21374: p_default_last_updated_by,
21374: p_default_last_updated_by,
21375: p_default_last_update_login,
21376: current_calling_sequence) <> TRUE ) Then
21377: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21378: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21379: 'insert_rejections<- '||current_calling_sequence);
21380: END IF;
21381: RAISE asset_line_info_failure;
21382: END IF;
21391: RETURN (TRUE);
21392: EXCEPTION
21393: WHEN OTHERS THEN
21394: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21395: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21396: debug_info);
21397: END IF;
21398:
21399: IF (SQLCODE < 0) then
21397: END IF;
21398:
21399: IF (SQLCODE < 0) then
21400: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21401: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21402: SQLERRM);
21403: END IF;
21404: END IF;
21405: RETURN(FALSE);
21462: -------------------------------------------------------------------------
21463: debug_info := '(Check tax info 1) Check for control_amount';
21464: -------------------------------------------------------------------------
21465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21466: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21467: debug_info);
21468: END IF;
21469:
21470: --bug 9326733
21477: (p_invoice_rec.invoice_type_lookup_code IN ('CREDIT', 'DEBIT') and -- bug 7299826
21478: NVL(abs(p_invoice_rec.control_amount), NVL(abs(p_invoice_rec.invoice_amount),0)) > NVL(abs(p_invoice_rec.invoice_amount),0)) --Bug 6925674 (Base bug6905106)
21479: ) THEN
21480:
21481: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21482: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21483: p_invoice_rec.invoice_id,
21484: 'INVALID CONTROL AMOUNT',
21485: p_default_last_updated_by,
21486: p_default_last_update_login,
21487: current_calling_sequence) <> TRUE) THEN
21488:
21489: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21490: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21491: 'insert_rejections<-'||current_calling_sequence);
21492: END IF;
21493: RAISE check_tax_failure;
21494:
21499: -------------------------------------------------------------------------
21500: debug_info := '(Check tax info 2) Check for tax_related_invoice_id';
21501: -------------------------------------------------------------------------
21502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21503: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21504: debug_info);
21505: END IF;
21506:
21507: IF ( p_invoice_rec.tax_related_invoice_id IS NOT NULL) THEN
21518:
21519: EXCEPTION
21520: WHEN no_data_found THEN
21521:
21522: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21523: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21524: p_invoice_rec.invoice_id,
21525: 'INVALID TAX RELATED INVOICE ID',
21526: p_default_last_updated_by,
21527: p_default_last_update_login,
21528: current_calling_sequence) <> TRUE) THEN
21529:
21530: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21531: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21532: 'insert_rejections<-'||current_calling_sequence);
21533: END IF;
21534: RAISE check_tax_failure;
21535:
21541: -------------------------------------------------------------------------
21542: debug_info := '(Check tax info 3) Check for calc_tax_during_import_flag';
21543: -------------------------------------------------------------------------
21544: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21545: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21546: debug_info);
21547: END IF;
21548:
21549: IF ( p_invoice_rec.calc_tax_during_import_flag = 'Y') THEN
21562: END;
21563:
21564: IF (l_exist_tax_line IS NOT NULL) THEN
21565:
21566: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21567: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21568: p_invoice_rec.invoice_id,
21569: 'CANNOT CONTAIN TAX LINES',
21570: p_default_last_updated_by,
21570: p_default_last_updated_by,
21571: p_default_last_update_login,
21572: current_calling_sequence) <> TRUE) THEN
21573: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21575: 'insert_rejections<-'||current_calling_sequence);
21576: END IF;
21577: RAISE check_tax_failure;
21578: END IF;
21586: 'provided for inclusive lines when the invoice has more than '||
21587: 'one item line.';
21588: -------------------------------------------------------------------------
21589: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21590: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21591: debug_info);
21592: END IF;
21593:
21594: BEGIN
21612:
21613: END;
21614:
21615: IF (l_alloc_not_provided = 'Y') THEN
21616: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21617: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21618: p_invoice_rec.invoice_id,
21619: 'NO ALLOCATION RULES FOUND',
21620: p_default_last_updated_by,
21620: p_default_last_updated_by,
21621: p_default_last_update_login,
21622: current_calling_sequence) <> TRUE) THEN
21623: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21624: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21625: 'insert_rejections<-'||current_calling_sequence);
21626: END IF;
21627: RAISE check_tax_failure;
21628: END IF;
21633: -------------------------------------------------------------------------
21634: debug_info := '(Check tax info 5) Check if any non-tax line has tax information';
21635: -------------------------------------------------------------------------
21636: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21637: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21638: debug_info);
21639: END IF;
21640:
21641: BEGIN
21661:
21662: END;
21663:
21664: IF (l_tax_found_in_nontax_line = 'Y') THEN
21665: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21666: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21667: p_invoice_rec.invoice_id,
21668: 'TAX DATA FOUND ON NONTAX LINES',
21669: p_default_last_updated_by,
21669: p_default_last_updated_by,
21670: p_default_last_update_login,
21671: current_calling_sequence) <> TRUE) THEN
21672: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21673: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21674: 'insert_rejections<-'||current_calling_sequence);
21675: END IF;
21676: RAISE check_tax_failure;
21677: END IF;
21683: debug_info := '(Check tax info 6) Check if an invoice has a tax line '||
21684: 'matched to receipt and another allocated to item lines';
21685: -------------------------------------------------------------------------
21686: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21687: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21688: debug_info);
21689: END IF;
21690:
21691: -- Validation: A tax-only invoice should not have a tax line matched to receipt and
21715:
21716: END;
21717:
21718: IF (l_tax_lines_cannot_coexist = 'Y') THEN
21719: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21720: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21721: p_invoice_rec.invoice_id,
21722: 'TAX LINE TYPES CANNOT COEXIST',
21723: p_default_last_updated_by,
21723: p_default_last_updated_by,
21724: p_default_last_update_login,
21725: current_calling_sequence) <> TRUE) THEN
21726: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21727: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21728: 'insert_rejections<-'||current_calling_sequence);
21729: END IF;
21730: RAISE check_tax_failure;
21731: END IF;
21741:
21742: EXCEPTION
21743: WHEN OTHERS THEN
21744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21745: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21746: debug_info);
21747: END IF;
21748:
21749: IF (SQLCODE < 0) then
21747: END IF;
21748:
21749: IF (SQLCODE < 0) then
21750: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21751: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21752: SQLERRM);
21753: END IF;
21754: END IF;
21755: RETURN(FALSE);
21841: debug_info := '(Check Tax Line Info 1) Check for Invalid sign in the '||
21842: 'assessable value';
21843: --------------------------------------------------------------------------
21844: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21845: AP_IMPORT_UTILITIES_PKG.Print(
21846: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
21847: END IF;
21848:
21849: IF (NVL(p_invoice_lines_rec.assessable_value, 0) <> 0) THEN
21848:
21849: IF (NVL(p_invoice_lines_rec.assessable_value, 0) <> 0) THEN
21850: IF (SIGN(p_invoice_lines_rec.assessable_value) <>
21851: SIGN(p_invoice_lines_rec.amount)) THEN
21852: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21853: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21854: p_invoice_lines_rec.invoice_line_id,
21855: 'INVALID SIGN ASSESSABLE VALUE',
21856: p_default_last_updated_by,
21856: p_default_last_updated_by,
21857: p_default_last_update_login,
21858: current_calling_sequence) <> TRUE) THEN
21859: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21860: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21861: 'insert_rejections<-' ||current_calling_sequence);
21862: END IF;
21863: RAISE tax_line_info_failure;
21864: END IF;
21873: debug_info := '(Check Tax Line Info 2) Check for control_amount greater '||
21874: 'than line amount';
21875: --------------------------------------------------------------------------
21876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21877: AP_IMPORT_UTILITIES_PKG.Print(
21878: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
21879: END IF;
21880:
21881: IF (NVL(p_invoice_lines_rec.control_amount, 0) <> 0) THEN
21889: WHERE aii.invoice_id = aili.invoice_id
21890: AND aili.ROWID = p_invoice_lines_rec.row_id;
21891:
21892: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21893: AP_IMPORT_UTILITIES_PKG.Print(
21894: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
21895: END IF;
21896: EXCEPTION
21897: WHEN OTHERS THEN
21895: END IF;
21896: EXCEPTION
21897: WHEN OTHERS THEN
21898: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21899: AP_IMPORT_UTILITIES_PKG.Print(
21900: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
21901: END IF;
21902: END; Commented for Bug9852580 */
21903:
21905: /*(l_inv_hdr_inv_type IN ('CREDIT', 'DEBIT') AND --Bug 7299826 Added DEBIT , Commented for Bug9852580 */
21906: (abs(p_invoice_lines_rec.control_amount) >
21907: abs(p_invoice_lines_rec.amount))) THEN
21908:
21909: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21910: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21911: p_invoice_lines_rec.invoice_line_id,
21912: 'INVALID CONTROL AMOUNT ',
21913: p_default_last_updated_by,
21914: p_default_last_update_login,
21915: current_calling_sequence) <> TRUE) THEN
21916:
21917: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21918: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21919: 'insert_rejections<-' ||current_calling_sequence);
21920: END IF;
21921:
21922: RAISE tax_line_info_failure;
21926: --Bug 6925674 (Base bug6905106) Ends
21927: ELSIF ((sign(NVL(p_invoice_lines_rec.control_amount,0))<> sign(NVL(p_invoice_lines_rec.amount,0))) AND /* Added for Bug9852580 */
21928: /*( (l_inv_hdr_inv_type NOT IN ('CREDIT', 'DEBIT') and --bug 7299826 Commented for Bug9852580 */
21929: (p_invoice_lines_rec.control_amount > p_invoice_lines_rec.amount)) THEN
21930: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21931: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21932: p_invoice_lines_rec.invoice_line_id,
21933: 'INVALID CONTROL AMOUNT ',
21934: p_default_last_updated_by,
21934: p_default_last_updated_by,
21935: p_default_last_update_login,
21936: current_calling_sequence) <> TRUE) THEN
21937: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21938: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21939: 'insert_rejections<-' ||current_calling_sequence);
21940: END IF;
21941:
21942: RAISE tax_line_info_failure;
21951: debug_info := '(Check Tax Line Info 3) Tax should not be inclusive if '||
21952: 'tax line is PO matched';
21953: --------------------------------------------------------------------------
21954: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21955: AP_IMPORT_UTILITIES_PKG.Print(
21956: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
21957: END IF;
21958:
21959: IF (p_invoice_lines_rec.line_type_lookup_code = 'TAX'
21966: p_invoice_lines_rec.po_shipment_num IS NOT NULL OR
21967: p_invoice_lines_rec.po_distribution_id IS NOT NULL OR
21968: p_invoice_lines_rec.po_distribution_num IS NOT NULL)) THEN
21969:
21970: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
21971: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
21972: p_invoice_lines_rec.invoice_line_id,
21973: 'TAX CANNOT BE INCLUDED',
21974: p_default_last_updated_by,
21974: p_default_last_updated_by,
21975: p_default_last_update_login,
21976: current_calling_sequence) <> TRUE) THEN
21977: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21978: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21979: 'insert_rejections<-' ||current_calling_sequence);
21980: END IF;
21981: RAISE tax_line_info_failure;
21982: END IF;
22012: WHERE aii.invoice_id = aili.invoice_id
22013: AND aili.ROWID = p_invoice_lines_rec.row_id;
22014:
22015: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22016: AP_IMPORT_UTILITIES_PKG.Print(
22017: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22018: END IF;
22019: EXCEPTION
22020: WHEN OTHERS THEN
22018: END IF;
22019: EXCEPTION
22020: WHEN OTHERS THEN
22021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22022: AP_IMPORT_UTILITIES_PKG.Print(
22023: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
22024: END IF;
22025: END;
22026: ----------------------------------------------------------------------
22173: debug_info := '(Check Tax Line Info 4.8) Tax_regime_code and tax are '||
22174: 'required in tax lines to be imported'; -- Bug 6412397
22175: --------------------------------------------------------------------------
22176: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22177: AP_IMPORT_UTILITIES_PKG.Print(
22178: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22179: END IF;
22180:
22181: IF (p_invoice_lines_rec.line_type_lookup_code = 'TAX' AND
22182: p_invoice_lines_rec.tax_classification_code is null --6255826
22183: and p_invoice_lines_rec.TAX_RATE_CODE is null --6255826
22184: ) THEN
22185:
22186: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22187: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22188: p_invoice_lines_rec.invoice_line_id,
22189: 'INSUFFICIENT TAX INFO', --bug6255826 Replaced TAX INFO REQUIRED
22190: p_default_last_updated_by,
22190: p_default_last_updated_by,
22191: p_default_last_update_login,
22192: current_calling_sequence) <> TRUE) THEN
22193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22194: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22195: 'insert_rejections<-' ||current_calling_sequence);
22196: END IF;
22197: RAISE tax_line_info_failure;
22198: END IF;
22206:
22207: EXCEPTION
22208: WHEN OTHERS THEN
22209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22210: AP_IMPORT_UTILITIES_PKG.Print(
22211: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
22212: END IF;
22213:
22214: IF (SQLCODE < 0) THEN
22212: END IF;
22213:
22214: IF (SQLCODE < 0) THEN
22215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22216: AP_IMPORT_UTILITIES_PKG.Print(
22217: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
22218: END IF;
22219: END IF;
22220: RETURN(FALSE);
22248: 'concatenated segments are provided'||
22249: ' then cross validate the info from concatenated segments';
22250: --------------------------------------------------------------------------
22251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22252: AP_IMPORT_UTILITIES_PKG.Print(
22253: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22254: END IF;
22255:
22256: -- Bug 5448579
22260: END IF;
22261:
22262: IF (p_invoice_lines_rec.line_type_lookup_code <> 'ITEM') THEN
22263:
22264: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22265: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22266: p_invoice_lines_rec.invoice_line_id,
22267: 'INCONSISTENT CATEGORY',
22268: p_default_last_updated_by,
22272: 'INVOICE LINE NUMBER',
22273: p_invoice_lines_rec.line_number) <> TRUE) THEN
22274:
22275: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22276: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22277: 'insert_rejections<-'||current_calling_sequence);
22278: END IF;
22279:
22280: RAISE purch_category_check_failure;
22293: to_char(sysdate,'YYYY/MM/DD HH24:MI:SS'),p_invoice_lines_rec.purchasing_category);
22294:
22295: IF (l_purchasing_category_id <> p_invoice_lines_rec.purchasing_category_id) THEN
22296:
22297: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22298: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22299: p_invoice_lines_rec.invoice_line_id,
22300: 'INCONSISTENT CATEGORY',
22301: p_default_last_updated_by,
22305: 'INVOICE LINE NUMBER',
22306: p_invoice_lines_rec.line_number) <> TRUE) THEN
22307:
22308: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22309: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22310: 'insert_rejections<-'||current_calling_sequence);
22311: END IF;
22312:
22313: RAISE purch_category_check_failure;
22324: debug_info := '(Check Line purchasing_Category Info 2) If just concatenated segments'||
22325: 'are provided then derive the purchasing_category_id from that info';
22326: --------------------------------------------------------------------------
22327: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22328: AP_IMPORT_UTILITIES_PKG.Print(
22329: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22330: END IF;
22331:
22332: l_purchasing_category_id := FND_FLEX_EXT.GET_CCID('INV', 'MCAT',
22337: p_invoice_lines_rec.purchasing_category_id := l_purchasing_category_id;
22338:
22339: ELSE
22340:
22341: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22342: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22343: p_invoice_lines_rec.invoice_line_id,
22344: 'INVALID CATEGORY',
22345: p_default_last_updated_by,
22349: 'INVOICE LINE NUMBER',
22350: p_invoice_lines_rec.line_number) <> TRUE) THEN
22351:
22352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22354: 'insert_rejections<-'||current_calling_sequence);
22355: END IF;
22356:
22357: RAISE purch_category_check_failure;
22393: END IF;
22394:
22395: IF (l_purchasing_category_id <> p_invoice_lines_rec.purchasing_category_id) THEN
22396:
22397: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22398: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22399: p_invoice_lines_rec.invoice_line_id,
22400: 'INCONSISTENT CATEGORY',
22401: p_default_last_updated_by,
22405: 'INVOICE LINE NUMBER',
22406: p_invoice_lines_rec.line_number) <> TRUE) THEN
22407:
22408: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22409: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22410: 'insert_rejections<-'||current_calling_sequence);
22411: END IF;
22412:
22413: RAISE purch_category_check_failure;
22464: 'cost_factor_name provided'||
22465: ' then cross validate the info';
22466: --------------------------------------------------------------------------
22467: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22468: AP_IMPORT_UTILITIES_PKG.Print(
22469: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22470: END IF;
22471:
22472: IF (p_invoice_lines_rec.line_type_lookup_code IN ('TAX','FREIGHT','MISCELLANEOUS')) THEN
22474: IF (p_invoice_lines_rec.cost_factor_name IS NOT NULL) THEN
22475: debug_info := '(Check Line Cost_Factor Info 2) Check if cost_factor_name is provided'
22476: ||' then derive cost_factor_id';
22477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22478: AP_IMPORT_UTILITIES_PKG.Print(
22479: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22480: END IF;
22481:
22482: BEGIN
22487: WHERE name = p_invoice_lines_rec.cost_factor_name;
22488:
22489: EXCEPTION WHEN OTHERS THEN
22490:
22491: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22492: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22493: p_invoice_lines_rec.invoice_line_id,
22494: 'INVALID COST FACTOR INFO',
22495: p_default_last_updated_by,
22499: 'INVOICE LINE NUMBER',
22500: p_invoice_lines_rec.line_number) <> TRUE) THEN
22501:
22502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22503: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22504: 'insert_rejections<-'||current_calling_sequence);
22505: END IF;
22506:
22507: RAISE cost_factor_check_failure;
22521:
22522: debug_info := '(Check Line Cost_Factor Info 2) Cross validate '||
22523: 'cost_factor_name and cost_factor_id information';
22524: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22525: AP_IMPORT_UTILITIES_PKG.Print(
22526: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22527: END IF;
22528:
22529: IF (l_cost_factor_id <> p_invoice_lines_rec.cost_factor_id) THEN
22527: END IF;
22528:
22529: IF (l_cost_factor_id <> p_invoice_lines_rec.cost_factor_id) THEN
22530:
22531: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22532: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22533: p_invoice_lines_rec.invoice_line_id,
22534: 'INVALID COST FACTOR INFO',
22535: p_default_last_updated_by,
22539: 'INVOICE LINE NUMBER',
22540: p_invoice_lines_rec.line_number) <> TRUE) THEN
22541:
22542: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22543: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22544: 'insert_rejections<-'||current_calling_sequence);
22545: END IF;
22546:
22547: RAISE cost_factor_check_failure;
22557: debug_info := '(Check Line Cost_Factor Info 4) If cost_factor_id is null and '||
22558: 'cost_factor_name is provided, then assign the derived cost_factor_id'
22559: ||' then derive cost_factor_id';
22560: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22561: AP_IMPORT_UTILITIES_PKG.Print(
22562: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22563: END IF;
22564:
22565: p_invoice_lines_rec.cost_factor_id := l_cost_factor_id;
22569: debug_info := '(Check Line Cost Factor Info 5) If cost_factor_id is'||
22570: ' not null , then validate it against the valid set of'||
22571: ' cost factors';
22572: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22573: AP_IMPORT_UTILITIES_PKG.Print(
22574: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22575: END IF;
22576:
22577: BEGIN
22581: WHERE price_element_type_id = p_invoice_lines_rec.cost_factor_id;
22582:
22583: EXCEPTION WHEN OTHERS THEN
22584:
22585: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22586: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22587: p_invoice_lines_rec.invoice_line_id,
22588: 'INVALID COST FACTOR INFO',
22589: p_default_last_updated_by,
22593: 'INVOICE LINE NUMBER',
22594: p_invoice_lines_rec.line_number) <> TRUE) THEN
22595:
22596: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22597: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22598: 'insert_rejections<-'||current_calling_sequence);
22599: END IF;
22600:
22601: RAISE cost_factor_check_failure;
22653: --------------------------------------------------------------------------
22654: debug_info := '(Check Retainage 1) Get retained amount based on po shipment and line amount';
22655: --------------------------------------------------------------------------
22656: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22657: AP_IMPORT_UTILITIES_PKG.Print(
22658: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22659: END IF;
22660:
22661: l_retained_amount := ap_invoice_lines_utility_pkg.get_retained_amount
22665: --------------------------------------------------------------------------
22666: debug_info := '(Check Retainage 2) Check for retainage account';
22667: --------------------------------------------------------------------------
22668: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22669: AP_IMPORT_UTILITIES_PKG.Print(
22670: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
22671: END IF;
22672:
22673: If l_retained_amount IS NOT NULL Then
22673: If l_retained_amount IS NOT NULL Then
22674:
22675: If p_retainage_ccid IS NULL Then
22676:
22677: If (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22678: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
22679: p_invoice_lines_rec.invoice_line_id,
22680: 'RETAINAGE ACCT REQD',
22681: p_default_last_updated_by,
22685: 'INVOICE LINE NUMBER',
22686: p_invoice_lines_rec.line_number) <> TRUE) Then
22687:
22688: If (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') Then
22689: AP_IMPORT_UTILITIES_PKG.Print
22690: (AP_IMPORT_INVOICES_PKG.g_debug_switch, 'insert_rejections<-'||current_calling_sequence);
22691: End If;
22692:
22693: RAISE retainage_check_failure;
22706:
22707: EXCEPTION
22708: WHEN OTHERS THEN
22709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22710: AP_IMPORT_UTILITIES_PKG.Print(
22711: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
22712: END IF;
22713:
22714: IF (SQLCODE < 0) THEN
22712: END IF;
22713:
22714: IF (SQLCODE < 0) THEN
22715: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22716: AP_IMPORT_UTILITIES_PKG.Print(
22717: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
22718: END IF;
22719: END IF;
22720: RETURN(FALSE);
22788: and rownum = 1;
22789:
22790: exception
22791: when no_data_found then
22792: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
22793: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
22794: p_invoice_rec.invoice_id,
22795: 'INVALID PAYMENT REASON',
22796: p_default_last_updated_by,
22796: p_default_last_updated_by,
22797: p_default_last_update_login,
22798: current_calling_sequence) <> TRUE) THEN
22799: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22800: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22801: 'insert_rejections<-'
22802: ||current_calling_sequence);
22803: END IF;
22804: RAISE pmt_attr_validation_failure;
22824: and rownum = 1;
22825:
22826: exception
22827: when no_data_found then
22828: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
22829: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
22830: p_invoice_rec.invoice_id,
22831: 'INVALID BANK CHARGE BEARER',
22832: p_default_last_updated_by,
22832: p_default_last_updated_by,
22833: p_default_last_update_login,
22834: current_calling_sequence) <> TRUE) THEN
22835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22836: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22837: 'insert_rejections<-'
22838: ||current_calling_sequence);
22839: END IF;
22840: RAISE pmt_attr_validation_failure;
22859: and rownum = 1;
22860:
22861: exception
22862: when no_data_found then
22863: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
22864: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
22865: p_invoice_rec.invoice_id,
22866: 'INVALID DELIVERY CHANNEL CODE',
22867: p_default_last_updated_by,
22867: p_default_last_updated_by,
22868: p_default_last_update_login,
22869: current_calling_sequence) <> TRUE) THEN
22870: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22871: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22872: 'insert_rejections<-'
22873: ||current_calling_sequence);
22874: END IF;
22875: RAISE pmt_attr_validation_failure;
22897: and rownum = 1;
22898:
22899: exception
22900: when no_data_found then
22901: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
22902: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
22903: p_invoice_rec.invoice_id,
22904: 'INVALID SETTLEMENT PRIORITY',
22905: p_default_last_updated_by,
22905: p_default_last_updated_by,
22906: p_default_last_update_login,
22907: current_calling_sequence) <> TRUE) THEN
22908: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22909: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22910: 'insert_rejections<-'
22911: ||current_calling_sequence);
22912: END IF;
22913: RAISE pmt_attr_validation_failure;
22935: and rownum = 1;
22936:
22937: exception
22938: when no_data_found then
22939: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
22940: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
22941: p_invoice_rec.invoice_id,
22942: 'INVALID EXTERNAL BANK ACCT ID',
22943: p_default_last_updated_by,
22943: p_default_last_updated_by,
22944: p_default_last_update_login,
22945: current_calling_sequence) <> TRUE) THEN
22946: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22947: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22948: 'insert_rejections<-'
22949: ||current_calling_sequence);
22950: END IF;
22951: RAISE pmt_attr_validation_failure;
22970: END LOOP;
22971:
22972: debug_info := 'l_valid_payment_method: '||l_valid_payment_method;
22973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22974: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22975: debug_info);
22976: END IF;
22977:
22978: IF l_valid_payment_method IS NULL THEN
22976: END IF;
22977:
22978: IF l_valid_payment_method IS NULL THEN
22979:
22980: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
22981: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
22982: p_invoice_rec.invoice_id,
22983: 'INVALID PAY METHOD',
22984: p_default_last_updated_by,
22984: p_default_last_updated_by,
22985: p_default_last_update_login,
22986: current_calling_sequence) <> TRUE) THEN
22987: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22988: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22989: 'insert_rejections<-'
22990: ||current_calling_sequence);
22991: END IF;
22992: RAISE pmt_attr_validation_failure;
23006: and rownum = 1;
23007:
23008: exception
23009: when no_data_found then
23010: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23011: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23012: p_invoice_rec.invoice_id,
23013: 'INVALID PAY METHOD',
23014: p_default_last_updated_by,
23014: p_default_last_updated_by,
23015: p_default_last_update_login,
23016: current_calling_sequence) <> TRUE) THEN
23017: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23018: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23019: 'insert_rejections<-'
23020: ||current_calling_sequence);
23021: END IF;
23022: RAISE pmt_attr_validation_failure;
23192:
23193: --the payment method code is a required field so we should reject if it's
23194: --not present at this point (no default was found)
23195: if p_invoice_rec.payment_method_code is null then
23196: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23197: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23198: p_invoice_rec.invoice_id,
23199: 'INVALID PAY METHOD',
23200: p_default_last_updated_by,
23200: p_default_last_updated_by,
23201: p_default_last_update_login,
23202: current_calling_sequence) <> TRUE) THEN
23203: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23204: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23205: 'insert_rejections<-'
23206: ||current_calling_sequence);
23207: END IF;
23208: RAISE pmt_attr_validation_failure;
23218:
23219: EXCEPTION
23220: WHEN OTHERS THEN
23221: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23222: AP_IMPORT_UTILITIES_PKG.Print(
23223: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
23224: END IF;
23225:
23226: IF (SQLCODE < 0) THEN
23224: END IF;
23225:
23226: IF (SQLCODE < 0) THEN
23227: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23228: AP_IMPORT_UTILITIES_PKG.Print(
23229: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
23230: END IF;
23231: END IF;
23232: RETURN(FALSE);
23273: where vendor_id = p_invoice_rec.vendor_id
23274: and party_id = p_invoice_rec.party_id;
23275: exception
23276: when no_data_found then
23277: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23278: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23279: p_invoice_rec.invoice_id,
23280: 'INCONSISTENT SUPPLIER',
23281: p_default_last_updated_by,
23281: p_default_last_updated_by,
23282: p_default_last_update_login,
23283: current_calling_sequence) <> TRUE) THEN
23284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23286: 'insert_rejections<-'
23287: ||current_calling_sequence);
23288: END IF;
23289: RAISE vendor_party_failure;
23303: where vendor_site_id = p_invoice_rec.vendor_site_id
23304: and party_site_id = p_invoice_rec.party_site_id;
23305: exception
23306: when no_data_found then
23307: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23308: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23309: p_invoice_rec.invoice_id,
23310: 'INCONSISTENT SUPPL SITE',
23311: p_default_last_updated_by,
23311: p_default_last_updated_by,
23312: p_default_last_update_login,
23313: current_calling_sequence) <> TRUE) THEN
23314: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23315: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23316: 'insert_rejections<-'
23317: ||current_calling_sequence);
23318: END IF;
23319: RAISE vendor_party_failure;
23363: from po_vendor_sites
23364: where vendor_site_id = p_invoice_rec.vendor_site_id;
23365: Exception
23366: when no_data_found then
23367: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23368: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23369: p_invoice_rec.invoice_id,
23370: 'INCONSISTENT SUPPL SITE',
23371: p_default_last_updated_by,
23371: p_default_last_updated_by,
23372: p_default_last_update_login,
23373: current_calling_sequence) <> TRUE) THEN
23374: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23375: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23376: 'insert_rejections<-'
23377: ||current_calling_sequence);
23378: END IF;
23379: RAISE vendor_party_failure; --bug6367302
23389: from po_vendors
23390: where vendor_id = p_invoice_rec.vendor_id;
23391: Exception
23392: when no_data_found then
23393: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23394: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23395: p_invoice_rec.invoice_id,
23396: 'INCONSISTENT SUPPLIER',
23397: p_default_last_updated_by,
23397: p_default_last_updated_by,
23398: p_default_last_update_login,
23399: current_calling_sequence) <> TRUE) THEN
23400: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23401: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23402: 'insert_rejections<-'
23403: ||current_calling_sequence);
23404: END IF;
23405: RAISE vendor_party_failure; --bug6367302
23415:
23416: EXCEPTION
23417: WHEN OTHERS THEN
23418: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23419: AP_IMPORT_UTILITIES_PKG.Print(
23420: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
23421: END IF;
23422:
23423: IF (SQLCODE < 0) THEN
23421: END IF;
23422:
23423: IF (SQLCODE < 0) THEN
23424: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23425: AP_IMPORT_UTILITIES_PKG.Print(
23426: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
23427: END IF;
23428: END IF;
23429: RETURN(FALSE);
23488: ) THEN
23489:
23490: debug_info := 'Call Ap_Etx_Utility_Pkg.Get_PO_Info';
23491: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23492: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23493: debug_info);
23494: END IF;
23495:
23496: l_success := AP_ETAX_UTILITY_PKG.Get_PO_Info(
23525:
23526: -- bug 8483345: start
23527: debug_info := 'Get Default Tax Classification';
23528: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23529: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
23530: END IF;
23531:
23532: ZX_AP_TAX_CLASSIFICATN_DEF_PKG.get_default_tax_classification
23533: (p_ref_doc_application_id => l_ref_doc_application_id,
23557: -- bug 8483345: end
23558:
23559: debug_info := 'Call ap_etx_servies_pkg.get_po_tax_attributes';
23560: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23561: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23562: debug_info);
23563: END IF;
23564:
23565: -- bug 8495005 fix starts
23611: -- bug 8483345: end
23612:
23613: debug_info := 'populate the lines record with tax attr info';
23614: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23615: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23616: debug_info);
23617: END IF;
23618:
23619: IF (p_invoice_lines_rec.primary_intended_use IS NULL) THEN
23644:
23645:
23646: debug_info := 'l_full_mtch_amt '||l_full_mtch_amt;
23647: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23648: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23649: debug_info);
23650: END IF;
23651: IF(l_full_mtch_amt = p_invoice_lines_rec.amount)THEN
23652: p_invoice_lines_rec.assessable_value := l_assessable_value;
23676:
23677: EXCEPTION
23678: WHEN OTHERS THEN
23679: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23680: AP_IMPORT_UTILITIES_PKG.Print(
23681: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
23682: END IF;
23683:
23684: IF (SQLCODE < 0) THEN
23682: END IF;
23683:
23684: IF (SQLCODE < 0) THEN
23685: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23686: AP_IMPORT_UTILITIES_PKG.Print(
23687: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
23688: END IF;
23689: END IF;
23690: RETURN(FALSE);
23732:
23733:
23734:
23735: IF (c_ship_to_location%NOTFOUND) THEN
23736: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
23737: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
23738: p_invoice_rec.invoice_id,
23739: 'INVALID LOCATION CODE',
23740: p_default_last_updated_by,
23741: p_default_last_update_login,
23742: current_calling_sequence) <> TRUE) THEN
23743:
23744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23745: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23746: 'insert_rejections<-'
23747: ||current_calling_sequence);
23748:
23749: END IF;
23768:
23769: EXCEPTION
23770: WHEN OTHERS THEN
23771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23772: AP_IMPORT_UTILITIES_PKG.Print(
23773: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
23774: END IF;
23775:
23776: IF (SQLCODE < 0) THEN
23774: END IF;
23775:
23776: IF (SQLCODE < 0) THEN
23777: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
23778: AP_IMPORT_UTILITIES_PKG.Print(
23779: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
23780: END IF;
23781: END IF;
23782: RETURN(FALSE);
23821: ||P_calling_sequence;
23822:
23823: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23824: debug_info := 'Check valid remit to supplier details';
23825: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23826: debug_info);
23827:
23828: debug_info := 'Remit to supplier Name '||p_invoice_rec.remit_to_supplier_name;
23829: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23825: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23826: debug_info);
23827:
23828: debug_info := 'Remit to supplier Name '||p_invoice_rec.remit_to_supplier_name;
23829: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23830: debug_info);
23831:
23832: debug_info := 'Remit to supplier Id '||p_invoice_rec.remit_to_supplier_id;
23833: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23829: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23830: debug_info);
23831:
23832: debug_info := 'Remit to supplier Id '||p_invoice_rec.remit_to_supplier_id;
23833: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23834: debug_info);
23835:
23836: debug_info := 'Remit to supplier Site Id '||p_invoice_rec.remit_to_supplier_site_id;
23837: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23833: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23834: debug_info);
23835:
23836: debug_info := 'Remit to supplier Site Id '||p_invoice_rec.remit_to_supplier_site_id;
23837: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23838: debug_info);
23839:
23840: debug_info := 'Remit to supplier Site Name '||p_invoice_rec.remit_to_supplier_site;
23841: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23837: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23838: debug_info);
23839:
23840: debug_info := 'Remit to supplier Site Name '||p_invoice_rec.remit_to_supplier_site;
23841: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23842: debug_info);
23843: END IF;
23844:
23845: If(p_invoice_rec.remit_to_supplier_name IS NOT NULL) then
23864: FROM hz_parties
23865: WHERE party_name = p_invoice_rec.remit_to_supplier_name;
23866: EXCEPTION
23867: WHEN NO_DATA_FOUND THEN
23868: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
23869: AP_IMPORT_INVOICES_PKG.g_invoices_table,
23870: p_invoice_rec.invoice_id,
23871: 'INVALID REMIT TO SUPPLIER NAME',
23872: p_default_last_updated_by,
23872: p_default_last_updated_by,
23873: p_default_last_update_login,
23874: current_calling_sequence) <> TRUE) THEN
23875: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23876: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23877: 'insert_rejections<-'||current_calling_sequence);
23878: END IF;
23879:
23880: END IF;
23885: END IF;
23886:
23887: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23888: debug_info := 'If Remit to supplier Name '||l_remit_supplier_name;
23889: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23890: debug_info);
23891: END IF;
23892:
23893: if(p_invoice_rec.remit_to_supplier_id IS NOT NULL) then
23905: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
23906:
23907: EXCEPTION
23908: WHEN NO_DATA_FOUND THEN
23909: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
23910: AP_IMPORT_INVOICES_PKG.g_invoices_table,
23911: p_invoice_rec.invoice_id,
23912: 'INVALID REMIT TO SUPPLIER ID',
23913: p_default_last_updated_by,
23913: p_default_last_updated_by,
23914: p_default_last_update_login,
23915: current_calling_sequence) <> TRUE) THEN
23916: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23917: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23918: 'insert_rejections<-'||current_calling_sequence);
23919: END IF;
23920:
23921: END IF;
23925: END IF;
23926:
23927: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23928: debug_info := 'If Remit to supplier Id '||l_remit_supplier_id;
23929: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23930: debug_info);
23931: END IF;
23932:
23933: if(p_invoice_rec.remit_to_supplier_num IS NOT NULL) then
23945: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
23946:
23947: EXCEPTION
23948: WHEN NO_DATA_FOUND THEN
23949: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
23950: AP_IMPORT_INVOICES_PKG.g_invoices_table,
23951: p_invoice_rec.invoice_id,
23952: 'INVALID REMIT TO SUPPLIER NUM',
23953: p_default_last_updated_by,
23953: p_default_last_updated_by,
23954: p_default_last_update_login,
23955: current_calling_sequence) <> TRUE) THEN
23956: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23957: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23958: 'insert_rejections<-'||current_calling_sequence);
23959: END IF;
23960:
23961: END IF;
23965: END IF;
23966:
23967: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
23968: debug_info := 'Remit to supplier Num '||l_remit_supplier_num;
23969: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
23970: debug_info);
23971: END IF;
23972:
23973: --BEGIN
24015: INTO l_remit_party_id;
24016:
24017: IF refcur%rowcount = 0
24018: THEN
24019: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
24020: ( AP_IMPORT_INVOICES_PKG.g_invoices_table,
24021: p_invoice_rec.invoice_id,
24022: 'INCONSISTENT REMIT SUPPLIER',
24023: p_default_last_updated_by,
24024: p_default_last_update_login,
24025: current_calling_sequence) <> TRUE)
24026: THEN
24027: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24028: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24029: 'insert_rejections<-'||current_calling_sequence);
24030: END IF;
24031: END IF;
24032: RAISE invalid_remit_supplier_failure;
24052: END IF;
24053: /* Commented for bug#9852174 Start
24054: EXCEPTION
24055: WHEN NO_DATA_FOUND THEN
24056: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
24057: AP_IMPORT_INVOICES_PKG.g_invoices_table,
24058: p_invoice_rec.invoice_id,
24059: 'INCONSISTENT REMIT SUPPLIER',
24060: p_default_last_updated_by,
24060: p_default_last_updated_by,
24061: p_default_last_update_login,
24062: current_calling_sequence) <> TRUE) THEN
24063: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24064: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24065: 'insert_rejections<-'||current_calling_sequence);
24066: END IF;
24067:
24068: END IF;
24080: and org_id = p_invoice_rec.org_id;
24081:
24082: EXCEPTION
24083: WHEN NO_DATA_FOUND THEN
24084: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
24085: AP_IMPORT_INVOICES_PKG.g_invoices_table,
24086: p_invoice_rec.invoice_id,
24087: 'INVALID REMIT TO SUPP SITE ID',
24088: p_default_last_updated_by,
24088: p_default_last_updated_by,
24089: p_default_last_update_login,
24090: current_calling_sequence) <> TRUE) THEN
24091: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24092: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24093: 'insert_rejections<-'||current_calling_sequence);
24094: END IF;
24095:
24096: END IF;
24100: END IF;
24101:
24102: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24103: debug_info := 'Remit to supplier Site Id '||l_remit_supplier_site_id;
24104: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24105: debug_info);
24106: END IF;
24107:
24108: if(p_invoice_rec.remit_to_supplier_site IS NOT NULL) then
24142: end if;
24143:
24144: EXCEPTION
24145: WHEN NO_DATA_FOUND THEN
24146: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
24147: AP_IMPORT_INVOICES_PKG.g_invoices_table,
24148: p_invoice_rec.invoice_id,
24149: 'INVALID REMIT TO SUPPLIER SITE',
24150: p_default_last_updated_by,
24150: p_default_last_updated_by,
24151: p_default_last_update_login,
24152: current_calling_sequence) <> TRUE) THEN
24153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24154: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24155: 'insert_rejections<-'||current_calling_sequence);
24156: END IF;
24157:
24158: END IF;
24162: END IF;
24163:
24164: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24165: debug_info := 'Remit to supplier Site '||l_remit_supplier_site;
24166: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24167: debug_info);
24168:
24169: debug_info := 'Data To IBY ';
24170: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24166: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24167: debug_info);
24168:
24169: debug_info := 'Data To IBY ';
24170: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24171: debug_info);
24172:
24173: debug_info := 'Party Id '||p_invoice_rec.party_id;
24174: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24170: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24171: debug_info);
24172:
24173: debug_info := 'Party Id '||p_invoice_rec.party_id;
24174: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24175: debug_info);
24176:
24177: debug_info := 'Vendor Site id '||p_invoice_rec.vendor_site_id;
24178: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24174: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24175: debug_info);
24176:
24177: debug_info := 'Vendor Site id '||p_invoice_rec.vendor_site_id;
24178: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24179: debug_info);
24180:
24181: debug_info := 'Invoice Date '||p_invoice_rec.invoice_date;
24182: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24178: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24179: debug_info);
24180:
24181: debug_info := 'Invoice Date '||p_invoice_rec.invoice_date;
24182: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24183: debug_info);
24184: END IF;
24185:
24186: /* commented below code as part of bug 8504185
24227: END IF;
24228:
24229: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24230: debug_info := 'Remit Party Id '||l_remit_party_id;
24231: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24232: debug_info);
24233:
24234: debug_info := 'Remit Supplier Site Id '||l_remit_supplier_site_id;
24235: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24231: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24232: debug_info);
24233:
24234: debug_info := 'Remit Supplier Site Id '||l_remit_supplier_site_id;
24235: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24236: debug_info);
24237: END IF;
24238:
24239: l_relationship_id := p_invoice_rec.relationship_id; -- bug 8224788
24249: );
24250:
24251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24252: debug_info := 'Data From IBY ';
24253: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24254: debug_info);
24255:
24256: debug_info := 'x_result : ' || l_result;
24257: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24253: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24254: debug_info);
24255:
24256: debug_info := 'x_result : ' || l_result;
24257: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24258: debug_info);
24259: END IF;
24260:
24261: IF (l_result = FND_API.G_TRUE) THEN
24281: p_invoice_rec.remit_to_supplier_site := l_remit_supplier_site;
24282:
24283: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24284: debug_info := 'Invoice Type Lookup Code '||p_invoice_rec.invoice_type_lookup_code;
24285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24286: debug_info);
24287: END IF;
24288:
24289: -- Bug 7675510
24300:
24301: /*IF (p_invoice_rec.invoice_type_lookup_code = 'PAYMENT REQUEST') THEN
24302:
24303: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24304: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
24305: END IF;
24306:
24307: IF (l_remit_party_id is not null) THEN
24308: --Bug 7860631 Removed the party_id field into the supplier_id field.
24350: -- bug 8497933
24351:
24352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24353: debug_info := 'Remit To Party Id '||l_remit_party_id;
24354: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24355: debug_info);
24356:
24357: debug_info := 'Remit To Supplier Id '||l_remit_supplier_id;
24358: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24354: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24355: debug_info);
24356:
24357: debug_info := 'Remit To Supplier Id '||l_remit_supplier_id;
24358: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24359: debug_info);
24360:
24361: debug_info := 'Remit To Supplier '||l_remit_supplier_name;
24362: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24358: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24359: debug_info);
24360:
24361: debug_info := 'Remit To Supplier '||l_remit_supplier_name;
24362: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24363: debug_info);
24364:
24365: debug_info := 'Remit To Supplier Num '||l_remit_supplier_num;
24366: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24362: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24363: debug_info);
24364:
24365: debug_info := 'Remit To Supplier Num '||l_remit_supplier_num;
24366: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24367: debug_info);
24368:
24369: debug_info := 'Relationship Id '||l_relationship_id;
24370: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24366: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24367: debug_info);
24368:
24369: debug_info := 'Relationship Id '||l_relationship_id;
24370: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24371: debug_info);
24372: END IF;
24373:
24374: ELSE -- if relationship_id <> -1 -- bug 8345877
24381: END IF; -- if relationship_id <> -1 -- bug 8345877
24382:
24383: ELSE
24384:
24385: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
24386: AP_IMPORT_INVOICES_PKG.g_invoices_table,
24387: p_invoice_rec.invoice_id,
24388: 'INVALID THIRD PARTY RELATION',
24389: p_default_last_updated_by,
24389: p_default_last_updated_by,
24390: p_default_last_update_login,
24391: current_calling_sequence) <> TRUE) THEN
24392: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24393: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24394: 'insert_rejections<-'||current_calling_sequence);
24395: END IF;
24396: END IF;
24397:
24408: WHEN OTHERS THEN
24409: p_current_invoice_status := 'N';
24410:
24411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
24412: AP_IMPORT_UTILITIES_PKG.Print(
24413: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
24414: END IF;
24415:
24416: IF (SQLCODE < 0) THEN
24414: END IF;
24415:
24416: IF (SQLCODE < 0) THEN
24417: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
24418: AP_IMPORT_UTILITIES_PKG.Print(
24419: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
24420: END IF;
24421: END IF;
24422: RETURN FALSE;
24445: ||P_calling_sequence;
24446:
24447: debug_info := '(Check GDF VALIDATION) Call CHECK_GDF_VALID';
24448: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24449: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24450: debug_info);
24451: END IF;
24452:
24453: IF (p_valid_level = 'INVOICE LINE')THEN
24465: l_return_code IS NOT NULL)THEN
24466:
24467: debug_info := '(Check GDF VALIDATION) GDF is invalid';
24468: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24469: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24470: debug_info);
24471: END IF;
24472:
24473: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
24469: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24470: debug_info);
24471: END IF;
24472:
24473: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
24474: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
24475: p_invoice_line_id,
24476: 'AP_INCORRECT_GTAS_INFO',
24477: p_default_last_updated_by,
24477: p_default_last_updated_by,
24478: p_default_last_update_login,
24479: current_calling_sequence) <> TRUE) THEN
24480: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24481: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24482: 'insert_rejections<-'|| current_calling_sequence);
24483: END IF;
24484: RAISE invalid_gdf_check_failure;
24485: END IF;
24487: p_current_invoice_status := l_current_invoice_status;
24488: ELSE
24489: debug_info := '(Check GDF VALIDATION) GDF is valid';
24490: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24491: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24492: debug_info);
24493: END IF;
24494: p_current_invoice_status := l_current_invoice_status;
24495: END IF;
24497:
24498: EXCEPTION
24499: WHEN OTHERS THEN
24500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24501: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24502: debug_info);
24503: END IF;
24504:
24505: IF (SQLCODE < 0) then
24503: END IF;
24504:
24505: IF (SQLCODE < 0) then
24506: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
24507: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
24508: SQLERRM);
24509: END IF;
24510: END IF;
24511: RETURN(FALSE);