[Home] [Help]
PACKAGE BODY: APPS.IEX_CREDIT_HOLD_API
Source
1 PACKAGE BODY IEX_CREDIT_HOLD_API AS
2 /* $Header: iexvcdhb.pls 120.1 2005/10/12 14:49:51 acaraujo noship $ */
3
4 G_PKG_NAME CONSTANT VARCHAR2(30) := 'IEX_CREDIT_HOLD_API';
5 G_FILE_NAME CONSTANT VARCHAR2(12) := 'iexvcdhb.pls';
6
7 G_APPL_ID NUMBER ;
8 G_LOGIN_ID NUMBER ;
9 G_PROGRAM_ID NUMBER ;
10 G_USER_ID NUMBER ;
11 G_REQUEST_ID NUMBER ;
12
13 PG_DEBUG NUMBER(2) ;
14
15 PROCEDURE UPDATE_CREDIT_HOLD
16 (p_api_version IN NUMBER := 1.0,
17 p_init_msg_list IN VARCHAR2 ,
18 p_commit IN VARCHAR2 ,
19 p_account_id IN NUMBER,
20 p_site_id IN NUMBER,
21 p_credit_hold IN VARCHAR2,
22 x_return_status OUT NOCOPY VARCHAR2,
23 x_msg_count OUT NOCOPY NUMBER,
24 x_msg_data OUT NOCOPY VARCHAR2)
25 IS
26 l_api_version CONSTANT NUMBER := 1.0;
27 l_api_name CONSTANT VARCHAR2(30) := 'Update_Credit_Hold';
28 l_return_status VARCHAR2(1);
29 l_msg_count NUMBER;
30 l_msg_data VARCHAR2(32767);
31 l_return BOOLEAN;
32
33
34 BEGIN
35 SAVEPOINT Update_Credit_Hold_PVT;
36
37 -- Standard call to check for call compatibility.
38 IF NOT FND_API.Compatible_API_Call (l_api_version,
39 p_api_version,
40 l_api_name,
41 G_PKG_NAME) THEN
42 RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
43 END IF;
44
45 -- Check p_init_msg_list
46 IF FND_API.to_Boolean( p_init_msg_list ) THEN
47 FND_MSG_PUB.initialize;
48 END IF;
49
50 x_return_status := FND_API.G_RET_STS_SUCCESS;
51
52 --Begin - Andre Araujo - Bug#4662279 - Removed since the one in arp_cprof1_pkg has the same function
53
54 --iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update:'||p_account_id||';'||p_site_id||';'||p_credit_hold);
55 --iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update:update hz_customer_profiles');
56 -- update hz_customer_profiles
57
58 --l_return := arh_cprof1_pkg.update_credit_hold(
59 -- p_account_id,
60 -- p_site_id,
61 -- p_credit_hold) ;
62
63 --if (l_return) then
64 -- iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=Y');
65 --else
66 -- FND_MESSAGE.Set_Name('IEX', 'IEX_CREDIT_HOLD_NOT_UPDATED');
67 -- FND_MSG_PUB.Add;
68 -- raise FND_API.G_EXC_ERROR;
69 -- iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=N');
70 --end if;
71
72 --End - Andre Araujo - Bug#4662279 - Removed since the one in arp_cprof1_pkg has the same function
73
74 iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update:update ar_customer_profiles');
75 -- update ar_customer_profiles
76 l_return := arp_cprof1_pkg.update_credit_hold(
77 p_account_id,
78 p_site_id,
79 p_credit_hold) ;
80
81 if (l_return) then
82 iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=Y');
83 else
84 FND_MESSAGE.Set_Name('IEX', 'IEX_CREDIT_HOLD_NOT_UPDATED');
85 FND_MSG_PUB.Add;
86 raise FND_API.G_EXC_ERROR;
87 iex_dunning_pvt.WriteLog('iexvcdhb.pls:Update HZ_CUSTOMER_PROFILES=N');
88 end if;
89
90 x_return_status := FND_API.G_RET_STS_SUCCESS;
91
92 -- Standard check for p_commit
93 IF FND_API.to_Boolean( p_commit )
94 THEN
95 COMMIT WORK;
96 END IF;
97
98 FND_MSG_PUB.Count_And_Get
99 ( p_count => x_msg_count,
100 p_data => x_msg_data
101 );
102
103
104 EXCEPTION
105 WHEN FND_API.G_EXC_ERROR THEN
106 ROLLBACK TO Update_Credit_Hold_PVT;
107 x_return_status := FND_API.G_RET_STS_ERROR;
108 FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
109
110 WHEN FND_API.G_EXC_UNEXPECTED_ERROR THEN
111 ROLLBACK TO Update_Credit_Hold_PVT;
112 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
113 FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
114
115 WHEN OTHERS THEN
116 ROLLBACK TO Update_Credit_Hold_PVT;
117 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
118 iex_dunning_pvt.WriteLog('iexvcdhb.pls:other exception:'||SQLERRM);
119 FND_MSG_PUB.Count_And_Get(p_count => x_msg_count, p_data => x_msg_data);
120
121 END UPDATE_CREDIT_HOLD;
122
123
124 BEGIN
125 G_APPL_ID := FND_GLOBAL.Prog_Appl_Id;
126 G_LOGIN_ID := FND_GLOBAL.Conc_Login_Id;
127 G_PROGRAM_ID := FND_GLOBAL.Conc_Program_Id;
128 G_USER_ID := FND_GLOBAL.User_Id;
129 G_REQUEST_ID := FND_GLOBAL.Conc_Request_Id;
130
131 PG_DEBUG := TO_NUMBER(NVL(FND_PROFILE.value('IEX_DEBUG_LEVEL'), '20'));
132
133 END IEX_CREDIT_HOLD_API;