[Home] [Help]
PACKAGE BODY: APPS.PSA_AP_BC_GRP
Source
1 PACKAGE BODY PSA_AP_BC_GRP AS
2 --$Header: psagapbb.pls 120.0 2006/07/10 13:40:43 bnarang noship $
3
4 G_PKG_NAME CONSTANT VARCHAR2(30):='PSA_AP_BC_GRP';
5 /*------------------------------------------------------------------------
6 Logging Declarations
7 -------------------------------------------------------------------------*/
8 g_state_level NUMBER := FND_LOG.LEVEL_STATEMENT;
9 g_proc_level NUMBER := FND_LOG.LEVEL_PROCEDURE;
10 g_event_level NUMBER := FND_LOG.LEVEL_EVENT;
11 g_excep_level NUMBER := FND_LOG.LEVEL_EXCEPTION;
12 g_error_level NUMBER := FND_LOG.LEVEL_ERROR;
13 g_unexp_level NUMBER := FND_LOG.LEVEL_UNEXPECTED;
14 g_full_path CONSTANT VARCHAR2(50) :='psa.plsql.psagapbb.psa_ap_bc_grp';
15
16 PROCEDURE Get_PO_Reversed_Encumb_Amount(
17 p_api_version IN NUMBER,
18 p_init_msg_list IN VARCHAR2 DEFAULT FND_API.G_FALSE ,
19 x_return_status OUT NOCOPY VARCHAR2,
20 x_msg_count OUT NOCOPY NUMBER,
21 x_msg_data OUT NOCOPY VARCHAR2,
22 P_Po_Distribution_Id IN NUMBER,
23 P_Start_gl_Date IN DATE,
24 P_End_gl_Date IN DATE,
25 P_Calling_Sequence IN VARCHAR2 DEFAULT NULL,
26 x_unencumbered_amount OUT NOCOPY NUMBER
27 )
28
29 IS
30 l_api_name VARCHAR2(240);
31 l_api_version CONSTANT NUMBER := 1.0;
32
33 BEGIN
34 l_api_name := g_full_path || '.Get_PO_Reversed_Encumb_Amount';
35 x_unencumbered_amount := 0;
36
37 psa_utils.debug_other_string(g_state_level,l_api_name,'Start of procedure PSA_AP_BC_GRP.Get_PO_Reversed_Encumb_Amount' );
38
39 -- Standard call to check for call compatibility.
40 IF NOT FND_API.Compatible_API_Call (l_api_version,
41 p_api_version,
42 l_api_name,
43 G_PKG_NAME )
44 THEN
45 psa_utils.debug_other_string(g_state_level,l_api_name,'API version not compatible');
46 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
47 END IF;
48
49 -- Initialize message list if p_init_msg_list is set to TRUE.
50 IF FND_API.to_Boolean( p_init_msg_list ) THEN
51 FND_MSG_PUB.initialize;
52 END IF;
53 -- Initialize API return status to success
54 x_return_status := FND_API.G_RET_STS_SUCCESS;
55 x_msg_count := 0;
56 x_msg_data := NULL;
57
58 psa_utils.debug_other_string(g_state_level,l_api_name,'Calling PSA_AP_BC_PVT.Get_PO_Reversed_Encumb_Amount' );
59
60 x_unencumbered_amount := PSA_AP_BC_PVT.Get_PO_Reversed_Encumb_Amount(P_Po_Distribution_Id => P_Po_Distribution_Id,
61 P_Start_gl_Date => P_Start_gl_Date,
62 P_End_gl_Date => P_End_gl_Date,
63 P_Calling_Sequence => P_Calling_Sequence);
64
65 psa_utils.debug_other_string(g_state_level,l_api_name,'Call to PSA_AP_BC_PVT.Get_PO_Reversed_Encumb_Amount successful' );
66 FND_MSG_PUB.Count_And_Get
67 (
68 p_count => x_msg_count,
69 p_data => x_msg_data
70 );
71 psa_utils.debug_other_string(g_state_level,l_api_name,'End of procedure PSA_AP_BC_GRP.Get_PO_Reversed_Encumb_Amount' );
72 EXCEPTION
73 WHEN OTHERS THEN
74
75 psa_utils.debug_other_string(g_unexp_level,l_api_name,'ERROR: ' || SQLERRM(sqlcode));
76 psa_utils.debug_other_string(g_unexp_level,l_api_name,'Error in Get_PO_Reversed_Encumb_Amount Procedure');
77 Fnd_Msg_Pub.Add_Exc_Msg(
78 p_pkg_name => 'PSA_AP_BC_GRP',
79 p_procedure_name => 'GET_PO_REVERSED_ENCUMB_AMOUNT');
80 FND_MSG_PUB.Count_And_Get
81 (
82 p_count => x_msg_count ,
83 p_data => x_msg_data
84 );
85 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
86 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
87 END Get_PO_Reversed_Encumb_Amount;
88 END;