1435: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1436: END pop_hz_organization_profiles;
1437:
1438: -----------------------------------------------------------------
1439: -- Procedure name: pop_hz_locations()
1440: -- Purpose: populates BOT for HZ_LOCATIONS create or update
1441: -- Scope: internal
1442: -- Called From: V2 API
1443: -- Called By: HZ_LOCATIONS create or update APIs
1436: END pop_hz_organization_profiles;
1437:
1438: -----------------------------------------------------------------
1439: -- Procedure name: pop_hz_locations()
1440: -- Purpose: populates BOT for HZ_LOCATIONS create or update
1441: -- Scope: internal
1442: -- Called From: V2 API
1443: -- Called By: HZ_LOCATIONS create or update APIs
1444: -- Input Parameters:
1439: -- Procedure name: pop_hz_locations()
1440: -- Purpose: populates BOT for HZ_LOCATIONS create or update
1441: -- Scope: internal
1442: -- Called From: V2 API
1443: -- Called By: HZ_LOCATIONS create or update APIs
1444: -- Input Parameters:
1445: -- p_operation -- contains I or U. 'I' if create API is calling this otherwise 'U'.
1446: -- p_location_id IN NUMBER
1447: --
1445: -- p_operation -- contains I or U. 'I' if create API is calling this otherwise 'U'.
1446: -- p_location_id IN NUMBER
1447: --
1448: -- Note:
1449: -- Following are the allowed PARENT and CHILD BO combinations for HZ_LOCATIONS
1450: -- This procedure must ensure that the combination is valid before populating BOT
1451: --
1452: -- PARENT BO: PARTY_SITE :: CHILD BO: LOCATION
1453: -----------------------------------------------------------------
1450: -- This procedure must ensure that the combination is valid before populating BOT
1451: --
1452: -- PARENT BO: PARTY_SITE :: CHILD BO: LOCATION
1453: -----------------------------------------------------------------
1454: PROCEDURE pop_hz_locations(p_operation IN VARCHAR2, p_location_id IN NUMBER) IS
1455:
1456: CURSOR c_child IS -- this is incorrect - please change
1457: SELECT LAST_UPDATE_DATE lud, LOCATION_ID child_id
1458: FROM HZ_LOCATIONS
1454: PROCEDURE pop_hz_locations(p_operation IN VARCHAR2, p_location_id IN NUMBER) IS
1455:
1456: CURSOR c_child IS -- this is incorrect - please change
1457: SELECT LAST_UPDATE_DATE lud, LOCATION_ID child_id
1458: FROM HZ_LOCATIONS
1459: WHERE location_id = p_location_id;
1460:
1461: CURSOR c_ps(l_loc_id NUMBER) IS
1462: SELECT party_site_id
1464: WHERE ps.location_id = l_loc_id
1465: AND ps.party_id = p.party_id;
1466:
1467: -- local variables
1468: l_debug_prefix VARCHAR2(40) := 'pop_hz_locations';
1469: l_parent_id NUMBER; -- used to store parent entity identifier
1470: l_parent_tbl_name VARCHAR2(30); -- used to store parent entity name
1471: l_bo_code VARCHAR2(30); -- used to store BO Code
1472: l_child_bo_code VARCHAR2(30); -- used to store Child BO Code (if child entity is a root node)
1469: l_parent_id NUMBER; -- used to store parent entity identifier
1470: l_parent_tbl_name VARCHAR2(30); -- used to store parent entity name
1471: l_bo_code VARCHAR2(30); -- used to store BO Code
1472: l_child_bo_code VARCHAR2(30); -- used to store Child BO Code (if child entity is a root node)
1473: l_child_id NUMBER; -- used to store HZ_LOCATIONS identifier
1474: l_lud DATE; -- used to store the child last update date
1475: l_child_rec_exists_no NUMBER;
1476: l_cen VARCHAR2(30) := 'HZ_LOCATIONS';
1477: BEGIN
1472: l_child_bo_code VARCHAR2(30); -- used to store Child BO Code (if child entity is a root node)
1473: l_child_id NUMBER; -- used to store HZ_LOCATIONS identifier
1474: l_lud DATE; -- used to store the child last update date
1475: l_child_rec_exists_no NUMBER;
1476: l_cen VARCHAR2(30) := 'HZ_LOCATIONS';
1477: BEGIN
1478: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_locations+',
1479: p_prefix=>l_debug_prefix,
1480: p_msg_level=>fnd_log.level_procedure);
1474: l_lud DATE; -- used to store the child last update date
1475: l_child_rec_exists_no NUMBER;
1476: l_cen VARCHAR2(30) := 'HZ_LOCATIONS';
1477: BEGIN
1478: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_locations+',
1479: p_prefix=>l_debug_prefix,
1480: p_msg_level=>fnd_log.level_procedure);
1481:
1482: -- validate p_operation
1482: -- validate p_operation
1483: IF p_operation IN ('I','U') THEN
1484: NULL;
1485: ELSE
1486: hz_utility_v2pub.DEBUG(p_message=> 'incorrect operation flag sent to pop_hz_locations',
1487: p_prefix=>l_debug_prefix,
1488: p_msg_level=>fnd_log.level_procedure);
1489: RAISE FND_API.G_EXC_ERROR;
1490: END IF;
1519: INSERT INTO HZ_BUS_OBJ_TRACKING
1520: ( POPULATED_FLAG, CHILD_OPERATION_FLAG, CHILD_ID, CHILD_ENTITY_NAME, CHILD_BO_CODE,
1521: LAST_UPDATE_DATE, CREATION_DATE, PARENT_ENTITY_NAME, PARENT_ID, PARENT_BO_CODE
1522: ) VALUES (
1523: 'N', p_operation, l_child_id, 'HZ_LOCATIONS', 'LOCATION',
1524: l_lud, l_lud, 'HZ_PARTY_SITES', l_parent_id, 'PARTY_SITE');
1525: END LOOP;
1526: CLOSE c_ps;
1527: END ; -- anonymous block end
1526: CLOSE c_ps;
1527: END ; -- anonymous block end
1528: END LOOP;
1529:
1530: hz_utility_v2pub.DEBUG(p_message=>'pop_hz_locations-',
1531: p_prefix=>l_debug_prefix,
1532: p_msg_level=>fnd_log.level_procedure);
1533: EXCEPTION
1534: WHEN OTHERS THEN
1535: hz_utility_v2pub.DEBUG(p_message=> SQLERRM,
1536: p_prefix=>l_debug_prefix,
1537: p_msg_level=>fnd_log.level_procedure);
1538: RAISE FND_API.G_EXC_UNEXPECTED_ERROR;
1539: END pop_hz_locations;
1540:
1541: -----------------------------------------------------------------
1542: -- Procedure name: pop_hz_financial_reports()
1543: -- Purpose: populates BOT for HZ_FINANCIAL_REPORTS create or update
3783: AND c.PERSON_PROFILE_ID = p.PERSON_PROFILE_ID
3784: AND rownum = 1;
3785:
3786: CURSOR C_child_loc IS
3787: SELECT c.LAST_UPDATE_DATE lud, c.LOCATION_ID parent_id, c.extension_id child_id, 'LOCATION' bo_code, 'HZ_LOCATIONS' parent_entity
3788: FROM HZ_LOCATIONS_EXT_B c
3789: WHERE c.EXTENSION_ID = P_EXTENSION_ID
3790: AND rownum = 1;
3791:
3784: AND rownum = 1;
3785:
3786: CURSOR C_child_loc IS
3787: SELECT c.LAST_UPDATE_DATE lud, c.LOCATION_ID parent_id, c.extension_id child_id, 'LOCATION' bo_code, 'HZ_LOCATIONS' parent_entity
3788: FROM HZ_LOCATIONS_EXT_B c
3789: WHERE c.EXTENSION_ID = P_EXTENSION_ID
3790: AND rownum = 1;
3791:
3792: CURSOR C_child_ps IS
3826: OPEN c_child_per;
3827: l_child_entity := 'HZ_PER_PROFILES_EXT_VL';
3828: ELSIF(p_object_type = 'LOCATION') THEN
3829: OPEN c_child_loc;
3830: l_child_entity := 'HZ_LOCATIONS_EXT_VL';
3831: ELSIF(p_object_type = 'PARTY_SITE') THEN
3832: OPEN c_child_ps;
3833: l_child_entity := 'HZ_PARTY_SITES_EXT_VL';
3834: END IF;