[Home] [Help]
1: PACKAGE BODY AP_RECT_MATCH_PKG AS
2: /*$Header: aprcvmtb.pls 120.61.12010000.3 2008/10/21 23:31:06 jaanders ship $*/
3:
4: --LOCAL PROCEDURES
5: PROCEDURE Get_Info(X_Invoice_ID IN NUMBER,
137: X_Calling_Sequence IN VARCHAR2);
138:
139:
140: --Global Variable Declaration
141: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AP_RECT_MATCH_PKG';
142: G_MSG_UERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR;
143: G_MSG_ERROR CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_ERROR;
144: G_MSG_SUCCESS CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_SUCCESS;
145: G_MSG_HIGH CONSTANT NUMBER := FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH;
153: G_LEVEL_EXCEPTION CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
154: G_LEVEL_EVENT CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
155: G_LEVEL_PROCEDURE CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
156: G_LEVEL_STATEMENT CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
157: G_MODULE_NAME CONSTANT VARCHAR2(100) := 'AP.PLSQL.AP_RECT_MATCH_PKG.';
158:
159:
160: G_max_invoice_line_number ap_invoice_lines.line_number%TYPE := 0 ;
161: G_batch_id ap_batches.batch_id%TYPE;
281:
282: l_api_name := 'Base_Credit_RCV_Match';
283:
284: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
285: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Base_Credit_Rcv_Match(+)');
286: END IF;
287:
288: -- Update the calling sequence (for error message).
289: current_calling_sequence := 'AP_MATCHING_PKG.base_credit_rcv_match<-'||X_calling_sequence;
743: BEGIN
744:
745: l_api_name := 'Get_Info';
746: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
747: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Get_Info(+)');
748: END IF;
749: current_calling_sequence := 'Get_Info<-'||Current_Calling_Sequence;
750:
751: SELECT ai.gl_date,
1051:
1052: BEGIN
1053: l_api_name := 'Get_Dist_Proration_Info';
1054: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1055: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Get_Dist_Proration_Info(+)');
1056: END IF;
1057:
1058:
1059: current_calling_sequence := 'Get_Dist_Proration_Info<-'||x_calling_sequence;
1643: BEGIN
1644:
1645: l_api_name := 'Get_Total_Proration_Quantity';
1646: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1647: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Get_Total_Proration_Quantity(+)');
1648: END IF;
1649:
1650: current_calling_sequence := 'Get_Total_Proration_Quantity<-'||current_calling_sequence;
1651: l_debug_info := 'Get total quantity for proration';
2962:
2963: current_calling_sequence := 'Update_Po_Shipments_Dists<-'||x_calling_sequence;
2964:
2965: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
2966: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Update_PO_Distributions(+)');
2967: END IF;
2968:
2969: l_debug_info := 'Create l_po_ap_dist_rec object';
2970: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3066: X_Msg_Data => l_msg_data);
3067:
3068:
3069: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3070: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Update_PO_Shipments_Dists(-)');
3071: END IF;
3072:
3073:
3074:
4751:
4752: END Insert_Corr_Invoice_Dists;
4753:
4754:
4755: END AP_RECT_MATCH_PKG;