PACKAGE BODY: APPS.AR_TAX_SETUP

Source

1 PACKAGE BODY AR_TAX_SETUP AS
2 /* $Header: ARTXPROB.pls 115.2 2002/11/15 23:33:57 thwon ship $ */
3 
4 -- PUBLIC PROCEDURES
5 -------------------------------------------------------------------
6 PROCEDURE GET
7 	(NAME		IN VARCHAR2,
8          ORG_ID         IN NUMBER default null,
9 	 VAL		OUT NOCOPY VARCHAR2
10 	)
11 IS
12 l_active_profile 			VARCHAR2(80);
13 AR_INVALID_INTEROP_PROFILE	EXCEPTION;
14 BEGIN
15 
16 	l_active_profile := NAME;
17 
18 
19      IF UPPER(l_active_profile) = 'AR_CALCULATE_TAX_ON_CM'  THEN
20         -- Tax: Calculate Tax on Credit Memos
21 
22 --	    FND_PROFILE.GET(l_active_profile,VAL);
23            val:=arp_global.sysparam.CALC_TAX_ON_CREDIT_MEMO_FLAG;
24      else
25         -- put exceptions
26        RAISE AR_INVALID_INTEROP_PROFILE;
27      END IF;
28 END GET;
29 
30 
31 -------------------------------------------------------------------
32 FUNCTION VALUE
33 	(NAME 		IN VARCHAR2,
34          ORG_ID        IN NUMBER default null
35 	)
36 RETURN VARCHAR2
37 IS
38 AR_INVALID_INTEROP_PROFILE	EXCEPTION;
39 l_active_profile 			VARCHAR2(80);
40 l_profile_value				VARCHAR2(255);
41 BEGIN
42 
43 	l_active_profile := NAME;
44 
45      IF UPPER(l_active_profile) = 'AR_CALCULATE_TAX_ON_CM'   THEN
46         -- Tax: Calculate Tax on credit Memos
47 
48 --	    l_profile_value := FND_PROFILE.VALUE(l_active_profile);
49        l_profile_value :=arp_global.sysparam.CALC_TAX_ON_CREDIT_MEMO_FLAG;
50 
51      ELSE
52         -- put exceptions
53       RAISE AR_INVALID_INTEROP_PROFILE;
54 
55      END IF;
56 
57 	RETURN(l_profile_value);
58 END VALUE;
59 
60 BEGIN
61 
62     ARP_GLOBAL.INIT_GLOBAL;
63     --initialze sysparam again
64 
65 
66 END AR_TAX_SETUP;