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.44.12020000.10 2013/03/11 14:14:19 harsanan 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.44.12020000.10 2013/03/11 14:14:19 harsanan 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;

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

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

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

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

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

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

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

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

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

437: l_release_num_list.DELETE;
438: l_po_shipment_num_list.DELETE;
439:
440: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
441: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.INSERT_AP_INV_LINES_INTERFACE(-)');
442: END IF;
443:
444:
445: EXCEPTION

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

560: --
561: current_calling_sequence := 'CADIP<-'||P_calling_sequence ;
562:
563: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
564: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(+)');
565: END IF;
566:
567: -----------------------------------------------------------------
568: debug_info := 'Step 1. Generate a Group Id(Invoice Gateway Batch';

Line 641: AP_RETRO_PRICING_PKG.insert_ap_inv_interface (

637: debug_info := 'Step 2b. Populate AP_INVOICES_INTERFACE';
638: -----------------------------------------------------------------
639: IF p_resubmit_flag <> 'Y' THEN
640:
641: AP_RETRO_PRICING_PKG.insert_ap_inv_interface (
642: l_group_id,
643: l_org_id,
644: p_po_user_id,
645: p_vendor_id,

Line 657: AP_RETRO_PRICING_PKG.insert_ap_inv_lines_interface(

653: debug_info := 'Step 2c. Populate AP_INVOICE_LINES_INTERFACE';
654: ----------------------------------------------------------------
655: IF p_resubmit_flag <> 'Y' THEN
656:
657: AP_RETRO_PRICING_PKG.insert_ap_inv_lines_interface(
658: l_group_id,
659: l_org_id,
660: p_po_user_id,
661: p_vendor_id, -- IN

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

720: END IF;
721: --
722:
723: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
724: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.CREATE_INSTRUCTIONS(-)');
725: END IF;
726:
727: RETURN(TRUE);
728: --

Line 811: p_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

807: |
808: *==============================================================================*/
809: FUNCTION Reverse_Existing_Ppa_Dists(
810: p_instruction_id IN NUMBER,
811: p_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
812: p_existing_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
813: P_calling_sequence IN VARCHAR2)
814: RETURN BOOLEAN IS
815:

Line 812: p_existing_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

808: *==============================================================================*/
809: FUNCTION Reverse_Existing_Ppa_Dists(
810: p_instruction_id IN NUMBER,
811: p_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
812: p_existing_ppa_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
813: P_calling_sequence IN VARCHAR2)
814: RETURN BOOLEAN IS
815:
816: CURSOR Existing_ppa_invoice_dists IS

Line 934: l_existing_ppa_dist_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

930: AND invoice_line_number = p_existing_ppa_lines_rec.line_number
931: AND NVL(cancellation_flag, 'N' ) <> 'Y'
932: AND NVL(reversal_flag, 'N' ) <> 'Y';
933:
934: l_existing_ppa_dist_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
935: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
936:
937: current_calling_sequence VARCHAR2(1000);
938: debug_info VARCHAR2(1000);

Line 935: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

931: AND NVL(cancellation_flag, 'N' ) <> 'Y'
932: AND NVL(reversal_flag, 'N' ) <> 'Y';
933:
934: l_existing_ppa_dist_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
935: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
936:
937: current_calling_sequence VARCHAR2(1000);
938: debug_info VARCHAR2(1000);
939: l_api_name CONSTANT VARCHAR2(200) := 'Reverse_Existing_Ppa_Dists';

Line 944: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'

940:
941:
942: BEGIN
943:
944: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'
945: ||P_Calling_Sequence;
946:
947: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
948: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');

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

944: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists'
945: ||P_Calling_Sequence;
946:
947: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
948: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(+)');
949: END IF;
950:
951: ---------------------------------------------------------------------------
952: debug_info := 'Reverse_Existing_Ppa_Dists Step 1. Open cursor '

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

1045: l_existing_ppa_dist_list.DELETE;
1046: l_ppa_invoice_dists_list.DELETE;
1047:
1048: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1049: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa_Dists(-)');
1050: END IF;
1051: --
1052: RETURN(TRUE);
1053: --

Line 1107: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

1103: |
1104: *============================================================================*/
1105: FUNCTION Reverse_Existing_Ppa(
1106: p_instruction_id IN NUMBER,
1107: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1108: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
1109: p_existing_ppa_inv_id IN NUMBER,
1110: P_calling_sequence IN VARCHAR2)
1111: RETURN BOOLEAN IS

Line 1108: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,

1104: *============================================================================*/
1105: FUNCTION Reverse_Existing_Ppa(
1106: p_instruction_id IN NUMBER,
1107: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1108: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
1109: p_existing_ppa_inv_id IN NUMBER,
1110: P_calling_sequence IN VARCHAR2)
1111: RETURN BOOLEAN IS
1112: CURSOR existing_ppa_lines IS

Line 1279: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1275: AND line_type_lookup_code = 'RETROITEM'
1276: AND discarded_flag <> 'Y'
1277: AND cancelled_flag <> 'Y';
1278:
1279: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1280: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1281: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
1282: Ppa_Line_Reversal_failure EXCEPTION;
1283: current_calling_sequence VARCHAR2(1000);

Line 1280: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1276: AND discarded_flag <> 'Y'
1277: AND cancelled_flag <> 'Y';
1278:
1279: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1280: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1281: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
1282: Ppa_Line_Reversal_failure EXCEPTION;
1283: current_calling_sequence VARCHAR2(1000);
1284: debug_info VARCHAR2(1000);

Line 1281: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

1277: AND cancelled_flag <> 'Y';
1278:
1279: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1280: l_existing_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1281: l_existing_ppa_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
1282: Ppa_Line_Reversal_failure EXCEPTION;
1283: current_calling_sequence VARCHAR2(1000);
1284: debug_info VARCHAR2(1000);
1285:

Line 1288: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa'

1284: debug_info VARCHAR2(1000);
1285:
1286: BEGIN
1287: --
1288: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Existing_Ppa'
1289: ||P_Calling_Sequence;
1290: ---------------------------------------------------------------------------
1291: debug_info := 'Reverse_Existing_Ppa Step 1. Open Existing PPA Lines';
1292: ---------------------------------------------------------------------------

Line 1464: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1460: FUNCTION Create_Zero_Amt_Adj_Line(
1461: p_instruction_id IN NUMBER,
1462: p_created_by IN NUMBER,
1463: p_correcting IN VARCHAR2,
1464: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1465: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1466: P_calling_sequence IN VARCHAR2)
1467: RETURN BOOLEAN IS
1468:

Line 1465: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1461: p_instruction_id IN NUMBER,
1462: p_created_by IN NUMBER,
1463: p_correcting IN VARCHAR2,
1464: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1465: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1466: P_calling_sequence IN VARCHAR2)
1467: RETURN BOOLEAN IS
1468:
1469: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

Line 1469: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1465: p_adj_lines_rec OUT NOCOPY AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1466: P_calling_sequence IN VARCHAR2)
1467: RETURN BOOLEAN IS
1468:
1469: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1470: current_calling_sequence VARCHAR2(1000);
1471: debug_info VARCHAR2(1000);
1472: Zero_Amt_Adj_Line_Failure EXCEPTION;
1473:

Line 1476: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Create_Zero_Amt_Adj_Line'

1472: Zero_Amt_Adj_Line_Failure EXCEPTION;
1473:
1474: BEGIN
1475: --
1476: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Create_Zero_Amt_Adj_Line'
1477: ||P_Calling_Sequence;
1478: ---------------------------------------------------------------------------
1479: debug_info := 'Create_Zero_Amt_Adj_Line Step 1. Zero Amt Adj Line';
1480: ---------------------------------------------------------------------------

Line 1598: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

1594: | 29-JUL-2003 dgulraja Creation
1595: |
1596: *==========================================================================*/
1597: FUNCTION Create_Adjustment_Corrections(
1598: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1599: p_base_currency_code IN VARCHAR2,
1600: p_adj_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1601: P_calling_sequence IN VARCHAR2)
1602: RETURN BOOLEAN IS

Line 1600: p_adj_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1596: *==========================================================================*/
1597: FUNCTION Create_Adjustment_Corrections(
1598: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1599: p_base_currency_code IN VARCHAR2,
1600: p_adj_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1601: P_calling_sequence IN VARCHAR2)
1602: RETURN BOOLEAN IS
1603:
1604:

Line 1730: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

1726: where gt2.dist_match_type='ADJUSTMENT_CORRECTION')
1727: ORDER BY invoice_distribution_id;
1728:
1729:
1730: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1731: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1732: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1733:
1734: i INTEGER;

Line 1731: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

1727: ORDER BY invoice_distribution_id;
1728:
1729:
1730: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1731: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1732: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1733:
1734: i INTEGER;
1735: l_dist_total NUMBER;

Line 1732: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

1728:
1729:
1730: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
1731: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1732: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
1733:
1734: i INTEGER;
1735: l_dist_total NUMBER;
1736: l_line_amount NUMBER := 0; --bug#9573078

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

1742:
1743: BEGIN
1744: --
1745: current_calling_sequence :=
1746: 'AP_RETRO_PRICING_PKG.Create_Adjustment_Corrections'||P_Calling_Sequence;
1747: --
1748: ---------------------------------------------------------------------------
1749: debug_info := 'Create_Adjustment_Corrections Step 1. Compute Adj Corr Line ';
1750: ---------------------------------------------------------------------------

Line 1918: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

1914: | 29-JUL-2003 dgulraja Creation
1915: |
1916: *============================================================================*/
1917: FUNCTION Reverse_Redistribute_IPV(
1918: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1919: p_base_currency_code IN VARCHAR2,
1920: p_instruction_id IN NUMBER,
1921: p_created_by IN NUMBER,
1922: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

Line 1922: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

1918: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
1919: p_base_currency_code IN VARCHAR2,
1920: p_instruction_id IN NUMBER,
1921: p_created_by IN NUMBER,
1922: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
1923: p_erv_dists_exist OUT NOCOPY VARCHAR2,
1924: P_calling_sequence IN VARCHAR2)
1925: RETURN BOOLEAN IS
1926:

Line 2058: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

2054: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2055: -- Corr is done once. However the PO price adjustment will be done
2056: -- w.r.t modified PO unit price.
2057:
2058: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2059: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2060: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2061: l_ipv_dists_exist VARCHAR2(1);
2062:

Line 2059: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2055: -- Corr is done once. However the PO price adjustment will be done
2056: -- w.r.t modified PO unit price.
2057:
2058: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2059: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2060: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2061: l_ipv_dists_exist VARCHAR2(1);
2062:
2063: l_rows NUMBER;

Line 2060: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2056: -- w.r.t modified PO unit price.
2057:
2058: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2059: l_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2060: l_ipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2061: l_ipv_dists_exist VARCHAR2(1);
2062:
2063: l_rows NUMBER;
2064: l_po_exchange_rate NUMBER;

Line 2074: l_adj_dists_list1 AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2070: current_calling_sequence VARCHAR2(1000);
2071: debug_info VARCHAR2(1000);
2072: Reverse_Redist_IPV_FAILURE EXCEPTION;
2073: --Bug#10416960
2074: l_adj_dists_list1 AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2075: j INTEGER;
2076:
2077: BEGIN
2078:

Line 2079: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_IPV'

2075: j INTEGER;
2076:
2077: BEGIN
2078:
2079: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_IPV'
2080: ||P_Calling_Sequence;
2081: ---------------------------------------------------------------------------
2082: debug_info := 'Reverse_Redistribute_IPV Step 1. Compute Zero Amt Adj Line';
2083: ---------------------------------------------------------------------------

Line 2473: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

2469: | 29-JUL-2003 dgulraja Creation
2470: |
2471: *============================================================================*/
2472: FUNCTION Reverse_Redistribute_TIPV(
2473: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
2474: p_base_currency_code IN VARCHAR2,
2475: p_instruction_id IN NUMBER,
2476: p_created_by IN NUMBER,
2477: p_original_exchange_rate IN NUMBER,

Line 2478: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

2474: p_base_currency_code IN VARCHAR2,
2475: p_instruction_id IN NUMBER,
2476: p_created_by IN NUMBER,
2477: p_original_exchange_rate IN NUMBER,
2478: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2479: p_tax_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2480: P_calling_sequence IN VARCHAR2)
2481: RETURN BOOLEAN IS
2482:

Line 2479: p_tax_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

2475: p_instruction_id IN NUMBER,
2476: p_created_by IN NUMBER,
2477: p_original_exchange_rate IN NUMBER,
2478: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2479: p_tax_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
2480: P_calling_sequence IN VARCHAR2)
2481: RETURN BOOLEAN IS
2482:
2483: CURSOR tipv_dists(

Line 2619: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

2615: --Bug5485084 replaced p_tax_lines_rec with p_lines_rec
2616: AND invoice_line_number = p_lines_rec.line_number);
2617: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2618: -- Corr is done once.
2619: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2620: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2621: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2622: l_terv_ccid AP_INVOICE_DISTRIBUTIONS_ALL.dist_code_combination_id%TYPE;
2623: l_terv_dists_exist VARCHAR2(1);

Line 2620: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2616: AND invoice_line_number = p_lines_rec.line_number);
2617: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2618: -- Corr is done once.
2619: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2620: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2621: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2622: l_terv_ccid AP_INVOICE_DISTRIBUTIONS_ALL.dist_code_combination_id%TYPE;
2623: l_terv_dists_exist VARCHAR2(1);
2624: l_rows NUMBER;

Line 2621: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2617: -- Distribution should not have been Adjusted by prior PPA's. Adjustment
2618: -- Corr is done once.
2619: l_tipv_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
2620: l_tipv_adj_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2621: l_tipv_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2622: l_terv_ccid AP_INVOICE_DISTRIBUTIONS_ALL.dist_code_combination_id%TYPE;
2623: l_terv_dists_exist VARCHAR2(1);
2624: l_rows NUMBER;
2625: l_po_exchange_rate NUMBER;

Line 2634: l_tipv_adj_dists_list1 AP_RETRO_PRICING_PKG.invoice_dists_list_type;

2630: current_calling_sequence VARCHAR2(1000);
2631: debug_info VARCHAR2(1000);
2632: Tipv_Adjustment_Corr_Failure EXCEPTION;
2633: --Bug#10416960
2634: l_tipv_adj_dists_list1 AP_RETRO_PRICING_PKG.invoice_dists_list_type;
2635: j INTEGER;
2636:
2637: BEGIN
2638: --

