84: -- 02/22/2000 ptendulk Created
85: -- End of Comments
86:
87: PROCEDURE FulFill_OC(p_api_version IN NUMBER,
88: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
89:
90: x_return_status OUT NOCOPY VARCHAR2,
91: x_msg_count OUT NOCOPY NUMBER ,
92: x_msg_data OUT NOCOPY VARCHAR2,
151: END IF;
152: --
153: -- Initialize message list IF p_init_msg_list is set to TRUE.
154: --
155: IF FND_API.to_Boolean( p_init_msg_list ) THEN
156: FND_MSG_PUB.initialize;
157: END IF;
158:
159: --
158:
159: --
160: -- Standard call to check for call compatibility.
161: --
162: IF NOT FND_API.Compatible_API_Call ( l_api_version,
163: p_api_version,
164: l_api_name,
165: G_PKG_NAME)
166: THEN
163: p_api_version,
164: l_api_name,
165: G_PKG_NAME)
166: THEN
167: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
168: END IF;
169:
170: --
171: -- Initialize API return status to success
169:
170: --
171: -- Initialize API return status to success
172: --
173: x_return_status := FND_API.G_RET_STS_SUCCESS;
174:
175:
176: --
177: -- API body
184: l_qte_header_rec.currency_code := l_del_rec.currency_code ;
185: l_qte_header_rec.price_list_id := l_del_rec.pricelist_header_id ;
186: l_qte_header_rec.employee_person_id := 41942 ;
187:
188: l_control_rec.book_flag := FND_API.G_TRUE ;
189: l_control_rec.calculate_price := FND_API.G_FALSE ;
190: l_control_rec.server_id := 3 ;
191: -- l_qte_header_rec.order_type_id := 1000 ;
192:
185: l_qte_header_rec.price_list_id := l_del_rec.pricelist_header_id ;
186: l_qte_header_rec.employee_person_id := 41942 ;
187:
188: l_control_rec.book_flag := FND_API.G_TRUE ;
189: l_control_rec.calculate_price := FND_API.G_FALSE ;
190: l_control_rec.server_id := 3 ;
191: -- l_qte_header_rec.order_type_id := 1000 ;
192:
193: OPEN c_list_ent_det ;
259:
260: --
261: -- If any errors happen abort API.
262: --
263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
264: RAISE FND_API.G_EXC_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
260: --
261: -- If any errors happen abort API.
262: --
263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
264: RAISE FND_API.G_EXC_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
268:
261: -- If any errors happen abort API.
262: --
263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
264: RAISE FND_API.G_EXC_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
268:
269: IF (AMS_DEBUG_HIGH_ON) THEN
262: --
263: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
264: RAISE FND_API.G_EXC_ERROR;
265: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
266: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
267: END IF;
268:
269: IF (AMS_DEBUG_HIGH_ON) THEN
270: AMS_UTILITY_PVT.Debug_message('order header is '|| x_order_header_rec.order_header_id);
288: --
289: FND_MSG_PUB.Count_AND_Get
290: ( p_count => x_msg_count,
291: p_data => x_msg_data,
292: p_encoded => FND_API.G_FALSE
293: );
294:
295: IF (AMS_DEBUG_HIGH_ON) THEN
296: AMS_Utility_PVT.debug_message(l_full_name ||': end');
297: END IF;
298:
299:
300: EXCEPTION
301: WHEN FND_API.G_EXC_ERROR THEN
302:
303: ROLLBACK TO FulFill_OC_PT;
304: x_return_status := FND_API.G_RET_STS_ERROR ;
305:
300: EXCEPTION
301: WHEN FND_API.G_EXC_ERROR THEN
302:
303: ROLLBACK TO FulFill_OC_PT;
304: x_return_status := FND_API.G_RET_STS_ERROR ;
305:
306: FND_MSG_PUB.Count_AND_Get
307: ( p_count => x_msg_count,
308: p_data => x_msg_data,
305:
306: FND_MSG_PUB.Count_AND_Get
307: ( p_count => x_msg_count,
308: p_data => x_msg_data,
309: p_encoded => FND_API.G_FALSE
310: );
311: ams_utility_pvt.display_messages;
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313:
308: p_data => x_msg_data,
309: p_encoded => FND_API.G_FALSE
310: );
311: ams_utility_pvt.display_messages;
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313:
314: ROLLBACK TO FulFill_OC_PT;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
316:
311: ams_utility_pvt.display_messages;
312: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
313:
314: ROLLBACK TO FulFill_OC_PT;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
316:
317: FND_MSG_PUB.Count_AND_Get
318: ( p_count => x_msg_count,
319: p_data => x_msg_data,
316:
317: FND_MSG_PUB.Count_AND_Get
318: ( p_count => x_msg_count,
319: p_data => x_msg_data,
320: p_encoded => FND_API.G_FALSE
321: );
322: ams_utility_pvt.display_messages;
323:
324: WHEN OTHERS THEN
323:
324: WHEN OTHERS THEN
325:
326: ROLLBACK TO FulFill_OC_PT;
327: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
328:
329: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
330: THEN
331: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
333:
334: FND_MSG_PUB.Count_AND_Get
335: ( p_count => x_msg_count,
336: p_data => x_msg_data,
337: p_encoded => FND_API.G_FALSE
338: );
339:
340: ams_utility_pvt.display_messages;
341:
387: -- 29-dec-2005 kbasavar Added references to email_format for delivery_mode fix
388: -- End of Comments
389: PROCEDURE AMS_FULFILL
390: (p_api_version IN NUMBER,
391: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
392: p_commit IN VARCHAR2 := FND_API.G_False,
393:
394: x_return_status OUT NOCOPY VARCHAR2,
395: x_msg_count OUT NOCOPY NUMBER ,
388: -- End of Comments
389: PROCEDURE AMS_FULFILL
390: (p_api_version IN NUMBER,
391: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
392: p_commit IN VARCHAR2 := FND_API.G_False,
393:
394: x_return_status OUT NOCOPY VARCHAR2,
395: x_msg_count OUT NOCOPY NUMBER ,
396: x_msg_data OUT NOCOPY VARCHAR2,
492:
493: --
494: -- Initialize message list IF p_init_msg_list is set to TRUE.
495: --
496: IF FND_API.to_Boolean( p_init_msg_list ) THEN
497: FND_MSG_PUB.initialize;
498: END IF;
499:
500: --
499:
500: --
501: -- Standard call to check for call compatibility.
502: --
503: IF NOT FND_API.Compatible_API_Call ( l_api_version,
504: p_api_version,
505: l_api_name,
506: G_PKG_NAME)
507: THEN
504: p_api_version,
505: l_api_name,
506: G_PKG_NAME)
507: THEN
508: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
509: END IF;
510:
511: --
512: -- Initialize API return status to success
510:
511: --
512: -- Initialize API return status to success
513: --
514: x_return_status := FND_API.G_RET_STS_SUCCESS;
515:
516: --
517: -- API body
518: --
532:
533: IF l_template_id IS null
534: THEN
535: AMS_Utility_PVT.Error_Message('AMS_CSCH_NO_COVER_LETTER');
536: RAISE FND_API.g_exc_error;
537: END IF;
538:
539: -- soagrawa 30-sep-2003 added for 11.5.10
540: IF l_activity_id = 10
656: x_order_header_rec => y_order_header_rec,
657: x_request_history_id => x_request_history_id
658: );
659:
660: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
661: RAISE FND_API.G_EXC_ERROR;
662: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: END IF;
657: x_request_history_id => x_request_history_id
658: );
659:
660: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
661: RAISE FND_API.G_EXC_ERROR;
662: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: END IF;
665:
658: );
659:
660: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
661: RAISE FND_API.G_EXC_ERROR;
662: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: END IF;
665:
666: IF (AMS_DEBUG_HIGH_ON) THEN
659:
660: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
661: RAISE FND_API.G_EXC_ERROR;
662: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
663: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
664: END IF;
665:
666: IF (AMS_DEBUG_HIGH_ON) THEN
667: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status||x_request_history_id);
677:
678: --
679: -- Standard check of p_commit.
680: --
681: IF FND_API.To_Boolean ( p_commit )
682: THEN
683: COMMIT WORK;
684: END IF;
685:
688: --
689: FND_MSG_PUB.Count_AND_Get
690: ( p_count => x_msg_count,
691: p_data => x_msg_data,
692: p_encoded => FND_API.G_FALSE
693: );
694:
695: IF (AMS_DEBUG_HIGH_ON) THEN
696: AMS_Utility_PVT.debug_message(l_full_name ||': end');
697: END IF;
698:
699:
700: EXCEPTION
701: WHEN FND_API.G_EXC_ERROR THEN
702:
703: ROLLBACK TO Create_FULFILL_PVT;
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705:
700: EXCEPTION
701: WHEN FND_API.G_EXC_ERROR THEN
702:
703: ROLLBACK TO Create_FULFILL_PVT;
704: x_return_status := FND_API.G_RET_STS_ERROR ;
705:
706: FND_MSG_PUB.Count_AND_Get
707: ( p_count => x_msg_count,
708: p_data => x_msg_data,
705:
706: FND_MSG_PUB.Count_AND_Get
707: ( p_count => x_msg_count,
708: p_data => x_msg_data,
709: p_encoded => FND_API.G_FALSE
710: );
711: ams_utility_pvt.display_messages;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713:
708: p_data => x_msg_data,
709: p_encoded => FND_API.G_FALSE
710: );
711: ams_utility_pvt.display_messages;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713:
714: ROLLBACK TO Create_FULFILL_PVT;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
716:
711: ams_utility_pvt.display_messages;
712: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
713:
714: ROLLBACK TO Create_FULFILL_PVT;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
716:
717: FND_MSG_PUB.Count_AND_Get
718: ( p_count => x_msg_count,
719: p_data => x_msg_data,
716:
717: FND_MSG_PUB.Count_AND_Get
718: ( p_count => x_msg_count,
719: p_data => x_msg_data,
720: p_encoded => FND_API.G_FALSE
721: );
722: ams_utility_pvt.display_messages;
723:
724: WHEN OTHERS THEN
723:
724: WHEN OTHERS THEN
725:
726: ROLLBACK TO Create_FULFILL_PVT;
727: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
728:
729: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
730: THEN
731: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
733:
734: FND_MSG_PUB.Count_AND_Get
735: ( p_count => x_msg_count,
736: p_data => x_msg_data,
737: p_encoded => FND_API.G_FALSE
738: );
739: ams_utility_pvt.display_messages;
740: END AMS_FULFILL ;
741:
758: -- 10/27/2000 ptendulk created
759: -- End of Comments
760: PROCEDURE AMS_EXEC_SCHEDULE
761: (p_api_version IN NUMBER,
762: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
763: p_commit IN VARCHAR2 := FND_API.G_False,
764:
765: x_return_status OUT NOCOPY VARCHAR2,
766: x_msg_count OUT NOCOPY NUMBER ,
759: -- End of Comments
760: PROCEDURE AMS_EXEC_SCHEDULE
761: (p_api_version IN NUMBER,
762: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
763: p_commit IN VARCHAR2 := FND_API.G_False,
764:
765: x_return_status OUT NOCOPY VARCHAR2,
766: x_msg_count OUT NOCOPY NUMBER ,
767: x_msg_data OUT NOCOPY VARCHAR2,
801:
802: --
803: -- Initialize message list IF p_init_msg_list is set to TRUE.
804: --
805: IF FND_API.to_Boolean( p_init_msg_list ) THEN
806: FND_MSG_PUB.initialize;
807: END IF;
808:
809: --
808:
809: --
810: -- Standard call to check for call compatibility.
811: --
812: IF NOT FND_API.Compatible_API_Call ( l_api_version,
813: p_api_version,
814: l_api_name,
815: G_PKG_NAME)
816: THEN
813: p_api_version,
814: l_api_name,
815: G_PKG_NAME)
816: THEN
817: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
818: END IF;
819:
820: --
821: -- Initialize API return status to success
819:
820: --
821: -- Initialize API return status to success
822: --
823: x_return_status := FND_API.G_RET_STS_SUCCESS;
824:
825: -- Update the list header with the Schedule details.
826: AMS_LISTHEADER_PVT.Init_ListHeader_rec(x_listheader_rec => l_list_rec);
827: l_list_rec.list_header_id := p_list_header_id ;
833: l_list_rec.list_used_by_id := p_schedule_id ; -- Campaign Schedule
834:
835: AMS_LISTHEADER_PVT.Update_ListHeader
836: ( p_api_version => p_api_version,
837: p_init_msg_list => FND_API.G_FALSE,
838: p_commit => FND_API.G_FALSE,
839: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
840:
841: x_return_status => x_return_status,
834:
835: AMS_LISTHEADER_PVT.Update_ListHeader
836: ( p_api_version => p_api_version,
837: p_init_msg_list => FND_API.G_FALSE,
838: p_commit => FND_API.G_FALSE,
839: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
840:
841: x_return_status => x_return_status,
842: x_msg_count => x_msg_count,
835: AMS_LISTHEADER_PVT.Update_ListHeader
836: ( p_api_version => p_api_version,
837: p_init_msg_list => FND_API.G_FALSE,
838: p_commit => FND_API.G_FALSE,
839: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
840:
841: x_return_status => x_return_status,
842: x_msg_count => x_msg_count,
843: x_msg_data => x_msg_data ,
845: p_listheader_rec => l_list_rec
846: );
847:
848: -- If any errors happen abort API.
849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
850: RAISE FND_API.G_EXC_ERROR;
851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: END IF;
846: );
847:
848: -- If any errors happen abort API.
849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
850: RAISE FND_API.G_EXC_ERROR;
851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: END IF;
854:
847:
848: -- If any errors happen abort API.
849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
850: RAISE FND_API.G_EXC_ERROR;
851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: END IF;
854:
855: --
848: -- If any errors happen abort API.
849: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
850: RAISE FND_API.G_EXC_ERROR;
851: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
852: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
853: END IF;
854:
855: --
856: -- Execute the list if required
870: p_schedule_id => p_schedule_id ) ;
871:
872:
873: -- If any errors happen abort API.
874: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
871:
872:
873: -- If any errors happen abort API.
874: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
872:
873: -- If any errors happen abort API.
874: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880: --
873: -- If any errors happen abort API.
874: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
875: RAISE FND_API.G_EXC_ERROR;
876: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
877: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
878: END IF;
879:
880: --
881: -- Update the list sent out date with sysdate if success
889: l_list_rec.sent_out_date := sysdate ;
890:
891: AMS_LISTHEADER_PVT.Update_ListHeader
892: ( p_api_version => p_api_version,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_commit => FND_API.G_FALSE,
895: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
896:
897: x_return_status => x_return_status,
890:
891: AMS_LISTHEADER_PVT.Update_ListHeader
892: ( p_api_version => p_api_version,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_commit => FND_API.G_FALSE,
895: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
896:
897: x_return_status => x_return_status,
898: x_msg_count => x_msg_count,
891: AMS_LISTHEADER_PVT.Update_ListHeader
892: ( p_api_version => p_api_version,
893: p_init_msg_list => FND_API.G_FALSE,
894: p_commit => FND_API.G_FALSE,
895: p_validation_level => FND_API.G_VALID_LEVEL_FULL,
896:
897: x_return_status => x_return_status,
898: x_msg_count => x_msg_count,
899: x_msg_data => x_msg_data ,
901: p_listheader_rec => l_list_rec
902: );
903:
904: -- If any errors happen abort API.
905: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
902: );
903:
904: -- If any errors happen abort API.
905: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
903:
904: -- If any errors happen abort API.
905: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
911: END IF ;
904: -- If any errors happen abort API.
905: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
906: RAISE FND_API.G_EXC_ERROR;
907: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
908: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
909: END IF;
910:
911: END IF ;
912:
912:
913: --
914: -- Standard check of p_commit.
915: --
916: IF FND_API.To_Boolean ( p_commit )
917: THEN
918: COMMIT WORK;
919: END IF;
920:
923: --
924: FND_MSG_PUB.Count_AND_Get
925: ( p_count => x_msg_count,
926: p_data => x_msg_data,
927: p_encoded => FND_API.G_FALSE
928: );
929:
930: IF (AMS_DEBUG_HIGH_ON) THEN
931: AMS_Utility_PVT.debug_message(l_full_name ||': end');
933:
934:
935:
936: EXCEPTION
937: WHEN FND_API.G_EXC_ERROR THEN
938:
939: ROLLBACK TO AMS_EXEC_SCHEDULE;
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941:
936: EXCEPTION
937: WHEN FND_API.G_EXC_ERROR THEN
938:
939: ROLLBACK TO AMS_EXEC_SCHEDULE;
940: x_return_status := FND_API.G_RET_STS_ERROR ;
941:
942: FND_MSG_PUB.Count_AND_Get
943: ( p_count => x_msg_count,
944: p_data => x_msg_data,
941:
942: FND_MSG_PUB.Count_AND_Get
943: ( p_count => x_msg_count,
944: p_data => x_msg_data,
945: p_encoded => FND_API.G_FALSE
946: );
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949:
944: p_data => x_msg_data,
945: p_encoded => FND_API.G_FALSE
946: );
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949:
950: ROLLBACK TO AMS_EXEC_SCHEDULE;
951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
952:
947:
948: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
949:
950: ROLLBACK TO AMS_EXEC_SCHEDULE;
951: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
952:
953: FND_MSG_PUB.Count_AND_Get
954: ( p_count => x_msg_count,
955: p_data => x_msg_data,
952:
953: FND_MSG_PUB.Count_AND_Get
954: ( p_count => x_msg_count,
955: p_data => x_msg_data,
956: p_encoded => FND_API.G_FALSE
957: );
958:
959: WHEN OTHERS THEN
960:
958:
959: WHEN OTHERS THEN
960:
961: ROLLBACK TO AMS_EXEC_SCHEDULE;
962: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
963:
964: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
965: THEN
966: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
968:
969: FND_MSG_PUB.Count_AND_Get
970: ( p_count => x_msg_count,
971: p_data => x_msg_data,
972: p_encoded => FND_API.G_FALSE
973: );
974: END AMS_EXEC_SCHEDULE ;
975:
976:
1018: -- End of Comments
1019: /*
1020: PROCEDURE Get_Master_Info
1021: (p_api_version IN NUMBER,
1022: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1023:
1024: x_return_status OUT NOCOPY VARCHAR2,
1025: x_msg_count OUT NOCOPY NUMBER,
1026: x_msg_data OUT NOCOPY VARCHAR2,
1080:
1081: --
1082: -- Initialize message list IF p_init_msg_list is set to TRUE.
1083: --
1084: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1085: FND_MSG_PUB.initialize;
1086: END IF;
1087:
1088: --
1087:
1088: --
1089: -- Standard call to check for call compatibility.
1090: --
1091: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1092: p_api_version,
1093: l_api_name,
1094: G_PKG_NAME)
1095: THEN
1092: p_api_version,
1093: l_api_name,
1094: G_PKG_NAME)
1095: THEN
1096: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1097: END IF;
1098:
1099: --
1100: -- Initialize API return status to success
1098:
1099: --
1100: -- Initialize API return status to success
1101: --
1102: l_return_status := FND_API.G_RET_STS_SUCCESS;
1103:
1104: --
1105: -- API body
1106: --
1116: IF l_content_id IS NULL THEN
1117: --
1118: -- Send Collaterals without Coverletter : Confirm
1119: --
1120: x_return_status := FND_API.G_RET_STS_SUCCESS;
1121: RETURN ;
1122: END IF;
1123:
1124: IF (l_media_type_code = 'DIRECT_MARKETING') AND
1189: x_content_xml => l_content_xml);
1190: --
1191: -- If any errors happen abort API.
1192: --
1193: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1194: x_return_status := l_return_status ;
1195: RETURN ;
1196: END IF;
1197:
1203: THEN -- MMSG
1204: FND_MESSAGE.Set_Name('AMS', 'AMS_FFM_INVALID_MEDIA');
1205: FND_MSG_PUB.Add;
1206: END IF;
1207: RAISE FND_API.G_EXC_ERROR;
1208: x_return_status := FND_API.G_RET_STS_ERROR ;
1209: RETURN;
1210: END IF;
1211:
1204: FND_MESSAGE.Set_Name('AMS', 'AMS_FFM_INVALID_MEDIA');
1205: FND_MSG_PUB.Add;
1206: END IF;
1207: RAISE FND_API.G_EXC_ERROR;
1208: x_return_status := FND_API.G_RET_STS_ERROR ;
1209: RETURN;
1210: END IF;
1211:
1212: --
1224: --
1225: FND_MSG_PUB.Count_AND_Get
1226: ( p_count => x_msg_count,
1227: p_data => x_msg_data,
1228: p_encoded => FND_API.G_FALSE
1229: );
1230:
1231: IF (AMS_DEBUG_HIGH_ON) THEN
1232: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1233: END IF;
1234:
1235: EXCEPTION
1236: WHEN OTHERS THEN
1237: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1238:
1239: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1240: THEN
1241: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1243:
1244: FND_MSG_PUB.Count_AND_Get
1245: ( p_count => x_msg_count,
1246: p_data => x_msg_data,
1247: p_encoded => FND_API.G_FALSE
1248: );
1249: END Get_Master_Info;
1250: */
1251:
1272: -- End of Comments
1273: /*
1274: PROCEDURE Get_Kit_Info
1275: (p_api_version IN NUMBER,
1276: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1277:
1278: x_return_status OUT NOCOPY VARCHAR2,
1279: x_msg_count OUT NOCOPY NUMBER,
1280: x_msg_data OUT NOCOPY VARCHAR2,
1318:
1319: --
1320: -- Initialize message list IF p_init_msg_list is set to TRUE.
1321: --
1322: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1323: FND_MSG_PUB.initialize;
1324: END IF;
1325:
1326: --
1325:
1326: --
1327: -- Standard call to check for call compatibility.
1328: --
1329: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1330: p_api_version,
1331: l_api_name,
1332: G_PKG_NAME)
1333: THEN
1330: p_api_version,
1331: l_api_name,
1332: G_PKG_NAME)
1333: THEN
1334: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1335: END IF;
1336:
1337: --
1338: -- Initialize API return status to success
1336:
1337: --
1338: -- Initialize API return status to success
1339: --
1340: x_return_status := FND_API.G_RET_STS_SUCCESS;
1341:
1342: --
1343: -- API body
1344: --
1362:
1363: --
1364: -- If any errors happen abort API.
1365: --
1366: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1367: RETURN ;
1368: END IF;
1369:
1370: l_final_content := l_final_content || l_content_xml ;
1386: --
1387: FND_MSG_PUB.Count_AND_Get
1388: ( p_count => x_msg_count,
1389: p_data => x_msg_data,
1390: p_encoded => FND_API.G_FALSE
1391: );
1392:
1393: IF (AMS_DEBUG_HIGH_ON) THEN
1394: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1396:
1397:
1398: EXCEPTION
1399: WHEN OTHERS THEN
1400: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1401:
1402: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1403: THEN
1404: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1406:
1407: FND_MSG_PUB.Count_AND_Get
1408: ( p_count => x_msg_count,
1409: p_data => x_msg_data,
1410: p_encoded => FND_API.G_FALSE
1411: );
1412:
1413: END Get_Kit_Info;
1414: */
1450:
1451: /*
1452: PROCEDURE Get_Deliverable_Info
1453: (p_api_version IN NUMBER,
1454: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1455:
1456: x_return_status OUT NOCOPY VARCHAR2,
1457: x_msg_count OUT NOCOPY NUMBER ,
1458: x_msg_data OUT NOCOPY VARCHAR2,
1467: IS
1468: l_api_name CONSTANT VARCHAR2(30) := 'Get_Deliverable_Info';
1469: l_api_version CONSTANT NUMBER := 1.0;
1470: l_full_name CONSTANT VARCHAR2(60) := g_pkg_name ||'.'|| l_api_name;
1471: l_return_status VARCHAR2(1) := FND_API.G_RET_STS_SUCCESS;
1472:
1473:
1474: l_media_type VARCHAR2(30);
1475: l_media_type_code VARCHAR2(30);
1537: SAVEPOINT Get_Deliverable_Info_SP ;
1538: --
1539: -- Initialize message list IF p_init_msg_list is set to TRUE.
1540: --
1541: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1542: FND_MSG_PUB.initialize;
1543: END IF;
1544:
1545: --
1544:
1545: --
1546: -- Standard call to check for call compatibility.
1547: --
1548: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1549: p_api_version,
1550: l_api_name,
1551: G_PKG_NAME)
1552: THEN
1549: p_api_version,
1550: l_api_name,
1551: G_PKG_NAME)
1552: THEN
1553: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1554: END IF;
1555:
1556: --
1557: -- Initialize API return status to success
1555:
1556: --
1557: -- Initialize API return status to success
1558: --
1559: x_return_status := FND_API.G_RET_STS_SUCCESS;
1560:
1561: --
1562: -- API body
1563: --
1584: p_content_type => l_content_type,
1585: p_request_id => p_request_id,
1586: x_content_xml => l_content_xml);
1587:
1588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1589: CLOSE c_csch_det ;
1590: RAISE FND_API.G_EXC_ERROR;
1591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1592: CLOSE c_csch_det ;
1586: x_content_xml => l_content_xml);
1587:
1588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1589: CLOSE c_csch_det ;
1590: RAISE FND_API.G_EXC_ERROR;
1591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1592: CLOSE c_csch_det ;
1593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1594: END IF;
1587:
1588: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1589: CLOSE c_csch_det ;
1590: RAISE FND_API.G_EXC_ERROR;
1591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1592: CLOSE c_csch_det ;
1593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1594: END IF;
1595: l_final_content := l_final_content || l_content_xml ;
1589: CLOSE c_csch_det ;
1590: RAISE FND_API.G_EXC_ERROR;
1591: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1592: CLOSE c_csch_det ;
1593: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1594: END IF;
1595: l_final_content := l_final_content || l_content_xml ;
1596:
1597: END LOOP;
1671: THEN -- MMSG
1672: FND_MESSAGE.Set_Name('AMS', 'AMS_FFM_INVALID_MEDIA');
1673: FND_MSG_PUB.Add;
1674: END IF;
1675: RAISE FND_API.G_EXC_ERROR;
1676: x_return_status := FND_API.G_RET_STS_ERROR ;
1677: RETURN;
1678: ELSE
1679: IF l_media_id = 10 THEN
1672: FND_MESSAGE.Set_Name('AMS', 'AMS_FFM_INVALID_MEDIA');
1673: FND_MSG_PUB.Add;
1674: END IF;
1675: RAISE FND_API.G_EXC_ERROR;
1676: x_return_status := FND_API.G_RET_STS_ERROR ;
1677: RETURN;
1678: ELSE
1679: IF l_media_id = 10 THEN
1680: l_media_type := 'FAX' ;
1716: END IF;
1717:
1718: -- Modified by soagrawa on 23Mar2001
1719: -- If any errors, raise exceptions.
1720: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1721: -- x_return_status := l_return_status ;
1722: -- RETURN ;
1723: -- END IF;
1724:
1721: -- x_return_status := l_return_status ;
1722: -- RETURN ;
1723: -- END IF;
1724:
1725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1722: -- RETURN ;
1723: -- END IF;
1724:
1725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730:
1723: -- END IF;
1724:
1725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730:
1731: --
1724:
1725: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1726: RAISE FND_API.G_EXC_ERROR;
1727: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1728: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1729: END IF;
1730:
1731: --
1732: -- Now , If the Deliverable is a kit, Fulfill Kit Items as well
1750: p_user_notes => l_user_notes,
1751: x_content_xml => l_content_xml) ;
1752: -- Modified by soagrawa on 23Mar2001
1753: -- If any errors happen abort API.
1754: -- IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
1755: -- x_return_status := l_return_status ;
1756: -- RETURN ;
1757: -- END IF;
1758:
1755: -- x_return_status := l_return_status ;
1756: -- RETURN ;
1757: -- END IF;
1758:
1759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1760: RAISE FND_API.G_EXC_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1756: -- RETURN ;
1757: -- END IF;
1758:
1759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1760: RAISE FND_API.G_EXC_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1764:
1757: -- END IF;
1758:
1759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1760: RAISE FND_API.G_EXC_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1764:
1765:
1758:
1759: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
1760: RAISE FND_API.G_EXC_ERROR;
1761: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
1762: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1763: END IF;
1764:
1765:
1766: l_content := l_content || l_content_xml;
1791: --
1792: FND_MSG_PUB.Count_AND_Get
1793: ( p_count => x_msg_count,
1794: p_data => x_msg_data,
1795: p_encoded => FND_API.G_FALSE
1796: );
1797:
1798: IF (AMS_DEBUG_HIGH_ON) THEN
1799: AMS_Utility_PVT.debug_message(l_full_name ||': end');
1800: END IF;
1801:
1802:
1803: EXCEPTION
1804: WHEN FND_API.G_EXC_ERROR THEN
1805: IF c_csch_det%ISOPEN THEN
1806: CLOSE c_csch_det ;
1807: END IF ;
1808: ROLLBACK TO Get_Deliverable_Info_SP;
1805: IF c_csch_det%ISOPEN THEN
1806: CLOSE c_csch_det ;
1807: END IF ;
1808: ROLLBACK TO Get_Deliverable_Info_SP;
1809: x_return_status := FND_API.G_RET_STS_ERROR ;
1810:
1811: FND_MSG_PUB.Count_AND_Get
1812: ( p_count => x_msg_count,
1813: p_data => x_msg_data,
1810:
1811: FND_MSG_PUB.Count_AND_Get
1812: ( p_count => x_msg_count,
1813: p_data => x_msg_data,
1814: p_encoded => FND_API.G_FALSE
1815: );
1816: ams_utility_pvt.display_messages;
1817:
1818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1814: p_encoded => FND_API.G_FALSE
1815: );
1816: ams_utility_pvt.display_messages;
1817:
1818: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
1819: IF c_csch_det%ISOPEN THEN
1820: CLOSE c_csch_det ;
1821: END IF ;
1822: ROLLBACK TO Get_Deliverable_Info_SP;
1819: IF c_csch_det%ISOPEN THEN
1820: CLOSE c_csch_det ;
1821: END IF ;
1822: ROLLBACK TO Get_Deliverable_Info_SP;
1823: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1824:
1825: FND_MSG_PUB.Count_AND_Get
1826: ( p_count => x_msg_count,
1827: p_data => x_msg_data,
1824:
1825: FND_MSG_PUB.Count_AND_Get
1826: ( p_count => x_msg_count,
1827: p_data => x_msg_data,
1828: p_encoded => FND_API.G_FALSE
1829: );
1830: ams_utility_pvt.display_messages;
1831:
1832: WHEN OTHERS THEN
1833: IF c_csch_det%ISOPEN THEN
1834: CLOSE c_csch_det ;
1835: END IF ;
1836: ROLLBACK TO Get_Deliverable_Info_SP;
1837: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
1838:
1839: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
1840: THEN
1841: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
1843:
1844: FND_MSG_PUB.Count_AND_Get
1845: ( p_count => x_msg_count,
1846: p_data => x_msg_data,
1847: p_encoded => FND_API.G_FALSE
1848: );
1849:
1850: END Get_Deliverable_Info;
1851:
1883: -- End of Comments
1884: /*
1885: PROCEDURE AMS_FULFILL
1886: (p_api_version IN NUMBER,
1887: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1888: p_commit IN VARCHAR2 := FND_API.G_False,
1889:
1890: x_return_status OUT NOCOPY VARCHAR2,
1891: x_msg_count OUT NOCOPY NUMBER ,
1884: /*
1885: PROCEDURE AMS_FULFILL
1886: (p_api_version IN NUMBER,
1887: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
1888: p_commit IN VARCHAR2 := FND_API.G_False,
1889:
1890: x_return_status OUT NOCOPY VARCHAR2,
1891: x_msg_count OUT NOCOPY NUMBER ,
1892: x_msg_data OUT NOCOPY VARCHAR2,
1985:
1986: --
1987: -- Initialize message list IF p_init_msg_list is set to TRUE.
1988: --
1989: IF FND_API.to_Boolean( p_init_msg_list ) THEN
1990: FND_MSG_PUB.initialize;
1991: END IF;
1992:
1993: --
1992:
1993: --
1994: -- Standard call to check for call compatibility.
1995: --
1996: IF NOT FND_API.Compatible_API_Call ( l_api_version,
1997: p_api_version,
1998: l_api_name,
1999: G_PKG_NAME)
2000: THEN
1997: p_api_version,
1998: l_api_name,
1999: G_PKG_NAME)
2000: THEN
2001: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2002: END IF;
2003:
2004: --
2005: -- Initialize API return status to success
2003:
2004: --
2005: -- Initialize API return status to success
2006: --
2007: x_return_status := FND_API.G_RET_STS_SUCCESS;
2008:
2009: --
2010: -- API body
2011: --
2047: x_extended_header => l_extended_header);
2048:
2049:
2050: -- If any errors happen abort API.
2051: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2052: RAISE FND_API.G_EXC_ERROR;
2053: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2048:
2049:
2050: -- If any errors happen abort API.
2051: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2052: RAISE FND_API.G_EXC_ERROR;
2053: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2049:
2050: -- If any errors happen abort API.
2051: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2052: RAISE FND_API.G_EXC_ERROR;
2053: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2057: -- display_string(l_content_xml1);
2050: -- If any errors happen abort API.
2051: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2052: RAISE FND_API.G_EXC_ERROR;
2053: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2054: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2055: END IF;
2056:
2057: -- display_string(l_content_xml1);
2058: IF (AMS_DEBUG_HIGH_ON) THEN
2078:
2079: x_content_xml => l_content_xml);
2080: -- If any errors happen abort API.
2081:
2082: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2083: RAISE FND_API.G_EXC_ERROR;
2084: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2079: x_content_xml => l_content_xml);
2080: -- If any errors happen abort API.
2081:
2082: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2083: RAISE FND_API.G_EXC_ERROR;
2084: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087:
2080: -- If any errors happen abort API.
2081:
2082: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2083: RAISE FND_API.G_EXC_ERROR;
2084: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087:
2088: l_final_content := l_final_content||l_content_xml ;
2081:
2082: IF l_return_status = FND_API.G_RET_STS_ERROR THEN
2083: RAISE FND_API.G_EXC_ERROR;
2084: ELSIF l_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2085: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2086: END IF;
2087:
2088: l_final_content := l_final_content||l_content_xml ;
2089:
2154: p_content_xml => l_final_content,
2155: p_extended_header => l_extended_header,
2156: p_list_type => 'ADDRESS',
2157: p_request_id => l_request_id,
2158: p_per_user_history => FND_API.G_True
2159: );
2160: */
2161: /*
2162: l_mass_bind_var(1) := 'LIST_ID' ;
2178: p_server_id => l_server_id,
2179: p_extended_header => l_extended_header,
2180: p_content_xml => l_final_content,
2181: p_request_id => l_request_id,
2182: p_per_user_history => FND_API.G_True,
2183: p_mass_query_id => G_QUERY_ID,
2184: p_mass_bind_var => l_mass_bind_var,
2185: p_mass_bind_val => l_mass_bind_val,
2186: p_mass_bind_var_type=> l_mass_bind_var_type);
2208:
2209: --
2210: -- Standard check of p_commit.
2211: --
2212: IF FND_API.To_Boolean ( p_commit )
2213: THEN
2214: COMMIT WORK;
2215: END IF;
2216:
2219: --
2220: FND_MSG_PUB.Count_AND_Get
2221: ( p_count => x_msg_count,
2222: p_data => x_msg_data,
2223: p_encoded => FND_API.G_FALSE
2224: );
2225:
2226: IF (AMS_DEBUG_HIGH_ON) THEN
2227: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2228: END IF;
2229:
2230:
2231: EXCEPTION
2232: WHEN FND_API.G_EXC_ERROR THEN
2233:
2234: ROLLBACK TO Create_FULFILL_PVT;
2235: x_return_status := FND_API.G_RET_STS_ERROR ;
2236:
2231: EXCEPTION
2232: WHEN FND_API.G_EXC_ERROR THEN
2233:
2234: ROLLBACK TO Create_FULFILL_PVT;
2235: x_return_status := FND_API.G_RET_STS_ERROR ;
2236:
2237: FND_MSG_PUB.Count_AND_Get
2238: ( p_count => x_msg_count,
2239: p_data => x_msg_data,
2236:
2237: FND_MSG_PUB.Count_AND_Get
2238: ( p_count => x_msg_count,
2239: p_data => x_msg_data,
2240: p_encoded => FND_API.G_FALSE
2241: );
2242: ams_utility_pvt.display_messages;
2243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2244:
2239: p_data => x_msg_data,
2240: p_encoded => FND_API.G_FALSE
2241: );
2242: ams_utility_pvt.display_messages;
2243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2244:
2245: ROLLBACK TO Create_FULFILL_PVT;
2246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2247:
2242: ams_utility_pvt.display_messages;
2243: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2244:
2245: ROLLBACK TO Create_FULFILL_PVT;
2246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2247:
2248: FND_MSG_PUB.Count_AND_Get
2249: ( p_count => x_msg_count,
2250: p_data => x_msg_data,
2247:
2248: FND_MSG_PUB.Count_AND_Get
2249: ( p_count => x_msg_count,
2250: p_data => x_msg_data,
2251: p_encoded => FND_API.G_FALSE
2252: );
2253: ams_utility_pvt.display_messages;
2254:
2255: WHEN OTHERS THEN
2254:
2255: WHEN OTHERS THEN
2256:
2257: ROLLBACK TO Create_FULFILL_PVT;
2258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2259:
2260: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2261: THEN
2262: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2264:
2265: FND_MSG_PUB.Count_AND_Get
2266: ( p_count => x_msg_count,
2267: p_data => x_msg_data,
2268: p_encoded => FND_API.G_FALSE
2269: );
2270: ams_utility_pvt.display_messages;
2271: END AMS_FULFILL ;
2272:
2293: -- End of Comments
2294: /*
2295: PROCEDURE Send_Test_Email
2296: (p_api_version IN NUMBER,
2297: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
2298: p_commit IN VARCHAR2 := FND_API.G_False,
2299:
2300: x_return_status OUT NOCOPY VARCHAR2,
2301: x_msg_count OUT NOCOPY NUMBER ,
2294: /*
2295: PROCEDURE Send_Test_Email
2296: (p_api_version IN NUMBER,
2297: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
2298: p_commit IN VARCHAR2 := FND_API.G_False,
2299:
2300: x_return_status OUT NOCOPY VARCHAR2,
2301: x_msg_count OUT NOCOPY NUMBER ,
2302: x_msg_data OUT NOCOPY VARCHAR2,
2355: IF (AMS_DEBUG_HIGH_ON) THEN
2356: AMS_Utility_PVT.debug_message(l_full_name||': start');
2357: END IF;
2358:
2359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2360: FND_MSG_PUB.initialize;
2361: END IF;
2362:
2363: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2359: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2360: FND_MSG_PUB.initialize;
2361: END IF;
2362:
2363: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2364: p_api_version,
2365: l_api_name,
2366: G_PKG_NAME)
2367: THEN
2364: p_api_version,
2365: l_api_name,
2366: G_PKG_NAME)
2367: THEN
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: END IF;
2370:
2371: x_return_status := FND_API.G_RET_STS_SUCCESS;
2372:
2367: THEN
2368: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2369: END IF;
2370:
2371: x_return_status := FND_API.G_RET_STS_SUCCESS;
2372:
2373: OPEN c_list_entry ;
2374: FETCH c_list_entry INTO l_party_id, l_list_header_id, l_party_name;
2375: CLOSE c_list_entry;
2444: p_bind_var_type => l_bind_var_type,
2445: p_request_id => l_request_id,
2446: x_content_xml => l_content_xml ) ;
2447:
2448: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR;
2450: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2452: END IF;
2445: p_request_id => l_request_id,
2446: x_content_xml => l_content_xml ) ;
2447:
2448: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR;
2450: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2452: END IF;
2453:
2446: x_content_xml => l_content_xml ) ;
2447:
2448: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR;
2450: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2452: END IF;
2453:
2454: Get_Deliverable_Info(
2447:
2448: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2449: RAISE FND_API.G_EXC_ERROR;
2450: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2451: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2452: END IF;
2453:
2454: Get_Deliverable_Info(
2455: p_api_version => l_api_version,
2462: p_email_address => p_email_address,
2463:
2464: x_content_xml => l_attach_xml);
2465:
2466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2467: RAISE FND_API.G_EXC_ERROR;
2468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2470: END IF;
2463:
2464: x_content_xml => l_attach_xml);
2465:
2466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2467: RAISE FND_API.G_EXC_ERROR;
2468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2470: END IF;
2471:
2464: x_content_xml => l_attach_xml);
2465:
2466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2467: RAISE FND_API.G_EXC_ERROR;
2468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2470: END IF;
2471:
2472: IF (AMS_DEBUG_HIGH_ON) THEN
2465:
2466: IF x_return_status = FND_API.G_RET_STS_ERROR THEN
2467: RAISE FND_API.G_EXC_ERROR;
2468: ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR THEN
2469: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2470: END IF;
2471:
2472: IF (AMS_DEBUG_HIGH_ON) THEN
2473: AMS_Utility_PVT.Debug_Message('Success Flag : '||x_return_status );
2493:
2494: --
2495: -- Standard check of p_commit.
2496: --
2497: IF FND_API.To_Boolean ( p_commit )
2498: THEN
2499: COMMIT WORK;
2500: END IF;
2501:
2504: --
2505: FND_MSG_PUB.Count_AND_Get
2506: ( p_count => x_msg_count,
2507: p_data => x_msg_data,
2508: p_encoded => FND_API.G_FALSE
2509: );
2510:
2511: IF (AMS_DEBUG_HIGH_ON) THEN
2512: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2514:
2515:
2516:
2517: EXCEPTION
2518: WHEN FND_API.G_EXC_ERROR THEN
2519:
2520: ROLLBACK TO Send_Test_Email;
2521: x_return_status := FND_API.G_RET_STS_ERROR ;
2522:
2517: EXCEPTION
2518: WHEN FND_API.G_EXC_ERROR THEN
2519:
2520: ROLLBACK TO Send_Test_Email;
2521: x_return_status := FND_API.G_RET_STS_ERROR ;
2522:
2523: FND_MSG_PUB.Count_AND_Get
2524: ( p_count => x_msg_count,
2525: p_data => x_msg_data,
2522:
2523: FND_MSG_PUB.Count_AND_Get
2524: ( p_count => x_msg_count,
2525: p_data => x_msg_data,
2526: p_encoded => FND_API.G_FALSE
2527: );
2528:
2529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2530:
2525: p_data => x_msg_data,
2526: p_encoded => FND_API.G_FALSE
2527: );
2528:
2529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2530:
2531: ROLLBACK TO Send_Test_Email;
2532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2533:
2528:
2529: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2530:
2531: ROLLBACK TO Send_Test_Email;
2532: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2533:
2534: FND_MSG_PUB.Count_AND_Get
2535: ( p_count => x_msg_count,
2536: p_data => x_msg_data,
2533:
2534: FND_MSG_PUB.Count_AND_Get
2535: ( p_count => x_msg_count,
2536: p_data => x_msg_data,
2537: p_encoded => FND_API.G_FALSE
2538: );
2539:
2540: WHEN OTHERS THEN
2541:
2539:
2540: WHEN OTHERS THEN
2541:
2542: ROLLBACK TO Send_Test_Email;
2543: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2544:
2545: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2546: THEN
2547: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2549:
2550: FND_MSG_PUB.Count_AND_Get
2551: ( p_count => x_msg_count,
2552: p_data => x_msg_data,
2553: p_encoded => FND_API.G_FALSE
2554: );
2555:
2556: END Send_Test_Email ;
2557: */
2575: -- End of Comments
2576: /*
2577: PROCEDURE Attach_Query
2578: (p_api_version IN NUMBER,
2579: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
2580: p_commit IN VARCHAR2 := FND_API.G_False,
2581:
2582: x_return_status OUT NOCOPY VARCHAR2,
2583: x_msg_count OUT NOCOPY NUMBER ,
2576: /*
2577: PROCEDURE Attach_Query
2578: (p_api_version IN NUMBER,
2579: p_init_msg_list IN VARCHAR2 := FND_API.G_False,
2580: p_commit IN VARCHAR2 := FND_API.G_False,
2581:
2582: x_return_status OUT NOCOPY VARCHAR2,
2583: x_msg_count OUT NOCOPY NUMBER ,
2584: x_msg_data OUT NOCOPY VARCHAR2,
2609: IF (AMS_DEBUG_HIGH_ON) THEN
2610: AMS_Utility_PVT.debug_message(l_full_name||': start');
2611: END IF;
2612:
2613: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2614: FND_MSG_PUB.initialize;
2615: END IF;
2616:
2617: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2613: IF FND_API.to_Boolean( p_init_msg_list ) THEN
2614: FND_MSG_PUB.initialize;
2615: END IF;
2616:
2617: IF NOT FND_API.Compatible_API_Call ( l_api_version,
2618: p_api_version,
2619: l_api_name,
2620: G_PKG_NAME)
2621: THEN
2618: p_api_version,
2619: l_api_name,
2620: G_PKG_NAME)
2621: THEN
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623: END IF;
2624:
2625: x_return_status := FND_API.G_RET_STS_SUCCESS;
2626:
2621: THEN
2622: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
2623: END IF;
2624:
2625: x_return_status := FND_API.G_RET_STS_SUCCESS;
2626:
2627: OPEN c_query_det;
2628: FETCH c_query_det INTO l_dummy ;
2629: CLOSE c_query_det;
2638:
2639: --
2640: -- Standard check of p_commit.
2641: --
2642: IF FND_API.To_Boolean ( p_commit )
2643: THEN
2644: COMMIT WORK;
2645: END IF;
2646:
2649: --
2650: FND_MSG_PUB.Count_AND_Get
2651: ( p_count => x_msg_count,
2652: p_data => x_msg_data,
2653: p_encoded => FND_API.G_FALSE
2654: );
2655:
2656: IF (AMS_DEBUG_HIGH_ON) THEN
2657: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2657: AMS_Utility_PVT.debug_message(l_full_name ||': end');
2658: END IF;
2659:
2660: EXCEPTION
2661: WHEN FND_API.G_EXC_ERROR THEN
2662:
2663: ROLLBACK TO Attach_Query;
2664: x_return_status := FND_API.G_RET_STS_ERROR ;
2665:
2660: EXCEPTION
2661: WHEN FND_API.G_EXC_ERROR THEN
2662:
2663: ROLLBACK TO Attach_Query;
2664: x_return_status := FND_API.G_RET_STS_ERROR ;
2665:
2666: FND_MSG_PUB.Count_AND_Get
2667: ( p_count => x_msg_count,
2668: p_data => x_msg_data,
2665:
2666: FND_MSG_PUB.Count_AND_Get
2667: ( p_count => x_msg_count,
2668: p_data => x_msg_data,
2669: p_encoded => FND_API.G_FALSE
2670: );
2671:
2672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2673:
2668: p_data => x_msg_data,
2669: p_encoded => FND_API.G_FALSE
2670: );
2671:
2672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2673:
2674: ROLLBACK TO Attach_Query;
2675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2676:
2671:
2672: WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
2673:
2674: ROLLBACK TO Attach_Query;
2675: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2676:
2677: FND_MSG_PUB.Count_AND_Get
2678: ( p_count => x_msg_count,
2679: p_data => x_msg_data,
2676:
2677: FND_MSG_PUB.Count_AND_Get
2678: ( p_count => x_msg_count,
2679: p_data => x_msg_data,
2680: p_encoded => FND_API.G_FALSE
2681: );
2682:
2683: WHEN OTHERS THEN
2684:
2682:
2683: WHEN OTHERS THEN
2684:
2685: ROLLBACK TO Attach_Query;
2686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
2687:
2688: IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR )
2689: THEN
2690: FND_MSG_PUB.Add_Exc_Msg( G_PKG_NAME,l_api_name);
2692:
2693: FND_MSG_PUB.Count_AND_Get
2694: ( p_count => x_msg_count,
2695: p_data => x_msg_data,
2696: p_encoded => FND_API.G_FALSE
2697: );
2698:
2699:
2700: END Attach_Query ;