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