[Home] [Help]
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;