[Home] [Help]
1: PACKAGE BODY AP_QUICK_CREDIT_PKG AS
2: /* $Header: apqkcreb.pls 120.14.12020000.2 2013/02/08 11:27:27 sbonala ship $ */
3:
4: TYPE Inv_Line_Tab_Type IS TABLE OF ap_invoice_lines_all%ROWTYPE;
5:
61: l_dist_ccid_list dist_ccid_list_tab;
62: l_return_var BOOLEAN := TRUE;
63:
64: BEGIN
65: l_curr_calling_sequence := 'AP_QUICK_CREDIT_PKG.Validating_Rules<-' ||
66: P_calling_sequence;
67:
68: ------------------------------------------------------------------
69: l_debug_info := 'Step 0: Get Chart of Accounts Id for CCID '||
360: AND NVL(AID.REVERSAL_FLAG, 'N') <> 'Y';
361:
362: BEGIN
363:
364: l_curr_calling_sequence := 'AP_QUICK_CREDIT_PKG.Full_Reversal<-' ||
365: P_calling_sequence;
366:
367: ----------------------------------------------------------------------------
368: l_debug_info := 'Getting period name for the lines based on the gl_date for '||
1245: l_return_value BOOLEAN := TRUE;
1246:
1247: BEGIN
1248:
1249: l_curr_calling_sequence := 'AP_QUICK_CREDIT_PKG.Quick_Credit<-' ||
1250: P_calling_sequence;
1251:
1252: -----------------------------------------------------------------
1253: l_debug_info := 'Step 1: Populating invoice and lines collections'||
1268:
1269: -------------------------------------------------------------------
1270: l_debug_info := 'Step 2: Calling Validating Rules';
1271: -------------------------------------------------------------------
1272: IF NOT (AP_QUICK_CREDIT_PKG.Validating_Rules(
1273: P_Invoice_Id => P_Invoice_Id,
1274: P_Vendor_Id_For_Invoice => P_Vendor_Id_For_Invoice,
1275: P_Dm_Gl_Date => P_Dm_Gl_Date,
1276: P_Invoice_Header_Rec => l_inv_header_rec,
1284: --------------------------------------------------------------------
1285: l_debug_info := 'Step 3: Calling Full Reverse';
1286: --------------------------------------------------------------------
1287: IF (l_return_value = TRUE) THEN
1288: IF NOT (AP_QUICK_CREDIT_PKG.Full_Reversal(
1289: P_Invoice_Id => P_Invoice_Id,
1290: P_Dm_Gl_Date => P_Dm_Gl_Date,
1291: P_Dm_Org_Id => P_Dm_Org_Id,
1292: P_Invoice_Header_Rec => l_inv_header_rec,
1343: END IF;
1344: APP_EXCEPTION.RAISE_EXCEPTION;
1345:
1346: END Quick_Credit;
1347: END AP_QUICK_CREDIT_PKG;