Line 2639: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_TIPV'

2635: j INTEGER;
2636:
2637: BEGIN
2638: --
2639: current_calling_sequence := 'AP_RETRO_PRICING_PKG.Reverse_Redistribute_TIPV'
2640: ||P_Calling_Sequence;
2641: ---------------------------------------------------------------------------
2642: debug_info := 'Reverse_Redistribute_TIPV Step 1. Compute Zero Amt TAX '
2643: ||'Adj Line ';

Line 3013: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

3009: | 29-JUL-2003 dgulraja Creation
3010: |
3011: *============================================================================*/
3012: FUNCTION Process_TIPV_Reversal(
3013: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
3014: p_base_currency_code IN VARCHAR2,
3015: p_instruction_id IN NUMBER,
3016: p_created_by IN NUMBER,
3017: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

Line 3017: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

3013: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
3014: p_base_currency_code IN VARCHAR2,
3015: p_instruction_id IN NUMBER,
3016: p_created_by IN NUMBER,
3017: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
3018: p_tax_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3019: P_calling_sequence IN VARCHAR2)
3020: RETURN BOOLEAN IS
3021:

Line 3018: p_tax_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,

3014: p_base_currency_code IN VARCHAR2,
3015: p_instruction_id IN NUMBER,
3016: p_created_by IN NUMBER,
3017: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
3018: p_tax_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3019: P_calling_sequence IN VARCHAR2)
3020: RETURN BOOLEAN IS
3021:
3022:

