1 PACKAGE BODY AMS_Claim_Install as
2 /* $Header: amsgcinb.pls 115.13 2004/04/06 19:33:40 julou ship $ */
3
4 -- *******************************************************
5 -- Start of Comments
6 -- *******************************************************
7 -- API Name: Check_Installed
8 -- Type : Public
9 -- Pre-Req :
10 -- Parameters:
11 -- IN
12 --
13 -- OUT:
14 -- Version : Current version 1.0
15 --
16 -- Note: This function checks if claims module is installed
17 --
18 -- End of Comments
19 --
20 FUNCTION Check_Installed return boolean
21 IS
22
23 BEGIN
24
25 return OZF_CLAIM_INSTALL.Check_Installed;
26
27 EXCEPTION
28 WHEN OTHERS THEN
29 return FALSE;
30 End Check_Installed ;
31
32
33 /*=======================================================================*
34 | API Name : Get_Amount_Remaining
35 | Type : Public
36 | Pre-Req :
37 | Parameters:
38 | IN
39 | p_claim_id IN NUMBER Required
40 | OUT
41 | x_amount_remaining OUT NOCOPY NUMBER
42 | x_acctd_amount_remaining OUT NOCOPY NUMBER
43 | x_currency_code OUT NOCOPY VARCHAR2
44 | x_return_status OUT NOCOPY VARCHAR2
45 | Version : Current version 1.0
46 | Note : This API returns the amount_remaing of the root claim.
47 |
48 | History :
49 | 28-MAY-2002 mchang Create.
50 *=======================================================================*/
51 PROCEDURE Get_Amount_Remaining (
52 p_claim_id IN NUMBER,
53 x_amount_remaining OUT NOCOPY NUMBER,
54 x_acctd_amount_remaining OUT NOCOPY NUMBER,
55 x_currency_code OUT NOCOPY VARCHAR2,
56 x_return_status OUT NOCOPY VARCHAR2
57 )
58 IS
59
60
61 BEGIN
62
63 -- Initialize API return status to SUCCESS
64 x_return_status := FND_API.G_RET_STS_SUCCESS;
65
66 OZF_CLAIM_INSTALL.Get_Amount_Remaining (
67 p_claim_id => p_claim_id,
68 x_amount_remaining => x_amount_remaining,
69 x_acctd_amount_remaining => x_acctd_amount_remaining,
70 x_currency_code => x_currency_code,
71 x_return_status => x_return_status
72 );
73 IF x_return_status = FND_API.G_RET_STS_ERROR then
74 RAISE FND_API.G_EXC_ERROR;
75 ELSIF x_return_status = FND_API.G_RET_STS_UNEXP_ERROR then
76 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
77 END IF;
78
79 EXCEPTION
80 WHEN OTHERS THEN
81 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
82 IF FND_MSG_PUB.Check_Msg_Level ( FND_MSG_PUB.G_MSG_LVL_UNEXP_ERROR) THEN
83 FND_MESSAGE.set_name('AMS', 'AMS_CLAM_GET_AMTREM_ERR');
84 FND_MSG_PUB.add;
85 END IF;
86 END Get_Amount_Remaining;
87
88 End AMS_Claim_Install;