1: PACKAGE BODY HZ_MERGE_PKG AS
2: /*$Header: ARHMPKGB.pls 120.61.12010000.2 2008/10/27 06:45:18 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',
3022: DELETE FROM HZ_DQM_SYNC_INTERFACE WHERE STAGED_FLAG='N'
3023: AND RECORD_ID=p_from_id AND ENTITY='CONTACT_POINTS';
3024:
3025: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3026: p_init_msg_list => FND_API.G_FALSE,
3027: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3028: p_old_owner_table_id => p_from_id,
3029: p_new_owner_table_id => x_to_id,
3030: p_owner_table_name =>'HZ_CONTACT_POINTS',
3023: AND RECORD_ID=p_from_id AND ENTITY='CONTACT_POINTS';
3024:
3025: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3026: p_init_msg_list => FND_API.G_FALSE,
3027: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3028: p_old_owner_table_id => p_from_id,
3029: p_new_owner_table_id => x_to_id,
3030: p_owner_table_name =>'HZ_CONTACT_POINTS',
3031: p_orig_system => null,
3033: p_reason_code => 'MERGED',
3034: x_return_status => x_return_status,
3035: x_msg_count =>l_msg_count,
3036: x_msg_data =>l_msg_data);
3037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3038: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3039: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3040: FND_MSG_PUB.ADD;
3041: x_return_status := FND_API.G_RET_STS_ERROR;
3037: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3038: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3039: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3040: FND_MSG_PUB.ADD;
3041: x_return_status := FND_API.G_RET_STS_ERROR;
3042: RETURN;
3043: END IF;
3044:
3045: ELSE
3129: WHEN OTHERS THEN
3130: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3131: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3132: FND_MSG_PUB.ADD;
3133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3134: END do_contact_point_transfer;
3135:
3136: PROCEDURE do_contact_point_transfer2(
3137: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3133: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3134: END do_contact_point_transfer;
3135:
3136: PROCEDURE do_contact_point_transfer2(
3137: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3138: x_to_id IN OUT NOCOPY NUMBER,
3139: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3140: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3141: x_return_status IN OUT NOCOPY VARCHAR2
3135:
3136: PROCEDURE do_contact_point_transfer2(
3137: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3138: x_to_id IN OUT NOCOPY NUMBER,
3139: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3140: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3141: x_return_status IN OUT NOCOPY VARCHAR2
3142: ) IS
3143:
3136: PROCEDURE do_contact_point_transfer2(
3137: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3138: x_to_id IN OUT NOCOPY NUMBER,
3139: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3140: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3141: x_return_status IN OUT NOCOPY VARCHAR2
3142: ) IS
3143:
3144: l_msg_data VARCHAR2(2000);
3160:
3161:
3162: BEGIN
3163:
3164: IF (x_to_id <> FND_API.G_MISS_NUM AND
3165: x_to_id <> p_from_id) THEN
3166: -- Update and set status to merged
3167: UPDATE HZ_CONTACT_POINTS
3168: SET
3179: DELETE FROM HZ_DQM_SYNC_INTERFACE WHERE STAGED_FLAG='N'
3180: AND RECORD_ID=p_from_id AND ENTITY='CONTACT_POINTS';
3181:
3182: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3183: p_init_msg_list => FND_API.G_FALSE,
3184: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3185: p_old_owner_table_id => p_from_id,
3186: p_new_owner_table_id => x_to_id,
3187: p_owner_table_name =>'HZ_CONTACT_POINTS',
3180: AND RECORD_ID=p_from_id AND ENTITY='CONTACT_POINTS';
3181:
3182: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
3183: p_init_msg_list => FND_API.G_FALSE,
3184: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
3185: p_old_owner_table_id => p_from_id,
3186: p_new_owner_table_id => x_to_id,
3187: p_owner_table_name =>'HZ_CONTACT_POINTS',
3188: p_orig_system => null,
3190: p_reason_code => 'MERGED',
3191: x_return_status => x_return_status,
3192: x_msg_count =>l_msg_count,
3193: x_msg_data =>l_msg_data);
3194: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3195: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3196: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3197: FND_MSG_PUB.ADD;
3198: x_return_status := FND_API.G_RET_STS_ERROR;
3194: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
3195: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3196: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
3197: FND_MSG_PUB.ADD;
3198: x_return_status := FND_API.G_RET_STS_ERROR;
3199: RETURN;
3200: END IF;
3201: ELSE
3202: --- Transfer ---
3260: WHEN OTHERS THEN
3261: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3262: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3263: FND_MSG_PUB.ADD;
3264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3265: END do_contact_point_transfer2;
3266:
3267: PROCEDURE do_contact_pref_transfer(
3268: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3264: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3265: END do_contact_point_transfer2;
3266:
3267: PROCEDURE do_contact_pref_transfer(
3268: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3269: x_to_id IN OUT NOCOPY NUMBER,
3270: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3271: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3272: x_return_status IN OUT NOCOPY VARCHAR2
3266:
3267: PROCEDURE do_contact_pref_transfer(
3268: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3269: x_to_id IN OUT NOCOPY NUMBER,
3270: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3271: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3272: x_return_status IN OUT NOCOPY VARCHAR2
3273: ) IS
3274:
3267: PROCEDURE do_contact_pref_transfer(
3268: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3269: x_to_id IN OUT NOCOPY NUMBER,
3270: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3271: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3272: x_return_status IN OUT NOCOPY VARCHAR2
3273: ) IS
3274:
3275: BEGIN
3272: x_return_status IN OUT NOCOPY VARCHAR2
3273: ) IS
3274:
3275: BEGIN
3276: IF (x_to_id <> FND_API.G_MISS_NUM AND
3277: x_to_id <> p_from_id) THEN
3278: UPDATE HZ_CONTACT_PREFERENCES
3279: SET
3280: status = 'M',
3306: WHEN OTHERS THEN
3307: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3308: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3309: FND_MSG_PUB.ADD;
3310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3311: END do_contact_pref_transfer;
3312:
3313: PROCEDURE do_references_transfer(
3314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3310: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3311: END do_contact_pref_transfer;
3312:
3313: PROCEDURE do_references_transfer(
3314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3315: x_to_id IN OUT NOCOPY NUMBER,
3316: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3317: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3318: x_return_status IN OUT NOCOPY VARCHAR2
3312:
3313: PROCEDURE do_references_transfer(
3314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3315: x_to_id IN OUT NOCOPY NUMBER,
3316: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3317: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3318: x_return_status IN OUT NOCOPY VARCHAR2
3319: ) IS
3320:
3313: PROCEDURE do_references_transfer(
3314: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3315: x_to_id IN OUT NOCOPY NUMBER,
3316: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3317: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3318: x_return_status IN OUT NOCOPY VARCHAR2
3319: ) IS
3320:
3321: BEGIN
3319: ) IS
3320:
3321: BEGIN
3322:
3323: IF (x_to_id <> FND_API.G_MISS_NUM AND
3324: x_to_id <> p_from_id) THEN
3325: UPDATE HZ_REFERENCES
3326: SET
3327: status = 'M',
3353: WHEN OTHERS THEN
3354: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3355: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3356: FND_MSG_PUB.ADD;
3357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3358: END do_references_transfer;
3359:
3360: PROCEDURE do_certification_transfer(
3361: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3357: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3358: END do_references_transfer;
3359:
3360: PROCEDURE do_certification_transfer(
3361: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3362: x_to_id IN OUT NOCOPY NUMBER,
3363: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3364: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3365: x_return_status IN OUT NOCOPY VARCHAR2
3359:
3360: PROCEDURE do_certification_transfer(
3361: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3362: x_to_id IN OUT NOCOPY NUMBER,
3363: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3364: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3365: x_return_status IN OUT NOCOPY VARCHAR2
3366: ) IS
3367:
3360: PROCEDURE do_certification_transfer(
3361: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3362: x_to_id IN OUT NOCOPY NUMBER,
3363: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3364: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3365: x_return_status IN OUT NOCOPY VARCHAR2
3366: ) IS
3367:
3368: BEGIN
3366: ) IS
3367:
3368: BEGIN
3369:
3370: IF (x_to_id <> FND_API.G_MISS_NUM AND
3371: x_to_id <> p_from_id) THEN
3372: UPDATE HZ_CERTIFICATIONS
3373: SET
3374: STATUS = 'M',
3400: WHEN OTHERS THEN
3401: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3402: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3403: FND_MSG_PUB.ADD;
3404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3405: END do_certification_transfer;
3406:
3407: PROCEDURE do_credit_ratings_transfer(
3408: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3404: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3405: END do_certification_transfer;
3406:
3407: PROCEDURE do_credit_ratings_transfer(
3408: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3409: x_to_id IN OUT NOCOPY NUMBER,
3410: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3411: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3412: x_return_status IN OUT NOCOPY VARCHAR2
3406:
3407: PROCEDURE do_credit_ratings_transfer(
3408: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3409: x_to_id IN OUT NOCOPY NUMBER,
3410: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3411: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3412: x_return_status IN OUT NOCOPY VARCHAR2
3413: ) IS
3414:
3407: PROCEDURE do_credit_ratings_transfer(
3408: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3409: x_to_id IN OUT NOCOPY NUMBER,
3410: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3411: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3412: x_return_status IN OUT NOCOPY VARCHAR2
3413: ) IS
3414:
3415: BEGIN
3413: ) IS
3414:
3415: BEGIN
3416:
3417: IF (x_to_id <> FND_API.G_MISS_NUM AND
3418: x_to_id <> p_from_id) THEN
3419: UPDATE HZ_CREDIT_RATINGS
3420: SET
3421: STATUS = 'M',
3447: WHEN OTHERS THEN
3448: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3449: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3450: FND_MSG_PUB.ADD;
3451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3452: END do_credit_ratings_transfer;
3453:
3454: PROCEDURE do_security_issued_transfer(
3455: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3451: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3452: END do_credit_ratings_transfer;
3453:
3454: PROCEDURE do_security_issued_transfer(
3455: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3456: x_to_id IN OUT NOCOPY NUMBER,
3457: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3458: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3459: x_return_status IN OUT NOCOPY VARCHAR2
3453:
3454: PROCEDURE do_security_issued_transfer(
3455: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3456: x_to_id IN OUT NOCOPY NUMBER,
3457: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3458: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3459: x_return_status IN OUT NOCOPY VARCHAR2
3460: ) IS
3461:
3454: PROCEDURE do_security_issued_transfer(
3455: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3456: x_to_id IN OUT NOCOPY NUMBER,
3457: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3458: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3459: x_return_status IN OUT NOCOPY VARCHAR2
3460: ) IS
3461:
3462: BEGIN
3460: ) IS
3461:
3462: BEGIN
3463:
3464: IF (x_to_id <> FND_API.G_MISS_NUM AND
3465: x_to_id <> p_from_id) THEN
3466: UPDATE HZ_SECURITY_ISSUED
3467: SET
3468: STATUS = 'M',
3494: WHEN OTHERS THEN
3495: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3496: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3497: FND_MSG_PUB.ADD;
3498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3499: END do_security_issued_transfer;
3500:
3501: PROCEDURE do_financial_reports_transfer(
3502: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3498: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3499: END do_security_issued_transfer;
3500:
3501: PROCEDURE do_financial_reports_transfer(
3502: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3503: x_to_id IN OUT NOCOPY NUMBER,
3504: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3505: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3506: x_return_status IN OUT NOCOPY VARCHAR2
3500:
3501: PROCEDURE do_financial_reports_transfer(
3502: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3503: x_to_id IN OUT NOCOPY NUMBER,
3504: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3505: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3506: x_return_status IN OUT NOCOPY VARCHAR2
3507: ) IS
3508:
3501: PROCEDURE do_financial_reports_transfer(
3502: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3503: x_to_id IN OUT NOCOPY NUMBER,
3504: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3505: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3506: x_return_status IN OUT NOCOPY VARCHAR2
3507: ) IS
3508:
3509: BEGIN
3507: ) IS
3508:
3509: BEGIN
3510:
3511: IF (x_to_id <> FND_API.G_MISS_NUM AND
3512: x_to_id <> p_from_id) THEN
3513: UPDATE HZ_FINANCIAL_REPORTS
3514: SET
3515: STATUS = 'M',
3541: WHEN OTHERS THEN
3542: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3543: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3544: FND_MSG_PUB.ADD;
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3546: END do_financial_reports_transfer;
3547:
3548: PROCEDURE do_org_indicators_transfer(
3549: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3545: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3546: END do_financial_reports_transfer;
3547:
3548: PROCEDURE do_org_indicators_transfer(
3549: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3550: x_to_id IN OUT NOCOPY NUMBER,
3551: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3552: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3553: x_return_status IN OUT NOCOPY VARCHAR2
3547:
3548: PROCEDURE do_org_indicators_transfer(
3549: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3550: x_to_id IN OUT NOCOPY NUMBER,
3551: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3552: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3553: x_return_status IN OUT NOCOPY VARCHAR2
3554: ) IS
3555:
3548: PROCEDURE do_org_indicators_transfer(
3549: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3550: x_to_id IN OUT NOCOPY NUMBER,
3551: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3552: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3553: x_return_status IN OUT NOCOPY VARCHAR2
3554: ) IS
3555:
3556: BEGIN
3554: ) IS
3555:
3556: BEGIN
3557:
3558: IF (x_to_id <> FND_API.G_MISS_NUM AND
3559: x_to_id <> p_from_id) THEN
3560: UPDATE HZ_ORGANIZATION_INDICATORS
3561: SET
3562: STATUS = 'M',
3588: WHEN OTHERS THEN
3589: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3590: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3591: FND_MSG_PUB.ADD;
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: END do_org_indicators_transfer;
3594:
3595: PROCEDURE do_ind_reference_transfer(
3596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3592: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3593: END do_org_indicators_transfer;
3594:
3595: PROCEDURE do_ind_reference_transfer(
3596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3597: x_to_id IN OUT NOCOPY NUMBER,
3598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3600: x_return_status IN OUT NOCOPY VARCHAR2
3594:
3595: PROCEDURE do_ind_reference_transfer(
3596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3597: x_to_id IN OUT NOCOPY NUMBER,
3598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3600: x_return_status IN OUT NOCOPY VARCHAR2
3601: ) IS
3602:
3595: PROCEDURE do_ind_reference_transfer(
3596: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3597: x_to_id IN OUT NOCOPY NUMBER,
3598: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3599: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3600: x_return_status IN OUT NOCOPY VARCHAR2
3601: ) IS
3602:
3603: BEGIN
3601: ) IS
3602:
3603: BEGIN
3604:
3605: IF (x_to_id <> FND_API.G_MISS_NUM AND
3606: x_to_id <> p_from_id) THEN
3607: UPDATE HZ_INDUSTRIAL_REFERENCE
3608: SET
3609: STATUS = 'M',
3635: WHEN OTHERS THEN
3636: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3637: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3638: FND_MSG_PUB.ADD;
3639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3640: END do_ind_reference_transfer;
3641:
3642: PROCEDURE do_per_interest_transfer(
3643: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3639: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3640: END do_ind_reference_transfer;
3641:
3642: PROCEDURE do_per_interest_transfer(
3643: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3644: x_to_id IN OUT NOCOPY NUMBER,
3645: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3646: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3647: x_return_status IN OUT NOCOPY VARCHAR2
3641:
3642: PROCEDURE do_per_interest_transfer(
3643: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3644: x_to_id IN OUT NOCOPY NUMBER,
3645: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3646: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3647: x_return_status IN OUT NOCOPY VARCHAR2
3648: ) IS
3649:
3642: PROCEDURE do_per_interest_transfer(
3643: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3644: x_to_id IN OUT NOCOPY NUMBER,
3645: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3646: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3647: x_return_status IN OUT NOCOPY VARCHAR2
3648: ) IS
3649:
3650: BEGIN
3648: ) IS
3649:
3650: BEGIN
3651:
3652: IF (x_to_id <> FND_API.G_MISS_NUM AND
3653: x_to_id <> p_from_id) THEN
3654: UPDATE HZ_PERSON_INTEREST
3655: SET
3656: STATUS = 'M',
3682: WHEN OTHERS THEN
3683: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3684: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3685: FND_MSG_PUB.ADD;
3686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3687: END do_per_interest_transfer;
3688:
3689: PROCEDURE do_citizenship_transfer(
3690: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3686: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3687: END do_per_interest_transfer;
3688:
3689: PROCEDURE do_citizenship_transfer(
3690: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3691: x_to_id IN OUT NOCOPY NUMBER,
3692: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3693: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3694: x_return_status IN OUT NOCOPY VARCHAR2
3688:
3689: PROCEDURE do_citizenship_transfer(
3690: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3691: x_to_id IN OUT NOCOPY NUMBER,
3692: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3693: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3694: x_return_status IN OUT NOCOPY VARCHAR2
3695: ) IS
3696:
3689: PROCEDURE do_citizenship_transfer(
3690: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3691: x_to_id IN OUT NOCOPY NUMBER,
3692: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3693: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3694: x_return_status IN OUT NOCOPY VARCHAR2
3695: ) IS
3696:
3697: BEGIN
3695: ) IS
3696:
3697: BEGIN
3698:
3699: IF (x_to_id <> FND_API.G_MISS_NUM AND
3700: x_to_id <> p_from_id) THEN
3701: UPDATE HZ_CITIZENSHIP
3702: SET
3703: STATUS = 'M',
3729: WHEN OTHERS THEN
3730: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3731: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3732: FND_MSG_PUB.ADD;
3733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3734: END do_citizenship_transfer;
3735:
3736: PROCEDURE do_education_transfer(
3737: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3733: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3734: END do_citizenship_transfer;
3735:
3736: PROCEDURE do_education_transfer(
3737: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3738: x_to_id IN OUT NOCOPY NUMBER,
3739: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3740: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3741: x_return_status IN OUT NOCOPY VARCHAR2
3735:
3736: PROCEDURE do_education_transfer(
3737: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3738: x_to_id IN OUT NOCOPY NUMBER,
3739: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3740: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3741: x_return_status IN OUT NOCOPY VARCHAR2
3742: ) IS
3743:
3736: PROCEDURE do_education_transfer(
3737: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3738: x_to_id IN OUT NOCOPY NUMBER,
3739: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3740: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3741: x_return_status IN OUT NOCOPY VARCHAR2
3742: ) IS
3743:
3744: BEGIN
3742: ) IS
3743:
3744: BEGIN
3745:
3746: IF (x_to_id <> FND_API.G_MISS_NUM AND
3747: x_to_id <> p_from_id) THEN
3748: UPDATE HZ_EDUCATION
3749: SET
3750: STATUS = 'M',
3776: WHEN OTHERS THEN
3777: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3778: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3779: FND_MSG_PUB.ADD;
3780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3781: END do_education_transfer;
3782:
3783: PROCEDURE do_education_school_transfer(
3784: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3780: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3781: END do_education_transfer;
3782:
3783: PROCEDURE do_education_school_transfer(
3784: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3785: x_to_id IN OUT NOCOPY NUMBER,
3786: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3787: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3788: x_return_status IN OUT NOCOPY VARCHAR2
3782:
3783: PROCEDURE do_education_school_transfer(
3784: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3785: x_to_id IN OUT NOCOPY NUMBER,
3786: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3787: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3788: x_return_status IN OUT NOCOPY VARCHAR2
3789: ) IS
3790:
3783: PROCEDURE do_education_school_transfer(
3784: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3785: x_to_id IN OUT NOCOPY NUMBER,
3786: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3787: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3788: x_return_status IN OUT NOCOPY VARCHAR2
3789: ) IS
3790:
3791: BEGIN
3789: ) IS
3790:
3791: BEGIN
3792:
3793: IF (x_to_id <> FND_API.G_MISS_NUM AND
3794: x_to_id <> p_from_id) THEN
3795: UPDATE HZ_EDUCATION
3796: SET
3797: STATUS = 'M',
3823: WHEN OTHERS THEN
3824: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3825: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3826: FND_MSG_PUB.ADD;
3827: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3828: END do_education_school_transfer;
3829:
3830:
3831: PROCEDURE do_emp_history_transfer(
3828: END do_education_school_transfer;
3829:
3830:
3831: PROCEDURE do_emp_history_transfer(
3832: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3833: x_to_id IN OUT NOCOPY NUMBER,
3834: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3835: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3836: x_return_status IN OUT NOCOPY VARCHAR2
3830:
3831: PROCEDURE do_emp_history_transfer(
3832: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3833: x_to_id IN OUT NOCOPY NUMBER,
3834: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3835: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3836: x_return_status IN OUT NOCOPY VARCHAR2
3837: ) IS
3838:
3831: PROCEDURE do_emp_history_transfer(
3832: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3833: x_to_id IN OUT NOCOPY NUMBER,
3834: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3835: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3836: x_return_status IN OUT NOCOPY VARCHAR2
3837: ) IS
3838:
3839: BEGIN
3837: ) IS
3838:
3839: BEGIN
3840:
3841: IF (x_to_id <> FND_API.G_MISS_NUM AND
3842: x_to_id <> p_from_id) THEN
3843: UPDATE HZ_EMPLOYMENT_HISTORY
3844: SET
3845: STATUS = 'M',
3871: WHEN OTHERS THEN
3872: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3873: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3874: FND_MSG_PUB.ADD;
3875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3876: END do_emp_history_transfer;
3877:
3878: PROCEDURE do_employed_transfer(
3879: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3875: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3876: END do_emp_history_transfer;
3877:
3878: PROCEDURE do_employed_transfer(
3879: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3880: x_to_id IN OUT NOCOPY NUMBER,
3881: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3882: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3883: x_return_status IN OUT NOCOPY VARCHAR2
3877:
3878: PROCEDURE do_employed_transfer(
3879: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3880: x_to_id IN OUT NOCOPY NUMBER,
3881: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3882: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3883: x_return_status IN OUT NOCOPY VARCHAR2
3884: ) IS
3885:
3878: PROCEDURE do_employed_transfer(
3879: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3880: x_to_id IN OUT NOCOPY NUMBER,
3881: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3882: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3883: x_return_status IN OUT NOCOPY VARCHAR2
3884: ) IS
3885:
3886: BEGIN
3884: ) IS
3885:
3886: BEGIN
3887:
3888: IF (x_to_id <> FND_API.G_MISS_NUM AND
3889: x_to_id <> p_from_id) THEN
3890: UPDATE HZ_EMPLOYMENT_HISTORY
3891: SET
3892: STATUS = 'M',
3918: WHEN OTHERS THEN
3919: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3920: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3921: FND_MSG_PUB.ADD;
3922: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3923: END do_employed_transfer;
3924:
3925:
3926: PROCEDURE do_work_class_transfer(
3923: END do_employed_transfer;
3924:
3925:
3926: PROCEDURE do_work_class_transfer(
3927: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3928: x_to_id IN OUT NOCOPY NUMBER,
3929: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3930: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3931: x_return_status IN OUT NOCOPY VARCHAR2
3925:
3926: PROCEDURE do_work_class_transfer(
3927: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3928: x_to_id IN OUT NOCOPY NUMBER,
3929: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3930: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3931: x_return_status IN OUT NOCOPY VARCHAR2
3932: ) IS
3933:
3926: PROCEDURE do_work_class_transfer(
3927: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3928: x_to_id IN OUT NOCOPY NUMBER,
3929: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3930: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3931: x_return_status IN OUT NOCOPY VARCHAR2
3932: ) IS
3933:
3934: BEGIN
3932: ) IS
3933:
3934: BEGIN
3935:
3936: IF (x_to_id <> FND_API.G_MISS_NUM AND
3937: x_to_id <> p_from_id) THEN
3938: UPDATE HZ_WORK_CLASS
3939: SET
3940: STATUS = 'M',
3966: WHEN OTHERS THEN
3967: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
3968: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
3969: FND_MSG_PUB.ADD;
3970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3971: END do_work_class_transfer;
3972:
3973: PROCEDURE do_org_contact_role_transfer(
3974: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3970: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
3971: END do_work_class_transfer;
3972:
3973: PROCEDURE do_org_contact_role_transfer(
3974: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3975: x_to_id IN OUT NOCOPY NUMBER,
3976: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3977: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3978: x_return_status IN OUT NOCOPY VARCHAR2
3972:
3973: PROCEDURE do_org_contact_role_transfer(
3974: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3975: x_to_id IN OUT NOCOPY NUMBER,
3976: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3977: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3978: x_return_status IN OUT NOCOPY VARCHAR2
3979: ) IS
3980: l_msg_data VARCHAR2(2000);
3973: PROCEDURE do_org_contact_role_transfer(
3974: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
3975: x_to_id IN OUT NOCOPY NUMBER,
3976: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3977: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
3978: x_return_status IN OUT NOCOPY VARCHAR2
3979: ) IS
3980: l_msg_data VARCHAR2(2000);
3981: l_msg_count NUMBER := 0;
3990: FROM HZ_ORG_CONTACT_ROLES
3991: WHERE ORG_CONTACT_ROLE_ID = p_from_id;
3992: BEGIN
3993:
3994: IF (x_to_id <> FND_API.G_MISS_NUM AND
3995: x_to_id <> p_from_id) THEN
3996: UPDATE HZ_ORG_CONTACT_ROLES
3997: SET
3998: STATUS = 'M',
4005: program_update_date = sysdate
4006: WHERE org_contact_role_id = p_from_id;
4007:
4008: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4009: p_init_msg_list => FND_API.G_FALSE,
4010: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4011: p_old_owner_table_id => p_from_id,
4012: p_new_owner_table_id => x_to_id,
4013: p_owner_table_name =>'HZ_ORG_CONTACT_ROLES',
4006: WHERE org_contact_role_id = p_from_id;
4007:
4008: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4009: p_init_msg_list => FND_API.G_FALSE,
4010: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4011: p_old_owner_table_id => p_from_id,
4012: p_new_owner_table_id => x_to_id,
4013: p_owner_table_name =>'HZ_ORG_CONTACT_ROLES',
4014: p_orig_system => null,
4016: p_reason_code => 'MERGED',
4017: x_return_status => x_return_status,
4018: x_msg_count =>l_msg_count,
4019: x_msg_data =>l_msg_data);
4020: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4021: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4022: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4023: FND_MSG_PUB.ADD;
4024: x_return_status := FND_API.G_RET_STS_ERROR;
4020: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4021: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4022: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4023: FND_MSG_PUB.ADD;
4024: x_return_status := FND_API.G_RET_STS_ERROR;
4025: RETURN;
4026: END IF;
4027:
4028: ELSE
4095: WHEN OTHERS THEN
4096: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4097: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4098: FND_MSG_PUB.ADD;
4099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4100: END do_org_contact_role_transfer;
4101:
4102: PROCEDURE do_financial_number_transfer(
4103: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4099: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4100: END do_org_contact_role_transfer;
4101:
4102: PROCEDURE do_financial_number_transfer(
4103: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4104: x_to_id IN OUT NOCOPY NUMBER,
4105: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4106: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4107: x_return_status IN OUT NOCOPY VARCHAR2
4101:
4102: PROCEDURE do_financial_number_transfer(
4103: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4104: x_to_id IN OUT NOCOPY NUMBER,
4105: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4106: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4107: x_return_status IN OUT NOCOPY VARCHAR2
4108: ) IS
4109:
4102: PROCEDURE do_financial_number_transfer(
4103: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4104: x_to_id IN OUT NOCOPY NUMBER,
4105: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4106: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4107: x_return_status IN OUT NOCOPY VARCHAR2
4108: ) IS
4109:
4110: BEGIN
4108: ) IS
4109:
4110: BEGIN
4111:
4112: IF (x_to_id <> FND_API.G_MISS_NUM AND
4113: x_to_id <> p_from_id) THEN
4114: UPDATE HZ_FINANCIAL_NUMBERS
4115: SET
4116: STATUS = 'M',
4141: WHEN OTHERS THEN
4142: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4143: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4144: FND_MSG_PUB.ADD;
4145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4146: END do_financial_number_transfer;
4147:
4148: PROCEDURE do_code_assignment_transfer(
4149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4145: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4146: END do_financial_number_transfer;
4147:
4148: PROCEDURE do_code_assignment_transfer(
4149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4150: x_to_id IN OUT NOCOPY NUMBER,
4151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4153: x_return_status IN OUT NOCOPY VARCHAR2
4147:
4148: PROCEDURE do_code_assignment_transfer(
4149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4150: x_to_id IN OUT NOCOPY NUMBER,
4151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4153: x_return_status IN OUT NOCOPY VARCHAR2
4154: ) IS
4155:
4148: PROCEDURE do_code_assignment_transfer(
4149: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4150: x_to_id IN OUT NOCOPY NUMBER,
4151: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4152: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4153: x_return_status IN OUT NOCOPY VARCHAR2
4154: ) IS
4155:
4156: l_exists VARCHAR2(10);
4185: FETCH check_multiple_assignments INTO l_code_exists;
4186: CLOSE check_multiple_assignments;
4187:
4188:
4189: IF (x_to_id <> FND_API.G_MISS_NUM AND x_to_id <> p_from_id)
4190: OR (NVL(l_code_exists,'N') = 'Y') THEN
4191: UPDATE HZ_CODE_ASSIGNMENTS
4192: SET
4193: STATUS = 'M',
4254: WHEN OTHERS THEN
4255: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4256: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4257: FND_MSG_PUB.ADD;
4258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4259: END do_code_assignment_transfer;
4260:
4261: PROCEDURE do_code_assignment_transfer2(
4262: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4258: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4259: END do_code_assignment_transfer;
4260:
4261: PROCEDURE do_code_assignment_transfer2(
4262: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4263: x_to_id IN OUT NOCOPY NUMBER,
4264: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4265: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4266: x_return_status IN OUT NOCOPY VARCHAR2
4260:
4261: PROCEDURE do_code_assignment_transfer2(
4262: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4263: x_to_id IN OUT NOCOPY NUMBER,
4264: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4265: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4266: x_return_status IN OUT NOCOPY VARCHAR2
4267: ) IS
4268:
4261: PROCEDURE do_code_assignment_transfer2(
4262: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4263: x_to_id IN OUT NOCOPY NUMBER,
4264: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4265: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4266: x_return_status IN OUT NOCOPY VARCHAR2
4267: ) IS
4268:
4269: l_exists VARCHAR2(10);
4296: OPEN check_multiple_assignments;
4297: FETCH check_multiple_assignments INTO l_code_exists;
4298: CLOSE check_multiple_assignments;
4299:
4300: IF (x_to_id <> FND_API.G_MISS_NUM AND
4301: x_to_id <> p_from_id) OR (NVL(l_code_exists,'N') = 'Y') THEN
4302: UPDATE HZ_CODE_ASSIGNMENTS
4303: SET
4304: STATUS = 'M',
4352: WHEN OTHERS THEN
4353: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4354: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4355: FND_MSG_PUB.ADD;
4356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: END do_code_assignment_transfer2;
4358:
4359: PROCEDURE do_per_languages_transfer(
4360: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4356: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4357: END do_code_assignment_transfer2;
4358:
4359: PROCEDURE do_per_languages_transfer(
4360: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4361: x_to_id IN OUT NOCOPY NUMBER,
4362: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4363: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4364: x_return_status IN OUT NOCOPY VARCHAR2
4358:
4359: PROCEDURE do_per_languages_transfer(
4360: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4361: x_to_id IN OUT NOCOPY NUMBER,
4362: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4363: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4364: x_return_status IN OUT NOCOPY VARCHAR2
4365: ) IS
4366: l_count NUMBER;
4359: PROCEDURE do_per_languages_transfer(
4360: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4361: x_to_id IN OUT NOCOPY NUMBER,
4362: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4363: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4364: x_return_status IN OUT NOCOPY VARCHAR2
4365: ) IS
4366: l_count NUMBER;
4367: l_primary_nav_flag VARCHAR2(1):= 'N';
4375: FROM HZ_PERSON_LANGUAGE
4376: WHERE LANGUAGE_USE_REFERENCE_ID = p_from_id;
4377:
4378: BEGIN
4379: IF (x_to_id <> FND_API.G_MISS_NUM AND
4380: x_to_id <> p_from_id) THEN
4381: UPDATE HZ_PERSON_LANGUAGE
4382: SET
4383: STATUS = 'M',
4458: WHEN OTHERS THEN
4459: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4460: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4461: FND_MSG_PUB.ADD;
4462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4463: END do_per_languages_transfer;
4464:
4465: PROCEDURE do_party_site_use_transfer(
4466: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4462: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4463: END do_per_languages_transfer;
4464:
4465: PROCEDURE do_party_site_use_transfer(
4466: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4467: x_to_id IN OUT NOCOPY NUMBER,
4468: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4469: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4470: x_return_status IN OUT NOCOPY VARCHAR2
4464:
4465: PROCEDURE do_party_site_use_transfer(
4466: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4467: x_to_id IN OUT NOCOPY NUMBER,
4468: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4469: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4470: x_return_status IN OUT NOCOPY VARCHAR2
4471: ) IS
4472:
4465: PROCEDURE do_party_site_use_transfer(
4466: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4467: x_to_id IN OUT NOCOPY NUMBER,
4468: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4469: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4470: x_return_status IN OUT NOCOPY VARCHAR2
4471: ) IS
4472:
4473: party_site_use_rec HZ_PARTY_SITE_V2PUB.PARTY_SITE_USE_REC_TYPE;
4497: ----End of Bug No: 3560167-------------------
4498:
4499: BEGIN
4500:
4501: IF (x_to_id <> FND_API.G_MISS_NUM AND
4502: x_to_id <> p_from_id) THEN
4503: UPDATE HZ_PARTY_SITE_USES
4504: SET
4505: ----Bug: 2619948 added setting status to 'M' here too
4521: x_return_status => x_return_status,
4522: x_msg_count => l_msg_count,
4523: x_msg_data => l_msg_data );
4524:
4525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4526: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4527: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site use ID : ' || p_from_id);
4528: FND_MSG_PUB.ADD;
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4525: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4526: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4527: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site use ID : ' || p_from_id);
4528: FND_MSG_PUB.ADD;
4529: x_return_status := FND_API.G_RET_STS_ERROR;
4530:
4531: RETURN;
4532: END IF;
4533:
4530:
4531: RETURN;
4532: END IF;
4533:
4534: party_site_use_rec.party_site_use_id := FND_API.G_MISS_NUM;
4535: party_site_use_rec.party_site_id := p_to_fk_id;
4536:
4537: ----Start of Bug No: 3560167-------------------
4538: IF party_site_use_rec.primary_per_type = 'Y' THEN
4557: x_return_status => x_return_status,
4558: x_msg_count => l_msg_count,
4559: x_msg_data => l_msg_data );
4560:
4561: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4562: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4563: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site use for ID : ' || p_from_id);
4564: FND_MSG_PUB.ADD;
4565: x_return_status := FND_API.G_RET_STS_ERROR;
4561: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4562: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4563: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site use for ID : ' || p_from_id);
4564: FND_MSG_PUB.ADD;
4565: x_return_status := FND_API.G_RET_STS_ERROR;
4566: RETURN;
4567: END IF;
4568:
4569: -- Update and set party_id = p_to_fk_id where pk = from_id
4587: WHEN OTHERS THEN
4588: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4589: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4590: FND_MSG_PUB.ADD;
4591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4592: END do_party_site_use_transfer;
4593:
4594: PROCEDURE do_cust_account_site_transfer(
4595: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4591: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4592: END do_party_site_use_transfer;
4593:
4594: PROCEDURE do_cust_account_site_transfer(
4595: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4596: x_to_id IN OUT NOCOPY NUMBER,
4597: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4598: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4599: x_return_status IN OUT NOCOPY VARCHAR2
4593:
4594: PROCEDURE do_cust_account_site_transfer(
4595: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4596: x_to_id IN OUT NOCOPY NUMBER,
4597: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4598: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4599: x_return_status IN OUT NOCOPY VARCHAR2
4600: ) IS
4601: l_msg_data VARCHAR2(2000);
4594: PROCEDURE do_cust_account_site_transfer(
4595: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4596: x_to_id IN OUT NOCOPY NUMBER,
4597: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4598: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4599: x_return_status IN OUT NOCOPY VARCHAR2
4600: ) IS
4601: l_msg_data VARCHAR2(2000);
4602: l_msg_count NUMBER := 0;
4601: l_msg_data VARCHAR2(2000);
4602: l_msg_count NUMBER := 0;
4603: BEGIN
4604:
4605: IF (x_to_id <> FND_API.G_MISS_NUM AND
4606: x_to_id <> p_from_id) THEN
4607: UPDATE HZ_CUST_ACCT_SITES_ALL
4608: SET
4609: STATUS = 'M',
4616: program_update_date = sysdate
4617: WHERE cust_acct_site_id = p_from_id;
4618:
4619: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4620: p_init_msg_list => FND_API.G_FALSE,
4621: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4622: p_old_owner_table_id => p_from_id,
4623: p_new_owner_table_id => x_to_id,
4624: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
4617: WHERE cust_acct_site_id = p_from_id;
4618:
4619: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4620: p_init_msg_list => FND_API.G_FALSE,
4621: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4622: p_old_owner_table_id => p_from_id,
4623: p_new_owner_table_id => x_to_id,
4624: p_owner_table_name =>'HZ_CUST_ACCT_SITES_ALL',
4625: p_orig_system => null,
4627: p_reason_code => 'MERGED',
4628: x_return_status => x_return_status,
4629: x_msg_count =>l_msg_count,
4630: x_msg_data =>l_msg_data);
4631: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4632: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4633: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4634: FND_MSG_PUB.ADD;
4635: x_return_status := FND_API.G_RET_STS_ERROR;
4631: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4632: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4633: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4634: FND_MSG_PUB.ADD;
4635: x_return_status := FND_API.G_RET_STS_ERROR;
4636: RETURN;
4637: END IF;
4638:
4639: ELSE
4655: WHEN OTHERS THEN
4656: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4657: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4658: FND_MSG_PUB.ADD;
4659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4660: END do_cust_account_site_transfer;
4661:
4662: PROCEDURE do_org_contact_transfer(
4663: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4659: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4660: END do_cust_account_site_transfer;
4661:
4662: PROCEDURE do_org_contact_transfer(
4663: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4664: x_to_id IN OUT NOCOPY NUMBER,
4665: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4666: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4667: x_return_status IN OUT NOCOPY VARCHAR2
4661:
4662: PROCEDURE do_org_contact_transfer(
4663: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4664: x_to_id IN OUT NOCOPY NUMBER,
4665: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4666: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4667: x_return_status IN OUT NOCOPY VARCHAR2
4668: ) IS
4669: l_msg_data VARCHAR2(2000);
4662: PROCEDURE do_org_contact_transfer(
4663: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4664: x_to_id IN OUT NOCOPY NUMBER,
4665: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4666: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4667: x_return_status IN OUT NOCOPY VARCHAR2
4668: ) IS
4669: l_msg_data VARCHAR2(2000);
4670: l_msg_count NUMBER := 0;
4669: l_msg_data VARCHAR2(2000);
4670: l_msg_count NUMBER := 0;
4671: BEGIN
4672:
4673: IF (x_to_id <> FND_API.G_MISS_NUM AND
4674: x_to_id <> p_from_id) THEN
4675: UPDATE HZ_ORG_CONTACTS
4676: SET
4677: STATUS = 'M',
4687: DELETE FROM HZ_DQM_SYNC_INTERFACE WHERE STAGED_FLAG='N' AND ENTITY='CONTACTS'
4688: AND RECORD_ID=p_from_id;
4689:
4690: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4691: p_init_msg_list => FND_API.G_FALSE,
4692: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4693: p_old_owner_table_id => p_from_id,
4694: p_new_owner_table_id => x_to_id,
4695: p_owner_table_name =>'HZ_ORG_CONTACTS',
4688: AND RECORD_ID=p_from_id;
4689:
4690: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4691: p_init_msg_list => FND_API.G_FALSE,
4692: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4693: p_old_owner_table_id => p_from_id,
4694: p_new_owner_table_id => x_to_id,
4695: p_owner_table_name =>'HZ_ORG_CONTACTS',
4696: p_orig_system => null,
4698: p_reason_code => 'MERGED',
4699: x_return_status => x_return_status,
4700: x_msg_count =>l_msg_count,
4701: x_msg_data =>l_msg_data);
4702: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4703: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4704: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4705: FND_MSG_PUB.ADD;
4706: x_return_status := FND_API.G_RET_STS_ERROR;
4702: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4703: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4704: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4705: FND_MSG_PUB.ADD;
4706: x_return_status := FND_API.G_RET_STS_ERROR;
4707: RETURN;
4708: END IF;
4709:
4710: ELSE
4726: WHEN OTHERS THEN
4727: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4728: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4729: FND_MSG_PUB.ADD;
4730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4731: END do_org_contact_transfer;
4732:
4733: PROCEDURE do_org_contact_transfer2(
4734: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4730: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4731: END do_org_contact_transfer;
4732:
4733: PROCEDURE do_org_contact_transfer2(
4734: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4735: x_to_id IN OUT NOCOPY NUMBER,
4736: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4737: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4738: x_return_status IN OUT NOCOPY VARCHAR2
4732:
4733: PROCEDURE do_org_contact_transfer2(
4734: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4735: x_to_id IN OUT NOCOPY NUMBER,
4736: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4737: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4738: x_return_status IN OUT NOCOPY VARCHAR2
4739: ) IS
4740:
4733: PROCEDURE do_org_contact_transfer2(
4734: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4735: x_to_id IN OUT NOCOPY NUMBER,
4736: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4737: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4738: x_return_status IN OUT NOCOPY VARCHAR2
4739: ) IS
4740:
4741: CURSOR c_merge_to_org_contact IS
4860: DELETE FROM HZ_DQM_SYNC_INTERFACE WHERE STAGED_FLAG='N' AND ENTITY='CONTACTS'
4861: AND RECORD_ID=p_from_id;
4862:
4863: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4864: p_init_msg_list => FND_API.G_FALSE,
4865: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4866: p_old_owner_table_id => p_from_id,
4867: p_new_owner_table_id => l_to_orgcontact_id,
4868: p_owner_table_name =>'HZ_ORG_CONTACTS',
4861: AND RECORD_ID=p_from_id;
4862:
4863: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
4864: p_init_msg_list => FND_API.G_FALSE,
4865: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
4866: p_old_owner_table_id => p_from_id,
4867: p_new_owner_table_id => l_to_orgcontact_id,
4868: p_owner_table_name =>'HZ_ORG_CONTACTS',
4869: p_orig_system => null,
4871: p_reason_code => 'MERGED',
4872: x_return_status => x_return_status,
4873: x_msg_count =>l_msg_count,
4874: x_msg_data =>l_msg_data);
4875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4876: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4877: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4878: FND_MSG_PUB.ADD;
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4875: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
4876: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4877: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
4878: FND_MSG_PUB.ADD;
4879: x_return_status := FND_API.G_RET_STS_ERROR;
4880: RETURN;
4881: END IF;
4882:
4883: ---for NOCOPY fix
4888: WHEN OTHERS THEN
4889: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
4890: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
4891: FND_MSG_PUB.ADD;
4892: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
4893: END do_org_contact_transfer2;
4894:
4895:
4896:
4895:
4896:
4897: --4307667
4898: PROCEDURE do_party_usage_merge(
4899: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4900: x_to_id IN OUT NOCOPY NUMBER,
4901: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4902: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4903: x_return_status IN OUT NOCOPY VARCHAR2
4897: --4307667
4898: PROCEDURE do_party_usage_merge(
4899: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4900: x_to_id IN OUT NOCOPY NUMBER,
4901: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4902: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4903: x_return_status IN OUT NOCOPY VARCHAR2
4904:
4905: ) IS
4898: PROCEDURE do_party_usage_merge(
4899: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
4900: x_to_id IN OUT NOCOPY NUMBER,
4901: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4902: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
4903: x_return_status IN OUT NOCOPY VARCHAR2
4904:
4905: ) IS
4906: x_msg_count VARCHAR2(2000);
5003:
5004: HZ_PARTY_USG_ASSIGNMENT_PVT.assign_party_usage
5005: (p_init_msg_list,0,p_party_usg_assignment_rec,x_return_status,x_msg_count,x_msg_data);
5006:
5007: IF x_return_status = FND_API.G_RET_STS_SUCCESS THEN
5008:
5009: DELETE FROM hz_party_usg_assignments
5010: WHERE party_usg_assignment_id = p_from_id;
5011:
5024: WHEN OTHERS THEN
5025: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5026: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5027: FND_MSG_PUB.ADD;
5028: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5029: END do_party_usage_merge;
5030:
5031:
5032: PROCEDURE do_party_reln_obj_merge(
5029: END do_party_usage_merge;
5030:
5031:
5032: PROCEDURE do_party_reln_obj_merge(
5033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5034: x_to_id IN OUT NOCOPY NUMBER,
5035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5037: x_return_status IN OUT NOCOPY VARCHAR2
5031:
5032: PROCEDURE do_party_reln_obj_merge(
5033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5034: x_to_id IN OUT NOCOPY NUMBER,
5035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5037: x_return_status IN OUT NOCOPY VARCHAR2
5038:
5039: ) IS
5032: PROCEDURE do_party_reln_obj_merge(
5033: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5034: x_to_id IN OUT NOCOPY NUMBER,
5035: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5036: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5037: x_return_status IN OUT NOCOPY VARCHAR2
5038:
5039: ) IS
5040:
5117: l_direction_code HZ_RELATIONSHIPS.DIRECTION_CODE%TYPE;
5118: --6696774 end
5119: BEGIN
5120:
5121: IF (x_to_id <> FND_API.G_MISS_NUM AND x_to_id <> p_from_id) THEN
5122: OPEN c_party(p_from_id);
5123: FETCH c_party INTO l_from_party_id;
5124: IF c_party%NOTFOUND THEN
5125: l_from_party_id := NULL;
5138: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5139: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5140: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5141: FND_MSG_PUB.ADD;
5142: x_return_status := FND_API.G_RET_STS_ERROR;
5143: RETURN;
5144: END IF;
5145:
5146: IF l_from_party_id IS NOT NULL THEN
5204: CLOSE c_check_valid_merge;
5205: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5206: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5207: FND_MSG_PUB.ADD;
5208: x_return_status := FND_API.G_RET_STS_ERROR;
5209: RETURN;
5210: END IF;
5211: CLOSE c_check_valid_merge;
5212:
5404: WHEN OTHERS THEN
5405: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5406: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5407: FND_MSG_PUB.ADD;
5408: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5409:
5410: END;
5411: END IF; --l_subject_id = p_to_fk_id
5412:
5418: WHEN OTHERS THEN
5419: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5420: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5421: FND_MSG_PUB.ADD;
5422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5423: END do_party_reln_obj_merge;
5424:
5425: PROCEDURE do_party_reln_subj_merge(
5426: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5422: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5423: END do_party_reln_obj_merge;
5424:
5425: PROCEDURE do_party_reln_subj_merge(
5426: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5427: x_to_id IN OUT NOCOPY NUMBER,
5428: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5429: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5430: x_return_status IN OUT NOCOPY VARCHAR2
5424:
5425: PROCEDURE do_party_reln_subj_merge(
5426: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5427: x_to_id IN OUT NOCOPY NUMBER,
5428: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5429: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5430: x_return_status IN OUT NOCOPY VARCHAR2
5431:
5432: ) IS
5425: PROCEDURE do_party_reln_subj_merge(
5426: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5427: x_to_id IN OUT NOCOPY NUMBER,
5428: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5429: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5430: x_return_status IN OUT NOCOPY VARCHAR2
5431:
5432: ) IS
5433:
5509: l_direction_code HZ_RELATIONSHIPS.DIRECTION_CODE%TYPE;
5510: --6696774 start END
5511: BEGIN
5512:
5513: IF (x_to_id <> FND_API.G_MISS_NUM AND x_to_id <> p_from_id) THEN
5514:
5515: OPEN c_party(p_from_id);
5516: FETCH c_party INTO l_from_party_id;
5517: IF c_party%NOTFOUND THEN
5532: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_MERGE_NOT_ALLOWED');
5533: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5534: FND_MESSAGE.SET_TOKEN('TOID',x_to_id);
5535: FND_MSG_PUB.ADD;
5536: x_return_status := FND_API.G_RET_STS_ERROR;
5537: RETURN;
5538: END IF;
5539:
5540: IF l_from_party_id IS NOT NULL THEN
5603:
5604: FND_MESSAGE.SET_NAME('AR', 'HZ_RELN_TRANSFER_NOT_ALLOWED');
5605: FND_MESSAGE.SET_TOKEN('FROMID',p_from_id);
5606: FND_MSG_PUB.ADD;
5607: x_return_status := FND_API.G_RET_STS_ERROR;
5608: RETURN;
5609: END IF;
5610:
5611: CLOSE c_check_valid_merge;
5802: WHEN OTHERS THEN
5803: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5804: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5805: FND_MSG_PUB.ADD;
5806: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5807:
5808: END;
5809: END IF; --l_object_id = p_to_fk_id
5810:
5817: WHEN OTHERS THEN
5818: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5819: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5820: FND_MSG_PUB.ADD;
5821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5822: END do_party_reln_subj_merge;
5823:
5824: PROCEDURE do_party_relationship_merge(
5825: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5821: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5822: END do_party_reln_subj_merge;
5823:
5824: PROCEDURE do_party_relationship_merge(
5825: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5826: x_to_id IN OUT NOCOPY NUMBER,
5827: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5828: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5829: x_return_status IN OUT NOCOPY VARCHAR2
5823:
5824: PROCEDURE do_party_relationship_merge(
5825: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5826: x_to_id IN OUT NOCOPY NUMBER,
5827: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5828: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5829: x_return_status IN OUT NOCOPY VARCHAR2
5830: ) IS
5831:
5824: PROCEDURE do_party_relationship_merge(
5825: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5826: x_to_id IN OUT NOCOPY NUMBER,
5827: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5828: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5829: x_return_status IN OUT NOCOPY VARCHAR2
5830: ) IS
5831:
5832: CURSOR c_merge_to_party_reln IS
5848: CLOSE c_merge_to_party_reln;
5849: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PRELN');
5850: FND_MESSAGE.SET_TOKEN('TOPARTYID',p_to_fk_id);
5851: FND_MSG_PUB.ADD;
5852: x_return_status := FND_API.G_RET_STS_ERROR;
5853: ELSE
5854: CLOSE c_merge_to_party_reln;
5855:
5856: UPDATE HZ_RELATIONSHIPS
5881: WHEN OTHERS THEN
5882: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
5883: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
5884: FND_MSG_PUB.ADD;
5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5886: END do_party_relationship_merge;
5887:
5888: PROCEDURE do_org_profile_merge(
5889: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5885: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
5886: END do_party_relationship_merge;
5887:
5888: PROCEDURE do_org_profile_merge(
5889: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5890: x_to_id IN OUT NOCOPY NUMBER,
5891: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5892: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5893: x_return_status IN OUT NOCOPY VARCHAR2
5887:
5888: PROCEDURE do_org_profile_merge(
5889: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5890: x_to_id IN OUT NOCOPY NUMBER,
5891: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5892: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5893: x_return_status IN OUT NOCOPY VARCHAR2
5894: ) IS
5895:
5888: PROCEDURE do_org_profile_merge(
5889: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
5890: x_to_id IN OUT NOCOPY NUMBER,
5891: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5892: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
5893: x_return_status IN OUT NOCOPY VARCHAR2
5894: ) IS
5895:
5896: CURSOR c_merge_to_org_prof(cp_cont_source VARCHAR2) IS
5906: WHERE organization_profile_id = p_from_id;
5907:
5908: l_cont_source VARCHAR2(50);
5909: l_to_orgpro_id NUMBER;
5910: l_merge_to_id NUMBER := FND_API.G_MISS_NUM;
5911: l_from_last_upd_date DATE;
5912: l_to_last_upd_date DATE;
5913: l_from_duns_number VARCHAR2(255);
5914: l_to_duns_number VARCHAR2(255);
5942: CLOSE c_merge_to_org_prof;
5943: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
5944: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
5945: FND_MSG_PUB.ADD;
5946: x_return_status := FND_API.G_RET_STS_ERROR;
5947: RETURN;
5948: END IF;
5949: CLOSE c_merge_to_org_prof;
5950: ELSE
5962: CLOSE c_merge_to_org_prof;
5963: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_ORGPRO');
5964: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
5965: FND_MSG_PUB.ADD;
5966: x_return_status := FND_API.G_RET_STS_ERROR;
5967: RETURN;
5968: END IF;
5969: CLOSE c_merge_to_org_prof;
5970: ELSE
5971: CLOSE c_merge_to_org_prof;
5972: END IF;
5973:
5974: ELSIF l_cont_source NOT IN ('SST','USER_ENTERED')AND l_cont_source IS NOT NULL THEN --Bug No:4114254
5975: IF x_to_id IS NULL OR x_to_id = FND_API.G_MISS_NUM THEN
5976: HZ_PARTY_V2PUB.get_organization_rec(
5977: FND_API.G_FALSE,
5978: p_from_fk_id,
5979: l_cont_source,
5973:
5974: ELSIF l_cont_source NOT IN ('SST','USER_ENTERED')AND l_cont_source IS NOT NULL THEN --Bug No:4114254
5975: IF x_to_id IS NULL OR x_to_id = FND_API.G_MISS_NUM THEN
5976: HZ_PARTY_V2PUB.get_organization_rec(
5977: FND_API.G_FALSE,
5978: p_from_fk_id,
5979: l_cont_source,
5980: l_organization_rec,
5981: l_return_status,
5981: l_return_status,
5982: l_msg_count,
5983: l_msg_data);
5984:
5985: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
5986: RETURN;
5987: END IF;
5988:
5989: l_organization_rec.party_rec.party_id := p_to_fk_id;
5987: END IF;
5988:
5989: l_organization_rec.party_rec.party_id := p_to_fk_id;
5990: HZ_PARTY_V2PUB.create_organization(
5991: FND_API.G_FALSE,
5992: l_organization_rec,
5993: l_return_status,
5994: l_msg_count,
5995: l_msg_data,
5996: l_temp_party_id,
5997: l_temp_party_number,
5998: x_to_id);
5999:
6000: IF l_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6001: RETURN;
6002: END IF;
6003: END IF;
6004: END IF;
6020: WHEN OTHERS THEN
6021: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6022: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6023: FND_MSG_PUB.ADD;
6024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6025: END do_org_profile_merge;
6026:
6027: PROCEDURE do_per_profile_merge(
6028: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6024: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6025: END do_org_profile_merge;
6026:
6027: PROCEDURE do_per_profile_merge(
6028: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6029: x_to_id IN OUT NOCOPY NUMBER,
6030: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6031: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6032: x_return_status IN OUT NOCOPY VARCHAR2
6026:
6027: PROCEDURE do_per_profile_merge(
6028: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6029: x_to_id IN OUT NOCOPY NUMBER,
6030: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6031: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6032: x_return_status IN OUT NOCOPY VARCHAR2
6033: ) IS
6034:
6027: PROCEDURE do_per_profile_merge(
6028: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6029: x_to_id IN OUT NOCOPY NUMBER,
6030: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6031: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6032: x_return_status IN OUT NOCOPY VARCHAR2
6033: ) IS
6034:
6035: CURSOR c_merge_to_per_prof(cp_cont_source VARCHAR2) IS
6060: IF l_cont_source = 'USER_ENTERED' THEN
6061: FND_MESSAGE.SET_NAME('AR', 'HZ_NO_MERGE_TO_PERPRO');
6062: FND_MESSAGE.SET_TOKEN('ToId',p_to_fk_id);
6063: FND_MSG_PUB.ADD;
6064: x_return_status := FND_API.G_RET_STS_ERROR;
6065: ELSE
6066: UPDATE HZ_PERSON_PROFILES
6067: SET
6068: party_id = p_to_fk_id,
6098: WHEN OTHERS THEN
6099: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6100: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6101: FND_MSG_PUB.ADD;
6102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6103: END do_per_profile_merge;
6104:
6105: PROCEDURE do_party_site_merge(
6106: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6102: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6103: END do_per_profile_merge;
6104:
6105: PROCEDURE do_party_site_merge(
6106: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6107: x_to_id IN OUT NOCOPY NUMBER,
6108: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6109: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6110: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6104:
6105: PROCEDURE do_party_site_merge(
6106: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6107: x_to_id IN OUT NOCOPY NUMBER,
6108: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6109: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6110: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6111: x_return_status IN OUT NOCOPY VARCHAR2
6112: ) IS
6105: PROCEDURE do_party_site_merge(
6106: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6107: x_to_id IN OUT NOCOPY NUMBER,
6108: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6109: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6110: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6111: x_return_status IN OUT NOCOPY VARCHAR2
6112: ) IS
6113:
6106: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6107: x_to_id IN OUT NOCOPY NUMBER,
6108: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6109: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6110: p_batch_id IN NUMBER:=FND_API.G_MISS_NUM,
6111: x_return_status IN OUT NOCOPY VARCHAR2
6112: ) IS
6113:
6114: CURSOR c_cont_source IS
6213: FETCH c_from_party_type INTO l_from_party_type;
6214: CLOSE c_from_party_type;
6215:
6216: IF l_from_party_type = 'PARTY_RELATIONSHIP' AND
6217: (x_to_id = FND_API.G_MISS_NUM OR x_to_id IS NULL OR p_from_id = x_to_id)
6218: THEN
6219: BEGIN
6220:
6221: /* Check if there is a ps in the merge batch that has the same loc */
6261: l_dup_exists := HZ_MERGE_DUP_CHECK.check_address_dup(
6262: l_from_location_id,l_to_id, p_from_fk_id, p_to_fk_id,
6263: x_return_status);
6264: /* Merge */
6265: IF l_dup_exists = FND_API.G_TRUE THEN
6266: x_to_id := l_to_id;
6267: END IF;
6268:
6269: WHEN OTHERS THEN
6269: WHEN OTHERS THEN
6270: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6271: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6272: FND_MSG_PUB.ADD;
6273: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6274:
6275: -- End changes for Bug 4577535
6276: END;
6277: END IF;
6275: -- End changes for Bug 4577535
6276: END;
6277: END IF;
6278:
6279: IF x_to_id <> FND_API.G_MISS_NUM AND x_to_id IS NOT NULL
6280: THEN
6281:
6282: IF l_from_party_type <> 'PARTY_RELATIONSHIP' THEN
6283: /* To Location_Id */
6377: end loop;
6378: Close c_loc_assignments; */
6379: END IF; /* x_to_id */
6380:
6381: IF ((x_to_id <> FND_API.G_MISS_NUM AND
6382: x_to_id <> p_from_id) OR l_discard = 'Y') THEN
6383:
6384: UPDATE HZ_PARTY_SITES
6385: SET
6401: last_update_login = hz_utility_pub.last_update_login
6402: WHERE owner_table_id = p_from_id and owner_table_name='HZ_PARTY_SITES';
6403: */
6404: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6405: p_init_msg_list => FND_API.G_FALSE,
6406: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6407: p_old_owner_table_id => p_from_id,
6408: p_new_owner_table_id => x_to_id,
6409: p_owner_table_name =>'HZ_PARTY_SITES',
6402: WHERE owner_table_id = p_from_id and owner_table_name='HZ_PARTY_SITES';
6403: */
6404: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6405: p_init_msg_list => FND_API.G_FALSE,
6406: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6407: p_old_owner_table_id => p_from_id,
6408: p_new_owner_table_id => x_to_id,
6409: p_owner_table_name =>'HZ_PARTY_SITES',
6410: p_orig_system => null,
6412: p_reason_code => 'MERGED',
6413: x_return_status => x_return_status,
6414: x_msg_count =>l_msg_count,
6415: x_msg_data =>l_msg_data);
6416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6417: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6418: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6419: FND_MSG_PUB.ADD;
6420: x_return_status := FND_API.G_RET_STS_ERROR;
6416: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6417: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6418: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6419: FND_MSG_PUB.ADD;
6420: x_return_status := FND_API.G_RET_STS_ERROR;
6421: RETURN;
6422: END IF;
6423:
6424:
6438: x_return_status => x_return_status,
6439: x_msg_count => l_msg_count,
6440: x_msg_data => l_msg_data );
6441:
6442: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6443: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6444: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site ID : ' || p_from_id);
6445: FND_MSG_PUB.ADD;
6446: x_return_status := FND_API.G_RET_STS_ERROR;
6442: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6443: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6444: FND_MESSAGE.SET_TOKEN('ERROR','Cannot get party site ID : ' || p_from_id);
6445: FND_MSG_PUB.ADD;
6446: x_return_status := FND_API.G_RET_STS_ERROR;
6447:
6448: RETURN;
6449: END IF;
6450: --bug 4603928
6483: --bug 4603928
6484: END;
6485: END LOOP;
6486: /*HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6487: p_init_msg_list => FND_API.G_FALSE,
6488: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6489: p_old_owner_table_id => p_from_id,
6490: p_new_owner_table_id => x_to_id,
6491: p_owner_table_name =>'HZ_PARTY_SITES',
6484: END;
6485: END LOOP;
6486: /*HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6487: p_init_msg_list => FND_API.G_FALSE,
6488: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6489: p_old_owner_table_id => p_from_id,
6490: p_new_owner_table_id => x_to_id,
6491: p_owner_table_name =>'HZ_PARTY_SITES',
6492: p_orig_system => null,
6494: p_reason_code => 'MERGED',
6495: x_return_status => x_return_status,
6496: x_msg_count =>l_msg_count,
6497: x_msg_data =>l_msg_data);
6498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6499: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6500: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6501: FND_MSG_PUB.ADD;
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6498: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6499: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6500: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6501: FND_MSG_PUB.ADD;
6502: x_return_status := FND_API.G_RET_STS_ERROR;
6503: RETURN;
6504: END IF;*/
6505:
6506: l_party_site_number := null;
6503: RETURN;
6504: END IF;*/
6505:
6506: l_party_site_number := null;
6507: party_site_rec.party_site_id := FND_API.G_MISS_NUM;
6508: party_site_rec.party_id := p_to_fk_id;
6509: party_site_rec.party_site_number := l_ps_number;
6510:
6511: --We should not set primary flag in customer merge context
6508: party_site_rec.party_id := p_to_fk_id;
6509: party_site_rec.party_site_number := l_ps_number;
6510:
6511: --We should not set primary flag in customer merge context
6512: party_site_rec.identifying_address_flag := FND_API.G_MISS_CHAR;
6513:
6514: --Create new party site.
6515: hz_cust_account_merge_v2pvt.create_party_site(
6516: p_init_msg_list => 'T',
6522: x_msg_count => l_msg_count,
6523: x_msg_data => l_msg_data );
6524:
6525:
6526: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6527: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6528: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site for ID : ' || p_from_id);
6529: FND_MSG_PUB.ADD;
6530: x_return_status := FND_API.G_RET_STS_ERROR;
6526: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6527: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6528: FND_MESSAGE.SET_TOKEN('ERROR','Cannot copy party site for ID : ' || p_from_id);
6529: FND_MSG_PUB.ADD;
6530: x_return_status := FND_API.G_RET_STS_ERROR;
6531: RETURN;
6532: END IF;
6533:
6534: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6531: RETURN;
6532: END IF;
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: END IF;
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: UPDATE hz_merge_party_details
6579: WHEN OTHERS THEN
6580: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6581: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6582: FND_MSG_PUB.ADD;
6583: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6584: END do_party_site_merge;
6585:
6586:
6587: PROCEDURE do_party_merge(
6584: END do_party_site_merge;
6585:
6586:
6587: PROCEDURE do_party_merge(
6588: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6589: x_to_id IN OUT NOCOPY NUMBER,
6590: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6591: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6592: p_batch_party_id IN NUMBER,
6586:
6587: PROCEDURE do_party_merge(
6588: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6589: x_to_id IN OUT NOCOPY NUMBER,
6590: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6591: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6592: p_batch_party_id IN NUMBER,
6593: x_return_status IN OUT NOCOPY VARCHAR2
6594: ) IS
6587: PROCEDURE do_party_merge(
6588: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6589: x_to_id IN OUT NOCOPY NUMBER,
6590: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6591: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6592: p_batch_party_id IN NUMBER,
6593: x_return_status IN OUT NOCOPY VARCHAR2
6594: ) IS
6595:
6669: l_to_party_type <> l_from_party_type THEN
6670: FND_MESSAGE.SET_NAME('AR', 'HZ_INVALID_MERGE_PARTIES');
6671: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6672: FND_MSG_PUB.ADD;
6673: x_return_status := FND_API.G_RET_STS_ERROR;
6674: RETURN;
6675: END IF;
6676:
6677: -- Update and set status to merged
6691: SET party_id = x_to_id WHERE STAGED_FLAG='N'
6692: AND PARTY_ID = p_from_id AND ENTITY<>'PARTY';
6693:
6694: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6695: p_init_msg_list => FND_API.G_FALSE,
6696: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6697: p_old_owner_table_id => p_from_id,
6698: p_new_owner_table_id => x_to_id,
6699: p_owner_table_name =>'HZ_PARTIES',
6692: AND PARTY_ID = p_from_id AND ENTITY<>'PARTY';
6693:
6694: HZ_ORIG_SYSTEM_REF_PVT.remap_internal_identifier(
6695: p_init_msg_list => FND_API.G_FALSE,
6696: p_validation_level => FND_API.G_VALID_LEVEL_NONE,
6697: p_old_owner_table_id => p_from_id,
6698: p_new_owner_table_id => x_to_id,
6699: p_owner_table_name =>'HZ_PARTIES',
6700: p_orig_system => null,
6702: p_reason_code => 'MERGED',
6703: x_return_status => x_return_status,
6704: x_msg_count =>l_msg_count,
6705: x_msg_data =>l_msg_data);
6706: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6707: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6708: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6709: FND_MSG_PUB.ADD;
6710: x_return_status := FND_API.G_RET_STS_ERROR;
6706: IF x_return_status <> FND_API.G_RET_STS_SUCCESS THEN
6707: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6708: FND_MESSAGE.SET_TOKEN('ERROR','MOSR: cannot remap internal ID');
6709: FND_MSG_PUB.ADD;
6710: x_return_status := FND_API.G_RET_STS_ERROR;
6711: RETURN;
6712: END IF;
6713:
6714: EXCEPTION
6715: WHEN OTHERS THEN
6716: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6717: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6718: FND_MSG_PUB.ADD;
6719: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6720:
6721: END do_party_merge;
6722:
6723: PROCEDURE do_displayed_duns_merge(
6720:
6721: END do_party_merge;
6722:
6723: PROCEDURE do_displayed_duns_merge(
6724: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6725: x_to_id IN OUT NOCOPY NUMBER,
6726: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6727: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6728: x_return_status IN OUT NOCOPY VARCHAR2
6722:
6723: PROCEDURE do_displayed_duns_merge(
6724: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6725: x_to_id IN OUT NOCOPY NUMBER,
6726: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6727: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6728: x_return_status IN OUT NOCOPY VARCHAR2
6729: ) IS
6730:
6723: PROCEDURE do_displayed_duns_merge(
6724: p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6725: x_to_id IN OUT NOCOPY NUMBER,
6726: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6727: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6728: x_return_status IN OUT NOCOPY VARCHAR2
6729: ) IS
6730:
6731: BEGIN
6747: WHEN OTHERS THEN
6748: FND_MESSAGE.SET_NAME('AR', 'HZ_MERGE_SQL_ERROR');
6749: FND_MESSAGE.SET_TOKEN('ERROR' ,SQLERRM);
6750: FND_MSG_PUB.ADD;
6751: x_return_status := FND_API.G_RET_STS_UNEXP_ERROR;
6752: END do_displayed_duns_merge;
6753:
6754:
6755: PROCEDURE insert_request_log(
6889:
6890:
6891: END do_denormalize_contact_point;
6892:
6893: PROCEDURE do_hierarchy_nodes_merge(p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6896: x_return_status IN OUT NOCOPY VARCHAR2,
6897: p_action IN VARCHAR2,
6890:
6891: END do_denormalize_contact_point;
6892:
6893: PROCEDURE do_hierarchy_nodes_merge(p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6896: x_return_status IN OUT NOCOPY VARCHAR2,
6897: p_action IN VARCHAR2,
6898: p_sub_obj_merge IN VARCHAR2 :=FND_API.G_MISS_CHAR
6891: END do_denormalize_contact_point;
6892:
6893: PROCEDURE do_hierarchy_nodes_merge(p_from_id IN NUMBER:=FND_API.G_MISS_NUM,
6894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6896: x_return_status IN OUT NOCOPY VARCHAR2,
6897: p_action IN VARCHAR2,
6898: p_sub_obj_merge IN VARCHAR2 :=FND_API.G_MISS_CHAR
6899: )
6894: p_from_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6895: p_to_fk_id IN NUMBER:=FND_API.G_MISS_NUM,
6896: x_return_status IN OUT NOCOPY VARCHAR2,
6897: p_action IN VARCHAR2,
6898: p_sub_obj_merge IN VARCHAR2 :=FND_API.G_MISS_CHAR
6899: )
6900: IS
6901: CURSOR c_hier_flag(cp_rel_type VARCHAR2) IS
6902: SELECT HIERARCHICAL_FLAG, MULTIPLE_PARENT_ALLOWED --5547536
6972: IF l_from_par_id IS NOT NULL AND l_to_par_id IS NOT NULL AND l_from_par_id <> l_to_par_id THEN
6973: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
6974: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
6975: FND_MSG_PUB.ADD;
6976: x_return_status := FND_API.G_RET_STS_ERROR;
6977: return;
6978: END IF;
6979:
6980: ELSIF p_sub_obj_merge = 'SUB' THEN
6990: IF l_from_par_id IS NOT NULL AND l_to_par_id IS NOT NULL AND l_from_par_id <> l_to_par_id THEN
6991: FND_MESSAGE.SET_NAME('AR', 'HZ_HIER_MERGE_ERROR');
6992: FND_MESSAGE.SET_TOKEN('PARTIES',p_from_fk_id||', '||p_to_fk_id);
6993: FND_MSG_PUB.ADD;
6994: x_return_status := FND_API.G_RET_STS_ERROR;
6995: return;
6996: END IF;
6997:
6998: END IF;
7028: l_hierarchy_rec.child_object_type := l_subject_type;
7029:
7030: END IF;
7031: HZ_HIERARCHY_PUB.update_link(
7032: p_init_msg_list => FND_API.G_FALSE,
7033: p_hierarchy_node_rec => l_hierarchy_rec,
7034: x_return_status => x_return_status,
7035: x_msg_count => l_msg_count,
7036: x_msg_data => l_msg_data
7071: l_hierarchy_rec.child_id := l_subject_id;
7072: END IF;
7073: END IF;
7074: HZ_HIERARCHY_PUB.create_link(
7075: p_init_msg_list => FND_API.G_FALSE,
7076: p_hierarchy_node_rec => l_hierarchy_rec,
7077: x_return_status => l_return_status,
7078: x_msg_count => l_msg_count,
7079: x_msg_data => l_msg_data