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
1114: );
1115:
1116: l_msg := 'PO_LOC_LINE_LOCATIONS_ARCHIVE';