[Home] [Help]
1: PACKAGE BODY HZ_AIA_CUSTOM_PKG AS
2: /* $Header: ARHAIACB.pls 120.0 2007/12/06 18:32:29 awu noship $ */
3: PROCEDURE remove_gmiss(
4: px_org_cust IN OUT NOCOPY HZ_ORG_CUST_BO);
5:
6: PROCEDURE remove_gmiss(
7: px_org_cust IN OUT NOCOPY HZ_ORG_CUST_BO) IS
8: BEGIN
3: PROCEDURE remove_gmiss(
4: px_org_cust IN OUT NOCOPY HZ_ORG_CUST_BO);
5:
6: PROCEDURE remove_gmiss(
7: px_org_cust IN OUT NOCOPY HZ_ORG_CUST_BO) IS
8: BEGIN
9: IF(px_org_cust.organization_obj.duns_number_c = FND_API.G_MISS_CHAR) THEN
10: px_org_cust.organization_obj.duns_number_c := NULL;
11: END IF;
285:
286: PROCEDURE get_related_org_cust_objs(
287: p_batch_id IN NUMBER,
288: p_merge_to_party_id IN NUMBER,
289: x_org_cust_objs OUT NOCOPY HZ_ORG_CUST_BO_TBL
290: ) IS
291: CURSOR get_related_org_cust(l_batch_id NUMBER) IS
292: SELECT distinct cr.cust_account_id, r2.object_id
293: from HZ_MERGE_BATCH mb, HZ_MERGE_PARTIES mp, HZ_MERGE_PARTY_HISTORY mph,
314: l_msg_data VARCHAR2(2000);
315: l_msg_count NUMBER;
316: l_debug_prefix VARCHAR2(30);
317: BEGIN
318: x_org_cust_objs := HZ_ORG_CUST_BO_TBL();
319: i := 1;
320: OPEN get_related_org_cust(p_batch_id);
321: LOOP
322: FETCH get_related_org_cust INTO l_ca_id, l_org_id;
322: FETCH get_related_org_cust INTO l_ca_id, l_org_id;
323: EXIT WHEN get_related_org_cust%NOTFOUND;
324:
325: x_org_cust_objs.EXTEND;
326: x_org_cust_objs(i) := HZ_ORG_CUST_BO(null, null, null);
327:
328: HZ_EXTRACT_ORGANIZATION_BO_PVT.get_organization_bo(
329: p_init_msg_list => fnd_api.g_false,
330: p_organization_id => l_org_id,
557: END get_party_merge_objs;
558:
559: PROCEDURE sync_acct_update(
560: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
561: p_org_cust_obj IN HZ_ORG_CUST_BO,
562: p_created_by_module IN VARCHAR2,
563: p_obj_source IN VARCHAR2 := null,
564: x_return_status OUT NOCOPY VARCHAR2,
565: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
562: p_created_by_module IN VARCHAR2,
563: p_obj_source IN VARCHAR2 := null,
564: x_return_status OUT NOCOPY VARCHAR2,
565: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
566: x_return_obj OUT NOCOPY HZ_ORG_CUST_BO
567: ) IS
568: l_organization_id NUMBER;
569: l_organization_os VARCHAR2(30);
570: l_organization_osr VARCHAR2(255);
569: l_organization_os VARCHAR2(30);
570: l_organization_osr VARCHAR2(255);
571: l_debug_prefix VARCHAR2(30);
572: l_org_obj HZ_ORGANIZATION_BO;
573: l_return_obj HZ_ORG_CUST_BO;
574: l_return_org_obj HZ_ORGANIZATION_BO;
575: l_input_acct_obj HZ_CUST_ACCT_BO;
576: l_org_cust_bo HZ_ORG_CUST_BO;
577:
572: l_org_obj HZ_ORGANIZATION_BO;
573: l_return_obj HZ_ORG_CUST_BO;
574: l_return_org_obj HZ_ORGANIZATION_BO;
575: l_input_acct_obj HZ_CUST_ACCT_BO;
576: l_org_cust_bo HZ_ORG_CUST_BO;
577:
578: CURSOR get_cp_id(l_org_id NUMBER) IS
579: SELECT contact_point_id
580: FROM HZ_CONTACT_POINTS
622: p_prefix=>l_debug_prefix,
623: p_msg_level=>fnd_log.level_procedure);
624: END IF;
625:
626: x_return_obj := HZ_ORG_CUST_BO(null, null, HZ_CUST_ACCT_BO_TBL());
627: l_org_obj := p_org_cust_obj.organization_obj;
628:
629:
630: -- update organization business object
668: END IF;
669: END LOOP;
670: END IF;
671:
672: l_org_cust_bo := HZ_ORG_CUST_BO(null,null,HZ_CUST_ACCT_BO_TBL());
673: l_org_obj := HZ_ORGANIZATION_BO.create_object(
674: p_organization_id => l_organization_id);
675: l_org_cust_bo.organization_obj := l_org_obj;
676: l_org_cust_bo.account_objs.EXTEND;
676: l_org_cust_bo.account_objs.EXTEND;
677: l_org_cust_bo.account_objs(1) := l_input_acct_obj;
678:
679: -- call update_org_cust_bo
680: HZ_ORG_CUST_BO_PUB.update_org_cust_bo(
681: p_org_cust_obj => l_org_cust_bo,
682: p_created_by_module => p_created_by_module,
683: p_obj_source => p_obj_source,
684: p_return_obj_flag => fnd_api.g_true,
740: END sync_acct_update;
741:
742: PROCEDURE sync_acct_order(
743: p_validate_bo_flag IN VARCHAR2 := fnd_api.g_true,
744: p_org_cust_obj IN HZ_ORG_CUST_BO,
745: p_created_by_module IN VARCHAR2,
746: p_obj_source IN VARCHAR2 := null,
747: x_return_status OUT NOCOPY VARCHAR2,
748: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
745: p_created_by_module IN VARCHAR2,
746: p_obj_source IN VARCHAR2 := null,
747: x_return_status OUT NOCOPY VARCHAR2,
748: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL,
749: x_return_obj OUT NOCOPY HZ_ORG_CUST_BO
750: ) IS
751: l_organization_id NUMBER;
752: l_organization_os VARCHAR2(30);
753: l_organization_osr VARCHAR2(255);
762: l_return_acct_obj HZ_CUST_ACCT_BO;
763: l_dummy VARCHAR2(1) := NULL;
764: l_an_profile AR_SYSTEM_PARAMETERS.generate_customer_number%TYPE;
765: l_su_profile AR_SYSTEM_PARAMETERS.auto_site_numbering%TYPE;
766: l_org_cust_bo HZ_ORG_CUST_BO;
767: l_return_obj HZ_ORG_CUST_BO;
768:
769: CURSOR get_cp_id(l_org_id NUMBER) IS
770: SELECT contact_point_id
763: l_dummy VARCHAR2(1) := NULL;
764: l_an_profile AR_SYSTEM_PARAMETERS.generate_customer_number%TYPE;
765: l_su_profile AR_SYSTEM_PARAMETERS.auto_site_numbering%TYPE;
766: l_org_cust_bo HZ_ORG_CUST_BO;
767: l_return_obj HZ_ORG_CUST_BO;
768:
769: CURSOR get_cp_id(l_org_id NUMBER) IS
770: SELECT contact_point_id
771: FROM HZ_CONTACT_POINTS
825: p_prefix=>l_debug_prefix,
826: p_msg_level=>fnd_log.level_procedure);
827: END IF;
828:
829: x_return_obj := HZ_ORG_CUST_BO(null, null, HZ_CUST_ACCT_BO_TBL());
830: l_org_obj := p_org_cust_obj.organization_obj;
831:
832: -- create/update organization business object
833: HZ_ORGANIZATION_BO_PUB.save_organization_bo(
930: CLOSE get_cac_id;
931: END LOOP;
932: END IF;
933:
934: l_org_cust_bo := HZ_ORG_CUST_BO(null,null,HZ_CUST_ACCT_BO_TBL());
935: l_org_obj := HZ_ORGANIZATION_BO.create_object(
936: p_organization_id => l_organization_id);
937: l_org_cust_bo.organization_obj := l_org_obj;
938: l_org_cust_bo.account_objs.EXTEND;
946: AND CHILD_BO_CODE IS NULL )
947: WHERE party_id = l_organization_id;
948:
949: -- call save_org_cust_bo
950: HZ_ORG_CUST_BO_PUB.save_org_cust_bo(
951: p_validate_bo_flag => p_validate_bo_flag,
952: p_org_cust_obj => l_org_cust_bo,
953: p_created_by_module => p_created_by_module,
954: p_obj_source => p_obj_source,
1041: p_from_org_id IN NUMBER,
1042: p_to_org_id IN NUMBER,
1043: p_from_acct_id IN NUMBER,
1044: p_to_acct_id IN NUMBER,
1045: x_org_cust_objs OUT NOCOPY HZ_ORG_CUST_BO_TBL,
1046: x_return_status OUT NOCOPY VARCHAR2,
1047: x_messages OUT NOCOPY HZ_MESSAGE_OBJ_TBL
1048: ) IS
1049: l_debug_prefix VARCHAR2(30) := '';
1066: p_prefix=>l_debug_prefix,
1067: p_msg_level=>fnd_log.level_procedure);
1068: END IF;
1069:
1070: x_org_cust_objs := HZ_ORG_CUST_BO_TBL();
1071:
1072: FOR i IN 1..2 LOOP
1073: -- If same from to account and same from to org
1074: -- quit the 2nd loop
1076: EXIT;
1077: END IF;
1078:
1079: x_org_cust_objs.EXTEND;
1080: x_org_cust_objs(i) := HZ_ORG_CUST_BO(NULL, NULL, NULL);
1081: IF i = 1 THEN
1082: l_org_id := p_from_org_id;
1083: l_acct_id := p_from_acct_id;
1084: ELSE