[Home] [Help]
205:
206: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF';
207:
208: IF (g_po_wf_debug = 'Y') THEN
209: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
210: END IF;
211:
212: --Start of code changes for the bug 12403413
213: -- Do nothing in cancel or timeout modes. Similar to the bug 4100416
263: EXCEPTION
264: WHEN NO_DATA_FOUND THEN
265: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : in exception handler';
266: IF (g_po_wf_debug = 'Y') THEN
267: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
268: END IF;
269: END;
270: --
271:
271:
272: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF :launching the java concurrent program ';
273:
274: IF (g_po_wf_debug = 'Y') THEN
275: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
276: END IF;
277:
278: --if the po has T's and C's then launch the concurrent request to generate the pdf with T's and C's
279: --Bug5080617 Pass the parameters P_PO_TEMPLATE_CODE and P_CONTRACT_TEMPLATE_CODE as null
355:
356: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Request id is '|| l_request_id;
357:
358: IF (g_po_wf_debug = 'Y') THEN
359: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
360: END IF;
361:
362: END IF;
363: END IF;
366: /*Begin Changes by Akyanama Bug # 12969112*//*Throwing Submission error*/
367: WHEN submission_error THEN
368: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
369: IF (g_po_wf_debug = 'Y') THEN
370: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
371: x_progress := fnd_message.get;
372: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
373: END IF;
374: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
368: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
369: IF (g_po_wf_debug = 'Y') THEN
370: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
371: x_progress := fnd_message.get;
372: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
373: END IF;
374: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
375: RAISE;
376:
377: /*End Changes by Akyanama Bug # 12969112*/
378: WHEN OTHERS THEN
379: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : In Exception handler';
380: IF (g_po_wf_debug = 'Y') THEN
381: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
382: END IF;
383: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', x_progress);
384: RAISE;
385:
397: Begin
398: x_progress := 'PO_COMMUNICATION_PVT.PO_NEW_COMMUNICATION';
399:
400: IF (g_po_wf_debug = 'Y') THEN
401: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
402: END IF;
403:
404:
405: --
424:
425: x_progress := 'PO_COMMUNICATION_PVT.PO_NEW_COMMUNICATION: Verify whether XDO Product is installed or not';
426:
427: IF (g_po_wf_debug = 'Y') THEN
428: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
429: END IF;
430:
431:
432: IF PO_COMMUNICATION_PROFILE = 'T' THEN
445:
446: WHEN OTHERS THEN
447: x_progress := 'PO_COMMUNICATION_PVT.PO_NEW_COMMUNICATION: In Exception handler';
448: IF (g_po_wf_debug = 'Y') THEN
449: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
450: END IF;
451: wf_core.context('PO_COMMUNICATION_PVT', 'PO_NEW_COMMUNICATION', x_progress);
452: raise;
453:
472: Begin
473: x_progress := 'PO_COMMUNICATION_PVT.DELETE_PDF_ATTACHMENTS';
474:
475: IF (g_po_wf_debug = 'Y') THEN
476: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
477: END IF;
478:
479: --
480: IF (funcmode <> wf_engine.eng_run)
523:
524: x_progress := 'PO_COMMUNICATION_PVT.DELETE_PDF_ATTACHMENTS :Calling the Delete attachments procedure';
525:
526: IF (g_po_wf_debug = 'Y') THEN
527: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
528: END IF;
529:
530: FND_ATTACHED_DOCUMENTS2_PKG.delete_attachments(X_entity_name => l_entity_name,
531: X_pk1_value => to_char(l_document_id),
548:
549: WHEN OTHERS THEN
550: x_progress := 'PO_COMMUNICATION_PVT.DELETE_PDF_ATTACHMENTS:In Exception handler';
551: IF (g_po_wf_debug = 'Y') THEN
552: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
553: END IF;
554: wf_core.context('PO_COMMUNICATION_PVT', 'DELETE_PDF_ATTACHMENTS', x_progress);
555: raise;
556:
579: Begin
580: x_progress := 'PO_COMMUNICATION_PVT.PO_PDF_EXISTS';
581:
582: IF (g_po_wf_debug = 'Y') THEN
583: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
584: END IF;
585:
586:
587: l_document_id := PO_WF_UTIL_PKG.GetItemAttrNumber (itemtype => itemtype,
626:
627: x_progress := 'PO_COMMUNICATION_PVT.PO_PDF_EXISTS: Verify whether the pdf exists for the document';
628:
629: IF (g_po_wf_debug = 'Y') THEN
630: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
631: END IF;
632:
633: BEGIN
634:
636: --search in contracts repository
637: x_progress := 'PO_COMMUNICATION_PVT.PO_PDF_EXISTS:Searching in the Contracts Repository';
638:
639: IF (g_po_wf_debug = 'Y') THEN
640: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
641: END IF;
642:
643:
644: SELECT count(*) into l_count from fnd_lobs fl, fnd_attached_docs_form_vl fad
652: --search in PO repository
653: x_progress := 'PO_COMMUNICATION_PVT.PO_PDF_EXISTS: Searching in the PO Repository';
654:
655: IF (g_po_wf_debug = 'Y') THEN
656: /* DEBUG */ PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
657: END IF;
658:
659:
660: -- Bug6139548
687: EXCEPTION
688: When others then
689: x_progress := 'PO_COMMUNICATION_PVT.PO_PDF_EXISTS: In Exception handler';
690: IF (g_po_wf_debug = 'Y') THEN
691: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
692: END IF;
693: wf_core.context('PO_COMMUNICATION_PVT', 'PO_PDF_EXISTS', x_progress);
694: resultout := wf_engine.eng_completed || ':' || 'N';
695: raise;
755:
756: l_progress := 'PO_COMMUNICATION_PVT.Start_Email_WF_Process: at beginning of Start_Email_WF_Process';
757:
758: IF (g_po_wf_debug = 'Y') THEN
759: PO_WF_DEBUG_PKG.insert_debug (l_itemtype, l_itemkey, l_progress);
760: END IF;
761:
762:
763: l_workflow_process := 'EMAIL_PO_PDF';
892:
893: l_progress := 'PO_COMMUNICATION_PVT.Start_Email_WF_Process: Get the Supplier site language';
894:
895: IF (g_po_wf_debug = 'Y') THEN
896: PO_WF_DEBUG_PKG.insert_debug (l_itemtype, l_itemkey, l_progress);
897: END IF;
898:
899: if p_document_type = 'RELEASE' then
900: select poh.vendor_site_id, pvs.vendor_site_code, pvs.language
931:
932: l_progress := 'PO_COMMUNICATION_PVT.Start_Email_WF_Process: Verify whether the role exists in wf_users';
933:
934: IF (g_po_wf_debug = 'Y') THEN
935: PO_WF_DEBUG_PKG.insert_debug (l_itemtype, l_itemkey, l_progress);
936: END IF;
937:
938:
939: select count(1) into l_performer_exists
1045:
1046: l_progress := 'PO_COMMUNICATION_PVT.Start_Email_WF_Process:Start the workflow process';
1047:
1048: IF (g_po_wf_debug = 'Y') THEN
1049: PO_WF_DEBUG_PKG.insert_debug (l_itemtype, l_itemkey, l_progress);
1050: END IF;
1051:
1052: wf_engine. StartProcess (itemtype => l_itemtype, itemkey => l_itemkey);
1053:
1057:
1058: l_progress := 'PO_COMMUNICATION_PVT.Start_WF_Process_Email: In Exception handler';
1059:
1060: IF (g_po_wf_debug = 'Y') THEN
1061: PO_WF_DEBUG_PKG.insert_debug(l_itemtype, l_itemkey, l_progress);
1062: END IF;
1063:
1064: RAISE;
1065:
1099: begin
1100: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC';
1101:
1102: IF (g_po_wf_debug = 'Y') THEN
1103: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
1104: END IF;
1105:
1106: --Start of code changes for the bug 12403413
1107: -- Do nothing in cancel or timeout modes. Similar to the bug 4100416
1166: EXCEPTION
1167: WHEN NO_DATA_FOUND THEN
1168: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC -001: in exception handler';
1169: IF (g_po_wf_debug = 'Y') THEN
1170: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
1171: END IF;
1172: END;
1173:
1174:
1174:
1175: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC :launching the Dispatch Purchase Order concurrent program ';
1176:
1177: IF (g_po_wf_debug = 'Y') THEN
1178: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
1179: END IF;
1180:
1181:
1182: --set the suppliers language before launching the concurrent request
1192: EXCEPTION
1193: WHEN NO_DATA_FOUND THEN
1194: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC -002: in exception handler';
1195: IF (g_po_wf_debug = 'Y') THEN
1196: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
1197: END IF;
1198: END;
1199: --End Bug6841986/6528046
1200:
1210: EXCEPTION
1211: WHEN NO_DATA_FOUND THEN
1212: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC -003: in exception handler';
1213: IF (g_po_wf_debug = 'Y') THEN
1214: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
1215: END IF;
1216: END;
1217:
1218: /*Bug 8135201*/
1285:
1286: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC : Request id is - '|| l_request_id;
1287:
1288: IF (g_po_wf_debug = 'Y') THEN
1289: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
1290: END IF;
1291:
1292: END IF; -- language <> supplier language
1293:
1297: /*Begin Changes by Akyanama Bug # 12969112*//*Throwing Submission error*/
1298: WHEN submission_error THEN
1299: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
1300: IF (g_po_wf_debug = 'Y') THEN
1301: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1302: x_progress := fnd_message.get;
1303: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1304: END IF;
1305: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
1299: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
1300: IF (g_po_wf_debug = 'Y') THEN
1301: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1302: x_progress := fnd_message.get;
1303: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1304: END IF;
1305: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
1306: RAISE;
1307: /*End Changes by Akyanama Bug # 12969112*/
1308: WHEN OTHERS THEN
1309: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP_TC: In Exception handler';
1310:
1311: IF (g_po_wf_debug = 'Y') THEN
1312: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
1313: END IF;
1314: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF_SUPP_TC', x_progress);
1315: raise;
1316:
1460: begin
1461: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer ';
1462:
1463: IF (g_po_wf_debug = 'Y') THEN
1464: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1465: END IF;
1466:
1467: --
1468: IF (funcmode <> wf_engine.eng_run)
1516: EXCEPTION
1517: WHEN NO_DATA_FOUND THEN
1518: l_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_BUYER : in exception handler';
1519: IF (g_po_wf_debug = 'Y') THEN
1520: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,l_progress);
1521: END IF;
1522: END;
1523: --
1524:
1551:
1552: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer :Launching the Dispatch Purchase Order program ';
1553:
1554: IF (g_po_wf_debug = 'Y') THEN
1555: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1556: END IF;
1557:
1558: --Bug#3481824 Need to pass document type as
1559: --RELEASE in case of a release to the concurrent program
1587: p_document_id => l_document_id);
1588: Exception when no_data_found then
1589: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer: No supplier file attachments exist for this document';
1590: IF (g_po_wf_debug = 'Y') THEN
1591: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1592: END IF;
1593: l_max_attachment_size := 0; -- No need to generate zip file if no 'To Supplier' file attachments exist
1594: End;
1595:
1675: -- until caught by outer exception handler
1676: Exception when no_data_found then
1677: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer: No duplicate filenames exist in the attachments for this Release';
1678: IF (g_po_wf_debug = 'Y') THEN
1679: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1680: END IF;
1681: End;
1682: ELSE
1683: -- bug4917605
1737: -- until caught by outer exception handler
1738: Exception when no_data_found then
1739: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer: No duplicate filenames exist in the attachments for this PO';
1740: IF (g_po_wf_debug = 'Y') THEN
1741: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1742: END IF;
1743: End;
1744: END IF;
1745:
1752: END IF;
1753:
1754: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer : execute loop to get duplicate filenames with error condition';
1755: IF (g_po_wf_debug = 'Y') THEN
1756: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, l_progress);
1757: END IF;
1758:
1759: l_error_flag := 0;
1760: LOOP
1778: END IF;
1779:
1780: l_progress := 'PO_COMMUNICATION_PVT.generate_pdf_buyer : error flag = '|| l_error_flag;
1781: IF (g_po_wf_debug = 'Y') THEN
1782: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, l_progress);
1783: END IF;
1784:
1785: IF l_error_flag = 1 THEN
1786: set_zip_error_code(itemtype, itemkey, 'DUPLICATE_FILENAME');
1790: END IF; --IF l_attachments_exist = 'Y'
1791: END IF; --IF l_max_attachment_size > 0
1792: Exception when others then
1793: IF (g_po_wf_debug = 'Y') THEN
1794: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1795: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,'PO_COMMUNICATION_PVT.generate_pdf_buyer: Caught Zip generation exception '|| SQLERRM);
1796: END IF;
1797: set_zip_error_code(itemtype, itemkey, 'UNEXPECTED');
1798: l_max_attachment_size := 0; -- No need to generate zip file if it is an error
1791: END IF; --IF l_max_attachment_size > 0
1792: Exception when others then
1793: IF (g_po_wf_debug = 'Y') THEN
1794: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1795: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,'PO_COMMUNICATION_PVT.generate_pdf_buyer: Caught Zip generation exception '|| SQLERRM);
1796: END IF;
1797: set_zip_error_code(itemtype, itemkey, 'UNEXPECTED');
1798: l_max_attachment_size := 0; -- No need to generate zip file if it is an error
1799: End;
1862: raise submission_error;
1863: end if;
1864: /*End Changes by Akyanama Bug # 12969112*/
1865: IF (g_po_wf_debug = 'Y') THEN
1866: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, l_progress);
1867: END IF;
1868:
1869: PO_WF_UTIL_PKG.SetItemAttrNumber (itemtype => itemtype,
1870: itemkey => itemkey,
1875: /*Begin Changes by Akyanama Bug # 12969112*//*Throwing Submission error*/
1876: WHEN submission_error THEN
1877: l_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
1878: IF (g_po_wf_debug = 'Y') THEN
1879: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, l_progress);
1880: END IF;
1881: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', l_progress);
1882: RAISE;
1883: /*End Changes by Akyanama Bug # 12969112*/
1883: /*End Changes by Akyanama Bug # 12969112*/
1884: WHEN OTHERS THEN
1885:
1886: IF (g_po_wf_debug = 'Y') THEN
1887: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, l_progress);
1888: END IF;
1889:
1890: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF_BUYER', l_progress);
1891: raise;
1922: begin
1923: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP';
1924:
1925: IF (g_po_wf_debug = 'Y') THEN
1926: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
1927: END IF;
1928:
1929: --Start of code changes for the bug 12403413
1930: -- Do nothing in cancel or timeout modes. Similar to the bug 4100416
1982: EXCEPTION
1983: WHEN NO_DATA_FOUND THEN
1984: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP -000: in exception handler';
1985: IF (g_po_wf_debug = 'Y') THEN
1986: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
1987: END IF;
1988: END;
1989: END IF;
1990:
1996: EXCEPTION
1997: WHEN NO_DATA_FOUND THEN
1998: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP -001: in exception handler';
1999: IF (g_po_wf_debug = 'Y') THEN
2000: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
2001: END IF;
2002: END;
2003:
2004: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP :launching the Dispatch Purchase Order concurrent program ';
2003:
2004: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP :launching the Dispatch Purchase Order concurrent program ';
2005:
2006: IF (g_po_wf_debug = 'Y') THEN
2007: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
2008: END IF;
2009:
2010: --set the suppliers language before launching the concurrent request
2011: -- Bug6841986/6528046 changed userenv('LANG')==> l_language_code
2016: EXCEPTION
2017: WHEN NO_DATA_FOUND THEN
2018: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP -002: in exception handler';
2019: IF (g_po_wf_debug = 'Y') THEN
2020: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
2021: END IF;
2022: END;
2023:
2024: --End Bug6841986/6528046
2030: EXCEPTION
2031: WHEN NO_DATA_FOUND THEN
2032: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP -003: in exception handler';
2033: IF (g_po_wf_debug = 'Y') THEN
2034: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
2035: END IF;
2036: END;
2037:
2038: /*Bug 8135201*/
2096:
2097: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP : Request id is - '|| l_request_id;
2098:
2099: IF (g_po_wf_debug = 'Y') THEN
2100: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
2101: END IF;
2102: /*Begin Changes by Akyanama Bug # 12969112*//*Checking if the request id is valid or not before setting work flow variables*/
2103: if (l_request_id <= 0 or l_request_id is null) then
2104: raise submission_error;
2117: /*Begin Changes by Akyanama Bug # 12969112*//*Throwing Submission error*/
2118: WHEN submission_error THEN
2119: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
2120: IF (g_po_wf_debug = 'Y') THEN
2121: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2122: x_progress := fnd_message.get;
2123: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2124: END IF;
2125: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
2119: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
2120: IF (g_po_wf_debug = 'Y') THEN
2121: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2122: x_progress := fnd_message.get;
2123: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2124: END IF;
2125: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
2126: RAISE;
2127:
2129: WHEN OTHERS THEN
2130: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_SUPP: In Exception handler';
2131:
2132: IF (g_po_wf_debug = 'Y') THEN
2133: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2134: END IF;
2135: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF_SUPP', x_progress);
2136: raise;
2137:
2169: begin
2170: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_EMAIL_PROCESS';
2171:
2172: IF (g_po_wf_debug = 'Y') THEN
2173: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
2174: END IF;
2175:
2176: l_language_code := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
2177: itemkey => itemkey,
2186: EXCEPTION
2187: WHEN NO_DATA_FOUND THEN
2188: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_EMAIL_PROCESS -001: in exception handler';
2189: IF (g_po_wf_debug = 'Y') THEN
2190: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
2191: END IF;
2192: END;
2193: --Bug13774287
2194: l_document_type := PO_WF_UTIL_PKG.GetItemAttrText (itemtype => itemtype,
2224:
2225: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_EMAIL_PROCESS:launching the Dispatch Purchase Order concurrent program ';
2226:
2227: IF (g_po_wf_debug = 'Y') THEN
2228: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY, x_progress);
2229: END IF;
2230:
2231: IF l_language_code <> userenv('LANG') THEN
2232:
2241: EXCEPTION
2242: WHEN NO_DATA_FOUND THEN
2243: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_EMAIL_PROCESS -002: in exception handler';
2244: IF (g_po_wf_debug = 'Y') THEN
2245: PO_WF_DEBUG_PKG.INSERT_DEBUG(ITEMTYPE, ITEMKEY,x_progress);
2246: END IF;
2247: END;
2248:
2249: /*Bug 8135201*/
2323: /*Begin Changes by Akyanama Bug # 12969112*//*Throwing Submission error*/
2324: WHEN submission_error THEN
2325: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
2326: IF (g_po_wf_debug = 'Y') THEN
2327: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2328: x_progress := fnd_message.get;
2329: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2330: END IF;
2331: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
2325: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF : Exception submitting concurrent request';
2326: IF (g_po_wf_debug = 'Y') THEN
2327: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2328: x_progress := fnd_message.get;
2329: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2330: END IF;
2331: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF', itemtype, itemkey, 'PO', x_progress);
2332: RAISE;
2333:
2335: WHEN OTHERS THEN
2336: x_progress := 'PO_COMMUNICATION_PVT.GENERATE_PDF_EMAIL_PROCESS: In Exception handler';
2337:
2338: IF (g_po_wf_debug = 'Y') THEN
2339: PO_WF_DEBUG_PKG.insert_debug(itemtype, itemkey, x_progress);
2340: END IF;
2341: wf_core.context('PO_COMMUNICATION_PVT', 'GENERATE_PDF_EMAIL_PROCESS', x_progress);
2342: RAISE ;
2343:
3537:
3538: x_progress := 'PO_COMMUNICATION_PVT.pdf_attach_app ';
3539:
3540: IF (g_po_wf_debug = 'Y') THEN
3541: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
3542: END IF;
3543:
3544: l_document_id := wf_engine.GetItemAttrNumber (itemtype => l_itemtype,
3545: itemkey => l_itemkey,
3624: and fdl.language = l_language
3625: and fl.file_name = l_filename ;
3626:
3627: IF (g_po_wf_debug = 'Y') THEN
3628: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, 'Fetching from PO_HEAD/PO_REL....');
3629: END IF;
3630:
3631: EXCEPTION
3632: WHEN No_Data_Found THEN
3630:
3631: EXCEPTION
3632: WHEN No_Data_Found THEN
3633: IF (g_po_wf_debug = 'Y') THEN
3634: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, 'Fetching from OKC_CONTRACT_DOC entity.....');
3635: END IF;
3636:
3637: SELECT file_data into l_document
3638: FROM fnd_lobs fl,
3649: and fl.file_name = l_filename ;
3650: END;
3651: l_document_length := dbms_lob.GetLength(l_document);
3652: IF (g_po_wf_debug = 'Y') THEN
3653: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, 'Document Length : '||l_document_length);
3654: END IF;
3655: dbms_lob.copy(document, l_document, l_document_length, 1, 1);
3656:
3657: document_type :='application/pdf; name='|| l_filename;
3662: --WF_NOTIFICATION.WriteToBlob(document, l_document);
3663: x_progress := 'PO_COMMUNICATION_PVT.pdf_attach_app-Exception ';
3664:
3665: IF (g_po_wf_debug = 'Y') THEN
3666: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
3667: END IF;
3668:
3669: --Bug#3274081 Display the message to the user incase the pdf fails.
3670: document_type :='text/html; name='|| l_filename;
3703: l_itemtype := substr(document_id, 1, instr(document_id, ':') - 1);
3704: l_itemkey := substr(document_id, instr(document_id, ':') + 1, length(document_id) - 2);
3705:
3706: IF (g_po_wf_debug = 'Y') THEN
3707: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
3708: END IF;
3709:
3710: l_document_id := wf_engine.GetItemAttrNumber (itemtype => l_itemtype,
3711: itemkey => l_itemkey,
3779: WHEN OTHERS THEN
3780: x_progress := 'PO_COMMUNICATION_PVT.pdf_attach_supp - Exception ';
3781:
3782: IF (g_po_wf_debug = 'Y') THEN
3783: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
3784: END IF;
3785:
3786: -- Display the message to the user incase the pdf fails.
3787: -- Bug 4047688
3820: l_itemtype := substr(document_id, 1, instr(document_id, ':') - 1);
3821: l_itemkey := substr(document_id, instr(document_id, ':') + 1, length(document_id) - 2);
3822:
3823: IF (g_po_wf_debug = 'Y') THEN
3824: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
3825: END IF;
3826:
3827: l_document_id := wf_engine.GetItemAttrNumber (itemtype => l_itemtype,
3828: itemkey => l_itemkey,
3960: and fdl.language = l_language
3961: and fl.file_name = l_filename ;
3962:
3963: IF (g_po_wf_debug = 'Y') THEN
3964: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, 'Fetching from PO_HEAD/PO_REL....');
3965: END IF;
3966:
3967: EXCEPTION
3968: WHEN No_Data_Found THEN
3966:
3967: EXCEPTION
3968: WHEN No_Data_Found THEN
3969: IF (g_po_wf_debug = 'Y') THEN
3970: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, 'Fetching from OKC_CONTRACT_DOC entity.....');
3971: END IF;
3972:
3973: SELECT file_data into l_document
3974: FROM fnd_lobs fl,
3987: END IF;
3988:
3989: l_document_length := dbms_lob.GetLength(l_document);
3990: IF (g_po_wf_debug = 'Y') THEN
3991: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, 'Document Length : '||l_document_length);
3992: END IF;
3993: dbms_lob.copy(document, l_document, l_document_length, 1, 1);
3994:
3995: document_type :='application/pdf; name='|| l_filename;
4000: --WF_NOTIFICATION.WriteToBlob(document, l_document);
4001: x_progress := 'PO_COMMUNICATION_PVT.pdf_attach - Exception ';
4002:
4003: IF (g_po_wf_debug = 'Y') THEN
4004: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
4005: END IF;
4006:
4007: --Bug#3274081 Display the message to the user incase the pdf fails.
4008: --Bug 4047688: Removed concatenation of l_filename from document_type
4070: l_itemkey := substr(document_id, instr(document_id, ':') + 1,
4071: length(document_id) - 2);
4072:
4073: IF (g_po_wf_debug = 'Y') THEN
4074: PO_WF_DEBUG_PKG.insert_debug(l_itemtype, l_itemkey, x_progress);
4075: END IF;
4076:
4077: l_po_document_id := PO_WF_UTIL_PKG.GetItemAttrNumber (
4078: itemtype => l_itemtype,
4120: --Mod Project
4121: x_progress := '020';
4122:
4123: IF (g_po_wf_debug = 'Y') THEN
4124: PO_WF_DEBUG_PKG.insert_debug(l_itemtype, l_itemkey, x_progress);
4125: END IF;
4126:
4127: IF l_withTerms <> 'Y' THEN
4128: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
4144:
4145: x_progress := '030; l_okc_file_id = ' || l_okc_file_id;
4146:
4147: IF (g_po_wf_debug = 'Y') THEN
4148: PO_WF_DEBUG_PKG.insert_debug(l_itemtype, l_itemkey, x_progress);
4149: END IF;
4150:
4151: IF (l_okc_file_id > 0)
4152: THEN
4174:
4175: x_progress := 'END OF okc_doc_attach';
4176:
4177: IF (g_po_wf_debug = 'Y') THEN
4178: PO_WF_DEBUG_PKG.insert_debug(l_itemtype, l_itemkey, x_progress);
4179: END IF;
4180:
4181: EXCEPTION
4182:
4184: WHEN others THEN
4185: x_progress := 'PO_COMMUNICATION_PVT.pdf_attach - Exception ';
4186:
4187: IF (g_po_wf_debug = 'Y') THEN
4188: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, x_progress);
4189: END IF;
4190:
4191: document_type :='text/html; name='|| l_okc_file_name;
4192: l_message := fnd_message.get_string('PO', 'PO_OKC_DOC_FAILED');
4254: l_itemtype := substr(document_id, 1, instr(document_id, ':') - 1);
4255: l_itemkey := substr(document_id, instr(document_id, ':') + 1, length(document_id) - 2);
4256:
4257: IF (g_po_wf_debug = 'Y') THEN
4258: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, l_progress);
4259: END IF;
4260:
4261: l_progress := 'PO_COMMUNICATION_PVT.zip_attach : Get item attributes';
4262: l_document_id := wf_engine.GetItemAttrNumber (itemtype => l_itemtype,
4332: EXCEPTION
4333: WHEN OTHERS THEN
4334:
4335: IF (g_po_wf_debug = 'Y') THEN
4336: PO_WF_DEBUG_PKG.INSERT_DEBUG(l_itemtype, l_itemkey, l_progress ||' '|| SQLERRM);
4337: END IF;
4338:
4339: document_type :='text/html; name='|| l_filename;
4340: l_message := fnd_message.get_string('PO', 'PO_ZIP_FAILED');
4463: l_progress varchar2(200);
4464: BEGIN
4465: l_progress := 'PO_COMMUNICATION_PVT.get_max_zip_size : Querying max_attachment_size';
4466: IF (g_po_wf_debug = 'Y') THEN
4467: PO_WF_DEBUG_PKG.insert_debug(p_itemtype, p_itemkey, l_progress);
4468: END IF;
4469: select nvl(psp.max_attachment_size, 0)
4470: into l_max_attachment_size
4471: from po_system_parameters psp;
4470: into l_max_attachment_size
4471: from po_system_parameters psp;
4472: l_progress := 'PO_COMMUNICATION_PVT.get_max_zip_size : maximum attachment size = '|| l_max_attachment_size;
4473: IF (g_po_wf_debug = 'Y') THEN
4474: PO_WF_DEBUG_PKG.insert_debug(p_itemtype, p_itemkey, l_progress);
4475: END IF;
4476: return l_max_attachment_size;
4477: Exception
4478: when others then
4477: Exception
4478: when others then
4479: l_progress := 'PO_COMMUNICATION_PVT.get_max_zip_size : handled exception while getting Maximum Attachment Size ';
4480: IF (g_po_wf_debug = 'Y') THEN
4481: PO_WF_DEBUG_PKG.insert_debug(p_itemtype, p_itemkey, l_progress);
4482: END IF;
4483: l_max_attachment_size := 0;
4484: END get_max_zip_size;
4485: