[Home] [Help]
1: PACKAGE BODY AP_RECT_MATCH_PKG AS
2: /*$Header: aprcvmtb.pls 120.80.12020000.7 2013/03/20 09:33:24 harsanan 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;
293:
294: l_api_name := 'Base_Credit_RCV_Match';
295:
296: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
297: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Base_Credit_Rcv_Match(+)');
298: END IF;
299:
300: -- Update the calling sequence (for error message).
301: current_calling_sequence := 'AP_MATCHING_PKG.base_credit_rcv_match<-'||X_calling_sequence;
832: BEGIN
833:
834: l_api_name := 'Get_Info';
835: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
836: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Get_Info(+)');
837: END IF;
838: current_calling_sequence := 'Get_Info<-'||Current_Calling_Sequence;
839:
840: SELECT ai.gl_date,
1151:
1152: BEGIN
1153: l_api_name := 'Get_Dist_Proration_Info';
1154: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1155: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Get_Dist_Proration_Info(+)');
1156: END IF;
1157:
1158:
1159: current_calling_sequence := 'Get_Dist_Proration_Info<-'||x_calling_sequence;
1785: BEGIN
1786:
1787: l_api_name := 'Get_Total_Proration_Quantity';
1788: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
1789: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Get_Total_Proration_Quantity(+)');
1790: END IF;
1791:
1792: current_calling_sequence := 'Get_Total_Proration_Quantity<-'||current_calling_sequence;
1793: l_debug_info := 'Get total quantity for proration';
3170:
3171: current_calling_sequence := 'Update_Po_Shipments_Dists<-'||x_calling_sequence;
3172:
3173: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3174: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Update_PO_Distributions(+)');
3175: END IF;
3176:
3177: l_debug_info := 'Create l_po_ap_dist_rec object';
3178: IF (G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
3274: X_Msg_Data => l_msg_data);
3275:
3276:
3277: IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3278: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name,'AP_RECT_MATCH_PKG.Update_PO_Shipments_Dists(-)');
3279: END IF;
3280:
3281:
3282:
4978:
4979: END Insert_Corr_Invoice_Dists;
4980:
4981:
4982: END AP_RECT_MATCH_PKG;