[Home] [Help]
19:
20: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_DM_TARGET_PVT';
21: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvdtgb.pls';
22:
23: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
24: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
25:
26:
27: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
20: G_PKG_NAME CONSTANT VARCHAR2(30) := 'AMS_DM_TARGET_PVT';
21: G_FILE_NAME CONSTANT VARCHAR2(12) := 'amsvdtgb.pls';
22:
23: G_USER_ID NUMBER := FND_GLOBAL.USER_ID;
24: G_LOGIN_ID NUMBER := FND_GLOBAL.CONC_LOGIN_ID;
25:
26:
27: AMS_DEBUG_HIGH_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_HIGH);
28: AMS_DEBUG_LOW_ON boolean := FND_MSG_PUB.CHECK_MSG_LEVEL(FND_MSG_PUB.G_MSG_LVL_DEBUG_LOW);
125: -- =========================================================================
126: -- Validate Environment
127: -- =========================================================================
128:
129: IF FND_GLOBAL.User_Id IS NULL THEN
130: AMS_Utility_PVT.Error_Message(p_message_name => 'USER_PROFILE_MISSING');
131: RAISE FND_API.G_EXC_ERROR;
132: END IF;
133:
1484: L_TARGET_QUALIFIER CONSTANT VARCHAR2(30) := 'TARGET';
1485: L_ACCESS_TYPE_USER CONSTANT VARCHAR2(30) := 'USER';
1486:
1487: -- user id of the currently logged in user.
1488: l_owner_user_id NUMBER := AMS_Utility_PVT.get_resource_id (FND_GLOBAL.user_id);
1489: BEGIN
1490: -- Initialize API return status to SUCCESS
1491: x_return_status := FND_API.G_RET_STS_SUCCESS;
1492:
1559: BEGIN
1560: UPDATE ams_dm_targets_b
1561: SET active_flag = 'N',
1562: last_update_date = SYSDATE,
1563: last_updated_by = FND_GLOBAL.user_id
1564: WHERE (data_source_id = p_data_source_id OR target_source_id = p_data_source_id)
1565: AND active_flag = 'Y'
1566: ;
1567:
1576: UPDATE ams_dm_models_all_b a
1577: SET a.status_code = l_status_code,
1578: a.user_status_id = l_user_status_id,
1579: a.last_update_date = SYSDATE,
1580: a.last_updated_by = FND_GLOBAL.user_id,
1581: a.status_date = SYSDATE
1582: WHERE a.status_code = 'AVAILABLE'
1583: AND (EXISTS
1584: (SELECT 1
1627: BEGIN
1628: UPDATE ams_dm_targets_b a
1629: SET a.active_flag = 'Y',
1630: a.last_update_date = SYSDATE,
1631: a.last_updated_by = FND_GLOBAL.user_id
1632: WHERE (a.data_source_id = p_data_source_id OR a.target_source_id = p_data_source_id)
1633: AND EXISTS (SELECT 1 FROM ams_list_src_types b WHERE b.list_source_type_id = a.data_source_id AND b.enabled_flag = 'Y')
1634: AND EXISTS (SELECT 1 FROM ams_list_src_types c WHERE c.list_source_type_id = a.target_source_id AND c.enabled_flag = 'Y')
1635: AND (EXISTS (SELECT 1 FROM ams_list_src_type_assocs d WHERE d.MASTER_SOURCE_TYPE_ID = a.data_source_id AND d.SUB_SOURCE_TYPE_ID = a.target_source_id AND d.enabled_flag = 'Y')
1674: BEGIN
1675: UPDATE ams_dm_targets_b a
1676: SET a.active_flag = 'Y',
1677: a.last_update_date = SYSDATE,
1678: a.last_updated_by = FND_GLOBAL.user_id
1679: WHERE (a.data_source_id = p_master_source_id AND a.target_source_id = p_sub_source_id)
1680: AND EXISTS (SELECT 1 FROM ams_list_src_types b WHERE b.list_source_type_id = a.data_source_id AND b.enabled_flag = 'Y')
1681: AND EXISTS (SELECT 1 FROM ams_list_src_types c WHERE c.list_source_type_id = a.target_source_id AND c.enabled_flag = 'Y')
1682: AND EXISTS (SELECT 1 FROM ams_list_src_type_assocs d WHERE d.MASTER_SOURCE_TYPE_ID = a.data_source_id AND d.SUB_SOURCE_TYPE_ID = a.target_source_id AND d.enabled_flag = 'Y')
1737: BEGIN
1738: UPDATE ams_dm_targets_b
1739: SET active_flag = 'N',
1740: last_update_date = SYSDATE,
1741: last_updated_by = FND_GLOBAL.user_id
1742: WHERE (data_source_id = p_master_source_id AND target_source_id = p_sub_source_id)
1743: AND active_flag = 'Y'
1744: ;
1745:
1754: UPDATE ams_dm_models_all_b a
1755: SET a.status_code = l_status_code,
1756: a.user_status_id = l_user_status_id,
1757: a.last_update_date = SYSDATE,
1758: a.last_updated_by = FND_GLOBAL.user_id,
1759: a.status_date = SYSDATE
1760: WHERE a.status_code = 'AVAILABLE'
1761: AND (EXISTS
1762: (SELECT 1