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_RETRO_PRICING_PKG dependencies on AP_RETRO_PRICING_PKG

Line 1: PACKAGE BODY AP_RETRO_PRICING_PKG AS

1: PACKAGE BODY AP_RETRO_PRICING_PKG AS
2: /* $Header: apretrob.pls 120.29.12010000.6 2008/11/25 12:29:01 dcshanmu ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_RETRO_PRICING_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;

Line 4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_RETRO_PRICING_PKG';

1: PACKAGE BODY AP_RETRO_PRICING_PKG AS
2: /* $Header: apretrob.pls 120.29.12010000.6 2008/11/25 12:29:01 dcshanmu ship $ */
3:
4: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_RETRO_PRICING_PKG';
5: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
6: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
7: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
8: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH; G_MSG_MEDIUM CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM;

Line 19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';

15: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
16: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
17: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
18: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
19: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RETRO_PRICING_PKG.';
20:
21:
22: /*=============================================================================
23: | PROCEDURE - insert_ap_inv_interface()

Line 98: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(+)');

94: --
95: current_calling_sequence := 'init<-'||P_calling_sequence;
96:
97: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
98: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(+)');
99: END IF;
100:
101: -- Bug 5048503 : starts
102: -------------------------------------------------

Line 198: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(-)');

194: l_vendor_num_list.DELETE;
195: l_vendor_name_list.DELETE;
196:
197: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
198: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_INTERFACE(-)');
199: END IF;
200:
201:
202:

Line 333: 'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(+)');

329: current_calling_sequence := 'insert_ap_inv_lines_interface<-'||P_calling_sequence;
330:
331: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
332: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,
333: 'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(+)');
334: END IF;
335: -----------------------------------------------
336: debug_info := 'Step 5a. build shipment list';
337: -----------------------------------------------

Line 431: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(-)');

427: l_release_num_list.DELETE;
428: l_po_shipment_num_list.DELETE;
429:
430: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
431: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(-)');
432: END IF;
433:
434:
435: EXCEPTION

Line 554: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(+)');

550: --
551: current_calling_sequence := 'CADIP<-'||P_calling_sequence ;
552:
553: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
554: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(+)');
555: END IF;
556:
557: -----------------------------------------------------------------
558: debug_info := 'Step 1. Generate a Group Id(Invoice Gateway Batch';

Line 631: AP_RETRO_PRICING_PKG.insert_ap_inv_interface (

627: debug_info := 'Step 2b. Populate AP_INVOICES_INTERFACE';
628: -----------------------------------------------------------------
629: IF p_resubmit_flag <> 'Y' THEN
630:
631: AP_RETRO_PRICING_PKG.insert_ap_inv_interface (
632: l_group_id,
633: l_org_id,
634: p_po_user_id,
635: p_vendor_id,

Line 647: AP_RETRO_PRICING_PKG.insert_ap_inv_lines_interface(

643: debug_info := 'Step 2c. Populate AP_INVOICE_LINES_INTERFACE';
644: ----------------------------------------------------------------
645: IF p_resubmit_flag <> 'Y' THEN
646:
647: AP_RETRO_PRICING_PKG.insert_ap_inv_lines_interface(
648: l_group_id,
649: l_org_id,
650: p_po_user_id,
651: p_vendor_id, -- IN

Line 710: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(-)');

706: END IF;
707: --
708:
709: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
710: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(-)');
711: END IF;
712:
713: RETURN(TRUE);
714: --

Line 797: p_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

793: |
794: *==============================================================================*/
795: FUNCTION Reverse_Existing_Ppa_Dists(
796: p_instruction_id IN NUMBER,
797: p_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
798: p_existing_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
799: P_calling_sequence IN VARCHAR2)
800: RETURN BOOLEAN IS
801:

Line 798: p_existing_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

