DBA Data[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;