PACKAGE BODY: APPS.AR_SETUP

Source

1 PACKAGE BODY AR_SETUP AS
2 /* $Header: ARXPROFB.pls 115.6 2002/11/15 04:21:59 anukumar noship $ */
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_SHOW_BILLING_NUMBER'  THEN
20      --AR: Show Billing Number
21            --	FND_PROFILE.GET(l_active_profile,VAL);
22             val:=arp_global.sysparam.SHOW_BILLING_NUMBER_FLAG;
23 
24       ELSIF UPPER(l_active_profile) = 'AR_CROSS_CURRENCY_RATE_TYPE'  THEN
25      --AR: Cross Currency Rate Type
26          val:=arp_global.sysparam.CROSS_CURRENCY_RATE_TYPE;
27      --FND_PROFILE.GET(l_active_profile,VAL);
28 
29       ELSIF UPPER(l_active_profile) = 'AR_DOC_SEQ_GEN_LEVEL'  THEN
30       -- FND_PROFILE.GET(l_active_profile,VAL);
31        Val:=arp_global.sysparam.DOCUMENT_SEQ_GEN_LEVEL;
32 
33      else
34         -- put exceptions
35        RAISE AR_INVALID_INTEROP_PROFILE;
36      END IF;
37 END GET;
38 
39 
40 -------------------------------------------------------------------
41 FUNCTION VALUE
42 	(NAME 		IN VARCHAR2,
43          ORG_ID        IN NUMBER default null
44 	)
45 RETURN VARCHAR2
46 IS
47 AR_INVALID_INTEROP_PROFILE	EXCEPTION;
48 l_active_profile 			VARCHAR2(80);
49 l_profile_value				VARCHAR2(255);
50 BEGIN
51 
52 	l_active_profile := NAME;
53 
54      IF UPPER(l_active_profile) = 'AR_SHOW_BILLING_NUMBER'  THEN
55      --AR: Show Billing Number
56 	  --  l_profile_value := FND_PROFILE.VALUE(l_active_profile);
57         l_profile_value:=arp_global.sysparam.SHOW_BILLING_NUMBER_FLAG ;
58 
59       ELSIF UPPER(l_active_profile) = 'AR_CROSS_CURRENCY_RATE_TYPE'  THEN
60      --AR: Cross Currency Rate Type
61         l_profile_value:=arp_global.sysparam.CROSS_CURRENCY_RATE_TYPE ;
62 	--l_profile_value := FND_PROFILE.VALUE(l_active_profile);
63 
64       ELSIF UPPER(l_active_profile) = 'AR_DOC_SEQ_GEN_LEVEL'  THEN
65         l_profile_value:=arp_global.sysparam.DOCUMENT_SEQ_GEN_LEVEL;
66 	--   l_profile_value := FND_PROFILE.VALUE(l_active_profile);
67 
68      ELSE
69         -- put exceptions
70       RAISE AR_INVALID_INTEROP_PROFILE;
71 
72      END IF;
73 
74 	RETURN(l_profile_value);
75 END VALUE;
76 BEGIN
77 
78     ARP_GLOBAL.INIT_GLOBAL;
79     --initialze sysparam again
80 
81 END AR_SETUP;