Line 3023: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3019: P_calling_sequence IN VARCHAR2)
3020: RETURN BOOLEAN IS
3021:
3022:
3023: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3024: --l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3025: l_original_exchange_rate NUMBER;
3026: current_calling_sequence VARCHAR2(1000);
3027: debug_info VARCHAR2(1000);

Line 3024: --l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3020: RETURN BOOLEAN IS
3021:
3022:
3023: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3024: --l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3025: l_original_exchange_rate NUMBER;
3026: current_calling_sequence VARCHAR2(1000);
3027: debug_info VARCHAR2(1000);
3028:

Line 3034: 'AP_RETRO_PRICING_PKG.Process_TIPV_Reversal<-'

3030:
3031: BEGIN
3032: --
3033: current_calling_sequence :=
3034: 'AP_RETRO_PRICING_PKG.Process_TIPV_Reversal<-'
3035: ||P_calling_sequence;
3036:
3037: ---------------------------------------------------------------------------
3038: debug_info := 'Process_TIPV_Reversal Step 1. Get Exchange rate for the '

Line 3125: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,

3121: *==========================================================================*/
3122: FUNCTION Create_Po_Price_Adjustments(
3123: p_base_currency_code IN VARCHAR2,
3124: p_instruction_id IN NUMBER,
3125: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
3126: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3127: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
3128: P_calling_sequence IN VARCHAR2)
3129: RETURN BOOLEAN IS

Line 3126: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,

3122: FUNCTION Create_Po_Price_Adjustments(
3123: p_base_currency_code IN VARCHAR2,
3124: p_instruction_id IN NUMBER,
3125: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
3126: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3127: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
3128: P_calling_sequence IN VARCHAR2)
3129: RETURN BOOLEAN IS
3130:

Line 3127: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,

3123: p_base_currency_code IN VARCHAR2,
3124: p_instruction_id IN NUMBER,
3125: p_ppa_invoice_rec IN AP_RETRO_PRICING_PKG.invoice_rec_type,
3126: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3127: p_lines_rec IN AP_RETRO_PRICING_PKG.invoice_lines_rec_type,
3128: P_calling_sequence IN VARCHAR2)
3129: RETURN BOOLEAN IS
3130:
3131:

Line 3249: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3245: WHERE invoice_id = p_lines_rec.invoice_id
3246: AND invoice_line_number = p_lines_rec.line_number
3247: AND line_type_lookup_code IN ('ITEM', 'ACCRUAL');
3248:
3249: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3250: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3251: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3252:
3253: l_rows NUMBER;

Line 3250: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

3246: AND invoice_line_number = p_lines_rec.line_number
3247: AND line_type_lookup_code IN ('ITEM', 'ACCRUAL');
3248:
3249: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3250: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3251: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3252:
3253: l_rows NUMBER;
3254: l_po_exchange_rate NUMBER;

Line 3251: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;

3247: AND line_type_lookup_code IN ('ITEM', 'ACCRUAL');
3248:
3249: l_ppa_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3250: l_ppa_invoice_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3251: l_item_dists_list AP_RETRO_PRICING_PKG.invoice_dists_list_type;
3252:
3253: l_rows NUMBER;
3254: l_po_exchange_rate NUMBER;
3255: l_rcv_exchange_rate NUMBER;

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

3266:
3267: BEGIN
3268: --
3269: current_calling_sequence :=
3270: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;
3271:
3272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');
3274: END IF;

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

3269: current_calling_sequence :=
3270: 'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments'||P_Calling_Sequence;
3271:
3272: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3273: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(+)');
3274: END IF;
3275: --
3276: ---------------------------------------------------------------------------
3277: debug_info := 'Create_Po_Price_Adjustments Step 1. Compute Po Price Adj '

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

3466: l_ppa_invoice_dists_list.DELETE;
3467: l_item_dists_list.DELETE;
3468:
3469: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3470: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Create_Po_Price_Adjustments(-)');
3471: END IF;
3472: --
3473: RETURN(TRUE);
3474: --

Line 3531: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,

3527: |
3528: *============================================================================*/
3529: FUNCTION Process_Retroprice_Adjustments(
3530: p_base_currency_code IN VARCHAR2,
3531: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3532: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3533: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3534: p_batch_id IN NUMBER,
3535: p_calling_sequence IN VARCHAR2)

Line 3533: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,

3529: FUNCTION Process_Retroprice_Adjustments(
3530: p_base_currency_code IN VARCHAR2,
3531: p_base_match_lines_list IN AP_RETRO_PRICING_PKG.invoice_lines_list_type,
3532: p_instruction_rec IN AP_IMPORT_INVOICES_PKG.r_invoice_info_rec,
3533: p_instruction_lines_rec IN AP_RETRO_PRICING_PKG.instruction_lines_rec_type,
3534: p_batch_id IN NUMBER,
3535: p_calling_sequence IN VARCHAR2)
3536: RETURN BOOLEAN IS
3537:

