PACKAGE BODY: APPS.OKL_STREAMS_SEC_PVT

Source

1 PACKAGE BODY OKL_STREAMS_SEC_PVT AS
2 /* $Header: OKLSSECB.pls 120.1 2010/10/28 23:08:22 sechawla noship $ */
3 
4   G_REQUIRED_VALUE       CONSTANT VARCHAR2(200) := 'OKL_REQUIRED_VALUE';
5   G_COL_NAME_TOKEN       CONSTANT VARCHAR2(200) := OKL_API.G_COL_NAME_TOKEN;
6   G_REPORT_STREAMS_YN    VARCHAR2(1) := 'N';
7 
8 -- Start of comments
9 --
10 -- Procedure Name       : STREAMS_REPO_POLICY
11 -- Description          : Creates predicate for multi GAAP reporting policy
12 -- Business Rules       :
13 -- Parameters           : p_owner and p_obj_name
14 -- Version              : 1.0
15 -- History              : APAUL -- Created
16 -- End of comments
17 
18     FUNCTION STREAMS_REPO_POLICY (
19                           p_owner         IN          VARCHAR2,
20                           p_obj_name      IN          VARCHAR2)
21     RETURN VARCHAR2 AS
22       l_predicate VARCHAR2 (200);
23     BEGIN
24       IF G_REPORT_STREAMS_YN = 'Y' THEN
25          l_predicate := 'REPO_FLAG = ''Y''';
26       ELSE
27          l_predicate := 'REPO_FLAG = ''N''';
28       END IF;
29       RETURN (l_predicate);
30     END STREAMS_REPO_POLICY;
31 
32 
33 -- Start of comments
34 --
35 -- Procedure Name       : SET_REPO_STREAMS
36 -- Description          : Sets the reporting strram indicator
37 -- Business Rules       :
38 -- Version              : 1.0
39 -- History              : APAUL -- Created
40 -- End of comments
41 
42     PROCEDURE SET_REPO_STREAMS AS
43     BEGIN
44        G_REPORT_STREAMS_YN := 'Y';
45     END;
46 
47 
48 -- Start of comments
49 --
50 -- Procedure Name       : RESET_REPO_STREAMS
51 -- Description          : Resets the reporting strram indicator
52 -- Business Rules       :
53 -- Version              : 1.0
54 -- History              : APAUL -- Created
55 -- End of comments
56 
57     PROCEDURE RESET_REPO_STREAMS AS
58     BEGIN
59        G_REPORT_STREAMS_YN := 'N';
60     END;
61 
62     FUNCTION GET_STREAMS_POLICY RETURN VARCHAR2 IS
63     BEGIN
64       IF G_REPORT_STREAMS_YN = 'Y' THEN
65         return('REPORT');
66       ELSE
67         return('PRIMARY');
68       END IF;
69     END;
70 
71 END;