[Home] [Help]
1025:
1026: ------------------------------------------------------
1027: -- Gets user key for SHIP_TO_LOCATION_ID
1028: -- the LOV used is HR_LOCATIONS for P2P
1029: -- the LOV used is HZ_LOCATIONS for O2C
1030: -- and the segments in user key string are:
1031: -- Segment 1 is LOCATION_CODE
1032: -- Segment 2 is BUSINESS_GROUP_ID
1033: -- Note: We will use only segment1 we expect user to enter unique value.
1097: FND_MSG_PUB.Add;
1098: END;
1099:
1100: ELSIF l_flow = 'O2C' THEN
1101: write_message('~ Table to get Ship to Location is HZ_LOCATIONS');
1102: break_user_key_into_segments(p_user_key_string,
1103: l_separator,
1104: l_number_of_segments,
1105: l_user_key_segments_tbl);
1107: If nvl(l_number_of_segments,1) > 1 then
1108: l_varchar2_id1 := l_user_key_segments_tbl(2);
1109: End If;
1110: -------------------------------------------------------
1111: -- O2C Retrieve SHIP_TO_LOCATION_ID from HZ_LOCATIONS
1112: -------------------------------------------------------
1113: BEGIN
1114: select location_id
1115: into x_user_key_id
1112: -------------------------------------------------------
1113: BEGIN
1114: select location_id
1115: into x_user_key_id
1116: from hz_locations
1117: where ltrim(rtrim(upper(address1))) = ltrim(rtrim(upper(l_varchar2_id)))
1118: and upper(city) = upper(l_varchar2_id1);
1119: EXCEPTION
1120: WHEN NO_DATA_FOUND THEN
1123: --------------------------------------------------------------------
1124: BEGIN
1125: select location_id
1126: into x_user_key_id
1127: from hz_locations
1128: where short_description = l_varchar2_id;
1129: EXCEPTION
1130: WHEN NO_DATA_FOUND THEN
1131: --------------------------------------------------------------------