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

APPS.AP_IMPORT_VALIDATION_PKG dependencies on AP_IMPORT_INVOICES_PKG

Line 11: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

7: ------------------------------------------------------------------------
8:
9: FUNCTION v_check_invoice_validation(
10: p_invoice_rec IN OUT NOCOPY
11: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
12: p_match_mode OUT NOCOPY VARCHAR2,
13: p_min_acct_unit_inv_curr OUT NOCOPY NUMBER,
14: p_precision_inv_curr OUT NOCOPY NUMBER,
15: p_positive_price_tolerance OUT NOCOPY NUMBER,

Line 106: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

102: -- Step 0a
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:

Line 107: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 112: p_invoice_rec.invoice_date := trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate);

108: debug_info);
109: END IF;
110:
111: IF (p_invoice_rec.invoice_date IS NULL) THEN
112: p_invoice_rec.invoice_date := trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate);
113: END IF;
114:
115: --------------------------------------------------------------------------
116: -- Step 1

Line 121: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

117: -- Check for Invalid or Inactive PO
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: --

Line 122: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 141: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

137: p_po_vendor_id => l_vendor_id, -- OUT
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;

Line 142: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 159: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

155:
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)

Line 160: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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)

Line 188: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

184: -- Step 2
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:

Line 189: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 201: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

197: -- Step 3
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:

Line 202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

211: p_default_last_updated_by, -- IN
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;

Line 216: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 231: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

227: p_default_last_update_login, -- IN
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;

Line 232: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

261: l_current_invoice_status := l_temp_invoice_status;
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: --

Line 266: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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')

Line 272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

268: END IF;
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));

Line 273: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 296: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

292: -- as far as vendor site is concerned.
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:

Line 297: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 313: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

309: (p_invoice_rec.vendor_site_code is null) and
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:

Line 314: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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
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;

Line 324: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

334: 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:

Line 339: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

354: p_return_party_site_id => l_party_site_id, -- OUT
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;

Line 359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 377: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

373: p_return_vendor_site_id => l_vendor_site_id, -- OUT
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;

Line 378: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 402: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

398: END IF;
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:

Line 403: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

406:
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)

Line 411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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));

Line 430: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

426: l_temp_invoice_status,
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;

Line 431: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 444: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

440: END IF;
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:

Line 445: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 477: if AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' then

473: p_services_total_amt_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;

Line 478: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, 'get_tolerance_info()<-'||

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;

Line 500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

496: -----------------------------------------------------------------------
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:

Line 501: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

511: p_default_last_update_login, -- IN
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;

Line 516: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 534: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

530:
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:

Line 535: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 555: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

551: -- as far as inv currency code is concerned.
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:

Line 556: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 570: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

566: p_default_last_update_login => p_default_last_update_login,-- IN
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;

Line 572: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
576: END IF;

Line 588: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

584: END IF;
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;

Line 589: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 608: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

604: -- valid as far as invoice type/amount information is concerned.
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:

Line 609: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 623: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

619: p_default_last_update_login, -- IN
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;

Line 624: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

639:
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);

Line 644: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 661: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

657: -- as far as awt group information is concerned.
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:

Line 662: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

670: p_default_last_update_login => p_default_last_update_login,-- IN
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;

Line 675: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 691: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

687: p_invoice_rec.awt_group_id := l_awt_group_id;
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;

Line 692: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

704: -- as far as pay awt group information is concerned.
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:

Line 709: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

717: p_default_last_update_login => p_default_last_update_login,-- IN
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;

Line 722: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

734: p_invoice_rec.pay_awt_group_id := l_pay_awt_group_id;
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;

Line 739: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

755: -- as far as exchange rate is concerned.
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:

Line 760: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 778: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

774: p_default_last_update_login => p_default_last_update_login,-- IN
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;

Line 780: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
784: END IF;

Line 804: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

800: p_invoice_rec.exchange_date := l_exchange_date;
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;

Line 805: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

820: -- as far as terms are concerned.
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:

Line 825: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

835: p_default_last_update_login => p_default_last_update_login,-- IN
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;

Line 841: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
845: END IF;

Line 860: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

856: p_invoice_rec.terms_date := l_terms_date;
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) );

Line 861: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

868: -- Step 11
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 (

Line 873: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 884: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

880: p_default_last_update_login, -- 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;

Line 885: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

891: IF (l_temp_invoice_status = 'N') THEN
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;

Line 896: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 913: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

909: provide us with Customer Registration CODE/Numbers, which
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:

Line 914: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

922: p_default_last_update_login, -- IN
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;

Line 927: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 937: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

933: IF (l_temp_invoice_status = 'N') THEN
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;

Line 938: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 958: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

954: -- as far as pay curr info is concerned.
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:

Line 959: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

970: p_default_last_update_login => p_default_last_update_login,-- IN
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;

Line 976: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
980: END IF;

Line 1006: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1002: p_invoice_rec.payment_cross_rate_type := l_pay_cross_rate_type;
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;

Line 1007: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1017: -- Retropricing: This may require JG modifications as parent table can
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(

Line 1022: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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',

Line 1050: AP_IMPORT_INVOICES_PKG.g_invoices_table, --Retropricing

1046: p_invoice_rec.global_attribute19,
1047: p_invoice_rec.global_attribute20,
1048: TO_CHAR(p_set_of_books_id),
1049: fnd_date.date_to_canonical(p_invoice_rec.invoice_date),
1050: AP_IMPORT_INVOICES_PKG.g_invoices_table, --Retropricing
1051: TO_CHAR(p_invoice_rec.invoice_id),
1052: TO_CHAR(p_default_last_updated_by),
1053: TO_CHAR(p_default_last_update_login),
1054: current_calling_sequence,

Line 1062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1058: NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
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));

Line 1063: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1065: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1079: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

1075: -- Step 14
1076: -- Check for Valid Prepayment Info.
1077: -- Retropricing: All prepayment fields will be NULL for PPA's
1078: ----------------------------------------------------------------------
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,

Line 1082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1078: ----------------------------------------------------------------------
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:

Line 1083: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 1099: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1095: p_default_last_update_login, -- IN
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;

Line 1100: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1111: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1107: IF (l_temp_invoice_status = 'N') THEN
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;

Line 1112: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1124: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

1120: -- Although all eTax related fields(control_amount,tax_related_invoice_id,
1121: -- calc_tax_during_import_flag will be NULL on the Invoice Header
1122: -- some sql statemnts in the v_check_tax_info will get executed.
1123: ----------------------------------------------------------------------
1124: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
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

Line 1128: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1124: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
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:

Line 1129: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 1141: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1137: p_current_invoice_status => l_temp_invoice_status,
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;

Line 1142: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1149: IF (l_temp_invoice_status = 'N') THEN
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:

Line 1154: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1167: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1163: -- Check for Invalid Remit to Supplier
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:

Line 1168: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 1178: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1174: p_default_last_updated_by => p_default_last_updated_by, -- IN
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;

Line 1179: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1185: IF (l_temp_invoice_status = 'N') THEN
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;

Line 1190: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1211: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

1207: -- base_Amount is provided in the PPA Invoice. Also since base amounts
1208: -- are re-calculated during validation, there is no need to call the
1209: -- validation below for PPA's
1210: ----------------------------------------------------------------------
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,

Line 1214: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1210: ----------------------------------------------------------------------
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:

Line 1215: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 1230: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1226: p_invoice_base_amount => l_invoice_base_amount, -- OUT
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;

Line 1232: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
1236: END IF;

Line 1250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1246: END IF;
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:

Line 1251: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 1262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1258: current_calling_sequence,
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;

Line 1263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1273: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1269: IF (l_temp_invoice_status = 'N') THEN
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;

Line 1274: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1305: RETURN (TRUE);
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:

Line 1311: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
1315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

Line 1315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1311: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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);

Line 1316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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:

Line 1328: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

1324: -----------------------------------------------------------------------------
1325: -- This function is used to perform PO validation.
1326: --
1327: FUNCTION v_check_invalid_po (
1328: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
1329: p_default_last_updated_by IN NUMBER,
1330: p_default_last_update_login IN NUMBER,
1331: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
1332: p_po_vendor_id OUT NOCOPY NUMBER,

Line 1372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1368: -- Step 1
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

Line 1373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1378: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

1374: debug_info);
1375: END IF;
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,

Line 1381: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1385: p_default_last_update_login,

Line 1387: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1383: 'INACTIVE PO',
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;

Line 1388: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1403: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1399: -- Step 2
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:

Line 1404: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1410: IF (AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY' ) THEN

1406: END IF;
1407:
1408: IF (l_vendor_id <> nvl(p_invoice_rec.vendor_id, l_vendor_id)) THEN
1409: --Retropricing There is no need for the IF statement mentioned below
1410: IF (AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY' ) THEN
1411: BEGIN
1412: -- Get contextual Information for XML Gateway
1413: SELECT vendor_name
1414: INTO l_invoice_vendor_name

Line 1419: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1423: p_default_last_update_login,

Line 1428: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1424: current_calling_sequence,
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;

Line 1430: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
1434: END IF;

Line 1442: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1446: p_default_last_update_login,

Line 1448: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1444: 'INCONSISTENT PO SUPPLIER',
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);

Line 1450: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
1454: RAISE invalid_po_check_failure;

Line 1478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1474: -- Step 3
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:

Line 1479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1485: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1489: p_default_last_update_login,

Line 1494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1490: current_calling_sequence,
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;

Line 1495: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1508: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1504: p_current_invoice_status := l_current_invoice_status;
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:

Line 1509: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1514: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1510: debug_info);
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;

Line 1515: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 1529: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

1525: -- This function is used to perform Supplier validation
1526: --
1527: -----------------------------------------------------------------------------
1528: FUNCTION v_check_invalid_supplier(
1529: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
1530: p_default_last_updated_by IN NUMBER,
1531: p_default_last_update_login IN NUMBER,
1532: p_return_vendor_id OUT NOCOPY NUMBER,
1533: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 1564: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1560: -- Step 1
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:

Line 1565: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1570: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1574: p_default_last_update_login,

Line 1576: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1572: 'NO SUPPLIER',
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;

Line 1578: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
1582: END IF;

Line 1594: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1590: -- Step 2
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:

Line 1595: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1604: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

1600: INTO l_vendor_id
1601: FROM po_vendors pv
1602: WHERE vendor_id = p_invoice_rec.vendor_id
1603: AND nvl(trunc(PV.START_DATE_ACTIVE),
1604: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1605: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1606: AND nvl(trunc(PV.END_DATE_ACTIVE),
1607: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1608: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

Line 1605: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate

1601: FROM po_vendors pv
1602: WHERE vendor_id = p_invoice_rec.vendor_id
1603: AND nvl(trunc(PV.START_DATE_ACTIVE),
1604: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1605: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1606: AND nvl(trunc(PV.END_DATE_ACTIVE),
1607: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1608: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1609:

Line 1607: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1603: AND nvl(trunc(PV.START_DATE_ACTIVE),
1604: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1605: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1606: AND nvl(trunc(PV.END_DATE_ACTIVE),
1607: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1608: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1609:
1610: END IF;
1611:

Line 1608: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

1604: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1605: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1606: AND nvl(trunc(PV.END_DATE_ACTIVE),
1607: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1608: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1609:
1610: END IF;
1611:
1612: IF (p_invoice_rec.vendor_num is NOT NULL) THEN

Line 1620: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1616: -- Validate vendor number and retrieve 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:

Line 1621: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1630: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

1626: INTO l_vendor_id_per_num
1627: FROM po_vendors PV
1628: WHERE segment1 = p_invoice_rec.vendor_num
1629: AND nvl(trunc(PV.START_DATE_ACTIVE),
1630: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1631: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1632: AND nvl(trunc(PV.END_DATE_ACTIVE),
1633: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1634: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

Line 1631: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate

1627: FROM po_vendors PV
1628: WHERE segment1 = p_invoice_rec.vendor_num
1629: AND nvl(trunc(PV.START_DATE_ACTIVE),
1630: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1631: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1632: AND nvl(trunc(PV.END_DATE_ACTIVE),
1633: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1634: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1635:

Line 1633: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1629: AND nvl(trunc(PV.START_DATE_ACTIVE),
1630: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1631: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1632: AND nvl(trunc(PV.END_DATE_ACTIVE),
1633: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1634: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1635:
1636: END IF;
1637:

Line 1634: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

1630: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1631: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1632: AND nvl(trunc(PV.END_DATE_ACTIVE),
1633: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1634: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
1635:
1636: END IF;
1637:
1638: IF (p_invoice_rec.vendor_name is NOT NULL) THEN

Line 1646: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1642: -- Validate vendor name and retrieve 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:

Line 1647: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1656: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

1652: INTO l_vendor_id_per_name
1653: FROM po_vendors PV
1654: WHERE vendor_name = p_invoice_rec.vendor_name
1655: AND nvl(trunc(PV.START_DATE_ACTIVE),
1656: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1657: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1658: AND nvl(trunc(PV.END_DATE_ACTIVE),
1659: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1660: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

Line 1657: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate

1653: FROM po_vendors PV
1654: WHERE vendor_name = p_invoice_rec.vendor_name
1655: AND nvl(trunc(PV.START_DATE_ACTIVE),
1656: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1657: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1658: AND nvl(trunc(PV.END_DATE_ACTIVE),
1659: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1660: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1661:

Line 1659: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1655: AND nvl(trunc(PV.START_DATE_ACTIVE),
1656: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1657: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1658: AND nvl(trunc(PV.END_DATE_ACTIVE),
1659: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1660: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1661:
1662: END IF;
1663:

Line 1660: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

1656: AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
1657: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
1658: AND nvl(trunc(PV.END_DATE_ACTIVE),
1659: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1660: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1661:
1662: END IF;
1663:
1664: IF ((l_vendor_id is NOT NULL) AND

Line 1677: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1673: -- Check for Inconsitent Supplier based on not null supplier id provided
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:

Line 1678: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1683: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1687: p_default_last_update_login,

Line 1689: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1685: 'INCONSISTENT SUPPLIER',
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;

Line 1690: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1713: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1709: -- Check for Inconsitent Supplier number and Name.
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:

Line 1714: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1719: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1723: p_default_last_update_login,

Line 1725: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1721: 'INCONSISTENT SUPPLIER',
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;

Line 1727: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
1731: END IF;

Line 1745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1741: -- Save Supplier id for further processing.
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:

Line 1746: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1774: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1770: -- Step 8
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:

Line 1775: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1780: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1784: p_default_last_update_login,

Line 1786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1782: 'INVALID SUPPLIER',
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;

Line 1787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 1800: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1796: RETURN (TRUE);
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:

Line 1801: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1802: debug_info);
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;

Line 1807: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 1821: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

1817: -- This function is used to perform Supplier Site validation
1818: --
1819: ------------------------------------------------------------------
1820: FUNCTION v_check_invalid_supplier_site (
1821: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
1822: p_vendor_site_id_per_po IN NUMBER,
1823: p_default_last_updated_by IN NUMBER,
1824: p_default_last_update_login IN NUMBER,
1825: p_return_vendor_site_id OUT NOCOPY NUMBER,

Line 1851: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1847: 'AP_IMPORT_VALIDATION_PKG.v_check_invalid_supplier_site<-'
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:

Line 1852: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1861: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1857: (p_invoice_rec.vendor_site_code 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:

Line 1862: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1868: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1872: p_default_last_update_login,

Line 1874: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1870: 'NO SUPPLIER SITE',
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;

Line 1875: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1886:
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

Line 1891: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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.

Line 1905: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1901: INTO l_vendor_site_id, l_pay_site_flag, p_terms_date_basis
1902: FROM po_vendor_sites pvs
1903: WHERE vendor_site_id = p_invoice_rec.vendor_site_id
1904: AND nvl(trunc(PVS.INACTIVE_DATE),
1905: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1906: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1907: EXCEPTION
1908: WHEN no_data_found THEN
1909: BEGIN

Line 1906: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

1902: FROM po_vendor_sites pvs
1903: WHERE vendor_site_id = p_invoice_rec.vendor_site_id
1904: AND nvl(trunc(PVS.INACTIVE_DATE),
1905: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1906: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1907: EXCEPTION
1908: WHEN no_data_found THEN
1909: BEGIN
1910: --Get Primary Pay site

Line 1918: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1914: WHERE vendor_id = p_invoice_rec.vendor_id
1915: AND nvl(Primary_pay_site_flag,'N')='Y'
1916: AND pvs.Org_id=p_invoice_rec.org_id
1917: AND nvl(trunc(PVS.INACTIVE_DATE),
1918: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1919: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1920:
1921: UPDATE AP_ppa_invoices_gt H
1922: SET vendor_site_id = l_vendor_site_id

Line 1919: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

1915: AND nvl(Primary_pay_site_flag,'N')='Y'
1916: AND pvs.Org_id=p_invoice_rec.org_id
1917: AND nvl(trunc(PVS.INACTIVE_DATE),
1918: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1919: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1920:
1921: UPDATE AP_ppa_invoices_gt H
1922: SET vendor_site_id = l_vendor_site_id
1923: WHERE invoice_id = p_invoice_rec.invoice_id;

Line 1938: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1934: WHERE vendor_id = p_invoice_rec.vendor_id
1935: AND pvs.Org_id=p_invoice_rec.org_id
1936: AND NVL(pvs.pay_site_flag,'N')='Y'
1937: AND nvl(trunc(PVS.INACTIVE_DATE),
1938: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1939: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1940:
1941: UPDATE AP_ppa_invoices_gt H
1942: SET vendor_site_id = l_vendor_site_id

Line 1939: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

1935: AND pvs.Org_id=p_invoice_rec.org_id
1936: AND NVL(pvs.pay_site_flag,'N')='Y'
1937: AND nvl(trunc(PVS.INACTIVE_DATE),
1938: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1939: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1940:
1941: UPDATE AP_ppa_invoices_gt H
1942: SET vendor_site_id = l_vendor_site_id
1943: WHERE invoice_id = p_invoice_rec.invoice_id;

Line 1948: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
1952: p_default_last_update_login,

Line 1954: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1950: 'INVALID SUPPLIER SITE',
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;

Line 1955: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 1973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

1969: IF p_invoice_rec.vendor_site_code is not null THEN
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:

Line 1974: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 1987: AND nvl(trunc(INACTIVE_DATE),AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)

1983: p_terms_date_basis
1984: FROM po_vendor_sites
1985: WHERE vendor_site_code = p_invoice_rec.vendor_site_code
1986: AND vendor_id = p_invoice_rec.vendor_id
1987: AND nvl(trunc(INACTIVE_DATE),AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1988: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1989: EXCEPTION
1990:
1991: -- Bug 5579196

Line 1988: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;

1984: FROM po_vendor_sites
1985: WHERE vendor_site_code = p_invoice_rec.vendor_site_code
1986: AND vendor_id = p_invoice_rec.vendor_id
1987: AND nvl(trunc(INACTIVE_DATE),AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1)
1988: > AP_IMPORT_INVOICES_PKG.g_inv_sysdate ;
1989: EXCEPTION
1990:
1991: -- Bug 5579196
1992: WHEN too_many_rows THEN

Line 1999: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2003: p_default_last_update_login,

Line 2005: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2001: 'INVALID SUPPLIER SITE',
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;

Line 2006: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2025: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2021: l_vendor_site_id_per_code IS NOT NULL AND
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:

Line 2026: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2032: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2036: p_default_last_update_login,

Line 2038: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2034: 'INCONSISTENT SUPPL SITE',
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;

Line 2039: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2058: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2054: l_vendor_site_id_per_code is not null) AND
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:

Line 2059: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2073: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2077: p_default_last_update_login,

Line 2079: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2075: 'INCONSISTENT SUPPL SITE',
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;

Line 2080: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2086: return_vendor_site_id := null;
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:

Line 2091: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2103: (p_vendor_site_id_per_po is not null)) THEN
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:

Line 2108: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2123: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2119: EXCEPTION
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:

Line 2125: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
2129: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

Line 2129: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2133: p_default_last_update_login,

Line 2135: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2131: 'INCONSISTENT SUPPL SITE',
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;

Line 2137: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2141: END IF;

Line 2148: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2144:
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:

Line 2150: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
2154: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

Line 2154: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2158: p_default_last_update_login,

Line 2160: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2156: 'INCONSISTENT SUPPL SITE',
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;

Line 2162: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2166: END IF;

Line 2179: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2175: if nvl(l_pay_site_flag_per_code, 'N') = 'N' THEN
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:

Line 2181: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
2185: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

Line 2185: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2189: p_default_last_update_login,

Line 2191: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2187: 'NOT PAY SITE',
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;

Line 2193: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2197: END IF;

Line 2206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2202: if nvl(l_pay_site_flag, 'N') = 'N' THEN
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:

Line 2208: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
2212: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

Line 2212: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2216: p_default_last_update_login,

Line 2218: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2214: 'NOT PAY SITE',
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;

Line 2220: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2224: END IF;

Line 2252: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2256: p_default_last_update_login,

Line 2258: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2254: 'INVALID SUPPLIER SITE',
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;

Line 2259: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2273: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2269: p_current_invoice_status := l_current_invoice_status;
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:

Line 2274: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2279: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2275: debug_info);
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;

Line 2280: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 2295: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

2291: -- This function is used to perform Party validation
2292: --
2293: -----------------------------------------------------------------------------
2294: FUNCTION v_check_invalid_party(
2295: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
2296: p_default_last_updated_by IN NUMBER,
2297: p_default_last_update_login IN NUMBER,
2298: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
2299: p_calling_sequence IN VARCHAR2)

Line 2323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2319: -- Step 1
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:

Line 2324: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2329: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2333: p_default_last_update_login,

Line 2335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2331: 'INVALID PARTY',
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;

Line 2337: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2341: END IF;

Line 2351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2347: -- Step 2
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:

Line 2352: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2376: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2372: -- Step 8
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:

Line 2377: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2382: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2386: p_default_last_update_login,

Line 2388: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2384: 'INVALID PARTY',
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;

Line 2389: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 2401: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2397: RETURN (TRUE);
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:

Line 2402: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2407: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2403: debug_info);
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;

Line 2408: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 2423: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

2419: -- This function is used to perform Party Site validation
2420: --
2421: ------------------------------------------------------------------
2422: FUNCTION v_check_invalid_party_site (
2423: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
2424: p_default_last_updated_by IN NUMBER,
2425: p_default_last_update_login IN NUMBER,
2426: p_return_party_site_id OUT NOCOPY NUMBER,
2427: p_terms_date_basis OUT NOCOPY VARCHAR2,

Line 2447: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2443: 'AP_IMPORT_VALIDATION_PKG.v_check_invalid_party_site<-'
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:

Line 2448: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2460: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

2456: INTO l_party_site_id
2457: FROM HZ_Party_Sites HPS
2458: WHERE HPS.Party_ID = p_invoice_rec.party_id
2459: AND HPS.Identifying_Address_Flag = 'Y'
2460: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2461: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2462: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2463: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2464:

Line 2461: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate

2457: FROM HZ_Party_Sites HPS
2458: WHERE HPS.Party_ID = p_invoice_rec.party_id
2459: AND HPS.Identifying_Address_Flag = 'Y'
2460: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2461: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2462: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2463: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2464:
2465: EXCEPTION

Line 2462: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

2458: WHERE HPS.Party_ID = p_invoice_rec.party_id
2459: AND HPS.Identifying_Address_Flag = 'Y'
2460: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2461: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2462: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2463: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2464:
2465: EXCEPTION
2466: when no_data_found then

Line 2463: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

2459: AND HPS.Identifying_Address_Flag = 'Y'
2460: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2461: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2462: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2463: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2464:
2465: EXCEPTION
2466: when no_data_found then
2467: debug_info := '(Check Invalid Party Site 2) No Party Site, Reject';

Line 2469: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2465: EXCEPTION
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:

Line 2470: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2476: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2480: p_default_last_update_login,

Line 2482: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2478: 'INVALID PARTY SITE',
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;

Line 2483: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2495: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2491:
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:

Line 2496: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2508: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

2504: FROM hz_party_sites hps
2505: WHERE party_site_id = p_invoice_rec.party_site_id
2506: AND party_id = p_invoice_rec.party_id
2507: AND status = 'A'
2508: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2509: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2510: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2511: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2512:

Line 2509: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate

2505: WHERE party_site_id = p_invoice_rec.party_site_id
2506: AND party_id = p_invoice_rec.party_id
2507: AND status = 'A'
2508: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2509: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2510: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2511: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2512:
2513: EXCEPTION

Line 2510: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)

2506: AND party_id = p_invoice_rec.party_id
2507: AND status = 'A'
2508: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2509: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2510: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2511: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2512:
2513: EXCEPTION
2514: when no_data_found then

Line 2511: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

2507: AND status = 'A'
2508: AND NVL(HPS.Start_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2509: <= AP_IMPORT_INVOICES_PKG.g_inv_sysdate
2510: AND NVL(HPS.End_Date_Active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate)
2511: >= AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
2512:
2513: EXCEPTION
2514: when no_data_found then
2515: debug_info := '(Check Invalid Party Site 2) Invalid Party Site, Reject';

Line 2516: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2512:
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:

Line 2517: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2523: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2527: p_default_last_update_login,

Line 2529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2525: 'INVALID PARTY SITE',
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;

Line 2530: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2562: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2558:
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:

Line 2563: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2568: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2564: debug_info);
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;

Line 2569: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 2585: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

2581: -- invoice.
2582: --
2583: -----------------------------------------------------------------------------
2584: FUNCTION v_check_invalid_invoice_num (
2585: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
2586: p_allow_interest_invoices IN VARCHAR2, --Bug4113223
2587: p_invoice_num OUT NOCOPY VARCHAR2,
2588: p_default_last_updated_by IN NUMBER,
2589: p_default_last_update_login IN NUMBER,

Line 2611: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),

2607: ||P_calling_sequence;
2608:
2609: IF (p_invoice_rec.invoice_num IS NULL) Then
2610: l_invoice_num := to_char(nvl(p_invoice_rec.invoice_date,
2611: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),
2612: 'DD/MM/RR');
2613: ELSE
2614: l_invoice_num := p_invoice_rec.invoice_num;
2615: End If;

Line 2618: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2614: l_invoice_num := p_invoice_rec.invoice_num;
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;

Line 2619: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 2632: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2628: -- Check for NULL Invoice NUMBER.
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:

Line 2633: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2638: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2642: p_default_last_update_login,

Line 2644: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2640: 'NO INVOICE NUMBER',
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;

Line 2645: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2665: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2661: Raise an exception if the invoice number has more than 45 characters
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:

Line 2666: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 2674: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2678: p_default_last_update_login,

Line 2683: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2679: current_calling_sequence,
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;

Line 2685: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2689: END IF;

Line 2701: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2697: -- Check for Duplicate Invoice NUMBER.
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:

Line 2702: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(*)

Line 2725: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2729: p_default_last_update_login,

Line 2734: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2730: current_calling_sequence,
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;

Line 2736: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
2740: END IF;

Line 2753: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2749: RETURN (TRUE);
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:

Line 2754: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2755: debug_info);
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;

Line 2760: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 2775: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

2771: -- is neither inactive, nor invalid.
2772: --
2773: ------------------------------------------------------------------
2774: FUNCTION v_check_invalid_inv_curr_code (
2775: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
2776: p_inv_currency_code OUT NOCOPY VARCHAR2,
2777: p_min_acc_unit_inv_curr OUT NOCOPY NUMBER,
2778: p_precision_inv_curr OUT NOCOPY NUMBER,
2779: p_default_last_updated_by IN NUMBER,

Line 2814: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2810: --------------------------------------------------------------------------
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:

Line 2815: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2845: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2841: -- Get the state of the invoice currency and precision and mau
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:

Line 2846: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 2858: FOR i IN AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.First..AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.Last

2854: FROM fnd_currencies
2855: WHERE currency_code = p_inv_currency_code; */
2856:
2857: -- Bug 5448579
2858: FOR i IN AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.First..AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.Last
2859: LOOP
2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN
2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;

Line 2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN

2856:
2857: -- Bug 5448579
2858: FOR i IN AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.First..AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.Last
2859: LOOP
2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN
2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;

Line 2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;

2857: -- Bug 5448579
2858: FOR i IN AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.First..AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.Last
2859: LOOP
2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN
2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;
2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;

Line 2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;

2858: FOR i IN AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.First..AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab.Last
2859: LOOP
2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN
2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;
2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;
2866: l_enabled_flag := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).enabled_flag;

Line 2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;

2859: LOOP
2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN
2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;
2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;
2866: l_enabled_flag := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).enabled_flag;
2867: EXIT;

Line 2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;

2860: IF AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code = p_inv_currency_code THEN
2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;
2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;
2866: l_enabled_flag := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).enabled_flag;
2867: EXIT;
2868: END IF;

Line 2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;

2861: l_valid_inv_currency := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).currency_code;
2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;
2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;
2866: l_enabled_flag := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).enabled_flag;
2867: EXIT;
2868: END IF;
2869: END LOOP;

Line 2866: l_enabled_flag := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).enabled_flag;

2862: l_start_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).start_date_active;
2863: l_end_date_active := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).end_date_active;
2864: l_min_acc_unit_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).minimum_accountable_unit;
2865: l_precision_inv_curr := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).precision;
2866: l_enabled_flag := AP_IMPORT_INVOICES_PKG.g_fnd_currency_tab(i).enabled_flag;
2867: EXIT;
2868: END IF;
2869: END LOOP;
2870:

Line 2872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2868: END IF;
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:

Line 2873: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 2881: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <

2877:
2878: p_min_acc_unit_inv_curr := l_min_acc_unit_inv_curr;
2879: p_precision_inv_curr := l_precision_inv_curr;
2880:
2881: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
2882: nvl(l_start_date_active,
2883: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
2884: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
2885: nvl(l_end_date_active,

Line 2883: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR

2879: p_precision_inv_curr := l_precision_inv_curr;
2880:
2881: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
2882: nvl(l_start_date_active,
2883: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
2884: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
2885: nvl(l_end_date_active,
2886: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) OR
2887: l_enabled_flag <> 'Y' THEN

Line 2884: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

2880:
2881: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
2882: nvl(l_start_date_active,
2883: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
2884: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
2885: nvl(l_end_date_active,
2886: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) OR
2887: l_enabled_flag <> 'Y' THEN
2888:

Line 2886: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) OR

2882: nvl(l_start_date_active,
2883: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
2884: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
2885: nvl(l_end_date_active,
2886: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) OR
2887: l_enabled_flag <> 'Y' THEN
2888:
2889: -------------------------------------------------------------------------
2890: -- Step 3

Line 2895: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2891: -- Check for Inactive Invoice Currency Code.
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:

Line 2896: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2901: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2905: p_default_last_update_login,

Line 2907: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2903: 'INACTIVE CURRENCY CODE',
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;

Line 2908: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2929: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2925: -- Check for Invalid Invoice Currency Code.
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:

Line 2930: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2935: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
2939: p_default_last_update_login,

Line 2941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2937: 'INVALID CURRENCY CODE',
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;

Line 2942: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 2953: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2949: p_current_invoice_status := l_current_invoice_status;
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:

Line 2954: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 2959: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

2955: debug_info);
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;

Line 2960: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 2977: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

2973: --
2974: ------------------------------------------------------------------------------
2975: FUNCTION v_check_invoice_type_amount (
2976: p_invoice_rec IN
2977: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
2978: p_invoice_type_lookup_code OUT NOCOPY VARCHAR2,
2979: p_match_mode OUT NOCOPY VARCHAR2,
2980: p_precision_inv_curr IN NUMBER,
2981: p_default_last_updated_by IN NUMBER,

Line 2998: 'AP_IMPORT_INVOICES_PKG.v_check_invoice_type_amount<-'

2994: BEGIN
2995: -- Update the calling sequence
2996: --
2997: current_calling_sequence :=
2998: 'AP_IMPORT_INVOICES_PKG.v_check_invoice_type_amount<-'
2999: ||P_calling_sequence;
3000:
3001: --------------------------------------------------------------------------
3002: -- Step 1

Line 3007: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3003: -- Check for Invalid Invoice type lookup code.
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:

Line 3008: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3035: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3039: p_default_last_update_login,

Line 3041: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3037: 'INVALID INV TYPE LOOKUP',
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;

Line 3042: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3055: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3051: (p_invoice_rec.invoice_amount >=0)) THEN
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:

Line 3057: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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';
3061:

Line 3067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3063: (p_invoice_rec.invoice_amount < 0)) THEN
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:

Line 3068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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';

Line 3082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3078: -- Check for Null Invoice Amount.
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:

Line 3084: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
3088:

Line 3091: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,

Line 3098: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 3099: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3111: -- Check for Invalid Invoice amount.
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:

Line 3116: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3130: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3134: p_default_last_update_login,

Line 3136: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3132: 'INCONSISTENT INV TYPE/AMT',
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;

Line 3137: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3159: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

3155: -- workbench or approval. In any case, if the total of the lines does
3156: -- not equal the invoice total the invoice would go on hold.
3157: -------------------------------------------------------------------------
3158: --Retropricing
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,

Line 3162: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3158: --Retropricing
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:

Line 3163: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(*)

Line 3172: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') THEN

3168: INTO l_lines_amount_sum, l_no_of_lines
3169: FROM ap_invoice_lines_interface
3170: WHERE invoice_id = p_invoice_rec.invoice_id;
3171:
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,

Line 3175: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3171:
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:

Line 3176: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3183: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3187: p_default_last_update_login,

Line 3189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3185: 'INVOICE AMOUNT INCORRECT',
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;

Line 3191: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3195: END IF;

Line 3203: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3199:
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:

Line 3204: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3209: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3213: p_default_last_update_login,

Line 3215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3211: 'NO INVOICE LINES',
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;

Line 3216: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3234: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3230: TRUNC(ABS(p_invoice_rec.invoice_amount)))) - 1
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:

Line 3235: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3240: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3244: p_default_last_update_login,

Line 3246: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3242: 'AMOUNT EXCEEDS PRECISION',
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;

Line 3247: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3258: -- Step 6
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:

Line 3263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3274: RETURN (TRUE);
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:

Line 3279: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3280: debug_info);
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;

Line 3285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 3300: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

3296: -- is valid and consistent.
3297: --
3298: ----------------------------------------------------------------------------
3299: FUNCTION v_check_invalid_awt_group (
3300: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3301: p_awt_group_id OUT NOCOPY NUMBER,
3302: p_default_last_updated_by IN NUMBER,
3303: p_default_last_update_login IN NUMBER,
3304: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 3352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3348: -- Check for AWT Group Id and Group Name Inconsistency.
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:

Line 3353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3358: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3362: p_default_last_update_login,

Line 3364: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3360: 'INCONSISTENT AWT GROUP',
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;

Line 3365: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3379: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3375: -- Step 2
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:

Line 3380: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3387: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

3383:
3384: IF ((l_awt_group_id is NULL) and
3385: (l_awt_group_id_per_name is NOT NULL)) THEN
3386:
3387: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3388: nvl(l_inactive_date_per_name,
3389: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3390: --------------------------------------------------------------
3391: -- inactive AWT group (per name)

Line 3389: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

3385: (l_awt_group_id_per_name is NOT NULL)) THEN
3386:
3387: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3388: nvl(l_inactive_date_per_name,
3389: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3390: --------------------------------------------------------------
3391: -- inactive AWT group (per name)
3392: --
3393: ---------------------------------------------------------------

Line 3395: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3399: p_default_last_update_login,

Line 3401: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3397: 'INACTIVE AWT GROUP',
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;

Line 3403: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3407: END IF;

Line 3419: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

3415: ((l_awt_group_id is NOT NULL) and
3416: (l_awt_group_id_per_name is NOT NULL) and
3417: (l_awt_group_id = l_awt_group_id_per_name))) THEN
3418:
3419: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3420: nvl(l_inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3421:
3422: --------------------------------------------------------------
3423: -- inactive AWT group (as per id)

Line 3420: nvl(l_inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

3416: (l_awt_group_id_per_name is NOT NULL) and
3417: (l_awt_group_id = l_awt_group_id_per_name))) THEN
3418:
3419: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3420: nvl(l_inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3421:
3422: --------------------------------------------------------------
3423: -- inactive AWT group (as per id)
3424: --

Line 3427: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3431: p_default_last_update_login,

Line 3433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3429: 'INACTIVE AWT GROUP',
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;

Line 3435: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3439: END IF;

Line 3481: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3485: p_default_last_update_login,

Line 3487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3483: 'INVALID AWT GROUP',
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;

Line 3488: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3499: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3495: p_current_invoice_status := l_current_invoice_status;
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:

Line 3501: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
3505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

Line 3505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3501: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 3507: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);
3511:

Line 3521: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

3517: -- is valid and consistent.
3518: --
3519: ----------------------------------------------------------------------------
3520: FUNCTION v_check_invalid_pay_awt_group (
3521: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3522: p_pay_awt_group_id OUT NOCOPY NUMBER,
3523: p_default_last_updated_by IN NUMBER,
3524: p_default_last_update_login IN NUMBER,
3525: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 3573: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3569: -- Check for pay AWT Group Id and Group Name Inconsistency.
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:

Line 3574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3579: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3583: p_default_last_update_login,

Line 3585: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3581: 'INCONSISTENT PAY AWT GROUP',
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;

Line 3586: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3600: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3596: -- Step 2
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:

Line 3601: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3608: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

3604:
3605: IF ((l_pay_awt_group_id is NULL) and
3606: (l_pay_awt_group_id_per_name is NOT NULL)) THEN
3607:
3608: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3609: nvl(l_inactive_date_per_name,
3610: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3611: --------------------------------------------------------------
3612: -- inactive pay AWT group (per name)

Line 3610: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

3606: (l_pay_awt_group_id_per_name is NOT NULL)) THEN
3607:
3608: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3609: nvl(l_inactive_date_per_name,
3610: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3611: --------------------------------------------------------------
3612: -- inactive pay AWT group (per name)
3613: --
3614: ---------------------------------------------------------------

Line 3616: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3620: p_default_last_update_login,

Line 3622: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3618: 'INACTIVE PAY AWT GROUP',
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;

Line 3624: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3628: END IF;

Line 3640: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

3636: ((l_pay_awt_group_id is NOT NULL) and
3637: (l_pay_awt_group_id_per_name is NOT NULL) and
3638: (l_pay_awt_group_id = l_pay_awt_group_id_per_name))) THEN
3639:
3640: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3641: nvl(l_inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3642:
3643: --------------------------------------------------------------
3644: -- inactive pay AWT group (as per id)

Line 3641: nvl(l_inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

3637: (l_pay_awt_group_id_per_name is NOT NULL) and
3638: (l_pay_awt_group_id = l_pay_awt_group_id_per_name))) THEN
3639:
3640: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
3641: nvl(l_inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
3642:
3643: --------------------------------------------------------------
3644: -- inactive pay AWT group (as per id)
3645: --

Line 3648: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3652: p_default_last_update_login,

Line 3654: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3650: 'INACTIVE PAY AWT GROUP',
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;

Line 3656: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3660: END IF;

Line 3702: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3706: p_default_last_update_login,

Line 3708: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3704: 'INVALID PAY AWT GROUP',
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;

Line 3709: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3720: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3716: p_current_invoice_status := l_current_invoice_status;
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

Line 3722: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
3726: AP_IMPORT_UTILITIES_PKG.Print(

Line 3725: 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
3726: AP_IMPORT_UTILITIES_PKG.Print(
3727: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
3728: END IF;
3729: END IF;

Line 3727: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);
3731:

Line 3739: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

3735: -- This function is used to validate exchange rate information
3736: -- for the invoice.
3737: ----------------------------------------------------------------------------
3738: FUNCTION v_check_exchange_rate_type (
3739: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3740: p_exchange_rate OUT NOCOPY NUMBER,
3741: p_exchange_date OUT NOCOPY DATE,
3742: p_base_currency_code IN VARCHAR2,
3743: p_multi_currency_flag IN VARCHAR2,

Line 3778: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3774: -- Check for invalid exchange rate type
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:

Line 3779: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3782:
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;

Line 3787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3796: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3792:
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:

Line 3797: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3810: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3814: p_default_last_update_login,

Line 3816: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3812: 'INVALID EXCH RATE TYPE',
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;

Line 3818: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3822: END IF;

Line 3836: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3832: -------------------------------------------------------------------------
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:

Line 3837: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3855: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3851: -- Check for Inconsistent exchange rate
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 ||' '||

Line 3856: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 3862: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3858: END IF;
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:

Line 3863: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 3876: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3880: p_default_last_update_login,

Line 3882: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

3878: 'INCONSISTENT RATE',
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;

Line 3884: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3888: END IF;

Line 3900: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3904: p_default_last_update_login,

Line 3906: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

3902: 'NO EXCHANGE RATE',
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;

Line 3908: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3912: END IF;

Line 3922: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3918: null;
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:

Line 3923: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 3933: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3929: p_base_currency_code,
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

Line 3934: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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)

Line 3947: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3943:
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:

Line 3949: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
3953: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

Line 3953: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3957: p_default_last_update_login,

Line 3959: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3955: 'NO EXCHANGE RATE',
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;

Line 3961: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3965: END IF;

Line 3972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3968:
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:

Line 3974: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
3978:

Line 3985: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
3989: p_default_last_update_login,

Line 3991: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

3987: 'INVALID EXCH RATE',
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;

Line 3993: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
3997: END IF;

Line 4010: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4006: (p_invoice_rec.exchange_rate <> l_exchange_rate)) Then
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:

Line 4012: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
4016: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

Line 4016: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4020: p_default_last_update_login,

Line 4022: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4018: 'INCONSISTENT RATE',
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;

Line 4024: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4028: END IF;

Line 4044: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4040: -- Check for Inconsistent Information Entered
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:

Line 4045: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4050: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4054: p_default_last_update_login,

Line 4056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4052: 'INCONSISTENT INFO ENTERED',
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;

Line 4057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 4074: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4070: RETURN (TRUE);
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

Line 4075: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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

Line 4079: 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
4080: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);
4081: END IF;
4082: END IF;
4083:

Line 4080: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);

Line 4093: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

4089: -- This function is used to validate payment terms information.
4090: --
4091: ------------------------------------------------------------------
4092: FUNCTION v_check_invalid_terms (
4093: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
4094: p_terms_id OUT NOCOPY NUMBER,
4095: p_terms_date OUT NOCOPY DATE,
4096: p_terms_date_basis IN VARCHAR2,
4097: p_default_last_updated_by IN NUMBER,

Line 4158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4154: -- Step 1
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:

Line 4159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4164: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4168: p_default_last_update_login,

Line 4170: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4166: 'INVALID TERMS',
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;

Line 4171: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 4193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4189:
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:

Line 4194: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4205: -- no term from header level po_number, try lines level po_number
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

Line 4210: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4230: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4234: p_default_last_update_login,

Line 4236: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4232: 'INCONSISTENT TERMS INFO',
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;

Line 4238: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4242: END IF;

Line 4249: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4245: -- no term from line level PO, try line level receipt
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

Line 4251: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
4255: INTO l_term_id

Line 4269: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4265: WHEN NO_DATA_FOUND THEN
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;

Line 4271: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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';
4275: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4276: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4280: p_default_last_update_login,

Line 4282: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4278: 'INCONSISTENT TERMS INFO',
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;

Line 4284: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4288: END IF;

Line 4301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4297: (l_term_id is null) AND
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:

Line 4302: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4317: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4313: (l_term_id is null) AND
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:

Line 4318: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4335: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4331: IF ( nvl(l_current_invoice_status,'Y') = 'Y' ) THEN
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:

Line 4336: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4341: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4345: p_default_last_update_login,

Line 4347: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4343: 'NO TERMS INFO',
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;

Line 4349: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4353: END IF;

Line 4359: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4355: l_current_invoice_status := 'N';
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:

Line 4360: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4380: (l_term_id <> l_term_id_per_name)) THEN
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:

Line 4385: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4390: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4394: p_default_last_update_login,

Line 4396: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4392: 'INCONSISTENT TERMS INFO',
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;

Line 4397: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 4408: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >

4404:
4405: ELSIF ((l_term_id is null) and
4406: (l_term_id_per_name is NOT NULL)) THEN
4407:
4408: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >
4409: nvl(l_start_date_active_per_name,
4410: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4411: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4412: nvl(l_end_date_active_per_name,

Line 4410: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))

4406: (l_term_id_per_name is NOT NULL)) THEN
4407:
4408: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >
4409: nvl(l_start_date_active_per_name,
4410: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4411: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4412: nvl(l_end_date_active_per_name,
4413: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN
4414:

Line 4411: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <

4407:
4408: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >
4409: nvl(l_start_date_active_per_name,
4410: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4411: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4412: nvl(l_end_date_active_per_name,
4413: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN
4414:
4415: -----------------------------------------------------------------------

Line 4413: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN

4409: nvl(l_start_date_active_per_name,
4410: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4411: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4412: nvl(l_end_date_active_per_name,
4413: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN
4414:
4415: -----------------------------------------------------------------------
4416: -- Step 4
4417: -- Check inactive terms per name

Line 4421: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4417: -- Check inactive terms per name
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:

Line 4422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4427: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4431: p_default_last_update_login,

Line 4433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4429: 'INACTIVE TERMS',
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;

Line 4435: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4439: END IF;

Line 4452: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >

4448: ((l_term_id_per_name is NULL) OR
4449: (l_term_id_per_name is NOT NULL AND
4450: l_term_id = l_term_id_per_name))) THEN
4451:
4452: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >
4453: nvl(l_start_date_active,
4454: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4455: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4456: nvl(l_end_date_active,

Line 4454: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))

4450: l_term_id = l_term_id_per_name))) THEN
4451:
4452: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >
4453: nvl(l_start_date_active,
4454: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4455: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4456: nvl(l_end_date_active,
4457: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN
4458:

Line 4455: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <

4451:
4452: IF (not((AP_IMPORT_INVOICES_PKG.g_inv_sysdate >
4453: nvl(l_start_date_active,
4454: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4455: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4456: nvl(l_end_date_active,
4457: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN
4458:
4459: ----------------------------------------------------------------------

Line 4457: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN

4453: nvl(l_start_date_active,
4454: AP_IMPORT_INVOICES_PKG.g_inv_sysdate - 1))
4455: AND (AP_IMPORT_INVOICES_PKG.g_inv_sysdate <
4456: nvl(l_end_date_active,
4457: AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1)))) THEN
4458:
4459: ----------------------------------------------------------------------
4460: -- Step 5
4461: -- Check inactive terms as per id

Line 4465: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4461: -- Check inactive terms as per id
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:

Line 4466: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4471: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4475: p_default_last_update_login,

Line 4477: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4473: 'INACTIVE TERMS',
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;

Line 4479: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4483: END IF;

Line 4504: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4500: --
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:

Line 4505: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4513: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4517: p_default_last_update_login,

Line 4519: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4515: 'DATE INVOICE RECEIVED REQ',
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;

Line 4521: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4525: END IF;

Line 4532: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4536: p_default_last_update_login,

Line 4538: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4534: 'DATE GOODS RECEIVED REQ',
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;

Line 4540: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4544: END IF;

Line 4563: p_terms_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

4559: p_terms_date := p_invoice_rec.goods_received_date;
4560: ELSIF (p_terms_date_basis = 'Invoice') THEN
4561: p_terms_date := p_invoice_rec.invoice_date;
4562: ELSIF (p_terms_date_basis = 'Current') THEN
4563: p_terms_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
4564: ELSE
4565: p_terms_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
4566: END IF;
4567: ELSE /*Bug 7635794*/

Line 4565: p_terms_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;

4561: p_terms_date := p_invoice_rec.invoice_date;
4562: ELSIF (p_terms_date_basis = 'Current') THEN
4563: p_terms_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
4564: ELSE
4565: p_terms_date := AP_IMPORT_INVOICES_PKG.g_inv_sysdate;
4566: END IF;
4567: ELSE /*Bug 7635794*/
4568: p_terms_date := p_invoice_rec.terms_date; --bug 7635794
4569: END IF;

Line 4570: p_terms_date := nvl(p_terms_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate);

4566: END IF;
4567: ELSE /*Bug 7635794*/
4568: p_terms_date := p_invoice_rec.terms_date; --bug 7635794
4569: END IF;
4570: p_terms_date := nvl(p_terms_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate);
4571: END IF;
4572:
4573: -- Bug 4115712
4574: ------------------------------------------------------------------------------

Line 4582: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4578: -- in which the terms date falls, else fail insert.
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:

Line 4583: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4606: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4610: p_default_last_update_login,

Line 4612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4608: 'NO SPECIAL CALENDAR FOR TERMS',
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;

Line 4614: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4618: END IF;

Line 4631: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4627: RETURN (TRUE);
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:

Line 4632: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4633: debug_info);
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;

Line 4638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 4654: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

4650: -- voucher num and requester.
4651: --
4652: ----------------------------------------------------------------------------
4653: FUNCTION v_check_misc_invoice_info (
4654: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
4655: --Bug 6509776
4656: p_set_of_books_id IN NUMBER,
4657: p_default_last_updated_by IN NUMBER,
4658: p_default_last_update_login IN NUMBER,

Line 4700: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4696: -- can be included here.
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:

Line 4701: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4707: IF AP_IMPORT_INVOICES_PKG.g_segment_delimiter <> '-' THEN

4703: END IF;
4704:
4705: -- Validate liability account concat
4706: BEGIN
4707: IF AP_IMPORT_INVOICES_PKG.g_segment_delimiter <> '-' THEN
4708: p_invoice_rec.accts_pay_code_concatenated :=
4709: TRANSLATE(p_invoice_rec.accts_pay_code_concatenated, '-',
4710: AP_IMPORT_INVOICES_PKG.g_segment_delimiter);
4711: END IF;

Line 4710: AP_IMPORT_INVOICES_PKG.g_segment_delimiter);

4706: BEGIN
4707: IF AP_IMPORT_INVOICES_PKG.g_segment_delimiter <> '-' THEN
4708: p_invoice_rec.accts_pay_code_concatenated :=
4709: TRANSLATE(p_invoice_rec.accts_pay_code_concatenated, '-',
4710: AP_IMPORT_INVOICES_PKG.g_segment_delimiter);
4711: END IF;
4712:
4713: --Fetch chart of accounts
4714: SELECT chart_of_accounts_id

Line 4745: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4741: NULL,
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;

Line 4747: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4751: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4752: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4756: p_default_last_update_login,

Line 4758: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4754: 'INVALID LIABILITY ACCT',
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;

Line 4760: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4764: END IF;

Line 4774: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4770: FROM gl_code_combinations
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;

Line 4776: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4780: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4781: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4785: p_default_last_update_login,

Line 4787: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4783: 'INVALID LIABILITY ACCT',
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;

Line 4789: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4793: END IF;

Line 4803: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4799: -- If liab acct ccid is not null, compare both
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;

Line 4805: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4809: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4810: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4814: p_default_last_update_login,

Line 4816: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4812: 'INCONSISTENT LIAB ACCOUNT INFO',
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;

Line 4818: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4822: END IF;

Line 4832: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4828:
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;

Line 4834: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4838: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 4839: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4843: p_default_last_update_login,

Line 4845: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4841: 'INVALID LIABILITY ACCT',
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;

Line 4847: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4851: END IF;

Line 4872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4868: -- can be included here.
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:

Line 4873: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 4891: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4887: FROM gl_sets_of_books
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;

Line 4893: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4897: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4898: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4902: p_default_last_update_login,

Line 4904: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4900: 'INVALID LIABILITY ACCT',
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;

Line 4906: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4910: END IF;

Line 4951: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4947: FALSE,
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;

Line 4953: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4957: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4958: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4962: p_default_last_update_login,

Line 4964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4960: 'INVALID LIABILITY ACCT',
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;

Line 4966: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4970: END IF;

Line 4977: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4973:
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;

Line 4979: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
4983: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections

Line 4984: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
4988: p_default_last_update_login,

Line 4990: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

4986: 'INVALID LIABILITY ACCT',
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;

Line 4992: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
4996: END IF;

Line 5004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5000: END IF; -- Validate CCID returned TRUE
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;

Line 5006: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
5010: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 5011: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5015: p_default_last_update_login,

Line 5017: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5013: 'INVALID LIABILITY ACCT',
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;

Line 5019: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
5023: END IF;

Line 5039: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5035: -- Step 3
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:

Line 5040: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5045: FOR i IN AP_IMPORT_INVOICES_PKG.g_pay_group_tab.First..AP_IMPORT_INVOICES_PKG.g_pay_group_tab.Last

5041: debug_info);
5042: END IF;
5043:
5044: -- Bug 5448579
5045: FOR i IN AP_IMPORT_INVOICES_PKG.g_pay_group_tab.First..AP_IMPORT_INVOICES_PKG.g_pay_group_tab.Last
5046: LOOP
5047: IF AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group = p_invoice_rec.pay_group_lookup_code THEN
5048: l_valid_pay_group := AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group;
5049: EXIT;

Line 5047: IF AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group = p_invoice_rec.pay_group_lookup_code THEN

5043:
5044: -- Bug 5448579
5045: FOR i IN AP_IMPORT_INVOICES_PKG.g_pay_group_tab.First..AP_IMPORT_INVOICES_PKG.g_pay_group_tab.Last
5046: LOOP
5047: IF AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group = p_invoice_rec.pay_group_lookup_code THEN
5048: l_valid_pay_group := AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group;
5049: EXIT;
5050: END IF;
5051: END LOOP;

Line 5048: l_valid_pay_group := AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group;

5044: -- Bug 5448579
5045: FOR i IN AP_IMPORT_INVOICES_PKG.g_pay_group_tab.First..AP_IMPORT_INVOICES_PKG.g_pay_group_tab.Last
5046: LOOP
5047: IF AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group = p_invoice_rec.pay_group_lookup_code THEN
5048: l_valid_pay_group := AP_IMPORT_INVOICES_PKG.g_pay_group_tab(i).pay_group;
5049: EXIT;
5050: END IF;
5051: END LOOP;
5052:

Line 5054: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5050: END IF;
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:

Line 5055: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5058:
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:

Line 5063: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 5068: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5072: p_default_last_update_login,

Line 5074: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5070: 'INVALID PAY GROUP',
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;

Line 5076: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
5080: END IF;

Line 5095: AP_IMPORT_INVOICES_PKG.g_inv_sysdate) -

5091: FROM po_lookup_codes
5092: WHERE lookup_code = p_invoice_rec.pay_group_lookup_code
5093: AND lookup_type = 'PAY GROUP'
5094: AND DECODE(SIGN(NVL(inactive_date,
5095: AP_IMPORT_INVOICES_PKG.g_inv_sysdate) -
5096: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),
5097: -1,'','*') = '*';
5098:
5099: EXCEPTION

Line 5096: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),

5092: WHERE lookup_code = p_invoice_rec.pay_group_lookup_code
5093: AND lookup_type = 'PAY GROUP'
5094: AND DECODE(SIGN(NVL(inactive_date,
5095: AP_IMPORT_INVOICES_PKG.g_inv_sysdate) -
5096: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),
5097: -1,'','*') = '*';
5098:
5099: EXCEPTION
5100: WHEN NO_DATA_FOUND Then

Line 5101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5097: -1,'','*') = '*';
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:

Line 5102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 5107: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5111: p_default_last_update_login,

Line 5113: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5109: 'INVALID PAY GROUP',
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;

Line 5115: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
5119: END IF;

Line 5134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5130: -- Retropricing: For PPA Invoices voucher num is NULL
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:

Line 5135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(*)

Line 5145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5141: FROM ap_invoices
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:

Line 5146: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5152: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5156: p_default_last_update_login,

Line 5158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5154: 'DUPLICATE VOUCHER',
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;

Line 5159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5179: -- Check for voucher number length (intended <= 8)
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:

Line 5184: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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

Line 5190: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5186:
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

Line 5191: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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:

Line 5197: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5201: p_default_last_update_login,

Line 5203: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5199: 'INVALID REQUESTER',
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;

Line 5204: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5220: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5216: -- Step 5
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:

Line 5221: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5226: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

5222: debug_info);
5223: END IF;
5224:
5225: IF (p_invoice_rec.requester_id IS NOT NULL AND
5226: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
5227:
5228: SELECT count(*)
5229: INTO l_emp_count
5230: FROM hr_employees_current_v

Line 5236: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5240: p_default_last_update_login,

Line 5242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5238: 'INVALID REQUESTER',
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:

Line 5243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5261: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5257: RETURN (TRUE);
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:

Line 5263: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
5267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

Line 5267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5263: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 5269: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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:
5273: RETURN(FALSE);

Line 5283: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

5279: -- invoice that is being imported.
5280: --
5281: ----------------------------------------------------------------------------
5282: FUNCTION v_check_Legal_Entity_info (
5283: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
5284: p_set_of_books_id IN NUMBER,
5285: p_default_last_updated_by IN NUMBER,
5286: p_default_last_update_login IN NUMBER,
5287: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 5319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5315: -- LE ID is provided. Validate if it is a valid LE.
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:

Line 5320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5335: --
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

Line 5340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 5344: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5348: p_default_last_update_login,

Line 5350: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5346: 'INVALID LEGAL ENTITY',
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;

Line 5352: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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';
5356: RAISE le_invoice_info_failure;

Line 5375: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5371: --
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: -----------------------------------------------------------------------

Line 5376: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5386: IF p_invoice_rec.invoice_type_lookup_code <> 'PAYMENT REQUEST' THEN
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:

Line 5391: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 5417: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5413:
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:

Line 5418: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5429: --
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:

Line 5434: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5455: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5451: --
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

Line 5456: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 <>

Line 5469: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5465: --
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

Line 5470: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 5474: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5478: p_default_last_update_login,

Line 5480: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5476: 'INCONSISTENT LE INFO',
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;

Line 5482: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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';
5486: RAISE le_invoice_info_failure;

Line 5496: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5492: legal entity id */
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:

Line 5497: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 5514: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5510: --
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

Line 5515: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 5519: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5523: p_default_last_update_login,

Line 5525: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5521: 'INVALID LEGAL ENTITY',
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;

Line 5527: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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';
5531: RAISE le_invoice_info_failure;

Line 5540: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5536: p_current_invoice_status := l_current_invoice_status;
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:

Line 5542: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
5546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

Line 5546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5542: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 5548: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);
5552: END v_check_Legal_Entity_info;

Line 5559: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

5555: -- This function is used to validate payment currency.
5556: --
5557: ------------------------------------------------------------------------------
5558: FUNCTION v_check_invalid_pay_curr (
5559: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
5560: p_pay_currency_code OUT NOCOPY VARCHAR2,
5561: p_payment_cross_rate_date OUT NOCOPY DATE,
5562: p_payment_cross_rate OUT NOCOPY NUMBER,
5563: p_payment_cross_rate_type OUT NOCOPY VARCHAR2,

Line 5579: l_fnd_currency_table AP_IMPORT_INVOICES_PKG.Fnd_Currency_Tab_Type;

5575: l_warning VARCHAR2(240);
5576: current_calling_sequence VARCHAR2(2000);
5577: debug_info VARCHAR2(500);
5578:
5579: l_fnd_currency_table AP_IMPORT_INVOICES_PKG.Fnd_Currency_Tab_Type;
5580: l_valid_pay_currency FND_CURRENCIES.Currency_Code%TYPE;
5581:
5582: BEGIN
5583: --

Line 5591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

5587: 'AP_IMPORT_VALIDATION_PKG.v_check_invalid_pay_curr<-'||P_calling_sequence;
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 (

Line 5593: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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,
5597: P_Calling_Sequence => current_calling_sequence ) <> TRUE) THEN

Line 5598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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(
5600: AP_IMPORT_INVOICES_PKG.g_debug_switch,
5601: 'Cache_Fnd_Currency <-'||current_calling_sequence);
5602: END IF;

Line 5600: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
5604: END IF;

Line 5629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5625: END IF;
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:

Line 5630: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5635: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <

5631: debug_info);
5632: END IF;
5633:
5634: IF l_valid_pay_currency IS NOT NULL THEN
5635: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
5636: nvl(l_start_date_active,
5637: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
5638: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
5639: nvl(l_end_date_active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN

Line 5637: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR

5633:
5634: IF l_valid_pay_currency IS NOT NULL THEN
5635: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
5636: nvl(l_start_date_active,
5637: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
5638: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
5639: nvl(l_end_date_active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN
5640:
5641: debug_info := '(Check Payment Currency Code 1) Check for Inactive '

Line 5638: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

5634: IF l_valid_pay_currency IS NOT NULL THEN
5635: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
5636: nvl(l_start_date_active,
5637: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
5638: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
5639: nvl(l_end_date_active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN
5640:
5641: debug_info := '(Check Payment Currency Code 1) Check for Inactive '
5642: ||'Payment Currency Code.';

Line 5639: nvl(l_end_date_active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN

5635: IF ((trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate) <
5636: nvl(l_start_date_active,
5637: trunc(AP_IMPORT_INVOICES_PKG.g_inv_sysdate))) OR
5638: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
5639: nvl(l_end_date_active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) 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

Line 5643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5639: nvl(l_end_date_active, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) 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:

Line 5644: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5649: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5653: p_default_last_update_login,

Line 5655: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5651: 'INACTIVE PAY CURR CODE',
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;

Line 5656: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5667: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5663: END IF; -- Test of inactive payment currency code
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:

Line 5668: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5673: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5677: p_default_last_update_login,

Line 5679: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5675: 'INACTIVE PAY CURR CODE',
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;

Line 5680: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5712: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5708: p_payment_cross_rate_date) <> 'Y' ) THEN
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:

Line 5713: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 5718: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5722: p_default_last_update_login,

Line 5724: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5720: 'PAY X RATE NOT FIXED',
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;

Line 5726: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
5730: END IF;

Line 5743: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5739: p_payment_cross_rate_date,
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:

Line 5744: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5758: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5754: WHERE lookup_type = 'REJECT CODE'
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

Line 5760: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
5764: END;

Line 5773: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5769:
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;

Line 5775: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
5779: p_pay_currency_code := p_invoice_rec.invoice_currency_code;

Line 5813: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5809: -- Check for Invalid Payment Currency Code.
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:

Line 5814: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5819: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5823: p_default_last_update_login,

Line 5825: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5821: 'INVALID PAY CURR CODE',
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;

Line 5826: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5837: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5833: p_current_invoice_status := l_current_invoice_status;
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:

Line 5838: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 5843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5839: debug_info);
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;

Line 5844: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 5859: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

5855: -----------------------------------------------------------------------------
5856:
5857: FUNCTION v_check_prepay_info(
5858: p_invoice_rec IN OUT NOCOPY
5859: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
5860: p_base_currency_code IN VARCHAR2,
5861: p_prepay_period_name IN OUT NOCOPY VARCHAR2,
5862: p_prepay_invoice_id OUT NOCOPY NUMBER,
5863: p_prepay_case_name OUT NOCOPY VARCHAR2,

Line 5898: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5894: p_invoice_rec.invoice_type_lookup_code = 'PREPAYMENT')THEN
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:

Line 5899: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 5904: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5908: p_default_last_update_login,

Line 5910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5906: 'INCONSISTENT PREPAY APPL INFO',
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;

Line 5911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 5931: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5927: ' to a complex works po';
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:

Line 5932: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 5952: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5948: AND pll.shipment_type = 'PREPAYMENT';
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:

Line 5953: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 5964: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5960:
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:

Line 5965: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 5970: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
5974: p_default_last_update_login,

Line 5976: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5972: 'CANNOT MANUALLY RECOUP',
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;

Line 5977: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 6003: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

5999: --------------------------------------------------------------------------
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: --

Line 6004: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 6032: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6028: p_invoice_rec.invoice_type_lookup_code); -- Bug 7004765;
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)

Line 6033: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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)

Line 6049: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
6053: p_default_last_update_login,

Line 6055: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6051: l_reject_code,
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;

Line 6056: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 6076: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6072: RETURN(TRUE);
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:

Line 6077: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6082: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6078: debug_info);
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;

Line 6083: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 6099: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

6095: --
6096: -----------------------------------------------------------------------------
6097: FUNCTION v_check_no_xrate_base_amount (
6098: p_invoice_rec IN
6099: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
6100: p_base_currency_code IN VARCHAR2,
6101: p_multi_currency_flag IN VARCHAR2,
6102: p_calc_user_xrate IN VARCHAR2,
6103: p_default_last_updated_by IN NUMBER,

Line 6126: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6122: -------------------------------------------------------------------------
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:

Line 6127: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6137: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6133:
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:

Line 6138: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6143: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
6147: p_default_last_update_login,

Line 6149: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6145: 'BASE AMOUNT NOT ALLOWED',
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;

Line 6151: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
6155: END IF;

Line 6164: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
6168: p_default_last_update_login,

Line 6170: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6166: 'INVALID EXCH RATE TYPE',
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;

Line 6172: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
6176: END IF;

Line 6192: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
6196: p_default_last_update_login,

Line 6198: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6194: 'INCONSISTENT XRATE INFO',
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;

Line 6200: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
6204: END IF;

Line 6215: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
6219: p_default_last_update_login,

Line 6221: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6217: 'NO EXCHANGE RATE',
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;

Line 6222: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 6242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6238: p_invoice_rec.no_xrate_base_amount IS NULL AND
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:

Line 6243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6268: RETURN (TRUE);
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:

Line 6273: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6278: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6274: debug_info);
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;

Line 6279: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 6290: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

6286: END v_check_no_xrate_base_amount;
6287:
6288:
6289: FUNCTION v_check_lines_validation (
6290: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
6291: p_invoice_lines_tab IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.t_lines_table,
6292: p_gl_date_from_get_info IN DATE,
6293: p_gl_date_from_receipt_flag IN VARCHAR2,
6294: p_positive_price_tolerance IN NUMBER,

Line 6291: p_invoice_lines_tab IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.t_lines_table,

6287:
6288:
6289: FUNCTION v_check_lines_validation (
6290: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
6291: p_invoice_lines_tab IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.t_lines_table,
6292: p_gl_date_from_get_info IN DATE,
6293: p_gl_date_from_receipt_flag IN VARCHAR2,
6294: p_positive_price_tolerance IN NUMBER,
6295: p_pa_installed IN VARCHAR2,

Line 6363: DECODE(AP_IMPORT_INVOICES_PKG.g_source,

6359: distribution_set_id,
6360: distribution_set_name,
6361: NULL, -- partial segments
6362: -- bug 6349739
6363: DECODE(AP_IMPORT_INVOICES_PKG.g_source,
6364: 'RETEK',
6365: TRANSLATE(RTRIM(dist_code_concatenated,'-'),
6366: '-',
6367: AP_IMPORT_INVOICES_PKG.g_segment_delimiter),

Line 6367: AP_IMPORT_INVOICES_PKG.g_segment_delimiter),

6363: DECODE(AP_IMPORT_INVOICES_PKG.g_source,
6364: 'RETEK',
6365: TRANSLATE(RTRIM(dist_code_concatenated,'-'),
6366: '-',
6367: AP_IMPORT_INVOICES_PKG.g_segment_delimiter),
6368: dist_code_concatenated), -- 6349739
6369: dist_code_combination_id,
6370: awt_group_id,
6371: awt_group_name,

Line 6568: DECODE(AP_IMPORT_INVOICES_PKG.g_source,

6564: distribution_set_id,
6565: distribution_set_name,
6566: NULL, -- partial segments
6567: -- bug 6349739
6568: DECODE(AP_IMPORT_INVOICES_PKG.g_source,
6569: 'RETEK',
6570: TRANSLATE(RTRIM(dist_code_concatenated,'-'),
6571: '-',
6572: AP_IMPORT_INVOICES_PKG.g_segment_delimiter),

Line 6572: AP_IMPORT_INVOICES_PKG.g_segment_delimiter),

6568: DECODE(AP_IMPORT_INVOICES_PKG.g_source,
6569: 'RETEK',
6570: TRANSLATE(RTRIM(dist_code_concatenated,'-'),
6571: '-',
6572: AP_IMPORT_INVOICES_PKG.g_segment_delimiter),
6573: dist_code_concatenated), -- 6349739
6574: dist_code_combination_id,
6575: awt_group_id,
6576: awt_group_name,

Line 6762: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6758: --Payment Requests: Added IF condition for Payment Requests
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:

Line 6763: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 6775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 6776: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 6786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6782:
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;

Line 6787: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 6806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

6802: -- Get max line number for the invoice to be used in case a line does not
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: --

Line 6807: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6811: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' 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
6812: BEGIN
6813: SELECT NVL(MAX(line_number),0)
6814: INTO l_max_line_number
6815: FROM ap_invoice_lines_interface ail

Line 6833: ELSIF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

6829: RAISE check_lines_failure;
6830: END;
6831: -- Bug 6369356
6832: --
6833: ELSIF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
6834: BEGIN
6835: --bugfix:4745899 , added the NVL condition
6836: SELECT NVL(MAX(line_number),0)
6837: INTO l_max_line_number

Line 6857: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6853: -- Retropricing: For PPA's the p_invoice_lines_tab is populated from
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:

Line 6858: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6863: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN

6859: debug_info);
6860: END IF;
6861:
6862: -- Bug 6369356
6863: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN
6864: OPEN invoice_lines_tax_summarized;
6865: FETCH invoice_lines_tax_summarized BULK COLLECT INTO p_invoice_lines_tab;
6866: CLOSE invoice_lines_tax_summarized;
6867: ELSIF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

Line 6867: ELSIF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

6863: IF AP_IMPORT_INVOICES_PKG.g_source = 'RETEK' THEN
6864: OPEN invoice_lines_tax_summarized;
6865: FETCH invoice_lines_tax_summarized BULK COLLECT INTO p_invoice_lines_tab;
6866: CLOSE invoice_lines_tax_summarized;
6867: ELSIF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing
6868: OPEN invoice_lines;
6869: FETCH invoice_lines BULK COLLECT INTO p_invoice_lines_tab;
6870: CLOSE invoice_lines;
6871: END IF;

Line 6880: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6876: -- Step 4
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:

Line 6881: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 6886: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

6882: debug_info);
6883: END IF;
6884:
6885: -- Retropricing: Base Amount is populated for proposed PPA Lines
6886: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
6887: p_invoice_lines_tab(i).base_amount :=
6888: ap_utilities_pkg.ap_round_currency(
6889: p_invoice_lines_tab(i).amount*p_invoice_rec.exchange_rate,
6890: p_base_currency_code );

Line 6893: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

6889: p_invoice_lines_tab(i).amount*p_invoice_rec.exchange_rate,
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 = '

Line 6894: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch ,

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

Line 7057: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN --Retropricing

7053: -- Step 5
7054: -- Validate line's org_id.
7055: -- Retropricing: Org Id's are populated for PPA Lines
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);

Line 7059: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7055: -- Retropricing: Org Id's are populated for PPA Lines
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:

Line 7060: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7066: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7062: END IF;
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:

Line 7067: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7074: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
7078: p_default_last_update_login,

Line 7080: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7076: 'INCONSISTENT OPERATING UNITS',
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;

Line 7082: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
7086: END IF;

Line 7110: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7106: --------------------------------------------------------------------
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:

Line 7111: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 '

Line 7117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7113: END IF;
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:

Line 7118: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7135: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7131: -- Retropricing: The code below will not execute for PPA's.
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:

Line 7136: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7142: P_invoice_lines_tab(i).partial_segments, -- OUT
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;

Line 7147: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7149: 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

Line 7154: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 = '

Line 7172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7168: p_invoice_lines_tab(i).invoice_line_id is not null) THEN
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 (

Line 7173: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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),

Line 7183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7179: p_default_last_updated_by,
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;

Line 7184: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7193: END IF;
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;

Line 7198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7210: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7206: -- check for PO Information
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:

Line 7211: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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' )

Line 7218: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7214:
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:

Line 7219: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7233: p_default_last_update_login, -- IN
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;

Line 7238: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7243:
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:

Line 7248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7263: -- Step 10
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:

Line 7269: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
7273:

Line 7284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7280: p_default_last_update_login, -- IN
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;

Line 7285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7295: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7291:
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;

Line 7296: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7315: p_invoice_lines_tab(i).purchasing_category IS NOT NULL) THEN
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:

Line 7320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7331: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7327: p_default_last_update_login,
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;

Line 7332: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7345: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7341: END IF;
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;

Line 7346: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7363: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7359: p_invoice_lines_tab(i).cost_factor_name IS NOT NULL) THEN
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:

Line 7364: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7375: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7371: p_default_last_update_login,
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;

Line 7376: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7389: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7385: END IF;
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;

Line 7390: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7407: p_invoice_lines_rec =>p_invoice_lines_tab(i),
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;

Line 7412: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7425: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7421: -- Step 13
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:

Line 7427: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
7431: p_invoice_rec, -- IN

Line 7442: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7438: p_default_last_update_login, -- IN
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;

Line 7443: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7452: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7448:
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: --

Line 7453: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7467: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7463: -- Step 14
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:

Line 7468: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7494: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7490: p_pa_built_account => l_pa_built_account, -- OUT NOCOPY
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;

Line 7495: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7504: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7500:
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));

Line 7505: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7522: -- then no need to validate lien account info
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:

Line 7528: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
7532: Distribution Generation Via Ap_Product_Registrations */

Line 7550: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7546: END IF;
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:

Line 7552: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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: -------------------------------------------------------------------
7556: -- Step 15

Line 7566: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

7562: /* bug 5039042. If Source Application is registered for
7563: Ditribution Generation Via Ap_Product_Registrations
7564: Then no need to validate the line account info */
7565:
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(

Line 7569: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7565:
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:

Line 7571: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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*/
7575: --If distribution_set_id is null or accounting information is not there

Line 7616: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7612: p_default_last_update_login, -- IN
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;

Line 7618: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
7622: END IF;

Line 7626: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7622: END IF;
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));

Line 7627: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7645: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

7641: -- check for deferred accounting Information
7642: -- Retropricing: For PPA Lines deferred_acctg_flag = 'N' and the validation
7643: -- w.r.t deferred accounting is not required.
7644: --------------------------------------------------------------------------
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,

Line 7648: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7644: --------------------------------------------------------------------------
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:

Line 7649: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 7660: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7656: p_default_last_updated_by, -- IN
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;

Line 7661: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7666:
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;

Line 7671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 7687: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

7683: -- check distribution set information
7684: -- Retropricing: For PPA Lines dist set is NULL and the validation
7685: -- w.r.t Dist Set is not required.
7686: ---------------------------------------------------------
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,

Line 7690: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7686: ---------------------------------------------------------
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: --

Line 7691: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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' )

Line 7711: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

7707: p_default_last_update_login, -- IN
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;

Line 7713: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
7717: END IF;

Line 7721: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

7717: END IF;
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: --

Line 7722: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7738: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7734: -- Step 18
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:

Line 7740: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
7744: IF (AP_IMPORT_VALIDATION_PKG.v_check_qty_uom_non_po (

Line 7751: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7747: p_default_last_updated_by, -- IN
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;

Line 7752: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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:

Line 7761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 7776: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7772: -- Step 19
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:

Line 7777: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7789: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7785: p_default_last_updated_by, -- IN
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;

Line 7790: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7798: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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: --

Line 7799: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7813: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7809: -- Step 19.1
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:

Line 7814: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7826: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7822: p_default_last_updated_by, -- IN
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;

Line 7827: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7835: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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: --

Line 7836: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7852: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

7848: -- Step 20
7849: -- check for Duplicate Line Num
7850: -- Retropricing: This check is not needed for PPA's
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);

Line 7854: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7850: -- Retropricing: This check is not needed for PPA's
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:

Line 7855: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7863: p_default_last_update_login, -- IN
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;

Line 7868: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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: --

Line 7877: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 7896: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7892: -- Step 21
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:

Line 7898: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_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 (
7902: p_invoice_lines_tab(i), -- IN OUT NOCOPY

Line 7910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7906: p_default_last_update_login, -- IN
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;

Line 7911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7919: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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:

Line 7920: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 7935: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7931: -- Step 22
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:

Line 7936: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7948: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7944: p_default_last_update_login, -- IN
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;

Line 7949: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7957: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 7958: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 7973: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

7969: -- Step 23
7970: -- Check for Tax line info.
7971: -- Retropricing: Tax line would be created by Validation or Calculate Tax
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);

Line 7975: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7971: -- Retropricing: Tax line would be created by Validation or Calculate Tax
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:

Line 7976: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 7987: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

7983: p_default_last_update_login, -- IN
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;

Line 7988: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 7996: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 7997: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 8015: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8011: -- Step 24
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(

Line 8016: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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',

Line 8044: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table, -- Retropricing: global need to modify

8040: p_invoice_lines_tab(i).global_attribute19,
8041: p_invoice_lines_tab(i).global_attribute20,
8042: TO_CHAR(p_set_of_books_id),
8043: fnd_date.date_to_canonical(p_invoice_rec.invoice_date),
8044: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table, -- Retropricing: global need to modify
8045: TO_CHAR(p_invoice_lines_tab(i).invoice_line_id),-- the API to handle PPA tables.
8046: TO_CHAR(p_default_last_updated_by),
8047: TO_CHAR(p_default_last_update_login),
8048: current_calling_sequence,

Line 8056: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8052: NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,NULL,
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);

Line 8057: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 8059: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8077: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8073: -- Lines as the prorate_across_flag is N for RETROITEM
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:

Line 8078: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8092: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8088: p_default_last_update_login, -- IN
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;

Line 8093: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 8101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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:

Line 8102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 8122: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8118: IF (p_invoice_lines_tab(i).po_line_location_id IS NOT NULL AND
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(

Line 8123: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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

Line 8134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8130: p_default_last_update_login,
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;

Line 8135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 8141: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8137: 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:

Line 8142: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8161: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8157: IF (p_invoice_lines_tab(i).ship_to_location_code IS NOT NULL AND
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(

Line 8162: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,

Line 8173: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8169: p_default_last_update_login,
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;

Line 8174: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 8180: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8176: 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;

Line 8181: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 8201: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8197: RETURN (TRUE);
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:

Line 8202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8203: debug_info);
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;

Line 8208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 8224: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,

8220: -----------------------------------------------------------------------------
8221: -- This function is used to validate the precision of a line amount.
8222: --
8223: FUNCTION v_check_invoice_line_amount (
8224: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
8225: p_precision_inv_curr IN NUMBER,
8226: p_default_last_updated_by IN NUMBER,
8227: p_default_last_update_login IN NUMBER,
8228: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 8250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8246: NVL(p_precision_inv_curr,0) THEN
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:

Line 8251: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8256: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8260: p_default_last_update_login,

Line 8262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8258: 'LINE AMOUNT EXCEEDS PRECISION',
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;

Line 8263: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 8277: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8273: RETURN (TRUE);
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:

Line 8278: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8283: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8279: debug_info);
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;

Line 8284: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 8298: IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

8294: -- This function is used to validate PO information at line level.
8295: --
8296: FUNCTION v_check_line_po_info (
8297: p_invoice_rec
8298: IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
8299: p_invoice_lines_rec
8300: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
8301: p_set_of_books_id IN NUMBER,
8302: p_positive_price_tolerance IN NUMBER,

Line 8300: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

8296: FUNCTION v_check_line_po_info (
8297: p_invoice_rec
8298: IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
8299: p_invoice_lines_rec
8300: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
8301: p_set_of_books_id IN NUMBER,
8302: p_positive_price_tolerance IN NUMBER,
8303: p_qty_ord_tolerance IN NUMBER,
8304: p_amt_ord_tolerance IN NUMBER,

Line 8385: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8381: (p_invoice_rec.po_number is NOT NULL)) THEN
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: --

Line 8386: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 8405: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8409: p_default_last_update_login,

Line 8414: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8410: current_calling_sequence,
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;

Line 8416: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8420:

Line 8434: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8430: IF (l_po_header_id IS NOT NULL) THEN
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: --

Line 8435: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 8452: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8456: p_default_last_update_login,

Line 8461: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8457: current_calling_sequence,
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;

Line 8463: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8467: END IF;

Line 8482: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8478: (l_po_header_id IS NULL)) THEN
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: --

Line 8483: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8500: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8504: p_default_last_update_login,

Line 8509: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8505: current_calling_sequence,
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;

Line 8511: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8515: END IF;

Line 8531: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8527: --
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: --

Line 8532: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 8546: (AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8550: p_default_last_update_login,

Line 8552: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8548: 'INCONSISTENT PO INFO',
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;

Line 8554: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8558: END IF;

Line 8572: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8568: IF (l_po_line_id IS NOT NULL) THEN
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: --

Line 8573: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 8585: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8589: p_default_last_update_login,

Line 8591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8587: 'INVALID PO LINE NUM',
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;

Line 8593: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8597: END IF;

Line 8613: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8609: (l_po_header_id IS NOT NULL)) THEN
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: --

Line 8614: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 8628: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8632: p_default_last_update_login,

Line 8634: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8630: 'INVALID PO LINE NUM',
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;

Line 8636: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8640: END IF;

Line 8656: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8652: --
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: --

Line 8657: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 8670: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8674: p_default_last_update_login,

Line 8676: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8672: 'INCONSISTENT PO LINE INFO',
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;

Line 8678: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8682: END IF;

Line 8696: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8692: IF (l_po_release_id IS NOT NULL) THEN
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: --

Line 8697: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 8716: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8720: p_default_last_update_login,

Line 8722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8718: 'INVALID PO RELEASE NUM',
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;

Line 8724: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8728: END IF;

Line 8744: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8740: (l_po_header_id IS NOT NULL)) THEN
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: --

Line 8745: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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',

Line 8766: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8770: p_default_last_update_login,

Line 8775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8771: current_calling_sequence,
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;

Line 8777: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8781: END IF;

Line 8798: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8794: --
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: --

Line 8799: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 8812: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8816: p_default_last_update_login,

Line 8818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8814: 'INCONSISTENT RELEASE INFO',
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;

Line 8820: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8824: END IF;

Line 8839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8835: --
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: --

Line 8840: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 8856: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8860: p_default_last_update_login,

Line 8862: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8858: 'INCONSISTENT RELEASE INFO',
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;

Line 8864: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8868: END IF;

Line 8883: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8879: --
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: --

Line 8884: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 8905: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8909: p_default_last_update_login,

Line 8918: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8914: 'PO SHIPMENT NUMBER',
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;

Line 8920: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8924: END IF;

Line 8938: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
8942: p_default_last_update_login,

Line 8944: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8940: 'CAN MATCH TO ONLY 1 LINE',
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;

Line 8946: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
8950: END IF;

Line 8974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

8970: Removed the 'STANDARD' from the condition from both
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:

Line 8975: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 9040: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9047: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9049: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9053: END IF;

Line 9067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9063: --
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: --

Line 9068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 9081: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9085: p_default_last_update_login,

Line 9087: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9083: 'INVALID ITEM',
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;

Line 9089: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9093: END IF;

Line 9103: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9107: p_default_last_update_login,

Line 9109: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9105: 'CAN MATCH TO ONLY 1 LINE',
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;

Line 9111: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9115: END IF;

Line 9134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9130: (l_po_header_id IS NOT NULL)) THEN
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: --

Line 9135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 9148: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9152: p_default_last_update_login,

Line 9157: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9153: current_calling_sequence,
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;

Line 9159: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9163: END IF;

Line 9174: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9178: p_default_last_update_login,

Line 9183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9179: current_calling_sequence,
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;

Line 9185: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9189: END IF;

Line 9208: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9204: (l_po_header_id IS NOT NULL)) THEN
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: --

Line 9209: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 9222: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9226: p_default_last_update_login,

Line 9228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9224: 'INVALID ITEM',
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;

Line 9230: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9234: END IF;

Line 9245: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9249: p_default_last_update_login,

Line 9251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9247: 'CAN MATCH TO ONLY 1 LINE',
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;

Line 9253: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9257: END IF;

Line 9283: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9279: --
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: --

Line 9284: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 9299: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9303: p_default_last_update_login,

Line 9308: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9304: current_calling_sequence,
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;

Line 9310: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9314: END IF;

Line 9328: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9332: p_default_last_update_login,

Line 9338: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9334: 'Y',
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;

Line 9340: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9344: END IF;

Line 9358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9354: --
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: --

Line 9359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 9373: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9380: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9382: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9386: END IF;

Line 9397: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9404: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9406: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9410: END IF;

Line 9429: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9425: --
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: --

Line 9430: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 9444: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9451: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9453: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9457: END IF;

Line 9475: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9471: --
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:

Line 9476: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 9491: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9495: p_default_last_update_login,

Line 9500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9496: current_calling_sequence,
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;

Line 9502: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9506: END IF;

Line 9529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9525: --
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:

Line 9530: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 9546: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9550: p_default_last_update_login,

Line 9555: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9551: current_calling_sequence,
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;

Line 9557: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9561: END IF;

Line 9584: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9580: --
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:

Line 9585: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 9602: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9606: p_default_last_update_login,

Line 9608: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9604: 'INCONSISTENT PO LINE INFO',
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;

Line 9610: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9614: END IF;

Line 9629: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9625: IF (l_po_line_location_id IS NOT NULL ) THEN
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: --

Line 9630: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 9648: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9652: p_default_last_update_login,

Line 9657: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9653: current_calling_sequence,
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;

Line 9659: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9663: END IF;

Line 9683: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9679: (l_po_release_id IS NULL)) THEN
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: --

Line 9684: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 9700: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9704: p_default_last_update_login,

Line 9709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9705: current_calling_sequence,
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;

Line 9711: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9715: END IF;

Line 9722: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9726: p_default_last_update_login,

Line 9735: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9731: 'PO SHIPMENT NUMBER',
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;

Line 9737: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9741: END IF;

Line 9760: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9756: (l_po_release_id IS NULL)) THEN
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: --

Line 9761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 9779: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9786: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9788: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9792: END IF;

Line 9800: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9807: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9809: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9813: END IF;

Line 9833: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9829: (l_po_release_id IS NOT NULL)) THEN
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: --

Line 9834: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 9851: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9855: p_default_last_update_login,

Line 9860: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9856: current_calling_sequence,
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;

Line 9862: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9866: END IF;

Line 9886: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9882: --
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: --

Line 9887: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 9905: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 9912: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 9914: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9918: END IF;

Line 9938: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9934: --
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: --

Line 9939: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 9951: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
9955: p_default_last_update_login,

Line 9957: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9953: 'INCONSISTENT PO SHIPMENT',
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;

Line 9959: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
9963: END IF;

Line 9980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9976: --
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: --

Line 9981: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 9997: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10001: p_default_last_update_login,

Line 10003: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

9999: 'INCONSISTENT PO SHIPMENT',
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;

Line 10005: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10009: END IF;

Line 10029: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10025: --
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: --

Line 10030: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 10047: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10051: p_default_last_update_login,

Line 10053: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10049: 'INCONSISTENT PO SHIPMENT',
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;

Line 10055: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --
10059: RAISE check_po_failure;

Line 10093: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10089:
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: --

Line 10094: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 10128: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10132: p_default_last_update_login,

Line 10134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10130: 'ACCRUE ON RECEIPT', -- Bug 5235675
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;

Line 10136: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10140: END IF;

Line 10167: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10163: --
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: --

Line 10168: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 10185: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10189: p_default_last_update_login,

Line 10191: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10187: 'INCONSISTENT PO SHIPMENT',
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;

Line 10193: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10197: END IF;

Line 10213: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10209: IF (l_po_distribution_id IS NOT NULL ) THEN
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: --

Line 10214: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 10226: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10230: p_default_last_update_login,

Line 10232: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10228: 'INVALID PO DIST NUM',
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;

Line 10234: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10238: END IF;

Line 10258: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10254: (l_po_header_id IS NOT NULL)) THEN
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: --

Line 10259: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10275: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 10282: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 10284: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10288: END IF;

Line 10306: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10302: (l_po_header_id IS NOT NULL)) THEN
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: --

Line 10307: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10322: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 10329: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 10331: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10335: END IF;

Line 10353: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10349: --
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: --

Line 10354: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 10367: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 10374: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 10376: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10380: END IF;

Line 10411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10407:
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:

Line 10413: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
10417: INTO l_po_number

Line 10440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10436:
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:

Line 10442: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,
10446: ph.segment1

Line 10470: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10466:
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:

Line 10472: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,
10476: ph.segment1

Line 10505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10501: BEGIN
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:

Line 10507: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,
10511: ph.segment1

Line 10540: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10536: BEGIN
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:

Line 10542: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,
10546: ph.segment1

Line 10573: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10569: (l_po_header_id IS NULL)) THEN
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

Line 10574: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10596: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10592: -- Step 31
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:

Line 10597: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------

Line 10612: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10608: BEGIN
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:

Line 10614: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
10618: INTO l_po_line_id

Line 10640: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10636: BEGIN
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:

Line 10642: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
10646: INTO l_po_line_id

Line 10670: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10666: BEGIN
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:

Line 10671: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10686: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10682: NULL;
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:

Line 10687: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10694: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10698: p_default_last_update_login,

Line 10703: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10699: current_calling_sequence,
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;

Line 10705: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10709: END IF;

Line 10730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10726: -- Step 32
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:

Line 10732: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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: -------------------------------------------------------
10736: -- Case 1, If l_po_line_location_id id still null, get it from

Line 10746: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10742: BEGIN
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:

Line 10748: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
10752: INTO l_po_line_location_id

Line 10776: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10772:
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:

Line 10778: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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: /*--------------------------------------------------------------------+
10782: | --Contract Payments: |

Line 10819: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10815: WHEN TOO_MANY_ROWS Then
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:

Line 10821: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
10825: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 10825: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10829: p_default_last_update_login,

Line 10831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10827: 'NO PO SHIPMENT NUM',
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;

Line 10833: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10837: END IF;

Line 10856: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10852: ---------------------------------------------------------------------------
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:

Line 10858: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
10862: INTO l_match_basis

Line 10884: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10880: ---------------------------------------------------------------------------
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:

Line 10886: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
10890: declare

Line 10927: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
10931: p_default_last_update_login,

Line 10936: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10932: current_calling_sequence,
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;

Line 10938: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
10942: END IF;

Line 10972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10968: IF (l_po_header_id IS NOT NULL) Then
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

Line 10973: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10982: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10978: INTO l_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;

Line 10983: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 :=

Line 10989: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

10985: to_char(l_vendor_id));
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:

Line 10990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 10995: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY' ) THEN

10991: debug_info);
10992: END IF;
10993:
10994: IF (l_vendor_id <> nvl(p_invoice_rec.vendor_id, l_vendor_id)) THEN
10995: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY' ) THEN
10996: BEGIN
10997:
10998: SELECT vendor_name
10999: INTO l_invoice_vendor_name

Line 11004: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11008: p_default_last_update_login,

Line 11014: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11010: 'Y',
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;

Line 11016: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11020: END IF;

Line 11029: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11036: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11038: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11042: END IF;

Line 11058: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11054: BEGIN
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:

Line 11060: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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'
11064: INTO l_po_is_not_blanket

Line 11075: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11079: p_default_last_update_login,

Line 11084: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11080: current_calling_sequence,
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;

Line 11086: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11090: END IF;

Line 11104: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11100: BEGIN
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:

Line 11105: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 11123: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11127: p_default_last_update_login,

Line 11140: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11136: 'PO SHIPMENT NUMBER',
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;

Line 11142: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11146:

Line 11160: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11156: ---------------------------------------------------------
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:

Line 11162: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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'
11166: INTO l_po_inv_curr_is_consis_flag

Line 11174: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11170: EXCEPTION
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

Line 11175: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11179: IF ( AP_IMPORT_INVOICES_PKG.g_source = 'XML GATEWAY') 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
11180: SELECT currency_code
11181: INTO l_po_currency_code
11182: FROM po_headers
11183: WHERE po_header_id = l_po_header_id ;

Line 11186: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11190: p_default_last_update_login,

Line 11198: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11194: p_invoice_rec.invoice_currency_code,
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;

Line 11200: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 11209: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11216: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11218: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11222:

Line 11242: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

11238: -- Corrections should not be executed for source = 'PPA'.
11239: -- For PPA Lines p_invoice_lines_rec.price_correction_flag
11240: -- should be NULL
11241: ---------------------------------------------------------
11242: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
11243: IF p_invoice_lines_rec.price_correction_flag = 'Y' then
11244:
11245: debug_info := '(v_check_line_po_info 34.1) Check for price correction information on'||
11246: ' prepayment invoices';

Line 11247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11243: IF p_invoice_lines_rec.price_correction_flag = 'Y' then
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:

Line 11248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11255: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11262: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11264: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
11268: RAISE check_po_failure;

Line 11277: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11273:
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:

Line 11278: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11285: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11292: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11294: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
11298: RAISE check_po_failure;

Line 11310: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11306: --Check if price_correct_inv_line_num is NULL, if so reject the invoice.
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:

Line 11311: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 11316: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11325: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11329: END IF;

Line 11342: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11338: BEGIN
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:

Line 11343: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11365: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11369: p_default_last_update_login,

Line 11371: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11367: 'INVALID PO INFO',
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;

Line 11373: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11377: END IF;

Line 11391: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11387: BEGIN
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:

Line 11392: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 11400: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11404: p_default_last_update_login,

Line 11407: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

11403: p_default_last_updated_by,
11404: p_default_last_update_login,
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);

Line 11410: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11414:

Line 11433: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11429: IF l_po_distribution_id is not null then
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:

Line 11434: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11452: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11459: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11461: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11465: END IF;

Line 11479: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11475: l_po_line_location_id is not null) THEN
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:

Line 11480: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11501: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11505: p_default_last_update_login,

Line 11507: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11503: 'INVALID PO INFO',
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;

Line 11509: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11513: END IF;

Line 11526: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11522: --No price corrections should not be performed against finally closed POs.
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:

Line 11527: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 11542: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11546: p_default_last_update_login,

Line 11549: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

11545: p_default_last_updated_by,
11546: p_default_last_update_login,
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);

Line 11552: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11556: RAISE check_po_failure;

Line 11575: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11571: --Quantity Invoiced must be always be positive or NULL for price corrections regardless of
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:

Line 11576: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11584: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11588: p_default_last_update_login,

Line 11591: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

11587: p_default_last_updated_by,
11588: p_default_last_update_login,
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);

Line 11594: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11598: RAISE check_po_failure;

Line 11611: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11607: --Unit Price must be always be positive for STANDARD invoices, and negative
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:

Line 11612: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'.

Line 11624: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11628: p_default_last_update_login,

Line 11631: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

11627: p_default_last_updated_by,
11628: p_default_last_update_login,
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);

Line 11634: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11638: RAISE check_po_failure;

Line 11651: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11647:
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:

Line 11652: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11669: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11673: p_default_last_update_login,

Line 11675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11671: 'PRICE CORRECT INV INVALID',
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;

Line 11677: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11681: END IF;

Line 11691: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11695: p_default_last_update_login,

Line 11698: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

11694: p_default_last_updated_by,
11695: p_default_last_update_login,
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);

Line 11701: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11705: RAISE check_po_failure;

Line 11726: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11722: debug_info := '(v_check_line_po_info 34.12) Check if amount_billed against PO Shipment/Dist'
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:

Line 11727: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 :=

Line 11753: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11757: p_default_last_update_login,

Line 11759: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11755: 'PRICE CORRECT INV INVALID',
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;

Line 11761: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11765: END IF;

Line 11775: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11779: p_default_last_update_login,

Line 11782: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

11778: p_default_last_updated_by,
11779: p_default_last_update_login,
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);

Line 11785: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11789: RAISE check_po_failure;

Line 11816: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11812: l_line_amt_calculated < 0) THEN
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:

Line 11817: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11833: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11837: p_default_last_update_login,

Line 11839: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11835: 'PRICE CORRECT INV INVALID',
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;

Line 11841: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11845: END IF;

Line 11855: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 11862: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 11864: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11868: END IF;

Line 11902: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11906: p_default_last_update_login,

Line 11908: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11904: 'AMOUNT BILLED BELOW ZERO',
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;

Line 11910: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11914: END IF;

Line 11935: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11931: l_line_amt_calculated < 0)) THEN
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:

Line 11936: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 11953: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11957: p_default_last_update_login,

Line 11959: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11955: 'PRICE CORRECT INV INVALID',
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;

Line 11961: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11965: END IF;

Line 11975: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
11979: p_default_last_update_login,

Line 11981: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

11977: 'AMOUNT BILLED BELOW ZERO',
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;

Line 11983: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
11987: END IF;

Line 12011: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12007: l_line_amt_calculated < 0) THEN
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:

Line 12012: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 12034: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12038: p_default_last_update_login,

Line 12040: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12036: 'PRICE CORRECT INV INVALID',
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;

Line 12042: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12046: END IF;

Line 12057: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 12064: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 12066: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12070: END IF;

Line 12099: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12103: p_default_last_update_login,

Line 12105: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12101: 'AMOUNT BILLED BELOW ZERO',
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;

Line 12107: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12111: END IF;

Line 12188: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12184:
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:

Line 12189: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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')

Line 12202: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 12209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 12211: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12215: End if;

Line 12239: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12235: -- Step 35
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:

Line 12240: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 (

Line 12265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12261: p_default_last_update_login => p_default_last_update_login, -- IN
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;

Line 12266: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 12275: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12271:
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;

Line 12276: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 12286: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

12282: -- Step 36
12283: -- PO Overlay.
12284: -- Retropricing: PO Overlay is not needed for PPA's
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);

Line 12288: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12284: -- Retropricing: PO Overlay is not needed for PPA's
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:

Line 12289: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 12306: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12302: p_default_last_updated_by, -- IN
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;

Line 12307: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 12316: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12312:
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;

Line 12317: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 12333: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12329: IF(p_invoice_lines_rec.price_correction_flag = 'Y') THEN
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:

Line 12334: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 12339: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 12346: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 12348: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
12352: RAISE check_po_failure;

Line 12434: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12430:
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:

Line 12435: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 12440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12436: debug_info);
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;

Line 12441: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 12454: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

12450: -----------------------------------------------------------------------------
12451: -- This function is used to validate PO information at line level.
12452: --
12453: FUNCTION v_check_line_po_info2 (
12454: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
12455: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
12456: p_positive_price_tolerance IN NUMBER,
12457: p_qty_ord_tolerance IN NUMBER,
12458: p_amt_ord_tolerance IN NUMBER,

Line 12455: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,

12451: -- This function is used to validate PO information at line level.
12452: --
12453: FUNCTION v_check_line_po_info2 (
12454: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
12455: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
12456: p_positive_price_tolerance IN NUMBER,
12457: p_qty_ord_tolerance IN NUMBER,
12458: p_amt_ord_tolerance IN NUMBER,
12459: p_max_qty_ord_tolerance IN NUMBER,

Line 12541: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12537:
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:

Line 12542: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 12574: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12578: p_default_last_update_login,

Line 12580: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12576: 'INVALID SHIPMENT TYPE',
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;

Line 12582: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12586: END IF;

Line 12597: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12593: -- elsif to po_distribution_id is not null
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:

Line 12599: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
12603: --'Prepayment' type shipments for complex work pos for Prepayment invoices and otherwise

Line 12627: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12631: p_default_last_update_login,

Line 12633: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12629: 'INVALID SHIPMENT TYPE',
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;

Line 12635: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12639: END IF;

Line 12650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

12646: -- Validate Match Option if populated
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:

Line 12652: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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')
12656: INTO l_temp_match_option

Line 12665: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12669: p_default_last_update_login,

Line 12671: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12667: 'INVALID MATCH OPTION',
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;

Line 12673: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12677: END IF;

Line 12692: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

12688: (l_po_line_location_id IS NULL)) Then
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:

Line 12694: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
12698: SELECT count(*)

Line 12724: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12728: p_default_last_update_login,

Line 12730: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12726: 'INVALID SHIPMENT TYPE',
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;

Line 12732: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12736: END IF;

Line 12753: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

12749: -- Retropricing: Don't know what this rejection means???.
12750: -- For PPA's irrespective of the fact if the line has price breaks
12751: -- or not, we should not reject it. Price breaks is a feature in PO
12752: -- and AP does matching at the ship level.
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(

Line 12756: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12752: -- and AP does matching at the ship level.
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: --

Line 12758: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
12762: SELECT allow_price_override_flag

Line 12767: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12763: INTO l_price_break
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;

Line 12769: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --
12773: IF (nvl(l_price_break,'N') ='Y' ) Then

Line 12775: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12779: p_default_last_update_login,

Line 12781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

12777: 'LINE HAS PRICE BREAK',
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;

Line 12783: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12787: END IF;

Line 12831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12827: --
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: --

Line 12832: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 12837: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12841: p_default_last_update_login,

Line 12846: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12842: current_calling_sequence,
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;

Line 12848: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12852: END IF;

Line 12864: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12860: --
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: --

Line 12865: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 12870: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12874: p_default_last_update_login,

Line 12876: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12872: 'INCONSISTENT SHIPMENT INFO',
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;

Line 12878: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12882: END IF;

Line 12897: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12893: IF ((p_invoice_lines_rec.distribution_set_id is NOT NULL) OR
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:

Line 12899: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
12903: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 12903: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
12907: p_default_last_update_login,

Line 12909: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

12905: 'INVALID DIST SET WITH PO',
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;

Line 12911: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
12915: END IF;

Line 12926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

12922: -- Get Unit Price and UOM from PO Lines
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: --

Line 12928: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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.
12932: /* IF (l_po_line_location_id IS NOT NULL) THEN

Line 12998: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

12994:
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);

Line 12999: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 13018: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13014: IF ((p_invoice_lines_rec.quantity_invoiced) <= 0 AND
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:

Line 13020: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
13024: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13024: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13028: p_default_last_update_login,

Line 13033: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13029: current_calling_sequence,
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;

Line 13035: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13039: END IF;

Line 13050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13046: IF ((p_invoice_lines_rec.amount) <= 0 AND
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:

Line 13052: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
13056: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13056: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13060: p_default_last_update_login,

Line 13065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13061: current_calling_sequence,
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;

Line 13067: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13071: END IF;

Line 13090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13086: IF (p_invoice_lines_rec.unit_of_meas_lookup_code <> l_unit_of_measure)
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(

Line 13092: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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,
13096: p_invoice_lines_rec.invoice_line_id,

Line 13095: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13099: p_default_last_update_login,

Line 13101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13097: 'UOM DOES NOT MATCH PO',
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;

Line 13103: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13107: END IF;

Line 13127: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13123: (p_invoice_lines_rec.unit_price IS NOT NULL) AND
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:

Line 13129: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
13133: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

Line 13132: 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
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));

Line 13133: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 13146: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13142: -- p_invoice_lines_rec.amount / p_quantity_invoiced;
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;

Line 13147: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 13163: AND AP_IMPORT_INVOICES_PKG.g_source <> 'PPA')

13159: --Bug6836072
13160: ((SIGN(p_invoice_lines_rec.amount) <> SIGN(p_invoice_lines_rec.quantity_invoiced)
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,

Line 13166: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13170: p_default_last_update_login,

Line 13179: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13175: 'UNIT PRICE',
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;

Line 13181: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13185: END IF;

Line 13193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13189: (P_INVOICE_LINES_REC.UNIT_PRICE IS NULL) AND
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

Line 13195: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,
13199: 'inside the else condition ');

Line 13197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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,
13199: 'inside the else condition ');
13200: END IF;
13201:

Line 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: /*

Line 13211: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13215: p_default_last_update_login,

Line 13224: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13220: 'UNIT PRICE',
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;

Line 13226: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13230: END IF;

Line 13245: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13241: ELSE
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;

Line 13246: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 13267: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13263: ELSE
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)

Line 13268: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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));

Line 13290: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13286: IF ((p_invoice_lines_rec.quantity_invoiced IS NOT NULL) AND
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:

Line 13292: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
13296: -- for consistency check.

Line 13302: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13298: -- p_invoice_lines_rec.amount / p_quantity_invoiced;
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;

Line 13303: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 13309: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13313: p_default_last_update_login,

Line 13322: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13318: 'UNIT PRICE',
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;

Line 13324: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13328: END IF;

Line 13347: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

13343: -- Thia step should not be executed in context of PPA's.
13344: -- Amount Based Matching. Reject for negative total amount
13345: -- invoiced against given PO
13346: -------------------------------------------------------------
13347: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
13348: --
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);

Line 13352: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13348: --
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;

Line 13353: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 13384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13380: IF (l_total_qty_billed < 0 AND
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:

Line 13386: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
13390: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13390: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13394: p_default_last_update_login,

Line 13399: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13395: current_calling_sequence,
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;

Line 13401: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13405: END IF;

Line 13421: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13417: IF ((l_total_qty_billed = 0 ) AND
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:

Line 13422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 13435: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13431: ELSE
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));

Line 13436: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 13444: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') THEN

13440: END IF;
13441:
13442: -- Reject even if tolerance is not set
13443: --
13444: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') THEN
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

Line 13448: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13444: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') THEN
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:

Line 13450: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
13454: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13454: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13458: p_default_last_update_login,

Line 13460: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13456: 'UNIT PRC NOT EQUAL TO PO',
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;

Line 13462: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13466: END IF;

Line 13478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13474: (l_po_line_id IS NOT NULL)) THEN
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;

Line 13479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: --

Line 13505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13501: IF (l_total_qty_billed < 0 AND
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:

Line 13507: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13511: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13511: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13515: p_default_last_update_login,

Line 13520: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13516: current_calling_sequence,
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;

Line 13522: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13526: END IF;

Line 13536: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13532: ELSIF (l_total_match_amount < 0 AND
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:

Line 13538: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
13542: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13542: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13546: p_default_last_update_login,

Line 13551: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13547: current_calling_sequence,
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;

Line 13553: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13557: END IF;

Line 13569: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13565: ELSE
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));

Line 13570: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 13576: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then

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;
13575:
13576: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then
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

Line 13580: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13576: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then
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:

Line 13582: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13586: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13586: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13590: p_default_last_update_login,

Line 13592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13588: 'UNIT PRC NOT EQUAL TO PO',
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;

Line 13594: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13598: END IF;

Line 13619: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

13615: -- Overbill rejection is meant only for EDI Gateway. The following
13616: -- code should not reject PPA Invoice Lines. Adding the IF condition
13617: -- so that the code is not executed for PPA's.
13618: -----------------------------------------------------------------
13619: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
13620:
13621: IF (l_po_line_location_id IS NOT NULL) THEN
13622: debug_info := '(v_check_line_po_info2 10) Check for quantity overbill '
13623: ||'for PO Shipment';

Line 13625: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13621: IF (l_po_line_location_id IS NOT NULL) THEN
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:

Line 13627: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13631: l_po_line_location_id, -- IN

Line 13644: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13640: l_amount_ordered, -- OUT NOCOPY
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;

Line 13646: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13650: END IF;

Line 13652: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13648: END IF;
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)

Line 13653: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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)

Line 13671: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then

13667:
13668: -- This is as per EDI requirements. We might need to address this later
13669: -- with quick invoices.
13670:
13671: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then
13672:
13673: IF(p_match_basis = 'QUANTITY') THEN
13674:
13675: IF ((NVL(p_invoice_lines_rec.quantity_invoiced,l_quantity_invoiced) +

Line 13680: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13676: 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:

Line 13682: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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';
13686:

Line 13696: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13692: l_qty_already_billed) >
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';

Line 13698: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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:
13702: END IF;

Line 13709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13705:
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:

Line 13711: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13715: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13715: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 13722: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 13724: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
13728: RAISE check_po_failure;

Line 13741: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13737: (NVL(p_amt_ord_tolerance,1) * l_amount_ordered)) THEN
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:

Line 13743: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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';
13747:

Line 13757: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13753: (p_max_amt_ord_tolerance + l_amount_ordered)) THEN
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';

Line 13759: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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:
13763: END IF;

Line 13771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13767: IF (nvl(l_amt_based_rejection,'N') = 'Y') Then
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:

Line 13773: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13777: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13777: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 13784: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 13786: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
13790: RAISE check_po_failure;

Line 13806: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

13802: (l_po_line_id IS NOT NULL)) THEN
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:

Line 13808: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13812: l_po_line_id,

Line 13822: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13818: l_already_billed, -- 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;

Line 13823: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 13829: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13825: 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)

Line 13830: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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)

Line 13844: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then

13840: END IF;
13841:
13842: -- This is as per EDI requirements. We might need to address this later
13843: -- with quick invoices.
13844: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') Then
13845:
13846: IF (l_po_line_matching_basis = 'QUANTITY') THEN
13847:
13848: IF ((NVL(p_invoice_lines_rec.quantity_invoiced,l_quantity_invoiced) +

Line 13853: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13849: 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';

Line 13855: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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;
13859:

Line 13867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13863: (p_max_qty_ord_tolerance + l_ordered)) THEN
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';

Line 13869: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
13873: END IF;

Line 13878: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13874:
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:

Line 13880: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13884: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13884: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13888: p_default_last_update_login,

Line 13890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13886: 'INVALID INVOICE QUANTITY',
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;

Line 13892: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13896: END IF;

Line 13909: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13905: (NVL(p_amt_ord_tolerance,1) * l_ordered)) THEN
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';

Line 13911: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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:
13915: END IF;

Line 13924: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13920: (p_max_amt_ord_tolerance + l_ordered)) THEN
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:

Line 13926: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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';
13930:

Line 13938: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13934:
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:

Line 13940: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
13944: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 13944: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
13948: p_default_last_update_login,

Line 13950: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13946: 'LINE AMOUNT EXCEEDED TOLERANCE',
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;

Line 13952: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
13956: END IF;

Line 13980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13976: RETURN(TRUE);
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:

Line 13982: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
13986: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

Line 13986: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

13982: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
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;

Line 13988: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
13992:

Line 13996: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

13992:
13993: END v_check_line_po_info2;
13994:
13995: FUNCTION v_check_po_overlay (
13996: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
13997: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
13998: p_po_line_id IN NUMBER,
13999: p_po_line_location_id IN NUMBER,
14000: p_po_distribution_id IN NUMBER,

Line 13997: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,

13993: END v_check_line_po_info2;
13994:
13995: FUNCTION v_check_po_overlay (
13996: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
13997: p_invoice_lines_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
13998: p_po_line_id IN NUMBER,
13999: p_po_line_location_id IN NUMBER,
14000: p_po_distribution_id IN NUMBER,
14001: p_set_of_books_id IN NUMBER,

Line 14065: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14061: l_dist_code_concatenated := p_invoice_lines_rec.dist_code_concatenated;
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;

Line 14066: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 14076: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14072: INTO l_code_combination_id
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

Line 14077: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14085: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 14105: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14101: FND_GLOBAL.RESP_ID,
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;

Line 14106: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14114: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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));

Line 14115: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14122: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14118: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
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:

Line 14123: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 14128: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14132: p_default_last_update_login,

Line 14134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14130: 'INVALID ACCT OVERLAY',
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;

Line 14135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14141: END IF; -- added by iyas for code_combination_id
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,

Line 14146: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 ');

Line 14149: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14157: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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:

Line 14158: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14168: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14164: --
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

Line 14169: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14177: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 14197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14193: FND_GLOBAL.RESP_ID,
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;

Line 14198: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14203: RAISE check_po_failure;
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));

Line 14208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14211: ||'l_code_combination_id = '|| to_char(l_code_combination_id));
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;

Line 14217: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
14221: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 14222: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14226: p_default_last_update_login,

Line 14228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14224: 'INVALID ACCT OVERLAY',
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;

Line 14230: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14234: RAISE check_po_failure;

Line 14242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14238: END IF; -- code combination id is -1
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;

Line 14243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14252: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14248: (l_po_line_location_id IS NULL)) THEN
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 ');

Line 14253: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14255: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14264: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14260:
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:

Line 14265: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14274: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14270: --
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

Line 14275: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14282: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 14301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14297: FND_GLOBAL.RESP_ID,
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;

Line 14302: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14311: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14307: Raise check_po_failure;
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

Line 14312: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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));

Line 14319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14315: ||'l_reason_unbuilt_flex = '||l_reason_unbuilt_flex
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(

Line 14320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 14324: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14328: p_default_last_update_login,

Line 14330: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14326: 'INVALID ACCT OVERLAY',
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;

Line 14332: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14336: RAISE check_po_failure;

Line 14344: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14340: END IF; -- code combination id is -1
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;

Line 14345: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 14351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14347: END IF;
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:

Line 14352: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 14363: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14359: RETURN (TRUE);
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:

Line 14365: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
14369: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 14369: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14365: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
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;

Line 14371: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);
14375:

Line 14384: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

14380: -- This function is used to validate RCV information.
14381: -- Retropricing:Step 1 and 3 don't execute for PPA's
14382: ------------------------------------------------------------------------------
14383: FUNCTION v_check_receipt_info (
14384: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
14385: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
14386: p_default_last_updated_by IN NUMBER,
14387: p_default_last_update_login IN NUMBER,
14388: p_temp_line_status OUT NOCOPY VARCHAR2,

Line 14385: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

14381: -- Retropricing:Step 1 and 3 don't execute for PPA's
14382: ------------------------------------------------------------------------------
14383: FUNCTION v_check_receipt_info (
14384: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
14385: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
14386: p_default_last_updated_by IN NUMBER,
14387: p_default_last_update_login IN NUMBER,
14388: p_temp_line_status OUT NOCOPY VARCHAR2,
14389: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 14422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14418: ) THEN
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:

Line 14424: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
14428: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 14428: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14432: p_default_last_update_login,

Line 14434: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14430: 'INVALID MATCHING INFO',
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;

Line 14436: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14440: END IF;

Line 14451: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') AND

14447: -- Step 1 : Validate receipt info IF source is EDI GATEWAY AND type = ITEM
14448: ---------------------------------------------------------------------------
14449:
14450:
14451: IF (AP_IMPORT_INVOICES_PKG.g_source = 'EDI GATEWAY') AND
14452: (p_invoice_lines_rec.line_type_lookup_code = 'ITEM') AND
14453: (p_invoice_lines_rec.match_option = 'R') THEN
14454:
14455:

Line 14462: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14458: (p_invoice_lines_rec.rcv_transaction_id is NULL) AND
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:

Line 14464: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14468: SELECT rcv_transaction_id

Line 14477: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14481: p_default_last_update_login,

Line 14483: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14479: 'INSUFFICIENT RECEIPT INFO',
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;

Line 14485: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14489: END IF;

Line 14500: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14496: -- Case c : receipt num is not NULL, id is NULL
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:

Line 14502: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14506: SELECT rcv_transaction_id

Line 14516: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14520: p_default_last_update_login,

Line 14522: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14518: 'INVALID RECEIPT INFO',
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;

Line 14524: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14528: END IF;

Line 14539: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14535: -- Case d : receipt_num is NULL AND id is not NULL
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:

Line 14541: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14545: SELECT rcv_transaction_id

Line 14555: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14559: p_default_last_update_login,

Line 14561: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14557: 'INVALID RECEIPT INFO',
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;

Line 14563: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14567: END IF;

Line 14575: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14571: -- Case d : receipt num is not NULL AND id is not NULL
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

Line 14577: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14581: INTO l_temp_rcv_txn_id

Line 14592: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14596: p_default_last_update_login,

Line 14598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14594: 'INCONSISTENT RECEIPT INFO',
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;

Line 14600: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14604: END IF;

Line 14619: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14615: IF (nvl(l_cascade_receipts_flag,'N') = 'Y' )THEN
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:

Line 14621: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
14625: SELECT distinct receipt_uom_lookup_code

Line 14637: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14641: p_default_last_update_login,

Line 14643: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14639: 'UOM DOES NOT MATCH RECPT',
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;

Line 14645: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14649: END IF;

Line 14655: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14659: p_default_last_update_login,

Line 14661: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14657: 'UOM DOES NOT MATCH RECPT',
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;

Line 14663: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14667: END IF;

Line 14674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14670: END IF; -- unit of measure is not NULL
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:

Line 14676: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14680: --bug 5118518:Removed the view reference

Line 14706: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14710: p_default_last_update_login,

Line 14716: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14712: 'Y',
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;

Line 14717: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14733: ELSIF (AP_IMPORT_INVOICES_PKG.g_source <> 'EDI GATEWAY') AND

14729: -- Retropricing: Match_option is populated as null for PPA Invoice lines,
14730: -- however the in v_check_line_po_info2, the value of match_option is determined and
14731: -- is assigned to p_invoice_lines_rec.match_option for further validation.
14732: -------------------------------------------------------------------------
14733: ELSIF (AP_IMPORT_INVOICES_PKG.g_source <> 'EDI GATEWAY') AND
14734: (p_invoice_lines_rec.line_type_lookup_code IN ('ITEM', 'RETROITEM')) AND
14735: (p_invoice_lines_rec.match_option = 'R') THEN
14736:
14737: -- Case a : receipt_num AND id are NULL

Line 14742: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14738: IF (p_invoice_lines_rec.receipt_number is NULL ) AND
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

Line 14744: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
14748: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 14748: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14752: p_default_last_update_login,

Line 14754: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14750: 'INSUFFICIENT RECEIPT INFO',
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;

Line 14755: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14766: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14762: -- Case b : receipt num is not NULL, id is NULL
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

Line 14768: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
14772: INTO l_temp_rcv_txn_id

Line 14781: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14785: p_default_last_update_login,

Line 14787: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14783: 'INVALID RECEIPT INFO',
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;

Line 14789: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14798: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14802: p_default_last_update_login,

Line 14804: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14800: 'INSUFFICIENT RECEIPT INFO',
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;

Line 14806: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14810: END IF;

Line 14818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14814: -- Case c : receipt_num is NULL AND id is not NULL
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:

Line 14820: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14824: SELECT rcv_transaction_id

Line 14834: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14838: p_default_last_update_login,

Line 14840: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14836: 'INVALID RECEIPT INFO',
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;

Line 14842: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14846: END IF;

Line 14854: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14850: -- Case d : receipt num is not NULL AND id is not NULL
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:

Line 14856: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14860: SELECT rcv_transaction_id

Line 14871: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14875: p_default_last_update_login,

Line 14877: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14873: 'INCONSISTENT RECEIPT INFO',
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;

Line 14879: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14883: END IF;

Line 14904: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14900: -- Case b : receipt num is not NULL, id is NULL
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

Line 14906: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
14910: INTO l_temp_rcv_txn_id

Line 14917: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14921: p_default_last_update_login,

Line 14923: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14919: 'INVALID RECEIPT INFO',
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;

Line 14925: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 14934: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14938: p_default_last_update_login,

Line 14940: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14936: 'INSUFFICIENT RECEIPT INFO',
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;

Line 14942: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14946: END IF;

Line 14954: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14950: -- Case c : receipt_num is NULL AND id is not NULL
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

Line 14956: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
14960: INTO l_temp_rcv_txn_id

Line 14967: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
14971: p_default_last_update_login,

Line 14973: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14969: 'INVALID RECEIPT INFO',
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;

Line 14975: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
14979: END IF;

Line 14987: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

14983: -- Case d : receipt num is not NULL AND id is not NULL
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

Line 14989: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
14993: INTO l_temp_rcv_txn_id

Line 15001: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15005: p_default_last_update_login,

Line 15007: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15003: 'INCONSISTENT RECEIPT INFO',
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;

Line 15009: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
15013: END IF;

Line 15027: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15023: -- Getting the value of rcv_shipment_line_id -- Bug 7344899
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

Line 15029: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
15033: INTO l_temp_ship_line_id

Line 15040: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15044: p_default_last_update_login,

Line 15046: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15042: 'INVALID RECEIPT INFO',
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;

Line 15048: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15057: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15061: p_default_last_update_login,

Line 15063: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15059: 'INSUFFICIENT RECEIPT INFO',
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;

Line 15065: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
15069: END IF;

Line 15083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15079: ---------------------------------------------------------------------------
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:

Line 15085: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
15089: (nvl(p_invoice_lines_rec.final_match_flag,'N') = 'Y' ) THEN

Line 15092: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15096: p_default_last_update_login,

Line 15098: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15094: 'INVALID FINAL MATCH FLAG',
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;

Line 15099: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15115: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15111: (p_invoice_lines_rec.match_option = 'R') AND
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

Line 15117: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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'
15121: INTO l_temp_value

Line 15130: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15134: p_default_last_update_login,

Line 15136: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15132: 'UOM DOES NOT MATCH RECPT',
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;

Line 15137: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15153: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15149: -- Retropricing: PPA Invoice Line will not have TAX and there the code
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:

Line 15155: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
15159: ('MISCELLANEOUS', 'FREIGHT','TAX') AND

Line 15166: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15170: p_default_last_update_login,

Line 15172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15168: 'INCONSISTENT ALLOC INFO',
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;

Line 15173: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15187: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

15183: -- IF rcv_transaction-id is not NULL AND is valid.
15184: -- Retropricing: Quantity Billed is not affected by Retropricing. This
15185: -- validation should be bypassed for PPA's.
15186: ---------------------------------------------------------------------------
15187: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN
15188: IF (p_invoice_lines_rec.rcv_transaction_id is not NULL) AND
15189: (p_temp_line_status <> 'N') AND
15190: (p_invoice_lines_rec.match_option = 'R') AND
15191: (p_invoice_lines_rec.quantity_invoiced is not NULL) THEN

Line 15193: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15189: (p_temp_line_status <> 'N') AND
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:

Line 15195: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
15199: SELECT nvl(quantity_billed,0)

Line 15206: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15210: p_default_last_update_login,

Line 15215: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15211: current_calling_sequence,
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;

Line 15217: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
15221: END IF;

Line 15232: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15228: RETURN (TRUE);
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:

Line 15234: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
15238: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 15238: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15234: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 15240: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
15244:

Line 15254: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

15250: -- This function is used to validate line level accounting date information.
15251: --
15252: FUNCTION v_check_line_accounting_date (
15253: p_invoice_rec IN
15254: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
15255: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
15256: p_gl_date_from_get_info IN DATE,
15257: p_gl_date_from_receipt_flag IN VARCHAR2,
15258: p_set_of_books_id IN NUMBER,

Line 15255: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

15251: --
15252: FUNCTION v_check_line_accounting_date (
15253: p_invoice_rec IN
15254: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
15255: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
15256: p_gl_date_from_get_info IN DATE,
15257: p_gl_date_from_receipt_flag IN VARCHAR2,
15258: p_set_of_books_id IN NUMBER,
15259: p_purch_encumbrance_flag IN VARCHAR2,

Line 15301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15297: ---------------------------------------------------------------------------
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:

Line 15303: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
15307:

Line 15312: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15308: ELSIF (l_accounting_date IS NULL) AND (p_gl_date_from_get_info IS NOT NULL)
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;

Line 15314: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
15318:

Line 15323: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15319: IF ((l_accounting_date IS NULL) AND
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;

Line 15325: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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

Line 15332: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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;

Line 15334: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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;
15338:

Line 15336: l_accounting_date := AP_IMPORT_INVOICES_PKG.g_inv_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;
15338:
15339: ------------------------------------------------------------------------
15340: -- Reject IF account_date is not in open period

Line 15344: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15340: -- Reject IF account_date is not in open period
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:

Line 15346: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
15350: l_key := TO_CHAR(p_set_of_books_id)||' '||

Line 15352: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),'dd-mm-yyyy');

15348:
15349: -- bug 2496185 by isartawi .. cache the code_combination_ids
15350: l_key := TO_CHAR(p_set_of_books_id)||' '||
15351: TO_CHAR(NVL(l_accounting_date,
15352: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),'dd-mm-yyyy');
15353:
15354: fnd_plsql_cache.generic_1tom_get_values(
15355: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15356: AP_IMPORT_INVOICES_PKG.lg_generic_storage,

Line 15355: AP_IMPORT_INVOICES_PKG.lg_many_controller,

15351: TO_CHAR(NVL(l_accounting_date,
15352: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),'dd-mm-yyyy');
15353:
15354: fnd_plsql_cache.generic_1tom_get_values(
15355: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15356: AP_IMPORT_INVOICES_PKG.lg_generic_storage,
15357: l_key,
15358: l_numof_values,
15359: l_values,

Line 15356: AP_IMPORT_INVOICES_PKG.lg_generic_storage,

15352: AP_IMPORT_INVOICES_PKG.g_inv_sysdate),'dd-mm-yyyy');
15353:
15354: fnd_plsql_cache.generic_1tom_get_values(
15355: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15356: AP_IMPORT_INVOICES_PKG.lg_generic_storage,
15357: l_key,
15358: l_numof_values,
15359: l_values,
15360: l_ret_code);

Line 15367: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15371: p_default_last_update_login,

Line 15373: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15369: 'ACCT DATE NOT IN OPEN PD',
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;

Line 15374: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15391: AND trunc(nvl(l_accounting_date,AP_IMPORT_INVOICES_PKG.g_inv_sysdate))

15387: INTO l_period_name
15388: FROM gl_period_statuses
15389: WHERE application_id = 200
15390: AND set_of_books_id = p_set_of_books_id
15391: AND trunc(nvl(l_accounting_date,AP_IMPORT_INVOICES_PKG.g_inv_sysdate))
15392: between start_date and END_date
15393: AND closing_status in ('O', 'F')
15394: AND NVL(adjustment_period_flag, 'N') = 'N';
15395:

Line 15403: AP_IMPORT_INVOICES_PKG.lg_many_controller,

15399: l_values(1) := l_valueOut;
15400: l_numof_values := 1;
15401:
15402: fnd_plsql_cache.generic_1tom_put_values(
15403: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15404: AP_IMPORT_INVOICES_PKG.lg_generic_storage,
15405: l_key,
15406: l_numof_values,
15407: l_values);

Line 15404: AP_IMPORT_INVOICES_PKG.lg_generic_storage,

15400: l_numof_values := 1;
15401:
15402: fnd_plsql_cache.generic_1tom_put_values(
15403: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15404: AP_IMPORT_INVOICES_PKG.lg_generic_storage,
15405: l_key,
15406: l_numof_values,
15407: l_values);
15408: EXCEPTION

Line 15410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15406: l_numof_values,
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:

Line 15411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 15416: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15420: p_default_last_update_login,

Line 15422: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15418: 'ACCT DATE NOT IN OPEN PD',
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;

Line 15423: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15436: AP_IMPORT_INVOICES_PKG.lg_many_controller,

15432: l_values(1) := l_valueOut;
15433: l_numof_values := 1;
15434:
15435: fnd_plsql_cache.generic_1tom_put_values(
15436: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15437: AP_IMPORT_INVOICES_PKG.lg_generic_storage,
15438: l_key,
15439: l_numof_values,
15440: l_values);

Line 15437: AP_IMPORT_INVOICES_PKG.lg_generic_storage,

15433: l_numof_values := 1;
15434:
15435: fnd_plsql_cache.generic_1tom_put_values(
15436: AP_IMPORT_INVOICES_PKG.lg_many_controller,
15437: AP_IMPORT_INVOICES_PKG.lg_generic_storage,
15438: l_key,
15439: l_numof_values,
15440: l_values);
15441: END;

Line 15443: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15439: l_numof_values,
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;

Line 15444: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 15457: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15453: IF (p_purch_encumbrance_flag = 'Y') THEN
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:

Line 15459: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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'
15463: INTO l_DUMMY

Line 15470: AND trunc(nvl(l_accounting_date,AP_IMPORT_INVOICES_PKG.g_inv_sysdate))

15466: WHERE gps1.period_year <= gsob.latest_encumbrance_year
15467: AND gsob.SET_OF_BOOKS_ID = p_set_of_books_id
15468: AND gps1.APPLICATION_ID = 200
15469: AND gps1.SET_OF_BOOKS_ID = gsob.SET_OF_BOOKS_ID
15470: AND trunc(nvl(l_accounting_date,AP_IMPORT_INVOICES_PKG.g_inv_sysdate))
15471: BETWEEN gps1.START_DATE AND gps1.END_DATE
15472: AND gps1.closing_status in ('O', 'F')
15473: AND NVL(gps1.adjustment_period_flag, 'N') = 'N';
15474:

Line 15478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15474:
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:

Line 15479: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 15484: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15488: p_default_last_update_login,

Line 15490: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15486: 'ACCT DATE BEYOND ENC YEAR',
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;

Line 15491: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15515: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15511:
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:

Line 15517: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
15521: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 15521: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15517: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
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;

Line 15523: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
15527:

Line 15540: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

15536: -- when both po and pa information co-exist.
15537: ------------------------------------------------------------------------------
15538:
15539: FUNCTION v_check_line_project_info (
15540: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
15541: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
15542: p_accounting_date IN DATE,
15543: p_pa_installed IN VARCHAR2,
15544: p_employee_id IN NUMBER,

Line 15541: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

15537: ------------------------------------------------------------------------------
15538:
15539: FUNCTION v_check_line_project_info (
15540: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
15541: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
15542: p_accounting_date IN DATE,
15543: p_pa_installed IN VARCHAR2,
15544: p_employee_id IN NUMBER,
15545: p_base_currency_code IN VARCHAR2,

Line 15583: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN

15579:
15580: l_award_id := p_invoice_lines_rec.award_id ;
15581:
15582: IF (p_invoice_lines_rec.project_id IS NOT NULL AND
15583: AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') THEN
15584:
15585: ---------------------------------------------------------------------
15586: -- Step 1 - Reject IF line has PA info and it is PO matched
15587: -- or contains a default account (conflict of account sources)

Line 15592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15588:
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:

Line 15594: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
15598: p_invoice_lines_rec.po_header_id IS NOT NULL ) THEN

Line 15599: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15595: END IF;
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');

Line 15601: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
15605:

Line 15608: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15612: p_default_last_update_login,

Line 15614: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15610: 'INCONSISTENT DIST INFO',
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;

Line 15615: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15632: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

15628: -- Check for minimum info required for PA Flexbuild
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:

Line 15633: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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 :=

Line 15656: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15652: (p_invoice_lines_rec.task_id IS NULL) OR
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:

Line 15657: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 15662: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15666: p_default_last_update_login,

Line 15668: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15664: 'INSUFFICIENT PA INFO',
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;

Line 15669: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15684: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch) THEN

15680: -- Else ignore the call.
15681: IF ( l_current_invoice_status = 'Y' AND p_invoice_lines_rec.project_id is not null ) THEN
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;

Line 15685: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15681: IF ( l_current_invoice_status = 'Y' AND p_invoice_lines_rec.project_id is not null ) THEN
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;

Line 15687: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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:
15691: IF ( GMS_AP_API.v_check_line_award_info (

Line 15759: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)

15755: p_default_last_update_login,
15756: p_calling_sequence,
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;

Line 15761: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 15766: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15770: p_default_last_update_login,

Line 15772: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15768: 'INSUFFICIENT GMS INFO',
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;

Line 15773: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 15788: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15784: -- Step 3
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

Line 15789: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 15792: IF (AP_IMPORT_INVOICES_PKG.g_source <> 'PPA') 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(
15794: p_invoice_rec, -- IN
15795: p_invoice_lines_rec, -- IN OUT NOCOPY
15796: p_accounting_date, -- IN

Line 15809: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15805: p_current_invoice_status => l_current_invoice_status, -- OUT NOCOPY
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;

Line 15810: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 15821: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)

15817: -- Added following IF condition so that GMS API will be
15818: -- called only when award_id is not null
15819: IF (l_current_invoice_status = 'Y' AND l_award_id is not null) THEN
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);

Line 15823: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15819: IF (l_current_invoice_status = 'Y' AND l_award_id is not null) THEN
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;

Line 15825: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_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:
15829: IF GMS_AP_API.v_check_line_award_info (

Line 15897: IF GMS_AP_API.gms_debug_switch(AP_IMPORT_INVOICES_PKG.g_debug_switch)

15893: p_default_last_update_login,
15894: p_calling_sequence,
15895: l_award_id,
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,

Line 15899: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15895: l_award_id,
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;

Line 15901: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
15905:

Line 15907: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
15911: p_default_last_update_login,

Line 15913: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15909: 'INSUFFICIENT GMS INFO',
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;

Line 15915: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
15919: END IF;

Line 15931: IF AP_IMPORT_INVOICES_PKG.g_source <> 'PPA' THEN

15927: -- IF flexbuild is successful THEN get ccid
15928: --------------------------------------------------------------
15929: -- IF ccid is created THEN fine
15930: -- Else get ccid from concat segments since it is new
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,

Line 15934: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

15930: -- Else get ccid from concat segments since it is new
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:

Line 15935: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 15949: ||to_char(AP_IMPORT_INVOICES_PKG.g_inv_sysdate,'dd-mm-yyyy');

15945: -- bug 2496185 by isartawi .. cache the code_combination_ids
15946:
15947: l_key := to_char(nvl(p_chart_of_accounts_id,0))||' '
15948: ||l_pa_concatenated_segments||' '
15949: ||to_char(AP_IMPORT_INVOICES_PKG.g_inv_sysdate,'dd-mm-yyyy');
15950: fnd_plsql_cache.generic_1tom_get_values(
15951: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
15952: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
15953: l_key,

Line 15951: AP_IMPORT_INVOICES_PKG.lg_many_controller1,

15947: l_key := to_char(nvl(p_chart_of_accounts_id,0))||' '
15948: ||l_pa_concatenated_segments||' '
15949: ||to_char(AP_IMPORT_INVOICES_PKG.g_inv_sysdate,'dd-mm-yyyy');
15950: fnd_plsql_cache.generic_1tom_get_values(
15951: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
15952: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
15953: l_key,
15954: l_numof_values,
15955: l_values,

Line 15952: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,

15948: ||l_pa_concatenated_segments||' '
15949: ||to_char(AP_IMPORT_INVOICES_PKG.g_inv_sysdate,'dd-mm-yyyy');
15950: fnd_plsql_cache.generic_1tom_get_values(
15951: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
15952: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
15953: l_key,
15954: l_numof_values,
15955: l_values,
15956: l_ret_code);

Line 15972: p_accounting_date, --BUG 3000219.Changed from AP_IMPORT_INVOICES_PKG.g_inv_sysdate

15968: 'GL#',
15969: p_chart_of_accounts_id,
15970: l_pa_concatenated_segments,
15971: 'V',
15972: p_accounting_date, --BUG 3000219.Changed from AP_IMPORT_INVOICES_PKG.g_inv_sysdate
15973: 'ALL',
15974: NULL,
15975: NULL,
15976: 'GL_global\\nSUMMARY_FLAG\\nI\\nAPPL=SQLAP;NAME=AP_ALL_PARENT_FLEX_NA\\nN',

Line 16001: AP_IMPORT_INVOICES_PKG.lg_many_controller1,

15997: l_values(1) := l_valueOut;
15998: l_numof_values := 1;
15999:
16000: fnd_plsql_cache.generic_1tom_put_values(
16001: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
16002: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
16003: l_key,
16004: l_numof_values,
16005: l_values);

Line 16002: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,

15998: l_numof_values := 1;
15999:
16000: fnd_plsql_cache.generic_1tom_put_values(
16001: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
16002: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
16003: l_key,
16004: l_numof_values,
16005: l_values);
16006: END IF;

Line 16010: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16006: END IF;
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;

Line 16012: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
16016: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 16017: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16021: p_default_last_update_login,

Line 16023: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16019: 'INVALID PA ACCT',
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;

Line 16025: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16029: END IF;

Line 16035: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16031: l_current_invoice_status := 'N';
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;

Line 16037: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
16041: -- Valid Creation Combination

Line 16050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16046:
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

Line 16051: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 16060: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16056: ||' l_current_invoice_status = '||l_current_invoice_status);
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;

Line 16062: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
16066: l_dist_code_combination_id := l_pa_default_dist_ccid;

Line 16078: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16074: --------------------------------------------------------------
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:

Line 16079: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16089: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16085: END IF; -- source <> 'PPA'
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

Line 16090: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 16101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16097: RETURN (TRUE);
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:

Line 16103: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
16107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 16107: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16103: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 16109: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);
16113:

Line 16122: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

16118: -- This function is used to validate line level accounting information.
16119: --
16120: ------------------------------------------------------------------------------
16121: FUNCTION v_check_line_account_info (
16122: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
16123: p_freight_code_combination_id IN NUMBER,
16124: p_pa_built_account IN NUMBER,
16125: p_accounting_date IN DATE,
16126: p_set_of_books_id IN NUMBER,

Line 16167: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16163: -----------------------------------------------------------
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:

Line 16169: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
16173: --Change made for bug#2709960

Line 16212: AP_IMPORT_INVOICES_PKG.g_pa_allows_overrides = 'Y'))) THEN

16208: p_invoice_lines_rec.cost_center_segment IS NOT NULL OR
16209: p_invoice_lines_rec.account_segment IS NOT NULL) AND
16210: (p_invoice_lines_rec.project_id IS NULL OR
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) '

Line 16214: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16210: (p_invoice_lines_rec.project_id IS NULL OR
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;

Line 16215: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 16237: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16233: FND_GLOBAL.RESP_ID,
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;

Line 16238: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 16245: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16249: p_default_last_update_login,

Line 16251: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16247: 'INVALID DISTRIBUTION ACCT',
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);

Line 16253: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16257: RAISE check_account_failure;

Line 16261: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16257: RAISE check_account_failure;
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 = '||

Line 16262: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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));

Line 16271: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16267: END IF;
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');

Line 16273: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16277: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 16278: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16282: p_default_last_update_login,

Line 16284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16280: 'INVALID ACCT OVERLAY',
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);

Line 16286: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16290: RAISE check_account_failure;

Line 16307: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16303: AND NVL(start_date_active, p_accounting_date)
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 ');

Line 16309: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16313:

Line 16315: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16319: p_default_last_update_login,

Line 16321: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16317: 'INVALID DISTRIBUTION ACCT',
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);

Line 16323: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16327: RAISE check_account_failure;

Line 16348: AP_IMPORT_INVOICES_PKG.lg_many_controller1,

16344: p_invoice_lines_rec.dist_code_concatenated||' '||
16345: to_char(p_accounting_date,'dd-mm-yyyy');
16346:
16347: fnd_plsql_cache.generic_1tom_get_values(
16348: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
16349: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
16350: l_key,
16351: l_numof_values,
16352: l_values,

Line 16349: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,

16345: to_char(p_accounting_date,'dd-mm-yyyy');
16346:
16347: fnd_plsql_cache.generic_1tom_get_values(
16348: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
16349: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
16350: l_key,
16351: l_numof_values,
16352: l_values,
16353: l_ret_code);

Line 16391: AP_IMPORT_INVOICES_PKG.lg_many_controller1,

16387: l_values(1) := l_valueOut;
16388: l_numof_values := 1;
16389:
16390: fnd_plsql_cache.generic_1tom_put_values(
16391: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
16392: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
16393: l_key,
16394: l_numof_values,
16395: l_values);

Line 16392: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,

16388: l_numof_values := 1;
16389:
16390: fnd_plsql_cache.generic_1tom_put_values(
16391: AP_IMPORT_INVOICES_PKG.lg_many_controller1,
16392: AP_IMPORT_INVOICES_PKG.lg_generic_storage1,
16393: l_key,
16394: l_numof_values,
16395: l_values);
16396: END IF; -- l_ret_code='1'

Line 16399: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16395: l_values);
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;

Line 16400: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 16406: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16402: ||', l_validate_res: '||l_validate_res);
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,

Line 16407: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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) '||

Line 16410: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16417: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16421: p_default_last_update_login,

Line 16423: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16419: 'INVALID DISTRIBUTION ACCT',
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);

Line 16425: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16429: RAISE check_account_failure;

Line 16439: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16435: IF ((l_current_invoice_status <> 'N') AND
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 ');

Line 16441: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16445:

Line 16463: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16459: FND_GLOBAL.RESP_ID,
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);

Line 16465: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16469: -- Bug 6124714

Line 16472: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16476: p_default_last_update_login,

Line 16478: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16474: 'INVALID DISTRIBUTION ACCT',
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);

Line 16480: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16484: RAISE check_account_failure;

Line 16488: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16484: RAISE check_account_failure;
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 = '||

Line 16490: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: '||
16494: to_char(l_overlayed_ccid));

Line 16498: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16494: to_char(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');

Line 16500: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16504:

Line 16506: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16510: p_default_last_update_login,

Line 16512: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16508: 'INVALID ACCT OVERLAY',
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);

Line 16514: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16518: RAISE check_account_failure;

Line 16528: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16524: -- Bug 5533471
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');

Line 16530: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16534:

Line 16536: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16540: p_default_last_update_login,

Line 16542: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16538: 'INVALID ACCT OVERLAY',
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);

Line 16544: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16548: RAISE check_account_failure;

Line 16586: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16582: (((p_invoice_lines_rec.po_header_id is NOT NULL) OR
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;

Line 16587: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 16593: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16597: p_default_last_update_login,

Line 16599: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16595: 'INCONSISTENT DIST INFO',
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;

Line 16600: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16617: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16613: IF ((l_dist_code_combination_id is not NULL AND
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

Line 16619: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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;
16623: END IF;

Line 16650: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16646: FALSE,
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');

Line 16652: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16656: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 16657: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16661: p_default_last_update_login,

Line 16663: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16659: 'INVALID DISTRIBUTION ACCT',
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);

Line 16665: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16669: RAISE check_account_failure;

Line 16674: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16670: END IF; -- insert rejections
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');

Line 16676: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16680: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 16681: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16685: p_default_last_update_login,

Line 16687: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16683: 'INVALID DISTRIBUTION ACCT',
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);

Line 16689: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16693: RAISE check_account_failure;

Line 16707: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16703:
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:

Line 16709: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
16713: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 16713: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16709: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
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;

Line 16715: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
16719:

Line 16731: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

16727: -- information.
16728: -----------------------------------------------------------------------------
16729: FUNCTION v_check_deferred_accounting (
16730: p_invoice_lines_rec
16731: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
16732: p_set_of_books_id IN NUMBER,
16733: p_default_last_updated_by IN NUMBER,
16734: p_default_last_update_login IN NUMBER,
16735: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 16767: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16763: p_invoice_lines_rec.def_acctg_end_date IS NOT NULL OR
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:

Line 16768: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 16773: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16777: p_default_last_update_login,

Line 16779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16775: 'INVALID DEFERRED FLAG',
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;

Line 16780: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16797: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16793: --
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:

Line 16798: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 16806: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16810: p_default_last_update_login,

Line 16812: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16808: 'INCOMPLETE DEF ACCTG INFO',
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;

Line 16813: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16834: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16830: AND closing_status in ('O', 'F')
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;

Line 16836: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
16840: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 16841: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16845: p_default_last_update_login,

Line 16847: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16843: 'INVALID DEF START DATE',
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;

Line 16849: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16853: END IF;

Line 16859: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16855: END IF; -- period name is other than line period name
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;

Line 16861: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
16865: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 16866: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16870: p_default_last_update_login,

Line 16872: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16868: 'INVALID DEF START DATE',
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;

Line 16874: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16878: END IF;

Line 16894: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16890: IF (nvl(p_invoice_lines_rec.deferred_acctg_flag, 'N') = 'Y' AND
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:

Line 16895: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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) >

Line 16902: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16906: p_default_last_update_login,

Line 16908: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16904: 'INVALID DEF END DATE',
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;

Line 16909: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16926: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16922: ---------------------------------------------------------------------------
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:

Line 16927: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 16936: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16940: p_default_last_update_login,

Line 16942: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16938: 'INVALID DEF NUM OF PER',
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;

Line 16943: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 16962: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
16966: p_default_last_update_login,

Line 16968: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

16964: 'INVALID DEF PER TYPE',
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;

Line 16970: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
16974: END IF;

Line 16989: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

16985: ---------------------------------------------------------------------------
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:

Line 16990: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 16998: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17002: p_default_last_update_login,

Line 17004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

17000: 'INVALID DEF PER TYPE',
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;

Line 17005: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 17025: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

17021:
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:

Line 17026: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 17031: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

17027: debug_info);
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;

Line 17032: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 17047: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

17043: --
17044: ------------------------------------------------------------------------------
17045: FUNCTION v_check_line_dist_set (
17046: p_invoice_rec IN
17047: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
17048: p_invoice_lines_rec IN OUT NOCOPY
17049: AP_IMPORT_INVOICES_PKG.r_line_info_rec,
17050: p_base_currency_code IN VARCHAR2,
17051: p_employee_id IN NUMBER,

Line 17049: AP_IMPORT_INVOICES_PKG.r_line_info_rec,

17045: FUNCTION v_check_line_dist_set (
17046: p_invoice_rec IN
17047: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
17048: p_invoice_lines_rec IN OUT NOCOPY
17049: AP_IMPORT_INVOICES_PKG.r_line_info_rec,
17050: p_base_currency_code IN VARCHAR2,
17051: p_employee_id IN NUMBER,
17052: p_gl_date_from_get_info IN DATE,
17053: p_set_of_books_id IN NUMBER,

Line 17151: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17147: -- Validate Distribution Set Id
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;

Line 17153: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
17157: BEGIN

Line 17177: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17181: p_default_last_update_login,

Line 17183: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17179: 'INVALID DISTRIBUTION SET',
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;

Line 17185: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
17189: END IF;

Line 17206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

17202: -- Check for INCONSISTENT DIST SET
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;

Line 17208: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
17212: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 17213: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17217: p_default_last_update_login,

Line 17219: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17215: 'INCONSISTENT DIST SET',
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;

Line 17221: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
17225: END IF;

Line 17236: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17232: -- look for inactive DIST SET
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;

Line 17238: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
17242: IF (( AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

Line 17242: IF (( AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

17238: AP_IMPORT_INVOICES_PKG.g_debug_switch,
17239: debug_info);
17240: END IF;
17241:
17242: IF (( AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
17243: nvl(trunc(l_inactive_date), AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))
17244: OR
17245: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
17246: nvl(trunc(l_inactive_date_per_name),

Line 17243: nvl(trunc(l_inactive_date), AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))

17239: debug_info);
17240: END IF;
17241:
17242: IF (( AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
17243: nvl(trunc(l_inactive_date), AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))
17244: OR
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

Line 17245: (AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

17241:
17242: IF (( AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
17243: nvl(trunc(l_inactive_date), AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))
17244: OR
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(

Line 17247: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))) THEN

17243: nvl(trunc(l_inactive_date), AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1))
17244: OR
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,

Line 17250: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17254: p_default_last_update_login,

Line 17256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17252: 'INACTIVE DISTRIBUTION SET',
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;

Line 17258: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
17262: END IF; -- end of insert_rejection

Line 17272: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17268: ----------------------------------------------------------------------
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;

Line 17274: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
17278: END IF; -- end of step 2 and step 3

Line 17293: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17289: --------------------------------------------------------------------
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;

Line 17295: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
17299: FETCH dist_set_lines BULK COLLECT INTO l_dset_lines_tab;

Line 17307: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17303: ------------------------------------------------------------------
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:

Line 17309: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17313: LOOP

Line 17319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17315: ----------------------------------------------------------------
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:

Line 17321: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17325: l_expd_item_date IS NULL AND

Line 17348: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17344: -----------------------------------------------------------------
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

Line 17350: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
17354: l_dset_lines_tab(i).base_amount := 0;

Line 17387: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17383: ----------------------------------------------------------------
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:

Line 17389: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17393: -- information but the line does, then copy project information

Line 17453: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17449: -----------------------------------------------------------------
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: --

Line 17455: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17459: -- for the distribution set line.

Line 17483: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17479:
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:

Line 17485: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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) - ' ||

Line 17492: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

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

Line 17494: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17498: -- invoice line record is truly an award set id, we need GMS

Line 17515: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17511: debug_info := '(v_check_line_dist_set 4.2.d.2) - ' ||
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:

Line 17517: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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 (
17521: p_invoice_line_id => p_invoice_lines_rec.invoice_line_id,

Line 17606: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17602: --------------------------------------------------------------
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:

Line 17608: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
17612: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 17612: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17616: p_default_last_update_login,

Line 17628: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17624: -----------------------------------------------------------
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

Line 17630: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17634:

Line 17699: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17695: ||'validate '
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:

Line 17701: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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.
17705: debug_info := SUBSTR(l_msg_data,1,80);

Line 17706: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17702: END IF;
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:

Line 17708: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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:
17712: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 17713: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17717: p_default_last_update_login,

Line 17734: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17730: --
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:

Line 17736: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17740: p_invoice_lines_rec.dist_code_combination_id IS NULL) OR

Line 17762: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17758: -------------------------------------------------------------
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:

Line 17764: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
17768: l_dset_lines_tab(i).dist_code_combination_id,

Line 17774: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17778: p_default_last_update_login,

Line 17807: AP_IMPORT_INVOICES_PKG.g_pa_allows_overrides = 'Y')) THEN

17803: IF ((p_invoice_lines_rec.dist_code_concatenated IS NULL OR
17804: (p_invoice_lines_rec.dist_code_concatenated IS NOT NULL AND
17805: p_invoice_lines_rec.partial_segments <> 'N')) AND
17806: (l_dset_lines_tab(i).project_id IS NULL OR
17807: AP_IMPORT_INVOICES_PKG.g_pa_allows_overrides = 'Y')) THEN
17808: l_overlayed_ccid := l_dset_lines_tab(i).dist_code_combination_id;
17809:
17810: -----------------------------------------------------------
17811: debug_info := '(v_check_line_dist_set 4.2.f.2) - ' ||

Line 17814: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17810: -----------------------------------------------------------
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 (

Line 17816: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,
17820: p_invoice_lines_rec.cost_center_segment,

Line 17839: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17835: l_unbuilt_flex ||
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;

Line 17841: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
17845: IF (l_overlayed_ccid = -1) THEN

Line 17849: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17845: IF (l_overlayed_ccid = -1) THEN
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:

Line 17851: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
17855: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 17855: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17859: p_default_last_update_login,

Line 17861: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17857: 'INVALID ACCT OVERLAY',
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;

Line 17863: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
17867:

Line 17891: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

17887: debug_info := '(v_check_line_dist_set 4.2.g) - ' ||
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:

Line 17893: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_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
17897: ( x_project_id => l_dset_lines_tab(i).project_id,

Line 17913: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

17909: --------------------------------------------------------------
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(

Line 17914: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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,

Line 17918: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
17922: p_default_last_update_login,

Line 18044: IF ( AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' ) THEN

18040: debug_info := '(v_check_line_dist_set 5.1) - Project validate '
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:

Line 18046: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
18050: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 18050: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18054: p_default_last_update_login,

Line 18090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18086: l_dset_lines_tab.DELETE;
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;

Line 18092: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
18096: IF (SQLCODE < 0) THEN

Line 18097: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18093: debug_info);
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;

Line 18099: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18103: RETURN(FALSE);

Line 18112: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

18108: -- matched lines
18109: --
18110: ------------------------------------------------------------------------------
18111: FUNCTION v_check_qty_uom_non_po (
18112: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18113: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18114: p_default_last_updated_by IN NUMBER,
18115: p_default_last_update_login IN NUMBER,
18116: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 18113: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

18109: --
18110: ------------------------------------------------------------------------------
18111: FUNCTION v_check_qty_uom_non_po (
18112: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18113: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18114: p_default_last_updated_by IN NUMBER,
18115: p_default_last_update_login IN NUMBER,
18116: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
18117: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 18140: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18136: -- Step 1
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:

Line 18141: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18156: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18152: -- is Item
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:

Line 18157: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 18166: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18170: p_default_last_update_login,

Line 18172: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18168: 'INVALID QTY INFO',
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;

Line 18173: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18190: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18186: -- Check that if quantity related information was provided so was the UOM.
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:

Line 18191: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 18201: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18205: p_default_last_update_login,

Line 18207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18203: 'INCOMPLETE QTY INFO',
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;

Line 18208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18227: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18223: -- consistency of unit price, qty and amount for the line.
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:

Line 18228: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 18242: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18238: -----------------------------------------------------------------------
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:

Line 18243: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 18259: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18263: p_default_last_update_login,

Line 18265: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18261: 'INCOMPLETE QTY INFO',
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;

Line 18267: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18271: END IF;

Line 18284: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18280: -----------------------------------------------------------------------
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:

Line 18285: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 18290: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18294: p_default_last_update_login,

Line 18296: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18292: 'INVALID QTY INFO',
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;

Line 18298: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18302: END IF;

Line 18315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18311: p_invoice_lines_rec.amount is NOT NULL AND
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

Line 18316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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/

Line 18339: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18335: p_invoice_lines_rec.unit_price,
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(

Line 18340: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 18344: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18348: p_default_last_update_login,

Line 18350: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18346: 'INCONSISTENT QTY RELATED INFO',
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;

Line 18352: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18356: END IF;

Line 18367: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18363: --
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

Line 18368: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'

Line 18376: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate

18372: SELECT 'Valid UOM'
18373: INTO l_uom_is_valid
18374: FROM mtl_units_of_measure
18375: WHERE unit_of_measure = p_invoice_lines_rec.unit_of_meas_lookup_code
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(

Line 18377: < nvl(disable_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate + 1) ;

18373: INTO l_uom_is_valid
18374: FROM mtl_units_of_measure
18375: WHERE unit_of_measure = p_invoice_lines_rec.unit_of_meas_lookup_code
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,

Line 18381: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18385: p_default_last_update_login,

Line 18387: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18383: 'INVALID UOM',
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;

Line 18389: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18393: END IF;

Line 18405: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18401: RETURN (TRUE);
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:

Line 18406: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 18411: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

18407: debug_info);
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;

Line 18412: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 18425: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

18421: -----------------------------------------------------------------------------
18422: -- This function is used to validate line level awt group information.
18423: -----------------------------------------------------------------------------
18424: FUNCTION v_check_invalid_line_awt_group (
18425: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18426: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18427: p_default_last_updated_by IN NUMBER,
18428: p_default_last_update_login IN NUMBER,
18429: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 18426: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

18422: -- This function is used to validate line level awt group information.
18423: -----------------------------------------------------------------------------
18424: FUNCTION v_check_invalid_line_awt_group (
18425: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18426: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18427: p_default_last_updated_by IN NUMBER,
18428: p_default_last_update_login IN NUMBER,
18429: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
18430: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 18474: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18470: -- Check for AWT Group Id and Group Name Inconsistency.
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:

Line 18476: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
18480: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 18480: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18484: p_default_last_update_login,

Line 18486: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18482: 'INCONSISTENT AWT GROUP',
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;

Line 18487: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18499: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18495: -- Step 2
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:

Line 18501: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
18505: l_awt_group_id_per_name IS NOT NULL) OR

Line 18508: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

18504: IF ((l_awt_group_id IS NOT NULL AND
18505: l_awt_group_id_per_name IS NOT NULL) OR
18506: (l_awt_group_id IS NOT NULL AND
18507: l_awt_group_id_per_name IS NULL)) THEN
18508: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18509: NVL(l_inactive_date,
18510: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18511: --------------------------------------------------------------
18512: -- inactive AWT group (as per id)

Line 18510: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

18506: (l_awt_group_id IS NOT NULL AND
18507: l_awt_group_id_per_name IS NULL)) THEN
18508: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18509: NVL(l_inactive_date,
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(

Line 18515: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18519: p_default_last_update_login,

Line 18521: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18517: 'INACTIVE AWT GROUP',
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;

Line 18523: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18527: END IF;

Line 18532: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

18528: l_current_invoice_status := 'N';
18529: END IF;
18530: ELSIF ((l_awt_group_id is NULL) AND
18531: (l_awt_group_id_per_name is NOT NULL)) THEN
18532: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18533: nvl(l_inactive_date_per_name,
18534: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18535: ---------------------------------------------------------------
18536: -- inactive AWT group (per name)

Line 18534: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

18530: ELSIF ((l_awt_group_id is NULL) AND
18531: (l_awt_group_id_per_name is NOT NULL)) THEN
18532: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18533: nvl(l_inactive_date_per_name,
18534: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18535: ---------------------------------------------------------------
18536: -- inactive AWT group (per name)
18537: --
18538: ---------------------------------------------------------------

Line 18540: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18544: p_default_last_update_login,

Line 18546: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18542: 'INACTIVE AWT GROUP',
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;

Line 18548: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18552: END IF;

Line 18573: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18577: p_default_last_update_login,

Line 18579: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18575: 'INVALID AWT GROUP',
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;

Line 18580: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18590: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18586: p_current_invoice_status := l_current_invoice_status;
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:

Line 18592: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
18596: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 18596: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18592: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 18598: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
18602:

Line 18610: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

18606: ----------------------------------------------------------------------------
18607: -- This function is used to validate line level pay awt group information.
18608: -----------------------------------------------------------------------------
18609: FUNCTION v_check_invalid_line_pay_awt_g (
18610: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18611: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18612: p_default_last_updated_by IN NUMBER,
18613: p_default_last_update_login IN NUMBER,
18614: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 18611: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

18607: -- This function is used to validate line level pay awt group information.
18608: -----------------------------------------------------------------------------
18609: FUNCTION v_check_invalid_line_pay_awt_g (
18610: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18611: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18612: p_default_last_updated_by IN NUMBER,
18613: p_default_last_update_login IN NUMBER,
18614: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
18615: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 18659: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18655: -- Check for Pay AWT Group Id and Pay Group Name Inconsistency.
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:

Line 18661: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
18665: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 18665: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18669: p_default_last_update_login,

Line 18671: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18667: 'INCONSISTENT PAY AWT GROUP',
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;

Line 18672: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18680: -- Step 2
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:

Line 18686: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
18690: l_pay_awt_group_id_per_name IS NOT NULL) OR

Line 18693: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

18689: IF ((l_pay_awt_group_id IS NOT NULL AND
18690: l_pay_awt_group_id_per_name IS NOT NULL) OR
18691: (l_pay_awt_group_id IS NOT NULL AND
18692: l_pay_awt_group_id_per_name IS NULL)) THEN
18693: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18694: NVL(l_inactive_date,
18695: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18696: --------------------------------------------------------------
18697: -- inactive pay AWT group (as per id)

Line 18695: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

18691: (l_pay_awt_group_id IS NOT NULL AND
18692: l_pay_awt_group_id_per_name IS NULL)) THEN
18693: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18694: NVL(l_inactive_date,
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(

Line 18700: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18704: p_default_last_update_login,

Line 18706: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18702: 'INACTIVE PAY AWT GROUP',
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;

Line 18708: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18712: END IF;

Line 18717: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=

18713: l_current_invoice_status := 'N';
18714: END IF;
18715: ELSIF ((l_pay_awt_group_id is NULL) AND
18716: (l_pay_awt_group_id_per_name is NOT NULL)) THEN
18717: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18718: nvl(l_inactive_date_per_name,
18719: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18720: ---------------------------------------------------------------
18721: -- inactive pay AWT group (per name)

Line 18719: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN

18715: ELSIF ((l_pay_awt_group_id is NULL) AND
18716: (l_pay_awt_group_id_per_name is NOT NULL)) THEN
18717: IF AP_IMPORT_INVOICES_PKG.g_inv_sysdate >=
18718: nvl(l_inactive_date_per_name,
18719: AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) THEN
18720: ---------------------------------------------------------------
18721: -- inactive pay AWT group (per name)
18722: --
18723: ---------------------------------------------------------------

Line 18725: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18729: p_default_last_update_login,

Line 18731: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18727: 'INACTIVE PAY AWT GROUP',
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;

Line 18733: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
18737: END IF;

Line 18758: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18762: p_default_last_update_login,

Line 18764: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18760: 'INVALID PAY AWT GROUP',
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;

Line 18765: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18775: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18771: p_current_invoice_status := l_current_invoice_status;
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:

Line 18777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
18781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 18781: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18777: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 18783: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
18787:

Line 18795: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

18791: -----------------------------------------------------------------------------
18792: -- This function is used to validate that there is no duplicate line number
18793: -----------------------------------------------------------------------------
18794: FUNCTION v_check_duplicate_line_num (
18795: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18796: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18797: p_default_last_updated_by IN NUMBER,
18798: p_default_last_update_login IN NUMBER,
18799: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 18796: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

18792: -- This function is used to validate that there is no duplicate line number
18793: -----------------------------------------------------------------------------
18794: FUNCTION v_check_duplicate_line_num (
18795: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
18796: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18797: p_default_last_updated_by IN NUMBER,
18798: p_default_last_update_login IN NUMBER,
18799: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
18800: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 18824: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18820: -- Check for Duplicate Line NUMBER.
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:

Line 18826: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(*)
18830: INTO l_line_count

Line 18838: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18834:
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:

Line 18840: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
18844: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 18845: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18849: p_default_last_update_login,

Line 18854: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18850: current_calling_sequence,
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;

Line 18855: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18868: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18864: p_current_invoice_status := l_current_invoice_status;
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:

Line 18870: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
18874: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 18874: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18870: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 18876: AP_IMPORT_INVOICES_PKG.g_debug_switch,SQLERRM);

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);
18880:

Line 18889: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec, --bug 7599916

18885: -- This function is used to validate that miscellaneous line level information
18886: -----------------------------------------------------------------------------
18887: FUNCTION v_check_misc_line_info (
18888: p_invoice_rec IN
18889: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec, --bug 7599916
18890: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18891: p_default_last_updated_by IN NUMBER,
18892: p_default_last_update_login IN NUMBER,
18893: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 18890: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

18886: -----------------------------------------------------------------------------
18887: FUNCTION v_check_misc_line_info (
18888: p_invoice_rec IN
18889: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec, --bug 7599916
18890: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
18891: p_default_last_updated_by IN NUMBER,
18892: p_default_last_update_login IN NUMBER,
18893: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
18894: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 18943: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18939: -- Check for Invalid Line type lookup code.
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:

Line 18945: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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(
18949: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 18949: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18953: p_default_last_update_login,

Line 18955: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18951: 'INVALID LINE TYPE LOOKUP',
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;

Line 18956: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 18972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18968: -- Line type lookup code cannot be AWT
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:

Line 18974: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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(
18978: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

Line 18978: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
18982: p_default_last_update_login,

Line 18984: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18980: 'LINE TYPE CANNOT BE AWT',
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;

Line 18985: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19002: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

18998: --------------------------------------------------------------------------
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:

Line 19004: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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);
19008: Fetch c_type_1099 Into p_invoice_lines_rec.type_1099;

Line 19021: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19017: -- Step 3.2
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:

Line 19023: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
19027:

Line 19031: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,

19027:
19028: l_key := p_invoice_lines_rec.type_1099;
19029:
19030: fnd_plsql_cache.generic_1tom_get_values(
19031: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,
19032: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,
19033: l_key,
19034: l_numof_values,
19035: l_values,

Line 19032: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,

19028: l_key := p_invoice_lines_rec.type_1099;
19029:
19030: fnd_plsql_cache.generic_1tom_get_values(
19031: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,
19032: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,
19033: l_key,
19034: l_numof_values,
19035: l_values,
19036: l_ret_code);

Line 19043: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19047: p_default_last_update_login,

Line 19049: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19045: 'INVALID TYPE 1099',
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;

Line 19051: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
19055: END IF;

Line 19062: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19058: END IF;
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:

Line 19064: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
19068: SELECT income_tax_type

Line 19072: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate

19068: SELECT income_tax_type
19069: INTO l_income_tax_type
19070: FROM ap_income_tax_types
19071: WHERE income_tax_type = p_invoice_lines_rec.type_1099
19072: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
19073: < NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) ;
19074:
19075: l_exception := 'FALSE';
19076: l_valueOut.varchar2_1 := l_income_tax_type;

Line 19073: < NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) ;

19069: INTO l_income_tax_type
19070: FROM ap_income_tax_types
19071: WHERE income_tax_type = p_invoice_lines_rec.type_1099
19072: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
19073: < NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate+1) ;
19074:
19075: l_exception := 'FALSE';
19076: l_valueOut.varchar2_1 := l_income_tax_type;
19077: l_valueOut.varchar2_2 := l_exception;

Line 19082: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,

19078: l_values(1) := l_valueOut;
19079: l_numof_values := 1;
19080:
19081: fnd_plsql_cache.generic_1tom_put_values(
19082: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,
19083: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,
19084: l_key,
19085: l_numof_values,
19086: l_values);

Line 19083: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,

19079: l_numof_values := 1;
19080:
19081: fnd_plsql_cache.generic_1tom_put_values(
19082: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,
19083: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,
19084: l_key,
19085: l_numof_values,
19086: l_values);
19087:

Line 19090: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19086: l_values);
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;

Line 19092: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:
19096: IF (AP_IMPORT_UTILITIES_PKG.insert_rejections(

Line 19097: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19101: p_default_last_update_login,

Line 19103: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19099: 'INVALID TYPE 1099',
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;

Line 19105: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
19109: END IF;

Line 19119: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,

19115: l_values(1) := l_valueOut;
19116: l_numof_values := 1;
19117:
19118: fnd_plsql_cache.generic_1tom_put_values(
19119: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,
19120: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,
19121: l_key,
19122: l_numof_values,
19123: l_values);

Line 19120: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,

19116: l_numof_values := 1;
19117:
19118: fnd_plsql_cache.generic_1tom_put_values(
19119: AP_IMPORT_INVOICES_PKG.lg_incometax_controller,
19120: AP_IMPORT_INVOICES_PKG.lg_incometax_storage,
19121: l_key,
19122: l_numof_values,
19123: l_values);
19124:

Line 19138: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19134: -- Step 4
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:

Line 19140: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
19144: l_key1 := p_invoice_lines_rec.income_tax_region;

Line 19147: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,

19143: -- Invalid Info
19144: l_key1 := p_invoice_lines_rec.income_tax_region;
19145:
19146: fnd_plsql_cache.generic_1tom_get_values(
19147: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,
19148: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,
19149: l_key1,
19150: l_numof_values1,
19151: l_values1,

Line 19148: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,

19144: l_key1 := p_invoice_lines_rec.income_tax_region;
19145:
19146: fnd_plsql_cache.generic_1tom_get_values(
19147: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,
19148: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,
19149: l_key1,
19150: l_numof_values1,
19151: l_values1,
19152: l_ret_code1);

Line 19159: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19163: p_default_last_update_login,

Line 19165: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19161: 'INVALID TAX REGION',
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;

Line 19167: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
19171: END IF;

Line 19178: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19174: END IF;
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:

Line 19180: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
19184: SELECT region_short_name

Line 19188: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate

19184: SELECT region_short_name
19185: INTO l_income_tax_region
19186: FROM ap_income_tax_regions
19187: WHERE region_short_name = p_invoice_lines_rec.income_tax_region
19188: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
19189: BETWEEN NVL(active_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate) AND
19190: NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate);
19191:
19192: l_exception1 := 'FALSE';

Line 19189: BETWEEN NVL(active_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate) AND

19185: INTO l_income_tax_region
19186: FROM ap_income_tax_regions
19187: WHERE region_short_name = p_invoice_lines_rec.income_tax_region
19188: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
19189: BETWEEN NVL(active_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate) AND
19190: NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate);
19191:
19192: l_exception1 := 'FALSE';
19193: l_valueOut1.varchar2_1 := l_income_tax_region;

Line 19190: NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate);

19186: FROM ap_income_tax_regions
19187: WHERE region_short_name = p_invoice_lines_rec.income_tax_region
19188: AND AP_IMPORT_INVOICES_PKG.g_inv_sysdate
19189: BETWEEN NVL(active_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate) AND
19190: NVL(inactive_date, AP_IMPORT_INVOICES_PKG.g_inv_sysdate);
19191:
19192: l_exception1 := 'FALSE';
19193: l_valueOut1.varchar2_1 := l_income_tax_region;
19194: l_valueOut1.varchar2_2 := l_exception1;

Line 19199: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,

19195: l_values1(1) := l_valueOut1;
19196: l_numof_values1 := 1;
19197:
19198: fnd_plsql_cache.generic_1tom_put_values(
19199: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,
19200: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,
19201: l_key1,
19202: l_numof_values1,
19203: l_values1);

Line 19200: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,

19196: l_numof_values1 := 1;
19197:
19198: fnd_plsql_cache.generic_1tom_put_values(
19199: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,
19200: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,
19201: l_key1,
19202: l_numof_values1,
19203: l_values1);
19204:

Line 19207: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19203: l_values1);
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(

Line 19208: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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,

Line 19212: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19216: p_default_last_update_login,

Line 19218: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19214: 'INVALID TAX REGION',
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;

Line 19220: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
19224: END IF;

Line 19233: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,

19229: l_values1(1) := l_valueOut1;
19230: l_numof_values1 := 1;
19231:
19232: fnd_plsql_cache.generic_1tom_put_values(
19233: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,
19234: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,
19235: l_key1,
19236: l_numof_values1,
19237: l_values1);

Line 19234: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,

19230: l_numof_values1 := 1;
19231:
19232: fnd_plsql_cache.generic_1tom_put_values(
19233: AP_IMPORT_INVOICES_PKG.lg_incometaxr_controller,
19234: AP_IMPORT_INVOICES_PKG.lg_incometaxr_storage,
19235: l_key1,
19236: l_numof_values1,
19237: l_values1);
19238:

Line 19250: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19246: RETURN (TRUE);
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:

Line 19252: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
19256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 19256: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19252: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 19258: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
19262:

Line 19270: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

19266: -- This function verifies proration of non item lines
19267: --
19268: FUNCTION v_check_prorate_info (
19269: p_invoice_rec IN
19270: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
19271: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
19272: p_default_last_updated_by IN NUMBER,
19273: p_default_last_update_login IN NUMBER,
19274: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 19271: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

19267: --
19268: FUNCTION v_check_prorate_info (
19269: p_invoice_rec IN
19270: AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
19271: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
19272: p_default_last_updated_by IN NUMBER,
19273: p_default_last_update_login IN NUMBER,
19274: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
19275: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 19298: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19294: -- Sum of lines to prorate against cannot be 0
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:

Line 19299: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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))

Line 19314: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
19318: p_default_last_update_login,

Line 19320: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19316: 'CANNOT PRORATE TO ZERO',
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;

Line 19321: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19334: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19330: -- Step 2
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:

Line 19335: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19352: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
19356: p_default_last_update_login,

Line 19358: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19354: 'CANNOT PRORATE TO NON ITEM',
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;

Line 19359: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19368: RETURN (TRUE);
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:

Line 19373: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19378: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19374: debug_info);
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;

Line 19379: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 19392: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

19388: -- This function verifies and populates asset information
19389: --
19390: FUNCTION v_check_asset_info (
19391: p_invoice_lines_rec
19392: IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
19393: p_set_of_books_id IN NUMBER,
19394: p_asset_book_type IN VARCHAR2, -- 5448579
19395: p_default_last_updated_by IN NUMBER,
19396: p_default_last_update_login IN NUMBER,

Line 19421: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19417: -- populated, reject appropriately.
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:

Line 19422: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19430: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19434: p_default_last_update_login,

Line 19436: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19432: 'INVALID SERIAL NUMBER INFO',
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;

Line 19437: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19447: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19451: p_default_last_update_login,

Line 19453: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19449: 'INVALID MANUFACTURER INFO',
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;

Line 19454: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19464: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19468: p_default_last_update_login,

Line 19470: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19466: 'INVALID MODEL NUMBER INFO',
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;

Line 19471: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19481: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19485: p_default_last_update_login,

Line 19487: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19483: 'INVALID WARRANTY NUM INFO',
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;

Line 19488: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19505: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19501: -- book is found.
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:

Line 19506: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19523: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19527: p_default_last_update_login,

Line 19529: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19525: 'INVALID ASSET BOOK CODE',
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;

Line 19531: AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;
19535: END IF;

Line 19553: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19549: -- Step 3 - If asset category is populated, verify that it is appropriate
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:

Line 19554: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19569: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
19573: p_default_last_update_login,

Line 19575: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19571: 'INVALID ASSET CATEGORY ID',
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;

Line 19576: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19592: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19588: p_current_invoice_status := l_current_invoice_status;
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:

Line 19593: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19598: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

19594: debug_info);
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;

Line 19599: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 19635: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

19631: |
19632: *============================================================================*/
19633:
19634: FUNCTION v_check_tax_info(
19635: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
19636: p_default_last_updated_by IN NUMBER,
19637: p_default_last_update_login IN NUMBER,
19638: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
19639: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 19663: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19659:
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:

Line 19664: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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'.

Line 19677: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,

Line 19684: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 19685: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 19697: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19693:
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:

Line 19698: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19718: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,

Line 19725: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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;

Line 19726: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 19739: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19735:
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:

Line 19740: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19762: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
19766: p_default_last_update_login,

Line 19768: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19764: 'CANNOT CONTAIN TAX LINES',
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;

Line 19769: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19784: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19780: debug_info := '(Check tax info 4) Validate if allocation structure is '||
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:

Line 19785: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19812: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
19816: p_default_last_update_login,

Line 19818: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19814: 'NO ALLOCATION RULES FOUND',
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;

Line 19819: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19827:
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:

Line 19832: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19861: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
19865: p_default_last_update_login,

Line 19867: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19863: 'TAX DATA FOUND ON NONTAX LINES',
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;

Line 19868: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19881: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19877: -------------------------------------------------------------------------
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:

Line 19882: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19915: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
19919: p_default_last_update_login,

Line 19921: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19917: 'TAX LINE TYPES CANNOT COEXIST',
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;

Line 19922: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 19939: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19935: RETURN(TRUE);
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:

Line 19940: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 19945: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

19941: debug_info);
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;

Line 19946: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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);

Line 19981: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

19977: | 20-JAN-2004 SYIDNER Created
19978: |
19979: *============================================================================*/
19980: FUNCTION v_check_tax_line_info (
19981: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
19982: p_default_last_updated_by IN NUMBER,
19983: p_default_last_update_login IN NUMBER,
19984: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
19985: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 20037: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20033: --------------------------------------------------------------------------
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:

Line 20039: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20043: IF (SIGN(p_invoice_lines_rec.assessable_value) <>

Line 20046: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20050: p_default_last_update_login,

Line 20052: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20048: 'INVALID SIGN ASSESSABLE VALUE',
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;

Line 20053: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20069: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20065: --------------------------------------------------------------------------
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:

Line 20071: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20075:

Line 20085: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20081: ap_invoice_lines_interface aili
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

Line 20087: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20091: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 20091: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20087: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
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;

Line 20093: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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

Line 20102: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,

Line 20109: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

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:

Line 20110: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20122: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20126: p_default_last_update_login,

Line 20128: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20124: 'INVALID CONTROL AMOUNT ',
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:

Line 20129: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20141: --------------------------------------------------------------------------
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:

Line 20147: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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'
20151: AND NVL(p_invoice_lines_rec.incl_in_taxable_line_flag, 'N') = 'Y'

Line 20162: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20166: p_default_last_update_login,

Line 20168: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20164: 'TAX CANNOT BE INCLUDED',
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;

Line 20169: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20206: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20202: ap_invoice_lines_interface aili
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

Line 20208: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20212: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 20212: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20208: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
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;

Line 20214: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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: ----------------------------------------------------------------------
20218: debug_info := 'Step 4.1: Get location_id for vendor site';

Line 20351: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20347: --------------------------------------------------------------------------
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:

Line 20353: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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

Line 20362: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20366: p_default_last_update_login,

Line 20368: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20364: 'INSUFFICIENT TAX INFO', --bug6255826 Replaced TAX INFO REQUIRED
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;

Line 20369: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20384: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20380: RETURN (TRUE);
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:

Line 20386: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
20390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 20390: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20386: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 20392: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
20396:

Line 20401: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

20397: END v_check_tax_line_info;
20398:
20399:
20400: FUNCTION v_check_line_purch_category(
20401: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
20402: p_default_last_updated_by IN NUMBER,
20403: p_default_last_update_login IN NUMBER,
20404: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
20405: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 20426: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20422: debug_info := '(Check Line Purchasing_Category Info 1) If purchasing_category_id and '||
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:

Line 20428: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20432: IF AP_IMPORT_INVOICES_PKG.g_structure_id IS NULL THEN

Line 20432: IF AP_IMPORT_INVOICES_PKG.g_structure_id IS NULL THEN

20428: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);
20429: END IF;
20430:
20431: -- Bug 5448579
20432: IF AP_IMPORT_INVOICES_PKG.g_structure_id IS NULL THEN
20433: p_invoice_lines_rec.purchasing_category_id := NULL;
20434: p_invoice_lines_rec.purchasing_category := NULL;
20435: END IF;
20436:

Line 20440: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20444: p_default_last_update_login,

Line 20450: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20446: 'Y',
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:

Line 20451: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20467: AP_IMPORT_INVOICES_PKG.g_structure_id,

20463: IF (p_invoice_lines_rec.purchasing_category_id IS NOT NULL AND
20464: p_invoice_lines_rec.purchasing_category IS NOT NULL) THEN
20465:
20466: l_purchasing_category_id := FND_FLEX_EXT.GET_CCID('INV', 'MCAT',
20467: AP_IMPORT_INVOICES_PKG.g_structure_id,
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:

Line 20473: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20477: p_default_last_update_login,

Line 20483: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20479: 'Y',
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:

Line 20484: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20502: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20498: --------------------------------------------------------------------------
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:

Line 20504: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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',
20508: AP_IMPORT_INVOICES_PKG.g_structure_id,

Line 20508: AP_IMPORT_INVOICES_PKG.g_structure_id,

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',
20508: AP_IMPORT_INVOICES_PKG.g_structure_id,
20509: to_char(sysdate,'YYYY/MM/DD HH24:MI:SS'),p_invoice_lines_rec.purchasing_category);
20510:
20511: IF ((l_purchasing_category_id is not null) and (l_purchasing_category_id <> 0 )) THEN
20512: p_invoice_lines_rec.purchasing_category_id := l_purchasing_category_id;

Line 20517: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20521: p_default_last_update_login,

Line 20527: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20523: 'Y',
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:

Line 20528: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20573: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20577: p_default_last_update_login,

Line 20583: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20579: 'Y',
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:

Line 20584: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20617: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

20613: END v_check_line_purch_category;
20614:
20615:
20616: FUNCTION v_check_line_cost_factor(
20617: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
20618: p_default_last_updated_by IN NUMBER,
20619: p_default_last_update_login IN NUMBER,
20620: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
20621: p_calling_sequence IN VARCHAR2) RETURN BOOLEAN

Line 20642: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20638: debug_info := '(Check Line Cost_Factor Info 1) If cost_factor_id and '||
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:

Line 20644: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20648:

Line 20652: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20648:
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:

Line 20654: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20658:

Line 20667: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20671: p_default_last_update_login,

Line 20677: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20673: 'Y',
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:

Line 20678: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20695: p_invoice_lines_rec.cost_factor_name IS NOT NULL) THEN
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:

Line 20701: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20705:

Line 20707: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20711: p_default_last_update_login,

Line 20717: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20713: 'Y',
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:

Line 20718: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20735: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20731:
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:

Line 20737: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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;
20741:

Line 20747: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20743:
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:

Line 20749: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20753: SELECT 'Y'

Line 20761: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20765: p_default_last_update_login,

Line 20771: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20767: 'Y',
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:

Line 20772: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 20805: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

20801:
20802: END v_check_line_cost_factor;
20803:
20804: FUNCTION v_check_line_retainage(
20805: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
20806: p_retainage_ccid IN NUMBER,
20807: p_default_last_updated_by IN NUMBER,
20808: p_default_last_update_login IN NUMBER,
20809: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 20831: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20827:
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:

Line 20833: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20837: (p_invoice_lines_rec.po_line_location_id,

Line 20843: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20839:
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:

Line 20845: AP_IMPORT_INVOICES_PKG.g_debug_switch, debug_info);

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
20849:

Line 20853: AP_IMPORT_INVOICES_PKG.g_invoice_lines_table,

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,
20857: p_default_last_update_login,

Line 20863: If (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') Then

20859: 'Y',
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:

Line 20865: (AP_IMPORT_INVOICES_PKG.g_debug_switch, 'insert_rejections<-'||current_calling_sequence);

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;
20869: End If;

Line 20884: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20880: RETURN (TRUE);
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:

Line 20886: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
20890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 20890: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

20886: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 20892: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
20896:

Line 20903: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

20899:
20900:
20901:
20902: FUNCTION v_check_payment_defaults(
20903: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
20904: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
20905: p_calling_sequence IN VARCHAR2,
20906: p_default_last_updated_by IN NUMBER,
20907: p_default_last_update_login IN NUMBER) return boolean is

Line 20968: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
20972: p_default_last_update_login,

Line 20974: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

20970: 'INVALID PAYMENT REASON',
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;

Line 20975: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21004: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21008: p_default_last_update_login,

Line 21010: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21006: 'INVALID BANK CHARGE BEARER',
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;

Line 21011: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21039: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21043: p_default_last_update_login,

Line 21045: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21041: 'INVALID DELIVERY CHANNEL CODE',
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;

Line 21046: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21077: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21081: p_default_last_update_login,

Line 21083: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21079: 'INVALID SETTLEMENT PRIORITY',
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;

Line 21084: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21115: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21119: p_default_last_update_login,

Line 21121: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21117: 'INVALID EXTERNAL BANK ACCT ID',
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;

Line 21122: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21139: FOR i IN AP_IMPORT_INVOICES_PKG.g_payment_method_tab.First.. AP_IMPORT_INVOICES_PKG.g_payment_method_tab.Last

21135: debug_info := 'Check the paymemt_method_code is defined';
21136:
21137: if p_invoice_rec.payment_method_code is not null then
21138: -- Bug 5448579
21139: FOR i IN AP_IMPORT_INVOICES_PKG.g_payment_method_tab.First.. AP_IMPORT_INVOICES_PKG.g_payment_method_tab.Last
21140: LOOP
21141: IF AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method = p_invoice_rec.payment_method_code THEN
21142: l_valid_payment_method := AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method;
21143: EXIT;

Line 21141: IF AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method = p_invoice_rec.payment_method_code THEN

21137: if p_invoice_rec.payment_method_code is not null then
21138: -- Bug 5448579
21139: FOR i IN AP_IMPORT_INVOICES_PKG.g_payment_method_tab.First.. AP_IMPORT_INVOICES_PKG.g_payment_method_tab.Last
21140: LOOP
21141: IF AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method = p_invoice_rec.payment_method_code THEN
21142: l_valid_payment_method := AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method;
21143: EXIT;
21144: END IF;
21145: END LOOP;

Line 21142: l_valid_payment_method := AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method;

21138: -- Bug 5448579
21139: FOR i IN AP_IMPORT_INVOICES_PKG.g_payment_method_tab.First.. AP_IMPORT_INVOICES_PKG.g_payment_method_tab.Last
21140: LOOP
21141: IF AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method = p_invoice_rec.payment_method_code THEN
21142: l_valid_payment_method := AP_IMPORT_INVOICES_PKG.g_payment_method_tab(i).payment_method;
21143: EXIT;
21144: END IF;
21145: END LOOP;
21146:

Line 21148: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21144: END IF;
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:

Line 21149: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21156: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21160: p_default_last_update_login,

Line 21162: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21158: 'INVALID PAY METHOD',
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;

Line 21163: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21186: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21190: p_default_last_update_login,

Line 21192: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21188: 'INVALID PAY METHOD',
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;

Line 21193: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21356: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21360: p_default_last_update_login,

Line 21362: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21358: 'INVALID PAY METHOD',
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;

Line 21363: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21380: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21376: return(true);
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:

Line 21382: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
21386: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 21386: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21382: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 21388: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
21392: end v_check_payment_defaults;

Line 21397: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

21393:
21394:
21395:
21396: FUNCTION v_check_party_vendor(
21397: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
21398: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
21399: p_calling_sequence IN VARCHAR2,
21400: p_default_last_updated_by IN NUMBER,
21401: p_default_last_update_login IN NUMBER

Line 21434: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21438: p_default_last_update_login,

Line 21440: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21436: 'INCONSISTENT SUPPLIER',
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;

Line 21441: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21464: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21468: p_default_last_update_login,

Line 21470: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21466: 'INCONSISTENT SUPPL SITE',
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;

Line 21471: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21510: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21514: p_default_last_update_login,

Line 21516: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21512: 'INCONSISTENT SUPPL SITE',
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;

Line 21517: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21536: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
21540: p_default_last_update_login,

Line 21542: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21538: 'INCONSISTENT SUPPLIER',
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;

Line 21543: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21560: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21556: return(true);
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:

Line 21562: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
21566: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 21566: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21562: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 21568: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
21572: end v_check_party_vendor;

Line 21577: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

21573:
21574:
21575: --bugfix:5565310
21576: FUNCTION v_check_line_get_po_tax_attr(
21577: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
21578: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
21579: p_calling_sequence IN VARCHAR2) return boolean IS
21580:
21581: l_ref_doc_application_id zx_transaction_lines_gt.ref_doc_application_id%TYPE;

Line 21578: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,

21574:
21575: --bugfix:5565310
21576: FUNCTION v_check_line_get_po_tax_attr(
21577: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
21578: p_invoice_lines_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_line_info_rec,
21579: p_calling_sequence IN VARCHAR2) return boolean IS
21580:
21581: l_ref_doc_application_id zx_transaction_lines_gt.ref_doc_application_id%TYPE;
21582: l_ref_doc_entity_code zx_transaction_lines_gt.ref_doc_entity_code%TYPE;

Line 21615: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21611: p_invoice_lines_rec.assessable_value IS NULL OR
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:

Line 21616: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 21637: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21633: P_Error_Code => l_error_code,
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:

Line 21638: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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(

Line 21660: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21656: x_tax_classification_code => l_dflt_tax_class_code
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:

Line 21661: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21699: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21695: return(true);
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:

Line 21701: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
21705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 21705: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21701: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 21707: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
21711:

Line 21717: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

21713: END v_check_line_get_po_tax_attr;
21714:
21715: --bug# 6989166 starts
21716: FUNCTION v_check_ship_to_location_code(
21717: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
21718: p_invoice_line_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
21719: p_default_last_updated_by IN NUMBER,
21720: p_default_last_update_login IN NUMBER,
21721: p_current_invoice_status IN OUT NOCOPY VARCHAR2,

Line 21718: p_invoice_line_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,

21714:
21715: --bug# 6989166 starts
21716: FUNCTION v_check_ship_to_location_code(
21717: p_invoice_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
21718: p_invoice_line_rec IN AP_IMPORT_INVOICES_PKG.r_line_info_rec,
21719: p_default_last_updated_by IN NUMBER,
21720: p_default_last_update_login IN NUMBER,
21721: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
21722: p_calling_sequence IN VARCHAR2) return boolean IS

Line 21750: (AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,

Line 21757: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

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:

Line 21758: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 21779: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21775: return(true);
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:

Line 21781: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
21785: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 21785: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

21781: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 21787: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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);
21791:

Line 21797: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,

21793: END v_check_ship_to_location_code;
21794: --bug# 6989166 ends
21795:
21796: FUNCTION v_check_invalid_remit_supplier(
21797: p_invoice_rec IN OUT NOCOPY AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
21798: p_default_last_updated_by IN NUMBER,
21799: p_default_last_update_login IN NUMBER,
21800: p_current_invoice_status IN OUT NOCOPY VARCHAR2,
21801: p_calling_sequence IN VARCHAR2)

Line 21832: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21828: ||P_calling_sequence;
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:

Line 21833: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 21840: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21836:
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:

Line 21841: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 21848: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21844:
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:

Line 21849: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 21856: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21852:
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:

Line 21857: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 21864: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21860:
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:

Line 21865: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21883: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21879:
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:

Line 21884: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21902: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21898:
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:

Line 21903: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21921: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21917:
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:

Line 21922: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21941: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21937:
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:

Line 21942: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 21980: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21976:
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:

Line 21981: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 21988: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21984:
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:

Line 21989: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 21996: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

21992:
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:

Line 21997: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22004: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22000:
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:

Line 22005: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22012: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22008:
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:

Line 22013: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22020: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22016:
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:

Line 22021: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 22027: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
22031: p_default_last_update_login,

Line 22033: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22029: 'INVALID REMIT TO SUPPLIER NAME',
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:

Line 22034: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 22044: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
22048: p_default_last_update_login,

Line 22050: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22046: 'INVALID REMIT TO SUPPLIER ID',
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:

Line 22051: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 22061: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
22065: p_default_last_update_login,

Line 22067: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22063: 'INVALID REMIT TO SUPPLIER NUM',
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:

Line 22068: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 22078: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
22082: p_default_last_update_login,

Line 22084: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22080: 'INVALID REMIT TO SUPP SITE ID',
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:

Line 22085: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 22095: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
22099: p_default_last_update_login,

Line 22101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22097: 'INVALID REMIT TO SUPPLIER SITE',
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:

Line 22102: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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;

Line 22134: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22130:
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:

Line 22135: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22142: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22138:
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:

Line 22143: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22150: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22146:
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:

Line 22151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22158: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22154:
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:

Line 22159: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22166: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22162:
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:

Line 22167: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 22181: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22177:
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:

Line 22182: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 22201: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22197:
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:

Line 22202: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22209: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22205:
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:

Line 22210: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 22239: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22235:
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:

Line 22240: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22247: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22243:
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:

Line 22248: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 22263: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22259: -------------------------------------------------------------------
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

Line 22264: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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.

Line 22301: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22297:
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:

Line 22302: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22305:
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:

Line 22310: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22317: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22313:
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:

Line 22318: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -----------------------------------------------------------------------

Line 22325: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22321:
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:

Line 22326: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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: -------------------------------------------------------------------

Line 22333: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22329:
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:

Line 22334: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 22341: AP_IMPORT_INVOICES_PKG.g_invoices_table,

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,
22345: p_default_last_update_login,

Line 22347: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then

22343: 'INVALID THIRD PARTY RELATION',
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;

Line 22348: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

Line 22366: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

22362: RETURN FALSE;
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:

Line 22368: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

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
22372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

Line 22372: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') THEN

22368: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
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;

Line 22374: AP_IMPORT_INVOICES_PKG.g_debug_switch, SQLERRM);

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;
22378: