[Home] [Help]
1: PACKAGE BODY AP_WITHHOLDING_PKG AS
2: /* $Header: apdoawtb.pls 120.36.12010000.12 2009/02/20 07:14:53 udhenuko ship $ */
3:
4: -- =====================================================================
5: -- P U B L I C O B J E C T S
131: l_income_tax_region_flag ap_system_parameters.income_tax_region_flag%TYPE;
132: l_income_tax_region ap_system_parameters.income_tax_region%TYPE;
133:
134: BEGIN
135: current_calling_sequence := 'AP_WITHHOLDING_PKG.Create_AWT_distributions<-' ||
136: P_Calling_Sequence;
137:
138:
139: debug_info := 'Get 1099 Info From ASP';
824: invoice_received_date DATE;
825:
826: BEGIN
827:
828: current_calling_sequence := 'AP_WITHHOLDING_PKG.Create_AWT_Invoices<-' ||
829: P_Calling_Sequence;
830:
831: -- Get base invoice description to insert in every new generated invoice
832:
1061: (new_invoice_id
1062: ,SYSDATE
1063: ,5
1064: ,tax_authority_id
1065: ,DECODE( p_calling_sequence, 'AP_WITHHOLDING_PKG.AP_Undo_Withholding',
1066: substrb(Ap_Utilities_Pkg.Ap_Get_DISplayed_Field('NLS TRANSLATION', 'AWT'),1,25)
1067: ||' - '||to_char(P_invoice_id)||' - ' || to_char(rec_awt_lines.invoice_line_number)
1068: ||' - '|| to_char(rec_awt_lines.distribution_line_number)
1069: || ' - ' || Ap_Utilities_Pkg.Ap_Get_DISplayed_Field('NLS TRANSLATION','CANCELLED'),
1723:
1724: */
1725:
1726: BEGIN
1727: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Do_Withholding';
1728:
1729: -- Execute the ExtENDed Withholding Calculation (IF active)
1730: IF (Ap_ExtENDed_Withholding_Pkg.Ap_ExtENDed_Withholding_Active) THEN
1731: Ap_ExtENDed_Withholding_Pkg.Ap_Do_ExtENDed_Withholding
1911: DBG_Loc VARCHAR2(30) := 'Ap_Withhold_AutoSelect';
1912: current_calling_sequence VARCHAR2(2000);
1913: debug_info VARCHAR2(100);
1914: BEGIN
1915: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Withhold_AutoSelect';
1916:
1917: -- Undo Withholding for all SELECTed invoices in thIS checkrun
1918:
1919: DECLARE
2325: DBG_Loc VARCHAR2(30) := 'Ap_Withhold_Confirm';
2326: current_calling_sequence VARCHAR2(2000);
2327: debug_info VARCHAR2(100);
2328: BEGIN
2329: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Withhold_Confirm';
2330:
2331: -- Execute Core Withholding Routine for each invoice within
2332: -- the payment batch
2333:
2445: DBG_Loc VARCHAR2(30) := 'Ap_Withhold_Cancel';
2446: current_calling_sequence VARCHAR2(2000);
2447: debug_info VARCHAR2(100);
2448: BEGIN
2449: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Withhold_Cancel';
2450: debug_info := 'Open Cursor for all selected invoices';
2451:
2452: if p_completed_pmts_group_id is null then
2453: OPEN c_all_sel_invs (P_Checkrun_Name, p_checkrun_id);
2530: debug_info VARCHAR2(100);
2531: l_withholding_amount NUMBER;
2532:
2533: BEGIN
2534: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Undo_Temp_Withholding';
2535:
2536: P_AWT_Success := 'SUCCESS';
2537:
2538: IF (P_Calling_Module in ('AUTOSELECT', 'CANCEL', 'PROJECTED')) THEN
2595: dummy CHAR(12);
2596: current_calling_sequence VARCHAR2(2000);
2597: debug_info VARCHAR2(100);
2598: BEGIN
2599: current_calling_sequence := 'AP_WITHHOLDING_PKG.Period_Limit_ExISt_For_Tax<-' ||
2600: P_Calling_Sequence;
2601: debug_info := 'OPEN CURSOR c_get_limit';
2602: OPEN c_get_limit;
2603:
2827: DESCRIPTION
2828: Reverses AWT distribution lines, buckets, tax authority invoices
2829: for a full invoice or for a payment depENDing upon the calling module
2830: NOTES
2831: ThIS PROCEDURE IS part of the AP_WITHHOLDING_PKG PL/SQL package
2832: HISTORY (YY/MM/DD)
2833: atassoni.it 95/07/14 Creation
2834: mhtaylor 95/08/21 Adapted for Adjust distributions
2835:
3174: -- \ /
3175: -- v
3176:
3177: BEGIN
3178: current_calling_sequence := 'AP_WITHHOLDING_PKG.AP_Undo_Withholding';
3179: P_Awt_Success := 'SUCCESS'; -- Assumes successfully completion
3180:
3181: IF ( (P_Calling_Module NOT IN
3182: ('VOID PAYMENT', 'CANCEL INVOICE', 'REVERSE DIST'))
3776: APP_EXCEPTION.RAISE_EXCEPTION;
3777: END;
3778: END Ap_Undo_Withholding;
3779:
3780: END AP_WITHHOLDING_PKG;