[Home] [Help]
1: PACKAGE BODY CLN_NTFYINVC_PKG AS
2: /* $Header: CLN3C3B.pls 120.2 2006/10/04 11:28:07 bsaratna noship $ */
3:
4: l_debug_level NUMBER;
5:
24: AND PARENT_TABLE = 'AP_INVOICE_LINES_INTERFACE';
25:
26: BEGIN
27: IF (l_Debug_Level <= 2) THEN
28: cln_debug_pub.Add('------ Entering CLN_NTFYINVC_PKG.GET_AR_REJECTIONS_STRING API ------ ', 2);
29: END IF;
30:
31: IF (l_Debug_Level <= 1) THEN
32: cln_debug_pub.Add('p_invoice_id : ' || p_invoice_id, 1);
102:
103: RETURN l_error_reject_string;
104:
105: IF (l_Debug_Level <= 2) THEN
106: cln_debug_pub.Add('------ Exiting CLN_NTFYINVC_PKG.GET_AR_REJECTIONS_STRING API ------ ', 2);
107: END IF;
108: END GET_AR_REJECTIONS_STRING;
109:
110:
131: l_invoice_date DATE;
132: BEGIN
133:
134: IF (l_debug_level <= 2) THEN
135: cln_debug_pub.Add('ENTERING CLN_NTFYINVC_PKG.RAISE_3C4_EVENT', 2);
136: END IF;
137:
138: IF (l_debug_level <= 1) THEN
139: cln_debug_pub.Add('p_invoice_id:' || p_invoice_id, 1);
218: cln_debug_pub.Add('---------3c4 event raised ---------', 1);
219: END IF;
220:
221: IF (l_debug_level <= 1) THEN
222: cln_debug_pub.Add('Exiting CLN_NTFYINVC_PKG.RAISE_3C4_EVENT', 1);
223: END IF;
224:
225: END RAISE_3C4_EVENT;
226:
264:
265: BEGIN
266:
267: IF (l_debug_level <= 1) THEN
268: cln_debug_pub.Add('ENTERING CLN_NTFYINVC_PKG.Get_NotifyInvoice_Params', 1);
269: cln_debug_pub.Add('With the following parameters:', 1);
270: cln_debug_pub.Add('itemtype:' || p_itemtype, 1);
271: cln_debug_pub.Add('itemkey:' || p_itemkey, 1);
272: cln_debug_pub.Add('actid:' || p_actid, 1);
307: END IF;
308: END;
309:
310: IF (l_debug_level <= 1) THEN
311: cln_debug_pub.Add('CLN_NTFYINVC_PKG.Get_NotifyInvoice_Params: Parameter Lookups Completed', 1);
312: cln_debug_pub.Add('With the following parameters:', 1);
313: cln_debug_pub.Add('party_id:' || l_party_id, 1);
314: cln_debug_pub.Add('party_site_id:' || l_party_site_id, 1);
315: cln_debug_pub.Add('doc_transfer_id:' || l_doc_transfer_id, 1);
380: cln_debug_pub.Add('Result out '|| x_resultout, 1);
381: END IF;
382:
383: IF (l_debug_level <= 2) THEN
384: cln_debug_pub.Add('EXITING CLN_NTFYINVC_PKG.Get_NotifyInvoice_Params Successfully', 2);
385: END IF;
386:
387: EXCEPTION
388: WHEN OTHERS THEN
398: cln_debug_pub.Add('Result out '|| x_resultout, 1);
399: END IF;
400:
401: IF (l_debug_level <= 1) THEN
402: cln_debug_pub.Add('Exiting CLN_NTFYINVC_PKG.Get_NotifyInvoice_Params with Error', 1);
403: END IF;
404:
405: END Get_NotifyInvoice_Params;
406:
672: x_po_ship_num IN OUT NOCOPY VARCHAR2) AS
673: BEGIN
674: l_debug_level := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
675: IF (l_debug_level <= 2) THEN
676: cln_debug_pub.Add('Entering CLN_NTFYINVC_PKG.GET_PO_SHIPMENT_INFO',2);
677: cln_debug_pub.Add('p_org_id - '||p_org_id ,2);
678: cln_debug_pub.Add('p_so_num - '||p_so_num ,2);
679: cln_debug_pub.Add('p_so_rev_num - '||p_so_rev_num,2);
680: cln_debug_pub.Add('p_so_lin_num - '||p_so_lin_num,2);
701:
702: EXCEPTION
703: WHEN OTHERS THEN
704: IF (l_debug_level <= 5) THEN
705: cln_debug_pub.Add('Error in CLN_NTFYINVC_PKG.GET_PO_SHIPMENT_INFO',5);
706: cln_debug_pub.Add('Error - ' || SQLCODE || SQLERRM,5);
707: END IF;
708: x_po_num := null;
709: x_po_line_num := null;
1540: l_msg_data := '000';
1541:
1542:
1543: IF (l_Debug_Level <= 2) THEN
1544: cln_debug_pub.Add('---------------- ENTERING CLN_NTFYINVC_PKG.UPDATE_INV_HEADER_INTERFACE -----------------', 2);
1545: END IF;
1546:
1547: x_return_status := FND_API.G_RET_STS_SUCCESS;
1548:
1587:
1588: END IF;
1589:
1590: IF (l_Debug_Level <= 2) THEN
1591: cln_debug_pub.Add('---------------- EXITING CLN_NTFYINVC_PKG.UPDATE_INV_HEADER_INTERFACE -----------------', 2);
1592: END IF;
1593: EXCEPTION
1594: WHEN OTHERS THEN
1595: l_error_code := SQLCODE;
1604: cln_debug_pub.Add(l_msg_data,6);
1605: END IF;
1606:
1607: IF (l_Debug_Level <= 2) THEN
1608: cln_debug_pub.Add('---------------- EXITING CLN_NTFYINVC_PKG.UPDATE_INV_HEADER_INTERFACE with ERROR-----------------', 2);
1609: END IF;
1610: END UPDATE_INV_HEADER_INTERFACE;
1611:
1612:
1765:
1766: BEGIN
1767:
1768: IF (l_Debug_Level <= 2) THEN
1769: cln_debug_pub.Add('------ Entering CLN_NTFYINVC_PKG.TRIGGER_REJECTION API ------ ', 2);
1770: END IF;
1771:
1772: IF (l_Debug_Level <= 1) THEN
1773: cln_debug_pub.Add('p_invoice_id : ' || p_invoice_id, 1);
1834: cln_debug_pub.Add('Before inserting data', 1);
1835: END IF;
1836:
1837: IF (l_Debug_Level <= 2) THEN
1838: cln_debug_pub.Add('------ Exiting CLN_NTFYINVC_PKG.TRIGGER_REJECTION API ------ ', 2);
1839: END IF;
1840: END TRIGGER_REJECTION;
1841:
1842:
1847: x_invoice_amt IN OUT NOCOPY NUMBER,
1848: x_invoice_date IN OUT NOCOPY DATE) IS
1849: BEGIN
1850: IF (l_Debug_Level <= 2) THEN
1851: cln_debug_pub.Add('------ Entering CLN_NTFYINVC_PKG.GET_REJECTED_INVOICE_DETAILS API ------ ', 2);
1852: END IF;
1853:
1854: IF (l_Debug_Level <= 1) THEN
1855: cln_debug_pub.Add('p_invoice_id : ' || p_invoice_id, 1);
1881: cln_debug_pub.Add('x_invoice_date : ' || to_char(x_invoice_date,'yyyy-mm-dd hh24:mi:ss'), 1);
1882: END IF;
1883:
1884: IF (l_Debug_Level <= 2) THEN
1885: cln_debug_pub.Add('------ Exiting CLN_NTFYINVC_PKG.GET_REJECTED_INVOICE_DETAILS API ------ ', 2);
1886: END IF;
1887:
1888: END GET_REJECTED_INVOICE_DETAILS;
1889:
1890: BEGIN
1891:
1892: l_debug_level := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
1893:
1894: END CLN_NTFYINVC_PKG;