21: *
22: * OUT:
23: * x_return_status Return status after the call. The
24: * status can be
25: * FND_API.G_RET_STS_SUCCESS - for success
26: * FND_API.G_RET_STS_ERR - for expected error
27: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
28: * x_msg_count To return the number of error messages
29: * in stack
22: * OUT:
23: * x_return_status Return status after the call. The
24: * status can be
25: * FND_API.G_RET_STS_SUCCESS - for success
26: * FND_API.G_RET_STS_ERR - for expected error
27: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
28: * x_msg_count To return the number of error messages
29: * in stack
30: * x_msg_data To return the error message if
23: * x_return_status Return status after the call. The
24: * status can be
25: * FND_API.G_RET_STS_SUCCESS - for success
26: * FND_API.G_RET_STS_ERR - for expected error
27: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
28: * x_msg_count To return the number of error messages
29: * in stack
30: * x_msg_data To return the error message if
31: * x_msg_count = 1.
52: FROM XTR_PARTY_INFO
53: WHERE ce_bank_branch_id = p_xtr_party_info_rec.ce_bank_branch_id;
54:
55: BEGIN
56: x_return_status := FND_API.G_RET_STS_SUCCESS;
57: x_msg_count := NULL;
58: FND_MSG_PUB.Initialize; -- Initializes the message list that stores the errors
59:
60: OPEN c_check_branch;
63: IF(c_check_branch%FOUND) THEN
64: CLOSE c_check_branch;
65: IF( CHK_BANK_BRANCH(p_xtr_party_info_rec.ce_bank_branch_id)) THEN
66: VALIDATE_BANK_BRANCH(p_xtr_party_info_rec,p_update_type,x_return_status);
67: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
68: MODIFY_BANK_BRANCH(p_xtr_party_info_rec,p_update_type,x_return_status);
69: END IF;
70: ELSE
71: x_return_status := FND_API.G_RET_STS_ERROR;
67: IF(x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
68: MODIFY_BANK_BRANCH(p_xtr_party_info_rec,p_update_type,x_return_status);
69: END IF;
70: ELSE
71: x_return_status := FND_API.G_RET_STS_ERROR;
72: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.ce_bank_branch_id');
73: END IF;
74: ELSE
75: CLOSE c_check_branch;
81: );
82: --
83: EXCEPTION
84: WHEN others THEN
85: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
86: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
87: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
88: ( p_count => x_msg_count ,
89: p_data => x_msg_data
118: x_msg_data);
119:
120: EXCEPTION
121: WHEN others THEN
122: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
123: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
124: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
125: ( p_count => x_msg_count ,
126: p_data => x_msg_data
158: x_msg_data);
159:
160: EXCEPTION
161: WHEN others THEN
162: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
163: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
164: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
165: ( p_count => x_msg_count ,
166: p_data => x_msg_data
194: x_msg_data);
195:
196: EXCEPTION
197: WHEN others THEN
198: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
199: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
200: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
201: ( p_count => x_msg_count ,
202: p_data => x_msg_data
241: x_msg_data);
242:
243: EXCEPTION
244: WHEN others THEN
245: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
246: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
247: FND_MSG_PUB.Count_And_Get -- Returns the error message if there is only 1 error
248: ( p_count => x_msg_count ,
249: p_data => x_msg_data
274: *
275: * OUT:
276: * x_return_status Return status after the call. The
277: * status can be
278: * FND_API.G_RET_STS_SUCCESS - for success
279: * FND_API.G_RET_STS_ERR - for expected error
280: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
281: * NOTES
282: *
275: * OUT:
276: * x_return_status Return status after the call. The
277: * status can be
278: * FND_API.G_RET_STS_SUCCESS - for success
279: * FND_API.G_RET_STS_ERR - for expected error
280: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
281: * NOTES
282: *
283: * MODIFICATION HISTORY
276: * x_return_status Return status after the call. The
277: * status can be
278: * FND_API.G_RET_STS_SUCCESS - for success
279: * FND_API.G_RET_STS_ERR - for expected error
280: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
281: * NOTES
282: *
283: * MODIFICATION HISTORY
284: *
294:
295: BEGIN
296: -- Verifies if the ce_bank_branch_id in XTR_PARTY_INFO is passed as null
297: IF(p_xtr_party_info_rec.ce_bank_branch_id is null) THEN
298: x_return_status := FND_API.G_RET_STS_ERROR;
299: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.ce_bank_branch_id');
300: END IF;
301:
302: -- Verifies if the short_name in XTR_PARTY_INFO is passed as null
300: END IF;
301:
302: -- Verifies if the short_name in XTR_PARTY_INFO is passed as null
303: IF(p_xtr_party_info_rec.short_name is null and p_update_type = 1) THEN
304: x_return_status := FND_API.G_RET_STS_ERROR;
305: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.SHORT_NAME');
306: END IF;
307: -- Verifies if full_name in XTR_PARTY_INFO is passed as null
308: IF(p_xtr_party_info_rec.full_name is null and p_update_type = 1) THEN
305: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.SHORT_NAME');
306: END IF;
307: -- Verifies if full_name in XTR_PARTY_INFO is passed as null
308: IF(p_xtr_party_info_rec.full_name is null and p_update_type = 1) THEN
309: x_return_status := FND_API.G_RET_STS_ERROR;
310: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.FULL_NAME');
311: END IF;
312: -- Verifies if country_code in XTR_PARTY_INFO is passed as null
313: IF(p_xtr_party_info_rec.country_code is null and p_update_type = 4) THEN
310: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.FULL_NAME');
311: END IF;
312: -- Verifies if country_code in XTR_PARTY_INFO is passed as null
313: IF(p_xtr_party_info_rec.country_code is null and p_update_type = 4) THEN
314: x_return_status := FND_API.G_RET_STS_ERROR;
315: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.COUNTRY');
316: END IF;
317: EXCEPTION
318: WHEN others THEN
315: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.COUNTRY');
316: END IF;
317: EXCEPTION
318: WHEN others THEN
319: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
320: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
321: END VALIDATE_BANK_BRANCH;
322: /**
323: * PROCEDURE modify_bank_branch
339: *
340: * OUT:
341: * x_return_status Return status after the call. The
342: * status can be
343: * FND_API.G_RET_STS_SUCCESS - for success
344: * FND_API.G_RET_STS_ERR - for expected error
345: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
346: * NOTES
347: *
340: * OUT:
341: * x_return_status Return status after the call. The
342: * status can be
343: * FND_API.G_RET_STS_SUCCESS - for success
344: * FND_API.G_RET_STS_ERR - for expected error
345: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
346: * NOTES
347: *
348: * MODIFICATION HISTORY
341: * x_return_status Return status after the call. The
342: * status can be
343: * FND_API.G_RET_STS_SUCCESS - for success
344: * FND_API.G_RET_STS_ERR - for expected error
345: * FND_API.G_RET_STS_UNEXP_ERR - for unexpected error
346: * NOTES
347: *
348: * MODIFICATION HISTORY
349: *
422: ELSE
423:
424:
425: CLOSE c_chk_lock;
426: x_return_status := FND_API.G_RET_STS_ERROR;
427: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_INV_PARAM','XTR_PARTY_INFO.ce_bank_branch_id');
428:
429: END IF;
430:
433: if C_CHK_LOCK%ISOPEN then
434: close c_CHK_LOCK;
435: end if;
436: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('CHK_LOCK');
437: x_return_status := FND_API.G_RET_STS_ERROR;
438: WHEN others THEN
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
441:
435: end if;
436: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('CHK_LOCK');
437: x_return_status := FND_API.G_RET_STS_ERROR;
438: WHEN others THEN
439: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
440: XTR_REPLICATE_BANK_ACCOUNTS_P.LOG_ERR_MSG('XTR_UNEXP_ERROR',SQLERRM(SQLCODE));
441:
442: END MODIFY_BANK_BRANCH;
443: /**