1 PACKAGE BODY PA_FUND_REVAL_UTIL AS
2 --$Header: PAXFRUTB.pls 120.0.12000000.2 2007/03/22 14:45:58 rgandhi ship $
3
4 /*----------------------------------------------------------------------------------------+
5 | Procedure : log_message |
6 | Purpose : To write log message as supplied by the process |
7 | Parameters : |
8 | ================================================================================== |
9 | Name Mode Description |
10 | ================================================================================== |
11 | p_message IN Message to be logged |
12 | ================================================================================== |
13 +----------------------------------------------------------------------------------------*/
14
15
16 PROCEDURE log_message(p_message IN VARCHAR2) IS
17
18 BEGIN
19
20 pa_debug.log_message (p_message =>p_message);
21
22 END log_message;
23
24 -- Function : Valid_Include_Gains_Losses
25 -- Parameters : Org_Id
26 -- Purpose : Function to check whether user can modify
27 -- include gains and losses option or not
28 -- If the function returns Y then user should not able to
29 -- Modify it.
30 -- This should be called only when disable the option
31
32 FUNCTION Valid_Include_Gains_Losses(p_org_id IN NUMBER) RETURN VARCHAR2 IS
33 l_flag VARCHAR2(1):='N';
34 BEGIN
35 -- Check project type level
36 BEGIN
37 SELECT 'Y' INTO l_flag
38 FROM DUAL
39 WHERE exists (SELECT NULL FROM
40 PA_PROJECT_TYPES_ALL
41 WHERE org_id = p_org_id
42 /* WHERE NVL(org_id,-99) = NVL(p_org_id,-99) Bug 5900353*/
43 AND NVL(include_gains_losses_flag,'N') ='Y');
44
45 EXCEPTION
46 WHEN NO_DATA_FOUND THEN
47 l_flag := 'N';
48 END;
49
50 IF l_flag ='Y' THEN
51
52 RETURN l_flag;
53
54 END IF;
55
56 -- Check project level
57 BEGIN
58 SELECT 'Y' INTO l_flag
59 FROM DUAL
60 WHERE exists (SELECT NULL FROM
61 PA_PROJECTS_ALL
62 WHERE org_id = p_org_id
63 /* WHERE NVL(org_id,-99) = NVL(p_org_id,-99) Bug 5900353*/
64 AND NVL(include_gains_losses_flag,'N') ='Y');
65 EXCEPTION
66 WHEN NO_DATA_FOUND THEN
67 l_flag := 'N';
68 END;
69
70 IF l_flag ='Y' THEN
71
72 RETURN l_flag;
73
74 END IF;
75
76 -- Check events level
77 BEGIN
78 SELECT 'Y' INTO l_flag
79 FROM DUAL
80 WHERE exists (SELECT NULL FROM
81 PA_EVENTS evt, PA_PROJECTS_ALL pr,
82 PA_EVENT_TYPES evttyp
83 WHERE pr.org_id = p_org_id
84 /* WHERE NVL(pr.org_id,-99) = NVL(p_org_id,-99) Bug 5900353 */
85 AND evt.project_id = pr.project_id
86 AND evt.event_type = evttyp.event_type
87 AND evttyp.event_type_classification in
88 ('REALIZED_GAINS','REALIZED_LOSSES'));
89 EXCEPTION
90 WHEN NO_DATA_FOUND THEN
91 l_flag := 'N';
92 END;
93
94 return l_flag;
95
96 END Valid_Include_Gains_Losses;
97 -- Function : Is_Ou_Include_Gains_Losses
98 -- Parameters : Org_Id
99 -- Purpose : Function to get the OU level include gains and
100 -- losses option Value
101
102 FUNCTION Is_OU_Include_Gains_Losses(p_org_id IN NUMBER) RETURN VARCHAR2 IS
103 l_flag VARCHAR2(1):='N';
104 BEGIN
105 BEGIN
106 SELECT NVL(imp.include_gains_losses_flag,'N')
107 INTO l_flag
108 FROM PA_IMPLEMENTATIONS_ALL imp
109 WHERE imp.org_id = p_org_id;
110 /* WHERE NVL(imp.org_id,-99) = NVL(p_org_id,-99);Bug 5900353 */
111
112 EXCEPTION
113 WHEN NO_DATA_FOUND THEN
114 l_flag :='N';
115 END;
116
117 RETURN l_flag;
118
119 END Is_Ou_Include_Gains_Losses;
120 -- Function : Is_PT_Include_Gains_Losses
121 -- Parameters : Org_Id, Project Type
122 -- Purpose : Function to get the Project Type include gains and
123 -- losses option Value
124 FUNCTION Is_PT_Include_Gains_Losses(p_org_id IN NUMBER,p_project_type IN VARCHAR2) RETURN VARCHAR2 IS
125 l_flag VARCHAR2(1):='N';
126 BEGIN
127 BEGIN
128 SELECT NVL(pt.include_gains_losses_flag,'N')
129 INTO l_flag
130 FROM PA_PROJECT_TYPES_ALL pt
131 WHERE pt.org_id = p_org_id
132 /* WHERE NVL(pt.org_id,-99) = NVL(p_org_id,-99)Bug 5900353 */
133 AND pt.project_type = p_project_type;
134
135 EXCEPTION
136 WHEN NO_DATA_FOUND THEN
137 l_flag :='N';
138 END;
139
140 RETURN l_flag;
141
142 END Is_PT_Include_Gains_Losses;
143
144 -- Function : Is_Ar_Installed
145 -- Parameters : None
146
147 FUNCTION Is_AR_Installed RETURN VARCHAR2 IS
148 l_installed VARCHAR2(1):= 'N';
149 BEGIN
150 l_installed := PA_OUTPUT_TAX.IS_AR_INSTALLED( P_Check_prod_installed=>'Y',
151 P_Check_org_installed=>'Y');
152
153 RETURN(l_installed);
154
155 END Is_Ar_Installed;
156
157 -- Function : Get_Ar_Application_Id
158 -- Parameters : None
159
160 FUNCTION Get_AR_Application_Id RETURN NUMBER IS
161
162 l_ar_app_id NUMBER:=222;
163
164 BEGIN
165
166 return(l_ar_app_id);
167
168 END Get_AR_Application_ID;
169
170 END PA_FUND_REVAL_UTIL;