[Home] [Help]
PACKAGE BODY: APPS.AP_WEB_DB_PA_INT_PKG
Source
1 PACKAGE BODY AP_WEB_DB_PA_INT_PKG AS
2 /* $Header: apwdbpab.pls 120.6 2005/11/04 19:16:36 skoukunt noship $ */
3
4 /* PA Integration */
5 -------------------------------------------------------------------
6 FUNCTION GetProjectNumber(
7 p_project_id IN proj_projID,
8 p_project_number OUT NOCOPY proj_projNum
9 ) RETURN BOOLEAN IS
10 -------------------------------------------------------------------
11 BEGIN
12 select PROJECT_NUMBER
13 into p_project_number
14 from PA_PROJECTS_EXPEND_V
15 where PROJECT_ID = p_project_id;
16
17 RETURN TRUE;
18
19 EXCEPTION
20
21 WHEN NO_DATA_FOUND THEN
22 RETURN FALSE;
23
24 WHEN OTHERS THEN
25 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetProjectNumber' );
26 APP_EXCEPTION.RAISE_EXCEPTION;
27 return FALSE;
28
29 END GetProjectNumber;
30
31 -------------------------------------------------------------------
32 FUNCTION GetProjectInfo(
33 p_project_number IN proj_projNum,
34 p_project_id OUT NOCOPY proj_projID,
35 p_project_name OUT NOCOPY proj_projName
36 ) RETURN BOOLEAN IS
37 -------------------------------------------------------------------
38 BEGIN
39 select PROJECT_ID, PROJECT_NAME
40 into p_project_id, p_project_name
41 from PA_PROJECTS_EXPEND_V
42 where PROJECT_NUMBER = p_project_number;
43
44 RETURN TRUE;
45 EXCEPTION
46
47 WHEN NO_DATA_FOUND THEN
48 RETURN FALSE;
49
50 WHEN OTHERS THEN
51 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetProjectInfo' );
52 APP_EXCEPTION.RAISE_EXCEPTION;
53 return FALSE;
54
55 END GetProjectInfo;
56
57 -------------------------------------------------------------------
58 FUNCTION GetTaskInfo(
59 p_task_num IN tasks_taskNum,
60 p_proj_id IN tasks_projID,
61 p_task_id OUT NOCOPY tasks_taskID,
62 p_task_name OUT NOCOPY tasks_taskName
63 ) RETURN BOOLEAN IS
64 -------------------------------------------------------------------
65 BEGIN
66 SELECT task_id, task_name
67 INTO p_task_id, p_task_name
68 FROM pa_tasks_expend_v
69 WHERE project_id = p_proj_id
70 AND task_number = p_task_num;
71
72 return TRUE;
73
74 EXCEPTION
75
76 WHEN NO_DATA_FOUND THEN
77 RETURN FALSE;
78
79 WHEN OTHERS THEN
80 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetTaskInfo' );
81 APP_EXCEPTION.RAISE_EXCEPTION;
82 return FALSE;
83
84 END GetTaskInfo;
85
86 -------------------------------------------------------------------
87 FUNCTION GetTaskIDByProjID(
88 p_project_id IN tasks_projID,
89 p_task_id OUT NOCOPY tasks_taskID
90 ) RETURN BOOLEAN IS
91 -------------------------------------------------------------------
92 BEGIN
93 select TASK_ID
94 into p_task_id
95 from PA_TASKS_EXPEND_V
96 where PROJECT_ID = p_project_id;
97
98 return TRUE;
99
100 EXCEPTION
101
102 WHEN NO_DATA_FOUND THEN
103 RETURN FALSE;
104
105 WHEN OTHERS THEN
106 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetTaskIDByProjID' );
107 APP_EXCEPTION.RAISE_EXCEPTION;
108 return FALSE;
109
110 END GetTaskIDByProjID;
111
112
113 --------------------------------------------------------------------------------
114 FUNCTION GetTaskId(
115 p_task_num IN tasks_taskNum,
116 p_proj_id IN tasks_projID,
117 p_task_id OUT NOCOPY tasks_taskID
118 ) RETURN BOOLEAN IS
119 -------------------------------------------------------------------
120 BEGIN
121 SELECT task_id
122 INTO p_task_id
123 FROM pa_tasks_expend_v
124 WHERE project_id = p_proj_id
125 AND task_number = p_task_num;
126
127 return TRUE;
128
129 EXCEPTION
130
131 WHEN NO_DATA_FOUND THEN
132 RETURN FALSE;
133
134 WHEN OTHERS THEN
135 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetTaskId' );
136 APP_EXCEPTION.RAISE_EXCEPTION;
137 return FALSE;
138
139 END GetTaskId;
140
141
142 -------------------------------------------------------------------
143 FUNCTION GetProjectID(
144 p_project_number IN proj_projNum,
145 p_project_id OUT NOCOPY proj_projID
146 ) RETURN BOOLEAN IS
147 -------------------------------------------------------------------
148 BEGIN
149 select PROJECT_ID
150 into p_project_id
151 from PA_PROJECTS_EXPEND_V
152 where PROJECT_NUMBER = p_project_number;
153
154 RETURN TRUE;
155 EXCEPTION
156
157 WHEN NO_DATA_FOUND THEN
158 RETURN FALSE;
159
160 WHEN OTHERS THEN
161 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetProjectID' );
162 APP_EXCEPTION.RAISE_EXCEPTION;
163 return FALSE;
164
165 END GetProjectID;
166
167 -------------------------------------------------------------------
168 FUNCTION GetProjectNumber(
169 p_project_id IN proj_projID
170 ) RETURN VARCHAR2 IS
171 -------------------------------------------------------------------
172 l_project_number PA_PROJECTS_ALL.segment1%type;
173 BEGIN
174 select segment1 --project number
175 into l_project_number
176 from PA_PROJECTS_ALL
177 where project_id = p_project_id;
178
179 RETURN l_project_number;
180 EXCEPTION
181
182 WHEN OTHERS THEN
183 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetProjectNumber' );
184 APP_EXCEPTION.RAISE_EXCEPTION;
185
186 END GetProjectNumber;
187
188 -------------------------------------------------------------------
189 FUNCTION GetProjectInfo(
190 p_project_id IN proj_projID,
191 p_project_number OUT NOCOPY proj_projNum,
192 p_project_name OUT NOCOPY proj_projName
193 ) RETURN BOOLEAN IS
194 -------------------------------------------------------------------
195 BEGIN
196 select segment1, name
197 into p_project_number, p_project_name
198 from pa_projects_all
199 where project_id = p_project_id;
200
201 RETURN TRUE;
202 EXCEPTION
203
204 WHEN NO_DATA_FOUND THEN
205 RETURN FALSE;
206
207 WHEN OTHERS THEN
208 AP_WEB_DB_UTIL_PKG.RaiseException( 'GetProjectInfo' );
209 APP_EXCEPTION.RAISE_EXCEPTION;
210 return FALSE;
211
212 END GetProjectInfo;
213
214 END AP_WEB_DB_PA_INT_PKG;