1 Package body okl_context AS
2 /*$Header: OKLRCTXB.pls 120.5 2006/08/06 10:37:13 asawanka noship $*/
3
4 -- Procedure set_okc_org_context(p_org_id IN NUMBER DEFAULT NULL,p_organization_id IN NUMBER DEFAULT NULL)
5 -- Procedure sets the okc context values for Multi Org. If the parameters are not passed procedure reads
6 -- the calue from user profile options.
7
8 PROCEDURE set_okc_org_context(p_org_id IN NUMBER DEFAULT NULL,
9 p_organization_id IN NUMBER DEFAULT NULL) IS
10 l_organization_id Number := p_organization_id;
11 l_org_id Number := p_org_id; --dkagrawa added for MOAC
12 BEGIN
13 IF l_organization_id is null then
14 l_organization_id := NVL(OKL_SYSTEM_PARAMS_ALL_PUB.get_system_param_value(OKL_SYSTEM_PARAMS_ALL_PUB.G_ITEM_INV_ORG_ID),-99);
15 Else
16 Null;
17 End If;
18
19 --dkagrawa added for MOAC --start
20 IF l_org_id IS NULL THEN
21 l_org_id := mo_global.get_current_org_id;
22 END IF;
23 IF NOT (l_organization_id = nvl(okc_context.get_okc_organization_id,-99)
24 AND l_org_id = nvl(okc_context.get_okc_org_id,-99) )
25 THEN
26 okc_context.set_okc_org_context(p_org_id => l_org_id,
27 p_organization_id => l_organization_id);
28 END IF;
29 --MOAC end
30 END set_okc_org_context;
31
32 -- Procedure set_okc_org_context(p_chr_id IN NUMBER)
33 -- Procedure sets the okc context values for Multi Org. These org values are obtained from the okc_k_headers_v
34 -- for the chr_id passed in.
35
36 PROCEDURE set_okc_org_context(p_chr_id IN NUMBER) IS
37 BEGIN
38 okc_context.set_okc_org_context(p_chr_id => p_chr_id);
39 END set_okc_org_context;
40
41 -- Function get_okc_organization_id RETURN NUMBER
42 -- Returns the Inventory organization id.
43
44 FUNCTION get_okc_organization_id RETURN NUMBER IS
45 BEGIN
46 RETURN(sys_context('OKC_CONTEXT','ORGANIZATION_ID'));
47 END get_okc_organization_id;
48
49 -- Function get_okc_org_id RETURN NUMBER
50 -- Returns the org_id.
51
52 FUNCTION get_okc_org_id RETURN NUMBER IS
53 BEGIN
54 RETURN(mo_global.get_current_org_id);
55 END get_okc_org_id;
56
57 END okl_context;