750: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
751: END pop_hz_person_interest;
752:
753: -----------------------------------------------------------------
754: -- Procedure name: pop_hz_party_site_uses()
755: -- Purpose: populates BOT for HZ_PARTY_SITE_USES create or update
756: -- Scope: internal
757: -- Called From: V2 API
758: -- Called By: HZ_PARTY_SITE_USES create or update APIs
751: END pop_hz_person_interest;
752:
753: -----------------------------------------------------------------
754: -- Procedure name: pop_hz_party_site_uses()
755: -- Purpose: populates BOT for HZ_PARTY_SITE_USES create or update
756: -- Scope: internal
757: -- Called From: V2 API
758: -- Called By: HZ_PARTY_SITE_USES create or update APIs
759: -- Input Parameters:
754: -- Procedure name: pop_hz_party_site_uses()
755: -- Purpose: populates BOT for HZ_PARTY_SITE_USES create or update
756: -- Scope: internal
757: -- Called From: V2 API
758: -- Called By: HZ_PARTY_SITE_USES create or update APIs
759: -- Input Parameters:
760: -- p_operation -- contains I or U. 'I' if create API is calling this otherwise 'U'.
761: -- p_party_site_use_id IN NUMBER
762: --
760: -- p_operation -- contains I or U. 'I' if create API is calling this otherwise 'U'.
761: -- p_party_site_use_id IN NUMBER
762: --
763: -- Note:
764: -- Following are the allowed PARENT and CHILD BO combinations for HZ_PARTY_SITE_USES
765: -- This procedure must ensure that the combination is valid before populating BOT
766: --
767: -- PARENT BO: PARTY_SITE :: CHILD BO:
768: -----------------------------------------------------------------
765: -- This procedure must ensure that the combination is valid before populating BOT
766: --
767: -- PARENT BO: PARTY_SITE :: CHILD BO:
768: -----------------------------------------------------------------
769: PROCEDURE pop_hz_party_site_uses(p_operation IN VARCHAR2, p_party_site_use_id IN NUMBER) IS
770:
771: -- cursor statement to select the info from child table
772: CURSOR C_child IS
773: SELECT psu.LAST_UPDATE_DATE lud, psu.PARTY_SITE_ID parent_id, psu.PARTY_SITE_USE_ID child_id,
771: -- cursor statement to select the info from child table
772: CURSOR C_child IS
773: SELECT psu.LAST_UPDATE_DATE lud, psu.PARTY_SITE_ID parent_id, psu.PARTY_SITE_USE_ID child_id,
774: p.party_type, p.party_id
775: FROM HZ_PARTY_SITE_USES psu, HZ_PARTY_SITES ps, HZ_PARTIES p
776: WHERE psu.PARTY_SITE_USE_ID = P_PARTY_SITE_USE_ID
777: AND psu.party_site_id = ps.party_site_id
778: AND ps.party_id = p.party_id
779: AND p.party_type in ('ORGANIZATION', 'PERSON', 'PARTY_RELATIONSHIP');
787: AND pr.object_type = 'ORGANIZATION'
788: AND rownum = 1;
789:
790: -- local variables
791: l_debug_prefix VARCHAR2(40) := 'pop_hz_party_site_uses';
792: l_parent_id NUMBER; -- used to store parent entity identifier
793: l_child_id NUMBER; -- used to store HZ_PARTY_SITE_USES identifier
794: l_lud DATE; -- used to store the child last update date
795: l_child_rec_exists_no NUMBER;
789:
790: -- local variables
791: l_debug_prefix VARCHAR2(40) := 'pop_hz_party_site_uses';
792: l_parent_id NUMBER; -- used to store parent entity identifier
793: l_child_id NUMBER; -- used to store HZ_PARTY_SITE_USES identifier
794: l_lud DATE; -- used to store the child last update date
795: l_child_rec_exists_no NUMBER;
796: l_ptype VARCHAR2(30);
797: l_pid NUMBER;
795: l_child_rec_exists_no NUMBER;
796: l_ptype VARCHAR2(30);
797: l_pid NUMBER;
798: l_dummy_id NUMBER;
799: l_cen VARCHAR2(30) := 'HZ_PARTY_SITE_USES';
800: BEGIN
801: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_site_uses+',
802: p_prefix=>l_debug_prefix,
803: p_msg_level=>fnd_log.level_procedure);
797: l_pid NUMBER;
798: l_dummy_id NUMBER;
799: l_cen VARCHAR2(30) := 'HZ_PARTY_SITE_USES';
800: BEGIN
801: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_site_uses+',
802: p_prefix=>l_debug_prefix,
803: p_msg_level=>fnd_log.level_procedure);
804:
805: -- validate p_operation
805: -- validate p_operation
806: IF p_operation IN ('I','U') THEN
807: NULL;
808: ELSE
809: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_party_site_uses',
810: p_prefix=>l_debug_prefix,
811: p_msg_level=>fnd_log.level_procedure);
812: RAISE FND_API.G_EXC_ERROR;
813: END IF;
851: INSERT INTO HZ_BUS_OBJ_TRACKING
852: ( POPULATED_FLAG, CHILD_OPERATION_FLAG, CHILD_ID, CHILD_ENTITY_NAME, CHILD_BO_CODE,
853: LAST_UPDATE_DATE, CREATION_DATE, PARENT_ENTITY_NAME, PARENT_ID, PARENT_BO_CODE
854: ) VALUES (
855: 'N', p_operation, l_child_id, 'HZ_PARTY_SITE_USES', NULL,
856: l_lud, l_lud, 'HZ_PARTY_SITES', l_parent_id, 'PARTY_SITE');
857: END ; -- anonymous block end
858: END LOOP;
859:
856: l_lud, l_lud, 'HZ_PARTY_SITES', l_parent_id, 'PARTY_SITE');
857: END ; -- anonymous block end
858: END LOOP;
859:
860: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_party_site_uses-',
861: p_prefix=>l_debug_prefix,
862: p_msg_level=>fnd_log.level_procedure);
863: EXCEPTION
864: WHEN OTHERS THEN
865: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
866: p_prefix=>l_debug_prefix,
867: p_msg_level=>fnd_log.level_procedure);
868: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
869: END pop_hz_party_site_uses;
870:
871: -----------------------------------------------------------------
872: -- Procedure name: pop_hz_party_sites()
873: -- Purpose: populates BOT for HZ_PARTY_SITES create or update