[Home] [Help]
Skip to content
PACKAGE BODY: APPS.AR_CMGT_HZ_COVER_API
Source
1 PACKAGE BODY AR_CMGT_HZ_COVER_API AS
2 /* $Header: ARCMHZCB.pls 120.5 2005/09/29 16:40:26 bsarkar noship $ */
3
4 --This is a local procedure used for debugging purpose and will be removed
5 --when the code is ready to be source controlled.
6 PROCEDURE dump_api_output_data(p_return_status VARCHAR2,
7 p_msg_count NUMBER,
8 p_msg_data VARCHAR2) IS
9 l_count NUMBER;
10 l_msg_data VARCHAR2(2000);
11 l_return_status VArCHAR2(1);
12 l_msg_count NUMBER;
13 BEGIN
14 l_return_status := p_return_status;
15 l_msg_count := p_msg_count;
16 l_msg_data := p_msg_data;
17
18
19
20 IF nvl(l_msg_count,0) > 1 Then
21 LOOP
22
23 IF nvl(l_count,0) < l_msg_count THEN
24
25 l_count := nvl(l_count,0) +1 ;
26 l_msg_data := FND_MSG_PUB.Get(FND_MSG_PUB.G_NEXT,FND_API.G_FALSE);
27 ELSE
28 EXIT;
29 END IF;
30
31 END LOOP;
32
33 END IF;
34
35 END dump_api_output_data;
36
37 /*=======================================================================+
38 | Declare PUBLIC Data Types and Variables
39 +=======================================================================*/
40
41 /*=======================================================================+
42 | Declare PUBLIC Exceptions
43 +=======================================================================*/
44
45
46 /*========================================================================
47 | PUBLIC PROCEDURE
48 | update_organization()
49 | DESCRIPTION
50 |
51 | PSEUDO CODE/LOGIC
52 |
53 | PARAMETERS
54 | p_resource_id IN resource_id
55 |
56 | KNOWN ISSUES
57 |
58 | NOTES
59 |
60 | MODIFICATION HISTORY
61 | Date Author Description of Changes
62 |
63 *=======================================================================*/
64 PROCEDURE update_organization(p_party_id NUMBER, --15
65 p_year_established NUMBER,
66 p_employees_total NUMBER,
67 p_url VARCHAR2,
68 p_sic_code_type VARCHAR2,
69 p_sic_code VARCHAR2,
70 p_tax_reference VARCHAR2, --50
71 p_duns_number_c VARCHAR2
72 )
73 IS
74 l_party_rec HZ_PARTY_V2PUB.party_rec_type;
75 l_organization_rec HZ_PARTY_V2PUB.organization_rec_type;
76 l_party_object_version_number NUMBER;
77 l_profile_id NUMBER;
78 l_return_status VARCHAR2(1);
79 l_msg_count NUMBER;
80 l_msg_data VARCHAR2(2000);
81 l_count NUMBER;
82 BEGIN
83
84 --Initialize the party record structure
85 l_party_rec.party_id := p_party_id;
86 /*
87 l_party_rec.party_number := FND_API.G_MISS_CHAR;
88 l_party_rec.validated_flag := FND_API.G_MISS_CHAR;
89 l_party_rec.orig_system_reference := FND_API.G_MISS_CHAR;
90 l_party_rec.status := FND_API.G_MISS_CHAR;
91 l_party_rec.category_code := FND_API.G_MISS_CHAR;
92 l_party_rec.salutation := FND_API.G_MISS_CHAR;
93 l_party_rec.attribute_category := FND_API.G_MISS_CHAR;
94 l_party_rec.attribute1 := FND_API.G_MISS_CHAR;
95 l_party_rec.attribute2 := FND_API.G_MISS_CHAR;
96 l_party_rec.attribute3 := FND_API.G_MISS_CHAR;
97 l_party_rec.attribute4 := FND_API.G_MISS_CHAR;
98 l_party_rec.attribute5 := FND_API.G_MISS_CHAR;
99 l_party_rec.attribute6 := FND_API.G_MISS_CHAR;
100 l_party_rec.attribute7 := FND_API.G_MISS_CHAR;
101 l_party_rec.attribute8 := FND_API.G_MISS_CHAR;
102 l_party_rec.attribute9 := FND_API.G_MISS_CHAR;
103 l_party_rec.attribute1 := FND_API.G_MISS_CHAR;
104 l_party_rec.attribute11 := FND_API.G_MISS_CHAR;
105 l_party_rec.attribute12 := FND_API.G_MISS_CHAR;
106 l_party_rec.attribute13 := FND_API.G_MISS_CHAR;
107 l_party_rec.attribute14 := FND_API.G_MISS_CHAR;
108 l_party_rec.attribute15 := FND_API.G_MISS_CHAR;
109 l_party_rec.attribute16 := FND_API.G_MISS_CHAR;
110 l_party_rec.attribute17 := FND_API.G_MISS_CHAR;
111 l_party_rec.attribute18 := FND_API.G_MISS_CHAR;
112 l_party_rec.attribute19 := FND_API.G_MISS_CHAR;
113 l_party_rec.attribute20 := FND_API.G_MISS_CHAR;
114 l_party_rec.attribute21 := FND_API.G_MISS_CHAR;
115 l_party_rec.attribute22 := FND_API.G_MISS_CHAR;
116 l_party_rec.attribute23 := FND_API.G_MISS_CHAR;
117 l_party_rec.attribute24 := FND_API.G_MISS_CHAR;
118 */
119
120 --Initialize the organization record structure
121 -- l_organization_rec.organization_name := FND_API.G_MISS_CHAR;
122 l_organization_rec.duns_number_c := p_duns_number_c;
123 /*
124 l_organization_rec.enquiry_duns := FND_API.G_MISS_CHAR;
125 l_organization_rec.ceo_name := FND_API.G_MISS_CHAR;
126 l_organization_rec.ceo_title := FND_API.G_MISS_CHAR;
127 l_organization_rec.principal_name := FND_API.G_MISS_CHAR;
128 l_organization_rec.principal_title := FND_API.G_MISS_CHAR;
129 l_organization_rec.legal_status := FND_API.G_MISS_CHAR;
130 l_organization_rec.control_yr := FND_API.G_MISS_NUM;
131 */
132 l_organization_rec.employees_total := p_employees_total;
133 /*
134 l_organization_rec.hq_branch_ind := FND_API.G_MISS_CHAR;
135 l_organization_rec.branch_flag := FND_API.G_MISS_CHAR;
136 l_organization_rec.oob_ind := FND_API.G_MISS_CHAR;
137 l_organization_rec.line_of_business := FND_API.G_MISS_CHAR;
138 l_organization_rec.cong_dist_code := FND_API.G_MISS_CHAR;
139 */
140 l_organization_rec.sic_code := p_sic_code;
141 /*
142 l_organization_rec.import_ind := FND_API.G_MISS_CHAR;
143 l_organization_rec.export_ind := FND_API.G_MISS_CHAR;
144 l_organization_rec.labor_surplus_ind := FND_API.G_MISS_CHAR;
145 l_organization_rec.debarment_ind := FND_API.G_MISS_CHAR;
146 l_organization_rec.minority_owned_ind := FND_API.G_MISS_CHAR;
147 l_organization_rec.minority_owned_type := FND_API.G_MISS_CHAR;
148 l_organization_rec.woman_owned_ind := FND_API.G_MISS_CHAR;
149 l_organization_rec.disadv_8a_ind := FND_API.G_MISS_CHAR;
150 l_organization_rec.small_bus_ind := FND_API.G_MISS_CHAR;
151 l_organization_rec.rent_own_ind := FND_API.G_MISS_CHAR;
152 l_organization_rec.debarments_count := FND_API.G_MISS_NUM;
153 l_organization_rec.debarments_date := FND_API.G_MISS_DATE;
154 l_organization_rec.failure_score := FND_API.G_MISS_CHAR;
155 l_organization_rec.failure_score_natnl_percentile := FND_API.G_MISS_NUM;
156 l_organization_rec.failure_score_override_code := FND_API.G_MISS_CHAR;
157 l_organization_rec.failure_score_commentary := FND_API.G_MISS_CHAR;
158 l_organization_rec.global_failure_score := FND_API.G_MISS_CHAR;
159 l_organization_rec.db_rating := FND_API.G_MISS_CHAR;
160 l_organization_rec.credit_score := FND_API.G_MISS_CHAR;
161 l_organization_rec.credit_score_commentary := FND_API.G_MISS_CHAR;
162 l_organization_rec.paydex_score := FND_API.G_MISS_CHAR;
163 l_organization_rec.paydex_three_months_ago := FND_API.G_MISS_CHAR;
164 l_organization_rec.paydex_norm := FND_API.G_MISS_CHAR;
165 l_organization_rec.best_time_contact_begin := FND_API.G_MISS_DATE;
166 l_organization_rec.best_time_contact_end := FND_API.G_MISS_DATE;
167 l_organization_rec.organization_name_phonetic := FND_API.G_MISS_CHAR;
168 */
169 l_organization_rec.tax_reference := p_tax_reference;
170 /*
171 l_organization_rec.gsa_indicator_flag := FND_API.G_MISS_CHAR;
172 l_organization_rec.jgzz_fiscal_code := FND_API.G_MISS_CHAR;
173 l_organization_rec.analysis_fy := FND_API.G_MISS_CHAR;
174 l_organization_rec.fiscal_yearend_month := FND_API.G_MISS_CHAR;
175 l_organization_rec.curr_fy_potential_revenue := FND_API.G_MISS_NUM;
176 l_organization_rec.next_fy_potential_revenue := FND_API.G_MISS_NUM;
177 */
178 l_organization_rec.year_established := p_year_established;
179 /*
180 l_organization_rec.mission_statement := FND_API.G_MISS_CHAR;
181 l_organization_rec.organization_type := FND_API.G_MISS_CHAR;
182 l_organization_rec.business_scope := FND_API.G_MISS_CHAR;
183 l_organization_rec.corporation_class := FND_API.G_MISS_CHAR;
184 l_organization_rec.known_as := FND_API.G_MISS_CHAR;
185 l_organization_rec.known_as2 := FND_API.G_MISS_CHAR;
186 l_organization_rec.known_as3 := FND_API.G_MISS_CHAR;
187 l_organization_rec.known_as4 := FND_API.G_MISS_CHAR;
188 l_organization_rec.known_as5 := FND_API.G_MISS_CHAR;
189 l_organization_rec.local_bus_iden_type := FND_API.G_MISS_CHAR;
190 l_organization_rec.local_bus_identifier := FND_API.G_MISS_CHAR;
191 l_organization_rec.pref_functional_currency := FND_API.G_MISS_CHAR;
192 l_organization_rec.registration_type := FND_API.G_MISS_CHAR;
193 l_organization_rec.total_employees_text := FND_API.G_MISS_CHAR;
194 l_organization_rec.total_employees_ind := FND_API.G_MISS_CHAR;
195 l_organization_rec.total_emp_est_ind := FND_API.G_MISS_CHAR;
196 l_organization_rec.total_emp_min_ind := FND_API.G_MISS_CHAR;
197 l_organization_rec.parent_sub_ind := FND_API.G_MISS_CHAR;
198 l_organization_rec.incorp_year := FND_API.G_MISS_NUM;
199 */
200 l_organization_rec.sic_code_type := p_sic_code_type;
201 /*
202 l_organization_rec.public_private_ownership_flag := FND_API.G_MISS_CHAR;
203 l_organization_rec.internal_flag := FND_API.G_MISS_CHAR;
204 l_organization_rec.local_activity_code_type := FND_API.G_MISS_CHAR;
205 l_organization_rec.local_activity_code := FND_API.G_MISS_CHAR;
206 l_organization_rec.emp_at_primary_adr := FND_API.G_MISS_CHAR;
207 l_organization_rec.emp_at_primary_adr_text := FND_API.G_MISS_CHAR;
208 l_organization_rec.emp_at_primary_adr_est_ind := FND_API.G_MISS_CHAR;
209 l_organization_rec.emp_at_primary_adr_min_ind := FND_API.G_MISS_CHAR;
210 l_organization_rec.high_credit := FND_API.G_MISS_NUM;
211 l_organization_rec.avg_high_credit := FND_API.G_MISS_NUM;
212 l_organization_rec.total_payments := FND_API.G_MISS_NUM;
213 l_organization_rec.credit_score_class := FND_API.G_MISS_NUM;
214 l_organization_rec.credit_score_natl_percentile := FND_API.G_MISS_NUM;
215 l_organization_rec.credit_score_incd_default := FND_API.G_MISS_NUM;
216 l_organization_rec.credit_score_age := FND_API.G_MISS_NUM;
217 l_organization_rec.credit_score_date := FND_API.G_MISS_DATE;
218 l_organization_rec.credit_score_commentary2 := FND_API.G_MISS_CHAR;
219 l_organization_rec.credit_score_commentary3 := FND_API.G_MISS_CHAR;
220 l_organization_rec.credit_score_commentary4 := FND_API.G_MISS_CHAR;
221 l_organization_rec.credit_score_commentary5 := FND_API.G_MISS_CHAR;
222 l_organization_rec.credit_score_commentary6 := FND_API.G_MISS_CHAR;
223 l_organization_rec.credit_score_commentary7 := FND_API.G_MISS_CHAR;
224 l_organization_rec.credit_score_commentary8 := FND_API.G_MISS_CHAR;
225 l_organization_rec.credit_score_commentary9 := FND_API.G_MISS_CHAR;
226 l_organization_rec.credit_score_commentary10 := FND_API.G_MISS_CHAR;
227 l_organization_rec.failure_score_class := FND_API.G_MISS_NUM;
228 l_organization_rec.failure_score_incd_default := FND_API.G_MISS_NUM;
229 l_organization_rec.failure_score_age := FND_API.G_MISS_NUM;
230 l_organization_rec.failure_score_date := FND_API.G_MISS_DATE;
231 l_organization_rec.failure_score_commentary2 := FND_API.G_MISS_CHAR;
232 l_organization_rec.failure_score_commentary3 := FND_API.G_MISS_CHAR;
233 l_organization_rec.failure_score_commentary4 := FND_API.G_MISS_CHAR;
234 l_organization_rec.failure_score_commentary5 := FND_API.G_MISS_CHAR;
235 l_organization_rec.failure_score_commentary6 := FND_API.G_MISS_CHAR;
236 l_organization_rec.failure_score_commentary7 := FND_API.G_MISS_CHAR;
237 l_organization_rec.failure_score_commentary8 := FND_API.G_MISS_CHAR;
238 l_organization_rec.failure_score_commentary9 := FND_API.G_MISS_CHAR;
239 l_organization_rec.failure_score_commentary10 := FND_API.G_MISS_CHAR;
240 l_organization_rec.maximum_credit_recommendation := FND_API.G_MISS_NUM;
241 l_organization_rec.maximum_credit_currency_code := FND_API.G_MISS_CHAR;
242 l_organization_rec.displayed_duns_party_id := FND_API.G_MISS_NUM;
243 l_organization_rec.content_source_type := FND_API.G_MISS_CHAR;
244 l_organization_rec.content_source_number := FND_API.G_MISS_CHAR;
245 l_organization_rec.attribute_category := FND_API.G_MISS_CHAR;
246 l_organization_rec.attribute1 := FND_API.G_MISS_CHAR;
247 l_organization_rec.attribute2 := FND_API.G_MISS_CHAR;
248 l_organization_rec.attribute3 := FND_API.G_MISS_CHAR;
249 l_organization_rec.attribute4 := FND_API.G_MISS_CHAR;
250 l_organization_rec.attribute5 := FND_API.G_MISS_CHAR;
251 l_organization_rec.attribute6 := FND_API.G_MISS_CHAR;
252 l_organization_rec.attribute7 := FND_API.G_MISS_CHAR;
253 l_organization_rec.attribute8 := FND_API.G_MISS_CHAR;
254 l_organization_rec.attribute9 := FND_API.G_MISS_CHAR;
255 l_organization_rec.attribute10 := FND_API.G_MISS_CHAR;
256 l_organization_rec.attribute11 := FND_API.G_MISS_CHAR;
257 l_organization_rec.attribute12 := FND_API.G_MISS_CHAR;
258 l_organization_rec.attribute13 := FND_API.G_MISS_CHAR;
259 l_organization_rec.attribute14 := FND_API.G_MISS_CHAR;
260 l_organization_rec.attribute15 := FND_API.G_MISS_CHAR;
261 l_organization_rec.attribute16 := FND_API.G_MISS_CHAR;
262 l_organization_rec.attribute17 := FND_API.G_MISS_CHAR;
263 l_organization_rec.attribute18 := FND_API.G_MISS_CHAR;
264 l_organization_rec.attribute19 := FND_API.G_MISS_CHAR;
265 l_organization_rec.attribute20 := FND_API.G_MISS_CHAR;
266 l_organization_rec.created_by_module := FND_API.G_MISS_CHAR;
267 l_organization_rec.application_id := FND_API.G_MISS_NUM;
268 l_organization_rec.do_not_confuse_with := FND_API.G_MISS_CHAR;
269 l_organization_rec.actual_content_source := FND_API.G_MISS_CHAR;
270 */
271 l_organization_rec.party_rec := l_party_rec;
272
273 hz_party_v2pub.update_organization(
274 p_organization_rec => l_organization_rec,
275 p_party_object_version_number => l_party_object_version_number,
276 x_profile_id => l_profile_id,
277 x_return_status => l_return_status,
278 x_msg_count => l_msg_count,
279 x_msg_data => l_msg_data);
280
281 dump_api_output_data( l_return_status,
282 l_msg_count,
283 l_msg_data);
284 END update_organization;
285
286 PROCEDURE create_party_profile(p_party_id NUMBER)
287 IS
288 l_profile_rec HZ_CUSTOMER_PROFILE_V2PUB.customer_profile_rec_type;
289 l_cust_profile_id NUMBER;
290 l_return_status VARCHAR2(1);
291 l_msg_count NUMBER;
292 l_msg_data VARCHAR2(2000);
293 CURSOR find_profile_class(p_party_id IN NUMBER)
294 IS
295 SELECT profile_class_id
296 FROM hz_cust_accounts ca,
297 hz_customer_profiles cp
298 WHERE ca.party_id = p_party_id
299 and ca.cust_account_id = cp.cust_account_id;
300
301 l_profile_class_id NUMBER;
302 BEGIN
303
304 /* Check if an account exists for the given party and if that
305 particular account has a profile record.
306 */
307 OPEN find_profile_class(p_party_id);
308
309 FETCH find_profile_class INTO l_profile_class_id;
310
311 CLOSE find_profile_class;
312
313
314 /*If we have not been able to derive the profile class from the accounts beneath
315 the party then we will create the party profile record with the 'DEFAULT'
316 profile class.
317 */
318 IF l_profile_class_id IS NULL THEN
319 l_profile_class_id := 0; --0 is the DEAULT profile class id
320 END IF;
321
322
323 l_profile_rec.party_id := p_party_id;
324 l_profile_rec.profile_class_id := l_profile_class_id;
325 l_profile_rec.created_by_module := 'OCM';
326 l_profile_rec.application_id := 222;
327 l_profile_rec.credit_checking := 'Y';
328 HZ_CUSTOMER_PROFILE_V2PUB.create_customer_profile (
329 p_init_msg_list => FND_API.G_FALSE,
330 p_customer_profile_rec => l_profile_rec,
331 p_create_profile_amt => FND_API.G_TRUE,
332 x_cust_account_profile_id => l_cust_profile_id,
333 x_return_status => l_return_status,
334 x_msg_count => l_msg_count,
335 x_msg_data => l_msg_data );
336
337 dump_api_output_data( l_return_status,
338 l_msg_count,
339 l_msg_data);
340
341 END create_party_profile;
342
343 END AR_CMGT_HZ_COVER_API;