DBA Data[Home] [Help]

APPS.AP_RETRO_PRICING_UTIL_PKG dependencies on AP_IMPORT_INVOICES_PKG

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

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:

Line 67: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 72: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') 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;

Line 73: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

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

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:

Line 151: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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

Line 156: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') 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;

Line 157: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

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:

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

218: RETURN(TRUE);
219:
220: EXCEPTION
221: WHEN OTHERS THEN
222: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
223: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
224: debug_info);
225: END IF;
226:

Line 223: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

219:
220: EXCEPTION
221: WHEN OTHERS THEN
222: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
223: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
224: debug_info);
225: END IF;
226:
227: IF (SQLCODE < 0) then

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

224: debug_info);
225: END IF;
226:
227: IF (SQLCODE < 0) then
228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
229: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
230: SQLERRM);
231: END IF;
232: END IF;

Line 229: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

225: END IF;
226:
227: IF (SQLCODE < 0) then
228: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
229: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
230: SQLERRM);
231: END IF;
232: END IF;
233:

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

305: --
306: RETURN(TRUE);
307: EXCEPTION
308: WHEN OTHERS THEN
309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
310: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
311: debug_info);
312: END IF;
313:

Line 310: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

306: RETURN(TRUE);
307: EXCEPTION
308: WHEN OTHERS THEN
309: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
310: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
311: debug_info);
312: END IF;
313:
314: IF (SQLCODE < 0) then

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

311: debug_info);
312: END IF;
313:
314: IF (SQLCODE < 0) then
315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
317: SQLERRM);
318: END IF;
319: END IF;

Line 316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

312: END IF;
313:
314: IF (SQLCODE < 0) then
315: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
316: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
317: SQLERRM);
318: END IF;
319: END IF;
320: --

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

415:
416: RETURN(TRUE);
417: EXCEPTION
418: WHEN OTHERS THEN
419: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
420: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
421: debug_info);
422: END IF;
423:

Line 420: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

416: RETURN(TRUE);
417: EXCEPTION
418: WHEN OTHERS THEN
419: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
420: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
421: debug_info);
422: END IF;
423:
424: IF (SQLCODE < 0) then

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

421: debug_info);
422: END IF;
423:
424: IF (SQLCODE < 0) then
425: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
426: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
427: SQLERRM);
428: END IF;
429: END IF;

Line 426: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

422: END IF;
423:
424: IF (SQLCODE < 0) then
425: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
426: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
427: SQLERRM);
428: END IF;
429: END IF;
430: --

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

705:
706: RETURN(TRUE);
707: EXCEPTION
708: WHEN OTHERS THEN
709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
710: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
711: debug_info);
712: END IF;
713:

Line 710: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

706: RETURN(TRUE);
707: EXCEPTION
708: WHEN OTHERS THEN
709: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
710: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
711: debug_info);
712: END IF;
713:
714: IF (SQLCODE < 0) then

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

711: debug_info);
712: END IF;
713:
714: IF (SQLCODE < 0) then
715: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
716: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
717: SQLERRM);
718: END IF;
719: END IF;

Line 716: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

712: END IF;
713:
714: IF (SQLCODE < 0) then
715: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
716: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
717: SQLERRM);
718: END IF;
719: END IF;
720:

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

968: RETURN(TRUE);
969: --
970: EXCEPTION
971: WHEN OTHERS THEN
972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
973: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
974: debug_info);
975: END IF;
976: --

Line 973: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

969: --
970: EXCEPTION
971: WHEN OTHERS THEN
972: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
973: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
974: debug_info);
975: END IF;
976: --
977: IF (SQLCODE < 0) then

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

974: debug_info);
975: END IF;
976: --
977: IF (SQLCODE < 0) then
978: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
979: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
980: SQLERRM);
981: END IF;
982: END IF;

Line 979: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

975: END IF;
976: --
977: IF (SQLCODE < 0) then
978: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
979: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
980: SQLERRM);
981: END IF;
982: END IF;
983: --

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

1037:
1038: RETURN(TRUE);
1039: EXCEPTION
1040: WHEN OTHERS THEN
1041: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1042: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1043: debug_info);
1044: END IF;
1045:

Line 1042: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1038: RETURN(TRUE);
1039: EXCEPTION
1040: WHEN OTHERS THEN
1041: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1042: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1043: debug_info);
1044: END IF;
1045:
1046: IF (SQLCODE < 0) then

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

1043: debug_info);
1044: END IF;
1045:
1046: IF (SQLCODE < 0) then
1047: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1048: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1049: SQLERRM);
1050: END IF;
1051: END IF;

Line 1048: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1044: END IF;
1045:
1046: IF (SQLCODE < 0) then
1047: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1048: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1049: SQLERRM);
1050: END IF;
1051: END IF;
1052: --

