[Home] [Help]
PACKAGE BODY: APPS.EAM_CONSTRUCTION_UNIT_PKG
Source
1 PACKAGE BODY EAM_CONSTRUCTION_UNIT_PKG as
2 /* $Header: EAMTCUB.pls 120.1 2010/10/13 11:48:22 somitra noship $ */
3
4 PROCEDURE Insert_CU_Row(
5 px_cu_id IN OUT NOCOPY NUMBER
6 ,p_cu_name IN VARCHAR2
7 ,p_description IN VARCHAR2
8 ,p_organization_id IN NUMBER
9 ,p_cu_effective_from IN DATE
10 ,p_cu_effective_to IN DATE
11 ,p_attribute_category IN VARCHAR2
12 ,p_attribute1 IN VARCHAR2
13 ,p_attribute2 IN VARCHAR2
14 ,p_attribute3 IN VARCHAR2
15 ,p_attribute4 IN VARCHAR2
16 ,p_attribute5 IN VARCHAR2
17 ,p_attribute6 IN VARCHAR2
18 ,p_attribute7 IN VARCHAR2
19 ,p_attribute8 IN VARCHAR2
20 ,p_attribute9 IN VARCHAR2
21 ,p_attribute10 IN VARCHAR2
22 ,p_attribute11 IN VARCHAR2
23 ,p_attribute12 IN VARCHAR2
24 ,p_attribute13 IN VARCHAR2
25 ,p_attribute14 IN VARCHAR2
26 ,p_attribute15 IN VARCHAR2
27 ,p_creation_date IN DATE
28 ,p_created_by IN NUMBER
29 ,p_last_update_date IN DATE
30 ,p_last_updated_by IN NUMBER
31 ,p_last_update_login IN NUMBER
32 ) IS
33
34 CURSOR C1 IS
35 SELECT EAM_CONSTRUCTION_UNITS_S.nextval
36 FROM dual;
37 BEGIN
38 IF (px_cu_id IS NULL) OR (px_cu_id = FND_API.G_MISS_NUM) then
39 OPEN C1;
40 FETCH C1 INTO px_cu_id;
41 CLOSE C1;
42 END IF;
43
44 INSERT INTO EAM_CONSTRUCTION_UNITS(
45 CU_ID,
46 CU_NAME,
47 DESCRIPTION,
48 ORGANIZATION_ID,
49 CU_EFFECTIVE_FROM,
50 CU_EFFECTIVE_TO,
51 ATTRIBUTE_CATEGORY,
52 ATTRIBUTE1,
53 ATTRIBUTE2,
54 ATTRIBUTE3,
55 ATTRIBUTE4,
56 ATTRIBUTE5,
57 ATTRIBUTE6,
58 ATTRIBUTE7,
59 ATTRIBUTE8,
60 ATTRIBUTE9,
61 ATTRIBUTE10,
62 ATTRIBUTE11,
63 ATTRIBUTE12,
64 ATTRIBUTE13,
65 ATTRIBUTE14,
66 ATTRIBUTE15,
67 CREATION_DATE,
68 CREATED_BY,
69 LAST_UPDATE_DATE,
70 LAST_UPDATED_BY,
71 LAST_UPDATE_LOGIN
72 )
73 VALUES(
74 decode( px_cu_id, FND_API.G_MISS_NUM, NULL, px_cu_id),
75 decode( p_cu_name, FND_API.G_MISS_CHAR, NULL, p_cu_name),
76 decode( p_description, FND_API.G_MISS_CHAR, NULL, p_description),
77 decode( p_organization_id, FND_API.G_MISS_NUM, NULL, p_organization_id),
78 decode( p_cu_effective_from, fnd_api.g_miss_date, to_date(NULL), p_cu_effective_from),
79 decode( p_cu_effective_to, fnd_api.g_miss_date, to_date(NULL), p_cu_effective_to),
80 decode( p_attribute_category, FND_API.G_MISS_CHAR, NULL, p_attribute_category),
81 decode( p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
82 decode( p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
83 decode( p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
84 decode( p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
85 decode( p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
86 decode( p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
87 decode( p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
88 decode( p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
89 decode( p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
90 decode( p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
91 decode( p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
92 decode( p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
93 decode( p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
94 decode( p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
95 decode( p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15),
96 decode( p_creation_date, fnd_api.g_miss_date, to_date(NULL), p_creation_date),
97 decode( p_created_by, FND_API.G_MISS_NUM, NULL, p_created_by),
98 decode( p_last_update_date, fnd_api.g_miss_date, to_date(NULL), p_last_update_date),
99 decode( p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
100 decode( p_last_update_login, FND_API.G_MISS_NUM, NULL, p_last_update_login)
101 );
102
103 End Insert_CU_Row;
104
105
106 PROCEDURE Update_CU_Row(
107 p_cu_id IN NUMBER
108 ,p_cu_name IN VARCHAR2
109 ,p_description IN VARCHAR2
110 ,p_organization_id IN NUMBER
111 ,p_cu_effective_from IN DATE
112 ,p_cu_effective_to IN DATE
113 ,p_attribute_category IN VARCHAR2
114 ,p_attribute1 IN VARCHAR2
115 ,p_attribute2 IN VARCHAR2
116 ,p_attribute3 IN VARCHAR2
117 ,p_attribute4 IN VARCHAR2
118 ,p_attribute5 IN VARCHAR2
119 ,p_attribute6 IN VARCHAR2
120 ,p_attribute7 IN VARCHAR2
121 ,p_attribute8 IN VARCHAR2
122 ,p_attribute9 IN VARCHAR2
123 ,p_attribute10 IN VARCHAR2
124 ,p_attribute11 IN VARCHAR2
125 ,p_attribute12 IN VARCHAR2
126 ,p_attribute13 IN VARCHAR2
127 ,p_attribute14 IN VARCHAR2
128 ,p_attribute15 IN VARCHAR2
129 ,p_last_update_date IN DATE
130 ,p_last_updated_by IN NUMBER
131 ,p_last_update_login IN NUMBER
132 ) IS
133
134 BEGIN
135
136 UPDATE EAM_CONSTRUCTION_UNITS
137 SET
138 CU_NAME = decode( p_cu_name, FND_API.G_MISS_CHAR, NULL, p_cu_name),
139 DESCRIPTION = decode( p_description, FND_API.G_MISS_CHAR, NULL, p_description),
140 ORGANIZATION_ID = decode( p_organization_id, FND_API.G_MISS_NUM, NULL, p_organization_id),
141 CU_EFFECTIVE_FROM = decode( p_cu_effective_from, fnd_api.g_miss_date, to_date(NULL), p_cu_effective_from),
142 CU_EFFECTIVE_TO = decode( p_cu_effective_to, fnd_api.g_miss_date, to_date(NULL), p_cu_effective_to),
143 ATTRIBUTE_CATEGORY = decode( p_attribute_category, FND_API.G_MISS_CHAR, NULL, p_attribute_category),
144 ATTRIBUTE1 = decode( p_attribute1, FND_API.G_MISS_CHAR, NULL, p_attribute1),
145 ATTRIBUTE2 = decode( p_attribute2, FND_API.G_MISS_CHAR, NULL, p_attribute2),
146 ATTRIBUTE3 = decode( p_attribute3, FND_API.G_MISS_CHAR, NULL, p_attribute3),
147 ATTRIBUTE4 = decode( p_attribute4, FND_API.G_MISS_CHAR, NULL, p_attribute4),
148 ATTRIBUTE5 = decode( p_attribute5, FND_API.G_MISS_CHAR, NULL, p_attribute5),
149 ATTRIBUTE6 = decode( p_attribute6, FND_API.G_MISS_CHAR, NULL, p_attribute6),
150 ATTRIBUTE7 = decode( p_attribute7, FND_API.G_MISS_CHAR, NULL, p_attribute7),
151 ATTRIBUTE8 = decode( p_attribute8, FND_API.G_MISS_CHAR, NULL, p_attribute8),
152 ATTRIBUTE9 = decode( p_attribute9, FND_API.G_MISS_CHAR, NULL, p_attribute9),
153 ATTRIBUTE10 = decode( p_attribute10, FND_API.G_MISS_CHAR, NULL, p_attribute10),
154 ATTRIBUTE11 = decode( p_attribute11, FND_API.G_MISS_CHAR, NULL, p_attribute11),
155 ATTRIBUTE12 = decode( p_attribute12, FND_API.G_MISS_CHAR, NULL, p_attribute12),
156 ATTRIBUTE13 = decode( p_attribute13, FND_API.G_MISS_CHAR, NULL, p_attribute13),
157 ATTRIBUTE14 = decode( p_attribute14, FND_API.G_MISS_CHAR, NULL, p_attribute14),
158 ATTRIBUTE15 = decode( p_attribute15, FND_API.G_MISS_CHAR, NULL, p_attribute15),
159 LAST_UPDATE_DATE = decode( p_last_update_date, fnd_api.g_miss_date, to_date(NULL), p_last_update_date),
160 LAST_UPDATED_BY = decode( p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
161 LAST_UPDATE_LOGIN = decode( p_last_update_login, FND_API.G_MISS_NUM, NULL, p_last_update_login)
162 WHERE CU_ID = p_cu_id;
163
164 If (SQL%NOTFOUND) then
165 RAISE NO_DATA_FOUND;
166 End If;
167
168 END Update_CU_Row;
169
170
171 PROCEDURE Insert_CU_Activity_Row(
172 px_cu_detail_id IN OUT NOCOPY NUMBER
173 ,p_cu_id IN NUMBER
174 ,p_acct_class_code IN VARCHAR2
175 ,p_activity_id IN NUMBER
176 ,p_cu_activity_qty IN NUMBER
177 ,p_cu_activity_effective_from IN DATE
178 ,p_cu_activity_effective_to IN DATE
179 ,p_creation_date IN DATE
180 ,p_created_by IN NUMBER
181 ,p_last_update_date IN DATE
182 ,p_last_updated_by IN NUMBER
183 ,p_last_update_login IN NUMBER
184 ) IS
185
186 CURSOR C2 IS
187 SELECT EAM_CONSTRUCTION_UNIT_DTLS_S.nextval
188 FROM dual;
189 BEGIN
190
191 IF (px_cu_detail_id IS NULL) OR (px_cu_detail_id = FND_API.G_MISS_NUM) then
192 OPEN C2;
193 FETCH C2 INTO px_cu_detail_id;
194 CLOSE C2;
195 END IF;
196
197 INSERT INTO EAM_CONSTRUCTION_UNIT_DETAILS(
198 CU_DETAIL_ID,
199 CU_ID,
200 ACCT_CLASS_CODE,
201 ACTIVITY_ID,
202 CU_ACTIVITY_QTY,
203 CU_ACTIVITY_EFFECTIVE_FROM,
204 CU_ACTIVITY_EFFECTIVE_TO,
205 CREATION_DATE,
206 CREATED_BY,
207 LAST_UPDATE_DATE,
208 LAST_UPDATED_BY,
209 LAST_UPDATE_LOGIN
210 )
211 VALUES(
212 decode( px_cu_detail_id, FND_API.G_MISS_NUM, NULL, px_cu_detail_id),
213 decode( p_cu_id, FND_API.G_MISS_NUM, NULL, p_cu_id),
214 decode( p_acct_class_code, FND_API.G_MISS_CHAR, NULL, p_acct_class_code),
215 decode( p_activity_id, FND_API.G_MISS_NUM, NULL, p_activity_id),
216 decode( p_cu_activity_qty, FND_API.G_MISS_NUM, NULL, p_cu_activity_qty),
217 decode( p_cu_activity_effective_from, fnd_api.g_miss_date, to_date(NULL), p_cu_activity_effective_from),
218 decode( p_cu_activity_effective_to, fnd_api.g_miss_date, to_date(NULL), p_cu_activity_effective_to),
219 decode( p_creation_date, fnd_api.g_miss_date, to_date(NULL), p_creation_date),
220 decode( p_created_by, FND_API.G_MISS_NUM, NULL, p_created_by),
221 decode( p_last_update_date, fnd_api.g_miss_date, to_date(NULL), p_last_update_date),
222 decode( p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
223 decode( p_last_update_login, FND_API.G_MISS_NUM, NULL, p_last_update_login)
224 );
225 End Insert_CU_Activity_Row;
226
227 PROCEDURE Update_CU_Activity_Row(
228 p_cu_detail_id IN NUMBER
229 ,p_cu_id IN NUMBER
230 ,p_acct_class_code IN VARCHAR2
231 ,p_activity_id IN NUMBER
232 ,p_cu_activity_qty IN NUMBER
233 ,p_cu_activity_effective_from IN DATE
234 ,p_cu_activity_effective_to IN DATE
235 ,p_last_update_date IN DATE
236 ,p_last_updated_by IN NUMBER
237 ,p_last_update_login IN NUMBER
238 ) IS
239
240 BEGIN
241
242 UPDATE EAM_CONSTRUCTION_UNIT_DETAILS
243 SET
244 CU_ID = decode( p_cu_id, FND_API.G_MISS_NUM, NULL, p_cu_id),
245 ACCT_CLASS_CODE = decode( p_acct_class_code, FND_API.G_MISS_CHAR, NULL, p_acct_class_code),
246 ACTIVITY_ID = decode( p_activity_id, FND_API.G_MISS_NUM, NULL, p_activity_id),
247 CU_ACTIVITY_QTY = decode( p_cu_activity_qty, FND_API.G_MISS_NUM, NULL, p_cu_activity_qty),
248 CU_ACTIVITY_EFFECTIVE_FROM = decode( p_cu_activity_effective_from,
249 fnd_api.g_miss_date, to_date(NULL), p_cu_activity_effective_from),
250 CU_ACTIVITY_EFFECTIVE_TO = decode( p_cu_activity_effective_to,
251 fnd_api.g_miss_date, to_date(NULL), p_cu_activity_effective_to),
252 LAST_UPDATE_DATE = decode( p_last_update_date, fnd_api.g_miss_date, to_date(NULL), p_last_update_date),
253 LAST_UPDATED_BY = decode( p_last_updated_by, FND_API.G_MISS_NUM, NULL, p_last_updated_by),
254 LAST_UPDATE_LOGIN = decode( p_last_update_login, FND_API.G_MISS_NUM, NULL, p_last_update_login)
255 WHERE CU_DETAIL_ID = p_cu_detail_id;
256
257 If (SQL%NOTFOUND) then
258 RAISE NO_DATA_FOUND;
259 End If;
260
261 END Update_CU_Activity_Row;
262
263
264 End EAM_CONSTRUCTION_UNIT_PKG;