[Home] [Help]
1012:
1013: l_msg := 'PO_LOC_AGENTS';
1014: SELECT 'Y'
1015: INTO v_delete_allowed
1016: FROM sys.dual
1017: WHERE NOT EXISTS (
1018: SELECT null
1019: FROM PO_AGENTS
1020: WHERE location_id = p_location_id
1022:
1023: l_msg := 'PO_LOC_CONTROL_RULES';
1024: SELECT 'Y'
1025: INTO v_delete_allowed
1026: FROM sys.dual
1027: WHERE NOT EXISTS (
1028: SELECT null
1029: FROM PO_CONTROL_RULES
1030: WHERE location_id = p_location_id
1032:
1033: l_msg := 'PO_LOC_DISTRIBUTIONS_ALL';
1034: SELECT 'Y'
1035: INTO v_delete_allowed
1036: FROM sys.dual
1037: WHERE NOT EXISTS (
1038: SELECT null
1039: FROM PO_DISTRIBUTIONS_ALL
1040: WHERE deliver_to_location_id = p_location_id
1042:
1043: l_msg := 'PO_LOC_DISTRIBUTIONS_ARCHIVE';
1044: SELECT 'Y'
1045: INTO v_delete_allowed
1046: FROM sys.dual
1047: WHERE NOT EXISTS (
1048: SELECT null
1049: FROM PO_DISTRIBUTIONS_ARCHIVE_ALL
1050: WHERE deliver_to_location_id = p_location_id
1052:
1053: l_msg := 'PO_LOC_DISTRIBUTIONS_INTERFACE';
1054: SELECT 'Y'
1055: INTO v_delete_allowed
1056: FROM sys.dual
1057: WHERE NOT EXISTS (
1058: SELECT null
1059: FROM PO_DISTRIBUTIONS_INTERFACE
1060: WHERE deliver_to_location_id = p_location_id
1062:
1063: l_msg := 'PO_LOC_HEADERS_ALL';
1064: SELECT 'Y'
1065: INTO v_delete_allowed
1066: FROM sys.dual
1067: WHERE NOT EXISTS (
1068: SELECT null
1069: FROM PO_HEADERS_ALL
1070: WHERE ship_to_location_id = p_location_id
1073:
1074: l_msg := 'PO_LOC_HEADERS_ARCHIVE_ALL';
1075: SELECT 'Y'
1076: INTO v_delete_allowed
1077: FROM sys.dual
1078: WHERE NOT EXISTS (
1079: SELECT null
1080: FROM PO_HEADERS_ARCHIVE_ALL
1081: WHERE ship_to_location_id = p_location_id
1084:
1085: l_msg := 'PO_LOC_HEADERS_INTERFACE';
1086: SELECT 'Y'
1087: INTO v_delete_allowed
1088: FROM sys.dual
1089: WHERE NOT EXISTS (
1090: SELECT null
1091: FROM PO_HEADERS_INTERFACE
1092: WHERE ship_to_location_id = p_location_id
1095:
1096: l_msg := 'PO_LOC_LINES_INTERFACE';
1097: SELECT 'Y'
1098: INTO v_delete_allowed
1099: FROM sys.dual
1100: WHERE NOT EXISTS (
1101: SELECT null
1102: FROM PO_LINES_INTERFACE
1103: WHERE ship_to_location_id = p_location_id
1105:
1106: l_msg := 'PO_LOC_LINE_LOCATIONS_ALL';
1107: SELECT 'Y'
1108: INTO v_delete_allowed
1109: FROM sys.dual
1110: WHERE NOT EXISTS (
1111: SELECT null
1112: FROM PO_LINE_LOCATIONS_ALL
1113: WHERE ship_to_location_id = p_location_id
1115:
1116: l_msg := 'PO_LOC_LINE_LOCATIONS_ARCHIVE';
1117: SELECT 'Y'
1118: INTO v_delete_allowed
1119: FROM sys.dual
1120: WHERE NOT EXISTS (
1121: SELECT null
1122: FROM PO_LINE_LOCATIONS_ARCHIVE_ALL
1123: WHERE ship_to_location_id = p_location_id
1125:
1126: l_msg := 'PO_LOC_LOCATION_ASSOCIATIONS';
1127: SELECT 'Y'
1128: INTO v_delete_allowed
1129: FROM sys.dual
1130: WHERE NOT EXISTS (
1131: SELECT null
1132: FROM PO_LOCATION_ASSOCIATIONS
1133: WHERE location_id = p_location_id
1135:
1136: l_msg := 'PO_LOC_REQUISITIONS_INTERFACE';
1137: SELECT 'Y'
1138: INTO v_delete_allowed
1139: FROM sys.dual
1140: WHERE NOT EXISTS (
1141: SELECT null
1142: FROM PO_REQUISITIONS_INTERFACE_ALL
1143: WHERE deliver_to_location_id = p_location_id
1145:
1146: l_msg := 'PO_LOC_REQUISITION_LINES_ALL';
1147: SELECT 'Y'
1148: INTO v_delete_allowed
1149: FROM sys.dual
1150: WHERE NOT EXISTS (
1151: SELECT null
1152: FROM PO_REQUISITION_LINES_ALL
1153: WHERE deliver_to_location_id = p_location_id
1157: /*
1158: l_msg := 'PO_LOC_VENDORS';
1159: SELECT 'Y'
1160: INTO v_delete_allowed
1161: FROM sys.dual
1162: WHERE NOT EXISTS (
1163: SELECT null
1164: FROM PO_VENDORS
1165: WHERE ship_to_location_id = p_location_id
1169:
1170: l_msg := 'PO_LOC_VENDOR_SITES_ALL';
1171: SELECT 'Y'
1172: INTO v_delete_allowed
1173: FROM sys.dual
1174: WHERE NOT EXISTS (
1175: SELECT null
1176: FROM PO_VENDOR_SITES_ALL
1177: WHERE ship_to_location_id = p_location_id
1180:
1181: l_msg := 'RCV_LOC_HEADERS_INTERFACE';
1182: SELECT 'Y'
1183: INTO v_delete_allowed
1184: FROM sys.dual
1185: WHERE NOT EXISTS (
1186: SELECT null
1187: FROM RCV_HEADERS_INTERFACE
1188: WHERE location_id = p_location_id
1190:
1191: l_msg := 'RCV_LOC_SHIPMENT_HEADERS';
1192: SELECT 'Y'
1193: INTO v_delete_allowed
1194: FROM sys.dual
1195: WHERE NOT EXISTS (
1196: SELECT null
1197: FROM RCV_SHIPMENT_HEADERS
1198: WHERE ship_to_location_id = p_location_id
1200:
1201: l_msg := 'RCV_LOC_SHIPMENT_LINES';
1202: SELECT 'Y'
1203: INTO v_delete_allowed
1204: FROM sys.dual
1205: WHERE NOT EXISTS (
1206: SELECT null
1207: FROM RCV_SHIPMENT_LINES
1208: WHERE ship_to_location_id = p_location_id
1211:
1212: l_msg := 'RCV_LOC_SUPPLY';
1213: SELECT 'Y'
1214: INTO v_delete_allowed
1215: FROM sys.dual
1216: WHERE NOT EXISTS (
1217: SELECT null
1218: FROM RCV_SUPPLY
1219: WHERE location_id = p_location_id
1221:
1222: l_msg := 'RCV_LOC_TRANSACTIONS';
1223: SELECT 'Y'
1224: INTO v_delete_allowed
1225: FROM sys.dual
1226: WHERE NOT EXISTS (
1227: SELECT null
1228: FROM RCV_TRANSACTIONS
1229: WHERE deliver_to_location_id = p_location_id
1232:
1233: l_msg := 'RCV_LOC_TRANSACTIONS_INTERFACE';
1234: SELECT 'Y'
1235: INTO v_delete_allowed
1236: FROM sys.dual
1237: WHERE NOT EXISTS (
1238: SELECT null
1239: FROM RCV_TRANSACTIONS_INTERFACE
1240: WHERE ship_to_location_id = p_location_id