794: *==============================================================================*/
795: FUNCTION Reverse_Existing_Ppa_Dists(
796: p_instruction_id IN NUMBER,
797: p_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
798: p_existing_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
799: P_calling_sequence IN VARCHAR2)
800: RETURN BOOLEAN IS
801:
802: CURSOR Existing_ppa_invoice_dists IS

Line 917: l_existing_ppa_dist_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

913: AND invoice_line_number = p_existing_ppa_lines_rec.line_number
914: AND NVL(cancellation_flag, 'N' ) <> 'Y'
915: AND NVL(reversal_flag, 'N' ) <> 'Y';
916:
917: l_existing_ppa_dist_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
918: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
919:
920: current_calling_sequence VARCHAR2(1000);
921: debug_info VARCHAR2(1000);

Line 918: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

914: AND NVL(cancellation_flag, 'N' ) <> 'Y'
915: AND NVL(reversal_flag, 'N' ) <> 'Y';
916:
917: l_existing_ppa_dist_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
918: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
919:
920: current_calling_sequence VARCHAR2(1000);
921: debug_info VARCHAR2(1000);
922: l_api_name CONSTANT VARCHAR2(200) := 'Reverse_Existing_Ppa_Dists';

Line 927: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'

923:
924:
925: BEGIN
926:
927: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'
928: ||P_Calling_Sequence;
929:
930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');

Line 931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');

927: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'
928: ||P_Calling_Sequence;
929:
930: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
931: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');
932: END IF;
933:
934: ---------------------------------------------------------------------------
935: debug_info := 'Reverse_Existing_Ppa_Dists Step 1. Open cursor '

Line 1015: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(-)');

1011: l_existing_ppa_dist_list.DELETE;
1012: l_ppa_invoice_dists_list.DELETE;
1013:
1014: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1015: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(-)');
1016: END IF;
1017: --
1018: RETURN(TRUE);
1019: --

Line 1073: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

1069: |
1070: *============================================================================*/
1071: FUNCTION Reverse_Existing_Ppa(
1072: p_instruction_id IN NUMBER,
1073: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1074: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
1075: p_existing_ppa_inv_id IN NUMBER,
1076: P_calling_sequence IN VARCHAR2)
1077: RETURN BOOLEAN IS

Line 1074: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,

1070: *============================================================================*/
1071: FUNCTION Reverse_Existing_Ppa(
1072: p_instruction_id IN NUMBER,
1073: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1074: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
1075: p_existing_ppa_inv_id IN NUMBER,
1076: P_calling_sequence IN VARCHAR2)
1077: RETURN BOOLEAN IS
1078: CURSOR existing_ppa_lines IS

Line 1245: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1241: AND line_type_lookup_code = 'RETROITEM'
1242: AND discarded_flag <> 'Y'
1243: AND cancelled_flag <> 'Y';
1244:
1245: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1246: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1247: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
1248: Ppa_Line_Reversal_failure EXCEPTION;
1249: current_calling_sequence VARCHAR2(1000);

Line 1246: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1242: AND discarded_flag <> 'Y'
1243: AND cancelled_flag <> 'Y';
1244:
1245: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1246: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1247: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
1248: Ppa_Line_Reversal_failure EXCEPTION;
1249: current_calling_sequence VARCHAR2(1000);
1250: debug_info VARCHAR2(1000);

Line 1247: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

1243: AND cancelled_flag <> 'Y';
1244:
1245: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1246: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1247: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
1248: Ppa_Line_Reversal_failure EXCEPTION;
1249: current_calling_sequence VARCHAR2(1000);
1250: debug_info VARCHAR2(1000);
1251:

Line 1254: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa'

1250: debug_info VARCHAR2(1000);
1251:
1252: BEGIN
1253: --
1254: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa'
1255: ||P_Calling_Sequence;
1256: ---------------------------------------------------------------------------
1257: debug_info := 'Reverse_Existing_Ppa Step 1. Open Existing PPA Lines';
1258: ---------------------------------------------------------------------------

