[Home] [Help]
PACKAGE BODY: APPS.AS_TCA_PVT
Source
1 PACKAGE BODY AS_TCA_PVT as
2 /* $Header: asxvtcab.pls 120.0 2005/06/02 17:15:57 appldev noship $ */
3
4 --
5 -- NAME
6 -- AS_TCA_PVT
7 --
8 -- HISTORY
9 -- 05/19/00 ACNG Create
10 --
11
12 G_PKG_NAME CONSTANT VARCHAR2(30):='AS_TCA_PVT';
13 G_FILE_NAME CONSTANT VARCHAR2(12):='asxvtca1.pls';
14 G_APPL_ID NUMBER := FND_GLOBAL.Prog_Appl_Id;
15 G_LOGIN_ID NUMBER := FND_GLOBAL.Conc_Login_Id;
16 G_PROGRAM_ID NUMBER := FND_GLOBAL.Conc_Program_Id;
17 G_USER_ID NUMBER := FND_GLOBAL.User_Id;
18 G_REQUEST_ID NUMBER := FND_GLOBAL.Conc_Request_Id;
19
20 -- Procedure to validate the party_id
21 --
22 -- Validation:
23 -- Check if this party is in the HZ_PARTY table
24 --
25 -- NOTES:
26 --
27 PROCEDURE Validate_party_id (
28 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
29 p_party_id IN NUMBER,
30 x_return_status OUT NOCOPY VARCHAR2,
31 x_msg_count OUT NOCOPY NUMBER,
32 x_msg_data OUT NOCOPY VARCHAR2
33 ) IS
34
35 l_val VARCHAR2(1);
36 l_return_status VARCHAR2(1);
37
38 CURSOR C_Party_Exists (X_Party_Id NUMBER) IS
39 SELECT 1
40 FROM AS_PARTY_CUSTOMERS_V
41 WHERE party_id = X_Party_Id;
42
43 BEGIN
44
45 -- initialize message list if p_init_msg_list is set to TRUE;
46
47 IF FND_API.to_Boolean(p_init_msg_list) THEN
48 FND_MSG_PUB.initialize;
49 END IF;
50
51 l_return_status := FND_API.G_RET_STS_SUCCESS;
52 open C_Party_Exists(p_party_id);
53 fetch C_Party_Exists into l_val;
54 IF (C_Party_Exists%NOTFOUND) THEN
55 x_return_status := FND_API.G_RET_STS_ERROR;
56 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
57 THEN
58 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
59 FND_MESSAGE.Set_Token('COLUMN', 'PARTY_ID', FALSE);
60 FND_MESSAGE.Set_Token('VALUE',p_party_id,FALSE);
61 FND_MSG_PUB.ADD;
62 END IF;
63 END IF;
64 close C_Party_Exists;
65
66 FND_MSG_PUB.Count_And_Get
67 ( p_count => x_msg_count,
68 p_data => x_msg_data
69 );
70
71 END Validate_party_id;
72
73 -- Procedure to validate the party__site_id
74 --
75 -- Validation:
76 -- Check if this party is in the HZ_PARTY_SITES table
77 --
78 -- NOTES:
79 --
80 PROCEDURE Validate_party_site_id (
81 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
82 p_party_id IN NUMBER,
83 p_party_site_id IN NUMBER,
84 x_return_status OUT NOCOPY VARCHAR2,
85 x_msg_count OUT NOCOPY NUMBER,
86 x_msg_data OUT NOCOPY VARCHAR2
87 ) IS
88
89 l_val VARCHAR2(1);
90 l_return_status VARCHAR2(1);
91
92 CURSOR C_Party_Site_Exists (X_Party_Id NUMBER, X_Party_Site_Id NUMBER) IS
93 SELECT 1
94 FROM AS_PARTY_ADDRESSES_V
95 WHERE party_id = X_Party_Id
96 AND party_site_id = X_Party_Site_Id;
97
98 BEGIN
99
100 -- initialize message list if p_init_msg_list is set to TRUE;
101
102 IF FND_API.to_Boolean(p_init_msg_list) THEN
103 FND_MSG_PUB.initialize;
104 END IF;
105
106 l_return_status := FND_API.G_RET_STS_SUCCESS;
107 open C_Party_Site_Exists(p_party_id, p_party_site_id);
108 fetch C_Party_Site_Exists into l_val;
109 IF (C_Party_Site_Exists%NOTFOUND) THEN
110 x_return_status := FND_API.G_RET_STS_ERROR;
111 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
112 THEN
113 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
114 FND_MESSAGE.Set_Token('COLUMN', 'PARTY_SITE_ID', FALSE);
115 FND_MSG_PUB.ADD;
116 END IF;
117 END IF;
118 close C_Party_Site_Exists;
119
120 FND_MSG_PUB.Count_And_Get
121 ( p_count => x_msg_count,
122 p_data => x_msg_data
123 );
124
125 END Validate_party_site_id;
126
127 -- Procedure to validate the contact_point_id
128 --
129 -- Validation:
130 --
131 -- NOTES:
132 --
133 PROCEDURE Validate_contact_point_id (
134 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
135 p_party_id IN NUMBER,
136 p_org_contact_id IN NUMBER,
137 p_contact_point_id IN NUMBER,
138 x_return_status OUT NOCOPY VARCHAR2,
139 x_msg_count OUT NOCOPY NUMBER,
140 x_msg_data OUT NOCOPY VARCHAR2
141 ) IS
142
143 l_val VARCHAR2(1);
144 l_return_status VARCHAR2(1);
145
146 CURSOR C_Party_Cnt_Point_Exists (X_Party_Id NUMBER, X_Contact_Point_Id NUMBER) IS
147 SELECT 1
148 FROM AS_PARTY_PHONES_V
149 WHERE contact_point_id = X_Contact_Point_Id
150 AND owner_table_id = X_Party_Id
151 AND owner_table_name = 'HZ_PARTIES';
152
153 CURSOR C_Org_Contact_Cnt_Point_Exists (X_Org_Contact_Id NUMBER, X_Contact_Point_Id NUMBER) IS
154 SELECT 1
155 FROM JTF_PARTY_PHONES_V
156 WHERE org_contact_id = X_Org_Contact_Id
157 AND contact_point_id = X_Contact_Point_Id;
158
159 BEGIN
160
161 -- initialize message list if p_init_msg_list is set to TRUE;
162
163 IF FND_API.to_Boolean(p_init_msg_list) THEN
164 FND_MSG_PUB.initialize;
165 END IF;
166
167 l_return_status := FND_API.G_RET_STS_SUCCESS;
168
169 If(p_org_contact_id is NULL) then
170 open C_Party_Cnt_Point_Exists(p_party_id, p_contact_point_id);
171 fetch C_Party_Cnt_Point_Exists into l_val;
172 IF (C_Party_Cnt_Point_Exists%NOTFOUND) THEN
173 x_return_status := FND_API.G_RET_STS_ERROR;
174 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
175 THEN
176 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
177 FND_MESSAGE.Set_Token('COLUMN', 'PARTY_ID', FALSE);
178 FND_MSG_PUB.ADD;
179 END IF;
180 END IF;
181 close C_Party_Cnt_Point_Exists;
182 elsIf(p_party_id is NULL)then
183 open C_Org_Contact_Cnt_Point_Exists(p_org_contact_id, p_contact_point_id);
184 fetch C_Org_Contact_Cnt_Point_Exists into l_val;
185 IF (C_Org_Contact_Cnt_Point_Exists%NOTFOUND) THEN
186 x_return_status := FND_API.G_RET_STS_ERROR;
187 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
188 THEN
189 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
190 FND_MESSAGE.Set_Token('COLUMN', 'ORG_CONTACT_ID', FALSE);
191 FND_MSG_PUB.ADD;
192 END IF;
193 END IF;
194 close C_Org_Contact_Cnt_Point_Exists;
195 else
196 x_return_status := FND_API.G_RET_STS_ERROR;
197 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
198 THEN
199 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
200 FND_MESSAGE.Set_Token('COLUMN', 'PARTY_ID', FALSE);
201 FND_MSG_PUB.ADD;
202 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
203 FND_MESSAGE.Set_Token('COLUMN', 'ORG_CONTACT_ID', FALSE);
204 FND_MSG_PUB.ADD;
205 END IF;
206 end if;
207
208
209 FND_MSG_PUB.Count_And_Get
210 ( p_count => x_msg_count,
211 p_data => x_msg_data
212 );
213
214 END Validate_contact_point_id;
215
216 -- Procedure to validate the contact_id
217 --
218 -- Validation:
219 --
220 -- NOTES:
221 --
222 PROCEDURE Validate_contact_id (
223 p_init_msg_list IN VARCHAR2 := FND_API.G_FALSE,
224 p_party_id IN NUMBER,
225 p_contact_id IN NUMBER,
226 x_return_status OUT NOCOPY VARCHAR2,
227 x_msg_count OUT NOCOPY NUMBER,
228 x_msg_data OUT NOCOPY VARCHAR2
229 ) IS
230
231 l_val VARCHAR2(1);
232 l_return_status VARCHAR2(1);
233
234 CURSOR C_Contact_Exists (X_Contact_Id NUMBER, X_Party_id NUMBER) IS
235 SELECT 1
236 FROM AS_PARTY_ORG_CONTACTS_V
237 WHERE contact_id = X_Contact_Id
238 AND party_id = X_Party_Id;
239
240 BEGIN
241
242 -- initialize message list if p_init_msg_list is set to TRUE;
243
244 IF FND_API.to_Boolean(p_init_msg_list) THEN
245 FND_MSG_PUB.initialize;
246 END IF;
247
248 l_return_status := FND_API.G_RET_STS_SUCCESS;
249 open C_Contact_Exists(p_contact_id, p_party_id);
250 fetch C_Contact_Exists into l_val;
251 IF (C_Contact_Exists%NOTFOUND) THEN
252 x_return_status := FND_API.G_RET_STS_ERROR;
253 IF FND_MSG_PUB.Check_Msg_Level (FND_MSG_PUB.G_MSG_LVL_ERROR)
254 THEN
255 FND_MESSAGE.Set_Name('AS', 'API_INVALID_ID');
256 FND_MESSAGE.Set_Token('COLUMN', 'PARTY_ID', FALSE);
257 FND_MSG_PUB.ADD;
258 END IF;
259 END IF;
260 close C_Contact_Exists;
261
262 FND_MSG_PUB.Count_And_Get
263 ( p_count => x_msg_count,
264 p_data => x_msg_data
265 );
266
267 END Validate_contact_id;
268
269 END AS_TCA_PVT;