[Home] [Help]
PACKAGE BODY: APPS.PA_PROJ_ELEMENT_VERSIONS_PKG
Source
1 PACKAGE BODY PA_PROJ_ELEMENT_VERSIONS_PKG AS
2 /* $Header: PATSKT2B.pls 120.1 2005/08/19 17:05:57 mwasowic noship $ */
3
4 PROCEDURE Insert_Row(
5 X_ROW_ID IN OUT NOCOPY VARCHAR2, --File.Sql.39 bug 4440895
6 X_ELEMENT_VERSION_ID IN OUT NOCOPY NUMBER, --File.Sql.39 bug 4440895
7 X_PROJ_ELEMENT_ID IN NUMBER,
8 X_OBJECT_TYPE IN VARCHAR2,
9 X_PROJECT_ID IN NUMBER,
10 X_PARENT_STRUCTURE_VERSION_ID IN NUMBER,
11 X_DISPLAY_SEQUENCE NUMBER,
12 X_WBS_LEVEL NUMBER,
13 X_WBS_NUMBER VARCHAR2,
14 X_ATTRIBUTE_CATEGORY VARCHAR2,
15 X_ATTRIBUTE1 VARCHAR2,
16 X_ATTRIBUTE2 VARCHAR2,
17 X_ATTRIBUTE3 VARCHAR2,
18 X_ATTRIBUTE4 VARCHAR2,
19 X_ATTRIBUTE5 VARCHAR2,
20 X_ATTRIBUTE6 VARCHAR2,
21 X_ATTRIBUTE7 VARCHAR2,
22 X_ATTRIBUTE8 VARCHAR2,
23 X_ATTRIBUTE9 VARCHAR2,
24 X_ATTRIBUTE10 VARCHAR2,
25 X_ATTRIBUTE11 VARCHAR2,
26 X_ATTRIBUTE12 VARCHAR2,
27 X_ATTRIBUTE13 VARCHAR2,
28 X_ATTRIBUTE14 VARCHAR2,
29 X_ATTRIBUTE15 VARCHAR2,
30 X_TASK_UNPUB_VER_STATUS_CODE VARCHAR2,
31 P_Financial_Task_Flag IN VARCHAR2 := 'N', -- Added for FP_M changes Bug 3305199
32 x_source_object_id IN NUMBER:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_NUM, --Bug No 3594635 SMukka
33 x_source_object_type IN VARCHAR2:= PA_INTERFACE_UTILS_PUB.G_PA_MISS_CHAR --Bug No 3594635 SMukka
34 ) IS
35
36 CURSOR cur_elem_ver_seq
37 IS
38 SELECT pa_proj_element_versions_s.nextval
39 FROM sys.dual;
40
41 BEGIN
42 IF X_ELEMENT_VERSION_ID IS NULL
43 THEN
44 OPEN cur_elem_ver_seq;
45 FETCH cur_elem_ver_seq INTO X_ELEMENT_VERSION_ID;
46 CLOSE cur_elem_ver_seq;
47 END IF;
48 INSERT INTO pa_proj_element_versions(
49 ELEMENT_VERSION_ID
50 ,PROJ_ELEMENT_ID
51 ,OBJECT_TYPE
52 ,PROJECT_ID
53 ,PARENT_STRUCTURE_VERSION_ID
54 ,DISPLAY_SEQUENCE
55 ,WBS_LEVEL
56 ,WBS_NUMBER
57 ,CREATION_DATE
58 ,CREATED_BY
59 ,LAST_UPDATE_DATE
60 ,LAST_UPDATED_BY
61 ,LAST_UPDATE_LOGIN
62 ,RECORD_VERSION_NUMBER
63 ,ATTRIBUTE_CATEGORY
64 ,ATTRIBUTE1
65 ,ATTRIBUTE2
66 ,ATTRIBUTE3
67 ,ATTRIBUTE4
68 ,ATTRIBUTE5
69 ,ATTRIBUTE6
70 ,ATTRIBUTE7
71 ,ATTRIBUTE8
72 ,ATTRIBUTE9
73 ,ATTRIBUTE10
74 ,ATTRIBUTE11
75 ,ATTRIBUTE12
76 ,ATTRIBUTE13
77 ,ATTRIBUTE14
78 ,ATTRIBUTE15
79 ,TASK_UNPUB_VER_STATUS_CODE
80 ,FINANCIAL_TASK_FLAG -- Added for FP_M changes Bug 3305199
81 ,source_object_id --Bug No 3594635 SMukka
82 ,source_object_type --Bug No 3594635 SMukka
83 )
84 VALUES(
85 X_ELEMENT_VERSION_ID
86 ,X_PROJ_ELEMENT_ID
87 ,X_OBJECT_TYPE
88 ,X_PROJECT_ID
89 ,X_PARENT_STRUCTURE_VERSION_ID
90 ,X_DISPLAY_SEQUENCE
91 ,X_WBS_LEVEL
92 ,X_WBS_NUMBER
93 ,SYSDATE ------CREATION_DATE
94 ,FND_GLOBAL.USER_ID ------CREATED_BY
95 ,SYSDATE ------LAST_UPDATE_DATE
96 ,FND_GLOBAL.USER_ID ------LAST_UPDATED_BY
97 ,FND_GLOBAL.LOGIN_ID ------LAST_UPDATE_LOGIN
98 ,1 ------RECORD_VERSION_NUMBER
99 ,X_ATTRIBUTE_CATEGORY
100 ,X_ATTRIBUTE1
101 ,X_ATTRIBUTE2
102 ,X_ATTRIBUTE3
103 ,X_ATTRIBUTE4
104 ,X_ATTRIBUTE5
105 ,X_ATTRIBUTE6
106 ,X_ATTRIBUTE7
107 ,X_ATTRIBUTE8
108 ,X_ATTRIBUTE9
109 ,X_ATTRIBUTE10
110 ,X_ATTRIBUTE11
111 ,X_ATTRIBUTE12
112 ,X_ATTRIBUTE13
113 ,X_ATTRIBUTE14
114 ,X_ATTRIBUTE15
115 ,X_TASK_UNPUB_VER_STATUS_CODE
116 ,P_Financial_Task_Flag -- Added for FP_M changes Bug 3305199
117 ,x_source_object_id --Bug No 3594635 SMukka
118 ,x_source_object_type --Bug No 3594635 SMukka
119 );
120
121 END Insert_Row;
122
123
124 PROCEDURE Update_Row(
125 X_ROW_ID IN VARCHAR2,
126 X_ELEMENT_VERSION_ID IN NUMBER,
127 X_PROJ_ELEMENT_ID IN NUMBER,
128 X_OBJECT_TYPE IN VARCHAR2,
129 X_PROJECT_ID IN NUMBER,
130 X_PARENT_STRUCTURE_VERSION_ID IN NUMBER,
131 X_DISPLAY_SEQUENCE NUMBER,
132 X_WBS_LEVEL NUMBER,
133 X_WBS_NUMBER VARCHAR2,
134 X_RECORD_VERSION_NUMBER NUMBER,
135 X_ATTRIBUTE_CATEGORY VARCHAR2,
136 X_ATTRIBUTE1 VARCHAR2,
137 X_ATTRIBUTE2 VARCHAR2,
138 X_ATTRIBUTE3 VARCHAR2,
139 X_ATTRIBUTE4 VARCHAR2,
140 X_ATTRIBUTE5 VARCHAR2,
141 X_ATTRIBUTE6 VARCHAR2,
142 X_ATTRIBUTE7 VARCHAR2,
143 X_ATTRIBUTE8 VARCHAR2,
144 X_ATTRIBUTE9 VARCHAR2,
145 X_ATTRIBUTE10 VARCHAR2,
146 X_ATTRIBUTE11 VARCHAR2,
147 X_ATTRIBUTE12 VARCHAR2,
148 X_ATTRIBUTE13 VARCHAR2,
149 X_ATTRIBUTE14 VARCHAR2,
150 X_ATTRIBUTE15 VARCHAR2,
151 X_TASK_UNPUB_VER_STATUS_CODE VARCHAR2
152 ) IS
153 CURSOR cur_proj_elem_ver
154 IS
155 SELECT *
156 FROM pa_proj_element_versions
157 WHERE element_version_id = X_ELEMENT_VERSION_ID;
158 cur_proj_elem_ver_rec cur_proj_elem_ver%ROWTYPE;
159
160 BEGIN
161 /*OPEN cur_proj_elem_ver;
162 FETCH cur_proj_elem_ver INTO cur_proj_elem_ver_rec;
163 CLOSE cur_proj_elem_ver;
164
165 if cur_proj_elem_ver_rec.record_version_number <> x_record_version_number
166 then
167 FND_MESSAGE.Set_Name('FND', 'FORM_RECORD_CHANGED');
168 APP_EXCEPTION.Raise_Exception;
169 end if; moved to private API */
170
171 UPDATE pa_proj_element_versions
172 SET ELEMENT_VERSION_ID = X_ELEMENT_VERSION_ID
173 ,PROJ_ELEMENT_ID = X_PROJ_ELEMENT_ID
174 ,OBJECT_TYPE = X_OBJECT_TYPE
175 ,PROJECT_ID = X_PROJECT_ID
176 ,PARENT_STRUCTURE_VERSION_ID = X_PARENT_STRUCTURE_VERSION_ID
177 ,DISPLAY_SEQUENCE = X_DISPLAY_SEQUENCE
178 ,WBS_LEVEL = X_WBS_LEVEL
179 ,WBS_NUMBER = X_WBS_NUMBER
180 ,LAST_UPDATE_DATE = SYSDATE
181 ,LAST_UPDATED_BY = FND_GLOBAL.USER_ID
182 ,LAST_UPDATE_LOGIN = FND_GLOBAL.LOGIN_ID
183 ,RECORD_VERSION_NUMBER = NVL( RECORD_VERSION_NUMBER, 0 ) + 1
184 ,ATTRIBUTE_CATEGORY = X_ATTRIBUTE_CATEGORY
185 ,ATTRIBUTE1 = X_ATTRIBUTE1
186 ,ATTRIBUTE2 = X_ATTRIBUTE2
187 ,ATTRIBUTE3 = X_ATTRIBUTE3
188 ,ATTRIBUTE4 = X_ATTRIBUTE4
189 ,ATTRIBUTE5 = X_ATTRIBUTE5
190 ,ATTRIBUTE6 = X_ATTRIBUTE6
191 ,ATTRIBUTE7 = X_ATTRIBUTE7
192 ,ATTRIBUTE8 = X_ATTRIBUTE8
193 ,ATTRIBUTE9 = X_ATTRIBUTE9
194 ,ATTRIBUTE10 = X_ATTRIBUTE10
195 ,ATTRIBUTE11 = X_ATTRIBUTE11
196 ,ATTRIBUTE12 = X_ATTRIBUTE12
197 ,ATTRIBUTE13 = X_ATTRIBUTE13
198 ,ATTRIBUTE14 = X_ATTRIBUTE14
199 ,ATTRIBUTE15 = X_ATTRIBUTE15
200 ,TASK_UNPUB_VER_STATUS_CODE = X_TASK_UNPUB_VER_STATUS_CODE
201 WHERE rowid = x_row_id;
202
203 END Update_Row;
204
205 PROCEDURE Delete_Row(
206 X_ROW_ID IN VARCHAR2
207 ) IS
208 BEGIN
209 DELETE FROM pa_proj_element_versions
210 WHERE rowid = x_row_id;
211 END Delete_Row;
212
213 END PA_PROJ_ELEMENT_VERSIONS_PKG;