Line 1430: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1426: FUNCTION Create_Zero_Amt_Adj_Line(
1427: p_instruction_id IN NUMBER,
1428: p_created_by IN NUMBER,
1429: p_correcting IN VARCHAR2,
1430: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1431: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1432: P_calling_sequence IN VARCHAR2)
1433: RETURN BOOLEAN IS
1434:

Line 1431: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1427: p_instruction_id IN NUMBER,
1428: p_created_by IN NUMBER,
1429: p_correcting IN VARCHAR2,
1430: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1431: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1432: P_calling_sequence IN VARCHAR2)
1433: RETURN BOOLEAN IS
1434:
1435: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

Line 1435: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1431: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1432: P_calling_sequence IN VARCHAR2)
1433: RETURN BOOLEAN IS
1434:
1435: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1436: current_calling_sequence VARCHAR2(1000);
1437: debug_info VARCHAR2(1000);
1438: Zero_Amt_Adj_Line_Failure EXCEPTION;
1439:

Line 1442: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Create_Zero_Amt_Adj_Line'

1438: Zero_Amt_Adj_Line_Failure EXCEPTION;
1439:
1440: BEGIN
1441: --
1442: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Create_Zero_Amt_Adj_Line'
1443: ||P_Calling_Sequence;
1444: ---------------------------------------------------------------------------
1445: debug_info := 'Create_Zero_Amt_Adj_Line Step 1. Zero Amt Adj Line';
1446: ---------------------------------------------------------------------------

Line 1564: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

1560: | 29-JUL-2003 dgulraja Creation
1561: |
1562: *==========================================================================*/
1563: FUNCTION Create_Adjustment_Corrections(
1564: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1565: p_base_currency_code IN VARCHAR2,
1566: p_adj_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1567: P_calling_sequence IN VARCHAR2)
1568: RETURN BOOLEAN IS

Line 1566: p_adj_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1562: *==========================================================================*/
1563: FUNCTION Create_Adjustment_Corrections(
1564: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1565: p_base_currency_code IN VARCHAR2,
1566: p_adj_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1567: P_calling_sequence IN VARCHAR2)
1568: RETURN BOOLEAN IS
1569:
1570:

Line 1686: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1682: AND invoice_line_number = p_adj_lines_rec.line_number
1683: AND line_type_lookup_code IN ('RETROEXPENSE', 'RETROACCRUAL', 'ERV')
1684: ORDER BY invoice_distribution_id;
1685:
1686: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1687: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1688: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1689:
1690: i INTEGER;

Line 1687: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

1683: AND line_type_lookup_code IN ('RETROEXPENSE', 'RETROACCRUAL', 'ERV')
1684: ORDER BY invoice_distribution_id;
1685:
1686: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1687: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1688: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1689:
1690: i INTEGER;
1691: l_dist_total NUMBER;

Line 1688: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

1684: ORDER BY invoice_distribution_id;
1685:
1686: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1687: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1688: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1689:
1690: i INTEGER;
1691: l_dist_total NUMBER;
1692: l_line_amount NUMBER;

Line 1702: 'AP_RETRO_PRICING_PKG.Create_Adjustment_Corrections'||P_Calling_Sequence;

1698:
1699: BEGIN
1700: --
1701: current_calling_sequence :=
1702: 'AP_RETRO_PRICING_PKG.Create_Adjustment_Corrections'||P_Calling_Sequence;
1703: --
1704: ---------------------------------------------------------------------------
1705: debug_info := 'Create_Adjustment_Corrections Step 1. Compute Adj Corr Line ';
1706: ---------------------------------------------------------------------------

Line 1844: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

1840: | 29-JUL-2003 dgulraja Creation
1841: |
1842: *============================================================================*/
1843: FUNCTION Reverse_Redistribute_IPV(
1844: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1845: p_base_currency_code IN VARCHAR2,
1846: p_instruction_id IN NUMBER,
1847: p_created_by IN NUMBER,
1848: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

Line 1848: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1844: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1845: p_base_currency_code IN VARCHAR2,
1846: p_instruction_id IN NUMBER,
1847: p_created_by IN NUMBER,
1848: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1849: p_erv_dists_exist OUT NOCOPY VARCHAR2,
1850: P_calling_sequence IN VARCHAR2)
1851: RETURN BOOLEAN IS
1852:

