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.1 2005/08/19 17:05:47 mwasowic noship $ */
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 ) IS
64     CURSOR cur_tasks_seq
65         IS
66           SELECT pa_tasks_s.nextval
67             FROM sys.dual;
68 
69 BEGIN
70      IF X_PROJ_ELEMENT_ID IS NULL
71      THEN
72         OPEN cur_tasks_seq;
73         FETCH cur_tasks_seq INTO X_PROJ_ELEMENT_ID;
74         CLOSE cur_tasks_seq;
75      END IF;
76      INSERT INTO pa_proj_elements(
77                   PROJ_ELEMENT_ID
78                  ,PROJECT_ID
79                  ,OBJECT_TYPE
80                  ,ELEMENT_NUMBER
81                  ,NAME
82                  ,DESCRIPTION
83                  ,STATUS_CODE
84                  ,WF_STATUS_CODE
85                  ,PM_SOURCE_CODE
86                  ,PM_SOURCE_REFERENCE
87                  ,CLOSED_DATE
88                  ,LOCATION_ID
89                  ,MANAGER_PERSON_ID
90                  ,CARRYING_OUT_ORGANIZATION_ID
91                  ,TYPE_ID
92                  ,PRIORITY_CODE
93                  ,INC_PROJ_PROGRESS_FLAG
94                  ,CREATION_DATE
95                  ,CREATED_BY
96                  ,LAST_UPDATE_DATE
97                  ,LAST_UPDATED_BY
98                  ,LAST_UPDATE_LOGIN
99                  ,RECORD_VERSION_NUMBER
100                  ,REQUEST_ID
101                  ,PROGRAM_APPLICATION_ID
102                  ,PROGRAM_ID
103                  ,PROGRAM_UPDATE_DATE
104                  ,LINK_TASK_FLAG
105                  ,ATTRIBUTE_CATEGORY
106                  ,ATTRIBUTE1
107                  ,ATTRIBUTE2
108                  ,ATTRIBUTE3
109                  ,ATTRIBUTE4
110                  ,ATTRIBUTE5
111                  ,ATTRIBUTE6
112                  ,ATTRIBUTE7
113                  ,ATTRIBUTE8
114                  ,ATTRIBUTE9
115                  ,ATTRIBUTE10
116                  ,ATTRIBUTE11
117                  ,ATTRIBUTE12
118                  ,ATTRIBUTE13
119                  ,ATTRIBUTE14
120                  ,ATTRIBUTE15
121 --                 ,task_weighting_deriv_code
122                  ,wq_item_code
123                  ,wq_uom_code
124                  ,wq_actual_entry_code
125                  ,task_progress_entry_page_id
126                  ,parent_structure_id
127                  ,phase_code
128                  ,phase_version_id
129                  ,progress_weight                   -- 3279978 :: Added x_progress_weight Parameter
130                  -- ,prog_rollup_method                -- 3279978 :: Added x_prog_rollup_method Parameter
131                  ,function_code                     -- 3279978 :: Added x_function_code Parameter
132 		       ,Base_Percent_Comp_Deriv_Code
133                  ,wf_item_type
134                  ,wf_process
135                  ,wf_start_lead_days
136                  ,enable_wf_flag
137                  ,source_object_id                  --Bug No 3594635 SMukka
138                  ,source_object_type                --Bug No 3594635 SMukka
139               )
140         VALUES(
141                   X_PROJ_ELEMENT_ID
142                  ,X_PROJECT_ID
143                  ,X_OBJECT_TYPE
144                  ,X_ELEMENT_NUMBER
145                  ,X_NAME
146                  ,X_DESCRIPTION
147                  ,X_STATUS_CODE
148                  ,X_WF_STATUS_CODE
149                  ,X_PM_PRODUCT_CODE
150                  ,X_PM_TASK_REFERENCE
151                  ,X_CLOSED_DATE
152                  ,X_LOCATION_ID
153                  ,X_MANAGER_PERSON_ID
154                  ,X_CARRYING_OUT_ORGANIZATION_ID
155                  ,X_TYPE_ID
156                  ,X_PRIORITY_CODE
157                  ,X_INC_PROJ_PROGRESS_FLAG
158                  ,SYSDATE                      --X_CREATION_DATE
159                  ,FND_GLOBAL.USER_ID           --CREATED_BY
160                  ,SYSDATE                      --LAST_UPDATE_DATE
161                  ,FND_GLOBAL.USER_ID           --LAST_UPDATED_BY
162                  ,FND_GLOBAL.LOGIN_ID
163                  ,1                            --RECORD_VERSION_NUMBER
164                  ,X_REQUEST_ID
165                  ,X_PROGRAM_APPLICATION_ID
166                  ,X_PROGRAM_ID
167                  ,X_PROGRAM_UPDATE_DATE
168                  ,X_LINK_TASK_FLAG
169                  ,X_ATTRIBUTE_CATEGORY
170                  ,X_ATTRIBUTE1
171                  ,X_ATTRIBUTE2
172                  ,X_ATTRIBUTE3
173                  ,X_ATTRIBUTE4
174                  ,X_ATTRIBUTE5
175                  ,X_ATTRIBUTE6
176                  ,X_ATTRIBUTE7
177                  ,X_ATTRIBUTE8
178                  ,X_ATTRIBUTE9
179                  ,X_ATTRIBUTE10
180                  ,X_ATTRIBUTE11
181                  ,X_ATTRIBUTE12
182                  ,X_ATTRIBUTE13
183                  ,X_ATTRIBUTE14
184                  ,X_ATTRIBUTE15
185 --                 ,x_task_weighting_deriv_code
186                  ,x_work_item_code
187                  ,x_uom_code
188                  ,x_wq_actual_entry_code
189                  ,x_task_progress_entry_page_id
190                  ,x_parent_structure_id
191                  ,x_phase_code
192                  ,x_phase_version_id
193                  ,x_progress_weight                   -- 3279978 :: Added x_progress_weight Parameter
194                  -- ,x_prog_rollup_method                -- 3279978 :: Added x_prog_rollup_method Parameter
195                  ,x_function_code                     -- 3279978 :: Added x_function_code Parameter
196       		  ,x_Base_Perc_Comp_Deriv_Code	-- 3305199 : Added for FP_M changes
197                  ,x_wf_item_type
198                  ,x_wf_process
199                  ,x_wf_lead_days
200                  ,x_wf_enabled_flag
201                  ,x_source_object_id               --Bug No 3594635 SMukka
202                  ,x_source_object_type             --Bug No 3594635 SMukka
203 );
204 
205 END Insert_Row;
206 
207 PROCEDURE Update_Row(
208 X_ROW_ID                IN   VARCHAR2,
209 X_PROJ_ELEMENT_ID       IN	NUMBER,
210 X_PROJECT_ID	      IN    NUMBER,
211 X_OBJECT_TYPE	      IN    VARCHAR2,
212 X_ELEMENT_NUMBER        IN	VARCHAR2,
213 X_NAME                  IN	VARCHAR2,
214 X_DESCRIPTION	      IN    VARCHAR2,
215 X_STATUS_CODE	      IN    VARCHAR2,
216 X_WF_STATUS_CODE        IN	VARCHAR2,
217 X_PM_PRODUCT_CODE       IN	VARCHAR2,
218 X_PM_TASK_REFERENCE     IN	VARCHAR2,
219 X_CLOSED_DATE	      IN    DATE,
220 X_LOCATION_ID	      IN    NUMBER,
221 X_MANAGER_PERSON_ID	IN    NUMBER,
222 X_CARRYING_OUT_ORGANIZATION_ID            IN NUMBER,
223 X_TYPE_ID  	            IN    NUMBER,
224 X_PRIORITY_CODE 	      IN    VARCHAR2,
225 X_INC_PROJ_PROGRESS_FLAG  IN	VARCHAR2,
226 X_RECORD_VERSION_NUMBER	  IN  NUMBER,
227 X_REQUEST_ID	        IN  NUMBER,
228 X_PROGRAM_APPLICATION_ID  IN  NUMBER,
229 X_PROGRAM_ID	        IN  NUMBER,
230 X_PROGRAM_UPDATE_DATE	  IN  DATE,
231 X_ATTRIBUTE_CATEGORY	  IN VARCHAR2,
232 X_ATTRIBUTE1	        IN VARCHAR2,
233 X_ATTRIBUTE2	        IN VARCHAR2,
234 X_ATTRIBUTE3	        IN VARCHAR2,
235 X_ATTRIBUTE4	        IN VARCHAR2,
236 X_ATTRIBUTE5	        IN VARCHAR2,
237 X_ATTRIBUTE6	        IN VARCHAR2,
238 X_ATTRIBUTE7	        IN VARCHAR2,
239 X_ATTRIBUTE8	        IN VARCHAR2,
240 X_ATTRIBUTE9	        IN VARCHAR2,
241 X_ATTRIBUTE10	        IN VARCHAR2,
242 X_ATTRIBUTE11	        IN VARCHAR2,
243 X_ATTRIBUTE12	        IN VARCHAR2,
244 X_ATTRIBUTE13	        IN VARCHAR2,
245 X_ATTRIBUTE14	        IN VARCHAR2,
246 X_ATTRIBUTE15	        IN VARCHAR2,
247 X_TASK_WEIGHTING_DERIV_CODE  IN VARCHAR2,
248 X_WORK_ITEM_CODE             IN VARCHAR2,
249 X_UOM_CODE                   IN VARCHAR2,
250 X_WQ_ACTUAL_ENTRY_CODE       IN VARCHAR2,
251 X_TASK_PROGRESS_ENTRY_PAGE_ID IN NUMBER,
252 x_parent_structure_id         IN NUMBER,
253 x_phase_code                  IN VARCHAR,
254 x_phase_version_id            IN NUMBER,
255 x_progress_weight             IN NUMBER :=NULL,             -- 3279978 :: Added x_progress_weight Parameter
256 x_function_code               IN VARCHAR2 := NULL,           -- 3279978 :: Added x_function_code Parameter
257 x_Base_Perc_Comp_Deriv_Code     IN  VARCHAR2 := PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR, -- Added for FP_M changes 3305199
258 -- Bug#3491609 : Workflow Chanegs FP M
259 x_wf_item_type          IN VARCHAR2 :=NULL,
260 x_wf_process            IN VARCHAR2 :=NULL,
261 x_wf_lead_days          IN NUMBER :=NULL,
262 x_wf_enabled_flag       IN VARCHAR2 :=NULL
263  -- Bug#3491609 : Workflow Chanegs FP M
264 ) IS
265    CURSOR cur_proj_elems
266    IS
267      SELECT *
268        FROM pa_proj_elements
269       WHERE proj_element_id = X_PROJ_ELEMENT_ID;
270   v_cur_proj_elems_rec cur_proj_elems%ROWTYPE;
271 
272 BEGIN
273    /*OPEN cur_proj_elems;
274    FETCH cur_proj_elems INTO v_cur_proj_elems_rec;
275    CLOSE cur_proj_elems;
276 
277     if v_cur_proj_elems_rec.record_version_number <> x_record_version_number
278     then
279       FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
280       APP_EXCEPTION.Raise_Exception;
281     end if;  moved to private API */
282 
283      UPDATE pa_proj_elements
284         SET PROJ_ELEMENT_ID                  = X_PROJ_ELEMENT_ID
285            ,PROJECT_ID	                     = X_PROJECT_ID
286            ,OBJECT_TYPE		               = X_OBJECT_TYPE
287            ,ELEMENT_NUMBER		         = X_ELEMENT_NUMBER
288            ,NAME	         	               = X_NAME
289            ,DESCRIPTION		               = X_DESCRIPTION
290            ,STATUS_CODE	   	               = X_STATUS_CODE
291            ,WF_STATUS_CODE		         = X_WF_STATUS_CODE
292            ,PM_SOURCE_CODE	 	         = X_PM_PRODUCT_CODE
293            ,PM_SOURCE_REFERENCE	         = X_PM_TASK_REFERENCE
294            ,CLOSED_DATE		               = X_CLOSED_DATE
295            ,LOCATION_ID		               = X_LOCATION_ID
296            ,MANAGER_PERSON_ID	 	         = X_MANAGER_PERSON_ID
297            ,CARRYING_OUT_ORGANIZATION_ID 	   = X_CARRYING_OUT_ORGANIZATION_ID
298            ,TYPE_ID  	 	               = X_TYPE_ID
299            ,PRIORITY_CODE 			   = X_PRIORITY_CODE
300            ,INC_PROJ_PROGRESS_FLAG 	         = X_INC_PROJ_PROGRESS_FLAG
301            ,LAST_UPDATE_DATE		         = SYSDATE
302            ,LAST_UPDATED_BY	 	    = FND_GLOBAL.USER_ID
303            ,LAST_UPDATE_LOGIN		    = FND_GLOBAL.LOGIN_ID
304            ,RECORD_VERSION_NUMBER       = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
305            ,REQUEST_ID		          = X_REQUEST_ID
306            ,PROGRAM_APPLICATION_ID      = X_PROGRAM_APPLICATION_ID
307            ,PROGRAM_ID		          = X_PROGRAM_ID
308            ,PROGRAM_UPDATE_DATE         = X_PROGRAM_UPDATE_DATE
309            ,ATTRIBUTE_CATEGORY	    = X_ATTRIBUTE_CATEGORY
310            ,ATTRIBUTE1		          = X_ATTRIBUTE1
311            ,ATTRIBUTE2		          = X_ATTRIBUTE2
312            ,ATTRIBUTE3		          = X_ATTRIBUTE3
313            ,ATTRIBUTE4		          = X_ATTRIBUTE4
314            ,ATTRIBUTE5		          = X_ATTRIBUTE5
315            ,ATTRIBUTE6		          = X_ATTRIBUTE6
316            ,ATTRIBUTE7		          = X_ATTRIBUTE7
317            ,ATTRIBUTE8		          = X_ATTRIBUTE8
318            ,ATTRIBUTE9		          = X_ATTRIBUTE9
319            ,ATTRIBUTE10		          = X_ATTRIBUTE10
320            ,ATTRIBUTE11		          = X_ATTRIBUTE11
321            ,ATTRIBUTE12		          = X_ATTRIBUTE12
322            ,ATTRIBUTE13		          = X_ATTRIBUTE13
323            ,ATTRIBUTE14		          = X_ATTRIBUTE14
324            ,ATTRIBUTE15		          = X_ATTRIBUTE15
325  --        ,TASK_WEIGHTING_DERIV_CODE = X_TASK_WEIGHTING_DERIV_CODE
326            ,wq_item_code            = x_work_item_code
327            ,wq_uom_code             = x_uom_code
328            ,wq_actual_entry_code    = x_wq_actual_entry_code
329            ,task_progress_entry_page_id = x_task_progress_entry_page_id
330            ,parent_structure_id         = x_parent_structure_id
331            ,phase_code                  = x_phase_code
332            ,phase_version_id            = x_phase_version_id
333            ,progress_weight             = x_progress_weight             -- 3279978 :: Added x_progress_weight Parameter
334            -- ,prog_rollup_method          = x_prog_rollup_method          -- 3279978 :: Added x_prog_rollup_method Parameter
335            ,function_code               = x_function_code               -- 3279978 :: Added x_function_code Parameter
336 	      ,Base_Percent_Comp_Deriv_Code = x_Base_Perc_Comp_Deriv_Code	-- 3305199 : Added for FP_M changes
337            ,wf_item_type        = x_wf_item_type
338            ,wf_process          = x_wf_process
339            ,wf_start_lead_days  = x_wf_lead_days
340            ,enable_wf_flag     = x_wf_enabled_flag
341        WHERE rowid = x_row_id;
342 END Update_Row;
343 
344 PROCEDURE Delete_Row(
345 X_ROW_ID                   IN VARCHAR2
346 ) IS
347 BEGIN
348     DELETE FROM pa_proj_elements
349       WHERE rowid = x_row_id;
350 END delete_row;
351 
352 END PA_PROJ_ELEMENTS_PKG;