[Home] [Help]
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;