Line 1980: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1976: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
1977: -- Corr is done once. However the PO price adjustment will be done
1978: -- w.r.t modified PO unit price.
1979:
1980: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1981: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1982: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1983: l_ipv_dists_exist VARCHAR2(1);
1984:

Line 1981: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

1977: -- Corr is done once. However the PO price adjustment will be done
1978: -- w.r.t modified PO unit price.
1979:
1980: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1981: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1982: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1983: l_ipv_dists_exist VARCHAR2(1);
1984:
1985: l_rows NUMBER;

Line 1982: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

1978: -- w.r.t modified PO unit price.
1979:
1980: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1981: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1982: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1983: l_ipv_dists_exist VARCHAR2(1);
1984:
1985: l_rows NUMBER;
1986: l_po_exchange_rate NUMBER;

Line 1998: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_IPV'

1994: Reverse_Redist_IPV_FAILURE EXCEPTION;
1995:
1996: BEGIN
1997:
1998: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_IPV'
1999: ||P_Calling_Sequence;
2000: ---------------------------------------------------------------------------
2001: debug_info := 'Reverse_Redistribute_IPV Step 1. Compute Zero Amt Adj Line';
2002: ---------------------------------------------------------------------------

Line 2313: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

2309: | 29-JUL-2003 dgulraja Creation
2310: |
2311: *============================================================================*/
2312: FUNCTION Reverse_Redistribute_TIPV(
2313: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2314: p_base_currency_code IN VARCHAR2,
2315: p_instruction_id IN NUMBER,
2316: p_created_by IN NUMBER,
2317: p_original_exchange_rate IN NUMBER,

Line 2318: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

2314: p_base_currency_code IN VARCHAR2,
2315: p_instruction_id IN NUMBER,
2316: p_created_by IN NUMBER,
2317: p_original_exchange_rate IN NUMBER,
2318: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2319: p_tax_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2320: P_calling_sequence IN VARCHAR2)
2321: RETURN BOOLEAN IS
2322:

Line 2319: p_tax_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

2315: p_instruction_id IN NUMBER,
2316: p_created_by IN NUMBER,
2317: p_original_exchange_rate IN NUMBER,
2318: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2319: p_tax_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2320: P_calling_sequence IN VARCHAR2)
2321: RETURN BOOLEAN IS
2322:
2323: CURSOR tipv_dists(

Line 2453: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

2449: --Bug5485084 replaced p_tax_lines_rec with p_lines_rec
2450: AND invoice_line_number = p_lines_rec.line_number);
2451: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2452: -- Corr is done once.
2453: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2454: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2455: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2456: l_terv_ccid AP_INVOICE_DISTRIBUTIONS_ALL.dist_code_combination_id%TYPE;
2457: l_terv_dists_exist VARCHAR2(1);

Line 2454: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2450: AND invoice_line_number = p_lines_rec.line_number);
2451: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2452: -- Corr is done once.
2453: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2454: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2455: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2456: l_terv_ccid AP_INVOICE_DISTRIBUTIONS_ALL.dist_code_combination_id%TYPE;
2457: l_terv_dists_exist VARCHAR2(1);
2458: l_rows NUMBER;

Line 2455: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2451: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2452: -- Corr is done once.
2453: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2454: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2455: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2456: l_terv_ccid AP_INVOICE_DISTRIBUTIONS_ALL.dist_code_combination_id%TYPE;
2457: l_terv_dists_exist VARCHAR2(1);
2458: l_rows NUMBER;
2459: l_po_exchange_rate NUMBER;

Line 2470: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_TIPV'

