[Home] [Help]
1106: l_progress := '020';
1107: BEGIN
1108: SELECT location_code
1109: INTO x_location_name
1110: FROM HR_LOCATIONS_ALL_TL
1111: WHERE location_id = p_location_id
1112: AND language = userenv('LANG');
1113: EXCEPTION
1114: WHEN OTHERS THEN
1112: AND language = userenv('LANG');
1113: EXCEPTION
1114: WHEN OTHERS THEN
1115: l_progress := '030';
1116: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Exception while getting name from HR_LOCATIONS_ALL_TL: '||SQLERRM); END IF;
1117:
1118: x_location_name := p_location_id;
1119: END;
1120: -- ECO bug 5584556: End
1172: l_index NUMBER;
1173: i NUMBER;
1174: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
1175:
1176: l_location_name HR_LOCATIONS_ALL_TL.location_code%TYPE;
1177: BEGIN
1178: l_progress := '010';
1179: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1180:
1189: l_progress := '020';
1190: -- ECO bug 5584556: Start
1191: -- Add a separate message to check for null values and id's that dont exist
1192:
1193: -- SQL What: Bulk validate ship_to_location_id not null and against HR_LOCATIONS_ALL.
1194: -- Get the errored rows into GT table.
1195: -- SQL Why : It will be used to mark the record in plsql table as error.
1196: -- SQL Join: ship_to_location_id
1197: FORALL i IN 1 .. p_headers_rec.ship_to_location_id.COUNT
1207: WHERE --p_headers_rec.has_errors(i) = 'N'
1208: p_headers_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_header_create --Bug#5018883
1209: AND (p_headers_rec.ship_to_location_id(i) IS NULL OR
1210: NOT EXISTS(SELECT 1
1211: FROM HR_LOCATIONS_ALL HRLA
1212: WHERE p_headers_rec.ship_to_location_id(i) = HRLA.location_id));
1213:
1214: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1215:
1266: -- The following validation checks are already done above.
1267: -- So adding these additional where-clauses to skip those cases.
1268: AND p_headers_rec.ship_to_location_id(i) IS NOT NULL
1269: AND EXISTS(SELECT 'ID exists'
1270: FROM HR_LOCATIONS_ALL HRLA
1271: WHERE p_headers_rec.ship_to_location_id(i) = HRLA.location_id)
1272: -- ECO bug 5584556: End
1273: AND NOT EXISTS(SELECT 'Active ship-to-location'
1274: FROM HR_LOCATIONS HRL
1370: l_index NUMBER;
1371: i NUMBER;
1372: l_subscript_array PO_R12_CAT_UPG_TYPES.PO_TBL_NUMBER;
1373:
1374: l_location_name HR_LOCATIONS_ALL_TL.location_code%TYPE;
1375: BEGIN
1376: l_progress := '010';
1377: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'START'); END IF;
1378:
1384: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'p_headers_rec.has_errors(1)='||p_headers_rec.has_errors(1)); END IF;
1385: END IF;
1386:
1387: l_progress := '020';
1388: -- SQL What: Bulk validate bill_to_location_id not null and against HR_LOCATIONS_ALL.
1389: -- Get the errored rows into GT table.
1390: -- SQL Why : It will be used to mark the record in plsql table as error.
1391: -- SQL Join: bill_to_location_id
1392: FORALL i IN 1 .. p_headers_rec.bill_to_location_id.COUNT
1402: WHERE --p_headers_rec.has_errors(i) = 'N'
1403: p_headers_rec.action(i) = PO_R12_CAT_UPG_PVT.g_action_header_create --Bug#5018883
1404: AND (p_headers_rec.bill_to_location_id(i) IS NULL OR
1405: NOT EXISTS(SELECT 1
1406: FROM HR_LOCATIONS_ALL HRLA
1407: WHERE p_headers_rec.bill_to_location_id(i) = HRLA.location_id));
1408:
1409: IF g_debug THEN PO_R12_CAT_UPG_DEBUG.log_stmt(l_log_head,l_progress,'Number of rows insert into GT table='||SQL%rowcount); END IF;
1410:
1460: -- The following validation checks are already done above.
1461: -- So adding these additional where-clauses to skip those cases.
1462: AND p_headers_rec.bill_to_location_id(i) IS NOT NULL
1463: AND EXISTS(SELECT 'ID exists'
1464: FROM HR_LOCATIONS_ALL HRLA
1465: WHERE p_headers_rec.bill_to_location_id(i) = HRLA.location_id)
1466: -- ECO bug 5584556: End
1467: AND NOT EXISTS(SELECT 1
1468: FROM HR_LOCATIONS HRL