PACKAGE BODY: APPS.FUN_RULE_MOAC_PKG

Source

1 PACKAGE BODY FUN_RULE_MOAC_PKG AS
2 /*$Header: FUNXTMRULEMOACB.pls 120.0 2006/01/10 12:18:31 ammishra noship $ */
3 
4 /**
5  * FUNCTION SET_MOAC_ACCESS_MODE
6  *
7  * DESCRIPTION
8  *     If Access Mode is not 'S' then set to S and assign the passed org_id.
9  *     Assumes a not null org_id to be passed from the calling module.
10  *
11  * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
12  *
13  * ARGUMENTS
14  *   IN:
15  *      p_org_id      NUMBER
16  *
17  * NOTES
18  *
19  * MODIFICATION HISTORY
20  *
21  *   06-Jan-2006    Amulya Mishra      Created.
22  *
23  */
24 
25  /* The Algorithm goes like this
26     If ORG_ID is not NULL
27       if mo_init is not done
28         error;
29       else
30         if l_old_access_mode <> 'S' AND l_old_org_id <> p_org_id
31 	  set the MOAC policy context.
32       end;
33     end;
34  */
35 
36 PROCEDURE SET_MOAC_ACCESS_MODE(p_org_id  IN NUMBER)
37 IS
38  l_old_access_mode    VARCHAR2(1);
39  l_old_org_id         NUMBER;
40 BEGIN
41 
42  l_old_access_mode := MO_GLOBAL.get_access_mode();
43  l_old_org_id      := MO_GLOBAL.get_current_org_id();
44 
45  IF (MO_GLOBAL.IS_MO_INIT_DONE <> 'Y' ) THEN
46      fnd_message.set_name('FUN', 'FUN_RULE_NO_MOAC_INIT');
47      app_exception.raise_exception;
48  ELSIF (l_old_access_mode <> 'S' AND l_old_org_id <> p_org_id) THEN
49      MO_GLOBAL.SET_POLICY_CONTEXT('S',p_org_id);
50  END IF;
51 
52  END SET_MOAC_ACCESS_MODE;
53 
54 
55 /**
56  * FUNCTION SET_MOAC_POLICY_CONTEXT
57  *
58  * DESCRIPTION
59  *     SETS THE POLICY CONTEXT BASED ON THE PASSED ACCESS MODE AND ORG ID PARAMETERS..
60  *
61  * EXTERNAL PROCEDURES/FUNCTIONS ACCESSED
62  *
63  * ARGUMENTS
64  *   IN:
65  *      p_old_access_mode VARCHAR2
66  *      p_old_org_id      NUMBER
67  *      p_org_id      NUMBER
68  *
69  * NOTES
70  *
71  * MODIFICATION HISTORY
72  *
73  *   06-Jan-2006    Amulya Mishra      Created.
74  *
75  */
76 
77 PROCEDURE SET_MOAC_POLICY_CONTEXT(p_old_access_mode IN VARCHAR2,
78                                   p_old_org_id  IN NUMBER  , p_org_id  IN NUMBER )
79 
80 IS
81  l_old_access_mode    VARCHAR2(1);
82  l_old_org_id         NUMBER;
83 
84 BEGIN
85 
86  IF (p_old_access_mode <> 'S' AND p_old_org_id <> p_org_id) THEN
87    MO_GLOBAL.SET_POLICY_CONTEXT(p_old_access_mode ,p_old_org_id);
88  END IF;
89 
90  END SET_MOAC_POLICY_CONTEXT;
91 
92 
93 END FUN_RULE_MOAC_PKG;