[Home] [Help]
146: --
147: -- Debug Message
148: --
149: IF (AMS_DEBUG_HIGH_ON) THEN
150: AMS_Utility_PVT.debug_message(l_full_name||': start');
151: END IF;
152: --
153: -- Initialize message list IF p_init_msg_list is set to TRUE.
154: --
234: END LOOP ;
235: CLOSE c_kit_det ;
236:
237: IF (AMS_DEBUG_HIGH_ON) THEN
238: AMS_UTILITY_PVT.Debug_message('Before calling create order');
239: END IF;
240:
241: ASO_ORDER_INT.Create_order(
242: p_api_version_number => 1.0,
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);
271: END IF;
272:
273: IF (AMS_DEBUG_HIGH_ON) THEN
274: AMS_UTILITY_PVT.Debug_message('order line is ' || x_order_line_tbl(1).order_line_id);
270: AMS_UTILITY_PVT.Debug_message('order header is '|| x_order_header_rec.order_header_id);
271: END IF;
272:
273: IF (AMS_DEBUG_HIGH_ON) THEN
274: AMS_UTILITY_PVT.Debug_message('order line is ' || x_order_line_tbl(1).order_line_id);
275: END IF;
276:
277: END LOOP ;
278: --
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
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:
314: ROLLBACK TO FulFill_OC_PT;
315: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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
325:
326: ROLLBACK TO FulFill_OC_PT;
336: p_data => x_msg_data,
337: p_encoded => FND_API.G_FALSE
338: );
339:
340: ams_utility_pvt.display_messages;
341:
342: END FulFill_OC ;
343:
344:
486: --
487: -- Debug Message
488: --
489: IF (AMS_DEBUG_HIGH_ON) THEN
490: AMS_Utility_PVT.debug_message(l_full_name||': start');
491: END IF;
492:
493: --
494: -- Initialize message list IF p_init_msg_list is set to TRUE.
531: CLOSE c_cover_letter_det ;
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
572: -- soagrawa added the following IF part on 28-aug-2003 to fix bug# 3119662
573: IF l_user_id IS NULL
574: OR l_user_id = -1
575: THEN
576: l_user_id := Ams_Utility_pvt.get_user_id(l_csch_owner_user_id);
577: END IF;
578:
579: l_fulfill_electronic_rec.template_id := l_template_id;
580: l_fulfill_electronic_rec.version_id := l_template_ver_id;
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);
668: END IF;
669:
670: x_return_status := l_return_status;
671:
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
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:
714: ROLLBACK TO Create_FULFILL_PVT;
715: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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
725:
726: ROLLBACK TO Create_FULFILL_PVT;
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:
742:
743: -- Start of Comments
795: --
796: -- Debug Message
797: --
798: IF (AMS_DEBUG_HIGH_ON) THEN
799: AMS_Utility_PVT.debug_message(l_full_name||': start');
800: END IF;
801:
802: --
803: -- Initialize message list IF p_init_msg_list is set to TRUE.
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');
932: END IF;
933:
934:
935:
1074: --
1075: -- Debug Message
1076: --
1077: IF (AMS_DEBUG_HIGH_ON) THEN
1078: AMS_Utility_PVT.debug_message(l_full_name||': start');
1079: END IF;
1080:
1081: --
1082: -- Initialize message list IF p_init_msg_list is set to TRUE.
1109: l_media_type_code,l_media_id ;
1110: CLOSE c_csch_det;
1111:
1112: IF (AMS_DEBUG_HIGH_ON) THEN
1113: AMS_Utility_PVT.debug_message('Cover Letter : '|| l_content_id);
1114: END IF;
1115:
1116: IF l_content_id IS NULL THEN
1117: --
1196: END IF;
1197:
1198: ELSE
1199: IF (AMS_DEBUG_HIGH_ON) THEN
1200: AMS_Utility_PVT.debug_message('Can only Fulfill Email or Fax');
1201: END IF;
1202: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1203: THEN -- MMSG
1204: FND_MESSAGE.Set_Name('AMS', 'AMS_FFM_INVALID_MEDIA');
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
1312: --
1313: -- Debug Message
1314: --
1315: IF (AMS_DEBUG_HIGH_ON) THEN
1316: AMS_Utility_PVT.debug_message(l_full_name||': start');
1317: END IF;
1318:
1319: --
1320: -- Initialize message list IF p_init_msg_list is set to TRUE.
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');
1395: END IF;
1396:
1397:
1398: EXCEPTION
1528: --
1529: -- Debug Message
1530: --
1531: IF (AMS_DEBUG_HIGH_ON) THEN
1532: AMS_Utility_PVT.debug_message(l_full_name||': start');
1533: END IF;
1534:
1535:
1536: -- Savepoint
1604: /* Following code is commented by ptendulk as eBlast will
1605: not use collaterals to send attachments
1606: IF p_arc_act = 'CSCH' THEN
1607: IF (AMS_DEBUG_HIGH_ON) THEN
1608: AMS_UTILITY_PVT.debug_message('Arc Act : '||p_arc_act);
1609: END IF;
1610: OPEN c_csch_det;
1611: -- Following code modified by soagrawa on 23Mar2001
1612: -- Added loop to process each deliverable
1615: l_media_type_code,l_media_id;
1616: EXIT WHEN c_csch_det%NOTFOUND;
1617:
1618: IF (AMS_DEBUG_HIGH_ON) THEN
1619: AMS_UTILITY_PVT.debug_message('in c_csch_det loop');
1620: END IF;
1621:
1622: IF l_elect_fulfill_flg = 'N' THEN
1623: l_interface := 'OC' ;
1626: LOOP
1627: FETCH c_kit_det INTO l_kit_fulfill_flg ;
1628: EXIT WHEN c_kit_det%NOTFOUND ;
1629: IF (AMS_DEBUG_HIGH_ON) THEN
1630: AMS_UTILITY_PVT.debug_message('l_kit_fulfill_flg: '||l_kit_fulfill_flg);
1631: END IF;
1632: IF l_kit_fulfill_flg = 'N' THEN
1633: l_elect_fulfill_flg := 'N' ;
1634: END IF ;
1643: END IF ;
1644:
1645: IF l_interface = 'OC' THEN
1646: IF (AMS_DEBUG_HIGH_ON) THEN
1647: AMS_UTILITY_PVT.debug_message('oc request');
1648: END IF;
1649:
1650: -- Call the oc api
1651: FulFill_OC(p_api_version => p_api_version,
1658: p_deliv_id => l_deli_id ,
1659: p_list_header_id => p_list_header_id);
1660: ELSIF l_interface = 'FFM' THEN
1661: IF (AMS_DEBUG_HIGH_ON) THEN
1662: AMS_UTILITY_PVT.debug_message('FFM request');
1663: END IF;
1664: IF (l_media_type_code <> 'DIRECT_MARKETING') OR
1665: (l_media_id <> 10 AND l_media_id <> 20 )
1666: THEN
1664: IF (l_media_type_code <> 'DIRECT_MARKETING') OR
1665: (l_media_id <> 10 AND l_media_id <> 20 )
1666: THEN
1667: IF (AMS_DEBUG_HIGH_ON) THEN
1668: AMS_Utility_PVT.debug_message('Error Msg : Can FulFill only Email or Fax Requests');
1669: END IF;
1670: IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
1671: THEN -- MMSG
1672: FND_MESSAGE.Set_Name('AMS', 'AMS_FFM_INVALID_MEDIA');
1688: l_content_id := l_deli_id ;
1689: l_content_nm := l_deli_name ;
1690:
1691: IF (AMS_DEBUG_HIGH_ON) THEN
1692: AMS_UTILITY_PVT.debug_message('Media Type :'||l_media_type);
1693: END IF;
1694:
1695: IF (AMS_DEBUG_HIGH_ON) THEN
1696: AMS_UTILITY_PVT.debug_message('Content Id :'||l_content_id);
1692: AMS_UTILITY_PVT.debug_message('Media Type :'||l_media_type);
1693: END IF;
1694:
1695: IF (AMS_DEBUG_HIGH_ON) THEN
1696: AMS_UTILITY_PVT.debug_message('Content Id :'||l_content_id);
1697: END IF;
1698: -- No need to pass Fax no / Email as well ,as these details will
1699: -- pass that in Submit Batch Process API
1700: JTF_FM_REQUEST_GRP.Get_Content_XML
1711: p_request_id => p_request_id,
1712: x_content_xml => l_final_content);
1713:
1714: IF (AMS_DEBUG_HIGH_ON) THEN
1715: AMS_UTILITY_PVT.debug_message('after get_content_xml : '||l_final_content);
1716: END IF;
1717:
1718: -- Modified by soagrawa on 23Mar2001
1719: -- If any errors, raise exceptions.
1731: --
1732: -- Now , If the Deliverable is a kit, Fulfill Kit Items as well
1733: --
1734: IF (AMS_DEBUG_HIGH_ON) THEN
1735: AMS_UTILITY_PVT.debug_message('l_kit_flag : '||l_kit_flag);
1736: END IF;
1737:
1738: IF l_kit_flag = 'Y' THEN
1739: Get_Kit_Info
1775: --
1776: -- x_content_xml := l_final_content ;
1777: x_content_xml := l_final_content||l_content;
1778: IF (AMS_DEBUG_HIGH_ON) THEN
1779: AMS_UTILITY_PVT.debug_message('x_content_xml: '||x_content_xml);
1780: END IF;
1781: x_return_status := l_return_status ;
1782:
1783: */
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
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
1819: IF c_csch_det%ISOPEN THEN
1820: CLOSE c_csch_det ;
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 ;
1979: --
1980: -- Debug Message
1981: --
1982: IF (AMS_DEBUG_HIGH_ON) THEN
1983: AMS_Utility_PVT.debug_message(l_full_name||': start');
1984: END IF;
1985:
1986: --
1987: -- Initialize message list IF p_init_msg_list is set to TRUE.
2024: x_request_id => l_request_id
2025: );
2026:
2027: IF (AMS_DEBUG_HIGH_ON) THEN
2028: AMS_Utility_PVT.debug_message('Request_ID: '||to_char(l_request_id));
2029: END IF;
2030:
2031: --
2032: -- Create a Master Document First. It will be at the Campaign Level
2055: END IF;
2056:
2057: -- display_string(l_content_xml1);
2058: IF (AMS_DEBUG_HIGH_ON) THEN
2059: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2060: END IF;
2061: --
2062: -- Create XML for Deliverable now. It will be at the Campaign Level
2063: -- Take the Overriding Coverletter in Campaigns table as Content id
2088: l_final_content := l_final_content||l_content_xml ;
2089:
2090: -- display_string(l_content_xml1);
2091: IF (AMS_DEBUG_HIGH_ON) THEN
2092: AMS_Utility_PVT.debug_message('Request ID: '||l_request_id);
2093: END IF;
2094:
2095: IF (AMS_DEBUG_HIGH_ON) THEN
2096: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2092: AMS_Utility_PVT.debug_message('Request ID: '||l_request_id);
2093: END IF;
2094:
2095: IF (AMS_DEBUG_HIGH_ON) THEN
2096: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2097: END IF;
2098:
2099: --
2100: -- call the Batch Process to Submit the Process
2117: CLOSE c_subject ;
2118:
2119: l_user_id := p_user_id ;
2120: IF (AMS_DEBUG_HIGH_ON) THEN
2121: AMS_Utility_PVT.Debug_Message('User '||l_user_id||' Subject: '||l_subject );
2122: END IF;
2123:
2124: IF (AMS_DEBUG_HIGH_ON) THEN
2125: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2121: AMS_Utility_PVT.Debug_Message('User '||l_user_id||' Subject: '||l_subject );
2122: END IF;
2123:
2124: IF (AMS_DEBUG_HIGH_ON) THEN
2125: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2126: END IF;
2127:
2128:
2129: -- commented out by soagrawa on 06-sep-2001
2187:
2188:
2189:
2190: IF (AMS_DEBUG_HIGH_ON) THEN
2191: AMS_Utility_PVT.debug_message('Request ID: '||l_request_id);
2192: END IF;
2193:
2194: IF (AMS_DEBUG_HIGH_ON) THEN
2195: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2191: AMS_Utility_PVT.debug_message('Request ID: '||l_request_id);
2192: END IF;
2193:
2194: IF (AMS_DEBUG_HIGH_ON) THEN
2195: AMS_Utility_PVT.debug_message('Return Status: '||l_return_status);
2196: END IF;
2197:
2198: -- display_message(l_request_id);
2199:
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
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:
2245: ROLLBACK TO Create_FULFILL_PVT;
2246: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
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
2256:
2257: ROLLBACK TO Create_FULFILL_PVT;
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:
2273: */
2274:
2352:
2353: SAVEPOINT Send_Test_Email;
2354:
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;
2423: l_bind_var(1) := 'id' ;
2424: l_bind_var_type(1) := 'NUMBER' ;
2425: l_bind_val(1) := l_list_header_id ;
2426: IF (AMS_DEBUG_HIGH_ON) THEN
2427: AMS_Utility_PVT.Debug_Message('Party Id : '||l_party_id || 'List : '||l_list_header_id);
2428: END IF;
2429:
2430: JTF_FM_REQUEST_GRP.Get_Content_XML
2431: (
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 );
2474: END IF;
2475: l_content_xml := l_content_xml || nvl(l_attach_xml,'') ;
2476: JTF_FM_REQUEST_GRP.Submit_Request
2477: (p_api_version => l_api_version,
2487: p_content_xml => l_content_xml,
2488: p_request_id => l_request_id
2489: ) ;
2490: IF (AMS_DEBUG_HIGH_ON) THEN
2491: AMS_Utility_PVT.Debug_Message('Success Flag : '||x_return_status );
2492: END IF;
2493:
2494: --
2495: -- Standard check of p_commit.
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');
2513: END IF;
2514:
2515:
2516:
2606:
2607: SAVEPOINT Attach_Query;
2608:
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;
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');
2658: END IF;
2659:
2660: EXCEPTION
2661: WHEN FND_API.G_EXC_ERROR THEN