[Home] [Help]
PACKAGE BODY: APPS.PA_PERCENT_COMPLETES_PKG
Source
1 package body PA_PERCENT_COMPLETES_PKG as
2 /* $Header: PAPCPKGB.pls 120.1 2005/08/05 03:38:26 lveerubh noship $*/
3
4 procedure INSERT_ROW( p_TASK_ID IN NUMBER,
5 p_DATE_COMPUTED IN DATE,
6 p_LAST_UPDATE_DATE IN DATE,
7 p_LAST_UPDATED_BY IN NUMBER,
8 p_CREATION_DATE IN DATE,
9 p_CREATED_BY IN NUMBER,
10 p_LAST_UPDATE_LOGIN IN NUMBER,
11 p_COMPLETED_PERCENTAGE IN NUMBER,
12 p_DESCRIPTION IN VARCHAR2,
13 p_PROJECT_ID IN NUMBER,
14 p_PM_PRODUCT_CODE IN VARCHAR2,
15 p_CURRENT_FLAG IN VARCHAR2,
16 p_OBJECT_TYPE IN VARCHAR2,
17 p_OBJECT_ID IN NUMBER,
18 p_OBJECT_VERSION_ID IN NUMBER,
19 p_PROGRESS_STATUS_CODE IN VARCHAR2,
20 p_ACTUAL_START_DATE IN DATE,
21 p_ACTUAL_FINISH_DATE IN DATE,
22 p_ESTIMATED_START_DATE IN DATE,
23 p_ESTIMATED_FINISH_DATE IN DATE,
24 p_PUBLISHED_FLAG IN VARCHAR2,
25 p_PUBLISHED_BY_PARTY_ID IN NUMBER,
26 p_PROGRESS_COMMENT IN VARCHAR2,
27 p_HISTORY_FLAG IN VARCHAR2,
28 p_status_code IN VARCHAR2,
29 x_PERCENT_COMPLETE_ID IN OUT NOCOPY NUMBER
30 ,p_ATTRIBUTE_CATEGORY IN VARCHAR2
31 ,p_ATTRIBUTE1 IN VARCHAR2
32 ,p_ATTRIBUTE2 IN VARCHAR2
33 ,p_ATTRIBUTE3 IN VARCHAR2
34 ,p_ATTRIBUTE4 IN VARCHAR2
35 ,p_ATTRIBUTE5 IN VARCHAR2
36 ,p_ATTRIBUTE6 IN VARCHAR2
37 ,p_ATTRIBUTE7 IN VARCHAR2
38 ,p_ATTRIBUTE8 IN VARCHAR2
39 ,p_ATTRIBUTE9 IN VARCHAR2
40 ,p_ATTRIBUTE10 IN VARCHAR2
41 ,p_ATTRIBUTE11 IN VARCHAR2
42 ,p_ATTRIBUTE12 IN VARCHAR2
43 ,p_ATTRIBUTE13 IN VARCHAR2
44 ,p_ATTRIBUTE14 IN VARCHAR2
45 ,p_ATTRIBUTE15 IN VARCHAR2
46 ,p_structure_type IN VARCHAR2
47 ) IS
48 l_percent_complete_id NUMBER;
49 BEGIN
50 l_percent_complete_id := x_percent_complete_id;
51 IF l_PERCENT_COMPLETE_ID IS NULL
52 THEN
53 select PA_PERCENT_COMPLETES_S.nextval
54 into l_percent_complete_id
55 from dual;
56 END IF;
57 insert into pa_percent_completes(TASK_ID,
58 DATE_COMPUTED,
59 LAST_UPDATE_DATE,
60 LAST_UPDATED_BY,
61 CREATION_DATE,
62 CREATED_BY,
63 LAST_UPDATE_LOGIN,
64 COMPLETED_PERCENTAGE,
65 DESCRIPTION,
66 PROJECT_ID,
67 PM_PRODUCT_CODE,
68 CURRENT_FLAG,
69 PERCENT_COMPLETE_ID,
70 object_VERSION_ID,
71 OBJECT_TYPE,
72 OBJECT_id,
73 PROGRESS_STATUS_CODE,
74 ACTUAL_START_DATE,
75 ACTUAL_FINISH_DATE,
76 ESTIMATED_START_DATE,
77 ESTIMATED_FINISH_DATE,
78 PUBLISHED_FLAG,
79 published_BY_party_ID,
80 PROGRESS_COMMENT,
81 history_flag,
82 status_code,
83 RECORD_VERSION_NUMBER
84 ,ATTRIBUTE_CATEGORY
85 ,ATTRIBUTE1
86 ,ATTRIBUTE2
87 ,ATTRIBUTE3
88 ,ATTRIBUTE4
89 ,ATTRIBUTE5
90 ,ATTRIBUTE6
91 ,ATTRIBUTE7
92 ,ATTRIBUTE8
93 ,ATTRIBUTE9
94 ,ATTRIBUTE10
95 ,ATTRIBUTE11
96 ,ATTRIBUTE12
97 ,ATTRIBUTE13
98 ,ATTRIBUTE14
99 ,ATTRIBUTE15
100 ,structure_type
101 ) values
102 ( p_TASK_ID,
103 p_DATE_COMPUTED,
104 p_LAST_UPDATE_DATE,
105 p_LAST_UPDATED_BY,
106 p_CREATION_DATE,
107 p_CREATED_BY,
108 p_LAST_UPDATE_LOGIN,
109 p_COMPLETED_PERCENTAGE,
110 p_DESCRIPTION,
111 p_PROJECT_ID,
112 p_PM_PRODUCT_CODE,
113 p_CURRENT_FLAG,
114 l_percent_complete_id,
115 p_object_VERSION_ID,
116 p_OBJECT_TYPE,
117 p_OBJECT_ID,
118 p_PROGRESS_STATUS_CODE,
119 p_ACTUAL_START_DATE,
120 p_ACTUAL_FINISH_DATE,
121 p_ESTIMATED_START_DATE,
122 p_ESTIMATED_FINISH_DATE,
123 p_published_FLAG,
124 p_published_BY_party_ID,
125 p_PROGRESS_COMMENT,
126 p_history_flag,
127 p_status_code,
128 1
129 ,p_ATTRIBUTE_CATEGORY
130 ,p_ATTRIBUTE1
131 ,p_ATTRIBUTE2
132 ,p_ATTRIBUTE3
133 ,p_ATTRIBUTE4
134 ,p_ATTRIBUTE5
135 ,p_ATTRIBUTE6
136 ,p_ATTRIBUTE7
137 ,p_ATTRIBUTE8
138 ,p_ATTRIBUTE9
139 ,p_ATTRIBUTE10
140 ,p_ATTRIBUTE11
141 ,p_ATTRIBUTE12
142 ,p_ATTRIBUTE13
143 ,p_ATTRIBUTE14
144 ,p_ATTRIBUTE15
145 ,p_structure_type
146 );
147 x_percent_complete_id := l_percent_complete_id;
148 exception when others then
149 x_percent_complete_id := NULL;
150 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PERCENT_COMPLETES_PKG',
151 p_procedure_name => 'INSERT_ROW',
152 p_error_text => SUBSTRB(SQLERRM,1,240));
153 raise;
154 End;
155
156 procedure UPDATE_ROW( p_task_id IN NUMBER,
157 p_DATE_COMPUTED IN DATE,
158 p_LAST_UPDATE_DATE IN DATE,
159 p_LAST_UPDATED_BY IN NUMBER,
160 p_LAST_UPDATE_LOGIN IN NUMBER,
161 p_COMPLETED_PERCENTAGE IN NUMBER,
162 p_DESCRIPTION IN VARCHAR2,
163 p_PM_PRODUCT_CODE IN VARCHAR2,
164 p_CURRENT_FLAG IN VARCHAR2,
165 p_PERCENT_COMPLETE_ID IN NUMBER,
166 p_project_id IN NUMBER,
167 p_OBJECT_TYPE IN VARCHAR2,
168 p_OBJECT_ID IN NUMBER,
169 p_OBJECT_VERSION_ID IN NUMBER,
170 p_PROGRESS_STATUS_CODE IN VARCHAR2,
171 p_ACTUAL_START_DATE IN DATE,
172 p_ACTUAL_FINISH_DATE IN DATE,
173 p_ESTIMATED_START_DATE IN DATE,
174 p_ESTIMATED_FINISH_DATE IN DATE,
175 p_PUBLISHED_FLAG IN VARCHAR2,
176 p_PUBLISHED_BY_PARTY_ID IN NUMBER,
177 p_PROGRESS_COMMENT IN VARCHAR2,
178 p_HISTORY_FLAG IN VARCHAR2,
179 p_status_code IN VARCHAR2,
180 p_RECORD_VERSION_NUMBER IN NUMBER
181 ,p_ATTRIBUTE_CATEGORY IN VARCHAR2
182 ,p_ATTRIBUTE1 IN VARCHAR2
183 ,p_ATTRIBUTE2 IN VARCHAR2
184 ,p_ATTRIBUTE3 IN VARCHAR2
185 ,p_ATTRIBUTE4 IN VARCHAR2
186 ,p_ATTRIBUTE5 IN VARCHAR2
187 ,p_ATTRIBUTE6 IN VARCHAR2
188 ,p_ATTRIBUTE7 IN VARCHAR2
189 ,p_ATTRIBUTE8 IN VARCHAR2
190 ,p_ATTRIBUTE9 IN VARCHAR2
191 ,p_ATTRIBUTE10 IN VARCHAR2
192 ,p_ATTRIBUTE11 IN VARCHAR2
193 ,p_ATTRIBUTE12 IN VARCHAR2
194 ,p_ATTRIBUTE13 IN VARCHAR2
195 ,p_ATTRIBUTE14 IN VARCHAR2
196 ,p_ATTRIBUTE15 IN VARCHAR2
197 ,p_structure_type IN VARCHAR2
198 ) IS
199
200 BEGIN
201 update pa_percent_completes
202 set
203 OBJECT_VERSION_ID = decode(P_OBJECT_VERSION_ID,FND_API.G_MISS_NUM,OBJECT_VERSION_ID,P_OBJECT_VERSION_ID),
204 OBJECT_TYPE = decode(p_OBJECT_TYPE,FND_API.G_MISS_CHAR,OBJECT_TYPE,p_OBJECT_TYPE),
205 OBJECT_ID = decode(p_OBJECT_ID,FND_API.G_MISS_NUM,OBJECT_ID,p_OBJECT_ID),
206 task_ID = decode(p_task_ID,FND_API.G_MISS_NUM,task_ID,p_task_ID),
207 project_ID = decode(p_project_ID,FND_API.G_MISS_NUM,project_ID,p_project_ID),
208 DATE_COMPUTED = decode(p_DATE_COMPUTED,FND_API.G_MISS_DATE,DATE_COMPUTED,p_DATE_COMPUTED),
209 LAST_UPDATE_DATE = p_LAST_UPDATE_DATE,
210 LAST_UPDATED_BY = p_LAST_UPDATED_BY,
211 LAST_UPDATE_LOGIN = p_LAST_UPDATE_LOGIN,
212 COMPLETED_PERCENTAGE = decode(p_COMPLETED_PERCENTAGE,FND_API.G_MISS_NUM,COMPLETED_PERCENTAGE,p_COMPLETED_PERCENTAGE),
213 DESCRIPTION = decode(p_DESCRIPTION,FND_API.G_MISS_CHAR,DESCRIPTION,p_DESCRIPTION),
214 CURRENT_FLAG = decode(p_CURRENT_FLAG,FND_API.G_MISS_CHAR,CURRENT_FLAG,p_CURRENT_FLAG),
215 PROGRESS_STATUS_CODE = decode(p_PROGRESS_STATUS_CODE,FND_API.G_MISS_CHAR,PROGRESS_STATUS_CODE,p_PROGRESS_STATUS_CODE),
216 ACTUAL_START_DATE = decode(p_ACTUAL_START_DATE,FND_API.G_MISS_DATE,ACTUAL_START_DATE,p_ACTUAL_START_DATE),
217 ACTUAL_FINISH_DATE = decode(p_ACTUAL_FINISH_DATE,FND_API.G_MISS_DATE,ACTUAL_FINISH_DATE,p_ACTUAL_FINISH_DATE),
218 ESTIMATED_START_DATE = decode(p_ESTIMATED_START_DATE,FND_API.G_MISS_DATE,ESTIMATED_START_DATE,p_ESTIMATED_START_DATE),
219 ESTIMATED_FINISH_DATE = decode(p_ESTIMATED_FINISH_DATE,FND_API.G_MISS_DATE,ESTIMATED_FINISH_DATE,p_ESTIMATED_FINISH_DATE),
220 published_FLAG = decode(p_published_FLAG,FND_API.G_MISS_CHAR,published_FLAG,p_published_FLAG),
221 PUBLISHED_BY_PARTY_ID = decode(PUBLISHED_BY_PARTY_ID,FND_API.G_MISS_NUM,PUBLISHED_BY_PARTY_ID,p_PUBLISHED_BY_PARTY_ID),
222 PROGRESS_COMMENT = decode(p_PROGRESS_COMMENT,FND_API.G_MISS_CHAR,PROGRESS_COMMENT,p_PROGRESS_COMMENT),
223 HISTORY_FLAG = decode(p_HISTORY_FLAG,FND_API.G_MISS_CHAR,HISTORY_FLAG,p_HISTORY_FLAG),
224 status_code = decode(p_status_code,FND_API.G_MISS_CHAR,status_code,p_status_code),
225 RECORD_VERSION_NUMBER = RECORD_VERSION_NUMBER + 1
226 ,ATTRIBUTE_CATEGORY = DECODE( P_ATTRIBUTE_CATEGORY, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
227 ATTRIBUTE_CATEGORY, P_ATTRIBUTE_CATEGORY )
228 ,ATTRIBUTE1 = DECODE( P_ATTRIBUTE1, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
229 ATTRIBUTE1, P_ATTRIBUTE1 )
230 ,ATTRIBUTE2 = DECODE( P_ATTRIBUTE2, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
231 ATTRIBUTE2, P_ATTRIBUTE2 )
232 ,ATTRIBUTE3 = DECODE( P_ATTRIBUTE3, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
233 ATTRIBUTE3, P_ATTRIBUTE3 )
234 ,ATTRIBUTE4 = DECODE( P_ATTRIBUTE4, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
235 ATTRIBUTE4, P_ATTRIBUTE4 )
236 ,ATTRIBUTE5 = DECODE( P_ATTRIBUTE5, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
237 ATTRIBUTE5, P_ATTRIBUTE5 )
238 ,ATTRIBUTE6 = DECODE( P_ATTRIBUTE6, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
239 ATTRIBUTE6, P_ATTRIBUTE6 )
240 ,ATTRIBUTE7 = DECODE( P_ATTRIBUTE7, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
241 ATTRIBUTE7, P_ATTRIBUTE7 )
242 ,ATTRIBUTE8 = DECODE( P_ATTRIBUTE8, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
243 ATTRIBUTE8, P_ATTRIBUTE8 )
244 ,ATTRIBUTE9 = DECODE( P_ATTRIBUTE9, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
245 ATTRIBUTE9, P_ATTRIBUTE9 )
246 ,ATTRIBUTE10 = DECODE( P_ATTRIBUTE10, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
247 ATTRIBUTE10, P_ATTRIBUTE10 )
248 ,ATTRIBUTE11 = DECODE( P_ATTRIBUTE11, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
249 ATTRIBUTE11, P_ATTRIBUTE11 )
250 ,ATTRIBUTE12 = DECODE( P_ATTRIBUTE12, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
251 ATTRIBUTE12, P_ATTRIBUTE12 )
252 ,ATTRIBUTE13 = DECODE( P_ATTRIBUTE13, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
253 ATTRIBUTE13, P_ATTRIBUTE13 )
254 ,ATTRIBUTE14 = DECODE( P_ATTRIBUTE14, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
255 ATTRIBUTE14, P_ATTRIBUTE14 )
256 ,ATTRIBUTE15 = DECODE( P_ATTRIBUTE15, PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
257 ATTRIBUTE15, P_ATTRIBUTE15 )
258 ,structure_type = DECODE( p_structure_type,PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR,
259 structure_type,p_structure_type)
260
261 where percent_complete_id = p_percent_complete_id
262 and record_version_number = p_record_version_number;
263
264 if (sql%notfound) then
265 fnd_message.set_name('PA','PA_XC_RECORD_CHANGED');
266 fnd_msg_pub.add;
267 end if;
268
269 exception when others then
270 fnd_msg_pub.add_exc_msg(p_pkg_name => 'PA_PERCENT_COMPLETES_PKG',
271 p_procedure_name => 'UPDATE_ROW',
272 p_error_text => SUBSTRB(SQLERRM,1,240));
273 raise;
274 End UPDATE_ROW;
275
276 Procedure DELETE_ROW(
277 p_row_id VARCHAR2 ) IS
278 BEGIN
279 DELETE FROM pa_percent_completes
280 WHERE rowid = p_row_id;
281 END DELETE_ROW;
282
283 end;
284