PACKAGE BODY: APPS.CLN_3C3_AP_TRIGGER_PKG

Source

1 PACKAGE BODY CLN_3C3_AP_TRIGGER_PKG AS
2 /* $Header: CLN3C3TB.pls 120.0 2005/05/24 16:22:31 appldev noship $ */
3    l_debug_level        NUMBER := to_number(nvl(fnd_profile.value('CLN_DEBUG_LEVEL'), '5'));
4 
5    PROCEDURE TRIGGER_REJECTION(
6                                       p_invoice_id             IN              NUMBER,
7                                       p_group_id               IN              NUMBER,
8                                       p_request_id             IN              NUMBER,
9                                       p_external_doc_ref       IN              VARCHAR2) IS
10    BEGIN
11         IF (l_Debug_Level <= 2) THEN
12                 cln_debug_pub.Add('------ Entering CLN_3C3_AP_TRIGGER_PKG.TRIGGER_REJECTION API ------ ', 2);
13         END IF;
14         IF (l_Debug_Level <= 1) THEN
15                 cln_debug_pub.Add('p_invoice_id : ' || p_invoice_id, 1);
16                 cln_debug_pub.Add('p_group_id : ' || p_group_id, 1);
17                 cln_debug_pub.Add('p_request_id : ' || p_request_id, 1);
18                 cln_debug_pub.Add('p_external_doc_ref : ' || p_external_doc_ref, 1);
19         END IF;
20 
21         CLN_NTFYINVC_PKG.TRIGGER_REJECTION(p_invoice_id,p_group_id,p_request_id,p_external_doc_ref);
22 
23         IF (l_Debug_Level <= 2) THEN
24                 cln_debug_pub.Add('------ Exiting CLN_3C3_AP_TRIGGER_PKG.TRIGGER_REJECTION API ------ ', 2);
25         END IF;
26    END TRIGGER_REJECTION;
27 END CLN_3C3_AP_TRIGGER_PKG;