2466: Tipv_Adjustment_Corr_Failure EXCEPTION;
2467:
2468: BEGIN
2469: --
2470: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_TIPV'
2471: ||P_Calling_Sequence;
2472: ---------------------------------------------------------------------------
2473: debug_info := 'Reverse_Redistribute_TIPV Step 1. Compute Zero Amt TAX '
2474: ||'Adj Line ';

Line 2767: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

2763: | 29-JUL-2003 dgulraja Creation
2764: |
2765: *============================================================================*/
2766: FUNCTION Process_TIPV_Reversal(
2767: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2768: p_base_currency_code IN VARCHAR2,
2769: p_instruction_id IN NUMBER,
2770: p_created_by IN NUMBER,
2771: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

Line 2771: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

2767: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2768: p_base_currency_code IN VARCHAR2,
2769: p_instruction_id IN NUMBER,
2770: p_created_by IN NUMBER,
2771: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2772: p_tax_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
2773: P_calling_sequence IN VARCHAR2)
2774: RETURN BOOLEAN IS
2775:

Line 2772: p_tax_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,

2768: p_base_currency_code IN VARCHAR2,
2769: p_instruction_id IN NUMBER,
2770: p_created_by IN NUMBER,
2771: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2772: p_tax_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
2773: P_calling_sequence IN VARCHAR2)
2774: RETURN BOOLEAN IS
2775:
2776:

Line 2777: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

2773: P_calling_sequence IN VARCHAR2)
2774: RETURN BOOLEAN IS
2775:
2776:
2777: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2778: --l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
2779: l_original_exchange_rate NUMBER;
2780: current_calling_sequence VARCHAR2(1000);
2781: debug_info VARCHAR2(1000);

Line 2778: --l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

2774: RETURN BOOLEAN IS
2775:
2776:
2777: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2778: --l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
2779: l_original_exchange_rate NUMBER;
2780: current_calling_sequence VARCHAR2(1000);
2781: debug_info VARCHAR2(1000);
2782:

Line 2788: 'AP_RETRO_PRICING_PKG.Process_TIPV_Reversal<-'

2784:
2785: BEGIN
2786: --
2787: current_calling_sequence :=
2788: 'AP_RETRO_PRICING_PKG.Process_TIPV_Reversal<-'
2789: ||P_calling_sequence;
2790:
2791: ---------------------------------------------------------------------------
2792: debug_info := 'Process_TIPV_Reversal Step 1. Get Exchange rate for the '

Line 2879: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

2875: *==========================================================================*/
2876: FUNCTION Create_Po_Price_Adjustments(
2877: p_base_currency_code IN VARCHAR2,
2878: p_instruction_id IN NUMBER,
2879: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2880: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
2881: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2882: P_calling_sequence IN VARCHAR2)
2883: RETURN BOOLEAN IS

Line 2880: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,

2876: FUNCTION Create_Po_Price_Adjustments(
2877: p_base_currency_code IN VARCHAR2,
2878: p_instruction_id IN NUMBER,
2879: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2880: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
2881: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2882: P_calling_sequence IN VARCHAR2)
2883: RETURN BOOLEAN IS
2884:

Line 2881: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

2877: p_base_currency_code IN VARCHAR2,
2878: p_instruction_id IN NUMBER,
2879: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2880: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
2881: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2882: P_calling_sequence IN VARCHAR2)
2883: RETURN BOOLEAN IS
2884:
2885:

Line 3000: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

2996: WHERE invoice_id = p_lines_rec.invoice_id
2997: AND invoice_line_number = p_lines_rec.line_number
2998: AND line_type_lookup_code IN ('ITEM', 'ACCRUAL');
2999:
3000: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3001: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3002: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3003:
3004: l_rows NUMBER;

Line 3001: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2997: AND invoice_line_number = p_lines_rec.line_number
2998: AND line_type_lookup_code IN ('ITEM', 'ACCRUAL');
2999:
3000: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3001: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3002: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3003:
3004: l_rows NUMBER;
3005: l_po_exchange_rate NUMBER;

Line 3002: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2998: AND line_type_lookup_code IN ('ITEM', 'ACCRUAL');
2999:
3000: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3001: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3002: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3003:
3004: l_rows NUMBER;
3005: l_po_exchange_rate NUMBER;
3006: l_rcv_exchange_rate NUMBER;

Line 3021: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;

3017:
3018: BEGIN
3019: --
3020: current_calling_sequence :=
3021: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;
3022:
3023: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3024: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');
3025: END IF;

Line 3024: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');

3020: current_calling_sequence :=
3021: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;
3022:
3023: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3024: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');
3025: END IF;
3026: --
3027: ---------------------------------------------------------------------------
3028: debug_info := 'Create_Po_Price_Adjustments Step 1. Compute Po Price Adj '

Line 3220: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(-)');

3216: l_ppa_invoice_dists_list.DELETE;
3217: l_item_dists_list.DELETE;
3218:
3219: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3220: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(-)');
3221: END IF;
3222: --
3223: RETURN(TRUE);
3224: --

Line 3281: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,

3277: |
3278: *============================================================================*/
3279: FUNCTION Process_Retroprice_Adjustments(
3280: p_base_currency_code IN VARCHAR2,
3281: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3282: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3283: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3284: p_batch_id IN NUMBER,
3285: p_calling_sequence IN VARCHAR2)

Line 3283: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,

3279: FUNCTION Process_Retroprice_Adjustments(
3280: p_base_currency_code IN VARCHAR2,
3281: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3282: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3283: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3284: p_batch_id IN NUMBER,
3285: p_calling_sequence IN VARCHAR2)
3286: RETURN BOOLEAN IS
3287:

Line 3288: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3284: p_batch_id IN NUMBER,
3285: p_calling_sequence IN VARCHAR2)
3286: RETURN BOOLEAN IS
3287:
3288: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

Line 3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3285: p_calling_sequence IN VARCHAR2)
3286: RETURN BOOLEAN IS
3287:
3288: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

Line 3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3286: RETURN BOOLEAN IS
3287:
3288: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3294:

Line 3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3287:
3288: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3294:
3295: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

Line 3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3288: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3294:
3295: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3296: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;

Line 3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3289: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3290: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3294:
3295: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3296: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;
3297:

Line 3295: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3291: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3294:
3295: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3296: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;
3297:
3298: l_prev_invoice_id NUMBER(15);
3299: l_existing_ppa_inv_id NUMBER(15);

Line 3296: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;

3292: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3293: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3294:
3295: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3296: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;
3297:
3298: l_prev_invoice_id NUMBER(15);
3299: l_existing_ppa_inv_id NUMBER(15);
3300: l_ppa_exists VARCHAR2(1);

Line 3316: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'

3312:
3313: BEGIN
3314: --
3315: current_calling_sequence :=
3316: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'
3317: ||P_calling_sequence;
3318:
3319: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');

Line 3320: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');

3316: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'
3317: ||P_calling_sequence;
3318:
3319: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3320: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');
3321: END IF;
3322:
3323: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3324:

Line 3996: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(-)');

3992: l_qc_lines_list.DELETE;
3993: l_tax_lines_list.DELETE;
3994:
3995: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3996: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(-)');
3997: END IF;
3998: --
3999: RETURN(TRUE);
4000: --

Line 4055: 'AP_RETRO_PRICING_PKG.Insert_Zero_Amt_Adjustments<-'

4051:
4052: BEGIN
4053: --
4054: current_calling_sequence :=
4055: 'AP_RETRO_PRICING_PKG.Insert_Zero_Amt_Adjustments<-'
4056: ||P_calling_sequence;
4057:
4058: ---------------------------------------------------------------------------
4059: debug_info := 'Insert_Zero_Amt_Adjustments Step 1. Insert into '

Line 5008: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'

5004:
5005: BEGIN
5006: --
5007: current_calling_sequence :=
5008: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'
5009: ||P_calling_sequence;
5010:
5011: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');