Line 1276: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN

1272: AND L.adj_type = 'PPA';
1273:
1274: IF l_invoice_amount <> 0 THEN
1275: debug_info := 'Get_Invoice_Amount step2: Call ap_round_currency';
1276: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1277: AP_IMPORT_UTILITIES_PKG.Print(
1278: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1279: END IF;
1280:

Line 1278: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

1274: IF l_invoice_amount <> 0 THEN
1275: debug_info := 'Get_Invoice_Amount step2: Call ap_round_currency';
1276: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1277: AP_IMPORT_UTILITIES_PKG.Print(
1278: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1279: END IF;
1280:
1281: l_invoice_amount := ap_utilities_pkg.ap_round_currency(
1282: l_invoice_amount,

Line 1287: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN

1283: p_invoice_currency_code);
1284: END IF;
1285:
1286: debug_info := 'l_invoice_amount is '||l_invoice_amount;
1287: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1288: AP_IMPORT_UTILITIES_PKG.Print(
1289: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1290: END IF;
1291:

Line 1289: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

1285:
1286: debug_info := 'l_invoice_amount is '||l_invoice_amount;
1287: IF AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y' THEN
1288: AP_IMPORT_UTILITIES_PKG.Print(
1289: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
1290: END IF;
1291:
1292: RETURN (l_invoice_amount);
1293:

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

1636: RETURN(TRUE);
1637: --
1638: EXCEPTION
1639: WHEN OTHERS THEN
1640: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1641: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1642: debug_info);
1643: END IF;
1644:

Line 1641: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1637: --
1638: EXCEPTION
1639: WHEN OTHERS THEN
1640: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1641: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1642: debug_info);
1643: END IF;
1644:
1645: IF (SQLCODE < 0) then

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

1642: debug_info);
1643: END IF;
1644:
1645: IF (SQLCODE < 0) then
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: SQLERRM);
1649: END IF;
1650: END IF;

Line 1647: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1643: END IF;
1644:
1645: IF (SQLCODE < 0) then
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: SQLERRM);
1649: END IF;
1650: END IF;
1651:

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

1870: RETURN(TRUE);
1871: --
1872: EXCEPTION
1873: WHEN OTHERS 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: debug_info);
1877: END IF;
1878: --

Line 1875: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1871: --
1872: EXCEPTION
1873: WHEN OTHERS 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: debug_info);
1877: END IF;
1878: --
1879: IF (SQLCODE < 0) then

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

1876: debug_info);
1877: END IF;
1878: --
1879: IF (SQLCODE < 0) then
1880: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1881: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1882: SQLERRM);
1883: END IF;
1884: END IF;

Line 1881: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

1877: END IF;
1878: --
1879: IF (SQLCODE < 0) then
1880: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
1881: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
1882: SQLERRM);
1883: END IF;
1884: END IF;
1885: --

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

2082: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Create_ppa_Invoice'
2083: ||P_Calling_Sequence;
2084: ---------------------------------------------
2085: debug_info := 'Create_Ppa_Invoice Step :1 Open cursor ppa_header';
2086: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2087: AP_IMPORT_UTILITIES_PKG.Print(
2088: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2089: END IF;
2090: ---------------------------------------------

Line 2088: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2084: ---------------------------------------------
2085: debug_info := 'Create_Ppa_Invoice Step :1 Open cursor ppa_header';
2086: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2087: AP_IMPORT_UTILITIES_PKG.Print(
2088: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2089: END IF;
2090: ---------------------------------------------
2091: OPEN ppa_header;
2092: FETCH ppa_header INTO l_ppa_invoice_rec;

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

2097: CLOSE ppa_header;
2098:
2099: -------------------------------------------
2100: debug_info := 'Create_Ppa_Invoice Step :2 Get meaning';
2101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2102: AP_IMPORT_UTILITIES_PKG.Print(
2103: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2104: END IF;
2105: -------------------------------------------

Line 2103: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2099: -------------------------------------------
2100: debug_info := 'Create_Ppa_Invoice Step :2 Get meaning';
2101: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2102: AP_IMPORT_UTILITIES_PKG.Print(
2103: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2104: END IF;
2105: -------------------------------------------
2106: SELECT displayed_field
2107: INTO l_description

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

2113: l_ppa_invoice_rec.invoice_num;
2114:
2115: ----------------------------------------------------------------
2116: debug_info := 'Create_Ppa_Invoice Step :3 Get existing ppa count for the base matched line';
2117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2118: AP_IMPORT_UTILITIES_PKG.Print(
2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2120: END IF;
2121: -----------------------------------------------------------------

Line 2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2115: ----------------------------------------------------------------
2116: debug_info := 'Create_Ppa_Invoice Step :3 Get existing ppa count for the base matched line';
2117: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2118: AP_IMPORT_UTILITIES_PKG.Print(
2119: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2120: END IF;
2121: -----------------------------------------------------------------
2122: SELECT count(*)
2123: INTO l_existing_ppa_count

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

2134: || '-' || substrb(l_ppa_invoice_rec.invoice_num,0,27)
2135: || '-' ||(l_existing_ppa_count + 1);
2136:
2137: debug_info := 'l_ppa_invoice_rec.invoice_num is '||l_ppa_invoice_rec.invoice_num;
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:

Line 2140: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2136:
2137: debug_info := 'l_ppa_invoice_rec.invoice_num is '||l_ppa_invoice_rec.invoice_num;
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: -------------------------------------------
2144: debug_info := 'Create_Ppa_Invoice Step :4 Doc_sequence_Num';

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

2141: END IF;
2142:
2143: -------------------------------------------
2144: debug_info := 'Create_Ppa_Invoice Step :4 Doc_sequence_Num';
2145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2146: AP_IMPORT_UTILITIES_PKG.Print(
2147: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2148: END IF;
2149: -------------------------------------------

Line 2147: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2143: -------------------------------------------
2144: debug_info := 'Create_Ppa_Invoice Step :4 Doc_sequence_Num';
2145: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2146: AP_IMPORT_UTILITIES_PKG.Print(
2147: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2148: END IF;
2149: -------------------------------------------
2150: FND_PROFILE.GET('UNIQUE:SEQ_NUMBERS',l_seq_num_profile);
2151: IF (l_seq_num_profile IN ('A','P')) THEN

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

2173: AND NVL(SA.end_date, TO_DATE('31/12/4712','DD/MM/YYYY'));
2174:
2175: ---------------------------------------
2176: debug_info := 'Create_Ppa_Invoice Step :5 Get doc sequence val';
2177: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2178: AP_IMPORT_UTILITIES_PKG.Print(
2179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2180: END IF;
2181: ----------------------------------------

Line 2179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2175: ---------------------------------------
2176: debug_info := 'Create_Ppa_Invoice Step :5 Get doc sequence val';
2177: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2178: AP_IMPORT_UTILITIES_PKG.Print(
2179: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2180: END IF;
2181: ----------------------------------------
2182: l_return_code := FND_SEQNUM.GET_SEQ_VAL(
2183: 200,

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

2195:
2196: END;
2197:
2198: debug_info := 'after FND_SEQNUM.GET_SEQ_VAL';
2199: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2200: AP_IMPORT_UTILITIES_PKG.Print(
2201: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2202: END IF;
2203:

Line 2201: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2197:
2198: debug_info := 'after FND_SEQNUM.GET_SEQ_VAL';
2199: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2200: AP_IMPORT_UTILITIES_PKG.Print(
2201: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2202: END IF;
2203:
2204: IF((l_ppa_invoice_rec.doc_sequence_value IS NULL)
2205: OR (l_return_code <> 0) ) THEN

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

2210: END IF;
2211:
2212: ------------------------------------------------
2213: debug_info := 'Create_Ppa_Invoice Step :6 Insert into ap_ppa_invoices_gt';
2214: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2215: AP_IMPORT_UTILITIES_PKG.Print(
2216: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2217: END IF;
2218: ------------------------------------------------

Line 2216: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);

2212: ------------------------------------------------
2213: debug_info := 'Create_Ppa_Invoice Step :6 Insert into ap_ppa_invoices_gt';
2214: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2215: AP_IMPORT_UTILITIES_PKG.Print(
2216: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
2217: END IF;
2218: ------------------------------------------------
2219: INSERT INTO ap_ppa_invoices_gt(
2220: accts_pay_code_combination_id,

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

2406: RETURN(TRUE);
2407: --
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2412: debug_info);
2413: END IF;
2414:

Line 2411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

2407: --
2408: EXCEPTION
2409: WHEN OTHERS THEN
2410: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2411: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2412: debug_info);
2413: END IF;
2414:
2415: IF (SQLCODE < 0) then

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

2412: debug_info);
2413: END IF;
2414:
2415: IF (SQLCODE < 0) then
2416: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2417: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2418: SQLERRM);
2419: END IF;
2420: END IF;

Line 2417: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,

2413: END IF;
2414:
2415: IF (SQLCODE < 0) then
2416: IF (AP_IMPORT_INVOICES_PKG.g_debug_switch = 'Y') then
2417: AP_IMPORT_UTILITIES_PKG.Print(AP_IMPORT_INVOICES_PKG.g_debug_switch,
2418: SQLERRM);
2419: END IF;
2420: END IF;
2421: --