1: PACKAGE BODY HZ_MERGE_PKG AS
2: /*$Header: ARHMPKGB.pls 120.64.12020000.3 2013/03/27 07:25:38 vsegu ship $ */
3: --4307667
4: PROCEDURE do_party_usage_merge(
5: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6: x_to_id IN OUT NOCOPY NUMBER,
7: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
8: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
9: x_return_status IN OUT NOCOPY VARCHAR2
3: --4307667
4: PROCEDURE do_party_usage_merge(
5: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6: x_to_id IN OUT NOCOPY NUMBER,
7: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
8: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
9: x_return_status IN OUT NOCOPY VARCHAR2
10:
11: );
4: PROCEDURE do_party_usage_merge(
5: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6: x_to_id IN OUT NOCOPY NUMBER,
7: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
8: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
9: x_return_status IN OUT NOCOPY VARCHAR2
10:
11: );
12:
10:
11: );
12:
13: PROCEDURE do_party_merge(
14: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
15: x_to_id IN OUT NOCOPY NUMBER,
16: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
17: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
18: p_batch_party_id IN NUMBER,
12:
13: PROCEDURE do_party_merge(
14: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
15: x_to_id IN OUT NOCOPY NUMBER,
16: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
17: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
18: p_batch_party_id IN NUMBER,
19: x_return_status IN OUT NOCOPY VARCHAR2
20: );
13: PROCEDURE do_party_merge(
14: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
15: x_to_id IN OUT NOCOPY NUMBER,
16: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
17: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
18: p_batch_party_id IN NUMBER,
19: x_return_status IN OUT NOCOPY VARCHAR2
20: );
21:
19: x_return_status IN OUT NOCOPY VARCHAR2
20: );
21:
22: PROCEDURE do_party_site_merge(
23: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
24: x_to_id IN OUT NOCOPY NUMBER,
25: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
26: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
27: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
21:
22: PROCEDURE do_party_site_merge(
23: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
24: x_to_id IN OUT NOCOPY NUMBER,
25: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
26: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
27: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
28: x_return_status IN OUT NOCOPY VARCHAR2
29: );
22: PROCEDURE do_party_site_merge(
23: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
24: x_to_id IN OUT NOCOPY NUMBER,
25: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
26: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
27: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
28: x_return_status IN OUT NOCOPY VARCHAR2
29: );
30:
23: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
24: x_to_id IN OUT NOCOPY NUMBER,
25: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
26: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
27: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
28: x_return_status IN OUT NOCOPY VARCHAR2
29: );
30:
31: PROCEDURE do_cust_account_transfer(
28: x_return_status IN OUT NOCOPY VARCHAR2
29: );
30:
31: PROCEDURE do_cust_account_transfer(
32: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
33: x_to_id IN OUT NOCOPY NUMBER,
34: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
35: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
36: x_return_status IN OUT NOCOPY VARCHAR2
30:
31: PROCEDURE do_cust_account_transfer(
32: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
33: x_to_id IN OUT NOCOPY NUMBER,
34: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
35: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
36: x_return_status IN OUT NOCOPY VARCHAR2
37: );
38:
31: PROCEDURE do_cust_account_transfer(
32: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
33: x_to_id IN OUT NOCOPY NUMBER,
34: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
35: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
36: x_return_status IN OUT NOCOPY VARCHAR2
37: );
38:
39: PROCEDURE do_cust_account_role_transfer(
36: x_return_status IN OUT NOCOPY VARCHAR2
37: );
38:
39: PROCEDURE do_cust_account_role_transfer(
40: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
41: x_to_id IN OUT NOCOPY NUMBER,
42: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
43: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
44: x_return_status IN OUT NOCOPY VARCHAR2
38:
39: PROCEDURE do_cust_account_role_transfer(
40: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
41: x_to_id IN OUT NOCOPY NUMBER,
42: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
43: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
44: x_return_status IN OUT NOCOPY VARCHAR2
45: );
46:
39: PROCEDURE do_cust_account_role_transfer(
40: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
41: x_to_id IN OUT NOCOPY NUMBER,
42: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
43: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
44: x_return_status IN OUT NOCOPY VARCHAR2
45: );
46:
47: PROCEDURE do_cust_account_site_transfer(
44: x_return_status IN OUT NOCOPY VARCHAR2
45: );
46:
47: PROCEDURE do_cust_account_site_transfer(
48: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
49: x_to_id IN OUT NOCOPY NUMBER,
50: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
51: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
52: x_return_status IN OUT NOCOPY VARCHAR2
46:
47: PROCEDURE do_cust_account_site_transfer(
48: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
49: x_to_id IN OUT NOCOPY NUMBER,
50: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
51: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
52: x_return_status IN OUT NOCOPY VARCHAR2
53: );
54:
47: PROCEDURE do_cust_account_site_transfer(
48: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
49: x_to_id IN OUT NOCOPY NUMBER,
50: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
51: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
52: x_return_status IN OUT NOCOPY VARCHAR2
53: );
54:
55: PROCEDURE do_fin_profile_transfer(
52: x_return_status IN OUT NOCOPY VARCHAR2
53: );
54:
55: PROCEDURE do_fin_profile_transfer(
56: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
57: x_to_id IN OUT NOCOPY NUMBER,
58: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
59: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
60: x_return_status IN OUT NOCOPY VARCHAR2
54:
55: PROCEDURE do_fin_profile_transfer(
56: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
57: x_to_id IN OUT NOCOPY NUMBER,
58: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
59: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
60: x_return_status IN OUT NOCOPY VARCHAR2
61: );
62:
55: PROCEDURE do_fin_profile_transfer(
56: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
57: x_to_id IN OUT NOCOPY NUMBER,
58: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
59: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
60: x_return_status IN OUT NOCOPY VARCHAR2
61: );
62:
63: PROCEDURE do_contact_point_transfer(
60: x_return_status IN OUT NOCOPY VARCHAR2
61: );
62:
63: PROCEDURE do_contact_point_transfer(
64: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
65: x_to_id IN OUT NOCOPY NUMBER,
66: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
67: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
68: x_return_status IN OUT NOCOPY VARCHAR2
62:
63: PROCEDURE do_contact_point_transfer(
64: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
65: x_to_id IN OUT NOCOPY NUMBER,
66: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
67: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
68: x_return_status IN OUT NOCOPY VARCHAR2
69: );
70:
63: PROCEDURE do_contact_point_transfer(
64: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
65: x_to_id IN OUT NOCOPY NUMBER,
66: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
67: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
68: x_return_status IN OUT NOCOPY VARCHAR2
69: );
70:
71: PROCEDURE do_contact_point_transfer2(
68: x_return_status IN OUT NOCOPY VARCHAR2
69: );
70:
71: PROCEDURE do_contact_point_transfer2(
72: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
73: x_to_id IN OUT NOCOPY NUMBER,
74: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
75: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
76: x_return_status IN OUT NOCOPY VARCHAR2
70:
71: PROCEDURE do_contact_point_transfer2(
72: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
73: x_to_id IN OUT NOCOPY NUMBER,
74: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
75: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
76: x_return_status IN OUT NOCOPY VARCHAR2
77: );
78:
71: PROCEDURE do_contact_point_transfer2(
72: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
73: x_to_id IN OUT NOCOPY NUMBER,
74: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
75: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
76: x_return_status IN OUT NOCOPY VARCHAR2
77: );
78:
79: PROCEDURE do_contact_pref_transfer(
76: x_return_status IN OUT NOCOPY VARCHAR2
77: );
78:
79: PROCEDURE do_contact_pref_transfer(
80: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
81: x_to_id IN OUT NOCOPY NUMBER,
82: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
83: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
84: x_return_status IN OUT NOCOPY VARCHAR2
78:
79: PROCEDURE do_contact_pref_transfer(
80: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
81: x_to_id IN OUT NOCOPY NUMBER,
82: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
83: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
84: x_return_status IN OUT NOCOPY VARCHAR2
85: );
86:
79: PROCEDURE do_contact_pref_transfer(
80: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
81: x_to_id IN OUT NOCOPY NUMBER,
82: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
83: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
84: x_return_status IN OUT NOCOPY VARCHAR2
85: );
86:
87: PROCEDURE do_references_transfer(
84: x_return_status IN OUT NOCOPY VARCHAR2
85: );
86:
87: PROCEDURE do_references_transfer(
88: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
89: x_to_id IN OUT NOCOPY NUMBER,
90: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
91: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
92: x_return_status IN OUT NOCOPY VARCHAR2
86:
87: PROCEDURE do_references_transfer(
88: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
89: x_to_id IN OUT NOCOPY NUMBER,
90: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
91: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
92: x_return_status IN OUT NOCOPY VARCHAR2
93: );
94:
87: PROCEDURE do_references_transfer(
88: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
89: x_to_id IN OUT NOCOPY NUMBER,
90: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
91: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
92: x_return_status IN OUT NOCOPY VARCHAR2
93: );
94:
95: PROCEDURE do_certification_transfer(
92: x_return_status IN OUT NOCOPY VARCHAR2
93: );
94:
95: PROCEDURE do_certification_transfer(
96: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
97: x_to_id IN OUT NOCOPY NUMBER,
98: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
99: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
100: x_return_status IN OUT NOCOPY VARCHAR2
94:
95: PROCEDURE do_certification_transfer(
96: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
97: x_to_id IN OUT NOCOPY NUMBER,
98: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
99: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
100: x_return_status IN OUT NOCOPY VARCHAR2
101: );
102:
95: PROCEDURE do_certification_transfer(
96: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
97: x_to_id IN OUT NOCOPY NUMBER,
98: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
99: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
100: x_return_status IN OUT NOCOPY VARCHAR2
101: );
102:
103: PROCEDURE do_credit_ratings_transfer(
100: x_return_status IN OUT NOCOPY VARCHAR2
101: );
102:
103: PROCEDURE do_credit_ratings_transfer(
104: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
105: x_to_id IN OUT NOCOPY NUMBER,
106: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
107: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
108: x_return_status IN OUT NOCOPY VARCHAR2
102:
103: PROCEDURE do_credit_ratings_transfer(
104: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
105: x_to_id IN OUT NOCOPY NUMBER,
106: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
107: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
108: x_return_status IN OUT NOCOPY VARCHAR2
109: );
110:
103: PROCEDURE do_credit_ratings_transfer(
104: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
105: x_to_id IN OUT NOCOPY NUMBER,
106: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
107: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
108: x_return_status IN OUT NOCOPY VARCHAR2
109: );
110:
111: PROCEDURE do_security_issued_transfer(
108: x_return_status IN OUT NOCOPY VARCHAR2
109: );
110:
111: PROCEDURE do_security_issued_transfer(
112: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
113: x_to_id IN OUT NOCOPY NUMBER,
114: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
115: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
116: x_return_status IN OUT NOCOPY VARCHAR2
110:
111: PROCEDURE do_security_issued_transfer(
112: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
113: x_to_id IN OUT NOCOPY NUMBER,
114: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
115: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
116: x_return_status IN OUT NOCOPY VARCHAR2
117: );
118:
111: PROCEDURE do_security_issued_transfer(
112: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
113: x_to_id IN OUT NOCOPY NUMBER,
114: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
115: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
116: x_return_status IN OUT NOCOPY VARCHAR2
117: );
118:
119: PROCEDURE do_financial_reports_transfer(
116: x_return_status IN OUT NOCOPY VARCHAR2
117: );
118:
119: PROCEDURE do_financial_reports_transfer(
120: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
121: x_to_id IN OUT NOCOPY NUMBER,
122: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
123: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
124: x_return_status IN OUT NOCOPY VARCHAR2
118:
119: PROCEDURE do_financial_reports_transfer(
120: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
121: x_to_id IN OUT NOCOPY NUMBER,
122: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
123: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
124: x_return_status IN OUT NOCOPY VARCHAR2
125: );
126:
119: PROCEDURE do_financial_reports_transfer(
120: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
121: x_to_id IN OUT NOCOPY NUMBER,
122: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
123: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
124: x_return_status IN OUT NOCOPY VARCHAR2
125: );
126:
127: PROCEDURE do_org_indicators_transfer(
124: x_return_status IN OUT NOCOPY VARCHAR2
125: );
126:
127: PROCEDURE do_org_indicators_transfer(
128: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
129: x_to_id IN OUT NOCOPY NUMBER,
130: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
131: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
132: x_return_status IN OUT NOCOPY VARCHAR2
126:
127: PROCEDURE do_org_indicators_transfer(
128: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
129: x_to_id IN OUT NOCOPY NUMBER,
130: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
131: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
132: x_return_status IN OUT NOCOPY VARCHAR2
133: );
134:
127: PROCEDURE do_org_indicators_transfer(
128: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
129: x_to_id IN OUT NOCOPY NUMBER,
130: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
131: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
132: x_return_status IN OUT NOCOPY VARCHAR2
133: );
134:
135: PROCEDURE do_ind_reference_transfer(
132: x_return_status IN OUT NOCOPY VARCHAR2
133: );
134:
135: PROCEDURE do_ind_reference_transfer(
136: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
137: x_to_id IN OUT NOCOPY NUMBER,
138: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
139: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
140: x_return_status IN OUT NOCOPY VARCHAR2
134:
135: PROCEDURE do_ind_reference_transfer(
136: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
137: x_to_id IN OUT NOCOPY NUMBER,
138: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
139: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
140: x_return_status IN OUT NOCOPY VARCHAR2
141: );
142:
135: PROCEDURE do_ind_reference_transfer(
136: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
137: x_to_id IN OUT NOCOPY NUMBER,
138: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
139: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
140: x_return_status IN OUT NOCOPY VARCHAR2
141: );
142:
143: PROCEDURE do_per_interest_transfer(
140: x_return_status IN OUT NOCOPY VARCHAR2
141: );
142:
143: PROCEDURE do_per_interest_transfer(
144: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
145: x_to_id IN OUT NOCOPY NUMBER,
146: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
147: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
148: x_return_status IN OUT NOCOPY VARCHAR2
142:
143: PROCEDURE do_per_interest_transfer(
144: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
145: x_to_id IN OUT NOCOPY NUMBER,
146: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
147: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
148: x_return_status IN OUT NOCOPY VARCHAR2
149: );
150:
143: PROCEDURE do_per_interest_transfer(
144: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
145: x_to_id IN OUT NOCOPY NUMBER,
146: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
147: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
148: x_return_status IN OUT NOCOPY VARCHAR2
149: );
150:
151: PROCEDURE do_citizenship_transfer(
148: x_return_status IN OUT NOCOPY VARCHAR2
149: );
150:
151: PROCEDURE do_citizenship_transfer(
152: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
153: x_to_id IN OUT NOCOPY NUMBER,
154: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
155: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
156: x_return_status IN OUT NOCOPY VARCHAR2
150:
151: PROCEDURE do_citizenship_transfer(
152: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
153: x_to_id IN OUT NOCOPY NUMBER,
154: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
155: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
156: x_return_status IN OUT NOCOPY VARCHAR2
157: );
158:
151: PROCEDURE do_citizenship_transfer(
152: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
153: x_to_id IN OUT NOCOPY NUMBER,
154: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
155: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
156: x_return_status IN OUT NOCOPY VARCHAR2
157: );
158:
159: PROCEDURE do_education_transfer(
156: x_return_status IN OUT NOCOPY VARCHAR2
157: );
158:
159: PROCEDURE do_education_transfer(
160: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
161: x_to_id IN OUT NOCOPY NUMBER,
162: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
163: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
164: x_return_status IN OUT NOCOPY VARCHAR2
158:
159: PROCEDURE do_education_transfer(
160: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
161: x_to_id IN OUT NOCOPY NUMBER,
162: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
163: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
164: x_return_status IN OUT NOCOPY VARCHAR2
165: );
166:
159: PROCEDURE do_education_transfer(
160: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
161: x_to_id IN OUT NOCOPY NUMBER,
162: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
163: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
164: x_return_status IN OUT NOCOPY VARCHAR2
165: );
166:
167: PROCEDURE do_education_school_transfer(
164: x_return_status IN OUT NOCOPY VARCHAR2
165: );
166:
167: PROCEDURE do_education_school_transfer(
168: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
169: x_to_id IN OUT NOCOPY NUMBER,
170: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
171: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
172: x_return_status IN OUT NOCOPY VARCHAR2
166:
167: PROCEDURE do_education_school_transfer(
168: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
169: x_to_id IN OUT NOCOPY NUMBER,
170: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
171: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
172: x_return_status IN OUT NOCOPY VARCHAR2
173: );
174:
167: PROCEDURE do_education_school_transfer(
168: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
169: x_to_id IN OUT NOCOPY NUMBER,
170: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
171: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
172: x_return_status IN OUT NOCOPY VARCHAR2
173: );
174:
175: PROCEDURE do_emp_history_transfer(
172: x_return_status IN OUT NOCOPY VARCHAR2
173: );
174:
175: PROCEDURE do_emp_history_transfer(
176: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
177: x_to_id IN OUT NOCOPY NUMBER,
178: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
179: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
180: x_return_status IN OUT NOCOPY VARCHAR2
174:
175: PROCEDURE do_emp_history_transfer(
176: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
177: x_to_id IN OUT NOCOPY NUMBER,
178: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
179: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
180: x_return_status IN OUT NOCOPY VARCHAR2
181: );
182:
175: PROCEDURE do_emp_history_transfer(
176: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
177: x_to_id IN OUT NOCOPY NUMBER,
178: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
179: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
180: x_return_status IN OUT NOCOPY VARCHAR2
181: );
182:
183: PROCEDURE do_employed_transfer(
180: x_return_status IN OUT NOCOPY VARCHAR2
181: );
182:
183: PROCEDURE do_employed_transfer(
184: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
185: x_to_id IN OUT NOCOPY NUMBER,
186: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
187: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
188: x_return_status IN OUT NOCOPY VARCHAR2
182:
183: PROCEDURE do_employed_transfer(
184: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
185: x_to_id IN OUT NOCOPY NUMBER,
186: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
187: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
188: x_return_status IN OUT NOCOPY VARCHAR2
189: );
190:
183: PROCEDURE do_employed_transfer(
184: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
185: x_to_id IN OUT NOCOPY NUMBER,
186: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
187: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
188: x_return_status IN OUT NOCOPY VARCHAR2
189: );
190:
191: PROCEDURE do_work_class_transfer(
188: x_return_status IN OUT NOCOPY VARCHAR2
189: );
190:
191: PROCEDURE do_work_class_transfer(
192: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
193: x_to_id IN OUT NOCOPY NUMBER,
194: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
195: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
196: x_return_status IN OUT NOCOPY VARCHAR2
190:
191: PROCEDURE do_work_class_transfer(
192: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
193: x_to_id IN OUT NOCOPY NUMBER,
194: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
195: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
196: x_return_status IN OUT NOCOPY VARCHAR2
197: );
198:
191: PROCEDURE do_work_class_transfer(
192: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
193: x_to_id IN OUT NOCOPY NUMBER,
194: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
195: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
196: x_return_status IN OUT NOCOPY VARCHAR2
197: );
198:
199: PROCEDURE do_financial_number_transfer(
196: x_return_status IN OUT NOCOPY VARCHAR2
197: );
198:
199: PROCEDURE do_financial_number_transfer(
200: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
201: x_to_id IN OUT NOCOPY NUMBER,
202: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
203: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
204: x_return_status IN OUT NOCOPY VARCHAR2
198:
199: PROCEDURE do_financial_number_transfer(
200: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
201: x_to_id IN OUT NOCOPY NUMBER,
202: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
203: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
204: x_return_status IN OUT NOCOPY VARCHAR2
205: );
206:
199: PROCEDURE do_financial_number_transfer(
200: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
201: x_to_id IN OUT NOCOPY NUMBER,
202: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
203: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
204: x_return_status IN OUT NOCOPY VARCHAR2
205: );
206:
207: PROCEDURE do_org_contact_role_transfer(
204: x_return_status IN OUT NOCOPY VARCHAR2
205: );
206:
207: PROCEDURE do_org_contact_role_transfer(
208: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
209: x_to_id IN OUT NOCOPY NUMBER,
210: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
211: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
212: x_return_status IN OUT NOCOPY VARCHAR2
206:
207: PROCEDURE do_org_contact_role_transfer(
208: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
209: x_to_id IN OUT NOCOPY NUMBER,
210: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
211: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
212: x_return_status IN OUT NOCOPY VARCHAR2
213: );
214:
207: PROCEDURE do_org_contact_role_transfer(
208: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
209: x_to_id IN OUT NOCOPY NUMBER,
210: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
211: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
212: x_return_status IN OUT NOCOPY VARCHAR2
213: );
214:
215: PROCEDURE do_code_assignment_transfer2(
212: x_return_status IN OUT NOCOPY VARCHAR2
213: );
214:
215: PROCEDURE do_code_assignment_transfer2(
216: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
217: x_to_id IN OUT NOCOPY NUMBER,
218: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
219: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
220: x_return_status IN OUT NOCOPY VARCHAR2
214:
215: PROCEDURE do_code_assignment_transfer2(
216: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
217: x_to_id IN OUT NOCOPY NUMBER,
218: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
219: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
220: x_return_status IN OUT NOCOPY VARCHAR2
221: );
222:
215: PROCEDURE do_code_assignment_transfer2(
216: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
217: x_to_id IN OUT NOCOPY NUMBER,
218: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
219: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
220: x_return_status IN OUT NOCOPY VARCHAR2
221: );
222:
223: PROCEDURE do_code_assignment_transfer(
220: x_return_status IN OUT NOCOPY VARCHAR2
221: );
222:
223: PROCEDURE do_code_assignment_transfer(
224: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
225: x_to_id IN OUT NOCOPY NUMBER,
226: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
227: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
228: x_return_status IN OUT NOCOPY VARCHAR2
222:
223: PROCEDURE do_code_assignment_transfer(
224: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
225: x_to_id IN OUT NOCOPY NUMBER,
226: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
227: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
228: x_return_status IN OUT NOCOPY VARCHAR2
229: );
230:
223: PROCEDURE do_code_assignment_transfer(
224: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
225: x_to_id IN OUT NOCOPY NUMBER,
226: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
227: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
228: x_return_status IN OUT NOCOPY VARCHAR2
229: );
230:
231: PROCEDURE do_per_languages_transfer(
228: x_return_status IN OUT NOCOPY VARCHAR2
229: );
230:
231: PROCEDURE do_per_languages_transfer(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
233: x_to_id IN OUT NOCOPY NUMBER,
234: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
235: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
236: x_return_status IN OUT NOCOPY VARCHAR2
230:
231: PROCEDURE do_per_languages_transfer(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
233: x_to_id IN OUT NOCOPY NUMBER,
234: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
235: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
236: x_return_status IN OUT NOCOPY VARCHAR2
237: );
238:
231: PROCEDURE do_per_languages_transfer(
232: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
233: x_to_id IN OUT NOCOPY NUMBER,
234: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
235: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
236: x_return_status IN OUT NOCOPY VARCHAR2
237: );
238:
239: PROCEDURE do_party_site_use_transfer(
236: x_return_status IN OUT NOCOPY VARCHAR2
237: );
238:
239: PROCEDURE do_party_site_use_transfer(
240: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
241: x_to_id IN OUT NOCOPY NUMBER,
242: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
243: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
244: x_return_status IN OUT NOCOPY VARCHAR2
238:
239: PROCEDURE do_party_site_use_transfer(
240: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
241: x_to_id IN OUT NOCOPY NUMBER,
242: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
243: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
244: x_return_status IN OUT NOCOPY VARCHAR2
245: );
246:
239: PROCEDURE do_party_site_use_transfer(
240: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
241: x_to_id IN OUT NOCOPY NUMBER,
242: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
243: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
244: x_return_status IN OUT NOCOPY VARCHAR2
245: );
246:
247: PROCEDURE do_org_contact_transfer(
244: x_return_status IN OUT NOCOPY VARCHAR2
245: );
246:
247: PROCEDURE do_org_contact_transfer(
248: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
249: x_to_id IN OUT NOCOPY NUMBER,
250: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
251: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
252: x_return_status IN OUT NOCOPY VARCHAR2
246:
247: PROCEDURE do_org_contact_transfer(
248: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
249: x_to_id IN OUT NOCOPY NUMBER,
250: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
251: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
252: x_return_status IN OUT NOCOPY VARCHAR2
253: );
254:
247: PROCEDURE do_org_contact_transfer(
248: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
249: x_to_id IN OUT NOCOPY NUMBER,
250: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
251: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
252: x_return_status IN OUT NOCOPY VARCHAR2
253: );
254:
255: PROCEDURE do_org_contact_transfer2(
252: x_return_status IN OUT NOCOPY VARCHAR2
253: );
254:
255: PROCEDURE do_org_contact_transfer2(
256: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
257: x_to_id IN OUT NOCOPY NUMBER,
258: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
259: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
260: x_return_status IN OUT NOCOPY VARCHAR2
254:
255: PROCEDURE do_org_contact_transfer2(
256: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
257: x_to_id IN OUT NOCOPY NUMBER,
258: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
259: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
260: x_return_status IN OUT NOCOPY VARCHAR2
261: );
262:
255: PROCEDURE do_org_contact_transfer2(
256: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
257: x_to_id IN OUT NOCOPY NUMBER,
258: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
259: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
260: x_return_status IN OUT NOCOPY VARCHAR2
261: );
262:
263: PROCEDURE do_party_reln_subj_merge(
260: x_return_status IN OUT NOCOPY VARCHAR2
261: );
262:
263: PROCEDURE do_party_reln_subj_merge(
264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
265: x_to_id IN OUT NOCOPY NUMBER,
266: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
267: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
268: x_return_status IN OUT NOCOPY VARCHAR2
262:
263: PROCEDURE do_party_reln_subj_merge(
264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
265: x_to_id IN OUT NOCOPY NUMBER,
266: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
267: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
268: x_return_status IN OUT NOCOPY VARCHAR2
269:
270: );
263: PROCEDURE do_party_reln_subj_merge(
264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
265: x_to_id IN OUT NOCOPY NUMBER,
266: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
267: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
268: x_return_status IN OUT NOCOPY VARCHAR2
269:
270: );
271:
269:
270: );
271:
272: PROCEDURE do_party_reln_obj_merge(
273: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
274: x_to_id IN OUT NOCOPY NUMBER,
275: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
276: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
277: x_return_status IN OUT NOCOPY VARCHAR2
271:
272: PROCEDURE do_party_reln_obj_merge(
273: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
274: x_to_id IN OUT NOCOPY NUMBER,
275: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
276: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
277: x_return_status IN OUT NOCOPY VARCHAR2
278:
279: );
272: PROCEDURE do_party_reln_obj_merge(
273: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
274: x_to_id IN OUT NOCOPY NUMBER,
275: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
276: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
277: x_return_status IN OUT NOCOPY VARCHAR2
278:
279: );
280:
278:
279: );
280:
281: PROCEDURE do_party_relationship_merge(
282: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
283: x_to_id IN OUT NOCOPY NUMBER,
284: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2
280:
281: PROCEDURE do_party_relationship_merge(
282: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
283: x_to_id IN OUT NOCOPY NUMBER,
284: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2
287: );
288: PROCEDURE do_hierarchy_nodes_merge(
281: PROCEDURE do_party_relationship_merge(
282: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
283: x_to_id IN OUT NOCOPY NUMBER,
284: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2
287: );
288: PROCEDURE do_hierarchy_nodes_merge(
289: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
285: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
286: x_return_status IN OUT NOCOPY VARCHAR2
287: );
288: PROCEDURE do_hierarchy_nodes_merge(
289: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
290: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
291: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
292: x_return_status IN OUT NOCOPY VARCHAR2,
293: p_action IN VARCHAR2,
286: x_return_status IN OUT NOCOPY VARCHAR2
287: );
288: PROCEDURE do_hierarchy_nodes_merge(
289: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
290: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
291: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
292: x_return_status IN OUT NOCOPY VARCHAR2,
293: p_action IN VARCHAR2,
294: p_sub_obj_merge IN VARCHAR2:=FND_API.G_MISS_CHAR
287: );
288: PROCEDURE do_hierarchy_nodes_merge(
289: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
290: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
291: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
292: x_return_status IN OUT NOCOPY VARCHAR2,
293: p_action IN VARCHAR2,
294: p_sub_obj_merge IN VARCHAR2:=FND_API.G_MISS_CHAR
295: );
290: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
291: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
292: x_return_status IN OUT NOCOPY VARCHAR2,
293: p_action IN VARCHAR2,
294: p_sub_obj_merge IN VARCHAR2:=FND_API.G_MISS_CHAR
295: );
296:
297: PROCEDURE do_org_profile_merge(
298: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
294: p_sub_obj_merge IN VARCHAR2:=FND_API.G_MISS_CHAR
295: );
296:
297: PROCEDURE do_org_profile_merge(
298: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
299: x_to_id IN OUT NOCOPY NUMBER,
300: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
301: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
302: x_return_status IN OUT NOCOPY VARCHAR2
296:
297: PROCEDURE do_org_profile_merge(
298: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
299: x_to_id IN OUT NOCOPY NUMBER,
300: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
301: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
302: x_return_status IN OUT NOCOPY VARCHAR2
303: );
304:
297: PROCEDURE do_org_profile_merge(
298: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
299: x_to_id IN OUT NOCOPY NUMBER,
300: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
301: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
302: x_return_status IN OUT NOCOPY VARCHAR2
303: );
304:
305: PROCEDURE do_per_profile_merge(
302: x_return_status IN OUT NOCOPY VARCHAR2
303: );
304:
305: PROCEDURE do_per_profile_merge(
306: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
307: x_to_id IN OUT NOCOPY NUMBER,
308: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
309: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
310: x_return_status IN OUT NOCOPY VARCHAR2
304:
305: PROCEDURE do_per_profile_merge(
306: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
307: x_to_id IN OUT NOCOPY NUMBER,
308: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
309: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
310: x_return_status IN OUT NOCOPY VARCHAR2
311: );
312:
305: PROCEDURE do_per_profile_merge(
306: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
307: x_to_id IN OUT NOCOPY NUMBER,
308: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
309: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
310: x_return_status IN OUT NOCOPY VARCHAR2
311: );
312:
313: PROCEDURE do_displayed_duns_merge(
310: x_return_status IN OUT NOCOPY VARCHAR2
311: );
312:
313: PROCEDURE do_displayed_duns_merge(
314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
315: x_to_id IN OUT NOCOPY NUMBER,
316: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
317: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
318: x_return_status IN OUT NOCOPY VARCHAR2
312:
313: PROCEDURE do_displayed_duns_merge(
314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
315: x_to_id IN OUT NOCOPY NUMBER,
316: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
317: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
318: x_return_status IN OUT NOCOPY VARCHAR2
319: );
320: /*
313: PROCEDURE do_displayed_duns_merge(
314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
315: x_to_id IN OUT NOCOPY NUMBER,
316: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
317: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
318: x_return_status IN OUT NOCOPY VARCHAR2
319: );
320: /*
321: PROCEDURE check_params(
318: x_return_status IN OUT NOCOPY VARCHAR2
319: );
320: /*
321: PROCEDURE check_params(
322: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
323: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
324: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
319: );
320: /*
321: PROCEDURE check_params(
322: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
323: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
324: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
320: /*
321: PROCEDURE check_params(
322: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
323: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
324: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
321: PROCEDURE check_params(
322: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
323: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
324: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
322: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
323: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
324: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
330: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
323: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
324: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
330: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
331: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
325: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
330: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
331: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
332: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
333: x_return_status IN OUT NOCOPY VARCHAR2
326: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
330: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
331: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
332: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
333: x_return_status IN OUT NOCOPY VARCHAR2
334: );
327: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
330: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
331: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
332: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
333: x_return_status IN OUT NOCOPY VARCHAR2
334: );
335: */
328: p_proc_name IN VARCHAR2,
329: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
330: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
331: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
332: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
333: x_return_status IN OUT NOCOPY VARCHAR2
334: );
335: */
336:
388: | Srinivasa Rangan 21-Aug-00 Created |
389: | |
390: +===========================================================================*/
391: PROCEDURE party_merge(
392: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
393: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
394: x_to_id IN OUT NOCOPY NUMBER,
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
389: | |
390: +===========================================================================*/
391: PROCEDURE party_merge(
392: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
393: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
394: x_to_id IN OUT NOCOPY NUMBER,
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
397: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
391: PROCEDURE party_merge(
392: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
393: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
394: x_to_id IN OUT NOCOPY NUMBER,
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
397: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
398: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
399: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
392: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
393: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
394: x_to_id IN OUT NOCOPY NUMBER,
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
397: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
398: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
399: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
400: x_return_status OUT NOCOPY VARCHAR2
393: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
394: x_to_id IN OUT NOCOPY NUMBER,
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
397: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
398: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
399: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
400: x_return_status OUT NOCOPY VARCHAR2
401: ) IS
394: x_to_id IN OUT NOCOPY NUMBER,
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
397: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
398: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
399: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
400: x_return_status OUT NOCOPY VARCHAR2
401: ) IS
402:
395: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
396: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
397: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
398: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
399: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
400: x_return_status OUT NOCOPY VARCHAR2
401: ) IS
402:
403: l_to_id NUMBER;
403: l_to_id NUMBER;
404:
405: BEGIN
406: IF (x_to_id IS NULL) THEN
407: l_to_id := FND_API.G_MISS_NUM;
408: ELSE
409: l_to_id := x_to_id;
410: END IF;
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
407: l_to_id := FND_API.G_MISS_NUM;
408: ELSE
409: l_to_id := x_to_id;
410: END IF;
411: x_return_status := FND_API.G_RET_STS_SUCCESS;
412:
413: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
414: p_to_fk_id, p_par_entity_name,
415: 'HZ_MERGE_PKG.party_merge',
415: 'HZ_MERGE_PKG.party_merge',
416: 'HZ_PARTIES',NULL,
417: 'PARTY_ID',NULL,x_return_status);
418:
419: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
420: do_party_merge(p_from_id, l_to_id,p_from_fk_id, p_to_fk_id,
421: p_batch_party_id, x_return_status);
422: END IF;
423:
426: WHEN OTHERS THEN
427: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
428: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
429: FND_MSG_PUB.ADD;
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: END party_merge;
432:
433: PROCEDURE org_profile_merge(
434: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
430: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
431: END party_merge;
432:
433: PROCEDURE org_profile_merge(
434: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
435: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
436: x_to_id IN OUT NOCOPY NUMBER,
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
431: END party_merge;
432:
433: PROCEDURE org_profile_merge(
434: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
435: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
436: x_to_id IN OUT NOCOPY NUMBER,
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
439: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
433: PROCEDURE org_profile_merge(
434: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
435: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
436: x_to_id IN OUT NOCOPY NUMBER,
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
439: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
440: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
441: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
434: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
435: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
436: x_to_id IN OUT NOCOPY NUMBER,
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
439: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
440: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
441: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
442: x_return_status OUT NOCOPY VARCHAR2
435: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
436: x_to_id IN OUT NOCOPY NUMBER,
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
439: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
440: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
441: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
442: x_return_status OUT NOCOPY VARCHAR2
443: ) IS
436: x_to_id IN OUT NOCOPY NUMBER,
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
439: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
440: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
441: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
442: x_return_status OUT NOCOPY VARCHAR2
443: ) IS
444:
437: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
438: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
439: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
440: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
441: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
442: x_return_status OUT NOCOPY VARCHAR2
443: ) IS
444:
445: l_to_id NUMBER;
445: l_to_id NUMBER;
446:
447: BEGIN
448: IF (x_to_id IS NULL) THEN
449: l_to_id := FND_API.G_MISS_NUM;
450: ELSE
451: l_to_id := x_to_id;
452: END IF;
453: x_return_status := FND_API.G_RET_STS_SUCCESS;
449: l_to_id := FND_API.G_MISS_NUM;
450: ELSE
451: l_to_id := x_to_id;
452: END IF;
453: x_return_status := FND_API.G_RET_STS_SUCCESS;
454:
455: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
456: p_to_fk_id, p_par_entity_name,
457: 'HZ_MERGE_PKG.org_profile_merge',
457: 'HZ_MERGE_PKG.org_profile_merge',
458: 'HZ_ORGANIZATION_PROFILES','HZ_PARTIES',
459: 'ORGANIZATION_PROFILE_ID', 'PARTY_ID',x_return_status);
460:
461: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
462: do_org_profile_merge(p_from_id, l_to_id,p_from_fk_id, p_to_fk_id,
463: x_return_status);
464: END IF;
465:
468: WHEN OTHERS THEN
469: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
470: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
471: FND_MSG_PUB.ADD;
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: END org_profile_merge;
474:
475: PROCEDURE party_relationship_merge(
476: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
472: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
473: END org_profile_merge;
474:
475: PROCEDURE party_relationship_merge(
476: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
477: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
478: x_to_id IN OUT NOCOPY NUMBER,
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
473: END org_profile_merge;
474:
475: PROCEDURE party_relationship_merge(
476: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
477: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
478: x_to_id IN OUT NOCOPY NUMBER,
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
481: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
475: PROCEDURE party_relationship_merge(
476: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
477: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
478: x_to_id IN OUT NOCOPY NUMBER,
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
481: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
482: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
483: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
476: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
477: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
478: x_to_id IN OUT NOCOPY NUMBER,
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
481: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
482: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
483: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
484: x_return_status OUT NOCOPY VARCHAR2
477: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
478: x_to_id IN OUT NOCOPY NUMBER,
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
481: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
482: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
483: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
484: x_return_status OUT NOCOPY VARCHAR2
485: ) IS
478: x_to_id IN OUT NOCOPY NUMBER,
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
481: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
482: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
483: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
484: x_return_status OUT NOCOPY VARCHAR2
485: ) IS
486:
479: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
480: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
481: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
482: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
483: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
484: x_return_status OUT NOCOPY VARCHAR2
485: ) IS
486:
487: l_to_id NUMBER;
487: l_to_id NUMBER;
488:
489: BEGIN
490: IF (x_to_id IS NULL) THEN
491: l_to_id := FND_API.G_MISS_NUM;
492: ELSE
493: l_to_id := x_to_id;
494: END IF;
495: x_return_status := FND_API.G_RET_STS_SUCCESS;
491: l_to_id := FND_API.G_MISS_NUM;
492: ELSE
493: l_to_id := x_to_id;
494: END IF;
495: x_return_status := FND_API.G_RET_STS_SUCCESS;
496:
497: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
498: p_to_fk_id, p_par_entity_name,
499: 'HZ_MERGE_PKG.party_relationship_merge',
499: 'HZ_MERGE_PKG.party_relationship_merge',
500: 'HZ_PARTY_RELATIONSHIPS','HZ_PARTIES',
501: 'PARTY_RELATIONSHIP_ID', 'PARTY_ID',x_return_status);
502:
503: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
504: do_party_relationship_merge(p_from_id, l_to_id,p_from_fk_id,p_to_fk_id,
505: x_return_status);
506: END IF;
507:
510: WHEN OTHERS THEN
511: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
512: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
513: FND_MSG_PUB.ADD;
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515: END party_relationship_merge;
516:
517: PROCEDURE per_profile_merge(
518: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
514: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
515: END party_relationship_merge;
516:
517: PROCEDURE per_profile_merge(
518: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
519: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
520: x_to_id IN OUT NOCOPY NUMBER,
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
515: END party_relationship_merge;
516:
517: PROCEDURE per_profile_merge(
518: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
519: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
520: x_to_id IN OUT NOCOPY NUMBER,
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
523: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
517: PROCEDURE per_profile_merge(
518: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
519: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
520: x_to_id IN OUT NOCOPY NUMBER,
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
523: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
524: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
525: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
518: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
519: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
520: x_to_id IN OUT NOCOPY NUMBER,
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
523: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
524: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
525: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
526: x_return_status OUT NOCOPY VARCHAR2
519: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
520: x_to_id IN OUT NOCOPY NUMBER,
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
523: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
524: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
525: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
526: x_return_status OUT NOCOPY VARCHAR2
527: ) IS
520: x_to_id IN OUT NOCOPY NUMBER,
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
523: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
524: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
525: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
526: x_return_status OUT NOCOPY VARCHAR2
527: ) IS
528:
521: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
522: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
523: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
524: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
525: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
526: x_return_status OUT NOCOPY VARCHAR2
527: ) IS
528:
529: l_to_id NUMBER;
529: l_to_id NUMBER;
530:
531: BEGIN
532: IF (x_to_id IS NULL) THEN
533: l_to_id := FND_API.G_MISS_NUM;
534: ELSE
535: l_to_id := x_to_id;
536: END IF;
537: x_return_status := FND_API.G_RET_STS_SUCCESS;
533: l_to_id := FND_API.G_MISS_NUM;
534: ELSE
535: l_to_id := x_to_id;
536: END IF;
537: x_return_status := FND_API.G_RET_STS_SUCCESS;
538:
539: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
540: p_to_fk_id, p_par_entity_name,
541: 'HZ_MERGE_PKG.per_profile_merge',
541: 'HZ_MERGE_PKG.per_profile_merge',
542: 'HZ_PERSON_PROFILES','HZ_PARTIES',
543: 'PERSON_PROFILE_ID', 'PARTY_ID',x_return_status);
544:
545: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
546: do_per_profile_merge(p_from_id, l_to_id,p_from_fk_id,p_to_fk_id,
547: x_return_status);
548: END IF;
549:
552: WHEN OTHERS THEN
553: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
554: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
555: FND_MSG_PUB.ADD;
556: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
557: END per_profile_merge;
558:
559: --4307667
560: PROCEDURE party_usage_merge(
557: END per_profile_merge;
558:
559: --4307667
560: PROCEDURE party_usage_merge(
561: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
562: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
563: x_to_id IN OUT NOCOPY NUMBER,
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
558:
559: --4307667
560: PROCEDURE party_usage_merge(
561: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
562: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
563: x_to_id IN OUT NOCOPY NUMBER,
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
566: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
560: PROCEDURE party_usage_merge(
561: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
562: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
563: x_to_id IN OUT NOCOPY NUMBER,
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
566: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
567: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
568: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
561: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
562: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
563: x_to_id IN OUT NOCOPY NUMBER,
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
566: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
567: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
568: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
569: x_return_status OUT NOCOPY VARCHAR2
562: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
563: x_to_id IN OUT NOCOPY NUMBER,
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
566: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
567: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
568: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
569: x_return_status OUT NOCOPY VARCHAR2
570: ) IS
563: x_to_id IN OUT NOCOPY NUMBER,
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
566: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
567: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
568: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
569: x_return_status OUT NOCOPY VARCHAR2
570: ) IS
571: l_to_id NUMBER;
564: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
565: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
566: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
567: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
568: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
569: x_return_status OUT NOCOPY VARCHAR2
570: ) IS
571: l_to_id NUMBER;
572: l_dummy_id NUMBER;
573:
574: BEGIN
575:
576: IF (x_to_id IS NULL) THEN
577: l_to_id := FND_API.G_MISS_NUM;
578: ELSE
579: l_to_id := x_to_id;
580: END IF;
581: x_return_status := FND_API.G_RET_STS_SUCCESS;
577: l_to_id := FND_API.G_MISS_NUM;
578: ELSE
579: l_to_id := x_to_id;
580: END IF;
581: x_return_status := FND_API.G_RET_STS_SUCCESS;
582:
583: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
584: p_to_fk_id, p_par_entity_name,
585: 'HZ_MERGE_PKG.party_usage_merge',
585: 'HZ_MERGE_PKG.party_usage_merge',
586: 'HZ_PARTY_USG_ASSIGNMENTS','HZ_PARTIES',
587: 'PARTY_USG_ASSIGNMENT_ID', 'PARTY_ID',x_return_status);
588:
589: IF (x_return_status = FND_API.G_RET_STS_SUCCESS) THEN
590: do_party_usage_merge(p_from_id,l_to_id, p_from_fk_id,
591: p_to_fk_id, x_return_status);
592: END IF;
593:
596: WHEN OTHERS THEN
597: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
598: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
599: FND_MSG_PUB.ADD;
600: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
601: END party_usage_merge;
602:
603:
604: PROCEDURE party_reln_subject_merge(
601: END party_usage_merge;
602:
603:
604: PROCEDURE party_reln_subject_merge(
605: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
606: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
607: x_to_id IN OUT NOCOPY NUMBER,
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
602:
603:
604: PROCEDURE party_reln_subject_merge(
605: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
606: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
607: x_to_id IN OUT NOCOPY NUMBER,
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
610: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
604: PROCEDURE party_reln_subject_merge(
605: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
606: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
607: x_to_id IN OUT NOCOPY NUMBER,
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
610: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
611: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
612: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
605: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
606: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
607: x_to_id IN OUT NOCOPY NUMBER,
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
610: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
611: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
612: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
613: x_return_status OUT NOCOPY VARCHAR2
606: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
607: x_to_id IN OUT NOCOPY NUMBER,
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
610: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
611: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
612: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
613: x_return_status OUT NOCOPY VARCHAR2
614: ) IS
607: x_to_id IN OUT NOCOPY NUMBER,
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
610: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
611: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
612: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
613: x_return_status OUT NOCOPY VARCHAR2
614: ) IS
615: l_to_id NUMBER;
608: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
609: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
610: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
611: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
612: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
613: x_return_status OUT NOCOPY VARCHAR2
614: ) IS
615: l_to_id NUMBER;
616: l_dummy_id NUMBER;
616: l_dummy_id NUMBER;
617:
618: BEGIN
619: IF (x_to_id IS NULL) THEN
620: l_to_id := FND_API.G_MISS_NUM;
621: ELSE
622: l_to_id := x_to_id;
623: END IF;
624: x_return_status := FND_API.G_RET_STS_SUCCESS;
620: l_to_id := FND_API.G_MISS_NUM;
621: ELSE
622: l_to_id := x_to_id;
623: END IF;
624: x_return_status := FND_API.G_RET_STS_SUCCESS;
625:
626: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
627: p_to_fk_id, p_par_entity_name,
628: 'HZ_MERGE_PKG.party_reln_subject_merge',
628: 'HZ_MERGE_PKG.party_reln_subject_merge',
629: 'HZ_PARTY_RELATIONSHIPS','HZ_PARTIES',
630: 'PARTY_RELATIONSHIP_ID', 'PARTY_ID',x_return_status);
631:
632: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
633: do_party_reln_subj_merge(p_from_id,l_to_id, p_from_fk_id,
634: p_to_fk_id, x_return_status);
635: END IF;
636:
633: do_party_reln_subj_merge(p_from_id,l_to_id, p_from_fk_id,
634: p_to_fk_id, x_return_status);
635: END IF;
636:
637: IF (l_to_id IS NULL OR l_to_id = FND_API.G_MISS_NUM OR
638: l_to_id = p_from_id) THEN
639: FOR ORG_CT IN (
640: SELECT oc.ORG_CONTACT_ID
641: FROM HZ_ORG_CONTACTS oc, HZ_STAGED_CONTACTS soc
655: WHEN OTHERS THEN
656: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
657: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
658: FND_MSG_PUB.ADD;
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: END party_reln_subject_merge;
661:
662: PROCEDURE party_reln_object_merge(
663: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
660: END party_reln_subject_merge;
661:
662: PROCEDURE party_reln_object_merge(
663: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
664: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
665: x_to_id IN OUT NOCOPY NUMBER,
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
660: END party_reln_subject_merge;
661:
662: PROCEDURE party_reln_object_merge(
663: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
664: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
665: x_to_id IN OUT NOCOPY NUMBER,
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
668: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
662: PROCEDURE party_reln_object_merge(
663: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
664: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
665: x_to_id IN OUT NOCOPY NUMBER,
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
668: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
669: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
670: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
663: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
664: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
665: x_to_id IN OUT NOCOPY NUMBER,
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
668: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
669: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
670: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
671: x_return_status OUT NOCOPY VARCHAR2
664: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
665: x_to_id IN OUT NOCOPY NUMBER,
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
668: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
669: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
670: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
671: x_return_status OUT NOCOPY VARCHAR2
672: ) IS
665: x_to_id IN OUT NOCOPY NUMBER,
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
668: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
669: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
670: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
671: x_return_status OUT NOCOPY VARCHAR2
672: ) IS
673:
666: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
667: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
668: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
669: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
670: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
671: x_return_status OUT NOCOPY VARCHAR2
672: ) IS
673:
674: l_to_id NUMBER;
675: l_dummy_id NUMBER;
676:
677: BEGIN
678: IF (x_to_id IS NULL) THEN
679: l_to_id := FND_API.G_MISS_NUM;
680: ELSE
681: l_to_id := x_to_id;
682: END IF;
683: x_return_status := FND_API.G_RET_STS_SUCCESS;
679: l_to_id := FND_API.G_MISS_NUM;
680: ELSE
681: l_to_id := x_to_id;
682: END IF;
683: x_return_status := FND_API.G_RET_STS_SUCCESS;
684:
685: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
686: p_to_fk_id, p_par_entity_name,
687: 'HZ_MERGE_PKG.party_reln_object_merge',
687: 'HZ_MERGE_PKG.party_reln_object_merge',
688: 'HZ_PARTY_RELATIONSHIPS','HZ_PARTIES',
689: 'PARTY_RELATIONSHIP_ID', 'PARTY_ID',x_return_status);
690:
691: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
692: do_party_reln_obj_merge(p_from_id,l_to_id, p_from_fk_id,
693: p_to_fk_id, x_return_status);
694: END IF;
695:
692: do_party_reln_obj_merge(p_from_id,l_to_id, p_from_fk_id,
693: p_to_fk_id, x_return_status);
694: END IF;
695:
696: IF (l_to_id IS NULL OR l_to_id = FND_API.G_MISS_NUM OR
697: l_to_id = p_from_id) THEN
698: FOR ORG_CT IN (
699: SELECT oc.ORG_CONTACT_ID
700: FROM HZ_ORG_CONTACTS oc, HZ_STAGED_CONTACTS soc
714: WHEN OTHERS THEN
715: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
716: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
717: FND_MSG_PUB.ADD;
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: END party_reln_object_merge;
720:
721: PROCEDURE org_contact_merge(
722: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
718: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
719: END party_reln_object_merge;
720:
721: PROCEDURE org_contact_merge(
722: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
723: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
724: x_to_id IN OUT NOCOPY NUMBER,
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
719: END party_reln_object_merge;
720:
721: PROCEDURE org_contact_merge(
722: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
723: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
724: x_to_id IN OUT NOCOPY NUMBER,
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
727: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
721: PROCEDURE org_contact_merge(
722: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
723: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
724: x_to_id IN OUT NOCOPY NUMBER,
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
727: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
728: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
729: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
722: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
723: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
724: x_to_id IN OUT NOCOPY NUMBER,
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
727: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
728: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
729: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
730: x_return_status OUT NOCOPY VARCHAR2
723: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
724: x_to_id IN OUT NOCOPY NUMBER,
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
727: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
728: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
729: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
730: x_return_status OUT NOCOPY VARCHAR2
731: ) IS
724: x_to_id IN OUT NOCOPY NUMBER,
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
727: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
728: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
729: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
730: x_return_status OUT NOCOPY VARCHAR2
731: ) IS
732: l_to_id NUMBER;
725: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
726: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
727: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
728: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
729: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
730: x_return_status OUT NOCOPY VARCHAR2
731: ) IS
732: l_to_id NUMBER;
733:
732: l_to_id NUMBER;
733:
734: BEGIN
735: IF (x_to_id IS NULL) THEN
736: l_to_id := FND_API.G_MISS_NUM;
737: ELSE
738: l_to_id := x_to_id;
739: END IF;
740: x_return_status := FND_API.G_RET_STS_SUCCESS;
736: l_to_id := FND_API.G_MISS_NUM;
737: ELSE
738: l_to_id := x_to_id;
739: END IF;
740: x_return_status := FND_API.G_RET_STS_SUCCESS;
741:
742: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
743: p_to_fk_id, p_par_entity_name,
744: 'HZ_MERGE_PKG.org_contact_merge',
744: 'HZ_MERGE_PKG.org_contact_merge',
745: 'HZ_ORG_CONTACTS','HZ_PARTY_SITES',
746: 'ORG_CONTACT_ID', 'PARTY_SITE_ID',x_return_status);
747:
748: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
749: do_org_contact_transfer(p_from_id,l_to_id, p_from_fk_id,
750: p_to_fk_id, x_return_status);
751: END IF;
752:
755: WHEN OTHERS THEN
756: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
757: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
758: FND_MSG_PUB.ADD;
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: END org_contact_merge;
761:
762: PROCEDURE org_contact_merge2(
763: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
759: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
760: END org_contact_merge;
761:
762: PROCEDURE org_contact_merge2(
763: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
764: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
765: x_to_id IN OUT NOCOPY NUMBER,
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
760: END org_contact_merge;
761:
762: PROCEDURE org_contact_merge2(
763: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
764: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
765: x_to_id IN OUT NOCOPY NUMBER,
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
768: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
762: PROCEDURE org_contact_merge2(
763: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
764: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
765: x_to_id IN OUT NOCOPY NUMBER,
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
768: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
769: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
770: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
763: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
764: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
765: x_to_id IN OUT NOCOPY NUMBER,
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
768: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
769: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
770: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
771: x_return_status OUT NOCOPY VARCHAR2
764: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
765: x_to_id IN OUT NOCOPY NUMBER,
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
768: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
769: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
770: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
771: x_return_status OUT NOCOPY VARCHAR2
772: ) IS
765: x_to_id IN OUT NOCOPY NUMBER,
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
768: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
769: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
770: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
771: x_return_status OUT NOCOPY VARCHAR2
772: ) IS
773: l_to_id NUMBER;
766: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
767: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
768: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
769: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
770: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
771: x_return_status OUT NOCOPY VARCHAR2
772: ) IS
773: l_to_id NUMBER;
774: l_dummy_id NUMBER;
774: l_dummy_id NUMBER;
775:
776: BEGIN
777: IF (x_to_id IS NULL) THEN
778: l_to_id := FND_API.G_MISS_NUM;
779: ELSE
780: l_to_id := x_to_id;
781: END IF;
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
778: l_to_id := FND_API.G_MISS_NUM;
779: ELSE
780: l_to_id := x_to_id;
781: END IF;
782: x_return_status := FND_API.G_RET_STS_SUCCESS;
783:
784: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
785: p_to_fk_id, p_par_entity_name,
786: 'HZ_MERGE_PKG.org_contact_merge2',
786: 'HZ_MERGE_PKG.org_contact_merge2',
787: 'HZ_ORG_CONTACTS','HZ_PARTY_RELATIONSHIPS',
788: 'ORG_CONTACT_ID', 'PARTY_RELATIONSHIP_ID',x_return_status);
789:
790: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
791: do_org_contact_transfer2(p_from_id,l_to_id, p_from_fk_id,
792: p_to_fk_id, x_return_status);
793: END IF;
794:
791: do_org_contact_transfer2(p_from_id,l_to_id, p_from_fk_id,
792: p_to_fk_id, x_return_status);
793: END IF;
794:
795: IF (l_to_id IS NULL OR l_to_id = FND_API.G_MISS_NUM OR
796: l_to_id = p_from_id) THEN
797: FOR ORG_CT IN (
798: SELECT soc.ORG_CONTACT_ID
799: FROM HZ_STAGED_CONTACTS soc
812: WHEN OTHERS THEN
813: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
814: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
815: FND_MSG_PUB.ADD;
816: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
817: END org_contact_merge2;
818:
819: /*===========================================================================+
820: | PROCEDURE |
849: | Srinivasa Rangan 21-Aug-00 Created |
850: | |
851: +===========================================================================*/
852: PROCEDURE party_site_merge(
853: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
854: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
855: x_to_id IN OUT NOCOPY NUMBER,
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
850: | |
851: +===========================================================================*/
852: PROCEDURE party_site_merge(
853: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
854: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
855: x_to_id IN OUT NOCOPY NUMBER,
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
858: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
852: PROCEDURE party_site_merge(
853: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
854: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
855: x_to_id IN OUT NOCOPY NUMBER,
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
858: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
859: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
860: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
853: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
854: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
855: x_to_id IN OUT NOCOPY NUMBER,
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
858: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
859: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
860: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
861: x_return_status OUT NOCOPY VARCHAR2
854: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
855: x_to_id IN OUT NOCOPY NUMBER,
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
858: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
859: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
860: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
861: x_return_status OUT NOCOPY VARCHAR2
862: ) IS
855: x_to_id IN OUT NOCOPY NUMBER,
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
858: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
859: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
860: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
861: x_return_status OUT NOCOPY VARCHAR2
862: ) IS
863: l_to_id NUMBER;
856: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
857: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
858: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
859: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
860: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
861: x_return_status OUT NOCOPY VARCHAR2
862: ) IS
863: l_to_id NUMBER;
864:
863: l_to_id NUMBER;
864:
865: BEGIN
866: IF (x_to_id IS NULL) THEN
867: l_to_id := FND_API.G_MISS_NUM;
868: ELSE
869: l_to_id := x_to_id;
870: END IF;
871:
868: ELSE
869: l_to_id := x_to_id;
870: END IF;
871:
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: IF p_from_fk_id <> FND_API.G_MISS_NUM THEN
875: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
876: p_to_fk_id, p_par_entity_name,
870: END IF;
871:
872: x_return_status := FND_API.G_RET_STS_SUCCESS;
873:
874: IF p_from_fk_id <> FND_API.G_MISS_NUM THEN
875: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
876: p_to_fk_id, p_par_entity_name,
877: 'HZ_MERGE_PKG.party_site_merge',
878: 'HZ_PARTY_SITES','HZ_PARTIES',
884: 'HZ_PARTY_SITES',NULL, 'PARTY_SITE_ID',
885: NULL,x_return_status);
886: END IF;
887:
888: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
889: do_party_site_merge(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
890: p_batch_id,x_return_status);
891: END IF;
892:
895: WHEN OTHERS THEN
896: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
897: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
898: FND_MSG_PUB.ADD;
899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
900: END party_site_merge;
901:
902: /*===========================================================================+
903: | PROCEDURE |
928: | Srinivasa Rangan 21-Aug-00 Created |
929: | |
930: +===========================================================================*/
931: PROCEDURE cust_account_merge(
932: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
933: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
934: x_to_id IN OUT NOCOPY NUMBER,
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
929: | |
930: +===========================================================================*/
931: PROCEDURE cust_account_merge(
932: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
933: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
934: x_to_id IN OUT NOCOPY NUMBER,
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
937: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
931: PROCEDURE cust_account_merge(
932: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
933: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
934: x_to_id IN OUT NOCOPY NUMBER,
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
937: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
938: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
939: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
932: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
933: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
934: x_to_id IN OUT NOCOPY NUMBER,
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
937: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
938: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
939: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
940: x_return_status OUT NOCOPY VARCHAR2
933: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
934: x_to_id IN OUT NOCOPY NUMBER,
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
937: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
938: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
939: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
940: x_return_status OUT NOCOPY VARCHAR2
941: ) IS
934: x_to_id IN OUT NOCOPY NUMBER,
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
937: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
938: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
939: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
940: x_return_status OUT NOCOPY VARCHAR2
941: ) IS
942: l_to_id NUMBER;
935: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
936: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
937: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
938: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
939: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
940: x_return_status OUT NOCOPY VARCHAR2
941: ) IS
942: l_to_id NUMBER;
943: l_dup_exists VARCHAR2(20);
943: l_dup_exists VARCHAR2(20);
944:
945: BEGIN
946: IF (x_to_id IS NULL) THEN
947: l_to_id := FND_API.G_MISS_NUM;
948: ELSE
949: l_to_id := x_to_id;
950: END IF;
951:
948: ELSE
949: l_to_id := x_to_id;
950: END IF;
951:
952: x_return_status := FND_API.G_RET_STS_SUCCESS;
953:
954: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
955: p_to_fk_id, p_par_entity_name,
956: 'HZ_MERGE_PKG.cust_account_merge',
955: p_to_fk_id, p_par_entity_name,
956: 'HZ_MERGE_PKG.cust_account_merge',
957: 'HZ_CUST_ACCOUNTS','HZ_PARTIES',
958: 'CUST_ACCOUNT_ID', 'PARTY_ID',x_return_status);
959: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
960: l_dup_exists := HZ_MERGE_DUP_CHECK.check_cust_account_dup(
961: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
962: x_return_status);
963: END IF;
961: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
962: x_return_status);
963: END IF;
964:
965: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
966: do_cust_account_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
967: x_return_status);
968: END IF;
969:
972: WHEN OTHERS THEN
973: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
974: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
975: FND_MSG_PUB.ADD;
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: END cust_account_merge;
978:
979: PROCEDURE cust_account_selling_merge(
980: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
976: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
977: END cust_account_merge;
978:
979: PROCEDURE cust_account_selling_merge(
980: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
981: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
982: x_to_id IN OUT NOCOPY NUMBER,
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
977: END cust_account_merge;
978:
979: PROCEDURE cust_account_selling_merge(
980: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
981: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
982: x_to_id IN OUT NOCOPY NUMBER,
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
985: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
979: PROCEDURE cust_account_selling_merge(
980: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
981: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
982: x_to_id IN OUT NOCOPY NUMBER,
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
985: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
986: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
987: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
980: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
981: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
982: x_to_id IN OUT NOCOPY NUMBER,
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
985: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
986: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
987: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
988: x_return_status OUT NOCOPY VARCHAR2
981: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
982: x_to_id IN OUT NOCOPY NUMBER,
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
985: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
986: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
987: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
988: x_return_status OUT NOCOPY VARCHAR2
989: ) IS
982: x_to_id IN OUT NOCOPY NUMBER,
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
985: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
986: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
987: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
988: x_return_status OUT NOCOPY VARCHAR2
989: ) IS
990: l_to_id NUMBER;
983: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
984: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
985: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
986: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
987: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
988: x_return_status OUT NOCOPY VARCHAR2
989: ) IS
990: l_to_id NUMBER;
991: l_dup_exists VARCHAR2(20);
991: l_dup_exists VARCHAR2(20);
992:
993: BEGIN
994: IF (x_to_id IS NULL) THEN
995: l_to_id := FND_API.G_MISS_NUM;
996: ELSE
997: l_to_id := x_to_id;
998: END IF;
999:
996: ELSE
997: l_to_id := x_to_id;
998: END IF;
999:
1000: x_return_status := FND_API.G_RET_STS_SUCCESS;
1001:
1002: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1003: p_to_fk_id, p_par_entity_name,
1004: 'HZ_MERGE_PKG.cust_account_merge',
1004: 'HZ_MERGE_PKG.cust_account_merge',
1005: 'HZ_CUST_ACCOUNTS','HZ_PARTIES',
1006: 'CUST_ACCOUNT_ID', 'SELLING_PARTY_ID',x_return_status);
1007:
1008: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1009: UPDATE HZ_CUST_ACCOUNTS
1010: SET
1011: selling_party_id = p_to_fk_id,
1012: last_update_date = hz_utility_pub.last_update_date,
1024: WHEN OTHERS THEN
1025: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1026: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1027: FND_MSG_PUB.ADD;
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: END cust_account_selling_merge;
1030:
1031: PROCEDURE cust_account_role_merge(
1032: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1029: END cust_account_selling_merge;
1030:
1031: PROCEDURE cust_account_role_merge(
1032: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1034: x_to_id IN OUT NOCOPY NUMBER,
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1029: END cust_account_selling_merge;
1030:
1031: PROCEDURE cust_account_role_merge(
1032: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1034: x_to_id IN OUT NOCOPY NUMBER,
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1037: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1031: PROCEDURE cust_account_role_merge(
1032: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1034: x_to_id IN OUT NOCOPY NUMBER,
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1037: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1038: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1039: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1032: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1034: x_to_id IN OUT NOCOPY NUMBER,
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1037: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1038: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1039: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1040: x_return_status OUT NOCOPY VARCHAR2
1033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1034: x_to_id IN OUT NOCOPY NUMBER,
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1037: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1038: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1039: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1040: x_return_status OUT NOCOPY VARCHAR2
1041: ) IS
1034: x_to_id IN OUT NOCOPY NUMBER,
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1037: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1038: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1039: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1040: x_return_status OUT NOCOPY VARCHAR2
1041: ) IS
1042: l_to_id NUMBER;
1035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1037: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1038: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1039: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1040: x_return_status OUT NOCOPY VARCHAR2
1041: ) IS
1042: l_to_id NUMBER;
1043: l_dup_exists VARCHAR2(20);
1043: l_dup_exists VARCHAR2(20);
1044:
1045: BEGIN
1046: IF (x_to_id IS NULL) THEN
1047: l_to_id := FND_API.G_MISS_NUM;
1048: ELSE
1049: l_to_id := x_to_id;
1050: END IF;
1051:
1048: ELSE
1049: l_to_id := x_to_id;
1050: END IF;
1051:
1052: x_return_status := FND_API.G_RET_STS_SUCCESS;
1053:
1054: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1055: p_to_fk_id, p_par_entity_name,
1056: 'HZ_MERGE_PKG.cust_account_role_merge',
1055: p_to_fk_id, p_par_entity_name,
1056: 'HZ_MERGE_PKG.cust_account_role_merge',
1057: 'HZ_CUST_ACCOUNT_ROLES','HZ_PARTIES',
1058: 'CUST_ACCOUNT_ROLE_ID', 'PARTY_ID',x_return_status);
1059: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1060: l_dup_exists := HZ_MERGE_DUP_CHECK.check_cust_account_role_dup(
1061: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1062: x_return_status);
1063: END IF;
1060: l_dup_exists := HZ_MERGE_DUP_CHECK.check_cust_account_role_dup(
1061: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1062: x_return_status);
1063: END IF;
1064: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1065: do_cust_account_role_transfer(p_from_id, l_to_id, p_from_fk_id,
1066: p_to_fk_id, x_return_status);
1067: END IF;
1068:
1071: WHEN OTHERS THEN
1072: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1073: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1074: FND_MSG_PUB.ADD;
1075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1076: END cust_account_role_merge;
1077:
1078: PROCEDURE cust_account_site_merge(
1079: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1075: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1076: END cust_account_role_merge;
1077:
1078: PROCEDURE cust_account_site_merge(
1079: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1080: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1081: x_to_id IN OUT NOCOPY NUMBER,
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1076: END cust_account_role_merge;
1077:
1078: PROCEDURE cust_account_site_merge(
1079: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1080: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1081: x_to_id IN OUT NOCOPY NUMBER,
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1084: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1078: PROCEDURE cust_account_site_merge(
1079: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1080: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1081: x_to_id IN OUT NOCOPY NUMBER,
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1084: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1085: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1086: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1079: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1080: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1081: x_to_id IN OUT NOCOPY NUMBER,
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1084: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1085: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1086: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1087: x_return_status OUT NOCOPY VARCHAR2
1080: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1081: x_to_id IN OUT NOCOPY NUMBER,
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1084: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1085: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1086: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1087: x_return_status OUT NOCOPY VARCHAR2
1088: ) IS
1081: x_to_id IN OUT NOCOPY NUMBER,
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1084: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1085: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1086: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1087: x_return_status OUT NOCOPY VARCHAR2
1088: ) IS
1089: l_to_id NUMBER;
1082: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1083: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1084: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1085: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1086: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1087: x_return_status OUT NOCOPY VARCHAR2
1088: ) IS
1089: l_to_id NUMBER;
1090: l_dup_exists VARCHAR2(20);
1090: l_dup_exists VARCHAR2(20);
1091:
1092: BEGIN
1093: IF (x_to_id IS NULL) THEN
1094: l_to_id := FND_API.G_MISS_NUM;
1095: ELSE
1096: l_to_id := x_to_id;
1097: END IF;
1098:
1095: ELSE
1096: l_to_id := x_to_id;
1097: END IF;
1098:
1099: x_return_status := FND_API.G_RET_STS_SUCCESS;
1100:
1101: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1102: p_to_fk_id, p_par_entity_name,
1103: 'HZ_MERGE_PKG.cust_account_site_merge',
1103: 'HZ_MERGE_PKG.cust_account_site_merge',
1104: 'HZ_CUST_ACCT_SITES_ALL','HZ_PARTY_SITES',
1105: 'CUST_ACCT_SITE_ID', 'PARTY_SITE_ID',x_return_status);
1106:
1107: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1108: l_dup_exists := HZ_MERGE_DUP_CHECK.check_cust_account_site_dup(
1109: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1110: x_return_status);
1111: END IF;
1109: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1110: x_return_status);
1111: END IF;
1112:
1113: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1114: do_cust_account_site_transfer(p_from_id,l_to_id, p_from_fk_id,
1115: p_to_fk_id, x_return_status);
1116: END IF;
1117:
1120: WHEN OTHERS THEN
1121: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1122: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1123: FND_MSG_PUB.ADD;
1124: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1125: END cust_account_site_merge;
1126:
1127: /*===========================================================================+
1128: | PROCEDURE |
1153: | Srinivasa Rangan 21-Aug-00 Created |
1154: | |
1155: +===========================================================================*/
1156: PROCEDURE financial_profile_merge(
1157: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1159: x_to_id IN OUT NOCOPY NUMBER,
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1154: | |
1155: +===========================================================================*/
1156: PROCEDURE financial_profile_merge(
1157: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1159: x_to_id IN OUT NOCOPY NUMBER,
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1162: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1156: PROCEDURE financial_profile_merge(
1157: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1159: x_to_id IN OUT NOCOPY NUMBER,
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1162: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1163: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1164: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1157: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1159: x_to_id IN OUT NOCOPY NUMBER,
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1162: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1163: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1164: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1165: x_return_status OUT NOCOPY VARCHAR2
1158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1159: x_to_id IN OUT NOCOPY NUMBER,
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1162: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1163: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1164: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1165: x_return_status OUT NOCOPY VARCHAR2
1166: ) IS
1159: x_to_id IN OUT NOCOPY NUMBER,
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1162: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1163: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1164: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1165: x_return_status OUT NOCOPY VARCHAR2
1166: ) IS
1167: l_to_id NUMBER;
1160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1162: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1163: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1164: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1165: x_return_status OUT NOCOPY VARCHAR2
1166: ) IS
1167: l_to_id NUMBER;
1168: l_dup_exists VARCHAR2(20);
1168: l_dup_exists VARCHAR2(20);
1169:
1170: BEGIN
1171: IF (x_to_id IS NULL) THEN
1172: l_to_id := FND_API.G_MISS_NUM;
1173: ELSE
1174: l_to_id := x_to_id;
1175: END IF;
1176:
1173: ELSE
1174: l_to_id := x_to_id;
1175: END IF;
1176:
1177: x_return_status := FND_API.G_RET_STS_SUCCESS;
1178:
1179: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1180: p_to_fk_id, p_par_entity_name,
1181: 'HZ_MERGE_PKG.financial_profile_merge',
1181: 'HZ_MERGE_PKG.financial_profile_merge',
1182: 'HZ_FINANCIAL_PROFILE','HZ_PARTIES',
1183: 'FINANCIAL_PROFILE_ID', 'PARTY_ID',x_return_status);
1184:
1185: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1186: l_dup_exists := HZ_MERGE_DUP_CHECK.check_financial_profile_dup(
1187: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1188: x_return_status);
1189: END IF;
1187: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1188: x_return_status);
1189: END IF;
1190:
1191: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1192: do_fin_profile_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1193: x_return_status);
1194: END IF;
1195:
1198: WHEN OTHERS THEN
1199: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1200: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1201: FND_MSG_PUB.ADD;
1202: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1203: END financial_profile_merge;
1204:
1205: /*===========================================================================+
1206: | PROCEDURE |
1231: | Srinivasa Rangan 21-Aug-00 Created |
1232: | |
1233: +===========================================================================*/
1234: PROCEDURE contact_point_merge(
1235: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1237: x_to_id IN OUT NOCOPY NUMBER,
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1232: | |
1233: +===========================================================================*/
1234: PROCEDURE contact_point_merge(
1235: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1237: x_to_id IN OUT NOCOPY NUMBER,
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1240: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1234: PROCEDURE contact_point_merge(
1235: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1237: x_to_id IN OUT NOCOPY NUMBER,
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1240: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1241: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1242: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1235: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1237: x_to_id IN OUT NOCOPY NUMBER,
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1240: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1241: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1242: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1243: x_return_status OUT NOCOPY VARCHAR2
1236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1237: x_to_id IN OUT NOCOPY NUMBER,
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1240: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1241: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1242: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1243: x_return_status OUT NOCOPY VARCHAR2
1244: ) IS
1237: x_to_id IN OUT NOCOPY NUMBER,
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1240: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1241: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1242: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1243: x_return_status OUT NOCOPY VARCHAR2
1244: ) IS
1245: l_to_id NUMBER;
1238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1240: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1241: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1242: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1243: x_return_status OUT NOCOPY VARCHAR2
1244: ) IS
1245: l_to_id NUMBER;
1246: l_dup_exists VARCHAR2(20);
1247: l_dummy_id NUMBER;
1248:
1249: BEGIN
1250: IF (x_to_id IS NULL) THEN
1251: l_to_id := FND_API.G_MISS_NUM;
1252: ELSE
1253: l_to_id := x_to_id;
1254: END IF;
1255:
1252: ELSE
1253: l_to_id := x_to_id;
1254: END IF;
1255:
1256: x_return_status := FND_API.G_RET_STS_SUCCESS;
1257:
1258: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1259: p_to_fk_id, p_par_entity_name,
1260: 'HZ_MERGE_PKG.contact_point_merge',
1260: 'HZ_MERGE_PKG.contact_point_merge',
1261: 'HZ_CONTACT_POINTS','HZ_PARTIES',
1262: 'CONTACT_POINT_ID', 'PARTY_ID',x_return_status);
1263:
1264: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1265: l_dup_exists := HZ_MERGE_DUP_CHECK.check_contact_point_dup(
1266: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1267: 'HZ_PARTIES',x_return_status);
1268: END IF;
1266: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1267: 'HZ_PARTIES',x_return_status);
1268: END IF;
1269:
1270: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1271: do_contact_point_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1272: x_return_status);
1273: END IF;
1274:
1271: do_contact_point_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1272: x_return_status);
1273: END IF;
1274:
1275: IF (l_to_id IS NULL OR l_to_id = FND_API.G_MISS_NUM OR
1276: l_to_id = p_from_id) THEN
1277: FOR CPT IN (
1278: SELECT CONTACT_POINT_ID FROM HZ_STAGED_CONTACT_POINTS
1279: WHERE CONTACT_POINT_ID=p_from_id) LOOP
1291: WHEN OTHERS THEN
1292: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1293: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1294: FND_MSG_PUB.ADD;
1295: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1296: END contact_point_merge;
1297:
1298: /*===========================================================================+
1299: | PROCEDURE |
1325: | Srinivasa Rangan 21-Aug-00 Created |
1326: | |
1327: +===========================================================================*/
1328: PROCEDURE references_merge(
1329: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1330: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1331: x_to_id IN OUT NOCOPY NUMBER,
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1326: | |
1327: +===========================================================================*/
1328: PROCEDURE references_merge(
1329: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1330: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1331: x_to_id IN OUT NOCOPY NUMBER,
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1334: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1328: PROCEDURE references_merge(
1329: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1330: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1331: x_to_id IN OUT NOCOPY NUMBER,
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1334: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1335: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1336: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1329: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1330: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1331: x_to_id IN OUT NOCOPY NUMBER,
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1334: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1335: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1336: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1337: x_return_status OUT NOCOPY VARCHAR2
1330: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1331: x_to_id IN OUT NOCOPY NUMBER,
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1334: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1335: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1336: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1337: x_return_status OUT NOCOPY VARCHAR2
1338: ) IS
1331: x_to_id IN OUT NOCOPY NUMBER,
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1334: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1335: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1336: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1337: x_return_status OUT NOCOPY VARCHAR2
1338: ) IS
1339: l_to_id NUMBER;
1332: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1333: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1334: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1335: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1336: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1337: x_return_status OUT NOCOPY VARCHAR2
1338: ) IS
1339: l_to_id NUMBER;
1340: l_dup_exists VARCHAR2(20);
1340: l_dup_exists VARCHAR2(20);
1341:
1342: BEGIN
1343: IF (x_to_id IS NULL) THEN
1344: l_to_id := FND_API.G_MISS_NUM;
1345: ELSE
1346: l_to_id := x_to_id;
1347: END IF;
1348:
1345: ELSE
1346: l_to_id := x_to_id;
1347: END IF;
1348:
1349: x_return_status := FND_API.G_RET_STS_SUCCESS;
1350:
1351: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1352: p_to_fk_id, p_par_entity_name,
1353: 'HZ_MERGE_PKG.references_merge',
1353: 'HZ_MERGE_PKG.references_merge',
1354: 'HZ_REFERENCES','HZ_PARTIES',
1355: 'REFERENCE_ID', 'PARTY_ID',x_return_status);
1356:
1357: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1358: l_dup_exists := HZ_MERGE_DUP_CHECK.check_references_dup(
1359: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1360: x_return_status);
1361: END IF;
1359: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1360: x_return_status);
1361: END IF;
1362:
1363: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1364: do_references_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1365: x_return_status);
1366: END IF;
1367:
1370: WHEN OTHERS THEN
1371: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1372: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1373: FND_MSG_PUB.ADD;
1374: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1375: END references_merge;
1376:
1377:
1378: /*===========================================================================+
1405: | Srinivasa Rangan 21-Aug-00 Created |
1406: | |
1407: +===========================================================================*/
1408: PROCEDURE certification_merge(
1409: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1411: x_to_id IN OUT NOCOPY NUMBER,
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1406: | |
1407: +===========================================================================*/
1408: PROCEDURE certification_merge(
1409: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1411: x_to_id IN OUT NOCOPY NUMBER,
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1414: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1408: PROCEDURE certification_merge(
1409: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1411: x_to_id IN OUT NOCOPY NUMBER,
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1414: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1415: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1416: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1409: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1411: x_to_id IN OUT NOCOPY NUMBER,
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1414: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1415: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1416: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1417: x_return_status OUT NOCOPY VARCHAR2
1410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1411: x_to_id IN OUT NOCOPY NUMBER,
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1414: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1415: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1416: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1417: x_return_status OUT NOCOPY VARCHAR2
1418: ) IS
1411: x_to_id IN OUT NOCOPY NUMBER,
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1414: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1415: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1416: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1417: x_return_status OUT NOCOPY VARCHAR2
1418: ) IS
1419: l_to_id NUMBER;
1412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1414: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1415: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1416: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1417: x_return_status OUT NOCOPY VARCHAR2
1418: ) IS
1419: l_to_id NUMBER;
1420: l_dup_exists VARCHAR2(20);
1420: l_dup_exists VARCHAR2(20);
1421:
1422: BEGIN
1423: IF (x_to_id IS NULL) THEN
1424: l_to_id := FND_API.G_MISS_NUM;
1425: ELSE
1426: l_to_id := x_to_id;
1427: END IF;
1428:
1425: ELSE
1426: l_to_id := x_to_id;
1427: END IF;
1428:
1429: x_return_status := FND_API.G_RET_STS_SUCCESS;
1430:
1431: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1432: p_to_fk_id, p_par_entity_name,
1433: 'HZ_MERGE_PKG.certification_merge',
1433: 'HZ_MERGE_PKG.certification_merge',
1434: 'HZ_CERTIFICATIONS','HZ_PARTIES',
1435: 'CERTIFICATION_ID', 'PARTY_ID',x_return_status);
1436:
1437: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1438: l_dup_exists := HZ_MERGE_DUP_CHECK.check_certification_dup(
1439: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1440: x_return_status);
1441: END IF;
1439: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1440: x_return_status);
1441: END IF;
1442:
1443: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1444: do_certification_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1445: x_return_status);
1446: END IF;
1447:
1450: WHEN OTHERS THEN
1451: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1452: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1453: FND_MSG_PUB.ADD;
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1455: END certification_merge;
1456:
1457: PROCEDURE credit_ratings_merge(
1458: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1454: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1455: END certification_merge;
1456:
1457: PROCEDURE credit_ratings_merge(
1458: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1459: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1460: x_to_id IN OUT NOCOPY NUMBER,
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1455: END certification_merge;
1456:
1457: PROCEDURE credit_ratings_merge(
1458: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1459: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1460: x_to_id IN OUT NOCOPY NUMBER,
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1463: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1457: PROCEDURE credit_ratings_merge(
1458: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1459: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1460: x_to_id IN OUT NOCOPY NUMBER,
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1463: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1464: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1465: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1458: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1459: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1460: x_to_id IN OUT NOCOPY NUMBER,
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1463: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1464: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1465: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1466: x_return_status OUT NOCOPY VARCHAR2
1459: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1460: x_to_id IN OUT NOCOPY NUMBER,
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1463: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1464: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1465: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1466: x_return_status OUT NOCOPY VARCHAR2
1467: ) IS
1460: x_to_id IN OUT NOCOPY NUMBER,
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1463: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1464: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1465: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1466: x_return_status OUT NOCOPY VARCHAR2
1467: ) IS
1468: l_to_id NUMBER;
1461: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1462: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1463: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1464: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1465: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1466: x_return_status OUT NOCOPY VARCHAR2
1467: ) IS
1468: l_to_id NUMBER;
1469: l_dup_exists VARCHAR2(20);
1469: l_dup_exists VARCHAR2(20);
1470:
1471: BEGIN
1472: IF (x_to_id IS NULL) THEN
1473: l_to_id := FND_API.G_MISS_NUM;
1474: ELSE
1475: l_to_id := x_to_id;
1476: END IF;
1477:
1474: ELSE
1475: l_to_id := x_to_id;
1476: END IF;
1477:
1478: x_return_status := FND_API.G_RET_STS_SUCCESS;
1479:
1480: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1481: p_to_fk_id, p_par_entity_name,
1482: 'HZ_MERGE_PKG.credit_ratings_merge',
1482: 'HZ_MERGE_PKG.credit_ratings_merge',
1483: 'HZ_CREDIT_RATINGS','HZ_PARTIES',
1484: 'CREDIT_RATING_ID', 'PARTY_ID',x_return_status);
1485:
1486: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1487: l_dup_exists := HZ_MERGE_DUP_CHECK.check_credit_ratings_dup(
1488: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1489: x_return_status);
1490: END IF;
1488: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1489: x_return_status);
1490: END IF;
1491:
1492: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1493: do_credit_ratings_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1494: x_return_status);
1495: END IF;
1496:
1499: WHEN OTHERS THEN
1500: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1501: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1502: FND_MSG_PUB.ADD;
1503: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1504: END credit_ratings_merge;
1505:
1506:
1507: PROCEDURE security_issued_merge(
1504: END credit_ratings_merge;
1505:
1506:
1507: PROCEDURE security_issued_merge(
1508: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1509: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1510: x_to_id IN OUT NOCOPY NUMBER,
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1505:
1506:
1507: PROCEDURE security_issued_merge(
1508: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1509: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1510: x_to_id IN OUT NOCOPY NUMBER,
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1513: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1507: PROCEDURE security_issued_merge(
1508: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1509: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1510: x_to_id IN OUT NOCOPY NUMBER,
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1513: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1514: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1515: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1508: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1509: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1510: x_to_id IN OUT NOCOPY NUMBER,
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1513: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1514: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1515: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1516: x_return_status OUT NOCOPY VARCHAR2
1509: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1510: x_to_id IN OUT NOCOPY NUMBER,
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1513: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1514: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1515: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1516: x_return_status OUT NOCOPY VARCHAR2
1517: ) IS
1510: x_to_id IN OUT NOCOPY NUMBER,
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1513: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1514: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1515: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1516: x_return_status OUT NOCOPY VARCHAR2
1517: ) IS
1518: l_to_id NUMBER;
1511: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1512: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1513: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1514: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1515: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1516: x_return_status OUT NOCOPY VARCHAR2
1517: ) IS
1518: l_to_id NUMBER;
1519: l_dup_exists VARCHAR2(20);
1519: l_dup_exists VARCHAR2(20);
1520:
1521: BEGIN
1522: IF (x_to_id IS NULL) THEN
1523: l_to_id := FND_API.G_MISS_NUM;
1524: ELSE
1525: l_to_id := x_to_id;
1526: END IF;
1527:
1524: ELSE
1525: l_to_id := x_to_id;
1526: END IF;
1527:
1528: x_return_status := FND_API.G_RET_STS_SUCCESS;
1529:
1530: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1531: p_to_fk_id, p_par_entity_name,
1532: 'HZ_MERGE_PKG.security_issued_merge',
1532: 'HZ_MERGE_PKG.security_issued_merge',
1533: 'HZ_SECURITY_ISSUED','HZ_PARTIES',
1534: 'SECURITY_ISSUED_ID', 'PARTY_ID',x_return_status);
1535:
1536: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1537:
1538: l_dup_exists := HZ_MERGE_DUP_CHECK.check_security_issued_dup(
1539: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1540: x_return_status);
1539: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1540: x_return_status);
1541: END IF;
1542:
1543: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1544: do_security_issued_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1545: x_return_status);
1546: END IF;
1547:
1550: WHEN OTHERS THEN
1551: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1552: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1553: FND_MSG_PUB.ADD;
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: END security_issued_merge;
1556:
1557: PROCEDURE financial_reports_merge(
1558: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1554: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1555: END security_issued_merge;
1556:
1557: PROCEDURE financial_reports_merge(
1558: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1559: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1560: x_to_id IN OUT NOCOPY NUMBER,
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1555: END security_issued_merge;
1556:
1557: PROCEDURE financial_reports_merge(
1558: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1559: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1560: x_to_id IN OUT NOCOPY NUMBER,
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1563: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1557: PROCEDURE financial_reports_merge(
1558: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1559: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1560: x_to_id IN OUT NOCOPY NUMBER,
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1563: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1564: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1565: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1558: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1559: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1560: x_to_id IN OUT NOCOPY NUMBER,
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1563: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1564: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1565: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1566: x_return_status OUT NOCOPY VARCHAR2
1559: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1560: x_to_id IN OUT NOCOPY NUMBER,
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1563: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1564: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1565: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1566: x_return_status OUT NOCOPY VARCHAR2
1567: ) IS
1560: x_to_id IN OUT NOCOPY NUMBER,
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1563: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1564: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1565: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1566: x_return_status OUT NOCOPY VARCHAR2
1567: ) IS
1568: l_to_id NUMBER;
1561: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1562: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1563: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1564: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1565: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1566: x_return_status OUT NOCOPY VARCHAR2
1567: ) IS
1568: l_to_id NUMBER;
1569: l_dup_exists VARCHAR2(20);
1569: l_dup_exists VARCHAR2(20);
1570:
1571: BEGIN
1572: IF (x_to_id IS NULL) THEN
1573: l_to_id := FND_API.G_MISS_NUM;
1574: ELSE
1575: l_to_id := x_to_id;
1576: END IF;
1577:
1574: ELSE
1575: l_to_id := x_to_id;
1576: END IF;
1577:
1578: x_return_status := FND_API.G_RET_STS_SUCCESS;
1579:
1580: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1581: p_to_fk_id, p_par_entity_name,
1582: 'HZ_MERGE_PKG.financial_reports_merge',
1582: 'HZ_MERGE_PKG.financial_reports_merge',
1583: 'HZ_FINANCIAL_REPORTS','HZ_PARTIES',
1584: 'FINANCIAL_REPORT_ID', 'PARTY_ID',x_return_status);
1585:
1586: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1587: l_dup_exists := HZ_MERGE_DUP_CHECK.check_financial_reports_dup(
1588: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1589: x_return_status);
1590: END IF;
1588: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1589: x_return_status);
1590: END IF;
1591:
1592: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1593: do_financial_reports_transfer(p_from_id, l_to_id, p_from_fk_id,
1594: p_to_fk_id,x_return_status);
1595: END IF;
1596:
1599: WHEN OTHERS THEN
1600: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1601: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1602: FND_MSG_PUB.ADD;
1603: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1604: END financial_reports_merge;
1605:
1606:
1607: PROCEDURE org_indicators_merge(
1604: END financial_reports_merge;
1605:
1606:
1607: PROCEDURE org_indicators_merge(
1608: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1609: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1610: x_to_id IN OUT NOCOPY NUMBER,
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1605:
1606:
1607: PROCEDURE org_indicators_merge(
1608: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1609: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1610: x_to_id IN OUT NOCOPY NUMBER,
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1613: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1607: PROCEDURE org_indicators_merge(
1608: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1609: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1610: x_to_id IN OUT NOCOPY NUMBER,
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1613: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1614: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1615: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1608: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1609: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1610: x_to_id IN OUT NOCOPY NUMBER,
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1613: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1614: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1615: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1616: x_return_status OUT NOCOPY VARCHAR2
1609: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1610: x_to_id IN OUT NOCOPY NUMBER,
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1613: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1614: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1615: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1616: x_return_status OUT NOCOPY VARCHAR2
1617: ) IS
1610: x_to_id IN OUT NOCOPY NUMBER,
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1613: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1614: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1615: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1616: x_return_status OUT NOCOPY VARCHAR2
1617: ) IS
1618: l_to_id NUMBER;
1611: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1612: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1613: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1614: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1615: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1616: x_return_status OUT NOCOPY VARCHAR2
1617: ) IS
1618: l_to_id NUMBER;
1619: l_dup_exists VARCHAR2(20);
1619: l_dup_exists VARCHAR2(20);
1620:
1621: BEGIN
1622: IF (x_to_id IS NULL) THEN
1623: l_to_id := FND_API.G_MISS_NUM;
1624: ELSE
1625: l_to_id := x_to_id;
1626: END IF;
1627:
1624: ELSE
1625: l_to_id := x_to_id;
1626: END IF;
1627:
1628: x_return_status := FND_API.G_RET_STS_SUCCESS;
1629:
1630: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1631: p_to_fk_id, p_par_entity_name,
1632: 'HZ_MERGE_PKG.org_indicators_merge',
1632: 'HZ_MERGE_PKG.org_indicators_merge',
1633: 'HZ_ORGANIZATION_INDICATORS','HZ_PARTIES',
1634: 'ORGANIZATION_INDICATOR_ID', 'PARTY_ID',x_return_status);
1635:
1636: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1637: l_dup_exists := HZ_MERGE_DUP_CHECK.check_org_indicators_dup(
1638: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1639: x_return_status);
1640: END IF;
1638: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1639: x_return_status);
1640: END IF;
1641:
1642: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1643: do_org_indicators_transfer(p_from_id, l_to_id, p_from_fk_id, p_to_fk_id,
1644: x_return_status);
1645: END IF;
1646:
1649: WHEN OTHERS THEN
1650: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1651: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1652: FND_MSG_PUB.ADD;
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1654: END org_indicators_merge;
1655:
1656: PROCEDURE org_ind_reference_merge(
1657: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1653: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1654: END org_indicators_merge;
1655:
1656: PROCEDURE org_ind_reference_merge(
1657: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1658: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1659: x_to_id IN OUT NOCOPY NUMBER,
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1654: END org_indicators_merge;
1655:
1656: PROCEDURE org_ind_reference_merge(
1657: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1658: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1659: x_to_id IN OUT NOCOPY NUMBER,
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1662: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1656: PROCEDURE org_ind_reference_merge(
1657: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1658: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1659: x_to_id IN OUT NOCOPY NUMBER,
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1662: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1663: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1664: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1657: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1658: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1659: x_to_id IN OUT NOCOPY NUMBER,
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1662: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1663: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1664: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1665: x_return_status OUT NOCOPY VARCHAR2
1658: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1659: x_to_id IN OUT NOCOPY NUMBER,
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1662: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1663: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1664: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1665: x_return_status OUT NOCOPY VARCHAR2
1666: ) IS
1659: x_to_id IN OUT NOCOPY NUMBER,
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1662: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1663: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1664: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1665: x_return_status OUT NOCOPY VARCHAR2
1666: ) IS
1667: l_to_id NUMBER;
1660: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1661: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1662: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1663: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1664: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1665: x_return_status OUT NOCOPY VARCHAR2
1666: ) IS
1667: l_to_id NUMBER;
1668: l_dup_exists VARCHAR2(20);
1668: l_dup_exists VARCHAR2(20);
1669:
1670: BEGIN
1671: IF (x_to_id IS NULL) THEN
1672: l_to_id := FND_API.G_MISS_NUM;
1673: ELSE
1674: l_to_id := x_to_id;
1675: END IF;
1676:
1673: ELSE
1674: l_to_id := x_to_id;
1675: END IF;
1676:
1677: x_return_status := FND_API.G_RET_STS_SUCCESS;
1678:
1679: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1680: p_to_fk_id, p_par_entity_name,
1681: 'HZ_MERGE_PKG.org_ind_reference_merge',
1681: 'HZ_MERGE_PKG.org_ind_reference_merge',
1682: 'HZ_INDUSTRIAL_REFERENCE','HZ_PARTIES',
1683: 'INDUSTRY_REFERENCE_ID', 'PARTY_ID',x_return_status);
1684:
1685: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1686: l_dup_exists := HZ_MERGE_DUP_CHECK.check_ind_reference_dup(
1687: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1688: x_return_status);
1689: END IF;
1687: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1688: x_return_status);
1689: END IF;
1690:
1691: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1692: do_ind_reference_transfer(p_from_id, l_to_id, p_from_fk_id, p_to_fk_id,
1693: x_return_status);
1694: END IF;
1695:
1698: WHEN OTHERS THEN
1699: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1700: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1701: FND_MSG_PUB.ADD;
1702: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1703: END org_ind_reference_merge;
1704:
1705:
1706: PROCEDURE per_interest_merge(
1703: END org_ind_reference_merge;
1704:
1705:
1706: PROCEDURE per_interest_merge(
1707: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1708: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1709: x_to_id IN OUT NOCOPY NUMBER,
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1704:
1705:
1706: PROCEDURE per_interest_merge(
1707: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1708: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1709: x_to_id IN OUT NOCOPY NUMBER,
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1712: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1706: PROCEDURE per_interest_merge(
1707: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1708: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1709: x_to_id IN OUT NOCOPY NUMBER,
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1712: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1713: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1714: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1707: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1708: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1709: x_to_id IN OUT NOCOPY NUMBER,
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1712: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1713: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1714: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1715: x_return_status OUT NOCOPY VARCHAR2
1708: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1709: x_to_id IN OUT NOCOPY NUMBER,
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1712: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1713: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1714: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1715: x_return_status OUT NOCOPY VARCHAR2
1716: ) IS
1709: x_to_id IN OUT NOCOPY NUMBER,
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1712: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1713: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1714: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1715: x_return_status OUT NOCOPY VARCHAR2
1716: ) IS
1717: l_to_id NUMBER;
1710: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1711: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1712: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1713: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1714: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1715: x_return_status OUT NOCOPY VARCHAR2
1716: ) IS
1717: l_to_id NUMBER;
1718: l_dup_exists VARCHAR2(20);
1718: l_dup_exists VARCHAR2(20);
1719:
1720: BEGIN
1721: IF (x_to_id IS NULL) THEN
1722: l_to_id := FND_API.G_MISS_NUM;
1723: ELSE
1724: l_to_id := x_to_id;
1725: END IF;
1726:
1723: ELSE
1724: l_to_id := x_to_id;
1725: END IF;
1726:
1727: x_return_status := FND_API.G_RET_STS_SUCCESS;
1728:
1729: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1730: p_to_fk_id, p_par_entity_name,
1731: 'HZ_MERGE_PKG.per_interest_merge',
1731: 'HZ_MERGE_PKG.per_interest_merge',
1732: 'HZ_PERSON_INTEREST','HZ_PARTIES',
1733: 'PERSON_INTEREST_ID', 'PARTY_ID',x_return_status);
1734:
1735: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1736: l_dup_exists := HZ_MERGE_DUP_CHECK.check_per_interest_dup(
1737: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1738: x_return_status);
1739: END IF;
1737: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1738: x_return_status);
1739: END IF;
1740:
1741: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1742: do_per_interest_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1743: x_return_status);
1744: END IF;
1745:
1748: WHEN OTHERS THEN
1749: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1750: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1751: FND_MSG_PUB.ADD;
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: END per_interest_merge;
1754:
1755: PROCEDURE citizenship_merge(
1756: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1752: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1753: END per_interest_merge;
1754:
1755: PROCEDURE citizenship_merge(
1756: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1757: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1758: x_to_id IN OUT NOCOPY NUMBER,
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1753: END per_interest_merge;
1754:
1755: PROCEDURE citizenship_merge(
1756: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1757: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1758: x_to_id IN OUT NOCOPY NUMBER,
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1761: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1755: PROCEDURE citizenship_merge(
1756: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1757: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1758: x_to_id IN OUT NOCOPY NUMBER,
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1761: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1762: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1763: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1756: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1757: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1758: x_to_id IN OUT NOCOPY NUMBER,
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1761: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1762: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1763: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1764: x_return_status OUT NOCOPY VARCHAR2
1757: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1758: x_to_id IN OUT NOCOPY NUMBER,
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1761: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1762: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1763: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1764: x_return_status OUT NOCOPY VARCHAR2
1765: ) IS
1758: x_to_id IN OUT NOCOPY NUMBER,
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1761: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1762: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1763: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1764: x_return_status OUT NOCOPY VARCHAR2
1765: ) IS
1766: l_to_id NUMBER;
1759: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1760: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1761: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1762: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1763: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1764: x_return_status OUT NOCOPY VARCHAR2
1765: ) IS
1766: l_to_id NUMBER;
1767: l_dup_exists VARCHAR2(20);
1767: l_dup_exists VARCHAR2(20);
1768:
1769: BEGIN
1770: IF (x_to_id IS NULL) THEN
1771: l_to_id := FND_API.G_MISS_NUM;
1772: ELSE
1773: l_to_id := x_to_id;
1774: END IF;
1775:
1772: ELSE
1773: l_to_id := x_to_id;
1774: END IF;
1775:
1776: x_return_status := FND_API.G_RET_STS_SUCCESS;
1777:
1778: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1779: p_to_fk_id, p_par_entity_name,
1780: 'HZ_MERGE_PKG.citizenship_merge',
1780: 'HZ_MERGE_PKG.citizenship_merge',
1781: 'HZ_CITIZENSHIP','HZ_PARTIES',
1782: 'CITIZENSHIP_ID', 'PARTY_ID',x_return_status);
1783:
1784: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1785: l_dup_exists := HZ_MERGE_DUP_CHECK.check_citizenship_dup(
1786: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1787: x_return_status);
1788: END IF;
1786: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1787: x_return_status);
1788: END IF;
1789:
1790: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1791: do_citizenship_transfer(p_from_id,l_to_id,p_from_fk_id, p_to_fk_id,
1792: x_return_status);
1793: END IF;
1794:
1797: WHEN OTHERS THEN
1798: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1799: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1800: FND_MSG_PUB.ADD;
1801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1802: END citizenship_merge;
1803:
1804: PROCEDURE education_merge(
1805: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1801: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1802: END citizenship_merge;
1803:
1804: PROCEDURE education_merge(
1805: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1806: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1807: x_to_id IN OUT NOCOPY NUMBER,
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1802: END citizenship_merge;
1803:
1804: PROCEDURE education_merge(
1805: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1806: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1807: x_to_id IN OUT NOCOPY NUMBER,
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1810: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1804: PROCEDURE education_merge(
1805: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1806: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1807: x_to_id IN OUT NOCOPY NUMBER,
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1810: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1811: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1812: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1805: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1806: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1807: x_to_id IN OUT NOCOPY NUMBER,
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1810: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1811: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1812: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1813: x_return_status OUT NOCOPY VARCHAR2
1806: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1807: x_to_id IN OUT NOCOPY NUMBER,
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1810: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1811: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1812: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1813: x_return_status OUT NOCOPY VARCHAR2
1814: ) IS
1807: x_to_id IN OUT NOCOPY NUMBER,
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1810: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1811: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1812: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1813: x_return_status OUT NOCOPY VARCHAR2
1814: ) IS
1815: l_to_id NUMBER;
1808: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1809: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1810: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1811: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1812: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1813: x_return_status OUT NOCOPY VARCHAR2
1814: ) IS
1815: l_to_id NUMBER;
1816: l_dup_exists VARCHAR2(20);
1816: l_dup_exists VARCHAR2(20);
1817:
1818: BEGIN
1819: IF (x_to_id IS NULL) THEN
1820: l_to_id := FND_API.G_MISS_NUM;
1821: ELSE
1822: l_to_id := x_to_id;
1823: END IF;
1824:
1821: ELSE
1822: l_to_id := x_to_id;
1823: END IF;
1824:
1825: x_return_status := FND_API.G_RET_STS_SUCCESS;
1826:
1827: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1828: p_to_fk_id, p_par_entity_name,
1829: 'HZ_MERGE_PKG.education_merge',
1829: 'HZ_MERGE_PKG.education_merge',
1830: 'HZ_EDUCATION','HZ_PARTIES',
1831: 'EDUCATION_ID', 'PARTY_ID',x_return_status);
1832:
1833: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1834: l_dup_exists := HZ_MERGE_DUP_CHECK.check_education_dup(
1835: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1836: x_return_status);
1837: END IF;
1835: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1836: x_return_status);
1837: END IF;
1838:
1839: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1840: do_education_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1841: x_return_status);
1842: END IF;
1843:
1846: WHEN OTHERS THEN
1847: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1848: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1849: FND_MSG_PUB.ADD;
1850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: END education_merge;
1852:
1853: PROCEDURE education_school_merge(
1854: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1850: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1851: END education_merge;
1852:
1853: PROCEDURE education_school_merge(
1854: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1855: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1856: x_to_id IN OUT NOCOPY NUMBER,
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1851: END education_merge;
1852:
1853: PROCEDURE education_school_merge(
1854: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1855: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1856: x_to_id IN OUT NOCOPY NUMBER,
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1859: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1853: PROCEDURE education_school_merge(
1854: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1855: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1856: x_to_id IN OUT NOCOPY NUMBER,
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1859: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1860: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1861: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1854: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1855: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1856: x_to_id IN OUT NOCOPY NUMBER,
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1859: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1860: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1861: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1862: x_return_status OUT NOCOPY VARCHAR2
1855: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1856: x_to_id IN OUT NOCOPY NUMBER,
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1859: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1860: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1861: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1862: x_return_status OUT NOCOPY VARCHAR2
1863: ) IS
1856: x_to_id IN OUT NOCOPY NUMBER,
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1859: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1860: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1861: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1862: x_return_status OUT NOCOPY VARCHAR2
1863: ) IS
1864: l_to_id NUMBER;
1857: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1858: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1859: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1860: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1861: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1862: x_return_status OUT NOCOPY VARCHAR2
1863: ) IS
1864: l_to_id NUMBER;
1865: l_dup_exists VARCHAR2(20);
1865: l_dup_exists VARCHAR2(20);
1866:
1867: BEGIN
1868: IF (x_to_id IS NULL) THEN
1869: l_to_id := FND_API.G_MISS_NUM;
1870: ELSE
1871: l_to_id := x_to_id;
1872: END IF;
1873:
1870: ELSE
1871: l_to_id := x_to_id;
1872: END IF;
1873:
1874: x_return_status := FND_API.G_RET_STS_SUCCESS;
1875:
1876: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1877: p_to_fk_id, p_par_entity_name,
1878: 'HZ_MERGE_PKG.education_school_merge',
1878: 'HZ_MERGE_PKG.education_school_merge',
1879: 'HZ_EDUCATION','HZ_PARTIES',
1880: 'EDUCATION_ID', 'SCHOOL_PARTY_ID',x_return_status);
1881:
1882: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1883: l_dup_exists := HZ_MERGE_DUP_CHECK.check_education_dup(
1884: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1885: x_return_status);
1886: END IF;
1884: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1885: x_return_status);
1886: END IF;
1887:
1888: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1889: do_education_school_transfer(p_from_id,l_to_id,p_from_fk_id, p_to_fk_id,
1890: x_return_status);
1891: END IF;
1892:
1895: WHEN OTHERS THEN
1896: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1897: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1898: FND_MSG_PUB.ADD;
1899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1900: END education_school_merge;
1901:
1902: PROCEDURE emp_history_merge(
1903: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1899: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1900: END education_school_merge;
1901:
1902: PROCEDURE emp_history_merge(
1903: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1904: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1905: x_to_id IN OUT NOCOPY NUMBER,
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1900: END education_school_merge;
1901:
1902: PROCEDURE emp_history_merge(
1903: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1904: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1905: x_to_id IN OUT NOCOPY NUMBER,
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1908: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1902: PROCEDURE emp_history_merge(
1903: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1904: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1905: x_to_id IN OUT NOCOPY NUMBER,
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1908: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1909: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1910: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1903: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1904: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1905: x_to_id IN OUT NOCOPY NUMBER,
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1908: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1909: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1910: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1911: x_return_status OUT NOCOPY VARCHAR2
1904: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1905: x_to_id IN OUT NOCOPY NUMBER,
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1908: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1909: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1910: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1911: x_return_status OUT NOCOPY VARCHAR2
1912: ) IS
1905: x_to_id IN OUT NOCOPY NUMBER,
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1908: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1909: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1910: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1911: x_return_status OUT NOCOPY VARCHAR2
1912: ) IS
1913: l_to_id NUMBER;
1906: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1907: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1908: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1909: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1910: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1911: x_return_status OUT NOCOPY VARCHAR2
1912: ) IS
1913: l_to_id NUMBER;
1914: l_dup_exists VARCHAR2(20);
1914: l_dup_exists VARCHAR2(20);
1915:
1916: BEGIN
1917: IF (x_to_id IS NULL) THEN
1918: l_to_id := FND_API.G_MISS_NUM;
1919: ELSE
1920: l_to_id := x_to_id;
1921: END IF;
1922:
1919: ELSE
1920: l_to_id := x_to_id;
1921: END IF;
1922:
1923: x_return_status := FND_API.G_RET_STS_SUCCESS;
1924:
1925: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1926: p_to_fk_id, p_par_entity_name,
1927: 'HZ_MERGE_PKG.emp_history_merge',
1927: 'HZ_MERGE_PKG.emp_history_merge',
1928: 'HZ_EMPLOYMENT_HISTORY','HZ_PARTIES',
1929: 'EMPLOYMENT_HISTORY_ID', 'PARTY_ID',x_return_status);
1930:
1931: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1932: l_dup_exists := HZ_MERGE_DUP_CHECK.check_emp_history_dup(
1933: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1934: x_return_status);
1935: END IF;
1933: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1934: x_return_status);
1935: END IF;
1936:
1937: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1938: do_emp_history_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1939: x_return_status);
1940: END IF;
1941:
1944: WHEN OTHERS THEN
1945: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1946: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1947: FND_MSG_PUB.ADD;
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1949: END emp_history_merge;
1950:
1951: PROCEDURE emp_history_employed_merge(
1952: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1948: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1949: END emp_history_merge;
1950:
1951: PROCEDURE emp_history_employed_merge(
1952: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1953: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1954: x_to_id IN OUT NOCOPY NUMBER,
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1949: END emp_history_merge;
1950:
1951: PROCEDURE emp_history_employed_merge(
1952: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1953: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1954: x_to_id IN OUT NOCOPY NUMBER,
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1957: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1951: PROCEDURE emp_history_employed_merge(
1952: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1953: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1954: x_to_id IN OUT NOCOPY NUMBER,
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1957: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1958: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1959: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1952: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1953: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1954: x_to_id IN OUT NOCOPY NUMBER,
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1957: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1958: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1959: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1960: x_return_status OUT NOCOPY VARCHAR2
1953: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
1954: x_to_id IN OUT NOCOPY NUMBER,
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1957: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1958: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1959: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1960: x_return_status OUT NOCOPY VARCHAR2
1961: ) IS
1954: x_to_id IN OUT NOCOPY NUMBER,
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1957: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1958: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1959: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1960: x_return_status OUT NOCOPY VARCHAR2
1961: ) IS
1962: l_to_id NUMBER;
1955: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1956: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1957: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1958: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
1959: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
1960: x_return_status OUT NOCOPY VARCHAR2
1961: ) IS
1962: l_to_id NUMBER;
1963: l_dup_exists VARCHAR2(20);
1963: l_dup_exists VARCHAR2(20);
1964:
1965: BEGIN
1966: IF (x_to_id IS NULL) THEN
1967: l_to_id := FND_API.G_MISS_NUM;
1968: ELSE
1969: l_to_id := x_to_id;
1970: END IF;
1971:
1968: ELSE
1969: l_to_id := x_to_id;
1970: END IF;
1971:
1972: x_return_status := FND_API.G_RET_STS_SUCCESS;
1973:
1974: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
1975: p_to_fk_id, p_par_entity_name,
1976: 'HZ_MERGE_PKG.emp_history_employed_merge',
1976: 'HZ_MERGE_PKG.emp_history_employed_merge',
1977: 'HZ_EMPLOYMENT_HISTORY','HZ_PARTIES',
1978: 'EMPLOYMENT_HISTORY_ID','EMPLOYED_BY_PARTY_ID',x_return_status);
1979:
1980: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
1981: l_dup_exists := HZ_MERGE_DUP_CHECK.check_emp_history_dup(
1982: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1983: x_return_status);
1984: END IF;
1982: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1983: x_return_status);
1984: END IF;
1985:
1986: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
1987: do_employed_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
1988: x_return_status);
1989: END IF;
1990:
1993: WHEN OTHERS THEN
1994: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
1995: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
1996: FND_MSG_PUB.ADD;
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: END emp_history_employed_merge;
1999:
2000: PROCEDURE work_class_merge(
2001: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
1997: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
1998: END emp_history_employed_merge;
1999:
2000: PROCEDURE work_class_merge(
2001: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2002: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2003: x_to_id IN OUT NOCOPY NUMBER,
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
1998: END emp_history_employed_merge;
1999:
2000: PROCEDURE work_class_merge(
2001: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2002: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2003: x_to_id IN OUT NOCOPY NUMBER,
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2006: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2000: PROCEDURE work_class_merge(
2001: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2002: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2003: x_to_id IN OUT NOCOPY NUMBER,
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2006: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2007: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2008: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2001: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2002: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2003: x_to_id IN OUT NOCOPY NUMBER,
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2006: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2007: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2008: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2009: x_return_status OUT NOCOPY VARCHAR2
2002: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2003: x_to_id IN OUT NOCOPY NUMBER,
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2006: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2007: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2008: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2009: x_return_status OUT NOCOPY VARCHAR2
2010: ) IS
2003: x_to_id IN OUT NOCOPY NUMBER,
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2006: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2007: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2008: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2009: x_return_status OUT NOCOPY VARCHAR2
2010: ) IS
2011: l_to_id NUMBER;
2004: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2005: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2006: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2007: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2008: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2009: x_return_status OUT NOCOPY VARCHAR2
2010: ) IS
2011: l_to_id NUMBER;
2012: l_dup_exists VARCHAR2(20);
2012: l_dup_exists VARCHAR2(20);
2013:
2014: BEGIN
2015: IF (x_to_id IS NULL) THEN
2016: l_to_id := FND_API.G_MISS_NUM;
2017: ELSE
2018: l_to_id := x_to_id;
2019: END IF;
2020:
2017: ELSE
2018: l_to_id := x_to_id;
2019: END IF;
2020:
2021: x_return_status := FND_API.G_RET_STS_SUCCESS;
2022:
2023: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2024: p_to_fk_id, p_par_entity_name,
2025: 'HZ_MERGE_PKG.work_class_merge',
2025: 'HZ_MERGE_PKG.work_class_merge',
2026: 'HZ_WORK_CLASS', 'HZ_EMPLOYMENT_HISTORY',
2027: 'WORK_CLASS_ID', 'EMPLOYMENT_HISTORY_ID', x_return_status);
2028:
2029: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2030: l_dup_exists := HZ_MERGE_DUP_CHECK.check_work_class_dup(
2031: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2032: x_return_status);
2033: END IF;
2031: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2032: x_return_status);
2033: END IF;
2034:
2035: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2036: do_work_class_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2037: x_return_status);
2038: END IF;
2039:
2042: WHEN OTHERS THEN
2043: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2044: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2045: FND_MSG_PUB.ADD;
2046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2047: END work_class_merge;
2048:
2049: PROCEDURE code_assignment_merge(
2050: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2046: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2047: END work_class_merge;
2048:
2049: PROCEDURE code_assignment_merge(
2050: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2051: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2052: x_to_id IN OUT NOCOPY NUMBER,
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2047: END work_class_merge;
2048:
2049: PROCEDURE code_assignment_merge(
2050: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2051: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2052: x_to_id IN OUT NOCOPY NUMBER,
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2055: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2049: PROCEDURE code_assignment_merge(
2050: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2051: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2052: x_to_id IN OUT NOCOPY NUMBER,
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2055: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2056: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2057: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2050: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2051: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2052: x_to_id IN OUT NOCOPY NUMBER,
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2055: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2056: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2057: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2058: x_return_status OUT NOCOPY VARCHAR2
2051: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2052: x_to_id IN OUT NOCOPY NUMBER,
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2055: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2056: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2057: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2058: x_return_status OUT NOCOPY VARCHAR2
2059: ) IS
2052: x_to_id IN OUT NOCOPY NUMBER,
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2055: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2056: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2057: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2058: x_return_status OUT NOCOPY VARCHAR2
2059: ) IS
2060: l_to_id NUMBER;
2053: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2054: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2055: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2056: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2057: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2058: x_return_status OUT NOCOPY VARCHAR2
2059: ) IS
2060: l_to_id NUMBER;
2061: l_dup_exists VARCHAR2(20);
2061: l_dup_exists VARCHAR2(20);
2062:
2063: BEGIN
2064: IF (x_to_id IS NULL) THEN
2065: l_to_id := FND_API.G_MISS_NUM;
2066: ELSE
2067: l_to_id := x_to_id;
2068: END IF;
2069:
2066: ELSE
2067: l_to_id := x_to_id;
2068: END IF;
2069:
2070: x_return_status := FND_API.G_RET_STS_SUCCESS;
2071:
2072: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2073: p_to_fk_id, p_par_entity_name,
2074: 'HZ_MERGE_PKG.code_assignment_merge',
2074: 'HZ_MERGE_PKG.code_assignment_merge',
2075: 'HZ_CODE_ASSIGNMENTS','HZ_PARTIES',
2076: 'CODE_ASSIGNMENT_ID', 'PARTY_ID',x_return_status);
2077:
2078: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2079: l_dup_exists := HZ_MERGE_DUP_CHECK.check_code_assignment_dup(
2080: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2081: 'HZ_PARTIES', x_return_status);
2082: END IF;
2080: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2081: 'HZ_PARTIES', x_return_status);
2082: END IF;
2083:
2084: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2085: do_code_assignment_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2086: x_return_status);
2087: END IF;
2088:
2091: WHEN OTHERS THEN
2092: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2093: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2094: FND_MSG_PUB.ADD;
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096: END code_assignment_merge;
2097:
2098: PROCEDURE code_assignment_merge2(
2099: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2095: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2096: END code_assignment_merge;
2097:
2098: PROCEDURE code_assignment_merge2(
2099: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2101: x_to_id IN OUT NOCOPY NUMBER,
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2096: END code_assignment_merge;
2097:
2098: PROCEDURE code_assignment_merge2(
2099: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2101: x_to_id IN OUT NOCOPY NUMBER,
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2104: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2098: PROCEDURE code_assignment_merge2(
2099: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2101: x_to_id IN OUT NOCOPY NUMBER,
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2104: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2105: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2106: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2099: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2101: x_to_id IN OUT NOCOPY NUMBER,
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2104: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2105: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2106: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2107: x_return_status OUT NOCOPY VARCHAR2
2100: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2101: x_to_id IN OUT NOCOPY NUMBER,
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2104: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2105: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2106: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2107: x_return_status OUT NOCOPY VARCHAR2
2108: ) IS
2101: x_to_id IN OUT NOCOPY NUMBER,
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2104: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2105: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2106: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2107: x_return_status OUT NOCOPY VARCHAR2
2108: ) IS
2109: l_to_id NUMBER;
2102: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2103: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2104: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2105: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2106: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2107: x_return_status OUT NOCOPY VARCHAR2
2108: ) IS
2109: l_to_id NUMBER;
2110: l_dup_exists VARCHAR2(20);
2110: l_dup_exists VARCHAR2(20);
2111:
2112: BEGIN
2113: IF (x_to_id IS NULL) THEN
2114: l_to_id := FND_API.G_MISS_NUM;
2115: ELSE
2116: l_to_id := x_to_id;
2117: END IF;
2118:
2115: ELSE
2116: l_to_id := x_to_id;
2117: END IF;
2118:
2119: x_return_status := FND_API.G_RET_STS_SUCCESS;
2120:
2121: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2122: p_to_fk_id, p_par_entity_name,
2123: 'HZ_MERGE_PKG.code_assignment_merge',
2123: 'HZ_MERGE_PKG.code_assignment_merge',
2124: 'HZ_CODE_ASSIGNMENTS','HZ_PARTY_SITES',
2125: 'CODE_ASSIGNMENT_ID', 'PARTY_SITE_ID',x_return_status);
2126:
2127: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2128: l_dup_exists := HZ_MERGE_DUP_CHECK.check_code_assignment_dup(
2129: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2130: 'HZ_PARTY_SITES', x_return_status);
2131: END IF;
2129: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2130: 'HZ_PARTY_SITES', x_return_status);
2131: END IF;
2132:
2133: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2134: do_code_assignment_transfer2(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2135: x_return_status);
2136: END IF;
2137:
2140: WHEN OTHERS THEN
2141: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2142: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2143: FND_MSG_PUB.ADD;
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: END code_assignment_merge2;
2146:
2147: PROCEDURE org_contact_role_merge(
2148: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2144: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2145: END code_assignment_merge2;
2146:
2147: PROCEDURE org_contact_role_merge(
2148: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2150: x_to_id IN OUT NOCOPY NUMBER,
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2145: END code_assignment_merge2;
2146:
2147: PROCEDURE org_contact_role_merge(
2148: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2150: x_to_id IN OUT NOCOPY NUMBER,
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2153: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2147: PROCEDURE org_contact_role_merge(
2148: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2150: x_to_id IN OUT NOCOPY NUMBER,
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2153: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2154: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2155: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2148: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2150: x_to_id IN OUT NOCOPY NUMBER,
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2153: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2154: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2155: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2156: x_return_status OUT NOCOPY VARCHAR2
2149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2150: x_to_id IN OUT NOCOPY NUMBER,
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2153: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2154: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2155: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2156: x_return_status OUT NOCOPY VARCHAR2
2157: ) IS
2150: x_to_id IN OUT NOCOPY NUMBER,
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2153: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2154: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2155: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2156: x_return_status OUT NOCOPY VARCHAR2
2157: ) IS
2158: l_to_id NUMBER;
2151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2153: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2154: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2155: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2156: x_return_status OUT NOCOPY VARCHAR2
2157: ) IS
2158: l_to_id NUMBER;
2159: l_dup_exists VARCHAR2(20);
2159: l_dup_exists VARCHAR2(20);
2160:
2161: BEGIN
2162: IF (x_to_id IS NULL) THEN
2163: l_to_id := FND_API.G_MISS_NUM;
2164: ELSE
2165: l_to_id := x_to_id;
2166: END IF;
2167:
2164: ELSE
2165: l_to_id := x_to_id;
2166: END IF;
2167:
2168: x_return_status := FND_API.G_RET_STS_SUCCESS;
2169:
2170: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2171: p_to_fk_id, p_par_entity_name,
2172: 'HZ_MERGE_PKG.org_contact_role_merge',
2172: 'HZ_MERGE_PKG.org_contact_role_merge',
2173: 'HZ_ORG_CONTACT_ROLES','HZ_ORG_CONTACTS',
2174: 'ORG_CONTACT_ROLE_ID', 'ORG_CONTACT_ID',x_return_status);
2175:
2176: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2177: l_dup_exists := HZ_MERGE_DUP_CHECK.check_org_contact_role_dup(
2178: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2179: x_return_status);
2180: END IF;
2178: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2179: x_return_status);
2180: END IF;
2181:
2182: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2183: do_org_contact_role_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2184: x_return_status);
2185: END IF;
2186:
2189: WHEN OTHERS THEN
2190: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2191: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2192: FND_MSG_PUB.ADD;
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: END org_contact_role_merge;
2195:
2196: PROCEDURE financial_number_merge(
2197: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2193: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2194: END org_contact_role_merge;
2195:
2196: PROCEDURE financial_number_merge(
2197: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2198: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2199: x_to_id IN OUT NOCOPY NUMBER,
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2194: END org_contact_role_merge;
2195:
2196: PROCEDURE financial_number_merge(
2197: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2198: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2199: x_to_id IN OUT NOCOPY NUMBER,
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2202: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2196: PROCEDURE financial_number_merge(
2197: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2198: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2199: x_to_id IN OUT NOCOPY NUMBER,
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2202: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2203: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2204: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2197: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2198: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2199: x_to_id IN OUT NOCOPY NUMBER,
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2202: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2203: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2204: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2205: x_return_status OUT NOCOPY VARCHAR2
2198: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2199: x_to_id IN OUT NOCOPY NUMBER,
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2202: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2203: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2204: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2205: x_return_status OUT NOCOPY VARCHAR2
2206: ) IS
2199: x_to_id IN OUT NOCOPY NUMBER,
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2202: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2203: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2204: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2205: x_return_status OUT NOCOPY VARCHAR2
2206: ) IS
2207: l_to_id NUMBER;
2200: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2201: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2202: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2203: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2204: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2205: x_return_status OUT NOCOPY VARCHAR2
2206: ) IS
2207: l_to_id NUMBER;
2208: l_dup_exists VARCHAR2(20);
2208: l_dup_exists VARCHAR2(20);
2209:
2210: BEGIN
2211: IF (x_to_id IS NULL) THEN
2212: l_to_id := FND_API.G_MISS_NUM;
2213: ELSE
2214: l_to_id := x_to_id;
2215: END IF;
2216:
2213: ELSE
2214: l_to_id := x_to_id;
2215: END IF;
2216:
2217: x_return_status := FND_API.G_RET_STS_SUCCESS;
2218:
2219: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2220: p_to_fk_id, p_par_entity_name,
2221: 'HZ_MERGE_PKG.financial_number_merge',
2221: 'HZ_MERGE_PKG.financial_number_merge',
2222: 'HZ_FINANCIAL_NUMBERS','HZ_FINANCIAL_REPORTS',
2223: 'FINANCIAL_NUMBER_ID', 'FINANCIAL_REPORT_ID',x_return_status);
2224:
2225: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2226: l_dup_exists := HZ_MERGE_DUP_CHECK.check_financial_number_dup(
2227: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2228: x_return_status);
2229: END IF;
2227: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2228: x_return_status);
2229: END IF;
2230:
2231: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2232: do_financial_number_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2233: x_return_status);
2234: END IF;
2235:
2238: WHEN OTHERS THEN
2239: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2240: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2241: FND_MSG_PUB.ADD;
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: END financial_number_merge;
2244:
2245: PROCEDURE per_languages_merge(
2246: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2242: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2243: END financial_number_merge;
2244:
2245: PROCEDURE per_languages_merge(
2246: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2247: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2248: x_to_id IN OUT NOCOPY NUMBER,
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2243: END financial_number_merge;
2244:
2245: PROCEDURE per_languages_merge(
2246: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2247: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2248: x_to_id IN OUT NOCOPY NUMBER,
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2251: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2245: PROCEDURE per_languages_merge(
2246: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2247: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2248: x_to_id IN OUT NOCOPY NUMBER,
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2251: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2252: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2253: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2246: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2247: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2248: x_to_id IN OUT NOCOPY NUMBER,
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2251: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2252: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2253: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2254: x_return_status OUT NOCOPY VARCHAR2
2247: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2248: x_to_id IN OUT NOCOPY NUMBER,
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2251: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2252: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2253: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2254: x_return_status OUT NOCOPY VARCHAR2
2255: ) IS
2248: x_to_id IN OUT NOCOPY NUMBER,
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2251: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2252: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2253: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2254: x_return_status OUT NOCOPY VARCHAR2
2255: ) IS
2256: l_to_id NUMBER;
2249: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2250: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2251: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2252: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2253: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2254: x_return_status OUT NOCOPY VARCHAR2
2255: ) IS
2256: l_to_id NUMBER;
2257: l_dup_exists VARCHAR2(20);
2257: l_dup_exists VARCHAR2(20);
2258:
2259: BEGIN
2260: IF (x_to_id IS NULL) THEN
2261: l_to_id := FND_API.G_MISS_NUM;
2262: ELSE
2263: l_to_id := x_to_id;
2264: END IF;
2265:
2262: ELSE
2263: l_to_id := x_to_id;
2264: END IF;
2265:
2266: x_return_status := FND_API.G_RET_STS_SUCCESS;
2267:
2268: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2269: p_to_fk_id, p_par_entity_name,
2270: 'HZ_MERGE_PKG.per_languages_merge',
2270: 'HZ_MERGE_PKG.per_languages_merge',
2271: 'HZ_PERSON_LANGUAGE','HZ_PARTIES',
2272: 'LANGUAGE_USE_REFERENCE_ID', 'PARTY_ID',x_return_status);
2273:
2274: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2275: l_dup_exists := HZ_MERGE_DUP_CHECK.check_languages_dup(
2276: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2277: x_return_status);
2278: END IF;
2276: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2277: x_return_status);
2278: END IF;
2279:
2280: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2281: do_per_languages_transfer(p_from_id, l_to_id, p_from_fk_id, p_to_fk_id,
2282: x_return_status);
2283: END IF;
2284:
2287: WHEN OTHERS THEN
2288: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2289: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2290: FND_MSG_PUB.ADD;
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: END per_languages_merge;
2293:
2294: PROCEDURE party_site_use_merge(
2295: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2291: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2292: END per_languages_merge;
2293:
2294: PROCEDURE party_site_use_merge(
2295: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2296: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2297: x_to_id IN OUT NOCOPY NUMBER,
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2292: END per_languages_merge;
2293:
2294: PROCEDURE party_site_use_merge(
2295: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2296: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2297: x_to_id IN OUT NOCOPY NUMBER,
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2300: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2294: PROCEDURE party_site_use_merge(
2295: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2296: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2297: x_to_id IN OUT NOCOPY NUMBER,
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2300: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2301: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2302: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2295: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2296: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2297: x_to_id IN OUT NOCOPY NUMBER,
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2300: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2301: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2302: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2303: x_return_status OUT NOCOPY VARCHAR2
2296: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2297: x_to_id IN OUT NOCOPY NUMBER,
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2300: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2301: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2302: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2303: x_return_status OUT NOCOPY VARCHAR2
2304: ) IS
2297: x_to_id IN OUT NOCOPY NUMBER,
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2300: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2301: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2302: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2303: x_return_status OUT NOCOPY VARCHAR2
2304: ) IS
2305: l_to_id NUMBER;
2298: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2299: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2300: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2301: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2302: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2303: x_return_status OUT NOCOPY VARCHAR2
2304: ) IS
2305: l_to_id NUMBER;
2306: l_dup_exists VARCHAR2(20);
2306: l_dup_exists VARCHAR2(20);
2307:
2308: BEGIN
2309: IF (x_to_id IS NULL) THEN
2310: l_to_id := FND_API.G_MISS_NUM;
2311: ELSE
2312: l_to_id := x_to_id;
2313: END IF;
2314:
2311: ELSE
2312: l_to_id := x_to_id;
2313: END IF;
2314:
2315: x_return_status := FND_API.G_RET_STS_SUCCESS;
2316:
2317: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2318: p_to_fk_id, p_par_entity_name,
2319: 'HZ_MERGE_PKG.party_site_use_merge',
2319: 'HZ_MERGE_PKG.party_site_use_merge',
2320: 'HZ_PARTY_SITE_USES','HZ_PARTY_SITES',
2321: 'PARTY_SITE_USE_ID', 'PARTY_SITE_ID',x_return_status);
2322:
2323: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2324: l_dup_exists := HZ_MERGE_DUP_CHECK.check_party_site_use_dup(
2325: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2326: x_return_status);
2327: END IF;
2325: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2326: x_return_status);
2327: END IF;
2328:
2329: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2330: do_party_site_use_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2331: x_return_status);
2332: END IF;
2333:
2336: WHEN OTHERS THEN
2337: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2338: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2339: FND_MSG_PUB.ADD;
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2341: END party_site_use_merge;
2342:
2343: PROCEDURE contact_point_merge2(
2344: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2340: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2341: END party_site_use_merge;
2342:
2343: PROCEDURE contact_point_merge2(
2344: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2345: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2346: x_to_id IN OUT NOCOPY NUMBER,
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2341: END party_site_use_merge;
2342:
2343: PROCEDURE contact_point_merge2(
2344: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2345: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2346: x_to_id IN OUT NOCOPY NUMBER,
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2349: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2343: PROCEDURE contact_point_merge2(
2344: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2345: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2346: x_to_id IN OUT NOCOPY NUMBER,
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2349: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2350: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2351: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2344: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2345: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2346: x_to_id IN OUT NOCOPY NUMBER,
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2349: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2350: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2351: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2352: x_return_status OUT NOCOPY VARCHAR2
2345: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2346: x_to_id IN OUT NOCOPY NUMBER,
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2349: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2350: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2351: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2352: x_return_status OUT NOCOPY VARCHAR2
2353: ) IS
2346: x_to_id IN OUT NOCOPY NUMBER,
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2349: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2350: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2351: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2352: x_return_status OUT NOCOPY VARCHAR2
2353: ) IS
2354: l_to_id NUMBER;
2347: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2348: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2349: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2350: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2351: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2352: x_return_status OUT NOCOPY VARCHAR2
2353: ) IS
2354: l_to_id NUMBER;
2355: l_dup_exists VARCHAR2(20);
2356: l_dummy_id NUMBER;
2357:
2358: BEGIN
2359: IF (x_to_id IS NULL) THEN
2360: l_to_id := FND_API.G_MISS_NUM;
2361: ELSE
2362: l_to_id := x_to_id;
2363: END IF;
2364:
2361: ELSE
2362: l_to_id := x_to_id;
2363: END IF;
2364:
2365: x_return_status := FND_API.G_RET_STS_SUCCESS;
2366:
2367:
2368: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2369: p_to_fk_id, p_par_entity_name,
2370: 'HZ_MERGE_PKG.contact_point_merge2',
2371: 'HZ_CONTACT_POINTS','HZ_PARTY_SITES',
2372: 'CONTACT_POINT_ID', 'PARTY_SITE_ID',x_return_status);
2373:
2374: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2375: l_dup_exists := HZ_MERGE_DUP_CHECK.check_contact_point_dup(
2376: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2377: 'HZ_PARTY_SITES', x_return_status);
2378: END IF;
2376: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2377: 'HZ_PARTY_SITES', x_return_status);
2378: END IF;
2379:
2380: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2381: do_contact_point_transfer2(p_from_id, l_to_id, p_from_fk_id, p_to_fk_id,
2382: x_return_status);
2383: END IF;
2384:
2381: do_contact_point_transfer2(p_from_id, l_to_id, p_from_fk_id, p_to_fk_id,
2382: x_return_status);
2383: END IF;
2384:
2385: IF (l_to_id IS NULL OR l_to_id = FND_API.G_MISS_NUM OR
2386: l_to_id = p_from_id) THEN
2387: FOR CPT IN (
2388: SELECT CONTACT_POINT_ID FROM HZ_STAGED_CONTACT_POINTS
2389: WHERE CONTACT_POINT_ID=p_from_id) LOOP
2401: WHEN OTHERS THEN
2402: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2403: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2404: FND_MSG_PUB.ADD;
2405: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2406: END contact_point_merge2;
2407:
2408: /*===========================================================================+
2409: | PROCEDURE |
2434: | Kate Shan 21-Aug-00 Created |
2435: | |
2436: +===========================================================================*/
2437: PROCEDURE contact_preference_merge(
2438: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2439: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2440: x_to_id IN OUT NOCOPY NUMBER,
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2435: | |
2436: +===========================================================================*/
2437: PROCEDURE contact_preference_merge(
2438: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2439: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2440: x_to_id IN OUT NOCOPY NUMBER,
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2443: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2437: PROCEDURE contact_preference_merge(
2438: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2439: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2440: x_to_id IN OUT NOCOPY NUMBER,
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2443: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2444: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2445: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2438: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2439: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2440: x_to_id IN OUT NOCOPY NUMBER,
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2443: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2444: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2445: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2446: x_return_status OUT NOCOPY VARCHAR2
2439: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2440: x_to_id IN OUT NOCOPY NUMBER,
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2443: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2444: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2445: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2446: x_return_status OUT NOCOPY VARCHAR2
2447: ) IS
2440: x_to_id IN OUT NOCOPY NUMBER,
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2443: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2444: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2445: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2446: x_return_status OUT NOCOPY VARCHAR2
2447: ) IS
2448: l_to_id NUMBER;
2441: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2442: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2443: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2444: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2445: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2446: x_return_status OUT NOCOPY VARCHAR2
2447: ) IS
2448: l_to_id NUMBER;
2449: l_dup_exists VARCHAR2(20);
2449: l_dup_exists VARCHAR2(20);
2450:
2451: BEGIN
2452: IF (x_to_id IS NULL) THEN
2453: l_to_id := FND_API.G_MISS_NUM;
2454: ELSE
2455: l_to_id := x_to_id;
2456: END IF;
2457:
2454: ELSE
2455: l_to_id := x_to_id;
2456: END IF;
2457:
2458: x_return_status := FND_API.G_RET_STS_SUCCESS;
2459:
2460: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2461: p_to_fk_id, p_par_entity_name,
2462: 'HZ_MERGE_PKG.contact_preference_merge',
2462: 'HZ_MERGE_PKG.contact_preference_merge',
2463: 'HZ_CONTACT_PREFERENCES','HZ_PARTIES',
2464: 'CONTACT_PREFERENCE_ID', 'PARTY_ID',x_return_status);
2465:
2466: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2467: l_dup_exists := HZ_MERGE_DUP_CHECK.check_contact_preference_dup(
2468: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2469: 'HZ_PARTIES',x_return_status);
2470: END IF;
2468: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2469: 'HZ_PARTIES',x_return_status);
2470: END IF;
2471:
2472: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2473: do_contact_pref_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2474: x_return_status);
2475: END IF;
2476:
2479: WHEN OTHERS THEN
2480: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2481: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2482: FND_MSG_PUB.ADD;
2483: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2484: END contact_preference_merge;
2485:
2486: /*===========================================================================+
2487: | PROCEDURE |
2512: | Kate 21-Aug-00 Created |
2513: | |
2514: +===========================================================================*/
2515: PROCEDURE contact_preference_merge2(
2516: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2517: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2518: x_to_id IN OUT NOCOPY NUMBER,
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2513: | |
2514: +===========================================================================*/
2515: PROCEDURE contact_preference_merge2(
2516: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2517: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2518: x_to_id IN OUT NOCOPY NUMBER,
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2521: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2515: PROCEDURE contact_preference_merge2(
2516: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2517: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2518: x_to_id IN OUT NOCOPY NUMBER,
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2521: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2522: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2523: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2516: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2517: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2518: x_to_id IN OUT NOCOPY NUMBER,
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2521: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2522: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2523: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2524: x_return_status OUT NOCOPY VARCHAR2
2517: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2518: x_to_id IN OUT NOCOPY NUMBER,
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2521: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2522: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2523: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2524: x_return_status OUT NOCOPY VARCHAR2
2525: ) IS
2518: x_to_id IN OUT NOCOPY NUMBER,
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2521: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2522: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2523: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2524: x_return_status OUT NOCOPY VARCHAR2
2525: ) IS
2526: l_to_id NUMBER;
2519: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2520: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2521: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2522: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2523: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2524: x_return_status OUT NOCOPY VARCHAR2
2525: ) IS
2526: l_to_id NUMBER;
2527: l_dup_exists VARCHAR2(20);
2527: l_dup_exists VARCHAR2(20);
2528:
2529: BEGIN
2530: IF (x_to_id IS NULL) THEN
2531: l_to_id := FND_API.G_MISS_NUM;
2532: ELSE
2533: l_to_id := x_to_id;
2534: END IF;
2535:
2532: ELSE
2533: l_to_id := x_to_id;
2534: END IF;
2535:
2536: x_return_status := FND_API.G_RET_STS_SUCCESS;
2537:
2538: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2539: p_to_fk_id, p_par_entity_name,
2540: 'HZ_MERGE_PKG.contact_preference_merge2',
2540: 'HZ_MERGE_PKG.contact_preference_merge2',
2541: 'HZ_CONTACT_PREFERENCES','HZ_PARTY_SITES',
2542: 'CONTACT_PREFERENCE_ID', 'PARTY_SITE_ID',x_return_status);
2543:
2544: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2545: l_dup_exists := HZ_MERGE_DUP_CHECK.check_contact_preference_dup(
2546: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2547: 'HZ_PARTY_SITES',x_return_status);
2548: END IF;
2546: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2547: 'HZ_PARTY_SITES',x_return_status);
2548: END IF;
2549:
2550: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2551: do_contact_pref_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2552: x_return_status);
2553: END IF;
2554:
2557: WHEN OTHERS THEN
2558: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2559: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2560: FND_MSG_PUB.ADD;
2561: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2562: END contact_preference_merge2;
2563:
2564:
2565: /*===========================================================================+
2591: | Kate Shan 21-Aug-00 Created |
2592: | |
2593: +===========================================================================*/
2594: PROCEDURE contact_preference_merge3(
2595: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2597: x_to_id IN OUT NOCOPY NUMBER,
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2592: | |
2593: +===========================================================================*/
2594: PROCEDURE contact_preference_merge3(
2595: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2597: x_to_id IN OUT NOCOPY NUMBER,
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2600: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2594: PROCEDURE contact_preference_merge3(
2595: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2597: x_to_id IN OUT NOCOPY NUMBER,
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2600: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2601: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2602: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2595: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2597: x_to_id IN OUT NOCOPY NUMBER,
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2600: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2601: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2602: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2603: x_return_status OUT NOCOPY VARCHAR2
2596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2597: x_to_id IN OUT NOCOPY NUMBER,
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2600: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2601: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2602: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2603: x_return_status OUT NOCOPY VARCHAR2
2604: ) IS
2597: x_to_id IN OUT NOCOPY NUMBER,
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2600: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2601: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2602: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2603: x_return_status OUT NOCOPY VARCHAR2
2604: ) IS
2605: l_to_id NUMBER;
2598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2600: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2601: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2602: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2603: x_return_status OUT NOCOPY VARCHAR2
2604: ) IS
2605: l_to_id NUMBER;
2606: l_dup_exists VARCHAR2(20);
2606: l_dup_exists VARCHAR2(20);
2607:
2608: BEGIN
2609: IF (x_to_id IS NULL) THEN
2610: l_to_id := FND_API.G_MISS_NUM;
2611: ELSE
2612: l_to_id := x_to_id;
2613: END IF;
2614:
2611: ELSE
2612: l_to_id := x_to_id;
2613: END IF;
2614:
2615: x_return_status := FND_API.G_RET_STS_SUCCESS;
2616:
2617: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2618: p_to_fk_id, p_par_entity_name,
2619: 'HZ_MERGE_PKG.contact_preference_merge3',
2619: 'HZ_MERGE_PKG.contact_preference_merge3',
2620: 'HZ_CONTACT_PREFERENCES','HZ_CONTACT_POINTS',
2621: 'CONTACT_PREFERENCE_ID', 'CONTACT_POINT_ID',x_return_status);
2622:
2623: IF (x_return_status = FND_API.G_RET_STS_SUCCESS AND l_to_id = FND_API.G_MISS_NUM) THEN
2624: l_dup_exists := HZ_MERGE_DUP_CHECK.check_contact_preference_dup(
2625: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2626: 'HZ_CONTACT_POINTS',x_return_status);
2627: END IF;
2625: p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2626: 'HZ_CONTACT_POINTS',x_return_status);
2627: END IF;
2628:
2629: IF (x_return_status =FND_API.G_RET_STS_SUCCESS) THEN
2630: do_contact_pref_transfer(p_from_id,l_to_id, p_from_fk_id, p_to_fk_id,
2631: x_return_status);
2632: END IF;
2633:
2636: WHEN OTHERS THEN
2637: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2638: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2639: FND_MSG_PUB.ADD;
2640: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2641: END contact_preference_merge3;
2642:
2643:
2644: PROCEDURE displayed_duns_merge(
2641: END contact_preference_merge3;
2642:
2643:
2644: PROCEDURE displayed_duns_merge(
2645: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2646: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2647: x_to_id IN OUT NOCOPY NUMBER,
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2642:
2643:
2644: PROCEDURE displayed_duns_merge(
2645: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2646: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2647: x_to_id IN OUT NOCOPY NUMBER,
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2650: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2644: PROCEDURE displayed_duns_merge(
2645: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2646: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2647: x_to_id IN OUT NOCOPY NUMBER,
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2650: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2651: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2652: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2645: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2646: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2647: x_to_id IN OUT NOCOPY NUMBER,
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2650: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2651: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2652: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2653: x_return_status OUT NOCOPY VARCHAR2
2646: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2647: x_to_id IN OUT NOCOPY NUMBER,
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2650: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2651: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2652: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2653: x_return_status OUT NOCOPY VARCHAR2
2654: ) IS
2647: x_to_id IN OUT NOCOPY NUMBER,
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2650: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2651: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2652: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2653: x_return_status OUT NOCOPY VARCHAR2
2654: ) IS
2655:
2648: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2649: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2650: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2651: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
2652: p_batch_party_id IN NUMBER:=FND_API.G_MISS_NUM,
2653: x_return_status OUT NOCOPY VARCHAR2
2654: ) IS
2655:
2656: l_to_id NUMBER;
2656: l_to_id NUMBER;
2657:
2658: BEGIN
2659: IF (x_to_id IS NULL) THEN
2660: l_to_id := FND_API.G_MISS_NUM;
2661: ELSE
2662: l_to_id := x_to_id;
2663: END IF;
2664:
2661: ELSE
2662: l_to_id := x_to_id;
2663: END IF;
2664:
2665: x_return_status := FND_API.G_RET_STS_SUCCESS;
2666:
2667: check_params(p_entity_name, p_from_id, l_to_id, p_from_fk_id,
2668: p_to_fk_id, p_par_entity_name,
2669: 'HZ_MERGE_PKG.displayed_duns_merge',
2676: WHEN OTHERS THEN
2677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2678: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2679: FND_MSG_PUB.ADD;
2680: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2681: END displayed_duns_merge;
2682:
2683:
2684: PROCEDURE check_params(
2681: END displayed_duns_merge;
2682:
2683:
2684: PROCEDURE check_params(
2685: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2686: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2687: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2682:
2683:
2684: PROCEDURE check_params(
2685: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2686: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2687: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2683:
2684: PROCEDURE check_params(
2685: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2686: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2687: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2684: PROCEDURE check_params(
2685: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2686: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2687: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2685: p_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2686: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2687: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2693: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2686: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2687: p_to_id IN NUMBER:=FND_API.G_MISS_NUM,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2693: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2694: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2688: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2693: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2694: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2695: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2696: x_return_status IN OUT NOCOPY VARCHAR2
2689: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2693: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2694: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2695: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2696: x_return_status IN OUT NOCOPY VARCHAR2
2697: ) IS
2690: p_par_entity_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2693: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2694: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2695: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2696: x_return_status IN OUT NOCOPY VARCHAR2
2697: ) IS
2698:
2691: p_proc_name IN VARCHAR2,
2692: p_exp_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2693: p_exp_par_ent_name IN VARCHAR2:=FND_API.G_MISS_CHAR,
2694: p_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2695: p_par_pk_column IN VARCHAR2:=FND_API.G_MISS_CHAR,
2696: x_return_status IN OUT NOCOPY VARCHAR2
2697: ) IS
2698:
2699: BEGIN
2703: FND_MESSAGE.SET_TOKEN('ENTITY' ,p_entity_name);
2704: FND_MESSAGE.SET_TOKEN('PENTITY' ,p_par_entity_name);
2705: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2706: FND_MSG_PUB.ADD;
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2708: END IF;
2709:
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2706: FND_MSG_PUB.ADD;
2707: x_return_status := FND_API.G_RET_STS_ERROR;
2708: END IF;
2709:
2710: IF (p_from_id = FND_API.G_MISS_NUM) THEN
2711: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_REC');
2712: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2713: FND_MESSAGE.SET_TOKEN('ENTITY',p_entity_name);
2714: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2715: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2716: FND_MSG_PUB.ADD;
2717: x_return_status := FND_API.G_RET_STS_ERROR;
2718: END IF;
2719:
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2716: FND_MSG_PUB.ADD;
2717: x_return_status := FND_API.G_RET_STS_ERROR;
2718: END IF;
2719:
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2717: x_return_status := FND_API.G_RET_STS_ERROR;
2718: END IF;
2719:
2720: IF (p_exp_par_ent_name <> FND_API.G_MISS_CHAR AND
2721: p_to_fk_id = FND_API.G_MISS_NUM ) THEN
2722: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_FROM_PAR_REC');
2723: FND_MESSAGE.SET_TOKEN('MPROC' ,p_proc_name);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2724: FND_MESSAGE.SET_TOKEN('ENTITY',p_par_entity_name);
2725: FND_MESSAGE.SET_TOKEN('PKCOL',p_pk_column);
2726: FND_MESSAGE.SET_TOKEN('PKVALUE',p_to_id);
2727: FND_MSG_PUB.ADD;
2728: x_return_status := FND_API.G_RET_STS_ERROR;
2729: END IF;
2730: EXCEPTION
2731: WHEN OTHERS THEN
2732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2731: WHEN OTHERS THEN
2732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2733: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2734: FND_MSG_PUB.ADD;
2735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2736: END check_params;
2737:
2738: /***** Private Procedure *****/
2739:
2737:
2738: /***** Private Procedure *****/
2739:
2740: PROCEDURE do_cust_account_transfer(
2741: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2742: x_to_id IN OUT NOCOPY NUMBER,
2743: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2744: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2745: x_return_status IN OUT NOCOPY VARCHAR2
2739:
2740: PROCEDURE do_cust_account_transfer(
2741: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2742: x_to_id IN OUT NOCOPY NUMBER,
2743: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2744: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2745: x_return_status IN OUT NOCOPY VARCHAR2
2746: ) IS
2747: l_msg_data VARCHAR2(2000);
2740: PROCEDURE do_cust_account_transfer(
2741: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2742: x_to_id IN OUT NOCOPY NUMBER,
2743: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2744: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2745: x_return_status IN OUT NOCOPY VARCHAR2
2746: ) IS
2747: l_msg_data VARCHAR2(2000);
2748: l_msg_count NUMBER := 0;
2747: l_msg_data VARCHAR2(2000);
2748: l_msg_count NUMBER := 0;
2749: BEGIN
2750:
2751: IF (x_to_id <> FND_API.G_MISS_NUM AND
2752: x_to_id <> p_from_id) THEN
2753: UPDATE HZ_CUST_ACCOUNTS
2754: SET
2755: STATUS = 'M',
2761: program_id = hz_utility_pub.program_id,
2762: program_update_date = sysdate
2763: WHERE cust_account_id = p_from_id;
2764: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
2765: p_init_msg_list => FND_API.G_FALSE,
2766: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
2767: p_old_owner_table_id => p_from_id,
2768: p_new_owner_table_id => x_to_id,
2769: p_owner_table_name =>'HZ_CUST_ACCOUNTS',
2762: program_update_date = sysdate
2763: WHERE cust_account_id = p_from_id;
2764: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
2765: p_init_msg_list => FND_API.G_FALSE,
2766: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
2767: p_old_owner_table_id => p_from_id,
2768: p_new_owner_table_id => x_to_id,
2769: p_owner_table_name =>'HZ_CUST_ACCOUNTS',
2770: p_orig_system => null,
2772: p_reason_code => 'MERGED',
2773: x_return_status => x_return_status,
2774: x_msg_count =>l_msg_count,
2775: x_msg_data =>l_msg_data);
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2778: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2779: FND_MSG_PUB.ADD;
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2776: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2777: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2778: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2779: FND_MSG_PUB.ADD;
2780: x_return_status := FND_API.G_RET_STS_ERROR;
2781: RETURN;
2782: END IF;
2783: ELSE
2784: -- Update and set party_id = p_to_fk_id where pk = from_id
2799: WHEN OTHERS THEN
2800: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2801: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2802: FND_MSG_PUB.ADD;
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804: END do_cust_account_transfer;
2805:
2806: PROCEDURE do_cust_account_role_transfer(
2807: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2803: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2804: END do_cust_account_transfer;
2805:
2806: PROCEDURE do_cust_account_role_transfer(
2807: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2808: x_to_id IN OUT NOCOPY NUMBER,
2809: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2810: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2811: x_return_status IN OUT NOCOPY VARCHAR2
2805:
2806: PROCEDURE do_cust_account_role_transfer(
2807: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2808: x_to_id IN OUT NOCOPY NUMBER,
2809: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2810: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2811: x_return_status IN OUT NOCOPY VARCHAR2
2812: ) IS
2813:
2806: PROCEDURE do_cust_account_role_transfer(
2807: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2808: x_to_id IN OUT NOCOPY NUMBER,
2809: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2810: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2811: x_return_status IN OUT NOCOPY VARCHAR2
2812: ) IS
2813:
2814: l_msg_data VARCHAR2(2000);
2836: l_status VARCHAR2(1);
2837: l_count NUMBER;
2838: --End of Bug No : 3373079
2839: BEGIN
2840: l_g_miss_num := FND_API.G_MISS_NUM;
2841:
2842: IF (x_to_id <> FND_API.G_MISS_NUM AND
2843: x_to_id <> p_from_id) THEN
2844: UPDATE HZ_CUST_ACCOUNT_ROLES
2838: --End of Bug No : 3373079
2839: BEGIN
2840: l_g_miss_num := FND_API.G_MISS_NUM;
2841:
2842: IF (x_to_id <> FND_API.G_MISS_NUM AND
2843: x_to_id <> p_from_id) THEN
2844: UPDATE HZ_CUST_ACCOUNT_ROLES
2845: SET
2846: STATUS = 'M',
2853: program_update_date = sysdate
2854: WHERE cust_account_role_id = p_from_id;
2855:
2856: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
2857: p_init_msg_list => FND_API.G_FALSE,
2858: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
2859: p_old_owner_table_id => p_from_id,
2860: p_new_owner_table_id => x_to_id,
2861: p_owner_table_name =>'HZ_CUST_ACCOUNT_ROLES',
2854: WHERE cust_account_role_id = p_from_id;
2855:
2856: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
2857: p_init_msg_list => FND_API.G_FALSE,
2858: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
2859: p_old_owner_table_id => p_from_id,
2860: p_new_owner_table_id => x_to_id,
2861: p_owner_table_name =>'HZ_CUST_ACCOUNT_ROLES',
2862: p_orig_system => null,
2864: p_reason_code => 'MERGED',
2865: x_return_status => x_return_status,
2866: x_msg_count =>l_msg_count,
2867: x_msg_data =>l_msg_data);
2868: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2869: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2870: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2871: FND_MSG_PUB.ADD;
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2868: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
2869: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2870: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
2871: FND_MSG_PUB.ADD;
2872: x_return_status := FND_API.G_RET_STS_ERROR;
2873: RETURN;
2874: END IF;
2875: ELSE
2876: --Start of Bug No : 3373079. Duplicate account roles should not be created through the party merge.
2912: WHEN OTHERS THEN
2913: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2914: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2915: FND_MSG_PUB.ADD;
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: END do_cust_account_role_transfer;
2918:
2919: PROCEDURE do_fin_profile_transfer(
2920: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2916: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2917: END do_cust_account_role_transfer;
2918:
2919: PROCEDURE do_fin_profile_transfer(
2920: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2921: x_to_id IN OUT NOCOPY NUMBER,
2922: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2923: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2924: x_return_status IN OUT NOCOPY VARCHAR2
2918:
2919: PROCEDURE do_fin_profile_transfer(
2920: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2921: x_to_id IN OUT NOCOPY NUMBER,
2922: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2923: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2924: x_return_status IN OUT NOCOPY VARCHAR2
2925: ) IS
2926:
2919: PROCEDURE do_fin_profile_transfer(
2920: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2921: x_to_id IN OUT NOCOPY NUMBER,
2922: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2923: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2924: x_return_status IN OUT NOCOPY VARCHAR2
2925: ) IS
2926:
2927: BEGIN
2925: ) IS
2926:
2927: BEGIN
2928:
2929: IF (x_to_id <> FND_API.G_MISS_NUM AND
2930: x_to_id <> p_from_id) THEN
2931: UPDATE HZ_FINANCIAL_PROFILE
2932: SET
2933: STATUS = 'M',
2959: WHEN OTHERS THEN
2960: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
2961: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
2962: FND_MSG_PUB.ADD;
2963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2964: END do_fin_profile_transfer;
2965:
2966: PROCEDURE do_contact_point_transfer(
2967: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2963: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
2964: END do_fin_profile_transfer;
2965:
2966: PROCEDURE do_contact_point_transfer(
2967: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2968: x_to_id IN OUT NOCOPY NUMBER,
2969: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2970: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2971: x_return_status IN OUT NOCOPY VARCHAR2
2965:
2966: PROCEDURE do_contact_point_transfer(
2967: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2968: x_to_id IN OUT NOCOPY NUMBER,
2969: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2970: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2971: x_return_status IN OUT NOCOPY VARCHAR2
2972: ) IS
2973:
2966: PROCEDURE do_contact_point_transfer(
2967: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
2968: x_to_id IN OUT NOCOPY NUMBER,
2969: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2970: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
2971: x_return_status IN OUT NOCOPY VARCHAR2
2972: ) IS
2973:
2974: l_exists VARCHAR2(10);
3004:
3005: ----------------
3006: BEGIN
3007:
3008: IF (x_to_id <> FND_API.G_MISS_NUM AND
3009: x_to_id <> p_from_id) THEN
3010: UPDATE HZ_CONTACT_POINTS
3011: SET
3012: STATUS = 'M',
3023: AND RECORD_ID=p_from_id AND ENTITY='CONTACT_POINTS'
3024: AND OPERATION <> 'D';
3025:
3026: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3027: p_init_msg_list => FND_API.G_FALSE,
3028: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3029: p_old_owner_table_id => p_from_id,
3030: p_new_owner_table_id => x_to_id,
3031: p_owner_table_name =>'HZ_CONTACT_POINTS',
3024: AND OPERATION <> 'D';
3025:
3026: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3027: p_init_msg_list => FND_API.G_FALSE,
3028: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3029: p_old_owner_table_id => p_from_id,
3030: p_new_owner_table_id => x_to_id,
3031: p_owner_table_name =>'HZ_CONTACT_POINTS',
3032: p_orig_system => null,
3034: p_reason_code => 'MERGED',
3035: x_return_status => x_return_status,
3036: x_msg_count =>l_msg_count,
3037: x_msg_data =>l_msg_data);
3038: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3039: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3040: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3041: FND_MSG_PUB.ADD;
3042: x_return_status := FND_API.G_RET_STS_ERROR;
3038: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3039: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3040: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3041: FND_MSG_PUB.ADD;
3042: x_return_status := FND_API.G_RET_STS_ERROR;
3043: RETURN;
3044: END IF;
3045:
3046: ELSE
3130: WHEN OTHERS THEN
3131: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3132: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3133: FND_MSG_PUB.ADD;
3134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3135: END do_contact_point_transfer;
3136:
3137: PROCEDURE do_contact_point_transfer2(
3138: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3134: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3135: END do_contact_point_transfer;
3136:
3137: PROCEDURE do_contact_point_transfer2(
3138: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3139: x_to_id IN OUT NOCOPY NUMBER,
3140: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3141: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3142: x_return_status IN OUT NOCOPY VARCHAR2
3136:
3137: PROCEDURE do_contact_point_transfer2(
3138: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3139: x_to_id IN OUT NOCOPY NUMBER,
3140: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3141: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3142: x_return_status IN OUT NOCOPY VARCHAR2
3143: ) IS
3144:
3137: PROCEDURE do_contact_point_transfer2(
3138: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3139: x_to_id IN OUT NOCOPY NUMBER,
3140: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3141: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3142: x_return_status IN OUT NOCOPY VARCHAR2
3143: ) IS
3144:
3145: l_msg_data VARCHAR2(2000);
3161:
3162:
3163: BEGIN
3164:
3165: IF (x_to_id <> FND_API.G_MISS_NUM AND
3166: x_to_id <> p_from_id) THEN
3167: -- Update and set status to merged
3168: UPDATE HZ_CONTACT_POINTS
3169: SET
3181: AND RECORD_ID=p_from_id AND ENTITY='CONTACT_POINTS'
3182: AND OPERATION <> 'D';
3183:
3184: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3185: p_init_msg_list => FND_API.G_FALSE,
3186: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3187: p_old_owner_table_id => p_from_id,
3188: p_new_owner_table_id => x_to_id,
3189: p_owner_table_name =>'HZ_CONTACT_POINTS',
3182: AND OPERATION <> 'D';
3183:
3184: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3185: p_init_msg_list => FND_API.G_FALSE,
3186: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3187: p_old_owner_table_id => p_from_id,
3188: p_new_owner_table_id => x_to_id,
3189: p_owner_table_name =>'HZ_CONTACT_POINTS',
3190: p_orig_system => null,
3192: p_reason_code => 'MERGED',
3193: x_return_status => x_return_status,
3194: x_msg_count =>l_msg_count,
3195: x_msg_data =>l_msg_data);
3196: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3197: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3198: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3199: FND_MSG_PUB.ADD;
3200: x_return_status := FND_API.G_RET_STS_ERROR;
3196: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3197: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3198: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3199: FND_MSG_PUB.ADD;
3200: x_return_status := FND_API.G_RET_STS_ERROR;
3201: RETURN;
3202: END IF;
3203: ELSE
3204: --- Transfer ---
3262: WHEN OTHERS THEN
3263: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3264: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3265: FND_MSG_PUB.ADD;
3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267: END do_contact_point_transfer2;
3268:
3269: PROCEDURE do_contact_pref_transfer(
3270: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3266: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3267: END do_contact_point_transfer2;
3268:
3269: PROCEDURE do_contact_pref_transfer(
3270: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3271: x_to_id IN OUT NOCOPY NUMBER,
3272: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3273: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3274: x_return_status IN OUT NOCOPY VARCHAR2
3268:
3269: PROCEDURE do_contact_pref_transfer(
3270: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3271: x_to_id IN OUT NOCOPY NUMBER,
3272: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3273: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3274: x_return_status IN OUT NOCOPY VARCHAR2
3275: ) IS
3276:
3269: PROCEDURE do_contact_pref_transfer(
3270: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3271: x_to_id IN OUT NOCOPY NUMBER,
3272: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3273: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3274: x_return_status IN OUT NOCOPY VARCHAR2
3275: ) IS
3276:
3277: BEGIN
3274: x_return_status IN OUT NOCOPY VARCHAR2
3275: ) IS
3276:
3277: BEGIN
3278: IF (x_to_id <> FND_API.G_MISS_NUM AND
3279: x_to_id <> p_from_id) THEN
3280: UPDATE HZ_CONTACT_PREFERENCES
3281: SET
3282: status = 'M',
3308: WHEN OTHERS THEN
3309: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3310: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3311: FND_MSG_PUB.ADD;
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: END do_contact_pref_transfer;
3314:
3315: PROCEDURE do_references_transfer(
3316: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3312: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3313: END do_contact_pref_transfer;
3314:
3315: PROCEDURE do_references_transfer(
3316: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3317: x_to_id IN OUT NOCOPY NUMBER,
3318: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3319: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3320: x_return_status IN OUT NOCOPY VARCHAR2
3314:
3315: PROCEDURE do_references_transfer(
3316: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3317: x_to_id IN OUT NOCOPY NUMBER,
3318: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3319: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3320: x_return_status IN OUT NOCOPY VARCHAR2
3321: ) IS
3322:
3315: PROCEDURE do_references_transfer(
3316: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3317: x_to_id IN OUT NOCOPY NUMBER,
3318: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3319: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3320: x_return_status IN OUT NOCOPY VARCHAR2
3321: ) IS
3322:
3323: BEGIN
3321: ) IS
3322:
3323: BEGIN
3324:
3325: IF (x_to_id <> FND_API.G_MISS_NUM AND
3326: x_to_id <> p_from_id) THEN
3327: UPDATE HZ_REFERENCES
3328: SET
3329: status = 'M',
3355: WHEN OTHERS THEN
3356: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3357: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3358: FND_MSG_PUB.ADD;
3359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3360: END do_references_transfer;
3361:
3362: PROCEDURE do_certification_transfer(
3363: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3359: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3360: END do_references_transfer;
3361:
3362: PROCEDURE do_certification_transfer(
3363: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3364: x_to_id IN OUT NOCOPY NUMBER,
3365: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3366: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3367: x_return_status IN OUT NOCOPY VARCHAR2
3361:
3362: PROCEDURE do_certification_transfer(
3363: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3364: x_to_id IN OUT NOCOPY NUMBER,
3365: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3366: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3367: x_return_status IN OUT NOCOPY VARCHAR2
3368: ) IS
3369:
3362: PROCEDURE do_certification_transfer(
3363: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3364: x_to_id IN OUT NOCOPY NUMBER,
3365: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3366: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3367: x_return_status IN OUT NOCOPY VARCHAR2
3368: ) IS
3369:
3370: BEGIN
3368: ) IS
3369:
3370: BEGIN
3371:
3372: IF (x_to_id <> FND_API.G_MISS_NUM AND
3373: x_to_id <> p_from_id) THEN
3374: UPDATE HZ_CERTIFICATIONS
3375: SET
3376: STATUS = 'M',
3402: WHEN OTHERS THEN
3403: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3404: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3405: FND_MSG_PUB.ADD;
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: END do_certification_transfer;
3408:
3409: PROCEDURE do_credit_ratings_transfer(
3410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3406: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3407: END do_certification_transfer;
3408:
3409: PROCEDURE do_credit_ratings_transfer(
3410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3411: x_to_id IN OUT NOCOPY NUMBER,
3412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3414: x_return_status IN OUT NOCOPY VARCHAR2
3408:
3409: PROCEDURE do_credit_ratings_transfer(
3410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3411: x_to_id IN OUT NOCOPY NUMBER,
3412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3414: x_return_status IN OUT NOCOPY VARCHAR2
3415: ) IS
3416:
3409: PROCEDURE do_credit_ratings_transfer(
3410: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3411: x_to_id IN OUT NOCOPY NUMBER,
3412: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3413: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3414: x_return_status IN OUT NOCOPY VARCHAR2
3415: ) IS
3416:
3417: BEGIN
3415: ) IS
3416:
3417: BEGIN
3418:
3419: IF (x_to_id <> FND_API.G_MISS_NUM AND
3420: x_to_id <> p_from_id) THEN
3421: UPDATE HZ_CREDIT_RATINGS
3422: SET
3423: STATUS = 'M',
3449: WHEN OTHERS THEN
3450: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3451: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3452: FND_MSG_PUB.ADD;
3453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3454: END do_credit_ratings_transfer;
3455:
3456: PROCEDURE do_security_issued_transfer(
3457: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3453: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3454: END do_credit_ratings_transfer;
3455:
3456: PROCEDURE do_security_issued_transfer(
3457: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3458: x_to_id IN OUT NOCOPY NUMBER,
3459: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3460: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3461: x_return_status IN OUT NOCOPY VARCHAR2
3455:
3456: PROCEDURE do_security_issued_transfer(
3457: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3458: x_to_id IN OUT NOCOPY NUMBER,
3459: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3460: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3461: x_return_status IN OUT NOCOPY VARCHAR2
3462: ) IS
3463:
3456: PROCEDURE do_security_issued_transfer(
3457: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3458: x_to_id IN OUT NOCOPY NUMBER,
3459: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3460: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3461: x_return_status IN OUT NOCOPY VARCHAR2
3462: ) IS
3463:
3464: BEGIN
3462: ) IS
3463:
3464: BEGIN
3465:
3466: IF (x_to_id <> FND_API.G_MISS_NUM AND
3467: x_to_id <> p_from_id) THEN
3468: UPDATE HZ_SECURITY_ISSUED
3469: SET
3470: STATUS = 'M',
3496: WHEN OTHERS THEN
3497: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3498: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3499: FND_MSG_PUB.ADD;
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501: END do_security_issued_transfer;
3502:
3503: PROCEDURE do_financial_reports_transfer(
3504: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3500: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3501: END do_security_issued_transfer;
3502:
3503: PROCEDURE do_financial_reports_transfer(
3504: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3505: x_to_id IN OUT NOCOPY NUMBER,
3506: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3507: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3508: x_return_status IN OUT NOCOPY VARCHAR2
3502:
3503: PROCEDURE do_financial_reports_transfer(
3504: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3505: x_to_id IN OUT NOCOPY NUMBER,
3506: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3507: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3508: x_return_status IN OUT NOCOPY VARCHAR2
3509: ) IS
3510:
3503: PROCEDURE do_financial_reports_transfer(
3504: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3505: x_to_id IN OUT NOCOPY NUMBER,
3506: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3507: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3508: x_return_status IN OUT NOCOPY VARCHAR2
3509: ) IS
3510:
3511: BEGIN
3509: ) IS
3510:
3511: BEGIN
3512:
3513: IF (x_to_id <> FND_API.G_MISS_NUM AND
3514: x_to_id <> p_from_id) THEN
3515: UPDATE HZ_FINANCIAL_REPORTS
3516: SET
3517: STATUS = 'M',
3543: WHEN OTHERS THEN
3544: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3545: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3546: FND_MSG_PUB.ADD;
3547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3548: END do_financial_reports_transfer;
3549:
3550: PROCEDURE do_org_indicators_transfer(
3551: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3547: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3548: END do_financial_reports_transfer;
3549:
3550: PROCEDURE do_org_indicators_transfer(
3551: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3552: x_to_id IN OUT NOCOPY NUMBER,
3553: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3554: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3555: x_return_status IN OUT NOCOPY VARCHAR2
3549:
3550: PROCEDURE do_org_indicators_transfer(
3551: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3552: x_to_id IN OUT NOCOPY NUMBER,
3553: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3554: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3555: x_return_status IN OUT NOCOPY VARCHAR2
3556: ) IS
3557:
3550: PROCEDURE do_org_indicators_transfer(
3551: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3552: x_to_id IN OUT NOCOPY NUMBER,
3553: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3554: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3555: x_return_status IN OUT NOCOPY VARCHAR2
3556: ) IS
3557:
3558: BEGIN
3556: ) IS
3557:
3558: BEGIN
3559:
3560: IF (x_to_id <> FND_API.G_MISS_NUM AND
3561: x_to_id <> p_from_id) THEN
3562: UPDATE HZ_ORGANIZATION_INDICATORS
3563: SET
3564: STATUS = 'M',
3590: WHEN OTHERS THEN
3591: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3592: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3593: FND_MSG_PUB.ADD;
3594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3595: END do_org_indicators_transfer;
3596:
3597: PROCEDURE do_ind_reference_transfer(
3598: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3594: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3595: END do_org_indicators_transfer;
3596:
3597: PROCEDURE do_ind_reference_transfer(
3598: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3599: x_to_id IN OUT NOCOPY NUMBER,
3600: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3601: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3602: x_return_status IN OUT NOCOPY VARCHAR2
3596:
3597: PROCEDURE do_ind_reference_transfer(
3598: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3599: x_to_id IN OUT NOCOPY NUMBER,
3600: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3601: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3602: x_return_status IN OUT NOCOPY VARCHAR2
3603: ) IS
3604:
3597: PROCEDURE do_ind_reference_transfer(
3598: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3599: x_to_id IN OUT NOCOPY NUMBER,
3600: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3601: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3602: x_return_status IN OUT NOCOPY VARCHAR2
3603: ) IS
3604:
3605: BEGIN
3603: ) IS
3604:
3605: BEGIN
3606:
3607: IF (x_to_id <> FND_API.G_MISS_NUM AND
3608: x_to_id <> p_from_id) THEN
3609: UPDATE HZ_INDUSTRIAL_REFERENCE
3610: SET
3611: STATUS = 'M',
3637: WHEN OTHERS THEN
3638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3639: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3640: FND_MSG_PUB.ADD;
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3642: END do_ind_reference_transfer;
3643:
3644: PROCEDURE do_per_interest_transfer(
3645: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3641: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3642: END do_ind_reference_transfer;
3643:
3644: PROCEDURE do_per_interest_transfer(
3645: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3646: x_to_id IN OUT NOCOPY NUMBER,
3647: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3648: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3649: x_return_status IN OUT NOCOPY VARCHAR2
3643:
3644: PROCEDURE do_per_interest_transfer(
3645: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3646: x_to_id IN OUT NOCOPY NUMBER,
3647: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3648: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3649: x_return_status IN OUT NOCOPY VARCHAR2
3650: ) IS
3651:
3644: PROCEDURE do_per_interest_transfer(
3645: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3646: x_to_id IN OUT NOCOPY NUMBER,
3647: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3648: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3649: x_return_status IN OUT NOCOPY VARCHAR2
3650: ) IS
3651:
3652: BEGIN
3650: ) IS
3651:
3652: BEGIN
3653:
3654: IF (x_to_id <> FND_API.G_MISS_NUM AND
3655: x_to_id <> p_from_id) THEN
3656: UPDATE HZ_PERSON_INTEREST
3657: SET
3658: STATUS = 'M',
3684: WHEN OTHERS THEN
3685: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3686: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3687: FND_MSG_PUB.ADD;
3688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3689: END do_per_interest_transfer;
3690:
3691: PROCEDURE do_citizenship_transfer(
3692: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3688: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3689: END do_per_interest_transfer;
3690:
3691: PROCEDURE do_citizenship_transfer(
3692: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3693: x_to_id IN OUT NOCOPY NUMBER,
3694: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3695: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3696: x_return_status IN OUT NOCOPY VARCHAR2
3690:
3691: PROCEDURE do_citizenship_transfer(
3692: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3693: x_to_id IN OUT NOCOPY NUMBER,
3694: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3695: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3696: x_return_status IN OUT NOCOPY VARCHAR2
3697: ) IS
3698:
3691: PROCEDURE do_citizenship_transfer(
3692: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3693: x_to_id IN OUT NOCOPY NUMBER,
3694: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3695: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3696: x_return_status IN OUT NOCOPY VARCHAR2
3697: ) IS
3698:
3699: BEGIN
3697: ) IS
3698:
3699: BEGIN
3700:
3701: IF (x_to_id <> FND_API.G_MISS_NUM AND
3702: x_to_id <> p_from_id) THEN
3703: UPDATE HZ_CITIZENSHIP
3704: SET
3705: STATUS = 'M',
3731: WHEN OTHERS THEN
3732: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3733: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3734: FND_MSG_PUB.ADD;
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: END do_citizenship_transfer;
3737:
3738: PROCEDURE do_education_transfer(
3739: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3735: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3736: END do_citizenship_transfer;
3737:
3738: PROCEDURE do_education_transfer(
3739: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3740: x_to_id IN OUT NOCOPY NUMBER,
3741: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3742: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3743: x_return_status IN OUT NOCOPY VARCHAR2
3737:
3738: PROCEDURE do_education_transfer(
3739: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3740: x_to_id IN OUT NOCOPY NUMBER,
3741: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3742: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3743: x_return_status IN OUT NOCOPY VARCHAR2
3744: ) IS
3745:
3738: PROCEDURE do_education_transfer(
3739: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3740: x_to_id IN OUT NOCOPY NUMBER,
3741: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3742: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3743: x_return_status IN OUT NOCOPY VARCHAR2
3744: ) IS
3745:
3746: BEGIN
3744: ) IS
3745:
3746: BEGIN
3747:
3748: IF (x_to_id <> FND_API.G_MISS_NUM AND
3749: x_to_id <> p_from_id) THEN
3750: UPDATE HZ_EDUCATION
3751: SET
3752: STATUS = 'M',
3778: WHEN OTHERS THEN
3779: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3780: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3781: FND_MSG_PUB.ADD;
3782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3783: END do_education_transfer;
3784:
3785: PROCEDURE do_education_school_transfer(
3786: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3782: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3783: END do_education_transfer;
3784:
3785: PROCEDURE do_education_school_transfer(
3786: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3787: x_to_id IN OUT NOCOPY NUMBER,
3788: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3789: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3790: x_return_status IN OUT NOCOPY VARCHAR2
3784:
3785: PROCEDURE do_education_school_transfer(
3786: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3787: x_to_id IN OUT NOCOPY NUMBER,
3788: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3789: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3790: x_return_status IN OUT NOCOPY VARCHAR2
3791: ) IS
3792:
3785: PROCEDURE do_education_school_transfer(
3786: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3787: x_to_id IN OUT NOCOPY NUMBER,
3788: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3789: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3790: x_return_status IN OUT NOCOPY VARCHAR2
3791: ) IS
3792:
3793: BEGIN
3791: ) IS
3792:
3793: BEGIN
3794:
3795: IF (x_to_id <> FND_API.G_MISS_NUM AND
3796: x_to_id <> p_from_id) THEN
3797: UPDATE HZ_EDUCATION
3798: SET
3799: STATUS = 'M',
3825: WHEN OTHERS THEN
3826: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3827: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3828: FND_MSG_PUB.ADD;
3829: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3830: END do_education_school_transfer;
3831:
3832:
3833: PROCEDURE do_emp_history_transfer(
3830: END do_education_school_transfer;
3831:
3832:
3833: PROCEDURE do_emp_history_transfer(
3834: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3835: x_to_id IN OUT NOCOPY NUMBER,
3836: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3837: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3838: x_return_status IN OUT NOCOPY VARCHAR2
3832:
3833: PROCEDURE do_emp_history_transfer(
3834: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3835: x_to_id IN OUT NOCOPY NUMBER,
3836: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3837: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3838: x_return_status IN OUT NOCOPY VARCHAR2
3839: ) IS
3840:
3833: PROCEDURE do_emp_history_transfer(
3834: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3835: x_to_id IN OUT NOCOPY NUMBER,
3836: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3837: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3838: x_return_status IN OUT NOCOPY VARCHAR2
3839: ) IS
3840:
3841: BEGIN
3839: ) IS
3840:
3841: BEGIN
3842:
3843: IF (x_to_id <> FND_API.G_MISS_NUM AND
3844: x_to_id <> p_from_id) THEN
3845: UPDATE HZ_EMPLOYMENT_HISTORY
3846: SET
3847: STATUS = 'M',
3873: WHEN OTHERS THEN
3874: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3875: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3876: FND_MSG_PUB.ADD;
3877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3878: END do_emp_history_transfer;
3879:
3880: PROCEDURE do_employed_transfer(
3881: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3877: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3878: END do_emp_history_transfer;
3879:
3880: PROCEDURE do_employed_transfer(
3881: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3882: x_to_id IN OUT NOCOPY NUMBER,
3883: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3884: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3885: x_return_status IN OUT NOCOPY VARCHAR2
3879:
3880: PROCEDURE do_employed_transfer(
3881: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3882: x_to_id IN OUT NOCOPY NUMBER,
3883: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3884: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3885: x_return_status IN OUT NOCOPY VARCHAR2
3886: ) IS
3887:
3880: PROCEDURE do_employed_transfer(
3881: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3882: x_to_id IN OUT NOCOPY NUMBER,
3883: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3884: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3885: x_return_status IN OUT NOCOPY VARCHAR2
3886: ) IS
3887:
3888: BEGIN
3886: ) IS
3887:
3888: BEGIN
3889:
3890: IF (x_to_id <> FND_API.G_MISS_NUM AND
3891: x_to_id <> p_from_id) THEN
3892: UPDATE HZ_EMPLOYMENT_HISTORY
3893: SET
3894: STATUS = 'M',
3920: WHEN OTHERS THEN
3921: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3922: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3923: FND_MSG_PUB.ADD;
3924: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3925: END do_employed_transfer;
3926:
3927:
3928: PROCEDURE do_work_class_transfer(
3925: END do_employed_transfer;
3926:
3927:
3928: PROCEDURE do_work_class_transfer(
3929: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3930: x_to_id IN OUT NOCOPY NUMBER,
3931: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3932: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3933: x_return_status IN OUT NOCOPY VARCHAR2
3927:
3928: PROCEDURE do_work_class_transfer(
3929: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3930: x_to_id IN OUT NOCOPY NUMBER,
3931: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3932: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3933: x_return_status IN OUT NOCOPY VARCHAR2
3934: ) IS
3935:
3928: PROCEDURE do_work_class_transfer(
3929: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3930: x_to_id IN OUT NOCOPY NUMBER,
3931: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3932: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3933: x_return_status IN OUT NOCOPY VARCHAR2
3934: ) IS
3935:
3936: BEGIN
3934: ) IS
3935:
3936: BEGIN
3937:
3938: IF (x_to_id <> FND_API.G_MISS_NUM AND
3939: x_to_id <> p_from_id) THEN
3940: UPDATE HZ_WORK_CLASS
3941: SET
3942: STATUS = 'M',
3968: WHEN OTHERS THEN
3969: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3970: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3971: FND_MSG_PUB.ADD;
3972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3973: END do_work_class_transfer;
3974:
3975: PROCEDURE do_org_contact_role_transfer(
3976: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3972: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3973: END do_work_class_transfer;
3974:
3975: PROCEDURE do_org_contact_role_transfer(
3976: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3977: x_to_id IN OUT NOCOPY NUMBER,
3978: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3979: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3980: x_return_status IN OUT NOCOPY VARCHAR2
3974:
3975: PROCEDURE do_org_contact_role_transfer(
3976: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3977: x_to_id IN OUT NOCOPY NUMBER,
3978: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3979: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3980: x_return_status IN OUT NOCOPY VARCHAR2
3981: ) IS
3982: l_msg_data VARCHAR2(2000);
3975: PROCEDURE do_org_contact_role_transfer(
3976: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3977: x_to_id IN OUT NOCOPY NUMBER,
3978: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3979: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3980: x_return_status IN OUT NOCOPY VARCHAR2
3981: ) IS
3982: l_msg_data VARCHAR2(2000);
3983: l_msg_count NUMBER := 0;
3992: FROM HZ_ORG_CONTACT_ROLES
3993: WHERE ORG_CONTACT_ROLE_ID = p_from_id;
3994: BEGIN
3995:
3996: IF (x_to_id <> FND_API.G_MISS_NUM AND
3997: x_to_id <> p_from_id) THEN
3998: UPDATE HZ_ORG_CONTACT_ROLES
3999: SET
4000: STATUS = 'M',
4007: program_update_date = sysdate
4008: WHERE org_contact_role_id = p_from_id;
4009:
4010: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4011: p_init_msg_list => FND_API.G_FALSE,
4012: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4013: p_old_owner_table_id => p_from_id,
4014: p_new_owner_table_id => x_to_id,
4015: p_owner_table_name =>'HZ_ORG_CONTACT_ROLES',
4008: WHERE org_contact_role_id = p_from_id;
4009:
4010: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4011: p_init_msg_list => FND_API.G_FALSE,
4012: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4013: p_old_owner_table_id => p_from_id,
4014: p_new_owner_table_id => x_to_id,
4015: p_owner_table_name =>'HZ_ORG_CONTACT_ROLES',
4016: p_orig_system => null,
4018: p_reason_code => 'MERGED',
4019: x_return_status => x_return_status,
4020: x_msg_count =>l_msg_count,
4021: x_msg_data =>l_msg_data);
4022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4023: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4024: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4025: FND_MSG_PUB.ADD;
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4022: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4023: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4024: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4025: FND_MSG_PUB.ADD;
4026: x_return_status := FND_API.G_RET_STS_ERROR;
4027: RETURN;
4028: END IF;
4029:
4030: ELSE
4097: WHEN OTHERS THEN
4098: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4099: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4100: FND_MSG_PUB.ADD;
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: END do_org_contact_role_transfer;
4103:
4104: PROCEDURE do_financial_number_transfer(
4105: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4101: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4102: END do_org_contact_role_transfer;
4103:
4104: PROCEDURE do_financial_number_transfer(
4105: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4106: x_to_id IN OUT NOCOPY NUMBER,
4107: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4108: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4109: x_return_status IN OUT NOCOPY VARCHAR2
4103:
4104: PROCEDURE do_financial_number_transfer(
4105: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4106: x_to_id IN OUT NOCOPY NUMBER,
4107: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4108: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4109: x_return_status IN OUT NOCOPY VARCHAR2
4110: ) IS
4111:
4104: PROCEDURE do_financial_number_transfer(
4105: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4106: x_to_id IN OUT NOCOPY NUMBER,
4107: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4108: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4109: x_return_status IN OUT NOCOPY VARCHAR2
4110: ) IS
4111:
4112: BEGIN
4110: ) IS
4111:
4112: BEGIN
4113:
4114: IF (x_to_id <> FND_API.G_MISS_NUM AND
4115: x_to_id <> p_from_id) THEN
4116: UPDATE HZ_FINANCIAL_NUMBERS
4117: SET
4118: STATUS = 'M',
4143: WHEN OTHERS THEN
4144: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4145: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4146: FND_MSG_PUB.ADD;
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: END do_financial_number_transfer;
4149:
4150: PROCEDURE do_code_assignment_transfer(
4151: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4147: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4148: END do_financial_number_transfer;
4149:
4150: PROCEDURE do_code_assignment_transfer(
4151: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4152: x_to_id IN OUT NOCOPY NUMBER,
4153: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4154: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4155: x_return_status IN OUT NOCOPY VARCHAR2
4149:
4150: PROCEDURE do_code_assignment_transfer(
4151: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4152: x_to_id IN OUT NOCOPY NUMBER,
4153: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4154: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4155: x_return_status IN OUT NOCOPY VARCHAR2
4156: ) IS
4157:
4150: PROCEDURE do_code_assignment_transfer(
4151: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4152: x_to_id IN OUT NOCOPY NUMBER,
4153: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4154: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4155: x_return_status IN OUT NOCOPY VARCHAR2
4156: ) IS
4157:
4158: l_exists VARCHAR2(10);
4187: FETCH check_multiple_assignments INTO l_code_exists;
4188: CLOSE check_multiple_assignments;
4189:
4190:
4191: IF (x_to_id <> FND_API.G_MISS_NUM AND x_to_id <> p_from_id)
4192: OR (NVL(l_code_exists,'N') = 'Y') THEN
4193: UPDATE HZ_CODE_ASSIGNMENTS
4194: SET
4195: STATUS = 'M',
4256: WHEN OTHERS THEN
4257: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4258: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4259: FND_MSG_PUB.ADD;
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261: END do_code_assignment_transfer;
4262:
4263: PROCEDURE do_code_assignment_transfer2(
4264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4260: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4261: END do_code_assignment_transfer;
4262:
4263: PROCEDURE do_code_assignment_transfer2(
4264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4265: x_to_id IN OUT NOCOPY NUMBER,
4266: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4267: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4268: x_return_status IN OUT NOCOPY VARCHAR2
4262:
4263: PROCEDURE do_code_assignment_transfer2(
4264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4265: x_to_id IN OUT NOCOPY NUMBER,
4266: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4267: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4268: x_return_status IN OUT NOCOPY VARCHAR2
4269: ) IS
4270:
4263: PROCEDURE do_code_assignment_transfer2(
4264: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4265: x_to_id IN OUT NOCOPY NUMBER,
4266: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4267: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4268: x_return_status IN OUT NOCOPY VARCHAR2
4269: ) IS
4270:
4271: l_exists VARCHAR2(10);
4298: OPEN check_multiple_assignments;
4299: FETCH check_multiple_assignments INTO l_code_exists;
4300: CLOSE check_multiple_assignments;
4301:
4302: IF (x_to_id <> FND_API.G_MISS_NUM AND
4303: x_to_id <> p_from_id) OR (NVL(l_code_exists,'N') = 'Y') THEN
4304: UPDATE HZ_CODE_ASSIGNMENTS
4305: SET
4306: STATUS = 'M',
4354: WHEN OTHERS THEN
4355: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4356: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4357: FND_MSG_PUB.ADD;
4358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4359: END do_code_assignment_transfer2;
4360:
4361: PROCEDURE do_per_languages_transfer(
4362: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4358: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4359: END do_code_assignment_transfer2;
4360:
4361: PROCEDURE do_per_languages_transfer(
4362: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4363: x_to_id IN OUT NOCOPY NUMBER,
4364: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4365: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4366: x_return_status IN OUT NOCOPY VARCHAR2
4360:
4361: PROCEDURE do_per_languages_transfer(
4362: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4363: x_to_id IN OUT NOCOPY NUMBER,
4364: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4365: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4366: x_return_status IN OUT NOCOPY VARCHAR2
4367: ) IS
4368: l_count NUMBER;
4361: PROCEDURE do_per_languages_transfer(
4362: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4363: x_to_id IN OUT NOCOPY NUMBER,
4364: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4365: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4366: x_return_status IN OUT NOCOPY VARCHAR2
4367: ) IS
4368: l_count NUMBER;
4369: l_primary_nav_flag VARCHAR2(1):= 'N';
4377: FROM HZ_PERSON_LANGUAGE
4378: WHERE LANGUAGE_USE_REFERENCE_ID = p_from_id;
4379:
4380: BEGIN
4381: IF (x_to_id <> FND_API.G_MISS_NUM AND
4382: x_to_id <> p_from_id) THEN
4383: UPDATE HZ_PERSON_LANGUAGE
4384: SET
4385: STATUS = 'M',
4460: WHEN OTHERS THEN
4461: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4462: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4463: FND_MSG_PUB.ADD;
4464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4465: END do_per_languages_transfer;
4466:
4467: PROCEDURE do_party_site_use_transfer(
4468: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4464: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4465: END do_per_languages_transfer;
4466:
4467: PROCEDURE do_party_site_use_transfer(
4468: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4469: x_to_id IN OUT NOCOPY NUMBER,
4470: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4471: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4472: x_return_status IN OUT NOCOPY VARCHAR2
4466:
4467: PROCEDURE do_party_site_use_transfer(
4468: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4469: x_to_id IN OUT NOCOPY NUMBER,
4470: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4471: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4472: x_return_status IN OUT NOCOPY VARCHAR2
4473: ) IS
4474:
4467: PROCEDURE do_party_site_use_transfer(
4468: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4469: x_to_id IN OUT NOCOPY NUMBER,
4470: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4471: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4472: x_return_status IN OUT NOCOPY VARCHAR2
4473: ) IS
4474:
4475: party_site_use_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE;
4501: ----End of Bug No: 3560167-------------------
4502:
4503: BEGIN
4504:
4505: IF (x_to_id <> FND_API.G_MISS_NUM AND
4506: x_to_id <> p_from_id) THEN
4507: UPDATE HZ_PARTY_SITE_USES
4508: SET
4509: ----Bug: 2619948 added setting status to 'M' here too
4525: x_return_status => x_return_status,
4526: x_msg_count => l_msg_count,
4527: x_msg_data => l_msg_data );
4528:
4529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4530: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4531: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site use ID : ' || p_from_id);
4532: FND_MSG_PUB.ADD;
4533: x_return_status := FND_API.G_RET_STS_ERROR;
4529: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4530: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4531: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site use ID : ' || p_from_id);
4532: FND_MSG_PUB.ADD;
4533: x_return_status := FND_API.G_RET_STS_ERROR;
4534:
4535: RETURN;
4536: END IF;
4537:
4534:
4535: RETURN;
4536: END IF;
4537:
4538: party_site_use_rec.party_site_use_id := FND_API.G_MISS_NUM;
4539: party_site_use_rec.party_site_id := p_to_fk_id;
4540:
4541: ----Start of Bug No: 3560167-------------------
4542: IF party_site_use_rec.primary_per_type = 'Y' THEN
4563: x_return_status => x_return_status,
4564: x_msg_count => l_msg_count,
4565: x_msg_data => l_msg_data );
4566:
4567: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4568: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4569: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site use for ID : ' || p_from_id);
4570: FND_MSG_PUB.ADD;
4571: x_return_status := FND_API.G_RET_STS_ERROR;
4567: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4568: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4569: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site use for ID : ' || p_from_id);
4570: FND_MSG_PUB.ADD;
4571: x_return_status := FND_API.G_RET_STS_ERROR;
4572: RETURN;
4573: END IF;
4574:
4575: -- Update and set party_id = p_to_fk_id where pk = from_id
4593: WHEN OTHERS THEN
4594: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4595: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4596: FND_MSG_PUB.ADD;
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4598: END do_party_site_use_transfer;
4599:
4600: PROCEDURE do_cust_account_site_transfer(
4601: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4597: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4598: END do_party_site_use_transfer;
4599:
4600: PROCEDURE do_cust_account_site_transfer(
4601: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4602: x_to_id IN OUT NOCOPY NUMBER,
4603: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4604: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4605: x_return_status IN OUT NOCOPY VARCHAR2
4599:
4600: PROCEDURE do_cust_account_site_transfer(
4601: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4602: x_to_id IN OUT NOCOPY NUMBER,
4603: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4604: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4605: x_return_status IN OUT NOCOPY VARCHAR2
4606: ) IS
4607: l_msg_data VARCHAR2(2000);
4600: PROCEDURE do_cust_account_site_transfer(
4601: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4602: x_to_id IN OUT NOCOPY NUMBER,
4603: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4604: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4605: x_return_status IN OUT NOCOPY VARCHAR2
4606: ) IS
4607: l_msg_data VARCHAR2(2000);
4608: l_msg_count NUMBER := 0;
4607: l_msg_data VARCHAR2(2000);
4608: l_msg_count NUMBER := 0;
4609: BEGIN
4610:
4611: IF (x_to_id <> FND_API.G_MISS_NUM AND
4612: x_to_id <> p_from_id) THEN
4613: UPDATE HZ_CUST_ACCT_SITES_ALL
4614: SET
4615: STATUS = 'M',
4622: program_update_date = sysdate
4623: WHERE cust_acct_site_id = p_from_id;
4624:
4625: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4626: p_init_msg_list => FND_API.G_FALSE,
4627: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4628: p_old_owner_table_id => p_from_id,
4629: p_new_owner_table_id => x_to_id,
4630: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
4623: WHERE cust_acct_site_id = p_from_id;
4624:
4625: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4626: p_init_msg_list => FND_API.G_FALSE,
4627: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4628: p_old_owner_table_id => p_from_id,
4629: p_new_owner_table_id => x_to_id,
4630: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
4631: p_orig_system => null,
4633: p_reason_code => 'MERGED',
4634: x_return_status => x_return_status,
4635: x_msg_count =>l_msg_count,
4636: x_msg_data =>l_msg_data);
4637: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4639: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4640: FND_MSG_PUB.ADD;
4641: x_return_status := FND_API.G_RET_STS_ERROR;
4637: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4638: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4639: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4640: FND_MSG_PUB.ADD;
4641: x_return_status := FND_API.G_RET_STS_ERROR;
4642: RETURN;
4643: END IF;
4644:
4645: ELSE
4661: WHEN OTHERS THEN
4662: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4663: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4664: FND_MSG_PUB.ADD;
4665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4666: END do_cust_account_site_transfer;
4667:
4668: PROCEDURE do_org_contact_transfer(
4669: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4665: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4666: END do_cust_account_site_transfer;
4667:
4668: PROCEDURE do_org_contact_transfer(
4669: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4670: x_to_id IN OUT NOCOPY NUMBER,
4671: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4672: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4673: x_return_status IN OUT NOCOPY VARCHAR2
4667:
4668: PROCEDURE do_org_contact_transfer(
4669: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4670: x_to_id IN OUT NOCOPY NUMBER,
4671: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4672: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4673: x_return_status IN OUT NOCOPY VARCHAR2
4674: ) IS
4675: l_msg_data VARCHAR2(2000);
4668: PROCEDURE do_org_contact_transfer(
4669: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4670: x_to_id IN OUT NOCOPY NUMBER,
4671: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4672: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4673: x_return_status IN OUT NOCOPY VARCHAR2
4674: ) IS
4675: l_msg_data VARCHAR2(2000);
4676: l_msg_count NUMBER := 0;
4675: l_msg_data VARCHAR2(2000);
4676: l_msg_count NUMBER := 0;
4677: BEGIN
4678:
4679: IF (x_to_id <> FND_API.G_MISS_NUM AND
4680: x_to_id <> p_from_id) THEN
4681: UPDATE HZ_ORG_CONTACTS
4682: SET
4683: STATUS = 'M',
4693: DELETE FROM HZ_DQM_SYNC_INTERFACE WHERE STAGED_FLAG='N' AND ENTITY='CONTACTS'
4694: AND RECORD_ID=p_from_id AND OPERATION <> 'D';
4695:
4696: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4697: p_init_msg_list => FND_API.G_FALSE,
4698: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4699: p_old_owner_table_id => p_from_id,
4700: p_new_owner_table_id => x_to_id,
4701: p_owner_table_name =>'HZ_ORG_CONTACTS',
4694: AND RECORD_ID=p_from_id AND OPERATION <> 'D';
4695:
4696: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4697: p_init_msg_list => FND_API.G_FALSE,
4698: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4699: p_old_owner_table_id => p_from_id,
4700: p_new_owner_table_id => x_to_id,
4701: p_owner_table_name =>'HZ_ORG_CONTACTS',
4702: p_orig_system => null,
4704: p_reason_code => 'MERGED',
4705: x_return_status => x_return_status,
4706: x_msg_count =>l_msg_count,
4707: x_msg_data =>l_msg_data);
4708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4709: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4710: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4711: FND_MSG_PUB.ADD;
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4708: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4709: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4710: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4711: FND_MSG_PUB.ADD;
4712: x_return_status := FND_API.G_RET_STS_ERROR;
4713: RETURN;
4714: END IF;
4715:
4716: ELSE
4732: WHEN OTHERS THEN
4733: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4734: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4735: FND_MSG_PUB.ADD;
4736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4737: END do_org_contact_transfer;
4738:
4739: PROCEDURE do_org_contact_transfer2(
4740: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4736: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4737: END do_org_contact_transfer;
4738:
4739: PROCEDURE do_org_contact_transfer2(
4740: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4741: x_to_id IN OUT NOCOPY NUMBER,
4742: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4743: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4744: x_return_status IN OUT NOCOPY VARCHAR2
4738:
4739: PROCEDURE do_org_contact_transfer2(
4740: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4741: x_to_id IN OUT NOCOPY NUMBER,
4742: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4743: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4744: x_return_status IN OUT NOCOPY VARCHAR2
4745: ) IS
4746:
4739: PROCEDURE do_org_contact_transfer2(
4740: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4741: x_to_id IN OUT NOCOPY NUMBER,
4742: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4743: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4744: x_return_status IN OUT NOCOPY VARCHAR2
4745: ) IS
4746:
4747: CURSOR c_merge_to_org_contact IS
4866: DELETE FROM HZ_DQM_SYNC_INTERFACE WHERE STAGED_FLAG='N' AND ENTITY='CONTACTS'
4867: AND RECORD_ID=p_from_id AND OPERATION <> 'D';
4868:
4869: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4870: p_init_msg_list => FND_API.G_FALSE,
4871: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4872: p_old_owner_table_id => p_from_id,
4873: p_new_owner_table_id => l_to_orgcontact_id,
4874: p_owner_table_name =>'HZ_ORG_CONTACTS',
4867: AND RECORD_ID=p_from_id AND OPERATION <> 'D';
4868:
4869: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4870: p_init_msg_list => FND_API.G_FALSE,
4871: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4872: p_old_owner_table_id => p_from_id,
4873: p_new_owner_table_id => l_to_orgcontact_id,
4874: p_owner_table_name =>'HZ_ORG_CONTACTS',
4875: p_orig_system => null,
4877: p_reason_code => 'MERGED',
4878: x_return_status => x_return_status,
4879: x_msg_count =>l_msg_count,
4880: x_msg_data =>l_msg_data);
4881: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4882: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4883: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4884: FND_MSG_PUB.ADD;
4885: x_return_status := FND_API.G_RET_STS_ERROR;
4881: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4882: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4883: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4884: FND_MSG_PUB.ADD;
4885: x_return_status := FND_API.G_RET_STS_ERROR;
4886: RETURN;
4887: END IF;
4888:
4889: ---for NOCOPY fix
4894: WHEN OTHERS THEN
4895: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4896: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4897: FND_MSG_PUB.ADD;
4898: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4899: END do_org_contact_transfer2;
4900:
4901:
4902:
4901:
4902:
4903: --4307667
4904: PROCEDURE do_party_usage_merge(
4905: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4906: x_to_id IN OUT NOCOPY NUMBER,
4907: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4908: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4909: x_return_status IN OUT NOCOPY VARCHAR2
4903: --4307667
4904: PROCEDURE do_party_usage_merge(
4905: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4906: x_to_id IN OUT NOCOPY NUMBER,
4907: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4908: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4909: x_return_status IN OUT NOCOPY VARCHAR2
4910:
4911: ) IS
4904: PROCEDURE do_party_usage_merge(
4905: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4906: x_to_id IN OUT NOCOPY NUMBER,
4907: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4908: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4909: x_return_status IN OUT NOCOPY VARCHAR2
4910:
4911: ) IS
4912: x_msg_count VARCHAR2(2000);
5009:
5010: HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage
5011: (p_init_msg_list,0,p_party_usg_assignment_rec,x_return_status,x_msg_count,x_msg_data);
5012:
5013: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5014:
5015: DELETE FROM hz_party_usg_assignments
5016: WHERE party_usg_assignment_id = p_from_id;
5017:
5030: WHEN OTHERS THEN
5031: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5032: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5033: FND_MSG_PUB.ADD;
5034: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5035: END do_party_usage_merge;
5036:
5037:
5038: PROCEDURE do_party_reln_obj_merge(
5035: END do_party_usage_merge;
5036:
5037:
5038: PROCEDURE do_party_reln_obj_merge(
5039: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5040: x_to_id IN OUT NOCOPY NUMBER,
5041: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5042: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5043: x_return_status IN OUT NOCOPY VARCHAR2
5037:
5038: PROCEDURE do_party_reln_obj_merge(
5039: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5040: x_to_id IN OUT NOCOPY NUMBER,
5041: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5042: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5043: x_return_status IN OUT NOCOPY VARCHAR2
5044:
5045: ) IS
5038: PROCEDURE do_party_reln_obj_merge(
5039: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5040: x_to_id IN OUT NOCOPY NUMBER,
5041: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5042: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5043: x_return_status IN OUT NOCOPY VARCHAR2
5044:
5045: ) IS
5046:
5129: l_from_rel_status VARCHAR2(1);
5130:
5131: BEGIN
5132:
5133: IF (x_to_id <> FND_API.G_MISS_NUM AND x_to_id <> p_from_id) THEN
5134: OPEN c_party(p_from_id);
5135: FETCH c_party INTO l_from_party_id;
5136: IF c_party%NOTFOUND THEN
5137: l_from_party_id := NULL;
5150: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5151: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5152: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5153: FND_MSG_PUB.ADD;
5154: x_return_status := FND_API.G_RET_STS_ERROR;
5155: RETURN;
5156: END IF;
5157:
5158: IF l_from_party_id IS NOT NULL THEN
5221: CLOSE c_check_valid_merge;
5222: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5223: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5224: FND_MSG_PUB.ADD;
5225: x_return_status := FND_API.G_RET_STS_ERROR;
5226: CLOSE c_check_valid_merge;
5227: RETURN;
5228:
5229: ELSIF c_check_valid_merge%FOUND AND HZ_PARTY_MERGE.g_automerge_flag = 'Y' AND l_to_rel_status = 'A' THEN
5488: WHEN OTHERS THEN
5489: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5490: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5491: FND_MSG_PUB.ADD;
5492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5493: END do_party_reln_obj_merge;
5494:
5495: PROCEDURE do_party_reln_subj_merge(
5496: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5492: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5493: END do_party_reln_obj_merge;
5494:
5495: PROCEDURE do_party_reln_subj_merge(
5496: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5497: x_to_id IN OUT NOCOPY NUMBER,
5498: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5499: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5500: x_return_status IN OUT NOCOPY VARCHAR2
5494:
5495: PROCEDURE do_party_reln_subj_merge(
5496: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5497: x_to_id IN OUT NOCOPY NUMBER,
5498: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5499: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5500: x_return_status IN OUT NOCOPY VARCHAR2
5501:
5502: ) IS
5495: PROCEDURE do_party_reln_subj_merge(
5496: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5497: x_to_id IN OUT NOCOPY NUMBER,
5498: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5499: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5500: x_return_status IN OUT NOCOPY VARCHAR2
5501:
5502: ) IS
5503:
5586: l_from_rel_status VARCHAR2(1);
5587:
5588: BEGIN
5589:
5590: IF (x_to_id <> FND_API.G_MISS_NUM AND x_to_id <> p_from_id) THEN
5591:
5592: OPEN c_party(p_from_id);
5593: FETCH c_party INTO l_from_party_id;
5594: IF c_party%NOTFOUND THEN
5609: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5610: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5611: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5612: FND_MSG_PUB.ADD;
5613: x_return_status := FND_API.G_RET_STS_ERROR;
5614: RETURN;
5615: END IF;
5616:
5617: IF l_from_party_id IS NOT NULL THEN
5683:
5684: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5685: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5686: FND_MSG_PUB.ADD;
5687: x_return_status := FND_API.G_RET_STS_ERROR;
5688: CLOSE c_check_valid_merge;
5689: RETURN;
5690:
5691: ELSIF c_check_valid_merge%FOUND AND HZ_PARTY_MERGE.g_automerge_flag = 'Y' AND l_to_rel_status = 'A' THEN
5946: WHEN OTHERS THEN
5947: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5948: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5949: FND_MSG_PUB.ADD;
5950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5951: END do_party_reln_subj_merge;
5952:
5953: PROCEDURE do_party_relationship_merge(
5954: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5950: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5951: END do_party_reln_subj_merge;
5952:
5953: PROCEDURE do_party_relationship_merge(
5954: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5955: x_to_id IN OUT NOCOPY NUMBER,
5956: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5957: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5958: x_return_status IN OUT NOCOPY VARCHAR2
5952:
5953: PROCEDURE do_party_relationship_merge(
5954: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5955: x_to_id IN OUT NOCOPY NUMBER,
5956: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5957: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5958: x_return_status IN OUT NOCOPY VARCHAR2
5959: ) IS
5960:
5953: PROCEDURE do_party_relationship_merge(
5954: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5955: x_to_id IN OUT NOCOPY NUMBER,
5956: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5957: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5958: x_return_status IN OUT NOCOPY VARCHAR2
5959: ) IS
5960:
5961: CURSOR c_merge_to_party_reln IS
5977: CLOSE c_merge_to_party_reln;
5978: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PRELN');
5979: FND_MESSAGE.SET_TOKEN('TOPARTYID',p_to_fk_id);
5980: FND_MSG_PUB.ADD;
5981: x_return_status := FND_API.G_RET_STS_ERROR;
5982: ELSE
5983: CLOSE c_merge_to_party_reln;
5984:
5985: UPDATE HZ_RELATIONSHIPS
6011: WHEN OTHERS THEN
6012: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6013: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6014: FND_MSG_PUB.ADD;
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: END do_party_relationship_merge;
6017:
6018: PROCEDURE do_org_profile_merge(
6019: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6015: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6016: END do_party_relationship_merge;
6017:
6018: PROCEDURE do_org_profile_merge(
6019: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6020: x_to_id IN OUT NOCOPY NUMBER,
6021: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6022: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6023: x_return_status IN OUT NOCOPY VARCHAR2
6017:
6018: PROCEDURE do_org_profile_merge(
6019: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6020: x_to_id IN OUT NOCOPY NUMBER,
6021: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6022: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6023: x_return_status IN OUT NOCOPY VARCHAR2
6024: ) IS
6025:
6018: PROCEDURE do_org_profile_merge(
6019: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6020: x_to_id IN OUT NOCOPY NUMBER,
6021: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6022: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6023: x_return_status IN OUT NOCOPY VARCHAR2
6024: ) IS
6025:
6026: CURSOR c_merge_to_org_prof(cp_cont_source VARCHAR2) IS
6036: WHERE organization_profile_id = p_from_id;
6037:
6038: l_cont_source VARCHAR2(50);
6039: l_to_orgpro_id NUMBER;
6040: l_merge_to_id NUMBER := FND_API.G_MISS_NUM;
6041: l_from_last_upd_date DATE;
6042: l_to_last_upd_date DATE;
6043: l_from_duns_number VARCHAR2(255);
6044: l_to_duns_number VARCHAR2(255);
6072: CLOSE c_merge_to_org_prof;
6073: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
6074: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6075: FND_MSG_PUB.ADD;
6076: x_return_status := FND_API.G_RET_STS_ERROR;
6077: RETURN;
6078: END IF;
6079: CLOSE c_merge_to_org_prof;
6080: ELSE
6092: CLOSE c_merge_to_org_prof;
6093: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
6094: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6095: FND_MSG_PUB.ADD;
6096: x_return_status := FND_API.G_RET_STS_ERROR;
6097: RETURN;
6098: END IF;
6099: CLOSE c_merge_to_org_prof;
6100: ELSE
6101: CLOSE c_merge_to_org_prof;
6102: END IF;
6103:
6104: ELSIF l_cont_source NOT IN ('SST','USER_ENTERED')AND l_cont_source IS NOT NULL THEN --Bug No:4114254
6105: IF x_to_id IS NULL OR x_to_id = FND_API.G_MISS_NUM THEN
6106: HZ_PARTY_V2PUB.get_organization_rec(
6107: FND_API.G_FALSE,
6108: p_from_fk_id,
6109: l_cont_source,
6103:
6104: ELSIF l_cont_source NOT IN ('SST','USER_ENTERED')AND l_cont_source IS NOT NULL THEN --Bug No:4114254
6105: IF x_to_id IS NULL OR x_to_id = FND_API.G_MISS_NUM THEN
6106: HZ_PARTY_V2PUB.get_organization_rec(
6107: FND_API.G_FALSE,
6108: p_from_fk_id,
6109: l_cont_source,
6110: l_organization_rec,
6111: l_return_status,
6111: l_return_status,
6112: l_msg_count,
6113: l_msg_data);
6114:
6115: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6116: RETURN;
6117: END IF;
6118:
6119: l_organization_rec.party_rec.party_id := p_to_fk_id;
6117: END IF;
6118:
6119: l_organization_rec.party_rec.party_id := p_to_fk_id;
6120: HZ_PARTY_V2PUB.create_organization(
6121: FND_API.G_FALSE,
6122: l_organization_rec,
6123: l_return_status,
6124: l_msg_count,
6125: l_msg_data,
6126: l_temp_party_id,
6127: l_temp_party_number,
6128: x_to_id);
6129:
6130: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6131: RETURN;
6132: END IF;
6133: END IF;
6134: END IF;
6150: WHEN OTHERS THEN
6151: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6152: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6153: FND_MSG_PUB.ADD;
6154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6155: END do_org_profile_merge;
6156:
6157: PROCEDURE do_per_profile_merge(
6158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6154: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6155: END do_org_profile_merge;
6156:
6157: PROCEDURE do_per_profile_merge(
6158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6159: x_to_id IN OUT NOCOPY NUMBER,
6160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6162: x_return_status IN OUT NOCOPY VARCHAR2
6156:
6157: PROCEDURE do_per_profile_merge(
6158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6159: x_to_id IN OUT NOCOPY NUMBER,
6160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6162: x_return_status IN OUT NOCOPY VARCHAR2
6163: ) IS
6164:
6157: PROCEDURE do_per_profile_merge(
6158: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6159: x_to_id IN OUT NOCOPY NUMBER,
6160: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6161: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6162: x_return_status IN OUT NOCOPY VARCHAR2
6163: ) IS
6164:
6165: CURSOR c_merge_to_per_prof(cp_cont_source VARCHAR2) IS
6190: IF l_cont_source = 'USER_ENTERED' THEN
6191: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PERPRO');
6192: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6193: FND_MSG_PUB.ADD;
6194: x_return_status := FND_API.G_RET_STS_ERROR;
6195: ELSE
6196: UPDATE HZ_PERSON_PROFILES
6197: SET
6198: party_id = p_to_fk_id,
6228: WHEN OTHERS THEN
6229: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6230: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6231: FND_MSG_PUB.ADD;
6232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6233: END do_per_profile_merge;
6234:
6235: PROCEDURE do_party_site_merge(
6236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6232: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6233: END do_per_profile_merge;
6234:
6235: PROCEDURE do_party_site_merge(
6236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6237: x_to_id IN OUT NOCOPY NUMBER,
6238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6240: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6234:
6235: PROCEDURE do_party_site_merge(
6236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6237: x_to_id IN OUT NOCOPY NUMBER,
6238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6240: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6241: x_return_status IN OUT NOCOPY VARCHAR2
6242: ) IS
6235: PROCEDURE do_party_site_merge(
6236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6237: x_to_id IN OUT NOCOPY NUMBER,
6238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6240: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6241: x_return_status IN OUT NOCOPY VARCHAR2
6242: ) IS
6243:
6236: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6237: x_to_id IN OUT NOCOPY NUMBER,
6238: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6239: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6240: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6241: x_return_status IN OUT NOCOPY VARCHAR2
6242: ) IS
6243:
6244: CURSOR c_cont_source IS
6343: FETCH c_from_party_type INTO l_from_party_type;
6344: CLOSE c_from_party_type;
6345:
6346: IF l_from_party_type = 'PARTY_RELATIONSHIP' AND
6347: (x_to_id = FND_API.G_MISS_NUM OR x_to_id IS NULL OR p_from_id = x_to_id)
6348: THEN
6349: BEGIN
6350:
6351: /* Check if there is a ps in the merge batch that has the same loc */
6391: l_dup_exists := HZ_MERGE_DUP_CHECK.check_address_dup(
6392: l_from_location_id,l_to_id, p_from_fk_id, p_to_fk_id,
6393: x_return_status);
6394: /* Merge */
6395: IF l_dup_exists = FND_API.G_TRUE THEN
6396: x_to_id := l_to_id;
6397: END IF;
6398:
6399: WHEN OTHERS THEN
6399: WHEN OTHERS THEN
6400: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6401: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6402: FND_MSG_PUB.ADD;
6403: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6404:
6405: -- End changes for Bug 4577535
6406: END;
6407: END IF;
6405: -- End changes for Bug 4577535
6406: END;
6407: END IF;
6408:
6409: IF x_to_id <> FND_API.G_MISS_NUM AND x_to_id IS NOT NULL
6410: THEN
6411:
6412: IF l_from_party_type <> 'PARTY_RELATIONSHIP' THEN
6413: /* To Location_Id */
6507: end loop;
6508: Close c_loc_assignments; */
6509: END IF; /* x_to_id */
6510:
6511: IF ((x_to_id <> FND_API.G_MISS_NUM AND
6512: x_to_id <> p_from_id) OR l_discard = 'Y') THEN
6513:
6514: UPDATE HZ_PARTY_SITES
6515: SET
6531: last_update_login = hz_utility_pub.last_update_login
6532: WHERE owner_table_id = p_from_id and owner_table_name='HZ_PARTY_SITES';
6533: */
6534: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6535: p_init_msg_list => FND_API.G_FALSE,
6536: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6537: p_old_owner_table_id => p_from_id,
6538: p_new_owner_table_id => x_to_id,
6539: p_owner_table_name =>'HZ_PARTY_SITES',
6532: WHERE owner_table_id = p_from_id and owner_table_name='HZ_PARTY_SITES';
6533: */
6534: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6535: p_init_msg_list => FND_API.G_FALSE,
6536: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6537: p_old_owner_table_id => p_from_id,
6538: p_new_owner_table_id => x_to_id,
6539: p_owner_table_name =>'HZ_PARTY_SITES',
6540: p_orig_system => null,
6542: p_reason_code => 'MERGED',
6543: x_return_status => x_return_status,
6544: x_msg_count =>l_msg_count,
6545: x_msg_data =>l_msg_data);
6546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6547: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6548: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6549: FND_MSG_PUB.ADD;
6550: x_return_status := FND_API.G_RET_STS_ERROR;
6546: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6547: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6548: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6549: FND_MSG_PUB.ADD;
6550: x_return_status := FND_API.G_RET_STS_ERROR;
6551: RETURN;
6552: END IF;
6553:
6554:
6568: x_return_status => x_return_status,
6569: x_msg_count => l_msg_count,
6570: x_msg_data => l_msg_data );
6571:
6572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6573: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6574: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site ID : ' || p_from_id);
6575: FND_MSG_PUB.ADD;
6576: x_return_status := FND_API.G_RET_STS_ERROR;
6572: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6573: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6574: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site ID : ' || p_from_id);
6575: FND_MSG_PUB.ADD;
6576: x_return_status := FND_API.G_RET_STS_ERROR;
6577:
6578: RETURN;
6579: END IF;
6580: --bug 4603928
6613: --bug 4603928
6614: END;
6615: END LOOP;
6616: /*HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6617: p_init_msg_list => FND_API.G_FALSE,
6618: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6619: p_old_owner_table_id => p_from_id,
6620: p_new_owner_table_id => x_to_id,
6621: p_owner_table_name =>'HZ_PARTY_SITES',
6614: END;
6615: END LOOP;
6616: /*HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6617: p_init_msg_list => FND_API.G_FALSE,
6618: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6619: p_old_owner_table_id => p_from_id,
6620: p_new_owner_table_id => x_to_id,
6621: p_owner_table_name =>'HZ_PARTY_SITES',
6622: p_orig_system => null,
6624: p_reason_code => 'MERGED',
6625: x_return_status => x_return_status,
6626: x_msg_count =>l_msg_count,
6627: x_msg_data =>l_msg_data);
6628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6629: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6630: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6631: FND_MSG_PUB.ADD;
6632: x_return_status := FND_API.G_RET_STS_ERROR;
6628: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6629: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6630: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6631: FND_MSG_PUB.ADD;
6632: x_return_status := FND_API.G_RET_STS_ERROR;
6633: RETURN;
6634: END IF;*/
6635:
6636: l_party_site_number := null;
6633: RETURN;
6634: END IF;*/
6635:
6636: l_party_site_number := null;
6637: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
6638: party_site_rec.party_id := p_to_fk_id;
6639: party_site_rec.party_site_number := l_ps_number;
6640:
6641: --We should not set primary flag in customer merge context
6638: party_site_rec.party_id := p_to_fk_id;
6639: party_site_rec.party_site_number := l_ps_number;
6640:
6641: --We should not set primary flag in customer merge context
6642: party_site_rec.identifying_address_flag := FND_API.G_MISS_CHAR;
6643:
6644: --Create new party site.
6645: hz_cust_account_merge_v2pvt.create_party_site(
6646: p_init_msg_list => 'T',
6652: x_msg_count => l_msg_count,
6653: x_msg_data => l_msg_data );
6654:
6655:
6656: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6657: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6658: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site for ID : ' || p_from_id);
6659: FND_MSG_PUB.ADD;
6660: x_return_status := FND_API.G_RET_STS_ERROR;
6656: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6657: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6658: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site for ID : ' || p_from_id);
6659: FND_MSG_PUB.ADD;
6660: x_return_status := FND_API.G_RET_STS_ERROR;
6661: RETURN;
6662: END IF;
6663:
6664: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6661: RETURN;
6662: END IF;
6663:
6664: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6665: p_init_msg_list => FND_API.G_FALSE,
6666: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6667: p_old_owner_table_id => p_from_id,
6668: p_new_owner_table_id => x_to_id,
6669: p_owner_table_name =>'HZ_PARTY_SITES',
6662: END IF;
6663:
6664: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6665: p_init_msg_list => FND_API.G_FALSE,
6666: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6667: p_old_owner_table_id => p_from_id,
6668: p_new_owner_table_id => x_to_id,
6669: p_owner_table_name =>'HZ_PARTY_SITES',
6670: p_orig_system => null,
6672: p_reason_code => 'MERGED',
6673: x_return_status => x_return_status,
6674: x_msg_count =>l_msg_count,
6675: x_msg_data =>l_msg_data);
6676: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6678: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6679: FND_MSG_PUB.ADD;
6680: x_return_status := FND_API.G_RET_STS_ERROR;
6676: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6677: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6678: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6679: FND_MSG_PUB.ADD;
6680: x_return_status := FND_API.G_RET_STS_ERROR;
6681: RETURN;
6682: END IF;
6683:
6684: UPDATE hz_merge_party_details
6707: WHEN OTHERS THEN
6708: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6709: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6710: FND_MSG_PUB.ADD;
6711: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6712: END do_party_site_merge;
6713:
6714:
6715: PROCEDURE do_party_merge(
6712: END do_party_site_merge;
6713:
6714:
6715: PROCEDURE do_party_merge(
6716: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6717: x_to_id IN OUT NOCOPY NUMBER,
6718: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6719: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6720: p_batch_party_id IN NUMBER,
6714:
6715: PROCEDURE do_party_merge(
6716: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6717: x_to_id IN OUT NOCOPY NUMBER,
6718: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6719: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6720: p_batch_party_id IN NUMBER,
6721: x_return_status IN OUT NOCOPY VARCHAR2
6722: ) IS
6715: PROCEDURE do_party_merge(
6716: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6717: x_to_id IN OUT NOCOPY NUMBER,
6718: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6719: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6720: p_batch_party_id IN NUMBER,
6721: x_return_status IN OUT NOCOPY VARCHAR2
6722: ) IS
6723:
6797: l_to_party_type <> l_from_party_type THEN
6798: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_PARTIES');
6799: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6800: FND_MSG_PUB.ADD;
6801: x_return_status := FND_API.G_RET_STS_ERROR;
6802: RETURN;
6803: END IF;
6804:
6805: -- Update and set status to merged
6819: SET party_id = x_to_id WHERE STAGED_FLAG='N'
6820: AND PARTY_ID = p_from_id AND ENTITY<>'PARTY';
6821:
6822: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6823: p_init_msg_list => FND_API.G_FALSE,
6824: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6825: p_old_owner_table_id => p_from_id,
6826: p_new_owner_table_id => x_to_id,
6827: p_owner_table_name =>'HZ_PARTIES',
6820: AND PARTY_ID = p_from_id AND ENTITY<>'PARTY';
6821:
6822: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6823: p_init_msg_list => FND_API.G_FALSE,
6824: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6825: p_old_owner_table_id => p_from_id,
6826: p_new_owner_table_id => x_to_id,
6827: p_owner_table_name =>'HZ_PARTIES',
6828: p_orig_system => null,
6830: p_reason_code => 'MERGED',
6831: x_return_status => x_return_status,
6832: x_msg_count =>l_msg_count,
6833: x_msg_data =>l_msg_data);
6834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6835: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6836: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6837: FND_MSG_PUB.ADD;
6838: x_return_status := FND_API.G_RET_STS_ERROR;
6834: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6835: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6836: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6837: FND_MSG_PUB.ADD;
6838: x_return_status := FND_API.G_RET_STS_ERROR;
6839: RETURN;
6840: END IF;
6841:
6842: EXCEPTION
6843: WHEN OTHERS THEN
6844: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6845: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6846: FND_MSG_PUB.ADD;
6847: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6848:
6849: END do_party_merge;
6850:
6851: PROCEDURE do_displayed_duns_merge(
6848:
6849: END do_party_merge;
6850:
6851: PROCEDURE do_displayed_duns_merge(
6852: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6853: x_to_id IN OUT NOCOPY NUMBER,
6854: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6855: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6856: x_return_status IN OUT NOCOPY VARCHAR2
6850:
6851: PROCEDURE do_displayed_duns_merge(
6852: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6853: x_to_id IN OUT NOCOPY NUMBER,
6854: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6855: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6856: x_return_status IN OUT NOCOPY VARCHAR2
6857: ) IS
6858:
6851: PROCEDURE do_displayed_duns_merge(
6852: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6853: x_to_id IN OUT NOCOPY NUMBER,
6854: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6855: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6856: x_return_status IN OUT NOCOPY VARCHAR2
6857: ) IS
6858:
6859: BEGIN
6875: WHEN OTHERS THEN
6876: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6877: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6878: FND_MSG_PUB.ADD;
6879: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6880: END do_displayed_duns_merge;
6881:
6882:
6883: PROCEDURE insert_request_log(
7017:
7018:
7019: END do_denormalize_contact_point;
7020:
7021: PROCEDURE do_hierarchy_nodes_merge(p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
7022: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7023: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7024: x_return_status IN OUT NOCOPY VARCHAR2,
7025: p_action IN VARCHAR2,
7018:
7019: END do_denormalize_contact_point;
7020:
7021: PROCEDURE do_hierarchy_nodes_merge(p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
7022: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7023: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7024: x_return_status IN OUT NOCOPY VARCHAR2,
7025: p_action IN VARCHAR2,
7026: p_sub_obj_merge IN VARCHAR2 :=FND_API.G_MISS_CHAR
7019: END do_denormalize_contact_point;
7020:
7021: PROCEDURE do_hierarchy_nodes_merge(p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
7022: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7023: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7024: x_return_status IN OUT NOCOPY VARCHAR2,
7025: p_action IN VARCHAR2,
7026: p_sub_obj_merge IN VARCHAR2 :=FND_API.G_MISS_CHAR
7027: )
7022: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7023: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
7024: x_return_status IN OUT NOCOPY VARCHAR2,
7025: p_action IN VARCHAR2,
7026: p_sub_obj_merge IN VARCHAR2 :=FND_API.G_MISS_CHAR
7027: )
7028: IS
7029: CURSOR c_hier_flag(cp_rel_type VARCHAR2) IS
7030: SELECT HIERARCHICAL_FLAG, MULTIPLE_PARENT_ALLOWED --5547536
7149: IF l_allow_child_merge = 'N' AND p_action = 'T' THEN
7150: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
7151: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
7152: FND_MSG_PUB.ADD;
7153: x_return_status := FND_API.G_RET_STS_ERROR;
7154: return;
7155: END IF;
7156: END IF;
7157:
7186:
7187: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
7188: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
7189: FND_MSG_PUB.ADD;
7190: x_return_status := FND_API.G_RET_STS_ERROR;
7191: return;
7192: END IF;
7193: END IF;
7194:
7225:
7226: END IF;
7227:
7228: HZ_HIERARCHY_PUB.update_link(
7229: p_init_msg_list => FND_API.G_FALSE,
7230: p_hierarchy_node_rec => l_hierarchy_rec,
7231: x_return_status => x_return_status,
7232: x_msg_count => l_msg_count,
7233: x_msg_data => l_msg_data
7233: x_msg_data => l_msg_data
7234: );
7235: --Bug 9464314
7236: IF x_return_status = 'U' AND INSTR(l_msg_data,'1403') > 0 THEN
7237: x_return_status := FND_API.G_RET_STS_SUCCESS;
7238: l_msg_data := NULL;
7239: END IF;
7240:
7241: END IF;
7279: l_hierarchy_rec.child_id := l_subject_id;
7280: END IF;
7281: END IF;
7282: HZ_HIERARCHY_PUB.create_link(
7283: p_init_msg_list => FND_API.G_FALSE,
7284: p_hierarchy_node_rec => l_hierarchy_rec,
7285: x_return_status => l_return_status,
7286: x_msg_count => l_msg_count,
7287: x_msg_data => l_msg_data