Line 3538: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3534: p_batch_id IN NUMBER,
3535: p_calling_sequence IN VARCHAR2)
3536: RETURN BOOLEAN IS
3537:
3538: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

Line 3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3535: p_calling_sequence IN VARCHAR2)
3536: RETURN BOOLEAN IS
3537:
3538: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

Line 3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3536: RETURN BOOLEAN IS
3537:
3538: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3544:

Line 3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3537:
3538: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3544:
3545: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

Line 3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3538: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3544:
3545: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3546: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;

Line 3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

3539: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3540: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3544:
3545: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3546: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;
3547:

Line 3545: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

3541: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3544:
3545: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3546: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;
3547:
3548: l_prev_invoice_id NUMBER(15);
3549: l_existing_ppa_inv_id NUMBER(15);

Line 3546: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;

3542: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3543: l_adj_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
3544:
3545: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
3546: l_ppa_invoice_rec AP_RETRO_PRICING_PKG.invoice_rec_type;
3547:
3548: l_prev_invoice_id NUMBER(15);
3549: l_existing_ppa_inv_id NUMBER(15);
3550: l_ppa_exists VARCHAR2(1);

Line 3566: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'

3562:
3563: BEGIN
3564: --
3565: current_calling_sequence :=
3566: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'
3567: ||P_calling_sequence;
3568:
3569: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3570: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');

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

3566: 'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments<-'
3567: ||P_calling_sequence;
3568:
3569: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3570: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(+)');
3571: END IF;
3572:
3573: debug_info := 'Inside the procedure Process_Retroprice Adjustments';
3574:

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

4246: l_qc_lines_list.DELETE;
4247: l_tax_lines_list.DELETE;
4248:
4249: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
4250: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(-)');
4251: END IF;
4252: --
4253: RETURN(TRUE);
4254: --

Line 4314: 'AP_RETRO_PRICING_PKG.Insert_Zero_Amt_Adjustments<-'

4310:
4311: BEGIN
4312: --
4313: current_calling_sequence :=
4314: 'AP_RETRO_PRICING_PKG.Insert_Zero_Amt_Adjustments<-'
4315: ||P_calling_sequence;
4316:
4317: ---------------------------------------------------------------------------
4318: debug_info := 'Insert_Zero_Amt_Adjustments Step 1. Insert into '

Line 5345: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'

5341:
5342: BEGIN
5343: --
5344: current_calling_sequence :=
5345: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'
5346: ||P_calling_sequence;
5347:
5348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');

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

5345: 'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices<-'
5346: ||P_calling_sequence;
5347:
5348: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5349: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(+)');
5350: END IF;
5351: --
5352: ---------------------------------------------------------------------------
5353: debug_info := 'Validate_Temp_Ppa_Invoices Step 1. Open Invoice_Header';

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

5520: l_invoice_header_list.DELETE;
5521: l_invoice_lines_list.DELETE;
5522:
5523: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5524: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Validate_Temp_Ppa_Invoices(-)');
5525: END IF;
5526:
5527: RETURN(TRUE);
5528: --

Line 5653: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'

5649:
5650: BEGIN
5651: --
5652: current_calling_sequence :=
5653: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'
5654: ||P_calling_sequence;
5655:
5656: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5657: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');

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

5653: 'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices<-'
5654: ||P_calling_sequence;
5655:
5656: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
5657: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(+)');
5658: END IF;
5659: --
5660: i := 1;
5661: l_ppa_invoices_count := 0;

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

6694: p_ppa_invoices_count := l_ppa_invoices_count;
6695: p_ppa_invoices_total := l_ppa_invoices_total;
6696:
6697: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6698: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Insert_Ppa_Invoices(-)');
6699: END IF;
6700: --
6701: RETURN(TRUE);
6702: --

Line 6813: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;

6809: created_by
6810: FROM ap_invoice_lines_interface
6811: WHERE invoice_id = p_instruction_rec.invoice_id;
6812:
6813: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;
6814: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6815: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;
6816: l_batch_id NUMBER;
6817: l_invoices_count NUMBER;

Line 6814: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

6810: FROM ap_invoice_lines_interface
6811: WHERE invoice_id = p_instruction_rec.invoice_id;
6812:
6813: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;
6814: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6815: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;
6816: l_batch_id NUMBER;
6817: l_invoices_count NUMBER;
6818: l_invoices_total NUMBER;

