7: -- Pre-reqs : None.
8: -- Parameters :
9: -- IN : p_api_version IN NUMBER Required
10: -- p_init_msg_list IN VARCHAR2 Optional
11: -- Default = FND_API.G_FALSE
12: -- p_commit IN VARCHAR2 Optional
13: -- Default = FND_API.G_FALSE
14: -- p_validation_level IN NUMBER Optional
15: -- Default = FND_API.G_VALID_LEVEL_FULL
9: -- IN : p_api_version IN NUMBER Required
10: -- p_init_msg_list IN VARCHAR2 Optional
11: -- Default = FND_API.G_FALSE
12: -- p_commit IN VARCHAR2 Optional
13: -- Default = FND_API.G_FALSE
14: -- p_validation_level IN NUMBER Optional
15: -- Default = FND_API.G_VALID_LEVEL_FULL
16: -- parameter1
17: -- parameter2
11: -- Default = FND_API.G_FALSE
12: -- p_commit IN VARCHAR2 Optional
13: -- Default = FND_API.G_FALSE
14: -- p_validation_level IN NUMBER Optional
15: -- Default = FND_API.G_VALID_LEVEL_FULL
16: -- parameter1
17: -- parameter2
18: -- .
19: -- .
47: /* debugging */
48:
49: FND_MESSAGE.SET_NAME ('EAM', ERROR);
50: FND_MSG_PUB.ADD;
51: RAISE FND_API.G_EXC_ERROR;
52: END;
53:
54: /*
55: functions for validation
69: if l_count > 0
70: then
71: fnd_message.set_name('EAM', 'EAM_AA_DUP_LOCATION_CODE');
72: fnd_msg_pub.add;
73: RAISE FND_API.G_EXC_ERROR;
74: end if;
75:
76: END;
77: */
86: if p_start_date = null
87: then
88: fnd_message.set_name('EAM', 'EAM_NULL_START_DATE');
89: fnd_msg_pub.add;
90: RAISE FND_API.G_EXC_ERROR;
91: end if;
92:
93:
94: if (p_end_date is not null and (trunc(p_start_date)>trunc(p_end_date))) then
93:
94: if (p_end_date is not null and (trunc(p_start_date)>trunc(p_end_date))) then
95: fnd_message.set_name('EAM', 'EAM_INVALID_START_DATE');
96: fnd_msg_pub.add;
97: RAISE FND_API.G_EXC_ERROR;
98: end if;
99:
100: /*
101: IF TRUNC(P_START_DATE) > TRUNC(SYSDATE)
101: IF TRUNC(P_START_DATE) > TRUNC(SYSDATE)
102: THEN
103: fnd_message.set_name('EAM', 'EAM_INVALID_START_DATE');
104: fnd_msg_pub.add;
105: RAISE FND_API.G_EXC_ERROR;
106: ELSIF TRUNC(P_START_DATE) > TRUNC(NVL(P_END_DATE,SYSDATE))
107: THEN
108: fnd_message.set_name('EAM', 'EAM_INVALID_START_DATE');
109: fnd_msg_pub.add;
106: ELSIF TRUNC(P_START_DATE) > TRUNC(NVL(P_END_DATE,SYSDATE))
107: THEN
108: fnd_message.set_name('EAM', 'EAM_INVALID_START_DATE');
109: fnd_msg_pub.add;
110: RAISE FND_API.G_EXC_ERROR;
111: ELSIF TRUNC(NVL(P_END_DATE, SYSDATE)) > TRUNC(SYSDATE)
112: THEN
113: fnd_message.set_name('EAM', 'EAM_INVALID_END_DATE');
114: fnd_msg_pub.add;
111: ELSIF TRUNC(NVL(P_END_DATE, SYSDATE)) > TRUNC(SYSDATE)
112: THEN
113: fnd_message.set_name('EAM', 'EAM_INVALID_END_DATE');
114: fnd_msg_pub.add;
115: RAISE FND_API.G_EXC_ERROR;
116: END IF ;
117: */
118: END;
119:
134: if NOT p_create_flag
135: then
136: fnd_message.set_name('EAM', 'EAM_LOCATION_REC_NOT_FOUND');
137: fnd_msg_pub.add;
138: RAISE fnd_api.g_exc_error;
139: END IF;
140: else
141: if p_create_flag
142: then
141: if p_create_flag
142: then
143: fnd_message.set_name('EAM', 'EAM_LOCATION_REC_EXISTS');
144: fnd_msg_pub.add;
145: RAISE fnd_api.g_exc_error;
146: END IF;
147: end if;
148: END;
149:
149:
150:
151: PROCEDURE insert_asset_areas
152: ( p_api_version IN NUMBER ,
153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
154: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
155: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
156:
157: x_return_status OUT NOCOPY VARCHAR2 ,
150:
151: PROCEDURE insert_asset_areas
152: ( p_api_version IN NUMBER ,
153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
154: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
155: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
156:
157: x_return_status OUT NOCOPY VARCHAR2 ,
158: x_msg_count OUT NOCOPY NUMBER ,
151: PROCEDURE insert_asset_areas
152: ( p_api_version IN NUMBER ,
153: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
154: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
155: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
156:
157: x_return_status OUT NOCOPY VARCHAR2 ,
158: x_msg_count OUT NOCOPY NUMBER ,
159: x_msg_data OUT NOCOPY VARCHAR2 ,
176: BEGIN
177: -- Standard Start of API savepoint
178: SAVEPOINT insert_asset_areas;
179: -- Standard call to check for call compatibility.
180: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
181: p_api_version ,
182: l_api_name ,
183: G_PKG_NAME )
184: THEN
181: p_api_version ,
182: l_api_name ,
183: G_PKG_NAME )
184: THEN
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
186: END IF;
187: -- Initialize message list if p_init_msg_list is set to TRUE.
188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
189: FND_MSG_PUB.initialize;
184: THEN
185: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
186: END IF;
187: -- Initialize message list if p_init_msg_list is set to TRUE.
188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
189: FND_MSG_PUB.initialize;
190: END IF;
191: -- Initialize API return status to success
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
188: IF FND_API.to_Boolean( p_init_msg_list ) THEN
189: FND_MSG_PUB.initialize;
190: END IF;
191: -- Initialize API return status to success
192: x_return_status := FND_API.G_RET_STS_SUCCESS;
193: -- API body
194:
195: /* Bug 3668992: effective from date is mandated. */
196: if p_start_date IS NULL then
208: if l_boolean = 0
209: then
210: fnd_message.set_name('EAM', 'EAM_ABO_INVALID_ORG_ID');
211: fnd_msg_pub.add;
212: RAISE fnd_api.g_exc_error;
213: end if;
214:
215:
216: /*not reqd as validate_location_codes already check for the same*/
231:
232: if (p_organization_id is not null and p_creation_organization_id is not null and p_organization_id <> p_creation_organization_id) then
233: fnd_message.set_name('EAM', 'EAM_ORG_ID_INCONSISTENT');
234: fnd_msg_pub.add;
235: RAISE fnd_api.g_exc_error;
236: end if;
237:
238: VALIDATE_ROW_EXISTS(P_LOCATION_CODES, P_CREATION_ORGANIZATION_ID , TRUE);
239:
271: );
272:
273: -- End of API body.
274: -- Standard check of p_commit.
275: IF FND_API.To_Boolean( p_commit ) THEN
276: COMMIT WORK;
277: END IF;
278: -- Standard call to get message count and if count is 1, get message info.
279: FND_MSG_PUB.get
280: ( p_msg_index_out => x_msg_count ,
281: p_data => x_msg_data
282: );
283: EXCEPTION
284: WHEN FND_API.G_EXC_ERROR THEN
285: ROLLBACK TO insert_asset_areas;
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: FND_MSG_PUB.get
288: ( p_msg_index_out => x_msg_count ,
282: );
283: EXCEPTION
284: WHEN FND_API.G_EXC_ERROR THEN
285: ROLLBACK TO insert_asset_areas;
286: x_return_status := FND_API.G_RET_STS_ERROR ;
287: FND_MSG_PUB.get
288: ( p_msg_index_out => x_msg_count ,
289: p_data => x_msg_data
290: );
287: FND_MSG_PUB.get
288: ( p_msg_index_out => x_msg_count ,
289: p_data => x_msg_data
290: );
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292: ROLLBACK TO insert_asset_areas;
293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
294: FND_MSG_PUB.get
295: ( p_msg_index_out => x_msg_count ,
289: p_data => x_msg_data
290: );
291: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
292: ROLLBACK TO insert_asset_areas;
293: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
294: FND_MSG_PUB.get
295: ( p_msg_index_out => x_msg_count ,
296: p_data => x_msg_data
297: );
296: p_data => x_msg_data
297: );
298: WHEN OTHERS THEN
299: ROLLBACK TO insert_asset_areas;
300: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
301: IF FND_MSG_PUB.Check_Msg_Level
302: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
303: THEN
304: FND_MSG_PUB.Add_Exc_Msg
314:
315:
316: PROCEDURE update_asset_areas
317: ( p_api_version IN NUMBER ,
318: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
319: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
320: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
321:
322: x_return_status OUT NOCOPY VARCHAR2 ,
315:
316: PROCEDURE update_asset_areas
317: ( p_api_version IN NUMBER ,
318: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
319: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
320: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
321:
322: x_return_status OUT NOCOPY VARCHAR2 ,
323: x_msg_count OUT NOCOPY NUMBER ,
316: PROCEDURE update_asset_areas
317: ( p_api_version IN NUMBER ,
318: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
319: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
320: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL ,
321:
322: x_return_status OUT NOCOPY VARCHAR2 ,
323: x_msg_count OUT NOCOPY NUMBER ,
324: x_msg_data OUT NOCOPY VARCHAR2 ,
344: BEGIN
345: -- Standard Start of API savepoint
346: SAVEPOINT update_asset_areas;
347: -- Standard call to check for call compatibility.
348: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
349: p_api_version ,
350: l_api_name ,
351: G_PKG_NAME )
352: THEN
349: p_api_version ,
350: l_api_name ,
351: G_PKG_NAME )
352: THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
355: -- Initialize message list if p_init_msg_list is set to TRUE.
356: IF FND_API.to_Boolean( p_init_msg_list ) THEN
357: FND_MSG_PUB.initialize;
352: THEN
353: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
354: END IF;
355: -- Initialize message list if p_init_msg_list is set to TRUE.
356: IF FND_API.to_Boolean( p_init_msg_list ) THEN
357: FND_MSG_PUB.initialize;
358: END IF;
359: -- Initialize API return status to success
360: x_return_status := FND_API.G_RET_STS_SUCCESS;
356: IF FND_API.to_Boolean( p_init_msg_list ) THEN
357: FND_MSG_PUB.initialize;
358: END IF;
359: -- Initialize API return status to success
360: x_return_status := FND_API.G_RET_STS_SUCCESS;
361: -- API body
362: /* Bug 3668992: effective from date is mandated. */
363: if p_start_date IS NULL then
364: RAISE_ERROR ('EAM_EFFECTIVE_DATE_NULL');
374: if l_boolean = 0
375: then
376: fnd_message.set_name('EAM', 'EAM_ABO_INVALID_ORG_ID');
377: fnd_msg_pub.add;
378: RAISE fnd_api.g_exc_error;
379: end if;
380:
381: VALIDATE_DATES(
382: P_START_DATE =>P_START_DATE,
434:
435:
436: -- End of API body.
437: -- Standard check of p_commit.
438: IF FND_API.To_Boolean( p_commit ) THEN
439: COMMIT WORK;
440: END IF;
441: -- Standard call to get message count and if count is 1, get message info.
442: FND_MSG_PUB.get
443: ( p_msg_index_out => x_msg_count ,
444: p_data => x_msg_data
445: );
446: EXCEPTION
447: WHEN FND_API.G_EXC_ERROR THEN
448: ROLLBACK TO update_asset_areas;
449: x_return_status := FND_API.G_RET_STS_ERROR ;
450: FND_MSG_PUB.get
451: ( p_msg_index_out => x_msg_count ,
445: );
446: EXCEPTION
447: WHEN FND_API.G_EXC_ERROR THEN
448: ROLLBACK TO update_asset_areas;
449: x_return_status := FND_API.G_RET_STS_ERROR ;
450: FND_MSG_PUB.get
451: ( p_msg_index_out => x_msg_count ,
452: p_data => x_msg_data
453: );
450: FND_MSG_PUB.get
451: ( p_msg_index_out => x_msg_count ,
452: p_data => x_msg_data
453: );
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: ROLLBACK TO update_asset_areas;
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
457: FND_MSG_PUB.get
458: ( p_msg_index_out => x_msg_count ,
452: p_data => x_msg_data
453: );
454: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
455: ROLLBACK TO update_asset_areas;
456: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
457: FND_MSG_PUB.get
458: ( p_msg_index_out => x_msg_count ,
459: p_data => x_msg_data
460: );
459: p_data => x_msg_data
460: );
461: WHEN OTHERS THEN
462: ROLLBACK TO update_asset_areas;
463: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
464: IF FND_MSG_PUB.Check_Msg_Level
465: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
466: THEN
467: FND_MSG_PUB.Add_Exc_Msg