68: AMS_DEBUG_MEDIUM_ON CONSTANT boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_MEDIUM);
69:
70: PROCEDURE Create_Trigger
71: ( p_api_version IN NUMBER,
72: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
73: p_commit IN VARCHAR2 := FND_API.G_FALSE,
74: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
75:
76: x_return_status OUT NOCOPY VARCHAR2,
69:
70: PROCEDURE Create_Trigger
71: ( p_api_version IN NUMBER,
72: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
73: p_commit IN VARCHAR2 := FND_API.G_FALSE,
74: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
75:
76: x_return_status OUT NOCOPY VARCHAR2,
77: x_msg_count OUT NOCOPY NUMBER,
70: PROCEDURE Create_Trigger
71: ( p_api_version IN NUMBER,
72: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
73: p_commit IN VARCHAR2 := FND_API.G_FALSE,
74: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
75:
76: x_return_status OUT NOCOPY VARCHAR2,
77: x_msg_count OUT NOCOPY NUMBER,
78: x_msg_data OUT NOCOPY VARCHAR2,
124: AMS_Utility_PVT.debug_message(l_full_name||': start');
125:
126: END IF;
127:
128: IF FND_API.to_boolean(p_init_msg_list) THEN
129: FND_MSG_PUB.initialize;
130: END IF;
131:
132: --
131:
132: --
133: -- Standard call to check for call compatibility.
134: --
135: IF NOT FND_API.Compatible_API_Call ( l_api_version,
136: p_api_version,
137: l_api_name,
138: G_PKG_NAME)
139: THEN
136: p_api_version,
137: l_api_name,
138: G_PKG_NAME)
139: THEN
140: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
141: END IF;
142:
143: --
144: -- Initialize API return status to success
142:
143: --
144: -- Initialize API return status to success
145: --
146: x_return_status := FND_API.G_RET_STS_SUCCESS;
147:
148: --
149: -- API body
150: --
165:
166: AMS_TRIG_PVT.Create_Trigger
167: ( p_api_version => l_api_version,
168: p_init_msg_list => p_init_msg_list,
169: p_commit => FND_API.G_FALSE,
170: p_validation_level => p_validation_level,
171:
172: x_return_status => l_return_status,
173: x_msg_count => x_msg_count,
179:
180: --
181: -- If any errors happen abort API.
182: --
183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
184: RAISE FND_API.G_EXC_ERROR;
185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
180: --
181: -- If any errors happen abort API.
182: --
183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
184: RAISE FND_API.G_EXC_ERROR;
185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188:
181: -- If any errors happen abort API.
182: --
183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
184: RAISE FND_API.G_EXC_ERROR;
185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188:
189:
182: --
183: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
184: RAISE FND_API.G_EXC_ERROR;
185: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
186: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
187: END IF;
188:
189:
190: --IF (p_create_type = 'CREATE') THEN
201: IF ( p_trig_rec.triggering_type <> 'DATE' ) THEN
202: AMS_THLDCHK_PVT.Create_thldchk
203: ( p_api_version => l_api_version,
204: p_init_msg_list => p_init_msg_list,
205: p_commit => FND_API.G_FALSE,
206: p_validation_level => p_validation_level,
207: x_return_status => l_return_status,
208: x_msg_count => x_msg_count,
209: x_msg_data => x_msg_data,
212: ) ;
213: --
214: -- If any errors happen abort API.
215: --
216: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
217: RAISE FND_API.G_EXC_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
213: --
214: -- If any errors happen abort API.
215: --
216: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
217: RAISE FND_API.G_EXC_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221: END IF;
214: -- If any errors happen abort API.
215: --
216: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
217: RAISE FND_API.G_EXC_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221: END IF;
222:
215: --
216: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
217: RAISE FND_API.G_EXC_ERROR;
218: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
219: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
220: END IF;
221: END IF;
222:
223: --
240: l_thldact_rec.execute_action_type := 'NOTIFY';
241: AMS_THLDACT_PVT.Create_thldact
242: ( p_api_version => l_api_version,
243: p_init_msg_list => p_init_msg_list,
244: p_commit => FND_API.G_FALSE,
245: p_validation_level => p_validation_level,
246: x_return_status => l_return_status,
247: x_msg_count => x_msg_count,
248: x_msg_data => x_msg_data,
251: );
252: --
253: -- If any errors happen abort API.
254: --
255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
252: --
253: -- If any errors happen abort API.
254: --
255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
260: END IF;
253: -- If any errors happen abort API.
254: --
255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
260: END IF;
261:
254: --
255: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
256: RAISE FND_API.G_EXC_ERROR;
257: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
258: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
259: END IF;
260: END IF;
261:
262: -- soagrawa 30-apr-2003 added for action for execute associated schedules
266: l_thldact_exec_rec.execute_action_type := 'EXECUTE';
267: AMS_THLDACT_PVT.Create_thldact
268: ( p_api_version => l_api_version,
269: p_init_msg_list => p_init_msg_list,
270: p_commit => FND_API.G_FALSE,
271: p_validation_level => p_validation_level,
272: x_return_status => l_return_status,
273: x_msg_count => x_msg_count,
274: x_msg_data => x_msg_data,
277: );
278: --
279: -- If any errors happen abort API.
280: --
281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
282: RAISE FND_API.G_EXC_ERROR;
283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
278: --
279: -- If any errors happen abort API.
280: --
281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
282: RAISE FND_API.G_EXC_ERROR;
283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286: END IF;
279: -- If any errors happen abort API.
280: --
281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
282: RAISE FND_API.G_EXC_ERROR;
283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286: END IF;
287:
280: --
281: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
282: RAISE FND_API.G_EXC_ERROR;
283: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
284: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
285: END IF;
286: END IF;
287:
288: --
359: -- END of API body.
360: --
361:
362: -- Standard check of p_commit.
363: IF FND_API.To_Boolean ( p_commit )
364: THEN
365: COMMIT WORK;
366: END IF;
367:
370: --
371: FND_MSG_PUB.Count_AND_Get
372: ( p_count => x_msg_count,
373: p_data => x_msg_data,
374: p_encoded => FND_API.G_FALSE
375: );
376:
377: IF (AMS_DEBUG_HIGH_ON) THEN
378:
382:
383: END IF;
384:
385: EXCEPTION
386: WHEN FND_API.G_EXC_ERROR THEN
387: ROLLBACK TO Create_Trig_PVT;
388: x_return_status := FND_API.G_RET_STS_ERROR ;
389: FND_MSG_PUB.Count_AND_Get
390: ( p_count => x_msg_count,
384:
385: EXCEPTION
386: WHEN FND_API.G_EXC_ERROR THEN
387: ROLLBACK TO Create_Trig_PVT;
388: x_return_status := FND_API.G_RET_STS_ERROR ;
389: FND_MSG_PUB.Count_AND_Get
390: ( p_count => x_msg_count,
391: p_data => x_msg_data,
392: p_encoded => FND_API.G_FALSE
388: x_return_status := FND_API.G_RET_STS_ERROR ;
389: FND_MSG_PUB.Count_AND_Get
390: ( p_count => x_msg_count,
391: p_data => x_msg_data,
392: p_encoded => FND_API.G_FALSE
393: );
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO Create_Trig_PVT;
391: p_data => x_msg_data,
392: p_encoded => FND_API.G_FALSE
393: );
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO Create_Trig_PVT;
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
398: FND_MSG_PUB.Count_AND_Get
399: ( p_count => x_msg_count,
393: );
394:
395: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
396: ROLLBACK TO Create_Trig_PVT;
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
398: FND_MSG_PUB.Count_AND_Get
399: ( p_count => x_msg_count,
400: p_data => x_msg_data,
401: p_encoded => FND_API.G_FALSE
397: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
398: FND_MSG_PUB.Count_AND_Get
399: ( p_count => x_msg_count,
400: p_data => x_msg_data,
401: p_encoded => FND_API.G_FALSE
402: );
403:
404: WHEN OTHERS THEN
405: ROLLBACK TO Create_Trig_PVT;
402: );
403:
404: WHEN OTHERS THEN
405: ROLLBACK TO Create_Trig_PVT;
406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
407: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
408: THEN
409: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
410: END IF;
411:
412: FND_MSG_PUB.Count_AND_Get
413: ( p_count => x_msg_count,
414: p_data => x_msg_data,
415: p_encoded => FND_API.G_FALSE
416: );
417: END Create_Trigger;
418:
419:
441: -- End of Comments
442:
443: PROCEDURE Update_Trigger
444: ( p_api_version IN NUMBER,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448:
449: x_return_status OUT NOCOPY VARCHAR2,
442:
443: PROCEDURE Update_Trigger
444: ( p_api_version IN NUMBER,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448:
449: x_return_status OUT NOCOPY VARCHAR2,
450: x_msg_count OUT NOCOPY NUMBER,
443: PROCEDURE Update_Trigger
444: ( p_api_version IN NUMBER,
445: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
446: p_commit IN VARCHAR2 := FND_API.G_FALSE,
447: p_validation_level IN NUMBER := FND_API.G_VALID_LEVEL_FULL,
448:
449: x_return_status OUT NOCOPY VARCHAR2,
450: x_msg_count OUT NOCOPY NUMBER,
451: x_msg_data OUT NOCOPY VARCHAR2,
507:
508: --
509: -- Initialize message list IF p_init_msg_list is set to TRUE.
510: --
511: IF FND_API.to_Boolean( p_init_msg_list ) THEN
512: FND_MSG_PUB.initialize;
513: END IF;
514:
515: --
514:
515: --
516: -- Standard call to check for call compatibility.
517: --
518: IF NOT FND_API.Compatible_API_Call ( l_api_version,
519: p_api_version,
520: l_api_name,
521: G_PKG_NAME)
522: THEN
519: p_api_version,
520: l_api_name,
521: G_PKG_NAME)
522: THEN
523: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
524: END IF;
525:
526: --
527: -- Initialize API return status to success
525:
526: --
527: -- Initialize API return status to success
528: --
529: x_return_status := FND_API.G_RET_STS_SUCCESS;
530:
531: --
532: -- API body
533: --
541: CLOSE c_trig_process_id;
542: AMS_TRIG_PVT.Update_Trigger
543: ( p_api_version => l_api_version,
544: p_init_msg_list => p_init_msg_list,
545: p_commit => FND_API.G_FALSE,
546: p_validation_level => p_validation_level,
547: x_return_status => l_return_status,
548: x_msg_count => x_msg_count,
549: x_msg_data => x_msg_data,
551: ) ;
552: --
553: -- If any errors happen abort API.
554: --
555: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
556: RAISE FND_API.G_EXC_ERROR;
557: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
552: --
553: -- If any errors happen abort API.
554: --
555: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
556: RAISE FND_API.G_EXC_ERROR;
557: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560: --IF (p_updt_type = 'UPDATE' ) THEN
553: -- If any errors happen abort API.
554: --
555: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
556: RAISE FND_API.G_EXC_ERROR;
557: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560: --IF (p_updt_type = 'UPDATE' ) THEN
561: --
554: --
555: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
556: RAISE FND_API.G_EXC_ERROR;
557: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
558: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
559: END IF;
560: --IF (p_updt_type = 'UPDATE' ) THEN
561: --
562: -- Perform the database operation
571: THEN
572: l_thldchk_rec.trigger_id := p_trig_rec.trigger_id;
573: AMS_THLDCHK_PVT.Update_Thldchk
574: ( p_api_version => l_api_version,
575: p_init_msg_list => FND_API.G_FALSE,
576: p_commit => FND_API.G_FALSE,
577: p_validation_level => p_validation_level,
578: x_return_status => l_return_status,
579: x_msg_count => x_msg_count,
572: l_thldchk_rec.trigger_id := p_trig_rec.trigger_id;
573: AMS_THLDCHK_PVT.Update_Thldchk
574: ( p_api_version => l_api_version,
575: p_init_msg_list => FND_API.G_FALSE,
576: p_commit => FND_API.G_FALSE,
577: p_validation_level => p_validation_level,
578: x_return_status => l_return_status,
579: x_msg_count => x_msg_count,
580: x_msg_data => x_msg_data,
584:
585: --
586: -- If any errors happen abort API.
587: --
588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
589: RAISE FND_API.G_EXC_ERROR;
590: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
585: --
586: -- If any errors happen abort API.
587: --
588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
589: RAISE FND_API.G_EXC_ERROR;
590: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
593:
586: -- If any errors happen abort API.
587: --
588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
589: RAISE FND_API.G_EXC_ERROR;
590: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
593:
594: --ELSIF (p_updt_type = 'CREATE' ) THEN
587: --
588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
589: RAISE FND_API.G_EXC_ERROR;
590: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
591: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
592: END IF;
593:
594: --ELSIF (p_updt_type = 'CREATE' ) THEN
595: -- AMS_THLDCHK_PVT.Create_thldchk
594: --ELSIF (p_updt_type = 'CREATE' ) THEN
595: -- AMS_THLDCHK_PVT.Create_thldchk
596: -- ( p_api_version => l_api_version,
597: -- p_init_msg_list => p_init_msg_list,
598: -- p_commit => FND_API.G_FALSE,
599: -- p_validation_level => p_validation_level,
600: -- x_return_status => l_return_status,
601: -- x_msg_count => x_msg_count,
602: -- x_msg_data => x_msg_data,
606: -- ) ;
607: -- --
608: -- -- If any errors happen abort API.
609: -- --
610: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
611: -- RAISE FND_API.G_EXC_ERROR;
612: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
613: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614: -- END IF;
607: -- --
608: -- -- If any errors happen abort API.
609: -- --
610: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
611: -- RAISE FND_API.G_EXC_ERROR;
612: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
613: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614: -- END IF;
615:
608: -- -- If any errors happen abort API.
609: -- --
610: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
611: -- RAISE FND_API.G_EXC_ERROR;
612: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
613: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614: -- END IF;
615:
616: --ELSIF (p_updt_type = 'DELETE' ) THEN
609: -- --
610: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
611: -- RAISE FND_API.G_EXC_ERROR;
612: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
613: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
614: -- END IF;
615:
616: --ELSIF (p_updt_type = 'DELETE' ) THEN
617: -- AMS_THLDCHK_PVT.Delete_thldchk
616: --ELSIF (p_updt_type = 'DELETE' ) THEN
617: -- AMS_THLDCHK_PVT.Delete_thldchk
618: -- ( p_api_version => l_api_version,
619: -- p_init_msg_list => p_init_msg_list,
620: -- p_commit => FND_API.G_FALSE,
621:
622: -- x_return_status => l_return_status,
623: -- x_msg_count => x_msg_count,
624: -- x_msg_data => x_msg_data,
629:
630: --
631: -- If any errors happen abort API.
632: --
633: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
634: -- RAISE FND_API.G_EXC_ERROR;
635: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: -- END IF;
630: --
631: -- If any errors happen abort API.
632: --
633: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
634: -- RAISE FND_API.G_EXC_ERROR;
635: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: -- END IF;
638: -- END IF ;
631: -- If any errors happen abort API.
632: --
633: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
634: -- RAISE FND_API.G_EXC_ERROR;
635: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: -- END IF;
638: -- END IF ;
639:
632: --
633: -- IF l_return_status = FND_API.G_RET_STS_ERROR THEN
634: -- RAISE FND_API.G_EXC_ERROR;
635: -- ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
636: -- RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
637: -- END IF;
638: -- END IF ;
639:
640: --
655: THEN -- MMSG
656: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
657: FND_MSG_PUB.Add;
658: END IF;
659: RAISE FND_API.G_EXC_ERROR;
660: END IF;
661: CLOSE c_trig_actions_det;
662:
663: IF (AMS_DEBUG_HIGH_ON) THEN
682: THEN -- MMSG
683: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
684: FND_MSG_PUB.Add;
685: END IF;
686: RAISE FND_API.G_EXC_ERROR;
687: END IF;
688: CLOSE c_actions_det;
689:
690: l_thldact_rec.trigger_id := p_trig_rec.trigger_id;
693: l_thldact_rec.execute_action_type := 'NOTIFY';
694:
695: AMS_THLDACT_PVT.Update_ThldAct
696: ( p_api_version => l_api_version,
697: p_init_msg_list => FND_API.G_FALSE,
698: p_commit => FND_API.G_FALSE,
699: p_validation_level => p_validation_level,
700: x_return_status => l_return_status,
701: x_msg_count => x_msg_count,
694:
695: AMS_THLDACT_PVT.Update_ThldAct
696: ( p_api_version => l_api_version,
697: p_init_msg_list => FND_API.G_FALSE,
698: p_commit => FND_API.G_FALSE,
699: p_validation_level => p_validation_level,
700: x_return_status => l_return_status,
701: x_msg_count => x_msg_count,
702: x_msg_data => x_msg_data,
704: ) ;
705: -- --
706: -- -- If any errors happen abort API.
707: -- --
708: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
705: -- --
706: -- -- If any errors happen abort API.
707: -- --
708: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713: END IF;
706: -- -- If any errors happen abort API.
707: -- --
708: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713: END IF;
714:
707: -- --
708: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
709: RAISE FND_API.G_EXC_ERROR;
710: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
711: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
712: END IF;
713: END IF;
714:
715: -- notify flag action was added => create
721: l_thldact_rec.execute_action_type := 'NOTIFY';
722:
723: AMS_THLDACT_PVT.Create_ThldAct
724: ( p_api_version => l_api_version,
725: p_init_msg_list => FND_API.G_FALSE,
726: p_commit => FND_API.G_FALSE,
727: p_validation_level => p_validation_level,
728: x_return_status => l_return_status,
729: x_msg_count => x_msg_count,
722:
723: AMS_THLDACT_PVT.Create_ThldAct
724: ( p_api_version => l_api_version,
725: p_init_msg_list => FND_API.G_FALSE,
726: p_commit => FND_API.G_FALSE,
727: p_validation_level => p_validation_level,
728: x_return_status => l_return_status,
729: x_msg_count => x_msg_count,
730: x_msg_data => x_msg_data,
733: ) ;
734: -- --
735: -- -- If any errors happen abort API.
736: -- --
737: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: RAISE FND_API.G_EXC_ERROR;
739: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
741: END IF;
734: -- --
735: -- -- If any errors happen abort API.
736: -- --
737: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: RAISE FND_API.G_EXC_ERROR;
739: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
741: END IF;
742: END IF;
735: -- -- If any errors happen abort API.
736: -- --
737: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: RAISE FND_API.G_EXC_ERROR;
739: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
741: END IF;
742: END IF;
743:
736: -- --
737: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
738: RAISE FND_API.G_EXC_ERROR;
739: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
740: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
741: END IF;
742: END IF;
743:
744: -- notify flag action was removed => delete
752: THEN -- MMSG
753: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
754: FND_MSG_PUB.Add;
755: END IF;
756: RAISE FND_API.G_EXC_ERROR;
757: END IF;
758: CLOSE c_actions_det;
759:
760:
759:
760:
761: AMS_THLDACT_PVT.Delete_ThldAct
762: ( p_api_version => l_api_version,
763: p_init_msg_list => FND_API.G_FALSE,
764: p_commit => FND_API.G_FALSE,
765: x_return_status => l_return_status,
766: x_msg_count => x_msg_count,
767: x_msg_data => x_msg_data,
760:
761: AMS_THLDACT_PVT.Delete_ThldAct
762: ( p_api_version => l_api_version,
763: p_init_msg_list => FND_API.G_FALSE,
764: p_commit => FND_API.G_FALSE,
765: x_return_status => l_return_status,
766: x_msg_count => x_msg_count,
767: x_msg_data => x_msg_data,
768: p_trigger_action_id => l_trig_action_id,
770: ) ;
771: -- --
772: -- -- If any errors happen abort API.
773: -- --
774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
771: -- --
772: -- -- If any errors happen abort API.
773: -- --
774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
772: -- -- If any errors happen abort API.
773: -- --
774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
780:
773: -- --
774: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
775: RAISE FND_API.G_EXC_ERROR;
776: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
777: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
778: END IF;
779: END IF;
780:
781: /* ----------------------- EXECUTE SCHEDULE ACTION ------------------------------------- */
794: THEN -- MMSG
795: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
796: FND_MSG_PUB.Add;
797: END IF;
798: RAISE FND_API.G_EXC_ERROR;
799: END IF;
800: CLOSE c_actions_det;
801:
802: l_thldact_rec.trigger_id := p_trig_rec.trigger_id;
804: l_thldact_rec.execute_action_type := 'EXECUTE';
805:
806: AMS_THLDACT_PVT.Update_ThldAct
807: ( p_api_version => l_api_version,
808: p_init_msg_list => FND_API.G_FALSE,
809: p_commit => FND_API.G_FALSE,
810: p_validation_level => p_validation_level,
811: x_return_status => l_return_status,
812: x_msg_count => x_msg_count,
805:
806: AMS_THLDACT_PVT.Update_ThldAct
807: ( p_api_version => l_api_version,
808: p_init_msg_list => FND_API.G_FALSE,
809: p_commit => FND_API.G_FALSE,
810: p_validation_level => p_validation_level,
811: x_return_status => l_return_status,
812: x_msg_count => x_msg_count,
813: x_msg_data => x_msg_data,
815: ) ;
816: -- --
817: -- -- If any errors happen abort API.
818: -- --
819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
820: RAISE FND_API.G_EXC_ERROR;
821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
816: -- --
817: -- -- If any errors happen abort API.
818: -- --
819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
820: RAISE FND_API.G_EXC_ERROR;
821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824: */
817: -- -- If any errors happen abort API.
818: -- --
819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
820: RAISE FND_API.G_EXC_ERROR;
821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824: */
825: END IF;
818: -- --
819: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
820: RAISE FND_API.G_EXC_ERROR;
821: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
822: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
823: END IF;
824: */
825: END IF;
826:
834: l_thldact_rec.action_for_id := null;
835:
836: AMS_THLDACT_PVT.Create_ThldAct
837: ( p_api_version => l_api_version,
838: p_init_msg_list => FND_API.G_FALSE,
839: p_commit => FND_API.G_FALSE,
840: p_validation_level => p_validation_level,
841: x_return_status => l_return_status,
842: x_msg_count => x_msg_count,
835:
836: AMS_THLDACT_PVT.Create_ThldAct
837: ( p_api_version => l_api_version,
838: p_init_msg_list => FND_API.G_FALSE,
839: p_commit => FND_API.G_FALSE,
840: p_validation_level => p_validation_level,
841: x_return_status => l_return_status,
842: x_msg_count => x_msg_count,
843: x_msg_data => x_msg_data,
846: ) ;
847: -- --
848: -- -- If any errors happen abort API.
849: -- --
850: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
851: RAISE FND_API.G_EXC_ERROR;
852: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
847: -- --
848: -- -- If any errors happen abort API.
849: -- --
850: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
851: RAISE FND_API.G_EXC_ERROR;
852: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855: END IF;
848: -- -- If any errors happen abort API.
849: -- --
850: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
851: RAISE FND_API.G_EXC_ERROR;
852: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855: END IF;
856:
849: -- --
850: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
851: RAISE FND_API.G_EXC_ERROR;
852: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
853: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
854: END IF;
855: END IF;
856:
857: -- EXECUTE_SCHEDULE_FLAG action was removed => delete
865: THEN -- MMSG
866: FND_MESSAGE.set_name('AMS', 'AMS_API_RECORD_NOT_FOUND');
867: FND_MSG_PUB.Add;
868: END IF;
869: RAISE FND_API.G_EXC_ERROR;
870: END IF;
871: CLOSE c_actions_det;
872:
873: AMS_THLDACT_PVT.Delete_ThldAct
871: CLOSE c_actions_det;
872:
873: AMS_THLDACT_PVT.Delete_ThldAct
874: ( p_api_version => l_api_version,
875: p_init_msg_list => FND_API.G_FALSE,
876: p_commit => FND_API.G_FALSE,
877: x_return_status => l_return_status,
878: x_msg_count => x_msg_count,
879: x_msg_data => x_msg_data,
872:
873: AMS_THLDACT_PVT.Delete_ThldAct
874: ( p_api_version => l_api_version,
875: p_init_msg_list => FND_API.G_FALSE,
876: p_commit => FND_API.G_FALSE,
877: x_return_status => l_return_status,
878: x_msg_count => x_msg_count,
879: x_msg_data => x_msg_data,
880: p_trigger_action_id => l_trig_action_id,
883:
884: -- --
885: -- -- If any errors happen abort API.
886: -- --
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
884: -- --
885: -- -- If any errors happen abort API.
886: -- --
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892: END IF;
885: -- -- If any errors happen abort API.
886: -- --
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892: END IF;
893:
886: -- --
887: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
888: RAISE FND_API.G_EXC_ERROR;
889: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
890: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
891: END IF;
892: END IF;
893:
894: /* ------------------- update trigger now ---------------------- */
902: -- following code added by soagrawa for update modification on 04/18/2001
903:
904: AMS_TRIG_PVT.Update_Trigger
905: ( p_api_version => l_api_version,
906: p_init_msg_list => FND_API.G_FALSE,
907: p_commit => FND_API.G_FALSE,
908: p_validation_level => p_validation_level,
909:
910: x_return_status => l_return_status,
903:
904: AMS_TRIG_PVT.Update_Trigger
905: ( p_api_version => l_api_version,
906: p_init_msg_list => FND_API.G_FALSE,
907: p_commit => FND_API.G_FALSE,
908: p_validation_level => p_validation_level,
909:
910: x_return_status => l_return_status,
911: x_msg_count => x_msg_count,
914: ) ;
915: --
916: -- If any errors happen abort API.
917: --
918: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
919: RAISE FND_API.G_EXC_ERROR;
920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
922: END IF;
915: --
916: -- If any errors happen abort API.
917: --
918: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
919: RAISE FND_API.G_EXC_ERROR;
920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
922: END IF;
923:
916: -- If any errors happen abort API.
917: --
918: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
919: RAISE FND_API.G_EXC_ERROR;
920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
922: END IF;
923:
924: --
917: --
918: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
919: RAISE FND_API.G_EXC_ERROR;
920: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
921: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
922: END IF;
923:
924: --
925: -- Give Call to Trigger Engine here to Cancel and Resubmit the Process
940:
941: --
942: -- Standard check of p_commit.
943: --
944: IF FND_API.to_boolean(p_commit) THEN
945: COMMIT;
946: END IF;
947:
948: --
948: --
949: -- Get message count AND IF count is 1, get message info.
950: --
951: FND_MSG_PUB.count_and_get(
952: p_encoded => FND_API.g_false,
953: p_count => x_msg_count,
954: p_data => x_msg_data
955: );
956:
959: AMS_Utility_PVT.debug_message(l_full_name ||': end');
960: END IF;
961:
962: EXCEPTION
963: WHEN FND_API.G_EXC_ERROR THEN
964: ROLLBACK TO Update_Trig_PVT;
965: x_return_status := FND_API.G_RET_STS_ERROR ;
966: FND_MSG_PUB.Count_AND_Get
967: (p_count => x_msg_count,
961:
962: EXCEPTION
963: WHEN FND_API.G_EXC_ERROR THEN
964: ROLLBACK TO Update_Trig_PVT;
965: x_return_status := FND_API.G_RET_STS_ERROR ;
966: FND_MSG_PUB.Count_AND_Get
967: (p_count => x_msg_count,
968: p_data => x_msg_data,
969: p_encoded => FND_API.G_FALSE
965: x_return_status := FND_API.G_RET_STS_ERROR ;
966: FND_MSG_PUB.Count_AND_Get
967: (p_count => x_msg_count,
968: p_data => x_msg_data,
969: p_encoded => FND_API.G_FALSE
970: );
971:
972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973: ROLLBACK TO Update_Trig_PVT;
968: p_data => x_msg_data,
969: p_encoded => FND_API.G_FALSE
970: );
971:
972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973: ROLLBACK TO Update_Trig_PVT;
974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
975: FND_MSG_PUB.Count_AND_Get
976: (p_count => x_msg_count,
970: );
971:
972: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
973: ROLLBACK TO Update_Trig_PVT;
974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
975: FND_MSG_PUB.Count_AND_Get
976: (p_count => x_msg_count,
977: p_data => x_msg_data,
978: p_encoded => FND_API.G_FALSE
974: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
975: FND_MSG_PUB.Count_AND_Get
976: (p_count => x_msg_count,
977: p_data => x_msg_data,
978: p_encoded => FND_API.G_FALSE
979: );
980:
981: WHEN OTHERS THEN
982: ROLLBACK TO Update_Trig_PVT;
979: );
980:
981: WHEN OTHERS THEN
982: ROLLBACK TO Update_Trig_PVT;
983: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
984: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
985: THEN
986: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
987: END IF;
987: END IF;
988: FND_MSG_PUB.Count_AND_Get
989: (p_count => x_msg_count,
990: p_data => x_msg_data,
991: p_encoded => FND_API.G_FALSE
992: );
993: END Update_Trigger;
994:
995:
1009: -- End of Comments
1010:
1011: PROCEDURE Activate_Trigger
1012: ( p_api_version IN NUMBER,
1013: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1014: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1015:
1016: x_return_status OUT NOCOPY VARCHAR2,
1017: x_msg_count OUT NOCOPY NUMBER,
1010:
1011: PROCEDURE Activate_Trigger
1012: ( p_api_version IN NUMBER,
1013: p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
1014: p_commit IN VARCHAR2 := FND_API.G_FALSE,
1015:
1016: x_return_status OUT NOCOPY VARCHAR2,
1017: x_msg_count OUT NOCOPY NUMBER,
1018: x_msg_data OUT NOCOPY VARCHAR2,
1049: IF (AMS_DEBUG_HIGH_ON) THEN
1050: AMS_Utility_PVT.debug_message(l_full_name||': start');
1051: END IF;
1052:
1053: IF FND_API.to_boolean(p_init_msg_list) THEN
1054: FND_MSG_PUB.initialize;
1055: END IF;
1056:
1057: -- Standard call to check for call compatibility.
1054: FND_MSG_PUB.initialize;
1055: END IF;
1056:
1057: -- Standard call to check for call compatibility.
1058: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1059: p_api_version,
1060: l_api_name,
1061: G_PKG_NAME)
1062: THEN
1059: p_api_version,
1060: l_api_name,
1061: G_PKG_NAME)
1062: THEN
1063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1064: END IF;
1065:
1066: -- Initialize API return status to success
1067: x_return_status := FND_API.G_RET_STS_SUCCESS;
1063: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1064: END IF;
1065:
1066: -- Initialize API return status to success
1067: x_return_status := FND_API.G_RET_STS_SUCCESS;
1068:
1069: -- API body
1070:
1071: IF (AMS_DEBUG_HIGH_ON) THEN
1137:
1138: -- END of API body.
1139:
1140: -- Standard check of p_commit.
1141: IF FND_API.To_Boolean ( p_commit )
1142: THEN
1143: COMMIT WORK;
1144: END IF;
1145:
1146: -- Standard call to get message count AND IF count is 1, get message info.
1147: FND_MSG_PUB.Count_AND_Get
1148: ( p_count => x_msg_count,
1149: p_data => x_msg_data,
1150: p_encoded => FND_API.G_FALSE
1151: );
1152:
1153: IF (AMS_DEBUG_HIGH_ON) THEN
1154: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1154: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1155: END IF;
1156:
1157: EXCEPTION
1158: WHEN FND_API.G_EXC_ERROR THEN
1159: ROLLBACK TO Activate_Trig_PVT;
1160: x_return_status := FND_API.G_RET_STS_ERROR ;
1161: FND_MSG_PUB.Count_AND_Get
1162: ( p_count => x_msg_count,
1156:
1157: EXCEPTION
1158: WHEN FND_API.G_EXC_ERROR THEN
1159: ROLLBACK TO Activate_Trig_PVT;
1160: x_return_status := FND_API.G_RET_STS_ERROR ;
1161: FND_MSG_PUB.Count_AND_Get
1162: ( p_count => x_msg_count,
1163: p_data => x_msg_data,
1164: p_encoded => FND_API.G_FALSE
1160: x_return_status := FND_API.G_RET_STS_ERROR ;
1161: FND_MSG_PUB.Count_AND_Get
1162: ( p_count => x_msg_count,
1163: p_data => x_msg_data,
1164: p_encoded => FND_API.G_FALSE
1165: );
1166:
1167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168: ROLLBACK TO Activate_Trig_PVT;
1163: p_data => x_msg_data,
1164: p_encoded => FND_API.G_FALSE
1165: );
1166:
1167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168: ROLLBACK TO Activate_Trig_PVT;
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1170: FND_MSG_PUB.Count_AND_Get
1171: ( p_count => x_msg_count,
1165: );
1166:
1167: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1168: ROLLBACK TO Activate_Trig_PVT;
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1170: FND_MSG_PUB.Count_AND_Get
1171: ( p_count => x_msg_count,
1172: p_data => x_msg_data,
1173: p_encoded => FND_API.G_FALSE
1169: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1170: FND_MSG_PUB.Count_AND_Get
1171: ( p_count => x_msg_count,
1172: p_data => x_msg_data,
1173: p_encoded => FND_API.G_FALSE
1174: );
1175:
1176: WHEN OTHERS THEN
1177: ROLLBACK TO Activate_Trig_PVT;
1174: );
1175:
1176: WHEN OTHERS THEN
1177: ROLLBACK TO Activate_Trig_PVT;
1178: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1179: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1180: THEN
1181: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1182: END IF;
1183:
1184: FND_MSG_PUB.Count_AND_Get
1185: ( p_count => x_msg_count,
1186: p_data => x_msg_data,
1187: p_encoded => FND_API.G_FALSE
1188: );
1189: END Activate_Trigger;
1190: /* end srivikri 17-Feb-2006 */
1191: