1 PACKAGE BODY pos_supplier_bo_dep_pkg AS
2 /* $Header: POSSPFINB.pls 120.1 2010/11/25 12:09:26 puppulur noship $ */
3 /*
4 * Use this routine to get financial report bo
5 * @param p_init_msg_list The Initialization message list
6 * @param p_organization_id The party_id same as organization id
7 * @param p_action_type The action type
8 * @param x_financial_report_objs The hz_financial_bo_tbl
9 * @param x_return_status The return status
10 * @param x_msg_count The message count
11 * @param x_msg_data The message data
12 * @rep:scope public
13 * @rep:lifecycle active
14 * @rep:displayname Get Supplier Financial Report
15 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
16 */
17
18 PROCEDURE get_financial_report_bos(p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
19 p_organization_id IN NUMBER,
20 p_action_type IN VARCHAR2 := NULL,
21 x_financial_report_objs OUT NOCOPY hz_financial_bo_tbl,
22 x_return_status OUT NOCOPY VARCHAR2,
23 x_msg_count OUT NOCOPY NUMBER,
24 x_msg_data OUT NOCOPY VARCHAR2) IS
25 CURSOR c1 IS
26 SELECT hz_financial_bo(p_action_type,
27 NULL, -- COMMON_OBJ_ID
28 financial_report_id,
29 party_id,
30 type_of_financial_report,
31 document_reference,
32 date_report_issued,
33 issued_period,
34 report_start_date,
35 report_end_date,
36 actual_content_source,
37 requiring_authority,
38 audit_ind,
39 consolidated_ind,
40 estimated_ind,
41 fiscal_ind,
42 final_ind,
43 forecast_ind,
44 opening_ind,
45 proforma_ind,
46 qualified_ind,
47 restated_ind,
48 signed_by_principals_ind,
49 trial_balance_ind,
50 unbalanced_ind,
51 status,
52 program_update_date,
53 created_by_module,
54 hz_extract_bo_util_pvt.get_user_name(created_by),
55 creation_date,
56 last_update_date,
57 hz_extract_bo_util_pvt.get_user_name(last_updated_by),
58 CAST(MULTISET
59 (SELECT hz_financial_number_obj(p_action_type,
60 NULL, -- COMMON_OBJ_ID
61 financial_number_id,
62 financial_report_id,
63 financial_number,
64 financial_number_name,
65 financial_units_applied,
66 financial_number_currency,
67 projected_actual_flag,
68 status,
69 program_update_date,
70 created_by_module,
71 hz_extract_bo_util_pvt.get_user_name(created_by),
72 creation_date,
73 last_update_date,
74 hz_extract_bo_util_pvt.get_user_name(last_updated_by),
75 actual_content_source)
76 FROM hz_financial_numbers
77 WHERE financial_report_id =
78 fr.financial_report_id) AS
79 hz_financial_number_obj_tbl))
80 FROM hz_financial_reports fr
81 WHERE party_id = p_organization_id;
82
83 l_debug_prefix VARCHAR2(30) := '';
84
85 BEGIN
86
87 -- initialize API return status to success.
88 x_return_status := fnd_api.g_ret_sts_success;
89
90 -- Initialize message list if p_init_msg_list is set to TRUE
91 IF fnd_api.to_boolean(p_init_msg_list) THEN
92 fnd_msg_pub.initialize;
93 END IF;
94
95 -- Debug info.
96 IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
97 hz_utility_v2pub.debug(p_message => 'get_financial_report_bos(+)',
98 p_prefix => l_debug_prefix,
99 p_msg_level => fnd_log.level_procedure);
100 END IF;
101
102 x_financial_report_objs := hz_financial_bo_tbl();
103 OPEN c1;
104 FETCH c1 BULK COLLECT
105 INTO x_financial_report_objs;
106 CLOSE c1;
107
108 -- Debug info.
109 IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
110 hz_utility_v2pub.debug_return_messages(p_msg_count => x_msg_count,
111 p_msg_data => x_msg_data,
112 p_msg_type => 'WARNING',
113 p_msg_level => fnd_log.level_exception);
114 END IF;
115
116 -- Debug info.
117 IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
118 hz_utility_v2pub.debug(p_message => 'get_financial_report_bos (-)',
119 p_prefix => l_debug_prefix,
120 p_msg_level => fnd_log.level_procedure);
121 END IF;
122
123 EXCEPTION
124 WHEN fnd_api.g_exc_error THEN
125
126 x_return_status := fnd_api.g_ret_sts_error;
127 fnd_msg_pub.count_and_get(p_count => x_msg_count,
128 p_data => x_msg_data);
129 WHEN fnd_api.g_exc_unexpected_error THEN
130
131 x_return_status := fnd_api.g_ret_sts_unexp_error;
132 fnd_msg_pub.count_and_get(p_count => x_msg_count,
133 p_data => x_msg_data);
134 WHEN OTHERS THEN
135
136 x_return_status := fnd_api.g_ret_sts_unexp_error;
137
138 fnd_msg_pub.count_and_get(p_count => x_msg_count,
139 p_data => x_msg_data);
140
141 END get_financial_report_bos;
142 -----------------------------------------------------------------
143 /*#
144 * Use this routine to get organization_bo
145 * @param p_init_msg_list The Initialization message list
146 * @param p_organization_id The party_id same as organization id
147 * @param p_action_type The action type
148 * @param x_organization_obj The hz_organization_bo
149 * @param x_return_status The return status
150 * @param x_msg_count The message count
151 * @param x_msg_data The message data
152 * @rep:scope public
153 * @rep:lifecycle active
154 * @rep:displayname Get Organization BO
155 * @rep:catagory BUSSINESS_ENTITY AP_SUPPLIER
156 */
157 PROCEDURE get_organization_bo(p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
158 p_organization_id IN NUMBER,
159 p_action_type IN VARCHAR2 := NULL,
160 x_organization_obj OUT NOCOPY hz_organization_bo,
161 x_return_status OUT NOCOPY VARCHAR2,
162 x_msg_count OUT NOCOPY NUMBER,
163 x_msg_data OUT NOCOPY VARCHAR2) IS
164
165 CURSOR c1 IS
166 SELECT hz_organization_bo(p_action_type,
167 NULL, -- COMMON_OBJ_ID
168 p.party_id,
169 NULL, --ORIG_SYSTEM,
170 NULL, --ORIG_SYSTEM_REFERENCE,
171 p.party_number,
172 p.validated_flag,
173 p.status,
174 p.category_code,
175 p.salutation,
176 p.attribute_category,
177 p.attribute1,
178 p.attribute2,
179 p.attribute3,
180 p.attribute4,
181 p.attribute5,
182 p.attribute6,
183 p.attribute7,
184 p.attribute8,
185 p.attribute9,
186 p.attribute10,
187 p.attribute11,
188 p.attribute12,
189 p.attribute13,
190 p.attribute14,
191 p.attribute15,
192 p.attribute16,
193 p.attribute17,
194 p.attribute18,
195 p.attribute19,
196 p.attribute20,
197 p.attribute21,
198 p.attribute22,
199 p.attribute23,
200 p.attribute24,
201 pro.organization_name,
202 pro.duns_number_c,
203 pro.enquiry_duns,
204 pro.ceo_name,
205 pro.ceo_title,
206 pro.principal_name,
207 pro.principal_title,
208 pro.legal_status,
209 pro.control_yr,
210 pro.employees_total,
211 pro.hq_branch_ind,
212 pro.branch_flag,
213 pro.oob_ind,
214 pro.line_of_business,
215 pro.cong_dist_code,
216 pro.sic_code,
217 pro.import_ind,
218 pro.export_ind,
219 pro.labor_surplus_ind,
220 pro.debarment_ind,
221 pro.minority_owned_ind,
222 pro.minority_owned_type,
223 pro.woman_owned_ind,
224 pro.disadv_8a_ind,
225 pro.small_bus_ind,
226 pro.rent_own_ind,
227 pro.debarments_count,
228 pro.debarments_date,
229 pro.failure_score,
230 pro.failure_score_natnl_percentile,
231 pro.failure_score_override_code,
232 pro.failure_score_commentary,
233 pro.global_failure_score,
234 pro.db_rating,
235 pro.credit_score,
236 pro.credit_score_commentary,
237 pro.paydex_score,
238 pro.paydex_three_months_ago,
239 pro.paydex_norm,
240 pro.best_time_contact_begin,
241 pro.best_time_contact_end,
242 pro.organization_name_phonetic,
243 pro.tax_reference,
244 pro.gsa_indicator_flag,
245 pro.jgzz_fiscal_code,
246 pro.analysis_fy,
247 pro.fiscal_yearend_month,
248 pro.curr_fy_potential_revenue,
249 pro.next_fy_potential_revenue,
250 pro.year_established,
251 pro.mission_statement,
252 pro.organization_type,
253 pro.business_scope,
254 pro.corporation_class,
255 pro.known_as,
256 pro.known_as2,
257 pro.known_as3,
258 pro.known_as4,
259 pro.known_as5,
260 pro.local_bus_iden_type,
261 pro.local_bus_identifier,
262 pro.pref_functional_currency,
263 pro.registration_type,
264 pro.total_employees_text,
265 pro.total_employees_ind,
266 pro.total_emp_est_ind,
267 pro.total_emp_min_ind,
268 pro.parent_sub_ind,
269 pro.incorp_year,
270 pro.sic_code_type,
271 pro.public_private_ownership_flag,
272 pro.internal_flag,
273 pro.local_activity_code_type,
274 pro.local_activity_code,
275 pro.emp_at_primary_adr,
279 pro.high_credit,
276 pro.emp_at_primary_adr_text,
277 pro.emp_at_primary_adr_est_ind,
278 pro.emp_at_primary_adr_min_ind,
280 pro.avg_high_credit,
281 pro.total_payments,
282 pro.credit_score_class,
283 pro.credit_score_natl_percentile,
284 pro.credit_score_incd_default,
285 pro.credit_score_age,
286 pro.credit_score_date,
287 pro.credit_score_commentary2,
288 pro.credit_score_commentary3,
289 pro.credit_score_commentary4,
290 pro.credit_score_commentary5,
291 pro.credit_score_commentary6,
292 pro.credit_score_commentary7,
293 pro.credit_score_commentary8,
294 pro.credit_score_commentary9,
295 pro.credit_score_commentary10,
296 pro.failure_score_class,
297 pro.failure_score_incd_default,
298 pro.failure_score_age,
299 pro.failure_score_date,
300 pro.failure_score_commentary2,
301 pro.failure_score_commentary3,
302 pro.failure_score_commentary4,
303 pro.failure_score_commentary5,
304 pro.failure_score_commentary6,
305 pro.failure_score_commentary7,
306 pro.failure_score_commentary8,
307 pro.failure_score_commentary9,
308 pro.failure_score_commentary10,
309 pro.maximum_credit_recommendation,
310 pro.maximum_credit_currency_code,
311 pro.displayed_duns_party_id,
312 pro.program_update_date,
313 pro.created_by_module,
314 hz_extract_bo_util_pvt.get_user_name(pro.created_by),
315 pro.creation_date,
316 pro.last_update_date,
317 hz_extract_bo_util_pvt.get_user_name(pro.last_updated_by),
318 pro.do_not_confuse_with,
319 pro.actual_content_source,
320 hz_orig_sys_ref_obj_tbl(),
321 hz_ext_attribute_obj_tbl(),
322 hz_org_contact_bo_tbl(),
323 hz_party_site_bo_tbl(),
324 CAST(MULTISET
325 (SELECT hz_party_pref_obj(p_action_type,
326 NULL, -- COMMON_OBJ_ID
327 party_preference_id,
328 hz_extract_bo_util_pvt.get_parent_object_type('HZ_PARTIES',
329 party_id),
330 party_id,
331 category,
332 preference_code,
333 value_varchar2,
334 value_number,
335 value_date,
336 value_name,
337 module,
338 additional_value1,
339 additional_value2,
340 additional_value3,
341 additional_value4,
342 additional_value5,
343 hz_extract_bo_util_pvt.get_user_name(created_by),
344 creation_date,
345 last_update_date,
346 hz_extract_bo_util_pvt.get_user_name(last_updated_by))
347 FROM hz_party_preferences
348 WHERE party_id =
349 p_organization_id) AS
350 hz_party_pref_obj_tbl),
351 hz_phone_cp_bo_tbl(),
352 hz_telex_cp_bo_tbl(),
353 hz_email_cp_bo_tbl(),
354 hz_web_cp_bo_tbl(),
355 hz_edi_cp_bo_tbl(),
356 hz_eft_cp_bo_tbl(),
357 hz_relationship_obj_tbl(),
358 CAST(MULTISET
362 hz_extract_bo_util_pvt.get_parent_object_type('HZ_PARTIES',
359 (SELECT hz_code_assignment_obj(p_action_type,
360 NULL, -- COMMON_OBJ_ID
361 code_assignment_id,
363 owner_table_id),
364 owner_table_id,
365 class_category,
366 class_code,
367 primary_flag,
368 actual_content_source,
369 start_date_active,
370 end_date_active,
371 status,
372 program_update_date,
373 created_by_module,
374 hz_extract_bo_util_pvt.get_user_name(created_by),
375 creation_date,
376 last_update_date,
377 hz_extract_bo_util_pvt.get_user_name(last_updated_by),
378 rank)
379 FROM hz_code_assignments
380 WHERE owner_table_name =
381 'HZ_PARTIES'
382 AND owner_table_id =
383 p_organization_id) AS
384 hz_code_assignment_obj_tbl),
385 hz_financial_bo_tbl(),
386 CAST(MULTISET
387 (SELECT hz_credit_rating_obj(p_action_type,
388 NULL, -- COMMON_OBJ_ID
389 credit_rating_id,
390 description,
391 party_id,
392 rating,
393 rated_as_of_date,
394 rating_organization,
395 comments,
396 det_history_ind,
397 fincl_embt_ind,
398 criminal_proceeding_ind,
399 claims_ind,
400 secured_flng_ind,
401 fincl_lgl_event_ind,
402 disaster_ind,
403 oprg_spec_evnt_ind,
404 other_spec_evnt_ind,
405 status,
406 avg_high_credit,
407 credit_score,
408 credit_score_age,
409 credit_score_class,
410 credit_score_commentary,
411 credit_score_commentary2,
412 credit_score_commentary3,
413 credit_score_commentary4,
414 credit_score_commentary5,
415 credit_score_commentary6,
416 credit_score_commentary7,
417 credit_score_commentary8,
418 credit_score_commentary9,
419 credit_score_commentary10,
420 credit_score_date,
421 credit_score_incd_default,
422 credit_score_natl_percentile,
423 failure_score,
424 failure_score_age,
425 failure_score_class,
426 failure_score_commentary,
430 failure_score_commentary5,
427 failure_score_commentary2,
428 failure_score_commentary3,
429 failure_score_commentary4,
431 failure_score_commentary6,
432 failure_score_commentary7,
433 failure_score_commentary8,
434 failure_score_commentary9,
435 failure_score_commentary10,
436 failure_score_date,
437 failure_score_incd_default,
438 failure_score_natnl_percentile,
439 failure_score_override_code,
440 global_failure_score,
441 debarment_ind,
442 debarments_count,
443 debarments_date,
444 high_credit,
445 maximum_credit_currency_code,
446 maximum_credit_recommendation,
447 paydex_norm,
448 paydex_score,
449 paydex_three_months_ago,
450 credit_score_override_code,
451 cr_scr_clas_expl,
452 low_rng_delq_scr,
453 high_rng_delq_scr,
454 delq_pmt_rng_prcnt,
455 delq_pmt_pctg_for_all_firms,
456 num_trade_experiences,
457 paydex_firm_days,
458 paydex_firm_comment,
459 paydex_industry_days,
460 paydex_industry_comment,
461 paydex_comment,
462 suit_ind,
463 lien_ind,
464 judgement_ind,
465 bankruptcy_ind,
466 no_trade_ind,
467 prnt_hq_bkcy_ind,
468 num_prnt_bkcy_filing,
469 prnt_bkcy_filg_type,
470 prnt_bkcy_filg_chapter,
471 prnt_bkcy_filg_date,
472 num_prnt_bkcy_convs,
473 prnt_bkcy_conv_date,
474 prnt_bkcy_chapter_conv,
475 slow_trade_expl,
476 negv_pmt_expl,
477 pub_rec_expl,
478 business_discontinued,
479 spcl_event_comment,
480 num_spcl_event,
481 spcl_event_update_date,
482 spcl_evnt_txt,
483 actual_content_source,
484 program_update_date,
485 created_by_module,
486 hz_extract_bo_util_pvt.get_user_name(created_by),
487 creation_date,
488 last_update_date,
489 hz_extract_bo_util_pvt.get_user_name(last_updated_by))
490 FROM hz_credit_ratings
491 WHERE party_id =
492 p_organization_id) AS
493 hz_credit_rating_obj_tbl),
494 CAST(MULTISET
498 certification_name,
495 (SELECT hz_certification_obj(p_action_type,
496 NULL, -- COMMON_OBJ_ID
497 certification_id,
499 hz_extract_bo_util_pvt.get_parent_object_type('HZ_PARTIES',
500 party_id),
501 party_id,
502 current_status,
503 expires_on_date,
504 grade,
505 issued_by_authority,
506 issued_on_date,
507 --WH_UPDATE_DATE,
508 status,
509 program_update_date,
510 hz_extract_bo_util_pvt.get_user_name(created_by),
511 creation_date,
512 last_update_date,
513 hz_extract_bo_util_pvt.get_user_name(last_updated_by))
514 FROM hz_certifications
515 WHERE party_id =
516 p_organization_id) AS
517 hz_certification_obj_tbl),
518 CAST(MULTISET
519 (SELECT hz_financial_prof_obj(p_action_type,
520 NULL, -- COMMON_OBJ_ID
521 financial_profile_id,
522 access_authority_date,
523 access_authority_granted,
524 balance_amount,
525 balance_verified_on_date,
526 financial_account_number,
527 financial_account_type,
528 financial_org_type,
529 financial_organization_name,
530 hz_extract_bo_util_pvt.get_parent_object_type('HZ_PARTIES',
531 party_id),
532 party_id,
533 --WH_UPDATE_DATE,
534 status,
535 program_update_date,
536 hz_extract_bo_util_pvt.get_user_name(created_by),
537 creation_date,
538 last_update_date,
539 hz_extract_bo_util_pvt.get_user_name(last_updated_by))
540 FROM hz_financial_profile
541 WHERE party_id =
542 p_organization_id) AS
543 hz_financial_prof_obj_tbl),
544 hz_contact_pref_obj_tbl(),
545 hz_party_usage_obj_tbl())
546 FROM hz_organization_profiles pro,
547 hz_parties p
548 WHERE pro.party_id = p.party_id
549 AND pro.party_id = p_organization_id
550 AND SYSDATE BETWEEN effective_start_date AND
551 nvl(effective_end_date, SYSDATE);
552
553 CURSOR get_profile_id_csr IS
554 SELECT organization_profile_id
555 FROM hz_organization_profiles
556 WHERE party_id = p_organization_id
557 AND SYSDATE BETWEEN effective_start_date AND
558 nvl(effective_end_date, SYSDATE);
559
560 l_debug_prefix VARCHAR2(30) := '';
561 l_prof_id NUMBER;
562 BEGIN
563
564 -- initialize API return status to success.
565 x_return_status := fnd_api.g_ret_sts_success;
566
567 -- Initialize message list if p_init_msg_list is set to TRUE
568 IF fnd_api.to_boolean(p_init_msg_list) THEN
569 fnd_msg_pub.initialize;
570 END IF;
571
572 -- Debug info.
573 IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
574 hz_utility_v2pub.debug(p_message => 'get_organization_bo(+)',
575 p_prefix => l_debug_prefix,
576 p_msg_level => fnd_log.level_procedure);
577 END IF;
578
579 OPEN c1;
580 FETCH c1
584 hz_extract_orig_sys_ref_bo_pvt.get_orig_sys_ref_bos(p_init_msg_list => fnd_api.g_false,
581 INTO x_organization_obj;
582 CLOSE c1;
583
585 p_owner_table_id => p_organization_id,
586 p_owner_table_name => 'HZ_PARTIES',
587 p_action_type => NULL, --p_action_type,
588 x_orig_sys_ref_objs => x_organization_obj.orig_sys_objs,
589 x_return_status => x_return_status,
590 x_msg_count => x_msg_count,
591 x_msg_data => x_msg_data);
592
593 IF x_return_status <> fnd_api.g_ret_sts_success THEN
594 RAISE fnd_api.g_exc_error;
595 END IF;
596
597 OPEN get_profile_id_csr;
598 FETCH get_profile_id_csr
599 INTO l_prof_id;
600 CLOSE get_profile_id_csr;
601
602 hz_extract_ext_attri_bo_pvt.get_ext_attribute_bos(p_init_msg_list => fnd_api.g_false,
603 p_ext_object_id => l_prof_id,
604 p_ext_object_name => 'HZ_ORGANIZATION_PROFILES',
605 p_action_type => p_action_type,
606 x_ext_attribute_objs => x_organization_obj.ext_attributes_objs,
607 x_return_status => x_return_status,
608 x_msg_count => x_msg_count,
609 x_msg_data => x_msg_data);
610
611 IF x_return_status <> fnd_api.g_ret_sts_success THEN
612 RAISE fnd_api.g_exc_error;
613 END IF;
614
615 hz_extract_party_site_bo_pvt.get_party_site_bos(p_init_msg_list => fnd_api.g_false,
616 p_party_id => p_organization_id,
617 p_party_site_id => NULL,
618 p_action_type => p_action_type,
619 x_party_site_objs => x_organization_obj.party_site_objs,
620 x_return_status => x_return_status,
621 x_msg_count => x_msg_count,
622 x_msg_data => x_msg_data);
623
624 IF x_return_status <> fnd_api.g_ret_sts_success THEN
625 RAISE fnd_api.g_exc_error;
626 END IF;
627
628 hz_extract_party_usage_bo_pvt.get_party_usage_bos(p_init_msg_list => fnd_api.g_false,
629 p_owner_table_id => p_organization_id,
630 p_owner_table_name => 'HZ_PARTIES',
631 p_action_type => p_action_type,
632 x_party_usage_objs => x_organization_obj.party_usage_objs,
633 x_return_status => x_return_status,
634 x_msg_count => x_msg_count,
635 x_msg_data => x_msg_data);
636
637 IF x_return_status <> fnd_api.g_ret_sts_success THEN
638 RAISE fnd_api.g_exc_error;
639 END IF;
640
641 hz_extract_org_cont_bo_pvt.get_org_contact_bos(p_init_msg_list => fnd_api.g_false,
642 p_organization_id => p_organization_id,
643 p_action_type => p_action_type,
644 x_org_contact_objs => x_organization_obj.contact_objs,
645 x_return_status => x_return_status,
646 x_msg_count => x_msg_count,
647 x_msg_data => x_msg_data);
648
649 IF x_return_status <> fnd_api.g_ret_sts_success THEN
650 RAISE fnd_api.g_exc_error;
651 END IF;
652
653 get_financial_report_bos(p_init_msg_list => fnd_api.g_false,
654 p_organization_id => p_organization_id,
655 p_action_type => p_action_type,
656 x_financial_report_objs => x_organization_obj.financial_report_objs,
657 x_return_status => x_return_status,
658 x_msg_count => x_msg_count,
659 x_msg_data => x_msg_data);
660
661 IF x_return_status <> fnd_api.g_ret_sts_success THEN
662 RAISE fnd_api.g_exc_error;
663 END IF;
664
665 hz_extract_cont_point_bo_pvt.get_phone_bos(p_init_msg_list => fnd_api.g_false,
666 p_phone_id => NULL,
667 p_parent_id => p_organization_id,
668 p_parent_table_name => 'HZ_PARTIES',
669 p_action_type => p_action_type,
670 x_phone_objs => x_organization_obj.phone_objs,
671 x_return_status => x_return_status,
675 IF x_return_status <> fnd_api.g_ret_sts_success THEN
672 x_msg_count => x_msg_count,
673 x_msg_data => x_msg_data);
674
676 RAISE fnd_api.g_exc_error;
677 END IF;
678
679 hz_extract_cont_point_bo_pvt.get_telex_bos(p_init_msg_list => fnd_api.g_false,
680 p_telex_id => NULL,
681 p_parent_id => p_organization_id,
682 p_parent_table_name => 'HZ_PARTIES',
683 p_action_type => p_action_type,
684 x_telex_objs => x_organization_obj.telex_objs,
685 x_return_status => x_return_status,
686 x_msg_count => x_msg_count,
687 x_msg_data => x_msg_data);
688
689 IF x_return_status <> fnd_api.g_ret_sts_success THEN
690 RAISE fnd_api.g_exc_error;
691 END IF;
692
693 hz_extract_cont_point_bo_pvt.get_email_bos(p_init_msg_list => fnd_api.g_false,
694 p_email_id => NULL,
695 p_parent_id => p_organization_id,
696 p_parent_table_name => 'HZ_PARTIES',
697 p_action_type => p_action_type,
698 x_email_objs => x_organization_obj.email_objs,
699 x_return_status => x_return_status,
700 x_msg_count => x_msg_count,
701 x_msg_data => x_msg_data);
702
703 IF x_return_status <> fnd_api.g_ret_sts_success THEN
704 RAISE fnd_api.g_exc_error;
705 END IF;
706
707 hz_extract_cont_point_bo_pvt.get_web_bos(p_init_msg_list => fnd_api.g_false,
708 p_web_id => NULL,
709 p_parent_id => p_organization_id,
710 p_parent_table_name => 'HZ_PARTIES',
711 p_action_type => p_action_type,
712 x_web_objs => x_organization_obj.web_objs,
713 x_return_status => x_return_status,
714 x_msg_count => x_msg_count,
715 x_msg_data => x_msg_data);
716
717 IF x_return_status <> fnd_api.g_ret_sts_success THEN
718 RAISE fnd_api.g_exc_error;
719 END IF;
720
721 hz_extract_cont_point_bo_pvt.get_edi_bos(p_init_msg_list => fnd_api.g_false,
722 p_edi_id => NULL,
723 p_parent_id => p_organization_id,
724 p_parent_table_name => 'HZ_PARTIES',
725 p_action_type => p_action_type,
726 x_edi_objs => x_organization_obj.edi_objs,
727 x_return_status => x_return_status,
728 x_msg_count => x_msg_count,
729 x_msg_data => x_msg_data);
730
731 IF x_return_status <> fnd_api.g_ret_sts_success THEN
732 RAISE fnd_api.g_exc_error;
733 END IF;
734
735 hz_extract_cont_point_bo_pvt.get_eft_bos(p_init_msg_list => fnd_api.g_false,
736 p_eft_id => NULL,
737 p_parent_id => p_organization_id,
738 p_parent_table_name => 'HZ_PARTIES',
739 p_action_type => p_action_type,
740 x_eft_objs => x_organization_obj.eft_objs,
741 x_return_status => x_return_status,
742 x_msg_count => x_msg_count,
743 x_msg_data => x_msg_data);
744
745 IF x_return_status <> fnd_api.g_ret_sts_success THEN
746 RAISE fnd_api.g_exc_error;
747 END IF;
748
749 hz_extract_relationship_bo_pvt.get_relationship_bos(p_init_msg_list => fnd_api.g_false,
750 p_subject_id => p_organization_id,
751 p_action_type => p_action_type,
752 x_relationship_objs => x_organization_obj.relationship_objs,
753 x_return_status => x_return_status,
754 x_msg_count => x_msg_count,
755 x_msg_data => x_msg_data);
756
757 IF x_return_status <> fnd_api.g_ret_sts_success THEN
758 RAISE fnd_api.g_exc_error;
759 END IF;
760
761 hz_extract_cont_point_bo_pvt.get_cont_pref_objs(p_init_msg_list => fnd_api.g_false,
762 p_cont_level_table_id => p_organization_id,
763 p_cont_level_table => 'HZ_PARTIES',
764 p_contact_type => NULL,
765 p_action_type => p_action_type,
766 x_cont_pref_objs => x_organization_obj.contact_pref_objs,
767 x_return_status => x_return_status,
768 x_msg_count => x_msg_count,
769 x_msg_data => x_msg_data);
770
771 IF x_return_status <> fnd_api.g_ret_sts_success THEN
772 RAISE fnd_api.g_exc_error;
773 END IF;
774
775 -- Debug info.
776 IF fnd_log.level_exception >= fnd_log.g_current_runtime_level THEN
777 hz_utility_v2pub.debug_return_messages(p_msg_count => x_msg_count,
778 p_msg_data => x_msg_data,
779 p_msg_type => 'WARNING',
780 p_msg_level => fnd_log.level_exception);
781 END IF;
782
783 -- Debug info.
784 IF fnd_log.level_procedure >= fnd_log.g_current_runtime_level THEN
785 hz_utility_v2pub.debug(p_message => 'get_organization_bo (-)',
786 p_prefix => l_debug_prefix,
787 p_msg_level => fnd_log.level_procedure);
788 END IF;
789
790 EXCEPTION
791 WHEN fnd_api.g_exc_error THEN
792
793 x_return_status := fnd_api.g_ret_sts_error;
794 fnd_msg_pub.count_and_get(p_count => x_msg_count,
795 p_data => x_msg_data);
796 WHEN fnd_api.g_exc_unexpected_error THEN
797
798 x_return_status := fnd_api.g_ret_sts_unexp_error;
799 fnd_msg_pub.count_and_get(p_count => x_msg_count,
800 p_data => x_msg_data);
801 WHEN OTHERS THEN
802
803 x_return_status := fnd_api.g_ret_sts_unexp_error;
804
805 fnd_msg_pub.count_and_get(p_count => x_msg_count,
806 p_data => x_msg_data);
807 END get_organization_bo;
808 ----------------------------------------
809 FUNCTION get_party_id(p_orig_system IN VARCHAR2,
810 p_orig_system_reference IN VARCHAR2) RETURN NUMBER AS
811 l_party_id NUMBER;
812 BEGIN
813 SELECT owner_table_id
814 INTO l_party_id
815 FROM hz_orig_sys_references hr
816 WHERE hr.owner_table_name = 'HZ_PARTIES'
817 AND hr.orig_system = p_orig_system
818 AND hr.orig_system_reference = p_orig_system_reference
819 AND nvl(hr.end_date_active, SYSDATE) >= SYSDATE;
820
821 RETURN l_party_id;
822
823 EXCEPTION
824 WHEN OTHERS THEN
825 RETURN 0;
826 END get_party_id;
827
828 END pos_supplier_bo_dep_pkg;
|
|
|