[Home] [Help]
PACKAGE BODY: APPS.CE_PARTY_MERGE_PKG
Source
1 PACKAGE BODY CE_PARTY_MERGE_PKG AS
2 /* $Header: ceptymrb.pls 120.0 2005/09/29 23:42:07 lkwan ship $ */
3
4
5 /* ---------------------------------------------------------------------
6 | PROCEDURE |
7 | bank_merge
8 | |
9 | CALLS |
10 |
11 | CALLED BY |
12 | TCA
13 --------------------------------------------------------------------- */
14 PROCEDURE bank_merge(
15 p_Entity_name IN VARCHAR2,
16 p_from_id IN NUMBER,
17 p_to_id IN OUT NOCOPY NUMBER,
18 p_From_FK_id IN NUMBER,
19 p_To_FK_id IN NUMBER,
20 p_Parent_Entity_name IN VARCHAR2,
21 p_batch_id IN NUMBER,
22 p_Batch_Party_id IN NUMBER,
23 x_return_status IN OUT NOCOPY VARCHAR2 )
24 IS
25
26 x_party_count number;
27 x_bank_count number;
28
29 BEGIN
30 FND_FILE.put_line(fnd_file.log,'>> CE_PARTY_MERGE_PKG.bank_merge');
31
32 -- always veto bank for now
33 --x_return_status := FND_API.G_RET_STS_SUCCESS;
34 fnd_message.set_name('CE','CE_PARTY_BANK_VETO');
35 fnd_msg_pub.ADD;
36 x_return_status := fnd_api.g_ret_sts_error ;
37
38 /*
39 -- If the party is bank, or clearinghouse
40 -- party merge should be veto.
41
42
43 SELECT count(*)
44 INTO x_party_count
45 FROM HZ_PARTY_USG_ASSIGNMENTS
46 where party_id = p_From_FK_id --p_from_id
47 and PARTY_USAGE_CODE in ('BANK', 'CLEARINGHOUSE');
48
49 IF x_party_count > 0 THEN
50
51 fnd_message.set_name('CE','CE_PARTY_BANK_VETO');
52 fnd_msg_pub.ADD;
53 x_return_status := fnd_api.g_ret_sts_error ;
54 FND_FILE.put_line(fnd_file.log,'return_status: E, CE_PARTY_BANK_VETO ');
55
56 ELSE
57
58 -- check if party_id is defined as a bank in ce_bank_accounts
59 SELECT count(*)
60 INTO x_bank_count
61 FROM ce_bank_accounts
62 where bank_id = p_From_FK_id; --p_from_id;
63
64 IF x_bank_count > 0 THEN
65
66 fnd_message.set_name('CE','CE_PARTY_BANK_VETO');
67 fnd_msg_pub.ADD;
68 x_return_status := fnd_api.g_ret_sts_error ;
69 FND_FILE.put_line(fnd_file.log,'return_status: E, CE_PARTY_BANK_VETO ');
70 END IF;
71
72 END IF;
73 */
74 FND_FILE.put_line(fnd_file.log,'<< CE_PARTY_MERGE_PKG.bank_merge');
75
76 EXCEPTION
77 WHEN OTHERS THEN
78 FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
79 FND_MESSAGE.Set_Token('PROCEDURE', 'CE_PARTY_MERGE_PKG.bank_merge');
80 fnd_msg_pub.add;
81
82 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
83 FND_FILE.put_line(fnd_file.log,'return_status: U, CE_UNHANDLED_EXCEPTION ');
84
85 END bank_merge;
86
87 /* ---------------------------------------------------------------------
88 | PROCEDURE |
89 | branch_merge
90 | |
91 | CALLS |
92 |
93 | CALLED BY |
94 | TCA
95 --------------------------------------------------------------------- */
96 PROCEDURE branch_merge(
97 p_Entity_name IN VARCHAR2,
98 p_from_id IN NUMBER,
99 p_to_id IN OUT NOCOPY NUMBER,
100 p_From_FK_id IN NUMBER,
101 p_To_FK_id IN NUMBER,
102 p_Parent_Entity_name IN VARCHAR2,
103 p_batch_id IN NUMBER,
104 p_Batch_Party_id IN NUMBER,
105 x_return_status IN OUT NOCOPY VARCHAR2 )
106 IS
107
108 x_party_count number;
109 x_branch_count number;
110
111 BEGIN
112 FND_FILE.put_line(fnd_file.log,'>> CE_PARTY_MERGE_PKG.branch_merge');
113
114 -- always veto branch for now
115 -- x_return_status := FND_API.G_RET_STS_SUCCESS;
116 fnd_message.set_name('CE','CE_PARTY_BRANCH_VETO');
117 fnd_msg_pub.ADD;
118 x_return_status := fnd_api.g_ret_sts_error ;
119
120 /*
121 -- If the party is bank, bank_branches, clearinghouse or clearinghouse_branch
122 -- party merge should be veto.
123
124 SELECT count(*)
125 INTO x_party_count
126 FROM HZ_PARTY_USG_ASSIGNMENTS
127 where party_id = p_From_FK_id --p_from_id
128 and PARTY_USAGE_CODE in ('BANK_BRANCH', 'CLEARINGHOUSE_BRANCH');
129
130 IF x_party_count > 0 THEN
131
132 fnd_message.set_name('CE','CE_PARTY_BRANCH_VETO');
133 fnd_msg_pub.ADD;
134 x_return_status := fnd_api.g_ret_sts_error ;
135 FND_FILE.put_line(fnd_file.log,'return_status: E, CE_PARTY_BRANCH_VETO ');
136
137 ELSE
138
139 -- check if party_id is defined as a bank branch in ce_bank_accounts
140 SELECT count(*)
141 INTO x_branch_count
142 FROM ce_bank_accounts
143 where bank_branch_id = p_From_FK_id; --p_from_id;
144
145 IF x_branch_count > 0 THEN
146
147 fnd_message.set_name('CE','CE_PARTY_BRANCH_VETO');
148 fnd_msg_pub.ADD;
149 x_return_status := fnd_api.g_ret_sts_error ;
150 FND_FILE.put_line(fnd_file.log,'return_status: E, CE_PARTY_BRANCH_VETO ');
151
152 END IF;
153
154 END IF;
155 */
156 FND_FILE.put_line(fnd_file.log,'<< CE_PARTY_MERGE_PKG.branch_merge');
157
158 EXCEPTION
159 WHEN OTHERS THEN
160 FND_MESSAGE.Set_Name('CE', 'CE_UNHANDLED_EXCEPTION');
161 FND_MESSAGE.Set_Token('PROCEDURE', 'CE_PARTY_MERGE_PKG.branch_merge');
162 fnd_msg_pub.add;
163
164 x_return_status := FND_API.G_RET_STS_UNEXP_ERROR ;
165 FND_FILE.put_line(fnd_file.log,'return_status: U, CE_UNHANDLED_EXCEPTION ');
166
167 END branch_merge;
168
169
170 END CE_PARTY_MERGE_PKG;