PACKAGE BODY: APPS.PA_CHNGE_DOC_POLICY_PVT

Source

1 PACKAGE BODY PA_CHNGE_DOC_POLICY_PVT AS
2 --$Header: PACIPOLB.pls 120.2.12010000.2 2009/10/06 13:17:38 jravisha noship $
3 
4   G_CHNGE_DOC_VERS_YN    VARCHAR2(1) := 'Y';
5   G_SUPP_AUDT_FLAG_YN    VARCHAR2(1) := 'Y';
6 
7 -- Start of comments
8 --
9 -- Procedure Name       : SUPP_AUDT_POLICY
10 -- Description          : Creates predicate for Change doc versioning
11 -- Business Rules       :
12 -- Parameters           : p_owner and p_obj_name
13 -- Version              : 1.0
14 -- History              : smereddy -- Created
15 -- End of comments
16 
17     FUNCTION SUPP_AUDT_POLICY (
18                           p_owner         IN          VARCHAR2,
19                           p_obj_name      IN          VARCHAR2)
20     RETURN VARCHAR2 AS
21       l_predicate VARCHAR2 (200);
22     BEGIN
23       IF G_SUPP_AUDT_FLAG_YN = 'Y' THEN
24          l_predicate := 'CURRENT_AUDIT_FLAG = ''Y''';
25       ELSE
26          l_predicate := 'CURRENT_AUDIT_FLAG = ''N''';
27       END IF;
28       RETURN (l_predicate);
29     END SUPP_AUDT_POLICY;
30 
31 -- Start of comments
32 --
33 -- Procedure Name       : SET_CHNGE_DOC_VERS
34 -- Description          : Sets policy context for cd versioning
35 -- Business Rules       :
36 -- Version              : 1.0
37 -- History              : smereddy -- Created
38 -- End of comments
39 
40     PROCEDURE SET_SUPP_AUDT AS
41     BEGIN
42        G_SUPP_AUDT_FLAG_YN := 'N';
43     END;
44 
45 
46 -- Start of comments
47 --
48 -- Procedure Name       : RESET_SUPP_AUDT
49 -- Description          : Resets the policy context for cd versioning
50 -- Business Rules       :
51 -- Version              : 1.0
52 -- History              : smereddy -- Created
53 -- End of comments
54 
55     PROCEDURE RESET_SUPP_AUDT AS
56     BEGIN
57        G_SUPP_AUDT_FLAG_YN := 'Y';
58     END;
59 
60     FUNCTION GET_SUPP_AUDT_POLICY RETURN VARCHAR2 IS
61     BEGIN
62       IF G_SUPP_AUDT_FLAG_YN = 'Y' THEN
63         return 'Y';
64       ELSE
65         return 'N';
66       END IF;
67     END;
68 
69 
70     FUNCTION CHNGE_DOC_VERS_POLICY (
71                           p_owner         IN          VARCHAR2,
72                           p_obj_name      IN          VARCHAR2)
73     RETURN VARCHAR2 AS
74       l_predicate VARCHAR2 (200);
75     BEGIN
76       IF G_CHNGE_DOC_VERS_YN = 'Y' THEN
77          l_predicate := 'CURRENT_VERSION_FLAG = ''Y''';
78       ELSE
79        IF G_CHNGE_DOC_VERS_YN = 'N' THEN
80          l_predicate := 'CURRENT_VERSION_FLAG = ''N''';
81          ELSE
82          l_predicate := 'CURRENT_VERSION_FLAG in (''N'',''Y'')';
83        END IF;
84       END IF;
85       RETURN (l_predicate);
86     END CHNGE_DOC_VERS_POLICY;
87 
88 -- Start of comments
89 --
90 -- Procedure Name       : SET_CHNGE_DOC_VERS
91 -- Description          : Sets policy context for cd versioning
92 -- Business Rules       :
93 -- Version              : 1.0
94 -- History              : smereddy -- Created
95 -- End of comments
96 
97     PROCEDURE SET_CHNGE_DOC_VERS AS
98     BEGIN
99        G_CHNGE_DOC_VERS_YN := 'N';
100     END;
101 
102 
103 -- Start of comments
104 --
105 -- Procedure Name       : RESET_CHNGE_DOC_VERS
106 -- Description          : Resets the policy context for cd versioning
107 -- Business Rules       :
108 -- Version              : 1.0
109 -- History              : smereddy -- Created
110 -- End of comments
111 
112     PROCEDURE RESET_CHNGE_DOC_VERS AS
113     BEGIN
114        G_CHNGE_DOC_VERS_YN := 'Y';
115     END;
116 
117 -- Start of comments
118 --
119 -- Procedure Name       : ALL_CHNGE_DOC_VERS
120 -- Description          : Resets the policy context for cd versioning
121 -- Business Rules       :
122 -- Version              : 1.0
123 -- History              : jravisha  -- Created
124 -- End of comments
125 
126     PROCEDURE ALL_CHNGE_DOC_VERS AS
127     BEGIN
128        G_CHNGE_DOC_VERS_YN := 'A';
129     END;
130 
131 
132     FUNCTION GET_CHNGE_DOC_VERS_POLICY RETURN VARCHAR2 IS
133     BEGIN
134       IF G_CHNGE_DOC_VERS_YN = 'Y' THEN
135         return 'Y';
136       ELSE
137         return 'N';
138       END IF;
139     END;
140 
141 END PA_CHNGE_DOC_POLICY_PVT;