[Home] [Help]
103: -- Initialize invoice_date if null
104: --------------------------------------------------------------------------
105: debug_info := '(Check Invoice Validation 0) Initialize invoice_date if null';
106: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
107: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
108: debug_info);
109: END IF;
110:
111: IF (p_invoice_rec.invoice_date IS NULL) THEN
118: --------------------------------------------------------------------------
119: debug_info :=
120: '(Check Invoice Validation 1) Check for Invalid and Inactive PO';
121: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
122: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
123: debug_info);
124: END IF;
125: --
126: IF (p_invoice_rec.po_number IS NOT NULL) THEN
138: p_po_vendor_site_id => l_vendor_site_id_per_po, -- OUT
139: p_po_exists_flag => l_po_exists_flag, -- OUT
140: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
141: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
142: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
143: 'v_check_invalid_po<-'||current_calling_sequence);
144: END IF;
145: RAISE check_inv_validation_failure;
146: END IF;
156: --
157: -- show output values (only if debug_switch = 'Y')
158: --
159: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
160: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
161: '------------------>
162: l_temp_invoice_status = '||l_temp_invoice_status
163: ||' l_vendor_id = '||to_char(l_vendor_id)
164: ||' l_vendor_site_id_per_po = '||to_char(l_vendor_site_id_per_po)
185: -- Check for Invalid or Inconsistent Legal Entity Name and Id
186: ---------------------------------------------------------------------------
187: debug_info := '(Check Invoice Validation 2) Check for Invalid Legal Entity';
188: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
189: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
190: debug_info);
191: END IF;
192:
193: -- YIDSAL. Include here call the validate function for the LE Id and NaMe
198: -- Check for Invalid Supplier or Inconsistent Supplier
199: ---------------------------------------------------------------------------
200: debug_info := '(Check Invoice Validation 2) Check for Invalid Supplier';
201: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
203: debug_info);
204: END IF;
205:
206: -- Added party validation for payment request project
212: p_default_last_update_login, -- IN
213: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
214: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
216: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
217: 'v_check_invalid_party <-'||current_calling_sequence);
218: END IF;
219: RAISE check_inv_validation_failure;
220: END IF;
228: p_return_vendor_id => l_vendor_id, -- OUT
229: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
230: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
231: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
232: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
233: 'v_check_invalid_supplier<-'||current_calling_sequence);
234: END IF;
235: RAISE check_inv_validation_failure;
236: END IF;
262: END IF;
263:
264: debug_info := '(Check Invoice Validation 2) Validated Supplier';
265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
266: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
267: debug_info);
268: END IF;
269: --
270: -- show output values (only if debug_switch = 'Y')
269: --
270: -- show output values (only if debug_switch = 'Y')
271: --
272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
273: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
274: '------------------>
275: l_temp_invoice_status = '||l_temp_invoice_status
276: ||' l_vendor_id = '||to_char(l_vendor_id));
277: END IF;
293: -------------------------------------------------------------------------
294: debug_info := '(Check Invoice Validation 3) '||
295: 'Check for Invalid Supplier Site, if Supplier is valid';
296: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
297: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
298: debug_info);
299: END IF;
300:
301:
310: (p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST')) Then
311:
312: debug_info := '(Check Invoice Validation 3.1) Supplier Site is per PO';
313: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
314: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
315: debug_info);
316: END IF;
317:
318: IF (AP_IMPORT_UTILITIES_PKG.find_vendor_primary_paysite(
314: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
315: debug_info);
316: END IF;
317:
318: IF (AP_IMPORT_UTILITIES_PKG.find_vendor_primary_paysite(
319: p_vendor_id => p_invoice_rec.vendor_id, -- IN
320: p_vendor_primary_paysite_id => l_primary_paysite_id, -- OUT
321: p_calling_sequence => current_calling_sequence)
322: <> true ) THEN
320: p_vendor_primary_paysite_id => l_primary_paysite_id, -- OUT
321: p_calling_sequence => current_calling_sequence)
322: <> true ) THEN
323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
324: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
325: 'find_vendor_primary_paysite<-'||current_calling_sequence);
326: END IF;
327: RAISE check_inv_validation_failure;
328: END IF;
335:
336: ELSE
337: debug_info := '(Check Invoice Validation 3.2) Supplier Site is per EDI';
338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
339: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
340: debug_info);
341: END IF;
342:
343: END IF;
355: p_terms_date_basis => l_terms_date_basis, -- OUT
356: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
357: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
360: 'v_check_invalid_party_site<-'
361: ||current_calling_sequence);
362: END IF;
363: RAISE check_inv_validation_failure;
374: p_terms_date_basis => l_terms_date_basis, -- OUT
375: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
376: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
377: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
378: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
379: 'v_check_invalid_supplier_site<-'
380: ||current_calling_sequence);
381: END IF;
382: RAISE check_inv_validation_failure;
399: END IF;
400:
401: debug_info := '(Check Invoice Validation 3) Validated Supplier Site';
402: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
403: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
404: debug_info);
405: END IF;
406:
407: --
407: --
408: -- show output values (only if debug_switch = 'Y')
409: --
410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
412: '------------------>
413: l_temp_invoice_status = '||l_temp_invoice_status
414: ||' l_vendor_site_id = '||to_char(l_vendor_site_id)
415: ||' l_party_site_id = '||to_char(l_party_site_id));
427: current_calling_sequence,
428: p_default_last_updated_by,
429: p_default_last_update_login) <> TRUE) then
430: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
431: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
432: 'v_check_party_vendor<-'
433: ||current_calling_sequence);
434: END IF;
435: RAISE check_inv_validation_failure;
441:
442: debug_info := '(Check Invoice Validation 3.5) Validated party and vendor info ' ||
443: 'l_temp_invoice_status = '||l_temp_invoice_status;
444: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
445: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
446: debug_info);
447: END IF;
448:
449:
452: --Contract Payments: Tolerances Redesign, added the max_amt_ord and max_amt_rec
453: --tolerances.
454: IF (p_invoice_rec.vendor_site_id IS NOT NULL AND
455: p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST') THEN
456: IF ( ap_import_utilities_pkg.get_tolerance_info(
457: p_invoice_rec.vendor_site_id, -- IN
458: p_positive_price_tolerance, -- OUT
459: p_negative_price_tolerance, -- OUT
460: p_qty_tolerance, -- OUT
474: current_calling_sequence
475: ) <> TRUE) THEN
476:
477: if AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' then
478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, 'get_tolerance_info()<-'||
479: current_calling_sequence);
480: end if;
481: RAISE import_invoice_failure;
482: END IF;
497: debug_info := '(Check Invoice Validation 4) '||
498: 'Check for Invalid Invoice Number '||
499: ',if Supplier Site is valid';
500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
501: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
502: debug_info);
503: END IF;
504:
505: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_invoice_num (
512: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
513: p_calling_sequence => current_calling_sequence)
514: <> TRUE ) THEN
515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
516: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
517: 'v_check_invalid_invoice_num<- '||current_calling_sequence);
518: END IF;
519: RAISE check_inv_validation_failure;
520: END IF;
531: --
532: -- show output values (only if debug_switch = 'Y')
533: --
534: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
535: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
536: '------------------> l_temp_invoice_status = '||l_temp_invoice_status);
537: END IF;
538:
539: -- only continue if a valid invoice number was found
552: -----------------------------------------------------------------------
553: debug_info := '(Check Invoice Validation 5) Check for Currency Code ,'
554: ||'if Invoice No. is valid';
555: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
556: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
557: debug_info);
558: END IF;
559:
560: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_inv_curr_code (
567: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
568: p_calling_sequence => current_calling_sequence)
569: <> TRUE ) THEN
570: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
571: AP_IMPORT_UTILITIES_PKG.Print(
572: AP_IMPORT_INVOICES_PKG.g_debug_switch,
573: 'v_check_invalid_currency_code<-'||current_calling_sequence);
574: END IF;
575: RAISE check_inv_validation_failure;
585: END IF;
586: --
587:
588: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
589: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
590: '--------------> l_temp_invoice_status = ' ||l_temp_invoice_status
591: ||' l_inv_currency_code = '|| l_inv_currency_code);
592: END IF;
593:
605: ----------------------------------------------------------------------
606: debug_info := '(Check Invoice Validation 6) Check for Invoice Lookup '
607: ||'Code and Amount ,if Invoice No. is valid';
608: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
609: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
610: debug_info);
611: END IF;
612:
613: IF (AP_IMPORT_VALIDATION_PKG.v_check_invoice_type_amount (
620: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
621: p_calling_sequence => current_calling_sequence)
622: <> TRUE ) THEN
623: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
624: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
625: 'v_check_invoice_type_amount<-'||current_calling_sequence);
626: END IF;
627: RAISE check_inv_validation_failure;
628: END IF;
640: --
641: -- show output values (only if debug_switch = 'Y')
642: --
643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
644: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
645: '------------------>
646: l_temp_invoice_status = '||l_temp_invoice_status
647: ||' p_match_mode = '||p_match_mode);
648: END IF;
658: ----------------------------------------------------------------------
659: debug_info := '(Check Invoice Validation 7) Check for AWT Group ,'
660: ||'if Invoice No. is valid';
661: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
662: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
663: debug_info);
664: END IF;
665:
666: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_awt_group(
671: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
672: p_calling_sequence => current_calling_sequence)
673: <> TRUE ) THEN
674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
675: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
676: 'v_check_invalid_awt_group<-'||current_calling_sequence);
677: END IF;
678: RAISE check_inv_validation_failure;
679: END IF;
688: END IF;
689: END IF;
690:
691: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
692: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
693: '------------------>
694: l_temp_invoice_status = '||l_temp_invoice_status);
695: END IF;
696: --bug6639866
705: ----------------------------------------------------------------------
706: debug_info := '(Check Invoice Validation 7) Check for pay AWT Group ,'
707: ||'if Invoice No. is valid';
708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
709: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
710: debug_info);
711: END IF;
712:
713: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_pay_awt_group(
718: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
719: p_calling_sequence => current_calling_sequence)
720: <> TRUE ) THEN
721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
722: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
723: 'v_check_invalid_pay_awt_group<-'||current_calling_sequence);
724: END IF;
725: RAISE check_inv_validation_failure;
726: END IF;
735: END IF;
736: END IF;
737:
738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
739: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
740: '------------------>
741: l_temp_invoice_status = '||l_temp_invoice_status);
742: END IF;
743:
756: ----------------------------------------------------------------------
757: debug_info := '(Check Invoice Validation 8) Check for Exchange Rate '
758: ||'Type ,if Invoice No. is valid';
759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
760: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
761: debug_info);
762: END IF;
763:
764: IF (AP_IMPORT_VALIDATION_PKG.v_check_exchange_rate_type (
775: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
776: p_calling_sequence => current_calling_sequence)
777: <> TRUE ) THEN
778: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
779: AP_IMPORT_UTILITIES_PKG.Print(
780: AP_IMPORT_INVOICES_PKG.g_debug_switch,
781: 'v_check_exchange_rate_type<-'||current_calling_sequence);
782: END IF;
783: RAISE check_inv_validation_failure;
801: END IF;
802: END IF;
803:
804: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
805: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
806: '------------------>
807: l_temp_invoice_status = '||l_temp_invoice_status);
808: END IF;
809:
821: ----------------------------------------------------------------------
822: debug_info := '(Check Invoice Validation 9) Check for Terms Info ,'
823: ||'if Invoice No. is valid';
824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
825: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
826: debug_info);
827: END IF;
828:
829: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_terms (
836: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
837: p_calling_sequence => current_calling_sequence)
838: <> TRUE ) THEN
839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
840: AP_IMPORT_UTILITIES_PKG.Print(
841: AP_IMPORT_INVOICES_PKG.g_debug_switch,
842: 'v_check_invalid_terms<-'||current_calling_sequence);
843: END IF;
844: RAISE check_inv_validation_failure;
857: END IF;
858: END IF;
859:
860: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
861: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
862: '------------------>
863: l_temp_invoice_status = '||l_temp_invoice_status
864: ||'terms_id = '||to_char(l_terms_id) );
865: END IF;
869: -- Check for Misc Invoice info
870: ----------------------------------------------------------------------
871: debug_info := '(Check Invoice Validation 10) Check for Misc Info ';
872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
873: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
874: debug_info);
875: END IF;
876: IF (AP_IMPORT_VALIDATION_PKG.v_check_misc_invoice_info (
877: p_invoice_rec, -- IN
881: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
882: p_calling_sequence => current_calling_sequence)
883: <> TRUE ) THEN
884: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
885: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
886: 'v_check_misc_invoice_info<-'||current_calling_sequence);
887: END IF;
888: RAISE check_inv_validation_failure;
889: END IF;
892: l_current_invoice_status := l_temp_invoice_status;
893: END IF;
894:
895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
896: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
897: '------------------>
898: l_temp_invoice_status = '||l_temp_invoice_status);
899: END IF;
900:
910: will be used to derive the LE using a LE API.
911: --------------------------------------------------------------------*/
912: debug_info := '(Check Invoice Validation 11a) Check for LE Info ';
913: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
914: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
915: debug_info);
916: END IF;
917:
918: IF (AP_IMPORT_VALIDATION_PKG.v_check_Legal_Entity_info (
923: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
924: p_calling_sequence => current_calling_sequence)
925: <> TRUE ) THEN
926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
927: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
928: 'v_check_Legal_Entity_info<-'||current_calling_sequence);
929: END IF;
930: RAISE check_inv_validation_failure;
931: END IF;
934: l_current_invoice_status := l_temp_invoice_status;
935: END IF;
936:
937: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
938: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
939: '------------------>
940: l_temp_invoice_status = '||l_temp_invoice_status);
941: END IF;
942:
955: ----------------------------------------------------------------------
956: debug_info := '(Check Invoice Validation 11) Check for '||
957: 'Payment Currency Info ,if Invoice No. is valid';
958: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
959: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
960: debug_info);
961: END IF;
962:
963: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_pay_curr (
971: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
972: p_calling_sequence => current_calling_sequence)
973: <> TRUE ) THEN
974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
975: AP_IMPORT_UTILITIES_PKG.Print(
976: AP_IMPORT_INVOICES_PKG.g_debug_switch,
977: 'v_check_invalid_pay_curr<-'||current_calling_sequence);
978: END IF;
979: RAISE check_inv_validation_failure;
1003: END IF;
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:
1018: -- now also be the Temp table AP_PPA_INVOICES_GT
1019: ----------------------------------------------------------------------
1020: debug_info := '(Check Invoice Validation 13) Check for GDFF';
1021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1022: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1023: debug_info);
1024: END IF;
1025: jg_globe_flex_val.check_attr_value(
1026: 'APXIIMPT',
1059: NULL,NULL,NULL,NULL,
1060: p_current_status => l_temp_invoice_status);
1061:
1062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1063: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1064: 'Global Flexfield Header Processed '|| l_temp_invoice_status);
1065: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1066: 'Invoice_id '|| to_char(p_invoice_rec.invoice_id));
1067: END IF;
1061:
1062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1063: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1064: 'Global Flexfield Header Processed '|| l_temp_invoice_status);
1065: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1066: 'Invoice_id '|| to_char(p_invoice_rec.invoice_id));
1067: END IF;
1068: IF (l_temp_invoice_status = 'N') THEN
1069: l_current_invoice_status := l_temp_invoice_status;
1079: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
1080: debug_info :=
1081: '(Check Invoice Validation 14) Check for Prepayment Info.';
1082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1083: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1084: debug_info);
1085: END IF;
1086:
1087: IF (AP_IMPORT_VALIDATION_PKG.v_check_prepay_info(
1096: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1097: p_calling_sequence => current_calling_sequence)
1098: <> TRUE ) THEN
1099: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1100: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1101: 'v_check_prepay_info<-' ||current_calling_sequence);
1102: END IF;
1103: RAISE check_inv_validation_failure;
1104:
1108: l_current_invoice_status := l_temp_invoice_status;
1109: END IF;
1110:
1111: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1112: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1113: '------------------>
1114: l_temp_invoice_status = '||l_temp_invoice_status);
1115: END IF;
1116: END IF;
1125: debug_info :=
1126: '(Check Invoice Validation 15) Check for tax drivers or invoice level '||
1127: 'tax validations.';
1128: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1129: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1130: debug_info);
1131: END IF;
1132:
1133: IF (AP_IMPORT_VALIDATION_PKG.v_check_tax_info(
1138: p_calling_sequence => current_calling_sequence)
1139: <> TRUE ) THEN
1140:
1141: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1142: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1143: 'v_check_tax_info<-' ||current_calling_sequence);
1144: END IF;
1145: RAISE check_inv_validation_failure;
1146:
1150: l_current_invoice_status := l_temp_invoice_status;
1151: END IF;
1152:
1153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1154: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1155: '------------------> l_temp_invoice_status = '
1156: ||l_temp_invoice_status);
1157:
1158: END IF;
1164: ------------------------------------------------
1165:
1166: debug_info := 'Check for Invalid Remit to Supplier';
1167: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1168: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1169: debug_info);
1170: END IF;
1171:
1172: IF (AP_IMPORT_VALIDATION_PKG.v_check_invalid_remit_supplier (
1175: p_default_last_update_login => p_default_last_update_login, -- IN
1176: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1177: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
1178: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1179: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1180: 'v_check_invalid_remit_supplier<-'||current_calling_sequence);
1181: END IF;
1182: RAISE check_inv_validation_failure;
1183: END IF;
1186: l_current_invoice_status := l_temp_invoice_status;
1187: END IF;
1188:
1189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1190: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1191: '------------------> l_temp_invoice_status = '
1192: ||l_temp_invoice_status);
1193: END IF;
1194:
1211: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
1212: debug_info :=
1213: '(Check Invoice Validation 16) Check for Exchange Rate Info.';
1214: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1215: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1216: debug_info);
1217: END IF;
1218:
1219: IF (AP_IMPORT_VALIDATION_PKG.v_check_no_xrate_base_amount (
1227: p_current_invoice_status => l_temp_invoice_status, -- IN OUT
1228: p_calling_sequence => current_calling_sequence)
1229: <> TRUE ) THEN
1230: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1231: AP_IMPORT_UTILITIES_PKG.Print(
1232: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1233: 'v_check_inavlid_currency_code<-' ||current_calling_sequence);
1234: END IF;
1235: RAISE check_inv_validation_failure;
1247: END IF; --Retropricing
1248:
1249: debug_info := '(Check Invoice Validation 17) Check Payment Info ';
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: debug_info);
1253: END IF;
1254:
1255: IF (AP_IMPORT_VALIDATION_PKG.v_check_payment_defaults (
1259: p_default_last_updated_by,
1260: p_default_last_update_login)
1261: <> TRUE ) THEN
1262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1264: 'v_check_payment_defaults<-'||current_calling_sequence);
1265: END IF;
1266: RAISE check_inv_validation_failure;
1267: END IF;
1270: l_current_invoice_status := l_temp_invoice_status;
1271: END IF;
1272:
1273: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1274: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1275: '------------------>
1276: l_temp_invoice_status = '||l_temp_invoice_status);
1277: END IF;
1278:
1306:
1307: EXCEPTION
1308: WHEN OTHERS THEN
1309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1310: AP_IMPORT_UTILITIES_PKG.Print(
1311: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1312: END IF;
1313:
1314: IF (SQLCODE < 0) then
1312: END IF;
1313:
1314: IF (SQLCODE < 0) then
1315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
1317: END IF;
1318: END IF;
1319: RETURN(FALSE);
1320:
1369: -- Check for Inactive PO NUMBER.
1370: --------------------------------------------------------------------------
1371: debug_info := '(Check PO Number 1) Check for Inactive PO Number.';
1372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1374: debug_info);
1375: END IF;
1376: --Bypass this rejections for PPA's --Retropricing
1377: IF (l_closed_date is not null AND
1376: --Bypass this rejections for PPA's --Retropricing
1377: IF (l_closed_date is not null AND
1378: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
1379: -- PO has been closed
1380: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
1381: AP_IMPORT_INVOICES_PKG.g_invoices_table,
1382: p_invoice_rec.invoice_id,
1383: 'INACTIVE PO',
1384: p_default_last_updated_by,
1384: p_default_last_updated_by,
1385: p_default_last_update_login,
1386: current_calling_sequence) <> TRUE) THEN
1387: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1388: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1389: 'insert_rejections<-'||
1390: current_calling_sequence);
1391: END IF;
1392: RAISE invalid_po_check_failure;
1400: -- Check for Inconsistent PO Vendor.
1401: ------------------------------------------------------------------------
1402: debug_info := '(Check PO Number 2) Check for Inconsistent PO Vendor.';
1403: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1404: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1405: debug_info);
1406: END IF;
1407:
1408: IF (l_vendor_id <> nvl(p_invoice_rec.vendor_id, l_vendor_id)) THEN
1414: INTO l_invoice_vendor_name
1415: FROM po_vendors
1416: WHERE vendor_id = p_invoice_rec.vendor_id;
1417:
1418: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1419: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1420: p_invoice_rec.invoice_id,
1421: 'INCONSISTENT PO SUPPLIER',
1422: p_default_last_updated_by,
1425: 'Y',
1426: 'SUPPLIER NAME',
1427: l_invoice_vendor_name) <> TRUE) THEN
1428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1429: AP_IMPORT_UTILITIES_PKG.Print(
1430: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1431: 'insert_rejections<-'||current_calling_sequence);
1432: END IF;
1433: RAISE invalid_po_check_failure;
1437: WHEN NO_DATA_FOUND THEN
1438: NULL;
1439: END;
1440: ELSE
1441: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1442: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1443: p_invoice_rec.invoice_id,
1444: 'INCONSISTENT PO SUPPLIER',
1445: p_default_last_updated_by,
1445: p_default_last_updated_by,
1446: p_default_last_update_login,
1447: current_calling_sequence) <> TRUE) THEN
1448: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1449: AP_IMPORT_UTILITIES_PKG.Print(
1450: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1451: 'insert_rejections<-'||
1452: current_calling_sequence);
1453: END IF;
1475: -- Invalid PO NUMBER.
1476: -------------------------------------------------------------------------
1477: debug_info := '(Check PO Number 3) Check for Invalid PO Number.';
1478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1480: debug_info);
1481: END IF;
1482:
1483: -- include context for XML GATEWAY
1480: debug_info);
1481: END IF;
1482:
1483: -- include context for XML GATEWAY
1484: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1485: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1486: p_invoice_rec.invoice_id,
1487: 'INVALID PO NUM',
1488: p_default_last_updated_by,
1491: 'Y',
1492: 'PO NUMBER',
1493: p_invoice_rec.po_number) <> 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;
1505: RETURN (TRUE);
1506:
1507: WHEN OTHERS THEN
1508: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1509: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1510: debug_info);
1511: END IF;
1512:
1513: IF (SQLCODE < 0) then
1511: END IF;
1512:
1513: IF (SQLCODE < 0) then
1514: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1515: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1516: SQLERRM);
1517: END IF;
1518: END IF;
1519: RETURN(FALSE);
1561: -- Check for Null Supplier.
1562: -------------------------------------------------------------------------
1563: debug_info := '(Check Invalid Supplier 1) Check for Null Supplier.';
1564: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1565: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1566: debug_info);
1567: END IF;
1568:
1569: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1565: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1566: debug_info);
1567: END IF;
1568:
1569: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1570: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1571: p_invoice_rec.invoice_id,
1572: 'NO SUPPLIER',
1573: p_default_last_updated_by,
1573: p_default_last_updated_by,
1574: p_default_last_update_login,
1575: current_calling_sequence) <> TRUE) THEN
1576: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1577: AP_IMPORT_UTILITIES_PKG.Print(
1578: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1579: 'insert_rejections<-'||current_calling_sequence);
1580: END IF;
1581: RAISE supplier_check_failure;
1591: -- validate vendor id
1592: ----------------------------------------------------------------------
1593: debug_info := '(Check Invalid Supplier 2) Validate vendor id.';
1594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1595: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1596: debug_info);
1597: END IF;
1598:
1599: SELECT vendor_id
1617: ----------------------------------------------------------------------
1618: debug_info := '(Check Invalid Supplier 3) Validate vendor number and '
1619: ||'retrieve vendor id';
1620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1621: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1622: debug_info);
1623: END IF;
1624:
1625: SELECT vendor_id
1643: ----------------------------------------------------------------------
1644: debug_info := '(Check Invalid Supplier 4) Validate vendor name and '
1645: ||'retrieve vendor id';
1646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1647: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1648: debug_info);
1649: END IF;
1650:
1651: SELECT vendor_id
1674: -----------------------------------------------------------------------
1675: debug_info := '(Check Invalid Supplier 5) Check for inconsistent '
1676: ||'Supplier - supplier id not null';
1677: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1678: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1679: debug_info);
1680: END IF;
1681:
1682: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1678: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1679: debug_info);
1680: END IF;
1681:
1682: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1683: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1684: p_invoice_rec.invoice_id,
1685: 'INCONSISTENT SUPPLIER',
1686: p_default_last_updated_by,
1686: p_default_last_updated_by,
1687: p_default_last_update_login,
1688: current_calling_sequence) <> TRUE) THEN
1689: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1690: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1691: 'insert_rejections<-'
1692: ||current_calling_sequence);
1693: END IF;
1694: RAISE supplier_check_failure;
1710: ----------------------------------------------------------------------
1711: debug_info := '(Check Invalid Supplier 6) Check for inconsistent '
1712: ||'Supplier Number and Name.';
1713: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1714: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1715: debug_info);
1716: END IF;
1717:
1718: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1714: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1715: debug_info);
1716: END IF;
1717:
1718: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1719: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1720: p_invoice_rec.invoice_id,
1721: 'INCONSISTENT SUPPLIER',
1722: p_default_last_updated_by,
1722: p_default_last_updated_by,
1723: p_default_last_update_login,
1724: current_calling_sequence) <> TRUE) THEN
1725: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1726: AP_IMPORT_UTILITIES_PKG.Print(
1727: AP_IMPORT_INVOICES_PKG.g_debug_switch,
1728: 'insert_rejections<-'||current_calling_sequence);
1729: END IF;
1730: RAISE supplier_check_failure;
1742: ----------------------------------------------------------------------
1743: debug_info := '(Check Invalid Supplier 7) Save Supplier id for '
1744: ||'further processing.';
1745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1746: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1747: debug_info);
1748: END IF;
1749:
1750: IF (l_vendor_id is NULL) THEN
1771: -- Check for invalid Supplier.
1772: -------------------------------------------------------------------------
1773: debug_info := '(Check Invalid Supplier 8) Check for invalid Supplier.';
1774: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1775: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1776: debug_info);
1777: END IF;
1778:
1779: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1775: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1776: debug_info);
1777: END IF;
1778:
1779: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1780: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1781: p_invoice_rec.invoice_id,
1782: 'INVALID SUPPLIER',
1783: p_default_last_updated_by,
1783: p_default_last_updated_by,
1784: p_default_last_update_login,
1785: current_calling_sequence) <> TRUE) THEN
1786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1788: 'insert_rejections<-'||current_calling_sequence);
1789: END IF;
1790: RAISE supplier_check_failure;
1791:
1797:
1798:
1799: WHEN OTHERS THEN
1800: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1801: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1802: debug_info);
1803: END IF;
1804:
1805: IF (SQLCODE < 0) then
1803: END IF;
1804:
1805: IF (SQLCODE < 0) then
1806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1807: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1808: SQLERRM);
1809: END IF;
1810: END IF;
1811: RETURN(FALSE);
1848: ||P_calling_sequence;
1849:
1850: debug_info := '(Check Invalid Site 1) Check Supplier Site';
1851: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1852: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1853: debug_info);
1854: END IF;
1855:
1856: IF ((p_invoice_rec.vendor_site_id is null) AND
1858: (p_vendor_site_id_per_po is null)) THEN
1859:
1860: debug_info := '(Check Invalid Site 2) No Supplier Site, Reject';
1861: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1862: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1863: debug_info);
1864: END IF;
1865:
1866: -- no supplier site exists
1863: debug_info);
1864: END IF;
1865:
1866: -- no supplier site exists
1867: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1868: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1869: p_invoice_rec.invoice_id,
1870: 'NO SUPPLIER SITE',
1871: p_default_last_updated_by,
1871: p_default_last_updated_by,
1872: p_default_last_update_login,
1873: current_calling_sequence) <> TRUE) THEN
1874: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1875: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1876: 'insert_rejections<-'
1877: ||current_calling_sequence);
1878: END IF;
1879: RAISE supplier_site_check_failure;
1887: IF p_invoice_rec.vendor_site_id is not null THEN
1888: debug_info := '(Check Invalid Site 3) Get Supplier Site details '
1889: ||'from p_invoice_rec.vendor_site_id';
1890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1891: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1892: debug_info);
1893: END IF;
1894: /*Bug5503712 Done the code changes so that if vendor site id is not null
1895: CADIP will not reject PPA invoices in following cases.
1943: WHERE invoice_id = p_invoice_rec.invoice_id;
1944:
1945: EXCEPTION
1946: WHEN OTHERS THEN
1947: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1948: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
1949: p_invoice_rec.invoice_id,
1950: 'INVALID SUPPLIER SITE',
1951: p_default_last_updated_by,
1951: p_default_last_updated_by,
1952: p_default_last_update_login,
1953: current_calling_sequence) <> TRUE) THEN
1954: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1955: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1956: 'insert_rejections<-'
1957: ||current_calling_sequence);
1958: END IF;
1959: RAISE supplier_site_check_failure;
1970:
1971: debug_info := '(Check Invalid Site 4) Get Supplier Site details '
1972: ||'from p_invoice_rec.vendor_site_code';
1973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1974: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1975: debug_info);
1976: END IF;
1977:
1978: --validate vendor site code and retrieve vendor site id
1994: NULL;
1995: END IF;
1996:
1997: WHEN no_data_found THEN
1998: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
1999: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2000: p_invoice_rec.invoice_id,
2001: 'INVALID SUPPLIER SITE',
2002: p_default_last_updated_by,
2002: p_default_last_updated_by,
2003: p_default_last_update_login,
2004: current_calling_sequence) <> TRUE) THEN
2005: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2006: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2007: 'insert_rejections<-'
2008: ||current_calling_sequence);
2009: END IF;
2010: RAISE supplier_site_check_failure;
2022: l_vendor_site_id <> l_vendor_site_id_per_code THEN
2023: debug_info :=
2024: '(Check Invalid Site 5) Supplier Site info is inconsistent';
2025: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2026: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2027: debug_info);
2028: END IF;
2029:
2030: --vendor site id and vendor site code inconsistent
2027: debug_info);
2028: END IF;
2029:
2030: --vendor site id and vendor site code inconsistent
2031: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2032: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2033: p_invoice_rec.invoice_id,
2034: 'INCONSISTENT SUPPL SITE',
2035: p_default_last_updated_by,
2035: p_default_last_updated_by,
2036: p_default_last_update_login,
2037: current_calling_sequence) <> TRUE) THEN
2038: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2039: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2040: 'insert_rejections<-'
2041: ||current_calling_sequence);
2042: END IF;
2043: RAISE supplier_site_check_failure;
2055: p_invoice_rec.vendor_id IS NOT NULL) THEN
2056: debug_info := '(Check Invalid Site 6) Check Supplier Site for'
2057: ||' given vendor';
2058: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2059: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2060: debug_info);
2061: END IF;
2062:
2063: BEGIN
2068: AND vendor_id = p_invoice_rec.vendor_id;
2069:
2070: EXCEPTION
2071: WHEN no_data_found THEN
2072: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2073: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2074: p_invoice_rec.invoice_id,
2075: 'INCONSISTENT SUPPL SITE',
2076: p_default_last_updated_by,
2076: p_default_last_updated_by,
2077: p_default_last_update_login,
2078: current_calling_sequence) <> TRUE) THEN
2079: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2080: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2081: 'insert_rejections<-'
2082: ||current_calling_sequence);
2083: END IF;
2084: RAISE supplier_site_check_failure;
2087: l_current_invoice_status := 'N';
2088: END;
2089:
2090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2091: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2092: '------------------> l_valid_vendor = '|| l_valid_vendor);
2093: END IF;
2094:
2095: END IF; -- Make sure vendor site and vendor match
2104:
2105: debug_info := '(Check Invalid Site 7) Check Supplier Site info for EDI'
2106: ||' and PO site';
2107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2108: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2109: debug_info);
2110: END IF;
2111:
2112: BEGIN
2120: WHEN NO_DATA_FOUND THEN
2121: debug_info := '(Check Invalid Site 8) EDI and PO site are '
2122: ||'invalid: Reject';
2123: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2124: AP_IMPORT_UTILITIES_PKG.Print(
2125: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2126: END IF;
2127:
2128: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2124: AP_IMPORT_UTILITIES_PKG.Print(
2125: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2126: END IF;
2127:
2128: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2129: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2130: p_invoice_rec.invoice_id,
2131: 'INCONSISTENT SUPPL 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(
2137: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2138: 'insert_rejections<-'||current_calling_sequence);
2139: END IF;
2140: RAISE supplier_site_check_failure;
2145: WHEN TOO_MANY_ROWS THEN
2146: debug_info := '(Check Invalid Site 9) EDI and PO site are '
2147: ||'for different supplier';
2148: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2149: AP_IMPORT_UTILITIES_PKG.Print(
2150: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2151: END IF;
2152:
2153: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2149: AP_IMPORT_UTILITIES_PKG.Print(
2150: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2151: END IF;
2152:
2153: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2154: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2155: p_invoice_rec.invoice_id,
2156: 'INCONSISTENT SUPPL SITE',
2157: p_default_last_updated_by,
2157: p_default_last_updated_by,
2158: p_default_last_update_login,
2159: current_calling_sequence) <> TRUE) THEN
2160: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2161: AP_IMPORT_UTILITIES_PKG.Print(
2162: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2163: 'insert_rejections<-' ||current_calling_sequence);
2164: END IF;
2165: RAISE supplier_site_check_failure;
2176: -- pay site is not a pay site
2177: debug_info := '(Check Invalid Site 10) Not a pay site per '
2178: ||'supplier site code';
2179: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2180: AP_IMPORT_UTILITIES_PKG.Print(
2181: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2182: END IF;
2183:
2184: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2180: AP_IMPORT_UTILITIES_PKG.Print(
2181: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2182: END IF;
2183:
2184: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2185: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2186: p_invoice_rec.invoice_id,
2187: 'NOT PAY SITE',
2188: p_default_last_updated_by,
2188: p_default_last_updated_by,
2189: p_default_last_update_login,
2190: current_calling_sequence) <> TRUE) THEN
2191: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2192: AP_IMPORT_UTILITIES_PKG.Print(
2193: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2194: 'insert_rejections<-' ||current_calling_sequence);
2195: END IF;
2196: RAISE supplier_site_check_failure;
2203: -- pay site is not a pay site
2204: debug_info := '(Check Invalid Site 11) Not a pay site '
2205: ||'per supplier site id';
2206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2207: AP_IMPORT_UTILITIES_PKG.Print(
2208: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2209: END IF;
2210:
2211: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2207: AP_IMPORT_UTILITIES_PKG.Print(
2208: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2209: END IF;
2210:
2211: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2212: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2213: p_invoice_rec.invoice_id,
2214: 'NOT PAY SITE',
2215: p_default_last_updated_by,
2215: p_default_last_updated_by,
2216: p_default_last_update_login,
2217: current_calling_sequence) <> TRUE) THEN
2218: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2219: AP_IMPORT_UTILITIES_PKG.Print(
2220: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2221: 'insert_rejections<-'||current_calling_sequence);
2222: END IF;
2223: RAISE supplier_site_check_failure;
2247: RETURN (TRUE);
2248:
2249: EXCEPTION
2250: WHEN no_data_found THEN
2251: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2252: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2253: p_invoice_rec.invoice_id,
2254: 'INVALID SUPPLIER SITE',
2255: p_default_last_updated_by,
2255: p_default_last_updated_by,
2256: p_default_last_update_login,
2257: current_calling_sequence) <> TRUE) THEN
2258: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2259: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2260: 'insert_rejections<-'
2261: ||current_calling_sequence);
2262: END IF;
2263: RAISE supplier_site_check_failure;
2270: RETURN (TRUE);
2271:
2272: WHEN OTHERS THEN
2273: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2274: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2275: debug_info);
2276: END IF;
2277:
2278: IF (SQLCODE < 0) then
2276: END IF;
2277:
2278: IF (SQLCODE < 0) then
2279: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2280: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2281: SQLERRM);
2282: END IF;
2283: END IF;
2284: RETURN (FALSE);
2320: -- Check for Null Party.
2321: -------------------------------------------------------------------------
2322: debug_info := '(Check Invalid Party 1) Check for Null Party.';
2323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2324: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2325: debug_info);
2326: END IF;
2327:
2328: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2324: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2325: debug_info);
2326: END IF;
2327:
2328: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2329: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2330: p_invoice_rec.invoice_id,
2331: 'INVALID PARTY',
2332: p_default_last_updated_by,
2332: p_default_last_updated_by,
2333: p_default_last_update_login,
2334: current_calling_sequence) <> TRUE) THEN
2335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2336: AP_IMPORT_UTILITIES_PKG.Print(
2337: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2338: 'insert_rejections<-'||current_calling_sequence);
2339: END IF;
2340: RAISE party_check_failure;
2348: -- validate party id
2349: ----------------------------------------------------------------------
2350: debug_info := '(Check Invalid Party 2) Validate party id.';
2351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2352: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2353: debug_info);
2354: END IF;
2355:
2356: SELECT party_id
2373: -- Check for invalid Party.
2374: -------------------------------------------------------------------------
2375: debug_info := '(Check Invalid Party 8) Check for invalid Party.';
2376: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2377: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2378: debug_info);
2379: END IF;
2380:
2381: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2377: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2378: debug_info);
2379: END IF;
2380:
2381: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2382: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2383: p_invoice_rec.invoice_id,
2384: 'INVALID PARTY',
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<-'||current_calling_sequence);
2391: END IF;
2392: RAISE party_check_failure;
2393:
2398:
2399:
2400: WHEN OTHERS THEN
2401: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2402: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2403: debug_info);
2404: END IF;
2405:
2406: IF (SQLCODE < 0) then
2404: END IF;
2405:
2406: IF (SQLCODE < 0) then
2407: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2408: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2409: SQLERRM);
2410: END IF;
2411: END IF;
2412: RETURN(FALSE);
2444: ||P_calling_sequence;
2445:
2446: debug_info := '(Check Invalid Party Site 1) Check Party Site';
2447: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2448: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2449: debug_info);
2450: END IF;
2451:
2452: IF (p_invoice_rec.party_site_id is null) THEN
2466: when no_data_found then
2467: debug_info := '(Check Invalid Party Site 2) No Party Site, Reject';
2468:
2469: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2470: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2471: debug_info);
2472: END IF;
2473:
2474: -- no party site exists
2471: debug_info);
2472: END IF;
2473:
2474: -- no party site exists
2475: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2476: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2477: p_invoice_rec.invoice_id,
2478: 'INVALID PARTY SITE',
2479: p_default_last_updated_by,
2479: p_default_last_updated_by,
2480: p_default_last_update_login,
2481: current_calling_sequence) <> TRUE) THEN
2482: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2483: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2484: 'insert_rejections<-'
2485: ||current_calling_sequence);
2486: END IF;
2487: RAISE party_site_check_failure;
2492: ELSE
2493:
2494: debug_info := '(Check Invalid Party Site 3) Check Party Site ';
2495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2496: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2497: debug_info);
2498: END IF;
2499:
2500: BEGIN
2513: EXCEPTION
2514: when no_data_found then
2515: debug_info := '(Check Invalid Party Site 2) Invalid Party Site, Reject';
2516: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2517: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2518: debug_info);
2519: END IF;
2520:
2521: -- invalid party site
2518: debug_info);
2519: END IF;
2520:
2521: -- invalid party site
2522: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2523: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2524: p_invoice_rec.invoice_id,
2525: 'INVALID PARTY SITE',
2526: p_default_last_updated_by,
2526: p_default_last_updated_by,
2527: p_default_last_update_login,
2528: current_calling_sequence) <> TRUE) THEN
2529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2530: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2531: 'insert_rejections<-'
2532: ||current_calling_sequence);
2533: END IF;
2534: RAISE party_site_check_failure;
2559: EXCEPTION
2560:
2561: WHEN OTHERS THEN
2562: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2563: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2564: debug_info);
2565: END IF;
2566:
2567: IF (SQLCODE < 0) then
2565: END IF;
2566:
2567: IF (SQLCODE < 0) then
2568: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2569: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2570: SQLERRM);
2571: END IF;
2572: END IF;
2573: RETURN (FALSE);
2615: End If;
2616:
2617:
2618: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2619: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2620: '------------------> l_invoice_num =
2621: '||l_invoice_num);
2622: END IF;
2623:
2629: -- This should never happen
2630: ------------------------------------------------------------------------
2631: debug_info := '(Check Invoice Number 1) Check for Null Invoice Number.';
2632: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2633: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2634: debug_info);
2635: END IF;
2636:
2637: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2633: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2634: debug_info);
2635: END IF;
2636:
2637: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2638: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2639: p_invoice_rec.invoice_id,
2640: 'NO INVOICE NUMBER',
2641: p_default_last_updated_by,
2641: p_default_last_updated_by,
2642: p_default_last_update_login,
2643: current_calling_sequence) <> TRUE) THEN
2644: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2645: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2646: 'insert_rejections<-'
2647: ||current_calling_sequence);
2648: END IF;
2649: RAISE invoice_num_check_failure;
2662: and interest invoices option is enabled*/
2663:
2664: debug_info := '(Check Invoice Number 2) Check for Invalid Invoice Number.';
2665: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2666: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2667: debug_info);
2668: END IF;
2669:
2670: IF (nvl(p_allow_interest_invoices,'N') = 'Y'
2669:
2670: IF (nvl(p_allow_interest_invoices,'N') = 'Y'
2671: AND LENGTH(l_invoice_num) > 45) THEN
2672:
2673: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2674: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2675: p_invoice_rec.invoice_id,
2676: 'INVALID INVOICE NUMBER',
2677: p_default_last_updated_by,
2680: 'Y',
2681: 'INVOICE NUMBER',
2682: l_invoice_num) <> TRUE) THEN
2683: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2684: AP_IMPORT_UTILITIES_PKG.Print(
2685: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2686: 'insert_rejections<-'||current_calling_sequence);
2687: END IF;
2688: RAISE invoice_num_check_failure;
2698: ------------------------------------------------------------------------
2699: debug_info := '(Check Invoice Number 3) Check for Duplicate '
2700: ||'Invoice Number.';
2701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2702: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2703: debug_info);
2704: END IF;
2705:
2706: SELECT count(*)
2720:
2721: IF ((l_invoice_count > 0) OR (l_count_in_history_invoices > 0)) THEN
2722:
2723: -- Pass context for XML GATEWAY
2724: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2725: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2726: p_invoice_rec.invoice_id,
2727: 'DUPLICATE INVOICE NUMBER',
2728: p_default_last_updated_by,
2731: 'Y',
2732: 'INVOICE NUMBER',
2733: l_invoice_num) <> TRUE) THEN
2734: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2735: AP_IMPORT_UTILITIES_PKG.Print(
2736: AP_IMPORT_INVOICES_PKG.g_debug_switch,
2737: 'insert_rejections<-'||current_calling_sequence);
2738: END IF;
2739: RAISE invoice_num_check_failure;
2750:
2751: EXCEPTION
2752: WHEN OTHERS THEN
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: debug_info);
2756: END IF;
2757:
2758: IF (SQLCODE < 0) then
2756: END IF;
2757:
2758: IF (SQLCODE < 0) then
2759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2760: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2761: SQLERRM);
2762: END IF;
2763: END IF;
2764: RETURN(FALSE);
2811: IF (p_invoice_rec.invoice_currency_code IS NULL) Then
2812: debug_info := '(Check Invoice Currency Code 1) Invoice Currency Code is '
2813: ||'null ,default from PO Vendor Sites.';
2814: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2815: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2816: debug_info);
2817: END IF;
2818:
2819: -- Added for payment requests project
2842: --------------------------------------------------------------------------
2843: debug_info := '(Check Invoice Currency Code 2) Get precision, '
2844: ||'mau for Invoice Currency Code.';
2845: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2846: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2847: debug_info);
2848: END IF;
2849:
2850: /*SELECT start_date_active, end_date_active,
2869: END LOOP;
2870:
2871: debug_info := 'l_valid_inv_currency: '||l_valid_inv_currency;
2872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2873: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2874: debug_info);
2875: END IF;
2876:
2877:
2892: -------------------------------------------------------------------------
2893: debug_info := '(Check Invoice Currency Code 3) Check for Inactive Invoice'
2894: ||' Currency Code.';
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 (AP_IMPORT_UTILITIES_PKG.insert_rejections
2896: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2897: debug_info);
2898: END IF;
2899:
2900: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2901: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2902: p_invoice_rec.invoice_id,
2903: 'INACTIVE CURRENCY CODE',
2904: p_default_last_updated_by,
2904: p_default_last_updated_by,
2905: p_default_last_update_login,
2906: current_calling_sequence) <> TRUE) THEN
2907: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2908: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2909: 'insert_rejections<-'||current_calling_sequence);
2910: END IF;
2911: RAISE invalid_inv_curr_code_failure;
2912: END IF;
2926: --------------------------------------------------------------------------
2927: debug_info := '(Check Invoice Currency Code 4) Check for Invalid Invoice '
2928: ||'Currency Code.';
2929: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2930: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2931: debug_info);
2932: END IF;
2933:
2934: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2930: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2931: debug_info);
2932: END IF;
2933:
2934: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
2935: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
2936: p_invoice_rec.invoice_id,
2937: 'INVALID CURRENCY CODE',
2938: p_default_last_updated_by,
2938: p_default_last_updated_by,
2939: p_default_last_update_login,
2940: current_calling_sequence) <> TRUE) THEN
2941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2942: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2943: 'insert_rejections<-'||current_calling_sequence);
2944: END IF;
2945: RAISE invalid_inv_curr_code_failure;
2946: END IF;
2950: RETURN (TRUE);
2951:
2952: WHEN OTHERS THEN
2953: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2954: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2955: debug_info);
2956: END IF;
2957:
2958: IF (SQLCODE < 0) then
2956: END IF;
2957:
2958: IF (SQLCODE < 0) then
2959: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2960: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2961: SQLERRM);
2962: END IF;
2963: END IF;
2964: RETURN(FALSE);
3004: --------------------------------------------------------------------------
3005: debug_info := '(Check Invoice Type and Amount 1) Check for Invalid Invoice'
3006: ||' type lookup code.';
3007: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3008: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3009: debug_info);
3010: END IF;
3011:
3012: p_invoice_type_lookup_code := p_invoice_rec.invoice_type_lookup_code;
3030: 'STANDARD','CREDIT', 'DEBIT', 'PO PRICE ADJUST','PREPAYMENT','EXPENSE REPORT',
3031: 'PAYMENT REQUEST')))
3032: THEN
3033:
3034: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3035: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3036: p_invoice_rec.invoice_id,
3037: 'INVALID INV TYPE LOOKUP',
3038: p_default_last_updated_by,
3038: p_default_last_updated_by,
3039: p_default_last_update_login,
3040: current_calling_sequence) <> TRUE) THEN
3041: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3042: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3043: 'insert_rejections<-'||current_calling_sequence);
3044: END IF;
3045: RAISE invalid_type_lookup_failure;
3046: END IF;
3052:
3053: debug_info := '(Check Invoice Type and Amount 2) Invoice type lookup '
3054: ||'code is null, setting to STANDARD.';
3055: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3056: AP_IMPORT_UTILITIES_PKG.Print(
3057: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
3058: END IF;
3059:
3060: p_invoice_type_lookup_code := 'STANDARD';
3064:
3065: debug_info := '(Check Invoice Type and Amount 2) Invoice type lookup '
3066: ||'code is null, setting to CREDIT.';
3067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3069: debug_info);
3070: END IF;
3071:
3072: p_invoice_type_lookup_code := 'CREDIT';
3079: --------------------------------------------------------------------------
3080: debug_info := '(Check Invoice Type and Amount 2) Check for Null Invoice'
3081: ||' amount.';
3082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3083: AP_IMPORT_UTILITIES_PKG.Print(
3084: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3085: END IF;
3086:
3087: IF (p_invoice_rec.invoice_amount IS NULL) THEN
3086:
3087: IF (p_invoice_rec.invoice_amount IS NULL) THEN
3088:
3089: -- Set contextual information for XML GATEWAY
3090: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3091: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3092: p_invoice_rec.invoice_id,
3093: 'INVALID INVOICE AMOUNT',
3094: p_default_last_updated_by,
3095: p_default_last_update_login,
3096: current_calling_sequence,
3097: 'Y') <> TRUE) THEN
3098: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3099: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3100: 'insert_rejections<-'||current_calling_sequence);
3101: END IF;
3102: RAISE invalid_type_lookup_failure;
3103: END IF;
3112: --------------------------------------------------------------------------
3113: debug_info := '(Check Invoice Type and Amount 3) Check for Invalid '
3114: ||'Invoice amount.';
3115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3116: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3117: debug_info);
3118: END IF;
3119:
3120: --Contract Payments: Modified the IF condition to add 'Prepayment' type
3125: (p_invoice_rec.invoice_amount < 0)) OR
3126: ((nvl(p_invoice_type_lookup_code,'DUMMY') IN ('CREDIT', 'DEBIT')) AND --Bug 7299826 - Added DEBIT
3127: (p_invoice_rec.invoice_amount > 0))) THEN -- Bug 2822878
3128:
3129: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3130: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3131: p_invoice_rec.invoice_id,
3132: 'INCONSISTENT INV TYPE/AMT',
3133: p_default_last_updated_by,
3133: p_default_last_updated_by,
3134: p_default_last_update_login,
3135: current_calling_sequence) <> TRUE) THEN
3136: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3137: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3138: 'insert_rejections<-'||current_calling_sequence);
3139: END IF;
3140: RAISE invalid_type_lookup_failure;
3141: END IF;
3159: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
3160: debug_info := '(Check Invoice Type and Amount 4) Check for Invoice amount'
3161: ||' to match sum of invoice line amounts.';
3162: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3163: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3164: debug_info);
3165: END IF;
3166:
3167: SELECT nvl(sum(amount),0) , count(*)
3172: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') THEN
3173: debug_info := '(Check Invoice step 4) Check Invoice amount to match '
3174: ||'sum of invoice line amounts for EDI only.';
3175: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3176: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3177: debug_info);
3178: END IF;
3179:
3180: IF (l_lines_amount_sum <> p_invoice_rec.invoice_amount) THEN
3178: END IF;
3179:
3180: IF (l_lines_amount_sum <> p_invoice_rec.invoice_amount) THEN
3181:
3182: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3183: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3184: p_invoice_rec.invoice_id,
3185: 'INVOICE AMOUNT INCORRECT',
3186: p_default_last_updated_by,
3186: p_default_last_updated_by,
3187: p_default_last_update_login,
3188: current_calling_sequence) <> TRUE) THEN
3189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3190: AP_IMPORT_UTILITIES_PKG.Print(
3191: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3192: 'insert_rejections<-'||current_calling_sequence);
3193: END IF;
3194: RAISE invalid_type_lookup_failure;
3200: IF (l_no_of_lines = 0) THEN
3201: debug_info := '(Check Invoice Type and Amount 4) No Lines for this '
3202: ||'invoice.';
3203: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3204: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3205: debug_info);
3206: END IF;
3207:
3208: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3204: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3205: debug_info);
3206: END IF;
3207:
3208: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3209: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3210: p_invoice_rec.invoice_id,
3211: 'NO INVOICE LINES',
3212: p_default_last_updated_by,
3212: p_default_last_updated_by,
3213: p_default_last_update_login,
3214: current_calling_sequence) <> TRUE) THEN
3215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3216: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3217: 'insert_rejections<-'||current_calling_sequence);
3218: END IF;
3219: RAISE invalid_type_lookup_failure;
3220: END IF;
3231: > NVL(p_precision_inv_curr,0) THEN
3232: debug_info := '(Check Invoice Type and Amount 5) Invoice or Lines '
3233: ||'amount exceeds precision.';
3234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3235: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3236: debug_info);
3237: END IF;
3238:
3239: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3235: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3236: debug_info);
3237: END IF;
3238:
3239: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3240: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3241: p_invoice_rec.invoice_id,
3242: 'AMOUNT EXCEEDS PRECISION',
3243: p_default_last_updated_by,
3243: p_default_last_updated_by,
3244: p_default_last_update_login,
3245: current_calling_sequence) <> TRUE) THEN
3246: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3247: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3248: 'insert_rejections<-'||current_calling_sequence);
3249: END IF;
3250: RAISE invalid_type_lookup_failure;
3251: END IF;
3259: -- Determine match mode.
3260: --------------------------------------------------------------------------
3261: debug_info := '(Check Invoice Type and Amount 6) Determine Match Mode.';
3262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3264: debug_info);
3265: END IF;
3266:
3267: If (p_invoice_type_lookup_code = 'PO PRICE ADJUST') Then
3275:
3276: EXCEPTION
3277: WHEN OTHERS THEN
3278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3279: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3280: debug_info);
3281: END IF;
3282:
3283: IF (SQLCODE < 0) then
3281: END IF;
3282:
3283: IF (SQLCODE < 0) then
3284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3286: SQLERRM);
3287: END IF;
3288: END IF;
3289: RETURN(FALSE);
3349: -------------------------------------------------------------------------
3350: debug_info := '(Check AWT Group 1) Check for AWT Group Id and Group Name'
3351: ||' Inconsistency.';
3352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3354: debug_info);
3355: END IF;
3356:
3357: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3354: debug_info);
3355: END IF;
3356:
3357: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3358: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3359: p_invoice_rec.invoice_id,
3360: 'INCONSISTENT AWT GROUP',
3361: p_default_last_updated_by,
3361: p_default_last_updated_by,
3362: p_default_last_update_login,
3363: current_calling_sequence) <> TRUE) THEN
3364: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3365: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3366: 'insert_rejections<-'||current_calling_sequence);
3367: END IF;
3368: RAISE awt_group_check_failure;
3369: END IF;
3376: -- Check for Inactive AWT Group
3377: ------------------------------------------------------------------------
3378: debug_info := '(Check AWT Group 2) Check for Inactive AWT Group';
3379: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3380: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3381: debug_info);
3382: END IF;
3383:
3384: IF ((l_awt_group_id is NULL) and
3390: --------------------------------------------------------------
3391: -- inactive AWT group (per name)
3392: --
3393: ---------------------------------------------------------------
3394: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3395: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3396: p_invoice_rec.invoice_id,
3397: 'INACTIVE AWT GROUP',
3398: p_default_last_updated_by,
3398: p_default_last_updated_by,
3399: p_default_last_update_login,
3400: current_calling_sequence) <> TRUE) THEN
3401: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3402: AP_IMPORT_UTILITIES_PKG.Print(
3403: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3404: 'insert_rejections<-'||current_calling_sequence);
3405: END IF;
3406: RAISE awt_group_check_failure;
3422: --------------------------------------------------------------
3423: -- inactive AWT group (as per id)
3424: --
3425: --------------------------------------------------------------
3426: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3427: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3428: p_invoice_rec.invoice_id,
3429: 'INACTIVE AWT GROUP',
3430: p_default_last_updated_by,
3430: p_default_last_updated_by,
3431: p_default_last_update_login,
3432: current_calling_sequence) <> TRUE) THEN
3433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3434: AP_IMPORT_UTILITIES_PKG.Print(
3435: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3436: 'insert_rejections<-'||current_calling_sequence);
3437: END IF;
3438: RAISE awt_group_check_failure;
3476: RETURN (TRUE);
3477:
3478: EXCEPTION
3479: WHEN no_data_found THEN
3480: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3481: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3482: p_invoice_rec.invoice_id,
3483: 'INVALID AWT GROUP',
3484: p_default_last_updated_by,
3484: p_default_last_updated_by,
3485: p_default_last_update_login,
3486: current_calling_sequence) <> TRUE) THEN
3487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3488: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3489: 'insert_rejections<-'||current_calling_sequence);
3490: END IF;
3491: RAISE awt_group_check_failure;
3492: END IF;
3496: RETURN (TRUE);
3497:
3498: WHEN OTHERS THEN
3499: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3500: AP_IMPORT_UTILITIES_PKG.Print(
3501: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3502: END IF;
3503:
3504: IF (SQLCODE < 0) then
3502: END IF;
3503:
3504: IF (SQLCODE < 0) then
3505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3506: AP_IMPORT_UTILITIES_PKG.Print(
3507: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3508: END IF;
3509: END IF;
3510: RETURN(FALSE);
3570: -------------------------------------------------------------------------
3571: debug_info := '(Check AWT Group 1) Check for pay AWT Group Id and pay Group Name'
3572: ||' Inconsistency.';
3573: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3575: debug_info);
3576: END IF;
3577:
3578: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3575: debug_info);
3576: END IF;
3577:
3578: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3579: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3580: p_invoice_rec.invoice_id,
3581: 'INCONSISTENT PAY AWT GROUP',
3582: p_default_last_updated_by,
3582: p_default_last_updated_by,
3583: p_default_last_update_login,
3584: current_calling_sequence) <> TRUE) THEN
3585: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3586: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3587: 'insert_rejections<-'||current_calling_sequence);
3588: END IF;
3589: RAISE pay_awt_group_check_failure;
3590: END IF;
3597: -- Check for Inactive pay AWT Group
3598: ------------------------------------------------------------------------
3599: debug_info := '(Check AWT Group 2) Check for Inactive pay AWT Group';
3600: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3601: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3602: debug_info);
3603: END IF;
3604:
3605: IF ((l_pay_awt_group_id is NULL) and
3611: --------------------------------------------------------------
3612: -- inactive pay AWT group (per name)
3613: --
3614: ---------------------------------------------------------------
3615: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3616: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3617: p_invoice_rec.invoice_id,
3618: 'INACTIVE PAY AWT GROUP',
3619: p_default_last_updated_by,
3619: p_default_last_updated_by,
3620: p_default_last_update_login,
3621: current_calling_sequence) <> TRUE) THEN
3622: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3623: AP_IMPORT_UTILITIES_PKG.Print(
3624: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3625: 'insert_rejections<-'||current_calling_sequence);
3626: END IF;
3627: RAISE pay_awt_group_check_failure;
3643: --------------------------------------------------------------
3644: -- inactive pay AWT group (as per id)
3645: --
3646: --------------------------------------------------------------
3647: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3648: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3649: p_invoice_rec.invoice_id,
3650: 'INACTIVE PAY AWT GROUP',
3651: p_default_last_updated_by,
3651: p_default_last_updated_by,
3652: p_default_last_update_login,
3653: current_calling_sequence) <> TRUE) THEN
3654: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3655: AP_IMPORT_UTILITIES_PKG.Print(
3656: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3657: 'insert_rejections<-'||current_calling_sequence);
3658: END IF;
3659: RAISE pay_awt_group_check_failure;
3697: RETURN (TRUE);
3698:
3699: EXCEPTION
3700: WHEN no_data_found THEN
3701: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3702: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3703: p_invoice_rec.invoice_id,
3704: 'INVALID PAY AWT GROUP',
3705: p_default_last_updated_by,
3705: p_default_last_updated_by,
3706: p_default_last_update_login,
3707: current_calling_sequence) <> TRUE) THEN
3708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3709: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3710: 'insert_rejections<-'||current_calling_sequence);
3711: END IF;
3712: RAISE pay_awt_group_check_failure;
3713: END IF;
3717: RETURN (TRUE);
3718:
3719: WHEN OTHERS THEN
3720: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3721: AP_IMPORT_UTILITIES_PKG.Print(
3722: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3723: END IF;
3724: IF (SQLCODE < 0) then
3725: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3722: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3723: END IF;
3724: IF (SQLCODE < 0) then
3725: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3726: AP_IMPORT_UTILITIES_PKG.Print(
3727: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3728: END IF;
3729: END IF;
3730: RETURN(FALSE);
3775: -------------------------------------------------------------------------
3776: debug_info := '(Check Exchange Rate Type 1) Check for invalid Exchange '
3777: ||'Rate Type';
3778: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3779: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3780: debug_info);
3781: END IF;
3782:
3783: IF (l_conversion_type is NULL) Then
3783: IF (l_conversion_type is NULL) Then
3784: debug_info := '(Check Exchange Rate Type 1a) Get Default Exchange '
3785: ||'Rate Type';
3786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3788: debug_info);
3789: END IF;
3790: l_conversion_type := p_default_exchange_rate_type;
3791: END IF;
3793: IF (l_conversion_type is NOT NULL) Then
3794: debug_info :=
3795: '(Check Exchange Rate Type 1b) Check if Rate Type is valid';
3796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3798: debug_info);
3799: END IF;
3800:
3801: BEGIN
3805: WHERE conversion_type = l_conversion_type;
3806:
3807: EXCEPTION
3808: WHEN no_data_found THEN
3809: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3810: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3811: p_invoice_rec.invoice_id,
3812: 'INVALID EXCH RATE TYPE',
3813: p_default_last_updated_by,
3813: p_default_last_updated_by,
3814: p_default_last_update_login,
3815: current_calling_sequence) <> TRUE) THEN
3816: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3817: AP_IMPORT_UTILITIES_PKG.Print(
3818: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3819: 'insert_rejections<-'||current_calling_sequence);
3820: END IF;
3821: RAISE exchange_rate_type_failure;
3833: IF (p_invoice_rec.exchange_date IS NULL) THEN
3834: debug_info :=
3835: '(Check Exchange Rate Type 2) Get Sysdate as Exchange Date';
3836: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3837: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3838: debug_info);
3839: END IF;
3840:
3841: -- Invoice date was initialized to sysdate if null at the beginning
3852: ----------------------------------------------------------------------
3853: debug_info := '(Check Exchange Rate Type 3a) Check for inconsistent '
3854: ||'Exchange Rate, if type valid';
3855: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3856: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3857: debug_info);
3858: END IF;
3859: debug_info := 'l_coversion_type: '||l_conversion_type ||' '||
3860: 'p_invoice_rec.exchange_rate: '||p_invoice_rec.exchange_rate;
3859: debug_info := 'l_coversion_type: '||l_conversion_type ||' '||
3860: 'p_invoice_rec.exchange_rate: '||p_invoice_rec.exchange_rate;
3861:
3862: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3863: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3864: debug_info);
3865: END IF;
3866:
3867: IF ((l_conversion_type <> 'User') AND
3871: p_base_currency_code,
3872: l_conversion_type,
3873: l_exchange_date,
3874: current_calling_sequence),-999) <> p_exchange_rate THEN
3875: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3876: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3877: p_invoice_rec.invoice_id,
3878: 'INCONSISTENT RATE',
3879: p_default_last_updated_by,
3879: p_default_last_updated_by,
3880: p_default_last_update_login,
3881: current_calling_sequence) <> TRUE) THEN
3882: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3883: AP_IMPORT_UTILITIES_PKG.Print(
3884: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3885: 'insert_rejections<-'||current_calling_sequence);
3886: END IF;
3887: RAISE exchange_rate_type_failure;
3895: p_invoice_rec.invoice_currency_code,
3896: p_base_currency_code,
3897: l_exchange_date,
3898: l_conversion_type) <> 'Y') THEN
3899: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3900: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3901: p_invoice_rec.invoice_id,
3902: 'NO EXCHANGE RATE',
3903: p_default_last_updated_by,
3903: p_default_last_updated_by,
3904: p_default_last_update_login,
3905: current_calling_sequence) <> TRUE) THEN
3906: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
3907: AP_IMPORT_UTILITIES_PKG.Print(
3908: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3909: 'insert_rejections<-'||current_calling_sequence);
3910: END IF;
3911: RAISE exchange_rate_type_failure;
3919:
3920: debug_info := '(Check Exchange Rate Type 3b) Get Exchange Rate for'
3921: ||' type other than User';
3922: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3923: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3924: debug_info);
3925: END IF;
3926:
3927: l_exchange_rate := ap_utilities_pkg.get_exchange_rate(
3930: l_conversion_type,
3931: l_exchange_date,
3932: current_calling_sequence);
3933: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3934: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
3935: '----------------> exchange_rate = '|| to_char(l_exchange_rate)
3936: ||'set_of_books_id = '||to_char(p_set_of_books_id)
3937: ||'invoice_currency_code = '||p_invoice_rec.invoice_currency_code
3938: ||'exchange_date= '||to_char(l_exchange_date)
3944: IF (NVL(p_make_rate_mandatory_flag,'N') = 'Y') then
3945: debug_info :=
3946: '(Check Exchange Rate Type 3c) Reject:No Exchange Rate ';
3947: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3948: AP_IMPORT_UTILITIES_PKG.Print(
3949: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3950: END IF;
3951:
3952: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3948: AP_IMPORT_UTILITIES_PKG.Print(
3949: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3950: END IF;
3951:
3952: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3953: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3954: p_invoice_rec.invoice_id,
3955: 'NO EXCHANGE RATE',
3956: p_default_last_updated_by,
3956: p_default_last_updated_by,
3957: p_default_last_update_login,
3958: current_calling_sequence) <> TRUE) THEN
3959: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3960: AP_IMPORT_UTILITIES_PKG.Print(
3961: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3962: 'insert_rejections<-'||current_calling_sequence);
3963: END IF;
3964: RAISE exchange_rate_type_failure;
3969: ELSE
3970: debug_info := '(Check Exchange Rate Type 3d) No Exchange'
3971: ||' Rate:Rate Not Reqd ';
3972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3973: AP_IMPORT_UTILITIES_PKG.Print(
3974: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
3975: END IF;
3976:
3977: END IF; -- make_rate_mandatory
3980: --4091870
3981: ELSIF ((l_conversion_type = 'User') AND
3982: (p_exchange_rate <= 0)) then
3983:
3984: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
3985: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
3986: p_invoice_rec.invoice_id,
3987: 'INVALID EXCH RATE',
3988: p_default_last_updated_by,
3988: p_default_last_updated_by,
3989: p_default_last_update_login,
3990: current_calling_sequence) <> TRUE) THEN
3991: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
3992: AP_IMPORT_UTILITIES_PKG.Print(
3993: AP_IMPORT_INVOICES_PKG.g_debug_switch,
3994: 'insert_rejections<-'||current_calling_sequence);
3995: END IF;
3996: RAISE exchange_rate_type_failure;
4007:
4008: debug_info := '(Check Exchange Rate Type 3e) Exchange rate in '
4009: ||'interface differs rate defined';
4010: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4011: AP_IMPORT_UTILITIES_PKG.Print(
4012: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4013: END IF;
4014:
4015: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4011: AP_IMPORT_UTILITIES_PKG.Print(
4012: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4013: END IF;
4014:
4015: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4016: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4017: p_invoice_rec.invoice_id,
4018: 'INCONSISTENT RATE',
4019: p_default_last_updated_by,
4019: p_default_last_updated_by,
4020: p_default_last_update_login,
4021: current_calling_sequence) <> TRUE) THEN
4022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4023: AP_IMPORT_UTILITIES_PKG.Print(
4024: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4025: 'insert_rejections<-'||current_calling_sequence);
4026: END IF;
4027: RAISE exchange_rate_type_failure;
4041: -------------------------------------------------------------------------
4042: debug_info := '(Check Exchange Rate Type 9) Check for inconsistent '
4043: ||'Information Entered';
4044: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4045: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4046: debug_info);
4047: END IF;
4048:
4049: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4045: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4046: debug_info);
4047: END IF;
4048:
4049: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4050: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4051: p_invoice_rec.invoice_id,
4052: 'INCONSISTENT INFO ENTERED',
4053: p_default_last_updated_by,
4053: p_default_last_updated_by,
4054: p_default_last_update_login,
4055: current_calling_sequence) <> TRUE) THEN
4056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4058: 'insert_rejections<-'||current_calling_sequence);
4059: END IF;
4060: RAISE exchange_rate_type_failure;
4061: END IF;
4071:
4072: EXCEPTION
4073: WHEN OTHERS THEN
4074: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4075: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4076: END IF;
4077:
4078: IF (SQLCODE < 0) then
4079: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4076: END IF;
4077:
4078: IF (SQLCODE < 0) then
4079: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4080: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4081: END IF;
4082: END IF;
4083:
4084: RETURN(FALSE);
4155: -- Check invalid terms.
4156: ----------------------------------------------------------------------
4157: debug_info := '(Check Invalid Terms 1) Check for invalid Terms.';
4158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4160: debug_info);
4161: END IF;
4162:
4163: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4160: debug_info);
4161: END IF;
4162:
4163: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4164: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4165: p_invoice_rec.invoice_id,
4166: 'INVALID TERMS',
4167: p_default_last_updated_by,
4167: p_default_last_updated_by,
4168: p_default_last_update_login,
4169: current_calling_sequence) <> TRUE) THEN
4170: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4171: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4172: 'insert_rejections<- '||current_calling_sequence);
4173: END IF;
4174: RAISE terms_check_failure;
4175: END IF;
4190: IF (p_invoice_rec.po_number is NOT NULL) Then
4191: debug_info :=
4192: '(Check Invalid Terms 2.1) Get term_id from header po_number';
4193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4194: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4195: debug_info);
4196: END IF;
4197:
4198: SELECT terms_id
4206: IF (l_term_id is null ) THEN
4207: debug_info :=
4208: '(Check Invalid Terms 2.2) Get term_id from lines po_numbers';
4209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4210: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4211: debug_info);
4212: END IF;
4213: BEGIN
4214: SELECT p.terms_id
4225: NULL;
4226: WHEN TOO_MANY_ROWS THEN
4227: l_term_id := null;
4228: l_current_invoice_status := 'N';
4229: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4230: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4231: p_invoice_rec.invoice_id,
4232: 'INCONSISTENT TERMS INFO',
4233: p_default_last_updated_by,
4233: p_default_last_updated_by,
4234: p_default_last_update_login,
4235: current_calling_sequence) <> TRUE) THEN
4236: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4237: AP_IMPORT_UTILITIES_PKG.Print(
4238: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4239: 'insert_rejections<- '||current_calling_sequence);
4240: END IF;
4241: RAISE terms_check_failure;
4246: IF (l_term_id is null) THEN
4247: debug_info := '(Check Invalid Terms 2.3) Get term_id from lines'
4248: ||' receipt';
4249: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4250: AP_IMPORT_UTILITIES_PKG.Print(
4251: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
4252: END IF;
4253: BEGIN
4254: SELECT p.terms_id
4266: NULL;
4267: WHEN TOO_MANY_ROWS THEN
4268: debug_info := 'too many rows';
4269: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4270: AP_IMPORT_UTILITIES_PKG.Print(
4271: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4272: END IF;
4273: l_term_id := null;
4274: l_current_invoice_status := 'N';
4271: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
4272: END IF;
4273: l_term_id := null;
4274: l_current_invoice_status := 'N';
4275: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4276: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4277: p_invoice_rec.invoice_id,
4278: 'INCONSISTENT TERMS INFO',
4279: p_default_last_updated_by,
4279: p_default_last_updated_by,
4280: p_default_last_update_login,
4281: current_calling_sequence) <> TRUE) THEN
4282: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4283: AP_IMPORT_UTILITIES_PKG.Print(
4284: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4285: 'insert_rejections<- '||current_calling_sequence);
4286: END IF;
4287: RAISE terms_check_failure;
4298: (p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST') ) Then
4299:
4300: debug_info := '(Check Invalid Terms 2.4) Get term_id from supplier site';
4301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4302: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4303: debug_info);
4304: END IF;
4305:
4306: SELECT terms_id
4314: (p_invoice_rec.invoice_type_lookup_code = 'PAYMENT REQUEST') ) Then
4315:
4316: debug_info := '(Check Invalid Terms 2.4) Get term_id from financials options';
4317: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4318: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4319: debug_info);
4320: END IF;
4321:
4322: SELECT terms_id
4332: IF ( l_term_id is null ) THEN
4333: debug_info := '(Check Invalid Terms 2.5) no term_id found, '
4334: ||'invoice rejected';
4335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4336: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4337: debug_info);
4338: END IF;
4339:
4340: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4336: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4337: debug_info);
4338: END IF;
4339:
4340: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4341: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4342: p_invoice_rec.invoice_id,
4343: 'NO TERMS INFO',
4344: p_default_last_updated_by,
4344: p_default_last_updated_by,
4345: p_default_last_update_login,
4346: current_calling_sequence) <> TRUE) THEN
4347: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4348: AP_IMPORT_UTILITIES_PKG.Print(
4349: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4350: 'insert_rejections<- '||current_calling_sequence);
4351: END IF;
4352: RAISE terms_check_failure;
4356:
4357: ELSE
4358: debug_info := '(Check Invalid Terms 2.6) getting term active date';
4359: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4360: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4361: debug_info);
4362: END IF;
4363:
4364: SELECT start_date_active, end_date_active
4381:
4382: debug_info := '(Check Invalid Terms 3) Check for inconsistent Terms id '
4383: ||'and Name.';
4384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4385: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4386: debug_info);
4387: END IF;
4388:
4389: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4385: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4386: debug_info);
4387: END IF;
4388:
4389: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4390: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4391: p_invoice_rec.invoice_id,
4392: 'INCONSISTENT TERMS INFO',
4393: p_default_last_updated_by,
4393: p_default_last_updated_by,
4394: p_default_last_update_login,
4395: current_calling_sequence) <> TRUE) THEN
4396: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4397: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4398: 'insert_rejections<- '||current_calling_sequence);
4399: END IF;
4400: RAISE terms_check_failure;
4401: END IF;
4418: -----------------------------------------------------------------------
4419: debug_info :=
4420: '(Check Invalid Terms 4) Check for inactive Terms as per Terms Name.';
4421: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4423: debug_info);
4424: END IF;
4425:
4426: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4423: debug_info);
4424: END IF;
4425:
4426: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4427: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4428: p_invoice_rec.invoice_id,
4429: 'INACTIVE TERMS',
4430: p_default_last_updated_by,
4430: p_default_last_updated_by,
4431: p_default_last_update_login,
4432: current_calling_sequence) <> TRUE) THEN
4433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4434: AP_IMPORT_UTILITIES_PKG.Print(
4435: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4436: 'insert_rejections<- '||current_calling_sequence);
4437: END IF;
4438: RAISE terms_check_failure;
4462: ----------------------------------------------------------------------
4463: debug_info :=
4464: '(Check Invalid Terms 5) Check for inactive Terms as per Terms Id.';
4465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4466: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4467: debug_info);
4468: END IF;
4469:
4470: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4466: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4467: debug_info);
4468: END IF;
4469:
4470: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4471: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4472: p_invoice_rec.invoice_id,
4473: 'INACTIVE TERMS',
4474: p_default_last_updated_by,
4474: p_default_last_updated_by,
4475: p_default_last_update_login,
4476: current_calling_sequence) <> TRUE) THEN
4477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4478: AP_IMPORT_UTILITIES_PKG.Print(
4479: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4480: 'insert_rejections<- '||current_calling_sequence);
4481: END IF;
4482: RAISE terms_check_failure;
4501: --------------------------------------------------------------------------
4502: debug_info := '(Check Invalid Terms 6) Check for Invoice and Goods '
4503: ||'Received Date';
4504: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4505: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4506: debug_info);
4507: END IF;
4508:
4509: IF (p_terms_date_basis = 'Invoice Received' AND
4508:
4509: IF (p_terms_date_basis = 'Invoice Received' AND
4510: p_invoice_rec.invoice_received_date is null) THEN
4511:
4512: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4513: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4514: p_invoice_rec.invoice_id,
4515: 'DATE INVOICE RECEIVED REQ',
4516: p_default_last_updated_by,
4516: p_default_last_updated_by,
4517: p_default_last_update_login,
4518: current_calling_sequence) <> TRUE) THEN
4519: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4520: AP_IMPORT_UTILITIES_PKG.Print(
4521: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4522: 'insert_rejections<-'||current_calling_sequence);
4523: END IF;
4524: RAISE terms_check_failure;
4527: l_current_invoice_status := 'N';
4528:
4529: ELSIF (p_terms_date_basis = 'Goods Received' AND
4530: p_invoice_rec.goods_received_date is null) THEN
4531: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4532: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4533: p_invoice_rec.invoice_id,
4534: 'DATE GOODS RECEIVED REQ',
4535: p_default_last_updated_by,
4535: p_default_last_updated_by,
4536: p_default_last_update_login,
4537: current_calling_sequence) <> TRUE) THEN
4538: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4539: AP_IMPORT_UTILITIES_PKG.Print(
4540: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4541: 'insert_rejections<-'||current_calling_sequence);
4542: END IF;
4543: RAISE terms_check_failure;
4579: -----------------------------------------------------------------------------
4580: debug_info := '(Check Invalid Terms 8) Check calendar based payment terms';
4581:
4582: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4583: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4584: debug_info);
4585: END IF;
4586:
4587: --Bug:4115712
4594: -- where term_id = l_term_id;
4595:
4596: -- END IF;
4597:
4598: AP_IMPORT_UTILITIES_PKG.Check_For_Calendar_Term(
4599: P_Terms_Id => l_term_id,
4600: P_Terms_Date => p_terms_date,
4601: P_No_Cal => l_no_calendar_exists,
4602: P_Calling_Sequence => 'v_check_invalidate_terms');
4601: P_No_Cal => l_no_calendar_exists,
4602: P_Calling_Sequence => 'v_check_invalidate_terms');
4603:
4604: IF (l_no_calendar_exists = 'Y') THEN
4605: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4606: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4607: p_invoice_rec.invoice_id,
4608: 'NO SPECIAL CALENDAR FOR TERMS',
4609: p_default_last_updated_by,
4609: p_default_last_updated_by,
4610: p_default_last_update_login,
4611: current_calling_sequence) <> TRUE) THEN
4612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4613: AP_IMPORT_UTILITIES_PKG.Print(
4614: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4615: 'insert_rejections<-'||current_calling_sequence);
4616: END IF;
4617: RAISE terms_check_failure;
4628:
4629: EXCEPTION
4630: WHEN OTHERS THEN
4631: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4632: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4633: debug_info);
4634: END IF;
4635:
4636: IF (SQLCODE < 0) THEN
4634: END IF;
4635:
4636: IF (SQLCODE < 0) THEN
4637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4639: SQLERRM);
4640: END IF;
4641: END IF;
4642: RETURN(FALSE);
4697: -------------------------------------------------------------------------
4698: debug_info :=
4699: '(Check Misc Invoice Info 1 a) Check for valid accts_pay_concat.';
4700: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4701: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4702: debug_info);
4703: END IF;
4704:
4705: -- Validate liability account concat
4742: NULL)) THEN
4743: l_ccid := fnd_flex_keyval.combination_id;
4744: ELSE
4745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4746: AP_IMPORT_UTILITIES_PKG.Print(
4747: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4748: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
4749: END IF;
4750:
4747: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4748: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
4749: END IF;
4750:
4751: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4752: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4753: p_invoice_rec.invoice_id,
4754: 'INVALID LIABILITY ACCT',
4755: p_default_last_updated_by,
4755: p_default_last_updated_by,
4756: p_default_last_update_login,
4757: current_calling_sequence) <> TRUE) THEN
4758: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4759: AP_IMPORT_UTILITIES_PKG.Print(
4760: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4761: 'insert_rejections<- '||current_calling_sequence);
4762: END IF;
4763: RAISE misc_invoice_info_failure;
4771: WHERE code_combination_id = l_ccid;
4772:
4773: IF l_acct_type <> 'L' THEN
4774: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4775: AP_IMPORT_UTILITIES_PKG.Print(
4776: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4777: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
4778: END IF;
4779:
4776: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4777: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat');
4778: END IF;
4779:
4780: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4781: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4782: p_invoice_rec.invoice_id,
4783: 'INVALID LIABILITY ACCT',
4784: p_default_last_updated_by,
4784: p_default_last_updated_by,
4785: p_default_last_update_login,
4786: current_calling_sequence) <> TRUE) THEN
4787: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4788: AP_IMPORT_UTILITIES_PKG.Print(
4789: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4790: 'insert_rejections<- '||current_calling_sequence);
4791: END IF;
4792: RAISE misc_invoice_info_failure;
4800: -- if not same reject as inconsistent
4801: IF p_invoice_rec.accts_pay_code_combination_id IS NOT NULL THEN
4802: IF p_invoice_rec.accts_pay_code_combination_id <> l_ccid THEN
4803: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4804: AP_IMPORT_UTILITIES_PKG.Print(
4805: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4806: '(v_check_misc_invoice_info 1 a) Inconsistent accts_pay');
4807: END IF;
4808:
4805: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4806: '(v_check_misc_invoice_info 1 a) Inconsistent accts_pay');
4807: END IF;
4808:
4809: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4810: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4811: p_invoice_rec.invoice_id,
4812: 'INCONSISTENT LIAB ACCOUNT INFO',
4813: p_default_last_updated_by,
4813: p_default_last_updated_by,
4814: p_default_last_update_login,
4815: current_calling_sequence) <> TRUE) THEN
4816: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4817: AP_IMPORT_UTILITIES_PKG.Print(
4818: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4819: 'insert_rejections<- '||current_calling_sequence);
4820: END IF;
4821: RAISE misc_invoice_info_failure;
4829:
4830: EXCEPTION
4831: WHEN NO_DATA_FOUND Then
4832: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4833: AP_IMPORT_UTILITIES_PKG.Print(
4834: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4835: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat ');
4836: END IF;
4837:
4834: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4835: '(v_check_misc_invoice_info 1 a) Invalid accts_pay_concat ');
4836: END IF;
4837:
4838: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
4839: AP_IMPORT_INVOICES_PKG.g_invoices_table,
4840: p_invoice_rec.invoice_id,
4841: 'INVALID LIABILITY ACCT',
4842: p_default_last_updated_by,
4842: p_default_last_updated_by,
4843: p_default_last_update_login,
4844: current_calling_sequence) <> TRUE) THEN
4845: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4846: AP_IMPORT_UTILITIES_PKG.Print(
4847: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4848: 'insert_rejections<-'||current_calling_sequence);
4849: END IF;
4850: RAISE misc_invoice_info_failure;
4869: -------------------------------------------------------------------------
4870: debug_info :=
4871: '(Check Misc Invoice Info 1) Check for valid accts_pay_ccid.';
4872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4873: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
4874: debug_info);
4875: END IF;
4876:
4877: -- Validate liability account information
4888: WHERE set_of_books_id = p_set_of_books_id;
4889:
4890: IF l_acct_type <> 'L' THEN
4891: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4892: AP_IMPORT_UTILITIES_PKG.Print(
4893: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4894: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
4895: END IF;
4896:
4893: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4894: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
4895: END IF;
4896:
4897: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4898: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4899: p_invoice_rec.invoice_id,
4900: 'INVALID LIABILITY ACCT',
4901: p_default_last_updated_by,
4901: p_default_last_updated_by,
4902: p_default_last_update_login,
4903: current_calling_sequence) <> TRUE) THEN
4904: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4905: AP_IMPORT_UTILITIES_PKG.Print(
4906: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4907: 'insert_rejections<- '||current_calling_sequence);
4908: END IF;
4909: RAISE misc_invoice_info_failure;
4948: NULL,
4949: NULL,
4950: NULL)<>TRUE) THEN
4951: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4952: AP_IMPORT_UTILITIES_PKG.Print(
4953: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4954: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
4955: END IF;
4956:
4953: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4954: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
4955: END IF;
4956:
4957: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4958: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4959: p_invoice_rec.invoice_id,
4960: 'INVALID LIABILITY ACCT',
4961: p_default_last_updated_by,
4961: p_default_last_updated_by,
4962: p_default_last_update_login,
4963: current_calling_sequence) <> TRUE) THEN
4964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4965: AP_IMPORT_UTILITIES_PKG.Print(
4966: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4967: 'insert_rejections<- '||current_calling_sequence);
4968: END IF;
4969: RAISE misc_invoice_info_failure;
4974: END IF; -- If validate segments is other than TRUE
4975:
4976: ELSE -- Validate CCID returned false
4977: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4978: AP_IMPORT_UTILITIES_PKG.Print(
4979: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4980: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
4981: END IF;
4982:
4979: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4980: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid');
4981: END IF;
4982:
4983: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
4984: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
4985: p_invoice_rec.invoice_id,
4986: 'INVALID LIABILITY ACCT',
4987: p_default_last_updated_by,
4987: p_default_last_updated_by,
4988: p_default_last_update_login,
4989: current_calling_sequence) <> TRUE) THEN
4990: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
4991: AP_IMPORT_UTILITIES_PKG.Print(
4992: AP_IMPORT_INVOICES_PKG.g_debug_switch,
4993: 'insert_rejections<- '||current_calling_sequence);
4994: END IF;
4995: RAISE misc_invoice_info_failure;
5001:
5002: EXCEPTION -- Validate liability account information
5003: WHEN NO_DATA_FOUND Then
5004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5005: AP_IMPORT_UTILITIES_PKG.Print(
5006: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5007: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid ');
5008: END IF;
5009:
5006: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5007: '(v_check_misc_invoice_info 1) Invalid accts_pay_ccid ');
5008: END IF;
5009:
5010: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5011: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5012: p_invoice_rec.invoice_id,
5013: 'INVALID LIABILITY ACCT',
5014: p_default_last_updated_by,
5014: p_default_last_updated_by,
5015: p_default_last_update_login,
5016: current_calling_sequence) <> TRUE) THEN
5017: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5018: AP_IMPORT_UTILITIES_PKG.Print(
5019: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5020: 'insert_rejections<-'||current_calling_sequence);
5021: END IF;
5022: RAISE misc_invoice_info_failure;
5036: -- Check for pay group
5037: -------------------------------------------------------------------------
5038: debug_info := '(Check Misc Invoice Info 3) Check for valid pay group';
5039: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5040: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5041: debug_info);
5042: END IF;
5043:
5044: -- Bug 5448579
5051: END LOOP;
5052:
5053: debug_info := 'l_valid_pay_group: '||l_valid_pay_group;
5054: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5055: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5056: debug_info);
5057: END IF;
5058:
5059: IF l_valid_pay_group IS NULL THEN
5059: IF l_valid_pay_group IS NULL THEN
5060:
5061:
5062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5063: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5064: '(v_check_misc_invoice_info 3) Invalid pay group');
5065: END IF;
5066:
5067: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5063: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5064: '(v_check_misc_invoice_info 3) Invalid pay group');
5065: END IF;
5066:
5067: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5068: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5069: p_invoice_rec.invoice_id,
5070: 'INVALID PAY GROUP',
5071: p_default_last_updated_by,
5071: p_default_last_updated_by,
5072: p_default_last_update_login,
5073: current_calling_sequence) <> TRUE) THEN
5074: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5075: AP_IMPORT_UTILITIES_PKG.Print(
5076: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5077: 'insert_rejections<-'||current_calling_sequence);
5078: END IF;
5079: RAISE misc_invoice_info_failure;
5098:
5099: EXCEPTION
5100: WHEN NO_DATA_FOUND Then
5101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5103: '(v_check_misc_invoice_info 3) Invalid pay group');
5104: END IF;
5105:
5106: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5103: '(v_check_misc_invoice_info 3) Invalid pay group');
5104: END IF;
5105:
5106: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5107: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5108: p_invoice_rec.invoice_id,
5109: 'INVALID PAY GROUP',
5110: p_default_last_updated_by,
5110: p_default_last_updated_by,
5111: p_default_last_update_login,
5112: current_calling_sequence) <> TRUE) THEN
5113: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5114: AP_IMPORT_UTILITIES_PKG.Print(
5115: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5116: 'insert_rejections<-'||current_calling_sequence);
5117: END IF;
5118: RAISE misc_invoice_info_failure;
5131: --------------------------------------------------------------------------
5132: debug_info :=
5133: '(Check Misc Invoice Info 4) Check for duplicate voucher number';
5134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5136: debug_info);
5137: END IF;
5138:
5139: SELECT count(*)
5142: WHERE voucher_num = p_invoice_rec.voucher_num;
5143:
5144: IF (l_invoice_count > 0) THEN
5145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5146: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5147: '(v_check_misc_invoice_info 4) Reject: Duplicate Voucher Number');
5148: END IF;
5149:
5150: -- if data is found, an error exists
5147: '(v_check_misc_invoice_info 4) Reject: Duplicate Voucher Number');
5148: END IF;
5149:
5150: -- if data is found, an error exists
5151: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5152: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5153: p_invoice_rec.invoice_id,
5154: 'DUPLICATE VOUCHER',
5155: p_default_last_updated_by,
5155: p_default_last_updated_by,
5156: p_default_last_update_login,
5157: current_calling_sequence) <> TRUE) THEN
5158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5160: 'insert_rejections<-'||current_calling_sequence);
5161: END IF;
5162: RAISE misc_invoice_info_failure;
5163: END IF;
5180: ------------------------------------------------------------------------------------
5181: debug_info := '(Check Misc Invoice Info 4.1) Check for voucher number length <= 8';
5182:
5183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5184: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5185: END IF;
5186:
5187:
5188: IF (length(p_invoice_rec.voucher_num) > 8) THEN
5187:
5188: IF (length(p_invoice_rec.voucher_num) > 8) THEN
5189:
5190: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5191: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5192: end if;
5193:
5194: -- if data is found, an error exists
5195:
5192: end if;
5193:
5194: -- if data is found, an error exists
5195:
5196: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5197: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5198: p_invoice_rec.invoice_id,
5199: 'INVALID REQUESTER',
5200: p_default_last_updated_by,
5200: p_default_last_updated_by,
5201: p_default_last_update_login,
5202: current_calling_sequence) <> TRUE) THEN
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: 'insert_rejections<-'||current_calling_sequence);
5206: END IF;
5207: RAISE misc_invoice_info_failure;
5208: END IF;
5217: -- Check for valid employee
5218: --------------------------------------------------------------------------
5219: debug_info := '(Check Misc Invoice Info 5) Check for valid employee';
5220: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5221: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5222: debug_info);
5223: END IF;
5224:
5225: IF (p_invoice_rec.requester_id IS NOT NULL AND
5231: WHERE employee_id = p_invoice_rec.requester_id;
5232:
5233: IF l_emp_count = 0 THEN
5234:
5235: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5236: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5237: p_invoice_rec.invoice_id,
5238: 'INVALID REQUESTER',
5239: p_default_last_updated_by,
5239: p_default_last_updated_by,
5240: p_default_last_update_login,
5241: current_calling_sequence) <> TRUE) THEN
5242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5244: 'insert_rejections<-'||current_calling_sequence);
5245: END IF;
5246:
5247: RAISE misc_invoice_info_failure;
5258:
5259: EXCEPTION
5260: WHEN OTHERS THEN
5261: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5262: AP_IMPORT_UTILITIES_PKG.Print(
5263: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5264: END IF;
5265:
5266: IF (SQLCODE < 0) then
5264: END IF;
5265:
5266: IF (SQLCODE < 0) then
5267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5268: AP_IMPORT_UTILITIES_PKG.Print(
5269: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5270: END IF;
5271: END IF;
5272:
5316: -----------------------------------------------------------------------
5317: debug_info :=
5318: '(Check Legal Entity Info 1) Check Valid LE ID';
5319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5321: debug_info);
5322: END IF;
5323:
5324: XLE_UTILITIES_GRP.IsLegalEntity_LEID
5336: ------------------------------------------------------------------
5337: debug_info :=
5338: '(Check Legal Entity Info 1.1) InValid LE ID Flow';
5339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5341: debug_info);
5342: END IF;
5343: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5344: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5341: debug_info);
5342: END IF;
5343: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5344: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5345: p_invoice_rec.invoice_id,
5346: 'INVALID LEGAL ENTITY',
5347: p_default_last_updated_by,
5347: p_default_last_updated_by,
5348: p_default_last_update_login,
5349: current_calling_sequence) <> TRUE) THEN
5350: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5351: AP_IMPORT_UTILITIES_PKG.Print(
5352: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5353: 'insert_rejections<- '||current_calling_sequence);
5354: END IF;
5355: l_current_invoice_status := 'N';
5372: -----------------------------------------------------------------------
5373: debug_info :=
5374: '(Check Legal Entity Info 2) Check for reg code/number and Get LE.';
5375: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5376: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5377: debug_info);
5378: END IF;
5379: -----------------------------------------------------------------------
5380: -- Step 2.1
5387:
5388: debug_info :=
5389: '(Check Legal Entity Info 2.1) Get Bill TO Location ID';
5390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5391: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5392: debug_info);
5393: END IF;
5394:
5395:
5414: debug_info :=
5415: '(Check Legal Entity Info 2.1) For Payment Request Legal Entity will '
5416: || 'based on interface accts_pay_code_combination_id ';
5417: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5418: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5419: debug_info);
5420: END IF;
5421:
5422: l_ccid_to_api := p_invoice_rec.accts_pay_code_combination_id;
5430: ----------------------------------------------------------------------
5431: debug_info :=
5432: '(Check Legal Entity Info 2.2) Call LE API';
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: debug_info);
5436: END IF;
5437:
5438: XLE_BUSINESSINFO_GRP.Get_PurchasetoPay_Info
5452: -------------------------------------------------------------------
5453: debug_info :=
5454: '(Check Legal Entity Info 2.3) Valid LE Flow';
5455: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5456: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5457: debug_info);
5458: END IF;
5459: IF p_invoice_rec.legal_entity_id IS NOT NULL THEN
5460: IF p_invoice_rec.legal_entity_id <>
5466: -------------------------------------------------------------
5467: debug_info :=
5468: '(Check Legal Entity Info 2.4) Inconsistent LE Info';
5469: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5470: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5471: debug_info);
5472: END IF;
5473: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5474: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5469: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5470: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5471: debug_info);
5472: END IF;
5473: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5474: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5475: p_invoice_rec.invoice_id,
5476: 'INCONSISTENT LE INFO',
5477: p_default_last_updated_by,
5477: p_default_last_updated_by,
5478: p_default_last_update_login,
5479: current_calling_sequence) <> TRUE) THEN
5480: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5481: AP_IMPORT_UTILITIES_PKG.Print(
5482: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5483: 'insert_rejections<- '||current_calling_sequence);
5484: END IF;
5485: l_current_invoice_status := 'N';
5493: debug_info :=
5494: '(Check Legal Entity Info 2.4a) Legal Entity ID: '||
5495: p_invoice_rec.legal_entity_id;
5496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5497: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5498: debug_info);
5499: END IF;
5500:
5501:
5511: -------------------------------------------------------------------
5512: debug_info :=
5513: '(Check Legal Entity Info 2.5) InValid LE Flow';
5514: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5515: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5516: debug_info);
5517: END IF;
5518: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5519: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5514: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5515: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5516: debug_info);
5517: END IF;
5518: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5519: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5520: p_invoice_rec.invoice_id,
5521: 'INVALID LEGAL ENTITY',
5522: p_default_last_updated_by,
5522: p_default_last_updated_by,
5523: p_default_last_update_login,
5524: current_calling_sequence) <> TRUE) THEN
5525: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5526: AP_IMPORT_UTILITIES_PKG.Print(
5527: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5528: 'insert_rejections<- '||current_calling_sequence);
5529: END IF;
5530: l_current_invoice_status := 'N';
5537: RETURN (TRUE);
5538: EXCEPTION
5539: WHEN OTHERS THEN
5540: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5541: AP_IMPORT_UTILITIES_PKG.Print(
5542: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5543: END IF;
5544:
5545: IF (SQLCODE < 0) then
5543: END IF;
5544:
5545: IF (SQLCODE < 0) then
5546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5547: AP_IMPORT_UTILITIES_PKG.Print(
5548: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
5549: END IF;
5550: END IF;
5551: RETURN(FALSE);
5588:
5589: -- Bug 5448579
5590: debug_info := '(Check Invalid Pay Currency 0) Calling Caching Function for Currency';
5591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5592: AP_IMPORT_UTILITIES_PKG.Print(
5593: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5594: END IF;
5595: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
5596: P_Fnd_Currency_Table => l_fnd_currency_table,
5591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5592: AP_IMPORT_UTILITIES_PKG.Print(
5593: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
5594: END IF;
5595: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
5596: P_Fnd_Currency_Table => l_fnd_currency_table,
5597: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
5598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5599: AP_IMPORT_UTILITIES_PKG.Print(
5595: IF (AP_IMPORT_UTILITIES_PKG.Cache_Fnd_Currency (
5596: P_Fnd_Currency_Table => l_fnd_currency_table,
5597: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN
5598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
5599: AP_IMPORT_UTILITIES_PKG.Print(
5600: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5601: 'Cache_Fnd_Currency <-'||current_calling_sequence);
5602: END IF;
5603: Raise invalid_pay_curr_code_failure;
5626: END LOOP;
5627:
5628: debug_info := 'l_valid_pay_currency: '||l_valid_pay_currency;
5629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5630: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5631: debug_info);
5632: END IF;
5633:
5634: IF l_valid_pay_currency IS NOT NULL THEN
5640:
5641: debug_info := '(Check Payment Currency Code 1) Check for Inactive '
5642: ||'Payment Currency Code.';
5643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5644: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5645: debug_info);
5646: END IF;
5647:
5648: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5644: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5645: debug_info);
5646: END IF;
5647:
5648: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5649: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5650: p_invoice_rec.invoice_id,
5651: 'INACTIVE PAY CURR CODE',
5652: p_default_last_updated_by,
5652: p_default_last_updated_by,
5653: p_default_last_update_login,
5654: current_calling_sequence) <> TRUE) THEN
5655: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5656: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5657: 'insert_rejections<-'||current_calling_sequence);
5658: END IF;
5659: RAISE invalid_pay_curr_code_failure;
5660: END IF;
5664: ELSE
5665: debug_info := '(Check Payment Currency Code 1.1) Check for Inactive '
5666: ||'Payment Currency Code.';
5667: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5668: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5669: debug_info);
5670: END IF;
5671:
5672: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5668: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5669: debug_info);
5670: END IF;
5671:
5672: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5673: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5674: p_invoice_rec.invoice_id,
5675: 'INACTIVE PAY CURR CODE',
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: RAISE invalid_pay_curr_code_failure;
5684: END IF;
5709:
5710: debug_info := '(Check Payment Currency Code 3.1) Check for fixed '
5711: ||'payment cross rate.';
5712: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5713: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5714: debug_info);
5715: END IF;
5716:
5717: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5713: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5714: debug_info);
5715: END IF;
5716:
5717: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
5718: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5719: p_invoice_rec.invoice_id,
5720: 'PAY X RATE NOT FIXED',
5721: p_default_last_updated_by,
5721: p_default_last_updated_by,
5722: p_default_last_update_login,
5723: current_calling_sequence) <> TRUE) THEN
5724: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5725: AP_IMPORT_UTILITIES_PKG.Print(
5726: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5727: 'insert_rejections<-'||current_calling_sequence);
5728: END IF;
5729: RAISE invalid_pay_curr_code_failure;
5740: current_calling_sequence);
5741: debug_info := '(Check Payment Currency Code 3.2) Check for fixed '
5742: ||' and get payment cross rate.';
5743: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5744: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5745: debug_info);
5746: END IF;
5747:
5748: IF ( (l_payment_cross_rate <> p_invoice_rec.payment_cross_rate) AND
5755: AND lookup_code = 'PAY RATE OVERWRITTEN';
5756: debug_info := '(Check Payment Currency Code 3.3) Check for fixed '
5757: || l_warning;
5758: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5759: AP_IMPORT_UTILITIES_PKG.Print(
5760: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
5761: END IF;
5762: EXCEPTION WHEN no_data_found THEN
5763: NULL;
5770: -- pay_curr_code = inv_curr_code case
5771: debug_info := '(Check Payment Currency Code 3.3) Check for fixed '
5772: ||' pay_currency_code = inv_currency_code';
5773: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5774: AP_IMPORT_UTILITIES_PKG.Print(
5775: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5776: debug_info);
5777: END IF;
5778:
5810: -------------------------------------------------------------------------
5811: debug_info := '(Check Invoice Currency Code 4) Check for Invalid Invoice'
5812: ||' Currency Code.';
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: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5814: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5815: debug_info);
5816: END IF;
5817:
5818: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
5819: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
5820: p_invoice_rec.invoice_id,
5821: 'INVALID PAY CURR CODE',
5822: p_default_last_updated_by,
5822: p_default_last_updated_by,
5823: p_default_last_update_login,
5824: current_calling_sequence) <> TRUE) THEN
5825: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5826: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5827: 'insert_rejections<-'||current_calling_sequence);
5828: END IF;
5829: RAISE invalid_pay_curr_code_failure;
5830: END IF;
5834: RETURN (TRUE);
5835:
5836: WHEN OTHERS THEN
5837: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5838: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5839: debug_info);
5840: END IF;
5841:
5842: IF (SQLCODE < 0) then
5840: END IF;
5841:
5842: IF (SQLCODE < 0) then
5843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5844: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5845: SQLERRM);
5846: END IF;
5847: END IF;
5848: RETURN(FALSE);
5895:
5896: debug_info := '(Check Prepayment Info 1) Check if it is a Prepayment Invoice';
5897:
5898: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5899: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5900: debug_info);
5901: END IF;
5902:
5903: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
5899: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5900: debug_info);
5901: END IF;
5902:
5903: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
5904: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5905: p_invoice_rec.invoice_id,
5906: 'INCONSISTENT PREPAY APPL INFO',
5907: p_default_last_updated_by,
5907: p_default_last_updated_by,
5908: p_default_last_update_login,
5909: current_calling_sequence) <> TRUE) THEN
5910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5912: 'insert_rejections<-'||current_calling_sequence);
5913: END IF;
5914: RAISE check_prepay_failure;
5915: END IF;
5928:
5929: -- debug_info := 'p_invoice_rec.prepay_num , p_invoice_rec.org_id '|| p_invoice_rec.prepay_num||','||p_invoice_rec.org_id;
5930:
5931: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5932: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5933: debug_info);
5934: END IF;
5935:
5936:
5949:
5950: EXCEPTION WHEN OTHERS THEN
5951: debug_info := '(Check Prepayment Info 2.1) In others exception and the error is '||sqlerrm;
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:
5957:
5961: IF (l_count_lines_matched > 0) THEN
5962:
5963: debug_info := 'Reject as Cannot manually recoup ';
5964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5965: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5966: debug_info);
5967: END IF;
5968:
5969: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
5965: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5966: debug_info);
5967: END IF;
5968:
5969: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections (
5970: AP_IMPORT_INVOICES_PKG.g_invoices_table,
5971: p_invoice_rec.invoice_id,
5972: 'CANNOT MANUALLY RECOUP',
5973: p_default_last_updated_by,
5973: p_default_last_updated_by,
5974: p_default_last_update_login,
5975: current_calling_sequence) <> TRUE) THEN
5976: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
5977: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
5978: 'insert_rejections<-'||current_calling_sequence);
5979: END IF;
5980: RAISE check_prepay_failure;
5981: END IF;
6000:
6001: debug_info := '(Check Prepayment Info 1) Call Check Prepayment Function.';
6002:
6003: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6004: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6005: debug_info);
6006: END IF;
6007: --
6008: l_reject_code := AP_PREPAY_PKG.check_prepay_info_import(
6029: --
6030: -- show input/output values (only if debug_switch = 'Y')
6031:
6032: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6033: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6034: '------------------> prepay_num = '|| p_invoice_rec.prepay_num
6035: ||' prepay_line_num = '||to_char(p_invoice_rec.prepay_line_num)
6036: ||' prepay_apply_amount = '||to_char(p_invoice_rec.prepay_apply_amount)
6037: ||' invoice_amount = '||to_char(p_invoice_rec.invoice_amount)
6044: END IF;
6045:
6046: IF (l_reject_code IS NOT NULL) THEN
6047:
6048: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
6049: AP_IMPORT_INVOICES_PKG.g_invoices_table,
6050: p_invoice_rec.invoice_id,
6051: l_reject_code,
6052: p_default_last_updated_by,
6052: p_default_last_updated_by,
6053: p_default_last_update_login,
6054: current_calling_sequence) <> TRUE) THEN
6055: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6056: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6057: 'insert_rejections<-' ||current_calling_sequence);
6058: END IF;
6059: RAISE check_prepay_failure;
6060: END IF;
6073:
6074: EXCEPTION
6075: WHEN OTHERS THEN
6076: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6077: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6078: debug_info);
6079: END IF;
6080:
6081: IF (SQLCODE < 0) then
6079: END IF;
6080:
6081: IF (SQLCODE < 0) then
6082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6083: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6084: SQLERRM);
6085: END IF;
6086: END IF;
6087: RETURN(FALSE);
6123: -- Step 1 - Check for invalid no_xrate_base_amount
6124: -------------------------------------------------------------------------
6125: debug_info := '(Check No Xrate Base Amount 1) Is Xrate_Base_Amount invalid?';
6126: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6127: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6128: debug_info);
6129: END IF;
6130:
6131: IF (nvl(p_multi_currency_flag,'N') = 'Y') AND
6134: IF ((p_calc_user_xrate <> 'Y') AND
6135: (p_invoice_rec.no_xrate_base_amount IS NOT NULL)) THEN
6136: debug_info := 'Trying to reject due to no_x_Curr';
6137: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6138: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6139: debug_info);
6140: END IF;
6141:
6142: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6138: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6139: debug_info);
6140: END IF;
6141:
6142: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6143: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6144: p_invoice_rec.invoice_id,
6145: 'BASE AMOUNT NOT ALLOWED',
6146: p_default_last_updated_by,
6146: p_default_last_updated_by,
6147: p_default_last_update_login,
6148: current_calling_sequence) <> TRUE) THEN
6149: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6150: AP_IMPORT_UTILITIES_PKG.Print(
6151: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6152: 'insert_rejections<-'||current_calling_sequence);
6153: END IF;
6154: RAISE no_xrate_base_amount_failure;
6159: ELSIF (p_calc_user_xrate = 'Y') AND
6160: ((p_invoice_rec.exchange_rate_type <> 'User') AND
6161: (p_invoice_rec.no_xrate_base_amount IS NOT NULL)) THEN
6162:
6163: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6164: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6165: p_invoice_rec.invoice_id,
6166: 'INVALID EXCH RATE TYPE',
6167: p_default_last_updated_by,
6167: p_default_last_updated_by,
6168: p_default_last_update_login,
6169: current_calling_sequence) <> TRUE) THEN
6170: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6171: AP_IMPORT_UTILITIES_PKG.Print(
6172: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6173: 'insert_rejections<-'||current_calling_sequence);
6174: END IF;
6175: RAISE no_xrate_base_amount_failure;
6187: (p_invoice_rec.invoice_amount*p_invoice_rec.exchange_rate),
6188: p_base_currency_code) <> p_invoice_rec.no_xrate_base_amount)
6189: THEN
6190:
6191: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6192: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6193: p_invoice_rec.invoice_id,
6194: 'INCONSISTENT XRATE INFO',
6195: p_default_last_updated_by,
6195: p_default_last_updated_by,
6196: p_default_last_update_login,
6197: current_calling_sequence) <> TRUE) THEN
6198: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6199: AP_IMPORT_UTILITIES_PKG.Print(
6200: AP_IMPORT_INVOICES_PKG.g_debug_switch,
6201: 'insert_rejections<-'||current_calling_sequence);
6202: END IF;
6203: RAISE no_xrate_base_amount_failure;
6210: ((p_invoice_rec.exchange_rate_type = 'User') AND
6211: (p_invoice_rec.no_xrate_base_amount IS NULL) AND
6212: (p_invoice_rec.exchange_rate is NULL)) THEN
6213:
6214: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
6215: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
6216: p_invoice_rec.invoice_id,
6217: 'NO EXCHANGE RATE',
6218: p_default_last_updated_by,
6218: p_default_last_updated_by,
6219: p_default_last_update_login,
6220: current_calling_sequence) <> TRUE) THEN
6221: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6222: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6223: 'insert_rejections<-'||current_calling_sequence);
6224: END IF;
6225: RAISE no_xrate_base_amount_failure;
6226: END IF;
6239: p_base_currency_code <> p_invoice_rec.invoice_currency_code) THEN
6240:
6241: debug_info := '(Check No Xrate Base Amount 2) Get invoice base amount';
6242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6244: debug_info);
6245: END IF;
6246:
6247: IF (p_invoice_rec.exchange_rate_type <> 'User' AND
6269:
6270: EXCEPTION
6271: WHEN OTHERS THEN
6272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6273: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6274: debug_info);
6275: END IF;
6276:
6277: IF (SQLCODE < 0) then
6275: END IF;
6276:
6277: IF (SQLCODE < 0) then
6278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6279: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6280: SQLERRM);
6281: END IF;
6282: END IF;
6283:
6759: IF (p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST') THEN
6760:
6761: debug_info := '(Check_lines 1) Call Get_employee_id';
6762: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6763: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6764: debug_info);
6765: END IF;
6766:
6767: IF (AP_IMPORT_UTILITIES_PKG.get_employee_id(
6763: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6764: debug_info);
6765: END IF;
6766:
6767: IF (AP_IMPORT_UTILITIES_PKG.get_employee_id(
6768: p_invoice_rec.invoice_id,
6769: p_invoice_rec.vendor_id,
6770: l_employee_id, -- OUT
6771: p_default_last_updated_by,
6772: p_default_last_update_login,
6773: l_temp_line_status, -- OUT
6774: p_calling_sequence => current_calling_sequence) <> TRUE ) THEN
6775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6776: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6777: 'get_employee_id<-' ||current_calling_sequence);
6778: END IF;
6779: RAISE check_lines_failure;
6780: END IF;
6783: --
6784: -- show output values (only if debug_switch = 'Y')
6785: --
6786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6788: '------------------> l_temp_line_status = '||l_temp_line_status
6789: ||' l_employee_id = '||to_char(l_employee_id));
6790: END IF;
6791:
6803: -- provide a line number
6804: --------------------------------------------------------------------------
6805: debug_info := '(Check Lines 2) Get Max Line Number';
6806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
6807: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6808: debug_info);
6809: END IF;
6810: --
6811: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN
6854: -- AP_PPA_LINES_GT
6855: --------------------------------------------------------------------------
6856: debug_info := '(Check Lines 3) Open Cursor: invoice_lines';
6857: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6858: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6859: debug_info);
6860: END IF;
6861:
6862: -- Bug 6369356
6877: -- Loop through fetched invoice lines
6878: --------------------------------------------------------------------------
6879: debug_info := '(Check Lines 4) Looping through fetched invoice lines';
6880: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6881: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
6882: debug_info);
6883: END IF;
6884:
6885: -- Retropricing: Base Amount is populated for proposed PPA Lines
6890: p_base_currency_code );
6891: END IF;
6892:
6893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
6894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch ,
6895: '------------------> invoice_line_id = '
6896: ||to_char(p_invoice_lines_tab(i).invoice_line_id )
6897: ||' line_type_lookup_code = '
6898: || p_invoice_lines_tab(i).line_type_lookup_code
7056: -------------------------------------------------------------------------
7057: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
7058: debug_info := '(Check Lines 5) Validate org id for line';
7059: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7060: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7061: debug_info);
7062: END IF;
7063:
7064: IF p_invoice_lines_tab(i).org_id IS NOT NULL THEN
7063:
7064: IF p_invoice_lines_tab(i).org_id IS NOT NULL THEN
7065: debug_info := '(Check_lines 5.0) Org Id Is Not Null';
7066: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7067: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7068: debug_info);
7069: END IF;
7070:
7071: IF p_invoice_lines_tab(i).org_id <> p_invoice_rec.org_id THEN
7069: END IF;
7070:
7071: IF p_invoice_lines_tab(i).org_id <> p_invoice_rec.org_id THEN
7072:
7073: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
7074: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
7075: p_invoice_rec.invoice_id,
7076: 'INCONSISTENT OPERATING UNITS',
7077: p_default_last_updated_by,
7077: p_default_last_updated_by,
7078: p_default_last_update_login,
7079: current_calling_sequence) <> TRUE ) Then
7080: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7081: AP_IMPORT_UTILITIES_PKG.Print(
7082: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7083: 'insert_rejections<- ' ||current_calling_sequence);
7084: END IF;
7085: RAISE check_lines_failure;
7107: IF (p_invoice_lines_tab(i).invoice_line_id is NULL) THEN
7108: --
7109: debug_info := '(Check_lines 6.1) Get new invoice_line_id';
7110: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7111: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7112: debug_info);
7113: END IF;
7114:
7115: debug_info := '(Check_lines 6.2) Update new invoice_line_id to '
7114:
7115: debug_info := '(Check_lines 6.2) Update new invoice_line_id to '
7116: ||'ap_invoice_lines_interface';
7117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7118: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7119: debug_info);
7120: END IF;
7121:
7122: UPDATE ap_invoice_lines_interface
7132: ------------------------------------------------------------------------
7133: IF (p_invoice_lines_tab(i).dist_code_concatenated IS NOT NULL) THEN
7134: debug_info := '(v_check_lines 7.0) Check for partial Segments';
7135: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7136: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7137: debug_info);
7138: END IF;
7139:
7140: IF (AP_UTILITIES_PKG.Check_partial(
7143: p_set_of_books_id, -- IN
7144: l_error_message, -- OUT
7145: current_calling_sequence) <> TRUE) THEN
7146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7147: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7148: 'AP_UTILITIES_PKG.Check_Partial<-'||current_calling_sequence);
7149: END IF;
7150: RAISE check_lines_failure;
7151: END IF;
7150: RAISE check_lines_failure;
7151: END IF;
7152:
7153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7154: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7155: '------------------> partial_segments = '
7156: || p_invoice_lines_tab(i).partial_segments
7157: ||'l_error_message = '||l_error_message
7158: ||'dist_code_concatenated = '
7169:
7170: debug_info := '(Check Invoice Line amount 8) Check for invoice line '
7171: ||'amount if it is not exceeding precision';
7172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7173: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7174: debug_info);
7175: END IF;
7176: IF (AP_IMPORT_VALIDATION_PKG.v_check_invoice_line_amount (
7177: p_invoice_lines_tab(i),
7180: p_default_last_update_login,
7181: p_current_invoice_status => l_temp_line_status, --IN OUT
7182: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7184: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7185: 'v_check_line_amount<-'||current_calling_sequence);
7186: END IF;
7187: RAISE check_lines_failure;
7188:
7194: --
7195: -- show output values (only if debug_switch = 'Y')
7196: --
7197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7199: '------------------>
7200: l_temp_invoice_status = '||l_temp_line_status);
7201: END IF;
7202: END IF;
7207: -- only for ITEM Lines
7208: ---------------------------------------------------------
7209: debug_info := '(Check_lines 9) Call v_check_po_info only for ITEM Lines';
7210: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7211: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7212: debug_info);
7213: END IF;
7214:
7215: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code, 'ITEM' )
7215: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code, 'ITEM' )
7216: IN ('ITEM','RETROITEM')) THEN
7217: debug_info := '(Check_lines 9.1) This is an ITEM Line';
7218: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7219: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7220: debug_info);
7221: END IF;
7222:
7223: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_po_info(
7234: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7235: p_calling_sequence => current_calling_sequence)
7236: <> TRUE )THEN
7237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7238: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7239: 'v_check_po_info<-' ||current_calling_sequence);
7240: END IF;
7241: RAISE check_lines_failure;
7242: END IF;
7244: --
7245: -- show output values (only if debug_switch = 'Y')
7246: --
7247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7249: '------------------> l_temp_line_status = '|| l_temp_line_status);
7250: END IF;
7251:
7252: -- We need to set the current status to 'N' only if the temp line status
7264: -- Check for receipt information if match option = 'R'
7265: --------------------------------------------------------
7266: debug_info := '(Check_lines 10) Call v_check_receipt_info';
7267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7268: AP_IMPORT_UTILITIES_PKG.Print(
7269: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7270: END IF;
7271:
7272: --Bug 5225547 added the below condition to call v_check_receipt_info
7281: p_temp_line_status => l_temp_line_status, -- OUT NOCOPY
7282: p_calling_sequence => current_calling_sequence)
7283: <> TRUE) THEN
7284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7286: 'v_check_receipt_info<-' ||current_calling_sequence);
7287: END IF;
7288: RAISE check_lines_failure;
7289: END IF;
7292: --
7293: -- show output values (only if debug_switch = 'Y')
7294: --
7295: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7296: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7297: '------------------> l_temp_line_status = '||
7298: l_temp_line_status);
7299: END IF;
7300:
7316:
7317: debug_info := '(Check Purchasing Category Info 11) Check if valid '
7318: ||'purchasing category information is provided';
7319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7321: debug_info);
7322: END IF;
7323:
7324: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_purch_category(
7328: p_current_invoice_status => l_temp_line_status, --IN OUT
7329: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7330:
7331: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7332: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7333: 'v_check_purchasing_category<-'||current_calling_sequence);
7334: END IF;
7335: RAISE check_lines_failure;
7336:
7342: --
7343: -- show output values (only if debug_switch = 'Y')
7344: --
7345: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7346: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7347: '------------------>
7348: l_temp_invoice_status = '||l_temp_line_status);
7349: END IF;
7350:
7360:
7361: debug_info := '(Check Cost Factor Info 12) Check if valid '
7362: ||'cost factor information is provided';
7363: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7364: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7365: debug_info);
7366: END IF;
7367:
7368: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_cost_factor(
7372: p_current_invoice_status => l_temp_line_status, --IN OUT
7373: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7374:
7375: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7376: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7377: 'v_check_line_cost_factor<-'||current_calling_sequence);
7378: END IF;
7379: RAISE check_lines_failure;
7380:
7386: --
7387: -- show output values (only if debug_switch = 'Y')
7388: --
7389: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7390: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7391: '------------------>
7392: l_temp_invoice_status = '||l_temp_line_status);
7393: END IF;
7394:
7408: p_calling_sequence => current_calling_sequence)
7409: <> TRUE) THEN
7410:
7411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7412: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7413: 'v_check_line_populate_po_tax_attr<-' ||current_calling_sequence);
7414: END IF;
7415: RAISE check_lines_failure;
7416:
7422: -- check for accounting date Information
7423: ---------------------------------------------------------
7424: debug_info := '(Check_lines 13) Call v_check_line_accounting_date';
7425: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7426: AP_IMPORT_UTILITIES_PKG.Print(
7427: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
7428: END IF;
7429:
7430: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_accounting_date(
7439: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
7440: p_calling_sequence => current_calling_sequence)
7441: <> TRUE )THEN
7442: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7443: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7444: 'v_check_line_accounting_date<-' ||current_calling_sequence);
7445: END IF;
7446: RAISE check_lines_failure;
7447: END IF;
7449: --
7450: -- show output values (only if debug_switch = 'Y')
7451: --
7452: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7453: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7454: '------------------> l_temp_line_status = '|| l_temp_line_status);
7455: END IF;
7456: --
7457: IF (l_temp_line_status = 'N') THEN
7464: -- check for project information
7465: ---------------------------------------------------------
7466: debug_info := '(Check_lines 14) Call v_check_line_project_info';
7467: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7468: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7469: debug_info);
7470: END IF;
7471:
7472: --bugfix:4773191 , added the IF condition to bypass the pa flexbuild
7491: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7492: p_calling_sequence => current_calling_sequence)
7493: <> TRUE )THEN
7494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7495: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7496: 'v_check_line_project_info<-' ||current_calling_sequence);
7497: END IF;
7498: RAISE check_lines_failure;
7499: END IF;
7501: --
7502: -- show output values (only if debug_switch = 'Y')
7503: --
7504: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7505: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7506: '------------------> l_temp_line_status = '|| l_temp_line_status
7507: ||' dist_code_combination_id = '
7508: || to_char(p_invoice_lines_tab(i).dist_code_combination_id));
7509: END IF;
7523: -------------------------------------------------------------------
7524:
7525: debug_info := '(Check_lines 15.0) Call Is_Product_Registered';
7526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7527: AP_IMPORT_UTILITIES_PKG.Print(
7528: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
7529: End if;
7530:
7531: /* bug 5039042. Whether Source Application is registered for
7533: /* Bug 5448579. Added the IF condition */
7534: IF (p_invoice_lines_tab(i).application_id IS NULL) THEN
7535: l_product_registered := 'N';
7536: ELSE
7537: IF (Ap_Import_Utilities_Pkg.Is_Product_Registered(
7538: P_application_id => p_invoice_lines_tab(i).application_id,
7539: X_registration_api => l_dummy,
7540: X_registration_view => l_dummy,
7541: P_calling_sequence => current_calling_sequence)) THEN
7547:
7548: /* bug 5121735 */
7549: debug_info := '(Check_lines 15.1) l_product_registered: '||l_product_registered;
7550: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7551: AP_IMPORT_UTILITIES_PKG.Print(
7552: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
7553: End if;
7554:
7555: -------------------------------------------------------------------
7566: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
7567: IF (l_product_registered = 'N') THEN /* bug 5121735 */
7568: debug_info := '(Check_lines 15) Call v_check_line_account_info';
7569: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7570: AP_IMPORT_UTILITIES_PKG.Print(
7571: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
7572: End if;
7573:
7574: /*Start of bug 4386299*/
7613: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
7614: p_calling_sequence => current_calling_sequence) <> TRUE
7615: ) THEN
7616: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7617: AP_IMPORT_UTILITIES_PKG.Print(
7618: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7619: 'v_check_line_account_info<-' ||current_calling_sequence);
7620: END IF;
7621: RAISE check_lines_failure;
7623: --
7624: -- show output values (only if debug_switch = 'Y')
7625: --
7626: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7627: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7628: '------------------> l_temp_line_status = '||
7629: l_temp_line_status ||'dist_code_combination_id = '
7630: ||to_char(p_invoice_lines_tab(i).dist_code_combination_id));
7631: END IF;
7645: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
7646:
7647: debug_info := '(Check_lines 16) Call v_check_deferred_accounting';
7648: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7649: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7650: debug_info);
7651: END IF;
7652:
7653: IF (AP_IMPORT_VALIDATION_PKG.v_check_deferred_accounting (
7657: p_default_last_update_login, -- IN
7658: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
7659: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7660: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7661: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7662: 'v_check_deferred_accounting<-' ||current_calling_sequence);
7663: end if;
7664: RAISE check_lines_failure;
7665: END IF;
7667: --
7668: -- show output values (only if debug_switch = 'Y')
7669: --
7670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7672: '------------------> l_temp_line_status = '||
7673: l_temp_line_status);
7674: END IF;
7675: --
7687: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
7688: --
7689: debug_info := '(Check_lines 17) Call v_check_line_dist_set';
7690: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7691: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7692: debug_info);
7693: END IF;
7694: --
7695: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code, 'ITEM' )
7708: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
7709: p_calling_sequence => current_calling_sequence)
7710: <> TRUE )THEN
7711: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7712: AP_IMPORT_UTILITIES_PKG.Print(
7713: AP_IMPORT_INVOICES_PKG.g_debug_switch,
7714: 'v_check_line_dist_set<-' ||current_calling_sequence);
7715: END IF;
7716: RAISE check_lines_failure;
7718: --
7719: -- show output values (only if debug_switch = 'Y')
7720: --
7721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
7722: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7723: '------------------> l_temp_line_status = '|| l_temp_line_status);
7724: END IF;
7725: --
7726: IF (l_temp_line_status = 'N') THEN
7735: -- Validate Qty related information for non PO/RCV matched lines
7736: ---------------------------------------------------------
7737: debug_info := '(Check_lines 18) Call v_check_qty_uom_info';
7738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7739: AP_IMPORT_UTILITIES_PKG.Print(
7740: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7741: END IF;
7742:
7743: -- check for invalid qty related information for non PO/RCV matched lines
7748: p_default_last_update_login, -- IN
7749: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7750: p_calling_sequence => current_calling_sequence) <> TRUE) THEN
7751: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7752: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7753: 'v_check_invalid_awt_group<-' ||current_calling_sequence);
7754: END IF;
7755: RAISE check_lines_failure;
7756: END IF;
7757: --
7758: -- show output values (only if debug_switch = 'Y')
7759: --
7760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7762: '------------------> l_temp_line_status = '|| l_temp_line_status);
7763: END IF;
7764:
7765: --
7773: -- check for AWT group
7774: ---------------------------------------------------------
7775: debug_info := '(Check_lines 19) Call v_check_invalid_awt_group';
7776: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7777: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7778: debug_info);
7779: END IF;
7780:
7781: -- check for invalid AWT group
7786: p_default_last_update_login, -- IN
7787: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7788: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7789: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7790: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7791: 'v_check_invalid_awt_group<-' ||current_calling_sequence);
7792: END IF;
7793: RAISE check_lines_failure;
7794: END IF;
7795: --
7796: -- show output values (only if debug_switch = 'Y')
7797: --
7798: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7799: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7800: '------------------> l_temp_line_status = '|| l_temp_line_status);
7801: END IF;
7802: --
7803: IF (l_temp_line_status = 'N') THEN
7810: -- check for pay AWT group
7811: ---------------------------------------------------------
7812: debug_info := '(Check_lines 19) Call v_check_invalid_line_pay_awt_g';
7813: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7814: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7815: debug_info);
7816: END IF;
7817:
7818: -- check for invalid AWT group
7823: p_default_last_update_login, -- IN
7824: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7825: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
7826: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7827: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7828: 'v_check_invalid_pay_awt_group<-' ||current_calling_sequence);
7829: END IF;
7830: RAISE check_lines_failure;
7831: END IF;
7832: --
7833: -- show output values (only if debug_switch = 'Y')
7834: --
7835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7836: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7837: '------------------> l_temp_line_status = '|| l_temp_line_status);
7838: END IF;
7839: --
7840: IF (l_temp_line_status = 'N') THEN
7851: ---------------------------------------------------------
7852: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
7853: debug_info := '(Check_lines 20) Call v_check_duplicate_line_num';
7854: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7855: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7856: debug_info);
7857: END IF;
7858:
7859: IF (AP_IMPORT_VALIDATION_PKG.v_check_duplicate_line_num(
7864: p_current_invoice_status => l_temp_line_status,-- IN OUT
7865: p_calling_sequence => current_calling_sequence)
7866: <> TRUE )THEN
7867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7868: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7869: 'v_check_duplicate_line_num<-' ||current_calling_sequence);
7870: END IF;
7871: RAISE check_lines_failure;
7872: END IF;
7873: --
7874: -- show output values (only if debug_switch = 'Y')
7875: --
7876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7877: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7878: '------------------> l_temp_line_status = '|| l_temp_line_status);
7879: END IF;
7880: --
7881: IF (l_temp_line_status = 'N') THEN
7893: -- check Asset Info
7894: ---------------------------------------------------------
7895: debug_info := '(Check_lines 21) Call v_check_asset_info';
7896: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7897: AP_IMPORT_UTILITIES_PKG.Print(
7898: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
7899: End if;
7900:
7901: IF (AP_IMPORT_VALIDATION_PKG.v_check_asset_info (
7907: p_current_invoice_status => l_temp_line_status,-- IN OUT NOCOPY
7908: p_calling_sequence => current_calling_sequence)
7909: <> TRUE) THEN
7910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7912: 'v_check_misc_line_info<-' ||current_calling_sequence);
7913: END IF;
7914: RAISE check_lines_failure;
7915: END IF;
7916: --
7917: -- show output values (only if debug_switch = 'Y')
7918: --
7919: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7920: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7921: '------------------> l_temp_line_status = '|| l_temp_line_status);
7922: END IF;
7923:
7924: --
7932: -- check for Misc Line Info
7933: ---------------------------------------------------------
7934: debug_info := '(Check_lines 22) Call v_check_misc_line_info';
7935: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7936: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7937: debug_info);
7938: END IF;
7939:
7940: IF (AP_IMPORT_VALIDATION_PKG.v_check_misc_line_info(
7945: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7946: p_calling_sequence => current_calling_sequence)
7947: <> TRUE )THEN
7948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7949: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7950: 'v_check_misc_line_info<-' ||current_calling_sequence);
7951: END IF;
7952: RAISE check_lines_failure;
7953: END IF;
7954: --
7955: -- show output values (only if debug_switch = 'Y')
7956: --
7957: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7958: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7959: '------------------> l_temp_line_status = '||
7960: l_temp_line_status);
7961: END IF;
7962:
7972: -------------------------------------------------------------------------
7973: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
7974: debug_info := '(Check_lines 23) Call v_check_tax_line_info';
7975: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7976: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7977: debug_info);
7978: END IF;
7979:
7980: IF (AP_IMPORT_VALIDATION_PKG.v_check_tax_line_info(
7984: p_current_invoice_status => l_temp_line_status, -- IN OUT NOCOPY
7985: p_calling_sequence => current_calling_sequence)
7986: <> TRUE )THEN
7987: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7988: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7989: 'v_check_tax_line_info<-' ||current_calling_sequence);
7990: END IF;
7991: RAISE check_lines_failure;
7992: END IF;
7993: --
7994: -- show output values (only if debug_switch = 'Y')
7995: --
7996: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
7997: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
7998: '------------------> l_temp_line_status = '||
7999: l_temp_line_status);
8000: END IF;
8001:
8012: -- check for Invalid Line Global Flexfield
8013: ---------------------------------------------------------
8014: debug_info := '(Check Lines 24) Check for Line Global Flexfield';
8015: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8016: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8017: debug_info);
8018: END IF;
8019: jg_globe_flex_val.check_attr_value(
8020: 'APXIIMPT',
8053: p_current_status => l_temp_line_status);
8054:
8055:
8056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8058: 'Global Flexfield Lines Processed '|| l_temp_line_status);
8059: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8060: '------------------> l_temp_line_status = '||l_temp_line_status);
8061: END IF;
8055:
8056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8058: 'Global Flexfield Lines Processed '|| l_temp_line_status);
8059: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8060: '------------------> l_temp_line_status = '||l_temp_line_status);
8061: END IF;
8062:
8063: IF (l_temp_line_status = 'N') THEN
8074: ---------------------------------------------------------
8075: debug_info := '(Check Lines 25) Checking the total dist amount to be '
8076: ||'prorated';
8077: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8078: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8079: debug_info);
8080: END IF;
8081:
8082: IF (nvl(p_invoice_lines_tab(i).line_type_lookup_code,'ITEM') <> 'ITEM' AND
8089: p_current_invoice_status =>l_temp_line_status,-- IN OUT NOCOPY
8090: p_calling_sequence => current_calling_sequence)
8091: <> TRUE )THEN
8092: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8093: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8094: 'v_check_prorate_info<-' ||current_calling_sequence);
8095: END IF;
8096: RAISE check_lines_failure;
8097: END IF;
8098: --
8099: -- show output values (only if debug_switch = 'Y')
8100: --
8101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8103: '------------------> l_temp_line_status = '||l_temp_line_status);
8104: END IF;
8105:
8106: --
8119: nvl(p_invoice_rec.invoice_type_lookup_code, 'STANDARD') <> 'PREPAYMENT') THEN
8120:
8121: debug_info := '(Check Lines 26) Checking for retainage account ';
8122: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8123: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8124: END IF;
8125:
8126: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_retainage(
8127: p_invoice_lines_tab(i), -- IN OUT
8131: p_current_invoice_status => l_temp_line_status, -- IN OUT
8132: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8133:
8134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8136: 'v_check_line_retainage<-' ||current_calling_sequence);
8137: END IF;
8138: RAISE check_lines_failure;
8139: END IF;
8138: RAISE check_lines_failure;
8139: END IF;
8140:
8141: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8142: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8143: '------------------> l_temp_line_status = '|| l_temp_line_status);
8144: END IF;
8145:
8146: IF (l_temp_line_status = 'N') THEN
8158: p_invoice_lines_tab(i).ship_to_location_id IS NULL) THEN
8159:
8160: debug_info := '(Check Lines 27) Checking for ship to location code ';
8161: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8162: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
8163: END IF;
8164:
8165: IF (AP_IMPORT_VALIDATION_PKG.v_check_ship_to_location_code(
8166: p_invoice_rec,
8170: p_current_invoice_status => l_temp_line_status, -- IN OUT
8171: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
8172:
8173: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8174: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8175: 'v_check_ship_to_location_code<-' ||current_calling_sequence);
8176: END IF;
8177: RAISE check_lines_failure;
8178: END IF;
8177: RAISE check_lines_failure;
8178: END IF;
8179:
8180: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8181: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8182: '------------------> ship_to_location_id = '
8183: || p_invoice_lines_tab(i).ship_to_location_id);
8184: END IF;
8185:
8198:
8199: EXCEPTION
8200: WHEN OTHERS THEN
8201: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8203: debug_info);
8204: END IF;
8205:
8206: IF (SQLCODE < 0) then
8204: END IF;
8205:
8206: IF (SQLCODE < 0) then
8207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8209: SQLERRM);
8210: END IF;
8211: END IF;
8212:
8247:
8248: debug_info :=
8249: '(Check Invoice Line Amount 1) Lines amount exceeds precision.';
8250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8251: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8252: debug_info);
8253: END IF;
8254:
8255: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
8251: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8252: debug_info);
8253: END IF;
8254:
8255: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
8256: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8257: p_invoice_lines_rec.invoice_line_id,
8258: 'LINE AMOUNT EXCEEDS PRECISION',
8259: p_default_last_updated_by,
8259: p_default_last_updated_by,
8260: p_default_last_update_login,
8261: current_calling_sequence) <> TRUE) THEN
8262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8264: 'insert_rejections<-'||current_calling_sequence);
8265: END IF;
8266: RAISE check_lines_failure;
8267: END IF;
8274:
8275: EXCEPTION
8276: WHEN OTHERS THEN
8277: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8278: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8279: debug_info);
8280: END IF;
8281:
8282: IF (SQLCODE < 0) then
8280: END IF;
8281:
8282: IF (SQLCODE < 0) then
8283: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8284: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8285: SQLERRM);
8286: END IF;
8287: END IF;
8288: RETURN(FALSE);
8382: --
8383: debug_info := '(v_check_line_po_info 1) Default PO Number from invoice '
8384: ||'header and get l_po_header_id';
8385: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8386: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8387: debug_info);
8388: END IF;
8389: --
8390:
8400: EXCEPTION
8401: WHEN NO_DATA_FOUND THEN
8402: -- po number is invalid
8403: -- set contextual information for XML GATEWAY
8404: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
8405: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8406: p_invoice_lines_rec.invoice_line_id,
8407: 'INVALID PO NUM',
8408: p_default_last_updated_by,
8411: 'Y',
8412: 'PO NUMBER',
8413: p_invoice_rec.po_number) <> TRUE) THEN
8414: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8415: AP_IMPORT_UTILITIES_PKG.Print(
8416: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8417: 'insert_rejections<-'||current_calling_sequence);
8418: END IF;
8419: RAISE check_po_failure;
8431: --
8432: BEGIN
8433: debug_info := '(v_check_line_po_info 1) Validate po_header_id';
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: SELECT 'Y'
8447: EXCEPTION
8448: WHEN NO_DATA_FOUND THEN
8449: -- po header id is invalid
8450: -- set contextual information for XML GATEWAY
8451: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
8452: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8453: p_invoice_lines_rec.invoice_line_id,
8454: 'INVALID PO NUM',
8455: p_default_last_updated_by,
8458: 'Y',
8459: 'PO NUMBER',
8460: p_invoice_lines_rec.po_number) <> TRUE) THEN
8461: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8462: AP_IMPORT_UTILITIES_PKG.Print(
8463: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8464: 'insert_rejections<-'||current_calling_sequence);
8465: END IF;
8466: RAISE check_po_failure;
8479: --
8480: BEGIN
8481: debug_info := '(v_check_line_po_info 2) Validate po_number';
8482: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8483: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8484: debug_info);
8485: END IF;
8486: --
8487: SELECT 'Y', ph.po_header_id
8495: EXCEPTION
8496: WHEN NO_DATA_FOUND THEN
8497: -- po number is invalid
8498: -- set contextual information for XML GATEWAY
8499: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
8500: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8501: p_invoice_lines_rec.invoice_line_id,
8502: 'INVALID PO NUM',
8503: p_default_last_updated_by,
8506: 'Y',
8507: 'PO NUMBER',
8508: p_invoice_lines_rec.po_number) <> TRUE) THEN
8509: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8510: AP_IMPORT_UTILITIES_PKG.Print(
8511: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8512: 'insert_rejections<-'||current_calling_sequence);
8513: END IF;
8514: RAISE check_po_failure;
8528: BEGIN
8529: debug_info := '(v_check_line_po_info 3) Check inconsistence for '
8530: ||'po_number and po_header_id';
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: debug_info);
8534: END IF;
8535: --
8536: SELECT 'Y'
8541:
8542: EXCEPTION
8543: WHEN NO_DATA_FOUND THEN
8544: -- po number is inconsistent
8545: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
8546: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8547: p_invoice_lines_rec.invoice_line_id,
8548: 'INCONSISTENT PO INFO',
8549: p_default_last_updated_by,
8549: p_default_last_updated_by,
8550: p_default_last_update_login,
8551: current_calling_sequence) <> TRUE) THEN
8552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8553: AP_IMPORT_UTILITIES_PKG.Print(
8554: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8555: 'insert_rejections<-'||current_calling_sequence);
8556: END IF;
8557: RAISE check_po_failure;
8569: --
8570: BEGIN
8571: debug_info := '(v_check_line_po_info 4) Validate po_line_id';
8572: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8573: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8574: debug_info);
8575: END IF;
8576: --
8577: SELECT 'Y'
8580: WHERE po_line_id = l_po_line_id;
8581: EXCEPTION
8582: WHEN NO_DATA_FOUND THEN
8583: -- po line id is invalid
8584: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8585: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8586: p_invoice_lines_rec.invoice_line_id,
8587: 'INVALID PO LINE NUM',
8588: p_default_last_updated_by,
8588: p_default_last_updated_by,
8589: p_default_last_update_login,
8590: current_calling_sequence) <> TRUE) THEN
8591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8592: AP_IMPORT_UTILITIES_PKG.Print(
8593: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8594: 'insert_rejections<-'||current_calling_sequence);
8595: END IF;
8596: RAISE check_po_failure;
8610: --
8611: BEGIN
8612: debug_info := '(v_check_line_po_info 5) Validate po_line_number';
8613: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8614: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8615: debug_info);
8616: END IF;
8617: --
8618: --
8623: AND po_header_id = l_po_header_id;
8624: EXCEPTION
8625: WHEN NO_DATA_FOUND THEN
8626: -- po line number is invalid
8627: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8628: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8629: p_invoice_lines_rec.invoice_line_id,
8630: 'INVALID PO LINE NUM',
8631: p_default_last_updated_by,
8631: p_default_last_updated_by,
8632: p_default_last_update_login,
8633: current_calling_sequence) <> TRUE) THEN
8634: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8635: AP_IMPORT_UTILITIES_PKG.Print(
8636: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8637: 'insert_rejections<-'||current_calling_sequence);
8638: END IF;
8639: RAISE check_po_failure;
8653: BEGIN
8654: debug_info := '(v_check_line_po_info 6) Check inconsistence for '
8655: ||'po_line_number and po_line_id';
8656: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8657: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8658: debug_info);
8659: END IF;
8660: --
8661: SELECT 'Y'
8665: AND po_line_id = l_po_line_id;
8666: EXCEPTION
8667: WHEN NO_DATA_FOUND THEN
8668: -- po number is inconsistent
8669: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8670: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8671: p_invoice_lines_rec.invoice_line_id,
8672: 'INCONSISTENT PO LINE INFO',
8673: p_default_last_updated_by,
8673: p_default_last_updated_by,
8674: p_default_last_update_login,
8675: current_calling_sequence) <> TRUE) THEN
8676: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8677: AP_IMPORT_UTILITIES_PKG.Print(
8678: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8679: 'insert_rejections<-'||current_calling_sequence);
8680: END IF;
8681: RAISE check_po_failure;
8693: --
8694: BEGIN
8695: debug_info := '(v_check_line_po_info 7) Validate po_release_id';
8696: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8697: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8698: debug_info);
8699: END IF;
8700: --
8701: --
8711: EXCEPTION
8712: WHEN NO_DATA_FOUND THEN
8713: -- po release id is invalid
8714: -- set contextual information for XML GATEWAY
8715: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8716: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8717: p_invoice_lines_rec.invoice_line_id,
8718: 'INVALID PO RELEASE NUM',
8719: p_default_last_updated_by,
8719: p_default_last_updated_by,
8720: p_default_last_update_login,
8721: current_calling_sequence) <> TRUE) THEN
8722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8723: AP_IMPORT_UTILITIES_PKG.Print(
8724: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8725: 'insert_rejections<-'||current_calling_sequence);
8726: END IF;
8727: RAISE check_po_failure;
8741: --
8742: BEGIN
8743: debug_info := '(v_check_line_po_info 8) Validate po_release_num';
8744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8745: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8746: debug_info);
8747: END IF;
8748: --
8749: SELECT 'Y',
8761: EXCEPTION
8762: WHEN NO_DATA_FOUND THEN
8763: -- po release number is invalid
8764: -- Set contextual information for XML GATEWAY
8765: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8766: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8767: p_invoice_lines_rec.invoice_line_id,
8768: 'INVALID PO RELEASE NUM',
8769: p_default_last_updated_by,
8772: 'Y',
8773: 'PO RELEASE NUMBER',
8774: p_invoice_lines_rec.release_num) <> TRUE) THEN
8775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8776: AP_IMPORT_UTILITIES_PKG.Print(
8777: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8778: 'insert_rejections<-'||current_calling_sequence);
8779: END IF;
8780: RAISE check_po_failure;
8795: BEGIN
8796: debug_info := '(v_check_line_po_info 9) Check inconsistence for '
8797: ||'release_num and po_release_id';
8798: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8799: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8800: debug_info);
8801: END IF;
8802: --
8803: SELECT 'Y'
8807: AND po_release_id = l_po_release_id;
8808: EXCEPTION
8809: WHEN NO_DATA_FOUND THEN
8810: -- po release information is inconsistent
8811: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8812: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8813: p_invoice_lines_rec.invoice_line_id,
8814: 'INCONSISTENT RELEASE INFO',
8815: p_default_last_updated_by,
8815: p_default_last_updated_by,
8816: p_default_last_update_login,
8817: current_calling_sequence) <> TRUE) THEN
8818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8819: AP_IMPORT_UTILITIES_PKG.Print(
8820: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8821: 'insert_rejections<-'||current_calling_sequence);
8822: END IF;
8823: RAISE check_po_failure;
8836: BEGIN
8837: debug_info := '(v_check_line_po_info 10) Check inconsistence for '
8838: ||'po_line_id and po_release_id';
8839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8840: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8841: debug_info);
8842: END IF;
8843: --
8844: SELECT 'Y'
8851: AND rownum <=1;
8852: EXCEPTION
8853: WHEN NO_DATA_FOUND THEN
8854: -- po release/line is inconsistent
8855: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8856: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8857: p_invoice_lines_rec.invoice_line_id,
8858: 'INCONSISTENT RELEASE INFO',
8859: p_default_last_updated_by,
8859: p_default_last_updated_by,
8860: p_default_last_update_login,
8861: current_calling_sequence) <> TRUE) THEN
8862: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8863: AP_IMPORT_UTILITIES_PKG.Print(
8864: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8865: 'insert_rejections<-'||current_calling_sequence);
8866: END IF;
8867: RAISE check_po_failure;
8880: BEGIN
8881: debug_info :=
8882: '(v_check_line_po_info 10.1) Check lines for po_release_id ';
8883: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8884: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8885: debug_info);
8886: END IF;
8887: --
8888: SELECT DISTINCT po_line_id
8900: EXCEPTION
8901: WHEN NO_DATA_FOUND THEN
8902: -- po release/line is inconsistent
8903: -- set contextual information for XML GATEWAY
8904: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8905: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8906: p_invoice_lines_rec.invoice_line_id,
8907: 'INVALID PO RELEASE INFO',
8908: p_default_last_updated_by,
8915: p_invoice_lines_rec.po_shipment_num,
8916: 'PO LINE NUMBER',
8917: p_invoice_lines_rec.po_line_number) <> TRUE) THEN
8918: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8919: AP_IMPORT_UTILITIES_PKG.Print(
8920: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8921: 'insert_rejections<-'||current_calling_sequence);
8922: END IF;
8923: RAISE check_po_failure;
8933: (p_invoice_lines_rec.item_description IS NULL) AND
8934: (l_po_line_location_id IS NULL) AND
8935: (l_po_distribution_id IS NULL)) THEN
8936:
8937: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
8938: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
8939: p_invoice_lines_rec.invoice_line_id,
8940: 'CAN MATCH TO ONLY 1 LINE',
8941: p_default_last_updated_by,
8941: p_default_last_updated_by,
8942: p_default_last_update_login,
8943: current_calling_sequence) <> TRUE) THEN
8944: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8945: AP_IMPORT_UTILITIES_PKG.Print(
8946: AP_IMPORT_INVOICES_PKG.g_debug_switch,
8947: 'insert_rejections<-'||current_calling_sequence);
8948: END IF;
8949: RAISE check_po_failure;
8971: the queries as there is no need to validate the release
8972: details for standard PO */
8973:
8974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
8975: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
8976: debug_info);
8977: End if;
8978:
8979: IF l_po_header_id IS NOT NULL THEN -- Fix for 2809177
9035:
9036: EXCEPTION
9037: WHEN NO_DATA_FOUND THEN
9038: -- po release/line is inconsistent
9039: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9040: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9041: p_invoice_lines_rec.invoice_line_id,
9042: 'INCONSISTENT RELEASE INFO',
9043: p_default_last_updated_by,
9044: p_default_last_update_login,
9045: current_calling_sequence
9046: ) <> TRUE) THEN
9047: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9048: AP_IMPORT_UTILITIES_PKG.Print(
9049: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9050: 'insert_rejections<-'||current_calling_sequence);
9051: END IF;
9052: RAISE check_po_failure;
9064: BEGIN
9065: debug_info :=
9066: '(v_check_line_po_info 11) Validate p_inventory_item_id';
9067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9069: debug_info);
9070: END IF;
9071: --
9072: SELECT 'Y', po_line_id
9076: AND po_header_id = l_po_header_id;
9077: EXCEPTION
9078: WHEN NO_DATA_FOUND THEN
9079: -- po item id is invalid
9080: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9081: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9082: p_invoice_lines_rec.invoice_line_id,
9083: 'INVALID ITEM',
9084: p_default_last_updated_by,
9084: p_default_last_updated_by,
9085: p_default_last_update_login,
9086: current_calling_sequence) <> TRUE) THEN
9087: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9088: AP_IMPORT_UTILITIES_PKG.Print(
9089: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9090: 'insert_rejections<-'||current_calling_sequence);
9091: END IF;
9092: RAISE check_po_failure;
9098: IF ((l_po_line_id IS NULL) AND
9099: (p_invoice_lines_rec.po_line_number IS NULL) AND
9100: (l_po_line_location_id IS NULL) AND
9101: (l_po_distribution_id IS NULL)) Then
9102: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9103: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9104: p_invoice_lines_rec.invoice_line_id,
9105: 'CAN MATCH TO ONLY 1 LINE',
9106: p_default_last_updated_by,
9106: p_default_last_updated_by,
9107: p_default_last_update_login,
9108: current_calling_sequence) <> TRUE) THEN
9109: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9110: AP_IMPORT_UTILITIES_PKG.Print(
9111: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9112: 'insert_rejections<-'||current_calling_sequence);
9113: END IF;
9114: RAISE check_po_failure;
9131: --
9132: BEGIN
9133: debug_info := '(v_check_line_po_info 11.5) Validate p_vendor_item_num';
9134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9136: debug_info);
9137: END IF;
9138: --
9139: SELECT 'Y', po_line_id
9143: AND po_header_id = l_po_header_id;
9144: EXCEPTION
9145: WHEN NO_DATA_FOUND THEN
9146: -- po item id is invalid
9147: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9148: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9149: p_invoice_lines_rec.invoice_line_id,
9150: 'INVALID ITEM',
9151: p_default_last_updated_by,
9154: 'Y',
9155: 'SUPPLIER ITEM NUMBER',
9156: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9157: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9158: AP_IMPORT_UTILITIES_PKG.Print(
9159: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9160: 'insert_rejections<-'||current_calling_sequence);
9161: END IF;
9162: RAISE check_po_failure;
9169: (p_invoice_lines_rec.po_line_number IS NULL) AND
9170: (l_po_line_location_id IS NULL) AND
9171: (l_po_distribution_id IS NULL)) THEN
9172:
9173: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9174: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9175: p_invoice_lines_rec.invoice_line_id,
9176: 'CAN MATCH TO ONLY 1 LINE',
9177: p_default_last_updated_by,
9180: 'Y',
9181: 'SUPPLIER ITEM NUMBER',
9182: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9184: AP_IMPORT_UTILITIES_PKG.Print(
9185: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9186: 'insert_rejections<-'||current_calling_sequence);
9187: END IF;
9188: RAISE check_po_failure;
9205: --
9206: BEGIN
9207: debug_info := '(v_check_line_po_info 12) Validate p_item_description';
9208: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9209: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9210: debug_info);
9211: END IF;
9212: --
9213: SELECT 'Y', po_line_id
9217: AND po_header_id = l_po_header_id;
9218: EXCEPTION
9219: WHEN NO_DATA_FOUND THEN
9220: -- po item id is invalid
9221: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9222: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9223: p_invoice_lines_rec.invoice_line_id,
9224: 'INVALID ITEM',
9225: p_default_last_updated_by,
9225: p_default_last_updated_by,
9226: p_default_last_update_login,
9227: current_calling_sequence) <> TRUE) THEN
9228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9229: AP_IMPORT_UTILITIES_PKG.Print(
9230: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9231: 'insert_rejections<-'||current_calling_sequence);
9232: END IF;
9233: RAISE check_po_failure;
9240: (p_invoice_lines_rec.po_line_number IS NULL) AND
9241: (l_po_line_location_id IS NULL) AND
9242: (l_po_distribution_id IS NULL)) THEN
9243:
9244: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9245: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9246: p_invoice_lines_rec.invoice_line_id,
9247: 'CAN MATCH TO ONLY 1 LINE',
9248: p_default_last_updated_by,
9248: p_default_last_updated_by,
9249: p_default_last_update_login,
9250: current_calling_sequence) <> TRUE) THEN
9251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9252: AP_IMPORT_UTILITIES_PKG.Print(
9253: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9254: 'insert_rejections<-'||current_calling_sequence);
9255: END IF;
9256: RAISE check_po_failure;
9280: BEGIN
9281: debug_info := '(v_check_line_po_info 13.1) Check inconsistency for '
9282: ||'po_inventory_item_id and po_vendor_item_num';
9283: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9284: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9285: debug_info);
9286: END IF;
9287: --
9288: SELECT 'Y'
9294: EXCEPTION
9295: WHEN NO_DATA_FOUND THEN
9296: -- po line information is inconsistent
9297: -- bug 2581097 added contextual information for XML GATEWAY
9298: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9299: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9300: p_invoice_lines_rec.invoice_line_id,
9301: 'INCONSISTENT PO LINE INFO',
9302: p_default_last_updated_by,
9305: 'Y',
9306: 'SUPPLIER ITEM NUMBER',
9307: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9308: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9309: AP_IMPORT_UTILITIES_PKG.Print(
9310: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9311: 'insert_rejections<-'||current_calling_sequence);
9312: END IF;
9313: RAISE check_po_failure;
9323: (l_po_distribution_id IS NULL)) THEN
9324:
9325: -- bug 2581097 added contextual information for XML GATEWAY
9326:
9327: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9328: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9329: p_invoice_lines_rec.invoice_line_id,
9330: 'CAN MATCH TO ONLY 1 LINE',
9331: p_default_last_updated_by,
9335: 'SUPPLIER ITEM NUMBER',
9336: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9337:
9338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9339: AP_IMPORT_UTILITIES_PKG.Print(
9340: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9341: 'insert_rejections<-'||current_calling_sequence);
9342: END IF;
9343: RAISE check_po_failure;
9355: BEGIN
9356: debug_info := '(v_check_line_po_info 13.2) Check inconsistency for '
9357: ||'po_inventory_item_id and po_item_description';
9358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9360: debug_info);
9361: END IF;
9362: --
9363: SELECT 'Y'
9368: AND po_header_id = l_po_header_id;
9369: EXCEPTION
9370: WHEN NO_DATA_FOUND THEN
9371: -- po line information is inconsistent
9372: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9373: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9374: p_invoice_lines_rec.invoice_line_id,
9375: 'INCONSISTENT PO LINE INFO',
9376: p_default_last_updated_by,
9377: p_default_last_update_login,
9378: current_calling_sequence) <> TRUE) THEN
9379:
9380: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9381: AP_IMPORT_UTILITIES_PKG.Print(
9382: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9383: 'insert_rejections<-'||current_calling_sequence);
9384: END IF;
9385: RAISE check_po_failure;
9392: (p_invoice_lines_rec.po_line_number IS NULL) AND
9393: (l_po_line_location_id IS NULL) AND
9394: (l_po_distribution_id IS NULL)) Then
9395:
9396: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9397: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9398: p_invoice_lines_rec.invoice_line_id,
9399: 'CAN MATCH TO ONLY 1 LINE',
9400: p_default_last_updated_by,
9401: p_default_last_update_login,
9402: current_calling_sequence) <> TRUE) THEN
9403:
9404: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9405: AP_IMPORT_UTILITIES_PKG.Print(
9406: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9407: 'insert_rejections<-'||current_calling_sequence);
9408: END IF;
9409: RAISE check_po_failure;
9426: BEGIN
9427: debug_info := '(v_check_line_po_info 14) Check inconsistency for '
9428: ||'po_line_id and po_inventory_item_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: --
9439: AND po_line_id = l_po_line_id;
9440: EXCEPTION
9441: WHEN NO_DATA_FOUND THEN
9442: -- po line information is inconsistent
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: 'INCONSISTENT PO LINE INFO',
9447: p_default_last_updated_by,
9448: p_default_last_update_login,
9449: current_calling_sequence) <> TRUE) THEN
9450:
9451: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9452: AP_IMPORT_UTILITIES_PKG.Print(
9453: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9454: 'insert_rejections<-'||current_calling_sequence);
9455: END IF;
9456: RAISE check_po_failure;
9472: BEGIN
9473: debug_info := '(v_check_line_po_info 15) Check inconsistency for '
9474: ||'po_line_id and po_vendor_item_num';
9475: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9476: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9477: debug_info);
9478: END IF;
9479:
9480: --
9486: EXCEPTION
9487: WHEN NO_DATA_FOUND THEN
9488: -- po line information is inconsistent
9489: -- bug 2581097 added contextual information for XML GATEWAY
9490: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9491: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9492: p_invoice_lines_rec.invoice_line_id,
9493: 'INCONSISTENT PO LINE INFO',
9494: p_default_last_updated_by,
9497: 'Y',
9498: 'SUPPLIER ITEM NUMBER',
9499: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9501: AP_IMPORT_UTILITIES_PKG.Print(
9502: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9503: 'insert_rejections<-'||current_calling_sequence);
9504: END IF;
9505: RAISE check_po_failure;
9526: BEGIN
9527: debug_info := '(v_check_line_po_info 15.1) Check inconsistency for '
9528: ||'po_line_number and po_vendor_item_num';
9529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9530: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9531: debug_info);
9532: END IF;
9533:
9534: --
9541: EXCEPTION
9542: WHEN NO_DATA_FOUND THEN
9543: -- po line information is inconsistent
9544: -- bug 2581097 added contextual information for XML GATEWAY
9545: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9546: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9547: p_invoice_lines_rec.invoice_line_id,
9548: 'INCONSISTENT PO LINE INFO',
9549: p_default_last_updated_by,
9552: 'Y',
9553: 'SUPPLIER ITEM NUMBER',
9554: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
9555: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9556: AP_IMPORT_UTILITIES_PKG.Print(
9557: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9558: 'insert_rejections<-'||current_calling_sequence);
9559: END IF;
9560: RAISE check_po_failure;
9581: BEGIN
9582: debug_info := '(v_check_line_po_info 15.1) Check inconsistency for '
9583: ||'po_line_number and inventory_item_id';
9584: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9585: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9586: debug_info);
9587: END IF;
9588:
9589: --
9597: EXCEPTION
9598: WHEN NO_DATA_FOUND THEN
9599: -- po line information is inconsistent
9600: -- bug 2581097 added contextual information for XML GATEWAYi
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: 'INCONSISTENT PO LINE INFO',
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;
9626: --
9627: BEGIN
9628: debug_info := '(v_check_line_po_info 16) Validate po_line_location_id';
9629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9630: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9631: debug_info);
9632: END IF;
9633: --
9634: SELECT 'Y'
9643: EXCEPTION
9644: WHEN NO_DATA_FOUND THEN
9645: -- po line location id is invalid
9646: -- bug 2581097 added contextual information for XML GATEWAY
9647: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9648: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9649: p_invoice_lines_rec.invoice_line_id,
9650: 'INVALID PO SHIPMENT NUM',
9651: p_default_last_updated_by,
9654: 'Y',
9655: 'PO SHIPMENT NUMBER',
9656: p_invoice_lines_rec.po_shipment_num) <> TRUE) THEN
9657: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9658: AP_IMPORT_UTILITIES_PKG.Print(
9659: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9660: 'insert_rejections<-'||current_calling_sequence);
9661: END IF;
9662: RAISE check_po_failure;
9680: --
9681: BEGIN
9682: debug_info := '(v_check_line_po_info 17) Validate po_shipment_num';
9683: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9684: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9685: debug_info);
9686: END IF;
9687: --
9688:
9695: EXCEPTION
9696: WHEN NO_DATA_FOUND THEN
9697: -- po shipment number is invalid
9698: -- bug 2581097 added contextual information for XML GATEWAY
9699: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9700: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9701: p_invoice_lines_rec.invoice_line_id,
9702: 'INVALID PO SHIPMENT NUM',
9703: p_default_last_updated_by,
9706: 'Y',
9707: 'PO SHIPMENT NUMBER',
9708: p_invoice_lines_rec.po_shipment_num) <> TRUE) THEN
9709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9710: AP_IMPORT_UTILITIES_PKG.Print(
9711: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9712: 'insert_rejections<-'||current_calling_sequence);
9713: END IF;
9714: RAISE check_po_failure;
9717: l_current_invoice_status := 'N';
9718: WHEN TOO_MANY_ROWS THEN
9719: -- po release info is required
9720: -- bug 2581097 added contextual information for XML GATEWAY
9721: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9722: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9723: p_invoice_lines_rec.invoice_line_id,
9724: 'INVALID PO RELEASE INFO',
9725: p_default_last_updated_by,
9732: p_invoice_lines_rec.po_shipment_num,
9733: 'PO LINE NUMBER',
9734: p_invoice_lines_rec.po_line_number ) <> TRUE) THEN
9735: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9736: AP_IMPORT_UTILITIES_PKG.Print(
9737: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9738: 'insert_rejections<-'||current_calling_sequence);
9739: END IF;
9740: RAISE check_po_failure;
9757: --
9758: BEGIN
9759: debug_info := '(v_check_line_po_info 18) Validate p_ship_to_location_code';
9760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9762: debug_info);
9763: END IF;
9764: --
9765:
9774:
9775: EXCEPTION
9776: WHEN NO_DATA_FOUND THEN
9777: -- po shipment number is invalid
9778: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9779: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9780: p_invoice_lines_rec.invoice_line_id,
9781: 'INVALID LOCATION CODE',
9782: p_default_last_updated_by,
9783: p_default_last_update_login,
9784: current_calling_sequence) <> TRUE) THEN
9785:
9786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9787: AP_IMPORT_UTILITIES_PKG.Print(
9788: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9789: 'insert_rejections<-'||current_calling_sequence);
9790: END IF;
9791: RAISE check_po_failure;
9795:
9796: WHEN TOO_MANY_ROWS THEN
9797: IF (p_invoice_lines_rec.po_shipment_num IS NULL) Then
9798: -- po shipment to Location is not unique for a Line
9799: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9800: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9801: p_invoice_lines_rec.invoice_line_id,
9802: 'NON UNIQUE LOCATION CODE',
9803: p_default_last_updated_by,
9804: p_default_last_update_login,
9805: current_calling_sequence) <> TRUE) THEN
9806:
9807: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9808: AP_IMPORT_UTILITIES_PKG.Print(
9809: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9810: 'insert_rejections<-'||current_calling_sequence);
9811: END IF;
9812: RAISE check_po_failure;
9830: --
9831: BEGIN
9832: debug_info := '(v_check_line_po_info 19) Validate po_shipment_num';
9833: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9834: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9835: debug_info);
9836: END IF;
9837: --
9838: SELECT 'Y', line_location_id,
9846: EXCEPTION
9847: WHEN NO_DATA_FOUND THEN
9848: -- po shipment number is invalid
9849: -- bug 2581097 added contextual information for XML GATEWAY
9850: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9851: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9852: p_invoice_lines_rec.invoice_line_id,
9853: 'INVALID PO SHIPMENT NUM',
9854: p_default_last_updated_by,
9857: 'Y',
9858: 'PO SHIPMENT NUMBER',
9859: p_invoice_lines_rec.po_shipment_num) <> TRUE) THEN
9860: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9861: AP_IMPORT_UTILITIES_PKG.Print(
9862: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9863: 'insert_rejections<-'||current_calling_sequence);
9864: END IF;
9865: RAISE check_po_failure;
9883: BEGIN
9884: debug_info :=
9885: '(v_check_line_po_info 20) Validate p_ship_to_location_code';
9886: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9887: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9888: debug_info);
9889: END IF;
9890: --
9891: SELECT 'Y', line_location_id,
9900:
9901: EXCEPTION
9902: WHEN NO_DATA_FOUND THEN
9903: -- po shipment number is invalid
9904: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9905: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9906: p_invoice_lines_rec.invoice_line_id,
9907: 'INVALID LOCATION CODE',
9908: p_default_last_updated_by,
9909: p_default_last_update_login,
9910: current_calling_sequence) <> TRUE) THEN
9911:
9912: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9913: AP_IMPORT_UTILITIES_PKG.Print(
9914: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9915: 'insert_rejections<-'||current_calling_sequence);
9916: END IF;
9917: RAISE check_po_failure;
9935: BEGIN
9936: debug_info := '(v_check_line_po_info 21) Check inconsistence for '
9937: ||'po_shipment_num and po_line_location_id';
9938: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9939: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9940: debug_info);
9941: END IF;
9942: --
9943: SELECT 'Y'
9946: WHERE shipment_num = p_invoice_lines_rec.po_shipment_num
9947: AND line_location_id = l_po_line_location_id;
9948: EXCEPTION
9949: WHEN NO_DATA_FOUND THEN
9950: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9951: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9952: p_invoice_lines_rec.invoice_line_id,
9953: 'INCONSISTENT PO SHIPMENT',
9954: p_default_last_updated_by,
9954: p_default_last_updated_by,
9955: p_default_last_update_login,
9956: current_calling_sequence) <> TRUE) THEN
9957: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9958: AP_IMPORT_UTILITIES_PKG.Print(
9959: AP_IMPORT_INVOICES_PKG.g_debug_switch,
9960: 'insert_rejections<-'||current_calling_sequence);
9961: END IF;
9962: RAISE check_po_failure;
9977: BEGIN
9978: debug_info := '(v_check_line_po_info 22) Check inconsistence for '
9979: ||'p_ship_to_location_code and po_line_location_id';
9980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
9981: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
9982: debug_info);
9983: END IF;
9984: --
9985:
9992: AND line_location_id = l_po_line_location_id;
9993:
9994: EXCEPTION
9995: WHEN NO_DATA_FOUND THEN
9996: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
9997: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
9998: p_invoice_lines_rec.invoice_line_id,
9999: 'INCONSISTENT PO SHIPMENT',
10000: p_default_last_updated_by,
10000: p_default_last_updated_by,
10001: p_default_last_update_login,
10002: current_calling_sequence) <> TRUE) THEN
10003: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10004: AP_IMPORT_UTILITIES_PKG.Print(
10005: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10006: 'insert_rejections<-'||current_calling_sequence);
10007: END IF;
10008: RAISE check_po_failure;
10026: BEGIN
10027: debug_info := '(v_check_line_po_info 23) Check inconsistence for '
10028: ||'p_ship_to_location_code and p_po_shipment_num';
10029: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10030: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10031: debug_info);
10032: END IF;
10033: --
10034: SELECT 'Y'
10042: AND po_header_id = l_po_header_id;
10043:
10044: EXCEPTION
10045: WHEN NO_DATA_FOUND THEN
10046: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10047: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10048: p_invoice_lines_rec.invoice_line_id,
10049: 'INCONSISTENT PO SHIPMENT',
10050: p_default_last_updated_by,
10050: p_default_last_updated_by,
10051: p_default_last_update_login,
10052: current_calling_sequence) <> TRUE) THEN
10053: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10054: AP_IMPORT_UTILITIES_PKG.Print(
10055: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10056: 'insert_rejections<-'||current_calling_sequence);
10057: END IF;
10058: --
10090:
10091:
10092: debug_info := '(v_check_line_po_info 23.1) Validate po_shipment_num';
10093: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10094: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10095: debug_info);
10096: END IF;
10097: --
10098: --
10123: END;
10124:
10125: IF l_accrue_on_receipt_flag = 'Y' THEN
10126:
10127: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10128: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10129: p_invoice_lines_rec.invoice_line_id,
10130: 'ACCRUE ON RECEIPT', -- Bug 5235675
10131: p_default_last_updated_by,
10131: p_default_last_updated_by,
10132: p_default_last_update_login,
10133: current_calling_sequence) <> TRUE) THEN
10134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10135: AP_IMPORT_UTILITIES_PKG.Print(
10136: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10137: 'insert_rejections<-'||current_calling_sequence);
10138: END IF;
10139: RAISE check_po_failure;
10164: BEGIN
10165: debug_info := '(v_check_line_po_info 23) Check inconsistence for '
10166: ||'p_ship_to_location_code and p_po_shipment_num';
10167: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10168: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10169: debug_info);
10170: END IF;
10171: --
10172: SELECT 'Y'
10180: AND po_header_id = l_po_header_id;
10181:
10182: EXCEPTION
10183: WHEN NO_DATA_FOUND THEN
10184: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10185: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10186: p_invoice_lines_rec.invoice_line_id,
10187: 'INCONSISTENT PO SHIPMENT',
10188: p_default_last_updated_by,
10188: p_default_last_updated_by,
10189: p_default_last_update_login,
10190: current_calling_sequence) <> TRUE) THEN
10191: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10192: AP_IMPORT_UTILITIES_PKG.Print(
10193: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10194: 'insert_rejections<-'||current_calling_sequence);
10195: END IF;
10196: RAISE check_po_failure;
10210: --
10211: BEGIN
10212: debug_info := '(v_check_line_po_info 25) Validate p_po_distribution_id';
10213: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10214: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10215: debug_info);
10216: END IF;
10217: --
10218: SELECT 'Y'
10221: WHERE po_distribution_id = l_po_distribution_id
10222: AND line_location_id IS NOT NULL; /* BUG 3253594 */
10223: EXCEPTION
10224: WHEN NO_DATA_FOUND THEN
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: 'INVALID PO DIST NUM',
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;
10255: --
10256: BEGIN
10257: debug_info := '(v_check_line_po_info 26) Validate p_po_distribution_num';
10258: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10259: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10260: debug_info);
10261: END IF;
10262: --
10263: SELECT 'Y' , po_distribution_id
10270: AND po_header_id = l_po_header_id;
10271:
10272: EXCEPTION
10273: WHEN NO_DATA_FOUND THEN
10274: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10275: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10276: p_invoice_lines_rec.invoice_line_id,
10277: 'INVALID PO DIST NUM',
10278: p_default_last_updated_by,
10279: p_default_last_update_login,
10280: current_calling_sequence) <> TRUE) THEN
10281:
10282: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10283: AP_IMPORT_UTILITIES_PKG.Print(
10284: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10285: 'insert_rejections<-'||current_calling_sequence);
10286: END IF;
10287: RAISE check_po_failure;
10303: --
10304: BEGIN
10305: debug_info := '(v_check_line_po_info 27) Validate p_po_distribution_num';
10306: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10307: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10308: debug_info);
10309: END IF;
10310: --
10311: SELECT 'Y' , po_distribution_id
10317: AND po_header_id = l_po_header_id;
10318:
10319: EXCEPTION
10320: WHEN NO_DATA_FOUND THEN
10321: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10322: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10323: p_invoice_lines_rec.invoice_line_id,
10324: 'INVALID PO DIST NUM',
10325: p_default_last_updated_by,
10326: p_default_last_update_login,
10327: current_calling_sequence) <> TRUE) THEN
10328:
10329: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10330: AP_IMPORT_UTILITIES_PKG.Print(
10331: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10332: 'insert_rejections<-'||current_calling_sequence);
10333: END IF;
10334: RAISE check_po_failure;
10350: BEGIN
10351: debug_info := '(v_check_line_po_info 28) Check inconsistence for '
10352: ||'p_po_distribution_num and p_po_distribution_id';
10353: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10354: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10355: debug_info);
10356: END IF;
10357: --
10358: SELECT 'Y'
10362: AND distribution_num = p_invoice_lines_rec.po_distribution_num
10363: AND line_location_id IS NOT NULL; /* BUG 3253594 */
10364: EXCEPTION
10365: WHEN NO_DATA_FOUND THEN
10366: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10367: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10368: p_invoice_lines_rec.invoice_line_id,
10369: 'INCONSISTENT PO DIST INFO',
10370: p_default_last_updated_by,
10371: p_default_last_update_login,
10372: current_calling_sequence) <> TRUE) THEN
10373:
10374: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10375: AP_IMPORT_UTILITIES_PKG.Print(
10376: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10377: 'insert_rejections<-'||current_calling_sequence);
10378: END IF;
10379: RAISE check_po_failure;
10408: BEGIN
10409: debug_info := '(v_check_line_po_info 29.1) Get po number from '
10410: ||'po_header_id';
10411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10412: AP_IMPORT_UTILITIES_PKG.Print(
10413: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10414: END IF;
10415:
10416: SELECT segment1
10437: BEGIN
10438: debug_info :=
10439: '(v_check_line_po_info 29.2) Get po number from po_line_id';
10440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10441: AP_IMPORT_UTILITIES_PKG.Print(
10442: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10443: END IF;
10444:
10445: SELECT pl.po_header_id,
10467: BEGIN
10468: debug_info := '(v_check_line_po_info 29.3) Get po number from'
10469: ||' po_release_id';
10470: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10471: AP_IMPORT_UTILITIES_PKG.Print(
10472: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10473: END IF;
10474:
10475: SELECT pr.po_header_id,
10502:
10503: debug_info := '(v_check_line_po_info 29.4) Get po number from '
10504: ||'po_line_location_id';
10505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10506: AP_IMPORT_UTILITIES_PKG.Print(
10507: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10508: END IF;
10509:
10510: SELECT pll.po_header_id,
10537:
10538: debug_info := '(v_check_line_po_info 29.5) Get po number from '
10539: ||'po_distribution_id';
10540: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10541: AP_IMPORT_UTILITIES_PKG.Print(
10542: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10543: END IF;
10544:
10545: SELECT pd.po_header_id,
10570:
10571: debug_info :=
10572: '(v_check_line_po_info 30) Get po_header_id from po_number';
10573: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10575: debug_info);
10576: END IF;
10577: --bug2268553 to differentiate PO from RFQ and Quotation
10578: SELECT po_header_id
10593: -- Get po_line_id
10594: ------------------------------------------------------------------------
10595: debug_info := '(v_check_line_po_info 31) Get po_line_id';
10596: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10597: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10598: debug_info);
10599: END IF;
10600:
10601: -------------------------------------------------------
10609:
10610: debug_info := '(v_check_line_po_info 31.1) Get po_line_id from '
10611: ||'po_line_location_id';
10612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10613: AP_IMPORT_UTILITIES_PKG.Print(
10614: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10615: END IF;
10616:
10617: SELECT po_line_id
10637:
10638: debug_info := '(v_check_line_po_info 31.2) Get po_line_id from '
10639: ||'po_distribution_id';
10640: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10641: AP_IMPORT_UTILITIES_PKG.Print(
10642: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10643: END IF;
10644:
10645: SELECT po_line_id
10667:
10668: debug_info := '(v_check_line_po_info 31.3) Default po_line_id from '
10669: ||'the first line, if only one line';
10670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10672: debug_info);
10673: END IF;
10674:
10675: SELECT po_line_id
10683:
10684: WHEN TOO_MANY_ROWS Then
10685: debug_info := '(v_check_line_po_info 31.4) Too many po lines';
10686: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10687: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10688: debug_info);
10689: END IF;
10690:
10691: -- bug 2581097 added contextual information for XML GATEWAY
10689: END IF;
10690:
10691: -- bug 2581097 added contextual information for XML GATEWAY
10692:
10693: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10694: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10695: p_invoice_lines_rec.invoice_line_id,
10696: 'NO PO LINE NUM',
10697: p_default_last_updated_by,
10700: 'Y',
10701: 'PO NUMBER',
10702: l_po_number) <> TRUE) THEN
10703: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10704: AP_IMPORT_UTILITIES_PKG.Print(
10705: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10706: 'insert_rejections<-'||current_calling_sequence);
10707: END IF;
10708: RAISE check_po_failure;
10727: -- Get Get po_line_location_id
10728: -----------------------------------------------------------------------
10729: debug_info := '(v_check_line_po_info 32) Get po_line_location_id';
10730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10731: AP_IMPORT_UTILITIES_PKG.Print(
10732: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10733: END IF;
10734:
10735: -------------------------------------------------------
10743: --
10744: debug_info := '(v_check_line_po_info 32.1) Get po_line_id from '
10745: ||'po_distribution_id';
10746: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10747: AP_IMPORT_UTILITIES_PKG.Print(
10748: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10749: END IF;
10750:
10751: SELECT line_location_id
10773: debug_info := '(v_check_line_po_info 32.2) Default '
10774: ||'po_line_location_id from the first line, '
10775: ||'if only one line';
10776: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10777: AP_IMPORT_UTILITIES_PKG.Print(
10778: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10779: END IF;
10780:
10781: /*--------------------------------------------------------------------+
10816:
10817: debug_info :=
10818: '(v_check_line_po_info 32.2) Too many po shipments';
10819: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10820: AP_IMPORT_UTILITIES_PKG.Print(
10821: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10822: END IF;
10823:
10824: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10820: AP_IMPORT_UTILITIES_PKG.Print(
10821: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10822: END IF;
10823:
10824: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10825: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10826: p_invoice_lines_rec.invoice_line_id,
10827: 'NO PO SHIPMENT NUM',
10828: p_default_last_updated_by,
10828: p_default_last_updated_by,
10829: p_default_last_update_login,
10830: current_calling_sequence) <> TRUE) THEN
10831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10832: AP_IMPORT_UTILITIES_PKG.Print(
10833: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10834: 'insert_rejections<-'||current_calling_sequence);
10835: END IF;
10836: RAISE check_po_failure;
10853: IF (l_po_line_location_id IS NOT NULL) THEN
10854: debug_info := '(v_check_line_po_info 31.1) Get Match Basis Based '||
10855: 'on line_location_id';
10856: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10857: AP_IMPORT_UTILITIES_PKG.Print(
10858: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10859: END IF;
10860:
10861: SELECT pll.matching_basis
10881:
10882: IF (l_po_header_id IS NOT NULL) THEN
10883: debug_info := '(v_check_line_po_info 31.2) Check for corrupt PO data';
10884: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10885: AP_IMPORT_UTILITIES_PKG.Print(
10886: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
10887: END IF;
10888:
10889: --start of bug 5292782
10922: END IF;
10923:
10924: IF (l_blanket<>'BLANKET') THEN --bug 5292782
10925: IF (l_corrupt_po_distributions > 0) THEN
10926: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
10927: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
10928: p_invoice_lines_rec.invoice_line_id,
10929: 'INVALID PO NUM',
10930: p_default_last_updated_by,
10933: 'Y',
10934: 'CORRUPT PONUMBER',
10935: l_po_header_id) <> TRUE) THEN
10936: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10937: AP_IMPORT_UTILITIES_PKG.Print(
10938: AP_IMPORT_INVOICES_PKG.g_debug_switch,
10939: 'insert_rejections<-'||current_calling_sequence);
10940: END IF;
10941: RAISE check_po_failure;
10969:
10970: debug_info := '(v_check_line_po_info 33.1) Find if PO vendor does not '
10971: ||'match interface vendor:Get PO Vendor';
10972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10973: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10974: debug_info);
10975: END IF;
10976: -- Bug 5448579. L_vendor_id is already derived
10977: /* SELECT vendor_id
10979: FROM po_headers
10980: WHERE po_header_id = l_po_header_id; */
10981:
10982: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10983: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10984: '------------------> l_vendor_id :per PO = '||
10985: to_char(l_vendor_id));
10986: END IF;
10987: debug_info :=
10986: END IF;
10987: debug_info :=
10988: '(v_check_line_po_info 33.1) Check for Inconsistent PO Vendor.';
10989: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
10990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
10991: debug_info);
10992: END IF;
10993:
10994: IF (l_vendor_id <> nvl(p_invoice_rec.vendor_id, l_vendor_id)) THEN
10999: INTO l_invoice_vendor_name
11000: FROM po_vendors
11001: WHERE vendor_id = p_invoice_rec.vendor_id;
11002:
11003: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11004: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11005: p_invoice_lines_rec.invoice_line_id,
11006: 'INCONSISTENT PO SUPPLIER',
11007: p_default_last_updated_by,
11011: 'SUPPLIER NAME',
11012: l_invoice_vendor_name) <> TRUE) THEN
11013:
11014: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11015: AP_IMPORT_UTILITIES_PKG.Print(
11016: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11017: 'insert_rejections<-'||current_calling_sequence);
11018: END IF;
11019: RAISE check_po_failure;
11024: NULL;
11025: END;
11026:
11027: ELSE
11028: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11029: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11030: p_invoice_lines_rec.invoice_line_id,
11031: 'INCONSISTENT PO SUPPLIER',
11032: p_default_last_updated_by,
11033: p_default_last_update_login,
11034: current_calling_sequence) <> TRUE) THEN
11035:
11036: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11037: AP_IMPORT_UTILITIES_PKG.Print(
11038: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11039: 'insert_rejections<-'||current_calling_sequence);
11040: END IF;
11041: RAISE check_po_failure;
11055: l_blanket:='BLANKET'; --4019310
11056:
11057: debug_info := '(v_check_line_po_info 33.2) Find if PO is BLANKET';
11058: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11059: AP_IMPORT_UTILITIES_PKG.Print(
11060: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11061: END IF;
11062:
11063: SELECT 'Y'
11070: WHEN NO_DATA_FOUND THEN
11071: -- po header is BLANKET
11072: -- bug 2581097 added contextual information for XML GATEWAY
11073:
11074: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11075: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11076: p_invoice_lines_rec.invoice_line_id,
11077: 'RELEASE MISSING',
11078: p_default_last_updated_by,
11081: 'Y',
11082: 'PO NUMBER',
11083: l_po_number) <> TRUE) THEN
11084: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11085: AP_IMPORT_UTILITIES_PKG.Print(
11086: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11087: 'insert_rejections<-'||current_calling_sequence);
11088: END IF;
11089: RAISE check_po_failure;
11101:
11102: debug_info :=
11103: '(v_check_line_po_info 33.3) Find if PO info is consistent';
11104: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11105: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11106: debug_info);
11107: END IF;
11108:
11109: SELECT 'X'
11118:
11119: EXCEPTION
11120: WHEN NO_DATA_FOUND THEN
11121: -- Reject
11122: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11123: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11124: p_invoice_lines_rec.invoice_line_id,
11125: 'INVALID PO INFO',
11126: p_default_last_updated_by,
11137: p_invoice_lines_rec.po_shipment_num,
11138: 'PO RELEASE NUMBER',
11139: p_invoice_lines_rec.release_num ) <> TRUE) THEN
11140: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11141: AP_IMPORT_UTILITIES_PKG.Print(
11142: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11143: 'insert_rejections<-'||current_calling_sequence);
11144: END IF;
11145: RAISE check_po_failure;
11157: BEGIN
11158: debug_info := '(v_check_line_po_info 33.5) Check if inv curr is same is '
11159: ||'po curr';
11160: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11161: AP_IMPORT_UTILITIES_PKG.Print(
11162: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
11163: END IF;
11164:
11165: SELECT 'Y'
11171: WHEN NO_DATA_FOUND THEN
11172: debug_info :=
11173: '(v_check_line_po_info 33.5) Reject: Inconsistent currencies';
11174: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11175: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11176: debug_info);
11177: END IF;
11178: -- Reject
11179: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY') THEN
11181: INTO l_po_currency_code
11182: FROM po_headers
11183: WHERE po_header_id = l_po_header_id ;
11184:
11185: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11186: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11187: p_invoice_lines_rec.invoice_line_id,
11188: 'INCONSISTENT CURR',
11189: p_default_last_updated_by,
11195: 'PO CURRENCY CODE',
11196: l_po_currency_code ) <> TRUE) THEN
11197:
11198: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11199: AP_IMPORT_UTILITIES_PKG.Print(
11200: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11201: 'insert_rejections<-'||current_calling_sequence);
11202: END IF;
11203: RAISE check_po_failure;
11204: END IF;
11205:
11206: ELSE
11207:
11208: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11209: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11210: p_invoice_lines_rec.invoice_line_id,
11211: 'INCONSISTENT CURR',
11212: p_default_last_updated_by,
11213: p_default_last_update_login,
11214: current_calling_sequence) <> TRUE) THEN
11215:
11216: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11217: AP_IMPORT_UTILITIES_PKG.Print(
11218: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11219: 'insert_rejections<-'||current_calling_sequence);
11220: END IF;
11221: RAISE check_po_failure;
11244:
11245: debug_info := '(v_check_line_po_info 34.1) Check for price correction information on'||
11246: ' prepayment invoices';
11247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11249: debug_info);
11250: END IF;
11251:
11252: IF(p_invoice_rec.invoice_type_lookup_code = 'PREPAYMENT') THEN
11250: END IF;
11251:
11252: IF(p_invoice_rec.invoice_type_lookup_code = 'PREPAYMENT') THEN
11253:
11254: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11255: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11256: p_invoice_lines_rec.invoice_line_id,
11257: 'CANNOT PRICE CORRECT PREPAY',
11258: p_default_last_updated_by,
11259: p_default_last_update_login,
11260: current_calling_sequence)<> TRUE) THEN
11261:
11262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11263: AP_IMPORT_UTILITIES_PKG.Print(
11264: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11265: 'insert_rejections<-'||current_calling_sequence);
11266: END IF;
11267:
11274: END IF;
11275:
11276: debug_info := '(v_check_line_po_info 34.2) Check price correction information';
11277: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11278: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11279: debug_info);
11280: END IF;
11281:
11282: IF p_invoice_lines_rec.price_correct_inv_num is null then
11280: END IF;
11281:
11282: IF p_invoice_lines_rec.price_correct_inv_num is null then
11283:
11284: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11285: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11286: p_invoice_lines_rec.invoice_line_id,
11287: 'PRICE CORRECT INV NUM REQUIRED',
11288: p_default_last_updated_by,
11289: p_default_last_update_login,
11290: current_calling_sequence)<> TRUE) THEN
11291:
11292: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11293: AP_IMPORT_UTILITIES_PKG.Print(
11294: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11295: 'insert_rejections<-'||current_calling_sequence);
11296: END IF;
11297:
11307: IF p_invoice_lines_rec.price_correct_inv_line_num is null then
11308:
11309: debug_info := '(v_check_line_po_info 34.3) Check price correction line information';
11310: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11311: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11312: debug_info);
11313: END IF;
11314:
11315: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11311: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11312: debug_info);
11313: END IF;
11314:
11315: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11316: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11317: p_invoice_lines_rec.invoice_line_id,
11318: 'INCOMPLETE PO INFO',
11319: p_default_last_updated_by,
11320: p_default_last_update_login,
11321: current_calling_sequence)<> TRUE) THEN
11322:
11323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11324: AP_IMPORT_UTILITIES_PKG.Print(
11325: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11326: 'insert_rejections<-'||current_calling_sequence);
11327: END IF;
11328: RAISE check_po_failure;
11339:
11340: debug_info := '(v_check_line_po_info 34.4) Check if price correcting invoice line'
11341: ||'is valid';
11342: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11343: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11344: debug_info);
11345: END IF;
11346:
11347: SELECT DISTINCT ai.invoice_id, ail.amount
11360:
11361:
11362: EXCEPTION
11363: WHEN NO_DATA_FOUND THEN
11364: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11365: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11366: p_invoice_lines_rec.invoice_line_id,
11367: 'INVALID PO INFO',
11368: p_default_last_updated_by,
11368: p_default_last_updated_by,
11369: p_default_last_update_login,
11370: current_calling_sequence)<> TRUE) THEN
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;
11388:
11389: debug_info := '(v_check_line_po_info 34.5) Check if price correction line is matched to'
11390: ||' a service order shipment';
11391: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11392: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11393: debug_info);
11394: END IF;
11395:
11396:
11395:
11396:
11397: IF (l_match_basis = 'AMOUNT') THEN
11398:
11399: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11400: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11401: p_invoice_lines_rec.invoice_line_id,
11402: 'INCONSISTENT PO INFO',
11403: p_default_last_updated_by,
11405: current_calling_sequence)<> TRUE) THEN
11406:
11407: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
11408:
11409: AP_IMPORT_UTILITIES_PKG.Print(
11410: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11411: 'insert_rejections<-'||current_calling_sequence);
11412:
11413: END IF;
11430:
11431: debug_info := '(v_check_line_po_info 34.6) Check pc invoice is matched '
11432: ||'to po dist';
11433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11434: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11435: debug_info);
11436: END IF;
11437:
11438: BEGIN
11447: AND po_distribution_id = l_po_distribution_id;
11448:
11449: EXCEPTION
11450: WHEN NO_DATA_FOUND THEN
11451: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11452: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11453: p_invoice_lines_rec.invoice_line_id,
11454: 'INVALID PO INFO',
11455: p_default_last_updated_by,
11456: p_default_last_update_login,
11457: current_calling_sequence)<> TRUE) THEN
11458:
11459: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11460: AP_IMPORT_UTILITIES_PKG.Print(
11461: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11462: 'insert_rejections<-'||current_calling_sequence);
11463: END IF;
11464: RAISE check_po_failure;
11476:
11477: debug_info := '(v_check_line_po_info 34.7) Check pc invoice is matched'
11478: ||' to shipment';
11479: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11480: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11481: debug_info);
11482: END IF;
11483:
11484: BEGIN
11496: WHERE line_location_id = l_po_line_location_id);
11497:
11498: EXCEPTION
11499: WHEN NO_DATA_FOUND THEN
11500: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11501: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11502: p_invoice_lines_rec.invoice_line_id,
11503: 'INVALID PO INFO',
11504: p_default_last_updated_by,
11504: p_default_last_updated_by,
11505: p_default_last_update_login,
11506: current_calling_sequence)<> TRUE) THEN
11507: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11508: AP_IMPORT_UTILITIES_PKG.Print(
11509: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11510: 'insert_rejections<-'||current_calling_sequence);
11511: END IF;
11512: RAISE check_po_failure;
11523: BEGIN
11524:
11525: debug_info := '(v_check_line_po_info 34.8) Check if po shipment is finally closed';
11526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11527: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11528: debug_info);
11529: END IF;
11530:
11531: SELECT 'Y'
11537: AND pll.closed_code = 'FINALLY CLOSED';
11538:
11539: IF (nvl(l_shipment_finally_closed,'N') = 'Y') THEN
11540:
11541: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11542: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11543: p_invoice_lines_rec.invoice_line_id,
11544: 'INVALID PO INFO',
11545: p_default_last_updated_by,
11547: current_calling_sequence)<> TRUE) THEN
11548:
11549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
11550:
11551: AP_IMPORT_UTILITIES_PKG.Print(
11552: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11553: 'insert_rejections<-'||current_calling_sequence);
11554:
11555: END IF;
11572: --the invoice type.
11573: debug_info := '(v_check_line_po_info 34.9) Check if Quantity_Invoiced for the price corrections'
11574: ||'to be either NULL or positive';
11575: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11576: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11577: debug_info);
11578: END IF;
11579:
11580: IF (p_invoice_lines_rec.quantity_invoiced IS NOT NULL AND
11579:
11580: IF (p_invoice_lines_rec.quantity_invoiced IS NOT NULL AND
11581: p_invoice_lines_rec.quantity_invoiced < 0) THEN
11582:
11583: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11584: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11585: p_invoice_lines_rec.invoice_line_id,
11586: 'INVALID PO INFO',
11587: p_default_last_updated_by,
11589: current_calling_sequence)<> TRUE) THEN
11590:
11591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
11592:
11593: AP_IMPORT_UTILITIES_PKG.Print(
11594: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11595: 'insert_rejections<-'||current_calling_sequence);
11596:
11597: END IF;
11608: --for CREDIT/DEBIT memos, and postive or negative for MIXED type of invoices.
11609: debug_info := '(v_check_line_po_info 34.10) Check the sign of the unit_price against'
11610: ||'the invoice type';
11611: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11612: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11613: debug_info);
11614: END IF;
11615:
11616: --Contract Payments: Modified the IF condition to add 'PREPAYMENT'.
11619: p_invoice_lines_rec.unit_price < 0) OR
11620: (p_invoice_rec.invoice_type_lookup_code IN ('CREDIT','DEBIT') and
11621: p_invoice_lines_rec.unit_price > 0)) THEN
11622:
11623: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11624: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11625: p_invoice_lines_rec.invoice_line_id,
11626: 'INVALID PO INFO',
11627: p_default_last_updated_by,
11629: current_calling_sequence)<> TRUE) THEN
11630:
11631: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
11632:
11633: AP_IMPORT_UTILITIES_PKG.Print(
11634: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11635: 'insert_rejections<-'||current_calling_sequence);
11636:
11637: END IF;
11648: debug_info := '(v_check_line_po_info 34.11) Check if quantity_invoiced for price correction'
11649: ||' exceeds the quantity_invoiced on the base match';
11650:
11651: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11652: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11653: debug_info);
11654: END IF;
11655:
11656: BEGIN
11664:
11665: --bugfix:5640388
11666: EXCEPTION
11667: WHEN NO_DATA_FOUND THEN
11668: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11669: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11670: p_invoice_lines_rec.invoice_line_id,
11671: 'PRICE CORRECT INV INVALID',
11672: p_default_last_updated_by,
11672: p_default_last_updated_by,
11673: p_default_last_update_login,
11674: current_calling_sequence)<> TRUE) THEN
11675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11676: AP_IMPORT_UTILITIES_PKG.Print(
11677: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11678: 'insert_rejections<-'||current_calling_sequence);
11679: END IF;
11680: RAISE check_po_failure;
11686:
11687:
11688: IF ( p_invoice_lines_rec.quantity_invoiced > l_base_match_quantity) THEN
11689:
11690: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11691: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11692: p_invoice_lines_rec.invoice_line_id,
11693: 'AMOUNT BILLED BELOW ZERO',
11694: p_default_last_updated_by,
11696: current_calling_sequence)<> TRUE) THEN
11697:
11698: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
11699:
11700: AP_IMPORT_UTILITIES_PKG.Print(
11701: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11702: 'insert_rejections<-'||current_calling_sequence);
11703:
11704: END IF;
11723: ||'goes below zero due to this price correction relative to the base match';
11724:
11725:
11726: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11727: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11728: debug_info);
11729: END IF;
11730:
11731: l_line_amt_calculated :=
11748:
11749: --bugfix:5640388
11750: EXCEPTION
11751: WHEN NO_DATA_FOUND THEN
11752: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11753: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11754: p_invoice_lines_rec.invoice_line_id,
11755: 'PRICE CORRECT INV INVALID',
11756: p_default_last_updated_by,
11756: p_default_last_updated_by,
11757: p_default_last_update_login,
11758: current_calling_sequence)<> TRUE) THEN
11759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11760: AP_IMPORT_UTILITIES_PKG.Print(
11761: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11762: 'insert_rejections<-'||current_calling_sequence);
11763: END IF;
11764: RAISE check_po_failure;
11770:
11771: IF (abs(nvl(p_invoice_lines_rec.amount,l_line_amt_calculated)) >
11772: (l_base_match_amount + l_correction_amount)) THEN
11773:
11774: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11775: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11776: p_invoice_lines_rec.invoice_line_id,
11777: 'AMOUNT BILLED BELOW ZERO',
11778: p_default_last_updated_by,
11780: current_calling_sequence)<> TRUE) THEN
11781:
11782: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
11783:
11784: AP_IMPORT_UTILITIES_PKG.Print(
11785: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11786: 'insert_rejections<-'||current_calling_sequence);
11787:
11788: END IF;
11813:
11814: debug_info := '(v_check_line_po_info 34.13) Ensure amount billed on po '
11815: ||'distributions wont be reduced below zero for shipment';
11816: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11817: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11818: debug_info);
11819: END IF;
11820:
11821: BEGIN
11828:
11829: --bugfix:5640388
11830: EXCEPTION
11831: WHEN NO_DATA_FOUND THEN
11832: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11833: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11834: p_invoice_lines_rec.invoice_line_id,
11835: 'PRICE CORRECT INV INVALID',
11836: p_default_last_updated_by,
11836: p_default_last_updated_by,
11837: p_default_last_update_login,
11838: current_calling_sequence)<> TRUE) THEN
11839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11840: AP_IMPORT_UTILITIES_PKG.Print(
11841: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11842: 'insert_rejections<-'||current_calling_sequence);
11843: END IF;
11844: RAISE check_po_failure;
11850:
11851: IF l_total_quantity_invoiced = 0 THEN
11852: IF (l_total_amount_invoiced + l_correction_amount + nvl(p_invoice_lines_rec.amount,l_line_amt_calculated) < 0) THEN
11853:
11854: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11855: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11856: p_invoice_lines_rec.invoice_line_id,
11857: 'AMOUNT BILLED BELOW ZERO',
11858: p_default_last_updated_by,
11859: p_default_last_update_login,
11860: current_calling_sequence)<> TRUE) THEN
11861:
11862: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11863: AP_IMPORT_UTILITIES_PKG.Print(
11864: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11865: 'insert_rejections<-'||current_calling_sequence);
11866: END IF;
11867: RAISE check_po_failure;
11897: p_invoice_lines_rec.amount + l_correction_dist_amount + pc_inv_dists.amount) < 0 OR
11898: (pc_inv_dists.quantity_invoiced/ l_total_quantity_invoiced *
11899: l_line_amt_calculated + l_correction_dist_amount + pc_inv_dists.amount) < 0 THEN
11900:
11901: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11902: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11903: p_invoice_lines_rec.invoice_line_id,
11904: 'AMOUNT BILLED BELOW ZERO',
11905: p_default_last_updated_by,
11905: p_default_last_updated_by,
11906: p_default_last_update_login,
11907: current_calling_sequence)<> TRUE) THEN
11908: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11909: AP_IMPORT_UTILITIES_PKG.Print(
11910: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11911: 'insert_rejections<-'||current_calling_sequence);
11912: END IF;
11913: RAISE check_po_failure;
11932:
11933: debug_info := '(v_check_line_po_info 34.14) Ensure amount billed on po '
11934: ||'dist wont be reduced below zero, l_po_distribution_id is: '||l_po_distribution_id;
11935: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11936: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
11937: debug_info);
11938: END IF;
11939:
11940: BEGIN
11948:
11949: --bugfix:5640388
11950: EXCEPTION
11951: WHEN NO_DATA_FOUND THEN
11952: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11953: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11954: p_invoice_lines_rec.invoice_line_id,
11955: 'PRICE CORRECT INV INVALID',
11956: p_default_last_updated_by,
11956: p_default_last_updated_by,
11957: p_default_last_update_login,
11958: current_calling_sequence)<> TRUE) THEN
11959: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11960: AP_IMPORT_UTILITIES_PKG.Print(
11961: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11962: 'insert_rejections<-'||current_calling_sequence);
11963: END IF;
11964: RAISE check_po_failure;
11970:
11971: IF (l_pc_po_amt_billed + nvl(p_invoice_lines_rec.amount,0) < 0) or
11972: (l_pc_po_amt_billed + l_line_amt_calculated < 0) then
11973:
11974: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
11975: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
11976: p_invoice_lines_rec.invoice_line_id,
11977: 'AMOUNT BILLED BELOW ZERO',
11978: p_default_last_updated_by,
11978: p_default_last_updated_by,
11979: p_default_last_update_login,
11980: current_calling_sequence)<> TRUE) THEN
11981: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
11982: AP_IMPORT_UTILITIES_PKG.Print(
11983: AP_IMPORT_INVOICES_PKG.g_debug_switch,
11984: 'insert_rejections<-'||current_calling_sequence);
11985: END IF;
11986: RAISE check_po_failure;
12008:
12009: debug_info := '(v_check_line_po_info 34.15) Ensure amount billed on po '
12010: ||'distribtuions wont be reduced below zero for shipment';
12011: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12012: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12013: debug_info);
12014: END IF;
12015:
12016:
12029:
12030: --bugfix:5640388
12031: EXCEPTION
12032: WHEN NO_DATA_FOUND THEN
12033: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12034: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12035: p_invoice_lines_rec.invoice_line_id,
12036: 'PRICE CORRECT INV INVALID',
12037: p_default_last_updated_by,
12037: p_default_last_updated_by,
12038: p_default_last_update_login,
12039: current_calling_sequence)<> TRUE) THEN
12040: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12041: AP_IMPORT_UTILITIES_PKG.Print(
12042: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12043: 'insert_rejections<-'||current_calling_sequence);
12044: END IF;
12045: RAISE check_po_failure;
12052: IF l_total_quantity_billed = 0 THEN
12053: IF (l_total_amount_billed + nvl(p_invoice_lines_rec.amount,0) < 0) OR
12054: (l_total_amount_billed + l_line_amt_calculated < 0) THEN
12055:
12056: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12057: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12058: p_invoice_lines_rec.invoice_line_id,
12059: 'AMOUNT BILLED BELOW ZERO',
12060: p_default_last_updated_by,
12061: p_default_last_update_login,
12062: current_calling_sequence)<> TRUE) THEN
12063:
12064: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12065: AP_IMPORT_UTILITIES_PKG.Print(
12066: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12067: 'insert_rejections<-'||current_calling_sequence);
12068: END IF;
12069: RAISE check_po_failure;
12094: p_invoice_lines_rec.amount + pc_po_dists.amount_billed) < 0 OR
12095: (pc_po_dists.quantity_billed / l_total_quantity_billed *
12096: l_line_amt_calculated + pc_po_dists.amount_billed) < 0 THEN
12097:
12098: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12099: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12100: p_invoice_lines_rec.invoice_line_id,
12101: 'AMOUNT BILLED BELOW ZERO',
12102: p_default_last_updated_by,
12102: p_default_last_updated_by,
12103: p_default_last_update_login,
12104: current_calling_sequence)<> TRUE) THEN
12105: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12106: AP_IMPORT_UTILITIES_PKG.Print(
12107: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12108: 'insert_rejections<-'||current_calling_sequence);
12109: END IF;
12110: RAISE check_po_failure;
12185: If ( l_po_line_location_id is not null) then
12186:
12187: debug_info := '(v_check_line_po_info) :Get Match Option from po shipment';
12188: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12189: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12190: debug_info);
12191: END IF;
12192:
12193: Select nvl(match_option,'P')
12197: If (l_temp_match_option is not null) then
12198: If ( p_invoice_lines_rec.match_option is not null and p_invoice_lines_rec.match_option <> l_temp_match_option) then
12199:
12200:
12201: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12202: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12203: p_invoice_lines_rec.invoice_line_id,
12204: 'INVALID MATCH OPTION',
12205: p_default_last_updated_by,
12206: p_default_last_update_login,
12207: current_calling_sequence) <> TRUE) THEN
12208:
12209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12210: AP_IMPORT_UTILITIES_PKG.Print(
12211: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12212: 'insert_rejections<-'||current_calling_sequence);
12213: END IF;
12214: raise check_po_failure;
12236: -- check for additional PO validation
12237: ---------------------------------------------------------
12238: debug_info := '(v_check_line_po_info 35) Call v_check_line_po_info2';
12239: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12240: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12241: debug_info);
12242: END IF;
12243:
12244: IF (AP_IMPORT_VALIDATION_PKG.v_check_line_po_info2 (
12262: p_current_invoice_status => l_current_invoice_status, -- IN OUT
12263: p_match_basis => l_match_basis, -- IN /*Amount Based Matching */
12264: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
12265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12266: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12267: 'v_check_po_line_info2<-' ||current_calling_sequence);
12268: END IF;
12269: RAISE check_po_failure;
12270: END IF;
12272: --
12273: -- show output values (only if debug_switch = 'Y')
12274: --
12275: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12276: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12277: '------------------> l_current_invoice_status = '||
12278: l_current_invoice_status);
12279: END IF;
12280:
12285: ---------------------------------------------------------
12286: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
12287: debug_info := '(v_check_line_po_info 36) Call v_check_po_overlay';
12288: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12289: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12290: debug_info);
12291: END IF;
12292:
12293: IF (AP_IMPORT_VALIDATION_PKG.v_check_po_overlay(
12303: p_default_last_update_login, -- IN
12304: p_current_invoice_status => l_current_invoice_status, -- IN OUT
12305: p_calling_sequence => current_calling_sequence) <> TRUE )THEN
12306: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12307: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12308: 'v_check_po_overlay<-' ||current_calling_sequence);
12309: END IF;
12310: RAISE check_po_failure;
12311: END IF;
12313: --
12314: -- show output values (only if debug_switch = 'Y')
12315: --
12316: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12317: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12318: '------------------> l_current_invoice_status = '||
12319: l_current_invoice_status);
12320: END IF;
12321: END IF; ---source <> PPA
12330:
12331:
12332: debug_info := '(v_check_line_po_info 37) Cannot associate charge lines with price corrections';
12333: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12334: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12335: debug_info);
12336: END IF;
12337:
12338: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12334: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12335: debug_info);
12336: END IF;
12337:
12338: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12339: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12340: p_invoice_lines_rec.invoice_line_id,
12341: 'INVALID PO INFO',
12342: p_default_last_updated_by,
12343: p_default_last_update_login,
12344: current_calling_sequence) <> TRUE) THEN
12345:
12346: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12347: AP_IMPORT_UTILITIES_PKG.Print(
12348: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12349: 'insert_rejections<-'||current_calling_sequence);
12350: END IF;
12351:
12431: EXCEPTION
12432:
12433: WHEN OTHERS THEN
12434: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12435: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12436: debug_info);
12437: END IF;
12438:
12439: IF (SQLCODE < 0) then
12437: END IF;
12438:
12439: IF (SQLCODE < 0) then
12440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12441: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12442: SQLERRM);
12443: END IF;
12444: END IF;
12445: RETURN(FALSE);
12538: IF (l_po_distribution_id IS NOT NULL) Then
12539: debug_info := '(v_check_line_po_info2 1) Check Valid Shipment Type from '
12540: ||'l_po_distribution_id ';
12541: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12542: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12543: debug_info);
12544: END IF;
12545:
12546: BEGIN
12569: AND (nvl(pll.CLOSED_CODE, 'OPEN') <> 'FINALLY CLOSED')
12570: AND nvl(pll.consigned_flag,'N') <> 'Y';
12571: EXCEPTION
12572: WHEN NO_DATA_FOUND Then
12573: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12574: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12575: p_invoice_lines_rec.invoice_line_id,
12576: 'INVALID SHIPMENT TYPE',
12577: p_default_last_updated_by,
12577: p_default_last_updated_by,
12578: p_default_last_update_login,
12579: current_calling_sequence) <> TRUE) THEN
12580: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12581: AP_IMPORT_UTILITIES_PKG.Print(
12582: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12583: 'insert_rejections<-'||current_calling_sequence);
12584: END IF;
12585: RAISE check_po_failure;
12594:
12595: debug_info := '(v_check_line_po_info2 1) Check Valid Shipment Type from '
12596: ||'l_po_line_location_id ';
12597: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12598: AP_IMPORT_UTILITIES_PKG.Print(
12599: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
12600: END IF;
12601:
12602: --Contract Payments: Modified the WHERE condition so that we check for
12622: AND nvl(consigned_flag,'N') <> 'Y';
12623:
12624: EXCEPTION
12625: WHEN NO_DATA_FOUND Then
12626: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12627: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12628: p_invoice_lines_rec.invoice_line_id,
12629: 'INVALID SHIPMENT TYPE',
12630: p_default_last_updated_by,
12630: p_default_last_updated_by,
12631: p_default_last_update_login,
12632: current_calling_sequence) <> TRUE) THEN
12633: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12634: AP_IMPORT_UTILITIES_PKG.Print(
12635: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12636: 'insert_rejections<-'||current_calling_sequence);
12637: END IF;
12638: RAISE check_po_failure;
12647: -------------------------------------------------------------------------
12648: IF ( l_po_line_location_id is not null) THEN
12649: debug_info := '(v_check_line_po_info2) :Get Match Option from po shipment';
12650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12651: AP_IMPORT_UTILITIES_PKG.Print(
12652: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
12653: END IF;
12654:
12655: SELECT nvl(match_option,'P')
12660: IF (p_invoice_lines_rec.match_option IS NOT NULL AND
12661: p_invoice_lines_rec.match_option <> l_temp_match_option) THEN
12662:
12663: -- Reject for invalid Match option
12664: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12665: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12666: p_invoice_lines_rec.invoice_line_id,
12667: 'INVALID MATCH OPTION',
12668: p_default_last_updated_by,
12668: p_default_last_updated_by,
12669: p_default_last_update_login,
12670: current_calling_sequence)<> TRUE) Then
12671: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12672: AP_IMPORT_UTILITIES_PKG.Print(
12673: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12674: 'insert_rejections <-'||current_calling_sequence);
12675: END IF;
12676: RAISE check_po_failure;
12689: -- elsif to po_distribution_id is not null
12690: debug_info := '(v_check_line_po_info2 1) Check Valid Shipment Type from'
12691: ||' l_po_line_id ';
12692: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12693: AP_IMPORT_UTILITIES_PKG.Print(
12694: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
12695: END IF;
12696:
12697: BEGIN
12719: OR (nvl(CLOSED_CODE, 'OPEN') = 'FINALLY CLOSED')
12720: OR (nvl(consigned_flag,'N') = 'Y');
12721:
12722: IF (l_invalid_shipment_count > 0) Then
12723: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12724: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12725: p_invoice_lines_rec.invoice_line_id,
12726: 'INVALID SHIPMENT TYPE',
12727: p_default_last_updated_by,
12727: p_default_last_updated_by,
12728: p_default_last_update_login,
12729: current_calling_sequence) <> TRUE) THEN
12730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12731: AP_IMPORT_UTILITIES_PKG.Print(
12732: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12733: 'insert_rejections<-'||current_calling_sequence);
12734: END IF;
12735: RAISE check_po_failure;
12753: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
12754: debug_info := '(v_check_line_po_info2 1) Check Price Break for PO '
12755: ||'Line(Line Level Match) ';
12756: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12757: AP_IMPORT_UTILITIES_PKG.Print(
12758: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
12759: END IF;
12760: --
12761: BEGIN
12764: FROM po_lines
12765: WHERE po_line_id = l_po_line_id;
12766:
12767: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12768: AP_IMPORT_UTILITIES_PKG.Print(
12769: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12770: '------------------> l_price_break= '|| l_price_break);
12771: END IF;
12772: --
12770: '------------------> l_price_break= '|| l_price_break);
12771: END IF;
12772: --
12773: IF (nvl(l_price_break,'N') ='Y' ) Then
12774: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12775: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12776: p_invoice_lines_rec.invoice_line_id,
12777: 'LINE HAS PRICE BREAK',
12778: p_default_last_updated_by,
12778: p_default_last_updated_by,
12779: p_default_last_update_login,
12780: current_calling_sequence) <> TRUE) THEN
12781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12782: AP_IMPORT_UTILITIES_PKG.Print(
12783: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12784: 'insert_rejections<-'||current_calling_sequence);
12785: END IF;
12786: RAISE check_po_failure;
12828: debug_info := '(v_check_line_po_info2 1.1) Check inconsistency for '
12829: ||'po_vendor_item_num '
12830: ||'shipment level match basis is AMOUNT';
12831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12832: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12833: debug_info);
12834: END IF;
12835: --
12836: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12832: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12833: debug_info);
12834: END IF;
12835: --
12836: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12837: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12838: p_invoice_lines_rec.invoice_line_id,
12839: 'INCONSISTENT SHIPMENT INFO',
12840: p_default_last_updated_by,
12843: 'Y',
12844: 'SUPPLIER ITEM NUMBER',
12845: p_invoice_lines_rec.vendor_item_num ) <> TRUE) THEN
12846: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12847: AP_IMPORT_UTILITIES_PKG.Print(
12848: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12849: 'insert_rejections<-'||current_calling_sequence);
12850: END IF;
12851: RAISE check_po_failure;
12861: debug_info := '(v_check_line_po_info2 1.1) Check inconsistency for '
12862: ||'po_inventory_item_id and po_item_description '
12863: ||'shipment level match basis is AMOUNT';
12864: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12865: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12866: debug_info);
12867: END IF;
12868: --
12869: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12865: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
12866: debug_info);
12867: END IF;
12868: --
12869: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12870: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12871: p_invoice_lines_rec.invoice_line_id,
12872: 'INCONSISTENT SHIPMENT INFO',
12873: p_default_last_updated_by,
12873: p_default_last_updated_by,
12874: p_default_last_update_login,
12875: current_calling_sequence ) <> TRUE) THEN
12876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12877: AP_IMPORT_UTILITIES_PKG.Print(
12878: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12879: 'insert_rejections<-'||current_calling_sequence);
12880: END IF;
12881: RAISE check_po_failure;
12894: (p_invoice_lines_rec.distribution_set_name is NOT NULL)) Then
12895: debug_info := '(v_check_line_po_info2 2) Check for Invalid '
12896: ||'Distribution Set with PO';
12897: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
12898: AP_IMPORT_UTILITIES_PKG.Print(
12899: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
12900: END IF;
12901:
12902: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12898: AP_IMPORT_UTILITIES_PKG.Print(
12899: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
12900: END IF;
12901:
12902: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
12903: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
12904: p_invoice_lines_rec.invoice_line_id,
12905: 'INVALID DIST SET WITH PO',
12906: p_default_last_updated_by,
12906: p_default_last_updated_by,
12907: p_default_last_update_login,
12908: current_calling_sequence) <> TRUE) THEN
12909: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12910: AP_IMPORT_UTILITIES_PKG.Print(
12911: AP_IMPORT_INVOICES_PKG.g_debug_switch,
12912: 'insert_rejections<-'||current_calling_sequence);
12913: END IF;
12914: RAISE check_po_failure;
12923: ------------------------------------------------------
12924: debug_info :=
12925: '(v_check_line_po_info2 3) Get Unit Price / UOM from PO Lines';
12926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
12927: AP_IMPORT_UTILITIES_PKG.Print(
12928: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
12929: END IF;
12930: --
12931: --bug2878889.Commented the following code and added the code below.
12995: END IF;
12996: --bug2878889 ends
12997:
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: '------------------>
13001: l_po_unit_price = '||to_char(l_po_unit_price)
13002: ||' l_unit_of_measure = '||l_unit_of_measure);
13003: END IF;
13015: (p_invoice_rec.invoice_type_lookup_code IN ('STANDARD','PREPAYMENT'))) Then
13016: debug_info :=
13017: '(v_check_line_po_info2 4) Check for Invalid Line Quantity';
13018: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13019: AP_IMPORT_UTILITIES_PKG.Print(
13020: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13021: END IF;
13022:
13023: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13019: AP_IMPORT_UTILITIES_PKG.Print(
13020: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13021: END IF;
13022:
13023: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13024: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13025: p_invoice_lines_rec.invoice_line_id,
13026: 'INVALID QUANTITY',
13027: p_default_last_updated_by,
13030: 'Y',
13031: 'QUANTITY INVOICED',
13032: p_invoice_lines_rec.quantity_invoiced) <> TRUE) THEN
13033: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13034: AP_IMPORT_UTILITIES_PKG.Print(
13035: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13036: 'insert_rejections<-'||current_calling_sequence);
13037: END IF;
13038: RAISE check_po_failure;
13047: (p_invoice_rec.invoice_type_lookup_code = 'STANDARD')) Then
13048: debug_info :=
13049: '(v_check_line_po_info2 4) Check for Invalid Line Amount';
13050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13051: AP_IMPORT_UTILITIES_PKG.Print(
13052: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13053: END IF;
13054:
13055: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13051: AP_IMPORT_UTILITIES_PKG.Print(
13052: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13053: END IF;
13054:
13055: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13056: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13057: p_invoice_lines_rec.invoice_line_id,
13058: 'INVALID QUANTITY',
13059: p_default_last_updated_by,
13062: 'Y',
13063: 'QUANTITY INVOICED',
13064: p_invoice_lines_rec.amount) <> TRUE) THEN
13065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13066: AP_IMPORT_UTILITIES_PKG.Print(
13067: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13068: 'insert_rejections<-'||current_calling_sequence);
13069: END IF;
13070: RAISE check_po_failure;
13087: AND (p_match_option = 'P') THEN
13088: debug_info := '(v_check_line_po_info2 5) Check for Unit of Measure'
13089: ||' against PO';
13090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13091: AP_IMPORT_UTILITIES_PKG.Print(
13092: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13093: END IF;
13094: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13095: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13091: AP_IMPORT_UTILITIES_PKG.Print(
13092: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13093: END IF;
13094: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13095: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13096: p_invoice_lines_rec.invoice_line_id,
13097: 'UOM DOES NOT MATCH PO',
13098: p_default_last_updated_by,
13098: p_default_last_updated_by,
13099: p_default_last_update_login,
13100: current_calling_sequence) <> TRUE) THEN
13101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13102: AP_IMPORT_UTILITIES_PKG.Print(
13103: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13104: 'insert_rejections<-'||current_calling_sequence);
13105: END IF;
13106: RAISE check_po_failure;
13124: (p_invoice_lines_rec.amount IS NOT NULL)) Then
13125: debug_info := '(v_check_line_po_info2 7) Check for valid unit_price, '
13126: ||'quantity_invoiced and line_amount';
13127: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13128: AP_IMPORT_UTILITIES_PKG.Print(
13129: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13130: END IF;
13131:
13132: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13129: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13130: END IF;
13131:
13132: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13133: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13134: 'quantity_invoiced = '||to_char(p_invoice_lines_rec.quantity_invoiced)||
13135: ' unit_price = '||to_char(p_invoice_lines_rec.unit_price)||
13136: ' amount = '||to_char(p_invoice_lines_rec.amount));
13137: END IF;
13143: l_calc_line_amount := ap_utilities_pkg.ap_round_currency (
13144: p_invoice_lines_rec.unit_price * p_invoice_lines_rec.quantity_invoiced,
13145: p_invoice_rec.invoice_currency_code);
13146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13147: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13148: '------------------>
13149: l_calc_line_amount = '||to_char(l_calc_line_amount));
13150: END IF;
13151:
13161: AND
13162: (NVL(p_invoice_lines_rec.amount, 0) <> 0))
13163: AND AP_IMPORT_INVOICES_PKG.g_source <> 'PPA')
13164: THEN
13165: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13166: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13167: p_invoice_lines_rec.invoice_line_id,
13168: 'INVALID PRICE/QUANTITY/AMOUNT',
13169: p_default_last_updated_by,
13176: p_invoice_lines_rec.unit_price,
13177: 'INVOICE LINE AMOUNT',
13178: p_invoice_lines_rec.amount) <> TRUE) THEN
13179: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13180: AP_IMPORT_UTILITIES_PKG.Print(
13181: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13182: 'insert_rejections<-'||current_calling_sequence);
13183: END IF;
13184: RAISE check_po_failure;
13190: (p_invoice_lines_rec.amount IS NOT NULL)) Then
13191: debug_info := '(v_check_line_po_info2 7) Get unit_price from '
13192: ||'quantity_invoiced and line_amount';
13193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13194: AP_IMPORT_UTILITIES_PKG.Print(
13195: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13196: END IF;
13197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13194: AP_IMPORT_UTILITIES_PKG.Print(
13195: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13196: END IF;
13197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13199: 'inside the else condition ');
13200: END IF;
13201:
13202: /*
13206: --Bug6836072
13207: IF ((NVL(p_invoice_lines_rec.amount, 0) <> 0)
13208: AND SIGN(p_invoice_lines_rec.amount) <> SIGN(p_invoice_lines_rec.quantity_invoiced))
13209: THEN
13210: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13211: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13212: p_invoice_lines_rec.invoice_line_id,
13213: 'INVALID PRICE/QUANTITY/AMOUNT',
13214: p_default_last_updated_by,
13221: p_invoice_lines_rec.unit_price,
13222: 'INVOICE LINE AMOUNT',
13223: p_invoice_lines_rec.amount) <> TRUE) THEN
13224: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13225: AP_IMPORT_UTILITIES_PKG.Print(
13226: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13227: 'insert_rejections<-'||current_calling_sequence);
13228: END IF;
13229: RAISE check_po_failure;
13242: l_unit_price := p_invoice_lines_rec.amount /p_invoice_lines_rec.quantity_invoiced;
13243: END IF;
13244:
13245: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13246: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13247: '------------------>
13248: l_unit_price = '||to_char(l_unit_price));
13249: END IF;
13250:
13264: l_quantity_invoiced := ROUND(p_invoice_lines_rec.amount/l_dec_unit_price,15) ;
13265: END IF;
13266:
13267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13268: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13269: '------------------>
13270: l_quantity_invoiced = '||to_char(l_quantity_invoiced)
13271: ||' line_amount = '||to_char(p_invoice_lines_rec.amount)
13272: ||' unit_price = '||to_char(l_unit_price));
13287: (p_invoice_lines_rec.unit_price IS NOT NULL)) THEN
13288: debug_info := '(v_check_line_po_info2 7) Calculate line_amount, '
13289: ||'in case of match basis is AMOUNT';
13290: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13291: AP_IMPORT_UTILITIES_PKG.Print(
13292: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13293: END IF;
13294:
13295: -- The following can have rounding issues so use line_amount
13299: l_calc_line_amount := ap_utilities_pkg.ap_round_currency (
13300: p_invoice_lines_rec.unit_price * p_invoice_lines_rec.quantity_invoiced,
13301: p_invoice_rec.invoice_currency_code);
13302: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13303: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13304: '------------------>
13305: l_calc_line_amount = '||to_char(l_calc_line_amount));
13306: END IF;
13307: ELSE
13304: '------------------>
13305: l_calc_line_amount = '||to_char(l_calc_line_amount));
13306: END IF;
13307: ELSE
13308: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13309: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13310: p_invoice_lines_rec.invoice_line_id,
13311: 'INSUFFICIENT AMOUNT INFO',
13312: p_default_last_updated_by,
13319: p_invoice_lines_rec.unit_price,
13320: 'INVOICE LINE AMOUNT',
13321: p_invoice_lines_rec.amount) <> TRUE) THEN
13322: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13323: AP_IMPORT_UTILITIES_PKG.Print(
13324: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13325: 'insert_rejections<-'||current_calling_sequence);
13326: END IF;
13327: RAISE check_po_failure;
13349: IF (l_po_line_location_id IS NOT NULL) THEN
13350: l_qty_invoiced := nvl(p_invoice_lines_rec.quantity_invoiced,
13351: l_quantity_invoiced);
13352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13354: '------------------>
13355: Decoded l_qty_invoiced = '||to_char(l_qty_invoiced));
13356: END IF;
13357: --
13381: p_match_basis = 'QUANTITY') Then
13382: debug_info := '(v_check_line_po_info2 8) Reject for negative total '
13383: ||'quantity invoiced against given PO ';
13384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13385: AP_IMPORT_UTILITIES_PKG.Print(
13386: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13387: END IF;
13388:
13389: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13385: AP_IMPORT_UTILITIES_PKG.Print(
13386: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13387: END IF;
13388:
13389: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13390: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13391: p_invoice_lines_rec.invoice_line_id,
13392: 'NEGATIVE QUANTITY BILLED', --Bug 5134622
13393: p_default_last_updated_by,
13396: 'Y',
13397: 'QUANTITY INVOICED',
13398: l_total_qty_billed ) <> TRUE) THEN
13399: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13400: AP_IMPORT_UTILITIES_PKG.Print(
13401: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13402: 'insert_rejections<-'||current_calling_sequence);
13403: END IF;
13404: RAISE check_po_failure;
13418: (l_total_match_amount <> 0))Then
13419: debug_info := '(v_check_line_po_info2 9) Extra credit for '||
13420: 'supplier:Negative total match amount against given PO ';
13421: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13423: debug_info);
13424: END IF;
13425:
13426: END IF;
13432: l_positive_price_variance :=0;
13433: END IF;
13434:
13435: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13436: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13437: '------------------>
13438: l_positive_price_varaince = '||to_char(l_positive_price_variance)
13439: ||' l_total_qty_billed = '||to_char(l_total_qty_billed));
13440: END IF;
13445: IF (l_positive_price_variance > 0) then --modified for 1939078
13446: debug_info := '(v_check_line_po_info2 9) Check for Invalid Unit '
13447: ||'Price against PO';
13448: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13449: AP_IMPORT_UTILITIES_PKG.Print(
13450: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13451: END IF;
13452:
13453: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13449: AP_IMPORT_UTILITIES_PKG.Print(
13450: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13451: END IF;
13452:
13453: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13454: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13455: p_invoice_lines_rec.invoice_line_id,
13456: 'UNIT PRC NOT EQUAL TO PO',
13457: p_default_last_updated_by,
13457: p_default_last_updated_by,
13458: p_default_last_update_login,
13459: current_calling_sequence) <> TRUE) THEN
13460: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13461: AP_IMPORT_UTILITIES_PKG.Print(
13462: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13463: 'insert_rejections<-'||current_calling_sequence);
13464: END IF;
13465: RAISE check_po_failure;
13475: -- else if po line location is not null
13476: l_qty_invoiced := nvl(p_invoice_lines_rec.quantity_invoiced,
13477: l_quantity_invoiced);
13478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13480: '------------------>
13481: l_qty_invoiced = '||to_char(l_qty_invoiced));
13482: END IF;
13483: --
13502: p_match_basis = 'QUANTITY') Then
13503: debug_info := '(v_check_line_po_info2 8) Reject for negative total '
13504: ||'quantity invoiced against given PO(for PO Line match) ';
13505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13506: AP_IMPORT_UTILITIES_PKG.Print(
13507: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13508: END IF;
13509:
13510: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13506: AP_IMPORT_UTILITIES_PKG.Print(
13507: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13508: END IF;
13509:
13510: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13511: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13512: p_invoice_lines_rec.invoice_line_id,
13513: 'NEGATIVE QUANTITY BILLED', --Bug 5134622
13514: p_default_last_updated_by,
13517: 'Y',
13518: 'QUANTITY INVOICED',
13519: l_total_qty_billed ) <> TRUE) THEN
13520: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13521: AP_IMPORT_UTILITIES_PKG.Print(
13522: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13523: 'insert_rejections<-'||current_calling_sequence);
13524: END IF;
13525: RAISE check_po_failure;
13533: p_match_basis = 'AMOUNT') Then
13534: debug_info := '(v_check_line_po_info2 8) Reject for negative total '
13535: ||'amount matched against given PO ';
13536: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13537: AP_IMPORT_UTILITIES_PKG.Print(
13538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13539: END IF;
13540:
13541: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13537: AP_IMPORT_UTILITIES_PKG.Print(
13538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13539: END IF;
13540:
13541: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13542: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13543: p_invoice_lines_rec.invoice_line_id,
13544: 'INVALID LINE AMOUNT',
13545: p_default_last_updated_by,
13548: 'Y',
13549: 'AMOUNT INVOICED',
13550: l_total_match_amount ) <> TRUE) THEN
13551: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13552: AP_IMPORT_UTILITIES_PKG.Print(
13553: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13554: 'insert_rejections<-'||current_calling_sequence);
13555: END IF;
13556: RAISE check_po_failure;
13566: l_positive_price_variance :=0;
13567: END IF;
13568:
13569: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13570: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13571: '------------------>
13572: l_positive_price_variance = '||to_char(l_positive_price_variance)
13573: ||' l_total_qty_billed = '||to_char(l_total_qty_billed));
13574: END IF;
13577: IF (l_positive_price_variance > 0) THEN --modified for 1939078
13578: debug_info := '(v_check_line_po_info2 9) Check for Invalid Unit '
13579: ||'Price against PO';
13580: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13581: AP_IMPORT_UTILITIES_PKG.Print(
13582: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13583: END IF;
13584:
13585: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13581: AP_IMPORT_UTILITIES_PKG.Print(
13582: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13583: END IF;
13584:
13585: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13586: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13587: p_invoice_lines_rec.invoice_line_id,
13588: 'UNIT PRC NOT EQUAL TO PO',
13589: p_default_last_updated_by,
13589: p_default_last_updated_by,
13590: p_default_last_update_login,
13591: current_calling_sequence) <> TRUE) THEN
13592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13593: AP_IMPORT_UTILITIES_PKG.Print(
13594: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13595: 'insert_rejections<-'||current_calling_sequence);
13596: END IF;
13597: RAISE check_po_failure;
13622: debug_info := '(v_check_line_po_info2 10) Check for quantity overbill '
13623: ||'for PO Shipment';
13624:
13625: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13626: AP_IMPORT_UTILITIES_PKG.Print(
13627: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13628: END IF;
13629:
13630: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_shipment(
13626: AP_IMPORT_UTILITIES_PKG.Print(
13627: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13628: END IF;
13629:
13630: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_shipment(
13631: l_po_line_location_id, -- IN
13632: NVL(p_invoice_lines_rec.quantity_invoiced,
13633: l_quantity_invoiced), -- IN
13634: p_invoice_lines_rec.amount, --IN
13641: l_amt_already_billed, -- OUT NOCOPY
13642: current_calling_sequence) <> TRUE) THEN
13643:
13644: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13645: AP_IMPORT_UTILITIES_PKG.Print(
13646: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13647: 'get_overbill_for_shipment<-'||current_calling_sequence);
13648: END IF;
13649: RAISE check_po_failure;
13649: RAISE check_po_failure;
13650: END IF;
13651:
13652: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13653: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13654: '------------------> l_overbill = '||l_overbill
13655: ||' l_quantity_outstanding = ' ||to_char(l_quantity_outstanding)
13656: ||' l_quantity_ordered = ' ||to_char(l_quantity_ordered)
13657: ||' l_qty_already_billed = ' ||to_char(l_qty_already_billed)
13677: (NVL(p_qty_ord_tolerance,1) * l_quantity_ordered)) THEN
13678: debug_info := '(v_check_line_po_info2 11) Reject for '
13679: ||'p_qty_ord_tolerance';
13680: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13681: AP_IMPORT_UTILITIES_PKG.Print(
13682: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13683: END IF;
13684:
13685: l_qty_based_rejection := 'Y';
13693: (p_max_qty_ord_tolerance + l_quantity_ordered)) THEN
13694: debug_info := '(v_check_line_po_info2 12) Reject for '
13695: ||'p_max_qty_ord_tolerance';
13696: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13697: AP_IMPORT_UTILITIES_PKG.Print(
13698: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13699: END IF;
13700: l_qty_based_rejection := 'Y';
13701:
13706: IF (nvl(l_qty_based_rejection,'N') = 'Y') Then
13707: debug_info := '(v_check_line_po_info2 13) Reject for Quantity '
13708: ||'overbill for PO Shipment';
13709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13710: AP_IMPORT_UTILITIES_PKG.Print(
13711: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13712: END IF;
13713:
13714: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13710: AP_IMPORT_UTILITIES_PKG.Print(
13711: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13712: END IF;
13713:
13714: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13715: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13716: p_invoice_lines_rec.invoice_line_id,
13717: 'INVALID INVOICE QUANTITY',
13718: p_default_last_updated_by,
13719: p_default_last_update_login,
13720: current_calling_sequence) <> TRUE) THEN
13721:
13722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13723: AP_IMPORT_UTILITIES_PKG.Print(
13724: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13725: 'insert_rejections<-'||current_calling_sequence);
13726: END IF;
13727:
13738:
13739: debug_info := '(v_check_line_po_info2 14) Reject for '
13740: ||'p_amt_ord_tolerance';
13741: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13742: AP_IMPORT_UTILITIES_PKG.Print(
13743: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13744: END IF;
13745:
13746: l_amt_based_rejection := 'Y';
13754:
13755: debug_info := '(v_check_line_po_info2 15) Reject for '
13756: ||'p_max_amt_ord_tolerance';
13757: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13758: AP_IMPORT_UTILITIES_PKG.Print(
13759: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13760: END IF;
13761: l_amt_based_rejection := 'Y';
13762:
13768:
13769: debug_info := '(v_check_line_po_info2 16) Reject for Amount '
13770: ||'overbill for PO Shipment';
13771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13772: AP_IMPORT_UTILITIES_PKG.Print(
13773: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13774: END IF;
13775:
13776: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13772: AP_IMPORT_UTILITIES_PKG.Print(
13773: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13774: END IF;
13775:
13776: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13777: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13778: p_invoice_lines_rec.invoice_line_id,
13779: 'LINE AMOUNT EXCEEDED TOLERANCE',
13780: p_default_last_updated_by,
13781: p_default_last_update_login,
13782: current_calling_sequence) <> TRUE) THEN
13783:
13784: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13785: AP_IMPORT_UTILITIES_PKG.Print(
13786: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13787: 'insert_rejections<-'||current_calling_sequence);
13788: END IF;
13789:
13803: -- po line location id is not null
13804: debug_info := '(v_check_line_po_info2 17) Check for quantity overbill '
13805: ||'for PO Line';
13806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
13807: AP_IMPORT_UTILITIES_PKG.Print(
13808: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13809: END IF;
13810:
13811: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_po_line(
13807: AP_IMPORT_UTILITIES_PKG.Print(
13808: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13809: END IF;
13810:
13811: IF (AP_IMPORT_UTILITIES_PKG.get_overbill_for_po_line(
13812: l_po_line_id,
13813: NVL(p_invoice_lines_rec.quantity_invoiced, l_quantity_invoiced),
13814: p_invoice_lines_rec.amount, --IN
13815: l_overbill, -- OUT
13819: l_po_line_matching_basis, -- OUT
13820: current_calling_sequence) <> TRUE) THEN
13821:
13822: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13823: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13824: 'get_overbill_for_po_line<-'||current_calling_sequence);
13825: END IF;
13826: RAISE check_po_failure;
13827: END IF;
13826: RAISE check_po_failure;
13827: END IF;
13828:
13829: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13830: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
13831: '------------------> l_overbill = '||l_overbill
13832: ||' l_outstanding quantity/amount = '||to_char(l_outstanding)
13833: ||' l_ordered quantity/amount = '||to_char(l_ordered)
13834: ||' l_already_billed quantity/amount = '||to_char(l_already_billed)
13850: (NVL(p_qty_ord_tolerance,1) * l_ordered)) THEN
13851: debug_info := '(v_check_line_po_info2 18) Reject for '
13852: ||'p_qty_ord_tolerance';
13853: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13854: AP_IMPORT_UTILITIES_PKG.Print(
13855: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13856: END IF;
13857: l_qty_based_rejection := 'Y';
13858: END IF;
13864:
13865: debug_info := '(v_check_line_po_info2 19) Reject for '
13866: ||'p_max_qty_ord_tolerance';
13867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13868: AP_IMPORT_UTILITIES_PKG.Print(
13869: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13870: END IF;
13871: l_qty_based_rejection := 'Y';
13872: END IF;
13875: IF (nvl(l_qty_based_rejection,'N') = 'Y') THEN
13876: debug_info := '(v_check_line_po_info2 20) Reject for Quantity '
13877: ||'overbill for PO Line';
13878: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13879: AP_IMPORT_UTILITIES_PKG.Print(
13880: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13881: END IF;
13882:
13883: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13879: AP_IMPORT_UTILITIES_PKG.Print(
13880: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13881: END IF;
13882:
13883: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13884: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13885: p_invoice_lines_rec.invoice_line_id,
13886: 'INVALID INVOICE QUANTITY',
13887: p_default_last_updated_by,
13887: p_default_last_updated_by,
13888: p_default_last_update_login,
13889: current_calling_sequence) <> TRUE) THEN
13890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13891: AP_IMPORT_UTILITIES_PKG.Print(
13892: AP_IMPORT_INVOICES_PKG.g_debug_switch,
13893: 'insert_rejections<-'||current_calling_sequence);
13894: END IF;
13895: RAISE check_po_failure;
13906: debug_info := '(v_check_line_po_info2 21) Reject for '
13907: ||'p_amt_ord_tolerance';
13908:
13909: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13910: AP_IMPORT_UTILITIES_PKG.Print(
13911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
13912: END IF;
13913: l_amt_based_rejection := 'Y';
13914:
13921:
13922: debug_info := '(v_check_line_po_info2 22) Reject for '
13923: ||'p_max_amt_ord_tolerance';
13924: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13925: AP_IMPORT_UTILITIES_PKG.Print(
13926: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13927: END IF;
13928:
13929: l_amt_based_rejection := 'Y';
13935: IF (nvl(l_amt_based_rejection,'N') = 'Y') THEN
13936: debug_info := '(v_check_line_po_info2 23) Reject for Amount '
13937: ||'overbill for PO Line';
13938: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13939: AP_IMPORT_UTILITIES_PKG.Print(
13940: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13941: END IF;
13942:
13943: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13939: AP_IMPORT_UTILITIES_PKG.Print(
13940: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13941: END IF;
13942:
13943: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
13944: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
13945: p_invoice_lines_rec.invoice_line_id,
13946: 'LINE AMOUNT EXCEEDED TOLERANCE',
13947: p_default_last_updated_by,
13947: p_default_last_updated_by,
13948: p_default_last_update_login,
13949: current_calling_sequence) <> TRUE) THEN
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,
13953: 'insert_rejections<-'||current_calling_sequence);
13954: END IF;
13955: RAISE check_po_failure;
13977:
13978: EXCEPTION
13979: WHEN OTHERS THEN
13980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13981: AP_IMPORT_UTILITIES_PKG.Print(
13982: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
13983: END IF;
13984:
13985: IF (SQLCODE < 0) then
13983: END IF;
13984:
13985: IF (SQLCODE < 0) then
13986: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
13987: AP_IMPORT_UTILITIES_PKG.Print(
13988: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
13989: END IF;
13990: END IF;
13991: RETURN(FALSE);
14062: END IF;
14063:
14064: IF (l_po_distribution_id IS NOT NULL) THEN
14065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14066: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14067: '(v_check_po_overlay 1) Get l_code_combination_id FROM '
14068: ||'l_po_distribution_id ');
14069: END IF;
14070:
14073: FROM po_distributions
14074: WHERE po_distribution_id = l_po_distribution_id
14075: AND line_location_id IS NOT NULL; /* BUG 3253594 */
14076: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14077: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14078: '------------------> l_code_combination_id = '
14079: || to_char(l_code_combination_id)
14080: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
14081: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
14081: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
14082: ||'account_segment ='||p_invoice_lines_rec.account_segment
14083: ||'dist_code_concatenated ='
14084: ||p_invoice_lines_rec.dist_code_concatenated);
14085: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14086: '(v_check_po_overlay 2) Check Overlay Segments fOR '
14087: ||'l_po_distribution_id ');
14088: END IF;
14089:
14102: FND_GLOBAL.USER_ID,
14103: current_calling_sequence ,
14104: NULL) <> TRUE) THEN
14105: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14106: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14107: '(v_check_po_overlay 2) Overlay_Segments<-'
14108: ||current_calling_sequence);
14109: END IF;
14110: Raise check_po_failure;
14111: ELSE
14112: -- show output values (only IF debug_switch = 'Y')
14113: --
14114: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14115: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14116: '------------------> l_unbuilt_flex = '|| l_unbuilt_flex
14117: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
14118: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
14119: END IF;
14119: END IF;
14120:
14121: IF (l_code_combination_id = -1) THEN
14122: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14123: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14124: '(v_check_po_overlay 3) Invalid code_combination_id overlay');
14125: END IF;
14126:
14127: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14123: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14124: '(v_check_po_overlay 3) Invalid code_combination_id overlay');
14125: END IF;
14126:
14127: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14128: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14129: p_invoice_lines_rec.invoice_line_id,
14130: 'INVALID ACCT OVERLAY',
14131: p_default_last_updated_by,
14131: p_default_last_updated_by,
14132: p_default_last_update_login,
14133: current_calling_sequence) <> TRUE) THEN
14134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14136: 'insert_rejections<-'||current_calling_sequence);
14137: END IF;
14138: RAISE check_po_failure;
14139: END IF; -- Code combination id is -1
14142: END IF; -- IF overlay segments is other than TRUE
14143: ELSIF (l_po_line_location_id IS NOT NULL) THEN
14144: -- IF po distribution id is not NULL
14145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14146: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14147: '(v_check_po_overlay 1) Get l_code_combination_id FROM '
14148: ||'l_po_line_location_id ');
14149: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14150: '(v_check_po_overlay 1) Open po_distributions ');
14145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14146: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14147: '(v_check_po_overlay 1) Get l_code_combination_id FROM '
14148: ||'l_po_line_location_id ');
14149: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14150: '(v_check_po_overlay 1) Open po_distributions ');
14151: END IF;
14152:
14153: OPEN po_distributions_cur;
14154:
14155: LOOP
14156: --
14157: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14158: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14159: '(v_check_po_overlay 2) Fetch po_distributions_cur ');
14160: END IF;
14161:
14162: FETCH po_distributions_cur INTO
14165: EXIT WHEN po_distributions_cur%NOTFOUND OR
14166: po_distributions_cur%NOTFOUND IS NULL;
14167:
14168: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14169: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14170: '------------------> l_code_combination_id = '
14171: || to_char(l_code_combination_id)
14172: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
14173: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
14173: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
14174: ||'account_segment ='||p_invoice_lines_rec.account_segment
14175: ||'l_dist_code_concatenated ='||l_dist_code_concatenated);
14176:
14177: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14178: '(v_check_po_overlay 3) Check Overlay Segments fOR '
14179: ||'l_po_line_location_id ');
14180: END IF;
14181:
14194: FND_GLOBAL.USER_ID,
14195: current_calling_sequence,
14196: NULL ) <> TRUE) THEN
14197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14199: '(v_check_po_overlay 3) Overlay_Segments<-'
14200: ||current_calling_sequence);
14201: END IF;
14202: CLOSE po_distributions_cur;
14204: ELSE
14205: -- show output values (only IF debug_switch = 'Y')
14206: --
14207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14209: '------------------> l_unbuilt_flex = '||l_unbuilt_flex
14210: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
14211: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
14212: END IF;
14212: END IF;
14213:
14214: IF (l_code_combination_id = -1) THEN
14215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14216: AP_IMPORT_UTILITIES_PKG.Print(
14217: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14218: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
14219: END IF;
14220:
14217: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14218: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
14219: END IF;
14220:
14221: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14222: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14223: p_invoice_lines_rec.invoice_line_id,
14224: 'INVALID ACCT OVERLAY',
14225: p_default_last_updated_by,
14225: p_default_last_updated_by,
14226: p_default_last_update_login,
14227: current_calling_sequence) <> TRUE) THEN
14228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14229: AP_IMPORT_UTILITIES_PKG.Print(
14230: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14231: 'insert_rejections<-'||current_calling_sequence);
14232: END IF;
14233: CLOSE po_distributions_cur;
14239: END IF; --overlay segments
14240:
14241: END LOOP;
14242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14244: '(v_check_po_overlay 5) Close po_distributions ');
14245: END IF;
14246: CLOSE po_distributions_cur;
14247: ELSIF ((l_po_line_id IS NOT NULL) AND
14249: -- po distribution id is not NULL
14250: -- PO Line Level Matching
14251: --
14252: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14253: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14254: '(v_check_po_overlay 1) Get l_code_combination_id FROM l_po_line_id ');
14255: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14256: '(v_check_po_overlay 1) Open po_line_locations ');
14257: END IF;
14251: --
14252: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14253: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14254: '(v_check_po_overlay 1) Get l_code_combination_id FROM l_po_line_id ');
14255: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14256: '(v_check_po_overlay 1) Open po_line_locations ');
14257: END IF;
14258:
14259: OPEN po_line_locations_cur;
14261: LOOP
14262: --
14263: --
14264: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14265: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14266: '(v_check_po_overlay 2) Fetch po_line_locations_cur ');
14267: END IF;
14268:
14269: FETCH po_line_locations_cur INTO l_code_combination_id;
14271: EXIT WHEN po_line_locations_cur%NOTFOUND OR
14272: po_line_locations_cur%NOTFOUND IS NULL;
14273:
14274: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14275: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14276: '------------------> l_code_combination_id = '||
14277: to_char(l_code_combination_id)
14278: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
14279: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
14278: ||'balancing_segment ='||p_invoice_lines_rec.balancing_segment
14279: ||'cost_center_segment ='||p_invoice_lines_rec.cost_center_segment
14280: ||'account_segment ='||p_invoice_lines_rec.account_segment
14281: ||'l_dist_code_concatenated ='||l_dist_code_concatenated);
14282: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14283: '(v_check_po_overlay 3) Check Overlay Segments fOR l_po_line_id ');
14284: END IF;
14285:
14286: IF (AP_UTILITIES_PKG.overlay_segments(
14298: FND_GLOBAL.USER_ID,
14299: current_calling_sequence ,
14300: NULL) <> TRUE) THEN
14301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14302: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14303: '(v_check_po_overlay 3) Overlay_Segments<-'
14304: ||current_calling_sequence);
14305: END IF;
14306: CLOSE po_line_locations_cur;
14308: ELSE
14309: -- show output values (only IF debug_switch = 'Y')
14310: --
14311: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14312: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14313: '------------------>
14314: l_unbuilt_flex = '||l_unbuilt_flex
14315: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
14316: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
14316: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
14317: END IF;
14318: IF (l_code_combination_id = -1) THEN
14319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14321: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
14322: END IF;
14323: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14324: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14321: '(v_check_po_overlay 4) Invalid code_combination_id overlay');
14322: END IF;
14323: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14324: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14325: p_invoice_lines_rec.invoice_line_id,
14326: 'INVALID ACCT OVERLAY',
14327: p_default_last_updated_by,
14327: p_default_last_updated_by,
14328: p_default_last_update_login,
14329: current_calling_sequence) <> TRUE) THEN
14330: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14331: AP_IMPORT_UTILITIES_PKG.Print(
14332: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14333: 'insert_rejections<-'||current_calling_sequence);
14334: END IF;
14335: CLOSE po_line_locations_cur;
14341: END IF; -- overlay segments
14342:
14343: END LOOP;
14344: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14345: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14346: '(v_check_po_overlay 5) Close po_line_locations ');
14347: END IF;
14348: CLOSE po_line_locations_cur;
14349: END IF; -- po distribution id is not NULL
14348: CLOSE po_line_locations_cur;
14349: END IF; -- po distribution id is not NULL
14350: ELSE -- invoice status <> 'N'
14351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14352: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14353: '(v_check_po_overlay 1) No Overlay Required ');
14354: END IF;
14355:
14356: END IF; -- invoice status <> 'N'
14360:
14361: EXCEPTION
14362: WHEN OTHERS THEN
14363: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14364: AP_IMPORT_UTILITIES_PKG.Print(
14365: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14366: END IF;
14367:
14368: IF (SQLCODE < 0) THEN
14366: END IF;
14367:
14368: IF (SQLCODE < 0) THEN
14369: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14370: AP_IMPORT_UTILITIES_PKG.Print(
14371: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
14372: END IF;
14373: END IF;
14374: RETURN(FALSE);
14419:
14420: debug_info := '(Check Receipt Info 1) Check if invoice type is'||
14421: ' Prepayment and receipt info is provided';
14422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14423: AP_IMPORT_UTILITIES_PKG.Print(
14424: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14425: END IF;
14426:
14427: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14423: AP_IMPORT_UTILITIES_PKG.Print(
14424: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14425: END IF;
14426:
14427: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14428: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14429: p_invoice_lines_rec.invoice_line_id,
14430: 'INVALID MATCHING INFO',
14431: p_default_last_updated_by,
14431: p_default_last_updated_by,
14432: p_default_last_update_login,
14433: current_calling_sequence)<> TRUE) THEN
14434: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14435: AP_IMPORT_UTILITIES_PKG.Print(
14436: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14437: 'insert_rejections <-'||current_calling_sequence);
14438: END IF;
14439: Raise check_receipt_failure;
14459: (p_invoice_lines_rec.po_line_location_id is not NULL) THEN
14460:
14461: debug_info := '(Check Receipt Info 1) Case a';
14462: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14463: AP_IMPORT_UTILITIES_PKG.Print(
14464: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14465: END IF;
14466:
14467: BEGIN
14472:
14473: EXCEPTION
14474: When no_data_found THEN
14475: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
14476: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14477: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14478: p_invoice_lines_rec.invoice_line_id,
14479: 'INSUFFICIENT RECEIPT INFO',
14480: p_default_last_updated_by,
14480: p_default_last_updated_by,
14481: p_default_last_update_login,
14482: current_calling_sequence)<> TRUE) THEN
14483: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14484: AP_IMPORT_UTILITIES_PKG.Print(
14485: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14486: 'insert_rejections <-'||current_calling_sequence);
14487: END IF;
14488: Raise check_receipt_failure;
14497: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
14498: (p_invoice_lines_rec.rcv_transaction_id is NULL) THEN
14499: debug_info := '(Check Receipt Info 1) Case c';
14500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14501: AP_IMPORT_UTILITIES_PKG.Print(
14502: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14503: END IF;
14504:
14505: BEGIN
14511:
14512: Exception
14513: When no_data_found THEN
14514: --reject fOR INVALID RECEIPT INFORMATION
14515: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14516: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14517: p_invoice_lines_rec.invoice_line_id,
14518: 'INVALID RECEIPT INFO',
14519: p_default_last_updated_by,
14519: p_default_last_updated_by,
14520: p_default_last_update_login,
14521: current_calling_sequence)<> TRUE) THEN
14522: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14523: AP_IMPORT_UTILITIES_PKG.Print(
14524: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14525: 'insert_rejections <-'||current_calling_sequence);
14526: END IF;
14527: Raise check_receipt_failure;
14536: ELSIF (p_invoice_lines_rec.receipt_number is NULL) AND
14537: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
14538: debug_info := '(Check Receipt Info 1) Case d';
14539: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14540: AP_IMPORT_UTILITIES_PKG.Print(
14541: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14542: END IF;
14543:
14544: BEGIN
14550:
14551: EXCEPTION
14552: When Others THEN
14553: -- reject fOR INVALID RECEIPT INFORMATION
14554: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14555: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14556: p_invoice_lines_rec.invoice_line_id,
14557: 'INVALID RECEIPT INFO',
14558: p_default_last_updated_by,
14558: p_default_last_updated_by,
14559: p_default_last_update_login,
14560: current_calling_sequence)<> TRUE) THEN
14561: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14562: AP_IMPORT_UTILITIES_PKG.Print(
14563: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14564: 'insert_rejections <-'||current_calling_sequence);
14565: END IF;
14566: Raise check_receipt_failure;
14572: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
14573: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
14574: debug_info := '(Check Receipt Info 1) Case e';
14575: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14576: AP_IMPORT_UTILITIES_PKG.Print(
14577: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14578: END IF;
14579: BEGIN
14580: SELECT rcv_transaction_id
14587:
14588: Exception
14589: When Others THEN
14590: -- reject fOR INCONSISTENT RECEIPT INFORMATION
14591: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14592: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14593: p_invoice_lines_rec.invoice_line_id,
14594: 'INCONSISTENT RECEIPT INFO',
14595: p_default_last_updated_by,
14595: p_default_last_updated_by,
14596: p_default_last_update_login,
14597: current_calling_sequence)<> TRUE) THEN
14598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14599: AP_IMPORT_UTILITIES_PKG.Print(
14600: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14601: 'insert_rejections <-'||current_calling_sequence);
14602: END IF;
14603: Raise check_receipt_failure;
14616: -- Validate UOM
14617: IF (p_invoice_lines_rec.unit_of_meas_lookup_code is not NULL) THEN
14618: debug_info := 'validate the UOM';
14619: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14620: AP_IMPORT_UTILITIES_PKG.Print(
14621: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14622: END IF;
14623:
14624: BEGIN
14632: rcv_transaction_id);
14633: EXCEPTION
14634: WHEN OTHERS THEN
14635: -- reject with UOM DOES NOT MATCH RECEIPT
14636: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14637: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14638: p_invoice_lines_rec.invoice_line_id,
14639: 'UOM DOES NOT MATCH RECPT',
14640: p_default_last_updated_by,
14640: p_default_last_updated_by,
14641: p_default_last_update_login,
14642: current_calling_sequence)<> TRUE) THEN
14643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14644: AP_IMPORT_UTILITIES_PKG.Print(
14645: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14646: 'insert_rejections <-'||current_calling_sequence);
14647: END IF;
14648: Raise check_receipt_failure;
14650: END;
14651:
14652: IF (l_rcv_uom <> p_invoice_lines_rec.unit_of_meas_lookup_code) THEN
14653: -- reject with UOM DOES NOT MATCH RECEIPT
14654: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14655: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14656: p_invoice_lines_rec.invoice_line_id,
14657: 'UOM DOES NOT MATCH RECPT',
14658: p_default_last_updated_by,
14658: p_default_last_updated_by,
14659: p_default_last_update_login,
14660: current_calling_sequence)<> TRUE) THEN
14661: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14662: AP_IMPORT_UTILITIES_PKG.Print(
14663: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14664: 'insert_rejections <-'||current_calling_sequence);
14665: END IF;
14666: Raise check_receipt_failure;
14671:
14672: -- Validate quantity billed does not become less than zero
14673: debug_info := 'Check IF quantity billed will be less than zero';
14674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14675: AP_IMPORT_UTILITIES_PKG.Print(
14676: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14677: END IF;
14678:
14679: BEGIN
14701: 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 ));
14702:
14703: IF ((p_invoice_lines_rec.quantity_invoiced + l_qty_billed_sum) < 0) THEN
14704: -- reject with INVALID QUANTITY
14705: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14706: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14707: p_invoice_lines_rec.invoice_line_id,
14708: 'INVALID QUANTITY',
14709: p_default_last_updated_by,
14713: 'QUANTITY INVOICED',
14714: p_invoice_lines_rec.quantity_invoiced + l_qty_billed_sum )
14715: <> TRUE) THEN
14716: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14717: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14718: 'insert_rejections <-'||current_calling_sequence);
14719: END IF;
14720: Raise check_receipt_failure;
14721: END IF;
14739: (p_invoice_lines_rec.rcv_transaction_id is NULL) AND
14740: (p_invoice_lines_rec.po_line_location_id is not NULL) THEN
14741: debug_info := '(Check Receipt Info 2) Case a';
14742: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14743: AP_IMPORT_UTILITIES_PKG.Print(
14744: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14745: END IF;
14746: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
14747: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14743: AP_IMPORT_UTILITIES_PKG.Print(
14744: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14745: END IF;
14746: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
14747: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14748: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14749: p_invoice_lines_rec.invoice_line_id,
14750: 'INSUFFICIENT RECEIPT INFO',
14751: p_default_last_updated_by,
14751: p_default_last_updated_by,
14752: p_default_last_update_login,
14753: current_calling_sequence)<> TRUE) THEN
14754: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14755: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
14756: 'insert_rejections <-'||current_calling_sequence);
14757: END IF;
14758: Raise check_receipt_failure;
14759: END IF;
14763: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
14764: (p_invoice_lines_rec.rcv_transaction_id is NULL) THEN
14765: debug_info := '(Check Receipt Info 2) Case b';
14766: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14767: AP_IMPORT_UTILITIES_PKG.Print(
14768: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14769: END IF;
14770: BEGIN
14771: SELECT rcv_transaction_id
14776:
14777: Exception
14778: When no_data_found THEN
14779: --reject fOR INVALID RECEIPT INFORMATION
14780: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14781: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14782: p_invoice_lines_rec.invoice_line_id,
14783: 'INVALID RECEIPT INFO',
14784: p_default_last_updated_by,
14784: p_default_last_updated_by,
14785: p_default_last_update_login,
14786: current_calling_sequence)<> TRUE) THEN
14787: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14788: AP_IMPORT_UTILITIES_PKG.Print(
14789: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14790: 'insert_rejections <-'||current_calling_sequence);
14791: END IF;
14792: Raise check_receipt_failure;
14793: END IF;
14794: p_temp_line_status := 'N';
14795: When too_many_rows THEN
14796: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
14797: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14798: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14799: p_invoice_lines_rec.invoice_line_id,
14800: 'INSUFFICIENT RECEIPT INFO',
14801: p_default_last_updated_by,
14801: p_default_last_updated_by,
14802: p_default_last_update_login,
14803: current_calling_sequence)<> TRUE) THEN
14804: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14805: AP_IMPORT_UTILITIES_PKG.Print(
14806: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14807: 'insert_rejections <-'||current_calling_sequence);
14808: END IF;
14809: Raise check_receipt_failure;
14815: ELSIF (p_invoice_lines_rec.receipt_number is NULL) AND
14816: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
14817: debug_info := '(Check Receipt Info 2) Case c';
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: BEGIN
14829:
14830: Exception
14831: WHEN Others THEN
14832: -- reject fOR INVALID RECEIPT INFORMATION
14833: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14834: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14835: p_invoice_lines_rec.invoice_line_id,
14836: 'INVALID RECEIPT INFO',
14837: p_default_last_updated_by,
14837: p_default_last_updated_by,
14838: p_default_last_update_login,
14839: current_calling_sequence)<> TRUE) THEN
14840: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14841: AP_IMPORT_UTILITIES_PKG.Print(
14842: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14843: 'insert_rejections <-'||current_calling_sequence);
14844: END IF;
14845: Raise check_receipt_failure;
14851: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
14852: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
14853: debug_info := '(Check Receipt Info 2) Case d';
14854: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14855: AP_IMPORT_UTILITIES_PKG.Print(
14856: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14857: END IF;
14858:
14859: BEGIN
14866:
14867: EXCEPTION
14868: When Others THEN
14869: -- reject fOR INCONSISTENT RECEIPT INFORMATION
14870: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14871: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14872: p_invoice_lines_rec.invoice_line_id,
14873: 'INCONSISTENT RECEIPT INFO',
14874: p_default_last_updated_by,
14874: p_default_last_updated_by,
14875: p_default_last_update_login,
14876: current_calling_sequence)<> TRUE) THEN
14877: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14878: AP_IMPORT_UTILITIES_PKG.Print(
14879: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14880: 'insert_rejections <-'||current_calling_sequence);
14881: END IF;
14882: Raise check_receipt_failure;
14901: IF (p_invoice_lines_rec.receipt_number is not NULL) AND
14902: (p_invoice_lines_rec.rcv_transaction_id is NULL) THEN
14903: debug_info := '(Check Receipt Info 3) Case b';
14904: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14905: AP_IMPORT_UTILITIES_PKG.Print(
14906: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14907: END IF;
14908: BEGIN
14909: SELECT rcv_transaction_id
14912: WHERE receipt_number = p_invoice_lines_rec.receipt_number;
14913: Exception
14914: When no_data_found THEN
14915: --reject fOR INVALID RECEIPT INFORMATION
14916: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14917: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14918: p_invoice_lines_rec.invoice_line_id,
14919: 'INVALID RECEIPT INFO',
14920: p_default_last_updated_by,
14920: p_default_last_updated_by,
14921: p_default_last_update_login,
14922: current_calling_sequence)<> TRUE) THEN
14923: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14924: AP_IMPORT_UTILITIES_PKG.Print(
14925: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14926: 'insert_rejections <-'||current_calling_sequence);
14927: END IF;
14928: Raise check_receipt_failure;
14929: END IF;
14930: p_temp_line_status := 'N';
14931: When too_many_rows THEN
14932: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
14933: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14934: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14935: p_invoice_lines_rec.invoice_line_id,
14936: 'INSUFFICIENT RECEIPT INFO',
14937: p_default_last_updated_by,
14937: p_default_last_updated_by,
14938: p_default_last_update_login,
14939: current_calling_sequence)<> TRUE) THEN
14940: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14941: AP_IMPORT_UTILITIES_PKG.Print(
14942: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14943: 'insert_rejections <-'||current_calling_sequence);
14944: END IF;
14945: Raise check_receipt_failure;
14951: ELSIF (p_invoice_lines_rec.receipt_number is NULL) AND
14952: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
14953: debug_info := '(Check Receipt Info 3) Case c';
14954: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14955: AP_IMPORT_UTILITIES_PKG.Print(
14956: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
14957: END IF;
14958: BEGIN
14959: SELECT rcv_transaction_id
14962: WHERE rcv_transaction_id = p_invoice_lines_rec.rcv_transaction_id;
14963: Exception
14964: When Others THEN
14965: -- reject fOR INVALID RECEIPT INFORMATION
14966: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
14967: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
14968: p_invoice_lines_rec.invoice_line_id,
14969: 'INVALID RECEIPT INFO',
14970: p_default_last_updated_by,
14970: p_default_last_updated_by,
14971: p_default_last_update_login,
14972: current_calling_sequence)<> TRUE) THEN
14973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14974: AP_IMPORT_UTILITIES_PKG.Print(
14975: AP_IMPORT_INVOICES_PKG.g_debug_switch,
14976: 'insert_rejections <-'||current_calling_sequence);
14977: END IF;
14978: Raise check_receipt_failure;
14984: ELSIF (p_invoice_lines_rec.receipt_number is not NULL) AND
14985: (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
14986: debug_info := '(Check Receipt Info 3) Case d';
14987: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
14988: AP_IMPORT_UTILITIES_PKG.Print(
14989: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
14990: END IF;
14991: BEGIN
14992: SELECT rcv_transaction_id
14996: AND receipt_number = p_invoice_lines_rec.receipt_number;
14997: Exception
14998: When Others THEN
14999: -- reject for inconsistent receipt information
15000: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15001: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15002: p_invoice_lines_rec.invoice_line_id,
15003: 'INCONSISTENT RECEIPT INFO',
15004: p_default_last_updated_by,
15004: p_default_last_updated_by,
15005: p_default_last_update_login,
15006: current_calling_sequence)<> TRUE) THEN
15007: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15008: AP_IMPORT_UTILITIES_PKG.Print(
15009: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15010: 'insert_rejections <-'||current_calling_sequence);
15011: END IF;
15012: Raise check_receipt_failure;
15024:
15025: IF (p_invoice_lines_rec.rcv_transaction_id is not NULL) THEN
15026: debug_info := '(Get the value of rcv_shipment_line_id) ';
15027: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15028: AP_IMPORT_UTILITIES_PKG.Print(
15029: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15030: END IF;
15031: BEGIN
15032: SELECT rcv_shipment_line_id
15035: WHERE rcv_transaction_id = p_invoice_lines_rec.rcv_transaction_id;
15036: Exception
15037: When no_data_found THEN
15038: --reject fOR INVALID RECEIPT INFORMATION
15039: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15040: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15041: p_invoice_lines_rec.invoice_line_id,
15042: 'INVALID RECEIPT INFO',
15043: p_default_last_updated_by,
15043: p_default_last_updated_by,
15044: p_default_last_update_login,
15045: current_calling_sequence)<> TRUE) THEN
15046: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15047: AP_IMPORT_UTILITIES_PKG.Print(
15048: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15049: 'insert_rejections <-'||current_calling_sequence);
15050: END IF;
15051: Raise check_receipt_failure;
15052: END IF;
15053: p_temp_line_status := 'N';
15054: When too_many_rows THEN
15055: -- reject fOR INSUFFICIENT RECEIPT INFORMATION
15056: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15057: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15058: p_invoice_lines_rec.invoice_line_id,
15059: 'INSUFFICIENT RECEIPT INFO',
15060: p_default_last_updated_by,
15060: p_default_last_updated_by,
15061: p_default_last_update_login,
15062: current_calling_sequence)<> TRUE) THEN
15063: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15064: AP_IMPORT_UTILITIES_PKG.Print(
15065: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15066: 'insert_rejections <-'||current_calling_sequence);
15067: END IF;
15068: Raise check_receipt_failure;
15080: -- Step 4: Validate the final match flag <> 'Y'
15081: ---------------------------------------------------------------------------
15082: debug_info := '(check receipt info 4) : Final Match flag';
15083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15084: AP_IMPORT_UTILITIES_PKG.Print(
15085: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15086: END IF;
15087:
15088: IF (p_invoice_lines_rec.match_option = 'R') AND
15087:
15088: IF (p_invoice_lines_rec.match_option = 'R') AND
15089: (nvl(p_invoice_lines_rec.final_match_flag,'N') = 'Y' ) THEN
15090: -- reject fOR INVALID FINAL MATCH FLAG
15091: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15092: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15093: p_invoice_lines_rec.invoice_line_id,
15094: 'INVALID FINAL MATCH FLAG',
15095: p_default_last_updated_by,
15095: p_default_last_updated_by,
15096: p_default_last_update_login,
15097: current_calling_sequence)<> TRUE) THEN
15098: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15099: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15100: 'insert_rejections <-'||current_calling_sequence);
15101: END IF;
15102: Raise check_receipt_failure;
15103: END IF;
15112: (p_invoice_lines_rec.unit_of_meas_lookup_code IS NOT NULL) THEN
15113:
15114: debug_info := '(check receipt info 5) : Validate UOM';
15115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15116: AP_IMPORT_UTILITIES_PKG.Print(
15117: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15118: END IF;
15119: BEGIN
15120: SELECT 'Y'
15125: p_invoice_lines_rec.unit_of_meas_lookup_code;
15126: EXCEPTION
15127: WHEN OTHERS THEN
15128: -- reject for uom does not match receipt
15129: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15130: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15131: p_invoice_lines_rec.invoice_line_id,
15132: 'UOM DOES NOT MATCH RECPT',
15133: p_default_last_updated_by,
15133: p_default_last_updated_by,
15134: p_default_last_update_login,
15135: current_calling_sequence)<> TRUE) THEN
15136: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15137: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15138: 'insert_rejections <-'||current_calling_sequence);
15139: END IF;
15140: Raise check_receipt_failure;
15141: END IF;
15150: -- below will not get executed.
15151: ----------------------------------------------------------------------------
15152: debug_info := '(check receipt info 6) : Check prorate flag';
15153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15154: AP_IMPORT_UTILITIES_PKG.Print(
15155: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15156: END IF;
15157:
15158: IF (p_invoice_lines_rec.line_type_lookup_code IN
15161: (p_invoice_lines_rec.receipt_number is not NULL OR
15162: p_invoice_lines_rec.rcv_transaction_id is not NULL) ) THEN
15163:
15164: -- reject for inconsistent allocation info
15165: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15166: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15167: p_invoice_lines_rec.invoice_line_id,
15168: 'INCONSISTENT ALLOC INFO',
15169: p_default_last_updated_by,
15169: p_default_last_updated_by,
15170: p_default_last_update_login,
15171: current_calling_sequence)<> TRUE) THEN
15172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15173: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15174: 'insert_rejections <-'||current_calling_sequence);
15175: END IF;
15176: Raise check_receipt_failure;
15177: END IF;
15190: (p_invoice_lines_rec.match_option = 'R') AND
15191: (p_invoice_lines_rec.quantity_invoiced is not NULL) THEN
15192: debug_info := '(Check receipt info 7) : check Quantity billed';
15193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15194: AP_IMPORT_UTILITIES_PKG.Print(
15195: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15196: END IF;
15197:
15198: BEGIN
15201: FROM rcv_transactions
15202: WHERE transaction_id = p_invoice_lines_rec.rcv_transaction_id;
15203:
15204: IF (l_qty_billed + p_invoice_lines_rec.quantity_invoiced ) < 0 THEN
15205: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15206: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15207: p_invoice_lines_rec.invoice_line_id,
15208: 'INVALID QUANTITY',
15209: p_default_last_updated_by,
15212: 'Y',
15213: 'QUANTITY INVOICED',
15214: l_qty_billed + p_invoice_lines_rec.quantity_invoiced )<> TRUE) THEN
15215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15216: AP_IMPORT_UTILITIES_PKG.Print(
15217: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15218: 'insert_rejections <-'||current_calling_sequence);
15219: END IF;
15220: Raise check_receipt_failure;
15229:
15230: EXCEPTION
15231: When OTHERS THEN
15232: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15233: AP_IMPORT_UTILITIES_PKG.Print(
15234: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15235: END IF;
15236:
15237: IF (SQLCODE < 0) THEN
15235: END IF;
15236:
15237: IF (SQLCODE < 0) THEN
15238: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15239: AP_IMPORT_UTILITIES_PKG.Print(
15240: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
15241: END IF;
15242: END IF;
15243: Return(FALSE);
15298: IF (l_accounting_date IS NULL) AND (p_invoice_rec.gl_date IS NOT NULL) THEN
15299: debug_info := '(Check_line_accounting_date 1) Default '
15300: ||'line_accounting_date from Invoice gl_date';
15301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15302: AP_IMPORT_UTILITIES_PKG.Print(
15303: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15304: END IF;
15305:
15306: l_accounting_date := p_invoice_rec.gl_date;
15309: THEN
15310: debug_info := '(v_check_line_accounting_date 1) GL Date is Null in '
15311: ||'Interface, Use gl_date from Get Info';
15312: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15313: AP_IMPORT_UTILITIES_PKG.Print(
15314: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15315: END IF;
15316: l_accounting_date := p_gl_date_from_get_info;
15317: END IF;
15320: (p_gl_date_from_receipt_flag IN ('I','N')) AND
15321: (p_invoice_rec.invoice_date is NOT NULL)) THEN
15322: debug_info := '(v_check_line_accounting_date 2) GL Date is Invoice Date';
15323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15324: AP_IMPORT_UTILITIES_PKG.Print(
15325: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15326: END IF;
15327: l_accounting_date := p_invoice_rec.invoice_date;
15328: ELSIF((l_accounting_date IS NULL) AND
15329: (p_gl_date_from_receipt_flag IN ('I','N')) AND
15330: (p_invoice_rec.invoice_date is NULL)) THEN
15331: debug_info := '(v_check_line_accounting_date 2) GL Date is sysdate';
15332: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15333: AP_IMPORT_UTILITIES_PKG.Print(
15334: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15335: END IF;
15336: l_accounting_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
15337: END IF;
15341: ------------------------------------------------------------------------
15342: debug_info := '(v_check_line_accounting_date 3) Check IF gl date is not '
15343: ||'in open period';
15344: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15345: AP_IMPORT_UTILITIES_PKG.Print(
15346: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15347: END IF;
15348:
15349: -- bug 2496185 by isartawi .. cache the code_combination_ids
15362: IF l_ret_code = '1' THEN -- means l_key found in cache
15363: l_period_name := l_values(1).varchar2_1;
15364: l_exception := l_values(1).varchar2_2;
15365: IF l_exception = 'TRUE' THEN
15366: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15367: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15368: p_invoice_lines_rec.invoice_line_id,
15369: 'ACCT DATE NOT IN OPEN PD',
15370: p_default_last_updated_by,
15370: p_default_last_updated_by,
15371: p_default_last_update_login,
15372: current_calling_sequence) <> TRUE) THEN
15373: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15374: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15375: 'insert_rejections<-'||current_calling_sequence);
15376: END IF;
15377: RAISE check_accounting_date_failure;
15378: END IF;
15407: l_values);
15408: EXCEPTION
15409: WHEN NO_DATA_FOUND THEN
15410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15412: 'Accounting date is not in open period');
15413: END IF;
15414:
15415: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15412: 'Accounting date is not in open period');
15413: END IF;
15414:
15415: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15416: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15417: p_invoice_lines_rec.invoice_line_id,
15418: 'ACCT DATE NOT IN OPEN PD',
15419: p_default_last_updated_by,
15419: p_default_last_updated_by,
15420: p_default_last_update_login,
15421: current_calling_sequence) <> TRUE) THEN
15422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15423: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15424: 'insert_rejections<-'||current_calling_sequence);
15425: END IF;
15426: RAISE check_accounting_date_failure;
15427: END IF;
15440: l_values);
15441: END;
15442: END IF; -- IF ret_code is 1
15443: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15444: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15445: '------------------> l_period_name = '|| l_period_name
15446: ||'l_accounting_date = '||to_char(l_accounting_date));
15447: END IF;
15448:
15454: BEGIN
15455: debug_info := '(v_check_line_accounting_date 4) Reject IF the year of '
15456: ||'gl date is beyond encumbrance year';
15457: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15458: AP_IMPORT_UTILITIES_PKG.Print(
15459: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15460: END IF;
15461:
15462: SELECT 'The period is NOT beyond latest encumbrance year'
15475: EXCEPTION
15476: WHEN NO_DATA_FOUND THEN
15477: --
15478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15480: 'Accounting date is beyond encumbrance year');
15481: END IF;
15482:
15483: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15480: 'Accounting date is beyond encumbrance year');
15481: END IF;
15482:
15483: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15484: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15485: p_invoice_lines_rec.invoice_line_id,
15486: 'ACCT DATE BEYOND ENC YEAR',
15487: p_default_last_updated_by,
15487: p_default_last_updated_by,
15488: p_default_last_update_login,
15489: current_calling_sequence) <> TRUE) THEN
15490: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15491: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15492: 'insert_rejections<-'||current_calling_sequence);
15493: END IF;
15494: RAISE check_accounting_date_failure;
15495: END IF;
15512: RETURN (TRUE);
15513: EXCEPTION
15514: WHEN OTHERS THEN
15515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15516: AP_IMPORT_UTILITIES_PKG.Print(
15517: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15518: END IF;
15519:
15520: IF (SQLCODE < 0) THEN
15518: END IF;
15519:
15520: IF (SQLCODE < 0) THEN
15521: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15522: AP_IMPORT_UTILITIES_PKG.Print(
15523: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
15524: END IF;
15525: END IF;
15526: RETURN(FALSE);
15589: ---------------------------------------------------------------------
15590: debug_info := '(v_check_line_project_info 1) Check IF line has PA Info'
15591: ||' and other account info as well';
15592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15593: AP_IMPORT_UTILITIES_PKG.Print(
15594: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15595: END IF;
15596:
15597: IF ( p_invoice_lines_rec.po_number IS NOT NULL OR
15596:
15597: IF ( p_invoice_lines_rec.po_number IS NOT NULL OR
15598: p_invoice_lines_rec.po_header_id IS NOT NULL ) THEN
15599: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15600: AP_IMPORT_UTILITIES_PKG.Print(
15601: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15602: '(v_check_line_project_info 2) Line with additional account'
15603: ||' info:Reject');
15604: END IF;
15603: ||' info:Reject');
15604: END IF;
15605:
15606:
15607: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15608: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15609: p_invoice_lines_rec.invoice_line_id,
15610: 'INCONSISTENT DIST INFO',
15611: p_default_last_updated_by,
15611: p_default_last_updated_by,
15612: p_default_last_update_login,
15613: current_calling_sequence) <> TRUE) THEN
15614: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15615: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15616: 'insert_rejections<-'||current_calling_sequence);
15617: END IF;
15618: RAISE check_project_failure;
15619: END IF;
15629: -- Else reject
15630: --------------------------------------------------------------
15631: IF (p_invoice_lines_rec.expenditure_item_date is NULL) then
15632: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
15633: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15634: '(v_check_line_project_info 2) Get expenditure item date');
15635: END IF;
15636:
15637: p_invoice_lines_rec.expenditure_item_date :=
15653: (p_invoice_lines_rec.expenditure_type IS NULL) OR
15654: (p_invoice_lines_rec.expenditure_item_date IS NULL) OR
15655: (p_invoice_lines_rec.expenditure_organization_id IS NULL)) THEN
15656: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15657: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15658: '(v_check_line_project_info 2) Insufficient PA Info:Reject');
15659: END IF;
15660:
15661: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15657: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15658: '(v_check_line_project_info 2) Insufficient PA Info:Reject');
15659: END IF;
15660:
15661: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15662: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15663: p_invoice_lines_rec.invoice_line_id,
15664: 'INSUFFICIENT PA INFO',
15665: p_default_last_updated_by,
15665: p_default_last_updated_by,
15666: p_default_last_update_login,
15667: current_calling_sequence) <> TRUE) THEN
15668: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15669: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15670: 'insert_rejections<-'||current_calling_sequence);
15671: END IF;
15672: RAISE check_project_failure;
15673: END IF;
15682: debug_info := 'AWARD_ID_REQUEST :(v_check_line_award_info 1) Check '
15683: ||'GMS Info ';
15684: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch) THEN
15685: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15686: AP_IMPORT_UTILITIES_PKG.Print(
15687: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
15688: END IF;
15689: END IF;
15690:
15757: l_award_id,
15758: 'AWARD_SET_ID_REQUEST' ) <> TRUE ) THEN
15759: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)
15760: THEN
15761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15762: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
15763: END IF;
15764:
15765: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15762: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
15763: END IF;
15764:
15765: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15766: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15767: p_invoice_lines_rec.invoice_line_id,
15768: 'INSUFFICIENT GMS INFO',
15769: p_default_last_updated_by,
15769: p_default_last_updated_by,
15770: p_default_last_update_login,
15771: current_calling_sequence) <> TRUE) THEN
15772: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15773: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15774: 'insert_rejections<-'||current_calling_sequence);
15775: END IF;
15776: RAISE check_project_failure;
15777: END IF;
15785: -- IF invoice status is Y THEN Flexbuild
15786: ------------------------------------------------------------------------
15787: IF (l_current_invoice_status = 'Y') THEN
15788: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15789: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15790: '(v_check_line_project_info 4) Call pa_flexbuild');
15791: END IF;
15792: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
15793: IF (AP_IMPORT_UTILITIES_PKG.pa_flexbuild(
15789: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15790: '(v_check_line_project_info 4) Call pa_flexbuild');
15791: END IF;
15792: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
15793: IF (AP_IMPORT_UTILITIES_PKG.pa_flexbuild(
15794: p_invoice_rec, -- IN
15795: p_invoice_lines_rec, -- IN OUT NOCOPY
15796: p_accounting_date, -- IN
15797: p_pa_installed, -- IN
15806: p_calling_sequence => current_calling_sequence) <> TRUE) THEN
15807:
15808:
15809: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15810: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15811: 'insert_rejections<-'||current_calling_sequence);
15812: END IF;
15813: RAISE check_project_failure;
15814: END IF; -- pa flexbuild
15820: debug_info := 'AWARD_ID_REMOVE :(v_check_line_award_info 1) Check GMS Info ';
15821: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)
15822: THEN
15823: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15824: AP_IMPORT_UTILITIES_PKG.Print(
15825: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
15826: END IF;
15827: END IF;
15828:
15896: 'AWARD_SET_ID_REMOVE' ) <> TRUE THEN
15897: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)
15898: THEN
15899: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15900: AP_IMPORT_UTILITIES_PKG.Print(
15901: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15902: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
15903: END IF;
15904: END IF;
15902: '(v_check_line_project_info 3) Invalid GMS Info:Reject');
15903: END IF;
15904: END IF;
15905:
15906: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
15907: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
15908: p_invoice_lines_rec.invoice_line_id,
15909: 'INSUFFICIENT GMS INFO',
15910: p_default_last_updated_by,
15910: p_default_last_updated_by,
15911: p_default_last_update_login,
15912: current_calling_sequence) <> TRUE) THEN
15913: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15914: AP_IMPORT_UTILITIES_PKG.Print(
15915: AP_IMPORT_INVOICES_PKG.g_debug_switch,
15916: 'insert_rejections<-'||current_calling_sequence);
15917: END IF;
15918: RAISE check_project_failure;
15931: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
15932: IF (l_current_invoice_status = 'Y') THEN
15933: IF (l_pa_default_dist_ccid = -1) THEN
15934: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
15935: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
15936: '(v_check_line_project_info 4) Create new ccid from concat segs');
15937: END IF;
15938:
15939: -- Create new ccid
16007:
16008: IF (l_validate_res <> 'TRUE') THEN
16009: --Invalid Creation combination
16010: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16011: AP_IMPORT_UTILITIES_PKG.Print(
16012: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16013: '(v_check_line_project_info 4) Invalid ccid:Reject');
16014: END IF;
16015:
16012: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16013: '(v_check_line_project_info 4) Invalid ccid:Reject');
16014: END IF;
16015:
16016: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16017: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16018: p_invoice_lines_rec.invoice_line_id,
16019: 'INVALID PA ACCT',
16020: p_default_last_updated_by,
16020: p_default_last_updated_by,
16021: p_default_last_update_login,
16022: current_calling_sequence) <> TRUE) THEN
16023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16024: AP_IMPORT_UTILITIES_PKG.Print(
16025: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16026: 'insert_rejections<-'||current_calling_sequence);
16027: END IF;
16028: RAISE check_project_failure;
16032: l_dist_code_combination_id := 0;
16033: l_unbuilt_flex := l_pa_concatenated_segments;
16034: Else
16035: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16036: AP_IMPORT_UTILITIES_PKG.Print(
16037: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16038: '(v_check_line_project_info 4) Valid ccid created for project');
16039: END IF;
16040:
16047: --
16048: -- show output values (only IF debug_switch = 'Y')
16049: --
16050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16051: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16052: '------------------> l_dist_code_combination_id= '||
16053: to_char(l_dist_code_combination_id)
16054: ||' l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
16055: ||' l_unbuilt_flex = '||l_unbuilt_flex
16057: END IF;
16058:
16059: Else -- pa default ccid is valid
16060: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16061: AP_IMPORT_UTILITIES_PKG.Print(
16062: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16063: '(v_check_line_project_info 5) Valid ccid from PA Flexbuild');
16064: END IF;
16065:
16075:
16076: -- Overlay will be done in check Account info
16077: --
16078: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16079: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16080: '(v_check_line_project_info 6) Set OUT parameter with PA ccid');
16081: END IF;
16082:
16083: p_pa_built_account := l_dist_code_combination_id;
16086: END IF; -- l_current_invoice_status( IF before pa_flexbuild)
16087:
16088: ELSE
16089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16091: '(v_check_line_project_info) No Project Id');
16092: END IF;
16093: END IF; -- PA Info
16094:
16098:
16099: EXCEPTION
16100: WHEN OTHERS THEN
16101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16102: AP_IMPORT_UTILITIES_PKG.Print(
16103: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16104: END IF;
16105:
16106: IF (SQLCODE < 0) THEN
16104: END IF;
16105:
16106: IF (SQLCODE < 0) THEN
16107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16108: AP_IMPORT_UTILITIES_PKG.Print(
16109: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
16110: END IF;
16111: END IF;
16112: RETURN(FALSE);
16164: debug_info := '(v_check_line_account_info 1) '||
16165: 'Check IF item line doesnt have account info';
16166:
16167: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16168: AP_IMPORT_UTILITIES_PKG.Print(
16169: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16170: END IF;
16171:
16172: --Assigning system freight account if no freight account is specified
16211: (p_invoice_lines_rec.project_id IS NOT NULL AND
16212: AP_IMPORT_INVOICES_PKG.g_pa_allows_overrides = 'Y'))) THEN
16213:
16214: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16215: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16216: '(v_check_line_account_info 2) '
16217: || 'Check Overlay Segments for line');
16218: END IF;
16219:
16234: FND_GLOBAL.USER_ID,
16235: current_calling_sequence ) <> TRUE) THEN
16236:
16237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16238: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16239: '(v_check_line_account_info 2) '||
16240: 'Overlay_Segments<-'||current_calling_sequence);
16241: END IF;
16242: -- Bug 6124714
16240: 'Overlay_Segments<-'||current_calling_sequence);
16241: END IF;
16242: -- Bug 6124714
16243: -- Raise check_account_failure;
16244: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16245: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16246: p_invoice_lines_rec.invoice_line_id,
16247: 'INVALID DISTRIBUTION ACCT',
16248: p_default_last_updated_by,
16248: p_default_last_updated_by,
16249: p_default_last_update_login,
16250: current_calling_sequence) <> TRUE) THEN
16251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16252: AP_IMPORT_UTILITIES_PKG.Print(
16253: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16254: 'insert_rejections<-'||
16255: current_calling_sequence);
16256: END IF;
16258: END IF; -- insert rejections
16259: ELSE -- overlay segs
16260:
16261: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16262: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16263: '------------------> l_unbuilt_flex = '||
16264: l_unbuilt_flex||'l_reason_unbuilt_flex = '||
16265: l_reason_unbuilt_flex||'l_overlayed_ccid = '||
16266: to_char(l_overlayed_ccid));
16268:
16269: IF (l_overlayed_ccid = -1 AND
16270: l_dist_code_combination_id IS NOT NULL) THEN
16271: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16272: AP_IMPORT_UTILITIES_PKG.Print(
16273: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16274: '(v_check_line_account_info 2)' ||
16275: ' Invalid dist_code_combination_id overlay');
16276: END IF;
16273: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16274: '(v_check_line_account_info 2)' ||
16275: ' Invalid dist_code_combination_id overlay');
16276: END IF;
16277: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16278: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16279: p_invoice_lines_rec.invoice_line_id,
16280: 'INVALID ACCT OVERLAY',
16281: p_default_last_updated_by,
16281: p_default_last_updated_by,
16282: p_default_last_update_login,
16283: current_calling_sequence) <> TRUE) THEN
16284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16285: AP_IMPORT_UTILITIES_PKG.Print(
16286: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16287: 'insert_rejections<-'
16288: || current_calling_sequence);
16289: END IF;
16304: <= p_accounting_date;
16305: EXCEPTION
16306: WHEN NO_DATA_FOUND THEN
16307: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16308: AP_IMPORT_UTILITIES_PKG.Print(
16309: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16310: '(v_check_line_account_info 4) '||
16311: ' Invalid overlayed ccid ');
16312: END IF;
16310: '(v_check_line_account_info 4) '||
16311: ' Invalid overlayed ccid ');
16312: END IF;
16313:
16314: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16315: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16316: p_invoice_lines_rec.invoice_line_id,
16317: 'INVALID DISTRIBUTION ACCT',
16318: p_default_last_updated_by,
16318: p_default_last_updated_by,
16319: p_default_last_update_login,
16320: current_calling_sequence) <> TRUE) THEN
16321: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16322: AP_IMPORT_UTILITIES_PKG.Print(
16323: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16324: 'insert_rejections<-'
16325: ||current_calling_sequence);
16326: END IF;
16396: END IF; -- l_ret_code='1'
16397:
16398: -- Bug 5533471
16399: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16400: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16401: 'l_dist_code_combination_id: '|| l_dist_code_combination_id
16402: ||', l_validate_res: '||l_validate_res);
16403: END IF;
16404:
16403: END IF;
16404:
16405: IF (l_validate_res <> 'TRUE') THEN
16406: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16407: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16408: '(v_check_line_account_info 2) '||
16409: 'Invalid dist_code_concatenated ');
16410: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16411: '(v_check_line_account_info 2) '||
16406: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16407: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16408: '(v_check_line_account_info 2) '||
16409: 'Invalid dist_code_concatenated ');
16410: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16411: '(v_check_line_account_info 2) '||
16412: 'Error create account infomation : '||
16413: FND_FLEX_KEYVAL.error_message);
16414: END IF;
16412: 'Error create account infomation : '||
16413: FND_FLEX_KEYVAL.error_message);
16414: END IF;
16415:
16416: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16417: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16418: p_invoice_lines_rec.invoice_line_id,
16419: 'INVALID DISTRIBUTION ACCT',
16420: p_default_last_updated_by,
16420: p_default_last_updated_by,
16421: p_default_last_update_login,
16422: current_calling_sequence) <> TRUE) THEN
16423: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16424: AP_IMPORT_UTILITIES_PKG.Print(
16425: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16426: 'insert_rejections<-'||
16427: current_calling_sequence);
16428: END IF;
16436: ((p_invoice_lines_rec.balancing_segment IS NOT NULL) OR
16437: (p_invoice_lines_rec.cost_center_segment IS NOT NULL) OR
16438: (p_invoice_lines_rec.account_segment IS NOT NULL))) THEN
16439: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16440: AP_IMPORT_UTILITIES_PKG.Print(
16441: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16442: '(v_check_line_account_info 2) '||
16443: 'Check Overlay Segments for dist_code_concatenated ');
16444: END IF;
16460: FND_GLOBAL.USER_ID,
16461: current_calling_sequence,
16462: Null ) <> TRUE) THEN
16463: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16464: AP_IMPORT_UTILITIES_PKG.Print(
16465: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16466: '(v_check_line_account_info 2) '||
16467: ' Overlay_Segments<-'||current_calling_sequence);
16468: END IF;
16467: ' Overlay_Segments<-'||current_calling_sequence);
16468: END IF;
16469: -- Bug 6124714
16470: -- Raise check_account_failure;
16471: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16472: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16473: p_invoice_lines_rec.invoice_line_id,
16474: 'INVALID DISTRIBUTION ACCT',
16475: p_default_last_updated_by,
16475: p_default_last_updated_by,
16476: p_default_last_update_login,
16477: current_calling_sequence) <> TRUE) THEN
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,
16481: 'insert_rejections<-'||
16482: current_calling_sequence);
16483: END IF;
16485: END IF; -- insert rejections
16486:
16487: ELSE -- overlay segs
16488: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16489: AP_IMPORT_UTILITIES_PKG.Print(
16490: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16491: '-----------------> l_unbuilt_flex = '||
16492: l_unbuilt_flex||' l_reason_unbuilt_flex = '||
16493: l_reason_unbuilt_flex||'l_overlayed_ccid: '||
16495: END IF;
16496:
16497: IF (l_overlayed_ccid = -1) THEN
16498: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16499: AP_IMPORT_UTILITIES_PKG.Print(
16500: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16501: '(v_check_line_account_info 4) '||
16502: 'Invalid dist_code_combination_id overlay');
16503: END IF;
16501: '(v_check_line_account_info 4) '||
16502: 'Invalid dist_code_combination_id overlay');
16503: END IF;
16504:
16505: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16506: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16507: p_invoice_lines_rec.invoice_line_id,
16508: 'INVALID ACCT OVERLAY',
16509: p_default_last_updated_by,
16509: p_default_last_updated_by,
16510: p_default_last_update_login,
16511: current_calling_sequence) <> TRUE) THEN
16512: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16513: AP_IMPORT_UTILITIES_PKG.Print(
16514: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16515: 'insert_rejections<-'||
16516: current_calling_sequence);
16517: END IF;
16525: ELSIF ((l_current_invoice_status <> 'N')
16526: AND (l_dist_code_combination_id = -1)) THEN
16527:
16528: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16529: AP_IMPORT_UTILITIES_PKG.Print(
16530: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16531: '(v_check_line_account_info 4.1) '||
16532: 'Invalid dist_code_combination_id overlay');
16533: END IF;
16531: '(v_check_line_account_info 4.1) '||
16532: 'Invalid dist_code_combination_id overlay');
16533: END IF;
16534:
16535: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16536: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16537: p_invoice_lines_rec.invoice_line_id,
16538: 'INVALID ACCT OVERLAY',
16539: p_default_last_updated_by,
16539: p_default_last_updated_by,
16540: p_default_last_update_login,
16541: current_calling_sequence) <> TRUE) THEN
16542: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16543: AP_IMPORT_UTILITIES_PKG.Print(
16544: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16545: 'insert_rejections<-'||
16546: current_calling_sequence);
16547: END IF;
16583: (p_invoice_lines_rec.po_number IS NOT NULL)) AND
16584: ((p_invoice_lines_rec.distribution_set_id is NOT NULL) OR
16585: (p_invoice_lines_rec.distribution_set_name is NOT NULL))) ) THEN
16586: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16587: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16588: '(v_check_line_account_info 3) '||
16589: 'Inconsistent dist Info ');
16590: END IF;
16591:
16588: '(v_check_line_account_info 3) '||
16589: 'Inconsistent dist Info ');
16590: END IF;
16591:
16592: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16593: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16594: p_invoice_lines_rec.invoice_line_id,
16595: 'INCONSISTENT DIST INFO',
16596: p_default_last_updated_by,
16596: p_default_last_updated_by,
16597: p_default_last_update_login,
16598: current_calling_sequence) <> TRUE) THEN
16599: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16600: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16601: 'insert_rejections<-'||
16602: current_calling_sequence);
16603: END IF;
16604: RAISE check_account_failure;
16614: l_dist_code_combination_id <> -1) OR
16615: (l_overlayed_ccid IS NOT NULL AND l_overlayed_ccid <> -1)) THEN
16616: debug_info := '(v_check_line_account_info 4) Inside parent validation';
16617: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16618: AP_IMPORT_UTILITIES_PKG.Print(
16619: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
16620: END IF;
16621: IF (l_overlayed_ccid IS NULL OR l_overlayed_ccid = -1) THEN
16622: l_overlayed_ccid := l_dist_code_combination_id;
16647: FND_GLOBAL.RESP_APPL_ID,
16648: FND_GLOBAL.RESP_ID,
16649: FND_GLOBAL.USER_ID)<>TRUE) THEN
16650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16651: AP_IMPORT_UTILITIES_PKG.Print(
16652: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16653: '((v_check_line_account_info 4) - '||
16654: ' Invalid Code Combination id');
16655: END IF;
16652: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16653: '((v_check_line_account_info 4) - '||
16654: ' Invalid Code Combination id');
16655: END IF;
16656: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16657: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16658: p_invoice_lines_rec.invoice_line_id,
16659: 'INVALID DISTRIBUTION ACCT',
16660: p_default_last_updated_by,
16660: p_default_last_updated_by,
16661: p_default_last_update_login,
16662: current_calling_sequence) <> TRUE) THEN
16663: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16664: AP_IMPORT_UTILITIES_PKG.Print(
16665: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16666: 'insert_rejections<-'||
16667: current_calling_sequence);
16668: END IF;
16671: l_current_invoice_status := 'N';
16672: END IF; -- validate segments
16673: ELSE -- Validate ccid
16674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16675: AP_IMPORT_UTILITIES_PKG.Print(
16676: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16677: '((v_check_line_account_info 4) - '||
16678: ' Invalid Code Combination id');
16679: END IF;
16676: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16677: '((v_check_line_account_info 4) - '||
16678: ' Invalid Code Combination id');
16679: END IF;
16680: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16681: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16682: p_invoice_lines_rec.invoice_line_id,
16683: 'INVALID DISTRIBUTION ACCT',
16684: p_default_last_updated_by,
16684: p_default_last_updated_by,
16685: p_default_last_update_login,
16686: current_calling_sequence) <> TRUE) THEN
16687: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16688: AP_IMPORT_UTILITIES_PKG.Print(
16689: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16690: 'insert_rejections<-'||
16691: current_calling_sequence);
16692: END IF;
16704:
16705: EXCEPTION
16706: WHEN OTHERS THEN
16707: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16708: AP_IMPORT_UTILITIES_PKG.Print(
16709: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
16710: END IF;
16711:
16712: IF (SQLCODE < 0) THEN
16710: END IF;
16711:
16712: IF (SQLCODE < 0) THEN
16713: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16714: AP_IMPORT_UTILITIES_PKG.Print(
16715: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
16716: END IF;
16717: END IF;
16718: RETURN(FALSE);
16764: p_invoice_lines_rec.def_acctg_number_of_periods IS NOT NULL OR
16765: p_invoice_lines_rec.def_acctg_period_type IS NOT NULL))) THEN
16766: debug_info := '(Check_deferred_accounting 1)Validate appropriate def data';
16767: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16768: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16769: debug_info);
16770: END IF;
16771:
16772: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16768: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16769: debug_info);
16770: END IF;
16771:
16772: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16773: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16774: p_invoice_lines_rec.invoice_line_id,
16775: 'INVALID DEFERRED FLAG',
16776: p_default_last_updated_by,
16776: p_default_last_updated_by,
16777: p_default_last_update_login,
16778: current_calling_sequence) <> TRUE) THEN
16779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16780: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16781: 'insert_rejections<-'||current_calling_sequence);
16782: END IF;
16783: RAISE check_defer_acctg_failure;
16784: END IF;
16794: -----------------------------------------------------------------------------
16795: IF (nvl(p_invoice_lines_rec.deferred_acctg_flag, 'N') = 'Y') then
16796: debug_info := '(Check_deferred_accounting 2) Validate start date';
16797: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16798: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16799: debug_info);
16800: END IF;
16801:
16802: IF (p_invoice_lines_rec.def_acctg_start_date IS NULL OR
16801:
16802: IF (p_invoice_lines_rec.def_acctg_start_date IS NULL OR
16803: (p_invoice_lines_rec.def_acctg_number_of_periods IS NULL AND
16804: p_invoice_lines_rec.def_acctg_end_date IS NULL)) THEN
16805: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16806: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16807: p_invoice_lines_rec.invoice_line_id,
16808: 'INCOMPLETE DEF ACCTG INFO',
16809: p_default_last_updated_by,
16809: p_default_last_updated_by,
16810: p_default_last_update_login,
16811: current_calling_sequence) <> TRUE) THEN
16812: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16813: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16814: 'insert_rejections<-'||current_calling_sequence);
16815: END IF;
16816: RAISE check_defer_acctg_failure;
16817: END IF;
16831: AND NVL(adjustment_period_flag, 'N') = 'N';
16832:
16833: IF (l_period_name <> p_invoice_lines_rec.period_name) then
16834: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16835: AP_IMPORT_UTILITIES_PKG.Print(
16836: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16837: 'Def Acctg Start Date is not is same period as line');
16838: END IF;
16839:
16836: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16837: 'Def Acctg Start Date is not is same period as line');
16838: END IF;
16839:
16840: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16841: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16842: p_invoice_lines_rec.invoice_line_id,
16843: 'INVALID DEF START DATE',
16844: p_default_last_updated_by,
16844: p_default_last_updated_by,
16845: p_default_last_update_login,
16846: current_calling_sequence) <> TRUE) THEN
16847: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16848: AP_IMPORT_UTILITIES_PKG.Print(
16849: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16850: 'insert_rejections<-'||current_calling_sequence);
16851: END IF;
16852: RAISE check_defer_acctg_failure;
16856:
16857: EXCEPTION
16858: WHEN NO_DATA_FOUND then
16859: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16860: AP_IMPORT_UTILITIES_PKG.Print(
16861: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16862: 'Def Acctg Start Date is not in open period');
16863: END IF;
16864:
16861: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16862: 'Def Acctg Start Date is not in open period');
16863: END IF;
16864:
16865: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16866: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16867: p_invoice_lines_rec.invoice_line_id,
16868: 'INVALID DEF START DATE',
16869: p_default_last_updated_by,
16869: p_default_last_updated_by,
16870: p_default_last_update_login,
16871: current_calling_sequence) <> TRUE) THEN
16872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16873: AP_IMPORT_UTILITIES_PKG.Print(
16874: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16875: 'insert_rejections<-'||current_calling_sequence);
16876: END IF;
16877: RAISE check_defer_acctg_failure;
16891: p_invoice_lines_rec.def_acctg_start_date is not null AND
16892: p_invoice_lines_rec.def_acctg_end_date is not null) then
16893: debug_info := '(Check_deferred_accounting 3) Validate end date';
16894: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16895: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16896: debug_info);
16897: END IF;
16898:
16899: IF (trunc(p_invoice_lines_rec.def_acctg_start_date) >
16897: END IF;
16898:
16899: IF (trunc(p_invoice_lines_rec.def_acctg_start_date) >
16900: trunc(p_invoice_lines_rec.def_acctg_end_date)) then
16901: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16902: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16903: p_invoice_lines_rec.invoice_line_id,
16904: 'INVALID DEF END DATE',
16905: p_default_last_updated_by,
16905: p_default_last_updated_by,
16906: p_default_last_update_login,
16907: current_calling_sequence) <> TRUE) THEN
16908: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16909: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16910: 'insert_rejections<-'||current_calling_sequence);
16911: END IF;
16912: RAISE check_defer_acctg_failure;
16913: END IF;
16923: IF (nvl(p_invoice_lines_rec.deferred_acctg_flag, 'N') = 'Y' AND
16924: p_invoice_lines_rec.def_acctg_period_type IS NOT NULL) THEN
16925: debug_info := '(Check_deferred_accounting 4) Validate number of periods';
16926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16927: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16928: debug_info);
16929: END IF;
16930:
16931: IF (p_invoice_lines_rec.def_acctg_number_of_periods is NULL OR
16931: IF (p_invoice_lines_rec.def_acctg_number_of_periods is NULL OR
16932: p_invoice_lines_rec.def_acctg_number_of_periods < 0 OR
16933: floor(p_invoice_lines_rec.def_acctg_number_of_periods) <>
16934: ceil(p_invoice_lines_rec.def_acctg_number_of_periods)) THEN
16935: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16936: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16937: p_invoice_lines_rec.invoice_line_id,
16938: 'INVALID DEF NUM OF PER',
16939: p_default_last_updated_by,
16939: p_default_last_updated_by,
16940: p_default_last_update_login,
16941: current_calling_sequence) <> TRUE) THEN
16942: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16943: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16944: 'insert_rejections<-'||current_calling_sequence);
16945: END IF;
16946: RAISE check_defer_acctg_failure;
16947: END IF;
16957: AND lookup_code = p_invoice_lines_rec.def_acctg_period_type;
16958:
16959: EXCEPTION
16960: When NO_DATA_FOUND THEN
16961: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16962: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16963: p_invoice_lines_rec.invoice_line_id,
16964: 'INVALID DEF PER TYPE',
16965: p_default_last_updated_by,
16965: p_default_last_updated_by,
16966: p_default_last_update_login,
16967: current_calling_sequence) <> TRUE) THEN
16968: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
16969: AP_IMPORT_UTILITIES_PKG.Print(
16970: AP_IMPORT_INVOICES_PKG.g_debug_switch,
16971: 'insert_rejections<-'||current_calling_sequence);
16972: END IF;
16973: RAISE check_defer_acctg_failure;
16986: IF (nvl(p_invoice_lines_rec.deferred_acctg_flag, 'N') = 'Y' AND
16987: p_invoice_lines_rec.def_acctg_number_of_periods IS NOT NULL) THEN
16988: debug_info := '(Check_deferred_accounting 5) Validate period type';
16989: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
16990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
16991: debug_info);
16992: End if;
16993:
16994: IF (p_invoice_lines_rec.def_acctg_period_type IS NULL OR
16993:
16994: IF (p_invoice_lines_rec.def_acctg_period_type IS NULL OR
16995: (p_invoice_lines_rec.def_acctg_period_type IS NOT NULL AND
16996: p_invoice_lines_rec.def_acctg_end_date IS NOT NULL)) THEN
16997: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
16998: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
16999: p_invoice_lines_rec.invoice_line_id,
17000: 'INVALID DEF PER TYPE',
17001: p_default_last_updated_by,
17001: p_default_last_updated_by,
17002: p_default_last_update_login,
17003: current_calling_sequence) <> TRUE) THEN
17004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
17005: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17006: 'insert_rejections<-'||current_calling_sequence);
17007: END IF;
17008: RAISE check_defer_acctg_failure;
17009: END IF;
17022:
17023: EXCEPTION
17024: WHEN OTHERS THEN
17025: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
17026: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17027: debug_info);
17028: END IF;
17029:
17030: IF (SQLCODE < 0) then
17028: END IF;
17029:
17030: IF (SQLCODE < 0) then
17031: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
17032: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
17033: SQLERRM);
17034: END IF;
17035: END IF;
17036: RETURN(FALSE);
17148: ------------------------------------------------------------------------
17149: debug_info := '(Check Line Dist Set 1) Validate Distribution Set Id';
17150: ------------------------------------------------------------------------
17151: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17152: AP_IMPORT_UTILITIES_PKG.Print(
17153: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17154: debug_info);
17155: END IF;
17156:
17172: END IF;
17173:
17174: EXCEPTION
17175: WHEN no_data_found THEN
17176: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17177: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17178: p_invoice_lines_rec.invoice_line_id,
17179: 'INVALID DISTRIBUTION SET',
17180: p_default_last_updated_by,
17180: p_default_last_updated_by,
17181: p_default_last_update_login,
17182: current_calling_sequence) <> TRUE) THEN
17183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17184: AP_IMPORT_UTILITIES_PKG.Print(
17185: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17186: 'insert_rejections<- '||current_calling_sequence);
17187: END IF;
17188: RAISE dist_set_check_failure;
17203: -----------------------------------------------------------------------
17204: debug_info := '(Check Line Dist Set 2) Check for INCONSISTENT DIST SET';
17205: -----------------------------------------------------------------------
17206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
17207: AP_IMPORT_UTILITIES_PKG.Print(
17208: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17209: debug_info);
17210: End if;
17211:
17208: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17209: debug_info);
17210: End if;
17211:
17212: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17213: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17214: p_invoice_lines_rec.invoice_line_id,
17215: 'INCONSISTENT DIST SET',
17216: p_default_last_updated_by,
17216: p_default_last_updated_by,
17217: p_default_last_update_login,
17218: current_calling_sequence) <> TRUE) THEN
17219: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17220: AP_IMPORT_UTILITIES_PKG.Print(
17221: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17222: 'insert_rejections<-' ||current_calling_sequence);
17223: END IF;
17224: RAISE dist_set_check_failure;
17233: ----------------------------------------------------------------------
17234: debug_info := '(Check Line Dist Set 3.1) Check for inactive DIST SET';
17235: ----------------------------------------------------------------------
17236: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17237: AP_IMPORT_UTILITIES_PKG.Print(
17238: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17239: debug_info);
17240: END IF;
17241:
17245: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
17246: nvl(trunc(l_inactive_date_per_name),
17247: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN
17248:
17249: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17250: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17251: p_invoice_lines_rec.invoice_line_id,
17252: 'INACTIVE DISTRIBUTION SET',
17253: p_default_last_updated_by,
17253: p_default_last_updated_by,
17254: p_default_last_update_login,
17255: current_calling_sequence) <> TRUE) THEN
17256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17257: AP_IMPORT_UTILITIES_PKG.Print(
17258: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17259: 'insert_rejections<- '||current_calling_sequence);
17260: END IF;
17261: RAISE dist_set_check_failure;
17269: IF ((l_dist_set_id is Null) AND
17270: (l_dist_set_id_per_name is Not Null)) THEN
17271:
17272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17273: AP_IMPORT_UTILITIES_PKG.Print(
17274: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17275: END IF;
17276: l_dist_set_id := l_dist_set_id_per_name;
17277: END IF;
17290: debug_info := '(v_check_line_dist_set 4.1) Get all ' ||
17291: 'the information in the distribution sets';
17292: --------------------------------------------------------------------
17293: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17294: AP_IMPORT_UTILITIES_PKG.Print(
17295: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17296: END IF;
17297: l_dset_lines_tab.DELETE;
17298: OPEN dist_set_lines;
17304: debug_info := '(v_check_line_dist_set 4.2) Loop through read '||
17305: 'dset lines and validate';
17306: ------------------------------------------------------------------
17307: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17308: AP_IMPORT_UTILITIES_PKG.Print(
17309: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17310: END IF;
17311:
17312: FOR i IN l_dset_lines_tab.first..l_dset_lines_tab.last
17316: debug_info := '(v_check_line_dist_set 4.2.a) Get expenditure '||
17317: 'item date if null and dist set line will be project related';
17318: ----------------------------------------------------------------
17319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17320: AP_IMPORT_UTILITIES_PKG.Print(
17321: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17322: END IF;
17323:
17324: IF (p_invoice_lines_rec.expenditure_item_date IS NULL AND
17345: debug_info := '(v_check_line_dist_set 4.2.b) Populate amount '||
17346: 'and base amount for the distribution into PL/SQL table';
17347: -----------------------------------------------------------------
17348: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17349: AP_IMPORT_UTILITIES_PKG.Print(
17350: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17351: END IF;
17352: IF (l_total_percent_distribution <> 100) THEN
17353: l_dset_lines_tab(i).amount := 0;
17384: debug_info := '(v_check_line_dist_set 4.2.c) Populate project '||
17385: 'info if either dist set line has it or invoice line has it';
17386: -------------------------------------------------------------------
17387: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17388: AP_IMPORT_UTILITIES_PKG.Print(
17389: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17390: END IF;
17391:
17392: -- If the distribution set line does not contain project
17450: debug_info := '(v_check_line_dist_set 4.2.d) Populate/validate '||
17451: 'award information';
17452: -----------------------------------------------------------------
17453: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17454: AP_IMPORT_UTILITIES_PKG.Print(
17455: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17456: END IF;
17457: --
17458: -- Default award id from line if award id is not populated
17480:
17481: debug_info := '(v_check_line_dist_set 4.2.d.1) - ' ||
17482: 'Call GMS API to validate award info->temp award dist';
17483: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17484: AP_IMPORT_UTILITIES_PKG.Print(
17485: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17486: END IF;
17487:
17488: ----------------------------------------------------------------
17489: debug_info := '(v_check_line_dist_set 4.2.d.1) - ' ||
17490: 'Get award id from award set from GMS' ;
17491: ----------------------------------------------------------------
17492: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17493: AP_IMPORT_UTILITIES_PKG.Print(
17494: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17495: END IF;
17496: -- Get the value of award_id from GMS API
17497: -- Note that the award in the distribution set line or interface
17512: 'Call GMS API - validate award -l_award_id->' ||
17513: to_char(l_award_id) ;
17514: ---------------------------------------------------------------------
17515: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17516: AP_IMPORT_UTILITIES_PKG.Print(
17517: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17518: END IF;
17519:
17520: IF (GMS_AP_API.v_check_line_award_info (
17603: debug_info := '(v_check_line_dist_set 4.2.d.3) - ' ||
17604: 'After Call GMS API - Invalid GMS Info:Reject';
17605: --------------------------------------------------------------
17606: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17607: AP_IMPORT_UTILITIES_PKG.Print(
17608: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17609: END IF;
17610:
17611: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
17607: AP_IMPORT_UTILITIES_PKG.Print(
17608: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17609: END IF;
17610:
17611: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
17612: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17613: p_invoice_lines_rec.invoice_line_id,
17614: 'INSUFFICIENT GMS INFO',
17615: p_default_last_updated_by,
17625: debug_info := '(v_check_line_dist_set 4.2.e) - ' ||
17626: 'Validate project information';
17627: -----------------------------------------------------------
17628: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17629: AP_IMPORT_UTILITIES_PKG.Print(
17630: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17631: END IF;
17632: IF (l_dset_lines_tab(i).project_id is not null AND
17633: l_current_invoice_status = 'Y') THEN
17696: ||'PA_TRANSACTIONS_PUB.VALIDATE_TRANSACTION Fails'
17697: ||'->Insert Rejection';
17698: --------------------------------------------------------------
17699: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17700: AP_IMPORT_UTILITIES_PKG.Print(
17701: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17702: END IF;
17703:
17704: -- Bug 5214592 . Added the debug message.
17703:
17704: -- Bug 5214592 . Added the debug message.
17705: debug_info := SUBSTR(l_msg_data,1,80);
17706: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17707: AP_IMPORT_UTILITIES_PKG.Print(
17708: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17709: END IF;
17710:
17711:
17708: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17709: END IF;
17710:
17711:
17712: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17713: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17714: p_invoice_lines_rec.invoice_line_id,
17715: 'PA FLEXBUILD FAILED',
17716: p_default_last_updated_by,
17731: debug_info := '(v_check_line_dist_set 4.2.f) - ' ||
17732: 'validate account';
17733: -----------------------------------------------------------------
17734: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17735: AP_IMPORT_UTILITIES_PKG.Print(
17736: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17737: END IF;
17738:
17739: IF ((l_dset_lines_tab(i).project_id IS NULL AND
17759: debug_info := '(v_check_line_dist_set 4.2.f.1) - ' ||
17760: 'validate account from dist set line - no overlay';
17761: -------------------------------------------------------------
17762: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17763: AP_IMPORT_UTILITIES_PKG.Print(
17764: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17765: END IF;
17766:
17767: IF ( NOT (AP_UTILITIES_PKG.IS_CCID_VALID(
17769: p_chart_of_accounts_id,
17770: nvl(p_invoice_lines_rec.accounting_date,
17771: p_gl_date_from_get_info),
17772: current_calling_sequence))) THEN
17773: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17774: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17775: p_invoice_lines_rec.invoice_line_id,
17776: 'INVALID DISTRIBUTION ACCT',
17777: p_default_last_updated_by,
17811: debug_info := '(v_check_line_dist_set 4.2.f.2) - ' ||
17812: 'overlay dist set line account with line overlay data';
17813: -----------------------------------------------------------
17814: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17815: AP_IMPORT_UTILITIES_PKG.Print(
17816: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17817: END IF;
17818: IF ( NOT (AP_UTILITIES_PKG.OVERLAY_SEGMENTS (
17819: p_invoice_lines_rec.balancing_segment,
17836: '-> l_dist_ccid=' ||
17837: to_char(l_overlayed_ccid);
17838: --------------------------------------------------------
17839: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17840: AP_IMPORT_UTILITIES_PKG.Print(
17841: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17842: END IF;
17843: RAISE dist_set_check_failure;
17844: ELSE
17846: ----------------------------------------------------------
17847: -- debug_info := 'Overlay return -1';
17848: ----------------------------------------------------------
17849: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17850: AP_IMPORT_UTILITIES_PKG.Print(
17851: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17852: END IF;
17853:
17854: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17850: AP_IMPORT_UTILITIES_PKG.Print(
17851: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17852: END IF;
17853:
17854: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
17855: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17856: p_invoice_lines_rec.invoice_line_id,
17857: 'INVALID ACCT OVERLAY',
17858: p_default_last_updated_by,
17858: p_default_last_updated_by,
17859: p_default_last_update_login,
17860: current_calling_sequence) <> TRUE) THEN
17861: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17862: AP_IMPORT_UTILITIES_PKG.Print(
17863: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17864: 'insert_rejections<-'||current_calling_sequence);
17865: END IF;
17866: RAISE dist_set_check_failure;
17888: 'AWARD_ID_REMOVE: Check GMS Info ';
17889: -------------------------------------------------------------------
17890: IF (l_current_invoice_status = 'Y' AND l_award_id is not null) THEN
17891: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
17892: AP_IMPORT_UTILITIES_PKG.Print(
17893: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17894: END IF;
17895:
17896: GMS_AP_API.validate_transaction
17910: debug_info := '(v_check_line_dist_set 4.2.d.3) - ' ||
17911: 'After Call GMS API - Invalid GMS Info:Reject';
17912: --------------------------------------------------------------
17913: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17914: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17915: END IF;
17916:
17917: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
17918: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17913: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
17914: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
17915: END IF;
17916:
17917: IF ( AP_IMPORT_UTILITIES_PKG.insert_rejections(
17918: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
17919: p_invoice_lines_rec.invoice_line_id,
17920: 'INSUFFICIENT GMS INFO',
17921: p_default_last_updated_by,
18041: || 'PA_TRANSACTIONS_PUB.VALIDATE_TRANSACTION Fails'
18042: || 'for rounding ->Insert Rejection';
18043: -----------------------------------------------------------------
18044: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN
18045: AP_IMPORT_UTILITIES_PKG.Print(
18046: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18047: END IF;
18048:
18049: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18045: AP_IMPORT_UTILITIES_PKG.Print(
18046: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18047: END IF;
18048:
18049: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18050: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18051: p_invoice_lines_rec.invoice_line_id,
18052: 'PA FLEXBUILD FAILED',
18053: p_default_last_updated_by,
18087:
18088: debug_info := '(v_check_line_dist_set ) -> ' ||
18089: 'exception occurs ->' ;
18090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18091: AP_IMPORT_UTILITIES_PKG.Print(
18092: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18093: debug_info);
18094: END IF;
18095:
18094: END IF;
18095:
18096: IF (SQLCODE < 0) THEN
18097: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18098: AP_IMPORT_UTILITIES_PKG.Print(
18099: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18100: SQLERRM);
18101: END IF;
18102: END IF;
18137: -- Nothing to do since this is PO/RCV matched
18138: --------------------------------------------------------------------------
18139: debug_info := '(Check Qty UOM non PO 1) Nothing to do.';
18140: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18141: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18142: debug_info);
18143: END IF;
18144:
18145: p_current_invoice_status := l_current_invoice_status;
18153: -------------------------------------------------------------------------
18154: debug_info :=
18155: '(Check Qty UOM non PO 2) Check Qty related information vs line type.';
18156: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18157: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18158: debug_info);
18159: END IF;
18160:
18161: IF (p_invoice_lines_rec.line_type_lookup_code NOT IN ( 'ITEM', 'RETROITEM') AND
18161: IF (p_invoice_lines_rec.line_type_lookup_code NOT IN ( 'ITEM', 'RETROITEM') AND
18162: (p_invoice_lines_rec.quantity_invoiced IS NOT NULL OR
18163: p_invoice_lines_rec.unit_of_meas_lookup_code IS NOT NULL OR
18164: p_invoice_lines_rec.unit_price IS NOT NULL)) THEN
18165: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18166: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18167: p_invoice_lines_rec.invoice_line_id,
18168: 'INVALID QTY INFO',
18169: p_default_last_updated_by,
18169: p_default_last_updated_by,
18170: p_default_last_update_login,
18171: current_calling_sequence) <> TRUE) THEN
18172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18173: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18174: 'insert_rejections<-'||current_calling_sequence);
18175: END IF;
18176: RAISE qty_uom_check_failure;
18177: END IF;
18187: -- Only do this check for Item lines.
18188: -------------------------------------------------------------------------
18189: debug_info := '(Check Qty UOM non PO 3) Check Qty information vs UOM';
18190: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18191: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18192: debug_info);
18193: END IF;
18194:
18195: IF (p_invoice_lines_rec.line_type_lookup_code IN ('ITEM', 'RETROITEM') AND
18196: (p_invoice_lines_rec.quantity_invoiced IS NOT NULL OR
18197: p_invoice_lines_rec.unit_price IS NOT NULL) AND
18198: p_invoice_lines_rec.unit_of_meas_lookup_code is NULL) THEN
18199:
18200: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18201: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18202: p_invoice_lines_rec.invoice_line_id,
18203: 'INCOMPLETE QTY INFO',
18204: p_default_last_updated_by,
18204: p_default_last_updated_by,
18205: p_default_last_update_login,
18206: current_calling_sequence) <> TRUE) THEN
18207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18209: 'insert_rejections<-'||current_calling_sequence);
18210: END IF;
18211: RAISE qty_uom_check_failure;
18212: END IF;
18224: -------------------------------------------------------------------------
18225: debug_info := '(Check Qty UOM non PO 4) Check Qty information when UOM '
18226: ||'populated';
18227: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18228: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18229: debug_info);
18230: END IF;
18231:
18232: IF (p_invoice_lines_rec.line_type_lookup_code IN ('ITEM', 'RETROITEM') AND
18239: IF (p_invoice_lines_rec.quantity_invoiced is NULL) THEN
18240: debug_info := '(Check Qty UOM non PO 4a) Qty invoiced is null. Try '
18241: ||'to derive it';
18242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18244: debug_info);
18245: END IF;
18246:
18247: IF (p_invoice_lines_rec.amount IS NOT NULL AND
18254: p_invoice_lines_rec.amount / p_invoice_lines_rec.unit_price;
18255: END IF;
18256:
18257: ELSE -- We dont have enough data to get quantity invoiced
18258: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18259: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18260: p_invoice_lines_rec.invoice_line_id,
18261: 'INCOMPLETE QTY INFO',
18262: p_default_last_updated_by,
18262: p_default_last_updated_by,
18263: p_default_last_update_login,
18264: current_calling_sequence) <> TRUE) THEN
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: 'insert_rejections<-'||current_calling_sequence);
18269: END IF;
18270: RAISE qty_uom_check_failure;
18281: IF (p_invoice_lines_rec.quantity_invoiced is NOT NULL AND
18282: p_invoice_lines_rec.quantity_invoiced = 0) THEN
18283: debug_info := '(Check Qty UOM non PO 4b) Verify qty invoice is non 0';
18284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18286: debug_info);
18287: END IF;
18288:
18289: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18286: debug_info);
18287: END IF;
18288:
18289: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18290: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18291: p_invoice_lines_rec.invoice_line_id,
18292: 'INVALID QTY INFO',
18293: p_default_last_updated_by,
18293: p_default_last_updated_by,
18294: p_default_last_update_login,
18295: current_calling_sequence) <> TRUE) THEN
18296: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18297: AP_IMPORT_UTILITIES_PKG.Print(
18298: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18299: 'insert_rejections<-'||current_calling_sequence);
18300: END IF;
18301: RAISE qty_uom_check_failure;
18312: p_invoice_lines_rec.unit_price is NULL) THEN
18313: debug_info :=
18314: '(Check Qty UOM non PO 4c) Unit price is null. Try to derive it';
18315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18317: debug_info);
18318: END IF;
18319: IF (p_invoice_lines_rec.quantity_invoiced <> 0) THEN
18320: p_invoice_lines_rec.unit_price := p_invoice_lines_rec.amount/
18336: p_invoice_rec.invoice_currency_code)) THEN
18337: debug_info :=
18338: '(Check Qty UOM non PO 4d) Verify consistency in qty information';
18339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18341: debug_info);
18342: End if;
18343: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18344: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18341: debug_info);
18342: End if;
18343: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18344: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18345: p_invoice_lines_rec.invoice_line_id,
18346: 'INCONSISTENT QTY RELATED INFO',
18347: p_default_last_updated_by,
18347: p_default_last_updated_by,
18348: p_default_last_update_login,
18349: current_calling_sequence) <> TRUE) THEN
18350: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18351: AP_IMPORT_UTILITIES_PKG.Print(
18352: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18353: 'insert_rejections<-'||current_calling_sequence);
18354: END IF;
18355: RAISE qty_uom_check_failure;
18364: ------------------------------------------------------------------------
18365: debug_info :=
18366: '(Check Qty UOM non PO 4e) Verify unit of measure is valid';
18367: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18368: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18369: debug_info);
18370: END IF;
18371: BEGIN
18372: SELECT 'Valid UOM'
18376: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
18377: < nvl(disable_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1) ;
18378: EXCEPTION
18379: WHEN no_data_found THEN
18380: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18381: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18382: p_invoice_lines_rec.invoice_line_id,
18383: 'INVALID UOM',
18384: p_default_last_updated_by,
18384: p_default_last_updated_by,
18385: p_default_last_update_login,
18386: current_calling_sequence) <> TRUE) THEN
18387: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18388: AP_IMPORT_UTILITIES_PKG.Print(
18389: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18390: 'insert_rejections<-'||current_calling_sequence);
18391: END IF;
18392: RAISE qty_uom_check_failure;
18402:
18403: EXCEPTION
18404: WHEN OTHERS THEN
18405: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18406: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18407: debug_info);
18408: END IF;
18409:
18410: IF (SQLCODE < 0) then
18408: END IF;
18409:
18410: IF (SQLCODE < 0) then
18411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
18412: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18413: SQLERRM);
18414: END IF;
18415: END IF;
18416: RETURN(FALSE);
18471: --------------------------------------------------------------------------
18472: debug_info := '(Check AWT Group 1) Check for AWT Group Id and Group Name '
18473: ||'Inconsistency.';
18474: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18475: AP_IMPORT_UTILITIES_PKG.Print(
18476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18477: END IF;
18478:
18479: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18475: AP_IMPORT_UTILITIES_PKG.Print(
18476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18477: END IF;
18478:
18479: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18480: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18481: p_invoice_lines_rec.invoice_line_id,
18482: 'INCONSISTENT AWT GROUP',
18483: p_default_last_updated_by,
18483: p_default_last_updated_by,
18484: p_default_last_update_login,
18485: current_calling_sequence) <> TRUE) THEN
18486: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18487: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18488: 'insert_rejections<-'||current_calling_sequence);
18489: END IF;
18490: RAISE awt_group_check_failure;
18491: END IF;
18496: -- Check for Inactive AWT Group
18497: --------------------------------------------------------------------------
18498: debug_info := '(Check AWT Group 2) Check for Inactive AWT Group';
18499: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18500: AP_IMPORT_UTILITIES_PKG.Print(
18501: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18502: END IF;
18503:
18504: IF ((l_awt_group_id IS NOT NULL AND
18510: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18511: --------------------------------------------------------------
18512: -- inactive AWT group (as per id)
18513: --------------------------------------------------------------
18514: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18515: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18516: p_invoice_lines_rec.invoice_line_id,
18517: 'INACTIVE AWT GROUP',
18518: p_default_last_updated_by,
18518: p_default_last_updated_by,
18519: p_default_last_update_login,
18520: current_calling_sequence) <> TRUE) THEN
18521: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18522: AP_IMPORT_UTILITIES_PKG.Print(
18523: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18524: 'insert_rejections<-'||current_calling_sequence);
18525: END IF;
18526: RAISE awt_group_check_failure;
18535: ---------------------------------------------------------------
18536: -- inactive AWT group (per name)
18537: --
18538: ---------------------------------------------------------------
18539: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18540: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18541: p_invoice_lines_rec.invoice_line_id,
18542: 'INACTIVE AWT GROUP',
18543: p_default_last_updated_by,
18543: p_default_last_updated_by,
18544: p_default_last_update_login,
18545: current_calling_sequence) <> TRUE) THEN
18546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18547: AP_IMPORT_UTILITIES_PKG.Print(
18548: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18549: 'insert_rejections<-'||current_calling_sequence);
18550: END IF;
18551: RAISE awt_group_check_failure;
18568:
18569:
18570: EXCEPTION
18571: WHEN no_data_found THEN
18572: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18573: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18574: p_invoice_lines_rec.invoice_line_id,
18575: 'INVALID AWT GROUP',
18576: p_default_last_updated_by,
18576: p_default_last_updated_by,
18577: p_default_last_update_login,
18578: current_calling_sequence) <> TRUE) THEN
18579: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18580: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18581: 'insert_rejections<-'||current_calling_sequence);
18582: END IF;
18583: RAISE awt_group_check_failure;
18584: END IF;
18587: RETURN (TRUE);
18588:
18589: WHEN OTHERS THEN
18590: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18591: AP_IMPORT_UTILITIES_PKG.Print(
18592: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18593: END IF;
18594:
18595: IF (SQLCODE < 0) THEN
18593: END IF;
18594:
18595: IF (SQLCODE < 0) THEN
18596: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18597: AP_IMPORT_UTILITIES_PKG.Print(
18598: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
18599: END IF;
18600: END IF;
18601: RETURN(FALSE);
18656: --------------------------------------------------------------------------
18657: debug_info := '(Check Pay AWT Group 1) Check for Pay AWT Group Id and Pay Group Name '
18658: ||'Inconsistency.';
18659: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18660: AP_IMPORT_UTILITIES_PKG.Print(
18661: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18662: END IF;
18663:
18664: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18660: AP_IMPORT_UTILITIES_PKG.Print(
18661: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18662: END IF;
18663:
18664: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18665: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18666: p_invoice_lines_rec.invoice_line_id,
18667: 'INCONSISTENT PAY AWT GROUP',
18668: p_default_last_updated_by,
18668: p_default_last_updated_by,
18669: p_default_last_update_login,
18670: current_calling_sequence) <> TRUE) THEN
18671: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18672: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18673: 'insert_rejections<-'||current_calling_sequence);
18674: END IF;
18675: RAISE pay_awt_group_check_failure;
18676: END IF;
18681: -- Check for Inactive Pay AWT Group
18682: --------------------------------------------------------------------------
18683: debug_info := '(Check Pay AWT Group 2) Check for Inactive Pay AWT Group';
18684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18685: AP_IMPORT_UTILITIES_PKG.Print(
18686: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18687: END IF;
18688:
18689: IF ((l_pay_awt_group_id IS NOT NULL AND
18695: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18696: --------------------------------------------------------------
18697: -- inactive pay AWT group (as per id)
18698: --------------------------------------------------------------
18699: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18700: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18701: p_invoice_lines_rec.invoice_line_id,
18702: 'INACTIVE PAY AWT GROUP',
18703: p_default_last_updated_by,
18703: p_default_last_updated_by,
18704: p_default_last_update_login,
18705: current_calling_sequence) <> TRUE) THEN
18706: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18707: AP_IMPORT_UTILITIES_PKG.Print(
18708: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18709: 'insert_rejections<-'||current_calling_sequence);
18710: END IF;
18711: RAISE pay_awt_group_check_failure;
18720: ---------------------------------------------------------------
18721: -- inactive pay AWT group (per name)
18722: --
18723: ---------------------------------------------------------------
18724: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18725: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18726: p_invoice_lines_rec.invoice_line_id,
18727: 'INACTIVE PAY AWT GROUP',
18728: p_default_last_updated_by,
18728: p_default_last_updated_by,
18729: p_default_last_update_login,
18730: current_calling_sequence) <> TRUE) THEN
18731: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18732: AP_IMPORT_UTILITIES_PKG.Print(
18733: AP_IMPORT_INVOICES_PKG.g_debug_switch,
18734: 'insert_rejections<-'||current_calling_sequence);
18735: END IF;
18736: RAISE pay_awt_group_check_failure;
18753:
18754:
18755: EXCEPTION
18756: WHEN no_data_found THEN
18757: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18758: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18759: p_invoice_lines_rec.invoice_line_id,
18760: 'INVALID PAY AWT GROUP',
18761: p_default_last_updated_by,
18761: p_default_last_updated_by,
18762: p_default_last_update_login,
18763: current_calling_sequence) <> TRUE) THEN
18764: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18765: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18766: 'insert_rejections<-'||current_calling_sequence);
18767: END IF;
18768: RAISE pay_awt_group_check_failure;
18769: END IF;
18772: RETURN (TRUE);
18773:
18774: WHEN OTHERS THEN
18775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18776: AP_IMPORT_UTILITIES_PKG.Print(
18777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18778: END IF;
18779:
18780: IF (SQLCODE < 0) THEN
18778: END IF;
18779:
18780: IF (SQLCODE < 0) THEN
18781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18782: AP_IMPORT_UTILITIES_PKG.Print(
18783: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
18784: END IF;
18785: END IF;
18786: RETURN(FALSE);
18821: --------------------------------------------------------------------------
18822: debug_info := '(Check Duplicate Line Number 1) Check for Duplicate '
18823: ||'Line Number.';
18824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18825: AP_IMPORT_UTILITIES_PKG.Print(
18826: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18827: END IF;
18828:
18829: SELECT count(*)
18835: IF (l_line_count > 1) THEN
18836: debug_info := '(Check Duplicate Line Number 2) Duplicate Line '
18837: ||'Number Found.';
18838: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18839: AP_IMPORT_UTILITIES_PKG.Print(
18840: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18841: END IF;
18842:
18843: -- bug 2581097 added context for XML GATEWAY
18840: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18841: END IF;
18842:
18843: -- bug 2581097 added context for XML GATEWAY
18844: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18845: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18846: p_invoice_lines_rec.invoice_line_id,
18847: 'DUPLICATE LINE NUMBER',
18848: p_default_last_updated_by,
18851: 'Y',
18852: 'INVOICE LINE NUMBER',
18853: p_invoice_lines_rec.line_number) <> TRUE) THEN
18854: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18855: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18856: 'insert_rejections<-'||current_calling_sequence);
18857: END IF;
18858: RAISE line_num_check_failure;
18859: END IF;
18865: RETURN (TRUE);
18866: EXCEPTION
18867: WHEN OTHERS THEN
18868: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18869: AP_IMPORT_UTILITIES_PKG.Print(
18870: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18871: END IF;
18872:
18873: IF (SQLCODE < 0) THEN
18871: END IF;
18872:
18873: IF (SQLCODE < 0) THEN
18874: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18875: AP_IMPORT_UTILITIES_PKG.Print(
18876: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
18877: END IF;
18878: END IF;
18879: RETURN(FALSE);
18940: --------------------------------------------------------------------------
18941: debug_info :=
18942: '(Check Misc Line Info 1) Check for Invalid Line type lookup code.';
18943: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18944: AP_IMPORT_UTILITIES_PKG.Print(
18945: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18946: END IF;
18947:
18948: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18944: AP_IMPORT_UTILITIES_PKG.Print(
18945: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
18946: END IF;
18947:
18948: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18949: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18950: p_invoice_lines_rec.invoice_line_id,
18951: 'INVALID LINE TYPE LOOKUP',
18952: p_default_last_updated_by,
18952: p_default_last_updated_by,
18953: p_default_last_update_login,
18954: current_calling_sequence) <> TRUE) THEN
18955: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18956: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18957: 'insert_rejections<-' ||current_calling_sequence);
18958: END IF;
18959: RAISE misc_line_info_failure;
18960: END IF;
18969: ----------------------------------------------------------------------
18970: debug_info := '(Check Misc Line Info 2) Line type lookup code '
18971: ||'cannot be AWT';
18972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18973: AP_IMPORT_UTILITIES_PKG.Print(
18974: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18975: END IF;
18976:
18977: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18973: AP_IMPORT_UTILITIES_PKG.Print(
18974: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
18975: END IF;
18976:
18977: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
18978: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
18979: p_invoice_lines_rec.invoice_line_id,
18980: 'LINE TYPE CANNOT BE AWT',
18981: p_default_last_updated_by,
18981: p_default_last_updated_by,
18982: p_default_last_update_login,
18983: current_calling_sequence) <> TRUE) THEN
18984: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
18985: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
18986: 'insert_rejections<-' ||current_calling_sequence);
18987: END IF;
18988: RAISE misc_line_info_failure;
18989: END IF;
18999:
19000: debug_info := '(Check Misc Line Info 3) Defaulting type 1099 from
19001: supplier';
19002: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19003: AP_IMPORT_UTILITIES_PKG.Print(
19004: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
19005: END IF;
19006:
19007: Open c_type_1099(p_invoice_rec.vendor_id);
19018: -- Invalid type_1099
19019: --------------------------------------------------------------------------
19020: debug_info := '(Check Misc Line Info 3) Check Type 1099';
19021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19022: AP_IMPORT_UTILITIES_PKG.Print(
19023: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
19024: END IF;
19025:
19026: -- Invalid Info
19038: IF l_ret_code = '1' THEN -- means l_key found in cache
19039: l_income_tax_type := l_values(1).varchar2_1;
19040: l_exception := l_values(1).varchar2_2;
19041: IF l_exception = 'TRUE' THEN
19042: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19043: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19044: p_invoice_lines_rec.invoice_line_id,
19045: 'INVALID TYPE 1099',
19046: p_default_last_updated_by,
19046: p_default_last_updated_by,
19047: p_default_last_update_login,
19048: current_calling_sequence) <> TRUE) THEN
19049: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19050: AP_IMPORT_UTILITIES_PKG.Print(
19051: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19052: 'insert_rejections<-' ||current_calling_sequence);
19053: END IF;
19054: RAISE misc_line_info_failure;
19059:
19060: ELSE -- IF l_key not found in cache(l_ret_code other than 1) .. cache it
19061: debug_info := '(Check Misc Line Info 3.1) Check Type 1099 in Else';
19062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19063: AP_IMPORT_UTILITIES_PKG.Print(
19064: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
19065: END IF;
19066:
19067: BEGIN
19087:
19088: EXCEPTION
19089: WHEN NO_DATA_FOUND THEN
19090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19091: AP_IMPORT_UTILITIES_PKG.Print(
19092: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19093: '(v_check_misc_line_info 3) Invalid Type 1099');
19094: END IF;
19095:
19092: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19093: '(v_check_misc_line_info 3) Invalid Type 1099');
19094: END IF;
19095:
19096: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19097: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19098: p_invoice_lines_rec.invoice_line_id,
19099: 'INVALID TYPE 1099',
19100: p_default_last_updated_by,
19100: p_default_last_updated_by,
19101: p_default_last_update_login,
19102: current_calling_sequence) <> TRUE) THEN
19103: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19104: AP_IMPORT_UTILITIES_PKG.Print(
19105: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19106: 'insert_rejections<-' ||current_calling_sequence);
19107: END IF;
19108: RAISE misc_line_info_failure;
19135: -- Invalid income_tax_region
19136: --------------------------------------------------------------------------
19137: debug_info := '(Check Misc Line Info 4) Check income_tax_region';
19138: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19139: AP_IMPORT_UTILITIES_PKG.Print(
19140: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
19141: END IF;
19142:
19143: -- Invalid Info
19154: IF l_ret_code1 = '1' THEN -- means l_key found in cache
19155: l_income_tax_region := l_values1(1).varchar2_1;
19156: l_exception1 := l_values1(1).varchar2_2;
19157: IF l_exception1 = 'TRUE' THEN
19158: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19159: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19160: p_invoice_lines_rec.invoice_line_id,
19161: 'INVALID TAX REGION',
19162: p_default_last_updated_by,
19162: p_default_last_updated_by,
19163: p_default_last_update_login,
19164: current_calling_sequence) <> TRUE) THEN
19165: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19166: AP_IMPORT_UTILITIES_PKG.Print(
19167: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19168: 'insert_rejections<-' ||current_calling_sequence);
19169: END IF;
19170: RAISE misc_line_info_failure;
19175:
19176: ELSE
19177: debug_info := '(Check Misc Line Info 4.1) Check income_tax_region in Else';
19178: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19179: AP_IMPORT_UTILITIES_PKG.Print(
19180: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
19181: END IF;
19182:
19183: BEGIN
19204:
19205: EXCEPTION
19206: WHEN NO_DATA_FOUND THEN
19207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19209: '(v_check_misc_line_info 4) Invalid income tax region');
19210: END IF;
19211: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19212: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19209: '(v_check_misc_line_info 4) Invalid income tax region');
19210: END IF;
19211: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19212: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19213: p_invoice_lines_rec.invoice_line_id,
19214: 'INVALID TAX REGION',
19215: p_default_last_updated_by,
19215: p_default_last_updated_by,
19216: p_default_last_update_login,
19217: current_calling_sequence) <> TRUE) THEN
19218: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19219: AP_IMPORT_UTILITIES_PKG.Print(
19220: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19221: 'insert_rejections<-' ||current_calling_sequence);
19222: END IF;
19223: RAISE misc_line_info_failure;
19247:
19248: EXCEPTION
19249: WHEN OTHERS THEN
19250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19251: AP_IMPORT_UTILITIES_PKG.Print(
19252: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
19253: END IF;
19254:
19255: IF (SQLCODE < 0) THEN
19253: END IF;
19254:
19255: IF (SQLCODE < 0) THEN
19256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19257: AP_IMPORT_UTILITIES_PKG.Print(
19258: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
19259: END IF;
19260: END IF;
19261: RETURN(FALSE);
19295: ---------------------------------------------------------------------------
19296: debug_info := '(Check Prorate Info 1) Checking the total dist amount to be '
19297: ||'prorated';
19298: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19299: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19300: debug_info);
19301: END IF;
19302:
19303: SELECT SUM(nvl(AIL.amount,0))
19309: p_invoice_lines_rec.line_group_number is NULL)
19310: AND line_type_lookup_code = 'ITEM';
19311:
19312: IF (l_item_line_total = 0 ) THEN
19313: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19314: AP_IMPORT_INVOICES_PKG.g_invoices_table,
19315: p_invoice_lines_rec.invoice_line_id,
19316: 'CANNOT PRORATE TO ZERO',
19317: p_default_last_updated_by,
19317: p_default_last_updated_by,
19318: p_default_last_update_login,
19319: current_calling_sequence) <> TRUE ) THEN
19320: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19321: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19322: 'insert_rejections<- '||current_calling_sequence);
19323: END IF;
19324: RAISE prorate_line_info_failure;
19325: END IF;
19331: -- Prorating across non-item lines is not allowed
19332: ---------------------------------------------------------------------------
19333: debug_info := '(Check Prorate Info 2) Checking lines to prorate across.';
19334: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19335: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19336: debug_info);
19337: END IF;
19338:
19339: IF (p_invoice_lines_rec.line_group_number IS NOT NULL) THEN
19347:
19348: -- If number of lines other than Item is more than 1 (1 is itself)
19349: -- raise rejection
19350: IF (l_count_non_item_lines > 1) THEN
19351: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19352: AP_IMPORT_INVOICES_PKG.g_invoices_table,
19353: p_invoice_lines_rec.invoice_line_id,
19354: 'CANNOT PRORATE TO NON ITEM',
19355: p_default_last_updated_by,
19355: p_default_last_updated_by,
19356: p_default_last_update_login,
19357: current_calling_sequence) <> TRUE ) THEN
19358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19360: 'insert_rejections<- '||current_calling_sequence);
19361: END IF;
19362: RAISE prorate_line_info_failure;
19363: END IF;
19369:
19370: EXCEPTION
19371: WHEN OTHERS THEN
19372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19374: debug_info);
19375: END IF;
19376:
19377: IF (SQLCODE < 0) THEN
19375: END IF;
19376:
19377: IF (SQLCODE < 0) THEN
19378: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19379: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19380: SQLERRM);
19381: END IF;
19382: END IF;
19383: RETURN(FALSE);
19408:
19409: BEGIN
19410: -- Update the calling sequence
19411: --
19412: current_calling_sequence := 'AP_IMPORT_UTILITIES_PKG.v_check_asset_ifno<-'
19413: ||P_calling_sequence;
19414:
19415: -------------------------------------------------------------------------------
19416: -- Step 1 - If line type is other than item and any of the asset fields is
19418: --
19419: ----------------------------------------------------------------------------
19420: debug_info := '(Check Asset Book 1) Verify asset info not on non-item line';
19421: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19423: debug_info);
19424: END IF;
19425:
19426: --Retropricing
19425:
19426: --Retropricing
19427: IF (p_invoice_lines_rec.line_type_lookup_code NOT IN ('ITEM', 'RETROITEM')) THEN
19428: IF (p_invoice_lines_rec.serial_number IS NOT NULL) THEN
19429: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19430: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19431: p_invoice_lines_rec.invoice_line_id,
19432: 'INVALID SERIAL NUMBER INFO',
19433: p_default_last_updated_by,
19433: p_default_last_updated_by,
19434: p_default_last_update_login,
19435: current_calling_sequence) <> TRUE ) THEN
19436: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19437: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19438: 'insert_rejections<- '||current_calling_sequence);
19439: END IF;
19440: RAISE asset_line_info_failure;
19441: END IF;
19442: l_current_invoice_status := 'N';
19443: END IF; -- Serial number is not null
19444:
19445: IF (p_invoice_lines_rec.manufacturer IS NOT NULL) THEN
19446: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19447: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19448: p_invoice_lines_rec.invoice_line_id,
19449: 'INVALID MANUFACTURER INFO',
19450: p_default_last_updated_by,
19450: p_default_last_updated_by,
19451: p_default_last_update_login,
19452: current_calling_sequence) <> TRUE ) THEN
19453: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19454: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19455: 'insert_rejections<- '||current_calling_sequence);
19456: END IF;
19457: RAISE asset_line_info_failure;
19458: END IF;
19459: l_current_invoice_status := 'N';
19460: END IF; -- Manufacturer is not null
19461:
19462: IF (p_invoice_lines_rec.model_number IS NOT NULL) THEN
19463: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19464: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19465: p_invoice_lines_rec.invoice_line_id,
19466: 'INVALID MODEL NUMBER INFO',
19467: p_default_last_updated_by,
19467: p_default_last_updated_by,
19468: p_default_last_update_login,
19469: current_calling_sequence) <> TRUE ) Then
19470: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19471: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19472: 'insert_rejections<- '||current_calling_sequence);
19473: END IF;
19474: RAISE asset_line_info_failure;
19475: END IF;
19476: l_current_invoice_status := 'N';
19477: END IF; -- Model Number is not null
19478:
19479: IF (p_invoice_lines_rec.warranty_number is not null) then
19480: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19481: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19482: p_invoice_lines_rec.invoice_line_id,
19483: 'INVALID WARRANTY NUM INFO',
19484: p_default_last_updated_by,
19484: p_default_last_updated_by,
19485: p_default_last_update_login,
19486: current_calling_sequence) <> TRUE ) Then
19487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19488: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19489: 'insert_rejections<- '||current_calling_sequence);
19490: END IF;
19491: RAISE asset_line_info_failure;
19492: END IF;
19502: --
19503: ----------------------------------------------------------------------------
19504: debug_info := '(Check Asset Book 2) Verify asset book if not null';
19505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19506: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19507: debug_info);
19508: END IF;
19509:
19510: IF (p_invoice_lines_rec.asset_book_type_code IS NOT NULL) THEN
19518: AND bc.date_ineffective IS NULL;
19519:
19520: EXCEPTION
19521: WHEN no_data_found then
19522: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19523: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19524: p_invoice_lines_rec.invoice_line_id,
19525: 'INVALID ASSET BOOK CODE',
19526: p_default_last_updated_by,
19526: p_default_last_updated_by,
19527: p_default_last_update_login,
19528: current_calling_sequence) <> TRUE ) Then
19529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19530: AP_IMPORT_UTILITIES_PKG.Print(
19531: AP_IMPORT_INVOICES_PKG.g_debug_switch,
19532: 'insert_rejections<- '||current_calling_sequence);
19533: END IF;
19534: RAISE asset_line_info_failure;
19550: --
19551: ----------------------------------------------------------------------------
19552: debug_info := '(Check Asset Book 3) Verify asset category if not null';
19553: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19554: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19555: debug_info);
19556: End if;
19557:
19558: If (p_invoice_lines_rec.asset_category_id is not null) then
19564: WHERE category_id = p_invoice_lines_rec.asset_category_id;
19565:
19566: EXCEPTION
19567: WHEN no_data_found then
19568: If (AP_IMPORT_UTILITIES_PKG.insert_rejections(
19569: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
19570: p_invoice_lines_rec.invoice_line_id,
19571: 'INVALID ASSET CATEGORY ID',
19572: p_default_last_updated_by,
19572: p_default_last_updated_by,
19573: p_default_last_update_login,
19574: current_calling_sequence) <> TRUE ) Then
19575: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19576: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19577: 'insert_rejections<- '||current_calling_sequence);
19578: END IF;
19579: RAISE asset_line_info_failure;
19580: END IF;
19589: RETURN (TRUE);
19590: EXCEPTION
19591: WHEN OTHERS THEN
19592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19593: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19594: debug_info);
19595: END IF;
19596:
19597: IF (SQLCODE < 0) then
19595: END IF;
19596:
19597: IF (SQLCODE < 0) then
19598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
19599: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19600: SQLERRM);
19601: END IF;
19602: END IF;
19603: RETURN(FALSE);
19660: -------------------------------------------------------------------------
19661: debug_info := '(Check tax info 1) Check for control_amount';
19662: -------------------------------------------------------------------------
19663: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19664: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19665: debug_info);
19666: END IF;
19667:
19668: --Contract Payments: Modified the IF condition to add 'PREPAYMENT'.
19672: (p_invoice_rec.invoice_type_lookup_code IN ('CREDIT', 'DEBIT') and -- bug 7299826
19673: 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)
19674: ) THEN
19675:
19676: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
19677: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
19678: p_invoice_rec.invoice_id,
19679: 'INVALID CONTROL AMOUNT',
19680: p_default_last_updated_by,
19681: p_default_last_update_login,
19682: current_calling_sequence) <> TRUE) THEN
19683:
19684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19685: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19686: 'insert_rejections<-'||current_calling_sequence);
19687: END IF;
19688: RAISE check_tax_failure;
19689:
19694: -------------------------------------------------------------------------
19695: debug_info := '(Check tax info 2) Check for tax_related_invoice_id';
19696: -------------------------------------------------------------------------
19697: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19698: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19699: debug_info);
19700: END IF;
19701:
19702: IF ( p_invoice_rec.tax_related_invoice_id IS NOT NULL) THEN
19713:
19714: EXCEPTION
19715: WHEN no_data_found THEN
19716:
19717: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
19718: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
19719: p_invoice_rec.invoice_id,
19720: 'INVALID TAX RELATED INVOICE ID',
19721: p_default_last_updated_by,
19722: p_default_last_update_login,
19723: current_calling_sequence) <> TRUE) THEN
19724:
19725: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19726: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19727: 'insert_rejections<-'||current_calling_sequence);
19728: END IF;
19729: RAISE check_tax_failure;
19730:
19736: -------------------------------------------------------------------------
19737: debug_info := '(Check tax info 3) Check for calc_tax_during_import_flag';
19738: -------------------------------------------------------------------------
19739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19740: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19741: debug_info);
19742: END IF;
19743:
19744: IF ( p_invoice_rec.calc_tax_during_import_flag = 'Y') THEN
19757: END;
19758:
19759: IF (l_exist_tax_line IS NOT NULL) THEN
19760:
19761: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
19762: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
19763: p_invoice_rec.invoice_id,
19764: 'CANNOT CONTAIN TAX LINES',
19765: p_default_last_updated_by,
19765: p_default_last_updated_by,
19766: p_default_last_update_login,
19767: current_calling_sequence) <> TRUE) THEN
19768: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19769: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19770: 'insert_rejections<-'||current_calling_sequence);
19771: END IF;
19772: RAISE check_tax_failure;
19773: END IF;
19781: 'provided for inclusive lines when the invoice has more than '||
19782: 'one item line.';
19783: -------------------------------------------------------------------------
19784: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19785: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19786: debug_info);
19787: END IF;
19788:
19789: BEGIN
19807:
19808: END;
19809:
19810: IF (l_alloc_not_provided = 'Y') THEN
19811: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
19812: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
19813: p_invoice_rec.invoice_id,
19814: 'NO ALLOCATION RULES FOUND',
19815: p_default_last_updated_by,
19815: p_default_last_updated_by,
19816: p_default_last_update_login,
19817: current_calling_sequence) <> TRUE) THEN
19818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19819: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19820: 'insert_rejections<-'||current_calling_sequence);
19821: END IF;
19822: RAISE check_tax_failure;
19823: END IF;
19828: -------------------------------------------------------------------------
19829: debug_info := '(Check tax info 5) Check if any non-tax line has tax information';
19830: -------------------------------------------------------------------------
19831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19832: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19833: debug_info);
19834: END IF;
19835:
19836: BEGIN
19856:
19857: END;
19858:
19859: IF (l_tax_found_in_nontax_line = 'Y') THEN
19860: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
19861: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
19862: p_invoice_rec.invoice_id,
19863: 'TAX DATA FOUND ON NONTAX LINES',
19864: p_default_last_updated_by,
19864: p_default_last_updated_by,
19865: p_default_last_update_login,
19866: current_calling_sequence) <> TRUE) THEN
19867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19868: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19869: 'insert_rejections<-'||current_calling_sequence);
19870: END IF;
19871: RAISE check_tax_failure;
19872: END IF;
19878: debug_info := '(Check tax info 6) Check if an invoice has a tax line '||
19879: 'matched to receipt and another allocated to item lines';
19880: -------------------------------------------------------------------------
19881: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19882: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19883: debug_info);
19884: END IF;
19885:
19886: -- Validation: A tax-only invoice should not have a tax line matched to receipt and
19910:
19911: END;
19912:
19913: IF (l_tax_lines_cannot_coexist = 'Y') THEN
19914: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
19915: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
19916: p_invoice_rec.invoice_id,
19917: 'TAX LINE TYPES CANNOT COEXIST',
19918: p_default_last_updated_by,
19918: p_default_last_updated_by,
19919: p_default_last_update_login,
19920: current_calling_sequence) <> TRUE) THEN
19921: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19922: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19923: 'insert_rejections<-'||current_calling_sequence);
19924: END IF;
19925: RAISE check_tax_failure;
19926: END IF;
19936:
19937: EXCEPTION
19938: WHEN OTHERS THEN
19939: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19940: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19941: debug_info);
19942: END IF;
19943:
19944: IF (SQLCODE < 0) then
19942: END IF;
19943:
19944: IF (SQLCODE < 0) then
19945: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
19946: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
19947: SQLERRM);
19948: END IF;
19949: END IF;
19950: RETURN(FALSE);
20034: debug_info := '(Check Tax Line Info 1) Check for Invalid sign in the '||
20035: 'assessable value';
20036: --------------------------------------------------------------------------
20037: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20038: AP_IMPORT_UTILITIES_PKG.Print(
20039: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20040: END IF;
20041:
20042: IF (NVL(p_invoice_lines_rec.assessable_value, 0) <> 0) THEN
20041:
20042: IF (NVL(p_invoice_lines_rec.assessable_value, 0) <> 0) THEN
20043: IF (SIGN(p_invoice_lines_rec.assessable_value) <>
20044: SIGN(p_invoice_lines_rec.amount)) THEN
20045: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20046: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20047: p_invoice_lines_rec.invoice_line_id,
20048: 'INVALID SIGN ASSESSABLE VALUE',
20049: p_default_last_updated_by,
20049: p_default_last_updated_by,
20050: p_default_last_update_login,
20051: current_calling_sequence) <> TRUE) THEN
20052: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20053: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20054: 'insert_rejections<-' ||current_calling_sequence);
20055: END IF;
20056: RAISE tax_line_info_failure;
20057: END IF;
20066: debug_info := '(Check Tax Line Info 2) Check for control_amount greater '||
20067: 'than line amount';
20068: --------------------------------------------------------------------------
20069: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20070: AP_IMPORT_UTILITIES_PKG.Print(
20071: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20072: END IF;
20073:
20074: IF (NVL(p_invoice_lines_rec.control_amount, 0) <> 0) THEN
20082: WHERE aii.invoice_id = aili.invoice_id
20083: AND aili.ROWID = p_invoice_lines_rec.row_id;
20084:
20085: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20086: AP_IMPORT_UTILITIES_PKG.Print(
20087: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20088: END IF;
20089: EXCEPTION
20090: WHEN OTHERS THEN
20088: END IF;
20089: EXCEPTION
20090: WHEN OTHERS THEN
20091: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20092: AP_IMPORT_UTILITIES_PKG.Print(
20093: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
20094: END IF;
20095: END;
20096:
20097: IF(l_inv_hdr_inv_type IN ('CREDIT', 'DEBIT') AND --Bug 7299826 Added DEBIT
20098: (abs(p_invoice_lines_rec.control_amount) >
20099: abs(p_invoice_lines_rec.amount))) THEN
20100:
20101: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20102: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20103: p_invoice_lines_rec.invoice_line_id,
20104: 'INVALID CONTROL AMOUNT ',
20105: p_default_last_updated_by,
20106: p_default_last_update_login,
20107: current_calling_sequence) <> TRUE) THEN
20108:
20109: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20110: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20111: 'insert_rejections<-' ||current_calling_sequence);
20112: END IF;
20113:
20114: RAISE tax_line_info_failure;
20117: l_current_invoice_status := 'N';
20118: --Bug 6925674 (Base bug6905106) Ends
20119: ELSIF (l_inv_hdr_inv_type NOT IN ('CREDIT', 'DEBIT') and --bug 7299826
20120: (p_invoice_lines_rec.control_amount > p_invoice_lines_rec.amount)) THEN
20121: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20122: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20123: p_invoice_lines_rec.invoice_line_id,
20124: 'INVALID CONTROL AMOUNT ',
20125: p_default_last_updated_by,
20125: p_default_last_updated_by,
20126: p_default_last_update_login,
20127: current_calling_sequence) <> TRUE) THEN
20128: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20129: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20130: 'insert_rejections<-' ||current_calling_sequence);
20131: END IF;
20132:
20133: RAISE tax_line_info_failure;
20142: debug_info := '(Check Tax Line Info 3) Tax should not be inclusive if '||
20143: 'tax line is PO matched';
20144: --------------------------------------------------------------------------
20145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20146: AP_IMPORT_UTILITIES_PKG.Print(
20147: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20148: END IF;
20149:
20150: IF (p_invoice_lines_rec.line_type_lookup_code = 'TAX'
20157: p_invoice_lines_rec.po_shipment_num IS NOT NULL OR
20158: p_invoice_lines_rec.po_distribution_id IS NOT NULL OR
20159: p_invoice_lines_rec.po_distribution_num IS NOT NULL)) THEN
20160:
20161: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20162: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20163: p_invoice_lines_rec.invoice_line_id,
20164: 'TAX CANNOT BE INCLUDED',
20165: p_default_last_updated_by,
20165: p_default_last_updated_by,
20166: p_default_last_update_login,
20167: current_calling_sequence) <> TRUE) THEN
20168: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20169: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20170: 'insert_rejections<-' ||current_calling_sequence);
20171: END IF;
20172: RAISE tax_line_info_failure;
20173: END IF;
20203: WHERE aii.invoice_id = aili.invoice_id
20204: AND aili.ROWID = p_invoice_lines_rec.row_id;
20205:
20206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20207: AP_IMPORT_UTILITIES_PKG.Print(
20208: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20209: END IF;
20210: EXCEPTION
20211: WHEN OTHERS THEN
20209: END IF;
20210: EXCEPTION
20211: WHEN OTHERS THEN
20212: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20213: AP_IMPORT_UTILITIES_PKG.Print(
20214: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
20215: END IF;
20216: END;
20217: ----------------------------------------------------------------------
20348: debug_info := '(Check Tax Line Info 4.8) Tax_regime_code and tax are '||
20349: 'required in tax lines to be imported'; -- Bug 6412397
20350: --------------------------------------------------------------------------
20351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20352: AP_IMPORT_UTILITIES_PKG.Print(
20353: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20354: END IF;
20355:
20356: IF (p_invoice_lines_rec.line_type_lookup_code = 'TAX' AND
20357: p_invoice_lines_rec.tax_classification_code is null --6255826
20358: and p_invoice_lines_rec.TAX_RATE_CODE is null --6255826
20359: ) THEN
20360:
20361: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20362: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20363: p_invoice_lines_rec.invoice_line_id,
20364: 'INSUFFICIENT TAX INFO', --bug6255826 Replaced TAX INFO REQUIRED
20365: p_default_last_updated_by,
20365: p_default_last_updated_by,
20366: p_default_last_update_login,
20367: current_calling_sequence) <> TRUE) THEN
20368: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20369: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20370: 'insert_rejections<-' ||current_calling_sequence);
20371: END IF;
20372: RAISE tax_line_info_failure;
20373: END IF;
20381:
20382: EXCEPTION
20383: WHEN OTHERS THEN
20384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20385: AP_IMPORT_UTILITIES_PKG.Print(
20386: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20387: END IF;
20388:
20389: IF (SQLCODE < 0) THEN
20387: END IF;
20388:
20389: IF (SQLCODE < 0) THEN
20390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20391: AP_IMPORT_UTILITIES_PKG.Print(
20392: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
20393: END IF;
20394: END IF;
20395: RETURN(FALSE);
20423: 'concatenated segments are provided'||
20424: ' then cross validate the info from concatenated segments';
20425: --------------------------------------------------------------------------
20426: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20427: AP_IMPORT_UTILITIES_PKG.Print(
20428: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20429: END IF;
20430:
20431: -- Bug 5448579
20435: END IF;
20436:
20437: IF (p_invoice_lines_rec.line_type_lookup_code <> 'ITEM') THEN
20438:
20439: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20440: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20441: p_invoice_lines_rec.invoice_line_id,
20442: 'INCONSISTENT CATEGORY',
20443: p_default_last_updated_by,
20447: 'INVOICE LINE NUMBER',
20448: p_invoice_lines_rec.line_number) <> TRUE) THEN
20449:
20450: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20451: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20452: 'insert_rejections<-'||current_calling_sequence);
20453: END IF;
20454:
20455: RAISE purch_category_check_failure;
20468: to_char(sysdate,'YYYY/MM/DD HH24:MI:SS'),p_invoice_lines_rec.purchasing_category);
20469:
20470: IF (l_purchasing_category_id <> p_invoice_lines_rec.purchasing_category_id) THEN
20471:
20472: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20473: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20474: p_invoice_lines_rec.invoice_line_id,
20475: 'INCONSISTENT CATEGORY',
20476: p_default_last_updated_by,
20480: 'INVOICE LINE NUMBER',
20481: p_invoice_lines_rec.line_number) <> TRUE) THEN
20482:
20483: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20484: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20485: 'insert_rejections<-'||current_calling_sequence);
20486: END IF;
20487:
20488: RAISE purch_category_check_failure;
20499: debug_info := '(Check Line purchasing_Category Info 2) If just concatenated segments'||
20500: 'are provided then derive the purchasing_category_id from that info';
20501: --------------------------------------------------------------------------
20502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20503: AP_IMPORT_UTILITIES_PKG.Print(
20504: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20505: END IF;
20506:
20507: l_purchasing_category_id := FND_FLEX_EXT.GET_CCID('INV', 'MCAT',
20512: p_invoice_lines_rec.purchasing_category_id := l_purchasing_category_id;
20513:
20514: ELSE
20515:
20516: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20517: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20518: p_invoice_lines_rec.invoice_line_id,
20519: 'INVALID CATEGORY',
20520: p_default_last_updated_by,
20524: 'INVOICE LINE NUMBER',
20525: p_invoice_lines_rec.line_number) <> TRUE) THEN
20526:
20527: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20528: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20529: 'insert_rejections<-'||current_calling_sequence);
20530: END IF;
20531:
20532: RAISE purch_category_check_failure;
20568: END IF;
20569:
20570: IF (l_purchasing_category_id <> p_invoice_lines_rec.purchasing_category_id) THEN
20571:
20572: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20573: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20574: p_invoice_lines_rec.invoice_line_id,
20575: 'INCONSISTENT CATEGORY',
20576: p_default_last_updated_by,
20580: 'INVOICE LINE NUMBER',
20581: p_invoice_lines_rec.line_number) <> TRUE) THEN
20582:
20583: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20584: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20585: 'insert_rejections<-'||current_calling_sequence);
20586: END IF;
20587:
20588: RAISE purch_category_check_failure;
20639: 'cost_factor_name provided'||
20640: ' then cross validate the info';
20641: --------------------------------------------------------------------------
20642: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20643: AP_IMPORT_UTILITIES_PKG.Print(
20644: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20645: END IF;
20646:
20647: IF (p_invoice_lines_rec.line_type_lookup_code IN ('TAX','FREIGHT','MISCELLANEOUS')) THEN
20649: IF (p_invoice_lines_rec.cost_factor_name IS NOT NULL) THEN
20650: debug_info := '(Check Line Cost_Factor Info 2) Check if cost_factor_name is provided'
20651: ||' then derive cost_factor_id';
20652: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20653: AP_IMPORT_UTILITIES_PKG.Print(
20654: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20655: END IF;
20656:
20657: BEGIN
20662: WHERE name = p_invoice_lines_rec.cost_factor_name;
20663:
20664: EXCEPTION WHEN OTHERS THEN
20665:
20666: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20667: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20668: p_invoice_lines_rec.invoice_line_id,
20669: 'INVALID COST FACTOR INFO',
20670: p_default_last_updated_by,
20674: 'INVOICE LINE NUMBER',
20675: p_invoice_lines_rec.line_number) <> TRUE) THEN
20676:
20677: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20678: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20679: 'insert_rejections<-'||current_calling_sequence);
20680: END IF;
20681:
20682: RAISE cost_factor_check_failure;
20696:
20697: debug_info := '(Check Line Cost_Factor Info 2) Cross validate '||
20698: 'cost_factor_name and cost_factor_id information';
20699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20700: AP_IMPORT_UTILITIES_PKG.Print(
20701: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20702: END IF;
20703:
20704: IF (l_cost_factor_id <> p_invoice_lines_rec.cost_factor_id) THEN
20702: END IF;
20703:
20704: IF (l_cost_factor_id <> p_invoice_lines_rec.cost_factor_id) THEN
20705:
20706: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20707: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20708: p_invoice_lines_rec.invoice_line_id,
20709: 'INVALID COST FACTOR INFO',
20710: p_default_last_updated_by,
20714: 'INVOICE LINE NUMBER',
20715: p_invoice_lines_rec.line_number) <> TRUE) THEN
20716:
20717: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20718: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20719: 'insert_rejections<-'||current_calling_sequence);
20720: END IF;
20721:
20722: RAISE cost_factor_check_failure;
20732: debug_info := '(Check Line Cost_Factor Info 4) If cost_factor_id is null and '||
20733: 'cost_factor_name is provided, then assign the derived cost_factor_id'
20734: ||' then derive cost_factor_id';
20735: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20736: AP_IMPORT_UTILITIES_PKG.Print(
20737: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20738: END IF;
20739:
20740: p_invoice_lines_rec.cost_factor_id := l_cost_factor_id;
20744: debug_info := '(Check Line Cost Factor Info 5) If cost_factor_id is'||
20745: ' not null , then validate it against the valid set of'||
20746: ' cost factors';
20747: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20748: AP_IMPORT_UTILITIES_PKG.Print(
20749: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20750: END IF;
20751:
20752: BEGIN
20756: WHERE price_element_type_id = p_invoice_lines_rec.cost_factor_id;
20757:
20758: EXCEPTION WHEN OTHERS THEN
20759:
20760: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20761: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20762: p_invoice_lines_rec.invoice_line_id,
20763: 'INVALID COST FACTOR INFO',
20764: p_default_last_updated_by,
20768: 'INVOICE LINE NUMBER',
20769: p_invoice_lines_rec.line_number) <> TRUE) THEN
20770:
20771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20772: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
20773: 'insert_rejections<-'||current_calling_sequence);
20774: END IF;
20775:
20776: RAISE cost_factor_check_failure;
20828: --------------------------------------------------------------------------
20829: debug_info := '(Check Retainage 1) Get retained amount based on po shipment and line amount';
20830: --------------------------------------------------------------------------
20831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20832: AP_IMPORT_UTILITIES_PKG.Print(
20833: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20834: END IF;
20835:
20836: l_retained_amount := ap_invoice_lines_utility_pkg.get_retained_amount
20840: --------------------------------------------------------------------------
20841: debug_info := '(Check Retainage 2) Check for retainage account';
20842: --------------------------------------------------------------------------
20843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20844: AP_IMPORT_UTILITIES_PKG.Print(
20845: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20846: END IF;
20847:
20848: If l_retained_amount IS NOT NULL Then
20848: If l_retained_amount IS NOT NULL Then
20849:
20850: If p_retainage_ccid IS NULL Then
20851:
20852: If (AP_IMPORT_UTILITIES_PKG.insert_rejections(
20853: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,
20854: p_invoice_lines_rec.invoice_line_id,
20855: 'RETAINAGE ACCT REQD',
20856: p_default_last_updated_by,
20860: 'INVOICE LINE NUMBER',
20861: p_invoice_lines_rec.line_number) <> TRUE) Then
20862:
20863: If (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') Then
20864: AP_IMPORT_UTILITIES_PKG.Print
20865: (AP_IMPORT_INVOICES_PKG.g_debug_switch, 'insert_rejections<-'||current_calling_sequence);
20866: End If;
20867:
20868: RAISE retainage_check_failure;
20881:
20882: EXCEPTION
20883: WHEN OTHERS THEN
20884: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20885: AP_IMPORT_UTILITIES_PKG.Print(
20886: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
20887: END IF;
20888:
20889: IF (SQLCODE < 0) THEN
20887: END IF;
20888:
20889: IF (SQLCODE < 0) THEN
20890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
20891: AP_IMPORT_UTILITIES_PKG.Print(
20892: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
20893: END IF;
20894: END IF;
20895: RETURN(FALSE);
20963: and rownum = 1;
20964:
20965: exception
20966: when no_data_found then
20967: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
20968: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
20969: p_invoice_rec.invoice_id,
20970: 'INVALID PAYMENT REASON',
20971: p_default_last_updated_by,
20971: p_default_last_updated_by,
20972: p_default_last_update_login,
20973: current_calling_sequence) <> TRUE) 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: 'insert_rejections<-'
20977: ||current_calling_sequence);
20978: END IF;
20979: RAISE pmt_attr_validation_failure;
20999: and rownum = 1;
21000:
21001: exception
21002: when no_data_found then
21003: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21004: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21005: p_invoice_rec.invoice_id,
21006: 'INVALID BANK CHARGE BEARER',
21007: p_default_last_updated_by,
21007: p_default_last_updated_by,
21008: p_default_last_update_login,
21009: current_calling_sequence) <> TRUE) THEN
21010: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21011: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21012: 'insert_rejections<-'
21013: ||current_calling_sequence);
21014: END IF;
21015: RAISE pmt_attr_validation_failure;
21034: and rownum = 1;
21035:
21036: exception
21037: when no_data_found then
21038: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21039: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21040: p_invoice_rec.invoice_id,
21041: 'INVALID DELIVERY CHANNEL CODE',
21042: p_default_last_updated_by,
21042: p_default_last_updated_by,
21043: p_default_last_update_login,
21044: current_calling_sequence) <> TRUE) THEN
21045: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21046: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21047: 'insert_rejections<-'
21048: ||current_calling_sequence);
21049: END IF;
21050: RAISE pmt_attr_validation_failure;
21072: and rownum = 1;
21073:
21074: exception
21075: when no_data_found then
21076: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21077: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21078: p_invoice_rec.invoice_id,
21079: 'INVALID SETTLEMENT PRIORITY',
21080: p_default_last_updated_by,
21080: p_default_last_updated_by,
21081: p_default_last_update_login,
21082: current_calling_sequence) <> TRUE) THEN
21083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21084: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21085: 'insert_rejections<-'
21086: ||current_calling_sequence);
21087: END IF;
21088: RAISE pmt_attr_validation_failure;
21110: and rownum = 1;
21111:
21112: exception
21113: when no_data_found then
21114: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21115: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21116: p_invoice_rec.invoice_id,
21117: 'INVALID EXTERNAL BANK ACCT ID',
21118: p_default_last_updated_by,
21118: p_default_last_updated_by,
21119: p_default_last_update_login,
21120: current_calling_sequence) <> TRUE) THEN
21121: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21122: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21123: 'insert_rejections<-'
21124: ||current_calling_sequence);
21125: END IF;
21126: RAISE pmt_attr_validation_failure;
21145: END LOOP;
21146:
21147: debug_info := 'l_valid_payment_method: '||l_valid_payment_method;
21148: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21149: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21150: debug_info);
21151: END IF;
21152:
21153: IF l_valid_payment_method IS NULL THEN
21151: END IF;
21152:
21153: IF l_valid_payment_method IS NULL THEN
21154:
21155: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21156: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21157: p_invoice_rec.invoice_id,
21158: 'INVALID PAY METHOD',
21159: p_default_last_updated_by,
21159: p_default_last_updated_by,
21160: p_default_last_update_login,
21161: current_calling_sequence) <> TRUE) THEN
21162: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21163: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21164: 'insert_rejections<-'
21165: ||current_calling_sequence);
21166: END IF;
21167: RAISE pmt_attr_validation_failure;
21181: and rownum = 1;
21182:
21183: exception
21184: when no_data_found then
21185: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21186: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21187: p_invoice_rec.invoice_id,
21188: 'INVALID PAY METHOD',
21189: p_default_last_updated_by,
21189: p_default_last_updated_by,
21190: p_default_last_update_login,
21191: current_calling_sequence) <> TRUE) THEN
21192: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21193: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21194: 'insert_rejections<-'
21195: ||current_calling_sequence);
21196: END IF;
21197: RAISE pmt_attr_validation_failure;
21351:
21352: --the payment method code is a required field so we should reject if it's
21353: --not present at this point (no default was found)
21354: if p_invoice_rec.payment_method_code is null then
21355: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21356: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21357: p_invoice_rec.invoice_id,
21358: 'INVALID PAY METHOD',
21359: p_default_last_updated_by,
21359: p_default_last_updated_by,
21360: p_default_last_update_login,
21361: current_calling_sequence) <> TRUE) THEN
21362: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21363: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21364: 'insert_rejections<-'
21365: ||current_calling_sequence);
21366: END IF;
21367: RAISE pmt_attr_validation_failure;
21377:
21378: EXCEPTION
21379: WHEN OTHERS THEN
21380: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21381: AP_IMPORT_UTILITIES_PKG.Print(
21382: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
21383: END IF;
21384:
21385: IF (SQLCODE < 0) THEN
21383: END IF;
21384:
21385: IF (SQLCODE < 0) THEN
21386: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21387: AP_IMPORT_UTILITIES_PKG.Print(
21388: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
21389: END IF;
21390: END IF;
21391: RETURN(FALSE);
21429: where vendor_id = p_invoice_rec.vendor_id
21430: and party_id = p_invoice_rec.party_id;
21431: exception
21432: when no_data_found then
21433: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21434: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21435: p_invoice_rec.invoice_id,
21436: 'INCONSISTENT SUPPLIER',
21437: p_default_last_updated_by,
21437: p_default_last_updated_by,
21438: p_default_last_update_login,
21439: current_calling_sequence) <> TRUE) THEN
21440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21441: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21442: 'insert_rejections<-'
21443: ||current_calling_sequence);
21444: END IF;
21445: RAISE vendor_party_failure;
21459: where vendor_site_id = p_invoice_rec.vendor_site_id
21460: and party_site_id = p_invoice_rec.party_site_id;
21461: exception
21462: when no_data_found then
21463: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21464: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21465: p_invoice_rec.invoice_id,
21466: 'INCONSISTENT SUPPL SITE',
21467: p_default_last_updated_by,
21467: p_default_last_updated_by,
21468: p_default_last_update_login,
21469: current_calling_sequence) <> TRUE) THEN
21470: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21471: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21472: 'insert_rejections<-'
21473: ||current_calling_sequence);
21474: END IF;
21475: RAISE vendor_party_failure;
21505: from po_vendor_sites
21506: where vendor_site_id = p_invoice_rec.vendor_site_id;
21507: Exception
21508: when no_data_found then
21509: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21510: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21511: p_invoice_rec.invoice_id,
21512: 'INCONSISTENT SUPPL SITE',
21513: p_default_last_updated_by,
21513: p_default_last_updated_by,
21514: p_default_last_update_login,
21515: current_calling_sequence) <> TRUE) THEN
21516: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21517: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21518: 'insert_rejections<-'
21519: ||current_calling_sequence);
21520: END IF;
21521: RAISE vendor_party_failure; --bug6367302
21531: from po_vendors
21532: where vendor_id = p_invoice_rec.vendor_id;
21533: Exception
21534: when no_data_found then
21535: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21536: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21537: p_invoice_rec.invoice_id,
21538: 'INCONSISTENT SUPPLIER',
21539: p_default_last_updated_by,
21539: p_default_last_updated_by,
21540: p_default_last_update_login,
21541: current_calling_sequence) <> TRUE) THEN
21542: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21543: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21544: 'insert_rejections<-'
21545: ||current_calling_sequence);
21546: END IF;
21547: RAISE vendor_party_failure; --bug6367302
21557:
21558: EXCEPTION
21559: WHEN OTHERS THEN
21560: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21561: AP_IMPORT_UTILITIES_PKG.Print(
21562: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
21563: END IF;
21564:
21565: IF (SQLCODE < 0) THEN
21563: END IF;
21564:
21565: IF (SQLCODE < 0) THEN
21566: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21567: AP_IMPORT_UTILITIES_PKG.Print(
21568: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
21569: END IF;
21570: END IF;
21571: RETURN(FALSE);
21612: p_invoice_lines_rec.tax_classification_code IS NULL) THEN
21613:
21614: debug_info := 'Call Ap_Etx_Utility_Pkg.Get_PO_Info';
21615: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21616: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21617: debug_info);
21618: END IF;
21619:
21620: l_success := AP_ETAX_UTILITY_PKG.Get_PO_Info(
21634: P_Calling_Sequence => current_calling_sequence);
21635:
21636: debug_info := 'Call ap_etx_servies_pkg.get_po_tax_attributes';
21637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21639: debug_info);
21640: END IF;
21641:
21642: AP_Etax_Services_Pkg.Get_Po_Tax_Attributes(
21657: );
21658:
21659: debug_info := 'populate the lines record with tax attr info';
21660: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21661: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21662: debug_info);
21663: END IF;
21664:
21665: IF (p_invoice_lines_rec.primary_intended_use IS NULL) THEN
21696:
21697: EXCEPTION
21698: WHEN OTHERS THEN
21699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21700: AP_IMPORT_UTILITIES_PKG.Print(
21701: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
21702: END IF;
21703:
21704: IF (SQLCODE < 0) THEN
21702: END IF;
21703:
21704: IF (SQLCODE < 0) THEN
21705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21706: AP_IMPORT_UTILITIES_PKG.Print(
21707: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
21708: END IF;
21709: END IF;
21710: RETURN(FALSE);
21745: Into l_ship_to_location_id;
21746:
21747:
21748: IF (c_ship_to_location%NOTFOUND) THEN
21749: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections
21750: (AP_IMPORT_INVOICES_PKG.g_invoices_table,
21751: p_invoice_rec.invoice_id,
21752: 'INVALID LOCATION CODE',
21753: p_default_last_updated_by,
21754: p_default_last_update_login,
21755: current_calling_sequence) <> TRUE) THEN
21756:
21757: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21758: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21759: 'insert_rejections<-'
21760: ||current_calling_sequence);
21761:
21762: END IF;
21776:
21777: EXCEPTION
21778: WHEN OTHERS THEN
21779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21780: AP_IMPORT_UTILITIES_PKG.Print(
21781: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
21782: END IF;
21783:
21784: IF (SQLCODE < 0) THEN
21782: END IF;
21783:
21784: IF (SQLCODE < 0) THEN
21785: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
21786: AP_IMPORT_UTILITIES_PKG.Print(
21787: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
21788: END IF;
21789: END IF;
21790: RETURN(FALSE);
21829: -------------------------------------------------------------------
21830: debug_info := 'Check valid remit to supplier details';
21831: -------------------------------------------------------------------
21832: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21833: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21834: debug_info);
21835: END IF;
21836:
21837: -------------------------------------------------------------------
21837: -------------------------------------------------------------------
21838: debug_info := 'Remit to supplier Name '||p_invoice_rec.remit_to_supplier_name;
21839: -------------------------------------------------------------------
21840: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21841: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21842: debug_info);
21843: END IF;
21844:
21845: -------------------------------------------------------------------
21845: -------------------------------------------------------------------
21846: debug_info := 'Remit to supplier Id '||p_invoice_rec.remit_to_supplier_id;
21847: -------------------------------------------------------------------
21848: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21849: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21850: debug_info);
21851: END IF;
21852:
21853: -------------------------------------------------------------------
21853: -------------------------------------------------------------------
21854: debug_info := 'Remit to supplier Site Id '||p_invoice_rec.remit_to_supplier_site_id;
21855: -------------------------------------------------------------------
21856: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21857: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21858: debug_info);
21859: END IF;
21860:
21861: -------------------------------------------------------------------
21861: -------------------------------------------------------------------
21862: debug_info := 'Remit to supplier Site Name '||p_invoice_rec.remit_to_supplier_site;
21863: -------------------------------------------------------------------
21864: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21865: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21866: debug_info);
21867: END IF;
21868:
21869: If(p_invoice_rec.remit_to_supplier_name IS NOT NULL) then
21880: -------------------------------------------------------------------
21881: debug_info := 'If Remit to supplier Name '||l_remit_supplier_name;
21882: -------------------------------------------------------------------
21883: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21884: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21885: debug_info);
21886: END IF;
21887:
21888: if(p_invoice_rec.remit_to_supplier_id IS NOT NULL) then
21899: -------------------------------------------------------------------
21900: debug_info := 'If Remit to supplier Id '||l_remit_supplier_id;
21901: -------------------------------------------------------------------
21902: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21903: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21904: debug_info);
21905: END IF;
21906:
21907: if(p_invoice_rec.remit_to_supplier_num IS NOT NULL) then
21918: -------------------------------------------------------------------
21919: debug_info := 'If Remit to supplier Num '||l_remit_supplier_num;
21920: -------------------------------------------------------------------
21921: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21922: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21923: debug_info);
21924: END IF;
21925:
21926: if(p_invoice_rec.remit_to_supplier_site_id IS NOT NULL) then
21938: -------------------------------------------------------------------
21939: debug_info := 'If Remit to supplier Site Id '||l_remit_supplier_site_id;
21940: -------------------------------------------------------------------
21941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21942: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21943: debug_info);
21944: END IF;
21945:
21946: if(p_invoice_rec.remit_to_supplier_site IS NOT NULL) then
21977: -------------------------------------------------------------------
21978: debug_info := 'If Remit to supplier Site '||l_remit_supplier_site;
21979: -------------------------------------------------------------------
21980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21981: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21982: debug_info);
21983: END IF;
21984:
21985: -------------------------------------------------------------------
21985: -------------------------------------------------------------------
21986: debug_info := 'Rejection Flags ';
21987: -------------------------------------------------------------------
21988: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21989: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21990: debug_info);
21991: END IF;
21992:
21993: -------------------------------------------------------------------
21993: -------------------------------------------------------------------
21994: debug_info := 'Suppier Name Rejection Flags '||l_remit_supplier_name_flag;
21995: -------------------------------------------------------------------
21996: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
21997: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
21998: debug_info);
21999: END IF;
22000:
22001: -------------------------------------------------------------------
22001: -------------------------------------------------------------------
22002: debug_info := 'Supplier Id Rejection Flags '||l_remit_supplier_id_flag;
22003: -------------------------------------------------------------------
22004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22005: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22006: debug_info);
22007: END IF;
22008:
22009: -------------------------------------------------------------------
22009: -------------------------------------------------------------------
22010: debug_info := 'Supplier Site Id Rejection Flags '||l_remit_supplier_site_id_flag;
22011: -------------------------------------------------------------------
22012: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22013: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22014: debug_info);
22015: END IF;
22016:
22017: -------------------------------------------------------------------
22017: -------------------------------------------------------------------
22018: debug_info := 'Supplier Site Rejection Flags '||l_remit_supplier_site_flag;
22019: -------------------------------------------------------------------
22020: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22021: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22022: debug_info);
22023: END IF;
22024:
22025: IF (l_remit_supplier_name_flag = 'F') THEN
22022: debug_info);
22023: END IF;
22024:
22025: IF (l_remit_supplier_name_flag = 'F') THEN
22026: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22027: AP_IMPORT_INVOICES_PKG.g_invoices_table,
22028: p_invoice_rec.invoice_id,
22029: 'INVALID REMIT TO SUPPLIER NAME',
22030: p_default_last_updated_by,
22030: p_default_last_updated_by,
22031: p_default_last_update_login,
22032: current_calling_sequence) <> TRUE) THEN
22033: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22034: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22035: 'insert_rejections<-'||current_calling_sequence);
22036: END IF;
22037:
22038: END IF;
22039:
22040: RAISE invalid_remit_supplier_failure;
22041:
22042: ELSIF (l_remit_supplier_id_flag = 'F') THEN
22043: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22044: AP_IMPORT_INVOICES_PKG.g_invoices_table,
22045: p_invoice_rec.invoice_id,
22046: 'INVALID REMIT TO SUPPLIER ID',
22047: p_default_last_updated_by,
22047: p_default_last_updated_by,
22048: p_default_last_update_login,
22049: current_calling_sequence) <> TRUE) THEN
22050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22051: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22052: 'insert_rejections<-'||current_calling_sequence);
22053: END IF;
22054:
22055: END IF;
22056:
22057: RAISE invalid_remit_supplier_failure;
22058:
22059: ELSIF (l_remit_supplier_num_flag = 'F') THEN
22060: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22061: AP_IMPORT_INVOICES_PKG.g_invoices_table,
22062: p_invoice_rec.invoice_id,
22063: 'INVALID REMIT TO SUPPLIER NUM',
22064: p_default_last_updated_by,
22064: p_default_last_updated_by,
22065: p_default_last_update_login,
22066: current_calling_sequence) <> TRUE) THEN
22067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22069: 'insert_rejections<-'||current_calling_sequence);
22070: END IF;
22071:
22072: END IF;
22073:
22074: RAISE invalid_remit_supplier_failure;
22075:
22076: ELSIF (l_remit_supplier_site_id_flag = 'F') THEN
22077: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22078: AP_IMPORT_INVOICES_PKG.g_invoices_table,
22079: p_invoice_rec.invoice_id,
22080: 'INVALID REMIT TO SUPP SITE ID',
22081: p_default_last_updated_by,
22081: p_default_last_updated_by,
22082: p_default_last_update_login,
22083: current_calling_sequence) <> TRUE) THEN
22084: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22085: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22086: 'insert_rejections<-'||current_calling_sequence);
22087: END IF;
22088:
22089: END IF;
22090:
22091: RAISE invalid_remit_supplier_failure;
22092:
22093: ELSIF (l_remit_supplier_site_flag = 'F') THEN
22094: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22095: AP_IMPORT_INVOICES_PKG.g_invoices_table,
22096: p_invoice_rec.invoice_id,
22097: 'INVALID REMIT TO SUPPLIER SITE',
22098: p_default_last_updated_by,
22098: p_default_last_updated_by,
22099: p_default_last_update_login,
22100: current_calling_sequence) <> TRUE) THEN
22101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22103: 'insert_rejections<-'||current_calling_sequence);
22104: END IF;
22105:
22106: END IF;
22131: -------------------------------------------------------------------
22132: debug_info := 'Data To IBY ';
22133: -------------------------------------------------------------------
22134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22136: debug_info);
22137: END IF;
22138:
22139: -------------------------------------------------------------------
22139: -------------------------------------------------------------------
22140: debug_info := 'Party Id '||l_party_id;
22141: -------------------------------------------------------------------
22142: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22143: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22144: debug_info);
22145: END IF;
22146:
22147: -------------------------------------------------------------------
22147: -------------------------------------------------------------------
22148: debug_info := 'Vendor Site id '||p_invoice_rec.vendor_site_id;
22149: -------------------------------------------------------------------
22150: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22152: debug_info);
22153: END IF;
22154:
22155: -------------------------------------------------------------------
22155: -------------------------------------------------------------------
22156: debug_info := 'Invoice Date '||p_invoice_rec.invoice_date;
22157: -------------------------------------------------------------------
22158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22160: debug_info);
22161: END IF;
22162:
22163: -------------------------------------------------------------------
22163: -------------------------------------------------------------------
22164: debug_info := 'Invoice Date '||p_invoice_rec.invoice_date;
22165: -------------------------------------------------------------------
22166: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22167: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22168: debug_info);
22169: END IF;
22170:
22171: IF (p_invoice_rec.remit_to_supplier_id is not null) THEN
22178: -------------------------------------------------------------------
22179: debug_info := 'Remit Party Id '||l_remit_party_id;
22180: -------------------------------------------------------------------
22181: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22182: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22183: debug_info);
22184: END IF;
22185:
22186: l_relationship_id := p_invoice_rec.relationship_id; -- bug 8224788
22198: -------------------------------------------------------------------
22199: debug_info := 'Data From IBY ';
22200: -------------------------------------------------------------------
22201: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22203: debug_info);
22204: END IF;
22205:
22206: -------------------------------------------------------------------
22206: -------------------------------------------------------------------
22207: debug_info := 'x_result : ' || l_result;
22208: -------------------------------------------------------------------
22209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22210: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22211: debug_info);
22212: END IF;
22213:
22214: IF (l_result = FND_API.G_TRUE) THEN
22236: -------------------------------------------------------------------
22237: debug_info := 'Remit To Supplier Site Id '||l_remit_supplier_site_id;
22238: -------------------------------------------------------------------
22239: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22240: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22241: debug_info);
22242: END IF;
22243:
22244: -------------------------------------------------------------------
22244: -------------------------------------------------------------------
22245: debug_info := 'Remit To Supplier Site '||l_remit_supplier_site;
22246: -------------------------------------------------------------------
22247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22249: debug_info);
22250: END IF;
22251:
22252: -- Bug 7675510
22260:
22261: IF (p_invoice_rec.invoice_type_lookup_code = 'PAYMENT REQUEST') THEN
22262:
22263: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22264: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
22265: END IF;
22266:
22267: IF (l_remit_party_id is not null) THEN
22268: --Bug 7860631 Removed the party_id field into the supplier_id field.
22298: -------------------------------------------------------------------
22299: debug_info := 'Remit To Party Id '||l_remit_party_id;
22300: -------------------------------------------------------------------
22301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22302: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22303: debug_info);
22304: END IF;
22305:
22306: -------------------------------------------------------------------
22306: -------------------------------------------------------------------
22307: debug_info := 'Remit To Supplier Id '||l_remit_supplier_id;
22308: -------------------------------------------------------------------
22309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22310: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22311: debug_info);
22312: END IF;
22313:
22314: -------------------------------------------------------------------
22314: -------------------------------------------------------------------
22315: debug_info := 'Remit To Supplier '||l_remit_supplier_name;
22316: -------------------------------------------------------------------
22317: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22318: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22319: debug_info);
22320: END IF;
22321:
22322: -----------------------------------------------------------------------
22322: -----------------------------------------------------------------------
22323: debug_info := 'Remit To Supplier Num '||l_remit_supplier_num;
22324: -----------------------------------------------------------------------
22325: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22326: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22327: debug_info);
22328: END IF;
22329:
22330: -------------------------------------------------------------------
22330: -------------------------------------------------------------------
22331: debug_info := 'Relationship Id '||l_relationship_id;
22332: -------------------------------------------------------------------
22333: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22334: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22335: debug_info);
22336: END IF;
22337:
22338: ELSE
22336: END IF;
22337:
22338: ELSE
22339:
22340: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(
22341: AP_IMPORT_INVOICES_PKG.g_invoices_table,
22342: p_invoice_rec.invoice_id,
22343: 'INVALID THIRD PARTY RELATION',
22344: p_default_last_updated_by,
22344: p_default_last_updated_by,
22345: p_default_last_update_login,
22346: current_calling_sequence) <> TRUE) THEN
22347: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
22348: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
22349: 'insert_rejections<-'||current_calling_sequence);
22350: END IF;
22351: END IF;
22352:
22363: WHEN OTHERS THEN
22364: p_current_invoice_status := 'N';
22365:
22366: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22367: AP_IMPORT_UTILITIES_PKG.Print(
22368: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
22369: END IF;
22370:
22371: IF (SQLCODE < 0) THEN
22369: END IF;
22370:
22371: IF (SQLCODE < 0) THEN
22372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN
22373: AP_IMPORT_UTILITIES_PKG.Print(
22374: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);
22375: END IF;
22376: END IF;
22377: RETURN FALSE;