14: This procedure inserts a record in the eam_pm_set_names table
15: -- Parameters :
16: -- IN : P_API_VERSION IN NUMBER REQUIRED
17: -- P_INIT_MSG_LIST IN VARCHAR2 OPTIONAL
18: -- DEFAULT = FND_API.G_FALSE
19: -- P_COMMIT IN VARCHAR2 OPTIONAL
20: -- DEFAULT = FND_API.G_FALSE
21: -- P_VALIDATION_LEVEL IN NUMBER OPTIONAL
22: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL
16: -- IN : P_API_VERSION IN NUMBER REQUIRED
17: -- P_INIT_MSG_LIST IN VARCHAR2 OPTIONAL
18: -- DEFAULT = FND_API.G_FALSE
19: -- P_COMMIT IN VARCHAR2 OPTIONAL
20: -- DEFAULT = FND_API.G_FALSE
21: -- P_VALIDATION_LEVEL IN NUMBER OPTIONAL
22: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL
23: -- p_set_name IN varchar2 ,
24: -- p_description IN varchar2 default null,
18: -- DEFAULT = FND_API.G_FALSE
19: -- P_COMMIT IN VARCHAR2 OPTIONAL
20: -- DEFAULT = FND_API.G_FALSE
21: -- P_VALIDATION_LEVEL IN NUMBER OPTIONAL
22: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL
23: -- p_set_name IN varchar2 ,
24: -- p_description IN varchar2 default null,
25: -- p_end_date IN date default null ,
26: -- p_ATTRIBUTE_CATEGORY IN VARCHAR2 default null,
54:
55: PROCEDURE Insert_PMSetName
56: (
57: p_api_version IN NUMBER ,
58: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
60: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
61: x_return_status OUT NOCOPY VARCHAR2 ,
62: x_msg_count OUT NOCOPY NUMBER ,
55: PROCEDURE Insert_PMSetName
56: (
57: p_api_version IN NUMBER ,
58: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
60: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
61: x_return_status OUT NOCOPY VARCHAR2 ,
62: x_msg_count OUT NOCOPY NUMBER ,
63: x_msg_data OUT NOCOPY VARCHAR2 ,
56: (
57: p_api_version IN NUMBER ,
58: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
59: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
60: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
61: x_return_status OUT NOCOPY VARCHAR2 ,
62: x_msg_count OUT NOCOPY NUMBER ,
63: x_msg_data OUT NOCOPY VARCHAR2 ,
64: p_set_name IN varchar2 ,
98: /* Standard Start of API savepoint */
99: SAVEPOINT Insert_PMSetName_PUB;
100:
101: /* Standard call to check for call compatibility. */
102: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
103: p_api_version ,
104: l_api_name ,
105: G_PKG_NAME
106: )
104: l_api_name ,
105: G_PKG_NAME
106: )
107: THEN
108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
109: END IF;
110:
111: /* Initialize message list if p_init_msg_list is set to TRUE. */
112: IF FND_API.to_Boolean( p_init_msg_list ) THEN
108: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
109: END IF;
110:
111: /* Initialize message list if p_init_msg_list is set to TRUE. */
112: IF FND_API.to_Boolean( p_init_msg_list ) THEN
113: FND_MSG_PUB.initialize;
114: END IF;
115: /* Initialize API return status to success */
116: x_return_status := FND_API.G_RET_STS_SUCCESS;
112: IF FND_API.to_Boolean( p_init_msg_list ) THEN
113: FND_MSG_PUB.initialize;
114: END IF;
115: /* Initialize API return status to success */
116: x_return_status := FND_API.G_RET_STS_SUCCESS;
117:
118: /* API body */
119: /* Start validation calls */
120:
141: if nvl(p_local_flag, 'N') = 'Y' then
142: if p_organization_id is null then
143: FND_MESSAGE.SET_NAME('EAM','EAM_PM_ORGID_REQUIRED');
144: FND_MSG_PUB.Add;
145: RAISE FND_API.G_EXC_ERROR;
146: end if;
147: end if;
148:
149:
173: IF (not l_validated) THEN
174: FND_MESSAGE.SET_NAME('EAM', 'EAM_INVALID_DESC_FLEX');
175: FND_MESSAGE.SET_TOKEN('ERROR_MSG', x_error_message);
176: FND_MSG_PUB.Add;
177: RAISE FND_API.G_EXC_ERROR;
178: END IF;
179:
180:
181: /* End validation calls */
245: p_local_flag
246: );
247:
248: /* Standard check of p_commit. */
249: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
250: COMMIT WORK;
251: END IF;
252: /* Standard call to get message count and if count is 1, get message info. */
253: FND_MSG_PUB.get
255: p_data => x_msg_data
256: );
257:
258: EXCEPTION
259: WHEN FND_API.G_EXC_ERROR THEN
260:
261: ROLLBACK TO Insert_PMSetName_PUB;
262: x_return_status := FND_API.G_RET_STS_ERROR ;
263: FND_MSG_PUB.get
258: EXCEPTION
259: WHEN FND_API.G_EXC_ERROR THEN
260:
261: ROLLBACK TO Insert_PMSetName_PUB;
262: x_return_status := FND_API.G_RET_STS_ERROR ;
263: FND_MSG_PUB.get
264: ( p_msg_index_out => x_msg_count ,
265: p_data => x_msg_data
266: );
264: ( p_msg_index_out => x_msg_count ,
265: p_data => x_msg_data
266: );
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269:
270: ROLLBACK TO Insert_PMSetName_PUB;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
272: FND_MSG_PUB.get
267:
268: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
269:
270: ROLLBACK TO Insert_PMSetName_PUB;
271: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
272: FND_MSG_PUB.get
273: ( p_msg_index_out => x_msg_count ,
274: p_data => x_msg_data
275: );
276:
277: WHEN OTHERS THEN
278:
279: ROLLBACK TO Insert_PMSetName_PUB;
280: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
281:
282: IF FND_MSG_PUB.Check_Msg_Level
283: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
284: THEN
300: This procedure updates a record in the eam_pm_set_names table
301: -- Parameters :
302: -- IN : P_API_VERSION IN NUMBER REQUIRED
303: -- P_INIT_MSG_LIST IN VARCHAR2 OPTIONAL
304: -- DEFAULT = FND_API.G_FALSE
305: -- P_COMMIT IN VARCHAR2 OPTIONAL
306: -- DEFAULT = FND_API.G_FALSE
307: -- P_VALIDATION_LEVEL IN NUMBER OPTIONAL
308: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL
302: -- IN : P_API_VERSION IN NUMBER REQUIRED
303: -- P_INIT_MSG_LIST IN VARCHAR2 OPTIONAL
304: -- DEFAULT = FND_API.G_FALSE
305: -- P_COMMIT IN VARCHAR2 OPTIONAL
306: -- DEFAULT = FND_API.G_FALSE
307: -- P_VALIDATION_LEVEL IN NUMBER OPTIONAL
308: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL
309: --
310: --
304: -- DEFAULT = FND_API.G_FALSE
305: -- P_COMMIT IN VARCHAR2 OPTIONAL
306: -- DEFAULT = FND_API.G_FALSE
307: -- P_VALIDATION_LEVEL IN NUMBER OPTIONAL
308: -- DEFAULT = FND_API.G_VALID_LEVEL_FULL
309: --
310: --
311: -- OUT : x_return_status OUT NOCOPY VARCHAR2(1)
312: -- x_msg_count OUT NOCOPY NUMBER
320:
321: PROCEDURE Update_PMSetName
322: (
323: p_api_version IN NUMBER ,
324: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
325: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
326: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
327: x_return_status OUT NOCOPY VARCHAR2 ,
328: x_msg_count OUT NOCOPY NUMBER ,
321: PROCEDURE Update_PMSetName
322: (
323: p_api_version IN NUMBER ,
324: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
325: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
326: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
327: x_return_status OUT NOCOPY VARCHAR2 ,
328: x_msg_count OUT NOCOPY NUMBER ,
329: x_msg_data OUT NOCOPY VARCHAR2 ,
322: (
323: p_api_version IN NUMBER ,
324: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE ,
325: p_commit IN VARCHAR2 := FND_API.G_FALSE ,
326: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
327: x_return_status OUT NOCOPY VARCHAR2 ,
328: x_msg_count OUT NOCOPY NUMBER ,
329: x_msg_data OUT NOCOPY VARCHAR2 ,
330: p_set_name_id IN NUMBER ,
371: /* Standard Start of API savepoint */
372: SAVEPOINT Update_PMSetName_PUB;
373:
374: /* Standard call to check for call compatibility. */
375: IF NOT FND_API.Compatible_API_Call ( l_api_version ,
376: p_api_version ,
377: l_api_name ,
378: G_PKG_NAME
379: )
377: l_api_name ,
378: G_PKG_NAME
379: )
380: THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383: /* Initialize message list if p_init_msg_list is set to TRUE. */
384: IF FND_API.to_Boolean( p_init_msg_list ) THEN
385: FND_MSG_PUB.initialize;
380: THEN
381: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
382: END IF;
383: /* Initialize message list if p_init_msg_list is set to TRUE. */
384: IF FND_API.to_Boolean( p_init_msg_list ) THEN
385: FND_MSG_PUB.initialize;
386: END IF;
387:
388: /* Initialize API return status to success */
385: FND_MSG_PUB.initialize;
386: END IF;
387:
388: /* Initialize API return status to success */
389: x_return_status := FND_API.G_RET_STS_SUCCESS;
390:
391: /* API body */
392: /* Start validation calls */
393: if (p_set_name is null) then
448: --raise_error(x_error_message);
449: FND_MESSAGE.SET_NAME('EAM', 'EAM_INVALID_DESC_FLEX');
450: FND_MESSAGE.SET_TOKEN('ERROR_MSG', x_error_message);
451: FND_MSG_PUB.Add;
452: RAISE FND_API.G_EXC_ERROR;
453:
454: END IF;
455: --added to check whether the end date is allowed.
456: -- we will not be allowing the updation of end date od seeded set names.
475: )
476: THEN
477: FND_MESSAGE.SET_NAME('EAM','EAM_SETNAME_SEED_DATE_NOUPD');
478: FND_MSG_PUB.Add;
479: RAISE FND_API.G_EXC_ERROR;
480: END IF;
481:
482:
483:
486:
487: if l_set_name_id = 1 then
488: FND_MESSAGE.SET_NAME('EAM','EAM_MAIN_GLOBAL');
489: FND_MSG_PUB.Add;
490: RAISE FND_API.G_EXC_ERROR;
491: end if;
492:
493: if p_organization_id is null then
494: FND_MESSAGE.SET_NAME('EAM','EAM_PM_ORGID_REQUIRED');
492:
493: if p_organization_id is null then
494: FND_MESSAGE.SET_NAME('EAM','EAM_PM_ORGID_REQUIRED');
495: FND_MSG_PUB.Add;
496: RAISE FND_API.G_EXC_ERROR;
497: end if;
498:
499: if nvl(l_local_flag, 'N') = 'N' then
500:
517: if l_exists = 'Y' then
518: FND_MESSAGE.SET_NAME('EAM','EAM_PM_SCHEDULE_EXISTS');
519: FND_MESSAGE.SET_TOKEN('ENTITY1', p_set_name);
520: FND_MSG_PUB.Add;
521: RAISE FND_API.G_EXC_ERROR;
522: end if;
523: end if;
524: end if;
525:
557: set_name_id = l_set_name_id;
558:
559:
560: /* Standard check of p_commit. */
561: IF FND_API.TO_BOOLEAN( P_COMMIT ) THEN
562: COMMIT WORK;
563: END IF;
564: /* Standard call to get message count and if count is 1, get message info. */
565: FND_MSG_PUB.get
569:
570:
571:
572: EXCEPTION
573: WHEN FND_API.G_EXC_ERROR THEN
574:
575: ROLLBACK TO Update_PMSetName_PUB;
576: x_return_status := FND_API.G_RET_STS_ERROR ;
577: FND_MSG_PUB.get
572: EXCEPTION
573: WHEN FND_API.G_EXC_ERROR THEN
574:
575: ROLLBACK TO Update_PMSetName_PUB;
576: x_return_status := FND_API.G_RET_STS_ERROR ;
577: FND_MSG_PUB.get
578: ( p_msg_index_out => x_msg_count ,
579: p_data => x_msg_data
580: );
578: ( p_msg_index_out => x_msg_count ,
579: p_data => x_msg_data
580: );
581:
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583:
584: ROLLBACK TO Update_PMSetName_PUB;
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: FND_MSG_PUB.get
581:
582: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
583:
584: ROLLBACK TO Update_PMSetName_PUB;
585: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
586: FND_MSG_PUB.get
587: ( p_msg_index_out => x_msg_count ,
588: p_data => x_msg_data
589: );
590:
591: WHEN OTHERS THEN
592:
593: ROLLBACK TO Update_PMSetName_PUB;
594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
595: IF FND_MSG_PUB.Check_Msg_Level
596: (FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR)
597: THEN
598: FND_MSG_PUB.Add_Exc_Msg
695: IS
696: BEGIN
697: FND_MESSAGE.SET_NAME ('EAM', ERROR);
698: FND_MSG_PUB.ADD;
699: RAISE FND_API.G_EXC_ERROR;
700: END;
701:
702: PROCEDURE print_log(info varchar2) is
703: PRAGMA AUTONOMOUS_TRANSACTION;