eTRM uses javascript that opens and focuses a separate window to display reports. Your browser does not appear to support javascript. This should not prevent you from using eTRM but it does mean the window focus feature will not work. Please check the contents of other windows on your desktop if you click on a link that does not appear to do anything.
PACKAGE BODY: APPS.PA_PROJ_ELEMENTS_PKG

Source


1 PACKAGE BODY PA_PROJ_ELEMENTS_PKG AS
2 /* $Header: PATSKT1B.pls 120.4.12020000.2 2012/07/19 10:00:47 admarath ship $ */
3 
4 PROCEDURE Insert_Row(
5 X_ROW_ID                IN OUT   NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_PROJ_ELEMENT_ID       IN OUT	NOCOPY NUMBER, --File.Sql.39 bug 4440895
7 X_PROJECT_ID	      IN    NUMBER,
8 X_OBJECT_TYPE	      IN    VARCHAR2,
9 X_ELEMENT_NUMBER        IN	VARCHAR2,
10 X_NAME                  IN	VARCHAR2,
11 X_DESCRIPTION	      IN    VARCHAR2,
12 X_STATUS_CODE	      IN    VARCHAR2,
13 X_WF_STATUS_CODE        IN	VARCHAR2,
14 X_PM_PRODUCT_CODE       IN	VARCHAR2,
15 X_PM_TASK_REFERENCE     IN	VARCHAR2,
16 X_CLOSED_DATE	      IN    DATE,
17 X_LOCATION_ID	      IN    NUMBER,
18 X_MANAGER_PERSON_ID	IN    NUMBER,
19 X_CARRYING_OUT_ORGANIZATION_ID            IN NUMBER,
20 X_TYPE_ID  	            IN    NUMBER,
21 X_PRIORITY_CODE 	      IN    VARCHAR2,
22 X_INC_PROJ_PROGRESS_FLAG  IN	VARCHAR2,
23 X_REQUEST_ID	        IN  NUMBER,
24 X_PROGRAM_APPLICATION_ID  IN  NUMBER,
25 X_PROGRAM_ID	        IN  NUMBER,
26 X_PROGRAM_UPDATE_DATE	  IN  DATE,
27 X_LINK_TASK_FLAG          IN  VARCHAR2,
28 X_ATTRIBUTE_CATEGORY	  IN VARCHAR2,
29 X_ATTRIBUTE1	        IN VARCHAR2,
30 X_ATTRIBUTE2	        IN VARCHAR2,
31 X_ATTRIBUTE3	        IN VARCHAR2,
32 X_ATTRIBUTE4	        IN VARCHAR2,
33 X_ATTRIBUTE5	        IN VARCHAR2,
34 X_ATTRIBUTE6	        IN VARCHAR2,
35 X_ATTRIBUTE7	        IN VARCHAR2,
36 X_ATTRIBUTE8	        IN VARCHAR2,
37 X_ATTRIBUTE9	        IN VARCHAR2,
38 X_ATTRIBUTE10	        IN VARCHAR2,
39 X_ATTRIBUTE11	        IN VARCHAR2,
40 X_ATTRIBUTE12	        IN VARCHAR2,
41 X_ATTRIBUTE13	        IN VARCHAR2,
42 X_ATTRIBUTE14	        IN VARCHAR2,
43 X_ATTRIBUTE15	        IN VARCHAR2,
44  x_task_weighting_deriv_code  IN VARCHAR2,
45  x_work_item_code             IN VARCHAR2,
46  x_uom_code                   IN VARCHAR2,
47  x_wq_actual_entry_code       IN VARCHAR2,
48  x_task_progress_entry_page_id IN NUMBER,
49  x_parent_structure_id         IN NUMBER,
50  x_phase_code                  IN VARCHAR,
51  x_phase_version_id            IN NUMBER,
52  x_progress_weight             IN NUMBER :=NULL,             -- 3279978 :: Added x_progress_weight Parameter
53  x_function_code               IN VARCHAR2 := NULL,           -- 3279978 :: Added x_function_code Parameter
54  x_Base_Perc_Comp_Deriv_Code     IN      VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR, -- Added for FP_M changes 3305199
55 -- Bug#3491609 : Workflow Chanegs FP M
56 x_wf_item_type          IN VARCHAR2 :=NULL,
57 x_wf_process            IN VARCHAR2 :=NULL,
58 x_wf_lead_days          IN NUMBER :=NULL,
59 x_wf_enabled_flag       IN VARCHAR2 :=NULL,
60  -- Bug#3491609 : Workflow Chanegs FP M
61 x_source_object_id      IN NUMBER:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM,     --Bug No 3594635 SMukka
62 x_source_object_type    IN VARCHAR2:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR   --Bug No 3594635 SMukka
63 ,x_task_status_code      IN VARCHAR2 := NULL --Changes for 8566495 anuragag
64 ) IS
65     CURSOR cur_tasks_seq
66         IS
67           SELECT pa_tasks_s.nextval
68             FROM sys.dual;
69 
70 BEGIN
71      IF X_PROJ_ELEMENT_ID IS NULL
72      THEN
73         OPEN cur_tasks_seq;
74         FETCH cur_tasks_seq INTO X_PROJ_ELEMENT_ID;
75         CLOSE cur_tasks_seq;
76      END IF;
77      INSERT INTO pa_proj_elements(
78                   PROJ_ELEMENT_ID
79                  ,PROJECT_ID
80                  ,OBJECT_TYPE
81                  ,ELEMENT_NUMBER
82                  ,NAME
83                  ,DESCRIPTION
84                  ,STATUS_CODE
85                  ,WF_STATUS_CODE
86                  ,PM_SOURCE_CODE
87                  ,PM_SOURCE_REFERENCE
88                  ,CLOSED_DATE
89                  ,LOCATION_ID
90                  ,MANAGER_PERSON_ID
91                  ,CARRYING_OUT_ORGANIZATION_ID
92                  ,TYPE_ID
93                  ,PRIORITY_CODE
94                  ,INC_PROJ_PROGRESS_FLAG
95                  ,CREATION_DATE
96                  ,CREATED_BY
97                  ,LAST_UPDATE_DATE
98                  ,LAST_UPDATED_BY
99                  ,LAST_UPDATE_LOGIN
100                  ,RECORD_VERSION_NUMBER
101                  ,REQUEST_ID
102                  ,PROGRAM_APPLICATION_ID
103                  ,PROGRAM_ID
104                  ,PROGRAM_UPDATE_DATE
105                  ,LINK_TASK_FLAG
106                  ,ATTRIBUTE_CATEGORY
107                  ,ATTRIBUTE1
108                  ,ATTRIBUTE2
109                  ,ATTRIBUTE3
110                  ,ATTRIBUTE4
111                  ,ATTRIBUTE5
112                  ,ATTRIBUTE6
113                  ,ATTRIBUTE7
114                  ,ATTRIBUTE8
115                  ,ATTRIBUTE9
116                  ,ATTRIBUTE10
117                  ,ATTRIBUTE11
118                  ,ATTRIBUTE12
119                  ,ATTRIBUTE13
120                  ,ATTRIBUTE14
121                  ,ATTRIBUTE15
122 --                 ,task_weighting_deriv_code
123                  ,wq_item_code
124                  ,wq_uom_code
125                  ,wq_actual_entry_code
126                  ,task_progress_entry_page_id
127                  ,parent_structure_id
128                  ,phase_code
129                  ,phase_version_id
130                  ,progress_weight                   -- 3279978 :: Added x_progress_weight Parameter
131                  -- ,prog_rollup_method                -- 3279978 :: Added x_prog_rollup_method Parameter
132                  ,function_code                     -- 3279978 :: Added x_function_code Parameter
133 		       ,Base_Percent_Comp_Deriv_Code
134                  ,wf_item_type
135                  ,wf_process
136                  ,wf_start_lead_days
137                  ,enable_wf_flag
138                  ,source_object_id                  --Bug No 3594635 SMukka
139                  ,source_object_type                --Bug No 3594635 SMukka
140 				 ,task_status --Changes for 8566495 anuragag
141               )
142         VALUES(
143                   X_PROJ_ELEMENT_ID
144                  ,X_PROJECT_ID
145                  ,X_OBJECT_TYPE
146                  ,X_ELEMENT_NUMBER
147                  ,X_NAME
148                  ,X_DESCRIPTION
149                  ,X_STATUS_CODE
150                  ,X_WF_STATUS_CODE
151                  ,X_PM_PRODUCT_CODE
152                  ,X_PM_TASK_REFERENCE
153                  ,X_CLOSED_DATE
154                  ,X_LOCATION_ID
155                  ,X_MANAGER_PERSON_ID
156                  ,X_CARRYING_OUT_ORGANIZATION_ID
157                  ,X_TYPE_ID
158                  ,X_PRIORITY_CODE
159                  ,X_INC_PROJ_PROGRESS_FLAG
160                  ,SYSDATE                      --X_CREATION_DATE
161                  ,FND_GLOBAL.USER_ID           --CREATED_BY
162                  ,SYSDATE                      --LAST_UPDATE_DATE
163                  ,FND_GLOBAL.USER_ID           --LAST_UPDATED_BY
164                  ,FND_GLOBAL.LOGIN_ID
165                  ,1                            --RECORD_VERSION_NUMBER
166                  ,X_REQUEST_ID
167                  ,X_PROGRAM_APPLICATION_ID
168                  ,X_PROGRAM_ID
169                  ,X_PROGRAM_UPDATE_DATE
170                  ,X_LINK_TASK_FLAG
171                  ,X_ATTRIBUTE_CATEGORY
172                  ,X_ATTRIBUTE1
173                  ,X_ATTRIBUTE2
174                  ,X_ATTRIBUTE3
175                  ,X_ATTRIBUTE4
176                  ,X_ATTRIBUTE5
177                  ,X_ATTRIBUTE6
178                  ,X_ATTRIBUTE7
179                  ,X_ATTRIBUTE8
180                  ,X_ATTRIBUTE9
181                  ,X_ATTRIBUTE10
182                  ,X_ATTRIBUTE11
183                  ,X_ATTRIBUTE12
184                  ,X_ATTRIBUTE13
185                  ,X_ATTRIBUTE14
186                  ,X_ATTRIBUTE15
187 --                 ,x_task_weighting_deriv_code
188                  ,x_work_item_code
189                  ,x_uom_code
190                  ,x_wq_actual_entry_code
191                  ,x_task_progress_entry_page_id
192                  ,x_parent_structure_id
193                  ,x_phase_code
194                  ,x_phase_version_id
195                  ,x_progress_weight                   -- 3279978 :: Added x_progress_weight Parameter
196                  -- ,x_prog_rollup_method                -- 3279978 :: Added x_prog_rollup_method Parameter
197                  ,x_function_code                     -- 3279978 :: Added x_function_code Parameter
198       		  ,x_Base_Perc_Comp_Deriv_Code	-- 3305199 : Added for FP_M changes
199                  ,x_wf_item_type
200                  ,x_wf_process
201                  ,x_wf_lead_days
202                  ,x_wf_enabled_flag
203                  ,x_source_object_id               --Bug No 3594635 SMukka
204                  ,x_source_object_type             --Bug No 3594635 SMukka
205 				 ,x_task_status_code --Changes for 8566495 anuragag
206 );
207 
208 END Insert_Row;
209 
210 PROCEDURE Update_Row(
211 X_ROW_ID                IN   VARCHAR2,
212 X_PROJ_ELEMENT_ID       IN	NUMBER,
213 X_PROJECT_ID	      IN    NUMBER,
214 X_OBJECT_TYPE	      IN    VARCHAR2,
215 X_ELEMENT_NUMBER        IN	VARCHAR2,
216 X_NAME                  IN	VARCHAR2,
217 X_DESCRIPTION	      IN    VARCHAR2,
218 X_STATUS_CODE	      IN    VARCHAR2,
219 X_WF_STATUS_CODE        IN	VARCHAR2,
220 X_PM_PRODUCT_CODE       IN	VARCHAR2,
221 X_PM_TASK_REFERENCE     IN	VARCHAR2,
222 X_CLOSED_DATE	      IN    DATE,
223 X_LOCATION_ID	      IN    NUMBER,
224 X_MANAGER_PERSON_ID	IN    NUMBER,
225 X_CARRYING_OUT_ORGANIZATION_ID            IN NUMBER,
226 X_TYPE_ID  	            IN    NUMBER,
227 X_PRIORITY_CODE 	      IN    VARCHAR2,
228 X_INC_PROJ_PROGRESS_FLAG  IN	VARCHAR2,
229 X_RECORD_VERSION_NUMBER	  IN  NUMBER,
230 X_REQUEST_ID	        IN  NUMBER,
231 X_PROGRAM_APPLICATION_ID  IN  NUMBER,
232 X_PROGRAM_ID	        IN  NUMBER,
233 X_PROGRAM_UPDATE_DATE	  IN  DATE,
234 X_ATTRIBUTE_CATEGORY	  IN VARCHAR2,
235 X_ATTRIBUTE1	        IN VARCHAR2,
236 X_ATTRIBUTE2	        IN VARCHAR2,
237 X_ATTRIBUTE3	        IN VARCHAR2,
238 X_ATTRIBUTE4	        IN VARCHAR2,
239 X_ATTRIBUTE5	        IN VARCHAR2,
240 X_ATTRIBUTE6	        IN VARCHAR2,
241 X_ATTRIBUTE7	        IN VARCHAR2,
242 X_ATTRIBUTE8	        IN VARCHAR2,
243 X_ATTRIBUTE9	        IN VARCHAR2,
244 X_ATTRIBUTE10	        IN VARCHAR2,
245 X_ATTRIBUTE11	        IN VARCHAR2,
246 X_ATTRIBUTE12	        IN VARCHAR2,
247 X_ATTRIBUTE13	        IN VARCHAR2,
248 X_ATTRIBUTE14	        IN VARCHAR2,
249 X_ATTRIBUTE15	        IN VARCHAR2,
250 X_TASK_WEIGHTING_DERIV_CODE  IN VARCHAR2,
251 X_WORK_ITEM_CODE             IN VARCHAR2,
252 X_UOM_CODE                   IN VARCHAR2,
253 X_WQ_ACTUAL_ENTRY_CODE       IN VARCHAR2,
254 X_TASK_PROGRESS_ENTRY_PAGE_ID IN NUMBER,
255 x_parent_structure_id         IN NUMBER,
256 x_phase_code                  IN VARCHAR,
257 x_phase_version_id            IN NUMBER,
258 x_progress_weight             IN NUMBER :=NULL,             -- 3279978 :: Added x_progress_weight Parameter
259 x_function_code               IN VARCHAR2 := NULL,           -- 3279978 :: Added x_function_code Parameter
260 x_Base_Perc_Comp_Deriv_Code     IN  VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR, -- Added for FP_M changes 3305199
261 -- Bug#3491609 : Workflow Chanegs FP M
262 x_wf_item_type          IN VARCHAR2 :=NULL,
263 x_wf_process            IN VARCHAR2 :=NULL,
264 x_wf_lead_days          IN NUMBER :=NULL,
265 x_wf_enabled_flag       IN VARCHAR2 :=NULL
266  -- Bug#3491609 : Workflow Chanegs FP M
267 ) IS
268    CURSOR cur_proj_elems
269    IS
270      SELECT pm_source_reference,pm_source_code
271        FROM pa_proj_elements
272       WHERE proj_element_id = X_PROJ_ELEMENT_ID;
273   v_cur_proj_elems_rec cur_proj_elems%ROWTYPE;
274   l_pm_task_reference pa_proj_elements.PM_SOURCE_REFERENCE%TYPE;
275   l_pm_source_code pa_proj_elements.PM_SOURCE_CODE%TYPE;
276 BEGIN
277 -- Modified the code for bug 13501842
278    OPEN cur_proj_elems;
279    FETCH cur_proj_elems INTO v_cur_proj_elems_rec;
280    CLOSE cur_proj_elems;
281 
282 -- Added the condiion to check the value of pm_source_reference for bug 13501842
283     IF X_PM_TASK_REFERENCE IS NULL AND v_cur_proj_elems_rec.pm_source_reference IS NOT NULL
284     THEN
285 	   l_pm_task_reference := v_cur_proj_elems_rec.pm_source_reference;
286     ELSE
287        l_pm_task_reference := X_PM_TASK_REFERENCE;
288     END IF;
289 -- Added the condiion to check the value of pm_source_code for bug 13501842
290     IF (X_PM_PRODUCT_CODE IS NULL OR X_PM_PRODUCT_CODE = PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR) AND
291        (v_cur_proj_elems_rec.pm_source_code IS NOT NULL)
292     THEN
293        l_pm_source_code := v_cur_proj_elems_rec.pm_source_code;
294     ELSE
295        l_pm_source_code := X_PM_PRODUCT_CODE;
296     END IF;
297 
298    /* if v_cur_proj_elems_rec.record_version_number <> x_record_version_number
302     end if;  moved to private API */
299     then
300       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
301       APP_EXCEPTION.Raise_Exception;
303 
304      UPDATE pa_proj_elements
305         SET PROJ_ELEMENT_ID                  = X_PROJ_ELEMENT_ID
306            ,PROJECT_ID	                     = X_PROJECT_ID
307            ,OBJECT_TYPE		               = X_OBJECT_TYPE
308            ,ELEMENT_NUMBER		         = X_ELEMENT_NUMBER
309            ,NAME	         	               = X_NAME
310            ,DESCRIPTION		               = X_DESCRIPTION
311            ,STATUS_CODE	   	               = X_STATUS_CODE
312            ,WF_STATUS_CODE		         = X_WF_STATUS_CODE
313            ,PM_SOURCE_CODE	 	         = l_pm_source_code    -- modified for bug  13501842
314            ,PM_SOURCE_REFERENCE	         = l_pm_task_reference -- modified for bug  13501842
315            ,CLOSED_DATE		               = X_CLOSED_DATE
316            ,LOCATION_ID		               = X_LOCATION_ID
317            ,MANAGER_PERSON_ID	 	         = X_MANAGER_PERSON_ID
318            ,CARRYING_OUT_ORGANIZATION_ID 	   = X_CARRYING_OUT_ORGANIZATION_ID
319            ,TYPE_ID  	 	               = X_TYPE_ID
320            ,PRIORITY_CODE 			   = X_PRIORITY_CODE
321            ,INC_PROJ_PROGRESS_FLAG 	         = X_INC_PROJ_PROGRESS_FLAG
322            ,LAST_UPDATE_DATE		         = SYSDATE
323            ,LAST_UPDATED_BY	 	    = FND_GLOBAL.USER_ID
324            ,LAST_UPDATE_LOGIN		    = FND_GLOBAL.LOGIN_ID
325            ,RECORD_VERSION_NUMBER       = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
326            ,REQUEST_ID		          = X_REQUEST_ID
327            ,PROGRAM_APPLICATION_ID      = X_PROGRAM_APPLICATION_ID
328            ,PROGRAM_ID		          = X_PROGRAM_ID
329            ,PROGRAM_UPDATE_DATE         = X_PROGRAM_UPDATE_DATE
330            ,ATTRIBUTE_CATEGORY	    = X_ATTRIBUTE_CATEGORY
331            ,ATTRIBUTE1		          = X_ATTRIBUTE1
332            ,ATTRIBUTE2		          = X_ATTRIBUTE2
333            ,ATTRIBUTE3		          = X_ATTRIBUTE3
334            ,ATTRIBUTE4		          = X_ATTRIBUTE4
335            ,ATTRIBUTE5		          = X_ATTRIBUTE5
336            ,ATTRIBUTE6		          = X_ATTRIBUTE6
337            ,ATTRIBUTE7		          = X_ATTRIBUTE7
338            ,ATTRIBUTE8		          = X_ATTRIBUTE8
339            ,ATTRIBUTE9		          = X_ATTRIBUTE9
340            ,ATTRIBUTE10		          = X_ATTRIBUTE10
341            ,ATTRIBUTE11		          = X_ATTRIBUTE11
342            ,ATTRIBUTE12		          = X_ATTRIBUTE12
343            ,ATTRIBUTE13		          = X_ATTRIBUTE13
344            ,ATTRIBUTE14		          = X_ATTRIBUTE14
345            ,ATTRIBUTE15		          = X_ATTRIBUTE15
346  --        ,TASK_WEIGHTING_DERIV_CODE = X_TASK_WEIGHTING_DERIV_CODE
347            ,wq_item_code            = x_work_item_code
348            ,wq_uom_code             = x_uom_code
349            ,wq_actual_entry_code    = x_wq_actual_entry_code
350            ,task_progress_entry_page_id = x_task_progress_entry_page_id
351            ,parent_structure_id         = x_parent_structure_id
352            ,phase_code                  = x_phase_code
353            ,phase_version_id            = x_phase_version_id
354            ,progress_weight             = x_progress_weight             -- 3279978 :: Added x_progress_weight Parameter
355            -- ,prog_rollup_method          = x_prog_rollup_method          -- 3279978 :: Added x_prog_rollup_method Parameter
356            ,function_code               = x_function_code               -- 3279978 :: Added x_function_code Parameter
357 	      ,Base_Percent_Comp_Deriv_Code = x_Base_Perc_Comp_Deriv_Code	-- 3305199 : Added for FP_M changes
358            ,wf_item_type        = x_wf_item_type
359            ,wf_process          = x_wf_process
360            ,wf_start_lead_days  = x_wf_lead_days
361            ,enable_wf_flag     = x_wf_enabled_flag
362        WHERE rowid = x_row_id;
363 END Update_Row;
364 
365 PROCEDURE Delete_Row(
366 X_ROW_ID                   IN VARCHAR2
367 ) IS
368 BEGIN
369     DELETE FROM pa_proj_elements
370       WHERE rowid = x_row_id;
371 END delete_row;
372 
373 END PA_PROJ_ELEMENTS_PKG;