PACKAGE BODY: APPS.BEN_CWB_PR_CURR

Source

1 Package body  BEN_CWB_PR_CURR as
2 /* $Header: bencwbcp.pkb 120.1 2006/03/29 13:10:54 maagrawa noship $ */
3 
4 procedure getCurrencyCode
5                                         (
6                                          User_Id       IN  NUMBER,
7                                          Business_grp_Id IN  NUMBER,
8                                          profile_name    IN  VARCHAR2,
9                                          RetCode         OUT NOCOPY VARCHAR2 ,
10                                          defined         OUT NOCOPY VARCHAR2
11                                          )
12    as
13         Code     VARCHAR2(20);
14         def      BOOLEAN;
15   BEGIN
16     Select org_information10 into  Code
17     from hr_organization_information
18     where organization_id =business_grp_id
19     and   org_information_context = 'Business Group Information';
20 
21    if code is null then
22     defined :=' N';
23    else
24     defined := 'Y';
25     RetCode := code;
26    end if;
27  def :=  FND_PROFILE.SAVE(PROFILE_NAME, code, 'USER', user_id);
28  IF DEF THEN
29    COMMIT;
30  END IF;
31   END getCurrencyCode ;
32 
33  procedure setProfile(
34                                         USER_ID IN NUMBER,
35                                         CURRENCY IN VARCHAR2,
36                                        PROFILE_NAME IN VARCHAR2
37                                       )
38    as
39          def boolean;
40   BEGIN
41    def :=  FND_PROFILE.SAVE(PROFILE_NAME, CURRENCY, 'USER', user_id);
42  IF DEF THEN
43   COMMIT;
44  END IF;
45   END setProfile ;
46 
47 End ben_cwb_pr_curr;