18: SERVIND CHAR;
19: NOSERV_IND CONSTANT SERVIND%TYPE := ' ';
20: SERVICE_IND CONSTANT SERVIND%TYPE := 'S';
21: RENTAL_IND CONSTANT SERVIND%TYPE := 'R';
22: G_tax_selection ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE;
23: G_STRING VARCHAR2(200);
24: g_docment_type_id number;
25: g_trasaction_id number;
26: g_tax_regime_code varchar2(80);
262: PROCEDURE PERFORM_UPDATE (p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
263: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
264: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
265: FUNCTION SET_PARAMETERS(
266: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
267: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
268: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
269: FUNCTION CALCULATE_TAX(
270: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
263: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
264: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
265: FUNCTION SET_PARAMETERS(
266: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
267: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
268: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
269: FUNCTION CALCULATE_TAX(
270: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
271: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
264: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
265: FUNCTION SET_PARAMETERS(
266: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
267: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
268: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
269: FUNCTION CALCULATE_TAX(
270: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
271: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
272: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
266: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
267: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
268: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
269: FUNCTION CALCULATE_TAX(
270: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
271: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
272: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
273: PROCEDURE TAX_RESULTS_PROCESSING(
274: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
267: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
268: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
269: FUNCTION CALCULATE_TAX(
270: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
271: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
272: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
273: PROCEDURE TAX_RESULTS_PROCESSING(
274: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
275: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
268: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
269: FUNCTION CALCULATE_TAX(
270: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
271: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
272: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
273: PROCEDURE TAX_RESULTS_PROCESSING(
274: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
275: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
276: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
272: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN;
273: PROCEDURE TAX_RESULTS_PROCESSING(
274: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
275: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
276: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
277: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
278: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
279: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
280:
273: PROCEDURE TAX_RESULTS_PROCESSING(
274: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
275: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
276: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
277: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
278: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
279: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
280:
281: PROCEDURE SET_DOCUMENT_TYPE( P_DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2,
274: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
275: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
276: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
277: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
278: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
279: X_RETURN_STATUS OUT NOCOPY VARCHAR2);
280:
281: PROCEDURE SET_DOCUMENT_TYPE( P_DOCUMENT_TYPE IN OUT NOCOPY VARCHAR2,
282: P_ADJ_DOC_TRX_ID IN NUMBER,
291: p_value1 IN VARCHAR2 ,
292: p_token2 IN VARCHAR2 ,
293: p_value2 IN VARCHAR2 );
294: PROCEDURE GET_VENDOR_ERROR(
295: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
296: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
297: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm );
298:
299: PROCEDURE dump_vendor_rec ( dmpTaxLink IN ZX_TAX_TAXWARE_GEN.TaxParm,
292: p_token2 IN VARCHAR2 ,
293: p_value2 IN VARCHAR2 );
294: PROCEDURE GET_VENDOR_ERROR(
295: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
296: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
297: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm );
298:
299: PROCEDURE dump_vendor_rec ( dmpTaxLink IN ZX_TAX_TAXWARE_GEN.TaxParm,
300: dmpJurLink IN ZX_TAX_TAXWARE_GEN.JurParm,
293: p_value2 IN VARCHAR2 );
294: PROCEDURE GET_VENDOR_ERROR(
295: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
296: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
297: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm );
298:
299: PROCEDURE dump_vendor_rec ( dmpTaxLink IN ZX_TAX_TAXWARE_GEN.TaxParm,
300: dmpJurLink IN ZX_TAX_TAXWARE_GEN.JurParm,
301: dmpOraLink IN ZX_TAX_TAXWARE_GEN.t_OraParm,
295: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
296: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
297: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm );
298:
299: PROCEDURE dump_vendor_rec ( dmpTaxLink IN ZX_TAX_TAXWARE_GEN.TaxParm,
300: dmpJurLink IN ZX_TAX_TAXWARE_GEN.JurParm,
301: dmpOraLink IN ZX_TAX_TAXWARE_GEN.t_OraParm,
302: input_param_flag IN BOOLEAN ) ;
303:
296: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
297: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm );
298:
299: PROCEDURE dump_vendor_rec ( dmpTaxLink IN ZX_TAX_TAXWARE_GEN.TaxParm,
300: dmpJurLink IN ZX_TAX_TAXWARE_GEN.JurParm,
301: dmpOraLink IN ZX_TAX_TAXWARE_GEN.t_OraParm,
302: input_param_flag IN BOOLEAN ) ;
303:
304:
297: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm );
298:
299: PROCEDURE dump_vendor_rec ( dmpTaxLink IN ZX_TAX_TAXWARE_GEN.TaxParm,
300: dmpJurLink IN ZX_TAX_TAXWARE_GEN.JurParm,
301: dmpOraLink IN ZX_TAX_TAXWARE_GEN.t_OraParm,
302: input_param_flag IN BOOLEAN ) ;
303:
304:
305: /*Structure to hold the transaction information*/
1517:
1518: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
1519: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1520: x_return_status OUT NOCOPY VARCHAR2)is
1521: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1522: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1523: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1524: return_code boolean;
1525: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_LINE_CREATION';
1518: PROCEDURE PERFORM_LINE_CREATION(p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
1519: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1520: x_return_status OUT NOCOPY VARCHAR2)is
1521: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1522: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1523: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1524: return_code boolean;
1525: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_LINE_CREATION';
1526: l_return_status VARCHAR2(30);
1519: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
1520: x_return_status OUT NOCOPY VARCHAR2)is
1521: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1522: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1523: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1524: return_code boolean;
1525: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_LINE_CREATION';
1526: l_return_status VARCHAR2(30);
1527: input_param_flag boolean;
1589: END IF;
1590: End;
1591:
1592: PROCEDURE PERFORM_LINE_DELETION(x_return_status OUT NOCOPY VARCHAR2) is
1593: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1594: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1595: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1596: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_LINE_DELETION';
1597: return_code boolean;
1590: End;
1591:
1592: PROCEDURE PERFORM_LINE_DELETION(x_return_status OUT NOCOPY VARCHAR2) is
1593: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1594: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1595: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1596: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_LINE_DELETION';
1597: return_code boolean;
1598: input_param_flag boolean;
1591:
1592: PROCEDURE PERFORM_LINE_DELETION(x_return_status OUT NOCOPY VARCHAR2) is
1593: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
1594: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
1595: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
1596: l_api_name CONSTANT VARCHAR2(30) := 'PERFORM_LINE_DELETION';
1597: return_code boolean;
1598: input_param_flag boolean;
1599: Begin
1795:
1796: END GET_TAX_JUR_CODE;
1797:
1798: FUNCTION SET_PARAMETERS(
1799: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
1800: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
1801: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN is
1802:
1803: /*Following variables used during line deletion process.*/
1796: END GET_TAX_JUR_CODE;
1797:
1798: FUNCTION SET_PARAMETERS(
1799: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
1800: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
1801: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN is
1802:
1803: /*Following variables used during line deletion process.*/
1804: arp_line_amount ZX_PTNR_NEG_LINE_GT.line_amt%type;
1797:
1798: FUNCTION SET_PARAMETERS(
1799: l_Tax_Link IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
1800: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
1801: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm) RETURN BOOLEAN is
1802:
1803: /*Following variables used during line deletion process.*/
1804: arp_line_amount ZX_PTNR_NEG_LINE_GT.line_amt%type;
1805: arp_quantity ZX_PTNR_NEG_LINE_GT.trx_line_quantity%type;
2172: END IF;
2173:
2174:
2175: IF l_tax_sel_param is NULL then
2176: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2177: ELSIF l_tax_sel_param = 1 THEN
2178: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_JUR_ONLY;
2179: ELSIF l_tax_sel_param = 2 THEN
2180: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAXES_ONLY;
2174:
2175: IF l_tax_sel_param is NULL then
2176: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2177: ELSIF l_tax_sel_param = 1 THEN
2178: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_JUR_ONLY;
2179: ELSIF l_tax_sel_param = 2 THEN
2180: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAXES_ONLY;
2181: ELSE
2182: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2176: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2177: ELSIF l_tax_sel_param = 1 THEN
2178: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_JUR_ONLY;
2179: ELSIF l_tax_sel_param = 2 THEN
2180: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAXES_ONLY;
2181: ELSE
2182: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2183: END IF;
2184:
2178: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_JUR_ONLY;
2179: ELSIF l_tax_sel_param = 2 THEN
2180: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAXES_ONLY;
2181: ELSE
2182: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2183: END IF;
2184:
2185: IF l_tax_type_param = '1' THEN
2186: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2182: g_tax_SELECTION := ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR;
2183: END IF;
2184:
2185: IF l_tax_type_param = '1' THEN
2186: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2187: ELSIF l_tax_type_param = '2' THEN
2188: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_USE;
2189: ELSIF l_tax_type_param = '3' THEN
2190: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_RENTAL;
2184:
2185: IF l_tax_type_param = '1' THEN
2186: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2187: ELSIF l_tax_type_param = '2' THEN
2188: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_USE;
2189: ELSIF l_tax_type_param = '3' THEN
2190: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_RENTAL;
2191: ELSE
2192: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2186: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2187: ELSIF l_tax_type_param = '2' THEN
2188: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_USE;
2189: ELSIF l_tax_type_param = '3' THEN
2190: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_RENTAL;
2191: ELSE
2192: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2193: END IF;
2194: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2188: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_USE;
2189: ELSIF l_tax_type_param = '3' THEN
2190: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_RENTAL;
2191: ELSE
2192: l_tax_type := ZX_TAX_TAXWARE_GEN.IND_SALES;
2193: END IF;
2194: IF ( G_LEVEL_STATEMENT >= G_CURRENT_RUNTIME_LEVEL) THEN
2195: FND_LOG.STRING(G_LEVEL_STATEMENT,G_MODULE_NAME||l_api_name,
2196: 'Value of l_poo_code is :'||l_poo_code);
2206: END IF;
2207: -- Validate POO, POA and SHIP-FROM if tax selection specifies use of
2208: -- Jurisdictions.
2209: IF (g_tax_SELECTION IN
2210: (ZX_TAX_TAXWARE_GEN.SELPRM_JUR_ONLY, ZX_TAX_TAXWARE_GEN.SELPRM_TAX_JUR) ) THEN
2211: -- POO Code
2212: IF ( l_poo_code IS NULL ) THEN
2213: stack_error('GENERIC_MESSAGE', 'GENERIC_TEXT',
2214: 'Taxware Error: Point Of Order Origin(POO) Information is not passed.',null,null);
2424: l_Tax_link.CalcType := 'G';
2425: end if;
2426: end if;
2427:
2428: IF (g_tax_SELECTION = ZX_TAX_TAXWARE_GEN.SELPRM_TAXES_ONLY ) THEN
2429: -- Only (primary)Ship To information is required.
2430: l_Tax_link.StateCode := substrb(l_ship_to_code,2,2);
2431: l_Tax_link.PriZip := substrb(l_ship_to_code,4,5);
2432: l_Tax_link.PriGeo := substrb(l_ship_to_code,9,2);
2501: l_fob_point :=arp_fob_point;
2502: end if;
2503:
2504: IF ( substrb(l_fob_point,1,1) = 'D' ) THEN
2505: l_JurLink.POT := ZX_TAX_TAXWARE_GEN.POT_DEST;
2506: ELSE
2507: l_JurLink.POT := ZX_TAX_TAXWARE_GEN.POT_ORIG;
2508: END IF;
2509:
2503:
2504: IF ( substrb(l_fob_point,1,1) = 'D' ) THEN
2505: l_JurLink.POT := ZX_TAX_TAXWARE_GEN.POT_DEST;
2506: ELSE
2507: l_JurLink.POT := ZX_TAX_TAXWARE_GEN.POT_ORIG;
2508: END IF;
2509:
2510: END IF;
2511:
2745: Return FALSE;
2746: END ;--SET_PARMETERS;
2747:
2748: Function CALCULATE_TAX (
2749: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2750: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2751: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm ) return boolean is
2752:
2753: Tax_Success BOOLEAN;
2746: END ;--SET_PARMETERS;
2747:
2748: Function CALCULATE_TAX (
2749: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2750: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2751: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm ) return boolean is
2752:
2753: Tax_Success BOOLEAN;
2754: Valid_Err BOOLEAN;
2747:
2748: Function CALCULATE_TAX (
2749: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2750: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2751: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm ) return boolean is
2752:
2753: Tax_Success BOOLEAN;
2754: Valid_Err BOOLEAN;
2755: return_code boolean;
2843:
2844: PROCEDURE TAX_RESULTS_PROCESSING(
2845: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
2846: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
2847: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2848: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2849: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
2850: x_return_status OUT NOCOPY VARCHAR2) IS
2851: J number;
2844: PROCEDURE TAX_RESULTS_PROCESSING(
2845: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
2846: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
2847: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2848: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2849: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
2850: x_return_status OUT NOCOPY VARCHAR2) IS
2851: J number;
2852: x_tax_jurisdiction_code ZX_JURISDICTIONS_B.tax_jurisdiction_code%type;
2845: p_tax_lines_tbl OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_lines_tbl_type,
2846: p_currency_tab IN OUT NOCOPY ZX_TAX_PARTNER_PKG.tax_currencies_tbl_type,
2847: l_TaxLink IN OUT NOCOPY zx_tax_taxware_GEN.TaxParm,
2848: l_JurLink IN OUT NOCOPY zx_tax_taxware_GEN.JurParm,
2849: l_OraLink IN OUT NOCOPY zx_tax_taxware_GEN.t_OraParm,
2850: x_return_status OUT NOCOPY VARCHAR2) IS
2851: J number;
2852: x_tax_jurisdiction_code ZX_JURISDICTIONS_B.tax_jurisdiction_code%type;
2853: p_location_id NUMBER;
3116:
3117: END stack_error;
3118:
3119: PROCEDURE Get_Vendor_Error (
3120: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
3121: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
3122: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm ) IS
3123:
3124: error_location VARCHAR2(30);
3117: END stack_error;
3118:
3119: PROCEDURE Get_Vendor_Error (
3120: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
3121: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
3122: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm ) IS
3123:
3124: error_location VARCHAR2(30);
3125: error_mesg VARCHAR2(200);
3118:
3119: PROCEDURE Get_Vendor_Error (
3120: tax_selection IN ZX_TAX_TAXWARE_GEN.SELPARMTYP%TYPE,
3121: errTaxParm IN ZX_TAX_TAXWARE_GEN.TaxParm,
3122: errJurParm IN ZX_TAX_TAXWARE_GEN.JurParm ) IS
3123:
3124: error_location VARCHAR2(30);
3125: error_mesg VARCHAR2(200);
3126: vdr_return_code char(2);
3132: IF ( G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL) THEN
3133: FND_LOG.STRING(G_LEVEL_PROCEDURE,G_MODULE_NAME||l_api_name||'.BEGIN',G_PKG_NAME||': '||l_api_name||'()+');
3134: END IF;
3135: IF ( tax_selection IN
3136: (zx_tax_taxware_GEN.SELPRM_JUR_ONLY, zx_tax_taxware_GEN.SELPRM_TAX_JUR) ) THEN
3137:
3138: -- Check for Jurisdiction errors
3139: IF ( errJurParm.ReturnCode <> zx_tax_taxware_GEN.JURSUCCESS ) THEN
3140:
3135: IF ( tax_selection IN
3136: (zx_tax_taxware_GEN.SELPRM_JUR_ONLY, zx_tax_taxware_GEN.SELPRM_TAX_JUR) ) THEN
3137:
3138: -- Check for Jurisdiction errors
3139: IF ( errJurParm.ReturnCode <> zx_tax_taxware_GEN.JURSUCCESS ) THEN
3140:
3141: Jur_Error := TRUE;
3142:
3143: IF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVPOT THEN
3139: IF ( errJurParm.ReturnCode <> zx_tax_taxware_GEN.JURSUCCESS ) THEN
3140:
3141: Jur_Error := TRUE;
3142:
3143: IF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVPOT THEN
3144: error_mesg := JGMSG_JURINVPOT;
3145: ELSIF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVSRVIN THEN
3146: error_mesg := JGMSG_JURINVSRVIN;
3147: ELSIF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURERROR THEN
3141: Jur_Error := TRUE;
3142:
3143: IF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVPOT THEN
3144: error_mesg := JGMSG_JURINVPOT;
3145: ELSIF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVSRVIN THEN
3146: error_mesg := JGMSG_JURINVSRVIN;
3147: ELSIF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURERROR THEN
3148:
3149: -- Determine Jurisdiction Error Location
3143: IF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVPOT THEN
3144: error_mesg := JGMSG_JURINVPOT;
3145: ELSIF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURINVSRVIN THEN
3146: error_mesg := JGMSG_JURINVSRVIN;
3147: ELSIF errJurParm.ReturnCode = zx_tax_taxware_GEN.JURERROR THEN
3148:
3149: -- Determine Jurisdiction Error Location
3150: IF errJurParm.POOJurRC <> to_char(0) THEN
3151: vdr_return_code := errJurParm.POOJurRC;
3166: -- Determine type of Jurisdiction error for Location
3167: IF vdr_return_code IS NOT NULL THEN
3168:
3169: -- Check vdr_return_code
3170: IF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCCNTYDEF) THEN
3171: error_mesg := error_location||' : '||JMSG_LOCCNTYDEF;
3172: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVSTATE) THEN
3173: error_mesg := error_location||' : '||JMSG_LOCINVSTATE;
3174: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOZIP) THEN
3168:
3169: -- Check vdr_return_code
3170: IF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCCNTYDEF) THEN
3171: error_mesg := error_location||' : '||JMSG_LOCCNTYDEF;
3172: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVSTATE) THEN
3173: error_mesg := error_location||' : '||JMSG_LOCINVSTATE;
3174: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOZIP) THEN
3175: error_mesg := error_location||' : '||JMSG_LOCNOZIP;
3176: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVZIP) THEN
3170: IF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCCNTYDEF) THEN
3171: error_mesg := error_location||' : '||JMSG_LOCCNTYDEF;
3172: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVSTATE) THEN
3173: error_mesg := error_location||' : '||JMSG_LOCINVSTATE;
3174: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOZIP) THEN
3175: error_mesg := error_location||' : '||JMSG_LOCNOZIP;
3176: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVZIP) THEN
3177: error_mesg := error_location||' : '||JMSG_LOCINVZIP;
3178: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOGEO) THEN
3172: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVSTATE) THEN
3173: error_mesg := error_location||' : '||JMSG_LOCINVSTATE;
3174: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOZIP) THEN
3175: error_mesg := error_location||' : '||JMSG_LOCNOZIP;
3176: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVZIP) THEN
3177: error_mesg := error_location||' : '||JMSG_LOCINVZIP;
3178: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOGEO) THEN
3179: -- Same as LOCNOCITY
3180: error_mesg := error_location||' : '||JMSG_LOCNOGEO;
3174: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOZIP) THEN
3175: error_mesg := error_location||' : '||JMSG_LOCNOZIP;
3176: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVZIP) THEN
3177: error_mesg := error_location||' : '||JMSG_LOCINVZIP;
3178: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOGEO) THEN
3179: -- Same as LOCNOCITY
3180: error_mesg := error_location||' : '||JMSG_LOCNOGEO;
3181: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVCITY) THEN
3182: error_mesg := error_location||' : '||JMSG_LOCINVCITY;
3177: error_mesg := error_location||' : '||JMSG_LOCINVZIP;
3178: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCNOGEO) THEN
3179: -- Same as LOCNOCITY
3180: error_mesg := error_location||' : '||JMSG_LOCNOGEO;
3181: ELSIF vdr_return_code = to_char(zx_tax_taxware_GEN.LOCINVCITY) THEN
3182: error_mesg := error_location||' : '||JMSG_LOCINVCITY;
3183: ELSE
3184: error_mesg := JMSG_UNKNOWN;
3185: END IF; -- check vdr_return_code
3185: END IF; -- check vdr_return_code
3186:
3187: END IF; -- vdr_return_code NOT NULL?
3188:
3189: END IF; -- zx_tax_taxware_GEN.JURERROR?
3190:
3191: END IF; -- Not JURSUCCESS?
3192:
3193: ELSIF ( NOT Jur_Error AND
3191: END IF; -- Not JURSUCCESS?
3192:
3193: ELSIF ( NOT Jur_Error AND
3194: tax_selection IN
3195: (zx_tax_taxware_GEN.SELPRM_TAXES_ONLY, zx_tax_taxware_GEN.SELPRM_TAX_JUR) ) THEN
3196:
3197: -- Check for Calculation errors
3198: IF ( nvl(errTaxParm.GenCmplCd,0) <> zx_tax_taxware_GEN.SUCCESSCC ) THEN
3199:
3194: tax_selection IN
3195: (zx_tax_taxware_GEN.SELPRM_TAXES_ONLY, zx_tax_taxware_GEN.SELPRM_TAX_JUR) ) THEN
3196:
3197: -- Check for Calculation errors
3198: IF ( nvl(errTaxParm.GenCmplCd,0) <> zx_tax_taxware_GEN.SUCCESSCC ) THEN
3199:
3200: Calc_Error := TRUE;
3201:
3202: IF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDZIP THEN
3198: IF ( nvl(errTaxParm.GenCmplCd,0) <> zx_tax_taxware_GEN.SUCCESSCC ) THEN
3199:
3200: Calc_Error := TRUE;
3201:
3202: IF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDZIP THEN
3203: error_mesg := TGMSG_INVALIDZIP;
3204: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDST THEN
3205: error_mesg := TGMSG_INVALIDST;
3206: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDGRS THEN
3200: Calc_Error := TRUE;
3201:
3202: IF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDZIP THEN
3203: error_mesg := TGMSG_INVALIDZIP;
3204: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDST THEN
3205: error_mesg := TGMSG_INVALIDST;
3206: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDGRS THEN
3207: error_mesg := TGMSG_INVALIDGRS;
3208: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDTAXAMT THEN
3202: IF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDZIP THEN
3203: error_mesg := TGMSG_INVALIDZIP;
3204: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDST THEN
3205: error_mesg := TGMSG_INVALIDST;
3206: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDGRS THEN
3207: error_mesg := TGMSG_INVALIDGRS;
3208: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDTAXAMT THEN
3209: error_mesg := TGMSG_INVALIDTAXAMT;
3210: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.GENINVZIPST THEN
3204: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDST THEN
3205: error_mesg := TGMSG_INVALIDST;
3206: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDGRS THEN
3207: error_mesg := TGMSG_INVALIDGRS;
3208: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDTAXAMT THEN
3209: error_mesg := TGMSG_INVALIDTAXAMT;
3210: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.GENINVZIPST THEN
3211: error_mesg := TGMSG_GENINVZIPST;
3212: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCTYP THEN
3206: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDGRS THEN
3207: error_mesg := TGMSG_INVALIDGRS;
3208: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDTAXAMT THEN
3209: error_mesg := TGMSG_INVALIDTAXAMT;
3210: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.GENINVZIPST THEN
3211: error_mesg := TGMSG_GENINVZIPST;
3212: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCTYP THEN
3213: error_mesg := TGMSG_INVCALCTYP;
3214: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDACCESSERR THEN
3208: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVALIDTAXAMT THEN
3209: error_mesg := TGMSG_INVALIDTAXAMT;
3210: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.GENINVZIPST THEN
3211: error_mesg := TGMSG_GENINVZIPST;
3212: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCTYP THEN
3213: error_mesg := TGMSG_INVCALCTYP;
3214: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDACCESSERR THEN
3215: error_mesg := TGMSG_PRDACCESSERR;
3216: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.RATEISZERO THEN
3210: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.GENINVZIPST THEN
3211: error_mesg := TGMSG_GENINVZIPST;
3212: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCTYP THEN
3213: error_mesg := TGMSG_INVCALCTYP;
3214: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDACCESSERR THEN
3215: error_mesg := TGMSG_PRDACCESSERR;
3216: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.RATEISZERO THEN
3217: error_mesg := TGMSG_RATEISZERO;
3218: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NEGFIELDS THEN
3212: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCTYP THEN
3213: error_mesg := TGMSG_INVCALCTYP;
3214: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDACCESSERR THEN
3215: error_mesg := TGMSG_PRDACCESSERR;
3216: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.RATEISZERO THEN
3217: error_mesg := TGMSG_RATEISZERO;
3218: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NEGFIELDS THEN
3219: error_mesg := TGMSG_NEGFIELDS;
3220: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AUDACCESSERR THEN
3214: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDACCESSERR THEN
3215: error_mesg := TGMSG_PRDACCESSERR;
3216: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.RATEISZERO THEN
3217: error_mesg := TGMSG_RATEISZERO;
3218: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NEGFIELDS THEN
3219: error_mesg := TGMSG_NEGFIELDS;
3220: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AUDACCESSERR THEN
3221: error_mesg := TGMSG_AUDACCESSERR;
3222: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCERR THEN
3216: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.RATEISZERO THEN
3217: error_mesg := TGMSG_RATEISZERO;
3218: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NEGFIELDS THEN
3219: error_mesg := TGMSG_NEGFIELDS;
3220: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AUDACCESSERR THEN
3221: error_mesg := TGMSG_AUDACCESSERR;
3222: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCERR THEN
3223: error_mesg := TGMSG_INVCALCERR;
3224: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPNOCUSTERR THEN
3218: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NEGFIELDS THEN
3219: error_mesg := TGMSG_NEGFIELDS;
3220: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AUDACCESSERR THEN
3221: error_mesg := TGMSG_AUDACCESSERR;
3222: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCERR THEN
3223: error_mesg := TGMSG_INVCALCERR;
3224: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPNOCUSTERR THEN
3225: error_mesg := TGMSG_STEPNOCUSTERR;
3226: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NOSTEPPROC THEN
3220: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AUDACCESSERR THEN
3221: error_mesg := TGMSG_AUDACCESSERR;
3222: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCERR THEN
3223: error_mesg := TGMSG_INVCALCERR;
3224: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPNOCUSTERR THEN
3225: error_mesg := TGMSG_STEPNOCUSTERR;
3226: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NOSTEPPROC THEN
3227: error_mesg := TGMSG_NOSTEPPROC;
3228: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPPARAMERR THEN
3222: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVCALCERR THEN
3223: error_mesg := TGMSG_INVCALCERR;
3224: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPNOCUSTERR THEN
3225: error_mesg := TGMSG_STEPNOCUSTERR;
3226: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NOSTEPPROC THEN
3227: error_mesg := TGMSG_NOSTEPPROC;
3228: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPPARAMERR THEN
3229: error_mesg := TGMSG_STEPPARAMERR;
3230: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPMISCERR THEN
3224: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPNOCUSTERR THEN
3225: error_mesg := TGMSG_STEPNOCUSTERR;
3226: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NOSTEPPROC THEN
3227: error_mesg := TGMSG_NOSTEPPROC;
3228: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPPARAMERR THEN
3229: error_mesg := TGMSG_STEPPARAMERR;
3230: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPMISCERR THEN
3231: error_mesg := TGMSG_STEPMISCERR;
3232: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CERRACCESSERR THEN
3226: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.NOSTEPPROC THEN
3227: error_mesg := TGMSG_NOSTEPPROC;
3228: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPPARAMERR THEN
3229: error_mesg := TGMSG_STEPPARAMERR;
3230: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPMISCERR THEN
3231: error_mesg := TGMSG_STEPMISCERR;
3232: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CERRACCESSERR THEN
3233: error_mesg := TGMSG_CERRACCESSERR;
3234: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JERRACCESSERR THEN
3228: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPPARAMERR THEN
3229: error_mesg := TGMSG_STEPPARAMERR;
3230: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPMISCERR THEN
3231: error_mesg := TGMSG_STEPMISCERR;
3232: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CERRACCESSERR THEN
3233: error_mesg := TGMSG_CERRACCESSERR;
3234: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JERRACCESSERR THEN
3235: error_mesg := TGMSG_JERRACCESSERR;
3236: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3230: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.STEPMISCERR THEN
3231: error_mesg := TGMSG_STEPMISCERR;
3232: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CERRACCESSERR THEN
3233: error_mesg := TGMSG_CERRACCESSERR;
3234: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JERRACCESSERR THEN
3235: error_mesg := TGMSG_JERRACCESSERR;
3236: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3237: error_mesg := TGMSG_INVJURERR;
3238: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3232: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CERRACCESSERR THEN
3233: error_mesg := TGMSG_CERRACCESSERR;
3234: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JERRACCESSERR THEN
3235: error_mesg := TGMSG_JERRACCESSERR;
3236: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3237: error_mesg := TGMSG_INVJURERR;
3238: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3239: error_mesg := TGMSG_INVJURERR;
3240: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURPROC THEN
3234: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JERRACCESSERR THEN
3235: error_mesg := TGMSG_JERRACCESSERR;
3236: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3237: error_mesg := TGMSG_INVJURERR;
3238: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3239: error_mesg := TGMSG_INVJURERR;
3240: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURPROC THEN
3241: error_mesg := TGMSG_INVJURPROC;
3242: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVSELPARM THEN
3236: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3237: error_mesg := TGMSG_INVJURERR;
3238: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3239: error_mesg := TGMSG_INVJURERR;
3240: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURPROC THEN
3241: error_mesg := TGMSG_INVJURPROC;
3242: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVSELPARM THEN
3243: error_mesg := TGMSG_INVSELPARM;
3244: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JURISERROR THEN
3238: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURERR THEN
3239: error_mesg := TGMSG_INVJURERR;
3240: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURPROC THEN
3241: error_mesg := TGMSG_INVJURPROC;
3242: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVSELPARM THEN
3243: error_mesg := TGMSG_INVSELPARM;
3244: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JURISERROR THEN
3245: error_mesg := TGMSG_JURISERROR;
3246: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDINVALID4CU THEN
3240: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVJURPROC THEN
3241: error_mesg := TGMSG_INVJURPROC;
3242: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVSELPARM THEN
3243: error_mesg := TGMSG_INVSELPARM;
3244: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JURISERROR THEN
3245: error_mesg := TGMSG_JURISERROR;
3246: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDINVALID4CU THEN
3247: error_mesg := TGMSG_PRDINVALID4CU;
3248: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CONUSEFILEERR THEN
3242: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.INVSELPARM THEN
3243: error_mesg := TGMSG_INVSELPARM;
3244: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JURISERROR THEN
3245: error_mesg := TGMSG_JURISERROR;
3246: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDINVALID4CU THEN
3247: error_mesg := TGMSG_PRDINVALID4CU;
3248: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CONUSEFILEERR THEN
3249: error_mesg := TGMSG_CONUSEFILEERR;
3250: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CALC_E_ERROR THEN
3244: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.JURISERROR THEN
3245: error_mesg := TGMSG_JURISERROR;
3246: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDINVALID4CU THEN
3247: error_mesg := TGMSG_PRDINVALID4CU;
3248: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CONUSEFILEERR THEN
3249: error_mesg := TGMSG_CONUSEFILEERR;
3250: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CALC_E_ERROR THEN
3251: error_mesg := TGMSG_CALC_E_ERROR;
3252: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.EXEMPTLGRGROSS THEN
3246: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRDINVALID4CU THEN
3247: error_mesg := TGMSG_PRDINVALID4CU;
3248: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CONUSEFILEERR THEN
3249: error_mesg := TGMSG_CONUSEFILEERR;
3250: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CALC_E_ERROR THEN
3251: error_mesg := TGMSG_CALC_E_ERROR;
3252: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.EXEMPTLGRGROSS THEN
3253: error_mesg := TGMSG_EXEMPTLGRGROSS;
3254: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AMOUNTOVERFLOW THEN
3248: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CONUSEFILEERR THEN
3249: error_mesg := TGMSG_CONUSEFILEERR;
3250: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CALC_E_ERROR THEN
3251: error_mesg := TGMSG_CALC_E_ERROR;
3252: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.EXEMPTLGRGROSS THEN
3253: error_mesg := TGMSG_EXEMPTLGRGROSS;
3254: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AMOUNTOVERFLOW THEN
3255: error_mesg := TGMSG_AMOUNTOVERFLOW;
3256: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRODCDCONVNOTFOUND THEN
3250: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.CALC_E_ERROR THEN
3251: error_mesg := TGMSG_CALC_E_ERROR;
3252: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.EXEMPTLGRGROSS THEN
3253: error_mesg := TGMSG_EXEMPTLGRGROSS;
3254: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AMOUNTOVERFLOW THEN
3255: error_mesg := TGMSG_AMOUNTOVERFLOW;
3256: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRODCDCONVNOTFOUND THEN
3257: error_mesg := TGMSG_PRODCDCONVNOTFOUND;
3258: ELSE
3252: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.EXEMPTLGRGROSS THEN
3253: error_mesg := TGMSG_EXEMPTLGRGROSS;
3254: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.AMOUNTOVERFLOW THEN
3255: error_mesg := TGMSG_AMOUNTOVERFLOW;
3256: ELSIF errTaxParm.GenCmplCd = zx_tax_taxware_GEN.PRODCDCONVNOTFOUND THEN
3257: error_mesg := TGMSG_PRODCDCONVNOTFOUND;
3258: ELSE
3259: error_mesg := TGMSG_UNKNOWN||' Return Code = '||errTaxParm.GenCmplCd;
3260: END IF;
3418:
3419: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TAX_LINE';
3420: l_return_Status VARCHAR2(30);
3421: return_code boolean;
3422: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
3423: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
3424: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
3425: input_param_flag boolean;
3426: BEGIN
3419: l_api_name CONSTANT VARCHAR2(30) := 'CREATE_TAX_LINE';
3420: l_return_Status VARCHAR2(30);
3421: return_code boolean;
3422: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
3423: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
3424: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
3425: input_param_flag boolean;
3426: BEGIN
3427: x_return_status := FND_API.G_RET_STS_SUCCESS;
3420: l_return_Status VARCHAR2(30);
3421: return_code boolean;
3422: l_TaxLink ZX_TAX_TAXWARE_GEN.TaxParm;
3423: l_JurLink ZX_TAX_TAXWARE_GEN.JurParm;
3424: l_OraLink ZX_TAX_TAXWARE_GEN.t_OraParm;
3425: input_param_flag boolean;
3426: BEGIN
3427: x_return_status := FND_API.G_RET_STS_SUCCESS;
3428:
4225: END IF;
4226:
4227: End GLOBAL_DOCUMENT_UPDATE;
4228:
4229: PROCEDURE dump_vendor_rec ( dmpTaxLink ZX_TAX_TAXWARE_GEN.TaxParm,
4230: dmpJurLink ZX_TAX_TAXWARE_GEN.JurParm,
4231: dmpOraLink ZX_TAX_TAXWARE_GEN.t_OraParm,
4232: input_param_flag BOOLEAN ) IS
4233:
4226:
4227: End GLOBAL_DOCUMENT_UPDATE;
4228:
4229: PROCEDURE dump_vendor_rec ( dmpTaxLink ZX_TAX_TAXWARE_GEN.TaxParm,
4230: dmpJurLink ZX_TAX_TAXWARE_GEN.JurParm,
4231: dmpOraLink ZX_TAX_TAXWARE_GEN.t_OraParm,
4232: input_param_flag BOOLEAN ) IS
4233:
4234: l_temp_reserved_bool VARCHAR2(10) := null;
4227: End GLOBAL_DOCUMENT_UPDATE;
4228:
4229: PROCEDURE dump_vendor_rec ( dmpTaxLink ZX_TAX_TAXWARE_GEN.TaxParm,
4230: dmpJurLink ZX_TAX_TAXWARE_GEN.JurParm,
4231: dmpOraLink ZX_TAX_TAXWARE_GEN.t_OraParm,
4232: input_param_flag BOOLEAN ) IS
4233:
4234: l_temp_reserved_bool VARCHAR2(10) := null;
4235: l_api_name CONSTANT VARCHAR2(30) := 'DUMP_VENDOR_REC';