Line 5012: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');

5008: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'
5009: ||P_calling_sequence;
5010:
5011: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5012: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');
5013: END IF;
5014: --
5015: ---------------------------------------------------------------------------
5016: debug_info := 'Validate_Temp_Ppa_Invoices Step 1. Open Invoice_Header';

Line 5170: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(-)');

5166: l_invoice_header_list.DELETE;
5167: l_invoice_lines_list.DELETE;
5168:
5169: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5170: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(-)');
5171: END IF;
5172:
5173: RETURN(TRUE);
5174: --

Line 5289: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'

5285:
5286: BEGIN
5287: --
5288: current_calling_sequence :=
5289: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'
5290: ||P_calling_sequence;
5291:
5292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5293: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');

Line 5293: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');

5289: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'
5290: ||P_calling_sequence;
5291:
5292: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5293: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');
5294: END IF;
5295: --
5296: i := 1;
5297: l_ppa_invoices_count := 0;

Line 6227: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(-)');

6223: p_ppa_invoices_count := l_ppa_invoices_count;
6224: p_ppa_invoices_total := l_ppa_invoices_total;
6225:
6226: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6227: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(-)');
6228: END IF;
6229: --
6230: RETURN(TRUE);
6231: --

Line 6342: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;

6338: created_by
6339: FROM ap_invoice_lines_interface
6340: WHERE invoice_id = p_instruction_rec.invoice_id;
6341:
6342: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;
6343: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6344: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;
6345: l_batch_id NUMBER;
6346: l_invoices_count NUMBER;

Line 6343: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

6339: FROM ap_invoice_lines_interface
6340: WHERE invoice_id = p_instruction_rec.invoice_id;
6341:
6342: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;
6343: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6344: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;
6345: l_batch_id NUMBER;
6346: l_invoices_count NUMBER;
6347: l_invoices_total NUMBER;

Line 6344: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;

6340: WHERE invoice_id = p_instruction_rec.invoice_id;
6341:
6342: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;
6343: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6344: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;
6345: l_batch_id NUMBER;
6346: l_invoices_count NUMBER;
6347: l_invoices_total NUMBER;
6348: l_invoices_base_amt_total NUMBER;

Line 6374: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type; -- Bug 5525506

6370: l_uom_code ap_invoice_distributions_all.matched_uom_lookup_code%TYPE;
6371: l_last_update_login NUMBER;
6372: l_request_id NUMBER;
6373: l_api_name CONSTANT VARCHAR2(200) := 'Import_Retroprice_Adjustments';
6374: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type; -- Bug 5525506
6375: l_ppa_exists VARCHAR2(1);
6376: l_seq_num_profile VARCHAR2(1);
6377: l_existing_ppa_inv_id NUMBER;
6378:

Line 6417: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;

6413: --
6414: BEGIN
6415: --
6416: current_calling_sequence :=
6417: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;
6418:
6419: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');
6421: END IF;

Line 6420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');

6416: current_calling_sequence :=
6417: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;
6418:
6419: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6420: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');
6421: END IF;
6422: ---------------------------------------------------------------------------
6423: -- Step 1.Check if the base matched Invoices affected by retropricing are
6424: -- Valid. Also all the Price Corrections and Quantity corrections on the

Line 6630: IF (AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(

6626: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
6627: END IF;
6628: --
6629:
6630: IF (AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(
6631: p_base_currency_code,
6632: l_base_match_lines_list,
6633: p_instruction_rec,
6634: l_instruction_lines_list(i),

Line 6997: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(-)');

6993:
6994: END IF;
6995:
6996: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6997: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(-)');
6998: END IF;
6999: --
7000: RETURN (TRUE);
7001: --

Line 7030: END AP_RETRO_PRICING_PKG;

7026:
7027: END Import_Retroprice_Adjustments;
7028:
7029:
7030: END AP_RETRO_PRICING_PKG;