Line 6815: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;

6811: WHERE invoice_id = p_instruction_rec.invoice_id;
6812:
6813: l_invoice_id_list AP_RETRO_PRICING_PKG.id_list_type;
6814: l_base_match_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6815: l_instruction_lines_list AP_RETRO_PRICING_PKG.instruction_lines_list_type;
6816: l_batch_id NUMBER;
6817: l_invoices_count NUMBER;
6818: l_invoices_total NUMBER;
6819: l_invoices_base_amt_total NUMBER;

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

6841: l_uom_code ap_invoice_distributions_all.matched_uom_lookup_code%TYPE;
6842: l_last_update_login NUMBER;
6843: l_request_id NUMBER;
6844: l_api_name CONSTANT VARCHAR2(200) := 'Import_Retroprice_Adjustments';
6845: l_base_match_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type; -- Bug 5525506
6846: l_ppa_exists VARCHAR2(1);
6847: l_seq_num_profile VARCHAR2(1);
6848: l_existing_ppa_inv_id NUMBER;
6849:

Line 6851: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

6847: l_seq_num_profile VARCHAR2(1);
6848: l_existing_ppa_inv_id NUMBER;
6849:
6850: --Introduced below variables for bug#9573078
6851: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6852: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6853: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6854: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6855: l_pc_exists VARCHAR2(1);

Line 6852: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

6848: l_existing_ppa_inv_id NUMBER;
6849:
6850: --Introduced below variables for bug#9573078
6851: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6852: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6853: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6854: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6855: l_pc_exists VARCHAR2(1);
6856: l_qc_exists VARCHAR2(1);

Line 6853: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

6849:
6850: --Introduced below variables for bug#9573078
6851: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6852: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6853: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6854: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6855: l_pc_exists VARCHAR2(1);
6856: l_qc_exists VARCHAR2(1);
6857: --Bug#10416960

Line 6854: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

6850: --Introduced below variables for bug#9573078
6851: l_pc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6852: l_pc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6853: l_qc_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6854: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6855: l_pc_exists VARCHAR2(1);
6856: l_qc_exists VARCHAR2(1);
6857: --Bug#10416960
6858: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

Line 6858: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;

6854: l_qc_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6855: l_pc_exists VARCHAR2(1);
6856: l_qc_exists VARCHAR2(1);
6857: --Bug#10416960
6858: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6859: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6860: l_tipv_exists VARCHAR2(1);
6861:
6862:

Line 6859: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;

6855: l_pc_exists VARCHAR2(1);
6856: l_qc_exists VARCHAR2(1);
6857: --Bug#10416960
6858: l_tax_lines_list AP_RETRO_PRICING_PKG.invoice_lines_list_type;
6859: l_tax_lines_rec AP_RETRO_PRICING_PKG.invoice_lines_rec_type;
6860: l_tipv_exists VARCHAR2(1);
6861:
6862:
6863:

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

6904:
6905: BEGIN
6906: --
6907: current_calling_sequence :=
6908: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;
6909:
6910: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6911: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');
6912: END IF;

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

6907: current_calling_sequence :=
6908: 'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments<-'||P_calling_sequence;
6909:
6910: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
6911: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(+)');
6912: END IF;
6913: ---------------------------------------------------------------------------
6914: -- Step 1.Check if the base matched Invoices affected by retropricing are
6915: -- Valid. Also all the Price Corrections and Quantity corrections on the

Line 7121: IF (AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(

7117: AP_IMPORT_INVOICES_PKG.g_debug_switch,debug_info);
7118: END IF;
7119: --
7120:
7121: IF (AP_RETRO_PRICING_PKG.Process_Retroprice_Adjustments(
7122: p_base_currency_code,
7123: l_base_match_lines_list,
7124: p_instruction_rec,
7125: l_instruction_lines_list(i),

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

7870:
7871: END IF;
7872:
7873: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
7874: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RETRO_PRICING_PKG.Import_Retroprice_Adjustments(-)');
7875: END IF;
7876: --
7877: RETURN (TRUE);
7878: --

Line 7918: END AP_RETRO_PRICING_PKG;

7914:
7915: END Import_Retroprice_Adjustments;
7916:
7917:
7918: END AP_RETRO_PRICING_PKG;