PACKAGE BODY: APPS.AP_CUSTOM_INV_VALIDATION_PKG

Source

1 PACKAGE BODY AP_CUSTOM_INV_VALIDATION_PKG AS
2 /*$Header: apcsvalb.pls 120.0.12010000.1 2009/02/10 10:00:37 subehera noship $*/
3 
4   -- Logging Infra
5   G_CURRENT_RUNTIME_LEVEL       NUMBER := FND_LOG.G_CURRENT_RUNTIME_LEVEL;
6   G_LEVEL_UNEXPECTED   CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
7   G_LEVEL_ERROR        CONSTANT NUMBER := FND_LOG.LEVEL_ERROR;
8   G_LEVEL_EXCEPTION    CONSTANT NUMBER := FND_LOG.LEVEL_EXCEPTION;
9   G_LEVEL_UNEXPECTED   CONSTANT NUMBER := FND_LOG.LEVEL_UNEXPECTED;
10   G_LEVEL_EVENT        CONSTANT NUMBER := FND_LOG.LEVEL_EVENT;
11   G_LEVEL_PROCEDURE    CONSTANT NUMBER := FND_LOG.LEVEL_PROCEDURE;
12   G_LEVEL_STATEMENT    CONSTANT NUMBER := FND_LOG.LEVEL_STATEMENT;
13   G_MODULE_NAME        CONSTANT VARCHAR2(50) := 'AP.PLSQL.AP_CUSTOM_INV_VALIDATION_PKG.';
14   G_LEVEL_LOG_DISABLED CONSTANT NUMBER := 99;
15   --1-STATEMENT, 2-PROCEDURE, 3-EVENT, 4-EXCEPTION, 5-ERROR, 6-UNEXPECTED
16 
17 
18 PROCEDURE AP_Custom_Validation_Hook(
19    P_Invoice_ID                     IN   NUMBER,
20    P_Calling_Sequence               IN   VARCHAR2) IS
21 
22   l_curr_calling_sequence       VARCHAR2(2000);
23   l_debug_info                  VARCHAR2(1000);
24   l_debug_loc                   VARCHAR2(30);
25   l_log_msg                     FND_LOG_MESSAGES.MESSAGE_TEXT%TYPE;
26 
27 BEGIN
28 
29   -- Update the calling sequence --
30 
31   l_debug_loc := 'AP_Custom_Validation_Hook';
32   l_curr_calling_sequence := 'AP_CUSTOM_INV_VALIDATION_PKG.'||
33                              l_debug_loc||'<-'||
34                              p_calling_sequence;
35 
36   IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL  ) THEN
37       l_log_msg := 'Begin of procedure '|| l_debug_loc;
38       FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
39                      l_debug_loc, l_log_msg);
40   END IF;
41 
42   NULL;
43 
44   IF (G_LEVEL_PROCEDURE >= G_CURRENT_RUNTIME_LEVEL  ) THEN
45       l_log_msg := 'End of procedure '|| l_debug_loc;
46       FND_LOG.STRING(G_LEVEL_PROCEDURE, G_MODULE_NAME||
47                      l_debug_loc, l_log_msg);
48   END IF;
49 
50 EXCEPTION
51 
52   WHEN OTHERS THEN
53     IF (SQLCODE <> -20001) THEN
54       FND_MESSAGE.SET_NAME('SQLAP','AP_DEBUG');
55       FND_MESSAGE.SET_TOKEN('ERROR',SQLERRM);
56       FND_MESSAGE.SET_TOKEN('CALLING_SEQUENCE', l_curr_calling_sequence);
57       FND_MESSAGE.SET_TOKEN('PARAMETERS',
58                   'Invoice_id  = '|| to_char(p_invoice_id));
59     END IF;
60     APP_EXCEPTION.RAISE_EXCEPTION;
61 
62 END AP_Custom_Validation_Hook;
63 
64 END AP_CUSTOM_INV_VALIDATION_PKG;