[Home] [Help]
62: RETURN(TRUE);
63:
64: EXCEPTION
65: WHEN OTHERS THEN
66: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
67: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
68: debug_info);
69: END IF;
70:
63:
64: EXCEPTION
65: WHEN OTHERS THEN
66: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
67: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
68: debug_info);
69: END IF;
70:
71: IF (SQLCODE < 0) then
68: debug_info);
69: END IF;
70:
71: IF (SQLCODE < 0) then
72: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
73: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
74: SQLERRM);
75: END IF;
76: END IF;
69: END IF;
70:
71: IF (SQLCODE < 0) then
72: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
73: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
74: SQLERRM);
75: END IF;
76: END IF;
77:
146: RETURN(TRUE);
147:
148: EXCEPTION
149: WHEN OTHERS THEN
150: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
152: debug_info);
153: END IF;
154:
147:
148: EXCEPTION
149: WHEN OTHERS THEN
150: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
152: debug_info);
153: END IF;
154:
155: IF (SQLCODE < 0) then
152: debug_info);
153: END IF;
154:
155: IF (SQLCODE < 0) then
156: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
157: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
158: SQLERRM);
159: END IF;
160: END IF;
153: END IF;
154:
155: IF (SQLCODE < 0) then
156: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
157: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
158: SQLERRM);
159: END IF;
160: END IF;
161:
222: RETURN(TRUE);
223:
224: EXCEPTION
225: WHEN OTHERS THEN
226: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
227: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
228: debug_info);
229: END IF;
230:
223:
224: EXCEPTION
225: WHEN OTHERS THEN
226: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
227: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
228: debug_info);
229: END IF;
230:
231: IF (SQLCODE < 0) then
228: debug_info);
229: END IF;
230:
231: IF (SQLCODE < 0) then
232: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
233: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
234: SQLERRM);
235: END IF;
236: END IF;
229: END IF;
230:
231: IF (SQLCODE < 0) then
232: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
233: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
234: SQLERRM);
235: END IF;
236: END IF;
237:
309: --
310: RETURN(TRUE);
311: EXCEPTION
312: WHEN OTHERS THEN
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:
310: RETURN(TRUE);
311: EXCEPTION
312: WHEN OTHERS THEN
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 (SQLCODE < 0) then
315: debug_info);
316: END IF;
317:
318: IF (SQLCODE < 0) then
319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
321: SQLERRM);
322: END IF;
323: END IF;
316: END IF;
317:
318: IF (SQLCODE < 0) then
319: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
320: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
321: SQLERRM);
322: END IF;
323: END IF;
324: --
419:
420: RETURN(TRUE);
421: EXCEPTION
422: WHEN OTHERS THEN
423: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
424: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
425: debug_info);
426: END IF;
427:
420: RETURN(TRUE);
421: EXCEPTION
422: WHEN OTHERS THEN
423: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
424: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
425: debug_info);
426: END IF;
427:
428: IF (SQLCODE < 0) then
425: debug_info);
426: END IF;
427:
428: IF (SQLCODE < 0) then
429: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
430: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
431: SQLERRM);
432: END IF;
433: END IF;
426: END IF;
427:
428: IF (SQLCODE < 0) then
429: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
430: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
431: SQLERRM);
432: END IF;
433: END IF;
434: --
710:
711: RETURN(TRUE);
712: EXCEPTION
713: WHEN OTHERS THEN
714: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
715: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
716: debug_info);
717: END IF;
718:
711: RETURN(TRUE);
712: EXCEPTION
713: WHEN OTHERS THEN
714: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
715: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
716: debug_info);
717: END IF;
718:
719: IF (SQLCODE < 0) then
716: debug_info);
717: END IF;
718:
719: IF (SQLCODE < 0) then
720: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
721: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
722: SQLERRM);
723: END IF;
724: END IF;
717: END IF;
718:
719: IF (SQLCODE < 0) then
720: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
721: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
722: SQLERRM);
723: END IF;
724: END IF;
725:
975: RETURN(TRUE);
976: --
977: EXCEPTION
978: WHEN OTHERS THEN
979: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
980: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
981: debug_info);
982: END IF;
983: --
976: --
977: EXCEPTION
978: WHEN OTHERS THEN
979: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
980: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
981: debug_info);
982: END IF;
983: --
984: IF (SQLCODE < 0) then
981: debug_info);
982: END IF;
983: --
984: IF (SQLCODE < 0) then
985: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
986: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
987: SQLERRM);
988: END IF;
989: END IF;
982: END IF;
983: --
984: IF (SQLCODE < 0) then
985: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
986: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
987: SQLERRM);
988: END IF;
989: END IF;
990: --
1044:
1045: RETURN(TRUE);
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1049: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1050: debug_info);
1051: END IF;
1052:
1045: RETURN(TRUE);
1046: EXCEPTION
1047: WHEN OTHERS THEN
1048: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1049: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1050: debug_info);
1051: END IF;
1052:
1053: IF (SQLCODE < 0) then
1050: debug_info);
1051: END IF;
1052:
1053: IF (SQLCODE < 0) then
1054: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1055: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1056: SQLERRM);
1057: END IF;
1058: END IF;
1051: END IF;
1052:
1053: IF (SQLCODE < 0) then
1054: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1055: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1056: SQLERRM);
1057: END IF;
1058: END IF;
1059: --
1285: -- AND L.adj_type = 'PPA'; bug#9573078
1286:
1287: IF l_invoice_amount <> 0 THEN
1288: debug_info := 'Get_Invoice_Amount step2: Call ap_round_currency';
1289: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1290: AP_IMPORT_UTILITIES_PKG.Print(
1291: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1292: END IF;
1293:
1287: IF l_invoice_amount <> 0 THEN
1288: debug_info := 'Get_Invoice_Amount step2: Call ap_round_currency';
1289: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1290: AP_IMPORT_UTILITIES_PKG.Print(
1291: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1292: END IF;
1293:
1294: l_invoice_amount := ap_utilities_pkg.ap_round_currency(
1295: l_invoice_amount,
1296: p_invoice_currency_code);
1297: END IF;
1298:
1299: debug_info := 'l_invoice_amount is '||l_invoice_amount;
1300: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1301: AP_IMPORT_UTILITIES_PKG.Print(
1302: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1303: END IF;
1304:
1298:
1299: debug_info := 'l_invoice_amount is '||l_invoice_amount;
1300: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1301: AP_IMPORT_UTILITIES_PKG.Print(
1302: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1303: END IF;
1304:
1305: RETURN (l_invoice_amount);
1306:
1671: RETURN(TRUE);
1672: --
1673: EXCEPTION
1674: WHEN OTHERS THEN
1675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1676: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1677: debug_info);
1678: END IF;
1679:
1672: --
1673: EXCEPTION
1674: WHEN OTHERS THEN
1675: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1676: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1677: debug_info);
1678: END IF;
1679:
1680: IF (SQLCODE < 0) then
1677: debug_info);
1678: END IF;
1679:
1680: IF (SQLCODE < 0) then
1681: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1682: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1683: SQLERRM);
1684: END IF;
1685: END IF;
1678: END IF;
1679:
1680: IF (SQLCODE < 0) then
1681: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1682: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1683: SQLERRM);
1684: END IF;
1685: END IF;
1686:
1906: RETURN(TRUE);
1907: --
1908: EXCEPTION
1909: WHEN OTHERS THEN
1910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1912: debug_info);
1913: END IF;
1914: --
1907: --
1908: EXCEPTION
1909: WHEN OTHERS THEN
1910: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1911: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1912: debug_info);
1913: END IF;
1914: --
1915: IF (SQLCODE < 0) then
1912: debug_info);
1913: END IF;
1914: --
1915: IF (SQLCODE < 0) then
1916: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1917: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1918: SQLERRM);
1919: END IF;
1920: END IF;
1913: END IF;
1914: --
1915: IF (SQLCODE < 0) then
1916: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1917: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1918: SQLERRM);
1919: END IF;
1920: END IF;
1921: --
2119: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Create_ppa_Invoice'
2120: ||P_Calling_Sequence;
2121: ---------------------------------------------
2122: debug_info := 'Create_Ppa_Invoice Step :1 Open cursor ppa_header';
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: ---------------------------------------------
2121: ---------------------------------------------
2122: debug_info := 'Create_Ppa_Invoice Step :1 Open cursor ppa_header';
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: OPEN ppa_header;
2129: FETCH ppa_header INTO l_ppa_invoice_rec;
2134: CLOSE ppa_header;
2135:
2136: -------------------------------------------
2137: debug_info := 'Create_Ppa_Invoice Step :2 Get meaning';
2138: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2139: AP_IMPORT_UTILITIES_PKG.Print(
2140: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2141: END IF;
2142: -------------------------------------------
2136: -------------------------------------------
2137: debug_info := 'Create_Ppa_Invoice Step :2 Get meaning';
2138: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2139: AP_IMPORT_UTILITIES_PKG.Print(
2140: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2141: END IF;
2142: -------------------------------------------
2143: SELECT displayed_field
2144: INTO l_description
2150: l_ppa_invoice_rec.invoice_num;
2151:
2152: ----------------------------------------------------------------
2153: debug_info := 'Create_Ppa_Invoice Step :3 Get existing ppa count for the base matched line';
2154: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2155: AP_IMPORT_UTILITIES_PKG.Print(
2156: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2157: END IF;
2158: -----------------------------------------------------------------
2152: ----------------------------------------------------------------
2153: debug_info := 'Create_Ppa_Invoice Step :3 Get existing ppa count for the base matched line';
2154: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2155: AP_IMPORT_UTILITIES_PKG.Print(
2156: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2157: END IF;
2158: -----------------------------------------------------------------
2159: SELECT count(*)
2160: INTO l_existing_ppa_count
2185: || '-' || substrb(l_ppa_invoice_rec.invoice_num,0,27)
2186: || '-' ||(l_existing_ppa_count + l_temp_ppa_count+1); --bug#9855094
2187:
2188: debug_info := 'l_ppa_invoice_rec.invoice_num is '||l_ppa_invoice_rec.invoice_num;
2189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2190: AP_IMPORT_UTILITIES_PKG.Print(
2191: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2192: END IF;
2193: -- Removed step 4 and step 5 for bug8514744
2187:
2188: debug_info := 'l_ppa_invoice_rec.invoice_num is '||l_ppa_invoice_rec.invoice_num;
2189: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2190: AP_IMPORT_UTILITIES_PKG.Print(
2191: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2192: END IF;
2193: -- Removed step 4 and step 5 for bug8514744
2194: -- Same logic moved to apretrob.pls
2195: ------------------------------------------------
2193: -- Removed step 4 and step 5 for bug8514744
2194: -- Same logic moved to apretrob.pls
2195: ------------------------------------------------
2196: debug_info := 'Create_Ppa_Invoice Step :6 Insert into ap_ppa_invoices_gt';
2197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2198: AP_IMPORT_UTILITIES_PKG.Print(
2199: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2200: END IF;
2201: ------------------------------------------------
2195: ------------------------------------------------
2196: debug_info := 'Create_Ppa_Invoice Step :6 Insert into ap_ppa_invoices_gt';
2197: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2198: AP_IMPORT_UTILITIES_PKG.Print(
2199: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2200: END IF;
2201: ------------------------------------------------
2202: INSERT INTO ap_ppa_invoices_gt(
2203: accts_pay_code_combination_id,
2399: RETURN(TRUE);
2400: --
2401: EXCEPTION
2402: WHEN OTHERS THEN
2403: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2404: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2405: debug_info);
2406: END IF;
2407:
2400: --
2401: EXCEPTION
2402: WHEN OTHERS THEN
2403: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2404: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2405: debug_info);
2406: END IF;
2407:
2408: IF (SQLCODE < 0) then
2405: debug_info);
2406: END IF;
2407:
2408: IF (SQLCODE < 0) then
2409: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2410: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2411: SQLERRM);
2412: END IF;
2413: END IF;
2406: END IF;
2407:
2408: IF (SQLCODE < 0) then
2409: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2410: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2411: SQLERRM);
2412: END IF;
2413: END IF;
2414: --