PACKAGE BODY: APPS.AP_PMT_ACKNOWLEDGE

Source

1 PACKAGE BODY AP_PMT_ACKNOWLEDGE AS
2 /*$Header: appmackb.pls 120.1 2011/01/18 11:02:45 inanaiah noship $*/
3 
4   G_PKG_NAME          CONSTANT VARCHAR2(30) := 'AP_PMT_ACKNOWLEDGE';
5 
6   PROCEDURE mark_check_acknowledged
7    ( p_init_msg_list          IN  VARCHAR2 := FND_API.G_FALSE,
8      p_payment_id             IN  NUMBER,
9      x_return_status          OUT nocopy VARCHAR2,
10      x_msg_count              OUT nocopy NUMBER,
11      x_msg_data               OUT nocopy VARCHAR2
12    ) IS
13 
14    l_api_name                  CONSTANT VARCHAR2(30)   := 'mark_check_acknowledged';
15    l_api_version               CONSTANT NUMBER         := 1.0;
16    l_debug_info                VARCHAR2(2000);
17 
18   BEGIN
19     -- Initialize message list if p_init_msg_list is set to TRUE.
20     IF FND_API.to_Boolean( p_init_msg_list ) THEN
21         FND_MSG_PUB.initialize;
22     END IF;
23 
24     --  Initialize API return status to success
25     x_return_status := FND_API.G_RET_STS_SUCCESS;
26 
27     UPDATE ap_checks_all
28        SET ACKNOWLEDGED_FLAG = 'Y'
29      WHERE payment_id = p_payment_id;
30 
31   EXCEPTION
32     WHEN FND_API.G_EXC_ERROR THEN
33      x_return_status := FND_API.G_RET_STS_ERROR ;
34      FND_MSG_PUB.Count_And_Get
35                 ( p_count => x_msg_count,
36                   p_data  => x_msg_data
37                 );
38     WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
39      x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
40      FND_MSG_PUB.Count_And_Get
41                 ( p_count => x_msg_count,
42                   p_data  => x_msg_data
43                 );
44     WHEN OTHERS THEN
45      x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
46      IF FND_MSG_PUB.Check_Msg_Level
47         (
48         FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR
49         )
50      THEN
51         FND_MSG_PUB.Add_Exc_Msg
52                    ( G_PKG_NAME,
53                      l_api_name
54                    );
55      END IF;
56      FND_MSG_PUB.Count_And_Get
57                 ( p_count => x_msg_count,
58                   p_data  => x_msg_data
59                 );
60   END mark_check_acknowledged;
61 
62 END AP_PMT_ACKNOWLEDGE;