The following lines contain the word 'select', 'insert', 'update' or 'delete':
p_create_or_update IN VARCHAR2);
p_create_or_update => 'U',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
SELECT p.object_version_number
FROM HZ_RELATIONSHIPS rel, HZ_PARTIES p
WHERE rel.subject_id = l_subject_id
AND rel.object_id = l_object_id
AND rel.relationship_type = l_relationship_type
AND rel.relationship_code = l_relationship_code
AND sysdate between rel.start_date and nvl(rel.end_date, sysdate)
AND rel.party_id = p.party_id
AND p.status in ('A','I');
p_create_or_update => 'U',
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data);
HZ_RELATIONSHIP_V2PUB.update_relationship(
p_relationship_rec => l_rel_rec,
p_object_version_number => l_ovn,
p_party_object_version_number => l_povn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
PROCEDURE update_relationship_obj(
p_init_msg_list IN VARCHAR2 := fnd_api.g_false,
p_rel_obj IN OUT NOCOPY HZ_RELATIONSHIP_OBJ,
x_relationship_id OUT NOCOPY NUMBER,
x_return_status OUT NOCOPY VARCHAR2,
x_msg_count OUT NOCOPY NUMBER,
x_msg_data OUT NOCOPY VARCHAR2
) IS
l_debug_prefix VARCHAR2(30);
SELECT relationship_id, nvl(rel.object_version_number,1), nvl(p.object_version_number,1)
FROM HZ_RELATIONSHIPS rel, HZ_PARTIES p
WHERE rel.relationship_id = l_rel_id
AND rel.party_id = p.party_id
AND rel.status in ('A','I')
AND rownum = 1;
SAVEPOINT update_relatobj_pvt;
hz_utility_v2pub.debug(p_message=>'update_relatobj_pvt(+)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
HZ_RELATIONSHIP_V2PUB.update_relationship(
p_relationship_rec => l_rel_rec,
p_object_version_number => l_ovn,
p_party_object_version_number => l_povn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
hz_utility_v2pub.debug(p_message=>'Error occurred at hz_party_bo_pvt.update_relationship_obj, subject id: '||p_rel_obj.parent_object_id||' object id: '||p_rel_obj.related_object_id,
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
hz_utility_v2pub.debug(p_message=>'update_relatobj_pvt(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_relatobj_pvt;
hz_utility_v2pub.debug(p_message=>'update_relatobj_pvt(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_relatobj_pvt;
hz_utility_v2pub.debug(p_message=>'update_relatobj_pvt(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
ROLLBACK TO update_relatobj_pvt;
hz_utility_v2pub.debug(p_message=>'update_relatobj_pvt(-)',
p_prefix=>l_debug_prefix,
p_msg_level=>fnd_log.level_procedure);
END update_relationship_obj;
SELECT relationship_id, nvl(rel.object_version_number,1), nvl(p.object_version_number,1)
FROM HZ_RELATIONSHIPS rel, HZ_PARTIES p
WHERE rel.relationship_id = l_rel_id
AND rel.party_id = p.party_id
AND rel.status in ('A','I')
AND rownum = 1;
HZ_RELATIONSHIP_V2PUB.update_relationship(
p_relationship_rec => l_rel_rec,
p_object_version_number => l_ovn,
p_party_object_version_number => l_povn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
SELECT HZ_RELATIONSHIP_OBJ(
NULL, -- ACTION_TYPE
NULL, --COMMON_OBJ_ID
RELATIONSHIP_ID,
DECODE(SUBJECT_TYPE, 'ORGANIZATION', 'ORG', SUBJECT_TYPE),
SUBJECT_ID,
OBJECT_ID,
DECODE(OBJECT_TYPE, 'ORGANIZATION', 'ORG', OBJECT_TYPE),
NULL, --OBJECT_ORIG_SYSTEM_REFERENCE,
NULL, --OBJECT_ORIG_SYSTEM,
RELATIONSHIP_CODE,
RELATIONSHIP_TYPE,
COMMENTS,
START_DATE,
END_DATE,
STATUS,
ATTRIBUTE_CATEGORY,
ATTRIBUTE1, ATTRIBUTE2, ATTRIBUTE3, ATTRIBUTE4, ATTRIBUTE5,
ATTRIBUTE6, ATTRIBUTE7, ATTRIBUTE8, ATTRIBUTE9, ATTRIBUTE10,
ATTRIBUTE11, ATTRIBUTE12, ATTRIBUTE13, ATTRIBUTE14, ATTRIBUTE15,
ATTRIBUTE16, ATTRIBUTE17, ATTRIBUTE18, ATTRIBUTE19, ATTRIBUTE20,
PROGRAM_UPDATE_DATE,
CREATED_BY_MODULE,
HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(CREATED_BY),
CREATION_DATE,
LAST_UPDATE_DATE,
HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(LAST_UPDATED_BY),
ADDITIONAL_INFORMATION1, ADDITIONAL_INFORMATION2,
ADDITIONAL_INFORMATION3, ADDITIONAL_INFORMATION4,
ADDITIONAL_INFORMATION5, ADDITIONAL_INFORMATION6,
ADDITIONAL_INFORMATION7, ADDITIONAL_INFORMATION8,
ADDITIONAL_INFORMATION9, ADDITIONAL_INFORMATION10,
ADDITIONAL_INFORMATION11, ADDITIONAL_INFORMATION12,
ADDITIONAL_INFORMATION13, ADDITIONAL_INFORMATION14,
ADDITIONAL_INFORMATION15, ADDITIONAL_INFORMATION16,
ADDITIONAL_INFORMATION17, ADDITIONAL_INFORMATION18,
ADDITIONAL_INFORMATION19, ADDITIONAL_INFORMATION20,
ADDITIONAL_INFORMATION21, ADDITIONAL_INFORMATION22,
ADDITIONAL_INFORMATION23, ADDITIONAL_INFORMATION24,
ADDITIONAL_INFORMATION25, ADDITIONAL_INFORMATION26,
ADDITIONAL_INFORMATION27, ADDITIONAL_INFORMATION28,
ADDITIONAL_INFORMATION29, ADDITIONAL_INFORMATION30,
PERCENTAGE_OWNERSHIP,
ACTUAL_CONTENT_SOURCE,
CAST(MULTISET (
SELECT HZ_ORIG_SYS_REF_OBJ(
NULL, --P_ACTION_TYPE,
ORIG_SYSTEM_REF_ID,
ORIG_SYSTEM,
ORIG_SYSTEM_REFERENCE,
HZ_EXTRACT_BO_UTIL_PVT.get_parent_object_type(OWNER_TABLE_NAME,OWNER_TABLE_ID),
OWNER_TABLE_ID,
STATUS,
REASON_CODE,
OLD_ORIG_SYSTEM_REFERENCE,
START_DATE_ACTIVE,
END_DATE_ACTIVE,
PROGRAM_UPDATE_DATE,
CREATED_BY_MODULE,
HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(CREATED_BY),
CREATION_DATE,
LAST_UPDATE_DATE,
HZ_EXTRACT_BO_UTIL_PVT.GET_USER_NAME(LAST_UPDATED_BY),
ATTRIBUTE_CATEGORY,
ATTRIBUTE1, ATTRIBUTE2, ATTRIBUTE3, ATTRIBUTE4, ATTRIBUTE5,
ATTRIBUTE6, ATTRIBUTE7, ATTRIBUTE8, ATTRIBUTE9, ATTRIBUTE10,
ATTRIBUTE11, ATTRIBUTE12, ATTRIBUTE13, ATTRIBUTE14, ATTRIBUTE15,
ATTRIBUTE16, ATTRIBUTE17, ATTRIBUTE18, ATTRIBUTE19, ATTRIBUTE20)
FROM HZ_ORIG_SYS_REFERENCES OSR
WHERE OSR.OWNER_TABLE_ID = REL.SUBJECT_ID
AND OWNER_TABLE_NAME = 'HZ_PARTIES'
AND STATUS = 'A') AS HZ_ORIG_SYS_REF_OBJ_TBL))
FROM HZ_RELATIONSHIPS REL
WHERE RELATIONSHIP_ID = l_relationship_id
AND DIRECTIONAL_FLAG = 'F';
HZ_CLASSIFICATION_V2PUB.update_code_assignment(
p_code_assignment_rec => l_code_assign_rec,
p_object_version_number => l_ovn,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
x_last_update_date => l_lud,
x_return_status => x_return_status
);
HZ_ORG_INFO_PUB.update_certifications(
p_api_version => 1.0,
p_certifications_rec => l_cert_rec,
p_last_update_date => l_lud,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
x_last_update_date => l_lud,
x_return_status => x_return_status
);
HZ_PARTY_INFO_PUB.update_financial_profile(
p_api_version => 1.0,
p_financial_profile_rec => l_fin_prof_rec,
p_last_update_date => l_lud,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
);
x_last_update_date => l_lud,
x_return_status => x_return_status
);
HZ_PARTY_USG_ASSIGNMENT_PUB.update_usg_assignment (
p_init_msg_list => FND_API.G_FALSE,
p_party_usg_assignment_rec => l_party_usg_rec,
x_return_status => x_return_status,
x_msg_count => x_msg_count,
x_msg_data => x_msg_data
) ;
p_create_or_update IN VARCHAR2,
p_obj_source IN VARCHAR2,
p_event_id IN NUMBER
) IS
l_paramlist WF_PARAMETER_LIST_T;
DELETE FROM HZ_BUS_OBJ_TRACKING
WHERE rowid IN
( SELECT bo_row FROM
( SELECT rowid bo_row, child_entity_name, child_id, child_bo_code, parent_entity_name, parent_id, parent_bo_code
, min(rowid) over (PARTITION BY child_id, child_entity_name, child_bo_code, parent_entity_name, parent_id, parent_bo_code ORDER BY rowid RANGE UNBOUNDED PRECEDING) as min_row
FROM HZ_BUS_OBJ_TRACKING
WHERE child_id = p_party_id
AND child_entity_name = 'HZ_PARTIES'
AND nvl(child_bo_code, 'X') = nvl(p_bo_code, 'X')
--AND nvl(parent_entity_name, 'X') = nvl(p_pentity_name, 'X')
--AND nvl(parent_id, -99) = nvl(p_parent_id, -99)
--AND nvl(parent_bo_code, 'X') = nvl(p_pbo_code, 'X')
AND event_id IS NULL
)
WHERE bo_row <> min_row
);
p_create_or_update => p_create_or_update);
WHEN p_bo_code = 'PERSON' AND p_create_or_update = 'C' THEN
l_event_name := 'oracle.apps.ar.hz.PersonBO.create';
WHEN p_bo_code = 'PERSON' AND p_create_or_update = 'U' THEN
l_event_name := 'oracle.apps.ar.hz.PersonBO.update';
WHEN p_bo_code = 'ORG' AND p_create_or_update = 'C' THEN
l_event_name := 'oracle.apps.ar.hz.OrgBO.create';
WHEN p_bo_code = 'ORG' AND p_create_or_update = 'U' THEN
l_event_name := 'oracle.apps.ar.hz.OrgBO.update';
WHEN p_bo_code = 'PERSON_CUST' AND p_create_or_update = 'C' THEN
l_event_name := 'oracle.apps.ar.hz.PersonCustBO.create';
WHEN p_bo_code = 'PERSON_CUST' AND p_create_or_update = 'U' THEN
l_event_name := 'oracle.apps.ar.hz.PersonCustBO.update';
WHEN p_bo_code = 'ORG_CUST' AND p_create_or_update = 'C' THEN
l_event_name := 'oracle.apps.ar.hz.OrgCustBO.create';
WHEN p_bo_code = 'ORG_CUST' AND p_create_or_update = 'U' THEN
l_event_name := 'oracle.apps.ar.hz.OrgCustBO.update';
l_paramlist.DELETE;
log('Update BOT Event Id');
p_evt_type => p_create_or_update,
p_commit => FALSE,
p_per_ins_evt_id => NULL,
p_per_upd_evt_id => NULL,
p_org_ins_evt_id => NULL,
p_org_upd_evt_id => NULL,
p_perc_ins_evt_id => NULL,
p_perc_upd_evt_id => NULL,
p_orgc_ins_evt_id => NULL,
p_orgc_upd_evt_id => NULL
);
IF(p_create_or_update = 'C') THEN
log('Set BO version number');
l_paramlist.DELETE;
l_paramlist.DELETE;
UPDATE HZ_PARTIES
SET PERSON_BO_VERSION = (SELECT BO_VERSION_NUMBER
FROM HZ_BUS_OBJ_DEFINITIONS
WHERE BUSINESS_OBJECT_CODE = 'PERSON'
AND ENTITY_NAME = 'HZ_PARTIES')
WHERE PARTY_ID = p_party_id;
UPDATE HZ_PARTIES
SET PERSON_CUST_BO_VERSION = (SELECT BO_VERSION_NUMBER
FROM HZ_BUS_OBJ_DEFINITIONS
WHERE BUSINESS_OBJECT_CODE = 'PERSON_CUST'
AND ENTITY_NAME = 'HZ_PARTIES'
AND CHILD_BO_CODE IS NULL)
WHERE PARTY_ID = p_party_id;
UPDATE HZ_PARTIES
SET ORG_BO_VERSION = (SELECT BO_VERSION_NUMBER
FROM HZ_BUS_OBJ_DEFINITIONS
WHERE BUSINESS_OBJECT_CODE = 'ORG'
AND ENTITY_NAME = 'HZ_PARTIES')
WHERE PARTY_ID = p_party_id;
UPDATE HZ_PARTIES
SET ORG_CUST_BO_VERSION = (SELECT BO_VERSION_NUMBER
FROM HZ_BUS_OBJ_DEFINITIONS
WHERE BUSINESS_OBJECT_CODE = 'ORG_CUST'
AND ENTITY_NAME = 'HZ_PARTIES'
AND CHILD_BO_CODE IS NULL)
WHERE PARTY_ID = p_party_id;
FUNCTION is_raising_update_event(
p_party_id IN NUMBER,
p_bo_code IN VARCHAR2
) RETURN BOOLEAN IS
CURSOR get_party_bo_version IS
SELECT nvl(PERSON_BO_VERSION, 0), nvl(PERSON_CUST_BO_VERSION, 0),
nvl(ORG_BO_VERSION, 0), nvl(ORG_CUST_BO_VERSION, 0)
FROM HZ_PARTIES
WHERE party_id = p_party_id;
SELECT nvl(BO_VERSION_NUMBER, 0)
FROM HZ_BUS_OBJ_DEFINITIONS
WHERE BUSINESS_OBJECT_CODE = p_bo_code
AND ENTITY_NAME = 'HZ_PARTIES'
AND CHILD_BO_CODE IS NULL;
END is_raising_update_event;
p_create_or_update IN VARCHAR2
) IS
l_debug_prefix VARCHAR2(30);
l_insert_or_update VARCHAR2(1);
IF(p_create_or_update = 'C') THEN
l_insert_or_update := 'I';
l_insert_or_update := 'U';
SELECT child_id INTO l_child_rec_exists_no
FROM HZ_BUS_OBJ_TRACKING
WHERE event_id IS NULL
AND CHILD_ENTITY_NAME = 'HZ_PARTIES'
AND CHILD_BO_CODE = p_bo_code
AND CHILD_ID = p_party_id
AND PARENT_ID IS NULL
AND PARENT_BO_CODE IS NULL
AND PARENT_ENTITY_NAME IS NULL
AND rownum = 1;
INSERT INTO HZ_BUS_OBJ_TRACKING
( POPULATED_FLAG, CHILD_OPERATION_FLAG, CHILD_ID, CHILD_ENTITY_NAME, CHILD_BO_CODE,
LAST_UPDATE_DATE, CREATION_DATE, PARENT_ENTITY_NAME, PARENT_ID, PARENT_BO_CODE
) VALUES (
'Y', l_insert_or_update, p_party_id, 'HZ_PARTIES', p_bo_code,
l_date, l_date, NULL, NULL, NULL);
SELECT child_id INTO l_child_rec_exists_no
FROM HZ_BUS_OBJ_TRACKING
WHERE event_id IS NULL
AND CHILD_ENTITY_NAME = 'HZ_PARTIES'
AND CHILD_BO_CODE = l_child_code
AND CHILD_ID = p_party_id
AND PARENT_ID = p_party_id
AND PARENT_BO_CODE = p_bo_code
AND PARENT_ENTITY_NAME = 'HZ_PARTIES'
AND rownum = 1;
INSERT INTO HZ_BUS_OBJ_TRACKING
( POPULATED_FLAG, CHILD_OPERATION_FLAG, CHILD_ID, CHILD_ENTITY_NAME, CHILD_BO_CODE,
LAST_UPDATE_DATE, CREATION_DATE, PARENT_ENTITY_NAME, PARENT_ID, PARENT_BO_CODE
) VALUES (
'Y', l_insert_or_update, p_party_id, 'HZ_PARTIES', l_child_code,
l_date, l_date, 'HZ_PARTIES', p_party_id, p_bo_code);